From 4734edf4bda88edf99bba3319ce2c88ce6daecb0 Mon Sep 17 00:00:00 2001 From: bstarynk Date: Sun, 14 Mar 2010 11:01:55 +0000 Subject: 2010-03-14 Basile Starynkevitch * gcc/Makefile.in (gt-melt-runtime-plugin.h): new target, useless packaging MELT for plugins. (upgrade-warmelt): added above file. {{regenerated all}} * gcc/melt/generated/gt-melt-runtime-plugin.h: added generated new file. * gcc/melt/generated/warmelt-normatch.0+01.c: regenerated. * gcc/melt/generated/warmelt-first.0.c: regenerated. * gcc/melt/generated/warmelt-normal.0.c: regenerated. * gcc/melt/generated/warmelt-normatch.0+02.c: regenerated. * gcc/melt/generated/warmelt-macro.0.c: regenerated. * gcc/melt/generated/warmelt-outobj.0.c: regenerated. * gcc/melt/generated/warmelt-first.0+01.c: regenerated. * gcc/melt/generated/warmelt-genobj.0.c: regenerated. * gcc/melt/generated/warmelt-normal.0+01.c: regenerated. * gcc/melt/generated/warmelt-normal.0+02.c: regenerated. * gcc/melt/generated/warmelt-base.0.c: regenerated. * gcc/melt/generated/warmelt-normatch.0.c: regenerated. * gcc/melt/generated/warmelt-genobj.0+03.c: regenerated. * gcc/melt/generated/warmelt-debug.0.c: regenerated. 2010-03-14 Basile Starynkevitch * contrib/build-melt-source-tar.sh: added file. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/branches/melt-branch@157446 138bc75d-0d04-0410-961f-82ee72b054a4 --- gcc/ChangeLog.MELT | 23 + gcc/Makefile.in | 33 +- gcc/melt/generated/gt-melt-runtime-plugin.h | 1080 ++ gcc/melt/generated/warmelt-base.0.c | 748 +- gcc/melt/generated/warmelt-debug.0.c | 28 +- gcc/melt/generated/warmelt-first.0+01.c | 1502 +- gcc/melt/generated/warmelt-first.0.c | 23022 +++++++++++++------------- gcc/melt/generated/warmelt-genobj.0+03.c | 12 +- gcc/melt/generated/warmelt-genobj.0.c | 446 +- gcc/melt/generated/warmelt-macro.0.c | 370 +- gcc/melt/generated/warmelt-normal.0+01.c | 4 +- gcc/melt/generated/warmelt-normal.0+02.c | 2 +- gcc/melt/generated/warmelt-normal.0.c | 412 +- gcc/melt/generated/warmelt-normatch.0+01.c | 10071 +++++------ gcc/melt/generated/warmelt-normatch.0+02.c | 16196 ++++++++++++------ gcc/melt/generated/warmelt-normatch.0.c | 21960 +++++++++++++----------- gcc/melt/generated/warmelt-outobj.0.c | 70 +- 17 files changed, 42066 insertions(+), 33913 deletions(-) create mode 100644 gcc/melt/generated/gt-melt-runtime-plugin.h (limited to 'gcc') diff --git a/gcc/ChangeLog.MELT b/gcc/ChangeLog.MELT index dfb0bea277b..9947d20063d 100644 --- a/gcc/ChangeLog.MELT +++ b/gcc/ChangeLog.MELT @@ -1,3 +1,26 @@ +2010-03-14 Basile Starynkevitch + + * Makefile.in (gt-melt-runtime-plugin.h): new target, useless + packaging MELT for plugins. + (upgrade-warmelt): added above file. + + {{regenerated all}} + * melt/generated/gt-melt-runtime-plugin.h: added generated new file. + * melt/generated/warmelt-normatch.0+01.c: regenerated. + * melt/generated/warmelt-first.0.c: regenerated. + * melt/generated/warmelt-normal.0.c: regenerated. + * melt/generated/warmelt-normatch.0+02.c: regenerated. + * melt/generated/warmelt-macro.0.c: regenerated. + * melt/generated/warmelt-outobj.0.c: regenerated. + * melt/generated/warmelt-first.0+01.c: regenerated. + * melt/generated/warmelt-genobj.0.c: regenerated. + * melt/generated/warmelt-normal.0+01.c: regenerated. + * melt/generated/warmelt-normal.0+02.c: regenerated. + * melt/generated/warmelt-base.0.c: regenerated. + * melt/generated/warmelt-normatch.0.c: regenerated. + * melt/generated/warmelt-genobj.0+03.c: regenerated. + * melt/generated/warmelt-debug.0.c: regenerated. + 2010-03-13 Basile Starynkevitch {{can be compiled as a plugin, and removed every GDBM stuff.}} * configure.ac: removed GDBM stuff. diff --git a/gcc/Makefile.in b/gcc/Makefile.in index 587859f039f..7222ec33bad 100644 --- a/gcc/Makefile.in +++ b/gcc/Makefile.in @@ -3657,6 +3657,7 @@ GTFILES = $(CPP_ID_DATA_H) $(srcdir)/input.h $(srcdir)/coretypes.h \ ## automount-ed file systems). This could be useful in plugin mode of ## gengtype. REALGTFILES = $(foreach f, $(GTFILES), $(if $(patsubst [%],,$f), $(realpath $f), $f)) +REALGTMELTPLUGINFILES = $(foreach f, $(filter-out $(MELT_C) $(MELT_H), $(GTFILES)), $(if $(patsubst [%],,$f), $(realpath $f), $f)) # Compute the list of GT header files from the corresponding C sources, # possibly nested within config or language subdirectories. Match gengtype's @@ -3684,12 +3685,14 @@ $(ALL_GTFILES_H) gtype-desc.c gtype-desc.h : s-gtype ; @true ## gtyp-real-input.list file contains only absolute paths, it may not ## work in some cases (e.g. perhaps when build tree is auto-mount-ed). -gtyp-input.list gtyp-real-input.list: s-gtyp-input ; @true +gtyp-input.list gtyp-real-input.list gtyp-real-meltplugin-input.list: s-gtyp-input ; @true s-gtyp-input: Makefile @: $(call write_entries_to_file,$(GTFILES),tmp-gi.list) $(SHELL) $(srcdir)/../move-if-change tmp-gi.list gtyp-input.list @: $(call write_entries_to_file,$(REALGTFILES),tmp-realgi.list) $(SHELL) $(srcdir)/../move-if-change tmp-realgi.list gtyp-real-input.list + @: $(call write_entries_to_file,$(REALGTMELTPLUGINFILES),tmp-realmeltgi.list) + $(SHELL) $(srcdir)/../move-if-change tmp-realmeltgi.list gtyp-real-meltplugin-input.list $(STAMP) s-gtyp-input s-gtype: build/gengtype$(build_exeext) $(filter-out [%], $(GTFILES)) \ @@ -5137,7 +5140,7 @@ melt.encap: run-melt.d rm -rf _tempmeltdir* echo melt.encap done -.PHONY: install-all-melt install-melt-headers update-warmelt diff-warm-1-2 diff-warm-2-3 diff-warm-4-5 diff-warmelt-2-3 install-melt-dynlib install-melt-cfiles install-melt-meltfiles install-melt-otherfiles +.PHONY: install-all-melt install-melt-headers upgrade-warmelt upgrade-bigmelt diff-warm-1-2 diff-warm-2-3 diff-warm-4-5 diff-warmelt-2-3 install-melt-dynlib install-melt-cfiles install-melt-meltfiles install-melt-otherfiles install-melt-headers: melt.encap $(INSTALL_MELT_HEADERS_DIR) @@ -5196,7 +5199,29 @@ install-melt-otherfiles: installdirs #### explicitly given .PHONY: upgrade-warmelt upgrade-bigmelt -upgrade-warmelt: $(WARMELT_BASE3SO) + + +#### generate gt-melt-runtime-plugin.h for ease of building MELT as a +#### plugin. gt-melt-runtime-plugin.h could be manually copied as the +#### gt-melt-runtime.h file in plugin mode to avoid running gengtype +#### in plugin mode, since gengtype requires both source and build +#### tree of the GCC into which the plugin is made, which is a +#### nuisance to e.g. distribution packagers. Having a dependency on +#### the *build* tree is not common and painful .... See threads +#### http://gcc.gnu.org/ml/gcc/2010-03/msg00129.html +#### http://lists.debian.org/debian-gcc/2010/03/msg00047.html. +#### this file is useless, except for packaging GCC MELT as a plugin. +gt-melt-runtime-plugin.h: $(srcdir)/melt-runtime.c $(srcdir)/melt-runtime.h gtyp-real-meltplugin-input.list build/gengtype$(build_exeext) + rm -f $@ + $(RUN_GEN) build/gengtype$(build_exeext) -P $@ $(srcdir) gtyp-real-meltplugin-input.list $(srcdir)/melt-runtime.h $(srcdir)/melt-runtime.c +# we add a comment containing various meta-information. + date +"/* $@ file generated %c%n" >> $@ + if [ -f REVISION ]; then (echo -n "GCC revision: " ; cat REVISION) >> $@ ; fi + if [ -f DATESTAMP ]; then (echo -n "GCC date stamp: " ; cat DATESTAMP) >> $@ ; fi + (cd $(srcdir); md5sum melt-runtime.h melt-runtime.c) >> $@ + echo "*/" >> $@ + +upgrade-warmelt: $(WARMELT_BASE3SO) gt-melt-runtime-plugin.h $(MAKE) Makefile warmelt3.modlis # we used to have a move-if-change of the generated files, but an mv # is better... @@ -5224,6 +5249,8 @@ upgrade-warmelt: $(WARMELT_BASE3SO) mv $(srcdir)/melt/$$f-tmp $(srcdir)/melt/generated/$$f; \ done; \ done +## copy gt-melt-runtime-plugin.h + cp gt-melt-runtime-plugin.h $(srcdir)/melt/generated/ ## rebuild warmelt1 to be sure @echo upgrade-warmelt rebuilding warmelt1 $(MAKE) warmelt1.modlis $(WARMELT_BASE1SO) diff --git a/gcc/melt/generated/gt-melt-runtime-plugin.h b/gcc/melt/generated/gt-melt-runtime-plugin.h new file mode 100644 index 00000000000..cb4bdf68773 --- /dev/null +++ b/gcc/melt/generated/gt-melt-runtime-plugin.h @@ -0,0 +1,1080 @@ +/* Type information for GCC. + Copyright (C) 2004, 2007, 2009 Free Software Foundation, Inc. + +This file is part of GCC. + +GCC is free software; you can redistribute it and/or modify it under +the terms of the GNU General Public License as published by the Free +Software Foundation; either version 3, or (at your option) any later +version. + +GCC is distributed in the hope that it will be useful, but WITHOUT ANY +WARRANTY; without even the implied warranty of MERCHANTABILITY or +FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License +for more details. + +You should have received a copy of the GNU General Public License +along with GCC; see the file COPYING3. If not see +. */ + +/* This file is machine generated. Do not edit. */ + +/* GC marker procedures. */ +/* macros and declarations */ +#define gt_ggc_m_17VEC_melt_ptr_t_gc(X) do { \ + if (X != NULL) gt_ggc_mx_VEC_melt_ptr_t_gc (X);\ + } while (0) +extern void gt_ggc_mx_VEC_melt_ptr_t_gc (void *); +#define gt_ggc_m_11meltpair_st(X) do { \ + if (X != NULL) gt_ggc_mx_meltpair_st (X);\ + } while (0) +extern void gt_ggc_mx_meltpair_st (void *); +#define gt_ggc_m_14meltroutine_st(X) do { \ + if (X != NULL) gt_ggc_mx_meltroutine_st (X);\ + } while (0) +extern void gt_ggc_mx_meltroutine_st (void *); +#define gt_ggc_m_13meltobject_st(X) do { \ + if (X != NULL) gt_ggc_mx_meltobject_st (X);\ + } while (0) +extern void gt_ggc_mx_meltobject_st (void *); +#define gt_ggc_m_7melt_un(X) do { \ + if (X != NULL) gt_ggc_mx_melt_un (X);\ + } while (0) +extern void gt_ggc_mx_melt_un (void *); +#define gt_ggc_m_15interface_tuple(X) do { \ + if (X != NULL) gt_ggc_mx_interface_tuple (X);\ + } while (0) +extern void gt_ggc_mx_interface_tuple (void *); +#define gt_ggc_m_16volatilized_type(X) do { \ + if (X != NULL) gt_ggc_mx_volatilized_type (X);\ + } while (0) +extern void gt_ggc_mx_volatilized_type (void *); +#define gt_ggc_m_17string_descriptor(X) do { \ + if (X != NULL) gt_ggc_mx_string_descriptor (X);\ + } while (0) +extern void gt_ggc_mx_string_descriptor (void *); +#define gt_ggc_m_15c_inline_static(X) do { \ + if (X != NULL) gt_ggc_mx_c_inline_static (X);\ + } while (0) +extern void gt_ggc_mx_c_inline_static (void *); +#define gt_ggc_m_24VEC_c_goto_bindings_p_gc(X) do { \ + if (X != NULL) gt_ggc_mx_VEC_c_goto_bindings_p_gc (X);\ + } while (0) +extern void gt_ggc_mx_VEC_c_goto_bindings_p_gc (void *); +#define gt_ggc_m_15c_goto_bindings(X) do { \ + if (X != NULL) gt_ggc_mx_c_goto_bindings (X);\ + } while (0) +extern void gt_ggc_mx_c_goto_bindings (void *); +#define gt_ggc_m_7c_scope(X) do { \ + if (X != NULL) gt_ggc_mx_c_scope (X);\ + } while (0) +extern void gt_ggc_mx_c_scope (void *); +#define gt_ggc_m_9c_binding(X) do { \ + if (X != NULL) gt_ggc_mx_c_binding (X);\ + } while (0) +extern void gt_ggc_mx_c_binding (void *); +#define gt_ggc_m_12c_label_vars(X) do { \ + if (X != NULL) gt_ggc_mx_c_label_vars (X);\ + } while (0) +extern void gt_ggc_mx_c_label_vars (void *); +#define gt_ggc_m_8c_parser(X) do { \ + if (X != NULL) gt_ggc_mx_c_parser (X);\ + } while (0) +extern void gt_ggc_mx_c_parser (void *); +#define gt_ggc_m_9imp_entry(X) do { \ + if (X != NULL) gt_ggc_mx_imp_entry (X);\ + } while (0) +extern void gt_ggc_mx_imp_entry (void *); +#define gt_ggc_m_16hashed_attribute(X) do { \ + if (X != NULL) gt_ggc_mx_hashed_attribute (X);\ + } while (0) +extern void gt_ggc_mx_hashed_attribute (void *); +#define gt_ggc_m_12hashed_entry(X) do { \ + if (X != NULL) gt_ggc_mx_hashed_entry (X);\ + } while (0) +extern void gt_ggc_mx_hashed_entry (void *); +#define gt_ggc_m_14type_assertion(X) do { \ + if (X != NULL) gt_ggc_mx_type_assertion (X);\ + } while (0) +extern void gt_ggc_mx_type_assertion (void *); +#define gt_ggc_m_18treetreehash_entry(X) do { \ + if (X != NULL) gt_ggc_mx_treetreehash_entry (X);\ + } while (0) +extern void gt_ggc_mx_treetreehash_entry (void *); +#define gt_ggc_m_5CPool(X) do { \ + if (X != NULL) gt_ggc_mx_CPool (X);\ + } while (0) +extern void gt_ggc_mx_CPool (void *); +#define gt_ggc_m_3JCF(X) do { \ + if (X != NULL) gt_ggc_mx_JCF (X);\ + } while (0) +extern void gt_ggc_mx_JCF (void *); +#define gt_ggc_m_17module_htab_entry(X) do { \ + if (X != NULL) gt_ggc_mx_module_htab_entry (X);\ + } while (0) +extern void gt_ggc_mx_module_htab_entry (void *); +#define gt_ggc_m_13binding_level(X) do { \ + if (X != NULL) gt_ggc_mx_binding_level (X);\ + } while (0) +extern void gt_ggc_mx_binding_level (void *); +#define gt_ggc_m_9opt_stack(X) do { \ + if (X != NULL) gt_ggc_mx_opt_stack (X);\ + } while (0) +extern void gt_ggc_mx_opt_stack (void *); +#define gt_ggc_m_11align_stack(X) do { \ + if (X != NULL) gt_ggc_mx_align_stack (X);\ + } while (0) +extern void gt_ggc_mx_align_stack (void *); +#define gt_ggc_m_18VEC_tree_gc_vec_gc(X) do { \ + if (X != NULL) gt_ggc_mx_VEC_tree_gc_vec_gc (X);\ + } while (0) +extern void gt_ggc_mx_VEC_tree_gc_vec_gc (void *); +#define gt_ggc_m_19VEC_const_char_p_gc(X) do { \ + if (X != NULL) gt_ggc_mx_VEC_const_char_p_gc (X);\ + } while (0) +extern void gt_ggc_mx_VEC_const_char_p_gc (void *); +#define gt_ggc_m_21pending_abstract_type(X) do { \ + if (X != NULL) gt_ggc_mx_pending_abstract_type (X);\ + } while (0) +extern void gt_ggc_mx_pending_abstract_type (void *); +#define gt_ggc_m_15VEC_tree_int_gc(X) do { \ + if (X != NULL) gt_ggc_mx_VEC_tree_int_gc (X);\ + } while (0) +extern void gt_ggc_mx_VEC_tree_int_gc (void *); +#define gt_ggc_m_9cp_parser(X) do { \ + if (X != NULL) gt_ggc_mx_cp_parser (X);\ + } while (0) +extern void gt_ggc_mx_cp_parser (void *); +#define gt_ggc_m_17cp_parser_context(X) do { \ + if (X != NULL) gt_ggc_mx_cp_parser_context (X);\ + } while (0) +extern void gt_ggc_mx_cp_parser_context (void *); +#define gt_ggc_m_8cp_lexer(X) do { \ + if (X != NULL) gt_ggc_mx_cp_lexer (X);\ + } while (0) +extern void gt_ggc_mx_cp_lexer (void *); +#define gt_ggc_m_10tree_check(X) do { \ + if (X != NULL) gt_ggc_mx_tree_check (X);\ + } while (0) +extern void gt_ggc_mx_tree_check (void *); +#define gt_ggc_m_22VEC_deferred_access_gc(X) do { \ + if (X != NULL) gt_ggc_mx_VEC_deferred_access_gc (X);\ + } while (0) +extern void gt_ggc_mx_VEC_deferred_access_gc (void *); +#define gt_ggc_m_10spec_entry(X) do { \ + if (X != NULL) gt_ggc_mx_spec_entry (X);\ + } while (0) +extern void gt_ggc_mx_spec_entry (void *); +#define gt_ggc_m_16pending_template(X) do { \ + if (X != NULL) gt_ggc_mx_pending_template (X);\ + } while (0) +extern void gt_ggc_mx_pending_template (void *); +#define gt_ggc_m_21named_label_use_entry(X) do { \ + if (X != NULL) gt_ggc_mx_named_label_use_entry (X);\ + } while (0) +extern void gt_ggc_mx_named_label_use_entry (void *); +#define gt_ggc_m_28VEC_deferred_access_check_gc(X) do { \ + if (X != NULL) gt_ggc_mx_VEC_deferred_access_check_gc (X);\ + } while (0) +extern void gt_ggc_mx_VEC_deferred_access_check_gc (void *); +#define gt_ggc_m_18sorted_fields_type(X) do { \ + if (X != NULL) gt_ggc_mx_sorted_fields_type (X);\ + } while (0) +extern void gt_ggc_mx_sorted_fields_type (void *); +#define gt_ggc_m_18VEC_tree_pair_s_gc(X) do { \ + if (X != NULL) gt_ggc_mx_VEC_tree_pair_s_gc (X);\ + } while (0) +extern void gt_ggc_mx_VEC_tree_pair_s_gc (void *); +#define gt_ggc_m_17named_label_entry(X) do { \ + if (X != NULL) gt_ggc_mx_named_label_entry (X);\ + } while (0) +extern void gt_ggc_mx_named_label_entry (void *); +#define gt_ggc_m_32VEC_qualified_typedef_usage_t_gc(X) do { \ + if (X != NULL) gt_ggc_mx_VEC_qualified_typedef_usage_t_gc (X);\ + } while (0) +extern void gt_ggc_mx_VEC_qualified_typedef_usage_t_gc (void *); +#define gt_ggc_m_14cp_token_cache(X) do { \ + if (X != NULL) gt_ggc_mx_cp_token_cache (X);\ + } while (0) +extern void gt_ggc_mx_cp_token_cache (void *); +#define gt_ggc_m_11saved_scope(X) do { \ + if (X != NULL) gt_ggc_mx_saved_scope (X);\ + } while (0) +extern void gt_ggc_mx_saved_scope (void *); +#define gt_ggc_m_16cxx_int_tree_map(X) do { \ + if (X != NULL) gt_ggc_mx_cxx_int_tree_map (X);\ + } while (0) +extern void gt_ggc_mx_cxx_int_tree_map (void *); +#define gt_ggc_m_23VEC_cp_class_binding_gc(X) do { \ + if (X != NULL) gt_ggc_mx_VEC_cp_class_binding_gc (X);\ + } while (0) +extern void gt_ggc_mx_VEC_cp_class_binding_gc (void *); +#define gt_ggc_m_24VEC_cxx_saved_binding_gc(X) do { \ + if (X != NULL) gt_ggc_mx_VEC_cxx_saved_binding_gc (X);\ + } while (0) +extern void gt_ggc_mx_VEC_cxx_saved_binding_gc (void *); +#define gt_ggc_m_16cp_binding_level(X) do { \ + if (X != NULL) gt_ggc_mx_cp_binding_level (X);\ + } while (0) +extern void gt_ggc_mx_cp_binding_level (void *); +#define gt_ggc_m_11cxx_binding(X) do { \ + if (X != NULL) gt_ggc_mx_cxx_binding (X);\ + } while (0) +extern void gt_ggc_mx_cxx_binding (void *); +#define gt_ggc_m_15binding_entry_s(X) do { \ + if (X != NULL) gt_ggc_mx_binding_entry_s (X);\ + } while (0) +extern void gt_ggc_mx_binding_entry_s (void *); +#define gt_ggc_m_15binding_table_s(X) do { \ + if (X != NULL) gt_ggc_mx_binding_table_s (X);\ + } while (0) +extern void gt_ggc_mx_binding_table_s (void *); +#define gt_ggc_m_11tinst_level(X) do { \ + if (X != NULL) gt_ggc_mx_tinst_level (X);\ + } while (0) +extern void gt_ggc_mx_tinst_level (void *); +#define gt_ggc_m_14VEC_tinfo_s_gc(X) do { \ + if (X != NULL) gt_ggc_mx_VEC_tinfo_s_gc (X);\ + } while (0) +extern void gt_ggc_mx_VEC_tinfo_s_gc (void *); +#define gt_ggc_m_18gnat_binding_level(X) do { \ + if (X != NULL) gt_ggc_mx_gnat_binding_level (X);\ + } while (0) +extern void gt_ggc_mx_gnat_binding_level (void *); +#define gt_ggc_m_9elab_info(X) do { \ + if (X != NULL) gt_ggc_mx_elab_info (X);\ + } while (0) +extern void gt_ggc_mx_elab_info (void *); +#define gt_ggc_m_10stmt_group(X) do { \ + if (X != NULL) gt_ggc_mx_stmt_group (X);\ + } while (0) +extern void gt_ggc_mx_stmt_group (void *); +#define gt_ggc_m_16VEC_parm_attr_gc(X) do { \ + if (X != NULL) gt_ggc_mx_VEC_parm_attr_gc (X);\ + } while (0) +extern void gt_ggc_mx_VEC_parm_attr_gc (void *); +#define gt_ggc_m_11parm_attr_d(X) do { \ + if (X != NULL) gt_ggc_mx_parm_attr_d (X);\ + } while (0) +extern void gt_ggc_mx_parm_attr_d (void *); +#define gt_ggc_m_22VEC_ipa_edge_args_t_gc(X) do { \ + if (X != NULL) gt_ggc_mx_VEC_ipa_edge_args_t_gc (X);\ + } while (0) +extern void gt_ggc_mx_VEC_ipa_edge_args_t_gc (void *); +#define gt_ggc_m_20lto_symtab_entry_def(X) do { \ + if (X != NULL) gt_ggc_mx_lto_symtab_entry_def (X);\ + } while (0) +extern void gt_ggc_mx_lto_symtab_entry_def (void *); +#define gt_ggc_m_20ssa_operand_memory_d(X) do { \ + if (X != NULL) gt_ggc_mx_ssa_operand_memory_d (X);\ + } while (0) +extern void gt_ggc_mx_ssa_operand_memory_d (void *); +#define gt_ggc_m_13scev_info_str(X) do { \ + if (X != NULL) gt_ggc_mx_scev_info_str (X);\ + } while (0) +extern void gt_ggc_mx_scev_info_str (void *); +#define gt_ggc_m_24VEC_mem_addr_template_gc(X) do { \ + if (X != NULL) gt_ggc_mx_VEC_mem_addr_template_gc (X);\ + } while (0) +extern void gt_ggc_mx_VEC_mem_addr_template_gc (void *); +#define gt_ggc_m_13VEC_gimple_gc(X) do { \ + if (X != NULL) gt_ggc_mx_VEC_gimple_gc (X);\ + } while (0) +extern void gt_ggc_mx_VEC_gimple_gc (void *); +#define gt_ggc_m_9type_hash(X) do { \ + if (X != NULL) gt_ggc_mx_type_hash (X);\ + } while (0) +extern void gt_ggc_mx_type_hash (void *); +#define gt_ggc_m_16string_pool_data(X) do { \ + if (X != NULL) gt_ggc_mx_string_pool_data (X);\ + } while (0) +extern void gt_ggc_mx_string_pool_data (void *); +#define gt_ggc_m_13libfunc_entry(X) do { \ + if (X != NULL) gt_ggc_mx_libfunc_entry (X);\ + } while (0) +extern void gt_ggc_mx_libfunc_entry (void *); +#define gt_ggc_m_23temp_slot_address_entry(X) do { \ + if (X != NULL) gt_ggc_mx_temp_slot_address_entry (X);\ + } while (0) +extern void gt_ggc_mx_temp_slot_address_entry (void *); +#define gt_ggc_m_15throw_stmt_node(X) do { \ + if (X != NULL) gt_ggc_mx_throw_stmt_node (X);\ + } while (0) +extern void gt_ggc_mx_throw_stmt_node (void *); +#define gt_ggc_m_21VEC_eh_landing_pad_gc(X) do { \ + if (X != NULL) gt_ggc_mx_VEC_eh_landing_pad_gc (X);\ + } while (0) +extern void gt_ggc_mx_VEC_eh_landing_pad_gc (void *); +#define gt_ggc_m_16VEC_eh_region_gc(X) do { \ + if (X != NULL) gt_ggc_mx_VEC_eh_region_gc (X);\ + } while (0) +extern void gt_ggc_mx_VEC_eh_region_gc (void *); +#define gt_ggc_m_10eh_catch_d(X) do { \ + if (X != NULL) gt_ggc_mx_eh_catch_d (X);\ + } while (0) +extern void gt_ggc_mx_eh_catch_d (void *); +#define gt_ggc_m_16eh_landing_pad_d(X) do { \ + if (X != NULL) gt_ggc_mx_eh_landing_pad_d (X);\ + } while (0) +extern void gt_ggc_mx_eh_landing_pad_d (void *); +#define gt_ggc_m_11eh_region_d(X) do { \ + if (X != NULL) gt_ggc_mx_eh_region_d (X);\ + } while (0) +extern void gt_ggc_mx_eh_region_d (void *); +#define gt_ggc_m_10vcall_insn(X) do { \ + if (X != NULL) gt_ggc_mx_vcall_insn (X);\ + } while (0) +extern void gt_ggc_mx_vcall_insn (void *); +#define gt_ggc_m_18VEC_vcall_entry_gc(X) do { \ + if (X != NULL) gt_ggc_mx_VEC_vcall_entry_gc (X);\ + } while (0) +extern void gt_ggc_mx_VEC_vcall_entry_gc (void *); +#define gt_ggc_m_18VEC_dcall_entry_gc(X) do { \ + if (X != NULL) gt_ggc_mx_VEC_dcall_entry_gc (X);\ + } while (0) +extern void gt_ggc_mx_VEC_dcall_entry_gc (void *); +#define gt_ggc_m_16var_loc_list_def(X) do { \ + if (X != NULL) gt_ggc_mx_var_loc_list_def (X);\ + } while (0) +extern void gt_ggc_mx_var_loc_list_def (void *); +#define gt_ggc_m_12var_loc_node(X) do { \ + if (X != NULL) gt_ggc_mx_var_loc_node (X);\ + } while (0) +extern void gt_ggc_mx_var_loc_node (void *); +#define gt_ggc_m_20VEC_die_arg_entry_gc(X) do { \ + if (X != NULL) gt_ggc_mx_VEC_die_arg_entry_gc (X);\ + } while (0) +extern void gt_ggc_mx_VEC_die_arg_entry_gc (void *); +#define gt_ggc_m_16limbo_die_struct(X) do { \ + if (X != NULL) gt_ggc_mx_limbo_die_struct (X);\ + } while (0) +extern void gt_ggc_mx_limbo_die_struct (void *); +#define gt_ggc_m_20VEC_pubname_entry_gc(X) do { \ + if (X != NULL) gt_ggc_mx_VEC_pubname_entry_gc (X);\ + } while (0) +extern void gt_ggc_mx_VEC_pubname_entry_gc (void *); +#define gt_ggc_m_19VEC_dw_attr_node_gc(X) do { \ + if (X != NULL) gt_ggc_mx_VEC_dw_attr_node_gc (X);\ + } while (0) +extern void gt_ggc_mx_VEC_dw_attr_node_gc (void *); +#define gt_ggc_m_18comdat_type_struct(X) do { \ + if (X != NULL) gt_ggc_mx_comdat_type_struct (X);\ + } while (0) +extern void gt_ggc_mx_comdat_type_struct (void *); +#define gt_ggc_m_25dw_ranges_by_label_struct(X) do { \ + if (X != NULL) gt_ggc_mx_dw_ranges_by_label_struct (X);\ + } while (0) +extern void gt_ggc_mx_dw_ranges_by_label_struct (void *); +#define gt_ggc_m_16dw_ranges_struct(X) do { \ + if (X != NULL) gt_ggc_mx_dw_ranges_struct (X);\ + } while (0) +extern void gt_ggc_mx_dw_ranges_struct (void *); +#define gt_ggc_m_28dw_separate_line_info_struct(X) do { \ + if (X != NULL) gt_ggc_mx_dw_separate_line_info_struct (X);\ + } while (0) +extern void gt_ggc_mx_dw_separate_line_info_struct (void *); +#define gt_ggc_m_19dw_line_info_struct(X) do { \ + if (X != NULL) gt_ggc_mx_dw_line_info_struct (X);\ + } while (0) +extern void gt_ggc_mx_dw_line_info_struct (void *); +#define gt_ggc_m_25VEC_deferred_locations_gc(X) do { \ + if (X != NULL) gt_ggc_mx_VEC_deferred_locations_gc (X);\ + } while (0) +extern void gt_ggc_mx_VEC_deferred_locations_gc (void *); +#define gt_ggc_m_18dw_loc_list_struct(X) do { \ + if (X != NULL) gt_ggc_mx_dw_loc_list_struct (X);\ + } while (0) +extern void gt_ggc_mx_dw_loc_list_struct (void *); +#define gt_ggc_m_15dwarf_file_data(X) do { \ + if (X != NULL) gt_ggc_mx_dwarf_file_data (X);\ + } while (0) +extern void gt_ggc_mx_dwarf_file_data (void *); +#define gt_ggc_m_15queued_reg_save(X) do { \ + if (X != NULL) gt_ggc_mx_queued_reg_save (X);\ + } while (0) +extern void gt_ggc_mx_queued_reg_save (void *); +#define gt_ggc_m_20indirect_string_node(X) do { \ + if (X != NULL) gt_ggc_mx_indirect_string_node (X);\ + } while (0) +extern void gt_ggc_mx_indirect_string_node (void *); +#define gt_ggc_m_19dw_loc_descr_struct(X) do { \ + if (X != NULL) gt_ggc_mx_dw_loc_descr_struct (X);\ + } while (0) +extern void gt_ggc_mx_dw_loc_descr_struct (void *); +#define gt_ggc_m_13dw_fde_struct(X) do { \ + if (X != NULL) gt_ggc_mx_dw_fde_struct (X);\ + } while (0) +extern void gt_ggc_mx_dw_fde_struct (void *); +#define gt_ggc_m_13dw_cfi_struct(X) do { \ + if (X != NULL) gt_ggc_mx_dw_cfi_struct (X);\ + } while (0) +extern void gt_ggc_mx_dw_cfi_struct (void *); +#define gt_ggc_m_8typeinfo(X) do { \ + if (X != NULL) gt_ggc_mx_typeinfo (X);\ + } while (0) +extern void gt_ggc_mx_typeinfo (void *); +#define gt_ggc_m_22VEC_alias_set_entry_gc(X) do { \ + if (X != NULL) gt_ggc_mx_VEC_alias_set_entry_gc (X);\ + } while (0) +extern void gt_ggc_mx_VEC_alias_set_entry_gc (void *); +#define gt_ggc_m_17alias_set_entry_d(X) do { \ + if (X != NULL) gt_ggc_mx_alias_set_entry_d (X);\ + } while (0) +extern void gt_ggc_mx_alias_set_entry_d (void *); +#define gt_ggc_m_24constant_descriptor_tree(X) do { \ + if (X != NULL) gt_ggc_mx_constant_descriptor_tree (X);\ + } while (0) +extern void gt_ggc_mx_constant_descriptor_tree (void *); +#define gt_ggc_m_15cgraph_asm_node(X) do { \ + if (X != NULL) gt_ggc_mx_cgraph_asm_node (X);\ + } while (0) +extern void gt_ggc_mx_cgraph_asm_node (void *); +#define gt_ggc_m_12varpool_node(X) do { \ + if (X != NULL) gt_ggc_mx_varpool_node (X);\ + } while (0) +extern void gt_ggc_mx_varpool_node (void *); +#define gt_ggc_m_22VEC_cgraph_node_set_gc(X) do { \ + if (X != NULL) gt_ggc_mx_VEC_cgraph_node_set_gc (X);\ + } while (0) +extern void gt_ggc_mx_VEC_cgraph_node_set_gc (void *); +#define gt_ggc_m_19cgraph_node_set_def(X) do { \ + if (X != NULL) gt_ggc_mx_cgraph_node_set_def (X);\ + } while (0) +extern void gt_ggc_mx_cgraph_node_set_def (void *); +#define gt_ggc_m_27cgraph_node_set_element_def(X) do { \ + if (X != NULL) gt_ggc_mx_cgraph_node_set_element_def (X);\ + } while (0) +extern void gt_ggc_mx_cgraph_node_set_element_def (void *); +#define gt_ggc_m_22VEC_cgraph_node_ptr_gc(X) do { \ + if (X != NULL) gt_ggc_mx_VEC_cgraph_node_ptr_gc (X);\ + } while (0) +extern void gt_ggc_mx_VEC_cgraph_node_ptr_gc (void *); +#define gt_ggc_m_11cgraph_edge(X) do { \ + if (X != NULL) gt_ggc_mx_cgraph_edge (X);\ + } while (0) +extern void gt_ggc_mx_cgraph_edge (void *); +#define gt_ggc_m_24VEC_ipa_replace_map_p_gc(X) do { \ + if (X != NULL) gt_ggc_mx_VEC_ipa_replace_map_p_gc (X);\ + } while (0) +extern void gt_ggc_mx_VEC_ipa_replace_map_p_gc (void *); +#define gt_ggc_m_15ipa_replace_map(X) do { \ + if (X != NULL) gt_ggc_mx_ipa_replace_map (X);\ + } while (0) +extern void gt_ggc_mx_ipa_replace_map (void *); +#define gt_ggc_m_11cgraph_node(X) do { \ + if (X != NULL) gt_ggc_mx_cgraph_node (X);\ + } while (0) +extern void gt_ggc_mx_cgraph_node (void *); +#define gt_ggc_m_18VEC_basic_block_gc(X) do { \ + if (X != NULL) gt_ggc_mx_VEC_basic_block_gc (X);\ + } while (0) +extern void gt_ggc_mx_VEC_basic_block_gc (void *); +#define gt_ggc_m_14gimple_bb_info(X) do { \ + if (X != NULL) gt_ggc_mx_gimple_bb_info (X);\ + } while (0) +extern void gt_ggc_mx_gimple_bb_info (void *); +#define gt_ggc_m_11rtl_bb_info(X) do { \ + if (X != NULL) gt_ggc_mx_rtl_bb_info (X);\ + } while (0) +extern void gt_ggc_mx_rtl_bb_info (void *); +#define gt_ggc_m_11VEC_edge_gc(X) do { \ + if (X != NULL) gt_ggc_mx_VEC_edge_gc (X);\ + } while (0) +extern void gt_ggc_mx_VEC_edge_gc (void *); +#define gt_ggc_m_17cselib_val_struct(X) do { \ + if (X != NULL) gt_ggc_mx_cselib_val_struct (X);\ + } while (0) +extern void gt_ggc_mx_cselib_val_struct (void *); +#define gt_ggc_m_12elt_loc_list(X) do { \ + if (X != NULL) gt_ggc_mx_elt_loc_list (X);\ + } while (0) +extern void gt_ggc_mx_elt_loc_list (void *); +#define gt_ggc_m_13VEC_loop_p_gc(X) do { \ + if (X != NULL) gt_ggc_mx_VEC_loop_p_gc (X);\ + } while (0) +extern void gt_ggc_mx_VEC_loop_p_gc (void *); +#define gt_ggc_m_4loop(X) do { \ + if (X != NULL) gt_ggc_mx_loop (X);\ + } while (0) +extern void gt_ggc_mx_loop (void *); +#define gt_ggc_m_9loop_exit(X) do { \ + if (X != NULL) gt_ggc_mx_loop_exit (X);\ + } while (0) +extern void gt_ggc_mx_loop_exit (void *); +#define gt_ggc_m_13nb_iter_bound(X) do { \ + if (X != NULL) gt_ggc_mx_nb_iter_bound (X);\ + } while (0) +extern void gt_ggc_mx_nb_iter_bound (void *); +#define gt_ggc_m_24types_used_by_vars_entry(X) do { \ + if (X != NULL) gt_ggc_mx_types_used_by_vars_entry (X);\ + } while (0) +extern void gt_ggc_mx_types_used_by_vars_entry (void *); +#define gt_ggc_m_17language_function(X) do { \ + if (X != NULL) gt_ggc_mx_language_function (X);\ + } while (0) +extern void gt_ggc_mx_language_function (void *); +#define gt_ggc_m_5loops(X) do { \ + if (X != NULL) gt_ggc_mx_loops (X);\ + } while (0) +extern void gt_ggc_mx_loops (void *); +#define gt_ggc_m_18control_flow_graph(X) do { \ + if (X != NULL) gt_ggc_mx_control_flow_graph (X);\ + } while (0) +extern void gt_ggc_mx_control_flow_graph (void *); +#define gt_ggc_m_9eh_status(X) do { \ + if (X != NULL) gt_ggc_mx_eh_status (X);\ + } while (0) +extern void gt_ggc_mx_eh_status (void *); +#define gt_ggc_m_20initial_value_struct(X) do { \ + if (X != NULL) gt_ggc_mx_initial_value_struct (X);\ + } while (0) +extern void gt_ggc_mx_initial_value_struct (void *); +#define gt_ggc_m_17rtx_constant_pool(X) do { \ + if (X != NULL) gt_ggc_mx_rtx_constant_pool (X);\ + } while (0) +extern void gt_ggc_mx_rtx_constant_pool (void *); +#define gt_ggc_m_18VEC_temp_slot_p_gc(X) do { \ + if (X != NULL) gt_ggc_mx_VEC_temp_slot_p_gc (X);\ + } while (0) +extern void gt_ggc_mx_VEC_temp_slot_p_gc (void *); +#define gt_ggc_m_9temp_slot(X) do { \ + if (X != NULL) gt_ggc_mx_temp_slot (X);\ + } while (0) +extern void gt_ggc_mx_temp_slot (void *); +#define gt_ggc_m_9gimple_df(X) do { \ + if (X != NULL) gt_ggc_mx_gimple_df (X);\ + } while (0) +extern void gt_ggc_mx_gimple_df (void *); +#define gt_ggc_m_23VEC_call_site_record_gc(X) do { \ + if (X != NULL) gt_ggc_mx_VEC_call_site_record_gc (X);\ + } while (0) +extern void gt_ggc_mx_VEC_call_site_record_gc (void *); +#define gt_ggc_m_18call_site_record_d(X) do { \ + if (X != NULL) gt_ggc_mx_call_site_record_d (X);\ + } while (0) +extern void gt_ggc_mx_call_site_record_d (void *); +#define gt_ggc_m_14sequence_stack(X) do { \ + if (X != NULL) gt_ggc_mx_sequence_stack (X);\ + } while (0) +extern void gt_ggc_mx_sequence_stack (void *); +#define gt_ggc_m_8elt_list(X) do { \ + if (X != NULL) gt_ggc_mx_elt_list (X);\ + } while (0) +extern void gt_ggc_mx_elt_list (void *); +#define gt_ggc_m_17tree_priority_map(X) do { \ + if (X != NULL) gt_ggc_mx_tree_priority_map (X);\ + } while (0) +extern void gt_ggc_mx_tree_priority_map (void *); +#define gt_ggc_m_12tree_int_map(X) do { \ + if (X != NULL) gt_ggc_mx_tree_int_map (X);\ + } while (0) +extern void gt_ggc_mx_tree_int_map (void *); +#define gt_ggc_m_8tree_map(X) do { \ + if (X != NULL) gt_ggc_mx_tree_map (X);\ + } while (0) +extern void gt_ggc_mx_tree_map (void *); +#define gt_ggc_m_14lang_tree_node(X) do { \ + if (X != NULL) gt_ggc_mx_lang_tree_node (X);\ + } while (0) +extern void gt_ggc_mx_lang_tree_node (void *); +#define gt_ggc_m_24tree_statement_list_node(X) do { \ + if (X != NULL) gt_ggc_mx_tree_statement_list_node (X);\ + } while (0) +extern void gt_ggc_mx_tree_statement_list_node (void *); +#define gt_ggc_m_9var_ann_d(X) do { \ + if (X != NULL) gt_ggc_mx_var_ann_d (X);\ + } while (0) +extern void gt_ggc_mx_var_ann_d (void *); +#define gt_ggc_m_9lang_decl(X) do { \ + if (X != NULL) gt_ggc_mx_lang_decl (X);\ + } while (0) +extern void gt_ggc_mx_lang_decl (void *); +#define gt_ggc_m_9lang_type(X) do { \ + if (X != NULL) gt_ggc_mx_lang_type (X);\ + } while (0) +extern void gt_ggc_mx_lang_type (void *); +#define gt_ggc_m_10die_struct(X) do { \ + if (X != NULL) gt_ggc_mx_die_struct (X);\ + } while (0) +extern void gt_ggc_mx_die_struct (void *); +#define gt_ggc_m_15varray_head_tag(X) do { \ + if (X != NULL) gt_ggc_mx_varray_head_tag (X);\ + } while (0) +extern void gt_ggc_mx_varray_head_tag (void *); +#define gt_ggc_m_12ptr_info_def(X) do { \ + if (X != NULL) gt_ggc_mx_ptr_info_def (X);\ + } while (0) +extern void gt_ggc_mx_ptr_info_def (void *); +#define gt_ggc_m_22VEC_constructor_elt_gc(X) do { \ + if (X != NULL) gt_ggc_mx_VEC_constructor_elt_gc (X);\ + } while (0) +extern void gt_ggc_mx_VEC_constructor_elt_gc (void *); +#define gt_ggc_m_17VEC_alias_pair_gc(X) do { \ + if (X != NULL) gt_ggc_mx_VEC_alias_pair_gc (X);\ + } while (0) +extern void gt_ggc_mx_VEC_alias_pair_gc (void *); +#define gt_ggc_m_11VEC_tree_gc(X) do { \ + if (X != NULL) gt_ggc_mx_VEC_tree_gc (X);\ + } while (0) +extern void gt_ggc_mx_VEC_tree_gc (void *); +#define gt_ggc_m_12VEC_uchar_gc(X) do { \ + if (X != NULL) gt_ggc_mx_VEC_uchar_gc (X);\ + } while (0) +extern void gt_ggc_mx_VEC_uchar_gc (void *); +#define gt_ggc_m_8function(X) do { \ + if (X != NULL) gt_ggc_mx_function (X);\ + } while (0) +extern void gt_ggc_mx_function (void *); +#define gt_ggc_m_23constant_descriptor_rtx(X) do { \ + if (X != NULL) gt_ggc_mx_constant_descriptor_rtx (X);\ + } while (0) +extern void gt_ggc_mx_constant_descriptor_rtx (void *); +#define gt_ggc_m_11fixed_value(X) do { \ + if (X != NULL) gt_ggc_mx_fixed_value (X);\ + } while (0) +extern void gt_ggc_mx_fixed_value (void *); +#define gt_ggc_m_10real_value(X) do { \ + if (X != NULL) gt_ggc_mx_real_value (X);\ + } while (0) +extern void gt_ggc_mx_real_value (void *); +#define gt_ggc_m_10VEC_rtx_gc(X) do { \ + if (X != NULL) gt_ggc_mx_VEC_rtx_gc (X);\ + } while (0) +extern void gt_ggc_mx_VEC_rtx_gc (void *); +#define gt_ggc_m_12object_block(X) do { \ + if (X != NULL) gt_ggc_mx_object_block (X);\ + } while (0) +extern void gt_ggc_mx_object_block (void *); +#define gt_ggc_m_9reg_attrs(X) do { \ + if (X != NULL) gt_ggc_mx_reg_attrs (X);\ + } while (0) +extern void gt_ggc_mx_reg_attrs (void *); +#define gt_ggc_m_9mem_attrs(X) do { \ + if (X != NULL) gt_ggc_mx_mem_attrs (X);\ + } while (0) +extern void gt_ggc_mx_mem_attrs (void *); +#define gt_ggc_m_14bitmap_obstack(X) do { \ + if (X != NULL) gt_ggc_mx_bitmap_obstack (X);\ + } while (0) +extern void gt_ggc_mx_bitmap_obstack (void *); +#define gt_ggc_m_18bitmap_element_def(X) do { \ + if (X != NULL) gt_ggc_mx_bitmap_element_def (X);\ + } while (0) +extern void gt_ggc_mx_bitmap_element_def (void *); +#define gt_ggc_m_16machine_function(X) do { \ + if (X != NULL) gt_ggc_mx_machine_function (X);\ + } while (0) +extern void gt_ggc_mx_machine_function (void *); +#define gt_ggc_m_17stack_local_entry(X) do { \ + if (X != NULL) gt_ggc_mx_stack_local_entry (X);\ + } while (0) +extern void gt_ggc_mx_stack_local_entry (void *); +#define gt_ggc_m_15basic_block_def(X) do { \ + if (X != NULL) gt_ggc_mx_basic_block_def (X);\ + } while (0) +extern void gt_ggc_mx_basic_block_def (void *); +#define gt_ggc_m_8edge_def(X) do { \ + if (X != NULL) gt_ggc_mx_edge_def (X);\ + } while (0) +extern void gt_ggc_mx_edge_def (void *); +#define gt_ggc_m_17gimple_seq_node_d(X) do { \ + if (X != NULL) gt_ggc_mx_gimple_seq_node_d (X);\ + } while (0) +extern void gt_ggc_mx_gimple_seq_node_d (void *); +#define gt_ggc_m_12gimple_seq_d(X) do { \ + if (X != NULL) gt_ggc_mx_gimple_seq_d (X);\ + } while (0) +extern void gt_ggc_mx_gimple_seq_d (void *); +#define gt_ggc_m_7section(X) do { \ + if (X != NULL) gt_ggc_mx_section (X);\ + } while (0) +extern void gt_ggc_mx_section (void *); +#define gt_ggc_m_18gimple_statement_d(X) do { \ + if (X != NULL) gt_ggc_mx_gimple_statement_d (X);\ + } while (0) +extern void gt_ggc_mx_gimple_statement_d (void *); +#define gt_ggc_m_9rtvec_def(X) do { \ + if (X != NULL) gt_ggc_mx_rtvec_def (X);\ + } while (0) +extern void gt_ggc_mx_rtvec_def (void *); +#define gt_ggc_m_7rtx_def(X) do { \ + if (X != NULL) gt_ggc_mx_rtx_def (X);\ + } while (0) +extern void gt_ggc_mx_rtx_def (void *); +#define gt_ggc_m_15bitmap_head_def(X) do { \ + if (X != NULL) gt_ggc_mx_bitmap_head_def (X);\ + } while (0) +extern void gt_ggc_mx_bitmap_head_def (void *); +#define gt_ggc_m_9tree_node(X) do { \ + if (X != NULL) gt_ggc_mx_tree_node (X);\ + } while (0) +#define gt_ggc_mx_tree_node gt_ggc_mx_lang_tree_node +#define gt_ggc_m_6answer(X) do { \ + if (X != NULL) gt_ggc_mx_answer (X);\ + } while (0) +extern void gt_ggc_mx_answer (void *); +#define gt_ggc_m_9cpp_macro(X) do { \ + if (X != NULL) gt_ggc_mx_cpp_macro (X);\ + } while (0) +extern void gt_ggc_mx_cpp_macro (void *); +#define gt_ggc_m_9cpp_token(X) do { \ + if (X != NULL) gt_ggc_mx_cpp_token (X);\ + } while (0) +extern void gt_ggc_mx_cpp_token (void *); +#define gt_ggc_m_9line_maps(X) do { \ + if (X != NULL) gt_ggc_mx_line_maps (X);\ + } while (0) +extern void gt_ggc_mx_line_maps (void *); +extern void gt_ggc_m_II17splay_tree_node_s (void *); +extern void gt_ggc_m_SP9tree_node17splay_tree_node_s (void *); +extern void gt_ggc_m_P9tree_nodeP9tree_node17splay_tree_node_s (void *); +extern void gt_ggc_m_IP9tree_node17splay_tree_node_s (void *); +extern void gt_ggc_m_P15interface_tuple4htab (void *); +extern void gt_ggc_m_P16volatilized_type4htab (void *); +extern void gt_ggc_m_P17string_descriptor4htab (void *); +extern void gt_ggc_m_P14type_assertion4htab (void *); +extern void gt_ggc_m_P18treetreehash_entry4htab (void *); +extern void gt_ggc_m_P17module_htab_entry4htab (void *); +extern void gt_ggc_m_P21pending_abstract_type4htab (void *); +extern void gt_ggc_m_P10spec_entry4htab (void *); +extern void gt_ggc_m_P16cxx_int_tree_map4htab (void *); +extern void gt_ggc_m_P17named_label_entry4htab (void *); +extern void gt_ggc_m_P12tree_int_map4htab (void *); +extern void gt_ggc_m_P20lto_symtab_entry_def4htab (void *); +extern void gt_ggc_m_IP9tree_node12splay_tree_s (void *); +extern void gt_ggc_m_P9tree_nodeP9tree_node12splay_tree_s (void *); +extern void gt_ggc_m_P12varpool_node4htab (void *); +extern void gt_ggc_m_P13scev_info_str4htab (void *); +extern void gt_ggc_m_P23constant_descriptor_rtx4htab (void *); +extern void gt_ggc_m_P24constant_descriptor_tree4htab (void *); +extern void gt_ggc_m_P12object_block4htab (void *); +extern void gt_ggc_m_P7section4htab (void *); +extern void gt_ggc_m_P17tree_priority_map4htab (void *); +extern void gt_ggc_m_P8tree_map4htab (void *); +extern void gt_ggc_m_P9type_hash4htab (void *); +extern void gt_ggc_m_P13libfunc_entry4htab (void *); +extern void gt_ggc_m_P23temp_slot_address_entry4htab (void *); +extern void gt_ggc_m_P15throw_stmt_node4htab (void *); +extern void gt_ggc_m_P9reg_attrs4htab (void *); +extern void gt_ggc_m_P9mem_attrs4htab (void *); +extern void gt_ggc_m_P7rtx_def4htab (void *); +extern void gt_ggc_m_SP9tree_node12splay_tree_s (void *); +extern void gt_ggc_m_P10vcall_insn4htab (void *); +extern void gt_ggc_m_P16var_loc_list_def4htab (void *); +extern void gt_ggc_m_P10die_struct4htab (void *); +extern void gt_ggc_m_P15dwarf_file_data4htab (void *); +extern void gt_ggc_m_P20indirect_string_node4htab (void *); +extern void gt_ggc_m_P11cgraph_node4htab (void *); +extern void gt_ggc_m_II12splay_tree_s (void *); +extern void gt_ggc_m_P27cgraph_node_set_element_def4htab (void *); +extern void gt_ggc_m_P11cgraph_edge4htab (void *); +extern void gt_ggc_m_P9loop_exit4htab (void *); +extern void gt_ggc_m_P24types_used_by_vars_entry4htab (void *); +extern void gt_ggc_m_P9tree_node4htab (void *); + +/* functions code */ + +void +gt_ggc_mx_VEC_melt_ptr_t_gc (void *x_p) +{ + struct VEC_melt_ptr_t_gc * const x = (struct VEC_melt_ptr_t_gc *)x_p; + if (ggc_test_and_set_mark (x)) + { + { + size_t i0; + size_t l0 = (size_t)(((*x).base).num); + for (i0 = 0; i0 != l0; i0++) { + gt_ggc_m_7melt_un ((*x).base.vec[i0]); + } + } + } +} + +void +gt_ggc_mx_meltpair_st (void *x_p) +{ + struct meltpair_st * x = (struct meltpair_st *)x_p; + struct meltpair_st * xlimit = x; + while (ggc_test_and_set_mark (xlimit)) + xlimit = ((*xlimit).tl); + while (x != xlimit) + { + gt_ggc_m_13meltobject_st ((*x).discr); + gt_ggc_m_7melt_un ((*x).hd); + gt_ggc_m_11meltpair_st ((*x).tl); + x = ((*x).tl); + } +} + +void +gt_ggc_mx_meltroutine_st (void *x_p) +{ + struct meltroutine_st * const x = (struct meltroutine_st *)x_p; + if (ggc_test_and_set_mark (x)) + { + gt_ggc_m_13meltobject_st ((*x).discr); + gt_ggc_m_7melt_un ((*x).routdata); + { + size_t i1; + size_t l1 = (size_t)(((*x)).nbval); + for (i1 = 0; i1 != l1; i1++) { + gt_ggc_m_7melt_un ((*x).tabval[i1]); + } + } + } +} + +void +gt_ggc_mx_meltobject_st (void *x_p) +{ + struct meltobject_st * const x = (struct meltobject_st *)x_p; + if (ggc_test_and_set_mark (x)) + { + gt_ggc_m_13meltobject_st ((*x).obj_class); + { + size_t i0; + size_t l0 = (size_t)(((*x)).obj_len); + for (i0 = 0; i0 != l0; i0++) { + gt_ggc_m_7melt_un ((*x).obj_vartab[i0]); + } + } + } +} + +void +gt_ggc_mx_melt_un (void *x_p) +{ + union melt_un * const x = (union melt_un *)x_p; + if (ggc_test_and_set_mark (x)) + { + switch ((*x).u_discr->object_magic) + { + case OBMAG_OBJECT: + gt_ggc_m_13meltobject_st ((*x).u_object.obj_class); + { + size_t i0; + size_t l0 = (size_t)(((*x).u_object).obj_len); + for (i0 = 0; i0 != l0; i0++) { + gt_ggc_m_7melt_un ((*x).u_object.obj_vartab[i0]); + } + } + break; + case OBMAG_BOX: + gt_ggc_m_13meltobject_st ((*x).u_box.discr); + gt_ggc_m_7melt_un ((*x).u_box.val); + break; + case OBMAG_DECAY: + gt_ggc_m_13meltobject_st ((*x).u_decay.discr); + gt_ggc_m_7melt_un ((*x).u_decay.val); + break; + case OBMAG_MULTIPLE: + gt_ggc_m_13meltobject_st ((*x).u_multiple.discr); + { + size_t i1; + size_t l1 = (size_t)(((*x).u_multiple).nbval); + for (i1 = 0; i1 != l1; i1++) { + gt_ggc_m_7melt_un ((*x).u_multiple.tabval[i1]); + } + } + break; + case OBMAG_CLOSURE: + gt_ggc_m_13meltobject_st ((*x).u_closure.discr); + gt_ggc_m_14meltroutine_st ((*x).u_closure.rout); + { + size_t i2; + size_t l2 = (size_t)(((*x).u_closure).nbval); + for (i2 = 0; i2 != l2; i2++) { + gt_ggc_m_7melt_un ((*x).u_closure.tabval[i2]); + } + } + break; + case OBMAG_ROUTINE: + gt_ggc_m_13meltobject_st ((*x).u_routine.discr); + gt_ggc_m_7melt_un ((*x).u_routine.routdata); + { + size_t i4; + size_t l4 = (size_t)(((*x).u_routine).nbval); + for (i4 = 0; i4 != l4; i4++) { + gt_ggc_m_7melt_un ((*x).u_routine.tabval[i4]); + } + } + break; + case OBMAG_LIST: + gt_ggc_m_13meltobject_st ((*x).u_list.discr); + gt_ggc_m_11meltpair_st ((*x).u_list.first); + gt_ggc_m_11meltpair_st ((*x).u_list.last); + break; + case OBMAG_INT: + gt_ggc_m_13meltobject_st ((*x).u_int.discr); + break; + case OBMAG_MIXINT: + gt_ggc_m_13meltobject_st ((*x).u_mixint.discr); + gt_ggc_m_7melt_un ((*x).u_mixint.ptrval); + break; + case OBMAG_MIXLOC: + gt_ggc_m_13meltobject_st ((*x).u_mixloc.discr); + gt_ggc_m_7melt_un ((*x).u_mixloc.ptrval); + break; + case OBMAG_MIXBIGINT: + gt_ggc_m_13meltobject_st ((*x).u_mixbigint.discr); + gt_ggc_m_7melt_un ((*x).u_mixbigint.ptrval); + break; + case OBMAG_REAL: + gt_ggc_m_13meltobject_st ((*x).u_real.discr); + break; + case OBMAG_PAIR: + gt_ggc_m_13meltobject_st ((*x).u_pair.discr); + gt_ggc_m_7melt_un ((*x).u_pair.hd); + gt_ggc_m_11meltpair_st ((*x).u_pair.tl); + break; + case OBMAG_SPEC_FILE: + gt_ggc_m_13meltobject_st ((*x).u_special.discr); + break; + case OBMAG_STRING: + gt_ggc_m_13meltobject_st ((*x).u_string.discr); + break; + case OBMAG_STRBUF: + gt_ggc_m_13meltobject_st ((*x).u_strbuf.discr); + if ((*x).u_strbuf.bufzn != NULL) { + size_t i7; + for (i7 = 0; i7 != (size_t)(1+melt_primtab[((*x).u_strbuf).buflenix]); i7++) { + } + ggc_mark ((*x).u_strbuf.bufzn); + } + break; + case OBMAG_TREE: + gt_ggc_m_13meltobject_st ((*x).u_tree.discr); + gt_ggc_m_9tree_node ((*x).u_tree.val); + break; + case OBMAG_GIMPLE: + gt_ggc_m_13meltobject_st ((*x).u_gimple.discr); + gt_ggc_m_18gimple_statement_d ((*x).u_gimple.val); + break; + case OBMAG_GIMPLESEQ: + gt_ggc_m_13meltobject_st ((*x).u_gimpleseq.discr); + gt_ggc_m_12gimple_seq_d ((*x).u_gimpleseq.val); + break; + case OBMAG_BASICBLOCK: + gt_ggc_m_13meltobject_st ((*x).u_basicblock.discr); + gt_ggc_m_15basic_block_def ((*x).u_basicblock.val); + break; + case OBMAG_EDGE: + gt_ggc_m_13meltobject_st ((*x).u_edge.discr); + gt_ggc_m_8edge_def ((*x).u_edge.val); + break; + case OBMAG_MAPOBJECTS: + gt_ggc_m_13meltobject_st ((*x).u_mapobjects.discr); + if ((*x).u_mapobjects.entab != NULL) { + size_t i9; + for (i9 = 0; i9 != (size_t)(melt_primtab[((*x).u_mapobjects).lenix]); i9++) { + gt_ggc_m_13meltobject_st ((*x).u_mapobjects.entab[i9].e_at); + gt_ggc_m_7melt_un ((*x).u_mapobjects.entab[i9].e_va); + } + ggc_mark ((*x).u_mapobjects.entab); + } + { + size_t i10; + size_t l10 = (size_t)(0); + for (i10 = 0; i10 != l10; i10++) { + gt_ggc_m_13meltobject_st ((*x).u_mapobjects.map_space[i10].e_at); + gt_ggc_m_7melt_un ((*x).u_mapobjects.map_space[i10].e_va); + } + } + break; + case OBMAG_MAPSTRINGS: + gt_ggc_m_13meltobject_st ((*x).u_mapstrings.discr); + if ((*x).u_mapstrings.entab != NULL) { + size_t i11; + for (i11 = 0; i11 != (size_t)(melt_primtab[((*x).u_mapstrings).lenix]); i11++) { + gt_ggc_m_S ((*x).u_mapstrings.entab[i11].e_at); + gt_ggc_m_7melt_un ((*x).u_mapstrings.entab[i11].e_va); + } + ggc_mark ((*x).u_mapstrings.entab); + } + break; + case OBMAG_MAPTREES: + gt_ggc_m_13meltobject_st ((*x).u_maptrees.discr); + if ((*x).u_maptrees.entab != NULL) { + size_t i12; + for (i12 = 0; i12 != (size_t)(melt_primtab[((*x).u_maptrees).lenix]); i12++) { + gt_ggc_m_9tree_node ((*x).u_maptrees.entab[i12].e_at); + gt_ggc_m_7melt_un ((*x).u_maptrees.entab[i12].e_va); + } + ggc_mark ((*x).u_maptrees.entab); + } + break; + case OBMAG_MAPGIMPLES: + gt_ggc_m_13meltobject_st ((*x).u_mapgimples.discr); + if ((*x).u_mapgimples.entab != NULL) { + size_t i13; + for (i13 = 0; i13 != (size_t)(melt_primtab[((*x).u_mapgimples).lenix]); i13++) { + gt_ggc_m_18gimple_statement_d ((*x).u_mapgimples.entab[i13].e_at); + gt_ggc_m_7melt_un ((*x).u_mapgimples.entab[i13].e_va); + } + ggc_mark ((*x).u_mapgimples.entab); + } + break; + case OBMAG_MAPGIMPLESEQS: + gt_ggc_m_13meltobject_st ((*x).u_mapgimpleseqs.discr); + if ((*x).u_mapgimpleseqs.entab != NULL) { + size_t i14; + for (i14 = 0; i14 != (size_t)(melt_primtab[((*x).u_mapgimpleseqs).lenix]); i14++) { + gt_ggc_m_12gimple_seq_d ((*x).u_mapgimpleseqs.entab[i14].e_at); + gt_ggc_m_7melt_un ((*x).u_mapgimpleseqs.entab[i14].e_va); + } + ggc_mark ((*x).u_mapgimpleseqs.entab); + } + break; + case OBMAG_MAPBASICBLOCKS: + gt_ggc_m_13meltobject_st ((*x).u_mapbasicblocks.discr); + if ((*x).u_mapbasicblocks.entab != NULL) { + size_t i15; + for (i15 = 0; i15 != (size_t)(melt_primtab[((*x).u_mapbasicblocks).lenix]); i15++) { + gt_ggc_m_15basic_block_def ((*x).u_mapbasicblocks.entab[i15].e_at); + gt_ggc_m_7melt_un ((*x).u_mapbasicblocks.entab[i15].e_va); + } + ggc_mark ((*x).u_mapbasicblocks.entab); + } + break; + case OBMAG_MAPEDGES: + gt_ggc_m_13meltobject_st ((*x).u_mapedges.discr); + if ((*x).u_mapedges.entab != NULL) { + size_t i16; + for (i16 = 0; i16 != (size_t)(melt_primtab[((*x).u_mapedges).lenix]); i16++) { + gt_ggc_m_8edge_def ((*x).u_mapedges.entab[i16].e_at); + gt_ggc_m_7melt_un ((*x).u_mapedges.entab[i16].e_va); + } + ggc_mark ((*x).u_mapedges.entab); + } + break; + default: + break; + } + } +} + +/* GC roots. */ + +EXPORTED_CONST struct ggc_root_tab gt_ggc_r_gt_melt_runtime_plugin_h[] = { + { + &bscanvec, + 1, + sizeof (bscanvec), + >_ggc_mx_VEC_melt_ptr_t_gc, + NULL + }, + { + &melt_globarr[0], + 1 * (MELTGLOB__LASTGLOB), + sizeof (melt_globarr[0]), + >_ggc_mx_melt_un, + NULL + }, + LAST_GGC_ROOT_TAB +}; + +/* gt-melt-runtime-plugin.h file generated Sun 14 Mar 2010 10:08:18 AM CET + +682216b6c67b29e5ba8082df0bfaad5e melt-runtime.h +265573514c86a89d8b8956afe5b8058c melt-runtime.c +*/ diff --git a/gcc/melt/generated/warmelt-base.0.c b/gcc/melt/generated/warmelt-base.0.c index c093ac6a3f1..859b4b8f6e9 100644 --- a/gcc/melt/generated/warmelt-base.0.c +++ b/gcc/melt/generated/warmelt-base.0.c @@ -3,7 +3,7 @@ #ifndef MELTGCC_DYNAMIC_OBJSTRUCT /* version string of the gcc executable generating this file: */ const char genversionstr_melt[]= - "4.5.0 20100223 (experimental) [melt-branch revision 157055]"; + "4.5.0 20100310 (experimental) [melt-branch revision 157367]"; #endif #include "run-melt.h" @@ -2954,7 +2954,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_3__IGNORE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_3__IGNORE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->object_magic == OBMAG_OBJECT); cdat->dobj_3__IGNORE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_3__IGNORE.obj_hash = 345754032; + cdat->dobj_3__IGNORE.obj_hash = 519214097; cdat->dobj_3__IGNORE.obj_len = 5; /*inimult dtup_4__IGNORE*/ @@ -2985,7 +2985,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_8", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_8.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_8.obj_num = 0; - cdat->dobj_8.obj_hash = 839475927; + cdat->dobj_8.obj_hash = 1030392107; cdat->dobj_8.obj_len = 2; /*inistring dstr_9__ignore_void_*/ @@ -3022,7 +3022,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_14__VOID", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_14__VOID", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->object_magic == OBMAG_OBJECT); cdat->dobj_14__VOID.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_14__VOID.obj_hash = 26246882; + cdat->dobj_14__VOID.obj_hash = 70918386; cdat->dobj_14__VOID.obj_len = 5; /*inimult dtup_15__VOID*/ @@ -3062,7 +3062,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_21__IS_NOT_OBJECT", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_21__IS_NOT_OBJECT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->object_magic == OBMAG_OBJECT); cdat->dobj_21__IS_NOT_OBJECT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_21__IS_NOT_OBJECT.obj_hash = 223600930; + cdat->dobj_21__IS_NOT_OBJECT.obj_hash = 671597082; cdat->dobj_21__IS_NOT_OBJECT.obj_len = 5; /*inimult dtup_22__IS_NOT_OBJECT*/ @@ -3093,7 +3093,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_26", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_26.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_26.obj_num = 0; - cdat->dobj_26.obj_hash = 413821876; + cdat->dobj_26.obj_hash = 794173642; cdat->dobj_26.obj_len = 2; /*inistring dstr_27__melt_magic_disc*/ @@ -3130,7 +3130,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_32__GET_GLOBPREDEF", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_32__GET_GLOBPREDEF", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->object_magic == OBMAG_OBJECT); cdat->dobj_32__GET_GLOBPREDEF.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_32__GET_GLOBPREDEF.obj_hash = 543713903; + cdat->dobj_32__GET_GLOBPREDEF.obj_hash = 414947448; cdat->dobj_32__GET_GLOBPREDEF.obj_len = 5; /*inimult dtup_33__GET_GLOBPREDEF*/ @@ -3161,7 +3161,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_37", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_37.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_37.obj_num = 0; - cdat->dobj_37.obj_hash = 1007224154; + cdat->dobj_37.obj_hash = 633659465; cdat->dobj_37.obj_len = 2; /*inistring dstr_38__melt_globpredef*/ @@ -3198,7 +3198,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_43__OBJ_HASH", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_43__OBJ_HASH", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->object_magic == OBMAG_OBJECT); cdat->dobj_43__OBJ_HASH.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_43__OBJ_HASH.obj_hash = 318609548; + cdat->dobj_43__OBJ_HASH.obj_hash = 969824966; cdat->dobj_43__OBJ_HASH.obj_len = 5; /*inimult dtup_44__OBJ_HASH*/ @@ -3216,7 +3216,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_46", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_46.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_46.obj_num = 0; - cdat->dobj_46.obj_hash = 621462895; + cdat->dobj_46.obj_hash = 408142340; cdat->dobj_46.obj_len = 2; /*inistring dstr_47__melt_obj_hash_*/ @@ -3253,7 +3253,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_52__OBJ_LEN", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_52__OBJ_LEN", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->object_magic == OBMAG_OBJECT); cdat->dobj_52__OBJ_LEN.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_52__OBJ_LEN.obj_hash = 240801873; + cdat->dobj_52__OBJ_LEN.obj_hash = 154711541; cdat->dobj_52__OBJ_LEN.obj_len = 5; /*inimult dtup_53__OBJ_LEN*/ @@ -3271,7 +3271,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_55", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_55.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_55.obj_num = 0; - cdat->dobj_55.obj_hash = 502251091; + cdat->dobj_55.obj_hash = 546837561; cdat->dobj_55.obj_len = 2; /*inistring dstr_56__melt_obj_len_m*/ @@ -3308,7 +3308,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_61__OBJ_NUM", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_61__OBJ_NUM", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->object_magic == OBMAG_OBJECT); cdat->dobj_61__OBJ_NUM.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_61__OBJ_NUM.obj_hash = 309267713; + cdat->dobj_61__OBJ_NUM.obj_hash = 1020613772; cdat->dobj_61__OBJ_NUM.obj_len = 5; /*inimult dtup_62__OBJ_NUM*/ @@ -3326,7 +3326,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_64", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_64.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_64.obj_num = 0; - cdat->dobj_64.obj_hash = 893875919; + cdat->dobj_64.obj_hash = 200625953; cdat->dobj_64.obj_len = 2; /*inistring dstr_65__melt_obj_num_m*/ @@ -3363,7 +3363,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_70__NONZERO_HASH", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_70__NONZERO_HASH", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->object_magic == OBMAG_OBJECT); cdat->dobj_70__NONZERO_HASH.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_70__NONZERO_HASH.obj_hash = 354190544; + cdat->dobj_70__NONZERO_HASH.obj_hash = 248673606; cdat->dobj_70__NONZERO_HASH.obj_len = 5; /*inimult dtup_71__NONZERO_HASH*/ @@ -3403,7 +3403,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_77__MINOR_GARBCOLL", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_77__MINOR_GARBCOLL", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->object_magic == OBMAG_OBJECT); cdat->dobj_77__MINOR_GARBCOLL.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_77__MINOR_GARBCOLL.obj_hash = 745180870; + cdat->dobj_77__MINOR_GARBCOLL.obj_hash = 731101213; cdat->dobj_77__MINOR_GARBCOLL.obj_len = 5; /*inimult dtup_78__MINOR_GARBCOLL*/ @@ -3434,7 +3434,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_82", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_82.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_82.obj_num = 0; - cdat->dobj_82.obj_hash = 625080199; + cdat->dobj_82.obj_hash = 901550182; cdat->dobj_82.obj_len = 2; /*inistring dstr_83__melt_garbcoll_*/ @@ -3471,7 +3471,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_88__FULL_GARBCOLL", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_88__FULL_GARBCOLL", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->object_magic == OBMAG_OBJECT); cdat->dobj_88__FULL_GARBCOLL.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_88__FULL_GARBCOLL.obj_hash = 558083781; + cdat->dobj_88__FULL_GARBCOLL.obj_hash = 580472633; cdat->dobj_88__FULL_GARBCOLL.obj_len = 5; /*inimult dtup_89__FULL_GARBCOLL*/ @@ -3489,7 +3489,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_91", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_91.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_91.obj_num = 0; - cdat->dobj_91.obj_hash = 993426341; + cdat->dobj_91.obj_hash = 695217312; cdat->dobj_91.obj_len = 2; /*inistring dstr_92__melt_garbcoll_*/ @@ -3526,7 +3526,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_97__CHECKCALLSTACK_MSG", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_97__CHECKCALLSTACK_MSG", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->object_magic == OBMAG_OBJECT); cdat->dobj_97__CHECKCALLSTACK_MSG.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_97__CHECKCALLSTACK_MSG.obj_hash = 907143192; + cdat->dobj_97__CHECKCALLSTACK_MSG.obj_hash = 639166522; cdat->dobj_97__CHECKCALLSTACK_MSG.obj_len = 5; /*inimult dtup_98__CHECKCALLSTACK_MSG*/ @@ -3557,7 +3557,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_102", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_102.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_102.obj_num = 0; - cdat->dobj_102.obj_hash = 410166713; + cdat->dobj_102.obj_hash = 755396802; cdat->dobj_102.obj_len = 2; /*inistring dstr_103__melt_check_call_*/ @@ -3594,7 +3594,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_108__CBREAK_MSG", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_108__CBREAK_MSG", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->object_magic == OBMAG_OBJECT); cdat->dobj_108__CBREAK_MSG.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_108__CBREAK_MSG.obj_hash = 306510243; + cdat->dobj_108__CBREAK_MSG.obj_hash = 503751329; cdat->dobj_108__CBREAK_MSG.obj_len = 5; /*inimult dtup_109__CBREAK_MSG*/ @@ -3612,7 +3612,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_111", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_111.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_111.obj_num = 0; - cdat->dobj_111.obj_hash = 193753348; + cdat->dobj_111.obj_hash = 830496133; cdat->dobj_111.obj_len = 2; /*inistring dstr_112__melt_cbreak_*/ @@ -3649,7 +3649,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_117__I", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_117__I", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->object_magic == OBMAG_OBJECT); cdat->dobj_117__I.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_117__I.obj_hash = 97105016; + cdat->dobj_117__I.obj_hash = 20973338; cdat->dobj_117__I.obj_len = 5; /*inimult dtup_118__I*/ @@ -3680,7 +3680,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_122", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_122.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_122.obj_num = 0; - cdat->dobj_122.obj_hash = 1029566709; + cdat->dobj_122.obj_hash = 954579522; cdat->dobj_122.obj_len = 2; /*iniobj dsym_123__B*/ @@ -3703,7 +3703,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_125", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_125.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_125.obj_num = 1; - cdat->dobj_125.obj_hash = 315958044; + cdat->dobj_125.obj_hash = 211945313; cdat->dobj_125.obj_len = 2; /*inistring dstr_126__*/ @@ -3745,7 +3745,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_132__I", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_132__I", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->object_magic == OBMAG_OBJECT); cdat->dobj_132__I.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_132__I.obj_hash = 529371072; + cdat->dobj_132__I.obj_hash = 430595650; cdat->dobj_132__I.obj_len = 5; /*inimult dtup_133__I*/ @@ -3763,7 +3763,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_135", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_135.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_135.obj_num = 0; - cdat->dobj_135.obj_hash = 391760376; + cdat->dobj_135.obj_hash = 94402254; cdat->dobj_135.obj_len = 2; /*^iniobj*/ @@ -3773,7 +3773,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_136", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_136.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_136.obj_num = 1; - cdat->dobj_136.obj_hash = 434457131; + cdat->dobj_136.obj_hash = 2007115; cdat->dobj_136.obj_len = 2; /*inistring dstr_137__*/ @@ -3815,7 +3815,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_143__I", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_143__I", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->object_magic == OBMAG_OBJECT); cdat->dobj_143__I.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_143__I.obj_hash = 1061918198; + cdat->dobj_143__I.obj_hash = 811126957; cdat->dobj_143__I.obj_len = 5; /*inimult dtup_144__I*/ @@ -3833,7 +3833,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_146", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_146.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_146.obj_num = 0; - cdat->dobj_146.obj_hash = 988422436; + cdat->dobj_146.obj_hash = 741451023; cdat->dobj_146.obj_len = 2; /*^iniobj*/ @@ -3843,7 +3843,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_147", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_147.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_147.obj_num = 1; - cdat->dobj_147.obj_hash = 111273930; + cdat->dobj_147.obj_hash = 600195907; cdat->dobj_147.obj_len = 2; /*inistring dstr_148__*/ @@ -3885,7 +3885,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_154__I", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_154__I", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->object_magic == OBMAG_OBJECT); cdat->dobj_154__I.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_154__I.obj_hash = 558590245; + cdat->dobj_154__I.obj_hash = 418461587; cdat->dobj_154__I.obj_len = 5; /*inimult dtup_155__I*/ @@ -3903,7 +3903,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_157", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_157.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_157.obj_num = 0; - cdat->dobj_157.obj_hash = 864396538; + cdat->dobj_157.obj_hash = 504084090; cdat->dobj_157.obj_len = 2; /*^iniobj*/ @@ -3913,7 +3913,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_158", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_158.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_158.obj_num = 1; - cdat->dobj_158.obj_hash = 521421221; + cdat->dobj_158.obj_hash = 766046007; cdat->dobj_158.obj_len = 2; /*inistring dstr_159__*/ @@ -3955,7 +3955,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_165__I", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_165__I", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->object_magic == OBMAG_OBJECT); cdat->dobj_165__I.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_165__I.obj_hash = 1063514908; + cdat->dobj_165__I.obj_hash = 915958839; cdat->dobj_165__I.obj_len = 5; /*inimult dtup_166__I*/ @@ -3973,7 +3973,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_168", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_168.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_168.obj_num = 0; - cdat->dobj_168.obj_hash = 297077580; + cdat->dobj_168.obj_hash = 857173639; cdat->dobj_168.obj_len = 2; /*^iniobj*/ @@ -3983,7 +3983,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_169", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_169.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_169.obj_num = 1; - cdat->dobj_169.obj_hash = 408176445; + cdat->dobj_169.obj_hash = 258871055; cdat->dobj_169.obj_len = 2; /*inistring dstr_170__*/ @@ -4025,7 +4025,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_176__ANDI", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_176__ANDI", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->object_magic == OBMAG_OBJECT); cdat->dobj_176__ANDI.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_176__ANDI.obj_hash = 708868081; + cdat->dobj_176__ANDI.obj_hash = 613344480; cdat->dobj_176__ANDI.obj_len = 5; /*inimult dtup_177__ANDI*/ @@ -4043,7 +4043,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_179", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_179.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_179.obj_num = 0; - cdat->dobj_179.obj_hash = 469753382; + cdat->dobj_179.obj_hash = 216797224; cdat->dobj_179.obj_len = 2; /*^iniobj*/ @@ -4053,7 +4053,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_180", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_180.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_180.obj_num = 1; - cdat->dobj_180.obj_hash = 125826204; + cdat->dobj_180.obj_hash = 854140710; cdat->dobj_180.obj_len = 2; /*inistring dstr_181__*/ @@ -4095,7 +4095,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_187__ORI", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_187__ORI", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->object_magic == OBMAG_OBJECT); cdat->dobj_187__ORI.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_187__ORI.obj_hash = 1011962563; + cdat->dobj_187__ORI.obj_hash = 609862874; cdat->dobj_187__ORI.obj_len = 5; /*inimult dtup_188__ORI*/ @@ -4113,7 +4113,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_190", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_190.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_190.obj_num = 0; - cdat->dobj_190.obj_hash = 395169189; + cdat->dobj_190.obj_hash = 380123071; cdat->dobj_190.obj_len = 2; /*^iniobj*/ @@ -4123,7 +4123,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_191", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_191.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_191.obj_num = 1; - cdat->dobj_191.obj_hash = 368780307; + cdat->dobj_191.obj_hash = 11180194; cdat->dobj_191.obj_len = 2; /*inistring dstr_192__*/ @@ -4165,7 +4165,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_198__XORI", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_198__XORI", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->object_magic == OBMAG_OBJECT); cdat->dobj_198__XORI.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_198__XORI.obj_hash = 638401826; + cdat->dobj_198__XORI.obj_hash = 591425424; cdat->dobj_198__XORI.obj_len = 5; /*inimult dtup_199__XORI*/ @@ -4183,7 +4183,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_201", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_201.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_201.obj_num = 0; - cdat->dobj_201.obj_hash = 378377979; + cdat->dobj_201.obj_hash = 65643698; cdat->dobj_201.obj_len = 2; /*^iniobj*/ @@ -4193,7 +4193,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_202", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_202.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_202.obj_num = 1; - cdat->dobj_202.obj_hash = 732243735; + cdat->dobj_202.obj_hash = 571125350; cdat->dobj_202.obj_len = 2; /*inistring dstr_203__*/ @@ -4235,7 +4235,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_209__NEGI", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_209__NEGI", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->object_magic == OBMAG_OBJECT); cdat->dobj_209__NEGI.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_209__NEGI.obj_hash = 452101908; + cdat->dobj_209__NEGI.obj_hash = 251247823; cdat->dobj_209__NEGI.obj_len = 5; /*inimult dtup_210__NEGI*/ @@ -4266,7 +4266,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_214", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_214.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_214.obj_num = 0; - cdat->dobj_214.obj_hash = 168853133; + cdat->dobj_214.obj_hash = 34965669; cdat->dobj_214.obj_len = 2; /*inistring dstr_215__*/ @@ -4303,7 +4303,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_220__NOTI", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_220__NOTI", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->object_magic == OBMAG_OBJECT); cdat->dobj_220__NOTI.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_220__NOTI.obj_hash = 988833753; + cdat->dobj_220__NOTI.obj_hash = 841289667; cdat->dobj_220__NOTI.obj_len = 5; /*inimult dtup_221__NOTI*/ @@ -4321,7 +4321,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_223", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_223.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_223.obj_num = 0; - cdat->dobj_223.obj_hash = 294534390; + cdat->dobj_223.obj_hash = 918680751; cdat->dobj_223.obj_len = 2; /*inistring dstr_224__*/ @@ -4358,7 +4358,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_229__NOTNULL", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_229__NOTNULL", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->object_magic == OBMAG_OBJECT); cdat->dobj_229__NOTNULL.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_229__NOTNULL.obj_hash = 288892141; + cdat->dobj_229__NOTNULL.obj_hash = 110109255; cdat->dobj_229__NOTNULL.obj_len = 5; /*inimult dtup_230__NOTNULL*/ @@ -4376,7 +4376,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_232", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_232.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_232.obj_num = 0; - cdat->dobj_232.obj_hash = 1052224909; + cdat->dobj_232.obj_hash = 364034459; cdat->dobj_232.obj_len = 2; /*inistring dstr_233__*/ @@ -4413,7 +4413,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_238__ZEROP", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_238__ZEROP", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->object_magic == OBMAG_OBJECT); cdat->dobj_238__ZEROP.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_238__ZEROP.obj_hash = 606064349; + cdat->dobj_238__ZEROP.obj_hash = 900776687; cdat->dobj_238__ZEROP.obj_len = 5; /*inimult dtup_239__ZEROP*/ @@ -4431,7 +4431,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_241", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_241.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_241.obj_num = 0; - cdat->dobj_241.obj_hash = 766795148; + cdat->dobj_241.obj_hash = 903494892; cdat->dobj_241.obj_len = 2; /*inistring dstr_242__*/ @@ -4468,7 +4468,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_247__OUTCSTRING_DBG", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_247__OUTCSTRING_DBG", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->object_magic == OBMAG_OBJECT); cdat->dobj_247__OUTCSTRING_DBG.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_247__OUTCSTRING_DBG.obj_hash = 917585741; + cdat->dobj_247__OUTCSTRING_DBG.obj_hash = 692410681; cdat->dobj_247__OUTCSTRING_DBG.obj_len = 5; /*inimult dtup_248__OUTCSTRING_DBG*/ @@ -4499,7 +4499,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_252", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_252.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_252.obj_num = 0; - cdat->dobj_252.obj_hash = 977868017; + cdat->dobj_252.obj_hash = 195041171; cdat->dobj_252.obj_len = 2; /*inistring dstr_253__melt_puts_dump_f*/ @@ -4536,7 +4536,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_258__OUTNUM_DBG", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_258__OUTNUM_DBG", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->object_magic == OBMAG_OBJECT); cdat->dobj_258__OUTNUM_DBG.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_258__OUTNUM_DBG.obj_hash = 637322451; + cdat->dobj_258__OUTNUM_DBG.obj_hash = 433692805; cdat->dobj_258__OUTNUM_DBG.obj_len = 5; /*inimult dtup_259__OUTNUM_DBG*/ @@ -4567,7 +4567,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_263", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_263.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_263.obj_num = 0; - cdat->dobj_263.obj_hash = 783116174; + cdat->dobj_263.obj_hash = 27123802; cdat->dobj_263.obj_len = 2; /*iniobj dsym_264__L*/ @@ -4590,7 +4590,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_266", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_266.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_266.obj_num = 1; - cdat->dobj_266.obj_hash = 503181971; + cdat->dobj_266.obj_hash = 614527577; cdat->dobj_266.obj_len = 2; /*iniobj dsym_267__SUF*/ @@ -4613,7 +4613,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_269", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_269.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_269.obj_num = 2; - cdat->dobj_269.obj_hash = 853748991; + cdat->dobj_269.obj_hash = 998147597; cdat->dobj_269.obj_len = 2; /*inistring dstr_270__melt_putnum_dump*/ @@ -4660,7 +4660,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_277__OUTSTR_DBG", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_277__OUTSTR_DBG", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->object_magic == OBMAG_OBJECT); cdat->dobj_277__OUTSTR_DBG.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_277__OUTSTR_DBG.obj_hash = 200128275; + cdat->dobj_277__OUTSTR_DBG.obj_hash = 50956031; cdat->dobj_277__OUTSTR_DBG.obj_len = 5; /*inimult dtup_278__OUTSTR_DBG*/ @@ -4691,7 +4691,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_282", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_282.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_282.obj_num = 0; - cdat->dobj_282.obj_hash = 105103342; + cdat->dobj_282.obj_hash = 261479815; cdat->dobj_282.obj_len = 2; /*inistring dstr_283__melt_putstr_dump*/ @@ -4728,7 +4728,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_288__OUTSTRBUF_DBG", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_288__OUTSTRBUF_DBG", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->object_magic == OBMAG_OBJECT); cdat->dobj_288__OUTSTRBUF_DBG.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_288__OUTSTRBUF_DBG.obj_hash = 467104955; + cdat->dobj_288__OUTSTRBUF_DBG.obj_hash = 586031744; cdat->dobj_288__OUTSTRBUF_DBG.obj_len = 5; /*inimult dtup_289__OUTSTRBUF_DBG*/ @@ -4759,7 +4759,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_293", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_293.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_293.obj_num = 0; - cdat->dobj_293.obj_hash = 177643347; + cdat->dobj_293.obj_hash = 685643465; cdat->dobj_293.obj_len = 2; /*inistring dstr_294__melt_putstrbuf_d*/ @@ -4796,7 +4796,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_299__OUTNEWLINE_DBG", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_299__OUTNEWLINE_DBG", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->object_magic == OBMAG_OBJECT); cdat->dobj_299__OUTNEWLINE_DBG.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_299__OUTNEWLINE_DBG.obj_hash = 421814589; + cdat->dobj_299__OUTNEWLINE_DBG.obj_hash = 631774419; cdat->dobj_299__OUTNEWLINE_DBG.obj_len = 5; /*inimult dtup_300__OUTNEWLINE_DBG*/ @@ -4836,7 +4836,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_306__OUTNUM_ERR", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_306__OUTNUM_ERR", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->object_magic == OBMAG_OBJECT); cdat->dobj_306__OUTNUM_ERR.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_306__OUTNUM_ERR.obj_hash = 151437483; + cdat->dobj_306__OUTNUM_ERR.obj_hash = 140463368; cdat->dobj_306__OUTNUM_ERR.obj_len = 5; /*inimult dtup_307__OUTNUM_ERR*/ @@ -4854,7 +4854,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_309", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_309.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_309.obj_num = 0; - cdat->dobj_309.obj_hash = 301128104; + cdat->dobj_309.obj_hash = 855047268; cdat->dobj_309.obj_len = 2; /*^iniobj*/ @@ -4864,7 +4864,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_310", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_310.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_310.obj_num = 1; - cdat->dobj_310.obj_hash = 793041079; + cdat->dobj_310.obj_hash = 1033726832; cdat->dobj_310.obj_len = 2; /*^iniobj*/ @@ -4874,7 +4874,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_311", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_311.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_311.obj_num = 2; - cdat->dobj_311.obj_hash = 892901316; + cdat->dobj_311.obj_hash = 284767305; cdat->dobj_311.obj_len = 2; /*inistring dstr_312__melt_putnum_stde*/ @@ -4921,7 +4921,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_319__OUTCSTRING_ERR", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_319__OUTCSTRING_ERR", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->object_magic == OBMAG_OBJECT); cdat->dobj_319__OUTCSTRING_ERR.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_319__OUTCSTRING_ERR.obj_hash = 205571031; + cdat->dobj_319__OUTCSTRING_ERR.obj_hash = 861173212; cdat->dobj_319__OUTCSTRING_ERR.obj_len = 5; /*inimult dtup_320__OUTCSTRING_ERR*/ @@ -4939,7 +4939,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_322", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_322.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_322.obj_num = 0; - cdat->dobj_322.obj_hash = 350691611; + cdat->dobj_322.obj_hash = 766791614; cdat->dobj_322.obj_len = 2; /*inistring dstr_323__melt_puts_stderr*/ @@ -4976,7 +4976,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_328__OUTSTRBUF_ERR", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_328__OUTSTRBUF_ERR", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->object_magic == OBMAG_OBJECT); cdat->dobj_328__OUTSTRBUF_ERR.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_328__OUTSTRBUF_ERR.obj_hash = 601203635; + cdat->dobj_328__OUTSTRBUF_ERR.obj_hash = 266183406; cdat->dobj_328__OUTSTRBUF_ERR.obj_len = 5; /*inimult dtup_329__OUTSTRBUF_ERR*/ @@ -4994,7 +4994,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_331", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_331.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_331.obj_num = 0; - cdat->dobj_331.obj_hash = 272176307; + cdat->dobj_331.obj_hash = 741470772; cdat->dobj_331.obj_len = 2; /*inistring dstr_332__melt_putstrbuf_s*/ @@ -5031,7 +5031,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_337__PAIR_SET_HEAD", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_337__PAIR_SET_HEAD", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->object_magic == OBMAG_OBJECT); cdat->dobj_337__PAIR_SET_HEAD.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_337__PAIR_SET_HEAD.obj_hash = 376145308; + cdat->dobj_337__PAIR_SET_HEAD.obj_hash = 577847230; cdat->dobj_337__PAIR_SET_HEAD.obj_len = 5; /*inimult dtup_338__PAIR_SET_HEAD*/ @@ -5062,7 +5062,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_342", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_342.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_342.obj_num = 0; - cdat->dobj_342.obj_hash = 687515862; + cdat->dobj_342.obj_hash = 506579317; cdat->dobj_342.obj_len = 2; /*iniobj dsym_343__HD*/ @@ -5085,7 +5085,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_345", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_345.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_345.obj_num = 1; - cdat->dobj_345.obj_hash = 352782043; + cdat->dobj_345.obj_hash = 466938796; cdat->dobj_345.obj_len = 2; /*inistring dstr_346__meltgc_pair_set_*/ @@ -5127,7 +5127,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_352__PAIR_LISTLENGTH", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_352__PAIR_LISTLENGTH", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->object_magic == OBMAG_OBJECT); cdat->dobj_352__PAIR_LISTLENGTH.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_352__PAIR_LISTLENGTH.obj_hash = 823523080; + cdat->dobj_352__PAIR_LISTLENGTH.obj_hash = 317954401; cdat->dobj_352__PAIR_LISTLENGTH.obj_len = 5; /*inimult dtup_353__PAIR_LISTLENGTH*/ @@ -5145,7 +5145,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_355", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_355.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_355.obj_num = 0; - cdat->dobj_355.obj_hash = 1068828690; + cdat->dobj_355.obj_hash = 1014029177; cdat->dobj_355.obj_len = 2; /*inistring dstr_356__melt_pair_listl*/ @@ -5182,7 +5182,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_361__MAKE_PAIR", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_361__MAKE_PAIR", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->object_magic == OBMAG_OBJECT); cdat->dobj_361__MAKE_PAIR.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_361__MAKE_PAIR.obj_hash = 768368616; + cdat->dobj_361__MAKE_PAIR.obj_hash = 613889644; cdat->dobj_361__MAKE_PAIR.obj_len = 5; /*inimult dtup_362__MAKE_PAIR*/ @@ -5213,7 +5213,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_366", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_366.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_366.obj_num = 0; - cdat->dobj_366.obj_hash = 1056243517; + cdat->dobj_366.obj_hash = 1011104094; cdat->dobj_366.obj_len = 2; /*^iniobj*/ @@ -5223,7 +5223,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_367", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_367.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_367.obj_num = 1; - cdat->dobj_367.obj_hash = 472278900; + cdat->dobj_367.obj_hash = 126725990; cdat->dobj_367.obj_len = 2; /*iniobj dsym_368__TL*/ @@ -5246,7 +5246,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_370", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_370.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_370.obj_num = 2; - cdat->dobj_370.obj_hash = 359640745; + cdat->dobj_370.obj_hash = 602259879; cdat->dobj_370.obj_len = 2; /*inistring dstr_371__meltgc_new_pair*/ @@ -5293,7 +5293,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_378__IS_MIXINT", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_378__IS_MIXINT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->object_magic == OBMAG_OBJECT); cdat->dobj_378__IS_MIXINT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_378__IS_MIXINT.obj_hash = 707866824; + cdat->dobj_378__IS_MIXINT.obj_hash = 704888682; cdat->dobj_378__IS_MIXINT.obj_len = 5; /*inimult dtup_379__IS_MIXINT*/ @@ -5324,7 +5324,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_383", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_383.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_383.obj_num = 0; - cdat->dobj_383.obj_hash = 754448046; + cdat->dobj_383.obj_hash = 416416341; cdat->dobj_383.obj_len = 2; /*inistring dstr_384__melt_magic_disc*/ @@ -5361,7 +5361,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_389__MIXINT_VAL", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_389__MIXINT_VAL", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->object_magic == OBMAG_OBJECT); cdat->dobj_389__MIXINT_VAL.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_389__MIXINT_VAL.obj_hash = 297626548; + cdat->dobj_389__MIXINT_VAL.obj_hash = 219073177; cdat->dobj_389__MIXINT_VAL.obj_len = 5; /*inimult dtup_390__MIXINT_VAL*/ @@ -5379,7 +5379,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_392", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_392.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_392.obj_num = 0; - cdat->dobj_392.obj_hash = 1036505042; + cdat->dobj_392.obj_hash = 611903173; cdat->dobj_392.obj_len = 2; /*inistring dstr_393__melt_val_mixint*/ @@ -5416,7 +5416,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_398__MAKE_MIXINT", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_398__MAKE_MIXINT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->object_magic == OBMAG_OBJECT); cdat->dobj_398__MAKE_MIXINT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_398__MAKE_MIXINT.obj_hash = 164738131; + cdat->dobj_398__MAKE_MIXINT.obj_hash = 603407966; cdat->dobj_398__MAKE_MIXINT.obj_len = 5; /*inimult dtup_399__MAKE_MIXINT*/ @@ -5447,7 +5447,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_403", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_403.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_403.obj_num = 0; - cdat->dobj_403.obj_hash = 1071977524; + cdat->dobj_403.obj_hash = 828510272; cdat->dobj_403.obj_len = 2; /*iniobj dsym_404__VAL*/ @@ -5470,7 +5470,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_406", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_406.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_406.obj_num = 1; - cdat->dobj_406.obj_hash = 605940054; + cdat->dobj_406.obj_hash = 816427595; cdat->dobj_406.obj_len = 2; /*iniobj dsym_407__NUM*/ @@ -5493,7 +5493,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_409", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_409.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_409.obj_num = 2; - cdat->dobj_409.obj_hash = 174802683; + cdat->dobj_409.obj_hash = 670913336; cdat->dobj_409.obj_len = 2; /*inistring dstr_410__meltgc_new_mixi*/ @@ -5540,7 +5540,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_417__IS_MIXLOC", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_417__IS_MIXLOC", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->object_magic == OBMAG_OBJECT); cdat->dobj_417__IS_MIXLOC.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_417__IS_MIXLOC.obj_hash = 160892861; + cdat->dobj_417__IS_MIXLOC.obj_hash = 579454183; cdat->dobj_417__IS_MIXLOC.obj_len = 5; /*inimult dtup_418__IS_MIXLOC*/ @@ -5558,7 +5558,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_420", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_420.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_420.obj_num = 0; - cdat->dobj_420.obj_hash = 223077112; + cdat->dobj_420.obj_hash = 268972346; cdat->dobj_420.obj_len = 2; /*inistring dstr_421__melt_magic_disc*/ @@ -5595,7 +5595,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_426__MIXLOC_VAL", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_426__MIXLOC_VAL", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->object_magic == OBMAG_OBJECT); cdat->dobj_426__MIXLOC_VAL.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_426__MIXLOC_VAL.obj_hash = 186731760; + cdat->dobj_426__MIXLOC_VAL.obj_hash = 625749590; cdat->dobj_426__MIXLOC_VAL.obj_len = 5; /*inimult dtup_427__MIXLOC_VAL*/ @@ -5613,7 +5613,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_429", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_429.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_429.obj_num = 0; - cdat->dobj_429.obj_hash = 382470072; + cdat->dobj_429.obj_hash = 493415839; cdat->dobj_429.obj_len = 2; /*inistring dstr_430__melt_val_mixloc*/ @@ -5650,7 +5650,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_435__MIXLOC_LOCATION", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_435__MIXLOC_LOCATION", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->object_magic == OBMAG_OBJECT); cdat->dobj_435__MIXLOC_LOCATION.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_435__MIXLOC_LOCATION.obj_hash = 126525449; + cdat->dobj_435__MIXLOC_LOCATION.obj_hash = 107884470; cdat->dobj_435__MIXLOC_LOCATION.obj_len = 5; /*inimult dtup_436__MIXLOC_LOCATION*/ @@ -5668,7 +5668,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_438", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_438.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_438.obj_num = 0; - cdat->dobj_438.obj_hash = 439547089; + cdat->dobj_438.obj_hash = 786321034; cdat->dobj_438.obj_len = 2; /*inistring dstr_439__long_melt_loc*/ @@ -5705,7 +5705,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_444__MIXLOC_LOCLINE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_444__MIXLOC_LOCLINE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->object_magic == OBMAG_OBJECT); cdat->dobj_444__MIXLOC_LOCLINE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_444__MIXLOC_LOCLINE.obj_hash = 48071740; + cdat->dobj_444__MIXLOC_LOCLINE.obj_hash = 883157291; cdat->dobj_444__MIXLOC_LOCLINE.obj_len = 5; /*inimult dtup_445__MIXLOC_LOCLINE*/ @@ -5723,7 +5723,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_447", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_447.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_447.obj_num = 0; - cdat->dobj_447.obj_hash = 862270734; + cdat->dobj_447.obj_hash = 878566599; cdat->dobj_447.obj_len = 2; /*inistring dstr_448__LOCATION_LINE_m*/ @@ -5760,7 +5760,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_453__MIXLOC_LOCFILE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_453__MIXLOC_LOCFILE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->object_magic == OBMAG_OBJECT); cdat->dobj_453__MIXLOC_LOCFILE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_453__MIXLOC_LOCFILE.obj_hash = 148836045; + cdat->dobj_453__MIXLOC_LOCFILE.obj_hash = 483976180; cdat->dobj_453__MIXLOC_LOCFILE.obj_len = 5; /*inimult dtup_454__MIXLOC_LOCFILE*/ @@ -5778,7 +5778,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_456", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_456.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_456.obj_num = 0; - cdat->dobj_456.obj_hash = 111447208; + cdat->dobj_456.obj_hash = 736670259; cdat->dobj_456.obj_len = 2; /*inistring dstr_457__LOCATION_FILE_m*/ @@ -5815,7 +5815,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_462__MAKE_MIXLOC", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_462__MAKE_MIXLOC", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->object_magic == OBMAG_OBJECT); cdat->dobj_462__MAKE_MIXLOC.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_462__MAKE_MIXLOC.obj_hash = 131278016; + cdat->dobj_462__MAKE_MIXLOC.obj_hash = 172477512; cdat->dobj_462__MAKE_MIXLOC.obj_len = 5; /*inimult dtup_463__MAKE_MIXLOC*/ @@ -5833,7 +5833,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_465", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_465.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_465.obj_num = 0; - cdat->dobj_465.obj_hash = 215961566; + cdat->dobj_465.obj_hash = 831549524; cdat->dobj_465.obj_len = 2; /*^iniobj*/ @@ -5843,7 +5843,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_466", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_466.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_466.obj_num = 1; - cdat->dobj_466.obj_hash = 970139003; + cdat->dobj_466.obj_hash = 277523578; cdat->dobj_466.obj_len = 2; /*^iniobj*/ @@ -5853,7 +5853,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_467", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_467.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_467.obj_num = 2; - cdat->dobj_467.obj_hash = 571168638; + cdat->dobj_467.obj_hash = 706692088; cdat->dobj_467.obj_len = 2; /*iniobj dsym_468__LOC*/ @@ -5876,7 +5876,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_470", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_470.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_470.obj_num = 3; - cdat->dobj_470.obj_hash = 661044646; + cdat->dobj_470.obj_hash = 512051660; cdat->dobj_470.obj_len = 2; /*inistring dstr_471__meltgc_new_mixl*/ @@ -5928,7 +5928,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_479__IS_MIXBIGINT", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_479__IS_MIXBIGINT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->object_magic == OBMAG_OBJECT); cdat->dobj_479__IS_MIXBIGINT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_479__IS_MIXBIGINT.obj_hash = 810592357; + cdat->dobj_479__IS_MIXBIGINT.obj_hash = 465481500; cdat->dobj_479__IS_MIXBIGINT.obj_len = 5; /*inimult dtup_480__IS_MIXBIGINT*/ @@ -5959,7 +5959,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_484", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_484.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_484.obj_num = 0; - cdat->dobj_484.obj_hash = 909136083; + cdat->dobj_484.obj_hash = 958569176; cdat->dobj_484.obj_len = 2; /*inistring dstr_485__melt_magic_disc*/ @@ -5996,7 +5996,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_490__MIXBIGINT_VAL", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_490__MIXBIGINT_VAL", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->object_magic == OBMAG_OBJECT); cdat->dobj_490__MIXBIGINT_VAL.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_490__MIXBIGINT_VAL.obj_hash = 735720974; + cdat->dobj_490__MIXBIGINT_VAL.obj_hash = 346418946; cdat->dobj_490__MIXBIGINT_VAL.obj_len = 5; /*inimult dtup_491__MIXBIGINT_VAL*/ @@ -6014,7 +6014,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_493", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_493.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_493.obj_num = 0; - cdat->dobj_493.obj_hash = 685451699; + cdat->dobj_493.obj_hash = 922907844; cdat->dobj_493.obj_len = 2; /*inistring dstr_494__melt_val_mixbigi*/ @@ -6051,7 +6051,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_499__PPSTRBUF_MIXBIGINT", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_499__PPSTRBUF_MIXBIGINT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->object_magic == OBMAG_OBJECT); cdat->dobj_499__PPSTRBUF_MIXBIGINT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_499__PPSTRBUF_MIXBIGINT.obj_hash = 922083149; + cdat->dobj_499__PPSTRBUF_MIXBIGINT.obj_hash = 866964713; cdat->dobj_499__PPSTRBUF_MIXBIGINT.obj_len = 5; /*inimult dtup_500__PPSTRBUF_MIXBIGINT*/ @@ -6069,7 +6069,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_502", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_502.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_502.obj_num = 0; - cdat->dobj_502.obj_hash = 167727357; + cdat->dobj_502.obj_hash = 556431661; cdat->dobj_502.obj_len = 2; /*iniobj dsym_503__INDENT*/ @@ -6092,7 +6092,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_505", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_505.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_505.obj_num = 1; - cdat->dobj_505.obj_hash = 124892733; + cdat->dobj_505.obj_hash = 104257846; cdat->dobj_505.obj_len = 2; /*^iniobj*/ @@ -6102,7 +6102,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_506", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_506.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_506.obj_num = 2; - cdat->dobj_506.obj_hash = 326333927; + cdat->dobj_506.obj_hash = 153117832; cdat->dobj_506.obj_len = 2; /*inistring dstr_507__meltgc_ppstrbuf_*/ @@ -6149,7 +6149,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_514__READ_FILE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_514__READ_FILE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->object_magic == OBMAG_OBJECT); cdat->dobj_514__READ_FILE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_514__READ_FILE.obj_hash = 5264742; + cdat->dobj_514__READ_FILE.obj_hash = 929913374; cdat->dobj_514__READ_FILE.obj_len = 5; /*inimult dtup_515__READ_FILE*/ @@ -6180,7 +6180,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_519", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_519.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_519.obj_num = 0; - cdat->dobj_519.obj_hash = 289927775; + cdat->dobj_519.obj_hash = 933652846; cdat->dobj_519.obj_len = 2; /*inistring dstr_520__meltgc_read_fil*/ @@ -6217,7 +6217,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_525__ERROR_STRV", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_525__ERROR_STRV", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->object_magic == OBMAG_OBJECT); cdat->dobj_525__ERROR_STRV.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_525__ERROR_STRV.obj_hash = 417754037; + cdat->dobj_525__ERROR_STRV.obj_hash = 486710237; cdat->dobj_525__ERROR_STRV.obj_len = 5; /*inimult dtup_526__ERROR_STRV*/ @@ -6235,7 +6235,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_528", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_528.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_528.obj_num = 0; - cdat->dobj_528.obj_hash = 234977515; + cdat->dobj_528.obj_hash = 457918742; cdat->dobj_528.obj_len = 2; /*iniobj dsym_529__CMSG*/ @@ -6258,7 +6258,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_531", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_531.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_531.obj_num = 1; - cdat->dobj_531.obj_hash = 516664525; + cdat->dobj_531.obj_hash = 997109510; cdat->dobj_531.obj_len = 2; /*iniobj dsym_532__STRV*/ @@ -6281,7 +6281,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_534", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_534.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_534.obj_num = 2; - cdat->dobj_534.obj_hash = 411682464; + cdat->dobj_534.obj_hash = 354068583; cdat->dobj_534.obj_len = 2; /*inistring dstr_535__melt_error_str_*/ @@ -6328,7 +6328,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_542__ERROR_PLAIN", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_542__ERROR_PLAIN", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->object_magic == OBMAG_OBJECT); cdat->dobj_542__ERROR_PLAIN.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_542__ERROR_PLAIN.obj_hash = 233519815; + cdat->dobj_542__ERROR_PLAIN.obj_hash = 155195689; cdat->dobj_542__ERROR_PLAIN.obj_len = 5; /*inimult dtup_543__ERROR_PLAIN*/ @@ -6346,7 +6346,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_545", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_545.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_545.obj_num = 0; - cdat->dobj_545.obj_hash = 286141714; + cdat->dobj_545.obj_hash = 823608601; cdat->dobj_545.obj_len = 2; /*^iniobj*/ @@ -6356,7 +6356,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_546", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_546.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_546.obj_num = 1; - cdat->dobj_546.obj_hash = 525063498; + cdat->dobj_546.obj_hash = 811068477; cdat->dobj_546.obj_len = 2; /*inistring dstr_547__melt_error_str_*/ @@ -6398,7 +6398,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_553__WARNING_STRV", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_553__WARNING_STRV", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->object_magic == OBMAG_OBJECT); cdat->dobj_553__WARNING_STRV.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_553__WARNING_STRV.obj_hash = 868447110; + cdat->dobj_553__WARNING_STRV.obj_hash = 165843489; cdat->dobj_553__WARNING_STRV.obj_len = 5; /*inimult dtup_554__WARNING_STRV*/ @@ -6416,7 +6416,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_556", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_556.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_556.obj_num = 0; - cdat->dobj_556.obj_hash = 1060477164; + cdat->dobj_556.obj_hash = 631454866; cdat->dobj_556.obj_len = 2; /*^iniobj*/ @@ -6426,7 +6426,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_557", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_557.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_557.obj_num = 1; - cdat->dobj_557.obj_hash = 4027900; + cdat->dobj_557.obj_hash = 573735208; cdat->dobj_557.obj_len = 2; /*^iniobj*/ @@ -6436,7 +6436,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_558", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_558.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_558.obj_num = 2; - cdat->dobj_558.obj_hash = 788199810; + cdat->dobj_558.obj_hash = 244086598; cdat->dobj_558.obj_len = 2; /*inistring dstr_559__melt_warning_str*/ @@ -6483,7 +6483,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_566__WARNING_PLAIN", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_566__WARNING_PLAIN", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->object_magic == OBMAG_OBJECT); cdat->dobj_566__WARNING_PLAIN.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_566__WARNING_PLAIN.obj_hash = 641237605; + cdat->dobj_566__WARNING_PLAIN.obj_hash = 713206868; cdat->dobj_566__WARNING_PLAIN.obj_len = 5; /*inimult dtup_567__WARNING_PLAIN*/ @@ -6501,7 +6501,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_569", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_569.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_569.obj_num = 0; - cdat->dobj_569.obj_hash = 426583939; + cdat->dobj_569.obj_hash = 661334295; cdat->dobj_569.obj_len = 2; /*^iniobj*/ @@ -6511,7 +6511,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_570", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_570.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_570.obj_num = 1; - cdat->dobj_570.obj_hash = 776883251; + cdat->dobj_570.obj_hash = 856050564; cdat->dobj_570.obj_len = 2; /*inistring dstr_571__melt_warning_str*/ @@ -6553,7 +6553,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_577__WARNINGMSG_PLAIN", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_577__WARNINGMSG_PLAIN", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->object_magic == OBMAG_OBJECT); cdat->dobj_577__WARNINGMSG_PLAIN.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_577__WARNINGMSG_PLAIN.obj_hash = 857394502; + cdat->dobj_577__WARNINGMSG_PLAIN.obj_hash = 113704903; cdat->dobj_577__WARNINGMSG_PLAIN.obj_len = 5; /*inimult dtup_578__WARNINGMSG_PLAIN*/ @@ -6571,7 +6571,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_580", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_580.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_580.obj_num = 0; - cdat->dobj_580.obj_hash = 343880384; + cdat->dobj_580.obj_hash = 353974498; cdat->dobj_580.obj_len = 2; /*inistring dstr_581__warning_0_MELT*/ @@ -6608,7 +6608,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_586__ERRORMSG_PLAIN", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_586__ERRORMSG_PLAIN", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->object_magic == OBMAG_OBJECT); cdat->dobj_586__ERRORMSG_PLAIN.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_586__ERRORMSG_PLAIN.obj_hash = 149141782; + cdat->dobj_586__ERRORMSG_PLAIN.obj_hash = 492073418; cdat->dobj_586__ERRORMSG_PLAIN.obj_len = 5; /*inimult dtup_587__ERRORMSG_PLAIN*/ @@ -6626,7 +6626,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_589", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_589.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_589.obj_num = 0; - cdat->dobj_589.obj_hash = 1047651604; + cdat->dobj_589.obj_hash = 889623897; cdat->dobj_589.obj_len = 2; /*inistring dstr_590__error_MELT_ERR*/ @@ -6663,7 +6663,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_595__ERRORMSG_STRV", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_595__ERRORMSG_STRV", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->object_magic == OBMAG_OBJECT); cdat->dobj_595__ERRORMSG_STRV.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_595__ERRORMSG_STRV.obj_hash = 1065292205; + cdat->dobj_595__ERRORMSG_STRV.obj_hash = 647495334; cdat->dobj_595__ERRORMSG_STRV.obj_len = 5; /*inimult dtup_596__ERRORMSG_STRV*/ @@ -6681,7 +6681,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_598", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_598.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_598.obj_num = 0; - cdat->dobj_598.obj_hash = 1056619969; + cdat->dobj_598.obj_hash = 229175909; cdat->dobj_598.obj_len = 2; /*^iniobj*/ @@ -6691,7 +6691,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_599", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_599.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_599.obj_num = 1; - cdat->dobj_599.obj_hash = 988692183; + cdat->dobj_599.obj_hash = 854532566; cdat->dobj_599.obj_len = 2; /*inistring dstr_600__error_MELT_ERRO*/ @@ -6733,7 +6733,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_606__INFORM_STRV", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_606__INFORM_STRV", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->object_magic == OBMAG_OBJECT); cdat->dobj_606__INFORM_STRV.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_606__INFORM_STRV.obj_hash = 897475814; + cdat->dobj_606__INFORM_STRV.obj_hash = 549906489; cdat->dobj_606__INFORM_STRV.obj_len = 5; /*inimult dtup_607__INFORM_STRV*/ @@ -6751,7 +6751,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_609", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_609.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_609.obj_num = 0; - cdat->dobj_609.obj_hash = 788799624; + cdat->dobj_609.obj_hash = 827838328; cdat->dobj_609.obj_len = 2; /*^iniobj*/ @@ -6761,7 +6761,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_610", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_610.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_610.obj_num = 1; - cdat->dobj_610.obj_hash = 1053764672; + cdat->dobj_610.obj_hash = 531364323; cdat->dobj_610.obj_len = 2; /*^iniobj*/ @@ -6771,7 +6771,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_611", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_611.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_611.obj_num = 2; - cdat->dobj_611.obj_hash = 893688187; + cdat->dobj_611.obj_hash = 532677585; cdat->dobj_611.obj_len = 2; /*inistring dstr_612__melt_inform_str_*/ @@ -6818,7 +6818,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_619__INFORM_PLAIN", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_619__INFORM_PLAIN", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->object_magic == OBMAG_OBJECT); cdat->dobj_619__INFORM_PLAIN.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_619__INFORM_PLAIN.obj_hash = 1035563578; + cdat->dobj_619__INFORM_PLAIN.obj_hash = 874069621; cdat->dobj_619__INFORM_PLAIN.obj_len = 5; /*inimult dtup_620__INFORM_PLAIN*/ @@ -6836,7 +6836,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_622", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_622.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_622.obj_num = 0; - cdat->dobj_622.obj_hash = 1041981954; + cdat->dobj_622.obj_hash = 441101766; cdat->dobj_622.obj_len = 2; /*^iniobj*/ @@ -6846,7 +6846,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_623", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_623.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_623.obj_num = 1; - cdat->dobj_623.obj_hash = 491614478; + cdat->dobj_623.obj_hash = 844951460; cdat->dobj_623.obj_len = 2; /*inistring dstr_624__melt_inform_str_*/ @@ -6888,7 +6888,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_630__INFORMSG_PLAIN", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_630__INFORMSG_PLAIN", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->object_magic == OBMAG_OBJECT); cdat->dobj_630__INFORMSG_PLAIN.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_630__INFORMSG_PLAIN.obj_hash = 60750666; + cdat->dobj_630__INFORMSG_PLAIN.obj_hash = 84138755; cdat->dobj_630__INFORMSG_PLAIN.obj_len = 5; /*inimult dtup_631__INFORMSG_PLAIN*/ @@ -6906,7 +6906,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_633", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_633.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_633.obj_num = 0; - cdat->dobj_633.obj_hash = 311913949; + cdat->dobj_633.obj_hash = 90900664; cdat->dobj_633.obj_len = 2; /*inistring dstr_634__inform_UNKNOWN_L*/ @@ -6930,7 +6930,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_637__FOREACH_LONG_UPTO", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_CITERATOR)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_637__FOREACH_LONG_UPTO", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CITERATOR)))))->object_magic == OBMAG_OBJECT); cdat->dobj_637__FOREACH_LONG_UPTO.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CITERATOR)))); - cdat->dobj_637__FOREACH_LONG_UPTO.obj_hash = 903047280; + cdat->dobj_637__FOREACH_LONG_UPTO.obj_hash = 470659625; cdat->dobj_637__FOREACH_LONG_UPTO.obj_len = 7; /*inistring dstr_638__FOREACH_LONG_UPT*/ @@ -6958,7 +6958,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_641", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_641.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_641.obj_num = 0; - cdat->dobj_641.obj_hash = 326069548; + cdat->dobj_641.obj_hash = 583815637; cdat->dobj_641.obj_len = 2; /*iniobj dsym_642__IMAX*/ @@ -6981,7 +6981,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_644", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_644.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_644.obj_num = 1; - cdat->dobj_644.obj_hash = 732126100; + cdat->dobj_644.obj_hash = 247459269; cdat->dobj_644.obj_len = 2; /*inimult dtup_645__FOREACH_LONG_UPTO*/ @@ -7008,7 +7008,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_648", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_648.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_648.obj_num = 0; - cdat->dobj_648.obj_hash = 448060145; + cdat->dobj_648.obj_hash = 1016659867; cdat->dobj_648.obj_len = 2; /*inimult dtup_649__FOREACH_LONG_UPTO*/ @@ -7104,7 +7104,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_667__SOME_INTEGER_MULTIPLE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_CMATCHER)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_667__SOME_INTEGER_MULTIPLE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CMATCHER)))))->object_magic == OBMAG_OBJECT); cdat->dobj_667__SOME_INTEGER_MULTIPLE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CMATCHER)))); - cdat->dobj_667__SOME_INTEGER_MULTIPLE.obj_hash = 1002770973; + cdat->dobj_667__SOME_INTEGER_MULTIPLE.obj_hash = 251291702; cdat->dobj_667__SOME_INTEGER_MULTIPLE.obj_len = 9; /*inistring dstr_668__SOME_INTEGER_MUL*/ @@ -7132,7 +7132,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_671", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_671.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_671.obj_num = 0; - cdat->dobj_671.obj_hash = 300555084; + cdat->dobj_671.obj_hash = 337802806; cdat->dobj_671.obj_len = 2; /*inimult dtup_672__SOME_INTEGER_MULTIPLE*/ @@ -7145,7 +7145,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_673", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_673", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_673.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); - cdat->dobj_673.obj_hash = 619446668; + cdat->dobj_673.obj_hash = 725637025; cdat->dobj_673.obj_len = 2; /*iniobj dsym_674__Q*/ @@ -7168,7 +7168,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_676", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_676.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_676.obj_num = 0; - cdat->dobj_676.obj_hash = 576915498; + cdat->dobj_676.obj_hash = 475204262; cdat->dobj_676.obj_len = 2; /*inimult dtup_677__SOME_INTEGER_MULTIPLE*/ @@ -7252,7 +7252,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_692__SOME_INTEGER_GREATER_THAN", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_CMATCHER)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_692__SOME_INTEGER_GREATER_THAN", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CMATCHER)))))->object_magic == OBMAG_OBJECT); cdat->dobj_692__SOME_INTEGER_GREATER_THAN.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CMATCHER)))); - cdat->dobj_692__SOME_INTEGER_GREATER_THAN.obj_hash = 716733188; + cdat->dobj_692__SOME_INTEGER_GREATER_THAN.obj_hash = 316434371; cdat->dobj_692__SOME_INTEGER_GREATER_THAN.obj_len = 9; /*inistring dstr_693__SOME_INTEGER_GRE*/ @@ -7267,7 +7267,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_694", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_694.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_694.obj_num = 0; - cdat->dobj_694.obj_hash = 452783627; + cdat->dobj_694.obj_hash = 210819871; cdat->dobj_694.obj_len = 2; /*inimult dtup_695__SOME_INTEGER_GREATER_THAN*/ @@ -7280,7 +7280,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_696", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_696", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_696.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); - cdat->dobj_696.obj_hash = 795685944; + cdat->dobj_696.obj_hash = 130204464; cdat->dobj_696.obj_len = 2; /*inimult dtup_697__SOME_INTEGER_GREATER_THAN*/ @@ -7343,7 +7343,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_707__OUTNEWLINE_ERR", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_707__OUTNEWLINE_ERR", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->object_magic == OBMAG_OBJECT); cdat->dobj_707__OUTNEWLINE_ERR.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_707__OUTNEWLINE_ERR.obj_hash = 351461254; + cdat->dobj_707__OUTNEWLINE_ERR.obj_hash = 135723387; cdat->dobj_707__OUTNEWLINE_ERR.obj_len = 5; /*inimult dtup_708__OUTNEWLINE_ERR*/ @@ -7383,7 +7383,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_714__OUTSTR_ERR", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_714__OUTSTR_ERR", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->object_magic == OBMAG_OBJECT); cdat->dobj_714__OUTSTR_ERR.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_714__OUTSTR_ERR.obj_hash = 335887398; + cdat->dobj_714__OUTSTR_ERR.obj_hash = 871411749; cdat->dobj_714__OUTSTR_ERR.obj_len = 5; /*inimult dtup_715__OUTSTR_ERR*/ @@ -7401,7 +7401,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_717", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_717.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_717.obj_num = 0; - cdat->dobj_717.obj_hash = 755122559; + cdat->dobj_717.obj_hash = 621253457; cdat->dobj_717.obj_len = 2; /*inistring dstr_718__melt_putstr_stde*/ @@ -7438,7 +7438,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_723__MESSAGE_DBG", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_723__MESSAGE_DBG", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->object_magic == OBMAG_OBJECT); cdat->dobj_723__MESSAGE_DBG.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_723__MESSAGE_DBG.obj_hash = 127391675; + cdat->dobj_723__MESSAGE_DBG.obj_hash = 467510111; cdat->dobj_723__MESSAGE_DBG.obj_len = 5; /*inimult dtup_724__MESSAGE_DBG*/ @@ -7456,7 +7456,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_726", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_726.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_726.obj_num = 0; - cdat->dobj_726.obj_hash = 1026680393; + cdat->dobj_726.obj_hash = 886001533; cdat->dobj_726.obj_len = 2; /*inistring dstr_727__debugeputs_*/ @@ -7493,7 +7493,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_732__MESSAGENUM_DBG", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_732__MESSAGENUM_DBG", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->object_magic == OBMAG_OBJECT); cdat->dobj_732__MESSAGENUM_DBG.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_732__MESSAGENUM_DBG.obj_hash = 83404197; + cdat->dobj_732__MESSAGENUM_DBG.obj_hash = 82633764; cdat->dobj_732__MESSAGENUM_DBG.obj_len = 5; /*inimult dtup_733__MESSAGENUM_DBG*/ @@ -7511,7 +7511,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_735", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_735.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_735.obj_num = 0; - cdat->dobj_735.obj_hash = 1009100265; + cdat->dobj_735.obj_hash = 690011235; cdat->dobj_735.obj_len = 2; /*^iniobj*/ @@ -7521,7 +7521,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_736", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_736.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_736.obj_num = 1; - cdat->dobj_736.obj_hash = 590050777; + cdat->dobj_736.obj_hash = 72311111; cdat->dobj_736.obj_len = 2; /*inistring dstr_737__debugnum_*/ @@ -7563,7 +7563,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_743__MESSAGEVAL_DBG", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_743__MESSAGEVAL_DBG", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->object_magic == OBMAG_OBJECT); cdat->dobj_743__MESSAGEVAL_DBG.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_743__MESSAGEVAL_DBG.obj_hash = 116921648; + cdat->dobj_743__MESSAGEVAL_DBG.obj_hash = 709425127; cdat->dobj_743__MESSAGEVAL_DBG.obj_len = 5; /*inimult dtup_744__MESSAGEVAL_DBG*/ @@ -7581,7 +7581,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_746", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_746.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_746.obj_num = 0; - cdat->dobj_746.obj_hash = 148644281; + cdat->dobj_746.obj_hash = 156471169; cdat->dobj_746.obj_len = 2; /*^iniobj*/ @@ -7591,7 +7591,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_747", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_747.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_747.obj_num = 1; - cdat->dobj_747.obj_hash = 665774957; + cdat->dobj_747.obj_hash = 594581454; cdat->dobj_747.obj_len = 2; /*inistring dstr_748__debugvalue_*/ @@ -7633,7 +7633,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_754__LONGBACKTRACE_DBG", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_754__LONGBACKTRACE_DBG", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->object_magic == OBMAG_OBJECT); cdat->dobj_754__LONGBACKTRACE_DBG.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_754__LONGBACKTRACE_DBG.obj_hash = 568438612; + cdat->dobj_754__LONGBACKTRACE_DBG.obj_hash = 866360567; cdat->dobj_754__LONGBACKTRACE_DBG.obj_len = 5; /*inimult dtup_755__LONGBACKTRACE_DBG*/ @@ -7651,7 +7651,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_757", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_757.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_757.obj_num = 0; - cdat->dobj_757.obj_hash = 392649276; + cdat->dobj_757.obj_hash = 498071543; cdat->dobj_757.obj_len = 2; /*iniobj dsym_758__MAXDEPTH*/ @@ -7674,7 +7674,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_760", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_760.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_760.obj_num = 1; - cdat->dobj_760.obj_hash = 1013344378; + cdat->dobj_760.obj_hash = 355776392; cdat->dobj_760.obj_len = 2; /*inistring dstr_761__debugbacktrace_*/ @@ -7711,7 +7711,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_766__CHECKVAL_DBG", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_766__CHECKVAL_DBG", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->object_magic == OBMAG_OBJECT); cdat->dobj_766__CHECKVAL_DBG.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_766__CHECKVAL_DBG.obj_hash = 708506707; + cdat->dobj_766__CHECKVAL_DBG.obj_hash = 189699983; cdat->dobj_766__CHECKVAL_DBG.obj_len = 5; /*inimult dtup_767__CHECKVAL_DBG*/ @@ -7729,7 +7729,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_769", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_769.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_769.obj_num = 0; - cdat->dobj_769.obj_hash = 213983526; + cdat->dobj_769.obj_hash = 707616793; cdat->dobj_769.obj_len = 2; /*^iniobj*/ @@ -7739,7 +7739,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_770", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_770.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_770.obj_num = 1; - cdat->dobj_770.obj_hash = 739301978; + cdat->dobj_770.obj_hash = 528536183; cdat->dobj_770.obj_len = 2; /*inistring dstr_771__melt_checked_ass*/ @@ -7781,7 +7781,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_777__DEBUGCSTRING", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_777__DEBUGCSTRING", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->object_magic == OBMAG_OBJECT); cdat->dobj_777__DEBUGCSTRING.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_777__DEBUGCSTRING.obj_hash = 229261193; + cdat->dobj_777__DEBUGCSTRING.obj_hash = 73630601; cdat->dobj_777__DEBUGCSTRING.obj_len = 5; /*inimult dtup_778__DEBUGCSTRING*/ @@ -7799,7 +7799,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_780", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_780.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_780.obj_num = 0; - cdat->dobj_780.obj_hash = 9710000; + cdat->dobj_780.obj_hash = 40722186; cdat->dobj_780.obj_len = 2; /*^iniobj*/ @@ -7809,7 +7809,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_781", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_781.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_781.obj_num = 1; - cdat->dobj_781.obj_hash = 124945943; + cdat->dobj_781.obj_hash = 960838158; cdat->dobj_781.obj_len = 2; /*inistring dstr_782__debugeprintf_de*/ @@ -7851,7 +7851,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_788__MAKE_STRBUF", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_788__MAKE_STRBUF", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->object_magic == OBMAG_OBJECT); cdat->dobj_788__MAKE_STRBUF.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_788__MAKE_STRBUF.obj_hash = 840042097; + cdat->dobj_788__MAKE_STRBUF.obj_hash = 666149845; cdat->dobj_788__MAKE_STRBUF.obj_len = 5; /*inimult dtup_789__MAKE_STRBUF*/ @@ -7869,7 +7869,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_791", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_791.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_791.obj_num = 0; - cdat->dobj_791.obj_hash = 191891997; + cdat->dobj_791.obj_hash = 312360812; cdat->dobj_791.obj_len = 2; /*inistring dstr_792__meltgc_new_strbu*/ @@ -7906,7 +7906,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_797__STRBUF_USEDLENGTH", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_797__STRBUF_USEDLENGTH", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->object_magic == OBMAG_OBJECT); cdat->dobj_797__STRBUF_USEDLENGTH.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_797__STRBUF_USEDLENGTH.obj_hash = 844283618; + cdat->dobj_797__STRBUF_USEDLENGTH.obj_hash = 488630594; cdat->dobj_797__STRBUF_USEDLENGTH.obj_len = 5; /*inimult dtup_798__STRBUF_USEDLENGTH*/ @@ -7924,7 +7924,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_800", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_800.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_800.obj_num = 0; - cdat->dobj_800.obj_hash = 19810802; + cdat->dobj_800.obj_hash = 446922938; cdat->dobj_800.obj_len = 2; /*inistring dstr_801__melt_strbuf_used*/ @@ -7961,7 +7961,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_806__IS_STRBUF", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_806__IS_STRBUF", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->object_magic == OBMAG_OBJECT); cdat->dobj_806__IS_STRBUF.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_806__IS_STRBUF.obj_hash = 645589930; + cdat->dobj_806__IS_STRBUF.obj_hash = 1059888609; cdat->dobj_806__IS_STRBUF.obj_len = 5; /*inimult dtup_807__IS_STRBUF*/ @@ -7979,7 +7979,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_809", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_809.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_809.obj_num = 0; - cdat->dobj_809.obj_hash = 998601543; + cdat->dobj_809.obj_hash = 372365166; cdat->dobj_809.obj_len = 2; /*inistring dstr_810__melt_magic_disc*/ @@ -8016,7 +8016,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_815__MAKE_STRING", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_815__MAKE_STRING", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->object_magic == OBMAG_OBJECT); cdat->dobj_815__MAKE_STRING.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_815__MAKE_STRING.obj_hash = 540473622; + cdat->dobj_815__MAKE_STRING.obj_hash = 862440355; cdat->dobj_815__MAKE_STRING.obj_len = 5; /*inimult dtup_816__MAKE_STRING*/ @@ -8034,7 +8034,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_818", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_818.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_818.obj_num = 0; - cdat->dobj_818.obj_hash = 300385309; + cdat->dobj_818.obj_hash = 63385362; cdat->dobj_818.obj_len = 2; /*^iniobj*/ @@ -8044,7 +8044,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_819", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_819.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_819.obj_num = 1; - cdat->dobj_819.obj_hash = 969545475; + cdat->dobj_819.obj_hash = 940930870; cdat->dobj_819.obj_len = 2; /*inistring dstr_820__meltgc_new_stri*/ @@ -8086,7 +8086,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_826__IS_STRINGCONST", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_826__IS_STRINGCONST", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->object_magic == OBMAG_OBJECT); cdat->dobj_826__IS_STRINGCONST.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_826__IS_STRINGCONST.obj_hash = 426452180; + cdat->dobj_826__IS_STRINGCONST.obj_hash = 716194479; cdat->dobj_826__IS_STRINGCONST.obj_len = 5; /*inimult dtup_827__IS_STRINGCONST*/ @@ -8104,7 +8104,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_829", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_829.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_829.obj_num = 0; - cdat->dobj_829.obj_hash = 580186673; + cdat->dobj_829.obj_hash = 473783819; cdat->dobj_829.obj_len = 2; /*iniobj dsym_830__CS*/ @@ -8127,7 +8127,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_832", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_832.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_832.obj_num = 1; - cdat->dobj_832.obj_hash = 889320393; + cdat->dobj_832.obj_hash = 321521895; cdat->dobj_832.obj_len = 2; /*inistring dstr_833__melt_is_string_*/ @@ -8169,7 +8169,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_839__STRING_LENGTH", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_839__STRING_LENGTH", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->object_magic == OBMAG_OBJECT); cdat->dobj_839__STRING_LENGTH.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_839__STRING_LENGTH.obj_hash = 620583872; + cdat->dobj_839__STRING_LENGTH.obj_hash = 3535893; cdat->dobj_839__STRING_LENGTH.obj_len = 5; /*inimult dtup_840__STRING_LENGTH*/ @@ -8187,7 +8187,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_842", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_842.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_842.obj_num = 0; - cdat->dobj_842.obj_hash = 979419789; + cdat->dobj_842.obj_hash = 927801426; cdat->dobj_842.obj_len = 2; /*inistring dstr_843__melt_string_leng*/ @@ -8224,7 +8224,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_848__STRING_", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_848__STRING_", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->object_magic == OBMAG_OBJECT); cdat->dobj_848__STRING_.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_848__STRING_.obj_hash = 414790024; + cdat->dobj_848__STRING_.obj_hash = 1035548256; cdat->dobj_848__STRING_.obj_len = 5; /*inimult dtup_849__STRING_*/ @@ -8255,7 +8255,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_853", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_853.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_853.obj_num = 0; - cdat->dobj_853.obj_hash = 373577526; + cdat->dobj_853.obj_hash = 475077141; cdat->dobj_853.obj_len = 2; /*iniobj dsym_854__S2*/ @@ -8278,7 +8278,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_856", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_856.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_856.obj_num = 1; - cdat->dobj_856.obj_hash = 977292436; + cdat->dobj_856.obj_hash = 946569788; cdat->dobj_856.obj_len = 2; /*inistring dstr_857__melt_string_same*/ @@ -8320,7 +8320,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_863__SPLIT_STRING_SPACE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_863__SPLIT_STRING_SPACE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->object_magic == OBMAG_OBJECT); cdat->dobj_863__SPLIT_STRING_SPACE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_863__SPLIT_STRING_SPACE.obj_hash = 256754204; + cdat->dobj_863__SPLIT_STRING_SPACE.obj_hash = 957656486; cdat->dobj_863__SPLIT_STRING_SPACE.obj_len = 5; /*inimult dtup_864__SPLIT_STRING_SPACE*/ @@ -8338,7 +8338,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_866", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_866.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_866.obj_num = 0; - cdat->dobj_866.obj_hash = 870469408; + cdat->dobj_866.obj_hash = 851263895; cdat->dobj_866.obj_len = 2; /*^iniobj*/ @@ -8348,7 +8348,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_867", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_867.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_867.obj_num = 1; - cdat->dobj_867.obj_hash = 578444229; + cdat->dobj_867.obj_hash = 625108685; cdat->dobj_867.obj_len = 2; /*inistring dstr_868__meltgc_new_split*/ @@ -8390,7 +8390,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_874__SPLIT_STRING_COMMA", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_874__SPLIT_STRING_COMMA", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->object_magic == OBMAG_OBJECT); cdat->dobj_874__SPLIT_STRING_COMMA.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_874__SPLIT_STRING_COMMA.obj_hash = 890006889; + cdat->dobj_874__SPLIT_STRING_COMMA.obj_hash = 423067183; cdat->dobj_874__SPLIT_STRING_COMMA.obj_len = 5; /*inimult dtup_875__SPLIT_STRING_COMMA*/ @@ -8408,7 +8408,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_877", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_877.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_877.obj_num = 0; - cdat->dobj_877.obj_hash = 239794047; + cdat->dobj_877.obj_hash = 16695317; cdat->dobj_877.obj_len = 2; /*^iniobj*/ @@ -8418,7 +8418,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_878", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_878.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_878.obj_num = 1; - cdat->dobj_878.obj_hash = 510874464; + cdat->dobj_878.obj_hash = 940884746; cdat->dobj_878.obj_len = 2; /*inistring dstr_879__meltgc_new_split*/ @@ -8460,7 +8460,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_885__SPLIT_STRING_COLON", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_885__SPLIT_STRING_COLON", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->object_magic == OBMAG_OBJECT); cdat->dobj_885__SPLIT_STRING_COLON.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_885__SPLIT_STRING_COLON.obj_hash = 368476189; + cdat->dobj_885__SPLIT_STRING_COLON.obj_hash = 313211749; cdat->dobj_885__SPLIT_STRING_COLON.obj_len = 5; /*inimult dtup_886__SPLIT_STRING_COLON*/ @@ -8478,7 +8478,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_888", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_888.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_888.obj_num = 0; - cdat->dobj_888.obj_hash = 179233718; + cdat->dobj_888.obj_hash = 698312787; cdat->dobj_888.obj_len = 2; /*^iniobj*/ @@ -8488,7 +8488,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_889", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_889.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_889.obj_num = 1; - cdat->dobj_889.obj_hash = 865290097; + cdat->dobj_889.obj_hash = 358573766; cdat->dobj_889.obj_len = 2; /*inistring dstr_890__meltgc_new_split*/ @@ -8530,7 +8530,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_896__STRBUF2STRING", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_896__STRBUF2STRING", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->object_magic == OBMAG_OBJECT); cdat->dobj_896__STRBUF2STRING.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_896__STRBUF2STRING.obj_hash = 665267780; + cdat->dobj_896__STRBUF2STRING.obj_hash = 491110685; cdat->dobj_896__STRBUF2STRING.obj_len = 5; /*inimult dtup_897__STRBUF2STRING*/ @@ -8548,7 +8548,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_899", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_899.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_899.obj_num = 0; - cdat->dobj_899.obj_hash = 850829979; + cdat->dobj_899.obj_hash = 599813209; cdat->dobj_899.obj_len = 2; /*^iniobj*/ @@ -8558,7 +8558,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_900", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_900.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_900.obj_num = 1; - cdat->dobj_900.obj_hash = 652671895; + cdat->dobj_900.obj_hash = 483721015; cdat->dobj_900.obj_len = 2; /*inistring dstr_901__meltgc_new_stri*/ @@ -8600,7 +8600,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_907__MAKE_STRING_NAKEDBASENAME", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_907__MAKE_STRING_NAKEDBASENAME", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->object_magic == OBMAG_OBJECT); cdat->dobj_907__MAKE_STRING_NAKEDBASENAME.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_907__MAKE_STRING_NAKEDBASENAME.obj_hash = 857150050; + cdat->dobj_907__MAKE_STRING_NAKEDBASENAME.obj_hash = 439654042; cdat->dobj_907__MAKE_STRING_NAKEDBASENAME.obj_len = 5; /*inimult dtup_908__MAKE_STRING_NAKEDBASENAME*/ @@ -8618,7 +8618,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_910", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_910.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_910.obj_num = 0; - cdat->dobj_910.obj_hash = 633713342; + cdat->dobj_910.obj_hash = 1027282490; cdat->dobj_910.obj_len = 2; /*^iniobj*/ @@ -8628,7 +8628,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_911", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_911.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_911.obj_num = 1; - cdat->dobj_911.obj_hash = 871768596; + cdat->dobj_911.obj_hash = 12498187; cdat->dobj_911.obj_len = 2; /*inistring dstr_912__meltgc_new_stri*/ @@ -8670,7 +8670,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_918__MAKE_STRING_TEMPNAME_SUFFIXED", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_918__MAKE_STRING_TEMPNAME_SUFFIXED", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->object_magic == OBMAG_OBJECT); cdat->dobj_918__MAKE_STRING_TEMPNAME_SUFFIXED.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_918__MAKE_STRING_TEMPNAME_SUFFIXED.obj_hash = 780810690; + cdat->dobj_918__MAKE_STRING_TEMPNAME_SUFFIXED.obj_hash = 364075444; cdat->dobj_918__MAKE_STRING_TEMPNAME_SUFFIXED.obj_len = 5; /*inimult dtup_919__MAKE_STRING_TEMPNAME_SUFFIXED*/ @@ -8688,7 +8688,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_921", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_921.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_921.obj_num = 0; - cdat->dobj_921.obj_hash = 863156716; + cdat->dobj_921.obj_hash = 118399438; cdat->dobj_921.obj_len = 2; /*^iniobj*/ @@ -8698,7 +8698,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_922", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_922.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_922.obj_num = 1; - cdat->dobj_922.obj_hash = 6407603; + cdat->dobj_922.obj_hash = 1002251275; cdat->dobj_922.obj_len = 2; /*iniobj dsym_923__SUFF*/ @@ -8721,7 +8721,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_925", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_925.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_925.obj_num = 2; - cdat->dobj_925.obj_hash = 926096507; + cdat->dobj_925.obj_hash = 1016336063; cdat->dobj_925.obj_len = 2; /*inistring dstr_926__meltgc_new_stri*/ @@ -8768,7 +8768,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_933__LOAD_MELT_MODULE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_933__LOAD_MELT_MODULE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->object_magic == OBMAG_OBJECT); cdat->dobj_933__LOAD_MELT_MODULE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_933__LOAD_MELT_MODULE.obj_hash = 196203045; + cdat->dobj_933__LOAD_MELT_MODULE.obj_hash = 557246393; cdat->dobj_933__LOAD_MELT_MODULE.obj_len = 5; /*inimult dtup_934__LOAD_MELT_MODULE*/ @@ -8799,7 +8799,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_938", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_938.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_938.obj_num = 0; - cdat->dobj_938.obj_hash = 127585444; + cdat->dobj_938.obj_hash = 964229624; cdat->dobj_938.obj_len = 2; /*^iniobj*/ @@ -8809,7 +8809,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_939", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_939.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_939.obj_num = 1; - cdat->dobj_939.obj_hash = 156447905; + cdat->dobj_939.obj_hash = 590524665; cdat->dobj_939.obj_len = 2; /*inistring dstr_940__meltgc_load_mel*/ @@ -8851,7 +8851,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_946__GENERATE_MELT_MODULE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_946__GENERATE_MELT_MODULE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->object_magic == OBMAG_OBJECT); cdat->dobj_946__GENERATE_MELT_MODULE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_946__GENERATE_MELT_MODULE.obj_hash = 736612825; + cdat->dobj_946__GENERATE_MELT_MODULE.obj_hash = 311550497; cdat->dobj_946__GENERATE_MELT_MODULE.obj_len = 5; /*inimult dtup_947__GENERATE_MELT_MODULE*/ @@ -8882,7 +8882,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_951", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_951.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_951.obj_num = 0; - cdat->dobj_951.obj_hash = 546954388; + cdat->dobj_951.obj_hash = 1001642346; cdat->dobj_951.obj_len = 2; /*iniobj dsym_952__OUTNAM*/ @@ -8905,7 +8905,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_954", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_954.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_954.obj_num = 1; - cdat->dobj_954.obj_hash = 524170004; + cdat->dobj_954.obj_hash = 706078468; cdat->dobj_954.obj_len = 2; /*inistring dstr_955__meltgc_generate_*/ @@ -8947,7 +8947,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_961__OBJECT_LENGTH", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_961__OBJECT_LENGTH", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->object_magic == OBMAG_OBJECT); cdat->dobj_961__OBJECT_LENGTH.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_961__OBJECT_LENGTH.obj_hash = 770067183; + cdat->dobj_961__OBJECT_LENGTH.obj_hash = 177789321; cdat->dobj_961__OBJECT_LENGTH.obj_len = 5; /*inimult dtup_962__OBJECT_LENGTH*/ @@ -8978,7 +8978,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_966", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_966.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_966.obj_num = 0; - cdat->dobj_966.obj_hash = 57791825; + cdat->dobj_966.obj_hash = 306565595; cdat->dobj_966.obj_len = 2; /*inistring dstr_967__long_melt_obje*/ @@ -9015,7 +9015,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_972__OBJECT_NTH_FIELD", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_972__OBJECT_NTH_FIELD", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->object_magic == OBMAG_OBJECT); cdat->dobj_972__OBJECT_NTH_FIELD.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_972__OBJECT_NTH_FIELD.obj_hash = 371651818; + cdat->dobj_972__OBJECT_NTH_FIELD.obj_hash = 464684860; cdat->dobj_972__OBJECT_NTH_FIELD.obj_len = 5; /*inimult dtup_973__OBJECT_NTH_FIELD*/ @@ -9033,7 +9033,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_975", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_975.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_975.obj_num = 0; - cdat->dobj_975.obj_hash = 986928428; + cdat->dobj_975.obj_hash = 5917930; cdat->dobj_975.obj_len = 2; /*^iniobj*/ @@ -9043,7 +9043,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_976", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_976.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_976.obj_num = 1; - cdat->dobj_976.obj_hash = 462378358; + cdat->dobj_976.obj_hash = 462771445; cdat->dobj_976.obj_len = 2; /*inistring dstr_977__melt_field_obje*/ @@ -9085,7 +9085,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_983__SUBCLASS_OF", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_983__SUBCLASS_OF", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->object_magic == OBMAG_OBJECT); cdat->dobj_983__SUBCLASS_OF.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_983__SUBCLASS_OF.obj_hash = 439508834; + cdat->dobj_983__SUBCLASS_OF.obj_hash = 109504661; cdat->dobj_983__SUBCLASS_OF.obj_len = 5; /*inimult dtup_984__SUBCLASS_OF*/ @@ -9116,7 +9116,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_988", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_988.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_988.obj_num = 0; - cdat->dobj_988.obj_hash = 622726224; + cdat->dobj_988.obj_hash = 330352965; cdat->dobj_988.obj_len = 2; /*iniobj dsym_989__CL2*/ @@ -9139,7 +9139,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_991", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_991.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_991.obj_num = 1; - cdat->dobj_991.obj_hash = 4753296; + cdat->dobj_991.obj_hash = 255787312; cdat->dobj_991.obj_len = 2; /*inistring dstr_992__melt_is_subclass*/ @@ -9181,7 +9181,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_998__SUBCLASS_OR_EQ", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_998__SUBCLASS_OR_EQ", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->object_magic == OBMAG_OBJECT); cdat->dobj_998__SUBCLASS_OR_EQ.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_998__SUBCLASS_OR_EQ.obj_hash = 330935240; + cdat->dobj_998__SUBCLASS_OR_EQ.obj_hash = 337034591; cdat->dobj_998__SUBCLASS_OR_EQ.obj_len = 5; /*inimult dtup_999__SUBCLASS_OR_EQ*/ @@ -9199,7 +9199,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1001", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1001.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1001.obj_num = 0; - cdat->dobj_1001.obj_hash = 813479895; + cdat->dobj_1001.obj_hash = 1030453077; cdat->dobj_1001.obj_len = 2; /*^iniobj*/ @@ -9209,7 +9209,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1002", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1002.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1002.obj_num = 1; - cdat->dobj_1002.obj_hash = 573261776; + cdat->dobj_1002.obj_hash = 110114054; cdat->dobj_1002.obj_len = 2; /*inistring dstr_1003__*/ @@ -9261,7 +9261,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1011__IS_MULTIPLE_OR_NULL", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1011__IS_MULTIPLE_OR_NULL", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1011__IS_MULTIPLE_OR_NULL.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_1011__IS_MULTIPLE_OR_NULL.obj_hash = 999631252; + cdat->dobj_1011__IS_MULTIPLE_OR_NULL.obj_hash = 788407778; cdat->dobj_1011__IS_MULTIPLE_OR_NULL.obj_len = 5; /*inimult dtup_1012__IS_MULTIPLE_OR_NULL*/ @@ -9292,7 +9292,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1016", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1016.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1016.obj_num = 0; - cdat->dobj_1016.obj_hash = 867545725; + cdat->dobj_1016.obj_hash = 808189463; cdat->dobj_1016.obj_len = 2; /*inistring dstr_1017__*/ @@ -9334,7 +9334,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1023__SUBSEQ_MULTIPLE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1023__SUBSEQ_MULTIPLE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1023__SUBSEQ_MULTIPLE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_1023__SUBSEQ_MULTIPLE.obj_hash = 21088664; + cdat->dobj_1023__SUBSEQ_MULTIPLE.obj_hash = 41743231; cdat->dobj_1023__SUBSEQ_MULTIPLE.obj_len = 5; /*inimult dtup_1024__SUBSEQ_MULTIPLE*/ @@ -9352,7 +9352,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1026", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1026.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1026.obj_num = 0; - cdat->dobj_1026.obj_hash = 1018399245; + cdat->dobj_1026.obj_hash = 427438979; cdat->dobj_1026.obj_len = 2; /*iniobj dsym_1027__STARTIX*/ @@ -9375,7 +9375,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1029", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1029.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1029.obj_num = 1; - cdat->dobj_1029.obj_hash = 287782560; + cdat->dobj_1029.obj_hash = 276575718; cdat->dobj_1029.obj_len = 2; /*iniobj dsym_1030__ENDIX*/ @@ -9398,7 +9398,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1032", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1032.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1032.obj_num = 2; - cdat->dobj_1032.obj_hash = 345013364; + cdat->dobj_1032.obj_hash = 603668146; cdat->dobj_1032.obj_len = 2; /*inistring dstr_1033__meltgc_new_subs*/ @@ -9432,7 +9432,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1038__TUPLE_NTH", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_CMATCHER)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1038__TUPLE_NTH", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CMATCHER)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1038__TUPLE_NTH.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CMATCHER)))); - cdat->dobj_1038__TUPLE_NTH.obj_hash = 128683855; + cdat->dobj_1038__TUPLE_NTH.obj_hash = 449122823; cdat->dobj_1038__TUPLE_NTH.obj_len = 9; /*inistring dstr_1039__TUPLE_NTH*/ @@ -9460,7 +9460,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1042", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1042.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1042.obj_num = 0; - cdat->dobj_1042.obj_hash = 217846026; + cdat->dobj_1042.obj_hash = 966555027; cdat->dobj_1042.obj_len = 2; /*inimult dtup_1043__TUPLE_NTH*/ @@ -9486,7 +9486,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1046", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1046", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1046.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); - cdat->dobj_1046.obj_hash = 310326182; + cdat->dobj_1046.obj_hash = 655987770; cdat->dobj_1046.obj_len = 2; /*iniobj dsym_1047__OUTCOMP*/ @@ -9509,7 +9509,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1049", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1049.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1049.obj_num = 0; - cdat->dobj_1049.obj_hash = 905650464; + cdat->dobj_1049.obj_hash = 673242737; cdat->dobj_1049.obj_len = 2; /*inimult dtup_1050__TUPLE_NTH*/ @@ -9588,7 +9588,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1064__TUPLE_SIZED", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_CMATCHER)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1064__TUPLE_SIZED", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CMATCHER)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1064__TUPLE_SIZED.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CMATCHER)))); - cdat->dobj_1064__TUPLE_SIZED.obj_hash = 253083307; + cdat->dobj_1064__TUPLE_SIZED.obj_hash = 131038890; cdat->dobj_1064__TUPLE_SIZED.obj_len = 9; /*inistring dstr_1065__TUPLE_SIZED*/ @@ -9616,7 +9616,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1068", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1068.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1068.obj_num = 0; - cdat->dobj_1068.obj_hash = 775415537; + cdat->dobj_1068.obj_hash = 457162913; cdat->dobj_1068.obj_len = 2; /*inimult dtup_1069__TUPLE_SIZED*/ @@ -9642,7 +9642,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1072", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1072", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1072.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); - cdat->dobj_1072.obj_hash = 154673603; + cdat->dobj_1072.obj_hash = 968454996; cdat->dobj_1072.obj_len = 2; /*inimult dtup_1073__TUPLE_SIZED*/ @@ -9755,7 +9755,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1092__IS_OUT", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1092__IS_OUT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1092__IS_OUT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_1092__IS_OUT.obj_hash = 437754236; + cdat->dobj_1092__IS_OUT.obj_hash = 568509241; cdat->dobj_1092__IS_OUT.obj_len = 5; /*inimult dtup_1093__IS_OUT*/ @@ -9773,7 +9773,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1095", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1095.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1095.obj_num = 0; - cdat->dobj_1095.obj_hash = 262825194; + cdat->dobj_1095.obj_hash = 672175809; cdat->dobj_1095.obj_len = 2; /*inistring dstr_1096__melt_is_out_*/ @@ -9810,7 +9810,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1101__ADD2SBUF_STRCONST", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1101__ADD2SBUF_STRCONST", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1101__ADD2SBUF_STRCONST.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_1101__ADD2SBUF_STRCONST.obj_hash = 35988942; + cdat->dobj_1101__ADD2SBUF_STRCONST.obj_hash = 907649600; cdat->dobj_1101__ADD2SBUF_STRCONST.obj_len = 5; /*inimult dtup_1102__ADD2SBUF_STRCONST*/ @@ -9828,7 +9828,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1104", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1104.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1104.obj_num = 0; - cdat->dobj_1104.obj_hash = 563188741; + cdat->dobj_1104.obj_hash = 837337149; cdat->dobj_1104.obj_len = 2; /*^iniobj*/ @@ -9838,7 +9838,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1105", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1105.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1105.obj_num = 1; - cdat->dobj_1105.obj_hash = 946192209; + cdat->dobj_1105.obj_hash = 390882720; cdat->dobj_1105.obj_len = 2; /*inistring dstr_1106__meltgc_add_strbu*/ @@ -9880,7 +9880,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1112__ADD2SBUF_STRING", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1112__ADD2SBUF_STRING", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1112__ADD2SBUF_STRING.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_1112__ADD2SBUF_STRING.obj_hash = 559209349; + cdat->dobj_1112__ADD2SBUF_STRING.obj_hash = 597083146; cdat->dobj_1112__ADD2SBUF_STRING.obj_len = 5; /*inimult dtup_1113__ADD2SBUF_STRING*/ @@ -9898,7 +9898,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1115", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1115.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1115.obj_num = 0; - cdat->dobj_1115.obj_hash = 985425133; + cdat->dobj_1115.obj_hash = 12868689; cdat->dobj_1115.obj_len = 2; /*^iniobj*/ @@ -9908,7 +9908,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1116", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1116.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1116.obj_num = 1; - cdat->dobj_1116.obj_hash = 970490957; + cdat->dobj_1116.obj_hash = 190560520; cdat->dobj_1116.obj_len = 2; /*inistring dstr_1117__meltgc_add_strbu*/ @@ -9950,7 +9950,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1123__ADD2SBUF_MIXLOC", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1123__ADD2SBUF_MIXLOC", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1123__ADD2SBUF_MIXLOC.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_1123__ADD2SBUF_MIXLOC.obj_hash = 315805570; + cdat->dobj_1123__ADD2SBUF_MIXLOC.obj_hash = 255134386; cdat->dobj_1123__ADD2SBUF_MIXLOC.obj_len = 5; /*inimult dtup_1124__ADD2SBUF_MIXLOC*/ @@ -9968,7 +9968,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1126", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1126.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1126.obj_num = 0; - cdat->dobj_1126.obj_hash = 880961123; + cdat->dobj_1126.obj_hash = 544859322; cdat->dobj_1126.obj_len = 2; /*iniobj dsym_1127__MIXL*/ @@ -9991,7 +9991,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1129", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1129.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1129.obj_num = 1; - cdat->dobj_1129.obj_hash = 168656131; + cdat->dobj_1129.obj_hash = 473171268; cdat->dobj_1129.obj_len = 2; /*inistring dstr_1130__add2sbufmixloc*/ @@ -10038,7 +10038,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1137__ADD2SBUF_SHORT_MIXLOC", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1137__ADD2SBUF_SHORT_MIXLOC", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1137__ADD2SBUF_SHORT_MIXLOC.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_1137__ADD2SBUF_SHORT_MIXLOC.obj_hash = 162481097; + cdat->dobj_1137__ADD2SBUF_SHORT_MIXLOC.obj_hash = 1052489629; cdat->dobj_1137__ADD2SBUF_SHORT_MIXLOC.obj_len = 5; /*inimult dtup_1138__ADD2SBUF_SHORT_MIXLOC*/ @@ -10056,7 +10056,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1140", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1140.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1140.obj_num = 0; - cdat->dobj_1140.obj_hash = 717246607; + cdat->dobj_1140.obj_hash = 186104758; cdat->dobj_1140.obj_len = 2; /*^iniobj*/ @@ -10066,7 +10066,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1141", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1141.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1141.obj_num = 1; - cdat->dobj_1141.obj_hash = 87258558; + cdat->dobj_1141.obj_hash = 198711626; cdat->dobj_1141.obj_len = 2; /*inistring dstr_1142__add2sbufshortm*/ @@ -10113,7 +10113,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1149__ADD2SBUF_TEXI_MIXLOC", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1149__ADD2SBUF_TEXI_MIXLOC", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1149__ADD2SBUF_TEXI_MIXLOC.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_1149__ADD2SBUF_TEXI_MIXLOC.obj_hash = 671723067; + cdat->dobj_1149__ADD2SBUF_TEXI_MIXLOC.obj_hash = 1021983571; cdat->dobj_1149__ADD2SBUF_TEXI_MIXLOC.obj_len = 5; /*inimult dtup_1150__ADD2SBUF_TEXI_MIXLOC*/ @@ -10131,7 +10131,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1152", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1152.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1152.obj_num = 0; - cdat->dobj_1152.obj_hash = 309084858; + cdat->dobj_1152.obj_hash = 631713211; cdat->dobj_1152.obj_len = 2; /*^iniobj*/ @@ -10141,7 +10141,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1153", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1153.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1153.obj_num = 1; - cdat->dobj_1153.obj_hash = 834853233; + cdat->dobj_1153.obj_hash = 533566383; cdat->dobj_1153.obj_len = 2; /*inistring dstr_1154__add2sbufteximi*/ @@ -10188,7 +10188,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1161__ADD2SBUF_INDENT", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1161__ADD2SBUF_INDENT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1161__ADD2SBUF_INDENT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_1161__ADD2SBUF_INDENT.obj_hash = 241300536; + cdat->dobj_1161__ADD2SBUF_INDENT.obj_hash = 676484099; cdat->dobj_1161__ADD2SBUF_INDENT.obj_len = 5; /*inimult dtup_1162__ADD2SBUF_INDENT*/ @@ -10206,7 +10206,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1164", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1164.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1164.obj_num = 0; - cdat->dobj_1164.obj_hash = 352414109; + cdat->dobj_1164.obj_hash = 225372148; cdat->dobj_1164.obj_len = 2; /*iniobj dsym_1165__DEPTH*/ @@ -10229,7 +10229,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1167", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1167.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1167.obj_num = 1; - cdat->dobj_1167.obj_hash = 346582506; + cdat->dobj_1167.obj_hash = 453836601; cdat->dobj_1167.obj_len = 2; /*inistring dstr_1168__meltgc_strbuf_ad*/ @@ -10271,7 +10271,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1174__ADD2SBUF_INDENTNL", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1174__ADD2SBUF_INDENTNL", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1174__ADD2SBUF_INDENTNL.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_1174__ADD2SBUF_INDENTNL.obj_hash = 403283474; + cdat->dobj_1174__ADD2SBUF_INDENTNL.obj_hash = 870462191; cdat->dobj_1174__ADD2SBUF_INDENTNL.obj_len = 5; /*inimult dtup_1175__ADD2SBUF_INDENTNL*/ @@ -10289,7 +10289,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1177", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1177.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1177.obj_num = 0; - cdat->dobj_1177.obj_hash = 78720563; + cdat->dobj_1177.obj_hash = 1065283931; cdat->dobj_1177.obj_len = 2; /*^iniobj*/ @@ -10299,7 +10299,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1178", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1178.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1178.obj_num = 1; - cdat->dobj_1178.obj_hash = 114688159; + cdat->dobj_1178.obj_hash = 246138316; cdat->dobj_1178.obj_len = 2; /*inistring dstr_1179__meltgc_strbuf_ad*/ @@ -10341,7 +10341,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1185__ADD2SBUF_SBUF", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1185__ADD2SBUF_SBUF", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1185__ADD2SBUF_SBUF.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_1185__ADD2SBUF_SBUF.obj_hash = 403492512; + cdat->dobj_1185__ADD2SBUF_SBUF.obj_hash = 621914657; cdat->dobj_1185__ADD2SBUF_SBUF.obj_len = 5; /*inimult dtup_1186__ADD2SBUF_SBUF*/ @@ -10359,7 +10359,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1188", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1188.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1188.obj_num = 0; - cdat->dobj_1188.obj_hash = 877966927; + cdat->dobj_1188.obj_hash = 33877536; cdat->dobj_1188.obj_len = 2; /*iniobj dsym_1189__ASBUF*/ @@ -10382,7 +10382,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1191", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1191.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1191.obj_num = 1; - cdat->dobj_1191.obj_hash = 129526845; + cdat->dobj_1191.obj_hash = 771549013; cdat->dobj_1191.obj_len = 2; /*inistring dstr_1192__meltgc_add_strbu*/ @@ -10424,7 +10424,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1198__ADD2SBUF_CENCSTRING", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1198__ADD2SBUF_CENCSTRING", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1198__ADD2SBUF_CENCSTRING.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_1198__ADD2SBUF_CENCSTRING.obj_hash = 48637521; + cdat->dobj_1198__ADD2SBUF_CENCSTRING.obj_hash = 593405892; cdat->dobj_1198__ADD2SBUF_CENCSTRING.obj_len = 5; /*inimult dtup_1199__ADD2SBUF_CENCSTRING*/ @@ -10442,7 +10442,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1201", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1201.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1201.obj_num = 0; - cdat->dobj_1201.obj_hash = 231665306; + cdat->dobj_1201.obj_hash = 637708577; cdat->dobj_1201.obj_len = 2; /*^iniobj*/ @@ -10452,7 +10452,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1202", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1202.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1202.obj_num = 1; - cdat->dobj_1202.obj_hash = 883864527; + cdat->dobj_1202.obj_hash = 516487174; cdat->dobj_1202.obj_len = 2; /*inistring dstr_1203__meltgc_add_strbu*/ @@ -10494,7 +10494,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1209__ADD2SBUF_CENCSTRBUF", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1209__ADD2SBUF_CENCSTRBUF", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1209__ADD2SBUF_CENCSTRBUF.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_1209__ADD2SBUF_CENCSTRBUF.obj_hash = 821605661; + cdat->dobj_1209__ADD2SBUF_CENCSTRBUF.obj_hash = 1059796462; cdat->dobj_1209__ADD2SBUF_CENCSTRBUF.obj_len = 5; /*inimult dtup_1210__ADD2SBUF_CENCSTRBUF*/ @@ -10512,7 +10512,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1212", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1212.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1212.obj_num = 0; - cdat->dobj_1212.obj_hash = 173034764; + cdat->dobj_1212.obj_hash = 279880497; cdat->dobj_1212.obj_len = 2; /*^iniobj*/ @@ -10522,7 +10522,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1213", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1213.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1213.obj_num = 1; - cdat->dobj_1213.obj_hash = 659369489; + cdat->dobj_1213.obj_hash = 249268956; cdat->dobj_1213.obj_len = 2; /*inistring dstr_1214__meltgc_add_strbu*/ @@ -10564,7 +10564,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1220__ADD2SBUF_CCOMSTRING", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1220__ADD2SBUF_CCOMSTRING", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1220__ADD2SBUF_CCOMSTRING.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_1220__ADD2SBUF_CCOMSTRING.obj_hash = 848379847; + cdat->dobj_1220__ADD2SBUF_CCOMSTRING.obj_hash = 659566226; cdat->dobj_1220__ADD2SBUF_CCOMSTRING.obj_len = 5; /*inimult dtup_1221__ADD2SBUF_CCOMSTRING*/ @@ -10582,7 +10582,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1223", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1223.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1223.obj_num = 0; - cdat->dobj_1223.obj_hash = 210597926; + cdat->dobj_1223.obj_hash = 344319278; cdat->dobj_1223.obj_len = 2; /*^iniobj*/ @@ -10592,7 +10592,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1224", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1224.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1224.obj_num = 1; - cdat->dobj_1224.obj_hash = 585184528; + cdat->dobj_1224.obj_hash = 681062605; cdat->dobj_1224.obj_len = 2; /*inistring dstr_1225__meltgc_add_strbu*/ @@ -10634,7 +10634,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1231__ADD2SBUF_CCOMSTRBUF", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1231__ADD2SBUF_CCOMSTRBUF", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1231__ADD2SBUF_CCOMSTRBUF.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_1231__ADD2SBUF_CCOMSTRBUF.obj_hash = 56480007; + cdat->dobj_1231__ADD2SBUF_CCOMSTRBUF.obj_hash = 116572823; cdat->dobj_1231__ADD2SBUF_CCOMSTRBUF.obj_len = 5; /*inimult dtup_1232__ADD2SBUF_CCOMSTRBUF*/ @@ -10652,7 +10652,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1234", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1234.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1234.obj_num = 0; - cdat->dobj_1234.obj_hash = 1019250318; + cdat->dobj_1234.obj_hash = 462432185; cdat->dobj_1234.obj_len = 2; /*^iniobj*/ @@ -10662,7 +10662,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1235", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1235.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1235.obj_num = 1; - cdat->dobj_1235.obj_hash = 181115264; + cdat->dobj_1235.obj_hash = 630079040; cdat->dobj_1235.obj_len = 2; /*inistring dstr_1236__meltgc_add_strbu*/ @@ -10704,7 +10704,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1242__ADD2SBUF_CCOMCONST", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1242__ADD2SBUF_CCOMCONST", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1242__ADD2SBUF_CCOMCONST.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_1242__ADD2SBUF_CCOMCONST.obj_hash = 113627344; + cdat->dobj_1242__ADD2SBUF_CCOMCONST.obj_hash = 469275189; cdat->dobj_1242__ADD2SBUF_CCOMCONST.obj_len = 5; /*inimult dtup_1243__ADD2SBUF_CCOMCONST*/ @@ -10722,7 +10722,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1245", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1245.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1245.obj_num = 0; - cdat->dobj_1245.obj_hash = 377438575; + cdat->dobj_1245.obj_hash = 162231252; cdat->dobj_1245.obj_len = 2; /*iniobj dsym_1246__CSTR*/ @@ -10745,7 +10745,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1248", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1248.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1248.obj_num = 1; - cdat->dobj_1248.obj_hash = 762567545; + cdat->dobj_1248.obj_hash = 443745830; cdat->dobj_1248.obj_len = 2; /*inistring dstr_1249__meltgc_add_strbu*/ @@ -10787,7 +10787,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1255__ADD2SBUF_CIDENT", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1255__ADD2SBUF_CIDENT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1255__ADD2SBUF_CIDENT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_1255__ADD2SBUF_CIDENT.obj_hash = 659397404; + cdat->dobj_1255__ADD2SBUF_CIDENT.obj_hash = 228187476; cdat->dobj_1255__ADD2SBUF_CIDENT.obj_len = 5; /*inimult dtup_1256__ADD2SBUF_CIDENT*/ @@ -10805,7 +10805,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1258", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1258.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1258.obj_num = 0; - cdat->dobj_1258.obj_hash = 272116203; + cdat->dobj_1258.obj_hash = 758370399; cdat->dobj_1258.obj_len = 2; /*^iniobj*/ @@ -10815,7 +10815,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1259", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1259.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1259.obj_num = 1; - cdat->dobj_1259.obj_hash = 269665287; + cdat->dobj_1259.obj_hash = 356617132; cdat->dobj_1259.obj_len = 2; /*inistring dstr_1260__meltgc_add_strbu*/ @@ -10857,7 +10857,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1266__ADD2SBUF_CIDENTPREFIX", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1266__ADD2SBUF_CIDENTPREFIX", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1266__ADD2SBUF_CIDENTPREFIX.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_1266__ADD2SBUF_CIDENTPREFIX.obj_hash = 172359804; + cdat->dobj_1266__ADD2SBUF_CIDENTPREFIX.obj_hash = 673246024; cdat->dobj_1266__ADD2SBUF_CIDENTPREFIX.obj_len = 5; /*inimult dtup_1267__ADD2SBUF_CIDENTPREFIX*/ @@ -10875,7 +10875,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1269", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1269.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1269.obj_num = 0; - cdat->dobj_1269.obj_hash = 624015795; + cdat->dobj_1269.obj_hash = 578831441; cdat->dobj_1269.obj_len = 2; /*^iniobj*/ @@ -10885,7 +10885,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1270", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1270.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1270.obj_num = 1; - cdat->dobj_1270.obj_hash = 913988367; + cdat->dobj_1270.obj_hash = 755238631; cdat->dobj_1270.obj_len = 2; /*iniobj dsym_1271__PREFLEN*/ @@ -10908,7 +10908,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1273", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1273.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1273.obj_num = 2; - cdat->dobj_1273.obj_hash = 535002954; + cdat->dobj_1273.obj_hash = 223977839; cdat->dobj_1273.obj_len = 2; /*inistring dstr_1274__meltgc_add_strbu*/ @@ -10955,7 +10955,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1281__ADD2SBUF_LONGDEC", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1281__ADD2SBUF_LONGDEC", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1281__ADD2SBUF_LONGDEC.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_1281__ADD2SBUF_LONGDEC.obj_hash = 368563564; + cdat->dobj_1281__ADD2SBUF_LONGDEC.obj_hash = 410763334; cdat->dobj_1281__ADD2SBUF_LONGDEC.obj_len = 5; /*inimult dtup_1282__ADD2SBUF_LONGDEC*/ @@ -10973,7 +10973,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1284", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1284.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1284.obj_num = 0; - cdat->dobj_1284.obj_hash = 577058065; + cdat->dobj_1284.obj_hash = 144555761; cdat->dobj_1284.obj_len = 2; /*^iniobj*/ @@ -10983,7 +10983,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1285", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1285.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1285.obj_num = 1; - cdat->dobj_1285.obj_hash = 381376637; + cdat->dobj_1285.obj_hash = 517350172; cdat->dobj_1285.obj_len = 2; /*inistring dstr_1286__meltgc_add_strbu*/ @@ -11025,7 +11025,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1292__ADD2SBUF_LONGHEX", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1292__ADD2SBUF_LONGHEX", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1292__ADD2SBUF_LONGHEX.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_1292__ADD2SBUF_LONGHEX.obj_hash = 875616860; + cdat->dobj_1292__ADD2SBUF_LONGHEX.obj_hash = 848302994; cdat->dobj_1292__ADD2SBUF_LONGHEX.obj_len = 5; /*inimult dtup_1293__ADD2SBUF_LONGHEX*/ @@ -11043,7 +11043,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1295", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1295.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1295.obj_num = 0; - cdat->dobj_1295.obj_hash = 912206125; + cdat->dobj_1295.obj_hash = 728888156; cdat->dobj_1295.obj_len = 2; /*^iniobj*/ @@ -11053,7 +11053,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1296", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1296.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1296.obj_num = 1; - cdat->dobj_1296.obj_hash = 103467343; + cdat->dobj_1296.obj_hash = 954134740; cdat->dobj_1296.obj_len = 2; /*inistring dstr_1297__meltgc_add_strbu*/ @@ -11095,7 +11095,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1303__ADD2SBUF_ROUTINEDESCR", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1303__ADD2SBUF_ROUTINEDESCR", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1303__ADD2SBUF_ROUTINEDESCR.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_1303__ADD2SBUF_ROUTINEDESCR.obj_hash = 760865963; + cdat->dobj_1303__ADD2SBUF_ROUTINEDESCR.obj_hash = 757320480; cdat->dobj_1303__ADD2SBUF_ROUTINEDESCR.obj_len = 5; /*inimult dtup_1304__ADD2SBUF_ROUTINEDESCR*/ @@ -11113,7 +11113,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1306", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1306.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1306.obj_num = 0; - cdat->dobj_1306.obj_hash = 406071180; + cdat->dobj_1306.obj_hash = 687914301; cdat->dobj_1306.obj_len = 2; /*iniobj dsym_1307__ROUT*/ @@ -11136,7 +11136,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1309", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1309.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1309.obj_num = 1; - cdat->dobj_1309.obj_hash = 516325961; + cdat->dobj_1309.obj_hash = 336267508; cdat->dobj_1309.obj_len = 2; /*inistring dstr_1310__meltgc_add_strbu*/ @@ -11178,7 +11178,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1316__OUTPUT_SBUF_STRCONST", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1316__OUTPUT_SBUF_STRCONST", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1316__OUTPUT_SBUF_STRCONST.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_1316__OUTPUT_SBUF_STRCONST.obj_hash = 636475851; + cdat->dobj_1316__OUTPUT_SBUF_STRCONST.obj_hash = 649921199; cdat->dobj_1316__OUTPUT_SBUF_STRCONST.obj_len = 5; /*inimult dtup_1317__OUTPUT_SBUF_STRCONST*/ @@ -11196,7 +11196,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1319", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1319.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1319.obj_num = 0; - cdat->dobj_1319.obj_hash = 78646332; + cdat->dobj_1319.obj_hash = 90703958; cdat->dobj_1319.obj_len = 2; /*iniobj dsym_1320__NAM*/ @@ -11219,7 +11219,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1322", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1322.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1322.obj_num = 1; - cdat->dobj_1322.obj_hash = 461982245; + cdat->dobj_1322.obj_hash = 713463379; cdat->dobj_1322.obj_len = 2; /*inistring dstr_1323__melt_output_str*/ @@ -11261,7 +11261,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1329__OUTPUT_SBUF_STRVAL", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1329__OUTPUT_SBUF_STRVAL", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1329__OUTPUT_SBUF_STRVAL.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_1329__OUTPUT_SBUF_STRVAL.obj_hash = 475501736; + cdat->dobj_1329__OUTPUT_SBUF_STRVAL.obj_hash = 778861075; cdat->dobj_1329__OUTPUT_SBUF_STRVAL.obj_len = 5; /*inimult dtup_1330__OUTPUT_SBUF_STRVAL*/ @@ -11279,7 +11279,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1332", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1332.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1332.obj_num = 0; - cdat->dobj_1332.obj_hash = 471025405; + cdat->dobj_1332.obj_hash = 777108950; cdat->dobj_1332.obj_len = 2; /*iniobj dsym_1333__VNAM*/ @@ -11302,7 +11302,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1335", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1335.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1335.obj_num = 1; - cdat->dobj_1335.obj_hash = 193845107; + cdat->dobj_1335.obj_hash = 600422590; cdat->dobj_1335.obj_len = 2; /*inistring dstr_1336__melt_output_str*/ @@ -11344,7 +11344,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1342__ADD2OUT_STRCONST", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1342__ADD2OUT_STRCONST", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1342__ADD2OUT_STRCONST.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_1342__ADD2OUT_STRCONST.obj_hash = 899333929; + cdat->dobj_1342__ADD2OUT_STRCONST.obj_hash = 287432578; cdat->dobj_1342__ADD2OUT_STRCONST.obj_len = 5; /*inimult dtup_1343__ADD2OUT_STRCONST*/ @@ -11375,7 +11375,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1347", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1347.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1347.obj_num = 0; - cdat->dobj_1347.obj_hash = 649966914; + cdat->dobj_1347.obj_hash = 540688577; cdat->dobj_1347.obj_len = 2; /*^iniobj*/ @@ -11385,7 +11385,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1348", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1348.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1348.obj_num = 1; - cdat->dobj_1348.obj_hash = 428144039; + cdat->dobj_1348.obj_hash = 569500133; cdat->dobj_1348.obj_len = 2; /*inistring dstr_1349__meltgc_add_out_*/ @@ -11427,7 +11427,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1355__ADD2OUT_STRING", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1355__ADD2OUT_STRING", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1355__ADD2OUT_STRING.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_1355__ADD2OUT_STRING.obj_hash = 217171248; + cdat->dobj_1355__ADD2OUT_STRING.obj_hash = 459541295; cdat->dobj_1355__ADD2OUT_STRING.obj_len = 5; /*inimult dtup_1356__ADD2OUT_STRING*/ @@ -11445,7 +11445,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1358", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1358.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1358.obj_num = 0; - cdat->dobj_1358.obj_hash = 649002624; + cdat->dobj_1358.obj_hash = 541050394; cdat->dobj_1358.obj_len = 2; /*^iniobj*/ @@ -11455,7 +11455,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1359", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1359.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1359.obj_num = 1; - cdat->dobj_1359.obj_hash = 316518201; + cdat->dobj_1359.obj_hash = 756542405; cdat->dobj_1359.obj_len = 2; /*inistring dstr_1360__meltgc_add_out_*/ @@ -11497,7 +11497,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1366__ADD2OUT_MIXLOC", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1366__ADD2OUT_MIXLOC", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1366__ADD2OUT_MIXLOC.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_1366__ADD2OUT_MIXLOC.obj_hash = 399703568; + cdat->dobj_1366__ADD2OUT_MIXLOC.obj_hash = 70475498; cdat->dobj_1366__ADD2OUT_MIXLOC.obj_len = 5; /*inimult dtup_1367__ADD2OUT_MIXLOC*/ @@ -11515,7 +11515,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1369", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1369.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1369.obj_num = 0; - cdat->dobj_1369.obj_hash = 516332997; + cdat->dobj_1369.obj_hash = 943413261; cdat->dobj_1369.obj_len = 2; /*^iniobj*/ @@ -11525,7 +11525,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1370", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1370.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1370.obj_num = 1; - cdat->dobj_1370.obj_hash = 624137258; + cdat->dobj_1370.obj_hash = 460543207; cdat->dobj_1370.obj_len = 2; /*inistring dstr_1371__add2outmixloc_*/ @@ -11572,7 +11572,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1378__ADD2OUT_INDENT", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1378__ADD2OUT_INDENT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1378__ADD2OUT_INDENT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_1378__ADD2OUT_INDENT.obj_hash = 994666120; + cdat->dobj_1378__ADD2OUT_INDENT.obj_hash = 244497321; cdat->dobj_1378__ADD2OUT_INDENT.obj_len = 5; /*inimult dtup_1379__ADD2OUT_INDENT*/ @@ -11590,7 +11590,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1381", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1381.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1381.obj_num = 0; - cdat->dobj_1381.obj_hash = 30173770; + cdat->dobj_1381.obj_hash = 660397444; cdat->dobj_1381.obj_len = 2; /*^iniobj*/ @@ -11600,7 +11600,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1382", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1382.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1382.obj_num = 1; - cdat->dobj_1382.obj_hash = 324849305; + cdat->dobj_1382.obj_hash = 506903608; cdat->dobj_1382.obj_len = 2; /*inistring dstr_1383__meltgc_out_add_i*/ @@ -11642,7 +11642,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1389__ADD2OUT_INDENTNL", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1389__ADD2OUT_INDENTNL", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1389__ADD2OUT_INDENTNL.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_1389__ADD2OUT_INDENTNL.obj_hash = 246463601; + cdat->dobj_1389__ADD2OUT_INDENTNL.obj_hash = 38043202; cdat->dobj_1389__ADD2OUT_INDENTNL.obj_len = 5; /*inimult dtup_1390__ADD2OUT_INDENTNL*/ @@ -11660,7 +11660,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1392", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1392.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1392.obj_num = 0; - cdat->dobj_1392.obj_hash = 220372992; + cdat->dobj_1392.obj_hash = 591544409; cdat->dobj_1392.obj_len = 2; /*^iniobj*/ @@ -11670,7 +11670,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1393", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1393.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1393.obj_num = 1; - cdat->dobj_1393.obj_hash = 355260979; + cdat->dobj_1393.obj_hash = 1071542223; cdat->dobj_1393.obj_len = 2; /*inistring dstr_1394__meltgc_out_add_i*/ @@ -11712,7 +11712,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1400__ADD2OUT_SBUF", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1400__ADD2OUT_SBUF", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1400__ADD2OUT_SBUF.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_1400__ADD2OUT_SBUF.obj_hash = 613337766; + cdat->dobj_1400__ADD2OUT_SBUF.obj_hash = 711726589; cdat->dobj_1400__ADD2OUT_SBUF.obj_len = 5; /*inimult dtup_1401__ADD2OUT_SBUF*/ @@ -11730,7 +11730,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1403", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1403.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1403.obj_num = 0; - cdat->dobj_1403.obj_hash = 968346417; + cdat->dobj_1403.obj_hash = 682282956; cdat->dobj_1403.obj_len = 2; /*^iniobj*/ @@ -11740,7 +11740,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1404", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1404.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1404.obj_num = 1; - cdat->dobj_1404.obj_hash = 1015955073; + cdat->dobj_1404.obj_hash = 975436258; cdat->dobj_1404.obj_len = 2; /*inistring dstr_1405__meltgc_add_out_*/ @@ -11782,7 +11782,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1411__ADD2OUT_CENCSTRING", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1411__ADD2OUT_CENCSTRING", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1411__ADD2OUT_CENCSTRING.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_1411__ADD2OUT_CENCSTRING.obj_hash = 43459597; + cdat->dobj_1411__ADD2OUT_CENCSTRING.obj_hash = 185029194; cdat->dobj_1411__ADD2OUT_CENCSTRING.obj_len = 5; /*inimult dtup_1412__ADD2OUT_CENCSTRING*/ @@ -11800,7 +11800,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1414", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1414.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1414.obj_num = 0; - cdat->dobj_1414.obj_hash = 880904191; + cdat->dobj_1414.obj_hash = 957012535; cdat->dobj_1414.obj_len = 2; /*^iniobj*/ @@ -11810,7 +11810,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1415", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1415.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1415.obj_num = 1; - cdat->dobj_1415.obj_hash = 1051914761; + cdat->dobj_1415.obj_hash = 446396770; cdat->dobj_1415.obj_len = 2; /*inistring dstr_1416__meltgc_add_out_c*/ @@ -11852,7 +11852,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1422__ADD2OUT_CENCSTRBUF", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1422__ADD2OUT_CENCSTRBUF", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1422__ADD2OUT_CENCSTRBUF.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_1422__ADD2OUT_CENCSTRBUF.obj_hash = 486591543; + cdat->dobj_1422__ADD2OUT_CENCSTRBUF.obj_hash = 1058765183; cdat->dobj_1422__ADD2OUT_CENCSTRBUF.obj_len = 5; /*inimult dtup_1423__ADD2OUT_CENCSTRBUF*/ @@ -11870,7 +11870,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1425", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1425.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1425.obj_num = 0; - cdat->dobj_1425.obj_hash = 29543499; + cdat->dobj_1425.obj_hash = 203727452; cdat->dobj_1425.obj_len = 2; /*^iniobj*/ @@ -11880,7 +11880,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1426", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1426.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1426.obj_num = 1; - cdat->dobj_1426.obj_hash = 535182223; + cdat->dobj_1426.obj_hash = 304459240; cdat->dobj_1426.obj_len = 2; /*inistring dstr_1427__meltgc_add_out_c*/ @@ -11922,7 +11922,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1433__ADD2OUT_CCOMSTRING", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1433__ADD2OUT_CCOMSTRING", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1433__ADD2OUT_CCOMSTRING.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_1433__ADD2OUT_CCOMSTRING.obj_hash = 621187295; + cdat->dobj_1433__ADD2OUT_CCOMSTRING.obj_hash = 844433134; cdat->dobj_1433__ADD2OUT_CCOMSTRING.obj_len = 5; /*inimult dtup_1434__ADD2OUT_CCOMSTRING*/ @@ -11940,7 +11940,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1436", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1436.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1436.obj_num = 0; - cdat->dobj_1436.obj_hash = 126464302; + cdat->dobj_1436.obj_hash = 50472911; cdat->dobj_1436.obj_len = 2; /*^iniobj*/ @@ -11950,7 +11950,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1437", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1437.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1437.obj_num = 1; - cdat->dobj_1437.obj_hash = 233954535; + cdat->dobj_1437.obj_hash = 500111621; cdat->dobj_1437.obj_len = 2; /*inistring dstr_1438__meltgc_add_out_c*/ @@ -11992,7 +11992,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1444__ADD2OUT_CCOMSTRBUF", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1444__ADD2OUT_CCOMSTRBUF", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1444__ADD2OUT_CCOMSTRBUF.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_1444__ADD2OUT_CCOMSTRBUF.obj_hash = 574164621; + cdat->dobj_1444__ADD2OUT_CCOMSTRBUF.obj_hash = 942270112; cdat->dobj_1444__ADD2OUT_CCOMSTRBUF.obj_len = 5; /*inimult dtup_1445__ADD2OUT_CCOMSTRBUF*/ @@ -12010,7 +12010,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1447", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1447.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1447.obj_num = 0; - cdat->dobj_1447.obj_hash = 16118798; + cdat->dobj_1447.obj_hash = 246367111; cdat->dobj_1447.obj_len = 2; /*^iniobj*/ @@ -12020,7 +12020,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1448", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1448.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1448.obj_num = 1; - cdat->dobj_1448.obj_hash = 461098861; + cdat->dobj_1448.obj_hash = 338466219; cdat->dobj_1448.obj_len = 2; /*inistring dstr_1449__meltgc_add_out_c*/ @@ -12062,7 +12062,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1455__ADD2OUT_CCOMCONST", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1455__ADD2OUT_CCOMCONST", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1455__ADD2OUT_CCOMCONST.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_1455__ADD2OUT_CCOMCONST.obj_hash = 216989261; + cdat->dobj_1455__ADD2OUT_CCOMCONST.obj_hash = 698475686; cdat->dobj_1455__ADD2OUT_CCOMCONST.obj_len = 5; /*inimult dtup_1456__ADD2OUT_CCOMCONST*/ @@ -12080,7 +12080,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1458", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1458.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1458.obj_num = 0; - cdat->dobj_1458.obj_hash = 774980949; + cdat->dobj_1458.obj_hash = 525903498; cdat->dobj_1458.obj_len = 2; /*^iniobj*/ @@ -12090,7 +12090,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1459", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1459.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1459.obj_num = 1; - cdat->dobj_1459.obj_hash = 906037275; + cdat->dobj_1459.obj_hash = 785699776; cdat->dobj_1459.obj_len = 2; /*inistring dstr_1460__meltgc_add_out_c*/ @@ -12132,7 +12132,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1466__ADD2OUT_CIDENT", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1466__ADD2OUT_CIDENT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1466__ADD2OUT_CIDENT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_1466__ADD2OUT_CIDENT.obj_hash = 233409168; + cdat->dobj_1466__ADD2OUT_CIDENT.obj_hash = 245147152; cdat->dobj_1466__ADD2OUT_CIDENT.obj_len = 5; /*inimult dtup_1467__ADD2OUT_CIDENT*/ @@ -12150,7 +12150,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1469", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1469.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1469.obj_num = 0; - cdat->dobj_1469.obj_hash = 340794057; + cdat->dobj_1469.obj_hash = 550922429; cdat->dobj_1469.obj_len = 2; /*^iniobj*/ @@ -12160,7 +12160,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1470", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1470.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1470.obj_num = 1; - cdat->dobj_1470.obj_hash = 848910654; + cdat->dobj_1470.obj_hash = 133842378; cdat->dobj_1470.obj_len = 2; /*inistring dstr_1471__meltgc_add_out_c*/ @@ -12202,7 +12202,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1477__ADD2OUT_CIDENTPREFIX", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1477__ADD2OUT_CIDENTPREFIX", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1477__ADD2OUT_CIDENTPREFIX.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_1477__ADD2OUT_CIDENTPREFIX.obj_hash = 315197741; + cdat->dobj_1477__ADD2OUT_CIDENTPREFIX.obj_hash = 846602628; cdat->dobj_1477__ADD2OUT_CIDENTPREFIX.obj_len = 5; /*inimult dtup_1478__ADD2OUT_CIDENTPREFIX*/ @@ -12220,7 +12220,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1480", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1480.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1480.obj_num = 0; - cdat->dobj_1480.obj_hash = 1045781372; + cdat->dobj_1480.obj_hash = 146339281; cdat->dobj_1480.obj_len = 2; /*^iniobj*/ @@ -12230,7 +12230,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1481", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1481.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1481.obj_num = 1; - cdat->dobj_1481.obj_hash = 609101773; + cdat->dobj_1481.obj_hash = 807087804; cdat->dobj_1481.obj_len = 2; /*^iniobj*/ @@ -12240,7 +12240,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1482", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1482.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1482.obj_num = 2; - cdat->dobj_1482.obj_hash = 234321277; + cdat->dobj_1482.obj_hash = 697778625; cdat->dobj_1482.obj_len = 2; /*inistring dstr_1483__meltgc_add_out_c*/ @@ -12287,7 +12287,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1490__ADD2OUT_LONGDEC", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1490__ADD2OUT_LONGDEC", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1490__ADD2OUT_LONGDEC.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_1490__ADD2OUT_LONGDEC.obj_hash = 18282568; + cdat->dobj_1490__ADD2OUT_LONGDEC.obj_hash = 38441629; cdat->dobj_1490__ADD2OUT_LONGDEC.obj_len = 5; /*inimult dtup_1491__ADD2OUT_LONGDEC*/ @@ -12305,7 +12305,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1493", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1493.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1493.obj_num = 0; - cdat->dobj_1493.obj_hash = 308560115; + cdat->dobj_1493.obj_hash = 992966932; cdat->dobj_1493.obj_len = 2; /*^iniobj*/ @@ -12315,7 +12315,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1494", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1494.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1494.obj_num = 1; - cdat->dobj_1494.obj_hash = 94467378; + cdat->dobj_1494.obj_hash = 756214449; cdat->dobj_1494.obj_len = 2; /*inistring dstr_1495__meltgc_add_out_d*/ @@ -12357,7 +12357,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1501__ADD2OUT_LONGHEX", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1501__ADD2OUT_LONGHEX", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1501__ADD2OUT_LONGHEX.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_1501__ADD2OUT_LONGHEX.obj_hash = 1024633510; + cdat->dobj_1501__ADD2OUT_LONGHEX.obj_hash = 519736939; cdat->dobj_1501__ADD2OUT_LONGHEX.obj_len = 5; /*inimult dtup_1502__ADD2OUT_LONGHEX*/ @@ -12375,7 +12375,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1504", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1504.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1504.obj_num = 0; - cdat->dobj_1504.obj_hash = 190389766; + cdat->dobj_1504.obj_hash = 648003548; cdat->dobj_1504.obj_len = 2; /*^iniobj*/ @@ -12385,7 +12385,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1505", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1505.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1505.obj_num = 1; - cdat->dobj_1505.obj_hash = 134286839; + cdat->dobj_1505.obj_hash = 991949275; cdat->dobj_1505.obj_len = 2; /*inistring dstr_1506__meltgc_add_out_h*/ @@ -12427,7 +12427,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1512__ADD2OUT_ROUTINEDESCR", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1512__ADD2OUT_ROUTINEDESCR", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1512__ADD2OUT_ROUTINEDESCR.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_1512__ADD2OUT_ROUTINEDESCR.obj_hash = 11897391; + cdat->dobj_1512__ADD2OUT_ROUTINEDESCR.obj_hash = 796862127; cdat->dobj_1512__ADD2OUT_ROUTINEDESCR.obj_len = 5; /*inimult dtup_1513__ADD2OUT_ROUTINEDESCR*/ @@ -12445,7 +12445,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1515", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1515.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1515.obj_num = 0; - cdat->dobj_1515.obj_hash = 964875119; + cdat->dobj_1515.obj_hash = 932583704; cdat->dobj_1515.obj_len = 2; /*^iniobj*/ @@ -12455,7 +12455,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1516", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1516.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1516.obj_num = 1; - cdat->dobj_1516.obj_hash = 286556734; + cdat->dobj_1516.obj_hash = 781661508; cdat->dobj_1516.obj_len = 2; /*inistring dstr_1517__meltgc_add_out_*/ @@ -12484,7 +12484,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1521__CSTRING_SAME", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_CMATCHER)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1521__CSTRING_SAME", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CMATCHER)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1521__CSTRING_SAME.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CMATCHER)))); - cdat->dobj_1521__CSTRING_SAME.obj_hash = 451362769; + cdat->dobj_1521__CSTRING_SAME.obj_hash = 961540588; cdat->dobj_1521__CSTRING_SAME.obj_len = 9; /*inistring dstr_1522__CSTRING_SAME*/ @@ -12499,7 +12499,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1523", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1523.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1523.obj_num = 0; - cdat->dobj_1523.obj_hash = 739859956; + cdat->dobj_1523.obj_hash = 279747437; cdat->dobj_1523.obj_len = 2; /*inimult dtup_1524__CSTRING_SAME*/ @@ -12512,7 +12512,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1525", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1525", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1525.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); - cdat->dobj_1525.obj_hash = 325979851; + cdat->dobj_1525.obj_hash = 70591195; cdat->dobj_1525.obj_len = 2; /*inimult dtup_1526__CSTRING_SAME*/ @@ -12585,7 +12585,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1538__CSTRING_LENGTH", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1538__CSTRING_LENGTH", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1538__CSTRING_LENGTH.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_1538__CSTRING_LENGTH.obj_hash = 964453673; + cdat->dobj_1538__CSTRING_LENGTH.obj_hash = 272257067; cdat->dobj_1538__CSTRING_LENGTH.obj_len = 5; /*inimult dtup_1539__CSTRING_LENGTH*/ @@ -12603,7 +12603,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1541", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1541.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1541.obj_num = 0; - cdat->dobj_1541.obj_hash = 476988349; + cdat->dobj_1541.obj_hash = 403152511; cdat->dobj_1541.obj_len = 2; /*inistring dstr_1542__*/ @@ -12669,7 +12669,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1552__MAPSTRING_SIZE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1552__MAPSTRING_SIZE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1552__MAPSTRING_SIZE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_1552__MAPSTRING_SIZE.obj_hash = 265333701; + cdat->dobj_1552__MAPSTRING_SIZE.obj_hash = 926667680; cdat->dobj_1552__MAPSTRING_SIZE.obj_len = 5; /*inimult dtup_1553__MAPSTRING_SIZE*/ @@ -12700,7 +12700,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1557", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1557.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1557.obj_num = 0; - cdat->dobj_1557.obj_hash = 450613806; + cdat->dobj_1557.obj_hash = 152382876; cdat->dobj_1557.obj_len = 2; /*inistring dstr_1558__melt_size_mapst*/ @@ -12737,7 +12737,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1563__MAPSTRING_COUNT", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1563__MAPSTRING_COUNT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1563__MAPSTRING_COUNT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_1563__MAPSTRING_COUNT.obj_hash = 868866748; + cdat->dobj_1563__MAPSTRING_COUNT.obj_hash = 376597057; cdat->dobj_1563__MAPSTRING_COUNT.obj_len = 5; /*inimult dtup_1564__MAPSTRING_COUNT*/ @@ -12755,7 +12755,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1566", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1566.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1566.obj_num = 0; - cdat->dobj_1566.obj_hash = 765658632; + cdat->dobj_1566.obj_hash = 17768132; cdat->dobj_1566.obj_len = 2; /*inistring dstr_1567__melt_count_maps*/ @@ -12792,7 +12792,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1572__MAPSTRING_RAWGET", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1572__MAPSTRING_RAWGET", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1572__MAPSTRING_RAWGET.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_1572__MAPSTRING_RAWGET.obj_hash = 661931941; + cdat->dobj_1572__MAPSTRING_RAWGET.obj_hash = 312773956; cdat->dobj_1572__MAPSTRING_RAWGET.obj_len = 5; /*inimult dtup_1573__MAPSTRING_RAWGET*/ @@ -12810,7 +12810,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1575", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1575.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1575.obj_num = 0; - cdat->dobj_1575.obj_hash = 689561976; + cdat->dobj_1575.obj_hash = 289790599; cdat->dobj_1575.obj_len = 2; /*^iniobj*/ @@ -12820,7 +12820,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1576", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1576.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1576.obj_num = 1; - cdat->dobj_1576.obj_hash = 616097463; + cdat->dobj_1576.obj_hash = 528674335; cdat->dobj_1576.obj_len = 2; /*inistring dstr_1577__melt_get_mapstr*/ @@ -12862,7 +12862,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1583__MAPSTRING_RAWPUT", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1583__MAPSTRING_RAWPUT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1583__MAPSTRING_RAWPUT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_1583__MAPSTRING_RAWPUT.obj_hash = 1046291195; + cdat->dobj_1583__MAPSTRING_RAWPUT.obj_hash = 12744071; cdat->dobj_1583__MAPSTRING_RAWPUT.obj_len = 5; /*inimult dtup_1584__MAPSTRING_RAWPUT*/ @@ -12880,7 +12880,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1586", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1586.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1586.obj_num = 0; - cdat->dobj_1586.obj_hash = 771923666; + cdat->dobj_1586.obj_hash = 167500651; cdat->dobj_1586.obj_len = 2; /*iniobj dsym_1587__KEY*/ @@ -12903,7 +12903,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1589", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1589.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1589.obj_num = 1; - cdat->dobj_1589.obj_hash = 540439981; + cdat->dobj_1589.obj_hash = 836128344; cdat->dobj_1589.obj_len = 2; /*^iniobj*/ @@ -12913,7 +12913,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1590", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1590.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1590.obj_num = 2; - cdat->dobj_1590.obj_hash = 443395413; + cdat->dobj_1590.obj_hash = 621070945; cdat->dobj_1590.obj_len = 2; /*inistring dstr_1591__meltgc_put_mapst*/ @@ -12960,7 +12960,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1598__MAPSTRING_RAWREMOVE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1598__MAPSTRING_RAWREMOVE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1598__MAPSTRING_RAWREMOVE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_1598__MAPSTRING_RAWREMOVE.obj_hash = 670160827; + cdat->dobj_1598__MAPSTRING_RAWREMOVE.obj_hash = 716283086; cdat->dobj_1598__MAPSTRING_RAWREMOVE.obj_len = 5; /*inimult dtup_1599__MAPSTRING_RAWREMOVE*/ @@ -12978,7 +12978,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1601", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1601.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1601.obj_num = 0; - cdat->dobj_1601.obj_hash = 301695272; + cdat->dobj_1601.obj_hash = 452116313; cdat->dobj_1601.obj_len = 2; /*^iniobj*/ @@ -12988,7 +12988,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1602", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1602.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1602.obj_num = 1; - cdat->dobj_1602.obj_hash = 123298822; + cdat->dobj_1602.obj_hash = 5915310; cdat->dobj_1602.obj_len = 2; /*inistring dstr_1603__meltgc_remove_ma*/ diff --git a/gcc/melt/generated/warmelt-debug.0.c b/gcc/melt/generated/warmelt-debug.0.c index 32032fd760c..1909dd34c6f 100644 --- a/gcc/melt/generated/warmelt-debug.0.c +++ b/gcc/melt/generated/warmelt-debug.0.c @@ -3,7 +3,7 @@ #ifndef MELTGCC_DYNAMIC_OBJSTRUCT /* version string of the gcc executable generating this file: */ const char genversionstr_melt[]= - "4.5.0 20100223 (experimental) [melt-branch revision 157055]"; + "4.5.0 20100310 (experimental) [melt-branch revision 157367]"; #endif #include "run-melt.h" @@ -8039,7 +8039,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_5__CLASS_DEBUG_INFORMATION", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_5__CLASS_DEBUG_INFORMATION.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_5__CLASS_DEBUG_INFORMATION.obj_num = OBMAG_OBJECT; - cdat->dobj_5__CLASS_DEBUG_INFORMATION.obj_hash = 632906754; + cdat->dobj_5__CLASS_DEBUG_INFORMATION.obj_hash = 1049776688; cdat->dobj_5__CLASS_DEBUG_INFORMATION.obj_len = 8; /*inistring dstr_6__CLASS_DEBUG_INFO*/ @@ -8075,7 +8075,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_11__DBGI_OUT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_11__DBGI_OUT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_11__DBGI_OUT.obj_num = 0; - cdat->dobj_11__DBGI_OUT.obj_hash = 754104948; + cdat->dobj_11__DBGI_OUT.obj_hash = 100702518; cdat->dobj_11__DBGI_OUT.obj_len = 4; /*inistring dstr_12__DBGI_OUT*/ @@ -8103,7 +8103,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_15__DBGI_OCCMAP", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_15__DBGI_OCCMAP.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_15__DBGI_OCCMAP.obj_num = 1; - cdat->dobj_15__DBGI_OCCMAP.obj_hash = 999848518; + cdat->dobj_15__DBGI_OCCMAP.obj_hash = 502064189; cdat->dobj_15__DBGI_OCCMAP.obj_len = 4; /*inistring dstr_16__DBGI_OCCMAP*/ @@ -8131,7 +8131,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_19__DBGI_MAXDEPTH", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_19__DBGI_MAXDEPTH.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_19__DBGI_MAXDEPTH.obj_num = 2; - cdat->dobj_19__DBGI_MAXDEPTH.obj_hash = 1013631887; + cdat->dobj_19__DBGI_MAXDEPTH.obj_hash = 648040872; cdat->dobj_19__DBGI_MAXDEPTH.obj_len = 4; /*inistring dstr_20__DBGI_MAXDEPTH*/ @@ -8158,7 +8158,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_23__DEBUG_DEPTH", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_23__DEBUG_DEPTH", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->object_magic == OBMAG_OBJECT); cdat->dobj_23__DEBUG_DEPTH.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_23__DEBUG_DEPTH.obj_hash = 539731853; + cdat->dobj_23__DEBUG_DEPTH.obj_hash = 606066503; cdat->dobj_23__DEBUG_DEPTH.obj_len = 5; /*inimult dtup_24__DEBUG_DEPTH*/ @@ -8302,7 +8302,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_46", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_46.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_46.obj_num = 0; - cdat->dobj_46.obj_hash = 622532913; + cdat->dobj_46.obj_hash = 958426558; cdat->dobj_46.obj_len = 2; /*iniobj dsym_47__DBGINFO*/ @@ -8325,7 +8325,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_49", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_49.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_49.obj_num = 1; - cdat->dobj_49.obj_hash = 438016993; + cdat->dobj_49.obj_hash = 231231174; cdat->dobj_49.obj_len = 2; /*iniobj dsym_50__DEPTH*/ @@ -8348,7 +8348,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_52", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_52.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_52.obj_num = 2; - cdat->dobj_52.obj_hash = 257827609; + cdat->dobj_52.obj_hash = 1031303794; cdat->dobj_52.obj_len = 2; /*inimult dtup_53__DBG_OUTPUT*/ @@ -8361,7 +8361,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_54__DBG_OUTPUT", melt_magic_discr (/*_.CLASS_SELECTOR__V13*/ meltfptr[12]) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_54__DBG_OUTPUT", ((meltobject_ptr_t) (/*_.CLASS_SELECTOR__V13*/ meltfptr[12]))->object_magic == OBMAG_OBJECT); cdat->dobj_54__DBG_OUTPUT.obj_class = (meltobject_ptr_t)(/*_.CLASS_SELECTOR__V13*/ meltfptr[12]); - cdat->dobj_54__DBG_OUTPUT.obj_hash = 77801063; + cdat->dobj_54__DBG_OUTPUT.obj_hash = 15279820; cdat->dobj_54__DBG_OUTPUT.obj_len = 4; /*inistring dstr_55__DBG_OUTPUT*/ @@ -8389,7 +8389,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_58", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_58.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_58.obj_num = 0; - cdat->dobj_58.obj_hash = 436708523; + cdat->dobj_58.obj_hash = 1001507587; cdat->dobj_58.obj_len = 2; /*^iniobj*/ @@ -8399,7 +8399,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_59", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_59.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_59.obj_num = 1; - cdat->dobj_59.obj_hash = 795446424; + cdat->dobj_59.obj_hash = 935230384; cdat->dobj_59.obj_len = 2; /*^iniobj*/ @@ -8409,7 +8409,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_60", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_60.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_60.obj_num = 2; - cdat->dobj_60.obj_hash = 48496852; + cdat->dobj_60.obj_hash = 1007395824; cdat->dobj_60.obj_len = 2; /*inimult dtup_61__DBG_OUTPUTAGAIN*/ @@ -8422,7 +8422,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_62__DBG_OUTPUTAGAIN", melt_magic_discr (/*_.CLASS_SELECTOR__V13*/ meltfptr[12]) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_62__DBG_OUTPUTAGAIN", ((meltobject_ptr_t) (/*_.CLASS_SELECTOR__V13*/ meltfptr[12]))->object_magic == OBMAG_OBJECT); cdat->dobj_62__DBG_OUTPUTAGAIN.obj_class = (meltobject_ptr_t)(/*_.CLASS_SELECTOR__V13*/ meltfptr[12]); - cdat->dobj_62__DBG_OUTPUTAGAIN.obj_hash = 635807863; + cdat->dobj_62__DBG_OUTPUTAGAIN.obj_hash = 1060497349; cdat->dobj_62__DBG_OUTPUTAGAIN.obj_len = 4; /*inistring dstr_63__DBG_OUTPUTAGAIN*/ diff --git a/gcc/melt/generated/warmelt-first.0+01.c b/gcc/melt/generated/warmelt-first.0+01.c index 2b45860aa9d..625f0e845c5 100644 --- a/gcc/melt/generated/warmelt-first.0+01.c +++ b/gcc/melt/generated/warmelt-first.0+01.c @@ -417,7 +417,7 @@ melt_trace_start("AT_FINISH_UNIT_LAST", meltcallcount); /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-first.melt:2453:/ getarg"); + MELT_LOCATION("warmelt-first.melt:2460:/ getarg"); /*_.FUN__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; ; goto lab_endgetargs; @@ -426,7 +426,7 @@ lab_endgetargs:; /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-first.melt:2456:/ quasiblock"); + MELT_LOCATION("warmelt-first.melt:2463:/ quasiblock"); /*^getslot*/ @@ -435,7 +435,7 @@ lab_endgetargs:; ; /*_#IS_CLOSURE__L1*/ meltfnum[0] = (melt_magic_discr((melt_ptr_t)(/*_.FUN__V2*/ meltfptr[1])) == OBMAG_CLOSURE);; - MELT_LOCATION("warmelt-first.melt:2458:/ cond"); + MELT_LOCATION("warmelt-first.melt:2465:/ cond"); /*cond*/ if (/*_#IS_CLOSURE__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -452,7 +452,7 @@ lab_endgetargs:; } /*noelse*/ ; - MELT_LOCATION("warmelt-first.melt:2456:/ clear"); + MELT_LOCATION("warmelt-first.melt:2463:/ clear"); /*clear*/ /*_.LASTLIST__V3*/ meltfptr[2] = 0 ; /*^clear*/ /*clear*/ /*_#IS_CLOSURE__L1*/ meltfnum[0] = 0 ; @@ -522,7 +522,7 @@ melt_trace_start("INIT_OPTIONSETTER", meltcallcount); /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-first.melt:2475:/ getarg"); + MELT_LOCATION("warmelt-first.melt:2482:/ getarg"); /*_.OPTSYMB__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; /*getarg#1*/ @@ -538,13 +538,13 @@ lab_endgetargs:; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-first.melt:2476:/ cppif.then"); + MELT_LOCATION("warmelt-first.melt:2483:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L1*/ meltfnum[0] = meltcallcount;; - MELT_LOCATION("warmelt-first.melt:2476:/ apply"); + MELT_LOCATION("warmelt-first.melt:2483:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -555,14 +555,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].bp_cstring = "warmelt-first.melt"; /*^apply.arg*/ - argtab[3].bp_long = 2476; + argtab[3].bp_long = 2483; /*_.DEBUG_MSG_FUN__V4*/ meltfptr[3] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.OPTSYMB__V2*/ meltfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V3*/ meltfptr[2] = /*_.DEBUG_MSG_FUN__V4*/ meltfptr[3];; /*epilog*/ - MELT_LOCATION("warmelt-first.melt:2476:/ clear"); + MELT_LOCATION("warmelt-first.melt:2483:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L1*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V4*/ meltfptr[3] = 0 ;} @@ -572,7 +572,7 @@ lab_endgetargs:; /*_.IFCPP___V3*/ meltfptr[2] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-first.melt:2477:/ quasiblock"); + MELT_LOCATION("warmelt-first.melt:2484:/ quasiblock"); /*^getslot*/ @@ -581,7 +581,7 @@ lab_endgetargs:; ; /*_.OPTDEC__V7*/ meltfptr[6] = melt_get_mapobjects((meltmapobjects_ptr_t)(/*_.OPTMAP__V6*/ meltfptr[5]), (meltobject_ptr_t)(/*_.OPTSYMB__V2*/ meltfptr[1]));; - MELT_LOCATION("warmelt-first.melt:2479:/ cond"); + MELT_LOCATION("warmelt-first.melt:2486:/ cond"); /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.OPTSYMB__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[2])))) /*then*/ { /*^cond.then*/ /*^getslot*/ @@ -595,17 +595,17 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-first.melt:2481:/ cppif.then"); + MELT_LOCATION("warmelt-first.melt:2488:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L2*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.OPTSYMB__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ meltfrout->tabval[3])));; - MELT_LOCATION("warmelt-first.melt:2481:/ cond"); + MELT_LOCATION("warmelt-first.melt:2488:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V10*/ meltfptr[9] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-first.melt:2481:/ cond.else"); + } else {MELT_LOCATION("warmelt-first.melt:2488:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -616,7 +616,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check optsymb"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__, - (2481)?(2481):__LINE__, __FUNCTION__); + (2488)?(2488):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V10*/ meltfptr[9] = 0 ; @@ -630,7 +630,7 @@ lab_endgetargs:; /*_.IFCPP___V9*/ meltfptr[8] = /*_.IFELSE___V10*/ meltfptr[9];; /*epilog*/ - MELT_LOCATION("warmelt-first.melt:2481:/ clear"); + MELT_LOCATION("warmelt-first.melt:2488:/ clear"); /*clear*/ /*_#IS_A__L2*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V10*/ meltfptr[9] = 0 ;} @@ -640,13 +640,13 @@ lab_endgetargs:; /*_.IFCPP___V9*/ meltfptr[8] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-first.melt:2482:/ cond"); + MELT_LOCATION("warmelt-first.melt:2489:/ cond"); /*cond*/ if (/*_.OPTDEC__V7*/ meltfptr[6]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-first.melt:2483:/ quasiblock"); + MELT_LOCATION("warmelt-first.melt:2490:/ quasiblock"); /*^cond*/ @@ -663,17 +663,17 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-first.melt:2485:/ cppif.then"); + MELT_LOCATION("warmelt-first.melt:2492:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L3*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.OPTDEC__V7*/ meltfptr[6]), (melt_ptr_t)((/*!CLASS_OPTION_DESCRIPTOR*/ meltfrout->tabval[4])));; - MELT_LOCATION("warmelt-first.melt:2485:/ cond"); + MELT_LOCATION("warmelt-first.melt:2492:/ cond"); /*cond*/ if (/*_#IS_A__L3*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V15*/ meltfptr[14] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-first.melt:2485:/ cond.else"); + } else {MELT_LOCATION("warmelt-first.melt:2492:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -684,7 +684,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check optdec"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__, - (2485)?(2485):__LINE__, __FUNCTION__); + (2492)?(2492):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V15*/ meltfptr[14] = 0 ; @@ -698,7 +698,7 @@ lab_endgetargs:; /*_.IFCPP___V14*/ meltfptr[13] = /*_.IFELSE___V15*/ meltfptr[14];; /*epilog*/ - MELT_LOCATION("warmelt-first.melt:2485:/ clear"); + MELT_LOCATION("warmelt-first.melt:2492:/ clear"); /*clear*/ /*_#IS_A__L3*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V15*/ meltfptr[14] = 0 ;} @@ -710,13 +710,13 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-first.melt:2486:/ cppif.then"); + MELT_LOCATION("warmelt-first.melt:2493:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L4*/ meltfnum[0] = meltcallcount;; - MELT_LOCATION("warmelt-first.melt:2486:/ apply"); + MELT_LOCATION("warmelt-first.melt:2493:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -727,14 +727,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].bp_cstring = "warmelt-first.melt"; /*^apply.arg*/ - argtab[3].bp_long = 2486; + argtab[3].bp_long = 2493; /*_.DEBUG_MSG_FUN__V17*/ meltfptr[16] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.OPTDEC__V7*/ meltfptr[6]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V16*/ meltfptr[14] = /*_.DEBUG_MSG_FUN__V17*/ meltfptr[16];; /*epilog*/ - MELT_LOCATION("warmelt-first.melt:2486:/ clear"); + MELT_LOCATION("warmelt-first.melt:2493:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L4*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V17*/ meltfptr[16] = 0 ;} @@ -744,7 +744,7 @@ lab_endgetargs:; /*_.IFCPP___V16*/ meltfptr[14] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-first.melt:2487:/ quasiblock"); + MELT_LOCATION("warmelt-first.melt:2494:/ quasiblock"); /*^apply*/ @@ -758,13 +758,13 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-first.melt:2489:/ cppif.then"); + MELT_LOCATION("warmelt-first.melt:2496:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L5*/ meltfnum[0] = meltcallcount;; - MELT_LOCATION("warmelt-first.melt:2489:/ apply"); + MELT_LOCATION("warmelt-first.melt:2496:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -775,14 +775,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].bp_cstring = "warmelt-first.melt"; /*^apply.arg*/ - argtab[3].bp_long = 2489; + argtab[3].bp_long = 2496; /*_.DEBUG_MSG_FUN__V21*/ meltfptr[20] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.OPTRES__V19*/ meltfptr[18]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V20*/ meltfptr[19] = /*_.DEBUG_MSG_FUN__V21*/ meltfptr[20];; /*epilog*/ - MELT_LOCATION("warmelt-first.melt:2489:/ clear"); + MELT_LOCATION("warmelt-first.melt:2496:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L5*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V21*/ meltfptr[20] = 0 ;} @@ -792,16 +792,16 @@ lab_endgetargs:; /*_.IFCPP___V20*/ meltfptr[19] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-first.melt:2490:/ quasiblock"); + MELT_LOCATION("warmelt-first.melt:2497:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.OPTRES__V19*/ meltfptr[18];; - MELT_LOCATION("warmelt-first.melt:2490:/ finalreturn"); + MELT_LOCATION("warmelt-first.melt:2497:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*_.LET___V18*/ meltfptr[16] = /*_.RETURN___V22*/ meltfptr[20];; - MELT_LOCATION("warmelt-first.melt:2487:/ clear"); + MELT_LOCATION("warmelt-first.melt:2494:/ clear"); /*clear*/ /*_.OPTRES__V19*/ meltfptr[18] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V20*/ meltfptr[19] = 0 ; @@ -809,7 +809,7 @@ lab_endgetargs:; /*clear*/ /*_.RETURN___V22*/ meltfptr[20] = 0 ; /*_.LET___V12*/ meltfptr[11] = /*_.LET___V18*/ meltfptr[16];; - MELT_LOCATION("warmelt-first.melt:2483:/ clear"); + MELT_LOCATION("warmelt-first.melt:2490:/ clear"); /*clear*/ /*_.OPTFUN__V13*/ meltfptr[12] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V14*/ meltfptr[13] = 0 ; @@ -820,7 +820,7 @@ lab_endgetargs:; /*_.IFELSE___V11*/ meltfptr[9] = /*_.LET___V12*/ meltfptr[11];; /*epilog*/ - MELT_LOCATION("warmelt-first.melt:2482:/ clear"); + MELT_LOCATION("warmelt-first.melt:2489:/ clear"); /*clear*/ /*_.LET___V12*/ meltfptr[11] = 0 ;} ; } else {/*^cond.else*/ @@ -830,18 +830,18 @@ lab_endgetargs:; { - MELT_LOCATION("warmelt-first.melt:2493:/ locexp"); + MELT_LOCATION("warmelt-first.melt:2500:/ locexp"); warning (0, "unrecognized MELT option %s. Use -f[plugin-arg-]melt-option=help", melt_string_str (/*_.OPTNAME__V8*/ meltfptr[7])) ;} ; - MELT_LOCATION("warmelt-first.melt:2495:/ quasiblock"); + MELT_LOCATION("warmelt-first.melt:2502:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = NULL;; - MELT_LOCATION("warmelt-first.melt:2495:/ finalreturn"); + MELT_LOCATION("warmelt-first.melt:2502:/ finalreturn"); ; /*finalret*/ goto labend_rout ; - MELT_LOCATION("warmelt-first.melt:2491:/ quasiblock"); + MELT_LOCATION("warmelt-first.melt:2498:/ quasiblock"); /*_.PROGN___V24*/ meltfptr[19] = /*_.RETURN___V23*/ meltfptr[18];; @@ -850,7 +850,7 @@ lab_endgetargs:; /*_.IFELSE___V11*/ meltfptr[9] = /*_.PROGN___V24*/ meltfptr[19];; /*epilog*/ - MELT_LOCATION("warmelt-first.melt:2482:/ clear"); + MELT_LOCATION("warmelt-first.melt:2489:/ clear"); /*clear*/ /*_.RETURN___V23*/ meltfptr[18] = 0 ; /*^clear*/ /*clear*/ /*_.PROGN___V24*/ meltfptr[19] = 0 ;} @@ -859,7 +859,7 @@ lab_endgetargs:; ; /*_.LET___V5*/ meltfptr[3] = /*_.IFELSE___V11*/ meltfptr[9];; - MELT_LOCATION("warmelt-first.melt:2477:/ clear"); + MELT_LOCATION("warmelt-first.melt:2484:/ clear"); /*clear*/ /*_.OPTMAP__V6*/ meltfptr[5] = 0 ; /*^clear*/ /*clear*/ /*_.OPTDEC__V7*/ meltfptr[6] = 0 ; @@ -869,11 +869,11 @@ lab_endgetargs:; /*clear*/ /*_.IFCPP___V9*/ meltfptr[8] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V11*/ meltfptr[9] = 0 ; - MELT_LOCATION("warmelt-first.melt:2475:/ quasiblock"); + MELT_LOCATION("warmelt-first.melt:2482:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V5*/ meltfptr[3];; - MELT_LOCATION("warmelt-first.melt:2475:/ finalreturn"); + MELT_LOCATION("warmelt-first.melt:2482:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*epilog*/ @@ -945,7 +945,7 @@ melt_trace_start("REGISTER_OPTION", meltcallcount); /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-first.melt:2498:/ getarg"); + MELT_LOCATION("warmelt-first.melt:2505:/ getarg"); /*_.OPTSYMB__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; /*getarg#1*/ @@ -970,7 +970,7 @@ lab_endgetargs:; /*_#IS_A__L1*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.OPTSYMB__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ meltfrout->tabval[0])));; - MELT_LOCATION("warmelt-first.melt:2501:/ cond"); + MELT_LOCATION("warmelt-first.melt:2508:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -978,7 +978,7 @@ lab_endgetargs:; /*_#IS_STRING__L3*/ meltfnum[2] = (melt_magic_discr((melt_ptr_t)(/*_.OPTHELP__V3*/ meltfptr[2])) == OBMAG_STRING);; - MELT_LOCATION("warmelt-first.melt:2501:/ cond"); + MELT_LOCATION("warmelt-first.melt:2508:/ cond"); /*cond*/ if (/*_#IS_STRING__L3*/ meltfnum[2]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -991,7 +991,7 @@ lab_endgetargs:; /*_#IF___L4*/ meltfnum[3] = /*_#IS_CLOSURE__L5*/ meltfnum[4];; /*epilog*/ - MELT_LOCATION("warmelt-first.melt:2501:/ clear"); + MELT_LOCATION("warmelt-first.melt:2508:/ clear"); /*clear*/ /*_#IS_CLOSURE__L5*/ meltfnum[4] = 0 ;} ; } else {/*^cond.else*/ @@ -1004,7 +1004,7 @@ lab_endgetargs:; /*_#IF___L2*/ meltfnum[1] = /*_#IF___L4*/ meltfnum[3];; /*epilog*/ - MELT_LOCATION("warmelt-first.melt:2501:/ clear"); + MELT_LOCATION("warmelt-first.melt:2508:/ clear"); /*clear*/ /*_#IS_STRING__L3*/ meltfnum[2] = 0 ; /*^clear*/ /*clear*/ /*_#IF___L4*/ meltfnum[3] = 0 ;} @@ -1014,20 +1014,20 @@ lab_endgetargs:; /*_#IF___L2*/ meltfnum[1] = 0;; } ; - MELT_LOCATION("warmelt-first.melt:2501:/ cond"); + MELT_LOCATION("warmelt-first.melt:2508:/ cond"); /*cond*/ if (/*_#IF___L2*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-first.melt:2504:/ quasiblock"); + MELT_LOCATION("warmelt-first.melt:2511:/ quasiblock"); /*^getslot*/ { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)((/*!OPTION_MAP_CONTAINER*/ meltfrout->tabval[1])), 0, "CONTAINER_VALUE");/*_.OPTMAP__V5*/ meltfptr[4] = slot; }; ; - MELT_LOCATION("warmelt-first.melt:2505:/ quasiblock"); + MELT_LOCATION("warmelt-first.melt:2512:/ quasiblock"); /*^rawallocobj*/ @@ -1053,13 +1053,13 @@ lab_endgetargs:; /*_.OPTDESC__V6*/ meltfptr[5] = /*_.INST__V7*/ meltfptr[6];; { - MELT_LOCATION("warmelt-first.melt:2510:/ locexp"); + MELT_LOCATION("warmelt-first.melt:2517:/ locexp"); meltgc_put_mapobjects( (meltmapobjects_ptr_t) (/*_.OPTMAP__V5*/ meltfptr[4]), (meltobject_ptr_t) (/*_.OPTSYMB__V2*/ meltfptr[1]), (melt_ptr_t)(/*_.OPTDESC__V6*/ meltfptr[5]));} ; - MELT_LOCATION("warmelt-first.melt:2504:/ clear"); + MELT_LOCATION("warmelt-first.melt:2511:/ clear"); /*clear*/ /*_.OPTMAP__V5*/ meltfptr[4] = 0 ; /*^clear*/ /*clear*/ /*_.OPTDESC__V6*/ meltfptr[5] = 0 ; @@ -1070,7 +1070,7 @@ lab_endgetargs:; ; /*epilog*/ - MELT_LOCATION("warmelt-first.melt:2498:/ clear"); + MELT_LOCATION("warmelt-first.melt:2505:/ clear"); /*clear*/ /*_#IS_A__L1*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_#IF___L2*/ meltfnum[1] = 0 ;} @@ -1138,7 +1138,7 @@ melt_trace_start("OPTION_HELPER_FUN", meltcallcount); /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-first.melt:2513:/ getarg"); + MELT_LOCATION("warmelt-first.melt:2520:/ getarg"); /*_.HELPSYMB__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; /*getarg#1*/ @@ -1152,14 +1152,14 @@ lab_endgetargs:; /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-first.melt:2514:/ quasiblock"); + MELT_LOCATION("warmelt-first.melt:2521:/ quasiblock"); /*^getslot*/ { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)((/*!OPTION_MAP_CONTAINER*/ meltfrout->tabval[0])), 0, "CONTAINER_VALUE");/*_.OPTMAP__V4*/ meltfptr[3] = slot; }; ; - MELT_LOCATION("warmelt-first.melt:2515:/ cond"); + MELT_LOCATION("warmelt-first.melt:2522:/ cond"); /*cond*/ if (/*_?*/ meltfram__.loc_CSTRING__o0) /*then*/ { /*^cond.then*/ /*^block*/ @@ -1172,7 +1172,7 @@ lab_endgetargs:; /*_.SYMB__V5*/ meltfptr[4] = /*_.GET_RAW_SYMBOL__V6*/ meltfptr[5];; /*epilog*/ - MELT_LOCATION("warmelt-first.melt:2515:/ clear"); + MELT_LOCATION("warmelt-first.melt:2522:/ clear"); /*clear*/ /*_.GET_RAW_SYMBOL__V6*/ meltfptr[5] = 0 ;} ; } else {/*^cond.else*/ @@ -1188,13 +1188,13 @@ lab_endgetargs:; /*_#IS_A__L1*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.OPTD__V7*/ meltfptr[5]), (melt_ptr_t)((/*!CLASS_OPTION_DESCRIPTOR*/ meltfrout->tabval[1])));; - MELT_LOCATION("warmelt-first.melt:2519:/ cond"); + MELT_LOCATION("warmelt-first.melt:2526:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-first.melt:2520:/ quasiblock"); + MELT_LOCATION("warmelt-first.melt:2527:/ quasiblock"); /*^getslot*/ @@ -1203,28 +1203,28 @@ lab_endgetargs:; ; { - MELT_LOCATION("warmelt-first.melt:2523:/ locexp"); + MELT_LOCATION("warmelt-first.melt:2530:/ locexp"); inform (UNKNOWN_LOCATION, "MELT help for option %s : %s", /*_?*/ meltfram__.loc_CSTRING__o0, melt_string_str ((melt_ptr_t) /*_.OPTHELP__V10*/ meltfptr[9])) ;} ; - MELT_LOCATION("warmelt-first.melt:2526:/ quasiblock"); + MELT_LOCATION("warmelt-first.melt:2533:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.HELPSYMB__V2*/ meltfptr[1];; - MELT_LOCATION("warmelt-first.melt:2526:/ finalreturn"); + MELT_LOCATION("warmelt-first.melt:2533:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*_.LET___V9*/ meltfptr[8] = /*_.RETURN___V11*/ meltfptr[10];; - MELT_LOCATION("warmelt-first.melt:2520:/ clear"); + MELT_LOCATION("warmelt-first.melt:2527:/ clear"); /*clear*/ /*_.OPTHELP__V10*/ meltfptr[9] = 0 ; /*^clear*/ /*clear*/ /*_.RETURN___V11*/ meltfptr[10] = 0 ; /*_.IFELSE___V8*/ meltfptr[7] = /*_.LET___V9*/ meltfptr[8];; /*epilog*/ - MELT_LOCATION("warmelt-first.melt:2519:/ clear"); + MELT_LOCATION("warmelt-first.melt:2526:/ clear"); /*clear*/ /*_.LET___V9*/ meltfptr[8] = 0 ;} ; } else {/*^cond.else*/ @@ -1232,7 +1232,7 @@ lab_endgetargs:; /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-first.melt:2529:/ quasiblock"); + MELT_LOCATION("warmelt-first.melt:2536:/ quasiblock"); /*^apply*/ @@ -1240,7 +1240,7 @@ lab_endgetargs:; /*_.SORTEDSYMBTUP__V13*/ meltfptr[10] = melt_apply ((meltclosure_ptr_t)((/*!MAPOBJECT_SORTED_ATTRIBUTE_TUPLE*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.OPTMAP__V4*/ meltfptr[3]), (""), (union meltparam_un*)0, "", (union meltparam_un*)0); } ; - MELT_LOCATION("warmelt-first.melt:2531:/ quasiblock"); + MELT_LOCATION("warmelt-first.melt:2538:/ quasiblock"); /*^newclosure*/ @@ -1248,7 +1248,7 @@ lab_endgetargs:; meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_5*/ meltfrout->tabval[5])), (0)); ; /*_.LAMBDA___V14*/ meltfptr[8] = /*_.LAMBDA___V15*/ meltfptr[14];; - MELT_LOCATION("warmelt-first.melt:2530:/ apply"); + MELT_LOCATION("warmelt-first.melt:2537:/ apply"); /*apply*/{ union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); @@ -1261,7 +1261,7 @@ lab_endgetargs:; (melt_multiple_length((melt_ptr_t)(/*_.SORTEDSYMBTUP__V13*/ meltfptr[10])));; { - MELT_LOCATION("warmelt-first.melt:2537:/ locexp"); + MELT_LOCATION("warmelt-first.melt:2544:/ locexp"); int i=0; inform (UNKNOWN_LOCATION, "There are %d MELT options", (int) /*_#NBSYMB__L2*/ meltfnum[1]); @@ -1278,16 +1278,16 @@ lab_endgetargs:; inform (UNKNOWN_LOCATION, "Use -f[plugin-arg-]melt-option=help=X for help about MELT option X"); ;} ; - MELT_LOCATION("warmelt-first.melt:2552:/ quasiblock"); + MELT_LOCATION("warmelt-first.melt:2559:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.HELPSYMB__V2*/ meltfptr[1];; - MELT_LOCATION("warmelt-first.melt:2552:/ finalreturn"); + MELT_LOCATION("warmelt-first.melt:2559:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*_.LET___V12*/ meltfptr[9] = /*_.RETURN___V17*/ meltfptr[16];; - MELT_LOCATION("warmelt-first.melt:2529:/ clear"); + MELT_LOCATION("warmelt-first.melt:2536:/ clear"); /*clear*/ /*_.SORTEDSYMBTUP__V13*/ meltfptr[10] = 0 ; /*^clear*/ /*clear*/ /*_.LAMBDA___V14*/ meltfptr[8] = 0 ; @@ -1297,7 +1297,7 @@ lab_endgetargs:; /*clear*/ /*_#NBSYMB__L2*/ meltfnum[1] = 0 ; /*^clear*/ /*clear*/ /*_.RETURN___V17*/ meltfptr[16] = 0 ; - MELT_LOCATION("warmelt-first.melt:2528:/ quasiblock"); + MELT_LOCATION("warmelt-first.melt:2535:/ quasiblock"); /*_.PROGN___V18*/ meltfptr[10] = /*_.LET___V12*/ meltfptr[9];; @@ -1306,7 +1306,7 @@ lab_endgetargs:; /*_.IFELSE___V8*/ meltfptr[7] = /*_.PROGN___V18*/ meltfptr[10];; /*epilog*/ - MELT_LOCATION("warmelt-first.melt:2519:/ clear"); + MELT_LOCATION("warmelt-first.melt:2526:/ clear"); /*clear*/ /*_.LET___V12*/ meltfptr[9] = 0 ; /*^clear*/ /*clear*/ /*_.PROGN___V18*/ meltfptr[10] = 0 ;} @@ -1315,7 +1315,7 @@ lab_endgetargs:; ; /*_.LET___V3*/ meltfptr[2] = /*_.IFELSE___V8*/ meltfptr[7];; - MELT_LOCATION("warmelt-first.melt:2514:/ clear"); + MELT_LOCATION("warmelt-first.melt:2521:/ clear"); /*clear*/ /*_.OPTMAP__V4*/ meltfptr[3] = 0 ; /*^clear*/ /*clear*/ /*_.SYMB__V5*/ meltfptr[4] = 0 ; @@ -1325,11 +1325,11 @@ lab_endgetargs:; /*clear*/ /*_#IS_A__L1*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V8*/ meltfptr[7] = 0 ; - MELT_LOCATION("warmelt-first.melt:2513:/ quasiblock"); + MELT_LOCATION("warmelt-first.melt:2520:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V3*/ meltfptr[2];; - MELT_LOCATION("warmelt-first.melt:2513:/ finalreturn"); + MELT_LOCATION("warmelt-first.melt:2520:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*epilog*/ @@ -1399,7 +1399,7 @@ melt_trace_start("LAMBDA_", meltcallcount); /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-first.melt:2531:/ getarg"); + MELT_LOCATION("warmelt-first.melt:2538:/ getarg"); /*_.SY__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; ; goto lab_endgetargs; @@ -1420,11 +1420,11 @@ lab_endgetargs:; /*_.NAMED_NAME__V3*/ meltfptr[2] = NULL;; } ; - MELT_LOCATION("warmelt-first.melt:2531:/ quasiblock"); + MELT_LOCATION("warmelt-first.melt:2538:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.NAMED_NAME__V3*/ meltfptr[2];; - MELT_LOCATION("warmelt-first.melt:2531:/ finalreturn"); + MELT_LOCATION("warmelt-first.melt:2538:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*epilog*/ @@ -1494,7 +1494,7 @@ melt_trace_start("MAPOBJECT_EVERY", meltcallcount); /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-first.melt:2608:/ getarg"); + MELT_LOCATION("warmelt-first.melt:2615:/ getarg"); /*_.MAP__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; /*getarg#1*/ @@ -1512,7 +1512,7 @@ lab_endgetargs:; /*_#IS_MAPOBJECT__L1*/ meltfnum[0] = (melt_magic_discr((melt_ptr_t)(/*_.MAP__V2*/ meltfptr[1])) == OBMAG_MAPOBJECTS);; - MELT_LOCATION("warmelt-first.melt:2612:/ cond"); + MELT_LOCATION("warmelt-first.melt:2619:/ cond"); /*cond*/ if (/*_#IS_MAPOBJECT__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -1520,7 +1520,7 @@ lab_endgetargs:; /*_#IS_CLOSURE__L2*/ meltfnum[1] = (melt_magic_discr((melt_ptr_t)(/*_.F__V3*/ meltfptr[2])) == OBMAG_CLOSURE);; - MELT_LOCATION("warmelt-first.melt:2613:/ cond"); + MELT_LOCATION("warmelt-first.melt:2620:/ cond"); /*cond*/ if (/*_#IS_CLOSURE__L2*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -1545,7 +1545,7 @@ lab_endgetargs:; - MELT_LOCATION("warmelt-first.melt:2617:/ apply"); + MELT_LOCATION("warmelt-first.melt:2624:/ apply"); /*apply*/{ union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); @@ -1561,7 +1561,7 @@ lab_endgetargs:; /*citerepilog*/ - MELT_LOCATION("warmelt-first.melt:2614:/ clear"); + MELT_LOCATION("warmelt-first.melt:2621:/ clear"); /*clear*/ /*_.CURAT__V4*/ meltfptr[3] = 0 ; /*^clear*/ /*clear*/ /*_.CURVAL__V5*/ meltfptr[4] = 0 ; @@ -1575,14 +1575,14 @@ lab_endgetargs:; ; /*epilog*/ - MELT_LOCATION("warmelt-first.melt:2612:/ clear"); + MELT_LOCATION("warmelt-first.melt:2619:/ clear"); /*clear*/ /*_#IS_CLOSURE__L2*/ meltfnum[1] = 0 ;} ; } /*noelse*/ ; /*epilog*/ - MELT_LOCATION("warmelt-first.melt:2608:/ clear"); + MELT_LOCATION("warmelt-first.melt:2615:/ clear"); /*clear*/ /*_#IS_MAPOBJECT__L1*/ meltfnum[0] = 0 ;} ; @@ -1647,7 +1647,7 @@ melt_trace_start("MAPOBJECT_ITERATE_TEST", meltcallcount); /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-first.melt:2623:/ getarg"); + MELT_LOCATION("warmelt-first.melt:2630:/ getarg"); /*_.MAP__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; /*getarg#1*/ @@ -1665,7 +1665,7 @@ lab_endgetargs:; /*_#IS_MAPOBJECT__L1*/ meltfnum[0] = (melt_magic_discr((melt_ptr_t)(/*_.MAP__V2*/ meltfptr[1])) == OBMAG_MAPOBJECTS);; - MELT_LOCATION("warmelt-first.melt:2630:/ cond"); + MELT_LOCATION("warmelt-first.melt:2637:/ cond"); /*cond*/ if (/*_#IS_MAPOBJECT__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -1673,7 +1673,7 @@ lab_endgetargs:; /*_#IS_CLOSURE__L2*/ meltfnum[1] = (melt_magic_discr((melt_ptr_t)(/*_.F__V3*/ meltfptr[2])) == OBMAG_CLOSURE);; - MELT_LOCATION("warmelt-first.melt:2631:/ cond"); + MELT_LOCATION("warmelt-first.melt:2638:/ cond"); /*cond*/ if (/*_#IS_CLOSURE__L2*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -1698,7 +1698,7 @@ lab_endgetargs:; - MELT_LOCATION("warmelt-first.melt:2635:/ quasiblock"); + MELT_LOCATION("warmelt-first.melt:2642:/ quasiblock"); /*^multiapply*/ @@ -1721,17 +1721,17 @@ lab_endgetargs:; /*_#NULL__L3*/ meltfnum[2] = ((/*_.TEST__V7*/ meltfptr[6]) == NULL);; - MELT_LOCATION("warmelt-first.melt:2638:/ cond"); + MELT_LOCATION("warmelt-first.melt:2645:/ cond"); /*cond*/ if (/*_#NULL__L3*/ meltfnum[2]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-first.melt:2639:/ quasiblock"); + MELT_LOCATION("warmelt-first.melt:2646:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.CURAT__V4*/ meltfptr[3];; - MELT_LOCATION("warmelt-first.melt:2639:/ putxtraresult"); + MELT_LOCATION("warmelt-first.melt:2646:/ putxtraresult"); if (!xrestab_ || !xresdescr_) goto labend_rout; if (xresdescr_[0] != BPAR_PTR) goto labend_rout; if (xrestab_[0].bp_aptr) *(xrestab_[0].bp_aptr) = (melt_ptr_t) (/*_.CURVAL__V5*/ meltfptr[4]); @@ -1747,7 +1747,7 @@ lab_endgetargs:; /*_.IF___V9*/ meltfptr[8] = /*_.RETURN___V10*/ meltfptr[9];; /*epilog*/ - MELT_LOCATION("warmelt-first.melt:2638:/ clear"); + MELT_LOCATION("warmelt-first.melt:2645:/ clear"); /*clear*/ /*_.RETURN___V10*/ meltfptr[9] = 0 ;} ; } else {/*^cond.else*/ @@ -1759,7 +1759,7 @@ lab_endgetargs:; /*_.MULTI___V6*/ meltfptr[5] = /*_.IF___V9*/ meltfptr[8];; - MELT_LOCATION("warmelt-first.melt:2635:/ clear"); + MELT_LOCATION("warmelt-first.melt:2642:/ clear"); /*clear*/ /*_#NULL__L3*/ meltfnum[2] = 0 ; /*^clear*/ /*clear*/ /*_.IF___V9*/ meltfptr[8] = 0 ; @@ -1773,7 +1773,7 @@ lab_endgetargs:; /*citerepilog*/ - MELT_LOCATION("warmelt-first.melt:2632:/ clear"); + MELT_LOCATION("warmelt-first.melt:2639:/ clear"); /*clear*/ /*_.CURAT__V4*/ meltfptr[3] = 0 ; /*^clear*/ /*clear*/ /*_.CURVAL__V5*/ meltfptr[4] = 0 ; @@ -1787,14 +1787,14 @@ lab_endgetargs:; ; /*epilog*/ - MELT_LOCATION("warmelt-first.melt:2630:/ clear"); + MELT_LOCATION("warmelt-first.melt:2637:/ clear"); /*clear*/ /*_#IS_CLOSURE__L2*/ meltfnum[1] = 0 ;} ; } /*noelse*/ ; /*epilog*/ - MELT_LOCATION("warmelt-first.melt:2623:/ clear"); + MELT_LOCATION("warmelt-first.melt:2630:/ clear"); /*clear*/ /*_#IS_MAPOBJECT__L1*/ meltfnum[0] = 0 ;} ; @@ -1859,7 +1859,7 @@ melt_trace_start("LIST_EVERY", meltcallcount); /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-first.melt:2663:/ getarg"); + MELT_LOCATION("warmelt-first.melt:2670:/ getarg"); /*_.LIS__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; /*getarg#1*/ @@ -1877,7 +1877,7 @@ lab_endgetargs:; /*_#IS_LIST__L1*/ meltfnum[0] = (melt_magic_discr((melt_ptr_t)(/*_.LIS__V2*/ meltfptr[1])) == OBMAG_LIST);; - MELT_LOCATION("warmelt-first.melt:2665:/ cond"); + MELT_LOCATION("warmelt-first.melt:2672:/ cond"); /*cond*/ if (/*_#IS_LIST__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -1885,7 +1885,7 @@ lab_endgetargs:; /*_#IS_CLOSURE__L2*/ meltfnum[1] = (melt_magic_discr((melt_ptr_t)(/*_.F__V3*/ meltfptr[2])) == OBMAG_CLOSURE);; - MELT_LOCATION("warmelt-first.melt:2666:/ cond"); + MELT_LOCATION("warmelt-first.melt:2673:/ cond"); /*cond*/ if (/*_#IS_CLOSURE__L2*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -1899,7 +1899,7 @@ lab_endgetargs:; /*_.CURCOMP__V5*/ meltfptr[4] = melt_pair_head(/*_.CURPAIR__V4*/ meltfptr[3]); - MELT_LOCATION("warmelt-first.melt:2670:/ apply"); + MELT_LOCATION("warmelt-first.melt:2677:/ apply"); /*apply*/{ /*_.F__V6*/ meltfptr[5] = melt_apply ((meltclosure_ptr_t)(/*_.F__V3*/ meltfptr[2]), (melt_ptr_t)(/*_.CURCOMP__V5*/ meltfptr[4]), (""), (union meltparam_un*)0, "", (union meltparam_un*)0); } @@ -1908,7 +1908,7 @@ lab_endgetargs:; /*citerepilog*/ - MELT_LOCATION("warmelt-first.melt:2667:/ clear"); + MELT_LOCATION("warmelt-first.melt:2674:/ clear"); /*clear*/ /*_.CURPAIR__V4*/ meltfptr[3] = 0 ; /*^clear*/ /*clear*/ /*_.CURCOMP__V5*/ meltfptr[4] = 0 ; @@ -1922,14 +1922,14 @@ lab_endgetargs:; ; /*epilog*/ - MELT_LOCATION("warmelt-first.melt:2665:/ clear"); + MELT_LOCATION("warmelt-first.melt:2672:/ clear"); /*clear*/ /*_#IS_CLOSURE__L2*/ meltfnum[1] = 0 ;} ; } /*noelse*/ ; /*epilog*/ - MELT_LOCATION("warmelt-first.melt:2663:/ clear"); + MELT_LOCATION("warmelt-first.melt:2670:/ clear"); /*clear*/ /*_#IS_LIST__L1*/ meltfnum[0] = 0 ;} ; @@ -1994,7 +1994,7 @@ melt_trace_start("LIST_ITERATE_TEST", meltcallcount); /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-first.melt:2674:/ getarg"); + MELT_LOCATION("warmelt-first.melt:2681:/ getarg"); /*_.LIS__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; /*getarg#1*/ @@ -2012,7 +2012,7 @@ lab_endgetargs:; /*_#IS_LIST__L1*/ meltfnum[0] = (melt_magic_discr((melt_ptr_t)(/*_.LIS__V2*/ meltfptr[1])) == OBMAG_LIST);; - MELT_LOCATION("warmelt-first.melt:2678:/ cond"); + MELT_LOCATION("warmelt-first.melt:2685:/ cond"); /*cond*/ if (/*_#IS_LIST__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -2020,7 +2020,7 @@ lab_endgetargs:; /*_#IS_CLOSURE__L2*/ meltfnum[1] = (melt_magic_discr((melt_ptr_t)(/*_.F__V3*/ meltfptr[2])) == OBMAG_CLOSURE);; - MELT_LOCATION("warmelt-first.melt:2679:/ cond"); + MELT_LOCATION("warmelt-first.melt:2686:/ cond"); /*cond*/ if (/*_#IS_CLOSURE__L2*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -2034,7 +2034,7 @@ lab_endgetargs:; /*_.CURCOMP__V5*/ meltfptr[4] = melt_pair_head(/*_.CURPAIR__V4*/ meltfptr[3]); - MELT_LOCATION("warmelt-first.melt:2683:/ quasiblock"); + MELT_LOCATION("warmelt-first.melt:2690:/ quasiblock"); /*^multiapply*/ @@ -2057,7 +2057,7 @@ lab_endgetargs:; /*_#NULL__L3*/ meltfnum[2] = ((/*_.TEST__V7*/ meltfptr[6]) == NULL);; - MELT_LOCATION("warmelt-first.melt:2686:/ cond"); + MELT_LOCATION("warmelt-first.melt:2693:/ cond"); /*cond*/ if (/*_#NULL__L3*/ meltfnum[2]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -2067,7 +2067,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.CURCOMP__V5*/ meltfptr[4];; - MELT_LOCATION("warmelt-first.melt:2686:/ putxtraresult"); + MELT_LOCATION("warmelt-first.melt:2693:/ putxtraresult"); if (!xrestab_ || !xresdescr_) goto labend_rout; if (xresdescr_[0] != BPAR_PTR) goto labend_rout; if (xrestab_[0].bp_aptr) *(xrestab_[0].bp_aptr) = (melt_ptr_t) (/*_.OTHER__V8*/ meltfptr[7]); @@ -2078,7 +2078,7 @@ lab_endgetargs:; /*_.IF___V9*/ meltfptr[8] = /*_.RETURN___V10*/ meltfptr[9];; /*epilog*/ - MELT_LOCATION("warmelt-first.melt:2686:/ clear"); + MELT_LOCATION("warmelt-first.melt:2693:/ clear"); /*clear*/ /*_.RETURN___V10*/ meltfptr[9] = 0 ;} ; } else {/*^cond.else*/ @@ -2090,7 +2090,7 @@ lab_endgetargs:; /*_.MULTI___V6*/ meltfptr[5] = /*_.IF___V9*/ meltfptr[8];; - MELT_LOCATION("warmelt-first.melt:2683:/ clear"); + MELT_LOCATION("warmelt-first.melt:2690:/ clear"); /*clear*/ /*_#NULL__L3*/ meltfnum[2] = 0 ; /*^clear*/ /*clear*/ /*_.IF___V9*/ meltfptr[8] = 0 ; @@ -2101,7 +2101,7 @@ lab_endgetargs:; /*citerepilog*/ - MELT_LOCATION("warmelt-first.melt:2680:/ clear"); + MELT_LOCATION("warmelt-first.melt:2687:/ clear"); /*clear*/ /*_.CURPAIR__V4*/ meltfptr[3] = 0 ; /*^clear*/ /*clear*/ /*_.CURCOMP__V5*/ meltfptr[4] = 0 ; @@ -2115,14 +2115,14 @@ lab_endgetargs:; ; /*epilog*/ - MELT_LOCATION("warmelt-first.melt:2678:/ clear"); + MELT_LOCATION("warmelt-first.melt:2685:/ clear"); /*clear*/ /*_#IS_CLOSURE__L2*/ meltfnum[1] = 0 ;} ; } /*noelse*/ ; /*epilog*/ - MELT_LOCATION("warmelt-first.melt:2674:/ clear"); + MELT_LOCATION("warmelt-first.melt:2681:/ clear"); /*clear*/ /*_#IS_LIST__L1*/ meltfnum[0] = 0 ;} ; @@ -2187,7 +2187,7 @@ melt_trace_start("LIST_APPEND2LIST", meltcallcount); /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-first.melt:2690:/ getarg"); + MELT_LOCATION("warmelt-first.melt:2697:/ getarg"); /*_.DLIST__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; /*getarg#1*/ @@ -2209,7 +2209,7 @@ lab_endgetargs:; /*_#NOT__L2*/ meltfnum[1] = (!(/*_#IS_LIST__L1*/ meltfnum[0]));; - MELT_LOCATION("warmelt-first.melt:2694:/ cond"); + MELT_LOCATION("warmelt-first.melt:2701:/ cond"); /*cond*/ if (/*_#NOT__L2*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -2219,13 +2219,13 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.DLIST__V2*/ meltfptr[1];; - MELT_LOCATION("warmelt-first.melt:2694:/ finalreturn"); + MELT_LOCATION("warmelt-first.melt:2701:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*_.IF___V4*/ meltfptr[3] = /*_.RETURN___V5*/ meltfptr[4];; /*epilog*/ - MELT_LOCATION("warmelt-first.melt:2694:/ clear"); + MELT_LOCATION("warmelt-first.melt:2701:/ clear"); /*clear*/ /*_.RETURN___V5*/ meltfptr[4] = 0 ;} ; } else {/*^cond.else*/ @@ -2241,7 +2241,7 @@ lab_endgetargs:; /*_#NOT__L4*/ meltfnum[3] = (!(/*_#IS_LIST__L3*/ meltfnum[2]));; - MELT_LOCATION("warmelt-first.melt:2695:/ cond"); + MELT_LOCATION("warmelt-first.melt:2702:/ cond"); /*cond*/ if (/*_#NOT__L4*/ meltfnum[3]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -2249,12 +2249,12 @@ lab_endgetargs:; /*_.MAKE_LIST__V7*/ meltfptr[6] = (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ meltfrout->tabval[0]))));; - MELT_LOCATION("warmelt-first.melt:2695:/ compute"); + MELT_LOCATION("warmelt-first.melt:2702:/ compute"); /*_.DLIST__V2*/ meltfptr[1] = /*_.SETQ___V8*/ meltfptr[7] = /*_.MAKE_LIST__V7*/ meltfptr[6];; /*_.IF___V6*/ meltfptr[4] = /*_.SETQ___V8*/ meltfptr[7];; /*epilog*/ - MELT_LOCATION("warmelt-first.melt:2695:/ clear"); + MELT_LOCATION("warmelt-first.melt:2702:/ clear"); /*clear*/ /*_.MAKE_LIST__V7*/ meltfptr[6] = 0 ; /*^clear*/ /*clear*/ /*_.SETQ___V8*/ meltfptr[7] = 0 ;} @@ -2274,30 +2274,30 @@ lab_endgetargs:; { - MELT_LOCATION("warmelt-first.melt:2699:/ locexp"); + MELT_LOCATION("warmelt-first.melt:2706:/ locexp"); meltgc_append_list((melt_ptr_t)(/*_.DLIST__V2*/ meltfptr[1]), (melt_ptr_t)(/*_.CURCOMP__V10*/ meltfptr[7]));} ; } /* end cit1__EACHLIST */ /*citerepilog*/ - MELT_LOCATION("warmelt-first.melt:2696:/ clear"); + MELT_LOCATION("warmelt-first.melt:2703:/ clear"); /*clear*/ /*_.CURPAIR__V9*/ meltfptr[6] = 0 ; /*^clear*/ /*clear*/ /*_.CURCOMP__V10*/ meltfptr[7] = 0 ;} /*endciterblock FOREACH_IN_LIST*/ ; - MELT_LOCATION("warmelt-first.melt:2700:/ quasiblock"); + MELT_LOCATION("warmelt-first.melt:2707:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.DLIST__V2*/ meltfptr[1];; - MELT_LOCATION("warmelt-first.melt:2700:/ finalreturn"); + MELT_LOCATION("warmelt-first.melt:2707:/ finalreturn"); ; /*finalret*/ goto labend_rout ; - MELT_LOCATION("warmelt-first.melt:2690:/ quasiblock"); + MELT_LOCATION("warmelt-first.melt:2697:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.RETURN___V11*/ meltfptr[10];; - MELT_LOCATION("warmelt-first.melt:2690:/ finalreturn"); + MELT_LOCATION("warmelt-first.melt:2697:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*epilog*/ @@ -2379,7 +2379,7 @@ melt_trace_start("LIST_MAP", meltcallcount); /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-first.melt:2705:/ getarg"); + MELT_LOCATION("warmelt-first.melt:2712:/ getarg"); /*_.LIS__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; /*getarg#1*/ @@ -2397,7 +2397,7 @@ lab_endgetargs:; /*_#IS_LIST__L1*/ meltfnum[0] = (melt_magic_discr((melt_ptr_t)(/*_.LIS__V2*/ meltfptr[1])) == OBMAG_LIST);; - MELT_LOCATION("warmelt-first.melt:2709:/ cond"); + MELT_LOCATION("warmelt-first.melt:2716:/ cond"); /*cond*/ if (/*_#IS_LIST__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -2405,13 +2405,13 @@ lab_endgetargs:; /*_#IS_CLOSURE__L2*/ meltfnum[1] = (melt_magic_discr((melt_ptr_t)(/*_.F__V3*/ meltfptr[2])) == OBMAG_CLOSURE);; - MELT_LOCATION("warmelt-first.melt:2710:/ cond"); + MELT_LOCATION("warmelt-first.melt:2717:/ cond"); /*cond*/ if (/*_#IS_CLOSURE__L2*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-first.melt:2711:/ quasiblock"); + MELT_LOCATION("warmelt-first.melt:2718:/ quasiblock"); /*_.RESLIS__V7*/ meltfptr[6] = @@ -2420,7 +2420,7 @@ lab_endgetargs:; /*_.CURPAIR__V8*/ meltfptr[7] = (melt_list_first((melt_ptr_t)(/*_.LIS__V2*/ meltfptr[1])));; - MELT_LOCATION("warmelt-first.melt:2713:/ loop"); + MELT_LOCATION("warmelt-first.melt:2720:/ loop"); /*loop*/{ labloop_LISLOOP_1:;/*^loopbody*/ /*^block*/ @@ -2432,7 +2432,7 @@ lab_endgetargs:; /*_#NOT__L4*/ meltfnum[3] = (!(/*_#IS_PAIR__L3*/ meltfnum[2]));; - MELT_LOCATION("warmelt-first.melt:2714:/ cond"); + MELT_LOCATION("warmelt-first.melt:2721:/ cond"); /*cond*/ if (/*_#NOT__L4*/ meltfnum[3]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -2453,12 +2453,12 @@ lab_endgetargs:; ; } /*noelse*/ ; - MELT_LOCATION("warmelt-first.melt:2715:/ quasiblock"); + MELT_LOCATION("warmelt-first.melt:2722:/ quasiblock"); /*_.CURELEM__V11*/ meltfptr[10] = (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V8*/ meltfptr[7])));; - MELT_LOCATION("warmelt-first.melt:2716:/ apply"); + MELT_LOCATION("warmelt-first.melt:2723:/ apply"); /*apply*/{ /*_.F__V12*/ meltfptr[11] = melt_apply ((meltclosure_ptr_t)(/*_.F__V3*/ meltfptr[2]), (melt_ptr_t)(/*_.CURELEM__V11*/ meltfptr[10]), (""), (union meltparam_un*)0, "", (union meltparam_un*)0); } @@ -2469,17 +2469,17 @@ lab_endgetargs:; meltgc_append_list((melt_ptr_t)(/*_.RESLIS__V7*/ meltfptr[6]), (melt_ptr_t)(/*_.F__V12*/ meltfptr[11]));} ; - MELT_LOCATION("warmelt-first.melt:2715:/ clear"); + MELT_LOCATION("warmelt-first.melt:2722:/ clear"); /*clear*/ /*_.CURELEM__V11*/ meltfptr[10] = 0 ; /*^clear*/ /*clear*/ /*_.F__V12*/ meltfptr[11] = 0 ; /*_.PAIR_TAIL__V13*/ meltfptr[10] = (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V8*/ meltfptr[7])));; - MELT_LOCATION("warmelt-first.melt:2717:/ compute"); + MELT_LOCATION("warmelt-first.melt:2724:/ compute"); /*_.CURPAIR__V8*/ meltfptr[7] = /*_.SETQ___V14*/ meltfptr[11] = /*_.PAIR_TAIL__V13*/ meltfptr[10];; /*epilog*/ - MELT_LOCATION("warmelt-first.melt:2713:/ clear"); + MELT_LOCATION("warmelt-first.melt:2720:/ clear"); /*clear*/ /*_#IS_PAIR__L3*/ meltfnum[2] = 0 ; /*^clear*/ /*clear*/ /*_#NOT__L4*/ meltfnum[3] = 0 ; @@ -2499,7 +2499,7 @@ lab_endgetargs:; /*_.LET___V6*/ meltfptr[5] = /*_.FOREVER___V9*/ meltfptr[8];; - MELT_LOCATION("warmelt-first.melt:2711:/ clear"); + MELT_LOCATION("warmelt-first.melt:2718:/ clear"); /*clear*/ /*_.RESLIS__V7*/ meltfptr[6] = 0 ; /*^clear*/ /*clear*/ /*_.CURPAIR__V8*/ meltfptr[7] = 0 ; @@ -2508,7 +2508,7 @@ lab_endgetargs:; /*_.IF___V5*/ meltfptr[4] = /*_.LET___V6*/ meltfptr[5];; /*epilog*/ - MELT_LOCATION("warmelt-first.melt:2710:/ clear"); + MELT_LOCATION("warmelt-first.melt:2717:/ clear"); /*clear*/ /*_.LET___V6*/ meltfptr[5] = 0 ;} ; } else {/*^cond.else*/ @@ -2521,7 +2521,7 @@ lab_endgetargs:; /*_.IF___V4*/ meltfptr[3] = /*_.IF___V5*/ meltfptr[4];; /*epilog*/ - MELT_LOCATION("warmelt-first.melt:2709:/ clear"); + MELT_LOCATION("warmelt-first.melt:2716:/ clear"); /*clear*/ /*_#IS_CLOSURE__L2*/ meltfnum[1] = 0 ; /*^clear*/ /*clear*/ /*_.IF___V5*/ meltfptr[4] = 0 ;} @@ -2531,11 +2531,11 @@ lab_endgetargs:; /*_.IF___V4*/ meltfptr[3] = NULL;; } ; - MELT_LOCATION("warmelt-first.melt:2705:/ quasiblock"); + MELT_LOCATION("warmelt-first.melt:2712:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.IF___V4*/ meltfptr[3];; - MELT_LOCATION("warmelt-first.melt:2705:/ finalreturn"); + MELT_LOCATION("warmelt-first.melt:2712:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*epilog*/ @@ -2607,7 +2607,7 @@ melt_trace_start("LIST_FIND", meltcallcount); /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-first.melt:2722:/ getarg"); + MELT_LOCATION("warmelt-first.melt:2729:/ getarg"); /*_.LIS__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; /*getarg#1*/ @@ -2632,13 +2632,13 @@ lab_endgetargs:; /*_#IS_LIST__L1*/ meltfnum[0] = (melt_magic_discr((melt_ptr_t)(/*_.LIS__V2*/ meltfptr[1])) == OBMAG_LIST);; - MELT_LOCATION("warmelt-first.melt:2725:/ cond"); + MELT_LOCATION("warmelt-first.melt:2732:/ cond"); /*cond*/ if (/*_#IS_LIST__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-first.melt:2726:/ quasiblock"); + MELT_LOCATION("warmelt-first.melt:2733:/ quasiblock"); /*_.CURPAIR__V7*/ meltfptr[6] = @@ -2647,13 +2647,13 @@ lab_endgetargs:; /*_#IS_CLOSURE__L2*/ meltfnum[1] = (melt_magic_discr((melt_ptr_t)(/*_.F__V4*/ meltfptr[3])) == OBMAG_CLOSURE);; - MELT_LOCATION("warmelt-first.melt:2727:/ cond"); + MELT_LOCATION("warmelt-first.melt:2734:/ cond"); /*cond*/ if (/*_#IS_CLOSURE__L2*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-first.melt:2728:/ loop"); + MELT_LOCATION("warmelt-first.melt:2735:/ loop"); /*loop*/{ labloop_LISLOOP_2:;/*^loopbody*/ /*^block*/ @@ -2665,7 +2665,7 @@ lab_endgetargs:; /*_#NOT__L4*/ meltfnum[3] = (!(/*_#IS_PAIR__L3*/ meltfnum[2]));; - MELT_LOCATION("warmelt-first.melt:2729:/ cond"); + MELT_LOCATION("warmelt-first.melt:2736:/ cond"); /*cond*/ if (/*_#NOT__L4*/ meltfnum[3]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -2686,12 +2686,12 @@ lab_endgetargs:; ; } /*noelse*/ ; - MELT_LOCATION("warmelt-first.melt:2730:/ quasiblock"); + MELT_LOCATION("warmelt-first.melt:2737:/ quasiblock"); /*_.CURELEM__V12*/ meltfptr[11] = (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V7*/ meltfptr[6])));; - MELT_LOCATION("warmelt-first.melt:2731:/ apply"); + MELT_LOCATION("warmelt-first.melt:2738:/ apply"); /*apply*/{ union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); @@ -2700,7 +2700,7 @@ lab_endgetargs:; /*_.T__V13*/ meltfptr[12] = melt_apply ((meltclosure_ptr_t)(/*_.F__V4*/ meltfptr[3]), (melt_ptr_t)(/*_.CURELEM__V12*/ meltfptr[11]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - MELT_LOCATION("warmelt-first.melt:2732:/ cond"); + MELT_LOCATION("warmelt-first.melt:2739:/ cond"); /*cond*/ if (/*_.T__V13*/ meltfptr[12]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -2710,13 +2710,13 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.T__V13*/ meltfptr[12];; - MELT_LOCATION("warmelt-first.melt:2732:/ finalreturn"); + MELT_LOCATION("warmelt-first.melt:2739:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*_.IF___V14*/ meltfptr[13] = /*_.RETURN___V15*/ meltfptr[14];; /*epilog*/ - MELT_LOCATION("warmelt-first.melt:2732:/ clear"); + MELT_LOCATION("warmelt-first.melt:2739:/ clear"); /*clear*/ /*_.RETURN___V15*/ meltfptr[14] = 0 ;} ; } else {/*^cond.else*/ @@ -2728,11 +2728,11 @@ lab_endgetargs:; /*_.PAIR_TAIL__V16*/ meltfptr[14] = (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V7*/ meltfptr[6])));; - MELT_LOCATION("warmelt-first.melt:2733:/ compute"); + MELT_LOCATION("warmelt-first.melt:2740:/ compute"); /*_.CURPAIR__V7*/ meltfptr[6] = /*_.SETQ___V17*/ meltfptr[16] = /*_.PAIR_TAIL__V16*/ meltfptr[14];; /*_.LET___V11*/ meltfptr[10] = /*_.SETQ___V17*/ meltfptr[16];; - MELT_LOCATION("warmelt-first.melt:2730:/ clear"); + MELT_LOCATION("warmelt-first.melt:2737:/ clear"); /*clear*/ /*_.CURELEM__V12*/ meltfptr[11] = 0 ; /*^clear*/ /*clear*/ /*_.T__V13*/ meltfptr[12] = 0 ; @@ -2744,7 +2744,7 @@ lab_endgetargs:; /*clear*/ /*_.SETQ___V17*/ meltfptr[16] = 0 ; /*epilog*/ - MELT_LOCATION("warmelt-first.melt:2728:/ clear"); + MELT_LOCATION("warmelt-first.melt:2735:/ clear"); /*clear*/ /*_#IS_PAIR__L3*/ meltfnum[2] = 0 ; /*^clear*/ /*clear*/ /*_#NOT__L4*/ meltfnum[3] = 0 ; @@ -2763,7 +2763,7 @@ lab_endgetargs:; /*_.IFELSE___V8*/ meltfptr[7] = /*_.FOREVER___V9*/ meltfptr[8];; /*epilog*/ - MELT_LOCATION("warmelt-first.melt:2727:/ clear"); + MELT_LOCATION("warmelt-first.melt:2734:/ clear"); /*clear*/ /*_.FOREVER___V9*/ meltfptr[8] = 0 ;} ; } else {/*^cond.else*/ @@ -2771,7 +2771,7 @@ lab_endgetargs:; /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-first.melt:2735:/ loop"); + MELT_LOCATION("warmelt-first.melt:2742:/ loop"); /*loop*/{ labloop_MEMLOOP_1:;/*^loopbody*/ /*^block*/ @@ -2783,7 +2783,7 @@ lab_endgetargs:; /*_#NOT__L6*/ meltfnum[3] = (!(/*_#IS_PAIR__L5*/ meltfnum[2]));; - MELT_LOCATION("warmelt-first.melt:2736:/ cond"); + MELT_LOCATION("warmelt-first.melt:2743:/ cond"); /*cond*/ if (/*_#NOT__L6*/ meltfnum[3]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -2804,7 +2804,7 @@ lab_endgetargs:; ; } /*noelse*/ ; - MELT_LOCATION("warmelt-first.melt:2737:/ quasiblock"); + MELT_LOCATION("warmelt-first.melt:2744:/ quasiblock"); /*_.CURELEM__V21*/ meltfptr[14] = @@ -2813,7 +2813,7 @@ lab_endgetargs:; /*_#__L7*/ meltfnum[6] = ((/*_.CURELEM__V21*/ meltfptr[14]) == (/*_.X__V3*/ meltfptr[2]));; - MELT_LOCATION("warmelt-first.melt:2738:/ cond"); + MELT_LOCATION("warmelt-first.melt:2745:/ cond"); /*cond*/ if (/*_#__L7*/ meltfnum[6]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -2823,13 +2823,13 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.CURELEM__V21*/ meltfptr[14];; - MELT_LOCATION("warmelt-first.melt:2738:/ finalreturn"); + MELT_LOCATION("warmelt-first.melt:2745:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*_.IF___V22*/ meltfptr[16] = /*_.RETURN___V23*/ meltfptr[10];; /*epilog*/ - MELT_LOCATION("warmelt-first.melt:2738:/ clear"); + MELT_LOCATION("warmelt-first.melt:2745:/ clear"); /*clear*/ /*_.RETURN___V23*/ meltfptr[10] = 0 ;} ; } else {/*^cond.else*/ @@ -2841,11 +2841,11 @@ lab_endgetargs:; /*_.PAIR_TAIL__V24*/ meltfptr[8] = (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V7*/ meltfptr[6])));; - MELT_LOCATION("warmelt-first.melt:2739:/ compute"); + MELT_LOCATION("warmelt-first.melt:2746:/ compute"); /*_.CURPAIR__V7*/ meltfptr[6] = /*_.SETQ___V25*/ meltfptr[10] = /*_.PAIR_TAIL__V24*/ meltfptr[8];; /*_.LET___V20*/ meltfptr[13] = /*_.SETQ___V25*/ meltfptr[10];; - MELT_LOCATION("warmelt-first.melt:2737:/ clear"); + MELT_LOCATION("warmelt-first.melt:2744:/ clear"); /*clear*/ /*_.CURELEM__V21*/ meltfptr[14] = 0 ; /*^clear*/ /*clear*/ /*_#__L7*/ meltfnum[6] = 0 ; @@ -2857,7 +2857,7 @@ lab_endgetargs:; /*clear*/ /*_.SETQ___V25*/ meltfptr[10] = 0 ; /*epilog*/ - MELT_LOCATION("warmelt-first.melt:2735:/ clear"); + MELT_LOCATION("warmelt-first.melt:2742:/ clear"); /*clear*/ /*_#IS_PAIR__L5*/ meltfnum[2] = 0 ; /*^clear*/ /*clear*/ /*_#NOT__L6*/ meltfnum[3] = 0 ; @@ -2876,14 +2876,14 @@ lab_endgetargs:; /*_.IFELSE___V8*/ meltfptr[7] = /*_.FOREVER___V18*/ meltfptr[11];; /*epilog*/ - MELT_LOCATION("warmelt-first.melt:2727:/ clear"); + MELT_LOCATION("warmelt-first.melt:2734:/ clear"); /*clear*/ /*_.FOREVER___V18*/ meltfptr[11] = 0 ;} ; } ; /*_.LET___V6*/ meltfptr[5] = /*_.IFELSE___V8*/ meltfptr[7];; - MELT_LOCATION("warmelt-first.melt:2726:/ clear"); + MELT_LOCATION("warmelt-first.melt:2733:/ clear"); /*clear*/ /*_.CURPAIR__V7*/ meltfptr[6] = 0 ; /*^clear*/ /*clear*/ /*_#IS_CLOSURE__L2*/ meltfnum[1] = 0 ; @@ -2892,7 +2892,7 @@ lab_endgetargs:; /*_.IF___V5*/ meltfptr[4] = /*_.LET___V6*/ meltfptr[5];; /*epilog*/ - MELT_LOCATION("warmelt-first.melt:2725:/ clear"); + MELT_LOCATION("warmelt-first.melt:2732:/ clear"); /*clear*/ /*_.LET___V6*/ meltfptr[5] = 0 ;} ; } else {/*^cond.else*/ @@ -2900,11 +2900,11 @@ lab_endgetargs:; /*_.IF___V5*/ meltfptr[4] = NULL;; } ; - MELT_LOCATION("warmelt-first.melt:2722:/ quasiblock"); + MELT_LOCATION("warmelt-first.melt:2729:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.IF___V5*/ meltfptr[4];; - MELT_LOCATION("warmelt-first.melt:2722:/ finalreturn"); + MELT_LOCATION("warmelt-first.melt:2729:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*epilog*/ @@ -2976,7 +2976,7 @@ melt_trace_start("LIST_TO_MULTIPLE", meltcallcount); /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-first.melt:2745:/ getarg"); + MELT_LOCATION("warmelt-first.melt:2752:/ getarg"); /*_.LIS__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; /*getarg#1*/ @@ -3001,7 +3001,7 @@ lab_endgetargs:; /*_#NULL__L1*/ meltfnum[0] = ((/*_.DISC__V3*/ meltfptr[2]) == NULL);; - MELT_LOCATION("warmelt-first.melt:2746:/ cond"); + MELT_LOCATION("warmelt-first.melt:2753:/ cond"); /*cond*/ if (/*_#NULL__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -3012,7 +3012,7 @@ lab_endgetargs:; /*_.IF___V5*/ meltfptr[4] = /*_.SETQ___V6*/ meltfptr[5];; /*epilog*/ - MELT_LOCATION("warmelt-first.melt:2746:/ clear"); + MELT_LOCATION("warmelt-first.melt:2753:/ clear"); /*clear*/ /*_.SETQ___V6*/ meltfptr[5] = 0 ;} ; } else {/*^cond.else*/ @@ -3024,13 +3024,13 @@ lab_endgetargs:; /*_#IS_LIST__L2*/ meltfnum[1] = (melt_magic_discr((melt_ptr_t)(/*_.LIS__V2*/ meltfptr[1])) == OBMAG_LIST);; - MELT_LOCATION("warmelt-first.melt:2747:/ cond"); + MELT_LOCATION("warmelt-first.melt:2754:/ cond"); /*cond*/ if (/*_#IS_LIST__L2*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-first.melt:2748:/ quasiblock"); + MELT_LOCATION("warmelt-first.melt:2755:/ quasiblock"); /*_#LN__L3*/ meltfnum[2] = @@ -3047,7 +3047,7 @@ lab_endgetargs:; /*_.CURPAIR__V11*/ meltfptr[10] = (melt_list_first((melt_ptr_t)(/*_.LIS__V2*/ meltfptr[1])));; - MELT_LOCATION("warmelt-first.melt:2754:/ quasiblock"); + MELT_LOCATION("warmelt-first.melt:2761:/ quasiblock"); /*^newclosure*/ @@ -3073,7 +3073,7 @@ lab_endgetargs:; ((meltclosure_ptr_t)/*_.LAMBDA___V13*/ meltfptr[12])->tabval[2] = (melt_ptr_t)(/*_.TUP__V9*/ meltfptr[8]); ; /*_.LAMBDA___V12*/ meltfptr[11] = /*_.LAMBDA___V13*/ meltfptr[12];; - MELT_LOCATION("warmelt-first.melt:2752:/ apply"); + MELT_LOCATION("warmelt-first.melt:2759:/ apply"); /*apply*/{ union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); @@ -3084,7 +3084,7 @@ lab_endgetargs:; ; /*_.LET___V8*/ meltfptr[7] = /*_.TUP__V9*/ meltfptr[8];; - MELT_LOCATION("warmelt-first.melt:2748:/ clear"); + MELT_LOCATION("warmelt-first.melt:2755:/ clear"); /*clear*/ /*_#LN__L3*/ meltfnum[2] = 0 ; /*^clear*/ /*clear*/ /*_.TUP__V9*/ meltfptr[8] = 0 ; @@ -3099,7 +3099,7 @@ lab_endgetargs:; /*_.IF___V7*/ meltfptr[5] = /*_.LET___V8*/ meltfptr[7];; /*epilog*/ - MELT_LOCATION("warmelt-first.melt:2747:/ clear"); + MELT_LOCATION("warmelt-first.melt:2754:/ clear"); /*clear*/ /*_.LET___V8*/ meltfptr[7] = 0 ;} ; } else {/*^cond.else*/ @@ -3107,11 +3107,11 @@ lab_endgetargs:; /*_.IF___V7*/ meltfptr[5] = NULL;; } ; - MELT_LOCATION("warmelt-first.melt:2745:/ quasiblock"); + MELT_LOCATION("warmelt-first.melt:2752:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.IF___V7*/ meltfptr[5];; - MELT_LOCATION("warmelt-first.melt:2745:/ finalreturn"); + MELT_LOCATION("warmelt-first.melt:2752:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*epilog*/ @@ -3187,7 +3187,7 @@ melt_trace_start("LAMBDA_", meltcallcount); /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-first.melt:2754:/ getarg"); + MELT_LOCATION("warmelt-first.melt:2761:/ getarg"); /*_.C__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; ; goto lab_endgetargs; @@ -3196,7 +3196,7 @@ lab_endgetargs:; /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-first.melt:2755:/ quasiblock"); + MELT_LOCATION("warmelt-first.melt:2762:/ quasiblock"); /*_#IX__L1*/ meltfnum[0] = @@ -3205,7 +3205,7 @@ lab_endgetargs:; /*_#IS_CLOSURE__L2*/ meltfnum[1] = (melt_magic_discr((melt_ptr_t)((/*~F*/ meltfclos->tabval[1]))) == OBMAG_CLOSURE);; - MELT_LOCATION("warmelt-first.melt:2756:/ cond"); + MELT_LOCATION("warmelt-first.melt:2763:/ cond"); /*cond*/ if (/*_#IS_CLOSURE__L2*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -3219,7 +3219,7 @@ lab_endgetargs:; /*_.TC__V3*/ meltfptr[2] = /*_.F__V4*/ meltfptr[3];; /*epilog*/ - MELT_LOCATION("warmelt-first.melt:2756:/ clear"); + MELT_LOCATION("warmelt-first.melt:2763:/ clear"); /*clear*/ /*_.F__V4*/ meltfptr[3] = 0 ;} ; } else {/*^cond.else*/ @@ -3233,16 +3233,16 @@ lab_endgetargs:; ((/*_#IX__L1*/ meltfnum[0]) + (1));; { - MELT_LOCATION("warmelt-first.melt:2758:/ locexp"); + MELT_LOCATION("warmelt-first.melt:2765:/ locexp"); melt_put_int((melt_ptr_t)((/*~IXB*/ meltfclos->tabval[0])), (/*_#I__L3*/ meltfnum[2]));} ; { - MELT_LOCATION("warmelt-first.melt:2759:/ locexp"); + MELT_LOCATION("warmelt-first.melt:2766:/ locexp"); meltgc_multiple_put_nth((melt_ptr_t)((/*~TUP*/ meltfclos->tabval[2])), (/*_#IX__L1*/ meltfnum[0]), (melt_ptr_t)(/*_.TC__V3*/ meltfptr[2]));} ; - MELT_LOCATION("warmelt-first.melt:2755:/ clear"); + MELT_LOCATION("warmelt-first.melt:2762:/ clear"); /*clear*/ /*_#IX__L1*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_#IS_CLOSURE__L2*/ meltfnum[1] = 0 ; @@ -3315,7 +3315,7 @@ melt_trace_start("PAIRLIST_TO_MULTIPLE", meltcallcount); /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-first.melt:2765:/ getarg"); + MELT_LOCATION("warmelt-first.melt:2772:/ getarg"); /*_.PAIR__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; /*getarg#1*/ @@ -3340,7 +3340,7 @@ lab_endgetargs:; /*_#NULL__L1*/ meltfnum[0] = ((/*_.DISC__V3*/ meltfptr[2]) == NULL);; - MELT_LOCATION("warmelt-first.melt:2771:/ cond"); + MELT_LOCATION("warmelt-first.melt:2778:/ cond"); /*cond*/ if (/*_#NULL__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -3351,7 +3351,7 @@ lab_endgetargs:; /*_.IF___V5*/ meltfptr[4] = /*_.SETQ___V6*/ meltfptr[5];; /*epilog*/ - MELT_LOCATION("warmelt-first.melt:2771:/ clear"); + MELT_LOCATION("warmelt-first.melt:2778:/ clear"); /*clear*/ /*_.SETQ___V6*/ meltfptr[5] = 0 ;} ; } else {/*^cond.else*/ @@ -3359,15 +3359,15 @@ lab_endgetargs:; /*_.IF___V5*/ meltfptr[4] = NULL;; } ; - MELT_LOCATION("warmelt-first.melt:2772:/ quasiblock"); + MELT_LOCATION("warmelt-first.melt:2779:/ quasiblock"); /*_#LN__L2*/ meltfnum[1] = 0;; - MELT_LOCATION("warmelt-first.melt:2773:/ quasiblock"); + MELT_LOCATION("warmelt-first.melt:2780:/ quasiblock"); /*_.CURPAIR__V9*/ meltfptr[8] = /*_.PAIR__V2*/ meltfptr[1];; - MELT_LOCATION("warmelt-first.melt:2774:/ loop"); + MELT_LOCATION("warmelt-first.melt:2781:/ loop"); /*loop*/{ labloop_LOOPLN_1:;/*^loopbody*/ /*^block*/ @@ -3379,7 +3379,7 @@ lab_endgetargs:; /*_#NOT__L4*/ meltfnum[3] = (!(/*_#IS_PAIR__L3*/ meltfnum[2]));; - MELT_LOCATION("warmelt-first.melt:2775:/ cond"); + MELT_LOCATION("warmelt-first.melt:2782:/ cond"); /*cond*/ if (/*_#NOT__L4*/ meltfnum[3]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -3402,15 +3402,15 @@ lab_endgetargs:; ; /*_#I__L5*/ meltfnum[4] = ((/*_#LN__L2*/ meltfnum[1]) + (1));; - MELT_LOCATION("warmelt-first.melt:2776:/ compute"); + MELT_LOCATION("warmelt-first.melt:2783:/ compute"); /*_#LN__L2*/ meltfnum[1] = /*_#SETQ___L6*/ meltfnum[5] = /*_#I__L5*/ meltfnum[4];; /*_.PAIR_TAIL__V12*/ meltfptr[11] = (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V9*/ meltfptr[8])));; - MELT_LOCATION("warmelt-first.melt:2777:/ compute"); + MELT_LOCATION("warmelt-first.melt:2784:/ compute"); /*_.CURPAIR__V9*/ meltfptr[8] = /*_.SETQ___V13*/ meltfptr[12] = /*_.PAIR_TAIL__V12*/ meltfptr[11];; /*epilog*/ - MELT_LOCATION("warmelt-first.melt:2774:/ clear"); + MELT_LOCATION("warmelt-first.melt:2781:/ clear"); /*clear*/ /*_#IS_PAIR__L3*/ meltfnum[2] = 0 ; /*^clear*/ /*clear*/ /*_#NOT__L4*/ meltfnum[3] = 0 ; @@ -3434,11 +3434,11 @@ lab_endgetargs:; /*_.LET___V8*/ meltfptr[7] = /*_.FOREVER___V10*/ meltfptr[9];; - MELT_LOCATION("warmelt-first.melt:2773:/ clear"); + MELT_LOCATION("warmelt-first.melt:2780:/ clear"); /*clear*/ /*_.CURPAIR__V9*/ meltfptr[8] = 0 ; /*^clear*/ /*clear*/ /*_.FOREVER___V10*/ meltfptr[9] = 0 ; - MELT_LOCATION("warmelt-first.melt:2778:/ quasiblock"); + MELT_LOCATION("warmelt-first.melt:2785:/ quasiblock"); /*_.TUP__V15*/ meltfptr[12] = @@ -3449,7 +3449,7 @@ lab_endgetargs:; /*^compute*/ /*_.CURPAIR__V16*/ meltfptr[8] = /*_.PAIR__V2*/ meltfptr[1];; - MELT_LOCATION("warmelt-first.melt:2782:/ loop"); + MELT_LOCATION("warmelt-first.melt:2789:/ loop"); /*loop*/{ labloop_LOOPFI_1:;/*^loopbody*/ /*^block*/ @@ -3461,7 +3461,7 @@ lab_endgetargs:; /*_#NOT__L9*/ meltfnum[4] = (!(/*_#IS_PAIR__L8*/ meltfnum[3]));; - MELT_LOCATION("warmelt-first.melt:2783:/ cond"); + MELT_LOCATION("warmelt-first.melt:2790:/ cond"); /*cond*/ if (/*_#NOT__L9*/ meltfnum[4]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -3482,7 +3482,7 @@ lab_endgetargs:; ; } /*noelse*/ ; - MELT_LOCATION("warmelt-first.melt:2784:/ quasiblock"); + MELT_LOCATION("warmelt-first.melt:2791:/ quasiblock"); /*_.C__V20*/ meltfptr[19] = @@ -3491,7 +3491,7 @@ lab_endgetargs:; /*_#IS_CLOSURE__L10*/ meltfnum[5] = (melt_magic_discr((melt_ptr_t)(/*_.F__V4*/ meltfptr[3])) == OBMAG_CLOSURE);; - MELT_LOCATION("warmelt-first.melt:2785:/ cond"); + MELT_LOCATION("warmelt-first.melt:2792:/ cond"); /*cond*/ if (/*_#IS_CLOSURE__L10*/ meltfnum[5]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -3505,7 +3505,7 @@ lab_endgetargs:; /*_.TC__V21*/ meltfptr[20] = /*_.F__V22*/ meltfptr[21];; /*epilog*/ - MELT_LOCATION("warmelt-first.melt:2785:/ clear"); + MELT_LOCATION("warmelt-first.melt:2792:/ clear"); /*clear*/ /*_.F__V22*/ meltfptr[21] = 0 ;} ; } else {/*^cond.else*/ @@ -3515,20 +3515,20 @@ lab_endgetargs:; ; { - MELT_LOCATION("warmelt-first.melt:2786:/ locexp"); + MELT_LOCATION("warmelt-first.melt:2793:/ locexp"); meltgc_multiple_put_nth((melt_ptr_t)(/*_.TUP__V15*/ meltfptr[12]), (/*_#IX__L7*/ meltfnum[2]), (melt_ptr_t)(/*_.TC__V21*/ meltfptr[20]));} ; /*_#I__L11*/ meltfnum[10] = ((/*_#IX__L7*/ meltfnum[2]) + (1));; - MELT_LOCATION("warmelt-first.melt:2787:/ compute"); + MELT_LOCATION("warmelt-first.melt:2794:/ compute"); /*_#IX__L7*/ meltfnum[2] = /*_#SETQ___L12*/ meltfnum[11] = /*_#I__L11*/ meltfnum[10];; /*_.PAIR_TAIL__V23*/ meltfptr[21] = (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V16*/ meltfptr[8])));; - MELT_LOCATION("warmelt-first.melt:2788:/ compute"); + MELT_LOCATION("warmelt-first.melt:2795:/ compute"); /*_.CURPAIR__V16*/ meltfptr[8] = /*_.SETQ___V24*/ meltfptr[23] = /*_.PAIR_TAIL__V23*/ meltfptr[21];; /*_.LET___V19*/ meltfptr[18] = /*_.SETQ___V24*/ meltfptr[23];; - MELT_LOCATION("warmelt-first.melt:2784:/ clear"); + MELT_LOCATION("warmelt-first.melt:2791:/ clear"); /*clear*/ /*_.C__V20*/ meltfptr[19] = 0 ; /*^clear*/ /*clear*/ /*_#IS_CLOSURE__L10*/ meltfnum[5] = 0 ; @@ -3544,7 +3544,7 @@ lab_endgetargs:; /*clear*/ /*_.SETQ___V24*/ meltfptr[23] = 0 ; /*epilog*/ - MELT_LOCATION("warmelt-first.melt:2782:/ clear"); + MELT_LOCATION("warmelt-first.melt:2789:/ clear"); /*clear*/ /*_#IS_PAIR__L8*/ meltfnum[3] = 0 ; /*^clear*/ /*clear*/ /*_#NOT__L9*/ meltfnum[4] = 0 ; @@ -3558,16 +3558,16 @@ lab_endgetargs:; /*_.FOREVER___V17*/ meltfptr[9] = /*_.LOOPFI__V18*/ meltfptr[17];; } ; - MELT_LOCATION("warmelt-first.melt:2789:/ quasiblock"); + MELT_LOCATION("warmelt-first.melt:2796:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.TUP__V15*/ meltfptr[12];; - MELT_LOCATION("warmelt-first.melt:2789:/ finalreturn"); + MELT_LOCATION("warmelt-first.melt:2796:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*_.LET___V14*/ meltfptr[11] = /*_.RETURN___V25*/ meltfptr[19];; - MELT_LOCATION("warmelt-first.melt:2778:/ clear"); + MELT_LOCATION("warmelt-first.melt:2785:/ clear"); /*clear*/ /*_.TUP__V15*/ meltfptr[12] = 0 ; /*^clear*/ /*clear*/ /*_#IX__L7*/ meltfnum[2] = 0 ; @@ -3579,17 +3579,17 @@ lab_endgetargs:; /*clear*/ /*_.RETURN___V25*/ meltfptr[19] = 0 ; /*_.LET___V7*/ meltfptr[5] = /*_.LET___V14*/ meltfptr[11];; - MELT_LOCATION("warmelt-first.melt:2772:/ clear"); + MELT_LOCATION("warmelt-first.melt:2779:/ clear"); /*clear*/ /*_#LN__L2*/ meltfnum[1] = 0 ; /*^clear*/ /*clear*/ /*_.LET___V8*/ meltfptr[7] = 0 ; /*^clear*/ /*clear*/ /*_.LET___V14*/ meltfptr[11] = 0 ; - MELT_LOCATION("warmelt-first.melt:2765:/ quasiblock"); + MELT_LOCATION("warmelt-first.melt:2772:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V7*/ meltfptr[5];; - MELT_LOCATION("warmelt-first.melt:2765:/ finalreturn"); + MELT_LOCATION("warmelt-first.melt:2772:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*epilog*/ @@ -3663,7 +3663,7 @@ melt_trace_start("MULTIPLE_ITERATE_TEST", meltcallcount); /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-first.melt:2830:/ getarg"); + MELT_LOCATION("warmelt-first.melt:2837:/ getarg"); /*_.TUP__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; /*getarg#1*/ @@ -3681,7 +3681,7 @@ lab_endgetargs:; /*_#IS_MULTIPLE__L1*/ meltfnum[0] = (melt_magic_discr((melt_ptr_t)(/*_.TUP__V2*/ meltfptr[1])) == OBMAG_MULTIPLE);; - MELT_LOCATION("warmelt-first.melt:2834:/ cond"); + MELT_LOCATION("warmelt-first.melt:2841:/ cond"); /*cond*/ if (/*_#IS_MULTIPLE__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -3689,7 +3689,7 @@ lab_endgetargs:; /*_#IS_CLOSURE__L2*/ meltfnum[1] = (melt_magic_discr((melt_ptr_t)(/*_.F__V3*/ meltfptr[2])) == OBMAG_CLOSURE);; - MELT_LOCATION("warmelt-first.melt:2835:/ cond"); + MELT_LOCATION("warmelt-first.melt:2842:/ cond"); /*cond*/ if (/*_#IS_CLOSURE__L2*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -3705,7 +3705,7 @@ lab_endgetargs:; - MELT_LOCATION("warmelt-first.melt:2839:/ quasiblock"); + MELT_LOCATION("warmelt-first.melt:2846:/ quasiblock"); /*^multiapply*/ @@ -3728,7 +3728,7 @@ lab_endgetargs:; /*_#NULL__L4*/ meltfnum[3] = ((/*_.TEST__V6*/ meltfptr[5]) == NULL);; - MELT_LOCATION("warmelt-first.melt:2842:/ cond"); + MELT_LOCATION("warmelt-first.melt:2849:/ cond"); /*cond*/ if (/*_#NULL__L4*/ meltfnum[3]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -3738,7 +3738,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.COMP__V4*/ meltfptr[3];; - MELT_LOCATION("warmelt-first.melt:2842:/ putxtraresult"); + MELT_LOCATION("warmelt-first.melt:2849:/ putxtraresult"); if (!xrestab_ || !xresdescr_) goto labend_rout; if (xresdescr_[0] != BPAR_LONG) goto labend_rout; if (xrestab_[0].bp_longptr) *(xrestab_[0].bp_longptr) = (/*_#IX__L3*/ meltfnum[2]); @@ -3754,7 +3754,7 @@ lab_endgetargs:; /*_.IF___V8*/ meltfptr[7] = /*_.RETURN___V9*/ meltfptr[8];; /*epilog*/ - MELT_LOCATION("warmelt-first.melt:2842:/ clear"); + MELT_LOCATION("warmelt-first.melt:2849:/ clear"); /*clear*/ /*_.RETURN___V9*/ meltfptr[8] = 0 ;} ; } else {/*^cond.else*/ @@ -3766,7 +3766,7 @@ lab_endgetargs:; /*_.MULTI___V5*/ meltfptr[4] = /*_.IF___V8*/ meltfptr[7];; - MELT_LOCATION("warmelt-first.melt:2839:/ clear"); + MELT_LOCATION("warmelt-first.melt:2846:/ clear"); /*clear*/ /*_#NULL__L4*/ meltfnum[3] = 0 ; /*^clear*/ /*clear*/ /*_.IF___V8*/ meltfptr[7] = 0 ; @@ -3778,7 +3778,7 @@ lab_endgetargs:; /*citerepilog*/ - MELT_LOCATION("warmelt-first.melt:2836:/ clear"); + MELT_LOCATION("warmelt-first.melt:2843:/ clear"); /*clear*/ /*_.COMP__V4*/ meltfptr[3] = 0 ; /*^clear*/ /*clear*/ /*_#IX__L3*/ meltfnum[2] = 0 ; @@ -3792,14 +3792,14 @@ lab_endgetargs:; ; /*epilog*/ - MELT_LOCATION("warmelt-first.melt:2834:/ clear"); + MELT_LOCATION("warmelt-first.melt:2841:/ clear"); /*clear*/ /*_#IS_CLOSURE__L2*/ meltfnum[1] = 0 ;} ; } /*noelse*/ ; /*epilog*/ - MELT_LOCATION("warmelt-first.melt:2830:/ clear"); + MELT_LOCATION("warmelt-first.melt:2837:/ clear"); /*clear*/ /*_#IS_MULTIPLE__L1*/ meltfnum[0] = 0 ;} ; @@ -3864,7 +3864,7 @@ melt_trace_start("MULTIPLE_MAP", meltcallcount); /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-first.melt:2847:/ getarg"); + MELT_LOCATION("warmelt-first.melt:2854:/ getarg"); /*_.TUP__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; /*getarg#1*/ @@ -3882,7 +3882,7 @@ lab_endgetargs:; /*_#IS_MULTIPLE__L1*/ meltfnum[0] = (melt_magic_discr((melt_ptr_t)(/*_.TUP__V2*/ meltfptr[1])) == OBMAG_MULTIPLE);; - MELT_LOCATION("warmelt-first.melt:2850:/ cond"); + MELT_LOCATION("warmelt-first.melt:2857:/ cond"); /*cond*/ if (/*_#IS_MULTIPLE__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -3890,13 +3890,13 @@ lab_endgetargs:; /*_#IS_CLOSURE__L2*/ meltfnum[1] = (melt_magic_discr((melt_ptr_t)(/*_.F__V3*/ meltfptr[2])) == OBMAG_CLOSURE);; - MELT_LOCATION("warmelt-first.melt:2851:/ cond"); + MELT_LOCATION("warmelt-first.melt:2858:/ cond"); /*cond*/ if (/*_#IS_CLOSURE__L2*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-first.melt:2852:/ quasiblock"); + MELT_LOCATION("warmelt-first.melt:2859:/ quasiblock"); /*_#LN__L3*/ meltfnum[2] = @@ -3908,7 +3908,7 @@ lab_endgetargs:; /*_.RES__V7*/ meltfptr[6] = (meltgc_new_multiple((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ meltfrout->tabval[0])), (/*_#LN__L3*/ meltfnum[2])));; - MELT_LOCATION("warmelt-first.melt:2856:/ loop"); + MELT_LOCATION("warmelt-first.melt:2863:/ loop"); /*loop*/{ labloop_TUPLOOP_1:;/*^loopbody*/ /*^block*/ @@ -3916,7 +3916,7 @@ lab_endgetargs:; /*_#I__L5*/ meltfnum[4] = ((/*_#IX__L4*/ meltfnum[3]) >= (/*_#LN__L3*/ meltfnum[2]));; - MELT_LOCATION("warmelt-first.melt:2857:/ cond"); + MELT_LOCATION("warmelt-first.melt:2864:/ cond"); /*cond*/ if (/*_#I__L5*/ meltfnum[4]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -3937,12 +3937,12 @@ lab_endgetargs:; ; } /*noelse*/ ; - MELT_LOCATION("warmelt-first.melt:2858:/ quasiblock"); + MELT_LOCATION("warmelt-first.melt:2865:/ quasiblock"); /*_.CURCOMP__V10*/ meltfptr[9] = (melt_multiple_nth((melt_ptr_t)(/*_.TUP__V2*/ meltfptr[1]), (/*_#IX__L4*/ meltfnum[3])));; - MELT_LOCATION("warmelt-first.melt:2859:/ apply"); + MELT_LOCATION("warmelt-first.melt:2866:/ apply"); /*apply*/{ union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); @@ -3957,17 +3957,17 @@ lab_endgetargs:; meltgc_multiple_put_nth((melt_ptr_t)(/*_.RES__V7*/ meltfptr[6]), (/*_#IX__L4*/ meltfnum[3]), (melt_ptr_t)(/*_.F__V11*/ meltfptr[10]));} ; - MELT_LOCATION("warmelt-first.melt:2858:/ clear"); + MELT_LOCATION("warmelt-first.melt:2865:/ clear"); /*clear*/ /*_.CURCOMP__V10*/ meltfptr[9] = 0 ; /*^clear*/ /*clear*/ /*_.F__V11*/ meltfptr[10] = 0 ; /*_#I__L6*/ meltfnum[5] = ((/*_#IX__L4*/ meltfnum[3]) + (1));; - MELT_LOCATION("warmelt-first.melt:2860:/ compute"); + MELT_LOCATION("warmelt-first.melt:2867:/ compute"); /*_#IX__L4*/ meltfnum[3] = /*_#SETQ___L7*/ meltfnum[6] = /*_#I__L6*/ meltfnum[5];; /*epilog*/ - MELT_LOCATION("warmelt-first.melt:2856:/ clear"); + MELT_LOCATION("warmelt-first.melt:2863:/ clear"); /*clear*/ /*_#I__L5*/ meltfnum[4] = 0 ; /*^clear*/ /*clear*/ /*_#I__L6*/ meltfnum[5] = 0 ; @@ -3985,7 +3985,7 @@ lab_endgetargs:; /*_.LET___V6*/ meltfptr[5] = /*_.FOREVER___V8*/ meltfptr[7];; - MELT_LOCATION("warmelt-first.melt:2852:/ clear"); + MELT_LOCATION("warmelt-first.melt:2859:/ clear"); /*clear*/ /*_#LN__L3*/ meltfnum[2] = 0 ; /*^clear*/ /*clear*/ /*_#IX__L4*/ meltfnum[3] = 0 ; @@ -3996,7 +3996,7 @@ lab_endgetargs:; /*_.IF___V5*/ meltfptr[4] = /*_.LET___V6*/ meltfptr[5];; /*epilog*/ - MELT_LOCATION("warmelt-first.melt:2851:/ clear"); + MELT_LOCATION("warmelt-first.melt:2858:/ clear"); /*clear*/ /*_.LET___V6*/ meltfptr[5] = 0 ;} ; } else {/*^cond.else*/ @@ -4009,7 +4009,7 @@ lab_endgetargs:; /*_.IF___V4*/ meltfptr[3] = /*_.IF___V5*/ meltfptr[4];; /*epilog*/ - MELT_LOCATION("warmelt-first.melt:2850:/ clear"); + MELT_LOCATION("warmelt-first.melt:2857:/ clear"); /*clear*/ /*_#IS_CLOSURE__L2*/ meltfnum[1] = 0 ; /*^clear*/ /*clear*/ /*_.IF___V5*/ meltfptr[4] = 0 ;} @@ -4019,11 +4019,11 @@ lab_endgetargs:; /*_.IF___V4*/ meltfptr[3] = NULL;; } ; - MELT_LOCATION("warmelt-first.melt:2847:/ quasiblock"); + MELT_LOCATION("warmelt-first.melt:2854:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.IF___V4*/ meltfptr[3];; - MELT_LOCATION("warmelt-first.melt:2847:/ finalreturn"); + MELT_LOCATION("warmelt-first.melt:2854:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*epilog*/ @@ -4095,7 +4095,7 @@ melt_trace_start("MULTIPLE_TO_LIST", meltcallcount); /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-first.melt:2864:/ getarg"); + MELT_LOCATION("warmelt-first.melt:2871:/ getarg"); /*_.TUP__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; /*getarg#1*/ @@ -4120,7 +4120,7 @@ lab_endgetargs:; /*_#NULL__L1*/ meltfnum[0] = ((/*_.DISC__V3*/ meltfptr[2]) == NULL);; - MELT_LOCATION("warmelt-first.melt:2868:/ cond"); + MELT_LOCATION("warmelt-first.melt:2875:/ cond"); /*cond*/ if (/*_#NULL__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -4131,7 +4131,7 @@ lab_endgetargs:; /*_.IF___V5*/ meltfptr[4] = /*_.SETQ___V6*/ meltfptr[5];; /*epilog*/ - MELT_LOCATION("warmelt-first.melt:2868:/ clear"); + MELT_LOCATION("warmelt-first.melt:2875:/ clear"); /*clear*/ /*_.SETQ___V6*/ meltfptr[5] = 0 ;} ; } else {/*^cond.else*/ @@ -4143,13 +4143,13 @@ lab_endgetargs:; /*_#IS_MULTIPLE__L2*/ meltfnum[1] = (melt_magic_discr((melt_ptr_t)(/*_.TUP__V2*/ meltfptr[1])) == OBMAG_MULTIPLE);; - MELT_LOCATION("warmelt-first.melt:2869:/ cond"); + MELT_LOCATION("warmelt-first.melt:2876:/ cond"); /*cond*/ if (/*_#IS_MULTIPLE__L2*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-first.melt:2870:/ quasiblock"); + MELT_LOCATION("warmelt-first.melt:2877:/ quasiblock"); /*_.LIS__V9*/ meltfptr[8] = @@ -4166,13 +4166,13 @@ lab_endgetargs:; /*_#IS_CLOSURE__L4*/ meltfnum[3] = (melt_magic_discr((melt_ptr_t)(/*_.TRANSF__V4*/ meltfptr[3])) == OBMAG_CLOSURE);; - MELT_LOCATION("warmelt-first.melt:2874:/ cond"); + MELT_LOCATION("warmelt-first.melt:2881:/ cond"); /*cond*/ if (/*_#IS_CLOSURE__L4*/ meltfnum[3]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-first.melt:2875:/ apply"); + MELT_LOCATION("warmelt-first.melt:2882:/ apply"); /*apply*/{ /*_.TRANSF__V11*/ meltfptr[10] = melt_apply ((meltclosure_ptr_t)(/*_.TRANSF__V4*/ meltfptr[3]), (melt_ptr_t)(/*_.COMP__V10*/ meltfptr[9]), (""), (union meltparam_un*)0, "", (union meltparam_un*)0); } @@ -4184,7 +4184,7 @@ lab_endgetargs:; ; /*epilog*/ - MELT_LOCATION("warmelt-first.melt:2874:/ clear"); + MELT_LOCATION("warmelt-first.melt:2881:/ clear"); /*clear*/ /*_.TRANSF__V11*/ meltfptr[10] = 0 ;} ; } else {/*^cond.else*/ @@ -4194,7 +4194,7 @@ lab_endgetargs:; { - MELT_LOCATION("warmelt-first.melt:2876:/ locexp"); + MELT_LOCATION("warmelt-first.melt:2883:/ locexp"); meltgc_append_list((melt_ptr_t)(/*_.LIS__V9*/ meltfptr[8]), (melt_ptr_t)(/*_.COMP__V10*/ meltfptr[9]));} ; /*epilog*/ @@ -4207,30 +4207,30 @@ lab_endgetargs:; /*citerepilog*/ - MELT_LOCATION("warmelt-first.melt:2871:/ clear"); + MELT_LOCATION("warmelt-first.melt:2878:/ clear"); /*clear*/ /*_.COMP__V10*/ meltfptr[9] = 0 ; /*^clear*/ /*clear*/ /*_#IX__L3*/ meltfnum[2] = 0 ; /*^clear*/ /*clear*/ /*_#IS_CLOSURE__L4*/ meltfnum[3] = 0 ;} /*endciterblock FOREACH_IN_MULTIPLE*/ ; - MELT_LOCATION("warmelt-first.melt:2877:/ quasiblock"); + MELT_LOCATION("warmelt-first.melt:2884:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.LIS__V9*/ meltfptr[8];; - MELT_LOCATION("warmelt-first.melt:2877:/ finalreturn"); + MELT_LOCATION("warmelt-first.melt:2884:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*_.LET___V8*/ meltfptr[7] = /*_.RETURN___V12*/ meltfptr[10];; - MELT_LOCATION("warmelt-first.melt:2870:/ clear"); + MELT_LOCATION("warmelt-first.melt:2877:/ clear"); /*clear*/ /*_.LIS__V9*/ meltfptr[8] = 0 ; /*^clear*/ /*clear*/ /*_.RETURN___V12*/ meltfptr[10] = 0 ; /*_.IF___V7*/ meltfptr[5] = /*_.LET___V8*/ meltfptr[7];; /*epilog*/ - MELT_LOCATION("warmelt-first.melt:2869:/ clear"); + MELT_LOCATION("warmelt-first.melt:2876:/ clear"); /*clear*/ /*_.LET___V8*/ meltfptr[7] = 0 ;} ; } else {/*^cond.else*/ @@ -4238,11 +4238,11 @@ lab_endgetargs:; /*_.IF___V7*/ meltfptr[5] = NULL;; } ; - MELT_LOCATION("warmelt-first.melt:2864:/ quasiblock"); + MELT_LOCATION("warmelt-first.melt:2871:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.IF___V7*/ meltfptr[5];; - MELT_LOCATION("warmelt-first.melt:2864:/ finalreturn"); + MELT_LOCATION("warmelt-first.melt:2871:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*epilog*/ @@ -4318,7 +4318,7 @@ melt_trace_start("CLOSURE_EVERY", meltcallcount); /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-first.melt:2882:/ getarg"); + MELT_LOCATION("warmelt-first.melt:2889:/ getarg"); /*_.CLO__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; /*getarg#1*/ @@ -4336,7 +4336,7 @@ lab_endgetargs:; /*_#IS_CLOSURE__L1*/ meltfnum[0] = (melt_magic_discr((melt_ptr_t)(/*_.CLO__V2*/ meltfptr[1])) == OBMAG_CLOSURE);; - MELT_LOCATION("warmelt-first.melt:2884:/ cond"); + MELT_LOCATION("warmelt-first.melt:2891:/ cond"); /*cond*/ if (/*_#IS_CLOSURE__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -4344,13 +4344,13 @@ lab_endgetargs:; /*_#IS_CLOSURE__L2*/ meltfnum[1] = (melt_magic_discr((melt_ptr_t)(/*_.F__V3*/ meltfptr[2])) == OBMAG_CLOSURE);; - MELT_LOCATION("warmelt-first.melt:2885:/ cond"); + MELT_LOCATION("warmelt-first.melt:2892:/ cond"); /*cond*/ if (/*_#IS_CLOSURE__L2*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-first.melt:2886:/ quasiblock"); + MELT_LOCATION("warmelt-first.melt:2893:/ quasiblock"); /*_#LN__L3*/ meltfnum[2] = @@ -4358,7 +4358,7 @@ lab_endgetargs:; /*^compute*/ /*_#IX__L4*/ meltfnum[3] = 0;; - MELT_LOCATION("warmelt-first.melt:2888:/ loop"); + MELT_LOCATION("warmelt-first.melt:2895:/ loop"); /*loop*/{ labloop_CLOLOOP_1:;/*^loopbody*/ /*^block*/ @@ -4366,7 +4366,7 @@ lab_endgetargs:; /*_#I__L5*/ meltfnum[4] = ((/*_#IX__L4*/ meltfnum[3]) >= (/*_#LN__L3*/ meltfnum[2]));; - MELT_LOCATION("warmelt-first.melt:2889:/ cond"); + MELT_LOCATION("warmelt-first.melt:2896:/ cond"); /*cond*/ if (/*_#I__L5*/ meltfnum[4]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -4389,7 +4389,7 @@ lab_endgetargs:; ; /*_.CLOSURE_NTH__V9*/ meltfptr[8] = (melt_closure_nth((melt_ptr_t)(/*_.CLO__V2*/ meltfptr[1]), (int)(/*_#IX__L4*/ meltfnum[3])));; - MELT_LOCATION("warmelt-first.melt:2890:/ apply"); + MELT_LOCATION("warmelt-first.melt:2897:/ apply"); /*apply*/{ union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); @@ -4400,11 +4400,11 @@ lab_endgetargs:; ; /*_#I__L6*/ meltfnum[5] = ((/*_#IX__L4*/ meltfnum[3]) + (1));; - MELT_LOCATION("warmelt-first.melt:2891:/ compute"); + MELT_LOCATION("warmelt-first.melt:2898:/ compute"); /*_#IX__L4*/ meltfnum[3] = /*_#SETQ___L7*/ meltfnum[6] = /*_#I__L6*/ meltfnum[5];; /*epilog*/ - MELT_LOCATION("warmelt-first.melt:2888:/ clear"); + MELT_LOCATION("warmelt-first.melt:2895:/ clear"); /*clear*/ /*_#I__L5*/ meltfnum[4] = 0 ; /*^clear*/ /*clear*/ /*_.CLOSURE_NTH__V9*/ meltfptr[8] = 0 ; @@ -4426,7 +4426,7 @@ lab_endgetargs:; /*_.LET___V6*/ meltfptr[5] = /*_.FOREVER___V7*/ meltfptr[6];; - MELT_LOCATION("warmelt-first.melt:2886:/ clear"); + MELT_LOCATION("warmelt-first.melt:2893:/ clear"); /*clear*/ /*_#LN__L3*/ meltfnum[2] = 0 ; /*^clear*/ /*clear*/ /*_#IX__L4*/ meltfnum[3] = 0 ; @@ -4435,7 +4435,7 @@ lab_endgetargs:; /*_.IF___V5*/ meltfptr[4] = /*_.LET___V6*/ meltfptr[5];; /*epilog*/ - MELT_LOCATION("warmelt-first.melt:2885:/ clear"); + MELT_LOCATION("warmelt-first.melt:2892:/ clear"); /*clear*/ /*_.LET___V6*/ meltfptr[5] = 0 ;} ; } else {/*^cond.else*/ @@ -4448,7 +4448,7 @@ lab_endgetargs:; /*_.IF___V4*/ meltfptr[3] = /*_.IF___V5*/ meltfptr[4];; /*epilog*/ - MELT_LOCATION("warmelt-first.melt:2884:/ clear"); + MELT_LOCATION("warmelt-first.melt:2891:/ clear"); /*clear*/ /*_#IS_CLOSURE__L2*/ meltfnum[1] = 0 ; /*^clear*/ /*clear*/ /*_.IF___V5*/ meltfptr[4] = 0 ;} @@ -4458,11 +4458,11 @@ lab_endgetargs:; /*_.IF___V4*/ meltfptr[3] = NULL;; } ; - MELT_LOCATION("warmelt-first.melt:2882:/ quasiblock"); + MELT_LOCATION("warmelt-first.melt:2889:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.IF___V4*/ meltfptr[3];; - MELT_LOCATION("warmelt-first.melt:2882:/ finalreturn"); + MELT_LOCATION("warmelt-first.melt:2889:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*epilog*/ @@ -4534,7 +4534,7 @@ melt_trace_start("ROUTINE_EVERY", meltcallcount); /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-first.melt:2895:/ getarg"); + MELT_LOCATION("warmelt-first.melt:2902:/ getarg"); /*_.ROU__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; /*getarg#1*/ @@ -4552,7 +4552,7 @@ lab_endgetargs:; /*_#IS_ROUTINE__L1*/ meltfnum[0] = (melt_magic_discr((melt_ptr_t)(/*_.ROU__V2*/ meltfptr[1])) == OBMAG_ROUTINE);; - MELT_LOCATION("warmelt-first.melt:2897:/ cond"); + MELT_LOCATION("warmelt-first.melt:2904:/ cond"); /*cond*/ if (/*_#IS_ROUTINE__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -4560,13 +4560,13 @@ lab_endgetargs:; /*_#IS_CLOSURE__L2*/ meltfnum[1] = (melt_magic_discr((melt_ptr_t)(/*_.F__V3*/ meltfptr[2])) == OBMAG_CLOSURE);; - MELT_LOCATION("warmelt-first.melt:2898:/ cond"); + MELT_LOCATION("warmelt-first.melt:2905:/ cond"); /*cond*/ if (/*_#IS_CLOSURE__L2*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-first.melt:2899:/ quasiblock"); + MELT_LOCATION("warmelt-first.melt:2906:/ quasiblock"); /*_#LN__L3*/ meltfnum[2] = @@ -4574,7 +4574,7 @@ lab_endgetargs:; /*^compute*/ /*_#IX__L4*/ meltfnum[3] = 0;; - MELT_LOCATION("warmelt-first.melt:2901:/ loop"); + MELT_LOCATION("warmelt-first.melt:2908:/ loop"); /*loop*/{ labloop_ROULOOP_1:;/*^loopbody*/ /*^block*/ @@ -4582,7 +4582,7 @@ lab_endgetargs:; /*_#I__L5*/ meltfnum[4] = ((/*_#IX__L4*/ meltfnum[3]) >= (/*_#LN__L3*/ meltfnum[2]));; - MELT_LOCATION("warmelt-first.melt:2902:/ cond"); + MELT_LOCATION("warmelt-first.melt:2909:/ cond"); /*cond*/ if (/*_#I__L5*/ meltfnum[4]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -4605,7 +4605,7 @@ lab_endgetargs:; ; /*_.ROUTINE_NTH__V9*/ meltfptr[8] = (melt_routine_nth((melt_ptr_t)(/*_.ROU__V2*/ meltfptr[1]), (int) (/*_#IX__L4*/ meltfnum[3])));; - MELT_LOCATION("warmelt-first.melt:2903:/ apply"); + MELT_LOCATION("warmelt-first.melt:2910:/ apply"); /*apply*/{ union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); @@ -4616,11 +4616,11 @@ lab_endgetargs:; ; /*_#I__L6*/ meltfnum[5] = ((/*_#IX__L4*/ meltfnum[3]) + (1));; - MELT_LOCATION("warmelt-first.melt:2904:/ compute"); + MELT_LOCATION("warmelt-first.melt:2911:/ compute"); /*_#IX__L4*/ meltfnum[3] = /*_#SETQ___L7*/ meltfnum[6] = /*_#I__L6*/ meltfnum[5];; /*epilog*/ - MELT_LOCATION("warmelt-first.melt:2901:/ clear"); + MELT_LOCATION("warmelt-first.melt:2908:/ clear"); /*clear*/ /*_#I__L5*/ meltfnum[4] = 0 ; /*^clear*/ /*clear*/ /*_.ROUTINE_NTH__V9*/ meltfptr[8] = 0 ; @@ -4642,7 +4642,7 @@ lab_endgetargs:; /*_.LET___V6*/ meltfptr[5] = /*_.FOREVER___V7*/ meltfptr[6];; - MELT_LOCATION("warmelt-first.melt:2899:/ clear"); + MELT_LOCATION("warmelt-first.melt:2906:/ clear"); /*clear*/ /*_#LN__L3*/ meltfnum[2] = 0 ; /*^clear*/ /*clear*/ /*_#IX__L4*/ meltfnum[3] = 0 ; @@ -4651,7 +4651,7 @@ lab_endgetargs:; /*_.IF___V5*/ meltfptr[4] = /*_.LET___V6*/ meltfptr[5];; /*epilog*/ - MELT_LOCATION("warmelt-first.melt:2898:/ clear"); + MELT_LOCATION("warmelt-first.melt:2905:/ clear"); /*clear*/ /*_.LET___V6*/ meltfptr[5] = 0 ;} ; } else {/*^cond.else*/ @@ -4664,7 +4664,7 @@ lab_endgetargs:; /*_.IF___V4*/ meltfptr[3] = /*_.IF___V5*/ meltfptr[4];; /*epilog*/ - MELT_LOCATION("warmelt-first.melt:2897:/ clear"); + MELT_LOCATION("warmelt-first.melt:2904:/ clear"); /*clear*/ /*_#IS_CLOSURE__L2*/ meltfnum[1] = 0 ; /*^clear*/ /*clear*/ /*_.IF___V5*/ meltfptr[4] = 0 ;} @@ -4674,11 +4674,11 @@ lab_endgetargs:; /*_.IF___V4*/ meltfptr[3] = NULL;; } ; - MELT_LOCATION("warmelt-first.melt:2895:/ quasiblock"); + MELT_LOCATION("warmelt-first.melt:2902:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.IF___V4*/ meltfptr[3];; - MELT_LOCATION("warmelt-first.melt:2895:/ finalreturn"); + MELT_LOCATION("warmelt-first.melt:2902:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*epilog*/ @@ -4750,7 +4750,7 @@ melt_trace_start("INSTALL_METHOD", meltcallcount); /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-first.melt:2907:/ getarg"); + MELT_LOCATION("warmelt-first.melt:2914:/ getarg"); /*_.CLA__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; /*getarg#1*/ @@ -4775,7 +4775,7 @@ lab_endgetargs:; /*_#IS_A__L1*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.CLA__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_DISCRIMINANT*/ meltfrout->tabval[0])));; - MELT_LOCATION("warmelt-first.melt:2909:/ cond"); + MELT_LOCATION("warmelt-first.melt:2916:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -4783,7 +4783,7 @@ lab_endgetargs:; /*_#IS_A__L2*/ meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.SEL__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_SELECTOR*/ meltfrout->tabval[1])));; - MELT_LOCATION("warmelt-first.melt:2910:/ cond"); + MELT_LOCATION("warmelt-first.melt:2917:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -4791,22 +4791,22 @@ lab_endgetargs:; /*_#IS_CLOSURE__L3*/ meltfnum[2] = (melt_magic_discr((melt_ptr_t)(/*_.FUN__V4*/ meltfptr[3])) == OBMAG_CLOSURE);; - MELT_LOCATION("warmelt-first.melt:2911:/ cond"); + MELT_LOCATION("warmelt-first.melt:2918:/ cond"); /*cond*/ if (/*_#IS_CLOSURE__L3*/ meltfnum[2]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-first.melt:2912:/ quasiblock"); + MELT_LOCATION("warmelt-first.melt:2919:/ quasiblock"); - MELT_LOCATION("warmelt-first.melt:2914:/ getslot"); + MELT_LOCATION("warmelt-first.melt:2921:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.CLA__V2*/ meltfptr[1]), 2, "DISC_METHODICT");/*_.MAPDICT__V5*/ meltfptr[4] = slot; }; ; /*_#IS_MAPOBJECT__L4*/ meltfnum[3] = (melt_magic_discr((melt_ptr_t)(/*_.MAPDICT__V5*/ meltfptr[4])) == OBMAG_MAPOBJECTS);; - MELT_LOCATION("warmelt-first.melt:2915:/ cond"); + MELT_LOCATION("warmelt-first.melt:2922:/ cond"); /*cond*/ if (/*_#IS_MAPOBJECT__L4*/ meltfnum[3]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -4814,7 +4814,7 @@ lab_endgetargs:; { - MELT_LOCATION("warmelt-first.melt:2916:/ locexp"); + MELT_LOCATION("warmelt-first.melt:2923:/ locexp"); meltgc_put_mapobjects( (meltmapobjects_ptr_t) (/*_.MAPDICT__V5*/ meltfptr[4]), (meltobject_ptr_t) (/*_.SEL__V3*/ meltfptr[2]), (melt_ptr_t)(/*_.FUN__V4*/ meltfptr[3]));} @@ -4822,17 +4822,17 @@ lab_endgetargs:; /*epilog*/ } ; - } else {MELT_LOCATION("warmelt-first.melt:2915:/ cond.else"); + } else {MELT_LOCATION("warmelt-first.melt:2922:/ cond.else"); /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-first.melt:2917:/ quasiblock"); + MELT_LOCATION("warmelt-first.melt:2924:/ quasiblock"); /*_.NEWMAPDICT__V6*/ meltfptr[5] = (meltgc_new_mapobjects( (meltobject_ptr_t) ((/*!DISCR_METHOD_MAP*/ meltfrout->tabval[2])), (35)));; - MELT_LOCATION("warmelt-first.melt:2918:/ quasiblock"); + MELT_LOCATION("warmelt-first.melt:2925:/ quasiblock"); /*^putslot*/ @@ -4846,13 +4846,13 @@ lab_endgetargs:; { - MELT_LOCATION("warmelt-first.melt:2919:/ locexp"); + MELT_LOCATION("warmelt-first.melt:2926:/ locexp"); meltgc_put_mapobjects( (meltmapobjects_ptr_t) (/*_.NEWMAPDICT__V6*/ meltfptr[5]), (meltobject_ptr_t) (/*_.SEL__V3*/ meltfptr[2]), (melt_ptr_t)(/*_.FUN__V4*/ meltfptr[3]));} ; - MELT_LOCATION("warmelt-first.melt:2917:/ clear"); + MELT_LOCATION("warmelt-first.melt:2924:/ clear"); /*clear*/ /*_.NEWMAPDICT__V6*/ meltfptr[5] = 0 ; /*epilog*/ } @@ -4860,7 +4860,7 @@ lab_endgetargs:; } ; - MELT_LOCATION("warmelt-first.melt:2912:/ clear"); + MELT_LOCATION("warmelt-first.melt:2919:/ clear"); /*clear*/ /*_.MAPDICT__V5*/ meltfptr[4] = 0 ; /*^clear*/ /*clear*/ /*_#IS_MAPOBJECT__L4*/ meltfnum[3] = 0 ; @@ -4871,21 +4871,21 @@ lab_endgetargs:; ; /*epilog*/ - MELT_LOCATION("warmelt-first.melt:2910:/ clear"); + MELT_LOCATION("warmelt-first.melt:2917:/ clear"); /*clear*/ /*_#IS_CLOSURE__L3*/ meltfnum[2] = 0 ;} ; } /*noelse*/ ; /*epilog*/ - MELT_LOCATION("warmelt-first.melt:2909:/ clear"); + MELT_LOCATION("warmelt-first.melt:2916:/ clear"); /*clear*/ /*_#IS_A__L2*/ meltfnum[1] = 0 ;} ; } /*noelse*/ ; /*epilog*/ - MELT_LOCATION("warmelt-first.melt:2907:/ clear"); + MELT_LOCATION("warmelt-first.melt:2914:/ clear"); /*clear*/ /*_#IS_A__L1*/ meltfnum[0] = 0 ;} ; @@ -4950,7 +4950,7 @@ melt_trace_start("COMPARE_OBJ_RANKED", meltcallcount); /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-first.melt:2928:/ getarg"); + MELT_LOCATION("warmelt-first.melt:2935:/ getarg"); /*_.X1__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; /*getarg#1*/ @@ -5003,23 +5003,23 @@ lab_endgetargs:; /*_#__L1*/ meltfnum[0] = ((/*_.X1__V2*/ meltfptr[1]) == (/*_.X2__V4*/ meltfptr[3]));; - MELT_LOCATION("warmelt-first.melt:2929:/ cond"); + MELT_LOCATION("warmelt-first.melt:2936:/ cond"); /*cond*/ if (/*_#__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-first.melt:2930:/ quasiblock"); + MELT_LOCATION("warmelt-first.melt:2937:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.VEQ__V7*/ meltfptr[6];; - MELT_LOCATION("warmelt-first.melt:2930:/ finalreturn"); + MELT_LOCATION("warmelt-first.melt:2937:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*_.IFELSE___V9*/ meltfptr[8] = /*_.RETURN___V10*/ meltfptr[9];; /*epilog*/ - MELT_LOCATION("warmelt-first.melt:2929:/ clear"); + MELT_LOCATION("warmelt-first.melt:2936:/ clear"); /*clear*/ /*_.RETURN___V10*/ meltfptr[9] = 0 ;} ; } else {/*^cond.else*/ @@ -5027,7 +5027,7 @@ lab_endgetargs:; /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-first.melt:2931:/ quasiblock"); + MELT_LOCATION("warmelt-first.melt:2938:/ quasiblock"); /*_.X1DIS__V12*/ meltfptr[11] = @@ -5048,39 +5048,39 @@ lab_endgetargs:; /*_#__L4*/ meltfnum[3] = ((/*_.X1DIS__V12*/ meltfptr[11]) != (/*_.X2DIS__V13*/ meltfptr[12]));; - MELT_LOCATION("warmelt-first.melt:2936:/ cond"); + MELT_LOCATION("warmelt-first.melt:2943:/ cond"); /*cond*/ if (/*_#__L4*/ meltfnum[3]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-first.melt:2937:/ getslot"); + MELT_LOCATION("warmelt-first.melt:2944:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.X1DIS__V12*/ meltfptr[11]), 1, "NAMED_NAME");/*_.NAMED_NAME__V15*/ meltfptr[14] = slot; }; ; - MELT_LOCATION("warmelt-first.melt:2938:/ getslot"); + MELT_LOCATION("warmelt-first.melt:2945:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.X2DIS__V13*/ meltfptr[12]), 1, "NAMED_NAME");/*_.NAMED_NAME__V16*/ meltfptr[15] = slot; }; ; /*_#STRING___L5*/ meltfnum[4] = melt_string_less((melt_ptr_t)(/*_.NAMED_NAME__V15*/ meltfptr[14]), (melt_ptr_t)(/*_.NAMED_NAME__V16*/ meltfptr[15]));; - MELT_LOCATION("warmelt-first.melt:2937:/ cond"); + MELT_LOCATION("warmelt-first.melt:2944:/ cond"); /*cond*/ if (/*_#STRING___L5*/ meltfnum[4]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-first.melt:2939:/ quasiblock"); + MELT_LOCATION("warmelt-first.melt:2946:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.VLESS__V6*/ meltfptr[5];; - MELT_LOCATION("warmelt-first.melt:2939:/ finalreturn"); + MELT_LOCATION("warmelt-first.melt:2946:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*_.IFELSE___V17*/ meltfptr[16] = /*_.RETURN___V18*/ meltfptr[17];; /*epilog*/ - MELT_LOCATION("warmelt-first.melt:2937:/ clear"); + MELT_LOCATION("warmelt-first.melt:2944:/ clear"); /*clear*/ /*_.RETURN___V18*/ meltfptr[17] = 0 ;} ; } else {/*^cond.else*/ @@ -5088,17 +5088,17 @@ lab_endgetargs:; /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-first.melt:2940:/ quasiblock"); + MELT_LOCATION("warmelt-first.melt:2947:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.VGREAT__V8*/ meltfptr[7];; - MELT_LOCATION("warmelt-first.melt:2940:/ finalreturn"); + MELT_LOCATION("warmelt-first.melt:2947:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*_.IFELSE___V17*/ meltfptr[16] = /*_.RETURN___V19*/ meltfptr[17];; /*epilog*/ - MELT_LOCATION("warmelt-first.melt:2937:/ clear"); + MELT_LOCATION("warmelt-first.melt:2944:/ clear"); /*clear*/ /*_.RETURN___V19*/ meltfptr[17] = 0 ;} ; } @@ -5106,7 +5106,7 @@ lab_endgetargs:; /*_.IFELSE___V14*/ meltfptr[13] = /*_.IFELSE___V17*/ meltfptr[16];; /*epilog*/ - MELT_LOCATION("warmelt-first.melt:2936:/ clear"); + MELT_LOCATION("warmelt-first.melt:2943:/ clear"); /*clear*/ /*_.NAMED_NAME__V15*/ meltfptr[14] = 0 ; /*^clear*/ /*clear*/ /*_.NAMED_NAME__V16*/ meltfptr[15] = 0 ; @@ -5122,42 +5122,42 @@ lab_endgetargs:; /*_#IS_A__L6*/ meltfnum[4] = melt_is_instance_of((melt_ptr_t)(/*_.X1__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_CLONED_SYMBOL*/ meltfrout->tabval[0])));; - MELT_LOCATION("warmelt-first.melt:2942:/ cond"); + MELT_LOCATION("warmelt-first.melt:2949:/ cond"); /*cond*/ if (/*_#IS_A__L6*/ meltfnum[4]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-first.melt:2943:/ quasiblock"); + MELT_LOCATION("warmelt-first.melt:2950:/ quasiblock"); /*^getslot*/ { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.X1__V2*/ meltfptr[1]), 1, "NAMED_NAME");/*_.N1__V22*/ meltfptr[15] = slot; }; ; - MELT_LOCATION("warmelt-first.melt:2944:/ getslot"); + MELT_LOCATION("warmelt-first.melt:2951:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.X2__V4*/ meltfptr[3]), 1, "NAMED_NAME");/*_.N2__V23*/ meltfptr[16] = slot; }; ; /*_#STRING___L7*/ meltfnum[6] = melt_string_less((melt_ptr_t)(/*_.N1__V22*/ meltfptr[15]), (melt_ptr_t)(/*_.N2__V23*/ meltfptr[16]));; - MELT_LOCATION("warmelt-first.melt:2945:/ cond"); + MELT_LOCATION("warmelt-first.melt:2952:/ cond"); /*cond*/ if (/*_#STRING___L7*/ meltfnum[6]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-first.melt:2946:/ quasiblock"); + MELT_LOCATION("warmelt-first.melt:2953:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.VLESS__V6*/ meltfptr[5];; - MELT_LOCATION("warmelt-first.melt:2946:/ finalreturn"); + MELT_LOCATION("warmelt-first.melt:2953:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*_.IFELSE___V24*/ meltfptr[23] = /*_.RETURN___V25*/ meltfptr[24];; /*epilog*/ - MELT_LOCATION("warmelt-first.melt:2945:/ clear"); + MELT_LOCATION("warmelt-first.melt:2952:/ clear"); /*clear*/ /*_.RETURN___V25*/ meltfptr[24] = 0 ;} ; } else {/*^cond.else*/ @@ -5167,23 +5167,23 @@ lab_endgetargs:; /*_#STRING___L8*/ meltfnum[7] = melt_string_less((melt_ptr_t)(/*_.N2__V23*/ meltfptr[16]), (melt_ptr_t)(/*_.N1__V22*/ meltfptr[15]));; - MELT_LOCATION("warmelt-first.melt:2947:/ cond"); + MELT_LOCATION("warmelt-first.melt:2954:/ cond"); /*cond*/ if (/*_#STRING___L8*/ meltfnum[7]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-first.melt:2948:/ quasiblock"); + MELT_LOCATION("warmelt-first.melt:2955:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.VGREAT__V8*/ meltfptr[7];; - MELT_LOCATION("warmelt-first.melt:2948:/ finalreturn"); + MELT_LOCATION("warmelt-first.melt:2955:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*_.IFELSE___V26*/ meltfptr[24] = /*_.RETURN___V27*/ meltfptr[26];; /*epilog*/ - MELT_LOCATION("warmelt-first.melt:2947:/ clear"); + MELT_LOCATION("warmelt-first.melt:2954:/ clear"); /*clear*/ /*_.RETURN___V27*/ meltfptr[26] = 0 ;} ; } else {/*^cond.else*/ @@ -5191,14 +5191,14 @@ lab_endgetargs:; /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-first.melt:2950:/ quasiblock"); + MELT_LOCATION("warmelt-first.melt:2957:/ quasiblock"); - MELT_LOCATION("warmelt-first.melt:2951:/ getslot"); + MELT_LOCATION("warmelt-first.melt:2958:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.X1__V2*/ meltfptr[1]), 3, "CSYM_URANK");/*_.YR1__V29*/ meltfptr[28] = slot; }; ; - MELT_LOCATION("warmelt-first.melt:2952:/ getslot"); + MELT_LOCATION("warmelt-first.melt:2959:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.X2__V4*/ meltfptr[3]), 3, "CSYM_URANK");/*_.YR2__V30*/ meltfptr[29] = slot; }; ; @@ -5212,23 +5212,23 @@ lab_endgetargs:; /*_#I__L11*/ meltfnum[10] = ((/*_#NR1__L9*/ meltfnum[8]) < (/*_#NR2__L10*/ meltfnum[9]));; - MELT_LOCATION("warmelt-first.melt:2956:/ cond"); + MELT_LOCATION("warmelt-first.melt:2963:/ cond"); /*cond*/ if (/*_#I__L11*/ meltfnum[10]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-first.melt:2957:/ quasiblock"); + MELT_LOCATION("warmelt-first.melt:2964:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.VLESS__V6*/ meltfptr[5];; - MELT_LOCATION("warmelt-first.melt:2957:/ finalreturn"); + MELT_LOCATION("warmelt-first.melt:2964:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*_.IFELSE___V31*/ meltfptr[30] = /*_.RETURN___V32*/ meltfptr[31];; /*epilog*/ - MELT_LOCATION("warmelt-first.melt:2956:/ clear"); + MELT_LOCATION("warmelt-first.melt:2963:/ clear"); /*clear*/ /*_.RETURN___V32*/ meltfptr[31] = 0 ;} ; } else {/*^cond.else*/ @@ -5238,23 +5238,23 @@ lab_endgetargs:; /*_#I__L12*/ meltfnum[11] = ((/*_#NR1__L9*/ meltfnum[8]) > (/*_#NR2__L10*/ meltfnum[9]));; - MELT_LOCATION("warmelt-first.melt:2958:/ cond"); + MELT_LOCATION("warmelt-first.melt:2965:/ cond"); /*cond*/ if (/*_#I__L12*/ meltfnum[11]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-first.melt:2959:/ quasiblock"); + MELT_LOCATION("warmelt-first.melt:2966:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.VGREAT__V8*/ meltfptr[7];; - MELT_LOCATION("warmelt-first.melt:2959:/ finalreturn"); + MELT_LOCATION("warmelt-first.melt:2966:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*_.IFELSE___V33*/ meltfptr[31] = /*_.RETURN___V34*/ meltfptr[33];; /*epilog*/ - MELT_LOCATION("warmelt-first.melt:2958:/ clear"); + MELT_LOCATION("warmelt-first.melt:2965:/ clear"); /*clear*/ /*_.RETURN___V34*/ meltfptr[33] = 0 ;} ; } else {/*^cond.else*/ @@ -5264,7 +5264,7 @@ lab_endgetargs:; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-first.melt:2962:/ cppif.then"); + MELT_LOCATION("warmelt-first.melt:2969:/ cppif.then"); /*^block*/ /*anyblock*/{ @@ -5272,7 +5272,7 @@ lab_endgetargs:; /*cond*/ if ((/*nil*/NULL)) /*then*/ { /*^cond.then*/ /*_.IFELSE___V36*/ meltfptr[35] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-first.melt:2962:/ cond.else"); + } else {MELT_LOCATION("warmelt-first.melt:2969:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -5283,7 +5283,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "corrupted same cloned symbols"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__, - (2962)?(2962):__LINE__, __FUNCTION__); + (2969)?(2969):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V36*/ meltfptr[35] = 0 ; @@ -5297,7 +5297,7 @@ lab_endgetargs:; /*_.IFCPP___V35*/ meltfptr[33] = /*_.IFELSE___V36*/ meltfptr[35];; /*epilog*/ - MELT_LOCATION("warmelt-first.melt:2962:/ clear"); + MELT_LOCATION("warmelt-first.melt:2969:/ clear"); /*clear*/ /*_.IFELSE___V36*/ meltfptr[35] = 0 ;} #else /*ENABLE_CHECKING*/ @@ -5305,14 +5305,14 @@ lab_endgetargs:; /*_.IFCPP___V35*/ meltfptr[33] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-first.melt:2963:/ quasiblock"); + MELT_LOCATION("warmelt-first.melt:2970:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = (/*nil*/NULL);; - MELT_LOCATION("warmelt-first.melt:2963:/ finalreturn"); + MELT_LOCATION("warmelt-first.melt:2970:/ finalreturn"); ; /*finalret*/ goto labend_rout ; - MELT_LOCATION("warmelt-first.melt:2960:/ quasiblock"); + MELT_LOCATION("warmelt-first.melt:2967:/ quasiblock"); /*_.PROGN___V38*/ meltfptr[37] = /*_.RETURN___V37*/ meltfptr[35];; @@ -5321,7 +5321,7 @@ lab_endgetargs:; /*_.IFELSE___V33*/ meltfptr[31] = /*_.PROGN___V38*/ meltfptr[37];; /*epilog*/ - MELT_LOCATION("warmelt-first.melt:2958:/ clear"); + MELT_LOCATION("warmelt-first.melt:2965:/ clear"); /*clear*/ /*_.IFCPP___V35*/ meltfptr[33] = 0 ; /*^clear*/ /*clear*/ /*_.RETURN___V37*/ meltfptr[35] = 0 ; @@ -5333,7 +5333,7 @@ lab_endgetargs:; /*_.IFELSE___V31*/ meltfptr[30] = /*_.IFELSE___V33*/ meltfptr[31];; /*epilog*/ - MELT_LOCATION("warmelt-first.melt:2956:/ clear"); + MELT_LOCATION("warmelt-first.melt:2963:/ clear"); /*clear*/ /*_#I__L12*/ meltfnum[11] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V33*/ meltfptr[31] = 0 ;} @@ -5342,7 +5342,7 @@ lab_endgetargs:; ; /*_.LET___V28*/ meltfptr[26] = /*_.IFELSE___V31*/ meltfptr[30];; - MELT_LOCATION("warmelt-first.melt:2950:/ clear"); + MELT_LOCATION("warmelt-first.melt:2957:/ clear"); /*clear*/ /*_.YR1__V29*/ meltfptr[28] = 0 ; /*^clear*/ /*clear*/ /*_.YR2__V30*/ meltfptr[29] = 0 ; @@ -5354,7 +5354,7 @@ lab_endgetargs:; /*clear*/ /*_#I__L11*/ meltfnum[10] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V31*/ meltfptr[30] = 0 ; - MELT_LOCATION("warmelt-first.melt:2949:/ quasiblock"); + MELT_LOCATION("warmelt-first.melt:2956:/ quasiblock"); /*_.PROGN___V39*/ meltfptr[33] = /*_.LET___V28*/ meltfptr[26];; @@ -5363,7 +5363,7 @@ lab_endgetargs:; /*_.IFELSE___V26*/ meltfptr[24] = /*_.PROGN___V39*/ meltfptr[33];; /*epilog*/ - MELT_LOCATION("warmelt-first.melt:2947:/ clear"); + MELT_LOCATION("warmelt-first.melt:2954:/ clear"); /*clear*/ /*_.LET___V28*/ meltfptr[26] = 0 ; /*^clear*/ /*clear*/ /*_.PROGN___V39*/ meltfptr[33] = 0 ;} @@ -5373,7 +5373,7 @@ lab_endgetargs:; /*_.IFELSE___V24*/ meltfptr[23] = /*_.IFELSE___V26*/ meltfptr[24];; /*epilog*/ - MELT_LOCATION("warmelt-first.melt:2945:/ clear"); + MELT_LOCATION("warmelt-first.melt:2952:/ clear"); /*clear*/ /*_#STRING___L8*/ meltfnum[7] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V26*/ meltfptr[24] = 0 ;} @@ -5382,7 +5382,7 @@ lab_endgetargs:; ; /*_.LET___V21*/ meltfptr[14] = /*_.IFELSE___V24*/ meltfptr[23];; - MELT_LOCATION("warmelt-first.melt:2943:/ clear"); + MELT_LOCATION("warmelt-first.melt:2950:/ clear"); /*clear*/ /*_.N1__V22*/ meltfptr[15] = 0 ; /*^clear*/ /*clear*/ /*_.N2__V23*/ meltfptr[16] = 0 ; @@ -5393,7 +5393,7 @@ lab_endgetargs:; /*_.IFELSE___V20*/ meltfptr[17] = /*_.LET___V21*/ meltfptr[14];; /*epilog*/ - MELT_LOCATION("warmelt-first.melt:2942:/ clear"); + MELT_LOCATION("warmelt-first.melt:2949:/ clear"); /*clear*/ /*_.LET___V21*/ meltfptr[14] = 0 ;} ; } else {/*^cond.else*/ @@ -5403,42 +5403,42 @@ lab_endgetargs:; /*_#IS_A__L13*/ meltfnum[11] = melt_is_instance_of((melt_ptr_t)(/*_.X1__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[1])));; - MELT_LOCATION("warmelt-first.melt:2966:/ cond"); + MELT_LOCATION("warmelt-first.melt:2973:/ cond"); /*cond*/ if (/*_#IS_A__L13*/ meltfnum[11]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-first.melt:2967:/ quasiblock"); + MELT_LOCATION("warmelt-first.melt:2974:/ quasiblock"); /*^getslot*/ { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.X1__V2*/ meltfptr[1]), 1, "NAMED_NAME");/*_.N1__V42*/ meltfptr[31] = slot; }; ; - MELT_LOCATION("warmelt-first.melt:2968:/ getslot"); + MELT_LOCATION("warmelt-first.melt:2975:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.X2__V4*/ meltfptr[3]), 1, "NAMED_NAME");/*_.N2__V43*/ meltfptr[28] = slot; }; ; /*_#STRING___L14*/ meltfnum[8] = melt_string_less((melt_ptr_t)(/*_.N1__V42*/ meltfptr[31]), (melt_ptr_t)(/*_.N2__V43*/ meltfptr[28]));; - MELT_LOCATION("warmelt-first.melt:2970:/ cond"); + MELT_LOCATION("warmelt-first.melt:2977:/ cond"); /*cond*/ if (/*_#STRING___L14*/ meltfnum[8]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-first.melt:2971:/ quasiblock"); + MELT_LOCATION("warmelt-first.melt:2978:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.VLESS__V6*/ meltfptr[5];; - MELT_LOCATION("warmelt-first.melt:2971:/ finalreturn"); + MELT_LOCATION("warmelt-first.melt:2978:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*_.IFELSE___V44*/ meltfptr[29] = /*_.RETURN___V45*/ meltfptr[30];; /*epilog*/ - MELT_LOCATION("warmelt-first.melt:2970:/ clear"); + MELT_LOCATION("warmelt-first.melt:2977:/ clear"); /*clear*/ /*_.RETURN___V45*/ meltfptr[30] = 0 ;} ; } else {/*^cond.else*/ @@ -5448,23 +5448,23 @@ lab_endgetargs:; /*_#STRING___L15*/ meltfnum[9] = melt_string_less((melt_ptr_t)(/*_.N2__V43*/ meltfptr[28]), (melt_ptr_t)(/*_.N1__V42*/ meltfptr[31]));; - MELT_LOCATION("warmelt-first.melt:2972:/ cond"); + MELT_LOCATION("warmelt-first.melt:2979:/ cond"); /*cond*/ if (/*_#STRING___L15*/ meltfnum[9]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-first.melt:2973:/ quasiblock"); + MELT_LOCATION("warmelt-first.melt:2980:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.VGREAT__V8*/ meltfptr[7];; - MELT_LOCATION("warmelt-first.melt:2973:/ finalreturn"); + MELT_LOCATION("warmelt-first.melt:2980:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*_.IFELSE___V46*/ meltfptr[26] = /*_.RETURN___V47*/ meltfptr[33];; /*epilog*/ - MELT_LOCATION("warmelt-first.melt:2972:/ clear"); + MELT_LOCATION("warmelt-first.melt:2979:/ clear"); /*clear*/ /*_.RETURN___V47*/ meltfptr[33] = 0 ;} ; } else {/*^cond.else*/ @@ -5474,23 +5474,23 @@ lab_endgetargs:; /*_#I__L16*/ meltfnum[10] = ((/*_#RK1__L2*/ meltfnum[1]) < (/*_#RK2__L3*/ meltfnum[2]));; - MELT_LOCATION("warmelt-first.melt:2974:/ cond"); + MELT_LOCATION("warmelt-first.melt:2981:/ cond"); /*cond*/ if (/*_#I__L16*/ meltfnum[10]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-first.melt:2975:/ quasiblock"); + MELT_LOCATION("warmelt-first.melt:2982:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.VLESS__V6*/ meltfptr[5];; - MELT_LOCATION("warmelt-first.melt:2975:/ finalreturn"); + MELT_LOCATION("warmelt-first.melt:2982:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*_.IFELSE___V48*/ meltfptr[24] = /*_.RETURN___V49*/ meltfptr[15];; /*epilog*/ - MELT_LOCATION("warmelt-first.melt:2974:/ clear"); + MELT_LOCATION("warmelt-first.melt:2981:/ clear"); /*clear*/ /*_.RETURN___V49*/ meltfptr[15] = 0 ;} ; } else {/*^cond.else*/ @@ -5500,23 +5500,23 @@ lab_endgetargs:; /*_#I__L17*/ meltfnum[7] = ((/*_#RK1__L2*/ meltfnum[1]) > (/*_#RK2__L3*/ meltfnum[2]));; - MELT_LOCATION("warmelt-first.melt:2976:/ cond"); + MELT_LOCATION("warmelt-first.melt:2983:/ cond"); /*cond*/ if (/*_#I__L17*/ meltfnum[7]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-first.melt:2977:/ quasiblock"); + MELT_LOCATION("warmelt-first.melt:2984:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.VGREAT__V8*/ meltfptr[7];; - MELT_LOCATION("warmelt-first.melt:2977:/ finalreturn"); + MELT_LOCATION("warmelt-first.melt:2984:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*_.IFELSE___V50*/ meltfptr[16] = /*_.RETURN___V51*/ meltfptr[23];; /*epilog*/ - MELT_LOCATION("warmelt-first.melt:2976:/ clear"); + MELT_LOCATION("warmelt-first.melt:2983:/ clear"); /*clear*/ /*_.RETURN___V51*/ meltfptr[23] = 0 ;} ; } else {/*^cond.else*/ @@ -5524,14 +5524,14 @@ lab_endgetargs:; /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-first.melt:2979:/ quasiblock"); + MELT_LOCATION("warmelt-first.melt:2986:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.VEQ__V7*/ meltfptr[6];; - MELT_LOCATION("warmelt-first.melt:2979:/ finalreturn"); + MELT_LOCATION("warmelt-first.melt:2986:/ finalreturn"); ; /*finalret*/ goto labend_rout ; - MELT_LOCATION("warmelt-first.melt:2978:/ quasiblock"); + MELT_LOCATION("warmelt-first.melt:2985:/ quasiblock"); /*_.PROGN___V53*/ meltfptr[30] = /*_.RETURN___V52*/ meltfptr[14];; @@ -5540,7 +5540,7 @@ lab_endgetargs:; /*_.IFELSE___V50*/ meltfptr[16] = /*_.PROGN___V53*/ meltfptr[30];; /*epilog*/ - MELT_LOCATION("warmelt-first.melt:2976:/ clear"); + MELT_LOCATION("warmelt-first.melt:2983:/ clear"); /*clear*/ /*_.RETURN___V52*/ meltfptr[14] = 0 ; /*^clear*/ /*clear*/ /*_.PROGN___V53*/ meltfptr[30] = 0 ;} @@ -5550,7 +5550,7 @@ lab_endgetargs:; /*_.IFELSE___V48*/ meltfptr[24] = /*_.IFELSE___V50*/ meltfptr[16];; /*epilog*/ - MELT_LOCATION("warmelt-first.melt:2974:/ clear"); + MELT_LOCATION("warmelt-first.melt:2981:/ clear"); /*clear*/ /*_#I__L17*/ meltfnum[7] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V50*/ meltfptr[16] = 0 ;} @@ -5560,7 +5560,7 @@ lab_endgetargs:; /*_.IFELSE___V46*/ meltfptr[26] = /*_.IFELSE___V48*/ meltfptr[24];; /*epilog*/ - MELT_LOCATION("warmelt-first.melt:2972:/ clear"); + MELT_LOCATION("warmelt-first.melt:2979:/ clear"); /*clear*/ /*_#I__L16*/ meltfnum[10] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V48*/ meltfptr[24] = 0 ;} @@ -5570,7 +5570,7 @@ lab_endgetargs:; /*_.IFELSE___V44*/ meltfptr[29] = /*_.IFELSE___V46*/ meltfptr[26];; /*epilog*/ - MELT_LOCATION("warmelt-first.melt:2970:/ clear"); + MELT_LOCATION("warmelt-first.melt:2977:/ clear"); /*clear*/ /*_#STRING___L15*/ meltfnum[9] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V46*/ meltfptr[26] = 0 ;} @@ -5579,7 +5579,7 @@ lab_endgetargs:; ; /*_.LET___V41*/ meltfptr[37] = /*_.IFELSE___V44*/ meltfptr[29];; - MELT_LOCATION("warmelt-first.melt:2967:/ clear"); + MELT_LOCATION("warmelt-first.melt:2974:/ clear"); /*clear*/ /*_.N1__V42*/ meltfptr[31] = 0 ; /*^clear*/ /*clear*/ /*_.N2__V43*/ meltfptr[28] = 0 ; @@ -5590,7 +5590,7 @@ lab_endgetargs:; /*_.IFELSE___V40*/ meltfptr[35] = /*_.LET___V41*/ meltfptr[37];; /*epilog*/ - MELT_LOCATION("warmelt-first.melt:2966:/ clear"); + MELT_LOCATION("warmelt-first.melt:2973:/ clear"); /*clear*/ /*_.LET___V41*/ meltfptr[37] = 0 ;} ; } else {/*^cond.else*/ @@ -5600,24 +5600,24 @@ lab_endgetargs:; /*_#IS_A__L18*/ meltfnum[6] = melt_is_instance_of((melt_ptr_t)(/*_.X1__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_ANY_BINDING*/ meltfrout->tabval[2])));; - MELT_LOCATION("warmelt-first.melt:2982:/ cond"); + MELT_LOCATION("warmelt-first.melt:2989:/ cond"); /*cond*/ if (/*_#IS_A__L18*/ meltfnum[6]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-first.melt:2983:/ quasiblock"); + MELT_LOCATION("warmelt-first.melt:2990:/ quasiblock"); /*^getslot*/ { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.X1__V2*/ meltfptr[1]), 0, "BINDER");/*_.BSY1__V56*/ meltfptr[23] = slot; }; ; - MELT_LOCATION("warmelt-first.melt:2984:/ getslot"); + MELT_LOCATION("warmelt-first.melt:2991:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.X1__V2*/ meltfptr[1]), 0, "BINDER");/*_.BSY2__V57*/ meltfptr[14] = slot; }; ; - MELT_LOCATION("warmelt-first.melt:2985:/ apply"); + MELT_LOCATION("warmelt-first.melt:2992:/ apply"); /*apply*/{ union meltparam_un argtab[6]; memset(&argtab, 0, sizeof(argtab)); @@ -5640,12 +5640,12 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.COMPARE_OBJ_RANKED__V58*/ meltfptr[30];; - MELT_LOCATION("warmelt-first.melt:2985:/ finalreturn"); + MELT_LOCATION("warmelt-first.melt:2992:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*_.LET___V55*/ meltfptr[15] = /*_.RETURN___V59*/ meltfptr[16];; - MELT_LOCATION("warmelt-first.melt:2983:/ clear"); + MELT_LOCATION("warmelt-first.melt:2990:/ clear"); /*clear*/ /*_.BSY1__V56*/ meltfptr[23] = 0 ; /*^clear*/ /*clear*/ /*_.BSY2__V57*/ meltfptr[14] = 0 ; @@ -5656,7 +5656,7 @@ lab_endgetargs:; /*_.IFELSE___V54*/ meltfptr[33] = /*_.LET___V55*/ meltfptr[15];; /*epilog*/ - MELT_LOCATION("warmelt-first.melt:2982:/ clear"); + MELT_LOCATION("warmelt-first.melt:2989:/ clear"); /*clear*/ /*_.LET___V55*/ meltfptr[15] = 0 ;} ; } else {/*^cond.else*/ @@ -5666,7 +5666,7 @@ lab_endgetargs:; /*_#IS_STRING__L19*/ meltfnum[7] = (melt_magic_discr((melt_ptr_t)(/*_.X1__V2*/ meltfptr[1])) == OBMAG_STRING);; - MELT_LOCATION("warmelt-first.melt:2986:/ cond"); + MELT_LOCATION("warmelt-first.melt:2993:/ cond"); /*cond*/ if (/*_#IS_STRING__L19*/ meltfnum[7]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -5674,23 +5674,23 @@ lab_endgetargs:; /*_#STRING___L20*/ meltfnum[10] = melt_string_less((melt_ptr_t)(/*_.X1__V2*/ meltfptr[1]), (melt_ptr_t)(/*_.X2__V4*/ meltfptr[3]));; - MELT_LOCATION("warmelt-first.melt:2987:/ cond"); + MELT_LOCATION("warmelt-first.melt:2994:/ cond"); /*cond*/ if (/*_#STRING___L20*/ meltfnum[10]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-first.melt:2988:/ quasiblock"); + MELT_LOCATION("warmelt-first.melt:2995:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.VLESS__V6*/ meltfptr[5];; - MELT_LOCATION("warmelt-first.melt:2988:/ finalreturn"); + MELT_LOCATION("warmelt-first.melt:2995:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*_.IFELSE___V61*/ meltfptr[26] = /*_.RETURN___V62*/ meltfptr[31];; /*epilog*/ - MELT_LOCATION("warmelt-first.melt:2987:/ clear"); + MELT_LOCATION("warmelt-first.melt:2994:/ clear"); /*clear*/ /*_.RETURN___V62*/ meltfptr[31] = 0 ;} ; } else {/*^cond.else*/ @@ -5700,23 +5700,23 @@ lab_endgetargs:; /*_#STRING___L21*/ meltfnum[9] = melt_string_less((melt_ptr_t)(/*_.X2__V4*/ meltfptr[3]), (melt_ptr_t)(/*_.X1__V2*/ meltfptr[1]));; - MELT_LOCATION("warmelt-first.melt:2989:/ cond"); + MELT_LOCATION("warmelt-first.melt:2996:/ cond"); /*cond*/ if (/*_#STRING___L21*/ meltfnum[9]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-first.melt:2990:/ quasiblock"); + MELT_LOCATION("warmelt-first.melt:2997:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.VGREAT__V8*/ meltfptr[7];; - MELT_LOCATION("warmelt-first.melt:2990:/ finalreturn"); + MELT_LOCATION("warmelt-first.melt:2997:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*_.IFELSE___V63*/ meltfptr[28] = /*_.RETURN___V64*/ meltfptr[29];; /*epilog*/ - MELT_LOCATION("warmelt-first.melt:2989:/ clear"); + MELT_LOCATION("warmelt-first.melt:2996:/ clear"); /*clear*/ /*_.RETURN___V64*/ meltfptr[29] = 0 ;} ; } else {/*^cond.else*/ @@ -5726,23 +5726,23 @@ lab_endgetargs:; /*_#I__L22*/ meltfnum[8] = ((/*_#RK1__L2*/ meltfnum[1]) < (/*_#RK2__L3*/ meltfnum[2]));; - MELT_LOCATION("warmelt-first.melt:2991:/ cond"); + MELT_LOCATION("warmelt-first.melt:2998:/ cond"); /*cond*/ if (/*_#I__L22*/ meltfnum[8]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-first.melt:2992:/ quasiblock"); + MELT_LOCATION("warmelt-first.melt:2999:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.VLESS__V6*/ meltfptr[5];; - MELT_LOCATION("warmelt-first.melt:2992:/ finalreturn"); + MELT_LOCATION("warmelt-first.melt:2999:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*_.IFELSE___V65*/ meltfptr[37] = /*_.RETURN___V66*/ meltfptr[23];; /*epilog*/ - MELT_LOCATION("warmelt-first.melt:2991:/ clear"); + MELT_LOCATION("warmelt-first.melt:2998:/ clear"); /*clear*/ /*_.RETURN___V66*/ meltfptr[23] = 0 ;} ; } else {/*^cond.else*/ @@ -5752,23 +5752,23 @@ lab_endgetargs:; /*_#I__L23*/ meltfnum[22] = ((/*_#RK1__L2*/ meltfnum[1]) > (/*_#RK2__L3*/ meltfnum[2]));; - MELT_LOCATION("warmelt-first.melt:2993:/ cond"); + MELT_LOCATION("warmelt-first.melt:3000:/ cond"); /*cond*/ if (/*_#I__L23*/ meltfnum[22]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-first.melt:2994:/ quasiblock"); + MELT_LOCATION("warmelt-first.melt:3001:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.VGREAT__V8*/ meltfptr[7];; - MELT_LOCATION("warmelt-first.melt:2994:/ finalreturn"); + MELT_LOCATION("warmelt-first.melt:3001:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*_.IFELSE___V67*/ meltfptr[14] = /*_.RETURN___V68*/ meltfptr[30];; /*epilog*/ - MELT_LOCATION("warmelt-first.melt:2993:/ clear"); + MELT_LOCATION("warmelt-first.melt:3000:/ clear"); /*clear*/ /*_.RETURN___V68*/ meltfptr[30] = 0 ;} ; } else {/*^cond.else*/ @@ -5776,14 +5776,14 @@ lab_endgetargs:; /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-first.melt:2996:/ quasiblock"); + MELT_LOCATION("warmelt-first.melt:3003:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.VEQ__V7*/ meltfptr[6];; - MELT_LOCATION("warmelt-first.melt:2996:/ finalreturn"); + MELT_LOCATION("warmelt-first.melt:3003:/ finalreturn"); ; /*finalret*/ goto labend_rout ; - MELT_LOCATION("warmelt-first.melt:2995:/ quasiblock"); + MELT_LOCATION("warmelt-first.melt:3002:/ quasiblock"); /*_.PROGN___V70*/ meltfptr[15] = /*_.RETURN___V69*/ meltfptr[16];; @@ -5792,7 +5792,7 @@ lab_endgetargs:; /*_.IFELSE___V67*/ meltfptr[14] = /*_.PROGN___V70*/ meltfptr[15];; /*epilog*/ - MELT_LOCATION("warmelt-first.melt:2993:/ clear"); + MELT_LOCATION("warmelt-first.melt:3000:/ clear"); /*clear*/ /*_.RETURN___V69*/ meltfptr[16] = 0 ; /*^clear*/ /*clear*/ /*_.PROGN___V70*/ meltfptr[15] = 0 ;} @@ -5802,7 +5802,7 @@ lab_endgetargs:; /*_.IFELSE___V65*/ meltfptr[37] = /*_.IFELSE___V67*/ meltfptr[14];; /*epilog*/ - MELT_LOCATION("warmelt-first.melt:2991:/ clear"); + MELT_LOCATION("warmelt-first.melt:2998:/ clear"); /*clear*/ /*_#I__L23*/ meltfnum[22] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V67*/ meltfptr[14] = 0 ;} @@ -5812,7 +5812,7 @@ lab_endgetargs:; /*_.IFELSE___V63*/ meltfptr[28] = /*_.IFELSE___V65*/ meltfptr[37];; /*epilog*/ - MELT_LOCATION("warmelt-first.melt:2989:/ clear"); + MELT_LOCATION("warmelt-first.melt:2996:/ clear"); /*clear*/ /*_#I__L22*/ meltfnum[8] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V65*/ meltfptr[37] = 0 ;} @@ -5822,7 +5822,7 @@ lab_endgetargs:; /*_.IFELSE___V61*/ meltfptr[26] = /*_.IFELSE___V63*/ meltfptr[28];; /*epilog*/ - MELT_LOCATION("warmelt-first.melt:2987:/ clear"); + MELT_LOCATION("warmelt-first.melt:2994:/ clear"); /*clear*/ /*_#STRING___L21*/ meltfnum[9] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V63*/ meltfptr[28] = 0 ;} @@ -5832,7 +5832,7 @@ lab_endgetargs:; /*_.IFELSE___V60*/ meltfptr[24] = /*_.IFELSE___V61*/ meltfptr[26];; /*epilog*/ - MELT_LOCATION("warmelt-first.melt:2986:/ clear"); + MELT_LOCATION("warmelt-first.melt:2993:/ clear"); /*clear*/ /*_#STRING___L20*/ meltfnum[10] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V61*/ meltfptr[26] = 0 ;} @@ -5844,23 +5844,23 @@ lab_endgetargs:; /*_#I__L24*/ meltfnum[22] = ((/*_#RK1__L2*/ meltfnum[1]) < (/*_#RK2__L3*/ meltfnum[2]));; - MELT_LOCATION("warmelt-first.melt:2997:/ cond"); + MELT_LOCATION("warmelt-first.melt:3004:/ cond"); /*cond*/ if (/*_#I__L24*/ meltfnum[22]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-first.melt:2998:/ quasiblock"); + MELT_LOCATION("warmelt-first.melt:3005:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.VLESS__V6*/ meltfptr[5];; - MELT_LOCATION("warmelt-first.melt:2998:/ finalreturn"); + MELT_LOCATION("warmelt-first.melt:3005:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*_.IFELSE___V71*/ meltfptr[31] = /*_.RETURN___V72*/ meltfptr[29];; /*epilog*/ - MELT_LOCATION("warmelt-first.melt:2997:/ clear"); + MELT_LOCATION("warmelt-first.melt:3004:/ clear"); /*clear*/ /*_.RETURN___V72*/ meltfptr[29] = 0 ;} ; } else {/*^cond.else*/ @@ -5870,23 +5870,23 @@ lab_endgetargs:; /*_#I__L25*/ meltfnum[8] = ((/*_#RK1__L2*/ meltfnum[1]) > (/*_#RK2__L3*/ meltfnum[2]));; - MELT_LOCATION("warmelt-first.melt:2999:/ cond"); + MELT_LOCATION("warmelt-first.melt:3006:/ cond"); /*cond*/ if (/*_#I__L25*/ meltfnum[8]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-first.melt:3000:/ quasiblock"); + MELT_LOCATION("warmelt-first.melt:3007:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.VGREAT__V8*/ meltfptr[7];; - MELT_LOCATION("warmelt-first.melt:3000:/ finalreturn"); + MELT_LOCATION("warmelt-first.melt:3007:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*_.IFELSE___V73*/ meltfptr[23] = /*_.RETURN___V74*/ meltfptr[30];; /*epilog*/ - MELT_LOCATION("warmelt-first.melt:2999:/ clear"); + MELT_LOCATION("warmelt-first.melt:3006:/ clear"); /*clear*/ /*_.RETURN___V74*/ meltfptr[30] = 0 ;} ; } else {/*^cond.else*/ @@ -5894,14 +5894,14 @@ lab_endgetargs:; /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-first.melt:3002:/ quasiblock"); + MELT_LOCATION("warmelt-first.melt:3009:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.VEQ__V7*/ meltfptr[6];; - MELT_LOCATION("warmelt-first.melt:3002:/ finalreturn"); + MELT_LOCATION("warmelt-first.melt:3009:/ finalreturn"); ; /*finalret*/ goto labend_rout ; - MELT_LOCATION("warmelt-first.melt:3001:/ quasiblock"); + MELT_LOCATION("warmelt-first.melt:3008:/ quasiblock"); /*_.PROGN___V76*/ meltfptr[15] = /*_.RETURN___V75*/ meltfptr[16];; @@ -5910,7 +5910,7 @@ lab_endgetargs:; /*_.IFELSE___V73*/ meltfptr[23] = /*_.PROGN___V76*/ meltfptr[15];; /*epilog*/ - MELT_LOCATION("warmelt-first.melt:2999:/ clear"); + MELT_LOCATION("warmelt-first.melt:3006:/ clear"); /*clear*/ /*_.RETURN___V75*/ meltfptr[16] = 0 ; /*^clear*/ /*clear*/ /*_.PROGN___V76*/ meltfptr[15] = 0 ;} @@ -5920,7 +5920,7 @@ lab_endgetargs:; /*_.IFELSE___V71*/ meltfptr[31] = /*_.IFELSE___V73*/ meltfptr[23];; /*epilog*/ - MELT_LOCATION("warmelt-first.melt:2997:/ clear"); + MELT_LOCATION("warmelt-first.melt:3004:/ clear"); /*clear*/ /*_#I__L25*/ meltfnum[8] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V73*/ meltfptr[23] = 0 ;} @@ -5930,7 +5930,7 @@ lab_endgetargs:; /*_.IFELSE___V60*/ meltfptr[24] = /*_.IFELSE___V71*/ meltfptr[31];; /*epilog*/ - MELT_LOCATION("warmelt-first.melt:2986:/ clear"); + MELT_LOCATION("warmelt-first.melt:2993:/ clear"); /*clear*/ /*_#I__L24*/ meltfnum[22] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V71*/ meltfptr[31] = 0 ;} @@ -5940,7 +5940,7 @@ lab_endgetargs:; /*_.IFELSE___V54*/ meltfptr[33] = /*_.IFELSE___V60*/ meltfptr[24];; /*epilog*/ - MELT_LOCATION("warmelt-first.melt:2982:/ clear"); + MELT_LOCATION("warmelt-first.melt:2989:/ clear"); /*clear*/ /*_#IS_STRING__L19*/ meltfnum[7] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V60*/ meltfptr[24] = 0 ;} @@ -5950,7 +5950,7 @@ lab_endgetargs:; /*_.IFELSE___V40*/ meltfptr[35] = /*_.IFELSE___V54*/ meltfptr[33];; /*epilog*/ - MELT_LOCATION("warmelt-first.melt:2966:/ clear"); + MELT_LOCATION("warmelt-first.melt:2973:/ clear"); /*clear*/ /*_#IS_A__L18*/ meltfnum[6] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V54*/ meltfptr[33] = 0 ;} @@ -5960,7 +5960,7 @@ lab_endgetargs:; /*_.IFELSE___V20*/ meltfptr[17] = /*_.IFELSE___V40*/ meltfptr[35];; /*epilog*/ - MELT_LOCATION("warmelt-first.melt:2942:/ clear"); + MELT_LOCATION("warmelt-first.melt:2949:/ clear"); /*clear*/ /*_#IS_A__L13*/ meltfnum[11] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V40*/ meltfptr[35] = 0 ;} @@ -5970,7 +5970,7 @@ lab_endgetargs:; /*_.IFELSE___V14*/ meltfptr[13] = /*_.IFELSE___V20*/ meltfptr[17];; /*epilog*/ - MELT_LOCATION("warmelt-first.melt:2936:/ clear"); + MELT_LOCATION("warmelt-first.melt:2943:/ clear"); /*clear*/ /*_#IS_A__L6*/ meltfnum[4] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V20*/ meltfptr[17] = 0 ;} @@ -5979,7 +5979,7 @@ lab_endgetargs:; ; /*_.LET___V11*/ meltfptr[9] = /*_.IFELSE___V14*/ meltfptr[13];; - MELT_LOCATION("warmelt-first.melt:2931:/ clear"); + MELT_LOCATION("warmelt-first.melt:2938:/ clear"); /*clear*/ /*_.X1DIS__V12*/ meltfptr[11] = 0 ; /*^clear*/ /*clear*/ /*_.X2DIS__V13*/ meltfptr[12] = 0 ; @@ -5994,16 +5994,16 @@ lab_endgetargs:; /*_.IFELSE___V9*/ meltfptr[8] = /*_.LET___V11*/ meltfptr[9];; /*epilog*/ - MELT_LOCATION("warmelt-first.melt:2929:/ clear"); + MELT_LOCATION("warmelt-first.melt:2936:/ clear"); /*clear*/ /*_.LET___V11*/ meltfptr[9] = 0 ;} ; } ; - MELT_LOCATION("warmelt-first.melt:2928:/ quasiblock"); + MELT_LOCATION("warmelt-first.melt:2935:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.IFELSE___V9*/ meltfptr[8];; - MELT_LOCATION("warmelt-first.melt:2928:/ finalreturn"); + MELT_LOCATION("warmelt-first.melt:2935:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*epilog*/ @@ -6075,7 +6075,7 @@ melt_trace_start("MAPOBJECT_SORTED_ATTRIBUTE_TUPLE", meltcallcount); /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-first.melt:3010:/ getarg"); + MELT_LOCATION("warmelt-first.melt:3017:/ getarg"); /*_.MAPO__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; ; goto lab_endgetargs; @@ -6084,7 +6084,7 @@ lab_endgetargs:; /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-first.melt:3013:/ quasiblock"); + MELT_LOCATION("warmelt-first.melt:3020:/ quasiblock"); /*_#MAPCOUNT__L1*/ meltfnum[0] = @@ -6109,7 +6109,7 @@ lab_endgetargs:; /*_.TUPL__V8*/ meltfptr[7] = (meltgc_new_multiple((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ meltfrout->tabval[1])), (/*_#MAPCOUNT__L1*/ meltfnum[0])));; - MELT_LOCATION("warmelt-first.melt:3024:/ quasiblock"); + MELT_LOCATION("warmelt-first.melt:3031:/ quasiblock"); /*^newclosure*/ @@ -6129,7 +6129,7 @@ lab_endgetargs:; ((meltclosure_ptr_t)/*_.LAMBDA___V10*/ meltfptr[9])->tabval[1] = (melt_ptr_t)(/*_.TUPL__V8*/ meltfptr[7]); ; /*_.LAMBDA___V9*/ meltfptr[8] = /*_.LAMBDA___V10*/ meltfptr[9];; - MELT_LOCATION("warmelt-first.melt:3022:/ apply"); + MELT_LOCATION("warmelt-first.melt:3029:/ apply"); /*apply*/{ union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); @@ -6138,10 +6138,10 @@ lab_endgetargs:; /*_.MAPOBJECT_EVERY__V11*/ meltfptr[10] = melt_apply ((meltclosure_ptr_t)((/*!MAPOBJECT_EVERY*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.MAPO__V2*/ meltfptr[1]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - MELT_LOCATION("warmelt-first.melt:3033:/ quasiblock"); + MELT_LOCATION("warmelt-first.melt:3040:/ quasiblock"); - MELT_LOCATION("warmelt-first.melt:3036:/ quasiblock"); + MELT_LOCATION("warmelt-first.melt:3043:/ quasiblock"); /*^newclosure*/ @@ -6171,7 +6171,7 @@ lab_endgetargs:; /*_.SORTUPL__V15*/ meltfptr[14] = meltgc_sort_multiple((melt_ptr_t)(/*_.TUPL__V8*/ meltfptr[7]), (melt_ptr_t)(/*_.LAMBDA___V13*/ meltfptr[12]), (melt_ptr_t)((/*!DISCR_MULTIPLE*/ meltfrout->tabval[1])));; - MELT_LOCATION("warmelt-first.melt:3049:/ quasiblock"); + MELT_LOCATION("warmelt-first.melt:3056:/ quasiblock"); /*^newclosure*/ @@ -6179,7 +6179,7 @@ lab_endgetargs:; meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_8*/ meltfrout->tabval[8])), (0)); ; /*_.LAMBDA___V16*/ meltfptr[15] = /*_.LAMBDA___V17*/ meltfptr[16];; - MELT_LOCATION("warmelt-first.melt:3049:/ apply"); + MELT_LOCATION("warmelt-first.melt:3056:/ apply"); /*apply*/{ union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); @@ -6190,7 +6190,7 @@ lab_endgetargs:; ; /*_.LET___V12*/ meltfptr[11] = /*_.MULTIPLE_MAP__V18*/ meltfptr[17];; - MELT_LOCATION("warmelt-first.melt:3033:/ clear"); + MELT_LOCATION("warmelt-first.melt:3040:/ clear"); /*clear*/ /*_.LAMBDA___V13*/ meltfptr[12] = 0 ; /*^clear*/ /*clear*/ /*_.SORTUPL__V15*/ meltfptr[14] = 0 ; @@ -6200,7 +6200,7 @@ lab_endgetargs:; /*clear*/ /*_.MULTIPLE_MAP__V18*/ meltfptr[17] = 0 ; /*_.LET___V3*/ meltfptr[2] = /*_.LET___V12*/ meltfptr[11];; - MELT_LOCATION("warmelt-first.melt:3013:/ clear"); + MELT_LOCATION("warmelt-first.melt:3020:/ clear"); /*clear*/ /*_#MAPCOUNT__L1*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.COUNTBOX__V4*/ meltfptr[3] = 0 ; @@ -6218,11 +6218,11 @@ lab_endgetargs:; /*clear*/ /*_.MAPOBJECT_EVERY__V11*/ meltfptr[10] = 0 ; /*^clear*/ /*clear*/ /*_.LET___V12*/ meltfptr[11] = 0 ; - MELT_LOCATION("warmelt-first.melt:3010:/ quasiblock"); + MELT_LOCATION("warmelt-first.melt:3017:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V3*/ meltfptr[2];; - MELT_LOCATION("warmelt-first.melt:3010:/ finalreturn"); + MELT_LOCATION("warmelt-first.melt:3017:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*epilog*/ @@ -6292,7 +6292,7 @@ melt_trace_start("LAMBDA_", meltcallcount); /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-first.melt:3024:/ getarg"); + MELT_LOCATION("warmelt-first.melt:3031:/ getarg"); /*_.AT__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; /*getarg#1*/ @@ -6308,7 +6308,7 @@ lab_endgetargs:; /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-first.melt:3025:/ quasiblock"); + MELT_LOCATION("warmelt-first.melt:3032:/ quasiblock"); /*_#CURCOUNT__L1*/ meltfnum[0] = @@ -6317,7 +6317,7 @@ lab_endgetargs:; /*_.MAKE_INTEGERBOX__V4*/ meltfptr[3] = (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ meltfrout->tabval[0])), (/*_#CURCOUNT__L1*/ meltfnum[0])));; - MELT_LOCATION("warmelt-first.melt:3026:/ blockmultialloc"); + MELT_LOCATION("warmelt-first.melt:3033:/ blockmultialloc"); /*multiallocblock*/{ struct meltletrec_1_st { struct MELT_MULTIPLE_STRUCT(3) rtup_0__TUPLREC__x1; long meltletrec_1_endgap; } *meltletrec_1_ptr = 0; @@ -6353,25 +6353,25 @@ lab_endgetargs:; /*_.ENT__V5*/ meltfptr[4] = /*_.TUPLREC___V6*/ meltfptr[5];; /*epilog*/ - MELT_LOCATION("warmelt-first.melt:3026:/ clear"); + MELT_LOCATION("warmelt-first.melt:3033:/ clear"); /*clear*/ /*_.TUPLREC___V6*/ meltfptr[5] = 0 ; /*^clear*/ /*clear*/ /*_.TUPLREC___V6*/ meltfptr[5] = 0 ;} /*end multiallocblock*/ ; { - MELT_LOCATION("warmelt-first.melt:3029:/ locexp"); + MELT_LOCATION("warmelt-first.melt:3036:/ locexp"); meltgc_multiple_put_nth((melt_ptr_t)((/*~TUPL*/ meltfclos->tabval[1])), (/*_#CURCOUNT__L1*/ meltfnum[0]), (melt_ptr_t)(/*_.ENT__V5*/ meltfptr[4]));} ; /*_#I__L2*/ meltfnum[1] = ((/*_#CURCOUNT__L1*/ meltfnum[0]) + (1));; { - MELT_LOCATION("warmelt-first.melt:3030:/ locexp"); + MELT_LOCATION("warmelt-first.melt:3037:/ locexp"); melt_put_int((melt_ptr_t)((/*~COUNTBOX*/ meltfclos->tabval[0])), (/*_#I__L2*/ meltfnum[1]));} ; - MELT_LOCATION("warmelt-first.melt:3025:/ clear"); + MELT_LOCATION("warmelt-first.melt:3032:/ clear"); /*clear*/ /*_#CURCOUNT__L1*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.MAKE_INTEGERBOX__V4*/ meltfptr[3] = 0 ; @@ -6444,7 +6444,7 @@ melt_trace_start("LAMBDA_", meltcallcount); /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-first.melt:3036:/ getarg"); + MELT_LOCATION("warmelt-first.melt:3043:/ getarg"); /*_.E1__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; /*getarg#1*/ @@ -6460,7 +6460,7 @@ lab_endgetargs:; /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-first.melt:3037:/ quasiblock"); + MELT_LOCATION("warmelt-first.melt:3044:/ quasiblock"); /*_.E1AT__V5*/ meltfptr[4] = @@ -6485,7 +6485,7 @@ lab_endgetargs:; /*_.E2RK__V10*/ meltfptr[9] = (melt_multiple_nth((melt_ptr_t)(/*_.E2__V3*/ meltfptr[2]), (2)));; - MELT_LOCATION("warmelt-first.melt:3044:/ apply"); + MELT_LOCATION("warmelt-first.melt:3051:/ apply"); /*apply*/{ union meltparam_un argtab[6]; memset(&argtab, 0, sizeof(argtab)); @@ -6506,7 +6506,7 @@ lab_endgetargs:; ; /*_.LET___V4*/ meltfptr[3] = /*_.COMPARE_OBJ_RANKED__V11*/ meltfptr[10];; - MELT_LOCATION("warmelt-first.melt:3037:/ clear"); + MELT_LOCATION("warmelt-first.melt:3044:/ clear"); /*clear*/ /*_.E1AT__V5*/ meltfptr[4] = 0 ; /*^clear*/ /*clear*/ /*_.E1VA__V6*/ meltfptr[5] = 0 ; @@ -6520,11 +6520,11 @@ lab_endgetargs:; /*clear*/ /*_.E2RK__V10*/ meltfptr[9] = 0 ; /*^clear*/ /*clear*/ /*_.COMPARE_OBJ_RANKED__V11*/ meltfptr[10] = 0 ; - MELT_LOCATION("warmelt-first.melt:3036:/ quasiblock"); + MELT_LOCATION("warmelt-first.melt:3043:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V4*/ meltfptr[3];; - MELT_LOCATION("warmelt-first.melt:3036:/ finalreturn"); + MELT_LOCATION("warmelt-first.melt:3043:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*epilog*/ @@ -6594,7 +6594,7 @@ melt_trace_start("LAMBDA_", meltcallcount); /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-first.melt:3049:/ getarg"); + MELT_LOCATION("warmelt-first.melt:3056:/ getarg"); /*_.EL__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; ; goto lab_endgetargs; @@ -6605,11 +6605,11 @@ lab_endgetargs:; /*_.MULTIPLE_NTH__V3*/ meltfptr[2] = (melt_multiple_nth((melt_ptr_t)(/*_.EL__V2*/ meltfptr[1]), (0)));; - MELT_LOCATION("warmelt-first.melt:3049:/ quasiblock"); + MELT_LOCATION("warmelt-first.melt:3056:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.MULTIPLE_NTH__V3*/ meltfptr[2];; - MELT_LOCATION("warmelt-first.melt:3049:/ finalreturn"); + MELT_LOCATION("warmelt-first.melt:3056:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*epilog*/ @@ -6679,7 +6679,7 @@ melt_trace_start("FRESH_ENV", meltcallcount); /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-first.melt:3063:/ getarg"); + MELT_LOCATION("warmelt-first.melt:3070:/ getarg"); /*_.PARENV__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; /*getarg#1*/ @@ -6697,11 +6697,11 @@ lab_endgetargs:; /*_#NULL__L1*/ meltfnum[0] = ((/*_.PARENV__V2*/ meltfptr[1]) == NULL);; - MELT_LOCATION("warmelt-first.melt:3067:/ cond"); + MELT_LOCATION("warmelt-first.melt:3074:/ cond"); /*cond*/ if (/*_#NULL__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_#OR___L2*/ meltfnum[1] = /*_#NULL__L1*/ meltfnum[0];; - } else {MELT_LOCATION("warmelt-first.melt:3067:/ cond.else"); + } else {MELT_LOCATION("warmelt-first.melt:3074:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -6713,7 +6713,7 @@ lab_endgetargs:; /*_#OR___L2*/ meltfnum[1] = /*_#IS_A__L3*/ meltfnum[2];; /*epilog*/ - MELT_LOCATION("warmelt-first.melt:3067:/ clear"); + MELT_LOCATION("warmelt-first.melt:3074:/ clear"); /*clear*/ /*_#IS_A__L3*/ meltfnum[2] = 0 ;} ; } @@ -6724,7 +6724,7 @@ lab_endgetargs:; /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-first.melt:3068:/ cond"); + MELT_LOCATION("warmelt-first.melt:3075:/ cond"); /*cond*/ if (/*_.DESCR__V3*/ meltfptr[2]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -6732,7 +6732,7 @@ lab_endgetargs:; /*_.MAKE_MAPOBJECT__V6*/ meltfptr[5] = (meltgc_new_mapobjects( (meltobject_ptr_t) ((/*!DISCR_MAP_OBJECTS*/ meltfrout->tabval[2])), (26)));; - MELT_LOCATION("warmelt-first.melt:3069:/ quasiblock"); + MELT_LOCATION("warmelt-first.melt:3076:/ quasiblock"); /*^rawallocobj*/ @@ -6761,7 +6761,7 @@ lab_endgetargs:; /*_.IFELSE___V5*/ meltfptr[4] = /*_.INST___V7*/ meltfptr[6];; /*epilog*/ - MELT_LOCATION("warmelt-first.melt:3068:/ clear"); + MELT_LOCATION("warmelt-first.melt:3075:/ clear"); /*clear*/ /*_.MAKE_MAPOBJECT__V6*/ meltfptr[5] = 0 ; /*^clear*/ /*clear*/ /*_.INST___V7*/ meltfptr[6] = 0 ;} @@ -6773,7 +6773,7 @@ lab_endgetargs:; /*_.MAKE_MAPOBJECT__V9*/ meltfptr[5] = (meltgc_new_mapobjects( (meltobject_ptr_t) ((/*!DISCR_MAP_OBJECTS*/ meltfrout->tabval[2])), (6)));; - MELT_LOCATION("warmelt-first.melt:3073:/ quasiblock"); + MELT_LOCATION("warmelt-first.melt:3080:/ quasiblock"); /*^rawallocobj*/ @@ -6797,7 +6797,7 @@ lab_endgetargs:; /*_.IFELSE___V5*/ meltfptr[4] = /*_.INST___V10*/ meltfptr[6];; /*epilog*/ - MELT_LOCATION("warmelt-first.melt:3068:/ clear"); + MELT_LOCATION("warmelt-first.melt:3075:/ clear"); /*clear*/ /*_.MAKE_MAPOBJECT__V9*/ meltfptr[5] = 0 ; /*^clear*/ /*clear*/ /*_.INST___V10*/ meltfptr[6] = 0 ;} @@ -6807,7 +6807,7 @@ lab_endgetargs:; /*_.IF___V4*/ meltfptr[3] = /*_.IFELSE___V5*/ meltfptr[4];; /*epilog*/ - MELT_LOCATION("warmelt-first.melt:3067:/ clear"); + MELT_LOCATION("warmelt-first.melt:3074:/ clear"); /*clear*/ /*_.IFELSE___V5*/ meltfptr[4] = 0 ;} ; } else {/*^cond.else*/ @@ -6815,11 +6815,11 @@ lab_endgetargs:; /*_.IF___V4*/ meltfptr[3] = NULL;; } ; - MELT_LOCATION("warmelt-first.melt:3063:/ quasiblock"); + MELT_LOCATION("warmelt-first.melt:3070:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.IF___V4*/ meltfptr[3];; - MELT_LOCATION("warmelt-first.melt:3063:/ finalreturn"); + MELT_LOCATION("warmelt-first.melt:3070:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*epilog*/ @@ -6893,7 +6893,7 @@ melt_trace_start("FIND_ENV", meltcallcount); /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-first.melt:3085:/ getarg"); + MELT_LOCATION("warmelt-first.melt:3092:/ getarg"); /*_.ENV__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; /*getarg#1*/ @@ -6911,17 +6911,17 @@ lab_endgetargs:; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-first.melt:3087:/ cppif.then"); + MELT_LOCATION("warmelt-first.melt:3094:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L1*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.ENV__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ meltfrout->tabval[0])));; - MELT_LOCATION("warmelt-first.melt:3087:/ cond"); + MELT_LOCATION("warmelt-first.melt:3094:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V5*/ meltfptr[4] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-first.melt:3087:/ cond.else"); + } else {MELT_LOCATION("warmelt-first.melt:3094:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -6932,7 +6932,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check arg env"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__, - (3087)?(3087):__LINE__, __FUNCTION__); + (3094)?(3094):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V5*/ meltfptr[4] = 0 ; @@ -6946,7 +6946,7 @@ lab_endgetargs:; /*_.IFCPP___V4*/ meltfptr[3] = /*_.IFELSE___V5*/ meltfptr[4];; /*epilog*/ - MELT_LOCATION("warmelt-first.melt:3087:/ clear"); + MELT_LOCATION("warmelt-first.melt:3094:/ clear"); /*clear*/ /*_#IS_A__L1*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V5*/ meltfptr[4] = 0 ;} @@ -6958,17 +6958,17 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-first.melt:3088:/ cppif.then"); + MELT_LOCATION("warmelt-first.melt:3095:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_OBJECT__L2*/ meltfnum[0] = (melt_magic_discr((melt_ptr_t)(/*_.BINDER__V3*/ meltfptr[2])) == OBMAG_OBJECT);; - MELT_LOCATION("warmelt-first.melt:3088:/ cond"); + MELT_LOCATION("warmelt-first.melt:3095:/ cond"); /*cond*/ if (/*_#IS_OBJECT__L2*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V7*/ meltfptr[6] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-first.melt:3088:/ cond.else"); + } else {MELT_LOCATION("warmelt-first.melt:3095:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -6979,7 +6979,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check arg binder"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__, - (3088)?(3088):__LINE__, __FUNCTION__); + (3095)?(3095):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V7*/ meltfptr[6] = 0 ; @@ -6993,7 +6993,7 @@ lab_endgetargs:; /*_.IFCPP___V6*/ meltfptr[4] = /*_.IFELSE___V7*/ meltfptr[6];; /*epilog*/ - MELT_LOCATION("warmelt-first.melt:3088:/ clear"); + MELT_LOCATION("warmelt-first.melt:3095:/ clear"); /*clear*/ /*_#IS_OBJECT__L2*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V7*/ meltfptr[6] = 0 ;} @@ -7003,7 +7003,7 @@ lab_endgetargs:; /*_.IFCPP___V6*/ meltfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-first.melt:3089:/ loop"); + MELT_LOCATION("warmelt-first.melt:3096:/ loop"); /*loop*/{ labloop_FINDLOOP_1:;/*^loopbody*/ /*^block*/ @@ -7011,13 +7011,13 @@ lab_endgetargs:; /*_#NULL__L3*/ meltfnum[0] = ((/*_.ENV__V2*/ meltfptr[1]) == NULL);; - MELT_LOCATION("warmelt-first.melt:3091:/ cond"); + MELT_LOCATION("warmelt-first.melt:3098:/ cond"); /*cond*/ if (/*_#NULL__L3*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-first.melt:3092:/ quasiblock"); + MELT_LOCATION("warmelt-first.melt:3099:/ quasiblock"); /*^compute*/ @@ -7034,17 +7034,17 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-first.melt:3093:/ cppif.then"); + MELT_LOCATION("warmelt-first.melt:3100:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_OBJECT__L4*/ meltfnum[3] = (melt_magic_discr((melt_ptr_t)(/*_.ENV__V2*/ meltfptr[1])) == OBMAG_OBJECT);; - MELT_LOCATION("warmelt-first.melt:3093:/ cond"); + MELT_LOCATION("warmelt-first.melt:3100:/ cond"); /*cond*/ if (/*_#IS_OBJECT__L4*/ meltfnum[3]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V11*/ meltfptr[10] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-first.melt:3093:/ cond.else"); + } else {MELT_LOCATION("warmelt-first.melt:3100:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -7055,7 +7055,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check env obj"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__, - (3093)?(3093):__LINE__, __FUNCTION__); + (3100)?(3100):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V11*/ meltfptr[10] = 0 ; @@ -7069,7 +7069,7 @@ lab_endgetargs:; /*_.IFCPP___V10*/ meltfptr[9] = /*_.IFELSE___V11*/ meltfptr[10];; /*epilog*/ - MELT_LOCATION("warmelt-first.melt:3093:/ clear"); + MELT_LOCATION("warmelt-first.melt:3100:/ clear"); /*clear*/ /*_#IS_OBJECT__L4*/ meltfnum[3] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V11*/ meltfptr[10] = 0 ;} @@ -7081,17 +7081,17 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-first.melt:3094:/ cppif.then"); + MELT_LOCATION("warmelt-first.melt:3101:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L5*/ meltfnum[3] = melt_is_instance_of((melt_ptr_t)(/*_.ENV__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ meltfrout->tabval[0])));; - MELT_LOCATION("warmelt-first.melt:3094:/ cond"); + MELT_LOCATION("warmelt-first.melt:3101:/ cond"); /*cond*/ if (/*_#IS_A__L5*/ meltfnum[3]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V13*/ meltfptr[12] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-first.melt:3094:/ cond.else"); + } else {MELT_LOCATION("warmelt-first.melt:3101:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -7102,7 +7102,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check good env"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__, - (3094)?(3094):__LINE__, __FUNCTION__); + (3101)?(3101):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V13*/ meltfptr[12] = 0 ; @@ -7116,7 +7116,7 @@ lab_endgetargs:; /*_.IFCPP___V12*/ meltfptr[10] = /*_.IFELSE___V13*/ meltfptr[12];; /*epilog*/ - MELT_LOCATION("warmelt-first.melt:3094:/ clear"); + MELT_LOCATION("warmelt-first.melt:3101:/ clear"); /*clear*/ /*_#IS_A__L5*/ meltfnum[3] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V13*/ meltfptr[12] = 0 ;} @@ -7126,26 +7126,26 @@ lab_endgetargs:; /*_.IFCPP___V12*/ meltfptr[10] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-first.melt:3095:/ quasiblock"); + MELT_LOCATION("warmelt-first.melt:3102:/ quasiblock"); - MELT_LOCATION("warmelt-first.melt:3096:/ getslot"); + MELT_LOCATION("warmelt-first.melt:3103:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.ENV__V2*/ meltfptr[1]), 0, "ENV_BIND");/*_.BINDMAP__V14*/ meltfptr[12] = slot; }; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-first.melt:3097:/ cppif.then"); + MELT_LOCATION("warmelt-first.melt:3104:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_MAPOBJECT__L6*/ meltfnum[3] = (melt_magic_discr((melt_ptr_t)(/*_.BINDMAP__V14*/ meltfptr[12])) == OBMAG_MAPOBJECTS);; - MELT_LOCATION("warmelt-first.melt:3097:/ cond"); + MELT_LOCATION("warmelt-first.melt:3104:/ cond"); /*cond*/ if (/*_#IS_MAPOBJECT__L6*/ meltfnum[3]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V16*/ meltfptr[15] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-first.melt:3097:/ cond.else"); + } else {MELT_LOCATION("warmelt-first.melt:3104:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -7156,7 +7156,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check bindmap"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__, - (3097)?(3097):__LINE__, __FUNCTION__); + (3104)?(3104):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V16*/ meltfptr[15] = 0 ; @@ -7170,7 +7170,7 @@ lab_endgetargs:; /*_.IFCPP___V15*/ meltfptr[14] = /*_.IFELSE___V16*/ meltfptr[15];; /*epilog*/ - MELT_LOCATION("warmelt-first.melt:3097:/ clear"); + MELT_LOCATION("warmelt-first.melt:3104:/ clear"); /*clear*/ /*_#IS_MAPOBJECT__L6*/ meltfnum[3] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V16*/ meltfptr[15] = 0 ;} @@ -7180,18 +7180,18 @@ lab_endgetargs:; /*_.IFCPP___V15*/ meltfptr[14] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-first.melt:3098:/ quasiblock"); + MELT_LOCATION("warmelt-first.melt:3105:/ quasiblock"); /*_.BND__V17*/ meltfptr[15] = melt_get_mapobjects((meltmapobjects_ptr_t)(/*_.BINDMAP__V14*/ meltfptr[12]), (meltobject_ptr_t)(/*_.BINDER__V3*/ meltfptr[2]));; - MELT_LOCATION("warmelt-first.melt:3100:/ cond"); + MELT_LOCATION("warmelt-first.melt:3107:/ cond"); /*cond*/ if (/*_.BND__V17*/ meltfptr[15]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-first.melt:3101:/ quasiblock"); + MELT_LOCATION("warmelt-first.melt:3108:/ quasiblock"); /*^compute*/ @@ -7207,14 +7207,14 @@ lab_endgetargs:; } /*noelse*/ ; - MELT_LOCATION("warmelt-first.melt:3098:/ clear"); + MELT_LOCATION("warmelt-first.melt:3105:/ clear"); /*clear*/ /*_.BND__V17*/ meltfptr[15] = 0 ; - MELT_LOCATION("warmelt-first.melt:3095:/ clear"); + MELT_LOCATION("warmelt-first.melt:3102:/ clear"); /*clear*/ /*_.BINDMAP__V14*/ meltfptr[12] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V15*/ meltfptr[14] = 0 ; - MELT_LOCATION("warmelt-first.melt:3103:/ getslot"); + MELT_LOCATION("warmelt-first.melt:3110:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.ENV__V2*/ meltfptr[1]), 1, "ENV_PREV");/*_.ENV_PREV__V18*/ meltfptr[15] = slot; }; ; @@ -7222,7 +7222,7 @@ lab_endgetargs:; /*_.ENV__V2*/ meltfptr[1] = /*_.SETQ___V19*/ meltfptr[12] = /*_.ENV_PREV__V18*/ meltfptr[15];; /*epilog*/ - MELT_LOCATION("warmelt-first.melt:3089:/ clear"); + MELT_LOCATION("warmelt-first.melt:3096:/ clear"); /*clear*/ /*_#NULL__L3*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V10*/ meltfptr[9] = 0 ; @@ -7240,11 +7240,11 @@ lab_endgetargs:; /*_.FOREVER___V8*/ meltfptr[6] = /*_.FINDLOOP__V9*/ meltfptr[8];; } ; - MELT_LOCATION("warmelt-first.melt:3085:/ quasiblock"); + MELT_LOCATION("warmelt-first.melt:3092:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.FOREVER___V8*/ meltfptr[6];; - MELT_LOCATION("warmelt-first.melt:3085:/ finalreturn"); + MELT_LOCATION("warmelt-first.melt:3092:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*epilog*/ @@ -7318,7 +7318,7 @@ melt_trace_start("FIND_ENV_DEBUG", meltcallcount); /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-first.melt:3108:/ getarg"); + MELT_LOCATION("warmelt-first.melt:3115:/ getarg"); /*_.ENV__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; /*getarg#1*/ @@ -7336,17 +7336,17 @@ lab_endgetargs:; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-first.melt:3109:/ cppif.then"); + MELT_LOCATION("warmelt-first.melt:3116:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L1*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.ENV__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ meltfrout->tabval[0])));; - MELT_LOCATION("warmelt-first.melt:3109:/ cond"); + MELT_LOCATION("warmelt-first.melt:3116:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V5*/ meltfptr[4] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-first.melt:3109:/ cond.else"); + } else {MELT_LOCATION("warmelt-first.melt:3116:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -7357,7 +7357,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check arg env"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__, - (3109)?(3109):__LINE__, __FUNCTION__); + (3116)?(3116):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V5*/ meltfptr[4] = 0 ; @@ -7371,7 +7371,7 @@ lab_endgetargs:; /*_.IFCPP___V4*/ meltfptr[3] = /*_.IFELSE___V5*/ meltfptr[4];; /*epilog*/ - MELT_LOCATION("warmelt-first.melt:3109:/ clear"); + MELT_LOCATION("warmelt-first.melt:3116:/ clear"); /*clear*/ /*_#IS_A__L1*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V5*/ meltfptr[4] = 0 ;} @@ -7383,17 +7383,17 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-first.melt:3110:/ cppif.then"); + MELT_LOCATION("warmelt-first.melt:3117:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_OBJECT__L2*/ meltfnum[0] = (melt_magic_discr((melt_ptr_t)(/*_.BINDER__V3*/ meltfptr[2])) == OBMAG_OBJECT);; - MELT_LOCATION("warmelt-first.melt:3110:/ cond"); + MELT_LOCATION("warmelt-first.melt:3117:/ cond"); /*cond*/ if (/*_#IS_OBJECT__L2*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V7*/ meltfptr[6] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-first.melt:3110:/ cond.else"); + } else {MELT_LOCATION("warmelt-first.melt:3117:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -7404,7 +7404,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check arg binder"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__, - (3110)?(3110):__LINE__, __FUNCTION__); + (3117)?(3117):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V7*/ meltfptr[6] = 0 ; @@ -7418,7 +7418,7 @@ lab_endgetargs:; /*_.IFCPP___V6*/ meltfptr[4] = /*_.IFELSE___V7*/ meltfptr[6];; /*epilog*/ - MELT_LOCATION("warmelt-first.melt:3110:/ clear"); + MELT_LOCATION("warmelt-first.melt:3117:/ clear"); /*clear*/ /*_#IS_OBJECT__L2*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V7*/ meltfptr[6] = 0 ;} @@ -7430,13 +7430,13 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-first.melt:3111:/ cppif.then"); + MELT_LOCATION("warmelt-first.melt:3118:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L3*/ meltfnum[0] = meltcallcount;; - MELT_LOCATION("warmelt-first.melt:3111:/ apply"); + MELT_LOCATION("warmelt-first.melt:3118:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -7447,14 +7447,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].bp_cstring = "warmelt-first.melt"; /*^apply.arg*/ - argtab[3].bp_long = 3111; + argtab[3].bp_long = 3118; /*_.DEBUG_MSG_FUN__V9*/ meltfptr[8] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.ENV__V2*/ meltfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V8*/ meltfptr[6] = /*_.DEBUG_MSG_FUN__V9*/ meltfptr[8];; /*epilog*/ - MELT_LOCATION("warmelt-first.melt:3111:/ clear"); + MELT_LOCATION("warmelt-first.melt:3118:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L3*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V9*/ meltfptr[8] = 0 ;} @@ -7466,13 +7466,13 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-first.melt:3112:/ cppif.then"); + MELT_LOCATION("warmelt-first.melt:3119:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L4*/ meltfnum[0] = meltcallcount;; - MELT_LOCATION("warmelt-first.melt:3112:/ apply"); + MELT_LOCATION("warmelt-first.melt:3119:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -7483,14 +7483,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].bp_cstring = "warmelt-first.melt"; /*^apply.arg*/ - argtab[3].bp_long = 3112; + argtab[3].bp_long = 3119; /*_.DEBUG_MSG_FUN__V11*/ meltfptr[10] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.BINDER__V3*/ meltfptr[2]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V10*/ meltfptr[8] = /*_.DEBUG_MSG_FUN__V11*/ meltfptr[10];; /*epilog*/ - MELT_LOCATION("warmelt-first.melt:3112:/ clear"); + MELT_LOCATION("warmelt-first.melt:3119:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L4*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V11*/ meltfptr[10] = 0 ;} @@ -7500,7 +7500,7 @@ lab_endgetargs:; /*_.IFCPP___V10*/ meltfptr[8] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-first.melt:3113:/ loop"); + MELT_LOCATION("warmelt-first.melt:3120:/ loop"); /*loop*/{ labloop_FINDLOOP_2:;/*^loopbody*/ /*^block*/ @@ -7508,13 +7508,13 @@ lab_endgetargs:; /*_#NULL__L5*/ meltfnum[0] = ((/*_.ENV__V2*/ meltfptr[1]) == NULL);; - MELT_LOCATION("warmelt-first.melt:3115:/ cond"); + MELT_LOCATION("warmelt-first.melt:3122:/ cond"); /*cond*/ if (/*_#NULL__L5*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-first.melt:3116:/ quasiblock"); + MELT_LOCATION("warmelt-first.melt:3123:/ quasiblock"); /*^compute*/ @@ -7531,13 +7531,13 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-first.melt:3117:/ cppif.then"); + MELT_LOCATION("warmelt-first.melt:3124:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L6*/ meltfnum[5] = meltcallcount;; - MELT_LOCATION("warmelt-first.melt:3117:/ apply"); + MELT_LOCATION("warmelt-first.melt:3124:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -7548,14 +7548,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].bp_cstring = "warmelt-first.melt"; /*^apply.arg*/ - argtab[3].bp_long = 3117; + argtab[3].bp_long = 3124; /*_.DEBUG_MSG_FUN__V15*/ meltfptr[14] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.ENV__V2*/ meltfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V14*/ meltfptr[13] = /*_.DEBUG_MSG_FUN__V15*/ meltfptr[14];; /*epilog*/ - MELT_LOCATION("warmelt-first.melt:3117:/ clear"); + MELT_LOCATION("warmelt-first.melt:3124:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L6*/ meltfnum[5] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V15*/ meltfptr[14] = 0 ;} @@ -7567,17 +7567,17 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-first.melt:3118:/ cppif.then"); + MELT_LOCATION("warmelt-first.melt:3125:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_OBJECT__L7*/ meltfnum[5] = (melt_magic_discr((melt_ptr_t)(/*_.ENV__V2*/ meltfptr[1])) == OBMAG_OBJECT);; - MELT_LOCATION("warmelt-first.melt:3118:/ cond"); + MELT_LOCATION("warmelt-first.melt:3125:/ cond"); /*cond*/ if (/*_#IS_OBJECT__L7*/ meltfnum[5]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V17*/ meltfptr[16] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-first.melt:3118:/ cond.else"); + } else {MELT_LOCATION("warmelt-first.melt:3125:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -7588,7 +7588,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check env obj"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__, - (3118)?(3118):__LINE__, __FUNCTION__); + (3125)?(3125):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V17*/ meltfptr[16] = 0 ; @@ -7602,7 +7602,7 @@ lab_endgetargs:; /*_.IFCPP___V16*/ meltfptr[14] = /*_.IFELSE___V17*/ meltfptr[16];; /*epilog*/ - MELT_LOCATION("warmelt-first.melt:3118:/ clear"); + MELT_LOCATION("warmelt-first.melt:3125:/ clear"); /*clear*/ /*_#IS_OBJECT__L7*/ meltfnum[5] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V17*/ meltfptr[16] = 0 ;} @@ -7614,17 +7614,17 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-first.melt:3119:/ cppif.then"); + MELT_LOCATION("warmelt-first.melt:3126:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L8*/ meltfnum[5] = melt_is_instance_of((melt_ptr_t)(/*_.ENV__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ meltfrout->tabval[0])));; - MELT_LOCATION("warmelt-first.melt:3119:/ cond"); + MELT_LOCATION("warmelt-first.melt:3126:/ cond"); /*cond*/ if (/*_#IS_A__L8*/ meltfnum[5]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V19*/ meltfptr[18] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-first.melt:3119:/ cond.else"); + } else {MELT_LOCATION("warmelt-first.melt:3126:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -7635,7 +7635,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check good env"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__, - (3119)?(3119):__LINE__, __FUNCTION__); + (3126)?(3126):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V19*/ meltfptr[18] = 0 ; @@ -7649,7 +7649,7 @@ lab_endgetargs:; /*_.IFCPP___V18*/ meltfptr[16] = /*_.IFELSE___V19*/ meltfptr[18];; /*epilog*/ - MELT_LOCATION("warmelt-first.melt:3119:/ clear"); + MELT_LOCATION("warmelt-first.melt:3126:/ clear"); /*clear*/ /*_#IS_A__L8*/ meltfnum[5] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V19*/ meltfptr[18] = 0 ;} @@ -7659,26 +7659,26 @@ lab_endgetargs:; /*_.IFCPP___V18*/ meltfptr[16] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-first.melt:3120:/ quasiblock"); + MELT_LOCATION("warmelt-first.melt:3127:/ quasiblock"); - MELT_LOCATION("warmelt-first.melt:3121:/ getslot"); + MELT_LOCATION("warmelt-first.melt:3128:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.ENV__V2*/ meltfptr[1]), 0, "ENV_BIND");/*_.BINDMAP__V20*/ meltfptr[18] = slot; }; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-first.melt:3122:/ cppif.then"); + MELT_LOCATION("warmelt-first.melt:3129:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_MAPOBJECT__L9*/ meltfnum[5] = (melt_magic_discr((melt_ptr_t)(/*_.BINDMAP__V20*/ meltfptr[18])) == OBMAG_MAPOBJECTS);; - MELT_LOCATION("warmelt-first.melt:3122:/ cond"); + MELT_LOCATION("warmelt-first.melt:3129:/ cond"); /*cond*/ if (/*_#IS_MAPOBJECT__L9*/ meltfnum[5]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V22*/ meltfptr[21] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-first.melt:3122:/ cond.else"); + } else {MELT_LOCATION("warmelt-first.melt:3129:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -7689,7 +7689,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check bindmap"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__, - (3122)?(3122):__LINE__, __FUNCTION__); + (3129)?(3129):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V22*/ meltfptr[21] = 0 ; @@ -7703,7 +7703,7 @@ lab_endgetargs:; /*_.IFCPP___V21*/ meltfptr[20] = /*_.IFELSE___V22*/ meltfptr[21];; /*epilog*/ - MELT_LOCATION("warmelt-first.melt:3122:/ clear"); + MELT_LOCATION("warmelt-first.melt:3129:/ clear"); /*clear*/ /*_#IS_MAPOBJECT__L9*/ meltfnum[5] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V22*/ meltfptr[21] = 0 ;} @@ -7713,20 +7713,20 @@ lab_endgetargs:; /*_.IFCPP___V21*/ meltfptr[20] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-first.melt:3123:/ quasiblock"); + MELT_LOCATION("warmelt-first.melt:3130:/ quasiblock"); /*_.BND__V23*/ meltfptr[21] = melt_get_mapobjects((meltmapobjects_ptr_t)(/*_.BINDMAP__V20*/ meltfptr[18]), (meltobject_ptr_t)(/*_.BINDER__V3*/ meltfptr[2]));; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-first.melt:3125:/ cppif.then"); + MELT_LOCATION("warmelt-first.melt:3132:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L10*/ meltfnum[5] = meltcallcount;; - MELT_LOCATION("warmelt-first.melt:3125:/ apply"); + MELT_LOCATION("warmelt-first.melt:3132:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -7737,14 +7737,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].bp_cstring = "warmelt-first.melt"; /*^apply.arg*/ - argtab[3].bp_long = 3125; + argtab[3].bp_long = 3132; /*_.DEBUG_MSG_FUN__V25*/ meltfptr[24] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.BND__V23*/ meltfptr[21]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V24*/ meltfptr[23] = /*_.DEBUG_MSG_FUN__V25*/ meltfptr[24];; /*epilog*/ - MELT_LOCATION("warmelt-first.melt:3125:/ clear"); + MELT_LOCATION("warmelt-first.melt:3132:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L10*/ meltfnum[5] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V25*/ meltfptr[24] = 0 ;} @@ -7754,13 +7754,13 @@ lab_endgetargs:; /*_.IFCPP___V24*/ meltfptr[23] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-first.melt:3126:/ cond"); + MELT_LOCATION("warmelt-first.melt:3133:/ cond"); /*cond*/ if (/*_.BND__V23*/ meltfptr[21]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-first.melt:3127:/ quasiblock"); + MELT_LOCATION("warmelt-first.melt:3134:/ quasiblock"); /*^compute*/ @@ -7776,24 +7776,24 @@ lab_endgetargs:; } /*noelse*/ ; - MELT_LOCATION("warmelt-first.melt:3123:/ clear"); + MELT_LOCATION("warmelt-first.melt:3130:/ clear"); /*clear*/ /*_.BND__V23*/ meltfptr[21] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V24*/ meltfptr[23] = 0 ; - MELT_LOCATION("warmelt-first.melt:3120:/ clear"); + MELT_LOCATION("warmelt-first.melt:3127:/ clear"); /*clear*/ /*_.BINDMAP__V20*/ meltfptr[18] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V21*/ meltfptr[20] = 0 ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-first.melt:3129:/ cppif.then"); + MELT_LOCATION("warmelt-first.melt:3136:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L11*/ meltfnum[5] = meltcallcount;; - MELT_LOCATION("warmelt-first.melt:3129:/ apply"); + MELT_LOCATION("warmelt-first.melt:3136:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -7804,14 +7804,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].bp_cstring = "warmelt-first.melt"; /*^apply.arg*/ - argtab[3].bp_long = 3129; + argtab[3].bp_long = 3136; /*_.DEBUG_MSG_FUN__V27*/ meltfptr[21] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.BINDER__V3*/ meltfptr[2]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V26*/ meltfptr[24] = /*_.DEBUG_MSG_FUN__V27*/ meltfptr[21];; /*epilog*/ - MELT_LOCATION("warmelt-first.melt:3129:/ clear"); + MELT_LOCATION("warmelt-first.melt:3136:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L11*/ meltfnum[5] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V27*/ meltfptr[21] = 0 ;} @@ -7821,7 +7821,7 @@ lab_endgetargs:; /*_.IFCPP___V26*/ meltfptr[24] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-first.melt:3130:/ getslot"); + MELT_LOCATION("warmelt-first.melt:3137:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.ENV__V2*/ meltfptr[1]), 1, "ENV_PREV");/*_.ENV_PREV__V28*/ meltfptr[23] = slot; }; ; @@ -7829,7 +7829,7 @@ lab_endgetargs:; /*_.ENV__V2*/ meltfptr[1] = /*_.SETQ___V29*/ meltfptr[18] = /*_.ENV_PREV__V28*/ meltfptr[23];; /*epilog*/ - MELT_LOCATION("warmelt-first.melt:3113:/ clear"); + MELT_LOCATION("warmelt-first.melt:3120:/ clear"); /*clear*/ /*_#NULL__L5*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V14*/ meltfptr[13] = 0 ; @@ -7851,11 +7851,11 @@ lab_endgetargs:; /*_.FOREVER___V12*/ meltfptr[10] = /*_.FINDLOOP__V13*/ meltfptr[12];; } ; - MELT_LOCATION("warmelt-first.melt:3108:/ quasiblock"); + MELT_LOCATION("warmelt-first.melt:3115:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.FOREVER___V12*/ meltfptr[10];; - MELT_LOCATION("warmelt-first.melt:3108:/ finalreturn"); + MELT_LOCATION("warmelt-first.melt:3115:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*epilog*/ @@ -7933,7 +7933,7 @@ melt_trace_start("FIND_ENCLOSING_ENV", meltcallcount); /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-first.melt:3135:/ getarg"); + MELT_LOCATION("warmelt-first.melt:3142:/ getarg"); /*_.ENV__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; /*getarg#1*/ @@ -7951,17 +7951,17 @@ lab_endgetargs:; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-first.melt:3138:/ cppif.then"); + MELT_LOCATION("warmelt-first.melt:3145:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L1*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.ENV__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ meltfrout->tabval[0])));; - MELT_LOCATION("warmelt-first.melt:3138:/ cond"); + MELT_LOCATION("warmelt-first.melt:3145:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V5*/ meltfptr[4] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-first.melt:3138:/ cond.else"); + } else {MELT_LOCATION("warmelt-first.melt:3145:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -7972,7 +7972,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check env"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__, - (3138)?(3138):__LINE__, __FUNCTION__); + (3145)?(3145):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V5*/ meltfptr[4] = 0 ; @@ -7986,7 +7986,7 @@ lab_endgetargs:; /*_.IFCPP___V4*/ meltfptr[3] = /*_.IFELSE___V5*/ meltfptr[4];; /*epilog*/ - MELT_LOCATION("warmelt-first.melt:3138:/ clear"); + MELT_LOCATION("warmelt-first.melt:3145:/ clear"); /*clear*/ /*_#IS_A__L1*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V5*/ meltfptr[4] = 0 ;} @@ -7998,17 +7998,17 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-first.melt:3139:/ cppif.then"); + MELT_LOCATION("warmelt-first.melt:3146:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_OBJECT__L2*/ meltfnum[0] = (melt_magic_discr((melt_ptr_t)(/*_.BINDER__V3*/ meltfptr[2])) == OBMAG_OBJECT);; - MELT_LOCATION("warmelt-first.melt:3139:/ cond"); + MELT_LOCATION("warmelt-first.melt:3146:/ cond"); /*cond*/ if (/*_#IS_OBJECT__L2*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V7*/ meltfptr[6] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-first.melt:3139:/ cond.else"); + } else {MELT_LOCATION("warmelt-first.melt:3146:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -8019,7 +8019,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check binder"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__, - (3139)?(3139):__LINE__, __FUNCTION__); + (3146)?(3146):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V7*/ meltfptr[6] = 0 ; @@ -8033,7 +8033,7 @@ lab_endgetargs:; /*_.IFCPP___V6*/ meltfptr[4] = /*_.IFELSE___V7*/ meltfptr[6];; /*epilog*/ - MELT_LOCATION("warmelt-first.melt:3139:/ clear"); + MELT_LOCATION("warmelt-first.melt:3146:/ clear"); /*clear*/ /*_#IS_OBJECT__L2*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V7*/ meltfptr[6] = 0 ;} @@ -8043,12 +8043,12 @@ lab_endgetargs:; /*_.IFCPP___V6*/ meltfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-first.melt:3140:/ quasiblock"); + MELT_LOCATION("warmelt-first.melt:3147:/ quasiblock"); /*_.PROCLIST__V9*/ meltfptr[8] = (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ meltfrout->tabval[1]))));; - MELT_LOCATION("warmelt-first.melt:3141:/ loop"); + MELT_LOCATION("warmelt-first.melt:3148:/ loop"); /*loop*/{ labloop_FINDLOOP_3:;/*^loopbody*/ /*^block*/ @@ -8056,7 +8056,7 @@ lab_endgetargs:; /*_#IS_NOT_A__L3*/ meltfnum[0] = !melt_is_instance_of((melt_ptr_t)(/*_.ENV__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ meltfrout->tabval[0])));; - MELT_LOCATION("warmelt-first.melt:3142:/ cond"); + MELT_LOCATION("warmelt-first.melt:3149:/ cond"); /*cond*/ if (/*_#IS_NOT_A__L3*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -8077,30 +8077,30 @@ lab_endgetargs:; ; } /*noelse*/ ; - MELT_LOCATION("warmelt-first.melt:3143:/ quasiblock"); + MELT_LOCATION("warmelt-first.melt:3150:/ quasiblock"); /*^getslot*/ { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.ENV__V2*/ meltfptr[1]), 0, "ENV_BIND");/*_.BINDMAP__V13*/ meltfptr[12] = slot; }; ; - MELT_LOCATION("warmelt-first.melt:3144:/ getslot"); + MELT_LOCATION("warmelt-first.melt:3151:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.ENV__V2*/ meltfptr[1]), 2, "ENV_PROC");/*_.EPROC__V14*/ meltfptr[13] = slot; }; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-first.melt:3146:/ cppif.then"); + MELT_LOCATION("warmelt-first.melt:3153:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_MAPOBJECT__L4*/ meltfnum[3] = (melt_magic_discr((melt_ptr_t)(/*_.BINDMAP__V13*/ meltfptr[12])) == OBMAG_MAPOBJECTS);; - MELT_LOCATION("warmelt-first.melt:3146:/ cond"); + MELT_LOCATION("warmelt-first.melt:3153:/ cond"); /*cond*/ if (/*_#IS_MAPOBJECT__L4*/ meltfnum[3]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V16*/ meltfptr[15] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-first.melt:3146:/ cond.else"); + } else {MELT_LOCATION("warmelt-first.melt:3153:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -8111,7 +8111,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check bindmap"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__, - (3146)?(3146):__LINE__, __FUNCTION__); + (3153)?(3153):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V16*/ meltfptr[15] = 0 ; @@ -8125,7 +8125,7 @@ lab_endgetargs:; /*_.IFCPP___V15*/ meltfptr[14] = /*_.IFELSE___V16*/ meltfptr[15];; /*epilog*/ - MELT_LOCATION("warmelt-first.melt:3146:/ clear"); + MELT_LOCATION("warmelt-first.melt:3153:/ clear"); /*clear*/ /*_#IS_MAPOBJECT__L4*/ meltfnum[3] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V16*/ meltfptr[15] = 0 ;} @@ -8135,12 +8135,12 @@ lab_endgetargs:; /*_.IFCPP___V15*/ meltfptr[14] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-first.melt:3147:/ quasiblock"); + MELT_LOCATION("warmelt-first.melt:3154:/ quasiblock"); /*_.BND__V18*/ meltfptr[17] = melt_get_mapobjects((meltmapobjects_ptr_t)(/*_.BINDMAP__V13*/ meltfptr[12]), (meltobject_ptr_t)(/*_.BINDER__V3*/ meltfptr[2]));; - MELT_LOCATION("warmelt-first.melt:3148:/ cond"); + MELT_LOCATION("warmelt-first.melt:3155:/ cond"); /*cond*/ if (/*_.BND__V18*/ meltfptr[17]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -8150,7 +8150,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.BND__V18*/ meltfptr[17];; - MELT_LOCATION("warmelt-first.melt:3148:/ putxtraresult"); + MELT_LOCATION("warmelt-first.melt:3155:/ putxtraresult"); if (!xrestab_ || !xresdescr_) goto labend_rout; if (xresdescr_[0] != BPAR_PTR) goto labend_rout; if (xrestab_[0].bp_aptr) *(xrestab_[0].bp_aptr) = (melt_ptr_t) (/*_.PROCLIST__V9*/ meltfptr[8]); @@ -8161,7 +8161,7 @@ lab_endgetargs:; /*_.IF___V19*/ meltfptr[18] = /*_.RETURN___V20*/ meltfptr[19];; /*epilog*/ - MELT_LOCATION("warmelt-first.melt:3148:/ clear"); + MELT_LOCATION("warmelt-first.melt:3155:/ clear"); /*clear*/ /*_.RETURN___V20*/ meltfptr[19] = 0 ;} ; } else {/*^cond.else*/ @@ -8173,11 +8173,11 @@ lab_endgetargs:; /*_.LET___V17*/ meltfptr[15] = /*_.IF___V19*/ meltfptr[18];; - MELT_LOCATION("warmelt-first.melt:3147:/ clear"); + MELT_LOCATION("warmelt-first.melt:3154:/ clear"); /*clear*/ /*_.BND__V18*/ meltfptr[17] = 0 ; /*^clear*/ /*clear*/ /*_.IF___V19*/ meltfptr[18] = 0 ; - MELT_LOCATION("warmelt-first.melt:3149:/ cond"); + MELT_LOCATION("warmelt-first.melt:3156:/ cond"); /*cond*/ if (/*_.EPROC__V14*/ meltfptr[13]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -8193,7 +8193,7 @@ lab_endgetargs:; ; } /*noelse*/ ; - MELT_LOCATION("warmelt-first.melt:3150:/ getslot"); + MELT_LOCATION("warmelt-first.melt:3157:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.ENV__V2*/ meltfptr[1]), 1, "ENV_PREV");/*_.ENV_PREV__V21*/ meltfptr[19] = slot; }; ; @@ -8201,7 +8201,7 @@ lab_endgetargs:; /*_.ENV__V2*/ meltfptr[1] = /*_.SETQ___V22*/ meltfptr[17] = /*_.ENV_PREV__V21*/ meltfptr[19];; /*_.LET___V12*/ meltfptr[11] = /*_.SETQ___V22*/ meltfptr[17];; - MELT_LOCATION("warmelt-first.melt:3143:/ clear"); + MELT_LOCATION("warmelt-first.melt:3150:/ clear"); /*clear*/ /*_.BINDMAP__V13*/ meltfptr[12] = 0 ; /*^clear*/ /*clear*/ /*_.EPROC__V14*/ meltfptr[13] = 0 ; @@ -8215,7 +8215,7 @@ lab_endgetargs:; /*clear*/ /*_.SETQ___V22*/ meltfptr[17] = 0 ; /*epilog*/ - MELT_LOCATION("warmelt-first.melt:3141:/ clear"); + MELT_LOCATION("warmelt-first.melt:3148:/ clear"); /*clear*/ /*_#IS_NOT_A__L3*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.LET___V12*/ meltfptr[11] = 0 ;} @@ -8231,15 +8231,15 @@ lab_endgetargs:; /*_.LET___V8*/ meltfptr[6] = /*_.FOREVER___V10*/ meltfptr[9];; - MELT_LOCATION("warmelt-first.melt:3140:/ clear"); + MELT_LOCATION("warmelt-first.melt:3147:/ clear"); /*clear*/ /*_.PROCLIST__V9*/ meltfptr[8] = 0 ; /*^clear*/ /*clear*/ /*_.FOREVER___V10*/ meltfptr[9] = 0 ; - MELT_LOCATION("warmelt-first.melt:3135:/ quasiblock"); + MELT_LOCATION("warmelt-first.melt:3142:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V8*/ meltfptr[6];; - MELT_LOCATION("warmelt-first.melt:3135:/ finalreturn"); + MELT_LOCATION("warmelt-first.melt:3142:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*epilog*/ @@ -8313,7 +8313,7 @@ melt_trace_start("PUT_ENV", meltcallcount); /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-first.melt:3154:/ getarg"); + MELT_LOCATION("warmelt-first.melt:3161:/ getarg"); /*_.ENV__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; /*getarg#1*/ @@ -8331,17 +8331,17 @@ lab_endgetargs:; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-first.melt:3157:/ cppif.then"); + MELT_LOCATION("warmelt-first.melt:3164:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_OBJECT__L1*/ meltfnum[0] = (melt_magic_discr((melt_ptr_t)(/*_.BINDING__V3*/ meltfptr[2])) == OBMAG_OBJECT);; - MELT_LOCATION("warmelt-first.melt:3157:/ cond"); + MELT_LOCATION("warmelt-first.melt:3164:/ cond"); /*cond*/ if (/*_#IS_OBJECT__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V5*/ meltfptr[4] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-first.melt:3157:/ cond.else"); + } else {MELT_LOCATION("warmelt-first.melt:3164:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -8352,7 +8352,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check binding is obj"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__, - (3157)?(3157):__LINE__, __FUNCTION__); + (3164)?(3164):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V5*/ meltfptr[4] = 0 ; @@ -8366,7 +8366,7 @@ lab_endgetargs:; /*_.IFCPP___V4*/ meltfptr[3] = /*_.IFELSE___V5*/ meltfptr[4];; /*epilog*/ - MELT_LOCATION("warmelt-first.melt:3157:/ clear"); + MELT_LOCATION("warmelt-first.melt:3164:/ clear"); /*clear*/ /*_#IS_OBJECT__L1*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V5*/ meltfptr[4] = 0 ;} @@ -8378,17 +8378,17 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-first.melt:3158:/ cppif.then"); + MELT_LOCATION("warmelt-first.melt:3165:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_OBJECT__L2*/ meltfnum[0] = (melt_magic_discr((melt_ptr_t)(/*_.ENV__V2*/ meltfptr[1])) == OBMAG_OBJECT);; - MELT_LOCATION("warmelt-first.melt:3158:/ cond"); + MELT_LOCATION("warmelt-first.melt:3165:/ cond"); /*cond*/ if (/*_#IS_OBJECT__L2*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V7*/ meltfptr[6] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-first.melt:3158:/ cond.else"); + } else {MELT_LOCATION("warmelt-first.melt:3165:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -8399,7 +8399,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check env is obj"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__, - (3158)?(3158):__LINE__, __FUNCTION__); + (3165)?(3165):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V7*/ meltfptr[6] = 0 ; @@ -8413,7 +8413,7 @@ lab_endgetargs:; /*_.IFCPP___V6*/ meltfptr[4] = /*_.IFELSE___V7*/ meltfptr[6];; /*epilog*/ - MELT_LOCATION("warmelt-first.melt:3158:/ clear"); + MELT_LOCATION("warmelt-first.melt:3165:/ clear"); /*clear*/ /*_#IS_OBJECT__L2*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V7*/ meltfptr[6] = 0 ;} @@ -8425,17 +8425,17 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-first.melt:3159:/ cppif.then"); + MELT_LOCATION("warmelt-first.melt:3166:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L3*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.ENV__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ meltfrout->tabval[0])));; - MELT_LOCATION("warmelt-first.melt:3159:/ cond"); + MELT_LOCATION("warmelt-first.melt:3166:/ cond"); /*cond*/ if (/*_#IS_A__L3*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V9*/ meltfptr[8] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-first.melt:3159:/ cond.else"); + } else {MELT_LOCATION("warmelt-first.melt:3166:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -8446,7 +8446,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check env"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__, - (3159)?(3159):__LINE__, __FUNCTION__); + (3166)?(3166):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V9*/ meltfptr[8] = 0 ; @@ -8460,7 +8460,7 @@ lab_endgetargs:; /*_.IFCPP___V8*/ meltfptr[6] = /*_.IFELSE___V9*/ meltfptr[8];; /*epilog*/ - MELT_LOCATION("warmelt-first.melt:3159:/ clear"); + MELT_LOCATION("warmelt-first.melt:3166:/ clear"); /*clear*/ /*_#IS_A__L3*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V9*/ meltfptr[8] = 0 ;} @@ -8478,7 +8478,7 @@ lab_endgetargs:; /*_#NOT__L5*/ meltfnum[4] = (!(/*_#IS_A__L4*/ meltfnum[0]));; - MELT_LOCATION("warmelt-first.melt:3160:/ cond"); + MELT_LOCATION("warmelt-first.melt:3167:/ cond"); /*cond*/ if (/*_#NOT__L5*/ meltfnum[4]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -8486,13 +8486,13 @@ lab_endgetargs:; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-first.melt:3162:/ cppif.then"); + MELT_LOCATION("warmelt-first.melt:3169:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L6*/ meltfnum[5] = meltcallcount;; - MELT_LOCATION("warmelt-first.melt:3162:/ apply"); + MELT_LOCATION("warmelt-first.melt:3169:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -8503,14 +8503,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].bp_cstring = "warmelt-first.melt"; /*^apply.arg*/ - argtab[3].bp_long = 3162; + argtab[3].bp_long = 3169; /*_.DEBUG_MSG_FUN__V11*/ meltfptr[10] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.BINDING__V3*/ meltfptr[2]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V10*/ meltfptr[8] = /*_.DEBUG_MSG_FUN__V11*/ meltfptr[10];; /*epilog*/ - MELT_LOCATION("warmelt-first.melt:3162:/ clear"); + MELT_LOCATION("warmelt-first.melt:3169:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L6*/ meltfnum[5] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V11*/ meltfptr[10] = 0 ;} @@ -8522,7 +8522,7 @@ lab_endgetargs:; ; { - MELT_LOCATION("warmelt-first.melt:3163:/ locexp"); + MELT_LOCATION("warmelt-first.melt:3170:/ locexp"); #if ENABLE_CHECKING if (flag_melt_debug) @@ -8530,29 +8530,29 @@ lab_endgetargs:; #endif ;} ; - MELT_LOCATION("warmelt-first.melt:3161:/ quasiblock"); + MELT_LOCATION("warmelt-first.melt:3168:/ quasiblock"); /*epilog*/ - MELT_LOCATION("warmelt-first.melt:3160:/ clear"); + MELT_LOCATION("warmelt-first.melt:3167:/ clear"); /*clear*/ /*_.IFCPP___V10*/ meltfptr[8] = 0 ;} ; } /*noelse*/ ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-first.melt:3164:/ cppif.then"); + MELT_LOCATION("warmelt-first.melt:3171:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L7*/ meltfnum[5] = melt_is_instance_of((melt_ptr_t)(/*_.BINDING__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_ANY_BINDING*/ meltfrout->tabval[1])));; - MELT_LOCATION("warmelt-first.melt:3164:/ cond"); + MELT_LOCATION("warmelt-first.melt:3171:/ cond"); /*cond*/ if (/*_#IS_A__L7*/ meltfnum[5]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V13*/ meltfptr[8] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-first.melt:3164:/ cond.else"); + } else {MELT_LOCATION("warmelt-first.melt:3171:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -8563,7 +8563,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check binding"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__, - (3164)?(3164):__LINE__, __FUNCTION__); + (3171)?(3171):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V13*/ meltfptr[8] = 0 ; @@ -8577,7 +8577,7 @@ lab_endgetargs:; /*_.IFCPP___V12*/ meltfptr[10] = /*_.IFELSE___V13*/ meltfptr[8];; /*epilog*/ - MELT_LOCATION("warmelt-first.melt:3164:/ clear"); + MELT_LOCATION("warmelt-first.melt:3171:/ clear"); /*clear*/ /*_#IS_A__L7*/ meltfnum[5] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V13*/ meltfptr[8] = 0 ;} @@ -8587,14 +8587,14 @@ lab_endgetargs:; /*_.IFCPP___V12*/ meltfptr[10] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-first.melt:3165:/ quasiblock"); + MELT_LOCATION("warmelt-first.melt:3172:/ quasiblock"); /*^getslot*/ { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.ENV__V2*/ meltfptr[1]), 0, "ENV_BIND");/*_.BINDMAP__V14*/ meltfptr[8] = slot; }; ; - MELT_LOCATION("warmelt-first.melt:3166:/ getslot"); + MELT_LOCATION("warmelt-first.melt:3173:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.BINDING__V3*/ meltfptr[2]), 0, "BINDER");/*_.BINDERV__V15*/ meltfptr[14] = slot; }; ; @@ -8604,7 +8604,7 @@ lab_endgetargs:; /*_#NOT__L9*/ meltfnum[8] = (!(/*_#IS_OBJECT__L8*/ meltfnum[5]));; - MELT_LOCATION("warmelt-first.melt:3168:/ cond"); + MELT_LOCATION("warmelt-first.melt:3175:/ cond"); /*cond*/ if (/*_#NOT__L9*/ meltfnum[8]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -8612,13 +8612,13 @@ lab_endgetargs:; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-first.melt:3170:/ cppif.then"); + MELT_LOCATION("warmelt-first.melt:3177:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L10*/ meltfnum[9] = meltcallcount;; - MELT_LOCATION("warmelt-first.melt:3170:/ apply"); + MELT_LOCATION("warmelt-first.melt:3177:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -8629,14 +8629,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].bp_cstring = "warmelt-first.melt"; /*^apply.arg*/ - argtab[3].bp_long = 3170; + argtab[3].bp_long = 3177; /*_.DEBUG_MSG_FUN__V17*/ meltfptr[16] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.BINDING__V3*/ meltfptr[2]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V16*/ meltfptr[15] = /*_.DEBUG_MSG_FUN__V17*/ meltfptr[16];; /*epilog*/ - MELT_LOCATION("warmelt-first.melt:3170:/ clear"); + MELT_LOCATION("warmelt-first.melt:3177:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L10*/ meltfnum[9] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V17*/ meltfptr[16] = 0 ;} @@ -8648,13 +8648,13 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-first.melt:3171:/ cppif.then"); + MELT_LOCATION("warmelt-first.melt:3178:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L11*/ meltfnum[9] = meltcallcount;; - MELT_LOCATION("warmelt-first.melt:3171:/ apply"); + MELT_LOCATION("warmelt-first.melt:3178:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -8665,14 +8665,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].bp_cstring = "warmelt-first.melt"; /*^apply.arg*/ - argtab[3].bp_long = 3171; + argtab[3].bp_long = 3178; /*_.DEBUG_MSG_FUN__V19*/ meltfptr[18] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.BINDERV__V15*/ meltfptr[14]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V18*/ meltfptr[16] = /*_.DEBUG_MSG_FUN__V19*/ meltfptr[18];; /*epilog*/ - MELT_LOCATION("warmelt-first.melt:3171:/ clear"); + MELT_LOCATION("warmelt-first.melt:3178:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L11*/ meltfnum[9] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V19*/ meltfptr[18] = 0 ;} @@ -8684,7 +8684,7 @@ lab_endgetargs:; ; { - MELT_LOCATION("warmelt-first.melt:3172:/ locexp"); + MELT_LOCATION("warmelt-first.melt:3179:/ locexp"); #if ENABLE_CHECKING if (flag_melt_debug) @@ -8692,12 +8692,12 @@ lab_endgetargs:; #endif ;} ; - MELT_LOCATION("warmelt-first.melt:3169:/ quasiblock"); + MELT_LOCATION("warmelt-first.melt:3176:/ quasiblock"); /*epilog*/ - MELT_LOCATION("warmelt-first.melt:3168:/ clear"); + MELT_LOCATION("warmelt-first.melt:3175:/ clear"); /*clear*/ /*_.IFCPP___V16*/ meltfptr[15] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V18*/ meltfptr[16] = 0 ;} @@ -8706,17 +8706,17 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-first.melt:3173:/ cppif.then"); + MELT_LOCATION("warmelt-first.melt:3180:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_MAPOBJECT__L12*/ meltfnum[9] = (melt_magic_discr((melt_ptr_t)(/*_.BINDMAP__V14*/ meltfptr[8])) == OBMAG_MAPOBJECTS);; - MELT_LOCATION("warmelt-first.melt:3173:/ cond"); + MELT_LOCATION("warmelt-first.melt:3180:/ cond"); /*cond*/ if (/*_#IS_MAPOBJECT__L12*/ meltfnum[9]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V21*/ meltfptr[15] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-first.melt:3173:/ cond.else"); + } else {MELT_LOCATION("warmelt-first.melt:3180:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -8727,7 +8727,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check bindmap"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__, - (3173)?(3173):__LINE__, __FUNCTION__); + (3180)?(3180):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V21*/ meltfptr[15] = 0 ; @@ -8741,7 +8741,7 @@ lab_endgetargs:; /*_.IFCPP___V20*/ meltfptr[18] = /*_.IFELSE___V21*/ meltfptr[15];; /*epilog*/ - MELT_LOCATION("warmelt-first.melt:3173:/ clear"); + MELT_LOCATION("warmelt-first.melt:3180:/ clear"); /*clear*/ /*_#IS_MAPOBJECT__L12*/ meltfnum[9] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V21*/ meltfptr[15] = 0 ;} @@ -8753,17 +8753,17 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-first.melt:3174:/ cppif.then"); + MELT_LOCATION("warmelt-first.melt:3181:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_OBJECT__L13*/ meltfnum[9] = (melt_magic_discr((melt_ptr_t)(/*_.BINDERV__V15*/ meltfptr[14])) == OBMAG_OBJECT);; - MELT_LOCATION("warmelt-first.melt:3174:/ cond"); + MELT_LOCATION("warmelt-first.melt:3181:/ cond"); /*cond*/ if (/*_#IS_OBJECT__L13*/ meltfnum[9]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V23*/ meltfptr[15] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-first.melt:3174:/ cond.else"); + } else {MELT_LOCATION("warmelt-first.melt:3181:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -8774,7 +8774,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check binderv"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__, - (3174)?(3174):__LINE__, __FUNCTION__); + (3181)?(3181):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V23*/ meltfptr[15] = 0 ; @@ -8788,7 +8788,7 @@ lab_endgetargs:; /*_.IFCPP___V22*/ meltfptr[16] = /*_.IFELSE___V23*/ meltfptr[15];; /*epilog*/ - MELT_LOCATION("warmelt-first.melt:3174:/ clear"); + MELT_LOCATION("warmelt-first.melt:3181:/ clear"); /*clear*/ /*_#IS_OBJECT__L13*/ meltfnum[9] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V23*/ meltfptr[15] = 0 ;} @@ -8800,13 +8800,13 @@ lab_endgetargs:; ; { - MELT_LOCATION("warmelt-first.melt:3175:/ locexp"); + MELT_LOCATION("warmelt-first.melt:3182:/ locexp"); meltgc_put_mapobjects( (meltmapobjects_ptr_t) (/*_.BINDMAP__V14*/ meltfptr[8]), (meltobject_ptr_t) (/*_.BINDERV__V15*/ meltfptr[14]), (melt_ptr_t)(/*_.BINDING__V3*/ meltfptr[2]));} ; - MELT_LOCATION("warmelt-first.melt:3165:/ clear"); + MELT_LOCATION("warmelt-first.melt:3172:/ clear"); /*clear*/ /*_.BINDMAP__V14*/ meltfptr[8] = 0 ; /*^clear*/ /*clear*/ /*_.BINDERV__V15*/ meltfptr[14] = 0 ; @@ -8820,7 +8820,7 @@ lab_endgetargs:; /*clear*/ /*_.IFCPP___V22*/ meltfptr[16] = 0 ; /*epilog*/ - MELT_LOCATION("warmelt-first.melt:3154:/ clear"); + MELT_LOCATION("warmelt-first.melt:3161:/ clear"); /*clear*/ /*_.IFCPP___V4*/ meltfptr[3] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V6*/ meltfptr[4] = 0 ; @@ -8895,7 +8895,7 @@ melt_trace_start("OVERWRITE_ENV", meltcallcount); /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-first.melt:3179:/ getarg"); + MELT_LOCATION("warmelt-first.melt:3186:/ getarg"); /*_.ENV__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; /*getarg#1*/ @@ -8913,17 +8913,17 @@ lab_endgetargs:; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-first.melt:3183:/ cppif.then"); + MELT_LOCATION("warmelt-first.melt:3190:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L1*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.ENV__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ meltfrout->tabval[0])));; - MELT_LOCATION("warmelt-first.melt:3183:/ cond"); + MELT_LOCATION("warmelt-first.melt:3190:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V5*/ meltfptr[4] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-first.melt:3183:/ cond.else"); + } else {MELT_LOCATION("warmelt-first.melt:3190:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -8934,7 +8934,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check env"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__, - (3183)?(3183):__LINE__, __FUNCTION__); + (3190)?(3190):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V5*/ meltfptr[4] = 0 ; @@ -8948,7 +8948,7 @@ lab_endgetargs:; /*_.IFCPP___V4*/ meltfptr[3] = /*_.IFELSE___V5*/ meltfptr[4];; /*epilog*/ - MELT_LOCATION("warmelt-first.melt:3183:/ clear"); + MELT_LOCATION("warmelt-first.melt:3190:/ clear"); /*clear*/ /*_#IS_A__L1*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V5*/ meltfptr[4] = 0 ;} @@ -8960,17 +8960,17 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-first.melt:3184:/ cppif.then"); + MELT_LOCATION("warmelt-first.melt:3191:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L2*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.BINDING__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_ANY_BINDING*/ meltfrout->tabval[1])));; - MELT_LOCATION("warmelt-first.melt:3184:/ cond"); + MELT_LOCATION("warmelt-first.melt:3191:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V7*/ meltfptr[6] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-first.melt:3184:/ cond.else"); + } else {MELT_LOCATION("warmelt-first.melt:3191:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -8981,7 +8981,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check binding"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__, - (3184)?(3184):__LINE__, __FUNCTION__); + (3191)?(3191):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V7*/ meltfptr[6] = 0 ; @@ -8995,7 +8995,7 @@ lab_endgetargs:; /*_.IFCPP___V6*/ meltfptr[4] = /*_.IFELSE___V7*/ meltfptr[6];; /*epilog*/ - MELT_LOCATION("warmelt-first.melt:3184:/ clear"); + MELT_LOCATION("warmelt-first.melt:3191:/ clear"); /*clear*/ /*_#IS_A__L2*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V7*/ meltfptr[6] = 0 ;} @@ -9005,7 +9005,7 @@ lab_endgetargs:; /*_.IFCPP___V6*/ meltfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-first.melt:3185:/ quasiblock"); + MELT_LOCATION("warmelt-first.melt:3192:/ quasiblock"); /*^getslot*/ @@ -9014,17 +9014,17 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-first.melt:3186:/ cppif.then"); + MELT_LOCATION("warmelt-first.melt:3193:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_OBJECT__L3*/ meltfnum[0] = (melt_magic_discr((melt_ptr_t)(/*_.BINDERV__V9*/ meltfptr[8])) == OBMAG_OBJECT);; - MELT_LOCATION("warmelt-first.melt:3186:/ cond"); + MELT_LOCATION("warmelt-first.melt:3193:/ cond"); /*cond*/ if (/*_#IS_OBJECT__L3*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V11*/ meltfptr[10] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-first.melt:3186:/ cond.else"); + } else {MELT_LOCATION("warmelt-first.melt:3193:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -9035,7 +9035,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check binderv"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__, - (3186)?(3186):__LINE__, __FUNCTION__); + (3193)?(3193):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V11*/ meltfptr[10] = 0 ; @@ -9049,7 +9049,7 @@ lab_endgetargs:; /*_.IFCPP___V10*/ meltfptr[9] = /*_.IFELSE___V11*/ meltfptr[10];; /*epilog*/ - MELT_LOCATION("warmelt-first.melt:3186:/ clear"); + MELT_LOCATION("warmelt-first.melt:3193:/ clear"); /*clear*/ /*_#IS_OBJECT__L3*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V11*/ meltfptr[10] = 0 ;} @@ -9059,7 +9059,7 @@ lab_endgetargs:; /*_.IFCPP___V10*/ meltfptr[9] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-first.melt:3187:/ loop"); + MELT_LOCATION("warmelt-first.melt:3194:/ loop"); /*loop*/{ labloop_FINDLOOP_4:;/*^loopbody*/ /*^block*/ @@ -9071,7 +9071,7 @@ lab_endgetargs:; /*_#NOT__L5*/ meltfnum[4] = (!(/*_#IS_A__L4*/ meltfnum[0]));; - MELT_LOCATION("warmelt-first.melt:3188:/ cond"); + MELT_LOCATION("warmelt-first.melt:3195:/ cond"); /*cond*/ if (/*_#NOT__L5*/ meltfnum[4]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -9092,7 +9092,7 @@ lab_endgetargs:; ; } /*noelse*/ ; - MELT_LOCATION("warmelt-first.melt:3189:/ quasiblock"); + MELT_LOCATION("warmelt-first.melt:3196:/ quasiblock"); /*^getslot*/ @@ -9101,17 +9101,17 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-first.melt:3190:/ cppif.then"); + MELT_LOCATION("warmelt-first.melt:3197:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_MAPOBJECT__L6*/ meltfnum[5] = (melt_magic_discr((melt_ptr_t)(/*_.BINDMAP__V15*/ meltfptr[14])) == OBMAG_MAPOBJECTS);; - MELT_LOCATION("warmelt-first.melt:3190:/ cond"); + MELT_LOCATION("warmelt-first.melt:3197:/ cond"); /*cond*/ if (/*_#IS_MAPOBJECT__L6*/ meltfnum[5]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V17*/ meltfptr[16] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-first.melt:3190:/ cond.else"); + } else {MELT_LOCATION("warmelt-first.melt:3197:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -9122,7 +9122,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check bindmap"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__, - (3190)?(3190):__LINE__, __FUNCTION__); + (3197)?(3197):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V17*/ meltfptr[16] = 0 ; @@ -9136,7 +9136,7 @@ lab_endgetargs:; /*_.IFCPP___V16*/ meltfptr[15] = /*_.IFELSE___V17*/ meltfptr[16];; /*epilog*/ - MELT_LOCATION("warmelt-first.melt:3190:/ clear"); + MELT_LOCATION("warmelt-first.melt:3197:/ clear"); /*clear*/ /*_#IS_MAPOBJECT__L6*/ meltfnum[5] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V17*/ meltfptr[16] = 0 ;} @@ -9146,12 +9146,12 @@ lab_endgetargs:; /*_.IFCPP___V16*/ meltfptr[15] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-first.melt:3191:/ quasiblock"); + MELT_LOCATION("warmelt-first.melt:3198:/ quasiblock"); /*_.OLDBINDING__V18*/ meltfptr[16] = melt_get_mapobjects((meltmapobjects_ptr_t)(/*_.BINDMAP__V15*/ meltfptr[14]), (meltobject_ptr_t)((/*!BINDER*/ meltfrout->tabval[2])));; - MELT_LOCATION("warmelt-first.melt:3192:/ cond"); + MELT_LOCATION("warmelt-first.melt:3199:/ cond"); /*cond*/ if (/*_.OLDBINDING__V18*/ meltfptr[16]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -9159,12 +9159,12 @@ lab_endgetargs:; { - MELT_LOCATION("warmelt-first.melt:3194:/ locexp"); + MELT_LOCATION("warmelt-first.melt:3201:/ locexp"); meltgc_put_mapobjects( (meltmapobjects_ptr_t) (/*_.BINDMAP__V15*/ meltfptr[14]), (meltobject_ptr_t) (/*_.BINDERV__V9*/ meltfptr[8]), (melt_ptr_t)(/*_.BINDING__V3*/ meltfptr[2]));} ; - MELT_LOCATION("warmelt-first.melt:3195:/ quasiblock"); + MELT_LOCATION("warmelt-first.melt:3202:/ quasiblock"); /*^compute*/ @@ -9174,7 +9174,7 @@ lab_endgetargs:; /*exit*/{ goto labexit_FINDLOOP_4;} ; - MELT_LOCATION("warmelt-first.melt:3193:/ quasiblock"); + MELT_LOCATION("warmelt-first.melt:3200:/ quasiblock"); /*epilog*/ @@ -9183,9 +9183,9 @@ lab_endgetargs:; } /*noelse*/ ; - MELT_LOCATION("warmelt-first.melt:3191:/ clear"); + MELT_LOCATION("warmelt-first.melt:3198:/ clear"); /*clear*/ /*_.OLDBINDING__V18*/ meltfptr[16] = 0 ; - MELT_LOCATION("warmelt-first.melt:3197:/ getslot"); + MELT_LOCATION("warmelt-first.melt:3204:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.ENV__V2*/ meltfptr[1]), 1, "ENV_PREV");/*_.ENV_PREV__V19*/ meltfptr[16] = slot; }; ; @@ -9193,7 +9193,7 @@ lab_endgetargs:; /*_.ENV__V2*/ meltfptr[1] = /*_.SETQ___V20*/ meltfptr[19] = /*_.ENV_PREV__V19*/ meltfptr[16];; /*_.LET___V14*/ meltfptr[13] = /*_.SETQ___V20*/ meltfptr[19];; - MELT_LOCATION("warmelt-first.melt:3189:/ clear"); + MELT_LOCATION("warmelt-first.melt:3196:/ clear"); /*clear*/ /*_.BINDMAP__V15*/ meltfptr[14] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V16*/ meltfptr[15] = 0 ; @@ -9203,7 +9203,7 @@ lab_endgetargs:; /*clear*/ /*_.SETQ___V20*/ meltfptr[19] = 0 ; /*epilog*/ - MELT_LOCATION("warmelt-first.melt:3187:/ clear"); + MELT_LOCATION("warmelt-first.melt:3194:/ clear"); /*clear*/ /*_#IS_A__L4*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_#NOT__L5*/ meltfnum[4] = 0 ; @@ -9221,17 +9221,17 @@ lab_endgetargs:; /*_.LET___V8*/ meltfptr[6] = /*_.FOREVER___V12*/ meltfptr[10];; - MELT_LOCATION("warmelt-first.melt:3185:/ clear"); + MELT_LOCATION("warmelt-first.melt:3192:/ clear"); /*clear*/ /*_.BINDERV__V9*/ meltfptr[8] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V10*/ meltfptr[9] = 0 ; /*^clear*/ /*clear*/ /*_.FOREVER___V12*/ meltfptr[10] = 0 ; - MELT_LOCATION("warmelt-first.melt:3179:/ quasiblock"); + MELT_LOCATION("warmelt-first.melt:3186:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V8*/ meltfptr[6];; - MELT_LOCATION("warmelt-first.melt:3179:/ finalreturn"); + MELT_LOCATION("warmelt-first.melt:3186:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*epilog*/ @@ -9306,7 +9306,7 @@ melt_trace_start("POST_INITIALIZATION", meltcallcount); /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-first.melt:3212:/ getarg"); + MELT_LOCATION("warmelt-first.melt:3219:/ getarg"); /*_.UNUSEDARG__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; /*getarg#1*/ @@ -9320,7 +9320,7 @@ lab_endgetargs:; /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-first.melt:3213:/ quasiblock"); + MELT_LOCATION("warmelt-first.melt:3220:/ quasiblock"); /*_.CURMODENVCONT__V3*/ meltfptr[2] = @@ -9334,7 +9334,7 @@ lab_endgetargs:; /*_#NOT__L2*/ meltfnum[1] = (!(/*_#IS_A__L1*/ meltfnum[0]));; - MELT_LOCATION("warmelt-first.melt:3214:/ cond"); + MELT_LOCATION("warmelt-first.melt:3221:/ cond"); /*cond*/ if (/*_#NOT__L2*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -9342,24 +9342,24 @@ lab_endgetargs:; /*_.DISCRIM__V5*/ meltfptr[4] = (melt_discr((melt_ptr_t)(/*_.CURMODENVCONT__V3*/ meltfptr[2])));; - MELT_LOCATION("warmelt-first.melt:3217:/ getslot"); + MELT_LOCATION("warmelt-first.melt:3224:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.DISCRIM__V5*/ meltfptr[4]), 1, "NAMED_NAME");/*_.NAMED_NAME__V6*/ meltfptr[5] = slot; }; ; { - MELT_LOCATION("warmelt-first.melt:3216:/ locexp"); + MELT_LOCATION("warmelt-first.melt:3223:/ locexp"); warning (0, "MELT WARNING MSG [#%ld]::: %s - %s", melt_dbgcounter, ( "post_initialization strange curmodenvcont of discr"), melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V6*/ meltfptr[5])));} ; - MELT_LOCATION("warmelt-first.melt:3218:/ quasiblock"); + MELT_LOCATION("warmelt-first.melt:3225:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = NULL;; - MELT_LOCATION("warmelt-first.melt:3218:/ finalreturn"); + MELT_LOCATION("warmelt-first.melt:3225:/ finalreturn"); ; /*finalret*/ goto labend_rout ; - MELT_LOCATION("warmelt-first.melt:3215:/ quasiblock"); + MELT_LOCATION("warmelt-first.melt:3222:/ quasiblock"); /*_.PROGN___V8*/ meltfptr[7] = /*_.RETURN___V7*/ meltfptr[6];; @@ -9368,7 +9368,7 @@ lab_endgetargs:; /*_.IF___V4*/ meltfptr[3] = /*_.PROGN___V8*/ meltfptr[7];; /*epilog*/ - MELT_LOCATION("warmelt-first.melt:3214:/ clear"); + MELT_LOCATION("warmelt-first.melt:3221:/ clear"); /*clear*/ /*_.DISCRIM__V5*/ meltfptr[4] = 0 ; /*^clear*/ /*clear*/ /*_.NAMED_NAME__V6*/ meltfptr[5] = 0 ; @@ -9384,13 +9384,13 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-first.melt:3220:/ cppif.then"); + MELT_LOCATION("warmelt-first.melt:3227:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L3*/ meltfnum[2] = meltcallcount;; - MELT_LOCATION("warmelt-first.melt:3220:/ apply"); + MELT_LOCATION("warmelt-first.melt:3227:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -9401,14 +9401,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].bp_cstring = "warmelt-first.melt"; /*^apply.arg*/ - argtab[3].bp_long = 3220; + argtab[3].bp_long = 3227; /*_.DEBUG_MSG_FUN__V10*/ meltfptr[5] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.CURMODENVCONT__V3*/ meltfptr[2]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V9*/ meltfptr[4] = /*_.DEBUG_MSG_FUN__V10*/ meltfptr[5];; /*epilog*/ - MELT_LOCATION("warmelt-first.melt:3220:/ clear"); + MELT_LOCATION("warmelt-first.melt:3227:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L3*/ meltfnum[2] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V10*/ meltfptr[5] = 0 ;} @@ -9420,17 +9420,17 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-first.melt:3222:/ cppif.then"); + MELT_LOCATION("warmelt-first.melt:3229:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L4*/ meltfnum[2] = melt_is_instance_of((melt_ptr_t)(/*_.CURMODENVCONT__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_CONTAINER*/ meltfrout->tabval[1])));; - MELT_LOCATION("warmelt-first.melt:3222:/ cond"); + MELT_LOCATION("warmelt-first.melt:3229:/ cond"); /*cond*/ if (/*_#IS_A__L4*/ meltfnum[2]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V12*/ meltfptr[7] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-first.melt:3222:/ cond.else"); + } else {MELT_LOCATION("warmelt-first.melt:3229:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -9441,7 +9441,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check curmodenvcont"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__, - (3222)?(3222):__LINE__, __FUNCTION__); + (3229)?(3229):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V12*/ meltfptr[7] = 0 ; @@ -9455,7 +9455,7 @@ lab_endgetargs:; /*_.IFCPP___V11*/ meltfptr[6] = /*_.IFELSE___V12*/ meltfptr[7];; /*epilog*/ - MELT_LOCATION("warmelt-first.melt:3222:/ clear"); + MELT_LOCATION("warmelt-first.melt:3229:/ clear"); /*clear*/ /*_#IS_A__L4*/ meltfnum[2] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V12*/ meltfptr[7] = 0 ;} @@ -9465,7 +9465,7 @@ lab_endgetargs:; /*_.IFCPP___V11*/ meltfptr[6] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-first.melt:3223:/ quasiblock"); + MELT_LOCATION("warmelt-first.melt:3230:/ quasiblock"); /*^getslot*/ @@ -9474,13 +9474,13 @@ lab_endgetargs:; ; /*_#IS_A__L5*/ meltfnum[2] = melt_is_instance_of((melt_ptr_t)(/*_.CURMODENV__V13*/ meltfptr[5]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ meltfrout->tabval[3])));; - MELT_LOCATION("warmelt-first.melt:3224:/ cond"); + MELT_LOCATION("warmelt-first.melt:3231:/ cond"); /*cond*/ if (/*_#IS_A__L5*/ meltfnum[2]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-first.melt:3225:/ quasiblock"); + MELT_LOCATION("warmelt-first.melt:3232:/ quasiblock"); /*^getslot*/ @@ -9491,39 +9491,39 @@ lab_endgetargs:; (melt_count_mapobjects((meltmapobjects_ptr_t)(/*_.CURBINDMAP__V14*/ meltfptr[7])));; { - MELT_LOCATION("warmelt-first.melt:3227:/ locexp"); + MELT_LOCATION("warmelt-first.melt:3234:/ locexp"); inform(UNKNOWN_LOCATION, "MELT INFORM [#%ld]: %s * %ld", melt_dbgcounter, ( "post_initialization boundvars num"), (/*_#MAPOBJECT_COUNT__L6*/ meltfnum[5]));} ; - MELT_LOCATION("warmelt-first.melt:3225:/ clear"); + MELT_LOCATION("warmelt-first.melt:3232:/ clear"); /*clear*/ /*_.CURBINDMAP__V14*/ meltfptr[7] = 0 ; /*^clear*/ /*clear*/ /*_#MAPOBJECT_COUNT__L6*/ meltfnum[5] = 0 ; /*epilog*/ } ; - } else {MELT_LOCATION("warmelt-first.melt:3224:/ cond.else"); + } else {MELT_LOCATION("warmelt-first.melt:3231:/ cond.else"); /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-first.melt:3230:/ quasiblock"); + MELT_LOCATION("warmelt-first.melt:3237:/ quasiblock"); /*_.CURMENVDISCR__V15*/ meltfptr[7] = (melt_discr((melt_ptr_t)(/*_.CURMODENV__V13*/ meltfptr[5])));; - MELT_LOCATION("warmelt-first.melt:3232:/ getslot"); + MELT_LOCATION("warmelt-first.melt:3239:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.CURMENVDISCR__V15*/ meltfptr[7]), 1, "NAMED_NAME");/*_.NAMED_NAME__V16*/ meltfptr[15] = slot; }; ; { - MELT_LOCATION("warmelt-first.melt:3231:/ locexp"); + MELT_LOCATION("warmelt-first.melt:3238:/ locexp"); inform(UNKNOWN_LOCATION, ("MELT INFORM [#%ld]: %s - %s"), melt_dbgcounter, ( "post_initialization strange curmodenv of discr"), melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V16*/ meltfptr[15])));} ; - MELT_LOCATION("warmelt-first.melt:3230:/ clear"); + MELT_LOCATION("warmelt-first.melt:3237:/ clear"); /*clear*/ /*_.CURMENVDISCR__V15*/ meltfptr[7] = 0 ; /*^clear*/ /*clear*/ /*_.NAMED_NAME__V16*/ meltfptr[15] = 0 ; @@ -9533,12 +9533,12 @@ lab_endgetargs:; } ; - MELT_LOCATION("warmelt-first.melt:3223:/ clear"); + MELT_LOCATION("warmelt-first.melt:3230:/ clear"); /*clear*/ /*_.CURMODENV__V13*/ meltfptr[5] = 0 ; /*^clear*/ /*clear*/ /*_#IS_A__L5*/ meltfnum[2] = 0 ; - MELT_LOCATION("warmelt-first.melt:3213:/ clear"); + MELT_LOCATION("warmelt-first.melt:3220:/ clear"); /*clear*/ /*_.CURMODENVCONT__V3*/ meltfptr[2] = 0 ; /*^clear*/ /*clear*/ /*_#IS_A__L1*/ meltfnum[0] = 0 ; @@ -9617,7 +9617,7 @@ melt_trace_start("DEBUG_MSG_FUN", meltcallcount); /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-first.melt:3546:/ getarg"); + MELT_LOCATION("warmelt-first.melt:3555:/ getarg"); /*_.VAL__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; /*getarg#1*/ @@ -9646,7 +9646,7 @@ lab_endgetargs:; /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-first.melt:3547:/ quasiblock"); + MELT_LOCATION("warmelt-first.melt:3556:/ quasiblock"); /*^getslot*/ @@ -9655,13 +9655,13 @@ lab_endgetargs:; ; /*_#IS_CLOSURE__L3*/ meltfnum[2] = (melt_magic_discr((melt_ptr_t)(/*_.DBGMSGFUN__V4*/ meltfptr[3])) == OBMAG_CLOSURE);; - MELT_LOCATION("warmelt-first.melt:3548:/ cond"); + MELT_LOCATION("warmelt-first.melt:3557:/ cond"); /*cond*/ if (/*_#IS_CLOSURE__L3*/ meltfnum[2]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-first.melt:3549:/ apply"); + MELT_LOCATION("warmelt-first.melt:3558:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -9679,7 +9679,7 @@ lab_endgetargs:; /*_.IF___V5*/ meltfptr[4] = /*_.DBGMSGFUN__V6*/ meltfptr[5];; /*epilog*/ - MELT_LOCATION("warmelt-first.melt:3548:/ clear"); + MELT_LOCATION("warmelt-first.melt:3557:/ clear"); /*clear*/ /*_.DBGMSGFUN__V6*/ meltfptr[5] = 0 ;} ; } else {/*^cond.else*/ @@ -9691,17 +9691,17 @@ lab_endgetargs:; /*_.LET___V3*/ meltfptr[2] = /*_.IF___V5*/ meltfptr[4];; - MELT_LOCATION("warmelt-first.melt:3547:/ clear"); + MELT_LOCATION("warmelt-first.melt:3556:/ clear"); /*clear*/ /*_.DBGMSGFUN__V4*/ meltfptr[3] = 0 ; /*^clear*/ /*clear*/ /*_#IS_CLOSURE__L3*/ meltfnum[2] = 0 ; /*^clear*/ /*clear*/ /*_.IF___V5*/ meltfptr[4] = 0 ; - MELT_LOCATION("warmelt-first.melt:3546:/ quasiblock"); + MELT_LOCATION("warmelt-first.melt:3555:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V3*/ meltfptr[2];; - MELT_LOCATION("warmelt-first.melt:3546:/ finalreturn"); + MELT_LOCATION("warmelt-first.melt:3555:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*epilog*/ diff --git a/gcc/melt/generated/warmelt-first.0.c b/gcc/melt/generated/warmelt-first.0.c index 13dc61aaf59..48f7592e2f8 100644 --- a/gcc/melt/generated/warmelt-first.0.c +++ b/gcc/melt/generated/warmelt-first.0.c @@ -3,7 +3,7 @@ #ifndef MELTGCC_DYNAMIC_OBJSTRUCT /* version string of the gcc executable generating this file: */ const char genversionstr_melt[]= - "4.5.0 20100223 (experimental) [melt-branch revision 157055]"; + "4.5.0 20100310 (experimental) [melt-branch revision 157367]"; #endif #include "run-melt.h" @@ -424,7 +424,7 @@ melt_trace_start("INSTALL_CTYPE_DESCR", meltcallcount); /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-first.melt:1734:/ getarg"); + MELT_LOCATION("warmelt-first.melt:1741:/ getarg"); /*_.CTYP__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; /*getarg#1*/ @@ -440,17 +440,17 @@ lab_endgetargs:; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-first.melt:1737:/ cppif.then"); + MELT_LOCATION("warmelt-first.melt:1744:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L1*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.CTYP__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_CTYPE*/ meltfrout->tabval[0])));; - MELT_LOCATION("warmelt-first.melt:1737:/ cond"); + MELT_LOCATION("warmelt-first.melt:1744:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V4*/ meltfptr[3] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-first.melt:1737:/ cond.else"); + } else {MELT_LOCATION("warmelt-first.melt:1744:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -461,7 +461,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check ctyp"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__, - (1737)?(1737):__LINE__, __FUNCTION__); + (1744)?(1744):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V4*/ meltfptr[3] = 0 ; @@ -475,7 +475,7 @@ lab_endgetargs:; /*_.IFCPP___V3*/ meltfptr[2] = /*_.IFELSE___V4*/ meltfptr[3];; /*epilog*/ - MELT_LOCATION("warmelt-first.melt:1737:/ clear"); + MELT_LOCATION("warmelt-first.melt:1744:/ clear"); /*clear*/ /*_#IS_A__L1*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V4*/ meltfptr[3] = 0 ;} @@ -485,7 +485,7 @@ lab_endgetargs:; /*_.IFCPP___V3*/ meltfptr[2] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-first.melt:1738:/ getslot"); + MELT_LOCATION("warmelt-first.melt:1745:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.CTYP__V2*/ meltfptr[1]), 9, "CTYPE_DESCR");/*_.CTYPE_DESCR__V5*/ meltfptr[3] = slot; }; ; @@ -495,17 +495,17 @@ lab_endgetargs:; /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-first.melt:1739:/ quasiblock"); + MELT_LOCATION("warmelt-first.melt:1746:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = NULL;; - MELT_LOCATION("warmelt-first.melt:1739:/ finalreturn"); + MELT_LOCATION("warmelt-first.melt:1746:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*_.IF___V6*/ meltfptr[5] = /*_.RETURN___V7*/ meltfptr[6];; /*epilog*/ - MELT_LOCATION("warmelt-first.melt:1738:/ clear"); + MELT_LOCATION("warmelt-first.melt:1745:/ clear"); /*clear*/ /*_.RETURN___V7*/ meltfptr[6] = 0 ;} ; } else {/*^cond.else*/ @@ -513,14 +513,14 @@ lab_endgetargs:; /*_.IF___V6*/ meltfptr[5] = NULL;; } ; - MELT_LOCATION("warmelt-first.melt:1740:/ quasiblock"); + MELT_LOCATION("warmelt-first.melt:1747:/ quasiblock"); /*^getslot*/ { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.CTYP__V2*/ meltfptr[1]), 2, "CTYPE_KEYWORD");/*_.CKW__V9*/ meltfptr[8] = slot; }; ; - MELT_LOCATION("warmelt-first.melt:1741:/ getslot"); + MELT_LOCATION("warmelt-first.melt:1748:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.CTYP__V2*/ meltfptr[1]), 10, "CTYPE_ALTKEYWORD");/*_.ALTKW__V10*/ meltfptr[9] = slot; }; ; @@ -528,17 +528,17 @@ lab_endgetargs:; (meltgc_new_stringdup((meltobject_ptr_t)((/*!DISCR_STRING*/ meltfrout->tabval[1])), (/*_?*/ meltfram__.loc_CSTRING__o0)));; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-first.melt:1744:/ cppif.then"); + MELT_LOCATION("warmelt-first.melt:1751:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L2*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.CKW__V9*/ meltfptr[8]), (melt_ptr_t)((/*!CLASS_KEYWORD*/ meltfrout->tabval[2])));; - MELT_LOCATION("warmelt-first.melt:1744:/ cond"); + MELT_LOCATION("warmelt-first.melt:1751:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V13*/ meltfptr[12] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-first.melt:1744:/ cond.else"); + } else {MELT_LOCATION("warmelt-first.melt:1751:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -549,7 +549,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check ctype ckw"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__, - (1744)?(1744):__LINE__, __FUNCTION__); + (1751)?(1751):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V13*/ meltfptr[12] = 0 ; @@ -563,7 +563,7 @@ lab_endgetargs:; /*_.IFCPP___V12*/ meltfptr[11] = /*_.IFELSE___V13*/ meltfptr[12];; /*epilog*/ - MELT_LOCATION("warmelt-first.melt:1744:/ clear"); + MELT_LOCATION("warmelt-first.melt:1751:/ clear"); /*clear*/ /*_#IS_A__L2*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V13*/ meltfptr[12] = 0 ;} @@ -573,7 +573,7 @@ lab_endgetargs:; /*_.IFCPP___V12*/ meltfptr[11] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-first.melt:1745:/ quasiblock"); + MELT_LOCATION("warmelt-first.melt:1752:/ quasiblock"); /*^putslot*/ @@ -587,13 +587,13 @@ lab_endgetargs:; /*_#IS_A__L3*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.ALTKW__V10*/ meltfptr[9]), (melt_ptr_t)((/*!CLASS_KEYWORD*/ meltfrout->tabval[2])));; - MELT_LOCATION("warmelt-first.melt:1746:/ cond"); + MELT_LOCATION("warmelt-first.melt:1753:/ cond"); /*cond*/ if (/*_#IS_A__L3*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-first.melt:1747:/ cond"); + MELT_LOCATION("warmelt-first.melt:1754:/ cond"); /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.ALTKW__V10*/ meltfptr[9]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ meltfrout->tabval[3])))) /*then*/ { /*^cond.then*/ /*^block*/ @@ -619,7 +619,7 @@ lab_endgetargs:; ; /*_.LET___V8*/ meltfptr[6] = /*_.DS__V11*/ meltfptr[10];; - MELT_LOCATION("warmelt-first.melt:1740:/ clear"); + MELT_LOCATION("warmelt-first.melt:1747:/ clear"); /*clear*/ /*_.CKW__V9*/ meltfptr[8] = 0 ; /*^clear*/ /*clear*/ /*_.ALTKW__V10*/ meltfptr[9] = 0 ; @@ -629,11 +629,11 @@ lab_endgetargs:; /*clear*/ /*_.IFCPP___V12*/ meltfptr[11] = 0 ; /*^clear*/ /*clear*/ /*_#IS_A__L3*/ meltfnum[0] = 0 ; - MELT_LOCATION("warmelt-first.melt:1734:/ quasiblock"); + MELT_LOCATION("warmelt-first.melt:1741:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V8*/ meltfptr[6];; - MELT_LOCATION("warmelt-first.melt:1734:/ finalreturn"); + MELT_LOCATION("warmelt-first.melt:1741:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*epilog*/ @@ -709,7 +709,7 @@ melt_trace_start("ADD_NEW_SYMBOL_TOKEN", meltcallcount); /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-first.melt:1971:/ getarg"); + MELT_LOCATION("warmelt-first.melt:1978:/ getarg"); /*_.SYDA__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; /*getarg#1*/ @@ -727,17 +727,17 @@ lab_endgetargs:; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-first.melt:1972:/ cppif.then"); + MELT_LOCATION("warmelt-first.melt:1979:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L1*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.SYDA__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SYSTEM_DATA*/ meltfrout->tabval[0])));; - MELT_LOCATION("warmelt-first.melt:1972:/ cond"); + MELT_LOCATION("warmelt-first.melt:1979:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V5*/ meltfptr[4] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-first.melt:1972:/ cond.else"); + } else {MELT_LOCATION("warmelt-first.melt:1979:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -748,7 +748,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check syda"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__, - (1972)?(1972):__LINE__, __FUNCTION__); + (1979)?(1979):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V5*/ meltfptr[4] = 0 ; @@ -762,7 +762,7 @@ lab_endgetargs:; /*_.IFCPP___V4*/ meltfptr[3] = /*_.IFELSE___V5*/ meltfptr[4];; /*epilog*/ - MELT_LOCATION("warmelt-first.melt:1972:/ clear"); + MELT_LOCATION("warmelt-first.melt:1979:/ clear"); /*clear*/ /*_#IS_A__L1*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V5*/ meltfptr[4] = 0 ;} @@ -772,7 +772,7 @@ lab_endgetargs:; /*_.IFCPP___V4*/ meltfptr[3] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-first.melt:1973:/ quasiblock"); + MELT_LOCATION("warmelt-first.melt:1980:/ quasiblock"); /*^quasiblock*/ @@ -789,26 +789,26 @@ lab_endgetargs:; melt_putfield_object((/*_.INST__V8*/ meltfptr[7]), (1), (/*_.STR__V3*/ meltfptr[2]), "NAMED_NAME"); ; /*_.SY__V7*/ meltfptr[6] = /*_.INST__V8*/ meltfptr[7];; - MELT_LOCATION("warmelt-first.melt:1974:/ getslot"); + MELT_LOCATION("warmelt-first.melt:1981:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.SYDA__V2*/ meltfptr[1]), 6, "SYSDATA_SYMBOLDICT");/*_.SYDICT__V9*/ meltfptr[8] = slot; }; ; { - MELT_LOCATION("warmelt-first.melt:1976:/ locexp"); + MELT_LOCATION("warmelt-first.melt:1983:/ locexp"); meltgc_put_mapstrings((struct meltmapstrings_st *) (/*_.SYDICT__V9*/ meltfptr[8]), melt_string_str((melt_ptr_t)(/*_.STR__V3*/ meltfptr[2])), (melt_ptr_t)(/*_.SY__V7*/ meltfptr[6]));} ; /*_.LET___V6*/ meltfptr[4] = /*_.SY__V7*/ meltfptr[6];; - MELT_LOCATION("warmelt-first.melt:1973:/ clear"); + MELT_LOCATION("warmelt-first.melt:1980:/ clear"); /*clear*/ /*_.SY__V7*/ meltfptr[6] = 0 ; /*^clear*/ /*clear*/ /*_.SYDICT__V9*/ meltfptr[8] = 0 ; - MELT_LOCATION("warmelt-first.melt:1971:/ quasiblock"); + MELT_LOCATION("warmelt-first.melt:1978:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V6*/ meltfptr[4];; - MELT_LOCATION("warmelt-first.melt:1971:/ finalreturn"); + MELT_LOCATION("warmelt-first.melt:1978:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*epilog*/ @@ -880,7 +880,7 @@ melt_trace_start("ADD_NEW_KEYWORD_TOKEN", meltcallcount); /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-first.melt:1980:/ getarg"); + MELT_LOCATION("warmelt-first.melt:1987:/ getarg"); /*_.SYDA__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; /*getarg#1*/ @@ -898,17 +898,17 @@ lab_endgetargs:; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-first.melt:1981:/ cppif.then"); + MELT_LOCATION("warmelt-first.melt:1988:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L1*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.SYDA__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SYSTEM_DATA*/ meltfrout->tabval[0])));; - MELT_LOCATION("warmelt-first.melt:1981:/ cond"); + MELT_LOCATION("warmelt-first.melt:1988:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V5*/ meltfptr[4] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-first.melt:1981:/ cond.else"); + } else {MELT_LOCATION("warmelt-first.melt:1988:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -919,7 +919,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check syda"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__, - (1981)?(1981):__LINE__, __FUNCTION__); + (1988)?(1988):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V5*/ meltfptr[4] = 0 ; @@ -933,7 +933,7 @@ lab_endgetargs:; /*_.IFCPP___V4*/ meltfptr[3] = /*_.IFELSE___V5*/ meltfptr[4];; /*epilog*/ - MELT_LOCATION("warmelt-first.melt:1981:/ clear"); + MELT_LOCATION("warmelt-first.melt:1988:/ clear"); /*clear*/ /*_#IS_A__L1*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V5*/ meltfptr[4] = 0 ;} @@ -943,7 +943,7 @@ lab_endgetargs:; /*_.IFCPP___V4*/ meltfptr[3] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-first.melt:1982:/ quasiblock"); + MELT_LOCATION("warmelt-first.melt:1989:/ quasiblock"); /*^quasiblock*/ @@ -960,26 +960,26 @@ lab_endgetargs:; melt_putfield_object((/*_.INST__V8*/ meltfptr[7]), (1), (/*_.STR__V3*/ meltfptr[2]), "NAMED_NAME"); ; /*_.KW__V7*/ meltfptr[6] = /*_.INST__V8*/ meltfptr[7];; - MELT_LOCATION("warmelt-first.melt:1983:/ getslot"); + MELT_LOCATION("warmelt-first.melt:1990:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.SYDA__V2*/ meltfptr[1]), 7, "SYSDATA_KEYWDICT");/*_.KWDICT__V9*/ meltfptr[8] = slot; }; ; { - MELT_LOCATION("warmelt-first.melt:1985:/ locexp"); + MELT_LOCATION("warmelt-first.melt:1992:/ locexp"); meltgc_put_mapstrings((struct meltmapstrings_st *) (/*_.KWDICT__V9*/ meltfptr[8]), melt_string_str((melt_ptr_t)(/*_.STR__V3*/ meltfptr[2])), (melt_ptr_t)(/*_.KW__V7*/ meltfptr[6]));} ; /*_.LET___V6*/ meltfptr[4] = /*_.KW__V7*/ meltfptr[6];; - MELT_LOCATION("warmelt-first.melt:1982:/ clear"); + MELT_LOCATION("warmelt-first.melt:1989:/ clear"); /*clear*/ /*_.KW__V7*/ meltfptr[6] = 0 ; /*^clear*/ /*clear*/ /*_.KWDICT__V9*/ meltfptr[8] = 0 ; - MELT_LOCATION("warmelt-first.melt:1980:/ quasiblock"); + MELT_LOCATION("warmelt-first.melt:1987:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V6*/ meltfptr[4];; - MELT_LOCATION("warmelt-first.melt:1980:/ finalreturn"); + MELT_LOCATION("warmelt-first.melt:1987:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*epilog*/ @@ -1051,7 +1051,7 @@ melt_trace_start("INTERN_SYMBOL", meltcallcount); /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-first.melt:1989:/ getarg"); + MELT_LOCATION("warmelt-first.melt:1996:/ getarg"); /*_.INIDAT__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; /*getarg#1*/ @@ -1069,17 +1069,17 @@ lab_endgetargs:; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-first.melt:1990:/ cppif.then"); + MELT_LOCATION("warmelt-first.melt:1997:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L1*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.INIDAT__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SYSTEM_DATA*/ meltfrout->tabval[0])));; - MELT_LOCATION("warmelt-first.melt:1990:/ cond"); + MELT_LOCATION("warmelt-first.melt:1997:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V5*/ meltfptr[4] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-first.melt:1990:/ cond.else"); + } else {MELT_LOCATION("warmelt-first.melt:1997:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -1090,7 +1090,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check inidat"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__, - (1990)?(1990):__LINE__, __FUNCTION__); + (1997)?(1997):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V5*/ meltfptr[4] = 0 ; @@ -1104,7 +1104,7 @@ lab_endgetargs:; /*_.IFCPP___V4*/ meltfptr[3] = /*_.IFELSE___V5*/ meltfptr[4];; /*epilog*/ - MELT_LOCATION("warmelt-first.melt:1990:/ clear"); + MELT_LOCATION("warmelt-first.melt:1997:/ clear"); /*clear*/ /*_#IS_A__L1*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V5*/ meltfptr[4] = 0 ;} @@ -1116,17 +1116,17 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-first.melt:1991:/ cppif.then"); + MELT_LOCATION("warmelt-first.melt:1998:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L2*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.SYMB__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ meltfrout->tabval[1])));; - MELT_LOCATION("warmelt-first.melt:1991:/ cond"); + MELT_LOCATION("warmelt-first.melt:1998:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V7*/ meltfptr[6] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-first.melt:1991:/ cond.else"); + } else {MELT_LOCATION("warmelt-first.melt:1998:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -1137,7 +1137,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check sym"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__, - (1991)?(1991):__LINE__, __FUNCTION__); + (1998)?(1998):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V7*/ meltfptr[6] = 0 ; @@ -1151,7 +1151,7 @@ lab_endgetargs:; /*_.IFCPP___V6*/ meltfptr[4] = /*_.IFELSE___V7*/ meltfptr[6];; /*epilog*/ - MELT_LOCATION("warmelt-first.melt:1991:/ clear"); + MELT_LOCATION("warmelt-first.melt:1998:/ clear"); /*clear*/ /*_#IS_A__L2*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V7*/ meltfptr[6] = 0 ;} @@ -1161,34 +1161,34 @@ lab_endgetargs:; /*_.IFCPP___V6*/ meltfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-first.melt:1992:/ quasiblock"); + MELT_LOCATION("warmelt-first.melt:1999:/ quasiblock"); /*^getslot*/ { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.SYMB__V3*/ meltfptr[2]), 1, "NAMED_NAME");/*_.SYNAME__V9*/ meltfptr[8] = slot; }; ; - MELT_LOCATION("warmelt-first.melt:1993:/ getslot"); + MELT_LOCATION("warmelt-first.melt:2000:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.INIDAT__V2*/ meltfptr[1]), 6, "SYSDATA_SYMBOLDICT");/*_.SYDICT__V10*/ meltfptr[9] = slot; }; ; /*_.OLDSY__V11*/ meltfptr[10] = (melt_get_mapstrings((struct meltmapstrings_st*)(/*_.SYDICT__V10*/ meltfptr[9]), melt_string_str((melt_ptr_t)(/*_.SYNAME__V9*/ meltfptr[8]))));; - MELT_LOCATION("warmelt-first.melt:1995:/ cond"); + MELT_LOCATION("warmelt-first.melt:2002:/ cond"); /*cond*/ if (/*_.OLDSY__V11*/ meltfptr[10]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V12*/ meltfptr[11] = /*_.OLDSY__V11*/ meltfptr[10];; - } else {MELT_LOCATION("warmelt-first.melt:1995:/ cond.else"); + } else {MELT_LOCATION("warmelt-first.melt:2002:/ cond.else"); /*^block*/ /*anyblock*/{ { - MELT_LOCATION("warmelt-first.melt:1998:/ locexp"); + MELT_LOCATION("warmelt-first.melt:2005:/ locexp"); meltgc_put_mapstrings((struct meltmapstrings_st *) (/*_.SYDICT__V10*/ meltfptr[9]), melt_string_str((melt_ptr_t)(/*_.SYNAME__V9*/ meltfptr[8])), (melt_ptr_t)(/*_.SYMB__V3*/ meltfptr[2]));} ; - MELT_LOCATION("warmelt-first.melt:1997:/ quasiblock"); + MELT_LOCATION("warmelt-first.melt:2004:/ quasiblock"); /*_.PROGN___V13*/ meltfptr[12] = /*_.SYMB__V3*/ meltfptr[2];; @@ -1197,14 +1197,14 @@ lab_endgetargs:; /*_.IFELSE___V12*/ meltfptr[11] = /*_.PROGN___V13*/ meltfptr[12];; /*epilog*/ - MELT_LOCATION("warmelt-first.melt:1995:/ clear"); + MELT_LOCATION("warmelt-first.melt:2002:/ clear"); /*clear*/ /*_.PROGN___V13*/ meltfptr[12] = 0 ;} ; } ; /*_.LET___V8*/ meltfptr[6] = /*_.IFELSE___V12*/ meltfptr[11];; - MELT_LOCATION("warmelt-first.melt:1992:/ clear"); + MELT_LOCATION("warmelt-first.melt:1999:/ clear"); /*clear*/ /*_.SYNAME__V9*/ meltfptr[8] = 0 ; /*^clear*/ /*clear*/ /*_.SYDICT__V10*/ meltfptr[9] = 0 ; @@ -1212,11 +1212,11 @@ lab_endgetargs:; /*clear*/ /*_.OLDSY__V11*/ meltfptr[10] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V12*/ meltfptr[11] = 0 ; - MELT_LOCATION("warmelt-first.melt:1989:/ quasiblock"); + MELT_LOCATION("warmelt-first.melt:1996:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V8*/ meltfptr[6];; - MELT_LOCATION("warmelt-first.melt:1989:/ finalreturn"); + MELT_LOCATION("warmelt-first.melt:1996:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*epilog*/ @@ -1290,7 +1290,7 @@ melt_trace_start("INTERN_KEYWORD", meltcallcount); /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-first.melt:2004:/ getarg"); + MELT_LOCATION("warmelt-first.melt:2011:/ getarg"); /*_.INIDAT__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; /*getarg#1*/ @@ -1308,17 +1308,17 @@ lab_endgetargs:; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-first.melt:2005:/ cppif.then"); + MELT_LOCATION("warmelt-first.melt:2012:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L1*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.INIDAT__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SYSTEM_DATA*/ meltfrout->tabval[0])));; - MELT_LOCATION("warmelt-first.melt:2005:/ cond"); + MELT_LOCATION("warmelt-first.melt:2012:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V5*/ meltfptr[4] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-first.melt:2005:/ cond.else"); + } else {MELT_LOCATION("warmelt-first.melt:2012:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -1329,7 +1329,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check inidat"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__, - (2005)?(2005):__LINE__, __FUNCTION__); + (2012)?(2012):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V5*/ meltfptr[4] = 0 ; @@ -1343,7 +1343,7 @@ lab_endgetargs:; /*_.IFCPP___V4*/ meltfptr[3] = /*_.IFELSE___V5*/ meltfptr[4];; /*epilog*/ - MELT_LOCATION("warmelt-first.melt:2005:/ clear"); + MELT_LOCATION("warmelt-first.melt:2012:/ clear"); /*clear*/ /*_#IS_A__L1*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V5*/ meltfptr[4] = 0 ;} @@ -1355,17 +1355,17 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-first.melt:2006:/ cppif.then"); + MELT_LOCATION("warmelt-first.melt:2013:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L2*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.KEYW__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_KEYWORD*/ meltfrout->tabval[1])));; - MELT_LOCATION("warmelt-first.melt:2006:/ cond"); + MELT_LOCATION("warmelt-first.melt:2013:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V7*/ meltfptr[6] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-first.melt:2006:/ cond.else"); + } else {MELT_LOCATION("warmelt-first.melt:2013:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -1376,7 +1376,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check keyw"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__, - (2006)?(2006):__LINE__, __FUNCTION__); + (2013)?(2013):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V7*/ meltfptr[6] = 0 ; @@ -1390,7 +1390,7 @@ lab_endgetargs:; /*_.IFCPP___V6*/ meltfptr[4] = /*_.IFELSE___V7*/ meltfptr[6];; /*epilog*/ - MELT_LOCATION("warmelt-first.melt:2006:/ clear"); + MELT_LOCATION("warmelt-first.melt:2013:/ clear"); /*clear*/ /*_#IS_A__L2*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V7*/ meltfptr[6] = 0 ;} @@ -1400,31 +1400,31 @@ lab_endgetargs:; /*_.IFCPP___V6*/ meltfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-first.melt:2007:/ quasiblock"); + MELT_LOCATION("warmelt-first.melt:2014:/ quasiblock"); /*^getslot*/ { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.KEYW__V3*/ meltfptr[2]), 1, "NAMED_NAME");/*_.KWNAME__V9*/ meltfptr[8] = slot; }; ; - MELT_LOCATION("warmelt-first.melt:2008:/ getslot"); + MELT_LOCATION("warmelt-first.melt:2015:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.INIDAT__V2*/ meltfptr[1]), 7, "SYSDATA_KEYWDICT");/*_.KWDICT__V10*/ meltfptr[9] = slot; }; ; /*_.OLDKW__V11*/ meltfptr[10] = (melt_get_mapstrings((struct meltmapstrings_st*)(/*_.KWDICT__V10*/ meltfptr[9]), melt_string_str((melt_ptr_t)(/*_.KWNAME__V9*/ meltfptr[8]))));; - MELT_LOCATION("warmelt-first.melt:2010:/ cond"); + MELT_LOCATION("warmelt-first.melt:2017:/ cond"); /*cond*/ if (/*_.OLDKW__V11*/ meltfptr[10]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V12*/ meltfptr[11] = /*_.OLDKW__V11*/ meltfptr[10];; - } else {MELT_LOCATION("warmelt-first.melt:2010:/ cond.else"); + } else {MELT_LOCATION("warmelt-first.melt:2017:/ cond.else"); /*^block*/ /*anyblock*/{ { - MELT_LOCATION("warmelt-first.melt:2012:/ locexp"); + MELT_LOCATION("warmelt-first.melt:2019:/ locexp"); meltgc_put_mapstrings((struct meltmapstrings_st *) (/*_.KWDICT__V10*/ meltfptr[9]), melt_string_str((melt_ptr_t)(/*_.KWNAME__V9*/ meltfptr[8])), (melt_ptr_t)(/*_.KEYW__V3*/ meltfptr[2]));} ; /*^quasiblock*/ @@ -1436,14 +1436,14 @@ lab_endgetargs:; /*_.IFELSE___V12*/ meltfptr[11] = /*_.PROGN___V13*/ meltfptr[12];; /*epilog*/ - MELT_LOCATION("warmelt-first.melt:2010:/ clear"); + MELT_LOCATION("warmelt-first.melt:2017:/ clear"); /*clear*/ /*_.PROGN___V13*/ meltfptr[12] = 0 ;} ; } ; /*_.LET___V8*/ meltfptr[6] = /*_.IFELSE___V12*/ meltfptr[11];; - MELT_LOCATION("warmelt-first.melt:2007:/ clear"); + MELT_LOCATION("warmelt-first.melt:2014:/ clear"); /*clear*/ /*_.KWNAME__V9*/ meltfptr[8] = 0 ; /*^clear*/ /*clear*/ /*_.KWDICT__V10*/ meltfptr[9] = 0 ; @@ -1451,11 +1451,11 @@ lab_endgetargs:; /*clear*/ /*_.OLDKW__V11*/ meltfptr[10] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V12*/ meltfptr[11] = 0 ; - MELT_LOCATION("warmelt-first.melt:2004:/ quasiblock"); + MELT_LOCATION("warmelt-first.melt:2011:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V8*/ meltfptr[6];; - MELT_LOCATION("warmelt-first.melt:2004:/ finalreturn"); + MELT_LOCATION("warmelt-first.melt:2011:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*epilog*/ @@ -1530,7 +1530,7 @@ melt_trace_start("CLONE_SYMBOL", meltcallcount); /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-first.melt:2020:/ getarg"); + MELT_LOCATION("warmelt-first.melt:2027:/ getarg"); /*_.SYMB__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; ; goto lab_endgetargs; @@ -1539,7 +1539,7 @@ lab_endgetargs:; /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-first.melt:2022:/ quasiblock"); + MELT_LOCATION("warmelt-first.melt:2029:/ quasiblock"); /*^getslot*/ @@ -1548,31 +1548,31 @@ lab_endgetargs:; ; /*_#IS_STRING__L1*/ meltfnum[0] = (melt_magic_discr((melt_ptr_t)(/*_.SYMB__V2*/ meltfptr[1])) == OBMAG_STRING);; - MELT_LOCATION("warmelt-first.melt:2025:/ cond"); + MELT_LOCATION("warmelt-first.melt:2032:/ cond"); /*cond*/ if (/*_#IS_STRING__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.SYNAM__V5*/ meltfptr[4] = /*_.SYMB__V2*/ meltfptr[1];; - } else {MELT_LOCATION("warmelt-first.melt:2025:/ cond.else"); + } else {MELT_LOCATION("warmelt-first.melt:2032:/ cond.else"); /*^block*/ /*anyblock*/{ /*_#IS_A__L2*/ meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.SYMB__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[1])));; - MELT_LOCATION("warmelt-first.melt:2027:/ cond"); + MELT_LOCATION("warmelt-first.melt:2034:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-first.melt:2028:/ getslot"); + MELT_LOCATION("warmelt-first.melt:2035:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.SYMB__V2*/ meltfptr[1]), 1, "NAMED_NAME");/*_.NAMED_NAME__V7*/ meltfptr[6] = slot; }; ; /*_.IFELSE___V6*/ meltfptr[5] = /*_.NAMED_NAME__V7*/ meltfptr[6];; /*epilog*/ - MELT_LOCATION("warmelt-first.melt:2027:/ clear"); + MELT_LOCATION("warmelt-first.melt:2034:/ clear"); /*clear*/ /*_.NAMED_NAME__V7*/ meltfptr[6] = 0 ;} ; } else {/*^cond.else*/ @@ -1580,12 +1580,12 @@ lab_endgetargs:; /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-first.melt:2030:/ quasiblock"); + MELT_LOCATION("warmelt-first.melt:2037:/ quasiblock"); /*_.DISCRIM__V9*/ meltfptr[8] = (melt_discr((melt_ptr_t)(/*_.SYMB__V2*/ meltfptr[1])));; - MELT_LOCATION("warmelt-first.melt:2030:/ cond"); + MELT_LOCATION("warmelt-first.melt:2037:/ cond"); /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.DISCRIM__V9*/ meltfptr[8]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[1])))) /*then*/ { /*^cond.then*/ /*^getslot*/ @@ -1599,13 +1599,13 @@ lab_endgetargs:; ; { - MELT_LOCATION("warmelt-first.melt:2032:/ locexp"); + MELT_LOCATION("warmelt-first.melt:2039:/ locexp"); warning (0, "MELT WARNING MSG [#%ld]::: %s - %s", melt_dbgcounter, ( "clone_symbol got invalid argument of discriminant"), melt_string_str((melt_ptr_t)(/*_.DISCRINAM__V10*/ meltfptr[9])));} ; { - MELT_LOCATION("warmelt-first.melt:2034:/ locexp"); + MELT_LOCATION("warmelt-first.melt:2041:/ locexp"); #if ENABLE_CHECKING if (flag_melt_debug) @@ -1615,13 +1615,13 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-first.melt:2035:/ cppif.then"); + MELT_LOCATION("warmelt-first.melt:2042:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L3*/ meltfnum[2] = meltcallcount;; - MELT_LOCATION("warmelt-first.melt:2035:/ apply"); + MELT_LOCATION("warmelt-first.melt:2042:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -1632,14 +1632,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].bp_cstring = "warmelt-first.melt"; /*^apply.arg*/ - argtab[3].bp_long = 2035; + argtab[3].bp_long = 2042; /*_.DEBUG_MSG_FUN__V12*/ meltfptr[11] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.SYMB__V2*/ meltfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V11*/ meltfptr[10] = /*_.DEBUG_MSG_FUN__V12*/ meltfptr[11];; /*epilog*/ - MELT_LOCATION("warmelt-first.melt:2035:/ clear"); + MELT_LOCATION("warmelt-first.melt:2042:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L3*/ meltfnum[2] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V12*/ meltfptr[11] = 0 ;} @@ -1649,14 +1649,14 @@ lab_endgetargs:; /*_.IFCPP___V11*/ meltfptr[10] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-first.melt:2036:/ quasiblock"); + MELT_LOCATION("warmelt-first.melt:2043:/ quasiblock"); /*_?*/ meltfram__.loc_CSTRING__o0 = (char*)0;; { - MELT_LOCATION("warmelt-first.melt:2039:/ locexp"); + MELT_LOCATION("warmelt-first.melt:2046:/ locexp"); static char clonambuf[100]; const char *s = melt_string_str (/*_.DISCRINAM__V10*/ meltfptr[9]); @@ -1675,13 +1675,13 @@ lab_endgetargs:; /*_.LET___V13*/ meltfptr[11] = /*_.MAKE_STRINGCONST__V14*/ meltfptr[13];; - MELT_LOCATION("warmelt-first.melt:2036:/ clear"); + MELT_LOCATION("warmelt-first.melt:2043:/ clear"); /*clear*/ /*_?*/ meltfram__.loc_CSTRING__o0 = 0 ; /*^clear*/ /*clear*/ /*_.MAKE_STRINGCONST__V14*/ meltfptr[13] = 0 ; /*_.LET___V8*/ meltfptr[6] = /*_.LET___V13*/ meltfptr[11];; - MELT_LOCATION("warmelt-first.melt:2030:/ clear"); + MELT_LOCATION("warmelt-first.melt:2037:/ clear"); /*clear*/ /*_.DISCRIM__V9*/ meltfptr[8] = 0 ; /*^clear*/ /*clear*/ /*_.DISCRINAM__V10*/ meltfptr[9] = 0 ; @@ -1689,7 +1689,7 @@ lab_endgetargs:; /*clear*/ /*_.IFCPP___V11*/ meltfptr[10] = 0 ; /*^clear*/ /*clear*/ /*_.LET___V13*/ meltfptr[11] = 0 ; - MELT_LOCATION("warmelt-first.melt:2029:/ quasiblock"); + MELT_LOCATION("warmelt-first.melt:2036:/ quasiblock"); /*_.PROGN___V15*/ meltfptr[13] = /*_.LET___V8*/ meltfptr[6];; @@ -1698,7 +1698,7 @@ lab_endgetargs:; /*_.IFELSE___V6*/ meltfptr[5] = /*_.PROGN___V15*/ meltfptr[13];; /*epilog*/ - MELT_LOCATION("warmelt-first.melt:2027:/ clear"); + MELT_LOCATION("warmelt-first.melt:2034:/ clear"); /*clear*/ /*_.LET___V8*/ meltfptr[6] = 0 ; /*^clear*/ /*clear*/ /*_.PROGN___V15*/ meltfptr[13] = 0 ;} @@ -1708,7 +1708,7 @@ lab_endgetargs:; /*_.SYNAM__V5*/ meltfptr[4] = /*_.IFELSE___V6*/ meltfptr[5];; /*epilog*/ - MELT_LOCATION("warmelt-first.melt:2025:/ clear"); + MELT_LOCATION("warmelt-first.melt:2032:/ clear"); /*clear*/ /*_#IS_A__L2*/ meltfnum[1] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V6*/ meltfptr[5] = 0 ;} @@ -1719,17 +1719,17 @@ lab_endgetargs:; (melt_get_mapstrings((struct meltmapstrings_st*)(/*_.MAPSTR__V4*/ meltfptr[3]), melt_string_str((melt_ptr_t)(/*_.SYNAM__V5*/ meltfptr[4]))));; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-first.melt:2055:/ cppif.then"); + MELT_LOCATION("warmelt-first.melt:2062:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_STRING__L4*/ meltfnum[2] = (melt_magic_discr((melt_ptr_t)(/*_.SYNAM__V5*/ meltfptr[4])) == OBMAG_STRING);; - MELT_LOCATION("warmelt-first.melt:2055:/ cond"); + MELT_LOCATION("warmelt-first.melt:2062:/ cond"); /*cond*/ if (/*_#IS_STRING__L4*/ meltfnum[2]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V18*/ meltfptr[10] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-first.melt:2055:/ cond.else"); + } else {MELT_LOCATION("warmelt-first.melt:2062:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -1740,7 +1740,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check synam"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__, - (2055)?(2055):__LINE__, __FUNCTION__); + (2062)?(2062):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V18*/ meltfptr[10] = 0 ; @@ -1754,7 +1754,7 @@ lab_endgetargs:; /*_.IFCPP___V17*/ meltfptr[9] = /*_.IFELSE___V18*/ meltfptr[10];; /*epilog*/ - MELT_LOCATION("warmelt-first.melt:2055:/ clear"); + MELT_LOCATION("warmelt-first.melt:2062:/ clear"); /*clear*/ /*_#IS_STRING__L4*/ meltfnum[2] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V18*/ meltfptr[10] = 0 ;} @@ -1772,7 +1772,7 @@ lab_endgetargs:; /*_#NOT__L6*/ meltfnum[2] = (!(/*_#IS_INTEGERBOX__L5*/ meltfnum[1]));; - MELT_LOCATION("warmelt-first.melt:2056:/ cond"); + MELT_LOCATION("warmelt-first.melt:2063:/ cond"); /*cond*/ if (/*_#NOT__L6*/ meltfnum[2]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -1780,26 +1780,26 @@ lab_endgetargs:; /*_.MAKE_INTEGERBOX__V19*/ meltfptr[11] = (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ meltfrout->tabval[4])), (0)));; - MELT_LOCATION("warmelt-first.melt:2058:/ compute"); + MELT_LOCATION("warmelt-first.melt:2065:/ compute"); /*_.BOXI__V16*/ meltfptr[8] = /*_.SETQ___V20*/ meltfptr[6] = /*_.MAKE_INTEGERBOX__V19*/ meltfptr[11];; { - MELT_LOCATION("warmelt-first.melt:2059:/ locexp"); + MELT_LOCATION("warmelt-first.melt:2066:/ locexp"); meltgc_put_mapstrings((struct meltmapstrings_st *) (/*_.MAPSTR__V4*/ meltfptr[3]), melt_string_str((melt_ptr_t)(/*_.SYNAM__V5*/ meltfptr[4])), (melt_ptr_t)(/*_.BOXI__V16*/ meltfptr[8]));} ; - MELT_LOCATION("warmelt-first.melt:2057:/ quasiblock"); + MELT_LOCATION("warmelt-first.melt:2064:/ quasiblock"); /*epilog*/ - MELT_LOCATION("warmelt-first.melt:2056:/ clear"); + MELT_LOCATION("warmelt-first.melt:2063:/ clear"); /*clear*/ /*_.MAKE_INTEGERBOX__V19*/ meltfptr[11] = 0 ; /*^clear*/ /*clear*/ /*_.SETQ___V20*/ meltfptr[6] = 0 ;} ; } /*noelse*/ ; - MELT_LOCATION("warmelt-first.melt:2060:/ quasiblock"); + MELT_LOCATION("warmelt-first.melt:2067:/ quasiblock"); /*_#I__L7*/ meltfnum[6] = @@ -1808,16 +1808,16 @@ lab_endgetargs:; /*_#I__L8*/ meltfnum[7] = ((/*_#I__L7*/ meltfnum[6]) + (1));; - MELT_LOCATION("warmelt-first.melt:2061:/ compute"); + MELT_LOCATION("warmelt-first.melt:2068:/ compute"); /*_#I__L7*/ meltfnum[6] = /*_#SETQ___L9*/ meltfnum[8] = /*_#I__L8*/ meltfnum[7];; { - MELT_LOCATION("warmelt-first.melt:2062:/ locexp"); + MELT_LOCATION("warmelt-first.melt:2069:/ locexp"); melt_put_int((melt_ptr_t)(/*_.BOXI__V16*/ meltfptr[8]), (/*_#I__L7*/ meltfnum[6]));} ; /*_.MAKE_INTEGERBOX__V22*/ meltfptr[5] = (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ meltfrout->tabval[4])), (/*_#I__L7*/ meltfnum[6])));; - MELT_LOCATION("warmelt-first.melt:2063:/ quasiblock"); + MELT_LOCATION("warmelt-first.melt:2070:/ quasiblock"); /*^rawallocobj*/ @@ -1840,7 +1840,7 @@ lab_endgetargs:; /*_.LET___V21*/ meltfptr[13] = /*_.INST___V23*/ meltfptr[10];; - MELT_LOCATION("warmelt-first.melt:2060:/ clear"); + MELT_LOCATION("warmelt-first.melt:2067:/ clear"); /*clear*/ /*_#I__L7*/ meltfnum[6] = 0 ; /*^clear*/ /*clear*/ /*_#I__L8*/ meltfnum[7] = 0 ; @@ -1852,7 +1852,7 @@ lab_endgetargs:; /*clear*/ /*_.INST___V23*/ meltfptr[10] = 0 ; /*_.LET___V3*/ meltfptr[2] = /*_.LET___V21*/ meltfptr[13];; - MELT_LOCATION("warmelt-first.melt:2022:/ clear"); + MELT_LOCATION("warmelt-first.melt:2029:/ clear"); /*clear*/ /*_.MAPSTR__V4*/ meltfptr[3] = 0 ; /*^clear*/ /*clear*/ /*_#IS_STRING__L1*/ meltfnum[0] = 0 ; @@ -1868,11 +1868,11 @@ lab_endgetargs:; /*clear*/ /*_#NOT__L6*/ meltfnum[2] = 0 ; /*^clear*/ /*clear*/ /*_.LET___V21*/ meltfptr[13] = 0 ; - MELT_LOCATION("warmelt-first.melt:2020:/ quasiblock"); + MELT_LOCATION("warmelt-first.melt:2027:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V3*/ meltfptr[2];; - MELT_LOCATION("warmelt-first.melt:2020:/ finalreturn"); + MELT_LOCATION("warmelt-first.melt:2027:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*epilog*/ @@ -1943,7 +1943,7 @@ melt_trace_start("INITFRESH_CONTENVMAKER", meltcallcount); /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-first.melt:2072:/ getarg"); + MELT_LOCATION("warmelt-first.melt:2079:/ getarg"); /*_.PREVENV__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; /*getarg#1*/ @@ -1959,7 +1959,7 @@ lab_endgetargs:; /*_#NEED_DBG__L1*/ meltfnum[0] = (flag_melt_debug && melt_dbgcounter>=melt_debugskipcount && (0)>=0 && (0) <= MELTDBG_MAXDEPTH);; - MELT_LOCATION("warmelt-first.melt:2073:/ cond"); + MELT_LOCATION("warmelt-first.melt:2080:/ cond"); /*cond*/ if (/*_#NEED_DBG__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -1967,7 +1967,7 @@ lab_endgetargs:; { - MELT_LOCATION("warmelt-first.melt:2074:/ locexp"); + MELT_LOCATION("warmelt-first.melt:2081:/ locexp"); #if ENABLE_CHECKING if (flag_melt_debug) @@ -1980,10 +1980,10 @@ lab_endgetargs:; ; } /*noelse*/ ; - MELT_LOCATION("warmelt-first.melt:2075:/ quasiblock"); + MELT_LOCATION("warmelt-first.melt:2082:/ quasiblock"); - MELT_LOCATION("warmelt-first.melt:2076:/ cond"); + MELT_LOCATION("warmelt-first.melt:2083:/ cond"); /*cond*/ if (/*_?*/ meltfram__.loc_CSTRING__o0) /*then*/ { /*^cond.then*/ /*^block*/ @@ -1996,7 +1996,7 @@ lab_endgetargs:; /*_.DESCR__V4*/ meltfptr[3] = /*_.MAKE_STRINGCONST__V5*/ meltfptr[4];; /*epilog*/ - MELT_LOCATION("warmelt-first.melt:2076:/ clear"); + MELT_LOCATION("warmelt-first.melt:2083:/ clear"); /*clear*/ /*_.MAKE_STRINGCONST__V5*/ meltfptr[4] = 0 ;} ; } else {/*^cond.else*/ @@ -2004,7 +2004,7 @@ lab_endgetargs:; /*_.DESCR__V4*/ meltfptr[3] = NULL;; } ; - MELT_LOCATION("warmelt-first.melt:2077:/ apply"); + MELT_LOCATION("warmelt-first.melt:2084:/ apply"); /*apply*/{ union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); @@ -2013,7 +2013,7 @@ lab_endgetargs:; /*_.NEWENV__V6*/ meltfptr[4] = melt_apply ((meltclosure_ptr_t)((/*!FRESH_ENV*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.PREVENV__V2*/ meltfptr[1]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - MELT_LOCATION("warmelt-first.melt:2078:/ quasiblock"); + MELT_LOCATION("warmelt-first.melt:2085:/ quasiblock"); /*^rawallocobj*/ @@ -2027,16 +2027,16 @@ lab_endgetargs:; melt_putfield_object((/*_.INST__V8*/ meltfptr[7]), (0), (/*_.NEWENV__V6*/ meltfptr[4]), "CONTAINER_VALUE"); ; /*_.NEWCONT__V7*/ meltfptr[6] = /*_.INST__V8*/ meltfptr[7];; - MELT_LOCATION("warmelt-first.melt:2082:/ quasiblock"); + MELT_LOCATION("warmelt-first.melt:2089:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.NEWCONT__V7*/ meltfptr[6];; - MELT_LOCATION("warmelt-first.melt:2082:/ finalreturn"); + MELT_LOCATION("warmelt-first.melt:2089:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*_.LET___V3*/ meltfptr[2] = /*_.RETURN___V9*/ meltfptr[8];; - MELT_LOCATION("warmelt-first.melt:2075:/ clear"); + MELT_LOCATION("warmelt-first.melt:2082:/ clear"); /*clear*/ /*_.DESCR__V4*/ meltfptr[3] = 0 ; /*^clear*/ /*clear*/ /*_.NEWENV__V6*/ meltfptr[4] = 0 ; @@ -2044,11 +2044,11 @@ lab_endgetargs:; /*clear*/ /*_.NEWCONT__V7*/ meltfptr[6] = 0 ; /*^clear*/ /*clear*/ /*_.RETURN___V9*/ meltfptr[8] = 0 ; - MELT_LOCATION("warmelt-first.melt:2072:/ quasiblock"); + MELT_LOCATION("warmelt-first.melt:2079:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V3*/ meltfptr[2];; - MELT_LOCATION("warmelt-first.melt:2072:/ finalreturn"); + MELT_LOCATION("warmelt-first.melt:2079:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*epilog*/ @@ -2120,7 +2120,7 @@ melt_trace_start("INITVALUE_EXPORTER", meltcallcount); /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-first.melt:2086:/ getarg"); + MELT_LOCATION("warmelt-first.melt:2093:/ getarg"); /*_.SYM__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; /*getarg#1*/ @@ -2143,7 +2143,7 @@ lab_endgetargs:; /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-first.melt:2092:/ quasiblock"); + MELT_LOCATION("warmelt-first.melt:2099:/ quasiblock"); /*_.PARENV__V6*/ meltfptr[5] = (/*!konst_0*/ meltfrout->tabval[0]);; @@ -2151,19 +2151,19 @@ lab_endgetargs:; /*_#NULL__L1*/ meltfnum[0] = ((/*_.CONTENV__V4*/ meltfptr[3]) == NULL);; - MELT_LOCATION("warmelt-first.melt:2093:/ cond"); + MELT_LOCATION("warmelt-first.melt:2100:/ cond"); /*cond*/ if (/*_#NULL__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-first.melt:2095:/ cond"); + MELT_LOCATION("warmelt-first.melt:2102:/ cond"); /*cond*/ if (/*_.PARENV__V6*/ meltfptr[5]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-first.melt:2096:/ getslot"); + MELT_LOCATION("warmelt-first.melt:2103:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.SYM__V2*/ meltfptr[1]), 1, "NAMED_NAME");/*_.NAMED_NAME__V8*/ meltfptr[7] = slot; }; ; @@ -2175,19 +2175,19 @@ lab_endgetargs:; ; /*epilog*/ - MELT_LOCATION("warmelt-first.melt:2095:/ clear"); + MELT_LOCATION("warmelt-first.melt:2102:/ clear"); /*clear*/ /*_.NAMED_NAME__V8*/ meltfptr[7] = 0 ;} ; } /*noelse*/ ; - MELT_LOCATION("warmelt-first.melt:2097:/ quasiblock"); + MELT_LOCATION("warmelt-first.melt:2104:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = NULL;; - MELT_LOCATION("warmelt-first.melt:2097:/ finalreturn"); + MELT_LOCATION("warmelt-first.melt:2104:/ finalreturn"); ; /*finalret*/ goto labend_rout ; - MELT_LOCATION("warmelt-first.melt:2094:/ quasiblock"); + MELT_LOCATION("warmelt-first.melt:2101:/ quasiblock"); /*_.PROGN___V10*/ meltfptr[9] = /*_.RETURN___V9*/ meltfptr[7];; @@ -2196,7 +2196,7 @@ lab_endgetargs:; /*_.IF___V7*/ meltfptr[6] = /*_.PROGN___V10*/ meltfptr[9];; /*epilog*/ - MELT_LOCATION("warmelt-first.melt:2093:/ clear"); + MELT_LOCATION("warmelt-first.melt:2100:/ clear"); /*clear*/ /*_.RETURN___V9*/ meltfptr[7] = 0 ; /*^clear*/ /*clear*/ /*_.PROGN___V10*/ meltfptr[9] = 0 ;} @@ -2208,17 +2208,17 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-first.melt:2099:/ cppif.then"); + MELT_LOCATION("warmelt-first.melt:2106:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L2*/ meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.SYM__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ meltfrout->tabval[1])));; - MELT_LOCATION("warmelt-first.melt:2099:/ cond"); + MELT_LOCATION("warmelt-first.melt:2106:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V12*/ meltfptr[9] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-first.melt:2099:/ cond.else"); + } else {MELT_LOCATION("warmelt-first.melt:2106:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -2229,7 +2229,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check sym"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__, - (2099)?(2099):__LINE__, __FUNCTION__); + (2106)?(2106):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V12*/ meltfptr[9] = 0 ; @@ -2243,7 +2243,7 @@ lab_endgetargs:; /*_.IFCPP___V11*/ meltfptr[7] = /*_.IFELSE___V12*/ meltfptr[9];; /*epilog*/ - MELT_LOCATION("warmelt-first.melt:2099:/ clear"); + MELT_LOCATION("warmelt-first.melt:2106:/ clear"); /*clear*/ /*_#IS_A__L2*/ meltfnum[1] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V12*/ meltfptr[9] = 0 ;} @@ -2255,17 +2255,17 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-first.melt:2100:/ cppif.then"); + MELT_LOCATION("warmelt-first.melt:2107:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L3*/ meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.CONTENV__V4*/ meltfptr[3]), (melt_ptr_t)((/*!CLASS_CONTAINER*/ meltfrout->tabval[2])));; - MELT_LOCATION("warmelt-first.melt:2100:/ cond"); + MELT_LOCATION("warmelt-first.melt:2107:/ cond"); /*cond*/ if (/*_#IS_A__L3*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V14*/ meltfptr[13] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-first.melt:2100:/ cond.else"); + } else {MELT_LOCATION("warmelt-first.melt:2107:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -2276,7 +2276,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check contenv"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__, - (2100)?(2100):__LINE__, __FUNCTION__); + (2107)?(2107):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V14*/ meltfptr[13] = 0 ; @@ -2290,7 +2290,7 @@ lab_endgetargs:; /*_.IFCPP___V13*/ meltfptr[9] = /*_.IFELSE___V14*/ meltfptr[13];; /*epilog*/ - MELT_LOCATION("warmelt-first.melt:2100:/ clear"); + MELT_LOCATION("warmelt-first.melt:2107:/ clear"); /*clear*/ /*_#IS_A__L3*/ meltfnum[1] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V14*/ meltfptr[13] = 0 ;} @@ -2300,7 +2300,7 @@ lab_endgetargs:; /*_.IFCPP___V13*/ meltfptr[9] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-first.melt:2101:/ quasiblock"); + MELT_LOCATION("warmelt-first.melt:2108:/ quasiblock"); /*^getslot*/ @@ -2309,22 +2309,22 @@ lab_endgetargs:; ; /*_#NULL__L4*/ meltfnum[1] = ((/*_.ENV__V16*/ meltfptr[15]) == NULL);; - MELT_LOCATION("warmelt-first.melt:2102:/ cond"); + MELT_LOCATION("warmelt-first.melt:2109:/ cond"); /*cond*/ if (/*_#NULL__L4*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_.IF___V17*/ meltfptr[16] = /*_.PARENV__V6*/ meltfptr[5];; - } else {MELT_LOCATION("warmelt-first.melt:2102:/ cond.else"); + } else {MELT_LOCATION("warmelt-first.melt:2109:/ cond.else"); /*_.IF___V17*/ meltfptr[16] = NULL;; } ; - MELT_LOCATION("warmelt-first.melt:2102:/ cond"); + MELT_LOCATION("warmelt-first.melt:2109:/ cond"); /*cond*/ if (/*_.IF___V17*/ meltfptr[16]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-first.melt:2104:/ getslot"); + MELT_LOCATION("warmelt-first.melt:2111:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.SYM__V2*/ meltfptr[1]), 1, "NAMED_NAME");/*_.NAMED_NAME__V19*/ meltfptr[18] = slot; }; ; @@ -2334,14 +2334,14 @@ lab_endgetargs:; inform(UNKNOWN_LOCATION, ("MELT INFORM [#%ld]: %s - %s"), melt_dbgcounter, ( "exporting value too early with null environment"), melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V19*/ meltfptr[18])));} ; - MELT_LOCATION("warmelt-first.melt:2105:/ quasiblock"); + MELT_LOCATION("warmelt-first.melt:2112:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = NULL;; - MELT_LOCATION("warmelt-first.melt:2105:/ finalreturn"); + MELT_LOCATION("warmelt-first.melt:2112:/ finalreturn"); ; /*finalret*/ goto labend_rout ; - MELT_LOCATION("warmelt-first.melt:2103:/ quasiblock"); + MELT_LOCATION("warmelt-first.melt:2110:/ quasiblock"); /*_.PROGN___V21*/ meltfptr[20] = /*_.RETURN___V20*/ meltfptr[19];; @@ -2350,7 +2350,7 @@ lab_endgetargs:; /*_.IF___V18*/ meltfptr[17] = /*_.PROGN___V21*/ meltfptr[20];; /*epilog*/ - MELT_LOCATION("warmelt-first.melt:2102:/ clear"); + MELT_LOCATION("warmelt-first.melt:2109:/ clear"); /*clear*/ /*_.NAMED_NAME__V19*/ meltfptr[18] = 0 ; /*^clear*/ /*clear*/ /*_.RETURN___V20*/ meltfptr[19] = 0 ; @@ -2364,17 +2364,17 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-first.melt:2107:/ cppif.then"); + MELT_LOCATION("warmelt-first.melt:2114:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L5*/ meltfnum[4] = melt_is_instance_of((melt_ptr_t)(/*_.ENV__V16*/ meltfptr[15]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ meltfrout->tabval[3])));; - MELT_LOCATION("warmelt-first.melt:2107:/ cond"); + MELT_LOCATION("warmelt-first.melt:2114:/ cond"); /*cond*/ if (/*_#IS_A__L5*/ meltfnum[4]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V23*/ meltfptr[19] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-first.melt:2107:/ cond.else"); + } else {MELT_LOCATION("warmelt-first.melt:2114:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -2385,7 +2385,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check good env"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__, - (2107)?(2107):__LINE__, __FUNCTION__); + (2114)?(2114):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V23*/ meltfptr[19] = 0 ; @@ -2399,7 +2399,7 @@ lab_endgetargs:; /*_.IFCPP___V22*/ meltfptr[18] = /*_.IFELSE___V23*/ meltfptr[19];; /*epilog*/ - MELT_LOCATION("warmelt-first.melt:2107:/ clear"); + MELT_LOCATION("warmelt-first.melt:2114:/ clear"); /*clear*/ /*_#IS_A__L5*/ meltfnum[4] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V23*/ meltfptr[19] = 0 ;} @@ -2409,10 +2409,10 @@ lab_endgetargs:; /*_.IFCPP___V22*/ meltfptr[18] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-first.melt:2108:/ quasiblock"); + MELT_LOCATION("warmelt-first.melt:2115:/ quasiblock"); - MELT_LOCATION("warmelt-first.melt:2109:/ cond"); + MELT_LOCATION("warmelt-first.melt:2116:/ cond"); /*cond*/ if (/*_.PARENV__V6*/ meltfptr[5]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -2430,7 +2430,7 @@ lab_endgetargs:; /*_.PREVBIND__V25*/ meltfptr[19] = /*_.FIND_ENV__V26*/ meltfptr[25];; /*epilog*/ - MELT_LOCATION("warmelt-first.melt:2109:/ clear"); + MELT_LOCATION("warmelt-first.melt:2116:/ clear"); /*clear*/ /*_.FIND_ENV__V26*/ meltfptr[25] = 0 ;} ; } else {/*^cond.else*/ @@ -2438,7 +2438,7 @@ lab_endgetargs:; /*_.PREVBIND__V25*/ meltfptr[19] = NULL;; } ; - MELT_LOCATION("warmelt-first.melt:2110:/ quasiblock"); + MELT_LOCATION("warmelt-first.melt:2117:/ quasiblock"); /*^rawallocobj*/ @@ -2457,24 +2457,24 @@ lab_endgetargs:; melt_putfield_object((/*_.INST__V28*/ meltfptr[27]), (1), (/*_.VAL__V3*/ meltfptr[2]), "VBIND_VALUE"); ; /*_.VALBIND__V27*/ meltfptr[25] = /*_.INST__V28*/ meltfptr[27];; - MELT_LOCATION("warmelt-first.melt:2115:/ getslot"); + MELT_LOCATION("warmelt-first.melt:2122:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.SYM__V2*/ meltfptr[1]), 1, "NAMED_NAME");/*_.SYMNAM__V29*/ meltfptr[28] = slot; }; ; /*_#NULL__L6*/ meltfnum[4] = ((/*_.PREVBIND__V25*/ meltfptr[19]) == NULL);; - MELT_LOCATION("warmelt-first.melt:2118:/ cond"); + MELT_LOCATION("warmelt-first.melt:2125:/ cond"); /*cond*/ if (/*_#NULL__L6*/ meltfnum[4]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V30*/ meltfptr[29] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-first.melt:2118:/ cond.else"); + } else {MELT_LOCATION("warmelt-first.melt:2125:/ cond.else"); /*^block*/ /*anyblock*/{ /*_#IS_A__L7*/ meltfnum[6] = melt_is_instance_of((melt_ptr_t)(/*_.PREVBIND__V25*/ meltfptr[19]), (melt_ptr_t)((/*!CLASS_SELECTOR_BINDING*/ meltfrout->tabval[6])));; - MELT_LOCATION("warmelt-first.melt:2119:/ cond"); + MELT_LOCATION("warmelt-first.melt:2126:/ cond"); /*cond*/ if (/*_#IS_A__L7*/ meltfnum[6]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -2487,7 +2487,7 @@ lab_endgetargs:; /*_#IF___L8*/ meltfnum[7] = /*_#IS_A__L9*/ meltfnum[8];; /*epilog*/ - MELT_LOCATION("warmelt-first.melt:2119:/ clear"); + MELT_LOCATION("warmelt-first.melt:2126:/ clear"); /*clear*/ /*_#IS_A__L9*/ meltfnum[8] = 0 ;} ; } else {/*^cond.else*/ @@ -2495,7 +2495,7 @@ lab_endgetargs:; /*_#IF___L8*/ meltfnum[7] = 0;; } ; - MELT_LOCATION("warmelt-first.melt:2119:/ cond"); + MELT_LOCATION("warmelt-first.melt:2126:/ cond"); /*cond*/ if (/*_#IF___L8*/ meltfnum[7]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -2503,18 +2503,18 @@ lab_endgetargs:; { - MELT_LOCATION("warmelt-first.melt:2122:/ locexp"); + MELT_LOCATION("warmelt-first.melt:2129:/ locexp"); warning (0, "MELT WARNING MSG [#%ld]::: %s - %s", melt_dbgcounter, ( "not exporting previous bound selector"), melt_string_str((melt_ptr_t)(/*_.SYMNAM__V29*/ meltfptr[28])));} ; - MELT_LOCATION("warmelt-first.melt:2123:/ quasiblock"); + MELT_LOCATION("warmelt-first.melt:2130:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = NULL;; - MELT_LOCATION("warmelt-first.melt:2123:/ finalreturn"); + MELT_LOCATION("warmelt-first.melt:2130:/ finalreturn"); ; /*finalret*/ goto labend_rout ; - MELT_LOCATION("warmelt-first.melt:2119:/ quasiblock"); + MELT_LOCATION("warmelt-first.melt:2126:/ quasiblock"); /*_.PROGN___V33*/ meltfptr[32] = /*_.RETURN___V32*/ meltfptr[31];; @@ -2523,7 +2523,7 @@ lab_endgetargs:; /*_.IFELSE___V31*/ meltfptr[30] = /*_.PROGN___V33*/ meltfptr[32];; /*epilog*/ - MELT_LOCATION("warmelt-first.melt:2119:/ clear"); + MELT_LOCATION("warmelt-first.melt:2126:/ clear"); /*clear*/ /*_.RETURN___V32*/ meltfptr[31] = 0 ; /*^clear*/ /*clear*/ /*_.PROGN___V33*/ meltfptr[32] = 0 ;} @@ -2535,7 +2535,7 @@ lab_endgetargs:; /*_#IS_A__L10*/ meltfnum[8] = melt_is_instance_of((melt_ptr_t)(/*_.PREVBIND__V25*/ meltfptr[19]), (melt_ptr_t)((/*!CLASS_INSTANCE_BINDING*/ meltfrout->tabval[8])));; - MELT_LOCATION("warmelt-first.melt:2124:/ cond"); + MELT_LOCATION("warmelt-first.melt:2131:/ cond"); /*cond*/ if (/*_#IS_A__L10*/ meltfnum[8]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -2548,7 +2548,7 @@ lab_endgetargs:; /*_#IF___L11*/ meltfnum[10] = /*_#IS_OBJECT__L12*/ meltfnum[11];; /*epilog*/ - MELT_LOCATION("warmelt-first.melt:2124:/ clear"); + MELT_LOCATION("warmelt-first.melt:2131:/ clear"); /*clear*/ /*_#IS_OBJECT__L12*/ meltfnum[11] = 0 ;} ; } else {/*^cond.else*/ @@ -2556,7 +2556,7 @@ lab_endgetargs:; /*_#IF___L11*/ meltfnum[10] = 0;; } ; - MELT_LOCATION("warmelt-first.melt:2124:/ cond"); + MELT_LOCATION("warmelt-first.melt:2131:/ cond"); /*cond*/ if (/*_#IF___L11*/ meltfnum[10]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -2564,18 +2564,18 @@ lab_endgetargs:; { - MELT_LOCATION("warmelt-first.melt:2127:/ locexp"); + MELT_LOCATION("warmelt-first.melt:2134:/ locexp"); warning (0, "MELT WARNING MSG [#%ld]::: %s - %s", melt_dbgcounter, ( "not exporting previous bound instance"), melt_string_str((melt_ptr_t)(/*_.SYMNAM__V29*/ meltfptr[28])));} ; - MELT_LOCATION("warmelt-first.melt:2128:/ quasiblock"); + MELT_LOCATION("warmelt-first.melt:2135:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = NULL;; - MELT_LOCATION("warmelt-first.melt:2128:/ finalreturn"); + MELT_LOCATION("warmelt-first.melt:2135:/ finalreturn"); ; /*finalret*/ goto labend_rout ; - MELT_LOCATION("warmelt-first.melt:2124:/ quasiblock"); + MELT_LOCATION("warmelt-first.melt:2131:/ quasiblock"); /*_.PROGN___V36*/ meltfptr[35] = /*_.RETURN___V35*/ meltfptr[32];; @@ -2584,7 +2584,7 @@ lab_endgetargs:; /*_.IFELSE___V34*/ meltfptr[31] = /*_.PROGN___V36*/ meltfptr[35];; /*epilog*/ - MELT_LOCATION("warmelt-first.melt:2124:/ clear"); + MELT_LOCATION("warmelt-first.melt:2131:/ clear"); /*clear*/ /*_.RETURN___V35*/ meltfptr[32] = 0 ; /*^clear*/ /*clear*/ /*_.PROGN___V36*/ meltfptr[35] = 0 ;} @@ -2596,7 +2596,7 @@ lab_endgetargs:; /*_#IS_A__L13*/ meltfnum[11] = melt_is_instance_of((melt_ptr_t)(/*_.PREVBIND__V25*/ meltfptr[19]), (melt_ptr_t)((/*!CLASS_PRIMITIVE_BINDING*/ meltfrout->tabval[9])));; - MELT_LOCATION("warmelt-first.melt:2129:/ cond"); + MELT_LOCATION("warmelt-first.melt:2136:/ cond"); /*cond*/ if (/*_#IS_A__L13*/ meltfnum[11]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -2609,7 +2609,7 @@ lab_endgetargs:; /*_#IF___L14*/ meltfnum[13] = /*_#IS_A__L15*/ meltfnum[14];; /*epilog*/ - MELT_LOCATION("warmelt-first.melt:2129:/ clear"); + MELT_LOCATION("warmelt-first.melt:2136:/ clear"); /*clear*/ /*_#IS_A__L15*/ meltfnum[14] = 0 ;} ; } else {/*^cond.else*/ @@ -2617,7 +2617,7 @@ lab_endgetargs:; /*_#IF___L14*/ meltfnum[13] = 0;; } ; - MELT_LOCATION("warmelt-first.melt:2129:/ cond"); + MELT_LOCATION("warmelt-first.melt:2136:/ cond"); /*cond*/ if (/*_#IF___L14*/ meltfnum[13]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -2625,18 +2625,18 @@ lab_endgetargs:; { - MELT_LOCATION("warmelt-first.melt:2132:/ locexp"); + MELT_LOCATION("warmelt-first.melt:2139:/ locexp"); warning (0, "MELT WARNING MSG [#%ld]::: %s - %s", melt_dbgcounter, ( "not exporting previous bound primitive"), melt_string_str((melt_ptr_t)(/*_.SYMNAM__V29*/ meltfptr[28])));} ; - MELT_LOCATION("warmelt-first.melt:2133:/ quasiblock"); + MELT_LOCATION("warmelt-first.melt:2140:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = NULL;; - MELT_LOCATION("warmelt-first.melt:2133:/ finalreturn"); + MELT_LOCATION("warmelt-first.melt:2140:/ finalreturn"); ; /*finalret*/ goto labend_rout ; - MELT_LOCATION("warmelt-first.melt:2129:/ quasiblock"); + MELT_LOCATION("warmelt-first.melt:2136:/ quasiblock"); /*_.PROGN___V39*/ meltfptr[38] = /*_.RETURN___V38*/ meltfptr[35];; @@ -2645,7 +2645,7 @@ lab_endgetargs:; /*_.IFELSE___V37*/ meltfptr[32] = /*_.PROGN___V39*/ meltfptr[38];; /*epilog*/ - MELT_LOCATION("warmelt-first.melt:2129:/ clear"); + MELT_LOCATION("warmelt-first.melt:2136:/ clear"); /*clear*/ /*_.RETURN___V38*/ meltfptr[35] = 0 ; /*^clear*/ /*clear*/ /*_.PROGN___V39*/ meltfptr[38] = 0 ;} @@ -2657,7 +2657,7 @@ lab_endgetargs:; /*_#IS_A__L16*/ meltfnum[14] = melt_is_instance_of((melt_ptr_t)(/*_.PREVBIND__V25*/ meltfptr[19]), (melt_ptr_t)((/*!CLASS_FUNCTION_BINDING*/ meltfrout->tabval[11])));; - MELT_LOCATION("warmelt-first.melt:2134:/ cond"); + MELT_LOCATION("warmelt-first.melt:2141:/ cond"); /*cond*/ if (/*_#IS_A__L16*/ meltfnum[14]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -2670,7 +2670,7 @@ lab_endgetargs:; /*_#IF___L17*/ meltfnum[16] = /*_#IS_CLOSURE__L18*/ meltfnum[17];; /*epilog*/ - MELT_LOCATION("warmelt-first.melt:2134:/ clear"); + MELT_LOCATION("warmelt-first.melt:2141:/ clear"); /*clear*/ /*_#IS_CLOSURE__L18*/ meltfnum[17] = 0 ;} ; } else {/*^cond.else*/ @@ -2678,7 +2678,7 @@ lab_endgetargs:; /*_#IF___L17*/ meltfnum[16] = 0;; } ; - MELT_LOCATION("warmelt-first.melt:2134:/ cond"); + MELT_LOCATION("warmelt-first.melt:2141:/ cond"); /*cond*/ if (/*_#IF___L17*/ meltfnum[16]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -2686,18 +2686,18 @@ lab_endgetargs:; { - MELT_LOCATION("warmelt-first.melt:2137:/ locexp"); + MELT_LOCATION("warmelt-first.melt:2144:/ locexp"); warning (0, "MELT WARNING MSG [#%ld]::: %s - %s", melt_dbgcounter, ( "not exporting previous bound function"), melt_string_str((melt_ptr_t)(/*_.SYMNAM__V29*/ meltfptr[28])));} ; - MELT_LOCATION("warmelt-first.melt:2138:/ quasiblock"); + MELT_LOCATION("warmelt-first.melt:2145:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = NULL;; - MELT_LOCATION("warmelt-first.melt:2138:/ finalreturn"); + MELT_LOCATION("warmelt-first.melt:2145:/ finalreturn"); ; /*finalret*/ goto labend_rout ; - MELT_LOCATION("warmelt-first.melt:2134:/ quasiblock"); + MELT_LOCATION("warmelt-first.melt:2141:/ quasiblock"); /*_.PROGN___V42*/ meltfptr[41] = /*_.RETURN___V41*/ meltfptr[38];; @@ -2706,7 +2706,7 @@ lab_endgetargs:; /*_.IFELSE___V40*/ meltfptr[35] = /*_.PROGN___V42*/ meltfptr[41];; /*epilog*/ - MELT_LOCATION("warmelt-first.melt:2134:/ clear"); + MELT_LOCATION("warmelt-first.melt:2141:/ clear"); /*clear*/ /*_.RETURN___V41*/ meltfptr[38] = 0 ; /*^clear*/ /*clear*/ /*_.PROGN___V42*/ meltfptr[41] = 0 ;} @@ -2718,7 +2718,7 @@ lab_endgetargs:; /*_#IS_A__L19*/ meltfnum[17] = melt_is_instance_of((melt_ptr_t)(/*_.PREVBIND__V25*/ meltfptr[19]), (melt_ptr_t)((/*!CLASS_CLASS_BINDING*/ meltfrout->tabval[12])));; - MELT_LOCATION("warmelt-first.melt:2139:/ cond"); + MELT_LOCATION("warmelt-first.melt:2146:/ cond"); /*cond*/ if (/*_#IS_A__L19*/ meltfnum[17]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -2731,7 +2731,7 @@ lab_endgetargs:; /*_#IF___L20*/ meltfnum[19] = /*_#IS_A__L21*/ meltfnum[20];; /*epilog*/ - MELT_LOCATION("warmelt-first.melt:2139:/ clear"); + MELT_LOCATION("warmelt-first.melt:2146:/ clear"); /*clear*/ /*_#IS_A__L21*/ meltfnum[20] = 0 ;} ; } else {/*^cond.else*/ @@ -2739,7 +2739,7 @@ lab_endgetargs:; /*_#IF___L20*/ meltfnum[19] = 0;; } ; - MELT_LOCATION("warmelt-first.melt:2139:/ cond"); + MELT_LOCATION("warmelt-first.melt:2146:/ cond"); /*cond*/ if (/*_#IF___L20*/ meltfnum[19]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -2747,18 +2747,18 @@ lab_endgetargs:; { - MELT_LOCATION("warmelt-first.melt:2142:/ locexp"); + MELT_LOCATION("warmelt-first.melt:2149:/ locexp"); warning (0, "MELT WARNING MSG [#%ld]::: %s - %s", melt_dbgcounter, ( "not exporting previous bound class"), melt_string_str((melt_ptr_t)(/*_.SYMNAM__V29*/ meltfptr[28])));} ; - MELT_LOCATION("warmelt-first.melt:2143:/ quasiblock"); + MELT_LOCATION("warmelt-first.melt:2150:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = NULL;; - MELT_LOCATION("warmelt-first.melt:2143:/ finalreturn"); + MELT_LOCATION("warmelt-first.melt:2150:/ finalreturn"); ; /*finalret*/ goto labend_rout ; - MELT_LOCATION("warmelt-first.melt:2139:/ quasiblock"); + MELT_LOCATION("warmelt-first.melt:2146:/ quasiblock"); /*_.PROGN___V45*/ meltfptr[44] = /*_.RETURN___V44*/ meltfptr[41];; @@ -2767,7 +2767,7 @@ lab_endgetargs:; /*_.IFELSE___V43*/ meltfptr[38] = /*_.PROGN___V45*/ meltfptr[44];; /*epilog*/ - MELT_LOCATION("warmelt-first.melt:2139:/ clear"); + MELT_LOCATION("warmelt-first.melt:2146:/ clear"); /*clear*/ /*_.RETURN___V44*/ meltfptr[41] = 0 ; /*^clear*/ /*clear*/ /*_.PROGN___V45*/ meltfptr[44] = 0 ;} @@ -2779,7 +2779,7 @@ lab_endgetargs:; /*_#IS_A__L22*/ meltfnum[20] = melt_is_instance_of((melt_ptr_t)(/*_.PREVBIND__V25*/ meltfptr[19]), (melt_ptr_t)((/*!CLASS_FIELD_BINDING*/ meltfrout->tabval[14])));; - MELT_LOCATION("warmelt-first.melt:2144:/ cond"); + MELT_LOCATION("warmelt-first.melt:2151:/ cond"); /*cond*/ if (/*_#IS_A__L22*/ meltfnum[20]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -2792,7 +2792,7 @@ lab_endgetargs:; /*_#IF___L23*/ meltfnum[22] = /*_#IS_A__L24*/ meltfnum[23];; /*epilog*/ - MELT_LOCATION("warmelt-first.melt:2144:/ clear"); + MELT_LOCATION("warmelt-first.melt:2151:/ clear"); /*clear*/ /*_#IS_A__L24*/ meltfnum[23] = 0 ;} ; } else {/*^cond.else*/ @@ -2800,7 +2800,7 @@ lab_endgetargs:; /*_#IF___L23*/ meltfnum[22] = 0;; } ; - MELT_LOCATION("warmelt-first.melt:2144:/ cond"); + MELT_LOCATION("warmelt-first.melt:2151:/ cond"); /*cond*/ if (/*_#IF___L23*/ meltfnum[22]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -2808,18 +2808,18 @@ lab_endgetargs:; { - MELT_LOCATION("warmelt-first.melt:2147:/ locexp"); + MELT_LOCATION("warmelt-first.melt:2154:/ locexp"); warning (0, "MELT WARNING MSG [#%ld]::: %s - %s", melt_dbgcounter, ( "not exporting previous bound field"), melt_string_str((melt_ptr_t)(/*_.SYMNAM__V29*/ meltfptr[28])));} ; - MELT_LOCATION("warmelt-first.melt:2148:/ quasiblock"); + MELT_LOCATION("warmelt-first.melt:2155:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = NULL;; - MELT_LOCATION("warmelt-first.melt:2148:/ finalreturn"); + MELT_LOCATION("warmelt-first.melt:2155:/ finalreturn"); ; /*finalret*/ goto labend_rout ; - MELT_LOCATION("warmelt-first.melt:2144:/ quasiblock"); + MELT_LOCATION("warmelt-first.melt:2151:/ quasiblock"); /*_.PROGN___V48*/ meltfptr[47] = /*_.RETURN___V47*/ meltfptr[44];; @@ -2828,7 +2828,7 @@ lab_endgetargs:; /*_.IFELSE___V46*/ meltfptr[41] = /*_.PROGN___V48*/ meltfptr[47];; /*epilog*/ - MELT_LOCATION("warmelt-first.melt:2144:/ clear"); + MELT_LOCATION("warmelt-first.melt:2151:/ clear"); /*clear*/ /*_.RETURN___V47*/ meltfptr[44] = 0 ; /*^clear*/ /*clear*/ /*_.PROGN___V48*/ meltfptr[47] = 0 ;} @@ -2840,7 +2840,7 @@ lab_endgetargs:; /*_#IS_A__L25*/ meltfnum[23] = melt_is_instance_of((melt_ptr_t)(/*_.PREVBIND__V25*/ meltfptr[19]), (melt_ptr_t)((/*!CLASS_INSTANCE_BINDING*/ meltfrout->tabval[8])));; - MELT_LOCATION("warmelt-first.melt:2150:/ cond"); + MELT_LOCATION("warmelt-first.melt:2157:/ cond"); /*cond*/ if (/*_#IS_A__L25*/ meltfnum[23]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -2853,7 +2853,7 @@ lab_endgetargs:; /*_#IF___L26*/ meltfnum[25] = /*_#IS_OBJECT__L27*/ meltfnum[26];; /*epilog*/ - MELT_LOCATION("warmelt-first.melt:2150:/ clear"); + MELT_LOCATION("warmelt-first.melt:2157:/ clear"); /*clear*/ /*_#IS_OBJECT__L27*/ meltfnum[26] = 0 ;} ; } else {/*^cond.else*/ @@ -2861,7 +2861,7 @@ lab_endgetargs:; /*_#IF___L26*/ meltfnum[25] = 0;; } ; - MELT_LOCATION("warmelt-first.melt:2150:/ cond"); + MELT_LOCATION("warmelt-first.melt:2157:/ cond"); /*cond*/ if (/*_#IF___L26*/ meltfnum[25]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -2869,18 +2869,18 @@ lab_endgetargs:; { - MELT_LOCATION("warmelt-first.melt:2153:/ locexp"); + MELT_LOCATION("warmelt-first.melt:2160:/ locexp"); warning (0, "MELT WARNING MSG [#%ld]::: %s - %s", melt_dbgcounter, ( "not exporting previous bound instance"), melt_string_str((melt_ptr_t)(/*_.SYMNAM__V29*/ meltfptr[28])));} ; - MELT_LOCATION("warmelt-first.melt:2154:/ quasiblock"); + MELT_LOCATION("warmelt-first.melt:2161:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = NULL;; - MELT_LOCATION("warmelt-first.melt:2154:/ finalreturn"); + MELT_LOCATION("warmelt-first.melt:2161:/ finalreturn"); ; /*finalret*/ goto labend_rout ; - MELT_LOCATION("warmelt-first.melt:2150:/ quasiblock"); + MELT_LOCATION("warmelt-first.melt:2157:/ quasiblock"); /*_.PROGN___V51*/ meltfptr[50] = /*_.RETURN___V50*/ meltfptr[47];; @@ -2889,7 +2889,7 @@ lab_endgetargs:; /*_.IFELSE___V49*/ meltfptr[44] = /*_.PROGN___V51*/ meltfptr[50];; /*epilog*/ - MELT_LOCATION("warmelt-first.melt:2150:/ clear"); + MELT_LOCATION("warmelt-first.melt:2157:/ clear"); /*clear*/ /*_.RETURN___V50*/ meltfptr[47] = 0 ; /*^clear*/ /*clear*/ /*_.PROGN___V51*/ meltfptr[50] = 0 ;} @@ -2901,13 +2901,13 @@ lab_endgetargs:; /*_#IS_A__L28*/ meltfnum[26] = melt_is_instance_of((melt_ptr_t)(/*_.PREVBIND__V25*/ meltfptr[19]), (melt_ptr_t)((/*!CLASS_VALUE_BINDING*/ meltfrout->tabval[5])));; - MELT_LOCATION("warmelt-first.melt:2156:/ cond"); + MELT_LOCATION("warmelt-first.melt:2163:/ cond"); /*cond*/ if (/*_#IS_A__L28*/ meltfnum[26]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-first.melt:2157:/ quasiblock"); + MELT_LOCATION("warmelt-first.melt:2164:/ quasiblock"); /*^getslot*/ @@ -2924,7 +2924,7 @@ lab_endgetargs:; /*_#__L29*/ meltfnum[28] = ((/*_.PREVDISCR__V55*/ meltfptr[54]) == (/*_.CURDISCR__V56*/ meltfptr[55]));; - MELT_LOCATION("warmelt-first.melt:2161:/ cond"); + MELT_LOCATION("warmelt-first.melt:2168:/ cond"); /*cond*/ if (/*_#__L29*/ meltfnum[28]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -2932,28 +2932,28 @@ lab_endgetargs:; { - MELT_LOCATION("warmelt-first.melt:2163:/ locexp"); + MELT_LOCATION("warmelt-first.melt:2170:/ locexp"); warning (0, "MELT WARNING MSG [#%ld]::: %s - %s", melt_dbgcounter, ( "not exporting previous bound homogenous value"), melt_string_str((melt_ptr_t)(/*_.SYMNAM__V29*/ meltfptr[28])));} ; - MELT_LOCATION("warmelt-first.melt:2165:/ getslot"); + MELT_LOCATION("warmelt-first.melt:2172:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.PREVDISCR__V55*/ meltfptr[54]), 1, "NAMED_NAME");/*_.NAMED_NAME__V58*/ meltfptr[57] = slot; }; ; { - MELT_LOCATION("warmelt-first.melt:2164:/ locexp"); + MELT_LOCATION("warmelt-first.melt:2171:/ locexp"); warning (0, "MELT WARNING MSG [#%ld]::: %s - %s", melt_dbgcounter, ( "common value discrim"), melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V58*/ meltfptr[57])));} ; - MELT_LOCATION("warmelt-first.melt:2166:/ quasiblock"); + MELT_LOCATION("warmelt-first.melt:2173:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = NULL;; - MELT_LOCATION("warmelt-first.melt:2166:/ finalreturn"); + MELT_LOCATION("warmelt-first.melt:2173:/ finalreturn"); ; /*finalret*/ goto labend_rout ; - MELT_LOCATION("warmelt-first.melt:2162:/ quasiblock"); + MELT_LOCATION("warmelt-first.melt:2169:/ quasiblock"); /*_.PROGN___V60*/ meltfptr[59] = /*_.RETURN___V59*/ meltfptr[58];; @@ -2962,7 +2962,7 @@ lab_endgetargs:; /*_.IF___V57*/ meltfptr[56] = /*_.PROGN___V60*/ meltfptr[59];; /*epilog*/ - MELT_LOCATION("warmelt-first.melt:2161:/ clear"); + MELT_LOCATION("warmelt-first.melt:2168:/ clear"); /*clear*/ /*_.NAMED_NAME__V58*/ meltfptr[57] = 0 ; /*^clear*/ /*clear*/ /*_.RETURN___V59*/ meltfptr[58] = 0 ; @@ -2978,7 +2978,7 @@ lab_endgetargs:; /*_.LET___V53*/ meltfptr[50] = /*_.IF___V57*/ meltfptr[56];; - MELT_LOCATION("warmelt-first.melt:2157:/ clear"); + MELT_LOCATION("warmelt-first.melt:2164:/ clear"); /*clear*/ /*_.PREVAL__V54*/ meltfptr[53] = 0 ; /*^clear*/ /*clear*/ /*_.PREVDISCR__V55*/ meltfptr[54] = 0 ; @@ -2991,7 +2991,7 @@ lab_endgetargs:; /*_.IFELSE___V52*/ meltfptr[47] = /*_.LET___V53*/ meltfptr[50];; /*epilog*/ - MELT_LOCATION("warmelt-first.melt:2156:/ clear"); + MELT_LOCATION("warmelt-first.melt:2163:/ clear"); /*clear*/ /*_.LET___V53*/ meltfptr[50] = 0 ;} ; } else {/*^cond.else*/ @@ -3004,7 +3004,7 @@ lab_endgetargs:; /*_.IFELSE___V49*/ meltfptr[44] = /*_.IFELSE___V52*/ meltfptr[47];; /*epilog*/ - MELT_LOCATION("warmelt-first.melt:2150:/ clear"); + MELT_LOCATION("warmelt-first.melt:2157:/ clear"); /*clear*/ /*_#IS_A__L28*/ meltfnum[26] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V52*/ meltfptr[47] = 0 ;} @@ -3014,7 +3014,7 @@ lab_endgetargs:; /*_.IFELSE___V46*/ meltfptr[41] = /*_.IFELSE___V49*/ meltfptr[44];; /*epilog*/ - MELT_LOCATION("warmelt-first.melt:2144:/ clear"); + MELT_LOCATION("warmelt-first.melt:2151:/ clear"); /*clear*/ /*_#IS_A__L25*/ meltfnum[23] = 0 ; /*^clear*/ /*clear*/ /*_#IF___L26*/ meltfnum[25] = 0 ; @@ -3026,7 +3026,7 @@ lab_endgetargs:; /*_.IFELSE___V43*/ meltfptr[38] = /*_.IFELSE___V46*/ meltfptr[41];; /*epilog*/ - MELT_LOCATION("warmelt-first.melt:2139:/ clear"); + MELT_LOCATION("warmelt-first.melt:2146:/ clear"); /*clear*/ /*_#IS_A__L22*/ meltfnum[20] = 0 ; /*^clear*/ /*clear*/ /*_#IF___L23*/ meltfnum[22] = 0 ; @@ -3038,7 +3038,7 @@ lab_endgetargs:; /*_.IFELSE___V40*/ meltfptr[35] = /*_.IFELSE___V43*/ meltfptr[38];; /*epilog*/ - MELT_LOCATION("warmelt-first.melt:2134:/ clear"); + MELT_LOCATION("warmelt-first.melt:2141:/ clear"); /*clear*/ /*_#IS_A__L19*/ meltfnum[17] = 0 ; /*^clear*/ /*clear*/ /*_#IF___L20*/ meltfnum[19] = 0 ; @@ -3050,7 +3050,7 @@ lab_endgetargs:; /*_.IFELSE___V37*/ meltfptr[32] = /*_.IFELSE___V40*/ meltfptr[35];; /*epilog*/ - MELT_LOCATION("warmelt-first.melt:2129:/ clear"); + MELT_LOCATION("warmelt-first.melt:2136:/ clear"); /*clear*/ /*_#IS_A__L16*/ meltfnum[14] = 0 ; /*^clear*/ /*clear*/ /*_#IF___L17*/ meltfnum[16] = 0 ; @@ -3062,7 +3062,7 @@ lab_endgetargs:; /*_.IFELSE___V34*/ meltfptr[31] = /*_.IFELSE___V37*/ meltfptr[32];; /*epilog*/ - MELT_LOCATION("warmelt-first.melt:2124:/ clear"); + MELT_LOCATION("warmelt-first.melt:2131:/ clear"); /*clear*/ /*_#IS_A__L13*/ meltfnum[11] = 0 ; /*^clear*/ /*clear*/ /*_#IF___L14*/ meltfnum[13] = 0 ; @@ -3074,7 +3074,7 @@ lab_endgetargs:; /*_.IFELSE___V31*/ meltfptr[30] = /*_.IFELSE___V34*/ meltfptr[31];; /*epilog*/ - MELT_LOCATION("warmelt-first.melt:2119:/ clear"); + MELT_LOCATION("warmelt-first.melt:2126:/ clear"); /*clear*/ /*_#IS_A__L10*/ meltfnum[8] = 0 ; /*^clear*/ /*clear*/ /*_#IF___L11*/ meltfnum[10] = 0 ; @@ -3086,7 +3086,7 @@ lab_endgetargs:; /*_.IFELSE___V30*/ meltfptr[29] = /*_.IFELSE___V31*/ meltfptr[30];; /*epilog*/ - MELT_LOCATION("warmelt-first.melt:2118:/ clear"); + MELT_LOCATION("warmelt-first.melt:2125:/ clear"); /*clear*/ /*_#IS_A__L7*/ meltfnum[6] = 0 ; /*^clear*/ /*clear*/ /*_#IF___L8*/ meltfnum[7] = 0 ; @@ -3097,17 +3097,17 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-first.melt:2169:/ cppif.then"); + MELT_LOCATION("warmelt-first.melt:2176:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L30*/ meltfnum[28] = melt_is_instance_of((melt_ptr_t)(/*_.VALBIND__V27*/ meltfptr[25]), (melt_ptr_t)((/*!CLASS_ANY_BINDING*/ meltfrout->tabval[15])));; - MELT_LOCATION("warmelt-first.melt:2169:/ cond"); + MELT_LOCATION("warmelt-first.melt:2176:/ cond"); /*cond*/ if (/*_#IS_A__L30*/ meltfnum[28]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V62*/ meltfptr[58] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-first.melt:2169:/ cond.else"); + } else {MELT_LOCATION("warmelt-first.melt:2176:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -3118,7 +3118,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check valbind"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__, - (2169)?(2169):__LINE__, __FUNCTION__); + (2176)?(2176):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V62*/ meltfptr[58] = 0 ; @@ -3132,7 +3132,7 @@ lab_endgetargs:; /*_.IFCPP___V61*/ meltfptr[57] = /*_.IFELSE___V62*/ meltfptr[58];; /*epilog*/ - MELT_LOCATION("warmelt-first.melt:2169:/ clear"); + MELT_LOCATION("warmelt-first.melt:2176:/ clear"); /*clear*/ /*_#IS_A__L30*/ meltfnum[28] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V62*/ meltfptr[58] = 0 ;} @@ -3142,7 +3142,7 @@ lab_endgetargs:; /*_.IFCPP___V61*/ meltfptr[57] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-first.melt:2170:/ apply"); + MELT_LOCATION("warmelt-first.melt:2177:/ apply"); /*apply*/{ union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); @@ -3151,16 +3151,16 @@ lab_endgetargs:; /*_.PUT_ENV__V63*/ meltfptr[59] = melt_apply ((meltclosure_ptr_t)((/*!PUT_ENV*/ meltfrout->tabval[16])), (melt_ptr_t)(/*_.ENV__V16*/ meltfptr[15]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - MELT_LOCATION("warmelt-first.melt:2171:/ quasiblock"); + MELT_LOCATION("warmelt-first.melt:2178:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = NULL;; - MELT_LOCATION("warmelt-first.melt:2171:/ finalreturn"); + MELT_LOCATION("warmelt-first.melt:2178:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*_.LET___V24*/ meltfptr[20] = /*_.RETURN___V64*/ meltfptr[53];; - MELT_LOCATION("warmelt-first.melt:2108:/ clear"); + MELT_LOCATION("warmelt-first.melt:2115:/ clear"); /*clear*/ /*_.PREVBIND__V25*/ meltfptr[19] = 0 ; /*^clear*/ /*clear*/ /*_.VALBIND__V27*/ meltfptr[25] = 0 ; @@ -3178,7 +3178,7 @@ lab_endgetargs:; /*clear*/ /*_.RETURN___V64*/ meltfptr[53] = 0 ; /*_.LET___V15*/ meltfptr[13] = /*_.LET___V24*/ meltfptr[20];; - MELT_LOCATION("warmelt-first.melt:2101:/ clear"); + MELT_LOCATION("warmelt-first.melt:2108:/ clear"); /*clear*/ /*_.ENV__V16*/ meltfptr[15] = 0 ; /*^clear*/ /*clear*/ /*_#NULL__L4*/ meltfnum[1] = 0 ; @@ -3192,7 +3192,7 @@ lab_endgetargs:; /*clear*/ /*_.LET___V24*/ meltfptr[20] = 0 ; /*_.LET___V5*/ meltfptr[4] = /*_.LET___V15*/ meltfptr[13];; - MELT_LOCATION("warmelt-first.melt:2092:/ clear"); + MELT_LOCATION("warmelt-first.melt:2099:/ clear"); /*clear*/ /*_.PARENV__V6*/ meltfptr[5] = 0 ; /*^clear*/ /*clear*/ /*_#NULL__L1*/ meltfnum[0] = 0 ; @@ -3204,11 +3204,11 @@ lab_endgetargs:; /*clear*/ /*_.IFCPP___V13*/ meltfptr[9] = 0 ; /*^clear*/ /*clear*/ /*_.LET___V15*/ meltfptr[13] = 0 ; - MELT_LOCATION("warmelt-first.melt:2086:/ quasiblock"); + MELT_LOCATION("warmelt-first.melt:2093:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V5*/ meltfptr[4];; - MELT_LOCATION("warmelt-first.melt:2086:/ finalreturn"); + MELT_LOCATION("warmelt-first.melt:2093:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*epilog*/ @@ -3280,7 +3280,7 @@ melt_trace_start("INITVALUE_IMPORTER", meltcallcount); /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-first.melt:2176:/ getarg"); + MELT_LOCATION("warmelt-first.melt:2183:/ getarg"); /*_.SYM__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; /*getarg#1*/ @@ -3308,13 +3308,13 @@ lab_endgetargs:; { - MELT_LOCATION("warmelt-first.melt:2177:/ locexp"); + MELT_LOCATION("warmelt-first.melt:2184:/ locexp"); /* ENSUREMODNAM__1 */ if (!/*_?*/ meltfram__.loc_CSTRING__o1) /*_?*/ meltfram__.loc_CSTRING__o1 = "???"; ;} ; /*_#IS_NOT_A__L1*/ meltfnum[0] = !melt_is_instance_of((melt_ptr_t)(/*_.SYM__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ meltfrout->tabval[0])));; - MELT_LOCATION("warmelt-first.melt:2179:/ cond"); + MELT_LOCATION("warmelt-first.melt:2186:/ cond"); /*cond*/ if (/*_#IS_NOT_A__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -3322,13 +3322,13 @@ lab_endgetargs:; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-first.melt:2181:/ cppif.then"); + MELT_LOCATION("warmelt-first.melt:2188:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L2*/ meltfnum[1] = meltcallcount;; - MELT_LOCATION("warmelt-first.melt:2181:/ apply"); + MELT_LOCATION("warmelt-first.melt:2188:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -3339,14 +3339,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].bp_cstring = "warmelt-first.melt"; /*^apply.arg*/ - argtab[3].bp_long = 2181; + argtab[3].bp_long = 2188; /*_.DEBUG_MSG_FUN__V6*/ meltfptr[5] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.SYM__V2*/ meltfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V5*/ meltfptr[4] = /*_.DEBUG_MSG_FUN__V6*/ meltfptr[5];; /*epilog*/ - MELT_LOCATION("warmelt-first.melt:2181:/ clear"); + MELT_LOCATION("warmelt-first.melt:2188:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L2*/ meltfnum[1] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V6*/ meltfptr[5] = 0 ;} @@ -3358,7 +3358,7 @@ lab_endgetargs:; ; { - MELT_LOCATION("warmelt-first.melt:2183:/ locexp"); + MELT_LOCATION("warmelt-first.melt:2190:/ locexp"); /* ERRFAILIMPORT__1 */ if (/*_?*/ meltfram__.loc_CSTRING__o0) error ("MELT [%s]: imported symbol %s not found", @@ -3367,14 +3367,14 @@ lab_endgetargs:; error ("MELT [%s]: importing non symbol", /*_?*/ meltfram__.loc_CSTRING__o1); ;} ; - MELT_LOCATION("warmelt-first.melt:2190:/ quasiblock"); + MELT_LOCATION("warmelt-first.melt:2197:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = NULL;; - MELT_LOCATION("warmelt-first.melt:2190:/ finalreturn"); + MELT_LOCATION("warmelt-first.melt:2197:/ finalreturn"); ; /*finalret*/ goto labend_rout ; - MELT_LOCATION("warmelt-first.melt:2180:/ quasiblock"); + MELT_LOCATION("warmelt-first.melt:2187:/ quasiblock"); /*_.PROGN___V8*/ meltfptr[7] = /*_.RETURN___V7*/ meltfptr[5];; @@ -3383,7 +3383,7 @@ lab_endgetargs:; /*_.IF___V4*/ meltfptr[3] = /*_.PROGN___V8*/ meltfptr[7];; /*epilog*/ - MELT_LOCATION("warmelt-first.melt:2179:/ clear"); + MELT_LOCATION("warmelt-first.melt:2186:/ clear"); /*clear*/ /*_.IFCPP___V5*/ meltfptr[4] = 0 ; /*^clear*/ /*clear*/ /*_.RETURN___V7*/ meltfptr[5] = 0 ; @@ -3397,17 +3397,17 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-first.melt:2192:/ cppif.then"); + MELT_LOCATION("warmelt-first.melt:2199:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L3*/ meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.SYM__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ meltfrout->tabval[0])));; - MELT_LOCATION("warmelt-first.melt:2192:/ cond"); + MELT_LOCATION("warmelt-first.melt:2199:/ cond"); /*cond*/ if (/*_#IS_A__L3*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V10*/ meltfptr[5] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-first.melt:2192:/ cond.else"); + } else {MELT_LOCATION("warmelt-first.melt:2199:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -3418,7 +3418,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check sym"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__, - (2192)?(2192):__LINE__, __FUNCTION__); + (2199)?(2199):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V10*/ meltfptr[5] = 0 ; @@ -3432,7 +3432,7 @@ lab_endgetargs:; /*_.IFCPP___V9*/ meltfptr[4] = /*_.IFELSE___V10*/ meltfptr[5];; /*epilog*/ - MELT_LOCATION("warmelt-first.melt:2192:/ clear"); + MELT_LOCATION("warmelt-first.melt:2199:/ clear"); /*clear*/ /*_#IS_A__L3*/ meltfnum[1] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V10*/ meltfptr[5] = 0 ;} @@ -3444,17 +3444,17 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-first.melt:2193:/ cppif.then"); + MELT_LOCATION("warmelt-first.melt:2200:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L4*/ meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.PARENV__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ meltfrout->tabval[2])));; - MELT_LOCATION("warmelt-first.melt:2193:/ cond"); + MELT_LOCATION("warmelt-first.melt:2200:/ cond"); /*cond*/ if (/*_#IS_A__L4*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V12*/ meltfptr[5] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-first.melt:2193:/ cond.else"); + } else {MELT_LOCATION("warmelt-first.melt:2200:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -3465,7 +3465,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check parenv"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__, - (2193)?(2193):__LINE__, __FUNCTION__); + (2200)?(2200):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V12*/ meltfptr[5] = 0 ; @@ -3479,7 +3479,7 @@ lab_endgetargs:; /*_.IFCPP___V11*/ meltfptr[7] = /*_.IFELSE___V12*/ meltfptr[5];; /*epilog*/ - MELT_LOCATION("warmelt-first.melt:2193:/ clear"); + MELT_LOCATION("warmelt-first.melt:2200:/ clear"); /*clear*/ /*_#IS_A__L4*/ meltfnum[1] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V12*/ meltfptr[5] = 0 ;} @@ -3489,7 +3489,7 @@ lab_endgetargs:; /*_.IFCPP___V11*/ meltfptr[7] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-first.melt:2194:/ quasiblock"); + MELT_LOCATION("warmelt-first.melt:2201:/ quasiblock"); /*^apply*/ @@ -3503,13 +3503,13 @@ lab_endgetargs:; ; /*_#IS_NOT_A__L5*/ meltfnum[1] = !melt_is_instance_of((melt_ptr_t)(/*_.VALBIND__V14*/ meltfptr[13]), (melt_ptr_t)((/*!CLASS_VALUE_BINDING*/ meltfrout->tabval[4])));; - MELT_LOCATION("warmelt-first.melt:2196:/ cond"); + MELT_LOCATION("warmelt-first.melt:2203:/ cond"); /*cond*/ if (/*_#IS_NOT_A__L5*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-first.melt:2197:/ quasiblock"); + MELT_LOCATION("warmelt-first.melt:2204:/ quasiblock"); /*^cond*/ @@ -3528,7 +3528,7 @@ lab_endgetargs:; /*_.BINDISCR__V18*/ meltfptr[17] = (melt_discr((melt_ptr_t)(/*_.VALBIND__V14*/ meltfptr[13])));; - MELT_LOCATION("warmelt-first.melt:2199:/ cond"); + MELT_LOCATION("warmelt-first.melt:2206:/ cond"); /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.BINDISCR__V18*/ meltfptr[17]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[5])))) /*then*/ { /*^cond.then*/ /*^getslot*/ @@ -3542,17 +3542,17 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-first.melt:2201:/ cppif.then"); + MELT_LOCATION("warmelt-first.melt:2208:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_STRING__L6*/ meltfnum[5] = (melt_magic_discr((melt_ptr_t)(/*_.SYMNAM__V17*/ meltfptr[16])) == OBMAG_STRING);; - MELT_LOCATION("warmelt-first.melt:2201:/ cond"); + MELT_LOCATION("warmelt-first.melt:2208:/ cond"); /*cond*/ if (/*_#IS_STRING__L6*/ meltfnum[5]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V21*/ meltfptr[20] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-first.melt:2201:/ cond.else"); + } else {MELT_LOCATION("warmelt-first.melt:2208:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -3563,7 +3563,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check symnam"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__, - (2201)?(2201):__LINE__, __FUNCTION__); + (2208)?(2208):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V21*/ meltfptr[20] = 0 ; @@ -3577,7 +3577,7 @@ lab_endgetargs:; /*_.IFCPP___V20*/ meltfptr[19] = /*_.IFELSE___V21*/ meltfptr[20];; /*epilog*/ - MELT_LOCATION("warmelt-first.melt:2201:/ clear"); + MELT_LOCATION("warmelt-first.melt:2208:/ clear"); /*clear*/ /*_#IS_STRING__L6*/ meltfnum[5] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V21*/ meltfptr[20] = 0 ;} @@ -3589,7 +3589,7 @@ lab_endgetargs:; ; { - MELT_LOCATION("warmelt-first.melt:2203:/ locexp"); + MELT_LOCATION("warmelt-first.melt:2210:/ locexp"); /* ERRBADIMPORT__1 */ const char* ERRBADIMPORT__1_str = melt_string_str ((melt_ptr_t)/*_.SYMNAM__V17*/ meltfptr[16]); error ("MELT [%s]: imported symbol %s has unexpected binding of %s", @@ -3598,16 +3598,16 @@ lab_endgetargs:; melt_string_str ((melt_ptr_t)/*_.BINDISCRNAM__V19*/ meltfptr[18])); ;} ; - MELT_LOCATION("warmelt-first.melt:2210:/ quasiblock"); + MELT_LOCATION("warmelt-first.melt:2217:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = NULL;; - MELT_LOCATION("warmelt-first.melt:2210:/ finalreturn"); + MELT_LOCATION("warmelt-first.melt:2217:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*_.LET___V16*/ meltfptr[15] = /*_.RETURN___V22*/ meltfptr[20];; - MELT_LOCATION("warmelt-first.melt:2197:/ clear"); + MELT_LOCATION("warmelt-first.melt:2204:/ clear"); /*clear*/ /*_.SYMNAM__V17*/ meltfptr[16] = 0 ; /*^clear*/ /*clear*/ /*_.BINDISCR__V18*/ meltfptr[17] = 0 ; @@ -3620,7 +3620,7 @@ lab_endgetargs:; /*_.IF___V15*/ meltfptr[14] = /*_.LET___V16*/ meltfptr[15];; /*epilog*/ - MELT_LOCATION("warmelt-first.melt:2196:/ clear"); + MELT_LOCATION("warmelt-first.melt:2203:/ clear"); /*clear*/ /*_.LET___V16*/ meltfptr[15] = 0 ;} ; } else {/*^cond.else*/ @@ -3630,17 +3630,17 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-first.melt:2212:/ cppif.then"); + MELT_LOCATION("warmelt-first.melt:2219:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L7*/ meltfnum[5] = melt_is_instance_of((melt_ptr_t)(/*_.VALBIND__V14*/ meltfptr[13]), (melt_ptr_t)((/*!CLASS_VALUE_BINDING*/ meltfrout->tabval[4])));; - MELT_LOCATION("warmelt-first.melt:2212:/ cond"); + MELT_LOCATION("warmelt-first.melt:2219:/ cond"); /*cond*/ if (/*_#IS_A__L7*/ meltfnum[5]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V24*/ meltfptr[17] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-first.melt:2212:/ cond.else"); + } else {MELT_LOCATION("warmelt-first.melt:2219:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -3651,7 +3651,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check valbind"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__, - (2212)?(2212):__LINE__, __FUNCTION__); + (2219)?(2219):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V24*/ meltfptr[17] = 0 ; @@ -3665,7 +3665,7 @@ lab_endgetargs:; /*_.IFCPP___V23*/ meltfptr[16] = /*_.IFELSE___V24*/ meltfptr[17];; /*epilog*/ - MELT_LOCATION("warmelt-first.melt:2212:/ clear"); + MELT_LOCATION("warmelt-first.melt:2219:/ clear"); /*clear*/ /*_#IS_A__L7*/ meltfnum[5] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V24*/ meltfptr[17] = 0 ;} @@ -3675,7 +3675,7 @@ lab_endgetargs:; /*_.IFCPP___V23*/ meltfptr[16] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-first.melt:2213:/ getslot"); + MELT_LOCATION("warmelt-first.melt:2220:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.VALBIND__V14*/ meltfptr[13]), 1, "VBIND_VALUE");/*_.VBIND_VALUE__V25*/ meltfptr[18] = slot; }; ; @@ -3683,12 +3683,12 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.VBIND_VALUE__V25*/ meltfptr[18];; - MELT_LOCATION("warmelt-first.melt:2213:/ finalreturn"); + MELT_LOCATION("warmelt-first.melt:2220:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*_.LET___V13*/ meltfptr[5] = /*_.RETURN___V26*/ meltfptr[19];; - MELT_LOCATION("warmelt-first.melt:2194:/ clear"); + MELT_LOCATION("warmelt-first.melt:2201:/ clear"); /*clear*/ /*_.VALBIND__V14*/ meltfptr[13] = 0 ; /*^clear*/ /*clear*/ /*_#IS_NOT_A__L5*/ meltfnum[1] = 0 ; @@ -3700,11 +3700,11 @@ lab_endgetargs:; /*clear*/ /*_.VBIND_VALUE__V25*/ meltfptr[18] = 0 ; /*^clear*/ /*clear*/ /*_.RETURN___V26*/ meltfptr[19] = 0 ; - MELT_LOCATION("warmelt-first.melt:2176:/ quasiblock"); + MELT_LOCATION("warmelt-first.melt:2183:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V13*/ meltfptr[5];; - MELT_LOCATION("warmelt-first.melt:2176:/ finalreturn"); + MELT_LOCATION("warmelt-first.melt:2183:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*epilog*/ @@ -3782,7 +3782,7 @@ melt_trace_start("INITMACRO_EXPORTER", meltcallcount); /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-first.melt:2217:/ getarg"); + MELT_LOCATION("warmelt-first.melt:2224:/ getarg"); /*_.SYM__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; /*getarg#1*/ @@ -3807,17 +3807,17 @@ lab_endgetargs:; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-first.melt:2218:/ cppif.then"); + MELT_LOCATION("warmelt-first.melt:2225:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L1*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.SYM__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ meltfrout->tabval[0])));; - MELT_LOCATION("warmelt-first.melt:2218:/ cond"); + MELT_LOCATION("warmelt-first.melt:2225:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V6*/ meltfptr[5] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-first.melt:2218:/ cond.else"); + } else {MELT_LOCATION("warmelt-first.melt:2225:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -3828,7 +3828,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check sym"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__, - (2218)?(2218):__LINE__, __FUNCTION__); + (2225)?(2225):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V6*/ meltfptr[5] = 0 ; @@ -3842,7 +3842,7 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = /*_.IFELSE___V6*/ meltfptr[5];; /*epilog*/ - MELT_LOCATION("warmelt-first.melt:2218:/ clear"); + MELT_LOCATION("warmelt-first.melt:2225:/ clear"); /*clear*/ /*_#IS_A__L1*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V6*/ meltfptr[5] = 0 ;} @@ -3856,43 +3856,43 @@ lab_endgetargs:; /*_#NULL__L2*/ meltfnum[0] = ((/*_.CONTENV__V4*/ meltfptr[3]) == NULL);; - MELT_LOCATION("warmelt-first.melt:2219:/ cond"); + MELT_LOCATION("warmelt-first.melt:2226:/ cond"); /*cond*/ if (/*_#NULL__L2*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-first.melt:2221:/ cond"); + MELT_LOCATION("warmelt-first.melt:2228:/ cond"); /*cond*/ if ((/*!konst_1*/ meltfrout->tabval[1])) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-first.melt:2223:/ getslot"); + MELT_LOCATION("warmelt-first.melt:2230:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.SYM__V2*/ meltfptr[1]), 1, "NAMED_NAME");/*_.NAMED_NAME__V8*/ meltfptr[7] = slot; }; ; { - MELT_LOCATION("warmelt-first.melt:2222:/ locexp"); + MELT_LOCATION("warmelt-first.melt:2229:/ locexp"); warning (0, "MELT WARNING MSG [#%ld]::: %s - %s", melt_dbgcounter, ( "exporting macro too early with null environment container"), melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V8*/ meltfptr[7])));} ; /*epilog*/ - MELT_LOCATION("warmelt-first.melt:2221:/ clear"); + MELT_LOCATION("warmelt-first.melt:2228:/ clear"); /*clear*/ /*_.NAMED_NAME__V8*/ meltfptr[7] = 0 ;} ; } /*noelse*/ ; - MELT_LOCATION("warmelt-first.melt:2224:/ quasiblock"); + MELT_LOCATION("warmelt-first.melt:2231:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = NULL;; - MELT_LOCATION("warmelt-first.melt:2224:/ finalreturn"); + MELT_LOCATION("warmelt-first.melt:2231:/ finalreturn"); ; /*finalret*/ goto labend_rout ; - MELT_LOCATION("warmelt-first.melt:2220:/ quasiblock"); + MELT_LOCATION("warmelt-first.melt:2227:/ quasiblock"); /*_.PROGN___V10*/ meltfptr[9] = /*_.RETURN___V9*/ meltfptr[7];; @@ -3901,7 +3901,7 @@ lab_endgetargs:; /*_.IF___V7*/ meltfptr[5] = /*_.PROGN___V10*/ meltfptr[9];; /*epilog*/ - MELT_LOCATION("warmelt-first.melt:2219:/ clear"); + MELT_LOCATION("warmelt-first.melt:2226:/ clear"); /*clear*/ /*_.RETURN___V9*/ meltfptr[7] = 0 ; /*^clear*/ /*clear*/ /*_.PROGN___V10*/ meltfptr[9] = 0 ;} @@ -3913,17 +3913,17 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-first.melt:2226:/ cppif.then"); + MELT_LOCATION("warmelt-first.melt:2233:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L3*/ meltfnum[2] = melt_is_instance_of((melt_ptr_t)(/*_.CONTENV__V4*/ meltfptr[3]), (melt_ptr_t)((/*!CLASS_CONTAINER*/ meltfrout->tabval[2])));; - MELT_LOCATION("warmelt-first.melt:2226:/ cond"); + MELT_LOCATION("warmelt-first.melt:2233:/ cond"); /*cond*/ if (/*_#IS_A__L3*/ meltfnum[2]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V12*/ meltfptr[9] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-first.melt:2226:/ cond.else"); + } else {MELT_LOCATION("warmelt-first.melt:2233:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -3934,7 +3934,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check contenv"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__, - (2226)?(2226):__LINE__, __FUNCTION__); + (2233)?(2233):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V12*/ meltfptr[9] = 0 ; @@ -3948,7 +3948,7 @@ lab_endgetargs:; /*_.IFCPP___V11*/ meltfptr[7] = /*_.IFELSE___V12*/ meltfptr[9];; /*epilog*/ - MELT_LOCATION("warmelt-first.melt:2226:/ clear"); + MELT_LOCATION("warmelt-first.melt:2233:/ clear"); /*clear*/ /*_#IS_A__L3*/ meltfnum[2] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V12*/ meltfptr[9] = 0 ;} @@ -3958,7 +3958,7 @@ lab_endgetargs:; /*_.IFCPP___V11*/ meltfptr[7] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-first.melt:2227:/ quasiblock"); + MELT_LOCATION("warmelt-first.melt:2234:/ quasiblock"); /*^getslot*/ @@ -3967,30 +3967,30 @@ lab_endgetargs:; ; /*_#NULL__L4*/ meltfnum[2] = ((/*_.ENV__V14*/ meltfptr[13]) == NULL);; - MELT_LOCATION("warmelt-first.melt:2228:/ cond"); + MELT_LOCATION("warmelt-first.melt:2235:/ cond"); /*cond*/ if (/*_#NULL__L4*/ meltfnum[2]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-first.melt:2231:/ getslot"); + MELT_LOCATION("warmelt-first.melt:2238:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.SYM__V2*/ meltfptr[1]), 1, "NAMED_NAME");/*_.NAMED_NAME__V16*/ meltfptr[15] = slot; }; ; { - MELT_LOCATION("warmelt-first.melt:2230:/ locexp"); + MELT_LOCATION("warmelt-first.melt:2237:/ locexp"); inform(UNKNOWN_LOCATION, ("MELT INFORM [#%ld]: %s - %s"), melt_dbgcounter, ( "exporting macro too early with null environment"), melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V16*/ meltfptr[15])));} ; - MELT_LOCATION("warmelt-first.melt:2232:/ quasiblock"); + MELT_LOCATION("warmelt-first.melt:2239:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = NULL;; - MELT_LOCATION("warmelt-first.melt:2232:/ finalreturn"); + MELT_LOCATION("warmelt-first.melt:2239:/ finalreturn"); ; /*finalret*/ goto labend_rout ; - MELT_LOCATION("warmelt-first.melt:2229:/ quasiblock"); + MELT_LOCATION("warmelt-first.melt:2236:/ quasiblock"); /*_.PROGN___V18*/ meltfptr[17] = /*_.RETURN___V17*/ meltfptr[16];; @@ -3999,7 +3999,7 @@ lab_endgetargs:; /*_.IF___V15*/ meltfptr[14] = /*_.PROGN___V18*/ meltfptr[17];; /*epilog*/ - MELT_LOCATION("warmelt-first.melt:2228:/ clear"); + MELT_LOCATION("warmelt-first.melt:2235:/ clear"); /*clear*/ /*_.NAMED_NAME__V16*/ meltfptr[15] = 0 ; /*^clear*/ /*clear*/ /*_.RETURN___V17*/ meltfptr[16] = 0 ; @@ -4013,17 +4013,17 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-first.melt:2234:/ cppif.then"); + MELT_LOCATION("warmelt-first.melt:2241:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L5*/ meltfnum[4] = melt_is_instance_of((melt_ptr_t)(/*_.ENV__V14*/ meltfptr[13]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ meltfrout->tabval[3])));; - MELT_LOCATION("warmelt-first.melt:2234:/ cond"); + MELT_LOCATION("warmelt-first.melt:2241:/ cond"); /*cond*/ if (/*_#IS_A__L5*/ meltfnum[4]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V20*/ meltfptr[16] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-first.melt:2234:/ cond.else"); + } else {MELT_LOCATION("warmelt-first.melt:2241:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -4034,7 +4034,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check env"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__, - (2234)?(2234):__LINE__, __FUNCTION__); + (2241)?(2241):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V20*/ meltfptr[16] = 0 ; @@ -4048,7 +4048,7 @@ lab_endgetargs:; /*_.IFCPP___V19*/ meltfptr[15] = /*_.IFELSE___V20*/ meltfptr[16];; /*epilog*/ - MELT_LOCATION("warmelt-first.melt:2234:/ clear"); + MELT_LOCATION("warmelt-first.melt:2241:/ clear"); /*clear*/ /*_#IS_A__L5*/ meltfnum[4] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V20*/ meltfptr[16] = 0 ;} @@ -4060,17 +4060,17 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-first.melt:2235:/ cppif.then"); + MELT_LOCATION("warmelt-first.melt:2242:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_CLOSURE__L6*/ meltfnum[4] = (melt_magic_discr((melt_ptr_t)(/*_.VAL__V3*/ meltfptr[2])) == OBMAG_CLOSURE);; - MELT_LOCATION("warmelt-first.melt:2235:/ cond"); + MELT_LOCATION("warmelt-first.melt:2242:/ cond"); /*cond*/ if (/*_#IS_CLOSURE__L6*/ meltfnum[4]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V22*/ meltfptr[16] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-first.melt:2235:/ cond.else"); + } else {MELT_LOCATION("warmelt-first.melt:2242:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -4081,7 +4081,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check val is closure"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__, - (2235)?(2235):__LINE__, __FUNCTION__); + (2242)?(2242):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V22*/ meltfptr[16] = 0 ; @@ -4095,7 +4095,7 @@ lab_endgetargs:; /*_.IFCPP___V21*/ meltfptr[17] = /*_.IFELSE___V22*/ meltfptr[16];; /*epilog*/ - MELT_LOCATION("warmelt-first.melt:2235:/ clear"); + MELT_LOCATION("warmelt-first.melt:2242:/ clear"); /*clear*/ /*_#IS_CLOSURE__L6*/ meltfnum[4] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V22*/ meltfptr[16] = 0 ;} @@ -4105,7 +4105,7 @@ lab_endgetargs:; /*_.IFCPP___V21*/ meltfptr[17] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-first.melt:2236:/ quasiblock"); + MELT_LOCATION("warmelt-first.melt:2243:/ quasiblock"); /*^quasiblock*/ @@ -4127,7 +4127,7 @@ lab_endgetargs:; melt_putfield_object((/*_.INST__V25*/ meltfptr[24]), (1), (/*_.VAL__V3*/ meltfptr[2]), "MBIND_EXPANSER"); ; /*_.MACBIND__V24*/ meltfptr[23] = /*_.INST__V25*/ meltfptr[24];; - MELT_LOCATION("warmelt-first.melt:2241:/ apply"); + MELT_LOCATION("warmelt-first.melt:2248:/ apply"); /*apply*/{ union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); @@ -4138,13 +4138,13 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-first.melt:2242:/ cppif.then"); + MELT_LOCATION("warmelt-first.melt:2249:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L7*/ meltfnum[4] = meltcallcount;; - MELT_LOCATION("warmelt-first.melt:2242:/ apply"); + MELT_LOCATION("warmelt-first.melt:2249:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -4155,14 +4155,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].bp_cstring = "warmelt-first.melt"; /*^apply.arg*/ - argtab[3].bp_long = 2242; + argtab[3].bp_long = 2249; /*_.DEBUG_MSG_FUN__V28*/ meltfptr[27] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[6])), (melt_ptr_t)(/*_.MACBIND__V24*/ meltfptr[23]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V27*/ meltfptr[26] = /*_.DEBUG_MSG_FUN__V28*/ meltfptr[27];; /*epilog*/ - MELT_LOCATION("warmelt-first.melt:2242:/ clear"); + MELT_LOCATION("warmelt-first.melt:2249:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L7*/ meltfnum[4] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V28*/ meltfptr[27] = 0 ;} @@ -4172,16 +4172,16 @@ lab_endgetargs:; /*_.IFCPP___V27*/ meltfptr[26] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-first.melt:2243:/ quasiblock"); + MELT_LOCATION("warmelt-first.melt:2250:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = NULL;; - MELT_LOCATION("warmelt-first.melt:2243:/ finalreturn"); + MELT_LOCATION("warmelt-first.melt:2250:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*_.LET___V23*/ meltfptr[16] = /*_.RETURN___V29*/ meltfptr[27];; - MELT_LOCATION("warmelt-first.melt:2236:/ clear"); + MELT_LOCATION("warmelt-first.melt:2243:/ clear"); /*clear*/ /*_.MACBIND__V24*/ meltfptr[23] = 0 ; /*^clear*/ /*clear*/ /*_.PUT_ENV__V26*/ meltfptr[25] = 0 ; @@ -4191,7 +4191,7 @@ lab_endgetargs:; /*clear*/ /*_.RETURN___V29*/ meltfptr[27] = 0 ; /*_.LET___V13*/ meltfptr[9] = /*_.LET___V23*/ meltfptr[16];; - MELT_LOCATION("warmelt-first.melt:2227:/ clear"); + MELT_LOCATION("warmelt-first.melt:2234:/ clear"); /*clear*/ /*_.ENV__V14*/ meltfptr[13] = 0 ; /*^clear*/ /*clear*/ /*_#NULL__L4*/ meltfnum[2] = 0 ; @@ -4203,11 +4203,11 @@ lab_endgetargs:; /*clear*/ /*_.IFCPP___V21*/ meltfptr[17] = 0 ; /*^clear*/ /*clear*/ /*_.LET___V23*/ meltfptr[16] = 0 ; - MELT_LOCATION("warmelt-first.melt:2217:/ quasiblock"); + MELT_LOCATION("warmelt-first.melt:2224:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V13*/ meltfptr[9];; - MELT_LOCATION("warmelt-first.melt:2217:/ finalreturn"); + MELT_LOCATION("warmelt-first.melt:2224:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*epilog*/ @@ -4285,7 +4285,7 @@ melt_trace_start("INITPATMACRO_EXPORTER", meltcallcount); /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-first.melt:2247:/ getarg"); + MELT_LOCATION("warmelt-first.melt:2254:/ getarg"); /*_.SYM__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; /*getarg#1*/ @@ -4317,13 +4317,13 @@ lab_endgetargs:; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-first.melt:2248:/ cppif.then"); + MELT_LOCATION("warmelt-first.melt:2255:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L1*/ meltfnum[0] = meltcallcount;; - MELT_LOCATION("warmelt-first.melt:2248:/ apply"); + MELT_LOCATION("warmelt-first.melt:2255:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -4334,14 +4334,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].bp_cstring = "warmelt-first.melt"; /*^apply.arg*/ - argtab[3].bp_long = 2248; + argtab[3].bp_long = 2255; /*_.DEBUG_MSG_FUN__V7*/ meltfptr[6] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.SYM__V2*/ meltfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V6*/ meltfptr[5] = /*_.DEBUG_MSG_FUN__V7*/ meltfptr[6];; /*epilog*/ - MELT_LOCATION("warmelt-first.melt:2248:/ clear"); + MELT_LOCATION("warmelt-first.melt:2255:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L1*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V7*/ meltfptr[6] = 0 ;} @@ -4353,17 +4353,17 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-first.melt:2249:/ cppif.then"); + MELT_LOCATION("warmelt-first.melt:2256:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L2*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.SYM__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ meltfrout->tabval[1])));; - MELT_LOCATION("warmelt-first.melt:2249:/ cond"); + MELT_LOCATION("warmelt-first.melt:2256:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V9*/ meltfptr[8] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-first.melt:2249:/ cond.else"); + } else {MELT_LOCATION("warmelt-first.melt:2256:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -4374,7 +4374,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check sym"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__, - (2249)?(2249):__LINE__, __FUNCTION__); + (2256)?(2256):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V9*/ meltfptr[8] = 0 ; @@ -4388,7 +4388,7 @@ lab_endgetargs:; /*_.IFCPP___V8*/ meltfptr[6] = /*_.IFELSE___V9*/ meltfptr[8];; /*epilog*/ - MELT_LOCATION("warmelt-first.melt:2249:/ clear"); + MELT_LOCATION("warmelt-first.melt:2256:/ clear"); /*clear*/ /*_#IS_A__L2*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V9*/ meltfptr[8] = 0 ;} @@ -4402,20 +4402,20 @@ lab_endgetargs:; /*_#NULL__L3*/ meltfnum[0] = ((/*_.CONTENV__V5*/ meltfptr[4]) == NULL);; - MELT_LOCATION("warmelt-first.melt:2250:/ cond"); + MELT_LOCATION("warmelt-first.melt:2257:/ cond"); /*cond*/ if (/*_#NULL__L3*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-first.melt:2255:/ quasiblock"); + MELT_LOCATION("warmelt-first.melt:2262:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = NULL;; - MELT_LOCATION("warmelt-first.melt:2255:/ finalreturn"); + MELT_LOCATION("warmelt-first.melt:2262:/ finalreturn"); ; /*finalret*/ goto labend_rout ; - MELT_LOCATION("warmelt-first.melt:2251:/ quasiblock"); + MELT_LOCATION("warmelt-first.melt:2258:/ quasiblock"); /*_.PROGN___V12*/ meltfptr[11] = /*_.RETURN___V11*/ meltfptr[10];; @@ -4424,7 +4424,7 @@ lab_endgetargs:; /*_.IF___V10*/ meltfptr[8] = /*_.PROGN___V12*/ meltfptr[11];; /*epilog*/ - MELT_LOCATION("warmelt-first.melt:2250:/ clear"); + MELT_LOCATION("warmelt-first.melt:2257:/ clear"); /*clear*/ /*_.RETURN___V11*/ meltfptr[10] = 0 ; /*^clear*/ /*clear*/ /*_.PROGN___V12*/ meltfptr[11] = 0 ;} @@ -4436,17 +4436,17 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-first.melt:2257:/ cppif.then"); + MELT_LOCATION("warmelt-first.melt:2264:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L4*/ meltfnum[3] = melt_is_instance_of((melt_ptr_t)(/*_.CONTENV__V5*/ meltfptr[4]), (melt_ptr_t)((/*!CLASS_CONTAINER*/ meltfrout->tabval[2])));; - MELT_LOCATION("warmelt-first.melt:2257:/ cond"); + MELT_LOCATION("warmelt-first.melt:2264:/ cond"); /*cond*/ if (/*_#IS_A__L4*/ meltfnum[3]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V14*/ meltfptr[11] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-first.melt:2257:/ cond.else"); + } else {MELT_LOCATION("warmelt-first.melt:2264:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -4457,7 +4457,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check contenv"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__, - (2257)?(2257):__LINE__, __FUNCTION__); + (2264)?(2264):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V14*/ meltfptr[11] = 0 ; @@ -4471,7 +4471,7 @@ lab_endgetargs:; /*_.IFCPP___V13*/ meltfptr[10] = /*_.IFELSE___V14*/ meltfptr[11];; /*epilog*/ - MELT_LOCATION("warmelt-first.melt:2257:/ clear"); + MELT_LOCATION("warmelt-first.melt:2264:/ clear"); /*clear*/ /*_#IS_A__L4*/ meltfnum[3] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V14*/ meltfptr[11] = 0 ;} @@ -4481,7 +4481,7 @@ lab_endgetargs:; /*_.IFCPP___V13*/ meltfptr[10] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-first.melt:2258:/ quasiblock"); + MELT_LOCATION("warmelt-first.melt:2265:/ quasiblock"); /*^getslot*/ @@ -4490,30 +4490,30 @@ lab_endgetargs:; ; /*_#NULL__L5*/ meltfnum[3] = ((/*_.ENV__V16*/ meltfptr[15]) == NULL);; - MELT_LOCATION("warmelt-first.melt:2259:/ cond"); + MELT_LOCATION("warmelt-first.melt:2266:/ cond"); /*cond*/ if (/*_#NULL__L5*/ meltfnum[3]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-first.melt:2262:/ getslot"); + MELT_LOCATION("warmelt-first.melt:2269:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.SYM__V2*/ meltfptr[1]), 1, "NAMED_NAME");/*_.NAMED_NAME__V18*/ meltfptr[17] = slot; }; ; { - MELT_LOCATION("warmelt-first.melt:2261:/ locexp"); + MELT_LOCATION("warmelt-first.melt:2268:/ locexp"); inform(UNKNOWN_LOCATION, ("MELT INFORM [#%ld]: %s - %s"), melt_dbgcounter, ( "exporting patmacro too early with null environment"), melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V18*/ meltfptr[17])));} ; - MELT_LOCATION("warmelt-first.melt:2263:/ quasiblock"); + MELT_LOCATION("warmelt-first.melt:2270:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = NULL;; - MELT_LOCATION("warmelt-first.melt:2263:/ finalreturn"); + MELT_LOCATION("warmelt-first.melt:2270:/ finalreturn"); ; /*finalret*/ goto labend_rout ; - MELT_LOCATION("warmelt-first.melt:2260:/ quasiblock"); + MELT_LOCATION("warmelt-first.melt:2267:/ quasiblock"); /*_.PROGN___V20*/ meltfptr[19] = /*_.RETURN___V19*/ meltfptr[18];; @@ -4522,7 +4522,7 @@ lab_endgetargs:; /*_.IF___V17*/ meltfptr[16] = /*_.PROGN___V20*/ meltfptr[19];; /*epilog*/ - MELT_LOCATION("warmelt-first.melt:2259:/ clear"); + MELT_LOCATION("warmelt-first.melt:2266:/ clear"); /*clear*/ /*_.NAMED_NAME__V18*/ meltfptr[17] = 0 ; /*^clear*/ /*clear*/ /*_.RETURN___V19*/ meltfptr[18] = 0 ; @@ -4536,17 +4536,17 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-first.melt:2265:/ cppif.then"); + MELT_LOCATION("warmelt-first.melt:2272:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L6*/ meltfnum[5] = melt_is_instance_of((melt_ptr_t)(/*_.ENV__V16*/ meltfptr[15]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ meltfrout->tabval[3])));; - MELT_LOCATION("warmelt-first.melt:2265:/ cond"); + MELT_LOCATION("warmelt-first.melt:2272:/ cond"); /*cond*/ if (/*_#IS_A__L6*/ meltfnum[5]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V22*/ meltfptr[18] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-first.melt:2265:/ cond.else"); + } else {MELT_LOCATION("warmelt-first.melt:2272:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -4557,7 +4557,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check env"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__, - (2265)?(2265):__LINE__, __FUNCTION__); + (2272)?(2272):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V22*/ meltfptr[18] = 0 ; @@ -4571,7 +4571,7 @@ lab_endgetargs:; /*_.IFCPP___V21*/ meltfptr[17] = /*_.IFELSE___V22*/ meltfptr[18];; /*epilog*/ - MELT_LOCATION("warmelt-first.melt:2265:/ clear"); + MELT_LOCATION("warmelt-first.melt:2272:/ clear"); /*clear*/ /*_#IS_A__L6*/ meltfnum[5] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V22*/ meltfptr[18] = 0 ;} @@ -4583,17 +4583,17 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-first.melt:2266:/ cppif.then"); + MELT_LOCATION("warmelt-first.melt:2273:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_CLOSURE__L7*/ meltfnum[5] = (melt_magic_discr((melt_ptr_t)(/*_.MACVAL__V3*/ meltfptr[2])) == OBMAG_CLOSURE);; - MELT_LOCATION("warmelt-first.melt:2266:/ cond"); + MELT_LOCATION("warmelt-first.melt:2273:/ cond"); /*cond*/ if (/*_#IS_CLOSURE__L7*/ meltfnum[5]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V24*/ meltfptr[18] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-first.melt:2266:/ cond.else"); + } else {MELT_LOCATION("warmelt-first.melt:2273:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -4604,7 +4604,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check macval is closure"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__, - (2266)?(2266):__LINE__, __FUNCTION__); + (2273)?(2273):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V24*/ meltfptr[18] = 0 ; @@ -4618,7 +4618,7 @@ lab_endgetargs:; /*_.IFCPP___V23*/ meltfptr[19] = /*_.IFELSE___V24*/ meltfptr[18];; /*epilog*/ - MELT_LOCATION("warmelt-first.melt:2266:/ clear"); + MELT_LOCATION("warmelt-first.melt:2273:/ clear"); /*clear*/ /*_#IS_CLOSURE__L7*/ meltfnum[5] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V24*/ meltfptr[18] = 0 ;} @@ -4630,17 +4630,17 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-first.melt:2267:/ cppif.then"); + MELT_LOCATION("warmelt-first.melt:2274:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_CLOSURE__L8*/ meltfnum[5] = (melt_magic_discr((melt_ptr_t)(/*_.PATVAL__V4*/ meltfptr[3])) == OBMAG_CLOSURE);; - MELT_LOCATION("warmelt-first.melt:2267:/ cond"); + MELT_LOCATION("warmelt-first.melt:2274:/ cond"); /*cond*/ if (/*_#IS_CLOSURE__L8*/ meltfnum[5]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V26*/ meltfptr[25] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-first.melt:2267:/ cond.else"); + } else {MELT_LOCATION("warmelt-first.melt:2274:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -4651,7 +4651,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check patval is closure"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__, - (2267)?(2267):__LINE__, __FUNCTION__); + (2274)?(2274):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V26*/ meltfptr[25] = 0 ; @@ -4665,7 +4665,7 @@ lab_endgetargs:; /*_.IFCPP___V25*/ meltfptr[18] = /*_.IFELSE___V26*/ meltfptr[25];; /*epilog*/ - MELT_LOCATION("warmelt-first.melt:2267:/ clear"); + MELT_LOCATION("warmelt-first.melt:2274:/ clear"); /*clear*/ /*_#IS_CLOSURE__L8*/ meltfnum[5] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V26*/ meltfptr[25] = 0 ;} @@ -4675,7 +4675,7 @@ lab_endgetargs:; /*_.IFCPP___V25*/ meltfptr[18] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-first.melt:2268:/ quasiblock"); + MELT_LOCATION("warmelt-first.melt:2275:/ quasiblock"); /*^quasiblock*/ @@ -4702,7 +4702,7 @@ lab_endgetargs:; melt_putfield_object((/*_.INST__V29*/ meltfptr[28]), (2), (/*_.PATVAL__V4*/ meltfptr[3]), "PATBIND_EXPANSER"); ; /*_.MACBIND__V28*/ meltfptr[27] = /*_.INST__V29*/ meltfptr[28];; - MELT_LOCATION("warmelt-first.melt:2274:/ apply"); + MELT_LOCATION("warmelt-first.melt:2281:/ apply"); /*apply*/{ union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); @@ -4713,13 +4713,13 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-first.melt:2275:/ cppif.then"); + MELT_LOCATION("warmelt-first.melt:2282:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L9*/ meltfnum[5] = meltcallcount;; - MELT_LOCATION("warmelt-first.melt:2275:/ apply"); + MELT_LOCATION("warmelt-first.melt:2282:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -4730,14 +4730,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].bp_cstring = "warmelt-first.melt"; /*^apply.arg*/ - argtab[3].bp_long = 2275; + argtab[3].bp_long = 2282; /*_.DEBUG_MSG_FUN__V32*/ meltfptr[31] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.MACBIND__V28*/ meltfptr[27]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V31*/ meltfptr[30] = /*_.DEBUG_MSG_FUN__V32*/ meltfptr[31];; /*epilog*/ - MELT_LOCATION("warmelt-first.melt:2275:/ clear"); + MELT_LOCATION("warmelt-first.melt:2282:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L9*/ meltfnum[5] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V32*/ meltfptr[31] = 0 ;} @@ -4747,16 +4747,16 @@ lab_endgetargs:; /*_.IFCPP___V31*/ meltfptr[30] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-first.melt:2276:/ quasiblock"); + MELT_LOCATION("warmelt-first.melt:2283:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = NULL;; - MELT_LOCATION("warmelt-first.melt:2276:/ finalreturn"); + MELT_LOCATION("warmelt-first.melt:2283:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*_.LET___V27*/ meltfptr[25] = /*_.RETURN___V33*/ meltfptr[31];; - MELT_LOCATION("warmelt-first.melt:2268:/ clear"); + MELT_LOCATION("warmelt-first.melt:2275:/ clear"); /*clear*/ /*_.MACBIND__V28*/ meltfptr[27] = 0 ; /*^clear*/ /*clear*/ /*_.PUT_ENV__V30*/ meltfptr[29] = 0 ; @@ -4766,7 +4766,7 @@ lab_endgetargs:; /*clear*/ /*_.RETURN___V33*/ meltfptr[31] = 0 ; /*_.LET___V15*/ meltfptr[11] = /*_.LET___V27*/ meltfptr[25];; - MELT_LOCATION("warmelt-first.melt:2258:/ clear"); + MELT_LOCATION("warmelt-first.melt:2265:/ clear"); /*clear*/ /*_.ENV__V16*/ meltfptr[15] = 0 ; /*^clear*/ /*clear*/ /*_#NULL__L5*/ meltfnum[3] = 0 ; @@ -4780,11 +4780,11 @@ lab_endgetargs:; /*clear*/ /*_.IFCPP___V25*/ meltfptr[18] = 0 ; /*^clear*/ /*clear*/ /*_.LET___V27*/ meltfptr[25] = 0 ; - MELT_LOCATION("warmelt-first.melt:2247:/ quasiblock"); + MELT_LOCATION("warmelt-first.melt:2254:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V15*/ meltfptr[11];; - MELT_LOCATION("warmelt-first.melt:2247:/ finalreturn"); + MELT_LOCATION("warmelt-first.melt:2254:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*epilog*/ @@ -4866,18 +4866,18 @@ melt_trace_start("INIT_EXITFINALIZER", meltcallcount); goto lab_endgetargs; lab_endgetargs:; /*body*/ -MELT_LOCATION("warmelt-first.melt:2297:/ block"); +MELT_LOCATION("warmelt-first.melt:2304:/ block"); /*anyblock*/{ #if ENABLE_CHECKING - MELT_LOCATION("warmelt-first.melt:2298:/ cppif.then"); + MELT_LOCATION("warmelt-first.melt:2305:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L1*/ meltfnum[0] = meltcallcount;; - MELT_LOCATION("warmelt-first.melt:2298:/ apply"); + MELT_LOCATION("warmelt-first.melt:2305:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -4888,14 +4888,14 @@ MELT_LOCATION("warmelt-first.melt:2297:/ block"); /*^apply.arg*/ argtab[2].bp_cstring = "warmelt-first.melt"; /*^apply.arg*/ - argtab[3].bp_long = 2298; + argtab[3].bp_long = 2305; /*_.DEBUG_MSG_FUN__V3*/ meltfptr[2] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*!FINAL_DELAYED_QUEUE*/ meltfrout->tabval[1])), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V2*/ meltfptr[1] = /*_.DEBUG_MSG_FUN__V3*/ meltfptr[2];; /*epilog*/ - MELT_LOCATION("warmelt-first.melt:2298:/ clear"); + MELT_LOCATION("warmelt-first.melt:2305:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L1*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V3*/ meltfptr[2] = 0 ;} @@ -4905,20 +4905,20 @@ MELT_LOCATION("warmelt-first.melt:2297:/ block"); /*_.IFCPP___V2*/ meltfptr[1] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-first.melt:2299:/ quasiblock"); + MELT_LOCATION("warmelt-first.melt:2306:/ quasiblock"); /*^getslot*/ { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)((/*!FINAL_DELAYED_QUEUE*/ meltfrout->tabval[1])), 2, "DELQU_FIRST");/*_.FIRSTLIST__V5*/ meltfptr[4] = slot; }; ; - MELT_LOCATION("warmelt-first.melt:2300:/ getslot"); + MELT_LOCATION("warmelt-first.melt:2307:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)((/*!FINAL_DELAYED_QUEUE*/ meltfrout->tabval[1])), 3, "DELQU_LAST");/*_.LASTLIST__V6*/ meltfptr[5] = slot; }; ; /*_.REVLASTLIST__V7*/ meltfptr[6] = (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ meltfrout->tabval[2]))));; - MELT_LOCATION("warmelt-first.melt:2302:/ quasiblock"); + MELT_LOCATION("warmelt-first.melt:2309:/ quasiblock"); /*^rawallocobj*/ @@ -4927,7 +4927,7 @@ MELT_LOCATION("warmelt-first.melt:2297:/ block"); newobj; }; ; /*_.RESCONT__V8*/ meltfptr[7] = /*_.INST__V9*/ meltfptr[8];; - MELT_LOCATION("warmelt-first.melt:2307:/ quasiblock"); + MELT_LOCATION("warmelt-first.melt:2314:/ quasiblock"); /*^newclosure*/ @@ -4941,7 +4941,7 @@ MELT_LOCATION("warmelt-first.melt:2297:/ block"); ((meltclosure_ptr_t)/*_.LAMBDA___V11*/ meltfptr[10])->tabval[0] = (melt_ptr_t)(/*_.RESCONT__V8*/ meltfptr[7]); ; /*_.LAMBDA___V10*/ meltfptr[9] = /*_.LAMBDA___V11*/ meltfptr[10];; - MELT_LOCATION("warmelt-first.melt:2305:/ apply"); + MELT_LOCATION("warmelt-first.melt:2312:/ apply"); /*apply*/{ union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); @@ -4950,7 +4950,7 @@ MELT_LOCATION("warmelt-first.melt:2297:/ block"); /*_.LIST_EVERY__V12*/ meltfptr[11] = melt_apply ((meltclosure_ptr_t)((/*!LIST_EVERY*/ meltfrout->tabval[4])), (melt_ptr_t)(/*_.FIRSTLIST__V5*/ meltfptr[4]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - MELT_LOCATION("warmelt-first.melt:2316:/ quasiblock"); + MELT_LOCATION("warmelt-first.melt:2323:/ quasiblock"); /*^newclosure*/ @@ -4964,7 +4964,7 @@ MELT_LOCATION("warmelt-first.melt:2297:/ block"); ((meltclosure_ptr_t)/*_.LAMBDA___V14*/ meltfptr[13])->tabval[0] = (melt_ptr_t)(/*_.REVLASTLIST__V7*/ meltfptr[6]); ; /*_.LAMBDA___V13*/ meltfptr[12] = /*_.LAMBDA___V14*/ meltfptr[13];; - MELT_LOCATION("warmelt-first.melt:2314:/ apply"); + MELT_LOCATION("warmelt-first.melt:2321:/ apply"); /*apply*/{ union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); @@ -4973,7 +4973,7 @@ MELT_LOCATION("warmelt-first.melt:2297:/ block"); /*_.LIST_EVERY__V15*/ meltfptr[14] = melt_apply ((meltclosure_ptr_t)((/*!LIST_EVERY*/ meltfrout->tabval[4])), (melt_ptr_t)(/*_.LASTLIST__V6*/ meltfptr[5]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - MELT_LOCATION("warmelt-first.melt:2321:/ quasiblock"); + MELT_LOCATION("warmelt-first.melt:2328:/ quasiblock"); /*^newclosure*/ @@ -4987,7 +4987,7 @@ MELT_LOCATION("warmelt-first.melt:2297:/ block"); ((meltclosure_ptr_t)/*_.LAMBDA___V17*/ meltfptr[16])->tabval[0] = (melt_ptr_t)(/*_.RESCONT__V8*/ meltfptr[7]); ; /*_.LAMBDA___V16*/ meltfptr[15] = /*_.LAMBDA___V17*/ meltfptr[16];; - MELT_LOCATION("warmelt-first.melt:2319:/ apply"); + MELT_LOCATION("warmelt-first.melt:2326:/ apply"); /*apply*/{ union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); @@ -4998,13 +4998,13 @@ MELT_LOCATION("warmelt-first.melt:2297:/ block"); ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-first.melt:2327:/ cppif.then"); + MELT_LOCATION("warmelt-first.melt:2334:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L2*/ meltfnum[0] = meltcallcount;; - MELT_LOCATION("warmelt-first.melt:2327:/ apply"); + MELT_LOCATION("warmelt-first.melt:2334:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -5015,14 +5015,14 @@ MELT_LOCATION("warmelt-first.melt:2297:/ block"); /*^apply.arg*/ argtab[2].bp_cstring = "warmelt-first.melt"; /*^apply.arg*/ - argtab[3].bp_long = 2327; + argtab[3].bp_long = 2334; /*_.DEBUG_MSG_FUN__V20*/ meltfptr[19] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.RESCONT__V8*/ meltfptr[7]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V19*/ meltfptr[18] = /*_.DEBUG_MSG_FUN__V20*/ meltfptr[19];; /*epilog*/ - MELT_LOCATION("warmelt-first.melt:2327:/ clear"); + MELT_LOCATION("warmelt-first.melt:2334:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L2*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V20*/ meltfptr[19] = 0 ;} @@ -5036,7 +5036,7 @@ MELT_LOCATION("warmelt-first.melt:2297:/ block"); /*_.LET___V4*/ meltfptr[2] = /*_.IFCPP___V19*/ meltfptr[18];; - MELT_LOCATION("warmelt-first.melt:2299:/ clear"); + MELT_LOCATION("warmelt-first.melt:2306:/ clear"); /*clear*/ /*_.FIRSTLIST__V5*/ meltfptr[4] = 0 ; /*^clear*/ /*clear*/ /*_.LASTLIST__V6*/ meltfptr[5] = 0 ; @@ -5058,11 +5058,11 @@ MELT_LOCATION("warmelt-first.melt:2297:/ block"); /*clear*/ /*_.LIST_EVERY__V18*/ meltfptr[17] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V19*/ meltfptr[18] = 0 ; - MELT_LOCATION("warmelt-first.melt:2297:/ quasiblock"); + MELT_LOCATION("warmelt-first.melt:2304:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V4*/ meltfptr[2];; - MELT_LOCATION("warmelt-first.melt:2297:/ finalreturn"); + MELT_LOCATION("warmelt-first.melt:2304:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*epilog*/ @@ -5134,7 +5134,7 @@ melt_trace_start("LAMBDA_", meltcallcount); /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-first.melt:2307:/ getarg"); + MELT_LOCATION("warmelt-first.melt:2314:/ getarg"); /*_.FIRSTPROC__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; ; goto lab_endgetargs; @@ -5143,14 +5143,14 @@ lab_endgetargs:; /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-first.melt:2308:/ quasiblock"); + MELT_LOCATION("warmelt-first.melt:2315:/ quasiblock"); /*^getslot*/ { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)((/*~RESCONT*/ meltfclos->tabval[0])), 0, "CONTAINER_VALUE");/*_.PREVRES__V3*/ meltfptr[2] = slot; }; ; - MELT_LOCATION("warmelt-first.melt:2309:/ apply"); + MELT_LOCATION("warmelt-first.melt:2316:/ apply"); /*apply*/{ union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); @@ -5159,7 +5159,7 @@ lab_endgetargs:; /*_.NEXTRES__V4*/ meltfptr[3] = melt_apply ((meltclosure_ptr_t)(/*_.FIRSTPROC__V2*/ meltfptr[1]), (melt_ptr_t)(/*_.PREVRES__V3*/ meltfptr[2]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - MELT_LOCATION("warmelt-first.melt:2311:/ quasiblock"); + MELT_LOCATION("warmelt-first.melt:2318:/ quasiblock"); /*^putslot*/ @@ -5172,7 +5172,7 @@ lab_endgetargs:; ; - MELT_LOCATION("warmelt-first.melt:2308:/ clear"); + MELT_LOCATION("warmelt-first.melt:2315:/ clear"); /*clear*/ /*_.PREVRES__V3*/ meltfptr[2] = 0 ; /*^clear*/ /*clear*/ /*_.NEXTRES__V4*/ meltfptr[3] = 0 ; @@ -5241,7 +5241,7 @@ melt_trace_start("LAMBDA_", meltcallcount); /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-first.melt:2316:/ getarg"); + MELT_LOCATION("warmelt-first.melt:2323:/ getarg"); /*_.LASTPROC__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; ; goto lab_endgetargs; @@ -5252,7 +5252,7 @@ lab_endgetargs:; /*_#IS_CLOSURE__L1*/ meltfnum[0] = (melt_magic_discr((melt_ptr_t)(/*_.LASTPROC__V2*/ meltfptr[1])) == OBMAG_CLOSURE);; - MELT_LOCATION("warmelt-first.melt:2317:/ cond"); + MELT_LOCATION("warmelt-first.melt:2324:/ cond"); /*cond*/ if (/*_#IS_CLOSURE__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -5270,7 +5270,7 @@ lab_endgetargs:; ; /*epilog*/ - MELT_LOCATION("warmelt-first.melt:2316:/ clear"); + MELT_LOCATION("warmelt-first.melt:2323:/ clear"); /*clear*/ /*_#IS_CLOSURE__L1*/ meltfnum[0] = 0 ;} ; @@ -5335,7 +5335,7 @@ melt_trace_start("LAMBDA_", meltcallcount); /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-first.melt:2321:/ getarg"); + MELT_LOCATION("warmelt-first.melt:2328:/ getarg"); /*_.LASTPROC__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; ; goto lab_endgetargs; @@ -5344,14 +5344,14 @@ lab_endgetargs:; /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-first.melt:2322:/ quasiblock"); + MELT_LOCATION("warmelt-first.melt:2329:/ quasiblock"); /*^getslot*/ { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)((/*~RESCONT*/ meltfclos->tabval[0])), 0, "CONTAINER_VALUE");/*_.PREVRES__V3*/ meltfptr[2] = slot; }; ; - MELT_LOCATION("warmelt-first.melt:2323:/ apply"); + MELT_LOCATION("warmelt-first.melt:2330:/ apply"); /*apply*/{ union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); @@ -5360,7 +5360,7 @@ lab_endgetargs:; /*_.NEXTRES__V4*/ meltfptr[3] = melt_apply ((meltclosure_ptr_t)(/*_.LASTPROC__V2*/ meltfptr[1]), (melt_ptr_t)(/*_.PREVRES__V3*/ meltfptr[2]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - MELT_LOCATION("warmelt-first.melt:2325:/ quasiblock"); + MELT_LOCATION("warmelt-first.melt:2332:/ quasiblock"); /*^putslot*/ @@ -5373,7 +5373,7 @@ lab_endgetargs:; ; - MELT_LOCATION("warmelt-first.melt:2322:/ clear"); + MELT_LOCATION("warmelt-first.melt:2329:/ clear"); /*clear*/ /*_.PREVRES__V3*/ meltfptr[2] = 0 ; /*^clear*/ /*clear*/ /*_.NEXTRES__V4*/ meltfptr[3] = 0 ; @@ -5442,7 +5442,7 @@ melt_trace_start("AT_EXIT_FIRST", meltcallcount); /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-first.melt:2331:/ getarg"); + MELT_LOCATION("warmelt-first.melt:2338:/ getarg"); /*_.FUN__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; ; goto lab_endgetargs; @@ -5451,7 +5451,7 @@ lab_endgetargs:; /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-first.melt:2334:/ quasiblock"); + MELT_LOCATION("warmelt-first.melt:2341:/ quasiblock"); /*^getslot*/ @@ -5460,7 +5460,7 @@ lab_endgetargs:; ; /*_#IS_CLOSURE__L1*/ meltfnum[0] = (melt_magic_discr((melt_ptr_t)(/*_.FUN__V2*/ meltfptr[1])) == OBMAG_CLOSURE);; - MELT_LOCATION("warmelt-first.melt:2336:/ cond"); + MELT_LOCATION("warmelt-first.melt:2343:/ cond"); /*cond*/ if (/*_#IS_CLOSURE__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -5477,7 +5477,7 @@ lab_endgetargs:; } /*noelse*/ ; - MELT_LOCATION("warmelt-first.melt:2334:/ clear"); + MELT_LOCATION("warmelt-first.melt:2341:/ clear"); /*clear*/ /*_.FIRSTLIST__V3*/ meltfptr[2] = 0 ; /*^clear*/ /*clear*/ /*_#IS_CLOSURE__L1*/ meltfnum[0] = 0 ; @@ -5546,7 +5546,7 @@ melt_trace_start("AT_EXIT_LAST", meltcallcount); /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-first.melt:2339:/ getarg"); + MELT_LOCATION("warmelt-first.melt:2346:/ getarg"); /*_.FUN__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; ; goto lab_endgetargs; @@ -5555,7 +5555,7 @@ lab_endgetargs:; /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-first.melt:2342:/ quasiblock"); + MELT_LOCATION("warmelt-first.melt:2349:/ quasiblock"); /*^getslot*/ @@ -5564,7 +5564,7 @@ lab_endgetargs:; ; /*_#IS_CLOSURE__L1*/ meltfnum[0] = (melt_magic_discr((melt_ptr_t)(/*_.FUN__V2*/ meltfptr[1])) == OBMAG_CLOSURE);; - MELT_LOCATION("warmelt-first.melt:2344:/ cond"); + MELT_LOCATION("warmelt-first.melt:2351:/ cond"); /*cond*/ if (/*_#IS_CLOSURE__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -5581,7 +5581,7 @@ lab_endgetargs:; } /*noelse*/ ; - MELT_LOCATION("warmelt-first.melt:2342:/ clear"); + MELT_LOCATION("warmelt-first.melt:2349:/ clear"); /*clear*/ /*_.LASTLIST__V3*/ meltfptr[2] = 0 ; /*^clear*/ /*clear*/ /*_#IS_CLOSURE__L1*/ meltfnum[0] = 0 ; @@ -5652,18 +5652,18 @@ melt_trace_start("INIT_UNITSTARTER", meltcallcount); goto lab_endgetargs; lab_endgetargs:; /*body*/ -MELT_LOCATION("warmelt-first.melt:2355:/ block"); +MELT_LOCATION("warmelt-first.melt:2362:/ block"); /*anyblock*/{ #if ENABLE_CHECKING - MELT_LOCATION("warmelt-first.melt:2356:/ cppif.then"); + MELT_LOCATION("warmelt-first.melt:2363:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L1*/ meltfnum[0] = meltcallcount;; - MELT_LOCATION("warmelt-first.melt:2356:/ apply"); + MELT_LOCATION("warmelt-first.melt:2363:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -5674,14 +5674,14 @@ MELT_LOCATION("warmelt-first.melt:2355:/ block"); /*^apply.arg*/ argtab[2].bp_cstring = "warmelt-first.melt"; /*^apply.arg*/ - argtab[3].bp_long = 2356; + argtab[3].bp_long = 2363; /*_.DEBUG_MSG_FUN__V3*/ meltfptr[2] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*!START_UNIT_DELAYED_QUEUE*/ meltfrout->tabval[1])), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V2*/ meltfptr[1] = /*_.DEBUG_MSG_FUN__V3*/ meltfptr[2];; /*epilog*/ - MELT_LOCATION("warmelt-first.melt:2356:/ clear"); + MELT_LOCATION("warmelt-first.melt:2363:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L1*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V3*/ meltfptr[2] = 0 ;} @@ -5691,20 +5691,20 @@ MELT_LOCATION("warmelt-first.melt:2355:/ block"); /*_.IFCPP___V2*/ meltfptr[1] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-first.melt:2357:/ quasiblock"); + MELT_LOCATION("warmelt-first.melt:2364:/ quasiblock"); /*^getslot*/ { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)((/*!START_UNIT_DELAYED_QUEUE*/ meltfrout->tabval[1])), 2, "DELQU_FIRST");/*_.FIRSTLIST__V5*/ meltfptr[4] = slot; }; ; - MELT_LOCATION("warmelt-first.melt:2358:/ getslot"); + MELT_LOCATION("warmelt-first.melt:2365:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)((/*!START_UNIT_DELAYED_QUEUE*/ meltfrout->tabval[1])), 3, "DELQU_LAST");/*_.LASTLIST__V6*/ meltfptr[5] = slot; }; ; /*_.REVLASTLIST__V7*/ meltfptr[6] = (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ meltfrout->tabval[2]))));; - MELT_LOCATION("warmelt-first.melt:2360:/ quasiblock"); + MELT_LOCATION("warmelt-first.melt:2367:/ quasiblock"); /*^rawallocobj*/ @@ -5713,7 +5713,7 @@ MELT_LOCATION("warmelt-first.melt:2355:/ block"); newobj; }; ; /*_.RESCONT__V8*/ meltfptr[7] = /*_.INST__V9*/ meltfptr[8];; - MELT_LOCATION("warmelt-first.melt:2365:/ quasiblock"); + MELT_LOCATION("warmelt-first.melt:2372:/ quasiblock"); /*^newclosure*/ @@ -5727,7 +5727,7 @@ MELT_LOCATION("warmelt-first.melt:2355:/ block"); ((meltclosure_ptr_t)/*_.LAMBDA___V11*/ meltfptr[10])->tabval[0] = (melt_ptr_t)(/*_.RESCONT__V8*/ meltfptr[7]); ; /*_.LAMBDA___V10*/ meltfptr[9] = /*_.LAMBDA___V11*/ meltfptr[10];; - MELT_LOCATION("warmelt-first.melt:2363:/ apply"); + MELT_LOCATION("warmelt-first.melt:2370:/ apply"); /*apply*/{ union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); @@ -5736,7 +5736,7 @@ MELT_LOCATION("warmelt-first.melt:2355:/ block"); /*_.LIST_EVERY__V12*/ meltfptr[11] = melt_apply ((meltclosure_ptr_t)((/*!LIST_EVERY*/ meltfrout->tabval[4])), (melt_ptr_t)(/*_.FIRSTLIST__V5*/ meltfptr[4]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - MELT_LOCATION("warmelt-first.melt:2374:/ quasiblock"); + MELT_LOCATION("warmelt-first.melt:2381:/ quasiblock"); /*^newclosure*/ @@ -5750,7 +5750,7 @@ MELT_LOCATION("warmelt-first.melt:2355:/ block"); ((meltclosure_ptr_t)/*_.LAMBDA___V14*/ meltfptr[13])->tabval[0] = (melt_ptr_t)(/*_.REVLASTLIST__V7*/ meltfptr[6]); ; /*_.LAMBDA___V13*/ meltfptr[12] = /*_.LAMBDA___V14*/ meltfptr[13];; - MELT_LOCATION("warmelt-first.melt:2372:/ apply"); + MELT_LOCATION("warmelt-first.melt:2379:/ apply"); /*apply*/{ union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); @@ -5759,7 +5759,7 @@ MELT_LOCATION("warmelt-first.melt:2355:/ block"); /*_.LIST_EVERY__V15*/ meltfptr[14] = melt_apply ((meltclosure_ptr_t)((/*!LIST_EVERY*/ meltfrout->tabval[4])), (melt_ptr_t)(/*_.LASTLIST__V6*/ meltfptr[5]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - MELT_LOCATION("warmelt-first.melt:2379:/ quasiblock"); + MELT_LOCATION("warmelt-first.melt:2386:/ quasiblock"); /*^newclosure*/ @@ -5773,7 +5773,7 @@ MELT_LOCATION("warmelt-first.melt:2355:/ block"); ((meltclosure_ptr_t)/*_.LAMBDA___V17*/ meltfptr[16])->tabval[0] = (melt_ptr_t)(/*_.RESCONT__V8*/ meltfptr[7]); ; /*_.LAMBDA___V16*/ meltfptr[15] = /*_.LAMBDA___V17*/ meltfptr[16];; - MELT_LOCATION("warmelt-first.melt:2377:/ apply"); + MELT_LOCATION("warmelt-first.melt:2384:/ apply"); /*apply*/{ union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); @@ -5784,13 +5784,13 @@ MELT_LOCATION("warmelt-first.melt:2355:/ block"); ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-first.melt:2385:/ cppif.then"); + MELT_LOCATION("warmelt-first.melt:2392:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L2*/ meltfnum[0] = meltcallcount;; - MELT_LOCATION("warmelt-first.melt:2385:/ apply"); + MELT_LOCATION("warmelt-first.melt:2392:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -5801,14 +5801,14 @@ MELT_LOCATION("warmelt-first.melt:2355:/ block"); /*^apply.arg*/ argtab[2].bp_cstring = "warmelt-first.melt"; /*^apply.arg*/ - argtab[3].bp_long = 2385; + argtab[3].bp_long = 2392; /*_.DEBUG_MSG_FUN__V20*/ meltfptr[19] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.RESCONT__V8*/ meltfptr[7]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V19*/ meltfptr[18] = /*_.DEBUG_MSG_FUN__V20*/ meltfptr[19];; /*epilog*/ - MELT_LOCATION("warmelt-first.melt:2385:/ clear"); + MELT_LOCATION("warmelt-first.melt:2392:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L2*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V20*/ meltfptr[19] = 0 ;} @@ -5822,7 +5822,7 @@ MELT_LOCATION("warmelt-first.melt:2355:/ block"); /*_.LET___V4*/ meltfptr[2] = /*_.IFCPP___V19*/ meltfptr[18];; - MELT_LOCATION("warmelt-first.melt:2357:/ clear"); + MELT_LOCATION("warmelt-first.melt:2364:/ clear"); /*clear*/ /*_.FIRSTLIST__V5*/ meltfptr[4] = 0 ; /*^clear*/ /*clear*/ /*_.LASTLIST__V6*/ meltfptr[5] = 0 ; @@ -5844,11 +5844,11 @@ MELT_LOCATION("warmelt-first.melt:2355:/ block"); /*clear*/ /*_.LIST_EVERY__V18*/ meltfptr[17] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V19*/ meltfptr[18] = 0 ; - MELT_LOCATION("warmelt-first.melt:2355:/ quasiblock"); + MELT_LOCATION("warmelt-first.melt:2362:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V4*/ meltfptr[2];; - MELT_LOCATION("warmelt-first.melt:2355:/ finalreturn"); + MELT_LOCATION("warmelt-first.melt:2362:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*epilog*/ @@ -5920,7 +5920,7 @@ melt_trace_start("LAMBDA_", meltcallcount); /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-first.melt:2365:/ getarg"); + MELT_LOCATION("warmelt-first.melt:2372:/ getarg"); /*_.FIRSTPROC__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; ; goto lab_endgetargs; @@ -5929,14 +5929,14 @@ lab_endgetargs:; /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-first.melt:2366:/ quasiblock"); + MELT_LOCATION("warmelt-first.melt:2373:/ quasiblock"); /*^getslot*/ { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)((/*~RESCONT*/ meltfclos->tabval[0])), 0, "CONTAINER_VALUE");/*_.PREVRES__V3*/ meltfptr[2] = slot; }; ; - MELT_LOCATION("warmelt-first.melt:2367:/ apply"); + MELT_LOCATION("warmelt-first.melt:2374:/ apply"); /*apply*/{ union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); @@ -5945,7 +5945,7 @@ lab_endgetargs:; /*_.NEXTRES__V4*/ meltfptr[3] = melt_apply ((meltclosure_ptr_t)(/*_.FIRSTPROC__V2*/ meltfptr[1]), (melt_ptr_t)(/*_.PREVRES__V3*/ meltfptr[2]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - MELT_LOCATION("warmelt-first.melt:2369:/ quasiblock"); + MELT_LOCATION("warmelt-first.melt:2376:/ quasiblock"); /*^putslot*/ @@ -5958,7 +5958,7 @@ lab_endgetargs:; ; - MELT_LOCATION("warmelt-first.melt:2366:/ clear"); + MELT_LOCATION("warmelt-first.melt:2373:/ clear"); /*clear*/ /*_.PREVRES__V3*/ meltfptr[2] = 0 ; /*^clear*/ /*clear*/ /*_.NEXTRES__V4*/ meltfptr[3] = 0 ; @@ -6027,7 +6027,7 @@ melt_trace_start("LAMBDA_", meltcallcount); /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-first.melt:2374:/ getarg"); + MELT_LOCATION("warmelt-first.melt:2381:/ getarg"); /*_.LASTPROC__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; ; goto lab_endgetargs; @@ -6038,7 +6038,7 @@ lab_endgetargs:; /*_#IS_CLOSURE__L1*/ meltfnum[0] = (melt_magic_discr((melt_ptr_t)(/*_.LASTPROC__V2*/ meltfptr[1])) == OBMAG_CLOSURE);; - MELT_LOCATION("warmelt-first.melt:2375:/ cond"); + MELT_LOCATION("warmelt-first.melt:2382:/ cond"); /*cond*/ if (/*_#IS_CLOSURE__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -6056,7 +6056,7 @@ lab_endgetargs:; ; /*epilog*/ - MELT_LOCATION("warmelt-first.melt:2374:/ clear"); + MELT_LOCATION("warmelt-first.melt:2381:/ clear"); /*clear*/ /*_#IS_CLOSURE__L1*/ meltfnum[0] = 0 ;} ; @@ -6121,7 +6121,7 @@ melt_trace_start("LAMBDA_", meltcallcount); /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-first.melt:2379:/ getarg"); + MELT_LOCATION("warmelt-first.melt:2386:/ getarg"); /*_.LASTPROC__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; ; goto lab_endgetargs; @@ -6130,14 +6130,14 @@ lab_endgetargs:; /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-first.melt:2380:/ quasiblock"); + MELT_LOCATION("warmelt-first.melt:2387:/ quasiblock"); /*^getslot*/ { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)((/*~RESCONT*/ meltfclos->tabval[0])), 0, "CONTAINER_VALUE");/*_.PREVRES__V3*/ meltfptr[2] = slot; }; ; - MELT_LOCATION("warmelt-first.melt:2381:/ apply"); + MELT_LOCATION("warmelt-first.melt:2388:/ apply"); /*apply*/{ union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); @@ -6146,7 +6146,7 @@ lab_endgetargs:; /*_.NEXTRES__V4*/ meltfptr[3] = melt_apply ((meltclosure_ptr_t)(/*_.LASTPROC__V2*/ meltfptr[1]), (melt_ptr_t)(/*_.PREVRES__V3*/ meltfptr[2]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - MELT_LOCATION("warmelt-first.melt:2383:/ quasiblock"); + MELT_LOCATION("warmelt-first.melt:2390:/ quasiblock"); /*^putslot*/ @@ -6159,7 +6159,7 @@ lab_endgetargs:; ; - MELT_LOCATION("warmelt-first.melt:2380:/ clear"); + MELT_LOCATION("warmelt-first.melt:2387:/ clear"); /*clear*/ /*_.PREVRES__V3*/ meltfptr[2] = 0 ; /*^clear*/ /*clear*/ /*_.NEXTRES__V4*/ meltfptr[3] = 0 ; @@ -6228,7 +6228,7 @@ melt_trace_start("AT_START_UNIT_FIRST", meltcallcount); /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-first.melt:2389:/ getarg"); + MELT_LOCATION("warmelt-first.melt:2396:/ getarg"); /*_.FUN__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; ; goto lab_endgetargs; @@ -6237,7 +6237,7 @@ lab_endgetargs:; /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-first.melt:2391:/ quasiblock"); + MELT_LOCATION("warmelt-first.melt:2398:/ quasiblock"); /*^getslot*/ @@ -6246,7 +6246,7 @@ lab_endgetargs:; ; /*_#IS_CLOSURE__L1*/ meltfnum[0] = (melt_magic_discr((melt_ptr_t)(/*_.FUN__V2*/ meltfptr[1])) == OBMAG_CLOSURE);; - MELT_LOCATION("warmelt-first.melt:2393:/ cond"); + MELT_LOCATION("warmelt-first.melt:2400:/ cond"); /*cond*/ if (/*_#IS_CLOSURE__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -6263,7 +6263,7 @@ lab_endgetargs:; } /*noelse*/ ; - MELT_LOCATION("warmelt-first.melt:2391:/ clear"); + MELT_LOCATION("warmelt-first.melt:2398:/ clear"); /*clear*/ /*_.FIRSTLIST__V3*/ meltfptr[2] = 0 ; /*^clear*/ /*clear*/ /*_#IS_CLOSURE__L1*/ meltfnum[0] = 0 ; @@ -6332,7 +6332,7 @@ melt_trace_start("AT_START_UNIT_LAST", meltcallcount); /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-first.melt:2396:/ getarg"); + MELT_LOCATION("warmelt-first.melt:2403:/ getarg"); /*_.FUN__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; ; goto lab_endgetargs; @@ -6341,7 +6341,7 @@ lab_endgetargs:; /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-first.melt:2398:/ quasiblock"); + MELT_LOCATION("warmelt-first.melt:2405:/ quasiblock"); /*^getslot*/ @@ -6350,7 +6350,7 @@ lab_endgetargs:; ; /*_#IS_CLOSURE__L1*/ meltfnum[0] = (melt_magic_discr((melt_ptr_t)(/*_.FUN__V2*/ meltfptr[1])) == OBMAG_CLOSURE);; - MELT_LOCATION("warmelt-first.melt:2400:/ cond"); + MELT_LOCATION("warmelt-first.melt:2407:/ cond"); /*cond*/ if (/*_#IS_CLOSURE__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -6367,7 +6367,7 @@ lab_endgetargs:; } /*noelse*/ ; - MELT_LOCATION("warmelt-first.melt:2398:/ clear"); + MELT_LOCATION("warmelt-first.melt:2405:/ clear"); /*clear*/ /*_.LASTLIST__V3*/ meltfptr[2] = 0 ; /*^clear*/ /*clear*/ /*_#IS_CLOSURE__L1*/ meltfnum[0] = 0 ; @@ -6438,18 +6438,18 @@ melt_trace_start("INIT_UNITFINISHER", meltcallcount); goto lab_endgetargs; lab_endgetargs:; /*body*/ -MELT_LOCATION("warmelt-first.melt:2411:/ block"); +MELT_LOCATION("warmelt-first.melt:2418:/ block"); /*anyblock*/{ #if ENABLE_CHECKING - MELT_LOCATION("warmelt-first.melt:2412:/ cppif.then"); + MELT_LOCATION("warmelt-first.melt:2419:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L1*/ meltfnum[0] = meltcallcount;; - MELT_LOCATION("warmelt-first.melt:2412:/ apply"); + MELT_LOCATION("warmelt-first.melt:2419:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -6460,14 +6460,14 @@ MELT_LOCATION("warmelt-first.melt:2411:/ block"); /*^apply.arg*/ argtab[2].bp_cstring = "warmelt-first.melt"; /*^apply.arg*/ - argtab[3].bp_long = 2412; + argtab[3].bp_long = 2419; /*_.DEBUG_MSG_FUN__V3*/ meltfptr[2] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*!FINISH_UNIT_DELAYED_QUEUE*/ meltfrout->tabval[1])), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V2*/ meltfptr[1] = /*_.DEBUG_MSG_FUN__V3*/ meltfptr[2];; /*epilog*/ - MELT_LOCATION("warmelt-first.melt:2412:/ clear"); + MELT_LOCATION("warmelt-first.melt:2419:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L1*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V3*/ meltfptr[2] = 0 ;} @@ -6477,20 +6477,20 @@ MELT_LOCATION("warmelt-first.melt:2411:/ block"); /*_.IFCPP___V2*/ meltfptr[1] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-first.melt:2413:/ quasiblock"); + MELT_LOCATION("warmelt-first.melt:2420:/ quasiblock"); /*^getslot*/ { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)((/*!FINISH_UNIT_DELAYED_QUEUE*/ meltfrout->tabval[1])), 2, "DELQU_FIRST");/*_.FIRSTLIST__V5*/ meltfptr[4] = slot; }; ; - MELT_LOCATION("warmelt-first.melt:2414:/ getslot"); + MELT_LOCATION("warmelt-first.melt:2421:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)((/*!FINISH_UNIT_DELAYED_QUEUE*/ meltfrout->tabval[1])), 3, "DELQU_LAST");/*_.LASTLIST__V6*/ meltfptr[5] = slot; }; ; /*_.REVLASTLIST__V7*/ meltfptr[6] = (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ meltfrout->tabval[2]))));; - MELT_LOCATION("warmelt-first.melt:2416:/ quasiblock"); + MELT_LOCATION("warmelt-first.melt:2423:/ quasiblock"); /*^rawallocobj*/ @@ -6499,7 +6499,7 @@ MELT_LOCATION("warmelt-first.melt:2411:/ block"); newobj; }; ; /*_.RESCONT__V8*/ meltfptr[7] = /*_.INST__V9*/ meltfptr[8];; - MELT_LOCATION("warmelt-first.melt:2421:/ quasiblock"); + MELT_LOCATION("warmelt-first.melt:2428:/ quasiblock"); /*^newclosure*/ @@ -6513,7 +6513,7 @@ MELT_LOCATION("warmelt-first.melt:2411:/ block"); ((meltclosure_ptr_t)/*_.LAMBDA___V11*/ meltfptr[10])->tabval[0] = (melt_ptr_t)(/*_.RESCONT__V8*/ meltfptr[7]); ; /*_.LAMBDA___V10*/ meltfptr[9] = /*_.LAMBDA___V11*/ meltfptr[10];; - MELT_LOCATION("warmelt-first.melt:2419:/ apply"); + MELT_LOCATION("warmelt-first.melt:2426:/ apply"); /*apply*/{ union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); @@ -6522,7 +6522,7 @@ MELT_LOCATION("warmelt-first.melt:2411:/ block"); /*_.LIST_EVERY__V12*/ meltfptr[11] = melt_apply ((meltclosure_ptr_t)((/*!LIST_EVERY*/ meltfrout->tabval[4])), (melt_ptr_t)(/*_.FIRSTLIST__V5*/ meltfptr[4]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - MELT_LOCATION("warmelt-first.melt:2430:/ quasiblock"); + MELT_LOCATION("warmelt-first.melt:2437:/ quasiblock"); /*^newclosure*/ @@ -6536,7 +6536,7 @@ MELT_LOCATION("warmelt-first.melt:2411:/ block"); ((meltclosure_ptr_t)/*_.LAMBDA___V14*/ meltfptr[13])->tabval[0] = (melt_ptr_t)(/*_.REVLASTLIST__V7*/ meltfptr[6]); ; /*_.LAMBDA___V13*/ meltfptr[12] = /*_.LAMBDA___V14*/ meltfptr[13];; - MELT_LOCATION("warmelt-first.melt:2428:/ apply"); + MELT_LOCATION("warmelt-first.melt:2435:/ apply"); /*apply*/{ union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); @@ -6545,7 +6545,7 @@ MELT_LOCATION("warmelt-first.melt:2411:/ block"); /*_.LIST_EVERY__V15*/ meltfptr[14] = melt_apply ((meltclosure_ptr_t)((/*!LIST_EVERY*/ meltfrout->tabval[4])), (melt_ptr_t)(/*_.LASTLIST__V6*/ meltfptr[5]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - MELT_LOCATION("warmelt-first.melt:2435:/ quasiblock"); + MELT_LOCATION("warmelt-first.melt:2442:/ quasiblock"); /*^newclosure*/ @@ -6559,7 +6559,7 @@ MELT_LOCATION("warmelt-first.melt:2411:/ block"); ((meltclosure_ptr_t)/*_.LAMBDA___V17*/ meltfptr[16])->tabval[0] = (melt_ptr_t)(/*_.RESCONT__V8*/ meltfptr[7]); ; /*_.LAMBDA___V16*/ meltfptr[15] = /*_.LAMBDA___V17*/ meltfptr[16];; - MELT_LOCATION("warmelt-first.melt:2433:/ apply"); + MELT_LOCATION("warmelt-first.melt:2440:/ apply"); /*apply*/{ union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); @@ -6570,13 +6570,13 @@ MELT_LOCATION("warmelt-first.melt:2411:/ block"); ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-first.melt:2441:/ cppif.then"); + MELT_LOCATION("warmelt-first.melt:2448:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L2*/ meltfnum[0] = meltcallcount;; - MELT_LOCATION("warmelt-first.melt:2441:/ apply"); + MELT_LOCATION("warmelt-first.melt:2448:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -6587,14 +6587,14 @@ MELT_LOCATION("warmelt-first.melt:2411:/ block"); /*^apply.arg*/ argtab[2].bp_cstring = "warmelt-first.melt"; /*^apply.arg*/ - argtab[3].bp_long = 2441; + argtab[3].bp_long = 2448; /*_.DEBUG_MSG_FUN__V20*/ meltfptr[19] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.RESCONT__V8*/ meltfptr[7]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V19*/ meltfptr[18] = /*_.DEBUG_MSG_FUN__V20*/ meltfptr[19];; /*epilog*/ - MELT_LOCATION("warmelt-first.melt:2441:/ clear"); + MELT_LOCATION("warmelt-first.melt:2448:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L2*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V20*/ meltfptr[19] = 0 ;} @@ -6608,7 +6608,7 @@ MELT_LOCATION("warmelt-first.melt:2411:/ block"); /*_.LET___V4*/ meltfptr[2] = /*_.IFCPP___V19*/ meltfptr[18];; - MELT_LOCATION("warmelt-first.melt:2413:/ clear"); + MELT_LOCATION("warmelt-first.melt:2420:/ clear"); /*clear*/ /*_.FIRSTLIST__V5*/ meltfptr[4] = 0 ; /*^clear*/ /*clear*/ /*_.LASTLIST__V6*/ meltfptr[5] = 0 ; @@ -6630,11 +6630,11 @@ MELT_LOCATION("warmelt-first.melt:2411:/ block"); /*clear*/ /*_.LIST_EVERY__V18*/ meltfptr[17] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V19*/ meltfptr[18] = 0 ; - MELT_LOCATION("warmelt-first.melt:2411:/ quasiblock"); + MELT_LOCATION("warmelt-first.melt:2418:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V4*/ meltfptr[2];; - MELT_LOCATION("warmelt-first.melt:2411:/ finalreturn"); + MELT_LOCATION("warmelt-first.melt:2418:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*epilog*/ @@ -6706,7 +6706,7 @@ melt_trace_start("LAMBDA_", meltcallcount); /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-first.melt:2421:/ getarg"); + MELT_LOCATION("warmelt-first.melt:2428:/ getarg"); /*_.FIRSTPROC__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; ; goto lab_endgetargs; @@ -6715,14 +6715,14 @@ lab_endgetargs:; /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-first.melt:2422:/ quasiblock"); + MELT_LOCATION("warmelt-first.melt:2429:/ quasiblock"); /*^getslot*/ { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)((/*~RESCONT*/ meltfclos->tabval[0])), 0, "CONTAINER_VALUE");/*_.PREVRES__V3*/ meltfptr[2] = slot; }; ; - MELT_LOCATION("warmelt-first.melt:2423:/ apply"); + MELT_LOCATION("warmelt-first.melt:2430:/ apply"); /*apply*/{ union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); @@ -6731,7 +6731,7 @@ lab_endgetargs:; /*_.NEXTRES__V4*/ meltfptr[3] = melt_apply ((meltclosure_ptr_t)(/*_.FIRSTPROC__V2*/ meltfptr[1]), (melt_ptr_t)(/*_.PREVRES__V3*/ meltfptr[2]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - MELT_LOCATION("warmelt-first.melt:2425:/ quasiblock"); + MELT_LOCATION("warmelt-first.melt:2432:/ quasiblock"); /*^putslot*/ @@ -6744,7 +6744,7 @@ lab_endgetargs:; ; - MELT_LOCATION("warmelt-first.melt:2422:/ clear"); + MELT_LOCATION("warmelt-first.melt:2429:/ clear"); /*clear*/ /*_.PREVRES__V3*/ meltfptr[2] = 0 ; /*^clear*/ /*clear*/ /*_.NEXTRES__V4*/ meltfptr[3] = 0 ; @@ -6813,7 +6813,7 @@ melt_trace_start("LAMBDA_", meltcallcount); /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-first.melt:2430:/ getarg"); + MELT_LOCATION("warmelt-first.melt:2437:/ getarg"); /*_.LASTPROC__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; ; goto lab_endgetargs; @@ -6824,7 +6824,7 @@ lab_endgetargs:; /*_#IS_CLOSURE__L1*/ meltfnum[0] = (melt_magic_discr((melt_ptr_t)(/*_.LASTPROC__V2*/ meltfptr[1])) == OBMAG_CLOSURE);; - MELT_LOCATION("warmelt-first.melt:2431:/ cond"); + MELT_LOCATION("warmelt-first.melt:2438:/ cond"); /*cond*/ if (/*_#IS_CLOSURE__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -6842,7 +6842,7 @@ lab_endgetargs:; ; /*epilog*/ - MELT_LOCATION("warmelt-first.melt:2430:/ clear"); + MELT_LOCATION("warmelt-first.melt:2437:/ clear"); /*clear*/ /*_#IS_CLOSURE__L1*/ meltfnum[0] = 0 ;} ; @@ -6907,7 +6907,7 @@ melt_trace_start("LAMBDA_", meltcallcount); /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-first.melt:2435:/ getarg"); + MELT_LOCATION("warmelt-first.melt:2442:/ getarg"); /*_.LASTPROC__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; ; goto lab_endgetargs; @@ -6916,14 +6916,14 @@ lab_endgetargs:; /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-first.melt:2436:/ quasiblock"); + MELT_LOCATION("warmelt-first.melt:2443:/ quasiblock"); /*^getslot*/ { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)((/*~RESCONT*/ meltfclos->tabval[0])), 0, "CONTAINER_VALUE");/*_.PREVRES__V3*/ meltfptr[2] = slot; }; ; - MELT_LOCATION("warmelt-first.melt:2437:/ apply"); + MELT_LOCATION("warmelt-first.melt:2444:/ apply"); /*apply*/{ union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); @@ -6932,7 +6932,7 @@ lab_endgetargs:; /*_.NEXTRES__V4*/ meltfptr[3] = melt_apply ((meltclosure_ptr_t)(/*_.LASTPROC__V2*/ meltfptr[1]), (melt_ptr_t)(/*_.PREVRES__V3*/ meltfptr[2]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - MELT_LOCATION("warmelt-first.melt:2439:/ quasiblock"); + MELT_LOCATION("warmelt-first.melt:2446:/ quasiblock"); /*^putslot*/ @@ -6945,7 +6945,7 @@ lab_endgetargs:; ; - MELT_LOCATION("warmelt-first.melt:2436:/ clear"); + MELT_LOCATION("warmelt-first.melt:2443:/ clear"); /*clear*/ /*_.PREVRES__V3*/ meltfptr[2] = 0 ; /*^clear*/ /*clear*/ /*_.NEXTRES__V4*/ meltfptr[3] = 0 ; @@ -7014,7 +7014,7 @@ melt_trace_start("AT_FINISH_UNIT_FIRST", meltcallcount); /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-first.melt:2445:/ getarg"); + MELT_LOCATION("warmelt-first.melt:2452:/ getarg"); /*_.FUN__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; ; goto lab_endgetargs; @@ -7023,7 +7023,7 @@ lab_endgetargs:; /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-first.melt:2448:/ quasiblock"); + MELT_LOCATION("warmelt-first.melt:2455:/ quasiblock"); /*^getslot*/ @@ -7032,7 +7032,7 @@ lab_endgetargs:; ; /*_#IS_CLOSURE__L1*/ meltfnum[0] = (melt_magic_discr((melt_ptr_t)(/*_.FUN__V2*/ meltfptr[1])) == OBMAG_CLOSURE);; - MELT_LOCATION("warmelt-first.melt:2450:/ cond"); + MELT_LOCATION("warmelt-first.melt:2457:/ cond"); /*cond*/ if (/*_#IS_CLOSURE__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -7049,7 +7049,7 @@ lab_endgetargs:; } /*noelse*/ ; - MELT_LOCATION("warmelt-first.melt:2448:/ clear"); + MELT_LOCATION("warmelt-first.melt:2455:/ clear"); /*clear*/ /*_.FIRSTLIST__V3*/ meltfptr[2] = 0 ; /*^clear*/ /*clear*/ /*_#IS_CLOSURE__L1*/ meltfnum[0] = 0 ; @@ -7077,8 +7077,8 @@ typedef struct meltclosure_st *noinitialclos; struct excepth_melt_st *exh; struct callframe_melt_st *prev; -#define MELTFRAM_NBVARPTR 2817 - void* varptr[2817]; +#define MELTFRAM_NBVARPTR 2835 + void* varptr[2835]; /*no varnum*/ #define MELTFRAM_NBVARNUM /*none*/0 /*others*/ @@ -9099,759 +9099,777 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef struct MELT_STRING_STRUCT(29) dstr_2006__melt_list_last_; struct MELT_STRING_STRUCT(3) dstr_2007__; struct MELT_STRING_STRUCT(9) dstr_2008__LIST_LAST; - struct MELT_OBJECT_STRUCT(3) dsym_2009__LIST_LENGTH; - struct MELT_STRING_STRUCT(11) dstr_2010__LIST_LENGTH; - struct MELT_OBJECT_STRUCT(5) dobj_2011__LIST_LENGTH; - struct MELT_MULTIPLE_STRUCT(3) dtup_2012__LIST_LENGTH; - struct MELT_MULTIPLE_STRUCT(1) dtup_2013__LIST_LENGTH; + struct MELT_OBJECT_STRUCT(3) dsym_2009__LIST_FIRST_ELEMENT; + struct MELT_STRING_STRUCT(18) dstr_2010__LIST_FIRST_ELEME; + struct MELT_OBJECT_STRUCT(5) dobj_2011__LIST_FIRST_ELEMENT; + struct MELT_MULTIPLE_STRUCT(3) dtup_2012__LIST_FIRST_ELEMENT; + struct MELT_MULTIPLE_STRUCT(1) dtup_2013__LIST_FIRST_ELEMENT; struct MELT_OBJECT_STRUCT(2) dobj_2014; - struct MELT_STRING_STRUCT(31) dstr_2015__melt_list_lengt; - struct MELT_STRING_STRUCT(3) dstr_2016__; - struct MELT_STRING_STRUCT(11) dstr_2017__LIST_LENGTH; - struct MELT_OBJECT_STRUCT(3) dsym_2018__LIST_APPEND; - struct MELT_STRING_STRUCT(11) dstr_2019__LIST_APPEND; - struct MELT_OBJECT_STRUCT(5) dobj_2020__LIST_APPEND; - struct MELT_MULTIPLE_STRUCT(5) dtup_2021__LIST_APPEND; - struct MELT_MULTIPLE_STRUCT(2) dtup_2022__LIST_APPEND; + struct MELT_STRING_STRUCT(46) dstr_2015__melt_pair_head_; + struct MELT_STRING_STRUCT(4) dstr_2016__; + struct MELT_STRING_STRUCT(18) dstr_2017__LIST_FIRST_ELEME; + struct MELT_OBJECT_STRUCT(3) dsym_2018__LIST_LAST_ELEMENT; + struct MELT_STRING_STRUCT(17) dstr_2019__LIST_LAST_ELEMEN; + struct MELT_OBJECT_STRUCT(5) dobj_2020__LIST_LAST_ELEMENT; + struct MELT_MULTIPLE_STRUCT(3) dtup_2021__LIST_LAST_ELEMENT; + struct MELT_MULTIPLE_STRUCT(1) dtup_2022__LIST_LAST_ELEMENT; struct MELT_OBJECT_STRUCT(2) dobj_2023; - struct MELT_OBJECT_STRUCT(3) dsym_2024__EL; - struct MELT_STRING_STRUCT(2) dstr_2025__EL; - struct MELT_OBJECT_STRUCT(2) dobj_2026; - struct MELT_STRING_STRUCT(32) dstr_2027__meltgc_append_li; - struct MELT_STRING_STRUCT(16) dstr_2028__melt_ptr_t_; - struct MELT_STRING_STRUCT(2) dstr_2029__; - struct MELT_STRING_STRUCT(11) dstr_2030__LIST_APPEND; - struct MELT_OBJECT_STRUCT(3) dsym_2031__LIST_PREPEND; - struct MELT_STRING_STRUCT(12) dstr_2032__LIST_PREPEND; - struct MELT_OBJECT_STRUCT(5) dobj_2033__LIST_PREPEND; - struct MELT_MULTIPLE_STRUCT(5) dtup_2034__LIST_PREPEND; - struct MELT_MULTIPLE_STRUCT(2) dtup_2035__LIST_PREPEND; - struct MELT_OBJECT_STRUCT(2) dobj_2036; - struct MELT_OBJECT_STRUCT(2) dobj_2037; - struct MELT_STRING_STRUCT(33) dstr_2038__meltgc_prepend_l; - struct MELT_STRING_STRUCT(16) dstr_2039__melt_ptr_t_; - struct MELT_STRING_STRUCT(2) dstr_2040__; - struct MELT_STRING_STRUCT(12) dstr_2041__LIST_PREPEND; - struct MELT_OBJECT_STRUCT(3) dsym_2042__LIST_POPFIRST; - struct MELT_STRING_STRUCT(13) dstr_2043__LIST_POPFIRST; - struct MELT_OBJECT_STRUCT(5) dobj_2044__LIST_POPFIRST; - struct MELT_MULTIPLE_STRUCT(3) dtup_2045__LIST_POPFIRST; - struct MELT_MULTIPLE_STRUCT(1) dtup_2046__LIST_POPFIRST; - struct MELT_OBJECT_STRUCT(2) dobj_2047; - struct MELT_STRING_STRUCT(35) dstr_2048__meltgc_popfirst; - struct MELT_STRING_STRUCT(3) dstr_2049__; - struct MELT_STRING_STRUCT(13) dstr_2050__LIST_POPFIRST; - struct MELT_OBJECT_STRUCT(3) dsym_2051__MAKE_LIST; - struct MELT_STRING_STRUCT(9) dstr_2052__MAKE_LIST; - struct MELT_OBJECT_STRUCT(5) dobj_2053__MAKE_LIST; - struct MELT_MULTIPLE_STRUCT(3) dtup_2054__MAKE_LIST; - struct MELT_MULTIPLE_STRUCT(1) dtup_2055__MAKE_LIST; - struct MELT_OBJECT_STRUCT(2) dobj_2056; - struct MELT_STRING_STRUCT(36) dstr_2057__meltgc_new_list; - struct MELT_STRING_STRUCT(3) dstr_2058__; - struct MELT_STRING_STRUCT(9) dstr_2059__MAKE_LIST; - struct MELT_OBJECT_STRUCT(3) dsym_2060__IS_PAIR; - struct MELT_STRING_STRUCT(7) dstr_2061__IS_PAIR; - struct MELT_OBJECT_STRUCT(5) dobj_2062__IS_PAIR; - struct MELT_MULTIPLE_STRUCT(3) dtup_2063__IS_PAIR; - struct MELT_MULTIPLE_STRUCT(1) dtup_2064__IS_PAIR; - struct MELT_OBJECT_STRUCT(3) dsym_2065__PA; - struct MELT_STRING_STRUCT(2) dstr_2066__PA; - struct MELT_OBJECT_STRUCT(2) dobj_2067; - struct MELT_STRING_STRUCT(31) dstr_2068__melt_magic_disc; - struct MELT_STRING_STRUCT(17) dstr_2069__OBMAG_PAIR; - struct MELT_STRING_STRUCT(7) dstr_2070__IS_PAIR; - struct MELT_OBJECT_STRUCT(3) dsym_2071__PAIR_HEAD; - struct MELT_STRING_STRUCT(9) dstr_2072__PAIR_HEAD; - struct MELT_OBJECT_STRUCT(5) dobj_2073__PAIR_HEAD; - struct MELT_MULTIPLE_STRUCT(3) dtup_2074__PAIR_HEAD; - struct MELT_MULTIPLE_STRUCT(1) dtup_2075__PAIR_HEAD; - struct MELT_OBJECT_STRUCT(2) dobj_2076; - struct MELT_STRING_STRUCT(29) dstr_2077__melt_pair_head_; - struct MELT_STRING_STRUCT(3) dstr_2078__; - struct MELT_STRING_STRUCT(9) dstr_2079__PAIR_HEAD; - struct MELT_OBJECT_STRUCT(3) dsym_2080__PAIR_TAIL; - struct MELT_STRING_STRUCT(9) dstr_2081__PAIR_TAIL; - struct MELT_OBJECT_STRUCT(5) dobj_2082__PAIR_TAIL; - struct MELT_MULTIPLE_STRUCT(3) dtup_2083__PAIR_TAIL; - struct MELT_MULTIPLE_STRUCT(1) dtup_2084__PAIR_TAIL; + struct MELT_STRING_STRUCT(45) dstr_2024__melt_pair_head_; + struct MELT_STRING_STRUCT(4) dstr_2025__; + struct MELT_STRING_STRUCT(17) dstr_2026__LIST_LAST_ELEMEN; + struct MELT_OBJECT_STRUCT(3) dsym_2027__LIST_LENGTH; + struct MELT_STRING_STRUCT(11) dstr_2028__LIST_LENGTH; + struct MELT_OBJECT_STRUCT(5) dobj_2029__LIST_LENGTH; + struct MELT_MULTIPLE_STRUCT(3) dtup_2030__LIST_LENGTH; + struct MELT_MULTIPLE_STRUCT(1) dtup_2031__LIST_LENGTH; + struct MELT_OBJECT_STRUCT(2) dobj_2032; + struct MELT_STRING_STRUCT(31) dstr_2033__melt_list_lengt; + struct MELT_STRING_STRUCT(3) dstr_2034__; + struct MELT_STRING_STRUCT(11) dstr_2035__LIST_LENGTH; + struct MELT_OBJECT_STRUCT(3) dsym_2036__LIST_APPEND; + struct MELT_STRING_STRUCT(11) dstr_2037__LIST_APPEND; + struct MELT_OBJECT_STRUCT(5) dobj_2038__LIST_APPEND; + struct MELT_MULTIPLE_STRUCT(5) dtup_2039__LIST_APPEND; + struct MELT_MULTIPLE_STRUCT(2) dtup_2040__LIST_APPEND; + struct MELT_OBJECT_STRUCT(2) dobj_2041; + struct MELT_OBJECT_STRUCT(3) dsym_2042__EL; + struct MELT_STRING_STRUCT(2) dstr_2043__EL; + struct MELT_OBJECT_STRUCT(2) dobj_2044; + struct MELT_STRING_STRUCT(32) dstr_2045__meltgc_append_li; + struct MELT_STRING_STRUCT(16) dstr_2046__melt_ptr_t_; + struct MELT_STRING_STRUCT(2) dstr_2047__; + struct MELT_STRING_STRUCT(11) dstr_2048__LIST_APPEND; + struct MELT_OBJECT_STRUCT(3) dsym_2049__LIST_PREPEND; + struct MELT_STRING_STRUCT(12) dstr_2050__LIST_PREPEND; + struct MELT_OBJECT_STRUCT(5) dobj_2051__LIST_PREPEND; + struct MELT_MULTIPLE_STRUCT(5) dtup_2052__LIST_PREPEND; + struct MELT_MULTIPLE_STRUCT(2) dtup_2053__LIST_PREPEND; + struct MELT_OBJECT_STRUCT(2) dobj_2054; + struct MELT_OBJECT_STRUCT(2) dobj_2055; + struct MELT_STRING_STRUCT(33) dstr_2056__meltgc_prepend_l; + struct MELT_STRING_STRUCT(16) dstr_2057__melt_ptr_t_; + struct MELT_STRING_STRUCT(2) dstr_2058__; + struct MELT_STRING_STRUCT(12) dstr_2059__LIST_PREPEND; + struct MELT_OBJECT_STRUCT(3) dsym_2060__LIST_POPFIRST; + struct MELT_STRING_STRUCT(13) dstr_2061__LIST_POPFIRST; + struct MELT_OBJECT_STRUCT(5) dobj_2062__LIST_POPFIRST; + struct MELT_MULTIPLE_STRUCT(3) dtup_2063__LIST_POPFIRST; + struct MELT_MULTIPLE_STRUCT(1) dtup_2064__LIST_POPFIRST; + struct MELT_OBJECT_STRUCT(2) dobj_2065; + struct MELT_STRING_STRUCT(35) dstr_2066__meltgc_popfirst; + struct MELT_STRING_STRUCT(3) dstr_2067__; + struct MELT_STRING_STRUCT(13) dstr_2068__LIST_POPFIRST; + struct MELT_OBJECT_STRUCT(3) dsym_2069__MAKE_LIST; + struct MELT_STRING_STRUCT(9) dstr_2070__MAKE_LIST; + struct MELT_OBJECT_STRUCT(5) dobj_2071__MAKE_LIST; + struct MELT_MULTIPLE_STRUCT(3) dtup_2072__MAKE_LIST; + struct MELT_MULTIPLE_STRUCT(1) dtup_2073__MAKE_LIST; + struct MELT_OBJECT_STRUCT(2) dobj_2074; + struct MELT_STRING_STRUCT(36) dstr_2075__meltgc_new_list; + struct MELT_STRING_STRUCT(3) dstr_2076__; + struct MELT_STRING_STRUCT(9) dstr_2077__MAKE_LIST; + struct MELT_OBJECT_STRUCT(3) dsym_2078__IS_PAIR; + struct MELT_STRING_STRUCT(7) dstr_2079__IS_PAIR; + struct MELT_OBJECT_STRUCT(5) dobj_2080__IS_PAIR; + struct MELT_MULTIPLE_STRUCT(3) dtup_2081__IS_PAIR; + struct MELT_MULTIPLE_STRUCT(1) dtup_2082__IS_PAIR; + struct MELT_OBJECT_STRUCT(3) dsym_2083__PA; + struct MELT_STRING_STRUCT(2) dstr_2084__PA; struct MELT_OBJECT_STRUCT(2) dobj_2085; - struct MELT_STRING_STRUCT(29) dstr_2086__melt_pair_tail_; - struct MELT_STRING_STRUCT(3) dstr_2087__; - struct MELT_STRING_STRUCT(9) dstr_2088__PAIR_TAIL; - struct MELT_OBJECT_STRUCT(3) dsym_2089__WARNINGMSG_STRV; - struct MELT_STRING_STRUCT(15) dstr_2090__WARNINGMSG_STRV; - struct MELT_OBJECT_STRUCT(5) dobj_2091__WARNINGMSG_STRV; - struct MELT_MULTIPLE_STRUCT(5) dtup_2092__WARNINGMSG_STRV; - struct MELT_MULTIPLE_STRUCT(2) dtup_2093__WARNINGMSG_STRV; + struct MELT_STRING_STRUCT(31) dstr_2086__melt_magic_disc; + struct MELT_STRING_STRUCT(17) dstr_2087__OBMAG_PAIR; + struct MELT_STRING_STRUCT(7) dstr_2088__IS_PAIR; + struct MELT_OBJECT_STRUCT(3) dsym_2089__PAIR_HEAD; + struct MELT_STRING_STRUCT(9) dstr_2090__PAIR_HEAD; + struct MELT_OBJECT_STRUCT(5) dobj_2091__PAIR_HEAD; + struct MELT_MULTIPLE_STRUCT(3) dtup_2092__PAIR_HEAD; + struct MELT_MULTIPLE_STRUCT(1) dtup_2093__PAIR_HEAD; struct MELT_OBJECT_STRUCT(2) dobj_2094; - struct MELT_OBJECT_STRUCT(2) dobj_2095; - struct MELT_STRING_STRUCT(68) dstr_2096__warning_0_MEL; - struct MELT_STRING_STRUCT(41) dstr_2097__melt; - struct MELT_STRING_STRUCT(3) dstr_2098__; - struct MELT_STRING_STRUCT(15) dstr_2099__WARNINGMSG_STRV; - struct MELT_OBJECT_STRUCT(3) dsym_2100__INFORMSG_LONG; - struct MELT_STRING_STRUCT(13) dstr_2101__INFORMSG_LONG; - struct MELT_OBJECT_STRUCT(5) dobj_2102__INFORMSG_LONG; - struct MELT_MULTIPLE_STRUCT(5) dtup_2103__INFORMSG_LONG; - struct MELT_MULTIPLE_STRUCT(2) dtup_2104__INFORMSG_LONG; - struct MELT_OBJECT_STRUCT(2) dobj_2105; - struct MELT_OBJECT_STRUCT(2) dobj_2106; - struct MELT_STRING_STRUCT(76) dstr_2107__inform_UNKNOWN_L; - struct MELT_STRING_STRUCT(4) dstr_2108__; - struct MELT_STRING_STRUCT(2) dstr_2109__; - struct MELT_STRING_STRUCT(13) dstr_2110__INFORMSG_LONG; - struct MELT_OBJECT_STRUCT(3) dsym_2111__DISCR_NAME_STRING; - struct MELT_STRING_STRUCT(17) dstr_2112__DISCR_NAME_STRIN; - struct MELT_OBJECT_STRUCT(5) dobj_2113__DISCR_NAME_STRING; - struct MELT_OBJECT_STRUCT(3) dsym_2114__DISCR_STRING; - struct MELT_STRING_STRUCT(12) dstr_2115__DISCR_STRING; - struct MELT_OBJECT_STRUCT(5) dobj_2116__DISCR_STRING; - struct MELT_STRING_STRUCT(12) dstr_2117__DISCR_STRING; - struct MELT_STRING_STRUCT(17) dstr_2118__DISCR_NAME_STRIN; - struct MELT_OBJECT_STRUCT(3) dsym_2119__DISCR_VERBATIM_STRING; - struct MELT_STRING_STRUCT(21) dstr_2120__DISCR_VERBATIM_S; - struct MELT_OBJECT_STRUCT(5) dobj_2121__DISCR_VERBATIM_STRING; - struct MELT_STRING_STRUCT(21) dstr_2122__DISCR_VERBATIM_S; - struct MELT_OBJECT_STRUCT(3) dsym_2123__DISCR_ANY_RECEIVER; - struct MELT_STRING_STRUCT(18) dstr_2124__DISCR_ANY_RECEIV; - struct MELT_OBJECT_STRUCT(5) dobj_2125__DISCR_ANY_RECEIVER; - struct MELT_STRING_STRUCT(18) dstr_2126__DISCR_ANY_RECEIV; - struct MELT_OBJECT_STRUCT(3) dsym_2127__DISCR_NULL_RECEIVER; - struct MELT_STRING_STRUCT(19) dstr_2128__DISCR_NULL_RECEI; - struct MELT_OBJECT_STRUCT(5) dobj_2129__DISCR_NULL_RECEIVER; - struct MELT_STRING_STRUCT(19) dstr_2130__DISCR_NULL_RECEI; - struct MELT_OBJECT_STRUCT(3) dsym_2131__DISCR_STRBUF; - struct MELT_STRING_STRUCT(12) dstr_2132__DISCR_STRBUF; - struct MELT_OBJECT_STRUCT(5) dobj_2133__DISCR_STRBUF; - struct MELT_STRING_STRUCT(12) dstr_2134__DISCR_STRBUF; - struct MELT_OBJECT_STRUCT(3) dsym_2135__DISCR_INTEGER; - struct MELT_STRING_STRUCT(13) dstr_2136__DISCR_INTEGER; - struct MELT_OBJECT_STRUCT(5) dobj_2137__DISCR_INTEGER; - struct MELT_STRING_STRUCT(13) dstr_2138__DISCR_INTEGER; - struct MELT_OBJECT_STRUCT(3) dsym_2139__DISCR_CONSTANT_INTEGER; - struct MELT_STRING_STRUCT(22) dstr_2140__DISCR_CONSTANT_I; - struct MELT_OBJECT_STRUCT(5) dobj_2141__DISCR_CONSTANT_INTEGER; - struct MELT_STRING_STRUCT(22) dstr_2142__DISCR_CONSTANT_I; - struct MELT_OBJECT_STRUCT(3) dsym_2143__DISCR_LIST; - struct MELT_STRING_STRUCT(10) dstr_2144__DISCR_LIST; - struct MELT_OBJECT_STRUCT(5) dobj_2145__DISCR_LIST; - struct MELT_STRING_STRUCT(10) dstr_2146__DISCR_LIST; - struct MELT_OBJECT_STRUCT(3) dsym_2147__DISCR_PAIR; - struct MELT_STRING_STRUCT(10) dstr_2148__DISCR_PAIR; - struct MELT_OBJECT_STRUCT(5) dobj_2149__DISCR_PAIR; - struct MELT_STRING_STRUCT(10) dstr_2150__DISCR_PAIR; - struct MELT_OBJECT_STRUCT(3) dsym_2151__DISCR_MULTIPLE; - struct MELT_STRING_STRUCT(14) dstr_2152__DISCR_MULTIPLE; - struct MELT_OBJECT_STRUCT(5) dobj_2153__DISCR_MULTIPLE; - struct MELT_STRING_STRUCT(14) dstr_2154__DISCR_MULTIPLE; - struct MELT_OBJECT_STRUCT(3) dsym_2155__DISCR_FIELD_SEQUENCE; - struct MELT_STRING_STRUCT(20) dstr_2156__DISCR_FIELD_SEQU; - struct MELT_OBJECT_STRUCT(5) dobj_2157__DISCR_FIELD_SEQUENCE; - struct MELT_STRING_STRUCT(20) dstr_2158__DISCR_FIELD_SEQU; - struct MELT_OBJECT_STRUCT(3) dsym_2159__DISCR_BOX; - struct MELT_STRING_STRUCT(9) dstr_2160__DISCR_BOX; - struct MELT_OBJECT_STRUCT(5) dobj_2161__DISCR_BOX; - struct MELT_STRING_STRUCT(9) dstr_2162__DISCR_BOX; - struct MELT_OBJECT_STRUCT(3) dsym_2163__DISCR_TREE; - struct MELT_STRING_STRUCT(10) dstr_2164__DISCR_TREE; - struct MELT_OBJECT_STRUCT(5) dobj_2165__DISCR_TREE; - struct MELT_STRING_STRUCT(10) dstr_2166__DISCR_TREE; - struct MELT_OBJECT_STRUCT(3) dsym_2167__DISCR_GIMPLE; - struct MELT_STRING_STRUCT(12) dstr_2168__DISCR_GIMPLE; - struct MELT_OBJECT_STRUCT(5) dobj_2169__DISCR_GIMPLE; - struct MELT_STRING_STRUCT(12) dstr_2170__DISCR_GIMPLE; - struct MELT_OBJECT_STRUCT(3) dsym_2171__DISCR_GIMPLE_SEQ; - struct MELT_STRING_STRUCT(16) dstr_2172__DISCR_GIMPLE_SEQ; - struct MELT_OBJECT_STRUCT(5) dobj_2173__DISCR_GIMPLE_SEQ; - struct MELT_STRING_STRUCT(16) dstr_2174__DISCR_GIMPLE_SEQ; - struct MELT_OBJECT_STRUCT(3) dsym_2175__DISCR_EDGE; - struct MELT_STRING_STRUCT(10) dstr_2176__DISCR_EDGE; - struct MELT_OBJECT_STRUCT(5) dobj_2177__DISCR_EDGE; - struct MELT_STRING_STRUCT(10) dstr_2178__DISCR_EDGE; - struct MELT_OBJECT_STRUCT(3) dsym_2179__DISCR_BASIC_BLOCK; - struct MELT_STRING_STRUCT(17) dstr_2180__DISCR_BASIC_BLOC; - struct MELT_OBJECT_STRUCT(5) dobj_2181__DISCR_BASIC_BLOCK; - struct MELT_STRING_STRUCT(17) dstr_2182__DISCR_BASIC_BLOC; - struct MELT_OBJECT_STRUCT(3) dsym_2183__DISCR_MAP_OBJECTS; - struct MELT_STRING_STRUCT(17) dstr_2184__DISCR_MAP_OBJECT; - struct MELT_OBJECT_STRUCT(5) dobj_2185__DISCR_MAP_OBJECTS; - struct MELT_STRING_STRUCT(17) dstr_2186__DISCR_MAP_OBJECT; - struct MELT_OBJECT_STRUCT(3) dsym_2187__DISCR_MAP_STRINGS; - struct MELT_STRING_STRUCT(17) dstr_2188__DISCR_MAP_STRING; - struct MELT_OBJECT_STRUCT(5) dobj_2189__DISCR_MAP_STRINGS; - struct MELT_STRING_STRUCT(17) dstr_2190__DISCR_MAP_STRING; - struct MELT_OBJECT_STRUCT(3) dsym_2191__DISCR_MAP_TREES; - struct MELT_STRING_STRUCT(15) dstr_2192__DISCR_MAP_TREES; - struct MELT_OBJECT_STRUCT(5) dobj_2193__DISCR_MAP_TREES; - struct MELT_STRING_STRUCT(15) dstr_2194__DISCR_MAP_TREES; - struct MELT_OBJECT_STRUCT(3) dsym_2195__DISCR_MAP_GIMPLES; - struct MELT_STRING_STRUCT(17) dstr_2196__DISCR_MAP_GIMPLE; - struct MELT_OBJECT_STRUCT(5) dobj_2197__DISCR_MAP_GIMPLES; - struct MELT_STRING_STRUCT(17) dstr_2198__DISCR_MAP_GIMPLE; - struct MELT_OBJECT_STRUCT(3) dsym_2199__DISCR_MAP_GIMPLE_SEQS; - struct MELT_STRING_STRUCT(21) dstr_2200__DISCR_MAP_GIMPLE; - struct MELT_OBJECT_STRUCT(5) dobj_2201__DISCR_MAP_GIMPLE_SEQS; - struct MELT_STRING_STRUCT(21) dstr_2202__DISCR_MAP_GIMPLE; - struct MELT_OBJECT_STRUCT(3) dsym_2203__DISCR_MAP_EDGES; - struct MELT_STRING_STRUCT(15) dstr_2204__DISCR_MAP_EDGES; - struct MELT_OBJECT_STRUCT(5) dobj_2205__DISCR_MAP_EDGES; - struct MELT_STRING_STRUCT(15) dstr_2206__DISCR_MAP_EDGES; - struct MELT_OBJECT_STRUCT(3) dsym_2207__DISCR_MAP_BASIC_BLOCKS; - struct MELT_STRING_STRUCT(22) dstr_2208__DISCR_MAP_BASIC_; - struct MELT_OBJECT_STRUCT(5) dobj_2209__DISCR_MAP_BASIC_BLOCKS; - struct MELT_STRING_STRUCT(22) dstr_2210__DISCR_MAP_BASIC_; - struct MELT_OBJECT_STRUCT(3) dsym_2211__DISCR_PPL_CONSTRAINT_SYSTEM; - struct MELT_STRING_STRUCT(27) dstr_2212__DISCR_PPL_CONSTR; - struct MELT_OBJECT_STRUCT(5) dobj_2213__DISCR_PPL_CONSTRAINT_SYSTEM; - struct MELT_STRING_STRUCT(27) dstr_2214__DISCR_PPL_CONSTR; - struct MELT_OBJECT_STRUCT(3) dsym_2215__DISCR_PPL_POLYHEDRON; - struct MELT_STRING_STRUCT(20) dstr_2216__DISCR_PPL_POLYHE; - struct MELT_OBJECT_STRUCT(5) dobj_2217__DISCR_PPL_POLYHEDRON; - struct MELT_STRING_STRUCT(20) dstr_2218__DISCR_PPL_POLYHE; - struct MELT_OBJECT_STRUCT(3) dsym_2219__DISCR_FILE; - struct MELT_STRING_STRUCT(10) dstr_2220__DISCR_FILE; - struct MELT_OBJECT_STRUCT(5) dobj_2221__DISCR_FILE; - struct MELT_STRING_STRUCT(10) dstr_2222__DISCR_FILE; - struct MELT_OBJECT_STRUCT(3) dsym_2223__DISCR_RAWFILE; - struct MELT_STRING_STRUCT(13) dstr_2224__DISCR_RAWFILE; - struct MELT_OBJECT_STRUCT(5) dobj_2225__DISCR_RAWFILE; - struct MELT_STRING_STRUCT(13) dstr_2226__DISCR_RAWFILE; - struct MELT_OBJECT_STRUCT(3) dsym_2227__DISCR_CLASS_SEQUENCE; - struct MELT_STRING_STRUCT(20) dstr_2228__DISCR_CLASS_SEQU; - struct MELT_OBJECT_STRUCT(5) dobj_2229__DISCR_CLASS_SEQUENCE; - struct MELT_STRING_STRUCT(20) dstr_2230__DISCR_CLASS_SEQU; - struct MELT_OBJECT_STRUCT(3) dsym_2231__DISCR_METHOD_MAP; - struct MELT_STRING_STRUCT(16) dstr_2232__DISCR_METHOD_MAP; - struct MELT_OBJECT_STRUCT(5) dobj_2233__DISCR_METHOD_MAP; - struct MELT_STRING_STRUCT(16) dstr_2234__DISCR_METHOD_MAP; - struct MELT_OBJECT_STRUCT(3) dsym_2235__DISCR_CHARACTER_INTEGER; - struct MELT_STRING_STRUCT(23) dstr_2236__DISCR_CHARACTER_; - struct MELT_OBJECT_STRUCT(5) dobj_2237__DISCR_CHARACTER_INTEGER; - struct MELT_STRING_STRUCT(23) dstr_2238__DISCR_CHARACTER_; - struct MELT_OBJECT_STRUCT(3) dsym_2239__DISCR_MIXED_INTEGER; - struct MELT_STRING_STRUCT(19) dstr_2240__DISCR_MIXED_INTE; - struct MELT_OBJECT_STRUCT(5) dobj_2241__DISCR_MIXED_INTEGER; - struct MELT_STRING_STRUCT(19) dstr_2242__DISCR_MIXED_INTE; - struct MELT_OBJECT_STRUCT(3) dsym_2243__DISCR_MIXED_BIGINT; - struct MELT_STRING_STRUCT(18) dstr_2244__DISCR_MIXED_BIGI; - struct MELT_OBJECT_STRUCT(5) dobj_2245__DISCR_MIXED_BIGINT; - struct MELT_STRING_STRUCT(18) dstr_2246__DISCR_MIXED_BIGI; - struct MELT_OBJECT_STRUCT(3) dsym_2247__DISCR_MIXED_LOCATION; - struct MELT_STRING_STRUCT(20) dstr_2248__DISCR_MIXED_LOCA; - struct MELT_OBJECT_STRUCT(5) dobj_2249__DISCR_MIXED_LOCATION; - struct MELT_STRING_STRUCT(20) dstr_2250__DISCR_MIXED_LOCA; - struct MELT_OBJECT_STRUCT(3) dsym_2251__DISCR_CLOSURE; - struct MELT_STRING_STRUCT(13) dstr_2252__DISCR_CLOSURE; - struct MELT_OBJECT_STRUCT(5) dobj_2253__DISCR_CLOSURE; - struct MELT_STRING_STRUCT(13) dstr_2254__DISCR_CLOSURE; - struct MELT_OBJECT_STRUCT(3) dsym_2255__DISCR_ROUTINE; - struct MELT_STRING_STRUCT(13) dstr_2256__DISCR_ROUTINE; - struct MELT_OBJECT_STRUCT(5) dobj_2257__DISCR_ROUTINE; - struct MELT_STRING_STRUCT(13) dstr_2258__DISCR_ROUTINE; - struct MELT_ROUTINE_STRUCT(4) drout_2259__INSTALL_CTYPE_DESCR; - struct MELT_CLOSURE_STRUCT(0) dclo_2260__INSTALL_CTYPE_DESCR; - struct MELT_OBJECT_STRUCT(3) dsym_2261__CTYPE_VALUE; - struct MELT_STRING_STRUCT(11) dstr_2262__CTYPE_VALUE; - struct MELT_OBJECT_STRUCT(11) dobj_2263__CTYPE_VALUE; - struct MELT_STRING_STRUCT(11) dstr_2264__CTYPE_VALUE; - struct MELT_OBJECT_STRUCT(3) dsym_2265__VALUE; - struct MELT_STRING_STRUCT(5) dstr_2266__VALUE; - struct MELT_STRING_STRUCT(10) dstr_2267__melt_ptr_t; - struct MELT_STRING_STRUCT(8) dstr_2268__BPAR_PTR; - struct MELT_STRING_STRUCT(11) dstr_2269__BPARSTR_PTR; - struct MELT_STRING_STRUCT(7) dstr_2270__bp_aptr; - struct MELT_STRING_STRUCT(7) dstr_2271__bp_aptr; - struct MELT_STRING_STRUCT(17) dstr_2272__gt_ggc_mx_melt_u; - struct MELT_OBJECT_STRUCT(3) dsym_2273__CTYPE_LONG; - struct MELT_STRING_STRUCT(10) dstr_2274__CTYPE_LONG; - struct MELT_OBJECT_STRUCT(11) dobj_2275__CTYPE_LONG; - struct MELT_STRING_STRUCT(10) dstr_2276__CTYPE_LONG; - struct MELT_OBJECT_STRUCT(3) dsym_2277__LONG; - struct MELT_STRING_STRUCT(4) dstr_2278__LONG; - struct MELT_STRING_STRUCT(4) dstr_2279__long; - struct MELT_STRING_STRUCT(9) dstr_2280__BPAR_LONG; - struct MELT_STRING_STRUCT(12) dstr_2281__BPARSTR_LONG; - struct MELT_STRING_STRUCT(7) dstr_2282__bp_long; - struct MELT_STRING_STRUCT(10) dstr_2283__bp_longptr; - struct MELT_OBJECT_STRUCT(3) dsym_2284__CTYPE_TREE; - struct MELT_STRING_STRUCT(10) dstr_2285__CTYPE_TREE; - struct MELT_OBJECT_STRUCT(11) dobj_2286__CTYPE_TREE; - struct MELT_STRING_STRUCT(10) dstr_2287__CTYPE_TREE; - struct MELT_OBJECT_STRUCT(3) dsym_2288__TREE; - struct MELT_STRING_STRUCT(4) dstr_2289__TREE; - struct MELT_STRING_STRUCT(4) dstr_2290__tree; - struct MELT_STRING_STRUCT(9) dstr_2291__BPAR_TREE; - struct MELT_STRING_STRUCT(12) dstr_2292__BPARSTR_TREE; - struct MELT_STRING_STRUCT(7) dstr_2293__bp_tree; - struct MELT_STRING_STRUCT(10) dstr_2294__bp_treeptr; - struct MELT_STRING_STRUCT(19) dstr_2295__gt_ggc_mx_tree_n; - struct MELT_OBJECT_STRUCT(3) dsym_2296__CTYPE_GIMPLE; - struct MELT_STRING_STRUCT(12) dstr_2297__CTYPE_GIMPLE; - struct MELT_OBJECT_STRUCT(11) dobj_2298__CTYPE_GIMPLE; - struct MELT_STRING_STRUCT(12) dstr_2299__CTYPE_GIMPLE; - struct MELT_OBJECT_STRUCT(3) dsym_2300__GIMPLE; - struct MELT_STRING_STRUCT(6) dstr_2301__GIMPLE; - struct MELT_STRING_STRUCT(6) dstr_2302__gimple; - struct MELT_STRING_STRUCT(11) dstr_2303__BPAR_GIMPLE; - struct MELT_STRING_STRUCT(14) dstr_2304__BPARSTR_GIMPLE; - struct MELT_STRING_STRUCT(9) dstr_2305__bp_gimple; - struct MELT_STRING_STRUCT(12) dstr_2306__bp_gimpleptr; - struct MELT_STRING_STRUCT(28) dstr_2307__gt_ggc_mx_gimple; - struct MELT_OBJECT_STRUCT(3) dsym_2308__CTYPE_GIMPLE_SEQ; - struct MELT_STRING_STRUCT(16) dstr_2309__CTYPE_GIMPLE_SEQ; - struct MELT_OBJECT_STRUCT(11) dobj_2310__CTYPE_GIMPLE_SEQ; - struct MELT_STRING_STRUCT(16) dstr_2311__CTYPE_GIMPLE_SEQ; - struct MELT_OBJECT_STRUCT(3) dsym_2312__GIMPLE_SEQ; - struct MELT_STRING_STRUCT(10) dstr_2313__GIMPLE_SEQ; - struct MELT_STRING_STRUCT(10) dstr_2314__gimple_seq; - struct MELT_STRING_STRUCT(14) dstr_2315__BPAR_GIMPLESEQ; - struct MELT_STRING_STRUCT(17) dstr_2316__BPARSTR_GIMPLESE; - struct MELT_STRING_STRUCT(12) dstr_2317__bp_gimpleseq; - struct MELT_STRING_STRUCT(15) dstr_2318__bp_gimpleseqptr; - struct MELT_STRING_STRUCT(22) dstr_2319__gt_ggc_mx_gimple; - struct MELT_OBJECT_STRUCT(3) dsym_2320__CTYPE_BASIC_BLOCK; - struct MELT_STRING_STRUCT(17) dstr_2321__CTYPE_BASIC_BLOC; - struct MELT_OBJECT_STRUCT(11) dobj_2322__CTYPE_BASIC_BLOCK; - struct MELT_STRING_STRUCT(17) dstr_2323__CTYPE_BASIC_BLOC; - struct MELT_OBJECT_STRUCT(3) dsym_2324__BASIC_BLOCK; - struct MELT_STRING_STRUCT(11) dstr_2325__BASIC_BLOCK; - struct MELT_STRING_STRUCT(11) dstr_2326__basic_block; - struct MELT_STRING_STRUCT(7) dstr_2327__BPAR_BB; - struct MELT_STRING_STRUCT(10) dstr_2328__BPARSTR_BB; - struct MELT_STRING_STRUCT(5) dstr_2329__bp_bb; - struct MELT_STRING_STRUCT(8) dstr_2330__bp_bbptr; - struct MELT_STRING_STRUCT(25) dstr_2331__gt_ggc_mx_basic_; - struct MELT_OBJECT_STRUCT(3) dsym_2332__CTYPE_EDGE; - struct MELT_STRING_STRUCT(10) dstr_2333__CTYPE_EDGE; - struct MELT_OBJECT_STRUCT(11) dobj_2334__CTYPE_EDGE; - struct MELT_STRING_STRUCT(10) dstr_2335__CTYPE_EDGE; - struct MELT_OBJECT_STRUCT(3) dsym_2336__EDGE; - struct MELT_STRING_STRUCT(4) dstr_2337__EDGE; - struct MELT_STRING_STRUCT(4) dstr_2338__edge; - struct MELT_STRING_STRUCT(9) dstr_2339__BPAR_EDGE; - struct MELT_STRING_STRUCT(12) dstr_2340__BPARSTR_EDGE; - struct MELT_STRING_STRUCT(7) dstr_2341__bp_edge; - struct MELT_STRING_STRUCT(10) dstr_2342__bp_edgeptr; - struct MELT_STRING_STRUCT(18) dstr_2343__gt_ggc_mx_edge_d; - struct MELT_OBJECT_STRUCT(3) dsym_2344__CTYPE_PPL_COEFFICIENT; - struct MELT_STRING_STRUCT(21) dstr_2345__CTYPE_PPL_COEFFI; - struct MELT_OBJECT_STRUCT(11) dobj_2346__CTYPE_PPL_COEFFICIENT; - struct MELT_STRING_STRUCT(21) dstr_2347__CTYPE_PPL_COEFFI; - struct MELT_OBJECT_STRUCT(3) dsym_2348__PPL_COEFFICIENT; - struct MELT_STRING_STRUCT(15) dstr_2349__PPL_COEFFICIENT; - struct MELT_STRING_STRUCT(17) dstr_2350__ppl_Coefficient_; - struct MELT_STRING_STRUCT(20) dstr_2351__BPAR_PPL_COEFFIC; - struct MELT_STRING_STRUCT(23) dstr_2352__BPARSTR_PPL_COEF; - struct MELT_STRING_STRUCT(18) dstr_2353__bp_ppl_coefficie; - struct MELT_STRING_STRUCT(21) dstr_2354__bp_ppl_coefficie; - struct MELT_OBJECT_STRUCT(3) dsym_2355__CTYPE_PPL_LINEAR_EXPRESSION; - struct MELT_STRING_STRUCT(27) dstr_2356__CTYPE_PPL_LINEAR; - struct MELT_OBJECT_STRUCT(11) dobj_2357__CTYPE_PPL_LINEAR_EXPRESSION; - struct MELT_STRING_STRUCT(27) dstr_2358__CTYPE_PPL_LINEAR; - struct MELT_OBJECT_STRUCT(3) dsym_2359__PPL_LINEAR_EXPRESSION; - struct MELT_STRING_STRUCT(21) dstr_2360__PPL_LINEAR_EXPRE; - struct MELT_STRING_STRUCT(23) dstr_2361__ppl_Linear_Expre; - struct MELT_STRING_STRUCT(26) dstr_2362__BPAR_PPL_LINEAR_; - struct MELT_STRING_STRUCT(29) dstr_2363__BPARSTR_PPL_LINE; - struct MELT_STRING_STRUCT(24) dstr_2364__bp_ppl_linear_ex; - struct MELT_STRING_STRUCT(27) dstr_2365__bp_ppl_linear_ex; - struct MELT_OBJECT_STRUCT(3) dsym_2366__CTYPE_PPL_CONSTRAINT; - struct MELT_STRING_STRUCT(20) dstr_2367__CTYPE_PPL_CONSTR; - struct MELT_OBJECT_STRUCT(11) dobj_2368__CTYPE_PPL_CONSTRAINT; - struct MELT_STRING_STRUCT(20) dstr_2369__CTYPE_PPL_CONSTR; - struct MELT_OBJECT_STRUCT(3) dsym_2370__PPL_CONSTRAINT; - struct MELT_STRING_STRUCT(14) dstr_2371__PPL_CONSTRAINT; - struct MELT_STRING_STRUCT(16) dstr_2372__ppl_Constraint_t; - struct MELT_STRING_STRUCT(19) dstr_2373__BPAR_PPL_CONSTRA; - struct MELT_STRING_STRUCT(22) dstr_2374__BPARSTR_PPL_CONS; - struct MELT_STRING_STRUCT(17) dstr_2375__bp_ppl_constrain; - struct MELT_STRING_STRUCT(20) dstr_2376__bp_ppl_constrain; - struct MELT_OBJECT_STRUCT(3) dsym_2377__CTYPE_PPL_CONSTRAINT_SYSTEM; - struct MELT_STRING_STRUCT(27) dstr_2378__CTYPE_PPL_CONSTR; - struct MELT_OBJECT_STRUCT(11) dobj_2379__CTYPE_PPL_CONSTRAINT_SYSTEM; - struct MELT_STRING_STRUCT(27) dstr_2380__CTYPE_PPL_CONSTR; - struct MELT_OBJECT_STRUCT(3) dsym_2381__PPL_CONSTRAINT_SYSTEM; - struct MELT_STRING_STRUCT(21) dstr_2382__PPL_CONSTRAINT_S; - struct MELT_STRING_STRUCT(23) dstr_2383__ppl_Constraint_S; - struct MELT_STRING_STRUCT(26) dstr_2384__BPAR_PPL_CONSTRA; - struct MELT_STRING_STRUCT(29) dstr_2385__BPARSTR_PPL_CONS; - struct MELT_STRING_STRUCT(24) dstr_2386__bp_ppl_constrain; - struct MELT_STRING_STRUCT(27) dstr_2387__bp_ppl_constrain; - struct MELT_OBJECT_STRUCT(3) dsym_2388__CTYPE_PPL_POLYHEDRON; - struct MELT_STRING_STRUCT(20) dstr_2389__CTYPE_PPL_POLYHE; - struct MELT_OBJECT_STRUCT(11) dobj_2390__CTYPE_PPL_POLYHEDRON; - struct MELT_STRING_STRUCT(20) dstr_2391__CTYPE_PPL_POLYHE; - struct MELT_OBJECT_STRUCT(3) dsym_2392__PPL_POLYHEDRON; - struct MELT_STRING_STRUCT(14) dstr_2393__PPL_POLYHEDRON; - struct MELT_STRING_STRUCT(16) dstr_2394__ppl_Polyhedron_t; - struct MELT_STRING_STRUCT(19) dstr_2395__BPAR_PPL_POLYHED; - struct MELT_STRING_STRUCT(22) dstr_2396__BPARSTR_PPL_POLY; - struct MELT_STRING_STRUCT(17) dstr_2397__bp_ppl_polyhedro; - struct MELT_STRING_STRUCT(20) dstr_2398__bp_ppl_polyhedro; - struct MELT_OBJECT_STRUCT(3) dsym_2399__CTYPE_VOID; - struct MELT_STRING_STRUCT(10) dstr_2400__CTYPE_VOID; - struct MELT_OBJECT_STRUCT(11) dobj_2401__CTYPE_VOID; - struct MELT_STRING_STRUCT(10) dstr_2402__CTYPE_VOID; - struct MELT_OBJECT_STRUCT(3) dsym_2403__VOID; - struct MELT_STRING_STRUCT(4) dstr_2404__VOID; - struct MELT_STRING_STRUCT(4) dstr_2405__void; - struct MELT_OBJECT_STRUCT(3) dsym_2406__CTYPE_CSTRING; - struct MELT_STRING_STRUCT(13) dstr_2407__CTYPE_CSTRING; - struct MELT_OBJECT_STRUCT(11) dobj_2408__CTYPE_CSTRING; - struct MELT_STRING_STRUCT(13) dstr_2409__CTYPE_CSTRING; - struct MELT_OBJECT_STRUCT(3) dsym_2410__CSTRING; - struct MELT_STRING_STRUCT(7) dstr_2411__CSTRING; - struct MELT_STRING_STRUCT(12) dstr_2412__BPAR_CSTRING; - struct MELT_STRING_STRUCT(15) dstr_2413__BPARSTR_CSTRING; - struct MELT_STRING_STRUCT(10) dstr_2414__bp_cstring; - struct MELT_ROUTINE_STRUCT(2) drout_2415__ADD_NEW_SYMBOL_TOKEN; - struct MELT_CLOSURE_STRUCT(0) dclo_2416__ADD_NEW_SYMBOL_TOKEN; - struct MELT_ROUTINE_STRUCT(2) drout_2417__ADD_NEW_KEYWORD_TOKEN; - struct MELT_CLOSURE_STRUCT(0) dclo_2418__ADD_NEW_KEYWORD_TOKEN; - struct MELT_ROUTINE_STRUCT(2) drout_2419__INTERN_SYMBOL; - struct MELT_CLOSURE_STRUCT(0) dclo_2420__INTERN_SYMBOL; - struct MELT_ROUTINE_STRUCT(2) drout_2421__INTERN_KEYWORD; - struct MELT_CLOSURE_STRUCT(0) dclo_2422__INTERN_KEYWORD; - struct MELT_OBJECT_STRUCT(3) dsym_2423__CONTAINER_CLONEMAPSTRING; - struct MELT_STRING_STRUCT(24) dstr_2424__CONTAINER_CLONEM; - struct MELT_OBJECT_STRUCT(1) dobj_2425__CONTAINER_CLONEMAPSTRING; - struct MELT_ROUTINE_STRUCT(6) drout_2426__CLONE_SYMBOL; - struct MELT_CLOSURE_STRUCT(0) dclo_2427__CLONE_SYMBOL; - struct MELT_ROUTINE_STRUCT(3) drout_2428__INITFRESH_CONTENVMAKER; - struct MELT_CLOSURE_STRUCT(0) dclo_2429__INITFRESH_CONTENVMAKER; - struct MELT_ROUTINE_STRUCT(17) drout_2430__INITVALUE_EXPORTER; - struct MELT_CLOSURE_STRUCT(0) dclo_2431__INITVALUE_EXPORTER; - struct MELT_ROUTINE_STRUCT(6) drout_2432__INITVALUE_IMPORTER; - struct MELT_CLOSURE_STRUCT(0) dclo_2433__INITVALUE_IMPORTER; - struct MELT_ROUTINE_STRUCT(7) drout_2434__INITMACRO_EXPORTER; - struct MELT_CLOSURE_STRUCT(0) dclo_2435__INITMACRO_EXPORTER; - struct MELT_ROUTINE_STRUCT(6) drout_2436__INITPATMACRO_EXPORTER; - struct MELT_CLOSURE_STRUCT(0) dclo_2437__INITPATMACRO_EXPORTER; - struct MELT_OBJECT_STRUCT(3) dsym_2438__CLASS_DELAYED_QUEUE; - struct MELT_STRING_STRUCT(19) dstr_2439__CLASS_DELAYED_QU; - struct MELT_OBJECT_STRUCT(8) dobj_2440__CLASS_DELAYED_QUEUE; - struct MELT_STRING_STRUCT(19) dstr_2441__CLASS_DELAYED_QU; - struct MELT_MULTIPLE_STRUCT(3) dtup_2442__CLASS_DELAYED_QUEUE; - struct MELT_MULTIPLE_STRUCT(5) dtup_2443__CLASS_DELAYED_QUEUE; - struct MELT_OBJECT_STRUCT(3) dsym_2444__DELQU_FIRST; - struct MELT_STRING_STRUCT(11) dstr_2445__DELQU_FIRST; - struct MELT_OBJECT_STRUCT(4) dobj_2446__DELQU_FIRST; - struct MELT_STRING_STRUCT(11) dstr_2447__DELQU_FIRST; - struct MELT_OBJECT_STRUCT(3) dsym_2448__DELQU_LAST; - struct MELT_STRING_STRUCT(10) dstr_2449__DELQU_LAST; - struct MELT_OBJECT_STRUCT(4) dobj_2450__DELQU_LAST; - struct MELT_STRING_STRUCT(10) dstr_2451__DELQU_LAST; - struct MELT_OBJECT_STRUCT(3) dsym_2452__DELQU_DATA; - struct MELT_STRING_STRUCT(10) dstr_2453__DELQU_DATA; - struct MELT_OBJECT_STRUCT(4) dobj_2454__DELQU_DATA; - struct MELT_STRING_STRUCT(10) dstr_2455__DELQU_DATA; - struct MELT_OBJECT_STRUCT(3) dsym_2456__FINAL_DELAYED_QUEUE; - struct MELT_STRING_STRUCT(19) dstr_2457__FINAL_DELAYED_QU; - struct MELT_OBJECT_STRUCT(5) dobj_2458__FINAL_DELAYED_QUEUE; - struct MELT_STRING_STRUCT(19) dstr_2459__final_delayed_qu; - struct MELT_ROUTINE_STRUCT(10) drout_2460__INIT_EXITFINALIZER; - struct MELT_CLOSURE_STRUCT(0) dclo_2461__INIT_EXITFINALIZER; - struct MELT_ROUTINE_STRUCT(1) drout_2462__LAMBDA_; - struct MELT_ROUTINE_STRUCT(0) drout_2463__LAMBDA_; - struct MELT_ROUTINE_STRUCT(1) drout_2464__LAMBDA_; - struct MELT_ROUTINE_STRUCT(1) drout_2465__AT_EXIT_FIRST; - struct MELT_CLOSURE_STRUCT(0) dclo_2466__AT_EXIT_FIRST; - struct MELT_ROUTINE_STRUCT(1) drout_2467__AT_EXIT_LAST; - struct MELT_CLOSURE_STRUCT(0) dclo_2468__AT_EXIT_LAST; - struct MELT_OBJECT_STRUCT(3) dsym_2469__START_UNIT_DELAYED_QUEUE; - struct MELT_STRING_STRUCT(24) dstr_2470__START_UNIT_DELAY; - struct MELT_OBJECT_STRUCT(5) dobj_2471__START_UNIT_DELAYED_QUEUE; - struct MELT_STRING_STRUCT(24) dstr_2472__start_unit_delay; - struct MELT_ROUTINE_STRUCT(10) drout_2473__INIT_UNITSTARTER; - struct MELT_CLOSURE_STRUCT(0) dclo_2474__INIT_UNITSTARTER; - struct MELT_ROUTINE_STRUCT(1) drout_2475__LAMBDA_; - struct MELT_ROUTINE_STRUCT(0) drout_2476__LAMBDA_; - struct MELT_ROUTINE_STRUCT(1) drout_2477__LAMBDA_; - struct MELT_ROUTINE_STRUCT(1) drout_2478__AT_START_UNIT_FIRST; - struct MELT_CLOSURE_STRUCT(0) dclo_2479__AT_START_UNIT_FIRST; - struct MELT_ROUTINE_STRUCT(1) drout_2480__AT_START_UNIT_LAST; - struct MELT_CLOSURE_STRUCT(0) dclo_2481__AT_START_UNIT_LAST; - struct MELT_OBJECT_STRUCT(3) dsym_2482__FINISH_UNIT_DELAYED_QUEUE; - struct MELT_STRING_STRUCT(25) dstr_2483__FINISH_UNIT_DELA; - struct MELT_OBJECT_STRUCT(5) dobj_2484__FINISH_UNIT_DELAYED_QUEUE; - struct MELT_STRING_STRUCT(25) dstr_2485__finish_unit_dela; - struct MELT_ROUTINE_STRUCT(10) drout_2486__INIT_UNITFINISHER; - struct MELT_CLOSURE_STRUCT(0) dclo_2487__INIT_UNITFINISHER; - struct MELT_ROUTINE_STRUCT(1) drout_2488__LAMBDA_; - struct MELT_ROUTINE_STRUCT(0) drout_2489__LAMBDA_; - struct MELT_ROUTINE_STRUCT(1) drout_2490__LAMBDA_; - struct MELT_ROUTINE_STRUCT(1) drout_2491__AT_FINISH_UNIT_FIRST; - struct MELT_CLOSURE_STRUCT(0) dclo_2492__AT_FINISH_UNIT_FIRST; - struct MELT_ROUTINE_STRUCT(1) drout_2493__AT_FINISH_UNIT_LAST; - struct MELT_CLOSURE_STRUCT(0) dclo_2494__AT_FINISH_UNIT_LAST; - struct MELT_OBJECT_STRUCT(3) dsym_2495__OPTION_MAP_CONTAINER; - struct MELT_STRING_STRUCT(20) dstr_2496__OPTION_MAP_CONTA; - struct MELT_OBJECT_STRUCT(1) dobj_2497__OPTION_MAP_CONTAINER; - struct MELT_OBJECT_STRUCT(3) dsym_2498__CLASS_OPTION_DESCRIPTOR; - struct MELT_STRING_STRUCT(23) dstr_2499__CLASS_OPTION_DES; - struct MELT_OBJECT_STRUCT(8) dobj_2500__CLASS_OPTION_DESCRIPTOR; - struct MELT_STRING_STRUCT(23) dstr_2501__CLASS_OPTION_DES; - struct MELT_MULTIPLE_STRUCT(1) dtup_2502__CLASS_OPTION_DESCRIPTOR; - struct MELT_MULTIPLE_STRUCT(3) dtup_2503__CLASS_OPTION_DESCRIPTOR; - struct MELT_OBJECT_STRUCT(3) dsym_2504__OPTDESC_NAME; - struct MELT_STRING_STRUCT(12) dstr_2505__OPTDESC_NAME; - struct MELT_OBJECT_STRUCT(4) dobj_2506__OPTDESC_NAME; - struct MELT_STRING_STRUCT(12) dstr_2507__OPTDESC_NAME; - struct MELT_OBJECT_STRUCT(3) dsym_2508__OPTDESC_FUN; - struct MELT_STRING_STRUCT(11) dstr_2509__OPTDESC_FUN; - struct MELT_OBJECT_STRUCT(4) dobj_2510__OPTDESC_FUN; - struct MELT_STRING_STRUCT(11) dstr_2511__OPTDESC_FUN; - struct MELT_OBJECT_STRUCT(3) dsym_2512__OPTDESC_HELP; - struct MELT_STRING_STRUCT(12) dstr_2513__OPTDESC_HELP; - struct MELT_OBJECT_STRUCT(4) dobj_2514__OPTDESC_HELP; - struct MELT_STRING_STRUCT(12) dstr_2515__OPTDESC_HELP; - struct MELT_ROUTINE_STRUCT(5) drout_2516__INIT_OPTIONSETTER; - struct MELT_CLOSURE_STRUCT(0) dclo_2517__INIT_OPTIONSETTER; - struct MELT_ROUTINE_STRUCT(3) drout_2518__REGISTER_OPTION; - struct MELT_CLOSURE_STRUCT(0) dclo_2519__REGISTER_OPTION; - struct MELT_ROUTINE_STRUCT(6) drout_2520__OPTION_HELPER_FUN; - struct MELT_CLOSURE_STRUCT(0) dclo_2521__OPTION_HELPER_FUN; - struct MELT_ROUTINE_STRUCT(1) drout_2522__LAMBDA_; - struct MELT_OBJECT_STRUCT(3) dsym_2523__HELP; - struct MELT_STRING_STRUCT(4) dstr_2524__HELP; - struct MELT_STRING_STRUCT(40) dstr_2525__Gives_help_about; - struct MELT_OBJECT_STRUCT(3) dsym_2526__MELT_ERROR_COUNTER; - struct MELT_STRING_STRUCT(18) dstr_2527__MELT_ERROR_COUNT; - struct MELT_OBJECT_STRUCT(5) dobj_2528__MELT_ERROR_COUNTER; - struct MELT_MULTIPLE_STRUCT(1) dtup_2529__MELT_ERROR_COUNTER; - struct MELT_MULTIPLE_STRUCT(0) dtup_2530__MELT_ERROR_COUNTER; - struct MELT_STRING_STRUCT(27) dstr_2531__long_melt_err; - struct MELT_STRING_STRUCT(18) dstr_2532__MELT_ERROR_COUNT; - struct MELT_OBJECT_STRUCT(3) dsym_2533__INITIAL_SYSTEM_DATA; - struct MELT_STRING_STRUCT(19) dstr_2534__INITIAL_SYSTEM_D; - struct MELT_OBJECT_STRUCT(28) dobj_2535__INITIAL_SYSTEM_DATA; - struct MELT_STRING_STRUCT(19) dstr_2536__INITIAL_SYSTEM_D; - struct MELT_ROUTINE_STRUCT(0) drout_2537__MAPOBJECT_EVERY; - struct MELT_CLOSURE_STRUCT(0) dclo_2538__MAPOBJECT_EVERY; - struct MELT_ROUTINE_STRUCT(0) drout_2539__MAPOBJECT_ITERATE_TEST; - struct MELT_CLOSURE_STRUCT(0) dclo_2540__MAPOBJECT_ITERATE_TEST; - struct MELT_OBJECT_STRUCT(7) dobj_2541__FOREACH_IN_LIST; - struct MELT_STRING_STRUCT(15) dstr_2542__FOREACH_IN_LIST; - struct MELT_OBJECT_STRUCT(3) dsym_2543__LIS; - struct MELT_STRING_STRUCT(3) dstr_2544__LIS; - struct MELT_OBJECT_STRUCT(2) dobj_2545; - struct MELT_MULTIPLE_STRUCT(1) dtup_2546__FOREACH_IN_LIST; - struct MELT_OBJECT_STRUCT(3) dsym_2547__EACHLIST; - struct MELT_STRING_STRUCT(8) dstr_2548__EACHLIST; - struct MELT_OBJECT_STRUCT(3) dsym_2549__CURPAIR; - struct MELT_STRING_STRUCT(7) dstr_2550__CURPAIR; - struct MELT_OBJECT_STRUCT(2) dobj_2551; - struct MELT_OBJECT_STRUCT(3) dsym_2552__CURCOMP; - struct MELT_STRING_STRUCT(7) dstr_2553__CURCOMP; - struct MELT_OBJECT_STRUCT(2) dobj_2554; - struct MELT_MULTIPLE_STRUCT(2) dtup_2555__FOREACH_IN_LIST; - struct MELT_STRING_STRUCT(9) dstr_2556__start_; - struct MELT_STRING_STRUCT(12) dstr_2557__for_; - struct MELT_STRING_STRUCT(19) dstr_2558__melt_list_fir; - struct MELT_STRING_STRUCT(21) dstr_2559__melt_magic_d; - struct MELT_STRING_STRUCT(25) dstr_2560__OBMAG_PAIR_; - struct MELT_STRING_STRUCT(18) dstr_2561__melt_pair_tai; - struct MELT_STRING_STRUCT(6) dstr_2562__; - struct MELT_STRING_STRUCT(18) dstr_2563__melt_pair_hea; - struct MELT_STRING_STRUCT(3) dstr_2564__; - struct MELT_MULTIPLE_STRUCT(17) dtup_2565__FOREACH_IN_LIST; - struct MELT_STRING_STRUCT(10) dstr_2566__end_; - struct MELT_STRING_STRUCT(3) dstr_2567__; - struct MELT_MULTIPLE_STRUCT(3) dtup_2568__FOREACH_IN_LIST; - struct MELT_ROUTINE_STRUCT(0) drout_2569__LIST_EVERY; - struct MELT_CLOSURE_STRUCT(0) dclo_2570__LIST_EVERY; - struct MELT_ROUTINE_STRUCT(0) drout_2571__LIST_ITERATE_TEST; - struct MELT_CLOSURE_STRUCT(0) dclo_2572__LIST_ITERATE_TEST; - struct MELT_ROUTINE_STRUCT(1) drout_2573__LIST_APPEND2LIST; - struct MELT_CLOSURE_STRUCT(0) dclo_2574__LIST_APPEND2LIST; - struct MELT_ROUTINE_STRUCT(1) drout_2575__LIST_MAP; - struct MELT_CLOSURE_STRUCT(0) dclo_2576__LIST_MAP; - struct MELT_ROUTINE_STRUCT(0) drout_2577__LIST_FIND; - struct MELT_CLOSURE_STRUCT(0) dclo_2578__LIST_FIND; - struct MELT_ROUTINE_STRUCT(4) drout_2579__LIST_TO_MULTIPLE; - struct MELT_CLOSURE_STRUCT(0) dclo_2580__LIST_TO_MULTIPLE; - struct MELT_ROUTINE_STRUCT(0) drout_2581__LAMBDA_; - struct MELT_ROUTINE_STRUCT(1) drout_2582__PAIRLIST_TO_MULTIPLE; - struct MELT_CLOSURE_STRUCT(0) dclo_2583__PAIRLIST_TO_MULTIPLE; - struct MELT_OBJECT_STRUCT(7) dobj_2584__FOREACH_IN_MULTIPLE; - struct MELT_STRING_STRUCT(19) dstr_2585__FOREACH_IN_MULTI; - struct MELT_OBJECT_STRUCT(3) dsym_2586__TUP; - struct MELT_STRING_STRUCT(3) dstr_2587__TUP; - struct MELT_OBJECT_STRUCT(2) dobj_2588; - struct MELT_MULTIPLE_STRUCT(1) dtup_2589__FOREACH_IN_MULTIPLE; - struct MELT_OBJECT_STRUCT(3) dsym_2590__EACHTUP; - struct MELT_STRING_STRUCT(7) dstr_2591__EACHTUP; - struct MELT_OBJECT_STRUCT(3) dsym_2592__COMP; - struct MELT_STRING_STRUCT(4) dstr_2593__COMP; - struct MELT_OBJECT_STRUCT(2) dobj_2594; - struct MELT_OBJECT_STRUCT(2) dobj_2595; - struct MELT_MULTIPLE_STRUCT(2) dtup_2596__FOREACH_IN_MULTIPLE; - struct MELT_STRING_STRUCT(10) dstr_2597__start_; - struct MELT_STRING_STRUCT(14) dstr_2598__long_; - struct MELT_STRING_STRUCT(39) dstr_2599__ln_melt_multi; - struct MELT_STRING_STRUCT(11) dstr_2600__for_; - struct MELT_STRING_STRUCT(10) dstr_2601__0_; - struct MELT_STRING_STRUCT(11) dstr_2602__0_; - struct MELT_STRING_STRUCT(4) dstr_2603__; - struct MELT_STRING_STRUCT(9) dstr_2604__ln_; - struct MELT_STRING_STRUCT(9) dstr_2605__; - struct MELT_STRING_STRUCT(34) dstr_2606__melt_multiple; - struct MELT_STRING_STRUCT(4) dstr_2607__; - struct MELT_STRING_STRUCT(6) dstr_2608__; - struct MELT_MULTIPLE_STRUCT(23) dtup_2609__FOREACH_IN_MULTIPLE; - struct MELT_STRING_STRUCT(5) dstr_2610__if_; - struct MELT_STRING_STRUCT(23) dstr_2611__0_break_; - struct MELT_STRING_STRUCT(4) dstr_2612__; - struct MELT_MULTIPLE_STRUCT(5) dtup_2613__FOREACH_IN_MULTIPLE; - struct MELT_OBJECT_STRUCT(7) dobj_2614__FOREACH_IN_MULTIPLE_BACKWARD; - struct MELT_STRING_STRUCT(28) dstr_2615__FOREACH_IN_MULTI; - struct MELT_OBJECT_STRUCT(2) dobj_2616; - struct MELT_MULTIPLE_STRUCT(1) dtup_2617__FOREACH_IN_MULTIPLE_BACKWARD; - struct MELT_OBJECT_STRUCT(3) dsym_2618__EACHTUPBACK; - struct MELT_STRING_STRUCT(11) dstr_2619__EACHTUPBACK; - struct MELT_OBJECT_STRUCT(2) dobj_2620; - struct MELT_OBJECT_STRUCT(2) dobj_2621; - struct MELT_MULTIPLE_STRUCT(2) dtup_2622__FOREACH_IN_MULTIPLE_BACKWARD; - struct MELT_STRING_STRUCT(10) dstr_2623__start_; - struct MELT_STRING_STRUCT(14) dstr_2624__long_; - struct MELT_STRING_STRUCT(39) dstr_2625__ln_melt_multi; - struct MELT_STRING_STRUCT(12) dstr_2626__long_; - struct MELT_STRING_STRUCT(17) dstr_2627__ix_0_for_; - struct MELT_STRING_STRUCT(6) dstr_2628__ix_; - struct MELT_STRING_STRUCT(12) dstr_2629__ln_1_; - struct MELT_STRING_STRUCT(13) dstr_2630__ix_0_; - struct MELT_STRING_STRUCT(12) dstr_2631__ix_; - struct MELT_STRING_STRUCT(34) dstr_2632__melt_multiple; - struct MELT_STRING_STRUCT(4) dstr_2633__; - struct MELT_STRING_STRUCT(9) dstr_2634__ix_; - struct MELT_STRING_STRUCT(5) dstr_2635__; - struct MELT_STRING_STRUCT(4) dstr_2636__ix_; - struct MELT_MULTIPLE_STRUCT(27) dtup_2637__FOREACH_IN_MULTIPLE_BACKWARD; - struct MELT_STRING_STRUCT(10) dstr_2638__end_; - struct MELT_STRING_STRUCT(4) dstr_2639__; - struct MELT_MULTIPLE_STRUCT(3) dtup_2640__FOREACH_IN_MULTIPLE_BACKWARD; - struct MELT_ROUTINE_STRUCT(0) drout_2641__MULTIPLE_ITERATE_TEST; - struct MELT_CLOSURE_STRUCT(0) dclo_2642__MULTIPLE_ITERATE_TEST; - struct MELT_ROUTINE_STRUCT(1) drout_2643__MULTIPLE_MAP; - struct MELT_CLOSURE_STRUCT(0) dclo_2644__MULTIPLE_MAP; - struct MELT_ROUTINE_STRUCT(1) drout_2645__MULTIPLE_TO_LIST; - struct MELT_CLOSURE_STRUCT(0) dclo_2646__MULTIPLE_TO_LIST; - struct MELT_ROUTINE_STRUCT(0) drout_2647__CLOSURE_EVERY; - struct MELT_CLOSURE_STRUCT(0) dclo_2648__CLOSURE_EVERY; - struct MELT_ROUTINE_STRUCT(0) drout_2649__ROUTINE_EVERY; - struct MELT_CLOSURE_STRUCT(0) dclo_2650__ROUTINE_EVERY; - struct MELT_ROUTINE_STRUCT(3) drout_2651__INSTALL_METHOD; - struct MELT_CLOSURE_STRUCT(0) dclo_2652__INSTALL_METHOD; - struct MELT_ROUTINE_STRUCT(4) drout_2653__COMPARE_OBJ_RANKED; - struct MELT_CLOSURE_STRUCT(0) dclo_2654__COMPARE_OBJ_RANKED; - struct MELT_ROUTINE_STRUCT(9) drout_2655__MAPOBJECT_SORTED_ATTRIBUTE_TUPLE; - struct MELT_CLOSURE_STRUCT(0) dclo_2656__MAPOBJECT_SORTED_ATTRIBUTE_TUPLE; - struct MELT_ROUTINE_STRUCT(1) drout_2657__LAMBDA_; - struct MELT_ROUTINE_STRUCT(1) drout_2658__LAMBDA_; - struct MELT_ROUTINE_STRUCT(0) drout_2659__LAMBDA_; - struct MELT_ROUTINE_STRUCT(3) drout_2660__FRESH_ENV; - struct MELT_CLOSURE_STRUCT(0) dclo_2661__FRESH_ENV; - struct MELT_OBJECT_STRUCT(3) dsym_2662__INITIAL_ENVIRONMENT; - struct MELT_STRING_STRUCT(19) dstr_2663__INITIAL_ENVIRONM; - struct MELT_OBJECT_STRUCT(4) dobj_2664__INITIAL_ENVIRONMENT; - struct MELT_STRING_STRUCT(19) dstr_2665__Initial_Environm; - struct MELT_ROUTINE_STRUCT(1) drout_2666__FIND_ENV; - struct MELT_CLOSURE_STRUCT(0) dclo_2667__FIND_ENV; - struct MELT_ROUTINE_STRUCT(2) drout_2668__FIND_ENV_DEBUG; - struct MELT_CLOSURE_STRUCT(0) dclo_2669__FIND_ENV_DEBUG; - struct MELT_ROUTINE_STRUCT(2) drout_2670__FIND_ENCLOSING_ENV; - struct MELT_CLOSURE_STRUCT(0) dclo_2671__FIND_ENCLOSING_ENV; - struct MELT_ROUTINE_STRUCT(4) drout_2672__PUT_ENV; - struct MELT_CLOSURE_STRUCT(0) dclo_2673__PUT_ENV; - struct MELT_ROUTINE_STRUCT(3) drout_2674__OVERWRITE_ENV; - struct MELT_CLOSURE_STRUCT(0) dclo_2675__OVERWRITE_ENV; - struct MELT_ROUTINE_STRUCT(4) drout_2676__POST_INITIALIZATION; - struct MELT_CLOSURE_STRUCT(0) dclo_2677__POST_INITIALIZATION; - struct MELT_OBJECT_STRUCT(3) dsym_2678__LIST_FIND; - struct MELT_STRING_STRUCT(9) dstr_2679__LIST_FIND; - struct MELT_OBJECT_STRUCT(3) dsym_2680__AT_EXIT_FIRST; - struct MELT_STRING_STRUCT(13) dstr_2681__AT_EXIT_FIRST; - struct MELT_OBJECT_STRUCT(3) dsym_2682__AT_EXIT_LAST; - struct MELT_STRING_STRUCT(12) dstr_2683__AT_EXIT_LAST; - struct MELT_OBJECT_STRUCT(3) dsym_2684__AT_FINISH_UNIT_FIRST; - struct MELT_STRING_STRUCT(20) dstr_2685__AT_FINISH_UNIT_F; - struct MELT_OBJECT_STRUCT(3) dsym_2686__AT_FINISH_UNIT_LAST; - struct MELT_STRING_STRUCT(19) dstr_2687__AT_FINISH_UNIT_L; - struct MELT_OBJECT_STRUCT(3) dsym_2688__AT_START_UNIT_FIRST; - struct MELT_STRING_STRUCT(19) dstr_2689__AT_START_UNIT_FI; - struct MELT_OBJECT_STRUCT(3) dsym_2690__AT_START_UNIT_LAST; - struct MELT_STRING_STRUCT(18) dstr_2691__AT_START_UNIT_LA; - struct MELT_OBJECT_STRUCT(3) dsym_2692__CLONE_SYMBOL; - struct MELT_STRING_STRUCT(12) dstr_2693__CLONE_SYMBOL; - struct MELT_OBJECT_STRUCT(3) dsym_2694__CLOSURE_EVERY; - struct MELT_STRING_STRUCT(13) dstr_2695__CLOSURE_EVERY; - struct MELT_OBJECT_STRUCT(3) dsym_2696__COMPARE_OBJ_RANKED; - struct MELT_STRING_STRUCT(18) dstr_2697__COMPARE_OBJ_RANK; - struct MELT_OBJECT_STRUCT(3) dsym_2698__FIND_ENCLOSING_ENV; - struct MELT_STRING_STRUCT(18) dstr_2699__FIND_ENCLOSING_E; - struct MELT_OBJECT_STRUCT(3) dsym_2700__FIND_ENV; - struct MELT_STRING_STRUCT(8) dstr_2701__FIND_ENV; - struct MELT_OBJECT_STRUCT(3) dsym_2702__FIND_ENV_DEBUG; - struct MELT_STRING_STRUCT(14) dstr_2703__FIND_ENV_DEBUG; - struct MELT_OBJECT_STRUCT(3) dsym_2704__FRESH_ENV; - struct MELT_STRING_STRUCT(9) dstr_2705__FRESH_ENV; - struct MELT_OBJECT_STRUCT(3) dsym_2706__INSTALL_CTYPE_DESCR; - struct MELT_STRING_STRUCT(19) dstr_2707__INSTALL_CTYPE_DE; - struct MELT_OBJECT_STRUCT(3) dsym_2708__INSTALL_METHOD; - struct MELT_STRING_STRUCT(14) dstr_2709__INSTALL_METHOD; - struct MELT_OBJECT_STRUCT(3) dsym_2710__LIST_APPEND2LIST; - struct MELT_STRING_STRUCT(16) dstr_2711__LIST_APPEND2LIST; - struct MELT_OBJECT_STRUCT(3) dsym_2712__LIST_EVERY; - struct MELT_STRING_STRUCT(10) dstr_2713__LIST_EVERY; - struct MELT_OBJECT_STRUCT(3) dsym_2714__LIST_ITERATE_TEST; - struct MELT_STRING_STRUCT(17) dstr_2715__LIST_ITERATE_TES; - struct MELT_OBJECT_STRUCT(3) dsym_2716__LIST_MAP; - struct MELT_STRING_STRUCT(8) dstr_2717__LIST_MAP; - struct MELT_OBJECT_STRUCT(3) dsym_2718__LIST_TO_MULTIPLE; - struct MELT_STRING_STRUCT(16) dstr_2719__LIST_TO_MULTIPLE; - struct MELT_OBJECT_STRUCT(3) dsym_2720__MAPOBJECT_EVERY; - struct MELT_STRING_STRUCT(15) dstr_2721__MAPOBJECT_EVERY; - struct MELT_OBJECT_STRUCT(3) dsym_2722__MAPOBJECT_ITERATE_TEST; - struct MELT_STRING_STRUCT(22) dstr_2723__MAPOBJECT_ITERAT; - struct MELT_OBJECT_STRUCT(3) dsym_2724__MAPOBJECT_SORTED_ATTRIBUTE_TUPLE; - struct MELT_STRING_STRUCT(32) dstr_2725__MAPOBJECT_SORTED; - struct MELT_OBJECT_STRUCT(3) dsym_2726__MULTIPLE_ITERATE_TEST; - struct MELT_STRING_STRUCT(21) dstr_2727__MULTIPLE_ITERATE; - struct MELT_OBJECT_STRUCT(3) dsym_2728__MULTIPLE_MAP; - struct MELT_STRING_STRUCT(12) dstr_2729__MULTIPLE_MAP; - struct MELT_OBJECT_STRUCT(3) dsym_2730__MULTIPLE_TO_LIST; - struct MELT_STRING_STRUCT(16) dstr_2731__MULTIPLE_TO_LIST; - struct MELT_OBJECT_STRUCT(3) dsym_2732__OVERWRITE_ENV; - struct MELT_STRING_STRUCT(13) dstr_2733__OVERWRITE_ENV; - struct MELT_OBJECT_STRUCT(3) dsym_2734__PAIRLIST_TO_MULTIPLE; - struct MELT_STRING_STRUCT(20) dstr_2735__PAIRLIST_TO_MULT; - struct MELT_OBJECT_STRUCT(3) dsym_2736__POST_INITIALIZATION; - struct MELT_STRING_STRUCT(19) dstr_2737__POST_INITIALIZAT; - struct MELT_OBJECT_STRUCT(3) dsym_2738__PUT_ENV; - struct MELT_STRING_STRUCT(7) dstr_2739__PUT_ENV; - struct MELT_OBJECT_STRUCT(3) dsym_2740__REGISTER_OPTION; - struct MELT_STRING_STRUCT(15) dstr_2741__REGISTER_OPTION; - struct MELT_OBJECT_STRUCT(3) dsym_2742__ROUTINE_EVERY; - struct MELT_STRING_STRUCT(13) dstr_2743__ROUTINE_EVERY; - struct MELT_OBJECT_STRUCT(3) dsym_2744__FOREACH_IN_LIST; - struct MELT_STRING_STRUCT(15) dstr_2745__FOREACH_IN_LIST; - struct MELT_OBJECT_STRUCT(3) dsym_2746__FOREACH_IN_MAPOBJECT; - struct MELT_STRING_STRUCT(20) dstr_2747__FOREACH_IN_MAPOB; - struct MELT_OBJECT_STRUCT(3) dsym_2748__FOREACH_IN_MAPSTRING; - struct MELT_STRING_STRUCT(20) dstr_2749__FOREACH_IN_MAPST; - struct MELT_OBJECT_STRUCT(3) dsym_2750__FOREACH_IN_MULTIPLE; - struct MELT_STRING_STRUCT(19) dstr_2751__FOREACH_IN_MULTI; - struct MELT_OBJECT_STRUCT(3) dsym_2752__FOREACH_IN_MULTIPLE_BACKWARD; - struct MELT_STRING_STRUCT(28) dstr_2753__FOREACH_IN_MULTI; - struct MELT_OBJECT_STRUCT(3) dsym_2754__INTEGERBOX_OF; - struct MELT_STRING_STRUCT(13) dstr_2755__INTEGERBOX_OF; - struct MELT_OBJECT_STRUCT(3) dsym_2756__CLOSURE; - struct MELT_STRING_STRUCT(7) dstr_2757__CLOSURE; - struct MELT_OBJECT_STRUCT(3) dsym_2758__TRUE; - struct MELT_STRING_STRUCT(4) dstr_2759__TRUE; - struct MELT_ROUTINE_STRUCT(1) drout_2760__DEBUG_MSG_FUN; - struct MELT_CLOSURE_STRUCT(0) dclo_2761__DEBUG_MSG_FUN; + struct MELT_STRING_STRUCT(29) dstr_2095__melt_pair_head_; + struct MELT_STRING_STRUCT(3) dstr_2096__; + struct MELT_STRING_STRUCT(9) dstr_2097__PAIR_HEAD; + struct MELT_OBJECT_STRUCT(3) dsym_2098__PAIR_TAIL; + struct MELT_STRING_STRUCT(9) dstr_2099__PAIR_TAIL; + struct MELT_OBJECT_STRUCT(5) dobj_2100__PAIR_TAIL; + struct MELT_MULTIPLE_STRUCT(3) dtup_2101__PAIR_TAIL; + struct MELT_MULTIPLE_STRUCT(1) dtup_2102__PAIR_TAIL; + struct MELT_OBJECT_STRUCT(2) dobj_2103; + struct MELT_STRING_STRUCT(29) dstr_2104__melt_pair_tail_; + struct MELT_STRING_STRUCT(3) dstr_2105__; + struct MELT_STRING_STRUCT(9) dstr_2106__PAIR_TAIL; + struct MELT_OBJECT_STRUCT(3) dsym_2107__WARNINGMSG_STRV; + struct MELT_STRING_STRUCT(15) dstr_2108__WARNINGMSG_STRV; + struct MELT_OBJECT_STRUCT(5) dobj_2109__WARNINGMSG_STRV; + struct MELT_MULTIPLE_STRUCT(5) dtup_2110__WARNINGMSG_STRV; + struct MELT_MULTIPLE_STRUCT(2) dtup_2111__WARNINGMSG_STRV; + struct MELT_OBJECT_STRUCT(2) dobj_2112; + struct MELT_OBJECT_STRUCT(2) dobj_2113; + struct MELT_STRING_STRUCT(68) dstr_2114__warning_0_MEL; + struct MELT_STRING_STRUCT(41) dstr_2115__melt; + struct MELT_STRING_STRUCT(3) dstr_2116__; + struct MELT_STRING_STRUCT(15) dstr_2117__WARNINGMSG_STRV; + struct MELT_OBJECT_STRUCT(3) dsym_2118__INFORMSG_LONG; + struct MELT_STRING_STRUCT(13) dstr_2119__INFORMSG_LONG; + struct MELT_OBJECT_STRUCT(5) dobj_2120__INFORMSG_LONG; + struct MELT_MULTIPLE_STRUCT(5) dtup_2121__INFORMSG_LONG; + struct MELT_MULTIPLE_STRUCT(2) dtup_2122__INFORMSG_LONG; + struct MELT_OBJECT_STRUCT(2) dobj_2123; + struct MELT_OBJECT_STRUCT(2) dobj_2124; + struct MELT_STRING_STRUCT(76) dstr_2125__inform_UNKNOWN_L; + struct MELT_STRING_STRUCT(4) dstr_2126__; + struct MELT_STRING_STRUCT(2) dstr_2127__; + struct MELT_STRING_STRUCT(13) dstr_2128__INFORMSG_LONG; + struct MELT_OBJECT_STRUCT(3) dsym_2129__DISCR_NAME_STRING; + struct MELT_STRING_STRUCT(17) dstr_2130__DISCR_NAME_STRIN; + struct MELT_OBJECT_STRUCT(5) dobj_2131__DISCR_NAME_STRING; + struct MELT_OBJECT_STRUCT(3) dsym_2132__DISCR_STRING; + struct MELT_STRING_STRUCT(12) dstr_2133__DISCR_STRING; + struct MELT_OBJECT_STRUCT(5) dobj_2134__DISCR_STRING; + struct MELT_STRING_STRUCT(12) dstr_2135__DISCR_STRING; + struct MELT_STRING_STRUCT(17) dstr_2136__DISCR_NAME_STRIN; + struct MELT_OBJECT_STRUCT(3) dsym_2137__DISCR_VERBATIM_STRING; + struct MELT_STRING_STRUCT(21) dstr_2138__DISCR_VERBATIM_S; + struct MELT_OBJECT_STRUCT(5) dobj_2139__DISCR_VERBATIM_STRING; + struct MELT_STRING_STRUCT(21) dstr_2140__DISCR_VERBATIM_S; + struct MELT_OBJECT_STRUCT(3) dsym_2141__DISCR_ANY_RECEIVER; + struct MELT_STRING_STRUCT(18) dstr_2142__DISCR_ANY_RECEIV; + struct MELT_OBJECT_STRUCT(5) dobj_2143__DISCR_ANY_RECEIVER; + struct MELT_STRING_STRUCT(18) dstr_2144__DISCR_ANY_RECEIV; + struct MELT_OBJECT_STRUCT(3) dsym_2145__DISCR_NULL_RECEIVER; + struct MELT_STRING_STRUCT(19) dstr_2146__DISCR_NULL_RECEI; + struct MELT_OBJECT_STRUCT(5) dobj_2147__DISCR_NULL_RECEIVER; + struct MELT_STRING_STRUCT(19) dstr_2148__DISCR_NULL_RECEI; + struct MELT_OBJECT_STRUCT(3) dsym_2149__DISCR_STRBUF; + struct MELT_STRING_STRUCT(12) dstr_2150__DISCR_STRBUF; + struct MELT_OBJECT_STRUCT(5) dobj_2151__DISCR_STRBUF; + struct MELT_STRING_STRUCT(12) dstr_2152__DISCR_STRBUF; + struct MELT_OBJECT_STRUCT(3) dsym_2153__DISCR_INTEGER; + struct MELT_STRING_STRUCT(13) dstr_2154__DISCR_INTEGER; + struct MELT_OBJECT_STRUCT(5) dobj_2155__DISCR_INTEGER; + struct MELT_STRING_STRUCT(13) dstr_2156__DISCR_INTEGER; + struct MELT_OBJECT_STRUCT(3) dsym_2157__DISCR_CONSTANT_INTEGER; + struct MELT_STRING_STRUCT(22) dstr_2158__DISCR_CONSTANT_I; + struct MELT_OBJECT_STRUCT(5) dobj_2159__DISCR_CONSTANT_INTEGER; + struct MELT_STRING_STRUCT(22) dstr_2160__DISCR_CONSTANT_I; + struct MELT_OBJECT_STRUCT(3) dsym_2161__DISCR_LIST; + struct MELT_STRING_STRUCT(10) dstr_2162__DISCR_LIST; + struct MELT_OBJECT_STRUCT(5) dobj_2163__DISCR_LIST; + struct MELT_STRING_STRUCT(10) dstr_2164__DISCR_LIST; + struct MELT_OBJECT_STRUCT(3) dsym_2165__DISCR_PAIR; + struct MELT_STRING_STRUCT(10) dstr_2166__DISCR_PAIR; + struct MELT_OBJECT_STRUCT(5) dobj_2167__DISCR_PAIR; + struct MELT_STRING_STRUCT(10) dstr_2168__DISCR_PAIR; + struct MELT_OBJECT_STRUCT(3) dsym_2169__DISCR_MULTIPLE; + struct MELT_STRING_STRUCT(14) dstr_2170__DISCR_MULTIPLE; + struct MELT_OBJECT_STRUCT(5) dobj_2171__DISCR_MULTIPLE; + struct MELT_STRING_STRUCT(14) dstr_2172__DISCR_MULTIPLE; + struct MELT_OBJECT_STRUCT(3) dsym_2173__DISCR_FIELD_SEQUENCE; + struct MELT_STRING_STRUCT(20) dstr_2174__DISCR_FIELD_SEQU; + struct MELT_OBJECT_STRUCT(5) dobj_2175__DISCR_FIELD_SEQUENCE; + struct MELT_STRING_STRUCT(20) dstr_2176__DISCR_FIELD_SEQU; + struct MELT_OBJECT_STRUCT(3) dsym_2177__DISCR_BOX; + struct MELT_STRING_STRUCT(9) dstr_2178__DISCR_BOX; + struct MELT_OBJECT_STRUCT(5) dobj_2179__DISCR_BOX; + struct MELT_STRING_STRUCT(9) dstr_2180__DISCR_BOX; + struct MELT_OBJECT_STRUCT(3) dsym_2181__DISCR_TREE; + struct MELT_STRING_STRUCT(10) dstr_2182__DISCR_TREE; + struct MELT_OBJECT_STRUCT(5) dobj_2183__DISCR_TREE; + struct MELT_STRING_STRUCT(10) dstr_2184__DISCR_TREE; + struct MELT_OBJECT_STRUCT(3) dsym_2185__DISCR_GIMPLE; + struct MELT_STRING_STRUCT(12) dstr_2186__DISCR_GIMPLE; + struct MELT_OBJECT_STRUCT(5) dobj_2187__DISCR_GIMPLE; + struct MELT_STRING_STRUCT(12) dstr_2188__DISCR_GIMPLE; + struct MELT_OBJECT_STRUCT(3) dsym_2189__DISCR_GIMPLE_SEQ; + struct MELT_STRING_STRUCT(16) dstr_2190__DISCR_GIMPLE_SEQ; + struct MELT_OBJECT_STRUCT(5) dobj_2191__DISCR_GIMPLE_SEQ; + struct MELT_STRING_STRUCT(16) dstr_2192__DISCR_GIMPLE_SEQ; + struct MELT_OBJECT_STRUCT(3) dsym_2193__DISCR_EDGE; + struct MELT_STRING_STRUCT(10) dstr_2194__DISCR_EDGE; + struct MELT_OBJECT_STRUCT(5) dobj_2195__DISCR_EDGE; + struct MELT_STRING_STRUCT(10) dstr_2196__DISCR_EDGE; + struct MELT_OBJECT_STRUCT(3) dsym_2197__DISCR_BASIC_BLOCK; + struct MELT_STRING_STRUCT(17) dstr_2198__DISCR_BASIC_BLOC; + struct MELT_OBJECT_STRUCT(5) dobj_2199__DISCR_BASIC_BLOCK; + struct MELT_STRING_STRUCT(17) dstr_2200__DISCR_BASIC_BLOC; + struct MELT_OBJECT_STRUCT(3) dsym_2201__DISCR_MAP_OBJECTS; + struct MELT_STRING_STRUCT(17) dstr_2202__DISCR_MAP_OBJECT; + struct MELT_OBJECT_STRUCT(5) dobj_2203__DISCR_MAP_OBJECTS; + struct MELT_STRING_STRUCT(17) dstr_2204__DISCR_MAP_OBJECT; + struct MELT_OBJECT_STRUCT(3) dsym_2205__DISCR_MAP_STRINGS; + struct MELT_STRING_STRUCT(17) dstr_2206__DISCR_MAP_STRING; + struct MELT_OBJECT_STRUCT(5) dobj_2207__DISCR_MAP_STRINGS; + struct MELT_STRING_STRUCT(17) dstr_2208__DISCR_MAP_STRING; + struct MELT_OBJECT_STRUCT(3) dsym_2209__DISCR_MAP_TREES; + struct MELT_STRING_STRUCT(15) dstr_2210__DISCR_MAP_TREES; + struct MELT_OBJECT_STRUCT(5) dobj_2211__DISCR_MAP_TREES; + struct MELT_STRING_STRUCT(15) dstr_2212__DISCR_MAP_TREES; + struct MELT_OBJECT_STRUCT(3) dsym_2213__DISCR_MAP_GIMPLES; + struct MELT_STRING_STRUCT(17) dstr_2214__DISCR_MAP_GIMPLE; + struct MELT_OBJECT_STRUCT(5) dobj_2215__DISCR_MAP_GIMPLES; + struct MELT_STRING_STRUCT(17) dstr_2216__DISCR_MAP_GIMPLE; + struct MELT_OBJECT_STRUCT(3) dsym_2217__DISCR_MAP_GIMPLE_SEQS; + struct MELT_STRING_STRUCT(21) dstr_2218__DISCR_MAP_GIMPLE; + struct MELT_OBJECT_STRUCT(5) dobj_2219__DISCR_MAP_GIMPLE_SEQS; + struct MELT_STRING_STRUCT(21) dstr_2220__DISCR_MAP_GIMPLE; + struct MELT_OBJECT_STRUCT(3) dsym_2221__DISCR_MAP_EDGES; + struct MELT_STRING_STRUCT(15) dstr_2222__DISCR_MAP_EDGES; + struct MELT_OBJECT_STRUCT(5) dobj_2223__DISCR_MAP_EDGES; + struct MELT_STRING_STRUCT(15) dstr_2224__DISCR_MAP_EDGES; + struct MELT_OBJECT_STRUCT(3) dsym_2225__DISCR_MAP_BASIC_BLOCKS; + struct MELT_STRING_STRUCT(22) dstr_2226__DISCR_MAP_BASIC_; + struct MELT_OBJECT_STRUCT(5) dobj_2227__DISCR_MAP_BASIC_BLOCKS; + struct MELT_STRING_STRUCT(22) dstr_2228__DISCR_MAP_BASIC_; + struct MELT_OBJECT_STRUCT(3) dsym_2229__DISCR_PPL_CONSTRAINT_SYSTEM; + struct MELT_STRING_STRUCT(27) dstr_2230__DISCR_PPL_CONSTR; + struct MELT_OBJECT_STRUCT(5) dobj_2231__DISCR_PPL_CONSTRAINT_SYSTEM; + struct MELT_STRING_STRUCT(27) dstr_2232__DISCR_PPL_CONSTR; + struct MELT_OBJECT_STRUCT(3) dsym_2233__DISCR_PPL_POLYHEDRON; + struct MELT_STRING_STRUCT(20) dstr_2234__DISCR_PPL_POLYHE; + struct MELT_OBJECT_STRUCT(5) dobj_2235__DISCR_PPL_POLYHEDRON; + struct MELT_STRING_STRUCT(20) dstr_2236__DISCR_PPL_POLYHE; + struct MELT_OBJECT_STRUCT(3) dsym_2237__DISCR_FILE; + struct MELT_STRING_STRUCT(10) dstr_2238__DISCR_FILE; + struct MELT_OBJECT_STRUCT(5) dobj_2239__DISCR_FILE; + struct MELT_STRING_STRUCT(10) dstr_2240__DISCR_FILE; + struct MELT_OBJECT_STRUCT(3) dsym_2241__DISCR_RAWFILE; + struct MELT_STRING_STRUCT(13) dstr_2242__DISCR_RAWFILE; + struct MELT_OBJECT_STRUCT(5) dobj_2243__DISCR_RAWFILE; + struct MELT_STRING_STRUCT(13) dstr_2244__DISCR_RAWFILE; + struct MELT_OBJECT_STRUCT(3) dsym_2245__DISCR_CLASS_SEQUENCE; + struct MELT_STRING_STRUCT(20) dstr_2246__DISCR_CLASS_SEQU; + struct MELT_OBJECT_STRUCT(5) dobj_2247__DISCR_CLASS_SEQUENCE; + struct MELT_STRING_STRUCT(20) dstr_2248__DISCR_CLASS_SEQU; + struct MELT_OBJECT_STRUCT(3) dsym_2249__DISCR_METHOD_MAP; + struct MELT_STRING_STRUCT(16) dstr_2250__DISCR_METHOD_MAP; + struct MELT_OBJECT_STRUCT(5) dobj_2251__DISCR_METHOD_MAP; + struct MELT_STRING_STRUCT(16) dstr_2252__DISCR_METHOD_MAP; + struct MELT_OBJECT_STRUCT(3) dsym_2253__DISCR_CHARACTER_INTEGER; + struct MELT_STRING_STRUCT(23) dstr_2254__DISCR_CHARACTER_; + struct MELT_OBJECT_STRUCT(5) dobj_2255__DISCR_CHARACTER_INTEGER; + struct MELT_STRING_STRUCT(23) dstr_2256__DISCR_CHARACTER_; + struct MELT_OBJECT_STRUCT(3) dsym_2257__DISCR_MIXED_INTEGER; + struct MELT_STRING_STRUCT(19) dstr_2258__DISCR_MIXED_INTE; + struct MELT_OBJECT_STRUCT(5) dobj_2259__DISCR_MIXED_INTEGER; + struct MELT_STRING_STRUCT(19) dstr_2260__DISCR_MIXED_INTE; + struct MELT_OBJECT_STRUCT(3) dsym_2261__DISCR_MIXED_BIGINT; + struct MELT_STRING_STRUCT(18) dstr_2262__DISCR_MIXED_BIGI; + struct MELT_OBJECT_STRUCT(5) dobj_2263__DISCR_MIXED_BIGINT; + struct MELT_STRING_STRUCT(18) dstr_2264__DISCR_MIXED_BIGI; + struct MELT_OBJECT_STRUCT(3) dsym_2265__DISCR_MIXED_LOCATION; + struct MELT_STRING_STRUCT(20) dstr_2266__DISCR_MIXED_LOCA; + struct MELT_OBJECT_STRUCT(5) dobj_2267__DISCR_MIXED_LOCATION; + struct MELT_STRING_STRUCT(20) dstr_2268__DISCR_MIXED_LOCA; + struct MELT_OBJECT_STRUCT(3) dsym_2269__DISCR_CLOSURE; + struct MELT_STRING_STRUCT(13) dstr_2270__DISCR_CLOSURE; + struct MELT_OBJECT_STRUCT(5) dobj_2271__DISCR_CLOSURE; + struct MELT_STRING_STRUCT(13) dstr_2272__DISCR_CLOSURE; + struct MELT_OBJECT_STRUCT(3) dsym_2273__DISCR_ROUTINE; + struct MELT_STRING_STRUCT(13) dstr_2274__DISCR_ROUTINE; + struct MELT_OBJECT_STRUCT(5) dobj_2275__DISCR_ROUTINE; + struct MELT_STRING_STRUCT(13) dstr_2276__DISCR_ROUTINE; + struct MELT_ROUTINE_STRUCT(4) drout_2277__INSTALL_CTYPE_DESCR; + struct MELT_CLOSURE_STRUCT(0) dclo_2278__INSTALL_CTYPE_DESCR; + struct MELT_OBJECT_STRUCT(3) dsym_2279__CTYPE_VALUE; + struct MELT_STRING_STRUCT(11) dstr_2280__CTYPE_VALUE; + struct MELT_OBJECT_STRUCT(11) dobj_2281__CTYPE_VALUE; + struct MELT_STRING_STRUCT(11) dstr_2282__CTYPE_VALUE; + struct MELT_OBJECT_STRUCT(3) dsym_2283__VALUE; + struct MELT_STRING_STRUCT(5) dstr_2284__VALUE; + struct MELT_STRING_STRUCT(10) dstr_2285__melt_ptr_t; + struct MELT_STRING_STRUCT(8) dstr_2286__BPAR_PTR; + struct MELT_STRING_STRUCT(11) dstr_2287__BPARSTR_PTR; + struct MELT_STRING_STRUCT(7) dstr_2288__bp_aptr; + struct MELT_STRING_STRUCT(7) dstr_2289__bp_aptr; + struct MELT_STRING_STRUCT(17) dstr_2290__gt_ggc_mx_melt_u; + struct MELT_OBJECT_STRUCT(3) dsym_2291__CTYPE_LONG; + struct MELT_STRING_STRUCT(10) dstr_2292__CTYPE_LONG; + struct MELT_OBJECT_STRUCT(11) dobj_2293__CTYPE_LONG; + struct MELT_STRING_STRUCT(10) dstr_2294__CTYPE_LONG; + struct MELT_OBJECT_STRUCT(3) dsym_2295__LONG; + struct MELT_STRING_STRUCT(4) dstr_2296__LONG; + struct MELT_STRING_STRUCT(4) dstr_2297__long; + struct MELT_STRING_STRUCT(9) dstr_2298__BPAR_LONG; + struct MELT_STRING_STRUCT(12) dstr_2299__BPARSTR_LONG; + struct MELT_STRING_STRUCT(7) dstr_2300__bp_long; + struct MELT_STRING_STRUCT(10) dstr_2301__bp_longptr; + struct MELT_OBJECT_STRUCT(3) dsym_2302__CTYPE_TREE; + struct MELT_STRING_STRUCT(10) dstr_2303__CTYPE_TREE; + struct MELT_OBJECT_STRUCT(11) dobj_2304__CTYPE_TREE; + struct MELT_STRING_STRUCT(10) dstr_2305__CTYPE_TREE; + struct MELT_OBJECT_STRUCT(3) dsym_2306__TREE; + struct MELT_STRING_STRUCT(4) dstr_2307__TREE; + struct MELT_STRING_STRUCT(4) dstr_2308__tree; + struct MELT_STRING_STRUCT(9) dstr_2309__BPAR_TREE; + struct MELT_STRING_STRUCT(12) dstr_2310__BPARSTR_TREE; + struct MELT_STRING_STRUCT(7) dstr_2311__bp_tree; + struct MELT_STRING_STRUCT(10) dstr_2312__bp_treeptr; + struct MELT_STRING_STRUCT(19) dstr_2313__gt_ggc_mx_tree_n; + struct MELT_OBJECT_STRUCT(3) dsym_2314__CTYPE_GIMPLE; + struct MELT_STRING_STRUCT(12) dstr_2315__CTYPE_GIMPLE; + struct MELT_OBJECT_STRUCT(11) dobj_2316__CTYPE_GIMPLE; + struct MELT_STRING_STRUCT(12) dstr_2317__CTYPE_GIMPLE; + struct MELT_OBJECT_STRUCT(3) dsym_2318__GIMPLE; + struct MELT_STRING_STRUCT(6) dstr_2319__GIMPLE; + struct MELT_STRING_STRUCT(6) dstr_2320__gimple; + struct MELT_STRING_STRUCT(11) dstr_2321__BPAR_GIMPLE; + struct MELT_STRING_STRUCT(14) dstr_2322__BPARSTR_GIMPLE; + struct MELT_STRING_STRUCT(9) dstr_2323__bp_gimple; + struct MELT_STRING_STRUCT(12) dstr_2324__bp_gimpleptr; + struct MELT_STRING_STRUCT(28) dstr_2325__gt_ggc_mx_gimple; + struct MELT_OBJECT_STRUCT(3) dsym_2326__CTYPE_GIMPLE_SEQ; + struct MELT_STRING_STRUCT(16) dstr_2327__CTYPE_GIMPLE_SEQ; + struct MELT_OBJECT_STRUCT(11) dobj_2328__CTYPE_GIMPLE_SEQ; + struct MELT_STRING_STRUCT(16) dstr_2329__CTYPE_GIMPLE_SEQ; + struct MELT_OBJECT_STRUCT(3) dsym_2330__GIMPLE_SEQ; + struct MELT_STRING_STRUCT(10) dstr_2331__GIMPLE_SEQ; + struct MELT_STRING_STRUCT(10) dstr_2332__gimple_seq; + struct MELT_STRING_STRUCT(14) dstr_2333__BPAR_GIMPLESEQ; + struct MELT_STRING_STRUCT(17) dstr_2334__BPARSTR_GIMPLESE; + struct MELT_STRING_STRUCT(12) dstr_2335__bp_gimpleseq; + struct MELT_STRING_STRUCT(15) dstr_2336__bp_gimpleseqptr; + struct MELT_STRING_STRUCT(22) dstr_2337__gt_ggc_mx_gimple; + struct MELT_OBJECT_STRUCT(3) dsym_2338__CTYPE_BASIC_BLOCK; + struct MELT_STRING_STRUCT(17) dstr_2339__CTYPE_BASIC_BLOC; + struct MELT_OBJECT_STRUCT(11) dobj_2340__CTYPE_BASIC_BLOCK; + struct MELT_STRING_STRUCT(17) dstr_2341__CTYPE_BASIC_BLOC; + struct MELT_OBJECT_STRUCT(3) dsym_2342__BASIC_BLOCK; + struct MELT_STRING_STRUCT(11) dstr_2343__BASIC_BLOCK; + struct MELT_STRING_STRUCT(11) dstr_2344__basic_block; + struct MELT_STRING_STRUCT(7) dstr_2345__BPAR_BB; + struct MELT_STRING_STRUCT(10) dstr_2346__BPARSTR_BB; + struct MELT_STRING_STRUCT(5) dstr_2347__bp_bb; + struct MELT_STRING_STRUCT(8) dstr_2348__bp_bbptr; + struct MELT_STRING_STRUCT(25) dstr_2349__gt_ggc_mx_basic_; + struct MELT_OBJECT_STRUCT(3) dsym_2350__CTYPE_EDGE; + struct MELT_STRING_STRUCT(10) dstr_2351__CTYPE_EDGE; + struct MELT_OBJECT_STRUCT(11) dobj_2352__CTYPE_EDGE; + struct MELT_STRING_STRUCT(10) dstr_2353__CTYPE_EDGE; + struct MELT_OBJECT_STRUCT(3) dsym_2354__EDGE; + struct MELT_STRING_STRUCT(4) dstr_2355__EDGE; + struct MELT_STRING_STRUCT(4) dstr_2356__edge; + struct MELT_STRING_STRUCT(9) dstr_2357__BPAR_EDGE; + struct MELT_STRING_STRUCT(12) dstr_2358__BPARSTR_EDGE; + struct MELT_STRING_STRUCT(7) dstr_2359__bp_edge; + struct MELT_STRING_STRUCT(10) dstr_2360__bp_edgeptr; + struct MELT_STRING_STRUCT(18) dstr_2361__gt_ggc_mx_edge_d; + struct MELT_OBJECT_STRUCT(3) dsym_2362__CTYPE_PPL_COEFFICIENT; + struct MELT_STRING_STRUCT(21) dstr_2363__CTYPE_PPL_COEFFI; + struct MELT_OBJECT_STRUCT(11) dobj_2364__CTYPE_PPL_COEFFICIENT; + struct MELT_STRING_STRUCT(21) dstr_2365__CTYPE_PPL_COEFFI; + struct MELT_OBJECT_STRUCT(3) dsym_2366__PPL_COEFFICIENT; + struct MELT_STRING_STRUCT(15) dstr_2367__PPL_COEFFICIENT; + struct MELT_STRING_STRUCT(17) dstr_2368__ppl_Coefficient_; + struct MELT_STRING_STRUCT(20) dstr_2369__BPAR_PPL_COEFFIC; + struct MELT_STRING_STRUCT(23) dstr_2370__BPARSTR_PPL_COEF; + struct MELT_STRING_STRUCT(18) dstr_2371__bp_ppl_coefficie; + struct MELT_STRING_STRUCT(21) dstr_2372__bp_ppl_coefficie; + struct MELT_OBJECT_STRUCT(3) dsym_2373__CTYPE_PPL_LINEAR_EXPRESSION; + struct MELT_STRING_STRUCT(27) dstr_2374__CTYPE_PPL_LINEAR; + struct MELT_OBJECT_STRUCT(11) dobj_2375__CTYPE_PPL_LINEAR_EXPRESSION; + struct MELT_STRING_STRUCT(27) dstr_2376__CTYPE_PPL_LINEAR; + struct MELT_OBJECT_STRUCT(3) dsym_2377__PPL_LINEAR_EXPRESSION; + struct MELT_STRING_STRUCT(21) dstr_2378__PPL_LINEAR_EXPRE; + struct MELT_STRING_STRUCT(23) dstr_2379__ppl_Linear_Expre; + struct MELT_STRING_STRUCT(26) dstr_2380__BPAR_PPL_LINEAR_; + struct MELT_STRING_STRUCT(29) dstr_2381__BPARSTR_PPL_LINE; + struct MELT_STRING_STRUCT(24) dstr_2382__bp_ppl_linear_ex; + struct MELT_STRING_STRUCT(27) dstr_2383__bp_ppl_linear_ex; + struct MELT_OBJECT_STRUCT(3) dsym_2384__CTYPE_PPL_CONSTRAINT; + struct MELT_STRING_STRUCT(20) dstr_2385__CTYPE_PPL_CONSTR; + struct MELT_OBJECT_STRUCT(11) dobj_2386__CTYPE_PPL_CONSTRAINT; + struct MELT_STRING_STRUCT(20) dstr_2387__CTYPE_PPL_CONSTR; + struct MELT_OBJECT_STRUCT(3) dsym_2388__PPL_CONSTRAINT; + struct MELT_STRING_STRUCT(14) dstr_2389__PPL_CONSTRAINT; + struct MELT_STRING_STRUCT(16) dstr_2390__ppl_Constraint_t; + struct MELT_STRING_STRUCT(19) dstr_2391__BPAR_PPL_CONSTRA; + struct MELT_STRING_STRUCT(22) dstr_2392__BPARSTR_PPL_CONS; + struct MELT_STRING_STRUCT(17) dstr_2393__bp_ppl_constrain; + struct MELT_STRING_STRUCT(20) dstr_2394__bp_ppl_constrain; + struct MELT_OBJECT_STRUCT(3) dsym_2395__CTYPE_PPL_CONSTRAINT_SYSTEM; + struct MELT_STRING_STRUCT(27) dstr_2396__CTYPE_PPL_CONSTR; + struct MELT_OBJECT_STRUCT(11) dobj_2397__CTYPE_PPL_CONSTRAINT_SYSTEM; + struct MELT_STRING_STRUCT(27) dstr_2398__CTYPE_PPL_CONSTR; + struct MELT_OBJECT_STRUCT(3) dsym_2399__PPL_CONSTRAINT_SYSTEM; + struct MELT_STRING_STRUCT(21) dstr_2400__PPL_CONSTRAINT_S; + struct MELT_STRING_STRUCT(23) dstr_2401__ppl_Constraint_S; + struct MELT_STRING_STRUCT(26) dstr_2402__BPAR_PPL_CONSTRA; + struct MELT_STRING_STRUCT(29) dstr_2403__BPARSTR_PPL_CONS; + struct MELT_STRING_STRUCT(24) dstr_2404__bp_ppl_constrain; + struct MELT_STRING_STRUCT(27) dstr_2405__bp_ppl_constrain; + struct MELT_OBJECT_STRUCT(3) dsym_2406__CTYPE_PPL_POLYHEDRON; + struct MELT_STRING_STRUCT(20) dstr_2407__CTYPE_PPL_POLYHE; + struct MELT_OBJECT_STRUCT(11) dobj_2408__CTYPE_PPL_POLYHEDRON; + struct MELT_STRING_STRUCT(20) dstr_2409__CTYPE_PPL_POLYHE; + struct MELT_OBJECT_STRUCT(3) dsym_2410__PPL_POLYHEDRON; + struct MELT_STRING_STRUCT(14) dstr_2411__PPL_POLYHEDRON; + struct MELT_STRING_STRUCT(16) dstr_2412__ppl_Polyhedron_t; + struct MELT_STRING_STRUCT(19) dstr_2413__BPAR_PPL_POLYHED; + struct MELT_STRING_STRUCT(22) dstr_2414__BPARSTR_PPL_POLY; + struct MELT_STRING_STRUCT(17) dstr_2415__bp_ppl_polyhedro; + struct MELT_STRING_STRUCT(20) dstr_2416__bp_ppl_polyhedro; + struct MELT_OBJECT_STRUCT(3) dsym_2417__CTYPE_VOID; + struct MELT_STRING_STRUCT(10) dstr_2418__CTYPE_VOID; + struct MELT_OBJECT_STRUCT(11) dobj_2419__CTYPE_VOID; + struct MELT_STRING_STRUCT(10) dstr_2420__CTYPE_VOID; + struct MELT_OBJECT_STRUCT(3) dsym_2421__VOID; + struct MELT_STRING_STRUCT(4) dstr_2422__VOID; + struct MELT_STRING_STRUCT(4) dstr_2423__void; + struct MELT_OBJECT_STRUCT(3) dsym_2424__CTYPE_CSTRING; + struct MELT_STRING_STRUCT(13) dstr_2425__CTYPE_CSTRING; + struct MELT_OBJECT_STRUCT(11) dobj_2426__CTYPE_CSTRING; + struct MELT_STRING_STRUCT(13) dstr_2427__CTYPE_CSTRING; + struct MELT_OBJECT_STRUCT(3) dsym_2428__CSTRING; + struct MELT_STRING_STRUCT(7) dstr_2429__CSTRING; + struct MELT_STRING_STRUCT(12) dstr_2430__BPAR_CSTRING; + struct MELT_STRING_STRUCT(15) dstr_2431__BPARSTR_CSTRING; + struct MELT_STRING_STRUCT(10) dstr_2432__bp_cstring; + struct MELT_ROUTINE_STRUCT(2) drout_2433__ADD_NEW_SYMBOL_TOKEN; + struct MELT_CLOSURE_STRUCT(0) dclo_2434__ADD_NEW_SYMBOL_TOKEN; + struct MELT_ROUTINE_STRUCT(2) drout_2435__ADD_NEW_KEYWORD_TOKEN; + struct MELT_CLOSURE_STRUCT(0) dclo_2436__ADD_NEW_KEYWORD_TOKEN; + struct MELT_ROUTINE_STRUCT(2) drout_2437__INTERN_SYMBOL; + struct MELT_CLOSURE_STRUCT(0) dclo_2438__INTERN_SYMBOL; + struct MELT_ROUTINE_STRUCT(2) drout_2439__INTERN_KEYWORD; + struct MELT_CLOSURE_STRUCT(0) dclo_2440__INTERN_KEYWORD; + struct MELT_OBJECT_STRUCT(3) dsym_2441__CONTAINER_CLONEMAPSTRING; + struct MELT_STRING_STRUCT(24) dstr_2442__CONTAINER_CLONEM; + struct MELT_OBJECT_STRUCT(1) dobj_2443__CONTAINER_CLONEMAPSTRING; + struct MELT_ROUTINE_STRUCT(6) drout_2444__CLONE_SYMBOL; + struct MELT_CLOSURE_STRUCT(0) dclo_2445__CLONE_SYMBOL; + struct MELT_ROUTINE_STRUCT(3) drout_2446__INITFRESH_CONTENVMAKER; + struct MELT_CLOSURE_STRUCT(0) dclo_2447__INITFRESH_CONTENVMAKER; + struct MELT_ROUTINE_STRUCT(17) drout_2448__INITVALUE_EXPORTER; + struct MELT_CLOSURE_STRUCT(0) dclo_2449__INITVALUE_EXPORTER; + struct MELT_ROUTINE_STRUCT(6) drout_2450__INITVALUE_IMPORTER; + struct MELT_CLOSURE_STRUCT(0) dclo_2451__INITVALUE_IMPORTER; + struct MELT_ROUTINE_STRUCT(7) drout_2452__INITMACRO_EXPORTER; + struct MELT_CLOSURE_STRUCT(0) dclo_2453__INITMACRO_EXPORTER; + struct MELT_ROUTINE_STRUCT(6) drout_2454__INITPATMACRO_EXPORTER; + struct MELT_CLOSURE_STRUCT(0) dclo_2455__INITPATMACRO_EXPORTER; + struct MELT_OBJECT_STRUCT(3) dsym_2456__CLASS_DELAYED_QUEUE; + struct MELT_STRING_STRUCT(19) dstr_2457__CLASS_DELAYED_QU; + struct MELT_OBJECT_STRUCT(8) dobj_2458__CLASS_DELAYED_QUEUE; + struct MELT_STRING_STRUCT(19) dstr_2459__CLASS_DELAYED_QU; + struct MELT_MULTIPLE_STRUCT(3) dtup_2460__CLASS_DELAYED_QUEUE; + struct MELT_MULTIPLE_STRUCT(5) dtup_2461__CLASS_DELAYED_QUEUE; + struct MELT_OBJECT_STRUCT(3) dsym_2462__DELQU_FIRST; + struct MELT_STRING_STRUCT(11) dstr_2463__DELQU_FIRST; + struct MELT_OBJECT_STRUCT(4) dobj_2464__DELQU_FIRST; + struct MELT_STRING_STRUCT(11) dstr_2465__DELQU_FIRST; + struct MELT_OBJECT_STRUCT(3) dsym_2466__DELQU_LAST; + struct MELT_STRING_STRUCT(10) dstr_2467__DELQU_LAST; + struct MELT_OBJECT_STRUCT(4) dobj_2468__DELQU_LAST; + struct MELT_STRING_STRUCT(10) dstr_2469__DELQU_LAST; + struct MELT_OBJECT_STRUCT(3) dsym_2470__DELQU_DATA; + struct MELT_STRING_STRUCT(10) dstr_2471__DELQU_DATA; + struct MELT_OBJECT_STRUCT(4) dobj_2472__DELQU_DATA; + struct MELT_STRING_STRUCT(10) dstr_2473__DELQU_DATA; + struct MELT_OBJECT_STRUCT(3) dsym_2474__FINAL_DELAYED_QUEUE; + struct MELT_STRING_STRUCT(19) dstr_2475__FINAL_DELAYED_QU; + struct MELT_OBJECT_STRUCT(5) dobj_2476__FINAL_DELAYED_QUEUE; + struct MELT_STRING_STRUCT(19) dstr_2477__final_delayed_qu; + struct MELT_ROUTINE_STRUCT(10) drout_2478__INIT_EXITFINALIZER; + struct MELT_CLOSURE_STRUCT(0) dclo_2479__INIT_EXITFINALIZER; + struct MELT_ROUTINE_STRUCT(1) drout_2480__LAMBDA_; + struct MELT_ROUTINE_STRUCT(0) drout_2481__LAMBDA_; + struct MELT_ROUTINE_STRUCT(1) drout_2482__LAMBDA_; + struct MELT_ROUTINE_STRUCT(1) drout_2483__AT_EXIT_FIRST; + struct MELT_CLOSURE_STRUCT(0) dclo_2484__AT_EXIT_FIRST; + struct MELT_ROUTINE_STRUCT(1) drout_2485__AT_EXIT_LAST; + struct MELT_CLOSURE_STRUCT(0) dclo_2486__AT_EXIT_LAST; + struct MELT_OBJECT_STRUCT(3) dsym_2487__START_UNIT_DELAYED_QUEUE; + struct MELT_STRING_STRUCT(24) dstr_2488__START_UNIT_DELAY; + struct MELT_OBJECT_STRUCT(5) dobj_2489__START_UNIT_DELAYED_QUEUE; + struct MELT_STRING_STRUCT(24) dstr_2490__start_unit_delay; + struct MELT_ROUTINE_STRUCT(10) drout_2491__INIT_UNITSTARTER; + struct MELT_CLOSURE_STRUCT(0) dclo_2492__INIT_UNITSTARTER; + struct MELT_ROUTINE_STRUCT(1) drout_2493__LAMBDA_; + struct MELT_ROUTINE_STRUCT(0) drout_2494__LAMBDA_; + struct MELT_ROUTINE_STRUCT(1) drout_2495__LAMBDA_; + struct MELT_ROUTINE_STRUCT(1) drout_2496__AT_START_UNIT_FIRST; + struct MELT_CLOSURE_STRUCT(0) dclo_2497__AT_START_UNIT_FIRST; + struct MELT_ROUTINE_STRUCT(1) drout_2498__AT_START_UNIT_LAST; + struct MELT_CLOSURE_STRUCT(0) dclo_2499__AT_START_UNIT_LAST; + struct MELT_OBJECT_STRUCT(3) dsym_2500__FINISH_UNIT_DELAYED_QUEUE; + struct MELT_STRING_STRUCT(25) dstr_2501__FINISH_UNIT_DELA; + struct MELT_OBJECT_STRUCT(5) dobj_2502__FINISH_UNIT_DELAYED_QUEUE; + struct MELT_STRING_STRUCT(25) dstr_2503__finish_unit_dela; + struct MELT_ROUTINE_STRUCT(10) drout_2504__INIT_UNITFINISHER; + struct MELT_CLOSURE_STRUCT(0) dclo_2505__INIT_UNITFINISHER; + struct MELT_ROUTINE_STRUCT(1) drout_2506__LAMBDA_; + struct MELT_ROUTINE_STRUCT(0) drout_2507__LAMBDA_; + struct MELT_ROUTINE_STRUCT(1) drout_2508__LAMBDA_; + struct MELT_ROUTINE_STRUCT(1) drout_2509__AT_FINISH_UNIT_FIRST; + struct MELT_CLOSURE_STRUCT(0) dclo_2510__AT_FINISH_UNIT_FIRST; + struct MELT_ROUTINE_STRUCT(1) drout_2511__AT_FINISH_UNIT_LAST; + struct MELT_CLOSURE_STRUCT(0) dclo_2512__AT_FINISH_UNIT_LAST; + struct MELT_OBJECT_STRUCT(3) dsym_2513__OPTION_MAP_CONTAINER; + struct MELT_STRING_STRUCT(20) dstr_2514__OPTION_MAP_CONTA; + struct MELT_OBJECT_STRUCT(1) dobj_2515__OPTION_MAP_CONTAINER; + struct MELT_OBJECT_STRUCT(3) dsym_2516__CLASS_OPTION_DESCRIPTOR; + struct MELT_STRING_STRUCT(23) dstr_2517__CLASS_OPTION_DES; + struct MELT_OBJECT_STRUCT(8) dobj_2518__CLASS_OPTION_DESCRIPTOR; + struct MELT_STRING_STRUCT(23) dstr_2519__CLASS_OPTION_DES; + struct MELT_MULTIPLE_STRUCT(1) dtup_2520__CLASS_OPTION_DESCRIPTOR; + struct MELT_MULTIPLE_STRUCT(3) dtup_2521__CLASS_OPTION_DESCRIPTOR; + struct MELT_OBJECT_STRUCT(3) dsym_2522__OPTDESC_NAME; + struct MELT_STRING_STRUCT(12) dstr_2523__OPTDESC_NAME; + struct MELT_OBJECT_STRUCT(4) dobj_2524__OPTDESC_NAME; + struct MELT_STRING_STRUCT(12) dstr_2525__OPTDESC_NAME; + struct MELT_OBJECT_STRUCT(3) dsym_2526__OPTDESC_FUN; + struct MELT_STRING_STRUCT(11) dstr_2527__OPTDESC_FUN; + struct MELT_OBJECT_STRUCT(4) dobj_2528__OPTDESC_FUN; + struct MELT_STRING_STRUCT(11) dstr_2529__OPTDESC_FUN; + struct MELT_OBJECT_STRUCT(3) dsym_2530__OPTDESC_HELP; + struct MELT_STRING_STRUCT(12) dstr_2531__OPTDESC_HELP; + struct MELT_OBJECT_STRUCT(4) dobj_2532__OPTDESC_HELP; + struct MELT_STRING_STRUCT(12) dstr_2533__OPTDESC_HELP; + struct MELT_ROUTINE_STRUCT(5) drout_2534__INIT_OPTIONSETTER; + struct MELT_CLOSURE_STRUCT(0) dclo_2535__INIT_OPTIONSETTER; + struct MELT_ROUTINE_STRUCT(3) drout_2536__REGISTER_OPTION; + struct MELT_CLOSURE_STRUCT(0) dclo_2537__REGISTER_OPTION; + struct MELT_ROUTINE_STRUCT(6) drout_2538__OPTION_HELPER_FUN; + struct MELT_CLOSURE_STRUCT(0) dclo_2539__OPTION_HELPER_FUN; + struct MELT_ROUTINE_STRUCT(1) drout_2540__LAMBDA_; + struct MELT_OBJECT_STRUCT(3) dsym_2541__HELP; + struct MELT_STRING_STRUCT(4) dstr_2542__HELP; + struct MELT_STRING_STRUCT(40) dstr_2543__Gives_help_about; + struct MELT_OBJECT_STRUCT(3) dsym_2544__MELT_ERROR_COUNTER; + struct MELT_STRING_STRUCT(18) dstr_2545__MELT_ERROR_COUNT; + struct MELT_OBJECT_STRUCT(5) dobj_2546__MELT_ERROR_COUNTER; + struct MELT_MULTIPLE_STRUCT(1) dtup_2547__MELT_ERROR_COUNTER; + struct MELT_MULTIPLE_STRUCT(0) dtup_2548__MELT_ERROR_COUNTER; + struct MELT_STRING_STRUCT(27) dstr_2549__long_melt_err; + struct MELT_STRING_STRUCT(18) dstr_2550__MELT_ERROR_COUNT; + struct MELT_OBJECT_STRUCT(3) dsym_2551__INITIAL_SYSTEM_DATA; + struct MELT_STRING_STRUCT(19) dstr_2552__INITIAL_SYSTEM_D; + struct MELT_OBJECT_STRUCT(28) dobj_2553__INITIAL_SYSTEM_DATA; + struct MELT_STRING_STRUCT(19) dstr_2554__INITIAL_SYSTEM_D; + struct MELT_ROUTINE_STRUCT(0) drout_2555__MAPOBJECT_EVERY; + struct MELT_CLOSURE_STRUCT(0) dclo_2556__MAPOBJECT_EVERY; + struct MELT_ROUTINE_STRUCT(0) drout_2557__MAPOBJECT_ITERATE_TEST; + struct MELT_CLOSURE_STRUCT(0) dclo_2558__MAPOBJECT_ITERATE_TEST; + struct MELT_OBJECT_STRUCT(7) dobj_2559__FOREACH_IN_LIST; + struct MELT_STRING_STRUCT(15) dstr_2560__FOREACH_IN_LIST; + struct MELT_OBJECT_STRUCT(3) dsym_2561__LIS; + struct MELT_STRING_STRUCT(3) dstr_2562__LIS; + struct MELT_OBJECT_STRUCT(2) dobj_2563; + struct MELT_MULTIPLE_STRUCT(1) dtup_2564__FOREACH_IN_LIST; + struct MELT_OBJECT_STRUCT(3) dsym_2565__EACHLIST; + struct MELT_STRING_STRUCT(8) dstr_2566__EACHLIST; + struct MELT_OBJECT_STRUCT(3) dsym_2567__CURPAIR; + struct MELT_STRING_STRUCT(7) dstr_2568__CURPAIR; + struct MELT_OBJECT_STRUCT(2) dobj_2569; + struct MELT_OBJECT_STRUCT(3) dsym_2570__CURCOMP; + struct MELT_STRING_STRUCT(7) dstr_2571__CURCOMP; + struct MELT_OBJECT_STRUCT(2) dobj_2572; + struct MELT_MULTIPLE_STRUCT(2) dtup_2573__FOREACH_IN_LIST; + struct MELT_STRING_STRUCT(9) dstr_2574__start_; + struct MELT_STRING_STRUCT(12) dstr_2575__for_; + struct MELT_STRING_STRUCT(19) dstr_2576__melt_list_fir; + struct MELT_STRING_STRUCT(21) dstr_2577__melt_magic_d; + struct MELT_STRING_STRUCT(25) dstr_2578__OBMAG_PAIR_; + struct MELT_STRING_STRUCT(18) dstr_2579__melt_pair_tai; + struct MELT_STRING_STRUCT(6) dstr_2580__; + struct MELT_STRING_STRUCT(18) dstr_2581__melt_pair_hea; + struct MELT_STRING_STRUCT(3) dstr_2582__; + struct MELT_MULTIPLE_STRUCT(17) dtup_2583__FOREACH_IN_LIST; + struct MELT_STRING_STRUCT(10) dstr_2584__end_; + struct MELT_STRING_STRUCT(3) dstr_2585__; + struct MELT_MULTIPLE_STRUCT(3) dtup_2586__FOREACH_IN_LIST; + struct MELT_ROUTINE_STRUCT(0) drout_2587__LIST_EVERY; + struct MELT_CLOSURE_STRUCT(0) dclo_2588__LIST_EVERY; + struct MELT_ROUTINE_STRUCT(0) drout_2589__LIST_ITERATE_TEST; + struct MELT_CLOSURE_STRUCT(0) dclo_2590__LIST_ITERATE_TEST; + struct MELT_ROUTINE_STRUCT(1) drout_2591__LIST_APPEND2LIST; + struct MELT_CLOSURE_STRUCT(0) dclo_2592__LIST_APPEND2LIST; + struct MELT_ROUTINE_STRUCT(1) drout_2593__LIST_MAP; + struct MELT_CLOSURE_STRUCT(0) dclo_2594__LIST_MAP; + struct MELT_ROUTINE_STRUCT(0) drout_2595__LIST_FIND; + struct MELT_CLOSURE_STRUCT(0) dclo_2596__LIST_FIND; + struct MELT_ROUTINE_STRUCT(4) drout_2597__LIST_TO_MULTIPLE; + struct MELT_CLOSURE_STRUCT(0) dclo_2598__LIST_TO_MULTIPLE; + struct MELT_ROUTINE_STRUCT(0) drout_2599__LAMBDA_; + struct MELT_ROUTINE_STRUCT(1) drout_2600__PAIRLIST_TO_MULTIPLE; + struct MELT_CLOSURE_STRUCT(0) dclo_2601__PAIRLIST_TO_MULTIPLE; + struct MELT_OBJECT_STRUCT(7) dobj_2602__FOREACH_IN_MULTIPLE; + struct MELT_STRING_STRUCT(19) dstr_2603__FOREACH_IN_MULTI; + struct MELT_OBJECT_STRUCT(3) dsym_2604__TUP; + struct MELT_STRING_STRUCT(3) dstr_2605__TUP; + struct MELT_OBJECT_STRUCT(2) dobj_2606; + struct MELT_MULTIPLE_STRUCT(1) dtup_2607__FOREACH_IN_MULTIPLE; + struct MELT_OBJECT_STRUCT(3) dsym_2608__EACHTUP; + struct MELT_STRING_STRUCT(7) dstr_2609__EACHTUP; + struct MELT_OBJECT_STRUCT(3) dsym_2610__COMP; + struct MELT_STRING_STRUCT(4) dstr_2611__COMP; + struct MELT_OBJECT_STRUCT(2) dobj_2612; + struct MELT_OBJECT_STRUCT(2) dobj_2613; + struct MELT_MULTIPLE_STRUCT(2) dtup_2614__FOREACH_IN_MULTIPLE; + struct MELT_STRING_STRUCT(10) dstr_2615__start_; + struct MELT_STRING_STRUCT(14) dstr_2616__long_; + struct MELT_STRING_STRUCT(39) dstr_2617__ln_melt_multi; + struct MELT_STRING_STRUCT(11) dstr_2618__for_; + struct MELT_STRING_STRUCT(10) dstr_2619__0_; + struct MELT_STRING_STRUCT(11) dstr_2620__0_; + struct MELT_STRING_STRUCT(4) dstr_2621__; + struct MELT_STRING_STRUCT(9) dstr_2622__ln_; + struct MELT_STRING_STRUCT(9) dstr_2623__; + struct MELT_STRING_STRUCT(34) dstr_2624__melt_multiple; + struct MELT_STRING_STRUCT(4) dstr_2625__; + struct MELT_STRING_STRUCT(6) dstr_2626__; + struct MELT_MULTIPLE_STRUCT(23) dtup_2627__FOREACH_IN_MULTIPLE; + struct MELT_STRING_STRUCT(5) dstr_2628__if_; + struct MELT_STRING_STRUCT(23) dstr_2629__0_break_; + struct MELT_STRING_STRUCT(4) dstr_2630__; + struct MELT_MULTIPLE_STRUCT(5) dtup_2631__FOREACH_IN_MULTIPLE; + struct MELT_OBJECT_STRUCT(7) dobj_2632__FOREACH_IN_MULTIPLE_BACKWARD; + struct MELT_STRING_STRUCT(28) dstr_2633__FOREACH_IN_MULTI; + struct MELT_OBJECT_STRUCT(2) dobj_2634; + struct MELT_MULTIPLE_STRUCT(1) dtup_2635__FOREACH_IN_MULTIPLE_BACKWARD; + struct MELT_OBJECT_STRUCT(3) dsym_2636__EACHTUPBACK; + struct MELT_STRING_STRUCT(11) dstr_2637__EACHTUPBACK; + struct MELT_OBJECT_STRUCT(2) dobj_2638; + struct MELT_OBJECT_STRUCT(2) dobj_2639; + struct MELT_MULTIPLE_STRUCT(2) dtup_2640__FOREACH_IN_MULTIPLE_BACKWARD; + struct MELT_STRING_STRUCT(10) dstr_2641__start_; + struct MELT_STRING_STRUCT(14) dstr_2642__long_; + struct MELT_STRING_STRUCT(39) dstr_2643__ln_melt_multi; + struct MELT_STRING_STRUCT(12) dstr_2644__long_; + struct MELT_STRING_STRUCT(17) dstr_2645__ix_0_for_; + struct MELT_STRING_STRUCT(6) dstr_2646__ix_; + struct MELT_STRING_STRUCT(12) dstr_2647__ln_1_; + struct MELT_STRING_STRUCT(13) dstr_2648__ix_0_; + struct MELT_STRING_STRUCT(12) dstr_2649__ix_; + struct MELT_STRING_STRUCT(34) dstr_2650__melt_multiple; + struct MELT_STRING_STRUCT(4) dstr_2651__; + struct MELT_STRING_STRUCT(9) dstr_2652__ix_; + struct MELT_STRING_STRUCT(5) dstr_2653__; + struct MELT_STRING_STRUCT(4) dstr_2654__ix_; + struct MELT_MULTIPLE_STRUCT(27) dtup_2655__FOREACH_IN_MULTIPLE_BACKWARD; + struct MELT_STRING_STRUCT(10) dstr_2656__end_; + struct MELT_STRING_STRUCT(4) dstr_2657__; + struct MELT_MULTIPLE_STRUCT(3) dtup_2658__FOREACH_IN_MULTIPLE_BACKWARD; + struct MELT_ROUTINE_STRUCT(0) drout_2659__MULTIPLE_ITERATE_TEST; + struct MELT_CLOSURE_STRUCT(0) dclo_2660__MULTIPLE_ITERATE_TEST; + struct MELT_ROUTINE_STRUCT(1) drout_2661__MULTIPLE_MAP; + struct MELT_CLOSURE_STRUCT(0) dclo_2662__MULTIPLE_MAP; + struct MELT_ROUTINE_STRUCT(1) drout_2663__MULTIPLE_TO_LIST; + struct MELT_CLOSURE_STRUCT(0) dclo_2664__MULTIPLE_TO_LIST; + struct MELT_ROUTINE_STRUCT(0) drout_2665__CLOSURE_EVERY; + struct MELT_CLOSURE_STRUCT(0) dclo_2666__CLOSURE_EVERY; + struct MELT_ROUTINE_STRUCT(0) drout_2667__ROUTINE_EVERY; + struct MELT_CLOSURE_STRUCT(0) dclo_2668__ROUTINE_EVERY; + struct MELT_ROUTINE_STRUCT(3) drout_2669__INSTALL_METHOD; + struct MELT_CLOSURE_STRUCT(0) dclo_2670__INSTALL_METHOD; + struct MELT_ROUTINE_STRUCT(4) drout_2671__COMPARE_OBJ_RANKED; + struct MELT_CLOSURE_STRUCT(0) dclo_2672__COMPARE_OBJ_RANKED; + struct MELT_ROUTINE_STRUCT(9) drout_2673__MAPOBJECT_SORTED_ATTRIBUTE_TUPLE; + struct MELT_CLOSURE_STRUCT(0) dclo_2674__MAPOBJECT_SORTED_ATTRIBUTE_TUPLE; + struct MELT_ROUTINE_STRUCT(1) drout_2675__LAMBDA_; + struct MELT_ROUTINE_STRUCT(1) drout_2676__LAMBDA_; + struct MELT_ROUTINE_STRUCT(0) drout_2677__LAMBDA_; + struct MELT_ROUTINE_STRUCT(3) drout_2678__FRESH_ENV; + struct MELT_CLOSURE_STRUCT(0) dclo_2679__FRESH_ENV; + struct MELT_OBJECT_STRUCT(3) dsym_2680__INITIAL_ENVIRONMENT; + struct MELT_STRING_STRUCT(19) dstr_2681__INITIAL_ENVIRONM; + struct MELT_OBJECT_STRUCT(4) dobj_2682__INITIAL_ENVIRONMENT; + struct MELT_STRING_STRUCT(19) dstr_2683__Initial_Environm; + struct MELT_ROUTINE_STRUCT(1) drout_2684__FIND_ENV; + struct MELT_CLOSURE_STRUCT(0) dclo_2685__FIND_ENV; + struct MELT_ROUTINE_STRUCT(2) drout_2686__FIND_ENV_DEBUG; + struct MELT_CLOSURE_STRUCT(0) dclo_2687__FIND_ENV_DEBUG; + struct MELT_ROUTINE_STRUCT(2) drout_2688__FIND_ENCLOSING_ENV; + struct MELT_CLOSURE_STRUCT(0) dclo_2689__FIND_ENCLOSING_ENV; + struct MELT_ROUTINE_STRUCT(4) drout_2690__PUT_ENV; + struct MELT_CLOSURE_STRUCT(0) dclo_2691__PUT_ENV; + struct MELT_ROUTINE_STRUCT(3) drout_2692__OVERWRITE_ENV; + struct MELT_CLOSURE_STRUCT(0) dclo_2693__OVERWRITE_ENV; + struct MELT_ROUTINE_STRUCT(4) drout_2694__POST_INITIALIZATION; + struct MELT_CLOSURE_STRUCT(0) dclo_2695__POST_INITIALIZATION; + struct MELT_OBJECT_STRUCT(3) dsym_2696__LIST_FIND; + struct MELT_STRING_STRUCT(9) dstr_2697__LIST_FIND; + struct MELT_OBJECT_STRUCT(3) dsym_2698__AT_EXIT_FIRST; + struct MELT_STRING_STRUCT(13) dstr_2699__AT_EXIT_FIRST; + struct MELT_OBJECT_STRUCT(3) dsym_2700__AT_EXIT_LAST; + struct MELT_STRING_STRUCT(12) dstr_2701__AT_EXIT_LAST; + struct MELT_OBJECT_STRUCT(3) dsym_2702__AT_FINISH_UNIT_FIRST; + struct MELT_STRING_STRUCT(20) dstr_2703__AT_FINISH_UNIT_F; + struct MELT_OBJECT_STRUCT(3) dsym_2704__AT_FINISH_UNIT_LAST; + struct MELT_STRING_STRUCT(19) dstr_2705__AT_FINISH_UNIT_L; + struct MELT_OBJECT_STRUCT(3) dsym_2706__AT_START_UNIT_FIRST; + struct MELT_STRING_STRUCT(19) dstr_2707__AT_START_UNIT_FI; + struct MELT_OBJECT_STRUCT(3) dsym_2708__AT_START_UNIT_LAST; + struct MELT_STRING_STRUCT(18) dstr_2709__AT_START_UNIT_LA; + struct MELT_OBJECT_STRUCT(3) dsym_2710__CLONE_SYMBOL; + struct MELT_STRING_STRUCT(12) dstr_2711__CLONE_SYMBOL; + struct MELT_OBJECT_STRUCT(3) dsym_2712__CLOSURE_EVERY; + struct MELT_STRING_STRUCT(13) dstr_2713__CLOSURE_EVERY; + struct MELT_OBJECT_STRUCT(3) dsym_2714__COMPARE_OBJ_RANKED; + struct MELT_STRING_STRUCT(18) dstr_2715__COMPARE_OBJ_RANK; + struct MELT_OBJECT_STRUCT(3) dsym_2716__FIND_ENCLOSING_ENV; + struct MELT_STRING_STRUCT(18) dstr_2717__FIND_ENCLOSING_E; + struct MELT_OBJECT_STRUCT(3) dsym_2718__FIND_ENV; + struct MELT_STRING_STRUCT(8) dstr_2719__FIND_ENV; + struct MELT_OBJECT_STRUCT(3) dsym_2720__FIND_ENV_DEBUG; + struct MELT_STRING_STRUCT(14) dstr_2721__FIND_ENV_DEBUG; + struct MELT_OBJECT_STRUCT(3) dsym_2722__FRESH_ENV; + struct MELT_STRING_STRUCT(9) dstr_2723__FRESH_ENV; + struct MELT_OBJECT_STRUCT(3) dsym_2724__INSTALL_CTYPE_DESCR; + struct MELT_STRING_STRUCT(19) dstr_2725__INSTALL_CTYPE_DE; + struct MELT_OBJECT_STRUCT(3) dsym_2726__INSTALL_METHOD; + struct MELT_STRING_STRUCT(14) dstr_2727__INSTALL_METHOD; + struct MELT_OBJECT_STRUCT(3) dsym_2728__LIST_APPEND2LIST; + struct MELT_STRING_STRUCT(16) dstr_2729__LIST_APPEND2LIST; + struct MELT_OBJECT_STRUCT(3) dsym_2730__LIST_EVERY; + struct MELT_STRING_STRUCT(10) dstr_2731__LIST_EVERY; + struct MELT_OBJECT_STRUCT(3) dsym_2732__LIST_ITERATE_TEST; + struct MELT_STRING_STRUCT(17) dstr_2733__LIST_ITERATE_TES; + struct MELT_OBJECT_STRUCT(3) dsym_2734__LIST_MAP; + struct MELT_STRING_STRUCT(8) dstr_2735__LIST_MAP; + struct MELT_OBJECT_STRUCT(3) dsym_2736__LIST_TO_MULTIPLE; + struct MELT_STRING_STRUCT(16) dstr_2737__LIST_TO_MULTIPLE; + struct MELT_OBJECT_STRUCT(3) dsym_2738__MAPOBJECT_EVERY; + struct MELT_STRING_STRUCT(15) dstr_2739__MAPOBJECT_EVERY; + struct MELT_OBJECT_STRUCT(3) dsym_2740__MAPOBJECT_ITERATE_TEST; + struct MELT_STRING_STRUCT(22) dstr_2741__MAPOBJECT_ITERAT; + struct MELT_OBJECT_STRUCT(3) dsym_2742__MAPOBJECT_SORTED_ATTRIBUTE_TUPLE; + struct MELT_STRING_STRUCT(32) dstr_2743__MAPOBJECT_SORTED; + struct MELT_OBJECT_STRUCT(3) dsym_2744__MULTIPLE_ITERATE_TEST; + struct MELT_STRING_STRUCT(21) dstr_2745__MULTIPLE_ITERATE; + struct MELT_OBJECT_STRUCT(3) dsym_2746__MULTIPLE_MAP; + struct MELT_STRING_STRUCT(12) dstr_2747__MULTIPLE_MAP; + struct MELT_OBJECT_STRUCT(3) dsym_2748__MULTIPLE_TO_LIST; + struct MELT_STRING_STRUCT(16) dstr_2749__MULTIPLE_TO_LIST; + struct MELT_OBJECT_STRUCT(3) dsym_2750__OVERWRITE_ENV; + struct MELT_STRING_STRUCT(13) dstr_2751__OVERWRITE_ENV; + struct MELT_OBJECT_STRUCT(3) dsym_2752__PAIRLIST_TO_MULTIPLE; + struct MELT_STRING_STRUCT(20) dstr_2753__PAIRLIST_TO_MULT; + struct MELT_OBJECT_STRUCT(3) dsym_2754__POST_INITIALIZATION; + struct MELT_STRING_STRUCT(19) dstr_2755__POST_INITIALIZAT; + struct MELT_OBJECT_STRUCT(3) dsym_2756__PUT_ENV; + struct MELT_STRING_STRUCT(7) dstr_2757__PUT_ENV; + struct MELT_OBJECT_STRUCT(3) dsym_2758__REGISTER_OPTION; + struct MELT_STRING_STRUCT(15) dstr_2759__REGISTER_OPTION; + struct MELT_OBJECT_STRUCT(3) dsym_2760__ROUTINE_EVERY; + struct MELT_STRING_STRUCT(13) dstr_2761__ROUTINE_EVERY; + struct MELT_OBJECT_STRUCT(3) dsym_2762__FOREACH_IN_LIST; + struct MELT_STRING_STRUCT(15) dstr_2763__FOREACH_IN_LIST; + struct MELT_OBJECT_STRUCT(3) dsym_2764__FOREACH_IN_MAPOBJECT; + struct MELT_STRING_STRUCT(20) dstr_2765__FOREACH_IN_MAPOB; + struct MELT_OBJECT_STRUCT(3) dsym_2766__FOREACH_IN_MAPSTRING; + struct MELT_STRING_STRUCT(20) dstr_2767__FOREACH_IN_MAPST; + struct MELT_OBJECT_STRUCT(3) dsym_2768__FOREACH_IN_MULTIPLE; + struct MELT_STRING_STRUCT(19) dstr_2769__FOREACH_IN_MULTI; + struct MELT_OBJECT_STRUCT(3) dsym_2770__FOREACH_IN_MULTIPLE_BACKWARD; + struct MELT_STRING_STRUCT(28) dstr_2771__FOREACH_IN_MULTI; + struct MELT_OBJECT_STRUCT(3) dsym_2772__INTEGERBOX_OF; + struct MELT_STRING_STRUCT(13) dstr_2773__INTEGERBOX_OF; + struct MELT_OBJECT_STRUCT(3) dsym_2774__CLOSURE; + struct MELT_STRING_STRUCT(7) dstr_2775__CLOSURE; + struct MELT_OBJECT_STRUCT(3) dsym_2776__TRUE; + struct MELT_STRING_STRUCT(4) dstr_2777__TRUE; + struct MELT_ROUTINE_STRUCT(1) drout_2778__DEBUG_MSG_FUN; + struct MELT_CLOSURE_STRUCT(0) dclo_2779__DEBUG_MSG_FUN; long spare_; } *cdat = NULL; cdat = (struct cdata_st*) meltgc_allocate(sizeof(*cdat),0); @@ -10095,331 +10113,331 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef MELTPREDEFIX(predefinited,CLASS_MELT_MODE) = 1; fnotice(stderr, "MELT: predefined %s already defined <%s:%d>\n", "CLASS_MELT_MODE", __FILE__, __LINE__); }; - MELT_LOCATION("warmelt-first.melt:1391:/ inipredef"); - /*inipredef dobj_2113__DISCR_NAME_STRING*/ - if (!MELT_PREDEF(DISCR_NAME_STRING)) MELT_STORE_PREDEF(DISCR_NAME_STRING, (melt_ptr_t)&cdat->dobj_2113__DISCR_NAME_STRING); + MELT_LOCATION("warmelt-first.melt:1398:/ inipredef"); + /*inipredef dobj_2131__DISCR_NAME_STRING*/ + if (!MELT_PREDEF(DISCR_NAME_STRING)) MELT_STORE_PREDEF(DISCR_NAME_STRING, (melt_ptr_t)&cdat->dobj_2131__DISCR_NAME_STRING); else { MELTPREDEFIX(predefinited,DISCR_NAME_STRING) = 1; fnotice(stderr, "MELT: predefined %s already defined <%s:%d>\n", "DISCR_NAME_STRING", __FILE__, __LINE__); }; - MELT_LOCATION("warmelt-first.melt:1400:/ inipredef"); - /*inipredef dobj_2116__DISCR_STRING*/ - if (!MELT_PREDEF(DISCR_STRING)) MELT_STORE_PREDEF(DISCR_STRING, (melt_ptr_t)&cdat->dobj_2116__DISCR_STRING); + MELT_LOCATION("warmelt-first.melt:1407:/ inipredef"); + /*inipredef dobj_2134__DISCR_STRING*/ + if (!MELT_PREDEF(DISCR_STRING)) MELT_STORE_PREDEF(DISCR_STRING, (melt_ptr_t)&cdat->dobj_2134__DISCR_STRING); else { MELTPREDEFIX(predefinited,DISCR_STRING) = 1; fnotice(stderr, "MELT: predefined %s already defined <%s:%d>\n", "DISCR_STRING", __FILE__, __LINE__); }; - MELT_LOCATION("warmelt-first.melt:1411:/ inipredef"); - /*inipredef dobj_2121__DISCR_VERBATIM_STRING*/ - if (!MELT_PREDEF(DISCR_VERBATIM_STRING)) MELT_STORE_PREDEF(DISCR_VERBATIM_STRING, (melt_ptr_t)&cdat->dobj_2121__DISCR_VERBATIM_STRING); + MELT_LOCATION("warmelt-first.melt:1418:/ inipredef"); + /*inipredef dobj_2139__DISCR_VERBATIM_STRING*/ + if (!MELT_PREDEF(DISCR_VERBATIM_STRING)) MELT_STORE_PREDEF(DISCR_VERBATIM_STRING, (melt_ptr_t)&cdat->dobj_2139__DISCR_VERBATIM_STRING); else { MELTPREDEFIX(predefinited,DISCR_VERBATIM_STRING) = 1; fnotice(stderr, "MELT: predefined %s already defined <%s:%d>\n", "DISCR_VERBATIM_STRING", __FILE__, __LINE__); }; - MELT_LOCATION("warmelt-first.melt:1429:/ inipredef"); - /*inipredef dobj_2129__DISCR_NULL_RECEIVER*/ - if (!MELT_PREDEF(DISCR_NULL_RECEIVER)) MELT_STORE_PREDEF(DISCR_NULL_RECEIVER, (melt_ptr_t)&cdat->dobj_2129__DISCR_NULL_RECEIVER); + MELT_LOCATION("warmelt-first.melt:1436:/ inipredef"); + /*inipredef dobj_2147__DISCR_NULL_RECEIVER*/ + if (!MELT_PREDEF(DISCR_NULL_RECEIVER)) MELT_STORE_PREDEF(DISCR_NULL_RECEIVER, (melt_ptr_t)&cdat->dobj_2147__DISCR_NULL_RECEIVER); else { MELTPREDEFIX(predefinited,DISCR_NULL_RECEIVER) = 1; fnotice(stderr, "MELT: predefined %s already defined <%s:%d>\n", "DISCR_NULL_RECEIVER", __FILE__, __LINE__); }; - MELT_LOCATION("warmelt-first.melt:1436:/ inipredef"); - /*inipredef dobj_2133__DISCR_STRBUF*/ - if (!MELT_PREDEF(DISCR_STRBUF)) MELT_STORE_PREDEF(DISCR_STRBUF, (melt_ptr_t)&cdat->dobj_2133__DISCR_STRBUF); + MELT_LOCATION("warmelt-first.melt:1443:/ inipredef"); + /*inipredef dobj_2151__DISCR_STRBUF*/ + if (!MELT_PREDEF(DISCR_STRBUF)) MELT_STORE_PREDEF(DISCR_STRBUF, (melt_ptr_t)&cdat->dobj_2151__DISCR_STRBUF); else { MELTPREDEFIX(predefinited,DISCR_STRBUF) = 1; fnotice(stderr, "MELT: predefined %s already defined <%s:%d>\n", "DISCR_STRBUF", __FILE__, __LINE__); }; - MELT_LOCATION("warmelt-first.melt:1444:/ inipredef"); - /*inipredef dobj_2137__DISCR_INTEGER*/ - if (!MELT_PREDEF(DISCR_INTEGER)) MELT_STORE_PREDEF(DISCR_INTEGER, (melt_ptr_t)&cdat->dobj_2137__DISCR_INTEGER); + MELT_LOCATION("warmelt-first.melt:1451:/ inipredef"); + /*inipredef dobj_2155__DISCR_INTEGER*/ + if (!MELT_PREDEF(DISCR_INTEGER)) MELT_STORE_PREDEF(DISCR_INTEGER, (melt_ptr_t)&cdat->dobj_2155__DISCR_INTEGER); else { MELTPREDEFIX(predefinited,DISCR_INTEGER) = 1; fnotice(stderr, "MELT: predefined %s already defined <%s:%d>\n", "DISCR_INTEGER", __FILE__, __LINE__); }; - MELT_LOCATION("warmelt-first.melt:1452:/ inipredef"); - /*inipredef dobj_2141__DISCR_CONSTANT_INTEGER*/ - if (!MELT_PREDEF(DISCR_CONSTANT_INTEGER)) MELT_STORE_PREDEF(DISCR_CONSTANT_INTEGER, (melt_ptr_t)&cdat->dobj_2141__DISCR_CONSTANT_INTEGER); + MELT_LOCATION("warmelt-first.melt:1459:/ inipredef"); + /*inipredef dobj_2159__DISCR_CONSTANT_INTEGER*/ + if (!MELT_PREDEF(DISCR_CONSTANT_INTEGER)) MELT_STORE_PREDEF(DISCR_CONSTANT_INTEGER, (melt_ptr_t)&cdat->dobj_2159__DISCR_CONSTANT_INTEGER); else { MELTPREDEFIX(predefinited,DISCR_CONSTANT_INTEGER) = 1; fnotice(stderr, "MELT: predefined %s already defined <%s:%d>\n", "DISCR_CONSTANT_INTEGER", __FILE__, __LINE__); }; - MELT_LOCATION("warmelt-first.melt:1463:/ inipredef"); - /*inipredef dobj_2145__DISCR_LIST*/ - if (!MELT_PREDEF(DISCR_LIST)) MELT_STORE_PREDEF(DISCR_LIST, (melt_ptr_t)&cdat->dobj_2145__DISCR_LIST); + MELT_LOCATION("warmelt-first.melt:1470:/ inipredef"); + /*inipredef dobj_2163__DISCR_LIST*/ + if (!MELT_PREDEF(DISCR_LIST)) MELT_STORE_PREDEF(DISCR_LIST, (melt_ptr_t)&cdat->dobj_2163__DISCR_LIST); else { MELTPREDEFIX(predefinited,DISCR_LIST) = 1; fnotice(stderr, "MELT: predefined %s already defined <%s:%d>\n", "DISCR_LIST", __FILE__, __LINE__); }; - MELT_LOCATION("warmelt-first.melt:1471:/ inipredef"); - /*inipredef dobj_2149__DISCR_PAIR*/ - if (!MELT_PREDEF(DISCR_PAIR)) MELT_STORE_PREDEF(DISCR_PAIR, (melt_ptr_t)&cdat->dobj_2149__DISCR_PAIR); + MELT_LOCATION("warmelt-first.melt:1478:/ inipredef"); + /*inipredef dobj_2167__DISCR_PAIR*/ + if (!MELT_PREDEF(DISCR_PAIR)) MELT_STORE_PREDEF(DISCR_PAIR, (melt_ptr_t)&cdat->dobj_2167__DISCR_PAIR); else { MELTPREDEFIX(predefinited,DISCR_PAIR) = 1; fnotice(stderr, "MELT: predefined %s already defined <%s:%d>\n", "DISCR_PAIR", __FILE__, __LINE__); }; - MELT_LOCATION("warmelt-first.melt:1479:/ inipredef"); - /*inipredef dobj_2153__DISCR_MULTIPLE*/ - if (!MELT_PREDEF(DISCR_MULTIPLE)) MELT_STORE_PREDEF(DISCR_MULTIPLE, (melt_ptr_t)&cdat->dobj_2153__DISCR_MULTIPLE); + MELT_LOCATION("warmelt-first.melt:1486:/ inipredef"); + /*inipredef dobj_2171__DISCR_MULTIPLE*/ + if (!MELT_PREDEF(DISCR_MULTIPLE)) MELT_STORE_PREDEF(DISCR_MULTIPLE, (melt_ptr_t)&cdat->dobj_2171__DISCR_MULTIPLE); else { MELTPREDEFIX(predefinited,DISCR_MULTIPLE) = 1; fnotice(stderr, "MELT: predefined %s already defined <%s:%d>\n", "DISCR_MULTIPLE", __FILE__, __LINE__); }; - MELT_LOCATION("warmelt-first.melt:1488:/ inipredef"); - /*inipredef dobj_2157__DISCR_FIELD_SEQUENCE*/ - if (!MELT_PREDEF(DISCR_FIELD_SEQUENCE)) MELT_STORE_PREDEF(DISCR_FIELD_SEQUENCE, (melt_ptr_t)&cdat->dobj_2157__DISCR_FIELD_SEQUENCE); + MELT_LOCATION("warmelt-first.melt:1495:/ inipredef"); + /*inipredef dobj_2175__DISCR_FIELD_SEQUENCE*/ + if (!MELT_PREDEF(DISCR_FIELD_SEQUENCE)) MELT_STORE_PREDEF(DISCR_FIELD_SEQUENCE, (melt_ptr_t)&cdat->dobj_2175__DISCR_FIELD_SEQUENCE); else { MELTPREDEFIX(predefinited,DISCR_FIELD_SEQUENCE) = 1; fnotice(stderr, "MELT: predefined %s already defined <%s:%d>\n", "DISCR_FIELD_SEQUENCE", __FILE__, __LINE__); }; - MELT_LOCATION("warmelt-first.melt:1499:/ inipredef"); - /*inipredef dobj_2161__DISCR_BOX*/ - if (!MELT_PREDEF(DISCR_BOX)) MELT_STORE_PREDEF(DISCR_BOX, (melt_ptr_t)&cdat->dobj_2161__DISCR_BOX); + MELT_LOCATION("warmelt-first.melt:1506:/ inipredef"); + /*inipredef dobj_2179__DISCR_BOX*/ + if (!MELT_PREDEF(DISCR_BOX)) MELT_STORE_PREDEF(DISCR_BOX, (melt_ptr_t)&cdat->dobj_2179__DISCR_BOX); else { MELTPREDEFIX(predefinited,DISCR_BOX) = 1; fnotice(stderr, "MELT: predefined %s already defined <%s:%d>\n", "DISCR_BOX", __FILE__, __LINE__); }; - MELT_LOCATION("warmelt-first.melt:1508:/ inipredef"); - /*inipredef dobj_2165__DISCR_TREE*/ - if (!MELT_PREDEF(DISCR_TREE)) MELT_STORE_PREDEF(DISCR_TREE, (melt_ptr_t)&cdat->dobj_2165__DISCR_TREE); + MELT_LOCATION("warmelt-first.melt:1515:/ inipredef"); + /*inipredef dobj_2183__DISCR_TREE*/ + if (!MELT_PREDEF(DISCR_TREE)) MELT_STORE_PREDEF(DISCR_TREE, (melt_ptr_t)&cdat->dobj_2183__DISCR_TREE); else { MELTPREDEFIX(predefinited,DISCR_TREE) = 1; fnotice(stderr, "MELT: predefined %s already defined <%s:%d>\n", "DISCR_TREE", __FILE__, __LINE__); }; - MELT_LOCATION("warmelt-first.melt:1516:/ inipredef"); - /*inipredef dobj_2169__DISCR_GIMPLE*/ - if (!MELT_PREDEF(DISCR_GIMPLE)) MELT_STORE_PREDEF(DISCR_GIMPLE, (melt_ptr_t)&cdat->dobj_2169__DISCR_GIMPLE); + MELT_LOCATION("warmelt-first.melt:1523:/ inipredef"); + /*inipredef dobj_2187__DISCR_GIMPLE*/ + if (!MELT_PREDEF(DISCR_GIMPLE)) MELT_STORE_PREDEF(DISCR_GIMPLE, (melt_ptr_t)&cdat->dobj_2187__DISCR_GIMPLE); else { MELTPREDEFIX(predefinited,DISCR_GIMPLE) = 1; fnotice(stderr, "MELT: predefined %s already defined <%s:%d>\n", "DISCR_GIMPLE", __FILE__, __LINE__); }; - MELT_LOCATION("warmelt-first.melt:1524:/ inipredef"); - /*inipredef dobj_2173__DISCR_GIMPLE_SEQ*/ - if (!MELT_PREDEF(DISCR_GIMPLE_SEQ)) MELT_STORE_PREDEF(DISCR_GIMPLE_SEQ, (melt_ptr_t)&cdat->dobj_2173__DISCR_GIMPLE_SEQ); + MELT_LOCATION("warmelt-first.melt:1531:/ inipredef"); + /*inipredef dobj_2191__DISCR_GIMPLE_SEQ*/ + if (!MELT_PREDEF(DISCR_GIMPLE_SEQ)) MELT_STORE_PREDEF(DISCR_GIMPLE_SEQ, (melt_ptr_t)&cdat->dobj_2191__DISCR_GIMPLE_SEQ); else { MELTPREDEFIX(predefinited,DISCR_GIMPLE_SEQ) = 1; fnotice(stderr, "MELT: predefined %s already defined <%s:%d>\n", "DISCR_GIMPLE_SEQ", __FILE__, __LINE__); }; - MELT_LOCATION("warmelt-first.melt:1532:/ inipredef"); - /*inipredef dobj_2177__DISCR_EDGE*/ - if (!MELT_PREDEF(DISCR_EDGE)) MELT_STORE_PREDEF(DISCR_EDGE, (melt_ptr_t)&cdat->dobj_2177__DISCR_EDGE); + MELT_LOCATION("warmelt-first.melt:1539:/ inipredef"); + /*inipredef dobj_2195__DISCR_EDGE*/ + if (!MELT_PREDEF(DISCR_EDGE)) MELT_STORE_PREDEF(DISCR_EDGE, (melt_ptr_t)&cdat->dobj_2195__DISCR_EDGE); else { MELTPREDEFIX(predefinited,DISCR_EDGE) = 1; fnotice(stderr, "MELT: predefined %s already defined <%s:%d>\n", "DISCR_EDGE", __FILE__, __LINE__); }; - MELT_LOCATION("warmelt-first.melt:1539:/ inipredef"); - /*inipredef dobj_2181__DISCR_BASIC_BLOCK*/ - if (!MELT_PREDEF(DISCR_BASIC_BLOCK)) MELT_STORE_PREDEF(DISCR_BASIC_BLOCK, (melt_ptr_t)&cdat->dobj_2181__DISCR_BASIC_BLOCK); + MELT_LOCATION("warmelt-first.melt:1546:/ inipredef"); + /*inipredef dobj_2199__DISCR_BASIC_BLOCK*/ + if (!MELT_PREDEF(DISCR_BASIC_BLOCK)) MELT_STORE_PREDEF(DISCR_BASIC_BLOCK, (melt_ptr_t)&cdat->dobj_2199__DISCR_BASIC_BLOCK); else { MELTPREDEFIX(predefinited,DISCR_BASIC_BLOCK) = 1; fnotice(stderr, "MELT: predefined %s already defined <%s:%d>\n", "DISCR_BASIC_BLOCK", __FILE__, __LINE__); }; - MELT_LOCATION("warmelt-first.melt:1548:/ inipredef"); - /*inipredef dobj_2185__DISCR_MAP_OBJECTS*/ - if (!MELT_PREDEF(DISCR_MAP_OBJECTS)) MELT_STORE_PREDEF(DISCR_MAP_OBJECTS, (melt_ptr_t)&cdat->dobj_2185__DISCR_MAP_OBJECTS); + MELT_LOCATION("warmelt-first.melt:1555:/ inipredef"); + /*inipredef dobj_2203__DISCR_MAP_OBJECTS*/ + if (!MELT_PREDEF(DISCR_MAP_OBJECTS)) MELT_STORE_PREDEF(DISCR_MAP_OBJECTS, (melt_ptr_t)&cdat->dobj_2203__DISCR_MAP_OBJECTS); else { MELTPREDEFIX(predefinited,DISCR_MAP_OBJECTS) = 1; fnotice(stderr, "MELT: predefined %s already defined <%s:%d>\n", "DISCR_MAP_OBJECTS", __FILE__, __LINE__); }; - MELT_LOCATION("warmelt-first.melt:1557:/ inipredef"); - /*inipredef dobj_2189__DISCR_MAP_STRINGS*/ - if (!MELT_PREDEF(DISCR_MAP_STRINGS)) MELT_STORE_PREDEF(DISCR_MAP_STRINGS, (melt_ptr_t)&cdat->dobj_2189__DISCR_MAP_STRINGS); + MELT_LOCATION("warmelt-first.melt:1564:/ inipredef"); + /*inipredef dobj_2207__DISCR_MAP_STRINGS*/ + if (!MELT_PREDEF(DISCR_MAP_STRINGS)) MELT_STORE_PREDEF(DISCR_MAP_STRINGS, (melt_ptr_t)&cdat->dobj_2207__DISCR_MAP_STRINGS); else { MELTPREDEFIX(predefinited,DISCR_MAP_STRINGS) = 1; fnotice(stderr, "MELT: predefined %s already defined <%s:%d>\n", "DISCR_MAP_STRINGS", __FILE__, __LINE__); }; - MELT_LOCATION("warmelt-first.melt:1566:/ inipredef"); - /*inipredef dobj_2193__DISCR_MAP_TREES*/ - if (!MELT_PREDEF(DISCR_MAP_TREES)) MELT_STORE_PREDEF(DISCR_MAP_TREES, (melt_ptr_t)&cdat->dobj_2193__DISCR_MAP_TREES); + MELT_LOCATION("warmelt-first.melt:1573:/ inipredef"); + /*inipredef dobj_2211__DISCR_MAP_TREES*/ + if (!MELT_PREDEF(DISCR_MAP_TREES)) MELT_STORE_PREDEF(DISCR_MAP_TREES, (melt_ptr_t)&cdat->dobj_2211__DISCR_MAP_TREES); else { MELTPREDEFIX(predefinited,DISCR_MAP_TREES) = 1; fnotice(stderr, "MELT: predefined %s already defined <%s:%d>\n", "DISCR_MAP_TREES", __FILE__, __LINE__); }; - MELT_LOCATION("warmelt-first.melt:1575:/ inipredef"); - /*inipredef dobj_2197__DISCR_MAP_GIMPLES*/ - if (!MELT_PREDEF(DISCR_MAP_GIMPLES)) MELT_STORE_PREDEF(DISCR_MAP_GIMPLES, (melt_ptr_t)&cdat->dobj_2197__DISCR_MAP_GIMPLES); + MELT_LOCATION("warmelt-first.melt:1582:/ inipredef"); + /*inipredef dobj_2215__DISCR_MAP_GIMPLES*/ + if (!MELT_PREDEF(DISCR_MAP_GIMPLES)) MELT_STORE_PREDEF(DISCR_MAP_GIMPLES, (melt_ptr_t)&cdat->dobj_2215__DISCR_MAP_GIMPLES); else { MELTPREDEFIX(predefinited,DISCR_MAP_GIMPLES) = 1; fnotice(stderr, "MELT: predefined %s already defined <%s:%d>\n", "DISCR_MAP_GIMPLES", __FILE__, __LINE__); }; - MELT_LOCATION("warmelt-first.melt:1584:/ inipredef"); - /*inipredef dobj_2201__DISCR_MAP_GIMPLE_SEQS*/ - if (!MELT_PREDEF(DISCR_MAP_GIMPLE_SEQS)) MELT_STORE_PREDEF(DISCR_MAP_GIMPLE_SEQS, (melt_ptr_t)&cdat->dobj_2201__DISCR_MAP_GIMPLE_SEQS); + MELT_LOCATION("warmelt-first.melt:1591:/ inipredef"); + /*inipredef dobj_2219__DISCR_MAP_GIMPLE_SEQS*/ + if (!MELT_PREDEF(DISCR_MAP_GIMPLE_SEQS)) MELT_STORE_PREDEF(DISCR_MAP_GIMPLE_SEQS, (melt_ptr_t)&cdat->dobj_2219__DISCR_MAP_GIMPLE_SEQS); else { MELTPREDEFIX(predefinited,DISCR_MAP_GIMPLE_SEQS) = 1; fnotice(stderr, "MELT: predefined %s already defined <%s:%d>\n", "DISCR_MAP_GIMPLE_SEQS", __FILE__, __LINE__); }; - MELT_LOCATION("warmelt-first.melt:1593:/ inipredef"); - /*inipredef dobj_2205__DISCR_MAP_EDGES*/ - if (!MELT_PREDEF(DISCR_MAP_EDGES)) MELT_STORE_PREDEF(DISCR_MAP_EDGES, (melt_ptr_t)&cdat->dobj_2205__DISCR_MAP_EDGES); + MELT_LOCATION("warmelt-first.melt:1600:/ inipredef"); + /*inipredef dobj_2223__DISCR_MAP_EDGES*/ + if (!MELT_PREDEF(DISCR_MAP_EDGES)) MELT_STORE_PREDEF(DISCR_MAP_EDGES, (melt_ptr_t)&cdat->dobj_2223__DISCR_MAP_EDGES); else { MELTPREDEFIX(predefinited,DISCR_MAP_EDGES) = 1; fnotice(stderr, "MELT: predefined %s already defined <%s:%d>\n", "DISCR_MAP_EDGES", __FILE__, __LINE__); }; - MELT_LOCATION("warmelt-first.melt:1602:/ inipredef"); - /*inipredef dobj_2209__DISCR_MAP_BASIC_BLOCKS*/ - if (!MELT_PREDEF(DISCR_MAP_BASIC_BLOCKS)) MELT_STORE_PREDEF(DISCR_MAP_BASIC_BLOCKS, (melt_ptr_t)&cdat->dobj_2209__DISCR_MAP_BASIC_BLOCKS); + MELT_LOCATION("warmelt-first.melt:1609:/ inipredef"); + /*inipredef dobj_2227__DISCR_MAP_BASIC_BLOCKS*/ + if (!MELT_PREDEF(DISCR_MAP_BASIC_BLOCKS)) MELT_STORE_PREDEF(DISCR_MAP_BASIC_BLOCKS, (melt_ptr_t)&cdat->dobj_2227__DISCR_MAP_BASIC_BLOCKS); else { MELTPREDEFIX(predefinited,DISCR_MAP_BASIC_BLOCKS) = 1; fnotice(stderr, "MELT: predefined %s already defined <%s:%d>\n", "DISCR_MAP_BASIC_BLOCKS", __FILE__, __LINE__); }; - MELT_LOCATION("warmelt-first.melt:1649:/ inipredef"); - /*inipredef dobj_2229__DISCR_CLASS_SEQUENCE*/ - if (!MELT_PREDEF(DISCR_CLASS_SEQUENCE)) MELT_STORE_PREDEF(DISCR_CLASS_SEQUENCE, (melt_ptr_t)&cdat->dobj_2229__DISCR_CLASS_SEQUENCE); + MELT_LOCATION("warmelt-first.melt:1656:/ inipredef"); + /*inipredef dobj_2247__DISCR_CLASS_SEQUENCE*/ + if (!MELT_PREDEF(DISCR_CLASS_SEQUENCE)) MELT_STORE_PREDEF(DISCR_CLASS_SEQUENCE, (melt_ptr_t)&cdat->dobj_2247__DISCR_CLASS_SEQUENCE); else { MELTPREDEFIX(predefinited,DISCR_CLASS_SEQUENCE) = 1; fnotice(stderr, "MELT: predefined %s already defined <%s:%d>\n", "DISCR_CLASS_SEQUENCE", __FILE__, __LINE__); }; - MELT_LOCATION("warmelt-first.melt:1660:/ inipredef"); - /*inipredef dobj_2233__DISCR_METHOD_MAP*/ - if (!MELT_PREDEF(DISCR_METHOD_MAP)) MELT_STORE_PREDEF(DISCR_METHOD_MAP, (melt_ptr_t)&cdat->dobj_2233__DISCR_METHOD_MAP); + MELT_LOCATION("warmelt-first.melt:1667:/ inipredef"); + /*inipredef dobj_2251__DISCR_METHOD_MAP*/ + if (!MELT_PREDEF(DISCR_METHOD_MAP)) MELT_STORE_PREDEF(DISCR_METHOD_MAP, (melt_ptr_t)&cdat->dobj_2251__DISCR_METHOD_MAP); else { MELTPREDEFIX(predefinited,DISCR_METHOD_MAP) = 1; fnotice(stderr, "MELT: predefined %s already defined <%s:%d>\n", "DISCR_METHOD_MAP", __FILE__, __LINE__); }; - MELT_LOCATION("warmelt-first.melt:1671:/ inipredef"); - /*inipredef dobj_2237__DISCR_CHARACTER_INTEGER*/ - if (!MELT_PREDEF(DISCR_CHARACTER_INTEGER)) MELT_STORE_PREDEF(DISCR_CHARACTER_INTEGER, (melt_ptr_t)&cdat->dobj_2237__DISCR_CHARACTER_INTEGER); + MELT_LOCATION("warmelt-first.melt:1678:/ inipredef"); + /*inipredef dobj_2255__DISCR_CHARACTER_INTEGER*/ + if (!MELT_PREDEF(DISCR_CHARACTER_INTEGER)) MELT_STORE_PREDEF(DISCR_CHARACTER_INTEGER, (melt_ptr_t)&cdat->dobj_2255__DISCR_CHARACTER_INTEGER); else { MELTPREDEFIX(predefinited,DISCR_CHARACTER_INTEGER) = 1; fnotice(stderr, "MELT: predefined %s already defined <%s:%d>\n", "DISCR_CHARACTER_INTEGER", __FILE__, __LINE__); }; - MELT_LOCATION("warmelt-first.melt:1682:/ inipredef"); - /*inipredef dobj_2241__DISCR_MIXED_INTEGER*/ - if (!MELT_PREDEF(DISCR_MIXED_INTEGER)) MELT_STORE_PREDEF(DISCR_MIXED_INTEGER, (melt_ptr_t)&cdat->dobj_2241__DISCR_MIXED_INTEGER); + MELT_LOCATION("warmelt-first.melt:1689:/ inipredef"); + /*inipredef dobj_2259__DISCR_MIXED_INTEGER*/ + if (!MELT_PREDEF(DISCR_MIXED_INTEGER)) MELT_STORE_PREDEF(DISCR_MIXED_INTEGER, (melt_ptr_t)&cdat->dobj_2259__DISCR_MIXED_INTEGER); else { MELTPREDEFIX(predefinited,DISCR_MIXED_INTEGER) = 1; fnotice(stderr, "MELT: predefined %s already defined <%s:%d>\n", "DISCR_MIXED_INTEGER", __FILE__, __LINE__); }; - MELT_LOCATION("warmelt-first.melt:1692:/ inipredef"); - /*inipredef dobj_2245__DISCR_MIXED_BIGINT*/ - if (!MELT_PREDEF(DISCR_MIXED_BIGINT)) MELT_STORE_PREDEF(DISCR_MIXED_BIGINT, (melt_ptr_t)&cdat->dobj_2245__DISCR_MIXED_BIGINT); + MELT_LOCATION("warmelt-first.melt:1699:/ inipredef"); + /*inipredef dobj_2263__DISCR_MIXED_BIGINT*/ + if (!MELT_PREDEF(DISCR_MIXED_BIGINT)) MELT_STORE_PREDEF(DISCR_MIXED_BIGINT, (melt_ptr_t)&cdat->dobj_2263__DISCR_MIXED_BIGINT); else { MELTPREDEFIX(predefinited,DISCR_MIXED_BIGINT) = 1; fnotice(stderr, "MELT: predefined %s already defined <%s:%d>\n", "DISCR_MIXED_BIGINT", __FILE__, __LINE__); }; - MELT_LOCATION("warmelt-first.melt:1703:/ inipredef"); - /*inipredef dobj_2249__DISCR_MIXED_LOCATION*/ - if (!MELT_PREDEF(DISCR_MIXED_LOCATION)) MELT_STORE_PREDEF(DISCR_MIXED_LOCATION, (melt_ptr_t)&cdat->dobj_2249__DISCR_MIXED_LOCATION); + MELT_LOCATION("warmelt-first.melt:1710:/ inipredef"); + /*inipredef dobj_2267__DISCR_MIXED_LOCATION*/ + if (!MELT_PREDEF(DISCR_MIXED_LOCATION)) MELT_STORE_PREDEF(DISCR_MIXED_LOCATION, (melt_ptr_t)&cdat->dobj_2267__DISCR_MIXED_LOCATION); else { MELTPREDEFIX(predefinited,DISCR_MIXED_LOCATION) = 1; fnotice(stderr, "MELT: predefined %s already defined <%s:%d>\n", "DISCR_MIXED_LOCATION", __FILE__, __LINE__); }; - MELT_LOCATION("warmelt-first.melt:1713:/ inipredef"); - /*inipredef dobj_2253__DISCR_CLOSURE*/ - if (!MELT_PREDEF(DISCR_CLOSURE)) MELT_STORE_PREDEF(DISCR_CLOSURE, (melt_ptr_t)&cdat->dobj_2253__DISCR_CLOSURE); + MELT_LOCATION("warmelt-first.melt:1720:/ inipredef"); + /*inipredef dobj_2271__DISCR_CLOSURE*/ + if (!MELT_PREDEF(DISCR_CLOSURE)) MELT_STORE_PREDEF(DISCR_CLOSURE, (melt_ptr_t)&cdat->dobj_2271__DISCR_CLOSURE); else { MELTPREDEFIX(predefinited,DISCR_CLOSURE) = 1; fnotice(stderr, "MELT: predefined %s already defined <%s:%d>\n", "DISCR_CLOSURE", __FILE__, __LINE__); }; - MELT_LOCATION("warmelt-first.melt:1722:/ inipredef"); - /*inipredef dobj_2257__DISCR_ROUTINE*/ - if (!MELT_PREDEF(DISCR_ROUTINE)) MELT_STORE_PREDEF(DISCR_ROUTINE, (melt_ptr_t)&cdat->dobj_2257__DISCR_ROUTINE); + MELT_LOCATION("warmelt-first.melt:1729:/ inipredef"); + /*inipredef dobj_2275__DISCR_ROUTINE*/ + if (!MELT_PREDEF(DISCR_ROUTINE)) MELT_STORE_PREDEF(DISCR_ROUTINE, (melt_ptr_t)&cdat->dobj_2275__DISCR_ROUTINE); else { MELTPREDEFIX(predefinited,DISCR_ROUTINE) = 1; fnotice(stderr, "MELT: predefined %s already defined <%s:%d>\n", "DISCR_ROUTINE", __FILE__, __LINE__); }; - MELT_LOCATION("warmelt-first.melt:1757:/ inipredef"); - /*inipredef dobj_2263__CTYPE_VALUE*/ - if (!MELT_PREDEF(CTYPE_VALUE)) MELT_STORE_PREDEF(CTYPE_VALUE, (melt_ptr_t)&cdat->dobj_2263__CTYPE_VALUE); + MELT_LOCATION("warmelt-first.melt:1764:/ inipredef"); + /*inipredef dobj_2281__CTYPE_VALUE*/ + if (!MELT_PREDEF(CTYPE_VALUE)) MELT_STORE_PREDEF(CTYPE_VALUE, (melt_ptr_t)&cdat->dobj_2281__CTYPE_VALUE); else { MELTPREDEFIX(predefinited,CTYPE_VALUE) = 1; fnotice(stderr, "MELT: predefined %s already defined <%s:%d>\n", "CTYPE_VALUE", __FILE__, __LINE__); }; - MELT_LOCATION("warmelt-first.melt:1773:/ inipredef"); - /*inipredef dobj_2275__CTYPE_LONG*/ - if (!MELT_PREDEF(CTYPE_LONG)) MELT_STORE_PREDEF(CTYPE_LONG, (melt_ptr_t)&cdat->dobj_2275__CTYPE_LONG); + MELT_LOCATION("warmelt-first.melt:1780:/ inipredef"); + /*inipredef dobj_2293__CTYPE_LONG*/ + if (!MELT_PREDEF(CTYPE_LONG)) MELT_STORE_PREDEF(CTYPE_LONG, (melt_ptr_t)&cdat->dobj_2293__CTYPE_LONG); else { MELTPREDEFIX(predefinited,CTYPE_LONG) = 1; fnotice(stderr, "MELT: predefined %s already defined <%s:%d>\n", "CTYPE_LONG", __FILE__, __LINE__); }; - MELT_LOCATION("warmelt-first.melt:1787:/ inipredef"); - /*inipredef dobj_2286__CTYPE_TREE*/ - if (!MELT_PREDEF(CTYPE_TREE)) MELT_STORE_PREDEF(CTYPE_TREE, (melt_ptr_t)&cdat->dobj_2286__CTYPE_TREE); + MELT_LOCATION("warmelt-first.melt:1794:/ inipredef"); + /*inipredef dobj_2304__CTYPE_TREE*/ + if (!MELT_PREDEF(CTYPE_TREE)) MELT_STORE_PREDEF(CTYPE_TREE, (melt_ptr_t)&cdat->dobj_2304__CTYPE_TREE); else { MELTPREDEFIX(predefinited,CTYPE_TREE) = 1; fnotice(stderr, "MELT: predefined %s already defined <%s:%d>\n", "CTYPE_TREE", __FILE__, __LINE__); }; - MELT_LOCATION("warmelt-first.melt:1802:/ inipredef"); - /*inipredef dobj_2298__CTYPE_GIMPLE*/ - if (!MELT_PREDEF(CTYPE_GIMPLE)) MELT_STORE_PREDEF(CTYPE_GIMPLE, (melt_ptr_t)&cdat->dobj_2298__CTYPE_GIMPLE); + MELT_LOCATION("warmelt-first.melt:1809:/ inipredef"); + /*inipredef dobj_2316__CTYPE_GIMPLE*/ + if (!MELT_PREDEF(CTYPE_GIMPLE)) MELT_STORE_PREDEF(CTYPE_GIMPLE, (melt_ptr_t)&cdat->dobj_2316__CTYPE_GIMPLE); else { MELTPREDEFIX(predefinited,CTYPE_GIMPLE) = 1; fnotice(stderr, "MELT: predefined %s already defined <%s:%d>\n", "CTYPE_GIMPLE", __FILE__, __LINE__); }; - MELT_LOCATION("warmelt-first.melt:1817:/ inipredef"); - /*inipredef dobj_2310__CTYPE_GIMPLE_SEQ*/ - if (!MELT_PREDEF(CTYPE_GIMPLE_SEQ)) MELT_STORE_PREDEF(CTYPE_GIMPLE_SEQ, (melt_ptr_t)&cdat->dobj_2310__CTYPE_GIMPLE_SEQ); + MELT_LOCATION("warmelt-first.melt:1824:/ inipredef"); + /*inipredef dobj_2328__CTYPE_GIMPLE_SEQ*/ + if (!MELT_PREDEF(CTYPE_GIMPLE_SEQ)) MELT_STORE_PREDEF(CTYPE_GIMPLE_SEQ, (melt_ptr_t)&cdat->dobj_2328__CTYPE_GIMPLE_SEQ); else { MELTPREDEFIX(predefinited,CTYPE_GIMPLE_SEQ) = 1; fnotice(stderr, "MELT: predefined %s already defined <%s:%d>\n", "CTYPE_GIMPLE_SEQ", __FILE__, __LINE__); }; - MELT_LOCATION("warmelt-first.melt:1834:/ inipredef"); - /*inipredef dobj_2322__CTYPE_BASIC_BLOCK*/ - if (!MELT_PREDEF(CTYPE_BASIC_BLOCK)) MELT_STORE_PREDEF(CTYPE_BASIC_BLOCK, (melt_ptr_t)&cdat->dobj_2322__CTYPE_BASIC_BLOCK); + MELT_LOCATION("warmelt-first.melt:1841:/ inipredef"); + /*inipredef dobj_2340__CTYPE_BASIC_BLOCK*/ + if (!MELT_PREDEF(CTYPE_BASIC_BLOCK)) MELT_STORE_PREDEF(CTYPE_BASIC_BLOCK, (melt_ptr_t)&cdat->dobj_2340__CTYPE_BASIC_BLOCK); else { MELTPREDEFIX(predefinited,CTYPE_BASIC_BLOCK) = 1; fnotice(stderr, "MELT: predefined %s already defined <%s:%d>\n", "CTYPE_BASIC_BLOCK", __FILE__, __LINE__); }; - MELT_LOCATION("warmelt-first.melt:1851:/ inipredef"); - /*inipredef dobj_2334__CTYPE_EDGE*/ - if (!MELT_PREDEF(CTYPE_EDGE)) MELT_STORE_PREDEF(CTYPE_EDGE, (melt_ptr_t)&cdat->dobj_2334__CTYPE_EDGE); + MELT_LOCATION("warmelt-first.melt:1858:/ inipredef"); + /*inipredef dobj_2352__CTYPE_EDGE*/ + if (!MELT_PREDEF(CTYPE_EDGE)) MELT_STORE_PREDEF(CTYPE_EDGE, (melt_ptr_t)&cdat->dobj_2352__CTYPE_EDGE); else { MELTPREDEFIX(predefinited,CTYPE_EDGE) = 1; fnotice(stderr, "MELT: predefined %s already defined <%s:%d>\n", "CTYPE_EDGE", __FILE__, __LINE__); }; - MELT_LOCATION("warmelt-first.melt:1867:/ inipredef"); - /*inipredef dobj_2346__CTYPE_PPL_COEFFICIENT*/ - if (!MELT_PREDEF(CTYPE_PPL_COEFFICIENT)) MELT_STORE_PREDEF(CTYPE_PPL_COEFFICIENT, (melt_ptr_t)&cdat->dobj_2346__CTYPE_PPL_COEFFICIENT); + MELT_LOCATION("warmelt-first.melt:1874:/ inipredef"); + /*inipredef dobj_2364__CTYPE_PPL_COEFFICIENT*/ + if (!MELT_PREDEF(CTYPE_PPL_COEFFICIENT)) MELT_STORE_PREDEF(CTYPE_PPL_COEFFICIENT, (melt_ptr_t)&cdat->dobj_2364__CTYPE_PPL_COEFFICIENT); else { MELTPREDEFIX(predefinited,CTYPE_PPL_COEFFICIENT) = 1; fnotice(stderr, "MELT: predefined %s already defined <%s:%d>\n", "CTYPE_PPL_COEFFICIENT", __FILE__, __LINE__); }; - MELT_LOCATION("warmelt-first.melt:1882:/ inipredef"); - /*inipredef dobj_2357__CTYPE_PPL_LINEAR_EXPRESSION*/ - if (!MELT_PREDEF(CTYPE_PPL_LINEAR_EXPRESSION)) MELT_STORE_PREDEF(CTYPE_PPL_LINEAR_EXPRESSION, (melt_ptr_t)&cdat->dobj_2357__CTYPE_PPL_LINEAR_EXPRESSION); + MELT_LOCATION("warmelt-first.melt:1889:/ inipredef"); + /*inipredef dobj_2375__CTYPE_PPL_LINEAR_EXPRESSION*/ + if (!MELT_PREDEF(CTYPE_PPL_LINEAR_EXPRESSION)) MELT_STORE_PREDEF(CTYPE_PPL_LINEAR_EXPRESSION, (melt_ptr_t)&cdat->dobj_2375__CTYPE_PPL_LINEAR_EXPRESSION); else { MELTPREDEFIX(predefinited,CTYPE_PPL_LINEAR_EXPRESSION) = 1; fnotice(stderr, "MELT: predefined %s already defined <%s:%d>\n", "CTYPE_PPL_LINEAR_EXPRESSION", __FILE__, __LINE__); }; - MELT_LOCATION("warmelt-first.melt:1897:/ inipredef"); - /*inipredef dobj_2368__CTYPE_PPL_CONSTRAINT*/ - if (!MELT_PREDEF(CTYPE_PPL_CONSTRAINT)) MELT_STORE_PREDEF(CTYPE_PPL_CONSTRAINT, (melt_ptr_t)&cdat->dobj_2368__CTYPE_PPL_CONSTRAINT); + MELT_LOCATION("warmelt-first.melt:1904:/ inipredef"); + /*inipredef dobj_2386__CTYPE_PPL_CONSTRAINT*/ + if (!MELT_PREDEF(CTYPE_PPL_CONSTRAINT)) MELT_STORE_PREDEF(CTYPE_PPL_CONSTRAINT, (melt_ptr_t)&cdat->dobj_2386__CTYPE_PPL_CONSTRAINT); else { MELTPREDEFIX(predefinited,CTYPE_PPL_CONSTRAINT) = 1; fnotice(stderr, "MELT: predefined %s already defined <%s:%d>\n", "CTYPE_PPL_CONSTRAINT", __FILE__, __LINE__); }; - MELT_LOCATION("warmelt-first.melt:1912:/ inipredef"); - /*inipredef dobj_2379__CTYPE_PPL_CONSTRAINT_SYSTEM*/ - if (!MELT_PREDEF(CTYPE_PPL_CONSTRAINT_SYSTEM)) MELT_STORE_PREDEF(CTYPE_PPL_CONSTRAINT_SYSTEM, (melt_ptr_t)&cdat->dobj_2379__CTYPE_PPL_CONSTRAINT_SYSTEM); + MELT_LOCATION("warmelt-first.melt:1919:/ inipredef"); + /*inipredef dobj_2397__CTYPE_PPL_CONSTRAINT_SYSTEM*/ + if (!MELT_PREDEF(CTYPE_PPL_CONSTRAINT_SYSTEM)) MELT_STORE_PREDEF(CTYPE_PPL_CONSTRAINT_SYSTEM, (melt_ptr_t)&cdat->dobj_2397__CTYPE_PPL_CONSTRAINT_SYSTEM); else { MELTPREDEFIX(predefinited,CTYPE_PPL_CONSTRAINT_SYSTEM) = 1; fnotice(stderr, "MELT: predefined %s already defined <%s:%d>\n", "CTYPE_PPL_CONSTRAINT_SYSTEM", __FILE__, __LINE__); }; - MELT_LOCATION("warmelt-first.melt:1927:/ inipredef"); - /*inipredef dobj_2390__CTYPE_PPL_POLYHEDRON*/ - if (!MELT_PREDEF(CTYPE_PPL_POLYHEDRON)) MELT_STORE_PREDEF(CTYPE_PPL_POLYHEDRON, (melt_ptr_t)&cdat->dobj_2390__CTYPE_PPL_POLYHEDRON); + MELT_LOCATION("warmelt-first.melt:1934:/ inipredef"); + /*inipredef dobj_2408__CTYPE_PPL_POLYHEDRON*/ + if (!MELT_PREDEF(CTYPE_PPL_POLYHEDRON)) MELT_STORE_PREDEF(CTYPE_PPL_POLYHEDRON, (melt_ptr_t)&cdat->dobj_2408__CTYPE_PPL_POLYHEDRON); else { MELTPREDEFIX(predefinited,CTYPE_PPL_POLYHEDRON) = 1; fnotice(stderr, "MELT: predefined %s already defined <%s:%d>\n", "CTYPE_PPL_POLYHEDRON", __FILE__, __LINE__); }; - MELT_LOCATION("warmelt-first.melt:1943:/ inipredef"); - /*inipredef dobj_2401__CTYPE_VOID*/ - if (!MELT_PREDEF(CTYPE_VOID)) MELT_STORE_PREDEF(CTYPE_VOID, (melt_ptr_t)&cdat->dobj_2401__CTYPE_VOID); + MELT_LOCATION("warmelt-first.melt:1950:/ inipredef"); + /*inipredef dobj_2419__CTYPE_VOID*/ + if (!MELT_PREDEF(CTYPE_VOID)) MELT_STORE_PREDEF(CTYPE_VOID, (melt_ptr_t)&cdat->dobj_2419__CTYPE_VOID); else { MELTPREDEFIX(predefinited,CTYPE_VOID) = 1; fnotice(stderr, "MELT: predefined %s already defined <%s:%d>\n", "CTYPE_VOID", __FILE__, __LINE__); }; - MELT_LOCATION("warmelt-first.melt:1955:/ inipredef"); - /*inipredef dobj_2408__CTYPE_CSTRING*/ - if (!MELT_PREDEF(CTYPE_CSTRING)) MELT_STORE_PREDEF(CTYPE_CSTRING, (melt_ptr_t)&cdat->dobj_2408__CTYPE_CSTRING); + MELT_LOCATION("warmelt-first.melt:1962:/ inipredef"); + /*inipredef dobj_2426__CTYPE_CSTRING*/ + if (!MELT_PREDEF(CTYPE_CSTRING)) MELT_STORE_PREDEF(CTYPE_CSTRING, (melt_ptr_t)&cdat->dobj_2426__CTYPE_CSTRING); else { MELTPREDEFIX(predefinited,CTYPE_CSTRING) = 1; fnotice(stderr, "MELT: predefined %s already defined <%s:%d>\n", "CTYPE_CSTRING", __FILE__, __LINE__); }; - MELT_LOCATION("warmelt-first.melt:2572:/ inipredef"); - /*inipredef dobj_2535__INITIAL_SYSTEM_DATA*/ - if (!MELT_PREDEF(INITIAL_SYSTEM_DATA)) MELT_STORE_PREDEF(INITIAL_SYSTEM_DATA, (melt_ptr_t)&cdat->dobj_2535__INITIAL_SYSTEM_DATA); + MELT_LOCATION("warmelt-first.melt:2579:/ inipredef"); + /*inipredef dobj_2553__INITIAL_SYSTEM_DATA*/ + if (!MELT_PREDEF(INITIAL_SYSTEM_DATA)) MELT_STORE_PREDEF(INITIAL_SYSTEM_DATA, (melt_ptr_t)&cdat->dobj_2553__INITIAL_SYSTEM_DATA); else { MELTPREDEFIX(predefinited,INITIAL_SYSTEM_DATA) = 1; fnotice(stderr, "MELT: predefined %s already defined <%s:%d>\n", "INITIAL_SYSTEM_DATA", __FILE__, __LINE__); @@ -10449,7 +10467,7 @@ if (((void*)(MELT_PREDEF(CLASS_ROOT))) != (melt_ptr_t)&cdat->dobj_3__CLASS_ROOT) if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_3__CLASS_ROOT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_3__CLASS_ROOT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_3__CLASS_ROOT.obj_num = OBMAG_OBJECT; - cdat->dobj_3__CLASS_ROOT.obj_hash = 831968572; + cdat->dobj_3__CLASS_ROOT.obj_hash = 669107646; cdat->dobj_3__CLASS_ROOT.obj_len = 8; /*inistring dstr_4__CLASS_ROOT*/ @@ -10488,7 +10506,7 @@ if (((void*)(MELT_PREDEF(CLASS_PROPED))) != (melt_ptr_t)&cdat->dobj_9__CLASS_PRO if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_9__CLASS_PROPED", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_9__CLASS_PROPED.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_9__CLASS_PROPED.obj_num = OBMAG_OBJECT; - cdat->dobj_9__CLASS_PROPED.obj_hash = 649218004; + cdat->dobj_9__CLASS_PROPED.obj_hash = 334909866; cdat->dobj_9__CLASS_PROPED.obj_len = 8; /*inistring dstr_10__CLASS_PROPED*/ @@ -10524,7 +10542,7 @@ if (((void*)(MELT_PREDEF(CLASS_PROPED))) != (melt_ptr_t)&cdat->dobj_9__CLASS_PRO if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_15__PROP_TABLE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_15__PROP_TABLE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_15__PROP_TABLE.obj_num = 0; - cdat->dobj_15__PROP_TABLE.obj_hash = 330596545; + cdat->dobj_15__PROP_TABLE.obj_hash = 938009039; cdat->dobj_15__PROP_TABLE.obj_len = 4; /*inistring dstr_16__PROP_TABLE*/ @@ -10555,7 +10573,7 @@ if (((void*)(MELT_PREDEF(CLASS_CONTAINER))) != (melt_ptr_t)&cdat->dobj_19__CLASS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_19__CLASS_CONTAINER", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_19__CLASS_CONTAINER.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_19__CLASS_CONTAINER.obj_num = OBMAG_OBJECT; - cdat->dobj_19__CLASS_CONTAINER.obj_hash = 980372008; + cdat->dobj_19__CLASS_CONTAINER.obj_hash = 165816281; cdat->dobj_19__CLASS_CONTAINER.obj_len = 8; /*inistring dstr_20__CLASS_CONTAINER*/ @@ -10591,7 +10609,7 @@ if (((void*)(MELT_PREDEF(CLASS_CONTAINER))) != (melt_ptr_t)&cdat->dobj_19__CLASS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_25__CONTAINER_VALUE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_25__CONTAINER_VALUE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_25__CONTAINER_VALUE.obj_num = 0; - cdat->dobj_25__CONTAINER_VALUE.obj_hash = 35338281; + cdat->dobj_25__CONTAINER_VALUE.obj_hash = 534105568; cdat->dobj_25__CONTAINER_VALUE.obj_len = 4; /*inistring dstr_26__CONTAINER_VALUE*/ @@ -10622,7 +10640,7 @@ if (((void*)(MELT_PREDEF(CLASS_NAMED))) != (melt_ptr_t)&cdat->dobj_29__CLASS_NAM if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_29__CLASS_NAMED", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_29__CLASS_NAMED.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_29__CLASS_NAMED.obj_num = OBMAG_OBJECT; - cdat->dobj_29__CLASS_NAMED.obj_hash = 776044679; + cdat->dobj_29__CLASS_NAMED.obj_hash = 939947323; cdat->dobj_29__CLASS_NAMED.obj_len = 8; /*inistring dstr_30__CLASS_NAMED*/ @@ -10658,7 +10676,7 @@ if (((void*)(MELT_PREDEF(CLASS_NAMED))) != (melt_ptr_t)&cdat->dobj_29__CLASS_NAM if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_35__NAMED_NAME", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_35__NAMED_NAME.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_35__NAMED_NAME.obj_num = 1; - cdat->dobj_35__NAMED_NAME.obj_hash = 525438401; + cdat->dobj_35__NAMED_NAME.obj_hash = 140361038; cdat->dobj_35__NAMED_NAME.obj_len = 4; /*inistring dstr_36__NAMED_NAME*/ @@ -10689,7 +10707,7 @@ if (((void*)(MELT_PREDEF(CLASS_DISCRIMINANT))) != (melt_ptr_t)&cdat->dobj_39__CL if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_39__CLASS_DISCRIMINANT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_39__CLASS_DISCRIMINANT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_39__CLASS_DISCRIMINANT.obj_num = OBMAG_OBJECT; - cdat->dobj_39__CLASS_DISCRIMINANT.obj_hash = 722201342; + cdat->dobj_39__CLASS_DISCRIMINANT.obj_hash = 636705812; cdat->dobj_39__CLASS_DISCRIMINANT.obj_len = 8; /*inistring dstr_40__CLASS_DISCRIMINA*/ @@ -10725,7 +10743,7 @@ if (((void*)(MELT_PREDEF(CLASS_DISCRIMINANT))) != (melt_ptr_t)&cdat->dobj_39__CL if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_45__DISC_METHODICT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_45__DISC_METHODICT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_45__DISC_METHODICT.obj_num = 2; - cdat->dobj_45__DISC_METHODICT.obj_hash = 115710615; + cdat->dobj_45__DISC_METHODICT.obj_hash = 321227484; cdat->dobj_45__DISC_METHODICT.obj_len = 4; /*inistring dstr_46__DISC_METHODICT*/ @@ -10753,7 +10771,7 @@ if (((void*)(MELT_PREDEF(CLASS_DISCRIMINANT))) != (melt_ptr_t)&cdat->dobj_39__CL if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_49__DISC_SENDER", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_49__DISC_SENDER.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_49__DISC_SENDER.obj_num = 3; - cdat->dobj_49__DISC_SENDER.obj_hash = 797217206; + cdat->dobj_49__DISC_SENDER.obj_hash = 53200582; cdat->dobj_49__DISC_SENDER.obj_len = 4; /*inistring dstr_50__DISC_SENDER*/ @@ -10781,7 +10799,7 @@ if (((void*)(MELT_PREDEF(CLASS_DISCRIMINANT))) != (melt_ptr_t)&cdat->dobj_39__CL if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_53__DISC_SUPER", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_53__DISC_SUPER.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_53__DISC_SUPER.obj_num = 4; - cdat->dobj_53__DISC_SUPER.obj_hash = 720037210; + cdat->dobj_53__DISC_SUPER.obj_hash = 214682566; cdat->dobj_53__DISC_SUPER.obj_len = 4; /*inistring dstr_54__DISC_SUPER*/ @@ -10812,7 +10830,7 @@ if (((void*)(MELT_PREDEF(CLASS_CLASS))) != (melt_ptr_t)&cdat->dobj_57__CLASS_CLA if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_57__CLASS_CLASS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_57__CLASS_CLASS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_57__CLASS_CLASS.obj_num = OBMAG_OBJECT; - cdat->dobj_57__CLASS_CLASS.obj_hash = 412506299; + cdat->dobj_57__CLASS_CLASS.obj_hash = 57551856; cdat->dobj_57__CLASS_CLASS.obj_len = 8; /*inistring dstr_58__CLASS_CLASS*/ @@ -10848,7 +10866,7 @@ if (((void*)(MELT_PREDEF(CLASS_CLASS))) != (melt_ptr_t)&cdat->dobj_57__CLASS_CLA if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_63__CLASS_ANCESTORS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_63__CLASS_ANCESTORS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_63__CLASS_ANCESTORS.obj_num = 5; - cdat->dobj_63__CLASS_ANCESTORS.obj_hash = 723334037; + cdat->dobj_63__CLASS_ANCESTORS.obj_hash = 240717848; cdat->dobj_63__CLASS_ANCESTORS.obj_len = 4; /*inistring dstr_64__CLASS_ANCESTORS*/ @@ -10876,7 +10894,7 @@ if (((void*)(MELT_PREDEF(CLASS_CLASS))) != (melt_ptr_t)&cdat->dobj_57__CLASS_CLA if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_67__CLASS_FIELDS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_67__CLASS_FIELDS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_67__CLASS_FIELDS.obj_num = 6; - cdat->dobj_67__CLASS_FIELDS.obj_hash = 843709945; + cdat->dobj_67__CLASS_FIELDS.obj_hash = 1051444298; cdat->dobj_67__CLASS_FIELDS.obj_len = 4; /*inistring dstr_68__CLASS_FIELDS*/ @@ -10904,7 +10922,7 @@ if (((void*)(MELT_PREDEF(CLASS_CLASS))) != (melt_ptr_t)&cdat->dobj_57__CLASS_CLA if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_71__CLASS_DATA", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_71__CLASS_DATA.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_71__CLASS_DATA.obj_num = 7; - cdat->dobj_71__CLASS_DATA.obj_hash = 514729184; + cdat->dobj_71__CLASS_DATA.obj_hash = 657844556; cdat->dobj_71__CLASS_DATA.obj_len = 4; /*inistring dstr_72__CLASS_DATA*/ @@ -10935,7 +10953,7 @@ if (((void*)(MELT_PREDEF(CLASS_FIELD))) != (melt_ptr_t)&cdat->dobj_75__CLASS_FIE if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_75__CLASS_FIELD", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_75__CLASS_FIELD.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_75__CLASS_FIELD.obj_num = OBMAG_OBJECT; - cdat->dobj_75__CLASS_FIELD.obj_hash = 316832274; + cdat->dobj_75__CLASS_FIELD.obj_hash = 1034338177; cdat->dobj_75__CLASS_FIELD.obj_len = 8; /*inistring dstr_76__CLASS_FIELD*/ @@ -10971,7 +10989,7 @@ if (((void*)(MELT_PREDEF(CLASS_FIELD))) != (melt_ptr_t)&cdat->dobj_75__CLASS_FIE if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_81__FLD_OWNCLASS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_81__FLD_OWNCLASS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_81__FLD_OWNCLASS.obj_num = 2; - cdat->dobj_81__FLD_OWNCLASS.obj_hash = 954152963; + cdat->dobj_81__FLD_OWNCLASS.obj_hash = 563157272; cdat->dobj_81__FLD_OWNCLASS.obj_len = 4; /*inistring dstr_82__FLD_OWNCLASS*/ @@ -10999,7 +11017,7 @@ if (((void*)(MELT_PREDEF(CLASS_FIELD))) != (melt_ptr_t)&cdat->dobj_75__CLASS_FIE if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_85__FLD_DATA", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_85__FLD_DATA.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_85__FLD_DATA.obj_num = 3; - cdat->dobj_85__FLD_DATA.obj_hash = 562022168; + cdat->dobj_85__FLD_DATA.obj_hash = 193781404; cdat->dobj_85__FLD_DATA.obj_len = 4; /*inistring dstr_86__FLD_DATA*/ @@ -11030,7 +11048,7 @@ if (((void*)(MELT_PREDEF(CLASS_PRIMITIVE))) != (melt_ptr_t)&cdat->dobj_89__CLASS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_89__CLASS_PRIMITIVE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_89__CLASS_PRIMITIVE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_89__CLASS_PRIMITIVE.obj_num = OBMAG_OBJECT; - cdat->dobj_89__CLASS_PRIMITIVE.obj_hash = 985814284; + cdat->dobj_89__CLASS_PRIMITIVE.obj_hash = 483694794; cdat->dobj_89__CLASS_PRIMITIVE.obj_len = 8; /*inistring dstr_90__CLASS_PRIMITIVE*/ @@ -11066,7 +11084,7 @@ if (((void*)(MELT_PREDEF(CLASS_PRIMITIVE))) != (melt_ptr_t)&cdat->dobj_89__CLASS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_95__PRIM_FORMALS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_95__PRIM_FORMALS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_95__PRIM_FORMALS.obj_num = 2; - cdat->dobj_95__PRIM_FORMALS.obj_hash = 611627323; + cdat->dobj_95__PRIM_FORMALS.obj_hash = 11704829; cdat->dobj_95__PRIM_FORMALS.obj_len = 4; /*inistring dstr_96__PRIM_FORMALS*/ @@ -11094,7 +11112,7 @@ if (((void*)(MELT_PREDEF(CLASS_PRIMITIVE))) != (melt_ptr_t)&cdat->dobj_89__CLASS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_99__PRIM_TYPE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_99__PRIM_TYPE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_99__PRIM_TYPE.obj_num = 3; - cdat->dobj_99__PRIM_TYPE.obj_hash = 673985790; + cdat->dobj_99__PRIM_TYPE.obj_hash = 215277345; cdat->dobj_99__PRIM_TYPE.obj_len = 4; /*inistring dstr_100__PRIM_TYPE*/ @@ -11122,7 +11140,7 @@ if (((void*)(MELT_PREDEF(CLASS_PRIMITIVE))) != (melt_ptr_t)&cdat->dobj_89__CLASS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_103__PRIM_EXPANSION", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_103__PRIM_EXPANSION.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_103__PRIM_EXPANSION.obj_num = 4; - cdat->dobj_103__PRIM_EXPANSION.obj_hash = 368390290; + cdat->dobj_103__PRIM_EXPANSION.obj_hash = 475521781; cdat->dobj_103__PRIM_EXPANSION.obj_len = 4; /*inistring dstr_104__PRIM_EXPANSION*/ @@ -11153,7 +11171,7 @@ if (((void*)(MELT_PREDEF(CLASS_CITERATOR))) != (melt_ptr_t)&cdat->dobj_107__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_107__CLASS_CITERATOR", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_107__CLASS_CITERATOR.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_107__CLASS_CITERATOR.obj_num = OBMAG_OBJECT; - cdat->dobj_107__CLASS_CITERATOR.obj_hash = 450372035; + cdat->dobj_107__CLASS_CITERATOR.obj_hash = 1001109217; cdat->dobj_107__CLASS_CITERATOR.obj_len = 8; /*inistring dstr_108__CLASS_CITERATOR*/ @@ -11189,7 +11207,7 @@ if (((void*)(MELT_PREDEF(CLASS_CITERATOR))) != (melt_ptr_t)&cdat->dobj_107__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_113__CITER_START_FORMALS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_113__CITER_START_FORMALS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_113__CITER_START_FORMALS.obj_num = 2; - cdat->dobj_113__CITER_START_FORMALS.obj_hash = 427217085; + cdat->dobj_113__CITER_START_FORMALS.obj_hash = 423384888; cdat->dobj_113__CITER_START_FORMALS.obj_len = 4; /*inistring dstr_114__CITER_START_FORM*/ @@ -11217,7 +11235,7 @@ if (((void*)(MELT_PREDEF(CLASS_CITERATOR))) != (melt_ptr_t)&cdat->dobj_107__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_117__CITER_STATE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_117__CITER_STATE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_117__CITER_STATE.obj_num = 3; - cdat->dobj_117__CITER_STATE.obj_hash = 649793501; + cdat->dobj_117__CITER_STATE.obj_hash = 607614130; cdat->dobj_117__CITER_STATE.obj_len = 4; /*inistring dstr_118__CITER_STATE*/ @@ -11245,7 +11263,7 @@ if (((void*)(MELT_PREDEF(CLASS_CITERATOR))) != (melt_ptr_t)&cdat->dobj_107__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_121__CITER_BODY_FORMALS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_121__CITER_BODY_FORMALS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_121__CITER_BODY_FORMALS.obj_num = 4; - cdat->dobj_121__CITER_BODY_FORMALS.obj_hash = 347599564; + cdat->dobj_121__CITER_BODY_FORMALS.obj_hash = 568587603; cdat->dobj_121__CITER_BODY_FORMALS.obj_len = 4; /*inistring dstr_122__CITER_BODY_FORMA*/ @@ -11273,7 +11291,7 @@ if (((void*)(MELT_PREDEF(CLASS_CITERATOR))) != (melt_ptr_t)&cdat->dobj_107__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_125__CITER_EXPBEFORE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_125__CITER_EXPBEFORE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_125__CITER_EXPBEFORE.obj_num = 5; - cdat->dobj_125__CITER_EXPBEFORE.obj_hash = 764389196; + cdat->dobj_125__CITER_EXPBEFORE.obj_hash = 488381109; cdat->dobj_125__CITER_EXPBEFORE.obj_len = 4; /*inistring dstr_126__CITER_EXPBEFORE*/ @@ -11301,7 +11319,7 @@ if (((void*)(MELT_PREDEF(CLASS_CITERATOR))) != (melt_ptr_t)&cdat->dobj_107__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_129__CITER_EXPAFTER", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_129__CITER_EXPAFTER.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_129__CITER_EXPAFTER.obj_num = 6; - cdat->dobj_129__CITER_EXPAFTER.obj_hash = 428585480; + cdat->dobj_129__CITER_EXPAFTER.obj_hash = 405700848; cdat->dobj_129__CITER_EXPAFTER.obj_len = 4; /*inistring dstr_130__CITER_EXPAFTER*/ @@ -11329,7 +11347,7 @@ if (((void*)(MELT_PREDEF(CLASS_CITERATOR))) != (melt_ptr_t)&cdat->dobj_107__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_133__CLASS_ANY_MATCHER", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_133__CLASS_ANY_MATCHER.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_133__CLASS_ANY_MATCHER.obj_num = OBMAG_OBJECT; - cdat->dobj_133__CLASS_ANY_MATCHER.obj_hash = 568541201; + cdat->dobj_133__CLASS_ANY_MATCHER.obj_hash = 984885086; cdat->dobj_133__CLASS_ANY_MATCHER.obj_len = 8; /*inistring dstr_134__CLASS_ANY_MATCHE*/ @@ -11365,7 +11383,7 @@ if (((void*)(MELT_PREDEF(CLASS_CITERATOR))) != (melt_ptr_t)&cdat->dobj_107__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_139__AMATCH_IN", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_139__AMATCH_IN.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_139__AMATCH_IN.obj_num = 2; - cdat->dobj_139__AMATCH_IN.obj_hash = 894792936; + cdat->dobj_139__AMATCH_IN.obj_hash = 125366966; cdat->dobj_139__AMATCH_IN.obj_len = 4; /*inistring dstr_140__AMATCH_IN*/ @@ -11393,7 +11411,7 @@ if (((void*)(MELT_PREDEF(CLASS_CITERATOR))) != (melt_ptr_t)&cdat->dobj_107__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_143__AMATCH_MATCHBIND", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_143__AMATCH_MATCHBIND.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_143__AMATCH_MATCHBIND.obj_num = 3; - cdat->dobj_143__AMATCH_MATCHBIND.obj_hash = 88351300; + cdat->dobj_143__AMATCH_MATCHBIND.obj_hash = 504952490; cdat->dobj_143__AMATCH_MATCHBIND.obj_len = 4; /*inistring dstr_144__AMATCH_MATCHBIND*/ @@ -11421,7 +11439,7 @@ if (((void*)(MELT_PREDEF(CLASS_CITERATOR))) != (melt_ptr_t)&cdat->dobj_107__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_147__AMATCH_OUT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_147__AMATCH_OUT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_147__AMATCH_OUT.obj_num = 4; - cdat->dobj_147__AMATCH_OUT.obj_hash = 165673155; + cdat->dobj_147__AMATCH_OUT.obj_hash = 401566999; cdat->dobj_147__AMATCH_OUT.obj_len = 4; /*inistring dstr_148__AMATCH_OUT*/ @@ -11452,7 +11470,7 @@ if (((void*)(MELT_PREDEF(CLASS_CMATCHER))) != (melt_ptr_t)&cdat->dobj_151__CLASS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_151__CLASS_CMATCHER", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_151__CLASS_CMATCHER.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_151__CLASS_CMATCHER.obj_num = OBMAG_OBJECT; - cdat->dobj_151__CLASS_CMATCHER.obj_hash = 912111759; + cdat->dobj_151__CLASS_CMATCHER.obj_hash = 999535101; cdat->dobj_151__CLASS_CMATCHER.obj_len = 8; /*inistring dstr_152__CLASS_CMATCHER*/ @@ -11488,7 +11506,7 @@ if (((void*)(MELT_PREDEF(CLASS_CMATCHER))) != (melt_ptr_t)&cdat->dobj_151__CLASS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_157__CMATCH_STATE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_157__CMATCH_STATE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_157__CMATCH_STATE.obj_num = 5; - cdat->dobj_157__CMATCH_STATE.obj_hash = 285978773; + cdat->dobj_157__CMATCH_STATE.obj_hash = 217099739; cdat->dobj_157__CMATCH_STATE.obj_len = 4; /*inistring dstr_158__CMATCH_STATE*/ @@ -11516,7 +11534,7 @@ if (((void*)(MELT_PREDEF(CLASS_CMATCHER))) != (melt_ptr_t)&cdat->dobj_151__CLASS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_161__CMATCH_EXPTEST", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_161__CMATCH_EXPTEST.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_161__CMATCH_EXPTEST.obj_num = 6; - cdat->dobj_161__CMATCH_EXPTEST.obj_hash = 395076986; + cdat->dobj_161__CMATCH_EXPTEST.obj_hash = 213383853; cdat->dobj_161__CMATCH_EXPTEST.obj_len = 4; /*inistring dstr_162__CMATCH_EXPTEST*/ @@ -11544,7 +11562,7 @@ if (((void*)(MELT_PREDEF(CLASS_CMATCHER))) != (melt_ptr_t)&cdat->dobj_151__CLASS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_165__CMATCH_EXPFILL", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_165__CMATCH_EXPFILL.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_165__CMATCH_EXPFILL.obj_num = 7; - cdat->dobj_165__CMATCH_EXPFILL.obj_hash = 937339865; + cdat->dobj_165__CMATCH_EXPFILL.obj_hash = 162607349; cdat->dobj_165__CMATCH_EXPFILL.obj_len = 4; /*inistring dstr_166__CMATCH_EXPFILL*/ @@ -11572,7 +11590,7 @@ if (((void*)(MELT_PREDEF(CLASS_CMATCHER))) != (melt_ptr_t)&cdat->dobj_151__CLASS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_169__CMATCH_EXPOPER", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_169__CMATCH_EXPOPER.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_169__CMATCH_EXPOPER.obj_num = 8; - cdat->dobj_169__CMATCH_EXPOPER.obj_hash = 988453010; + cdat->dobj_169__CMATCH_EXPOPER.obj_hash = 266339205; cdat->dobj_169__CMATCH_EXPOPER.obj_len = 4; /*inistring dstr_170__CMATCH_EXPOPER*/ @@ -11603,7 +11621,7 @@ if (((void*)(MELT_PREDEF(CLASS_FUNMATCHER))) != (melt_ptr_t)&cdat->dobj_173__CLA if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_173__CLASS_FUNMATCHER", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_173__CLASS_FUNMATCHER.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_173__CLASS_FUNMATCHER.obj_num = OBMAG_OBJECT; - cdat->dobj_173__CLASS_FUNMATCHER.obj_hash = 617021006; + cdat->dobj_173__CLASS_FUNMATCHER.obj_hash = 533013956; cdat->dobj_173__CLASS_FUNMATCHER.obj_len = 8; /*inistring dstr_174__CLASS_FUNMATCHER*/ @@ -11639,7 +11657,7 @@ if (((void*)(MELT_PREDEF(CLASS_FUNMATCHER))) != (melt_ptr_t)&cdat->dobj_173__CLA if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_179__FMATCH_MATCHF", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_179__FMATCH_MATCHF.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_179__FMATCH_MATCHF.obj_num = 5; - cdat->dobj_179__FMATCH_MATCHF.obj_hash = 545663561; + cdat->dobj_179__FMATCH_MATCHF.obj_hash = 459554348; cdat->dobj_179__FMATCH_MATCHF.obj_len = 4; /*inistring dstr_180__FMATCH_MATCHF*/ @@ -11667,7 +11685,7 @@ if (((void*)(MELT_PREDEF(CLASS_FUNMATCHER))) != (melt_ptr_t)&cdat->dobj_173__CLA if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_183__FMATCH_APPLYF", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_183__FMATCH_APPLYF.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_183__FMATCH_APPLYF.obj_num = 6; - cdat->dobj_183__FMATCH_APPLYF.obj_hash = 317999767; + cdat->dobj_183__FMATCH_APPLYF.obj_hash = 664552826; cdat->dobj_183__FMATCH_APPLYF.obj_len = 4; /*inistring dstr_184__FMATCH_APPLYF*/ @@ -11695,7 +11713,7 @@ if (((void*)(MELT_PREDEF(CLASS_FUNMATCHER))) != (melt_ptr_t)&cdat->dobj_173__CLA if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_187__FMATCH_DATA", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_187__FMATCH_DATA.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_187__FMATCH_DATA.obj_num = 7; - cdat->dobj_187__FMATCH_DATA.obj_hash = 421336763; + cdat->dobj_187__FMATCH_DATA.obj_hash = 377347348; cdat->dobj_187__FMATCH_DATA.obj_len = 4; /*inistring dstr_188__FMATCH_DATA*/ @@ -11726,7 +11744,7 @@ if (((void*)(MELT_PREDEF(CLASS_LOCATED))) != (melt_ptr_t)&cdat->dobj_191__CLASS_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_191__CLASS_LOCATED", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_191__CLASS_LOCATED.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_191__CLASS_LOCATED.obj_num = OBMAG_OBJECT; - cdat->dobj_191__CLASS_LOCATED.obj_hash = 463782041; + cdat->dobj_191__CLASS_LOCATED.obj_hash = 654640739; cdat->dobj_191__CLASS_LOCATED.obj_len = 8; /*inistring dstr_192__CLASS_LOCATED*/ @@ -11762,7 +11780,7 @@ if (((void*)(MELT_PREDEF(CLASS_LOCATED))) != (melt_ptr_t)&cdat->dobj_191__CLASS_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_197__LOCA_LOCATION", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_197__LOCA_LOCATION.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_197__LOCA_LOCATION.obj_num = 1; - cdat->dobj_197__LOCA_LOCATION.obj_hash = 535332307; + cdat->dobj_197__LOCA_LOCATION.obj_hash = 53040206; cdat->dobj_197__LOCA_LOCATION.obj_len = 4; /*inistring dstr_198__LOCA_LOCATION*/ @@ -11793,7 +11811,7 @@ if (((void*)(MELT_PREDEF(CLASS_SEXPR))) != (melt_ptr_t)&cdat->dobj_201__CLASS_SE if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_201__CLASS_SEXPR", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_201__CLASS_SEXPR.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_201__CLASS_SEXPR.obj_num = OBMAG_OBJECT; - cdat->dobj_201__CLASS_SEXPR.obj_hash = 865073676; + cdat->dobj_201__CLASS_SEXPR.obj_hash = 395679450; cdat->dobj_201__CLASS_SEXPR.obj_len = 8; /*inistring dstr_202__CLASS_SEXPR*/ @@ -11829,7 +11847,7 @@ if (((void*)(MELT_PREDEF(CLASS_SEXPR))) != (melt_ptr_t)&cdat->dobj_201__CLASS_SE if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_207__SEXP_CONTENTS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_207__SEXP_CONTENTS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_207__SEXP_CONTENTS.obj_num = 2; - cdat->dobj_207__SEXP_CONTENTS.obj_hash = 686708385; + cdat->dobj_207__SEXP_CONTENTS.obj_hash = 856881173; cdat->dobj_207__SEXP_CONTENTS.obj_len = 4; /*inistring dstr_208__SEXP_CONTENTS*/ @@ -11860,7 +11878,7 @@ if (((void*)(MELT_PREDEF(CLASS_SEXPR_MACROSTRING))) != (melt_ptr_t)&cdat->dobj_2 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_211__CLASS_SEXPR_MACROSTRING", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_211__CLASS_SEXPR_MACROSTRING.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_211__CLASS_SEXPR_MACROSTRING.obj_num = OBMAG_OBJECT; - cdat->dobj_211__CLASS_SEXPR_MACROSTRING.obj_hash = 805090069; + cdat->dobj_211__CLASS_SEXPR_MACROSTRING.obj_hash = 495906098; cdat->dobj_211__CLASS_SEXPR_MACROSTRING.obj_len = 8; /*inistring dstr_212__CLASS_SEXPR_MACR*/ @@ -11896,7 +11914,7 @@ if (((void*)(MELT_PREDEF(CLASS_SEXPR_MACROSTRING))) != (melt_ptr_t)&cdat->dobj_2 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_217__CLASS_INFIX_LEXEME", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_217__CLASS_INFIX_LEXEME.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_217__CLASS_INFIX_LEXEME.obj_num = OBMAG_OBJECT; - cdat->dobj_217__CLASS_INFIX_LEXEME.obj_hash = 853030516; + cdat->dobj_217__CLASS_INFIX_LEXEME.obj_hash = 595819123; cdat->dobj_217__CLASS_INFIX_LEXEME.obj_len = 8; /*inistring dstr_218__CLASS_INFIX_LEXE*/ @@ -11932,7 +11950,7 @@ if (((void*)(MELT_PREDEF(CLASS_SEXPR_MACROSTRING))) != (melt_ptr_t)&cdat->dobj_2 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_223__LEXEME_DATA", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_223__LEXEME_DATA.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_223__LEXEME_DATA.obj_num = 2; - cdat->dobj_223__LEXEME_DATA.obj_hash = 1070140789; + cdat->dobj_223__LEXEME_DATA.obj_hash = 791336437; cdat->dobj_223__LEXEME_DATA.obj_len = 4; /*inistring dstr_224__LEXEME_DATA*/ @@ -11963,7 +11981,7 @@ if (((void*)(MELT_PREDEF(CLASS_INFIX_STRING_LITERAL))) != (melt_ptr_t)&cdat->dob if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_227__CLASS_INFIX_STRING_LITERAL", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_227__CLASS_INFIX_STRING_LITERAL.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_227__CLASS_INFIX_STRING_LITERAL.obj_num = OBMAG_OBJECT; - cdat->dobj_227__CLASS_INFIX_STRING_LITERAL.obj_hash = 433355524; + cdat->dobj_227__CLASS_INFIX_STRING_LITERAL.obj_hash = 584564034; cdat->dobj_227__CLASS_INFIX_STRING_LITERAL.obj_len = 8; /*inistring dstr_228__CLASS_INFIX_STRI*/ @@ -12002,7 +12020,7 @@ if (((void*)(MELT_PREDEF(CLASS_INFIX_INTEGER_LITERAL))) != (melt_ptr_t)&cdat->do if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_233__CLASS_INFIX_INTEGER_LITERAL", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_233__CLASS_INFIX_INTEGER_LITERAL.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_233__CLASS_INFIX_INTEGER_LITERAL.obj_num = OBMAG_OBJECT; - cdat->dobj_233__CLASS_INFIX_INTEGER_LITERAL.obj_hash = 461037191; + cdat->dobj_233__CLASS_INFIX_INTEGER_LITERAL.obj_hash = 38031997; cdat->dobj_233__CLASS_INFIX_INTEGER_LITERAL.obj_len = 8; /*inistring dstr_234__CLASS_INFIX_INTE*/ @@ -12038,7 +12056,7 @@ if (((void*)(MELT_PREDEF(CLASS_INFIX_INTEGER_LITERAL))) != (melt_ptr_t)&cdat->do if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_239__CLASS_INFIX_ANY_SYMBOL", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_239__CLASS_INFIX_ANY_SYMBOL.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_239__CLASS_INFIX_ANY_SYMBOL.obj_num = OBMAG_OBJECT; - cdat->dobj_239__CLASS_INFIX_ANY_SYMBOL.obj_hash = 485593575; + cdat->dobj_239__CLASS_INFIX_ANY_SYMBOL.obj_hash = 907453204; cdat->dobj_239__CLASS_INFIX_ANY_SYMBOL.obj_len = 8; /*inistring dstr_240__CLASS_INFIX_ANY_*/ @@ -12077,7 +12095,7 @@ if (((void*)(MELT_PREDEF(CLASS_INFIX_SYMBOL))) != (melt_ptr_t)&cdat->dobj_245__C if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_245__CLASS_INFIX_SYMBOL", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_245__CLASS_INFIX_SYMBOL.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_245__CLASS_INFIX_SYMBOL.obj_num = OBMAG_OBJECT; - cdat->dobj_245__CLASS_INFIX_SYMBOL.obj_hash = 572939581; + cdat->dobj_245__CLASS_INFIX_SYMBOL.obj_hash = 830294139; cdat->dobj_245__CLASS_INFIX_SYMBOL.obj_len = 8; /*inistring dstr_246__CLASS_INFIX_SYMB*/ @@ -12116,7 +12134,7 @@ if (((void*)(MELT_PREDEF(CLASS_INFIX_ADDITIVE_SYMBOL))) != (melt_ptr_t)&cdat->do if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_251__CLASS_INFIX_ADDITIVE_SYMBOL", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_251__CLASS_INFIX_ADDITIVE_SYMBOL.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_251__CLASS_INFIX_ADDITIVE_SYMBOL.obj_num = OBMAG_OBJECT; - cdat->dobj_251__CLASS_INFIX_ADDITIVE_SYMBOL.obj_hash = 254363581; + cdat->dobj_251__CLASS_INFIX_ADDITIVE_SYMBOL.obj_hash = 114589481; cdat->dobj_251__CLASS_INFIX_ADDITIVE_SYMBOL.obj_len = 8; /*inistring dstr_252__CLASS_INFIX_ADDI*/ @@ -12155,7 +12173,7 @@ if (((void*)(MELT_PREDEF(CLASS_INFIX_MULTIPLICATIVE_SYMBOL))) != (melt_ptr_t)&cd if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_257__CLASS_INFIX_MULTIPLICATIVE_SYMBOL", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_257__CLASS_INFIX_MULTIPLICATIVE_SYMBOL.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_257__CLASS_INFIX_MULTIPLICATIVE_SYMBOL.obj_num = OBMAG_OBJECT; - cdat->dobj_257__CLASS_INFIX_MULTIPLICATIVE_SYMBOL.obj_hash = 821792142; + cdat->dobj_257__CLASS_INFIX_MULTIPLICATIVE_SYMBOL.obj_hash = 206964780; cdat->dobj_257__CLASS_INFIX_MULTIPLICATIVE_SYMBOL.obj_len = 8; /*inistring dstr_258__CLASS_INFIX_MULT*/ @@ -12194,7 +12212,7 @@ if (((void*)(MELT_PREDEF(CLASS_INFIX_RELATIONAL_SYMBOL))) != (melt_ptr_t)&cdat-> if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_263__CLASS_INFIX_RELATIONAL_SYMBOL", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_263__CLASS_INFIX_RELATIONAL_SYMBOL.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_263__CLASS_INFIX_RELATIONAL_SYMBOL.obj_num = OBMAG_OBJECT; - cdat->dobj_263__CLASS_INFIX_RELATIONAL_SYMBOL.obj_hash = 592086629; + cdat->dobj_263__CLASS_INFIX_RELATIONAL_SYMBOL.obj_hash = 225009024; cdat->dobj_263__CLASS_INFIX_RELATIONAL_SYMBOL.obj_len = 8; /*inistring dstr_264__CLASS_INFIX_RELA*/ @@ -12233,7 +12251,7 @@ if (((void*)(MELT_PREDEF(CLASS_INFIX_DELIMITER))) != (melt_ptr_t)&cdat->dobj_269 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_269__CLASS_INFIX_DELIMITER", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_269__CLASS_INFIX_DELIMITER.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_269__CLASS_INFIX_DELIMITER.obj_num = OBMAG_OBJECT; - cdat->dobj_269__CLASS_INFIX_DELIMITER.obj_hash = 559133993; + cdat->dobj_269__CLASS_INFIX_DELIMITER.obj_hash = 165229230; cdat->dobj_269__CLASS_INFIX_DELIMITER.obj_len = 8; /*inistring dstr_270__CLASS_INFIX_DELI*/ @@ -12272,7 +12290,7 @@ if (((void*)(MELT_PREDEF(CLASS_INFIX_KEYWORD))) != (melt_ptr_t)&cdat->dobj_275__ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_275__CLASS_INFIX_KEYWORD", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_275__CLASS_INFIX_KEYWORD.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_275__CLASS_INFIX_KEYWORD.obj_num = OBMAG_OBJECT; - cdat->dobj_275__CLASS_INFIX_KEYWORD.obj_hash = 436162281; + cdat->dobj_275__CLASS_INFIX_KEYWORD.obj_hash = 767939436; cdat->dobj_275__CLASS_INFIX_KEYWORD.obj_len = 8; /*inistring dstr_276__CLASS_INFIX_KEYW*/ @@ -12311,7 +12329,7 @@ if (((void*)(MELT_PREDEF(CLASS_SELECTOR))) != (melt_ptr_t)&cdat->dobj_281__CLASS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_281__CLASS_SELECTOR", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_281__CLASS_SELECTOR.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_281__CLASS_SELECTOR.obj_num = OBMAG_OBJECT; - cdat->dobj_281__CLASS_SELECTOR.obj_hash = 17101275; + cdat->dobj_281__CLASS_SELECTOR.obj_hash = 860163166; cdat->dobj_281__CLASS_SELECTOR.obj_len = 8; /*inistring dstr_282__CLASS_SELECTOR*/ @@ -12347,7 +12365,7 @@ if (((void*)(MELT_PREDEF(CLASS_SELECTOR))) != (melt_ptr_t)&cdat->dobj_281__CLASS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_287__SEL_SIGNATURE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_287__SEL_SIGNATURE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_287__SEL_SIGNATURE.obj_num = 2; - cdat->dobj_287__SEL_SIGNATURE.obj_hash = 315679906; + cdat->dobj_287__SEL_SIGNATURE.obj_hash = 456252402; cdat->dobj_287__SEL_SIGNATURE.obj_len = 4; /*inistring dstr_288__SEL_SIGNATURE*/ @@ -12375,7 +12393,7 @@ if (((void*)(MELT_PREDEF(CLASS_SELECTOR))) != (melt_ptr_t)&cdat->dobj_281__CLASS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_291__SEL_DATA", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_291__SEL_DATA.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_291__SEL_DATA.obj_num = 3; - cdat->dobj_291__SEL_DATA.obj_hash = 432481742; + cdat->dobj_291__SEL_DATA.obj_hash = 1066523265; cdat->dobj_291__SEL_DATA.obj_len = 4; /*inistring dstr_292__SEL_DATA*/ @@ -12406,7 +12424,7 @@ if (((void*)(MELT_PREDEF(CLASS_SYMBOL))) != (melt_ptr_t)&cdat->dobj_295__CLASS_S if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_295__CLASS_SYMBOL", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_295__CLASS_SYMBOL.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_295__CLASS_SYMBOL.obj_num = OBMAG_OBJECT; - cdat->dobj_295__CLASS_SYMBOL.obj_hash = 653294510; + cdat->dobj_295__CLASS_SYMBOL.obj_hash = 857568148; cdat->dobj_295__CLASS_SYMBOL.obj_len = 8; /*inistring dstr_296__CLASS_SYMBOL*/ @@ -12442,7 +12460,7 @@ if (((void*)(MELT_PREDEF(CLASS_SYMBOL))) != (melt_ptr_t)&cdat->dobj_295__CLASS_S if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_301__SYMB_DATA", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_301__SYMB_DATA.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_301__SYMB_DATA.obj_num = 2; - cdat->dobj_301__SYMB_DATA.obj_hash = 557084545; + cdat->dobj_301__SYMB_DATA.obj_hash = 673097571; cdat->dobj_301__SYMB_DATA.obj_len = 4; /*inistring dstr_302__SYMB_DATA*/ @@ -12470,7 +12488,7 @@ if (((void*)(MELT_PREDEF(CLASS_SYMBOL))) != (melt_ptr_t)&cdat->dobj_295__CLASS_S if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_305__CLASS_CLONED_SYMBOL", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_305__CLASS_CLONED_SYMBOL.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_305__CLASS_CLONED_SYMBOL.obj_num = OBMAG_OBJECT; - cdat->dobj_305__CLASS_CLONED_SYMBOL.obj_hash = 155269280; + cdat->dobj_305__CLASS_CLONED_SYMBOL.obj_hash = 884289230; cdat->dobj_305__CLASS_CLONED_SYMBOL.obj_len = 8; /*inistring dstr_306__CLASS_CLONED_SYM*/ @@ -12506,7 +12524,7 @@ if (((void*)(MELT_PREDEF(CLASS_SYMBOL))) != (melt_ptr_t)&cdat->dobj_295__CLASS_S if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_311__CSYM_URANK", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_311__CSYM_URANK.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_311__CSYM_URANK.obj_num = 3; - cdat->dobj_311__CSYM_URANK.obj_hash = 338735095; + cdat->dobj_311__CSYM_URANK.obj_hash = 585801181; cdat->dobj_311__CSYM_URANK.obj_len = 4; /*inistring dstr_312__CSYM_URANK*/ @@ -12537,7 +12555,7 @@ if (((void*)(MELT_PREDEF(CLASS_KEYWORD))) != (melt_ptr_t)&cdat->dobj_315__CLASS_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_315__CLASS_KEYWORD", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_315__CLASS_KEYWORD.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_315__CLASS_KEYWORD.obj_num = OBMAG_OBJECT; - cdat->dobj_315__CLASS_KEYWORD.obj_hash = 12245824; + cdat->dobj_315__CLASS_KEYWORD.obj_hash = 271539777; cdat->dobj_315__CLASS_KEYWORD.obj_len = 8; /*inistring dstr_316__CLASS_KEYWORD*/ @@ -12576,7 +12594,7 @@ if (((void*)(MELT_PREDEF(CLASS_CTYPE))) != (melt_ptr_t)&cdat->dobj_321__CLASS_CT if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_321__CLASS_CTYPE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_321__CLASS_CTYPE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_321__CLASS_CTYPE.obj_num = OBMAG_OBJECT; - cdat->dobj_321__CLASS_CTYPE.obj_hash = 909168000; + cdat->dobj_321__CLASS_CTYPE.obj_hash = 355917988; cdat->dobj_321__CLASS_CTYPE.obj_len = 8; /*inistring dstr_322__CLASS_CTYPE*/ @@ -12612,7 +12630,7 @@ if (((void*)(MELT_PREDEF(CLASS_CTYPE))) != (melt_ptr_t)&cdat->dobj_321__CLASS_CT if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_327__CTYPE_KEYWORD", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_327__CTYPE_KEYWORD.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_327__CTYPE_KEYWORD.obj_num = 2; - cdat->dobj_327__CTYPE_KEYWORD.obj_hash = 154124224; + cdat->dobj_327__CTYPE_KEYWORD.obj_hash = 1020897616; cdat->dobj_327__CTYPE_KEYWORD.obj_len = 4; /*inistring dstr_328__CTYPE_KEYWORD*/ @@ -12640,7 +12658,7 @@ if (((void*)(MELT_PREDEF(CLASS_CTYPE))) != (melt_ptr_t)&cdat->dobj_321__CLASS_CT if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_331__CTYPE_CNAME", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_331__CTYPE_CNAME.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_331__CTYPE_CNAME.obj_num = 3; - cdat->dobj_331__CTYPE_CNAME.obj_hash = 749774221; + cdat->dobj_331__CTYPE_CNAME.obj_hash = 312390578; cdat->dobj_331__CTYPE_CNAME.obj_len = 4; /*inistring dstr_332__CTYPE_CNAME*/ @@ -12668,7 +12686,7 @@ if (((void*)(MELT_PREDEF(CLASS_CTYPE))) != (melt_ptr_t)&cdat->dobj_321__CLASS_CT if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_335__CTYPE_PARCHAR", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_335__CTYPE_PARCHAR.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_335__CTYPE_PARCHAR.obj_num = 4; - cdat->dobj_335__CTYPE_PARCHAR.obj_hash = 813765682; + cdat->dobj_335__CTYPE_PARCHAR.obj_hash = 342083675; cdat->dobj_335__CTYPE_PARCHAR.obj_len = 4; /*inistring dstr_336__CTYPE_PARCHAR*/ @@ -12696,7 +12714,7 @@ if (((void*)(MELT_PREDEF(CLASS_CTYPE))) != (melt_ptr_t)&cdat->dobj_321__CLASS_CT if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_339__CTYPE_PARSTRING", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_339__CTYPE_PARSTRING.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_339__CTYPE_PARSTRING.obj_num = 5; - cdat->dobj_339__CTYPE_PARSTRING.obj_hash = 989207182; + cdat->dobj_339__CTYPE_PARSTRING.obj_hash = 255753501; cdat->dobj_339__CTYPE_PARSTRING.obj_len = 4; /*inistring dstr_340__CTYPE_PARSTRING*/ @@ -12724,7 +12742,7 @@ if (((void*)(MELT_PREDEF(CLASS_CTYPE))) != (melt_ptr_t)&cdat->dobj_321__CLASS_CT if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_343__CTYPE_ARGFIELD", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_343__CTYPE_ARGFIELD.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_343__CTYPE_ARGFIELD.obj_num = 6; - cdat->dobj_343__CTYPE_ARGFIELD.obj_hash = 264573511; + cdat->dobj_343__CTYPE_ARGFIELD.obj_hash = 686228154; cdat->dobj_343__CTYPE_ARGFIELD.obj_len = 4; /*inistring dstr_344__CTYPE_ARGFIELD*/ @@ -12752,7 +12770,7 @@ if (((void*)(MELT_PREDEF(CLASS_CTYPE))) != (melt_ptr_t)&cdat->dobj_321__CLASS_CT if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_347__CTYPE_RESFIELD", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_347__CTYPE_RESFIELD.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_347__CTYPE_RESFIELD.obj_num = 7; - cdat->dobj_347__CTYPE_RESFIELD.obj_hash = 50566656; + cdat->dobj_347__CTYPE_RESFIELD.obj_hash = 535630342; cdat->dobj_347__CTYPE_RESFIELD.obj_len = 4; /*inistring dstr_348__CTYPE_RESFIELD*/ @@ -12780,7 +12798,7 @@ if (((void*)(MELT_PREDEF(CLASS_CTYPE))) != (melt_ptr_t)&cdat->dobj_321__CLASS_CT if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_351__CTYPE_MARKER", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_351__CTYPE_MARKER.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_351__CTYPE_MARKER.obj_num = 8; - cdat->dobj_351__CTYPE_MARKER.obj_hash = 555193588; + cdat->dobj_351__CTYPE_MARKER.obj_hash = 339659210; cdat->dobj_351__CTYPE_MARKER.obj_len = 4; /*inistring dstr_352__CTYPE_MARKER*/ @@ -12808,7 +12826,7 @@ if (((void*)(MELT_PREDEF(CLASS_CTYPE))) != (melt_ptr_t)&cdat->dobj_321__CLASS_CT if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_355__CTYPE_DESCR", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_355__CTYPE_DESCR.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_355__CTYPE_DESCR.obj_num = 9; - cdat->dobj_355__CTYPE_DESCR.obj_hash = 892947699; + cdat->dobj_355__CTYPE_DESCR.obj_hash = 442651559; cdat->dobj_355__CTYPE_DESCR.obj_len = 4; /*inistring dstr_356__CTYPE_DESCR*/ @@ -12836,7 +12854,7 @@ if (((void*)(MELT_PREDEF(CLASS_CTYPE))) != (melt_ptr_t)&cdat->dobj_321__CLASS_CT if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_359__CTYPE_ALTKEYWORD", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_359__CTYPE_ALTKEYWORD.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_359__CTYPE_ALTKEYWORD.obj_num = 10; - cdat->dobj_359__CTYPE_ALTKEYWORD.obj_hash = 87868776; + cdat->dobj_359__CTYPE_ALTKEYWORD.obj_hash = 184123511; cdat->dobj_359__CTYPE_ALTKEYWORD.obj_len = 4; /*inistring dstr_360__CTYPE_ALTKEYWORD*/ @@ -12867,7 +12885,7 @@ if (((void*)(MELT_PREDEF(CLASS_SYSTEM_DATA))) != (melt_ptr_t)&cdat->dobj_363__CL if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_363__CLASS_SYSTEM_DATA", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_363__CLASS_SYSTEM_DATA.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_363__CLASS_SYSTEM_DATA.obj_num = OBMAG_OBJECT; - cdat->dobj_363__CLASS_SYSTEM_DATA.obj_hash = 805243041; + cdat->dobj_363__CLASS_SYSTEM_DATA.obj_hash = 684137015; cdat->dobj_363__CLASS_SYSTEM_DATA.obj_len = 8; /*inistring dstr_364__CLASS_SYSTEM_DAT*/ @@ -12903,7 +12921,7 @@ if (((void*)(MELT_PREDEF(CLASS_SYSTEM_DATA))) != (melt_ptr_t)&cdat->dobj_363__CL if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_369__SYSDATA_MODE_DICT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_369__SYSDATA_MODE_DICT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_369__SYSDATA_MODE_DICT.obj_num = 2; - cdat->dobj_369__SYSDATA_MODE_DICT.obj_hash = 902990074; + cdat->dobj_369__SYSDATA_MODE_DICT.obj_hash = 772842520; cdat->dobj_369__SYSDATA_MODE_DICT.obj_len = 4; /*inistring dstr_370__SYSDATA_MODE_DIC*/ @@ -12931,7 +12949,7 @@ if (((void*)(MELT_PREDEF(CLASS_SYSTEM_DATA))) != (melt_ptr_t)&cdat->dobj_363__CL if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_373__SYSDATA_CONT_FRESH_ENV", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_373__SYSDATA_CONT_FRESH_ENV.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_373__SYSDATA_CONT_FRESH_ENV.obj_num = 3; - cdat->dobj_373__SYSDATA_CONT_FRESH_ENV.obj_hash = 391255722; + cdat->dobj_373__SYSDATA_CONT_FRESH_ENV.obj_hash = 1067562268; cdat->dobj_373__SYSDATA_CONT_FRESH_ENV.obj_len = 4; /*inistring dstr_374__SYSDATA_CONT_FRE*/ @@ -12959,7 +12977,7 @@ if (((void*)(MELT_PREDEF(CLASS_SYSTEM_DATA))) != (melt_ptr_t)&cdat->dobj_363__CL if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_377__SYSDATA_VALUE_EXPORTER", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_377__SYSDATA_VALUE_EXPORTER.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_377__SYSDATA_VALUE_EXPORTER.obj_num = 4; - cdat->dobj_377__SYSDATA_VALUE_EXPORTER.obj_hash = 404592210; + cdat->dobj_377__SYSDATA_VALUE_EXPORTER.obj_hash = 317668382; cdat->dobj_377__SYSDATA_VALUE_EXPORTER.obj_len = 4; /*inistring dstr_378__SYSDATA_VALUE_EX*/ @@ -12987,7 +13005,7 @@ if (((void*)(MELT_PREDEF(CLASS_SYSTEM_DATA))) != (melt_ptr_t)&cdat->dobj_363__CL if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_381__SYSDATA_MACRO_EXPORTER", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_381__SYSDATA_MACRO_EXPORTER.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_381__SYSDATA_MACRO_EXPORTER.obj_num = 5; - cdat->dobj_381__SYSDATA_MACRO_EXPORTER.obj_hash = 62032846; + cdat->dobj_381__SYSDATA_MACRO_EXPORTER.obj_hash = 222138503; cdat->dobj_381__SYSDATA_MACRO_EXPORTER.obj_len = 4; /*inistring dstr_382__SYSDATA_MACRO_EX*/ @@ -13015,7 +13033,7 @@ if (((void*)(MELT_PREDEF(CLASS_SYSTEM_DATA))) != (melt_ptr_t)&cdat->dobj_363__CL if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_385__SYSDATA_SYMBOLDICT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_385__SYSDATA_SYMBOLDICT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_385__SYSDATA_SYMBOLDICT.obj_num = 6; - cdat->dobj_385__SYSDATA_SYMBOLDICT.obj_hash = 236836263; + cdat->dobj_385__SYSDATA_SYMBOLDICT.obj_hash = 568867917; cdat->dobj_385__SYSDATA_SYMBOLDICT.obj_len = 4; /*inistring dstr_386__SYSDATA_SYMBOLDI*/ @@ -13043,7 +13061,7 @@ if (((void*)(MELT_PREDEF(CLASS_SYSTEM_DATA))) != (melt_ptr_t)&cdat->dobj_363__CL if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_389__SYSDATA_KEYWDICT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_389__SYSDATA_KEYWDICT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_389__SYSDATA_KEYWDICT.obj_num = 7; - cdat->dobj_389__SYSDATA_KEYWDICT.obj_hash = 864160587; + cdat->dobj_389__SYSDATA_KEYWDICT.obj_hash = 580766768; cdat->dobj_389__SYSDATA_KEYWDICT.obj_len = 4; /*inistring dstr_390__SYSDATA_KEYWDICT*/ @@ -13071,7 +13089,7 @@ if (((void*)(MELT_PREDEF(CLASS_SYSTEM_DATA))) != (melt_ptr_t)&cdat->dobj_363__CL if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_393__SYSDATA_ADDSYMBOL", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_393__SYSDATA_ADDSYMBOL.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_393__SYSDATA_ADDSYMBOL.obj_num = 8; - cdat->dobj_393__SYSDATA_ADDSYMBOL.obj_hash = 518015707; + cdat->dobj_393__SYSDATA_ADDSYMBOL.obj_hash = 509649055; cdat->dobj_393__SYSDATA_ADDSYMBOL.obj_len = 4; /*inistring dstr_394__SYSDATA_ADDSYMBO*/ @@ -13099,7 +13117,7 @@ if (((void*)(MELT_PREDEF(CLASS_SYSTEM_DATA))) != (melt_ptr_t)&cdat->dobj_363__CL if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_397__SYSDATA_ADDKEYW", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_397__SYSDATA_ADDKEYW.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_397__SYSDATA_ADDKEYW.obj_num = 9; - cdat->dobj_397__SYSDATA_ADDKEYW.obj_hash = 917291404; + cdat->dobj_397__SYSDATA_ADDKEYW.obj_hash = 4938293; cdat->dobj_397__SYSDATA_ADDKEYW.obj_len = 4; /*inistring dstr_398__SYSDATA_ADDKEYW*/ @@ -13127,7 +13145,7 @@ if (((void*)(MELT_PREDEF(CLASS_SYSTEM_DATA))) != (melt_ptr_t)&cdat->dobj_363__CL if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_401__SYSDATA_INTERNSYMBOL", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_401__SYSDATA_INTERNSYMBOL.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_401__SYSDATA_INTERNSYMBOL.obj_num = 10; - cdat->dobj_401__SYSDATA_INTERNSYMBOL.obj_hash = 502019231; + cdat->dobj_401__SYSDATA_INTERNSYMBOL.obj_hash = 705994390; cdat->dobj_401__SYSDATA_INTERNSYMBOL.obj_len = 4; /*inistring dstr_402__SYSDATA_INTERNSY*/ @@ -13155,7 +13173,7 @@ if (((void*)(MELT_PREDEF(CLASS_SYSTEM_DATA))) != (melt_ptr_t)&cdat->dobj_363__CL if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_405__SYSDATA_INTERNKEYW", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_405__SYSDATA_INTERNKEYW.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_405__SYSDATA_INTERNKEYW.obj_num = 11; - cdat->dobj_405__SYSDATA_INTERNKEYW.obj_hash = 834212148; + cdat->dobj_405__SYSDATA_INTERNKEYW.obj_hash = 124845250; cdat->dobj_405__SYSDATA_INTERNKEYW.obj_len = 4; /*inistring dstr_406__SYSDATA_INTERNKE*/ @@ -13183,7 +13201,7 @@ if (((void*)(MELT_PREDEF(CLASS_SYSTEM_DATA))) != (melt_ptr_t)&cdat->dobj_363__CL if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_409__SYSDATA_VALUE_IMPORTER", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_409__SYSDATA_VALUE_IMPORTER.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_409__SYSDATA_VALUE_IMPORTER.obj_num = 12; - cdat->dobj_409__SYSDATA_VALUE_IMPORTER.obj_hash = 305337924; + cdat->dobj_409__SYSDATA_VALUE_IMPORTER.obj_hash = 691753971; cdat->dobj_409__SYSDATA_VALUE_IMPORTER.obj_len = 4; /*inistring dstr_410__SYSDATA_VALUE_IM*/ @@ -13211,7 +13229,7 @@ if (((void*)(MELT_PREDEF(CLASS_SYSTEM_DATA))) != (melt_ptr_t)&cdat->dobj_363__CL if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_413__SYSDATA_PASS_DICT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_413__SYSDATA_PASS_DICT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_413__SYSDATA_PASS_DICT.obj_num = 13; - cdat->dobj_413__SYSDATA_PASS_DICT.obj_hash = 224251449; + cdat->dobj_413__SYSDATA_PASS_DICT.obj_hash = 1058092124; cdat->dobj_413__SYSDATA_PASS_DICT.obj_len = 4; /*inistring dstr_414__SYSDATA_PASS_DIC*/ @@ -13239,7 +13257,7 @@ if (((void*)(MELT_PREDEF(CLASS_SYSTEM_DATA))) != (melt_ptr_t)&cdat->dobj_363__CL if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_417__SYSDATA_EXIT_FINALIZER", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_417__SYSDATA_EXIT_FINALIZER.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_417__SYSDATA_EXIT_FINALIZER.obj_num = 14; - cdat->dobj_417__SYSDATA_EXIT_FINALIZER.obj_hash = 767446194; + cdat->dobj_417__SYSDATA_EXIT_FINALIZER.obj_hash = 615802642; cdat->dobj_417__SYSDATA_EXIT_FINALIZER.obj_len = 4; /*inistring dstr_418__SYSDATA_EXIT_FIN*/ @@ -13267,7 +13285,7 @@ if (((void*)(MELT_PREDEF(CLASS_SYSTEM_DATA))) != (melt_ptr_t)&cdat->dobj_363__CL if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_421__SYSDATA_MELTATTR_DEFINER", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_421__SYSDATA_MELTATTR_DEFINER.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_421__SYSDATA_MELTATTR_DEFINER.obj_num = 15; - cdat->dobj_421__SYSDATA_MELTATTR_DEFINER.obj_hash = 390449453; + cdat->dobj_421__SYSDATA_MELTATTR_DEFINER.obj_hash = 180390090; cdat->dobj_421__SYSDATA_MELTATTR_DEFINER.obj_len = 4; /*inistring dstr_422__SYSDATA_MELTATTR*/ @@ -13295,7 +13313,7 @@ if (((void*)(MELT_PREDEF(CLASS_SYSTEM_DATA))) != (melt_ptr_t)&cdat->dobj_363__CL if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_425__SYSDATA_PATMACRO_EXPORTER", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_425__SYSDATA_PATMACRO_EXPORTER.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_425__SYSDATA_PATMACRO_EXPORTER.obj_num = 16; - cdat->dobj_425__SYSDATA_PATMACRO_EXPORTER.obj_hash = 34848881; + cdat->dobj_425__SYSDATA_PATMACRO_EXPORTER.obj_hash = 587797216; cdat->dobj_425__SYSDATA_PATMACRO_EXPORTER.obj_len = 4; /*inistring dstr_426__SYSDATA_PATMACRO*/ @@ -13323,7 +13341,7 @@ if (((void*)(MELT_PREDEF(CLASS_SYSTEM_DATA))) != (melt_ptr_t)&cdat->dobj_363__CL if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_429__SYSDATA_DEBUGMSG", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_429__SYSDATA_DEBUGMSG.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_429__SYSDATA_DEBUGMSG.obj_num = 17; - cdat->dobj_429__SYSDATA_DEBUGMSG.obj_hash = 487689369; + cdat->dobj_429__SYSDATA_DEBUGMSG.obj_hash = 1011562144; cdat->dobj_429__SYSDATA_DEBUGMSG.obj_len = 4; /*inistring dstr_430__SYSDATA_DEBUGMSG*/ @@ -13351,7 +13369,7 @@ if (((void*)(MELT_PREDEF(CLASS_SYSTEM_DATA))) != (melt_ptr_t)&cdat->dobj_363__CL if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_433__SYSDATA_STDOUT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_433__SYSDATA_STDOUT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_433__SYSDATA_STDOUT.obj_num = 18; - cdat->dobj_433__SYSDATA_STDOUT.obj_hash = 303195876; + cdat->dobj_433__SYSDATA_STDOUT.obj_hash = 971487354; cdat->dobj_433__SYSDATA_STDOUT.obj_len = 4; /*inistring dstr_434__SYSDATA_STDOUT*/ @@ -13379,7 +13397,7 @@ if (((void*)(MELT_PREDEF(CLASS_SYSTEM_DATA))) != (melt_ptr_t)&cdat->dobj_363__CL if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_437__SYSDATA_STDERR", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_437__SYSDATA_STDERR.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_437__SYSDATA_STDERR.obj_num = 19; - cdat->dobj_437__SYSDATA_STDERR.obj_hash = 932466306; + cdat->dobj_437__SYSDATA_STDERR.obj_hash = 886303593; cdat->dobj_437__SYSDATA_STDERR.obj_len = 4; /*inistring dstr_438__SYSDATA_STDERR*/ @@ -13407,7 +13425,7 @@ if (((void*)(MELT_PREDEF(CLASS_SYSTEM_DATA))) != (melt_ptr_t)&cdat->dobj_363__CL if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_441__SYSDATA_DUMPFILE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_441__SYSDATA_DUMPFILE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_441__SYSDATA_DUMPFILE.obj_num = 20; - cdat->dobj_441__SYSDATA_DUMPFILE.obj_hash = 136340631; + cdat->dobj_441__SYSDATA_DUMPFILE.obj_hash = 785952868; cdat->dobj_441__SYSDATA_DUMPFILE.obj_len = 4; /*inistring dstr_442__SYSDATA_DUMPFILE*/ @@ -13435,7 +13453,7 @@ if (((void*)(MELT_PREDEF(CLASS_SYSTEM_DATA))) != (melt_ptr_t)&cdat->dobj_363__CL if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_445__SYSDATA_UNIT_STARTER", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_445__SYSDATA_UNIT_STARTER.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_445__SYSDATA_UNIT_STARTER.obj_num = 21; - cdat->dobj_445__SYSDATA_UNIT_STARTER.obj_hash = 399980557; + cdat->dobj_445__SYSDATA_UNIT_STARTER.obj_hash = 485087856; cdat->dobj_445__SYSDATA_UNIT_STARTER.obj_len = 4; /*inistring dstr_446__SYSDATA_UNIT_STA*/ @@ -13463,7 +13481,7 @@ if (((void*)(MELT_PREDEF(CLASS_SYSTEM_DATA))) != (melt_ptr_t)&cdat->dobj_363__CL if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_449__SYSDATA_UNIT_FINISHER", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_449__SYSDATA_UNIT_FINISHER.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_449__SYSDATA_UNIT_FINISHER.obj_num = 22; - cdat->dobj_449__SYSDATA_UNIT_FINISHER.obj_hash = 839893677; + cdat->dobj_449__SYSDATA_UNIT_FINISHER.obj_hash = 685552995; cdat->dobj_449__SYSDATA_UNIT_FINISHER.obj_len = 4; /*inistring dstr_450__SYSDATA_UNIT_FIN*/ @@ -13491,7 +13509,7 @@ if (((void*)(MELT_PREDEF(CLASS_SYSTEM_DATA))) != (melt_ptr_t)&cdat->dobj_363__CL if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_453__SYSDATA_OPTION_SET", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_453__SYSDATA_OPTION_SET.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_453__SYSDATA_OPTION_SET.obj_num = 23; - cdat->dobj_453__SYSDATA_OPTION_SET.obj_hash = 968770878; + cdat->dobj_453__SYSDATA_OPTION_SET.obj_hash = 141497387; cdat->dobj_453__SYSDATA_OPTION_SET.obj_len = 4; /*inistring dstr_454__SYSDATA_OPTION_S*/ @@ -13519,7 +13537,7 @@ if (((void*)(MELT_PREDEF(CLASS_SYSTEM_DATA))) != (melt_ptr_t)&cdat->dobj_363__CL if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_457__SYSDATA_SPARE1", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_457__SYSDATA_SPARE1.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_457__SYSDATA_SPARE1.obj_num = 24; - cdat->dobj_457__SYSDATA_SPARE1.obj_hash = 138135932; + cdat->dobj_457__SYSDATA_SPARE1.obj_hash = 957407992; cdat->dobj_457__SYSDATA_SPARE1.obj_len = 4; /*inistring dstr_458__SYSDATA_SPARE1*/ @@ -13547,7 +13565,7 @@ if (((void*)(MELT_PREDEF(CLASS_SYSTEM_DATA))) != (melt_ptr_t)&cdat->dobj_363__CL if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_461__SYSDATA_SPARE2", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_461__SYSDATA_SPARE2.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_461__SYSDATA_SPARE2.obj_num = 25; - cdat->dobj_461__SYSDATA_SPARE2.obj_hash = 324804316; + cdat->dobj_461__SYSDATA_SPARE2.obj_hash = 529312325; cdat->dobj_461__SYSDATA_SPARE2.obj_len = 4; /*inistring dstr_462__SYSDATA_SPARE2*/ @@ -13575,7 +13593,7 @@ if (((void*)(MELT_PREDEF(CLASS_SYSTEM_DATA))) != (melt_ptr_t)&cdat->dobj_363__CL if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_465__SYSDATA_SPARE3", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_465__SYSDATA_SPARE3.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_465__SYSDATA_SPARE3.obj_num = 26; - cdat->dobj_465__SYSDATA_SPARE3.obj_hash = 976237108; + cdat->dobj_465__SYSDATA_SPARE3.obj_hash = 1006231929; cdat->dobj_465__SYSDATA_SPARE3.obj_len = 4; /*inistring dstr_466__SYSDATA_SPARE3*/ @@ -13603,7 +13621,7 @@ if (((void*)(MELT_PREDEF(CLASS_SYSTEM_DATA))) != (melt_ptr_t)&cdat->dobj_363__CL if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_469__SYSDATA_SPARE4", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_469__SYSDATA_SPARE4.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_469__SYSDATA_SPARE4.obj_num = 27; - cdat->dobj_469__SYSDATA_SPARE4.obj_hash = 406220913; + cdat->dobj_469__SYSDATA_SPARE4.obj_hash = 134269511; cdat->dobj_469__SYSDATA_SPARE4.obj_len = 4; /*inistring dstr_470__SYSDATA_SPARE4*/ @@ -13634,7 +13652,7 @@ if (((void*)(MELT_PREDEF(CLASS_ENVIRONMENT))) != (melt_ptr_t)&cdat->dobj_473__CL if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_473__CLASS_ENVIRONMENT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_473__CLASS_ENVIRONMENT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_473__CLASS_ENVIRONMENT.obj_num = OBMAG_OBJECT; - cdat->dobj_473__CLASS_ENVIRONMENT.obj_hash = 428357969; + cdat->dobj_473__CLASS_ENVIRONMENT.obj_hash = 753647010; cdat->dobj_473__CLASS_ENVIRONMENT.obj_len = 8; /*inistring dstr_474__CLASS_ENVIRONMEN*/ @@ -13670,7 +13688,7 @@ if (((void*)(MELT_PREDEF(CLASS_ENVIRONMENT))) != (melt_ptr_t)&cdat->dobj_473__CL if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_479__ENV_BIND", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_479__ENV_BIND.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_479__ENV_BIND.obj_num = 0; - cdat->dobj_479__ENV_BIND.obj_hash = 65312345; + cdat->dobj_479__ENV_BIND.obj_hash = 120344734; cdat->dobj_479__ENV_BIND.obj_len = 4; /*inistring dstr_480__ENV_BIND*/ @@ -13698,7 +13716,7 @@ if (((void*)(MELT_PREDEF(CLASS_ENVIRONMENT))) != (melt_ptr_t)&cdat->dobj_473__CL if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_483__ENV_PREV", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_483__ENV_PREV.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_483__ENV_PREV.obj_num = 1; - cdat->dobj_483__ENV_PREV.obj_hash = 670239811; + cdat->dobj_483__ENV_PREV.obj_hash = 727503122; cdat->dobj_483__ENV_PREV.obj_len = 4; /*inistring dstr_484__ENV_PREV*/ @@ -13726,7 +13744,7 @@ if (((void*)(MELT_PREDEF(CLASS_ENVIRONMENT))) != (melt_ptr_t)&cdat->dobj_473__CL if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_487__ENV_PROC", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_487__ENV_PROC.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_487__ENV_PROC.obj_num = 2; - cdat->dobj_487__ENV_PROC.obj_hash = 719059314; + cdat->dobj_487__ENV_PROC.obj_hash = 572977608; cdat->dobj_487__ENV_PROC.obj_len = 4; /*inistring dstr_488__ENV_PROC*/ @@ -13754,7 +13772,7 @@ if (((void*)(MELT_PREDEF(CLASS_ENVIRONMENT))) != (melt_ptr_t)&cdat->dobj_473__CL if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_491__CLASS_DESCRIBED_ENVIRONMENT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_491__CLASS_DESCRIBED_ENVIRONMENT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_491__CLASS_DESCRIBED_ENVIRONMENT.obj_num = OBMAG_OBJECT; - cdat->dobj_491__CLASS_DESCRIBED_ENVIRONMENT.obj_hash = 807181195; + cdat->dobj_491__CLASS_DESCRIBED_ENVIRONMENT.obj_hash = 1071382675; cdat->dobj_491__CLASS_DESCRIBED_ENVIRONMENT.obj_len = 8; /*inistring dstr_492__CLASS_DESCRIBED_*/ @@ -13790,7 +13808,7 @@ if (((void*)(MELT_PREDEF(CLASS_ENVIRONMENT))) != (melt_ptr_t)&cdat->dobj_473__CL if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_497__DENV_DESCR", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_497__DENV_DESCR.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_497__DENV_DESCR.obj_num = 3; - cdat->dobj_497__DENV_DESCR.obj_hash = 376706070; + cdat->dobj_497__DENV_DESCR.obj_hash = 393763555; cdat->dobj_497__DENV_DESCR.obj_len = 4; /*inistring dstr_498__DENV_DESCR*/ @@ -13818,7 +13836,7 @@ if (((void*)(MELT_PREDEF(CLASS_ENVIRONMENT))) != (melt_ptr_t)&cdat->dobj_473__CL if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_501__CLASS_ANY_BINDING", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_501__CLASS_ANY_BINDING.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_501__CLASS_ANY_BINDING.obj_num = OBMAG_OBJECT; - cdat->dobj_501__CLASS_ANY_BINDING.obj_hash = 143915117; + cdat->dobj_501__CLASS_ANY_BINDING.obj_hash = 879770034; cdat->dobj_501__CLASS_ANY_BINDING.obj_len = 8; /*inistring dstr_502__CLASS_ANY_BINDIN*/ @@ -13854,7 +13872,7 @@ if (((void*)(MELT_PREDEF(CLASS_ENVIRONMENT))) != (melt_ptr_t)&cdat->dobj_473__CL if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_507__BINDER", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_507__BINDER.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_507__BINDER.obj_num = 0; - cdat->dobj_507__BINDER.obj_hash = 925692257; + cdat->dobj_507__BINDER.obj_hash = 148906718; cdat->dobj_507__BINDER.obj_len = 4; /*inistring dstr_508__BINDER*/ @@ -13882,7 +13900,7 @@ if (((void*)(MELT_PREDEF(CLASS_ENVIRONMENT))) != (melt_ptr_t)&cdat->dobj_473__CL if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_511__CLASS_EXPORTED_BINDING", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_511__CLASS_EXPORTED_BINDING.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_511__CLASS_EXPORTED_BINDING.obj_num = OBMAG_OBJECT; - cdat->dobj_511__CLASS_EXPORTED_BINDING.obj_hash = 502953595; + cdat->dobj_511__CLASS_EXPORTED_BINDING.obj_hash = 702853204; cdat->dobj_511__CLASS_EXPORTED_BINDING.obj_len = 8; /*inistring dstr_512__CLASS_EXPORTED_B*/ @@ -13918,7 +13936,7 @@ if (((void*)(MELT_PREDEF(CLASS_ENVIRONMENT))) != (melt_ptr_t)&cdat->dobj_473__CL if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_517__CLASS_MACRO_BINDING", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_517__CLASS_MACRO_BINDING.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_517__CLASS_MACRO_BINDING.obj_num = OBMAG_OBJECT; - cdat->dobj_517__CLASS_MACRO_BINDING.obj_hash = 807298109; + cdat->dobj_517__CLASS_MACRO_BINDING.obj_hash = 792588368; cdat->dobj_517__CLASS_MACRO_BINDING.obj_len = 8; /*inistring dstr_518__CLASS_MACRO_BIND*/ @@ -13954,7 +13972,7 @@ if (((void*)(MELT_PREDEF(CLASS_ENVIRONMENT))) != (melt_ptr_t)&cdat->dobj_473__CL if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_523__MBIND_EXPANSER", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_523__MBIND_EXPANSER.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_523__MBIND_EXPANSER.obj_num = 1; - cdat->dobj_523__MBIND_EXPANSER.obj_hash = 537653736; + cdat->dobj_523__MBIND_EXPANSER.obj_hash = 187749978; cdat->dobj_523__MBIND_EXPANSER.obj_len = 4; /*inistring dstr_524__MBIND_EXPANSER*/ @@ -13982,7 +14000,7 @@ if (((void*)(MELT_PREDEF(CLASS_ENVIRONMENT))) != (melt_ptr_t)&cdat->dobj_473__CL if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_527__CLASS_PATMACRO_BINDING", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_527__CLASS_PATMACRO_BINDING.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_527__CLASS_PATMACRO_BINDING.obj_num = OBMAG_OBJECT; - cdat->dobj_527__CLASS_PATMACRO_BINDING.obj_hash = 562101554; + cdat->dobj_527__CLASS_PATMACRO_BINDING.obj_hash = 583360428; cdat->dobj_527__CLASS_PATMACRO_BINDING.obj_len = 8; /*inistring dstr_528__CLASS_PATMACRO_B*/ @@ -14018,7 +14036,7 @@ if (((void*)(MELT_PREDEF(CLASS_ENVIRONMENT))) != (melt_ptr_t)&cdat->dobj_473__CL if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_533__PATBIND_EXPANSER", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_533__PATBIND_EXPANSER.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_533__PATBIND_EXPANSER.obj_num = 2; - cdat->dobj_533__PATBIND_EXPANSER.obj_hash = 548741700; + cdat->dobj_533__PATBIND_EXPANSER.obj_hash = 107416225; cdat->dobj_533__PATBIND_EXPANSER.obj_len = 4; /*inistring dstr_534__PATBIND_EXPANSER*/ @@ -14046,7 +14064,7 @@ if (((void*)(MELT_PREDEF(CLASS_ENVIRONMENT))) != (melt_ptr_t)&cdat->dobj_473__CL if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_537__CLASS_VALUE_BINDING", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_537__CLASS_VALUE_BINDING.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_537__CLASS_VALUE_BINDING.obj_num = OBMAG_OBJECT; - cdat->dobj_537__CLASS_VALUE_BINDING.obj_hash = 802443749; + cdat->dobj_537__CLASS_VALUE_BINDING.obj_hash = 9388830; cdat->dobj_537__CLASS_VALUE_BINDING.obj_len = 8; /*inistring dstr_538__CLASS_VALUE_BIND*/ @@ -14082,7 +14100,7 @@ if (((void*)(MELT_PREDEF(CLASS_ENVIRONMENT))) != (melt_ptr_t)&cdat->dobj_473__CL if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_543__VBIND_VALUE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_543__VBIND_VALUE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_543__VBIND_VALUE.obj_num = 1; - cdat->dobj_543__VBIND_VALUE.obj_hash = 917070612; + cdat->dobj_543__VBIND_VALUE.obj_hash = 1062201441; cdat->dobj_543__VBIND_VALUE.obj_len = 4; /*inistring dstr_544__VBIND_VALUE*/ @@ -14113,7 +14131,7 @@ if (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))) != (melt_ptr_t)&cdat->dobj_547_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_547__CLASS_FORMAL_BINDING", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_547__CLASS_FORMAL_BINDING.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_547__CLASS_FORMAL_BINDING.obj_num = OBMAG_OBJECT; - cdat->dobj_547__CLASS_FORMAL_BINDING.obj_hash = 725025894; + cdat->dobj_547__CLASS_FORMAL_BINDING.obj_hash = 201817951; cdat->dobj_547__CLASS_FORMAL_BINDING.obj_len = 8; /*inistring dstr_548__CLASS_FORMAL_BIN*/ @@ -14149,7 +14167,7 @@ if (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))) != (melt_ptr_t)&cdat->dobj_547_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_553__FBIND_TYPE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_553__FBIND_TYPE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_553__FBIND_TYPE.obj_num = 1; - cdat->dobj_553__FBIND_TYPE.obj_hash = 253997819; + cdat->dobj_553__FBIND_TYPE.obj_hash = 81258506; cdat->dobj_553__FBIND_TYPE.obj_len = 4; /*inistring dstr_554__FBIND_TYPE*/ @@ -14177,7 +14195,7 @@ if (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))) != (melt_ptr_t)&cdat->dobj_547_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_557__CLASS_FIXED_BINDING", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_557__CLASS_FIXED_BINDING.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_557__CLASS_FIXED_BINDING.obj_num = OBMAG_OBJECT; - cdat->dobj_557__CLASS_FIXED_BINDING.obj_hash = 251866078; + cdat->dobj_557__CLASS_FIXED_BINDING.obj_hash = 272425247; cdat->dobj_557__CLASS_FIXED_BINDING.obj_len = 8; /*inistring dstr_558__CLASS_FIXED_BIND*/ @@ -14213,7 +14231,7 @@ if (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))) != (melt_ptr_t)&cdat->dobj_547_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_563__FIXBIND_DATA", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_563__FIXBIND_DATA.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_563__FIXBIND_DATA.obj_num = 1; - cdat->dobj_563__FIXBIND_DATA.obj_hash = 288862054; + cdat->dobj_563__FIXBIND_DATA.obj_hash = 196211009; cdat->dobj_563__FIXBIND_DATA.obj_len = 4; /*inistring dstr_564__FIXBIND_DATA*/ @@ -14241,7 +14259,7 @@ if (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))) != (melt_ptr_t)&cdat->dobj_547_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_567__CLASS_SELECTOR_BINDING", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_567__CLASS_SELECTOR_BINDING.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_567__CLASS_SELECTOR_BINDING.obj_num = OBMAG_OBJECT; - cdat->dobj_567__CLASS_SELECTOR_BINDING.obj_hash = 571456332; + cdat->dobj_567__CLASS_SELECTOR_BINDING.obj_hash = 616879545; cdat->dobj_567__CLASS_SELECTOR_BINDING.obj_len = 8; /*inistring dstr_568__CLASS_SELECTOR_B*/ @@ -14277,7 +14295,7 @@ if (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))) != (melt_ptr_t)&cdat->dobj_547_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_573__SBIND_SELECTORDEF", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_573__SBIND_SELECTORDEF.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_573__SBIND_SELECTORDEF.obj_num = 2; - cdat->dobj_573__SBIND_SELECTORDEF.obj_hash = 549759018; + cdat->dobj_573__SBIND_SELECTORDEF.obj_hash = 936458490; cdat->dobj_573__SBIND_SELECTORDEF.obj_len = 4; /*inistring dstr_574__SBIND_SELECTORDE*/ @@ -14305,7 +14323,7 @@ if (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))) != (melt_ptr_t)&cdat->dobj_547_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_577__CLASS_PRIMITIVE_BINDING", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_577__CLASS_PRIMITIVE_BINDING.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_577__CLASS_PRIMITIVE_BINDING.obj_num = OBMAG_OBJECT; - cdat->dobj_577__CLASS_PRIMITIVE_BINDING.obj_hash = 1060462370; + cdat->dobj_577__CLASS_PRIMITIVE_BINDING.obj_hash = 893513419; cdat->dobj_577__CLASS_PRIMITIVE_BINDING.obj_len = 8; /*inistring dstr_578__CLASS_PRIMITIVE_*/ @@ -14341,7 +14359,7 @@ if (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))) != (melt_ptr_t)&cdat->dobj_547_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_583__PBIND_PRIMDEF", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_583__PBIND_PRIMDEF.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_583__PBIND_PRIMDEF.obj_num = 2; - cdat->dobj_583__PBIND_PRIMDEF.obj_hash = 577437823; + cdat->dobj_583__PBIND_PRIMDEF.obj_hash = 773428020; cdat->dobj_583__PBIND_PRIMDEF.obj_len = 4; /*inistring dstr_584__PBIND_PRIMDEF*/ @@ -14369,7 +14387,7 @@ if (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))) != (melt_ptr_t)&cdat->dobj_547_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_587__PBIND_PRIMITIVE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_587__PBIND_PRIMITIVE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_587__PBIND_PRIMITIVE.obj_num = 3; - cdat->dobj_587__PBIND_PRIMITIVE.obj_hash = 82813217; + cdat->dobj_587__PBIND_PRIMITIVE.obj_hash = 66577681; cdat->dobj_587__PBIND_PRIMITIVE.obj_len = 4; /*inistring dstr_588__PBIND_PRIMITIVE*/ @@ -14397,7 +14415,7 @@ if (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))) != (melt_ptr_t)&cdat->dobj_547_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_591__CLASS_CITERATOR_BINDING", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_591__CLASS_CITERATOR_BINDING.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_591__CLASS_CITERATOR_BINDING.obj_num = OBMAG_OBJECT; - cdat->dobj_591__CLASS_CITERATOR_BINDING.obj_hash = 1017911132; + cdat->dobj_591__CLASS_CITERATOR_BINDING.obj_hash = 876660547; cdat->dobj_591__CLASS_CITERATOR_BINDING.obj_len = 8; /*inistring dstr_592__CLASS_CITERATOR_*/ @@ -14433,7 +14451,7 @@ if (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))) != (melt_ptr_t)&cdat->dobj_547_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_597__CBIND_CITERDEF", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_597__CBIND_CITERDEF.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_597__CBIND_CITERDEF.obj_num = 2; - cdat->dobj_597__CBIND_CITERDEF.obj_hash = 135333904; + cdat->dobj_597__CBIND_CITERDEF.obj_hash = 715713542; cdat->dobj_597__CBIND_CITERDEF.obj_len = 4; /*inistring dstr_598__CBIND_CITERDEF*/ @@ -14461,7 +14479,7 @@ if (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))) != (melt_ptr_t)&cdat->dobj_547_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_601__CBIND_CITERATOR", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_601__CBIND_CITERATOR.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_601__CBIND_CITERATOR.obj_num = 3; - cdat->dobj_601__CBIND_CITERATOR.obj_hash = 501470871; + cdat->dobj_601__CBIND_CITERATOR.obj_hash = 849291015; cdat->dobj_601__CBIND_CITERATOR.obj_len = 4; /*inistring dstr_602__CBIND_CITERATOR*/ @@ -14489,7 +14507,7 @@ if (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))) != (melt_ptr_t)&cdat->dobj_547_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_605__CLASS_FUNCTION_BINDING", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_605__CLASS_FUNCTION_BINDING.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_605__CLASS_FUNCTION_BINDING.obj_num = OBMAG_OBJECT; - cdat->dobj_605__CLASS_FUNCTION_BINDING.obj_hash = 448004164; + cdat->dobj_605__CLASS_FUNCTION_BINDING.obj_hash = 399598992; cdat->dobj_605__CLASS_FUNCTION_BINDING.obj_len = 8; /*inistring dstr_606__CLASS_FUNCTION_B*/ @@ -14525,7 +14543,7 @@ if (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))) != (melt_ptr_t)&cdat->dobj_547_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_611__FUBIND_DEFUN", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_611__FUBIND_DEFUN.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_611__FUBIND_DEFUN.obj_num = 2; - cdat->dobj_611__FUBIND_DEFUN.obj_hash = 777708193; + cdat->dobj_611__FUBIND_DEFUN.obj_hash = 301581849; cdat->dobj_611__FUBIND_DEFUN.obj_len = 4; /*inistring dstr_612__FUBIND_DEFUN*/ @@ -14553,7 +14571,7 @@ if (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))) != (melt_ptr_t)&cdat->dobj_547_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_615__CLASS_CLASS_BINDING", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_615__CLASS_CLASS_BINDING.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_615__CLASS_CLASS_BINDING.obj_num = OBMAG_OBJECT; - cdat->dobj_615__CLASS_CLASS_BINDING.obj_hash = 363623413; + cdat->dobj_615__CLASS_CLASS_BINDING.obj_hash = 166031012; cdat->dobj_615__CLASS_CLASS_BINDING.obj_len = 8; /*inistring dstr_616__CLASS_CLASS_BIND*/ @@ -14589,7 +14607,7 @@ if (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))) != (melt_ptr_t)&cdat->dobj_547_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_621__CBIND_DEFCLASS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_621__CBIND_DEFCLASS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_621__CBIND_DEFCLASS.obj_num = 2; - cdat->dobj_621__CBIND_DEFCLASS.obj_hash = 79316208; + cdat->dobj_621__CBIND_DEFCLASS.obj_hash = 566091495; cdat->dobj_621__CBIND_DEFCLASS.obj_len = 4; /*inistring dstr_622__CBIND_DEFCLASS*/ @@ -14617,7 +14635,7 @@ if (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))) != (melt_ptr_t)&cdat->dobj_547_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_625__CBIND_CLASS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_625__CBIND_CLASS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_625__CBIND_CLASS.obj_num = 3; - cdat->dobj_625__CBIND_CLASS.obj_hash = 361476443; + cdat->dobj_625__CBIND_CLASS.obj_hash = 362637334; cdat->dobj_625__CBIND_CLASS.obj_len = 4; /*inistring dstr_626__CBIND_CLASS*/ @@ -14645,7 +14663,7 @@ if (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))) != (melt_ptr_t)&cdat->dobj_547_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_629__CLASS_FIELD_BINDING", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_629__CLASS_FIELD_BINDING.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_629__CLASS_FIELD_BINDING.obj_num = OBMAG_OBJECT; - cdat->dobj_629__CLASS_FIELD_BINDING.obj_hash = 371576082; + cdat->dobj_629__CLASS_FIELD_BINDING.obj_hash = 762359395; cdat->dobj_629__CLASS_FIELD_BINDING.obj_len = 8; /*inistring dstr_630__CLASS_FIELD_BIND*/ @@ -14681,7 +14699,7 @@ if (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))) != (melt_ptr_t)&cdat->dobj_547_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_635__FLBIND_CLABIND", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_635__FLBIND_CLABIND.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_635__FLBIND_CLABIND.obj_num = 2; - cdat->dobj_635__FLBIND_CLABIND.obj_hash = 900274960; + cdat->dobj_635__FLBIND_CLABIND.obj_hash = 43063971; cdat->dobj_635__FLBIND_CLABIND.obj_len = 4; /*inistring dstr_636__FLBIND_CLABIND*/ @@ -14709,7 +14727,7 @@ if (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))) != (melt_ptr_t)&cdat->dobj_547_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_639__FLBIND_FIELD", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_639__FLBIND_FIELD.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_639__FLBIND_FIELD.obj_num = 3; - cdat->dobj_639__FLBIND_FIELD.obj_hash = 465902310; + cdat->dobj_639__FLBIND_FIELD.obj_hash = 540256891; cdat->dobj_639__FLBIND_FIELD.obj_len = 4; /*inistring dstr_640__FLBIND_FIELD*/ @@ -14737,7 +14755,7 @@ if (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))) != (melt_ptr_t)&cdat->dobj_547_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_643__CLASS_INSTANCE_BINDING", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_643__CLASS_INSTANCE_BINDING.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_643__CLASS_INSTANCE_BINDING.obj_num = OBMAG_OBJECT; - cdat->dobj_643__CLASS_INSTANCE_BINDING.obj_hash = 699644916; + cdat->dobj_643__CLASS_INSTANCE_BINDING.obj_hash = 706569219; cdat->dobj_643__CLASS_INSTANCE_BINDING.obj_len = 8; /*inistring dstr_644__CLASS_INSTANCE_B*/ @@ -14773,7 +14791,7 @@ if (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))) != (melt_ptr_t)&cdat->dobj_547_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_649__IBIND_ICLASS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_649__IBIND_ICLASS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_649__IBIND_ICLASS.obj_num = 2; - cdat->dobj_649__IBIND_ICLASS.obj_hash = 1001076517; + cdat->dobj_649__IBIND_ICLASS.obj_hash = 824565020; cdat->dobj_649__IBIND_ICLASS.obj_len = 4; /*inistring dstr_650__IBIND_ICLASS*/ @@ -14801,7 +14819,7 @@ if (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))) != (melt_ptr_t)&cdat->dobj_547_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_653__CLASS_CMATCHER_BINDING", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_653__CLASS_CMATCHER_BINDING.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_653__CLASS_CMATCHER_BINDING.obj_num = OBMAG_OBJECT; - cdat->dobj_653__CLASS_CMATCHER_BINDING.obj_hash = 720773218; + cdat->dobj_653__CLASS_CMATCHER_BINDING.obj_hash = 502249722; cdat->dobj_653__CLASS_CMATCHER_BINDING.obj_len = 8; /*inistring dstr_654__CLASS_CMATCHER_B*/ @@ -14837,7 +14855,7 @@ if (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))) != (melt_ptr_t)&cdat->dobj_547_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_659__CMBIND_MATCHER", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_659__CMBIND_MATCHER.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_659__CMBIND_MATCHER.obj_num = 2; - cdat->dobj_659__CMBIND_MATCHER.obj_hash = 1001999505; + cdat->dobj_659__CMBIND_MATCHER.obj_hash = 20837873; cdat->dobj_659__CMBIND_MATCHER.obj_len = 4; /*inistring dstr_660__CMBIND_MATCHER*/ @@ -14865,7 +14883,7 @@ if (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))) != (melt_ptr_t)&cdat->dobj_547_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_663__CLASS_FUNMATCHER_BINDING", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_663__CLASS_FUNMATCHER_BINDING.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_663__CLASS_FUNMATCHER_BINDING.obj_num = OBMAG_OBJECT; - cdat->dobj_663__CLASS_FUNMATCHER_BINDING.obj_hash = 650495494; + cdat->dobj_663__CLASS_FUNMATCHER_BINDING.obj_hash = 369811216; cdat->dobj_663__CLASS_FUNMATCHER_BINDING.obj_len = 8; /*inistring dstr_664__CLASS_FUNMATCHER*/ @@ -14901,7 +14919,7 @@ if (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))) != (melt_ptr_t)&cdat->dobj_547_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_669__FMBIND_FUNMATCHER", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_669__FMBIND_FUNMATCHER.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_669__FMBIND_FUNMATCHER.obj_num = 2; - cdat->dobj_669__FMBIND_FUNMATCHER.obj_hash = 54202366; + cdat->dobj_669__FMBIND_FUNMATCHER.obj_hash = 672914600; cdat->dobj_669__FMBIND_FUNMATCHER.obj_len = 4; /*inistring dstr_670__FMBIND_FUNMATCHE*/ @@ -14929,7 +14947,7 @@ if (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))) != (melt_ptr_t)&cdat->dobj_547_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_673__FMBIND_DEFUNMATCHER", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_673__FMBIND_DEFUNMATCHER.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_673__FMBIND_DEFUNMATCHER.obj_num = 3; - cdat->dobj_673__FMBIND_DEFUNMATCHER.obj_hash = 865815102; + cdat->dobj_673__FMBIND_DEFUNMATCHER.obj_hash = 905615493; cdat->dobj_673__FMBIND_DEFUNMATCHER.obj_len = 4; /*inistring dstr_674__FMBIND_DEFUNMATC*/ @@ -14957,7 +14975,7 @@ if (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))) != (melt_ptr_t)&cdat->dobj_547_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_677__CLASS_LET_BINDING", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_677__CLASS_LET_BINDING.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_677__CLASS_LET_BINDING.obj_num = OBMAG_OBJECT; - cdat->dobj_677__CLASS_LET_BINDING.obj_hash = 435062923; + cdat->dobj_677__CLASS_LET_BINDING.obj_hash = 1062007968; cdat->dobj_677__CLASS_LET_BINDING.obj_len = 8; /*inistring dstr_678__CLASS_LET_BINDIN*/ @@ -14993,7 +15011,7 @@ if (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))) != (melt_ptr_t)&cdat->dobj_547_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_683__LETBIND_TYPE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_683__LETBIND_TYPE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_683__LETBIND_TYPE.obj_num = 1; - cdat->dobj_683__LETBIND_TYPE.obj_hash = 783910207; + cdat->dobj_683__LETBIND_TYPE.obj_hash = 251211923; cdat->dobj_683__LETBIND_TYPE.obj_len = 4; /*inistring dstr_684__LETBIND_TYPE*/ @@ -15021,7 +15039,7 @@ if (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))) != (melt_ptr_t)&cdat->dobj_547_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_687__LETBIND_EXPR", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_687__LETBIND_EXPR.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_687__LETBIND_EXPR.obj_num = 2; - cdat->dobj_687__LETBIND_EXPR.obj_hash = 241230177; + cdat->dobj_687__LETBIND_EXPR.obj_hash = 268724066; cdat->dobj_687__LETBIND_EXPR.obj_len = 4; /*inistring dstr_688__LETBIND_EXPR*/ @@ -15049,7 +15067,7 @@ if (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))) != (melt_ptr_t)&cdat->dobj_547_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_691__LETBIND_LOC", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_691__LETBIND_LOC.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_691__LETBIND_LOC.obj_num = 3; - cdat->dobj_691__LETBIND_LOC.obj_hash = 201981717; + cdat->dobj_691__LETBIND_LOC.obj_hash = 542378833; cdat->dobj_691__LETBIND_LOC.obj_len = 4; /*inistring dstr_692__LETBIND_LOC*/ @@ -15077,7 +15095,7 @@ if (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))) != (melt_ptr_t)&cdat->dobj_547_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_695__CLASS_LETREC_BINDING", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_695__CLASS_LETREC_BINDING.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_695__CLASS_LETREC_BINDING.obj_num = OBMAG_OBJECT; - cdat->dobj_695__CLASS_LETREC_BINDING.obj_hash = 196449708; + cdat->dobj_695__CLASS_LETREC_BINDING.obj_hash = 615943584; cdat->dobj_695__CLASS_LETREC_BINDING.obj_len = 8; /*inistring dstr_696__CLASS_LETREC_BIN*/ @@ -15113,7 +15131,7 @@ if (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))) != (melt_ptr_t)&cdat->dobj_547_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_701__CLASS_NORMAL_LET_BINDING", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_701__CLASS_NORMAL_LET_BINDING.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_701__CLASS_NORMAL_LET_BINDING.obj_num = OBMAG_OBJECT; - cdat->dobj_701__CLASS_NORMAL_LET_BINDING.obj_hash = 587531444; + cdat->dobj_701__CLASS_NORMAL_LET_BINDING.obj_hash = 66768550; cdat->dobj_701__CLASS_NORMAL_LET_BINDING.obj_len = 8; /*inistring dstr_702__CLASS_NORMAL_LET*/ @@ -15149,7 +15167,7 @@ if (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))) != (melt_ptr_t)&cdat->dobj_547_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_707__CLASS_LABEL_BINDING", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_707__CLASS_LABEL_BINDING.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_707__CLASS_LABEL_BINDING.obj_num = OBMAG_OBJECT; - cdat->dobj_707__CLASS_LABEL_BINDING.obj_hash = 1064449394; + cdat->dobj_707__CLASS_LABEL_BINDING.obj_hash = 568072603; cdat->dobj_707__CLASS_LABEL_BINDING.obj_len = 8; /*inistring dstr_708__CLASS_LABEL_BIND*/ @@ -15185,7 +15203,7 @@ if (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))) != (melt_ptr_t)&cdat->dobj_547_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_713__LABIND_LOC", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_713__LABIND_LOC.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_713__LABIND_LOC.obj_num = 1; - cdat->dobj_713__LABIND_LOC.obj_hash = 171584172; + cdat->dobj_713__LABIND_LOC.obj_hash = 666645234; cdat->dobj_713__LABIND_LOC.obj_len = 4; /*inistring dstr_714__LABIND_LOC*/ @@ -15213,7 +15231,7 @@ if (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))) != (melt_ptr_t)&cdat->dobj_547_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_717__LABIND_CLONSY", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_717__LABIND_CLONSY.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_717__LABIND_CLONSY.obj_num = 2; - cdat->dobj_717__LABIND_CLONSY.obj_hash = 415529863; + cdat->dobj_717__LABIND_CLONSY.obj_hash = 435206833; cdat->dobj_717__LABIND_CLONSY.obj_len = 4; /*inistring dstr_718__LABIND_CLONSY*/ @@ -15241,7 +15259,7 @@ if (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))) != (melt_ptr_t)&cdat->dobj_547_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_721__LABIND_RES", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_721__LABIND_RES.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_721__LABIND_RES.obj_num = 3; - cdat->dobj_721__LABIND_RES.obj_hash = 142686789; + cdat->dobj_721__LABIND_RES.obj_hash = 160042221; cdat->dobj_721__LABIND_RES.obj_len = 4; /*inistring dstr_722__LABIND_RES*/ @@ -15272,7 +15290,7 @@ if (((void*)(MELT_PREDEF(CLASS_GCC_PASS))) != (melt_ptr_t)&cdat->dobj_725__CLASS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_725__CLASS_GCC_PASS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_725__CLASS_GCC_PASS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_725__CLASS_GCC_PASS.obj_num = OBMAG_OBJECT; - cdat->dobj_725__CLASS_GCC_PASS.obj_hash = 559103323; + cdat->dobj_725__CLASS_GCC_PASS.obj_hash = 928730506; cdat->dobj_725__CLASS_GCC_PASS.obj_len = 8; /*inistring dstr_726__CLASS_GCC_PASS*/ @@ -15308,7 +15326,7 @@ if (((void*)(MELT_PREDEF(CLASS_GCC_PASS))) != (melt_ptr_t)&cdat->dobj_725__CLASS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_731__GCCPASS_GATE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_731__GCCPASS_GATE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_731__GCCPASS_GATE.obj_num = 2; - cdat->dobj_731__GCCPASS_GATE.obj_hash = 643137985; + cdat->dobj_731__GCCPASS_GATE.obj_hash = 972646773; cdat->dobj_731__GCCPASS_GATE.obj_len = 4; /*inistring dstr_732__GCCPASS_GATE*/ @@ -15336,7 +15354,7 @@ if (((void*)(MELT_PREDEF(CLASS_GCC_PASS))) != (melt_ptr_t)&cdat->dobj_725__CLASS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_735__GCCPASS_EXEC", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_735__GCCPASS_EXEC.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_735__GCCPASS_EXEC.obj_num = 3; - cdat->dobj_735__GCCPASS_EXEC.obj_hash = 665411924; + cdat->dobj_735__GCCPASS_EXEC.obj_hash = 1003234240; cdat->dobj_735__GCCPASS_EXEC.obj_len = 4; /*inistring dstr_736__GCCPASS_EXEC*/ @@ -15364,7 +15382,7 @@ if (((void*)(MELT_PREDEF(CLASS_GCC_PASS))) != (melt_ptr_t)&cdat->dobj_725__CLASS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_739__GCCPASS_DATA", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_739__GCCPASS_DATA.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_739__GCCPASS_DATA.obj_num = 4; - cdat->dobj_739__GCCPASS_DATA.obj_hash = 144215983; + cdat->dobj_739__GCCPASS_DATA.obj_hash = 622957275; cdat->dobj_739__GCCPASS_DATA.obj_len = 4; /*inistring dstr_740__GCCPASS_DATA*/ @@ -15392,7 +15410,7 @@ if (((void*)(MELT_PREDEF(CLASS_GCC_PASS))) != (melt_ptr_t)&cdat->dobj_725__CLASS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_743__GCCPASS_PROPERTIES_REQUIRED", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_743__GCCPASS_PROPERTIES_REQUIRED.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_743__GCCPASS_PROPERTIES_REQUIRED.obj_num = 5; - cdat->dobj_743__GCCPASS_PROPERTIES_REQUIRED.obj_hash = 398610406; + cdat->dobj_743__GCCPASS_PROPERTIES_REQUIRED.obj_hash = 75750187; cdat->dobj_743__GCCPASS_PROPERTIES_REQUIRED.obj_len = 4; /*inistring dstr_744__GCCPASS_PROPERTI*/ @@ -15420,7 +15438,7 @@ if (((void*)(MELT_PREDEF(CLASS_GCC_PASS))) != (melt_ptr_t)&cdat->dobj_725__CLASS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_747__GCCPASS_PROPERTIES_PROVIDED", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_747__GCCPASS_PROPERTIES_PROVIDED.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_747__GCCPASS_PROPERTIES_PROVIDED.obj_num = 6; - cdat->dobj_747__GCCPASS_PROPERTIES_PROVIDED.obj_hash = 245781524; + cdat->dobj_747__GCCPASS_PROPERTIES_PROVIDED.obj_hash = 844824677; cdat->dobj_747__GCCPASS_PROPERTIES_PROVIDED.obj_len = 4; /*inistring dstr_748__GCCPASS_PROPERTI*/ @@ -15448,7 +15466,7 @@ if (((void*)(MELT_PREDEF(CLASS_GCC_PASS))) != (melt_ptr_t)&cdat->dobj_725__CLASS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_751__GCCPASS_PROPERTIES_DESTROYED", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_751__GCCPASS_PROPERTIES_DESTROYED.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_751__GCCPASS_PROPERTIES_DESTROYED.obj_num = 7; - cdat->dobj_751__GCCPASS_PROPERTIES_DESTROYED.obj_hash = 845920141; + cdat->dobj_751__GCCPASS_PROPERTIES_DESTROYED.obj_hash = 1070048060; cdat->dobj_751__GCCPASS_PROPERTIES_DESTROYED.obj_len = 4; /*inistring dstr_752__GCCPASS_PROPERTI*/ @@ -15476,7 +15494,7 @@ if (((void*)(MELT_PREDEF(CLASS_GCC_PASS))) != (melt_ptr_t)&cdat->dobj_725__CLASS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_755__GCCPASS_TODO_FLAGS_START", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_755__GCCPASS_TODO_FLAGS_START.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_755__GCCPASS_TODO_FLAGS_START.obj_num = 8; - cdat->dobj_755__GCCPASS_TODO_FLAGS_START.obj_hash = 877258070; + cdat->dobj_755__GCCPASS_TODO_FLAGS_START.obj_hash = 1019302941; cdat->dobj_755__GCCPASS_TODO_FLAGS_START.obj_len = 4; /*inistring dstr_756__GCCPASS_TODO_FLA*/ @@ -15504,7 +15522,7 @@ if (((void*)(MELT_PREDEF(CLASS_GCC_PASS))) != (melt_ptr_t)&cdat->dobj_725__CLASS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_759__GCCPASS_TODO_FLAGS_FINISH", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_759__GCCPASS_TODO_FLAGS_FINISH.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_759__GCCPASS_TODO_FLAGS_FINISH.obj_num = 9; - cdat->dobj_759__GCCPASS_TODO_FLAGS_FINISH.obj_hash = 621117931; + cdat->dobj_759__GCCPASS_TODO_FLAGS_FINISH.obj_hash = 267387385; cdat->dobj_759__GCCPASS_TODO_FLAGS_FINISH.obj_len = 4; /*inistring dstr_760__GCCPASS_TODO_FLA*/ @@ -15535,7 +15553,7 @@ if (((void*)(MELT_PREDEF(CLASS_GCC_GIMPLE_PASS))) != (melt_ptr_t)&cdat->dobj_763 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_763__CLASS_GCC_GIMPLE_PASS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_763__CLASS_GCC_GIMPLE_PASS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_763__CLASS_GCC_GIMPLE_PASS.obj_num = OBMAG_OBJECT; - cdat->dobj_763__CLASS_GCC_GIMPLE_PASS.obj_hash = 114495746; + cdat->dobj_763__CLASS_GCC_GIMPLE_PASS.obj_hash = 587843169; cdat->dobj_763__CLASS_GCC_GIMPLE_PASS.obj_len = 8; /*inistring dstr_764__CLASS_GCC_GIMPLE*/ @@ -15574,7 +15592,7 @@ if (((void*)(MELT_PREDEF(CLASS_GCC_RTL_PASS))) != (melt_ptr_t)&cdat->dobj_769__C if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_769__CLASS_GCC_RTL_PASS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_769__CLASS_GCC_RTL_PASS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_769__CLASS_GCC_RTL_PASS.obj_num = OBMAG_OBJECT; - cdat->dobj_769__CLASS_GCC_RTL_PASS.obj_hash = 103328814; + cdat->dobj_769__CLASS_GCC_RTL_PASS.obj_hash = 952613360; cdat->dobj_769__CLASS_GCC_RTL_PASS.obj_len = 8; /*inistring dstr_770__CLASS_GCC_RTL_PA*/ @@ -15613,7 +15631,7 @@ if (((void*)(MELT_PREDEF(CLASS_GCC_SIMPLE_IPA_PASS))) != (melt_ptr_t)&cdat->dobj if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_775__CLASS_GCC_SIMPLE_IPA_PASS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_775__CLASS_GCC_SIMPLE_IPA_PASS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_775__CLASS_GCC_SIMPLE_IPA_PASS.obj_num = OBMAG_OBJECT; - cdat->dobj_775__CLASS_GCC_SIMPLE_IPA_PASS.obj_hash = 249546552; + cdat->dobj_775__CLASS_GCC_SIMPLE_IPA_PASS.obj_hash = 442692539; cdat->dobj_775__CLASS_GCC_SIMPLE_IPA_PASS.obj_len = 8; /*inistring dstr_776__CLASS_GCC_SIMPLE*/ @@ -15652,7 +15670,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_781__CLASS_MELT_MODE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_781__CLASS_MELT_MODE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_781__CLASS_MELT_MODE.obj_num = OBMAG_OBJECT; - cdat->dobj_781__CLASS_MELT_MODE.obj_hash = 138650382; + cdat->dobj_781__CLASS_MELT_MODE.obj_hash = 121772264; cdat->dobj_781__CLASS_MELT_MODE.obj_len = 8; /*inistring dstr_782__CLASS_MELT_MODE*/ @@ -15688,7 +15706,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_787__MELTMODE_HELP", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_787__MELTMODE_HELP.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_787__MELTMODE_HELP.obj_num = 2; - cdat->dobj_787__MELTMODE_HELP.obj_hash = 308237295; + cdat->dobj_787__MELTMODE_HELP.obj_hash = 523043049; cdat->dobj_787__MELTMODE_HELP.obj_len = 4; /*inistring dstr_788__MELTMODE_HELP*/ @@ -15716,7 +15734,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_791__MELTMODE_FUN", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_791__MELTMODE_FUN.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_791__MELTMODE_FUN.obj_num = 3; - cdat->dobj_791__MELTMODE_FUN.obj_hash = 825147968; + cdat->dobj_791__MELTMODE_FUN.obj_hash = 13406656; cdat->dobj_791__MELTMODE_FUN.obj_len = 4; /*inistring dstr_792__MELTMODE_FUN*/ @@ -15744,7 +15762,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_795__MELTMODE_DATA", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_795__MELTMODE_DATA.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_795__MELTMODE_DATA.obj_num = 4; - cdat->dobj_795__MELTMODE_DATA.obj_hash = 510898881; + cdat->dobj_795__MELTMODE_DATA.obj_hash = 1034587842; cdat->dobj_795__MELTMODE_DATA.obj_len = 4; /*inistring dstr_796__MELTMODE_DATA*/ @@ -15772,7 +15790,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_799__CLASS_SOURCE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_799__CLASS_SOURCE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_799__CLASS_SOURCE.obj_num = OBMAG_OBJECT; - cdat->dobj_799__CLASS_SOURCE.obj_hash = 167128756; + cdat->dobj_799__CLASS_SOURCE.obj_hash = 651531955; cdat->dobj_799__CLASS_SOURCE.obj_len = 8; /*inistring dstr_800__CLASS_SOURCE*/ @@ -15808,7 +15826,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_805__CLASS_MODULE_CONTEXT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_805__CLASS_MODULE_CONTEXT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_805__CLASS_MODULE_CONTEXT.obj_num = OBMAG_OBJECT; - cdat->dobj_805__CLASS_MODULE_CONTEXT.obj_hash = 186058465; + cdat->dobj_805__CLASS_MODULE_CONTEXT.obj_hash = 51568445; cdat->dobj_805__CLASS_MODULE_CONTEXT.obj_len = 8; /*inistring dstr_806__CLASS_MODULE_CON*/ @@ -15844,7 +15862,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_811__MOCX_MODULENAME", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_811__MOCX_MODULENAME.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_811__MOCX_MODULENAME.obj_num = 0; - cdat->dobj_811__MOCX_MODULENAME.obj_hash = 887663247; + cdat->dobj_811__MOCX_MODULENAME.obj_hash = 78331219; cdat->dobj_811__MOCX_MODULENAME.obj_len = 4; /*inistring dstr_812__MOCX_MODULENAME*/ @@ -15872,7 +15890,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_815__MOCX_EXPFIELDICT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_815__MOCX_EXPFIELDICT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_815__MOCX_EXPFIELDICT.obj_num = 1; - cdat->dobj_815__MOCX_EXPFIELDICT.obj_hash = 960933486; + cdat->dobj_815__MOCX_EXPFIELDICT.obj_hash = 410234903; cdat->dobj_815__MOCX_EXPFIELDICT.obj_len = 4; /*inistring dstr_816__MOCX_EXPFIELDICT*/ @@ -15900,7 +15918,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_819__MOCX_EXPCLASSDICT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_819__MOCX_EXPCLASSDICT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_819__MOCX_EXPCLASSDICT.obj_num = 2; - cdat->dobj_819__MOCX_EXPCLASSDICT.obj_hash = 179656311; + cdat->dobj_819__MOCX_EXPCLASSDICT.obj_hash = 950623088; cdat->dobj_819__MOCX_EXPCLASSDICT.obj_len = 4; /*inistring dstr_820__MOCX_EXPCLASSDIC*/ @@ -15928,7 +15946,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_823__MOCX_INITIALENV", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_823__MOCX_INITIALENV.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_823__MOCX_INITIALENV.obj_num = 3; - cdat->dobj_823__MOCX_INITIALENV.obj_hash = 279167517; + cdat->dobj_823__MOCX_INITIALENV.obj_hash = 744254323; cdat->dobj_823__MOCX_INITIALENV.obj_len = 4; /*inistring dstr_824__MOCX_INITIALENV*/ @@ -15956,7 +15974,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_827__MOCX_FUNCOUNT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_827__MOCX_FUNCOUNT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_827__MOCX_FUNCOUNT.obj_num = 4; - cdat->dobj_827__MOCX_FUNCOUNT.obj_hash = 913163077; + cdat->dobj_827__MOCX_FUNCOUNT.obj_hash = 249956347; cdat->dobj_827__MOCX_FUNCOUNT.obj_len = 4; /*inistring dstr_828__MOCX_FUNCOUNT*/ @@ -15984,7 +16002,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_831__MOCX_FILETUPLE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_831__MOCX_FILETUPLE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_831__MOCX_FILETUPLE.obj_num = 5; - cdat->dobj_831__MOCX_FILETUPLE.obj_hash = 425228025; + cdat->dobj_831__MOCX_FILETUPLE.obj_hash = 886770897; cdat->dobj_831__MOCX_FILETUPLE.obj_len = 4; /*inistring dstr_832__MOCX_FILETUPLE*/ @@ -16012,7 +16030,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_835__CLASS_NORMALIZATION_CONTEXT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_835__CLASS_NORMALIZATION_CONTEXT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_835__CLASS_NORMALIZATION_CONTEXT.obj_num = OBMAG_OBJECT; - cdat->dobj_835__CLASS_NORMALIZATION_CONTEXT.obj_hash = 923195815; + cdat->dobj_835__CLASS_NORMALIZATION_CONTEXT.obj_hash = 386467962; cdat->dobj_835__CLASS_NORMALIZATION_CONTEXT.obj_len = 8; /*inistring dstr_836__CLASS_NORMALIZAT*/ @@ -16048,7 +16066,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_841__NCTX_INITPROC", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_841__NCTX_INITPROC.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_841__NCTX_INITPROC.obj_num = 0; - cdat->dobj_841__NCTX_INITPROC.obj_hash = 1047855692; + cdat->dobj_841__NCTX_INITPROC.obj_hash = 121093192; cdat->dobj_841__NCTX_INITPROC.obj_len = 4; /*inistring dstr_842__NCTX_INITPROC*/ @@ -16076,7 +16094,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_845__NCTX_PROCLIST", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_845__NCTX_PROCLIST.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_845__NCTX_PROCLIST.obj_num = 1; - cdat->dobj_845__NCTX_PROCLIST.obj_hash = 699952763; + cdat->dobj_845__NCTX_PROCLIST.obj_hash = 425960589; cdat->dobj_845__NCTX_PROCLIST.obj_len = 4; /*inistring dstr_846__NCTX_PROCLIST*/ @@ -16104,7 +16122,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_849__NCTX_DATALIST", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_849__NCTX_DATALIST.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_849__NCTX_DATALIST.obj_num = 2; - cdat->dobj_849__NCTX_DATALIST.obj_hash = 982618383; + cdat->dobj_849__NCTX_DATALIST.obj_hash = 817441558; cdat->dobj_849__NCTX_DATALIST.obj_len = 4; /*inistring dstr_850__NCTX_DATALIST*/ @@ -16132,7 +16150,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_853__NCTX_VALUELIST", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_853__NCTX_VALUELIST.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_853__NCTX_VALUELIST.obj_num = 3; - cdat->dobj_853__NCTX_VALUELIST.obj_hash = 786499793; + cdat->dobj_853__NCTX_VALUELIST.obj_hash = 171447823; cdat->dobj_853__NCTX_VALUELIST.obj_len = 4; /*inistring dstr_854__NCTX_VALUELIST*/ @@ -16160,7 +16178,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_857__NCTX_SYMBMAP", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_857__NCTX_SYMBMAP.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_857__NCTX_SYMBMAP.obj_num = 4; - cdat->dobj_857__NCTX_SYMBMAP.obj_hash = 413501066; + cdat->dobj_857__NCTX_SYMBMAP.obj_hash = 925921993; cdat->dobj_857__NCTX_SYMBMAP.obj_len = 4; /*inistring dstr_858__NCTX_SYMBMAP*/ @@ -16188,7 +16206,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_861__NCTX_KEYWMAP", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_861__NCTX_KEYWMAP.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_861__NCTX_KEYWMAP.obj_num = 5; - cdat->dobj_861__NCTX_KEYWMAP.obj_hash = 755620976; + cdat->dobj_861__NCTX_KEYWMAP.obj_hash = 447792959; cdat->dobj_861__NCTX_KEYWMAP.obj_len = 4; /*inistring dstr_862__NCTX_KEYWMAP*/ @@ -16216,7 +16234,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_865__NCTX_SYMBCACHEMAP", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_865__NCTX_SYMBCACHEMAP.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_865__NCTX_SYMBCACHEMAP.obj_num = 6; - cdat->dobj_865__NCTX_SYMBCACHEMAP.obj_hash = 392274313; + cdat->dobj_865__NCTX_SYMBCACHEMAP.obj_hash = 522020206; cdat->dobj_865__NCTX_SYMBCACHEMAP.obj_len = 4; /*inistring dstr_866__NCTX_SYMBCACHEMA*/ @@ -16244,7 +16262,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_869__NCTX_PREDEFMAP", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_869__NCTX_PREDEFMAP.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_869__NCTX_PREDEFMAP.obj_num = 7; - cdat->dobj_869__NCTX_PREDEFMAP.obj_hash = 251127720; + cdat->dobj_869__NCTX_PREDEFMAP.obj_hash = 602483280; cdat->dobj_869__NCTX_PREDEFMAP.obj_len = 4; /*inistring dstr_870__NCTX_PREDEFMAP*/ @@ -16272,7 +16290,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_873__NCTX_VALMAP", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_873__NCTX_VALMAP.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_873__NCTX_VALMAP.obj_num = 8; - cdat->dobj_873__NCTX_VALMAP.obj_hash = 829555693; + cdat->dobj_873__NCTX_VALMAP.obj_hash = 212308439; cdat->dobj_873__NCTX_VALMAP.obj_len = 4; /*inistring dstr_874__NCTX_VALMAP*/ @@ -16300,7 +16318,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_877__NCTX_VALBINDMAP", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_877__NCTX_VALBINDMAP.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_877__NCTX_VALBINDMAP.obj_num = 9; - cdat->dobj_877__NCTX_VALBINDMAP.obj_hash = 769040303; + cdat->dobj_877__NCTX_VALBINDMAP.obj_hash = 503628273; cdat->dobj_877__NCTX_VALBINDMAP.obj_len = 4; /*inistring dstr_878__NCTX_VALBINDMAP*/ @@ -16328,7 +16346,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_881__NCTX_CURPROC", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_881__NCTX_CURPROC.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_881__NCTX_CURPROC.obj_num = 10; - cdat->dobj_881__NCTX_CURPROC.obj_hash = 544914144; + cdat->dobj_881__NCTX_CURPROC.obj_hash = 1042688051; cdat->dobj_881__NCTX_CURPROC.obj_len = 4; /*inistring dstr_882__NCTX_CURPROC*/ @@ -16356,7 +16374,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_885__NCTX_MODULCONTEXT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_885__NCTX_MODULCONTEXT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_885__NCTX_MODULCONTEXT.obj_num = 11; - cdat->dobj_885__NCTX_MODULCONTEXT.obj_hash = 584958253; + cdat->dobj_885__NCTX_MODULCONTEXT.obj_hash = 848947320; cdat->dobj_885__NCTX_MODULCONTEXT.obj_len = 4; /*inistring dstr_886__NCTX_MODULCONTEX*/ @@ -16384,7 +16402,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_889__NCTX_QDATCURMODENVBOX", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_889__NCTX_QDATCURMODENVBOX.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_889__NCTX_QDATCURMODENVBOX.obj_num = 12; - cdat->dobj_889__NCTX_QDATCURMODENVBOX.obj_hash = 754931747; + cdat->dobj_889__NCTX_QDATCURMODENVBOX.obj_hash = 1030966857; cdat->dobj_889__NCTX_QDATCURMODENVBOX.obj_len = 4; /*inistring dstr_890__NCTX_QDATCURMODE*/ @@ -16412,7 +16430,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_893__NCTX_QDATPARMODENV", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_893__NCTX_QDATPARMODENV.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_893__NCTX_QDATPARMODENV.obj_num = 13; - cdat->dobj_893__NCTX_QDATPARMODENV.obj_hash = 812755; + cdat->dobj_893__NCTX_QDATPARMODENV.obj_hash = 384409514; cdat->dobj_893__NCTX_QDATPARMODENV.obj_len = 4; /*inistring dstr_894__NCTX_QDATPARMODE*/ @@ -16440,7 +16458,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_897__NCTX_PROCURMODENVLIST", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_897__NCTX_PROCURMODENVLIST.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_897__NCTX_PROCURMODENVLIST.obj_num = 14; - cdat->dobj_897__NCTX_PROCURMODENVLIST.obj_hash = 650219139; + cdat->dobj_897__NCTX_PROCURMODENVLIST.obj_hash = 44973393; cdat->dobj_897__NCTX_PROCURMODENVLIST.obj_len = 4; /*inistring dstr_898__NCTX_PROCURMODEN*/ @@ -16468,7 +16486,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_901__CLASS_C_GENERATION_CONTEXT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_901__CLASS_C_GENERATION_CONTEXT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_901__CLASS_C_GENERATION_CONTEXT.obj_num = OBMAG_OBJECT; - cdat->dobj_901__CLASS_C_GENERATION_CONTEXT.obj_hash = 172544525; + cdat->dobj_901__CLASS_C_GENERATION_CONTEXT.obj_hash = 238551211; cdat->dobj_901__CLASS_C_GENERATION_CONTEXT.obj_len = 8; /*inistring dstr_902__CLASS_C_GENERATI*/ @@ -16504,7 +16522,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_907__GNCX_OBJROUT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_907__GNCX_OBJROUT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_907__GNCX_OBJROUT.obj_num = 0; - cdat->dobj_907__GNCX_OBJROUT.obj_hash = 654578093; + cdat->dobj_907__GNCX_OBJROUT.obj_hash = 195829595; cdat->dobj_907__GNCX_OBJROUT.obj_len = 4; /*inistring dstr_908__GNCX_OBJROUT*/ @@ -16532,7 +16550,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_911__GNCX_LOCMAP", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_911__GNCX_LOCMAP.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_911__GNCX_LOCMAP.obj_num = 1; - cdat->dobj_911__GNCX_LOCMAP.obj_hash = 883575867; + cdat->dobj_911__GNCX_LOCMAP.obj_hash = 697959327; cdat->dobj_911__GNCX_LOCMAP.obj_len = 4; /*inistring dstr_912__GNCX_LOCMAP*/ @@ -16560,7 +16578,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_915__GNCX_FREEPTRLIST", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_915__GNCX_FREEPTRLIST.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_915__GNCX_FREEPTRLIST.obj_num = 2; - cdat->dobj_915__GNCX_FREEPTRLIST.obj_hash = 720582327; + cdat->dobj_915__GNCX_FREEPTRLIST.obj_hash = 35249672; cdat->dobj_915__GNCX_FREEPTRLIST.obj_len = 4; /*inistring dstr_916__GNCX_FREEPTRLIST*/ @@ -16588,7 +16606,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_919__GNCX_FREELONGLIST", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_919__GNCX_FREELONGLIST.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_919__GNCX_FREELONGLIST.obj_num = 3; - cdat->dobj_919__GNCX_FREELONGLIST.obj_hash = 1033091291; + cdat->dobj_919__GNCX_FREELONGLIST.obj_hash = 989645255; cdat->dobj_919__GNCX_FREELONGLIST.obj_len = 4; /*inistring dstr_920__GNCX_FREELONGLIS*/ @@ -16616,7 +16634,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_923__GNCX_FREEOTHERMAPS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_923__GNCX_FREEOTHERMAPS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_923__GNCX_FREEOTHERMAPS.obj_num = 4; - cdat->dobj_923__GNCX_FREEOTHERMAPS.obj_hash = 1022057871; + cdat->dobj_923__GNCX_FREEOTHERMAPS.obj_hash = 1016005562; cdat->dobj_923__GNCX_FREEOTHERMAPS.obj_len = 4; /*inistring dstr_924__GNCX_FREEOTHERMA*/ @@ -16644,7 +16662,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_927__GNCX_RETLOC", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_927__GNCX_RETLOC.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_927__GNCX_RETLOC.obj_num = 5; - cdat->dobj_927__GNCX_RETLOC.obj_hash = 1004690961; + cdat->dobj_927__GNCX_RETLOC.obj_hash = 905259122; cdat->dobj_927__GNCX_RETLOC.obj_len = 4; /*inistring dstr_928__GNCX_RETLOC*/ @@ -16672,7 +16690,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_931__GNCX_COMPICACHE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_931__GNCX_COMPICACHE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_931__GNCX_COMPICACHE.obj_num = 6; - cdat->dobj_931__GNCX_COMPICACHE.obj_hash = 1001484984; + cdat->dobj_931__GNCX_COMPICACHE.obj_hash = 169138563; cdat->dobj_931__GNCX_COMPICACHE.obj_len = 4; /*inistring dstr_932__GNCX_COMPICACHE*/ @@ -16700,7 +16718,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_935__GNCX_MODULCONTEXT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_935__GNCX_MODULCONTEXT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_935__GNCX_MODULCONTEXT.obj_num = 7; - cdat->dobj_935__GNCX_MODULCONTEXT.obj_hash = 380909062; + cdat->dobj_935__GNCX_MODULCONTEXT.obj_hash = 82023563; cdat->dobj_935__GNCX_MODULCONTEXT.obj_len = 4; /*inistring dstr_936__GNCX_MODULCONTEX*/ @@ -16728,7 +16746,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_939__GNCX_MATCHMAP", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_939__GNCX_MATCHMAP.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_939__GNCX_MATCHMAP.obj_num = 8; - cdat->dobj_939__GNCX_MATCHMAP.obj_hash = 775450952; + cdat->dobj_939__GNCX_MATCHMAP.obj_hash = 826363280; cdat->dobj_939__GNCX_MATCHMAP.obj_len = 4; /*inistring dstr_940__GNCX_MATCHMAP*/ @@ -16756,7 +16774,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_943__CLASS_INITIAL_GENERATION_CONTEXT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_943__CLASS_INITIAL_GENERATION_CONTEXT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_943__CLASS_INITIAL_GENERATION_CONTEXT.obj_num = OBMAG_OBJECT; - cdat->dobj_943__CLASS_INITIAL_GENERATION_CONTEXT.obj_hash = 831518829; + cdat->dobj_943__CLASS_INITIAL_GENERATION_CONTEXT.obj_hash = 394820341; cdat->dobj_943__CLASS_INITIAL_GENERATION_CONTEXT.obj_len = 8; /*inistring dstr_944__CLASS_INITIAL_GE*/ @@ -16792,7 +16810,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_949__IGNCX_PREVENVLOC", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_949__IGNCX_PREVENVLOC.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_949__IGNCX_PREVENVLOC.obj_num = 9; - cdat->dobj_949__IGNCX_PREVENVLOC.obj_hash = 909674769; + cdat->dobj_949__IGNCX_PREVENVLOC.obj_hash = 51407958; cdat->dobj_949__IGNCX_PREVENVLOC.obj_len = 4; /*inistring dstr_950__IGNCX_PREVENVLOC*/ @@ -16820,7 +16838,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_953__IGNCX_CONTENVLOC", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_953__IGNCX_CONTENVLOC.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_953__IGNCX_CONTENVLOC.obj_num = 10; - cdat->dobj_953__IGNCX_CONTENVLOC.obj_hash = 692958702; + cdat->dobj_953__IGNCX_CONTENVLOC.obj_hash = 719339426; cdat->dobj_953__IGNCX_CONTENVLOC.obj_len = 4; /*inistring dstr_954__IGNCX_CONTENVLOC*/ @@ -16848,7 +16866,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_957__IGNCX_PROCURMODENVLIST", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_957__IGNCX_PROCURMODENVLIST.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_957__IGNCX_PROCURMODENVLIST.obj_num = 11; - cdat->dobj_957__IGNCX_PROCURMODENVLIST.obj_hash = 170012578; + cdat->dobj_957__IGNCX_PROCURMODENVLIST.obj_hash = 681506552; cdat->dobj_957__IGNCX_PROCURMODENVLIST.obj_len = 4; /*inistring dstr_958__IGNCX_PROCURMODE*/ @@ -16876,7 +16894,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_961__IGNCX_IMPORTMAP", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_961__IGNCX_IMPORTMAP.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_961__IGNCX_IMPORTMAP.obj_num = 12; - cdat->dobj_961__IGNCX_IMPORTMAP.obj_hash = 953013556; + cdat->dobj_961__IGNCX_IMPORTMAP.obj_hash = 819407215; cdat->dobj_961__IGNCX_IMPORTMAP.obj_len = 4; /*inistring dstr_962__IGNCX_IMPORTMAP*/ @@ -16904,7 +16922,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_965__CLASS_GENERATED_C_CODE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_965__CLASS_GENERATED_C_CODE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_965__CLASS_GENERATED_C_CODE.obj_num = OBMAG_OBJECT; - cdat->dobj_965__CLASS_GENERATED_C_CODE.obj_hash = 127963023; + cdat->dobj_965__CLASS_GENERATED_C_CODE.obj_hash = 648937023; cdat->dobj_965__CLASS_GENERATED_C_CODE.obj_len = 8; /*inistring dstr_966__CLASS_GENERATED_*/ @@ -16939,7 +16957,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_971__STRINGCONST2VAL", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_971__STRINGCONST2VAL", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->object_magic == OBMAG_OBJECT); cdat->dobj_971__STRINGCONST2VAL.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_971__STRINGCONST2VAL.obj_hash = 812149819; + cdat->dobj_971__STRINGCONST2VAL.obj_hash = 636063456; cdat->dobj_971__STRINGCONST2VAL.obj_len = 5; /*inimult dtup_972__STRINGCONST2VAL*/ @@ -16970,7 +16988,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_976", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_976.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_976.obj_num = 0; - cdat->dobj_976.obj_hash = 440865199; + cdat->dobj_976.obj_hash = 501815342; cdat->dobj_976.obj_len = 2; /*iniobj dsym_977__STRC*/ @@ -16993,7 +17011,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_979", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_979.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_979.obj_num = 1; - cdat->dobj_979.obj_hash = 139921008; + cdat->dobj_979.obj_hash = 945410563; cdat->dobj_979.obj_len = 2; /*inistring dstr_980__meltgc_new_strin*/ @@ -17035,7 +17053,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_986__IS_A", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_986__IS_A", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->object_magic == OBMAG_OBJECT); cdat->dobj_986__IS_A.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_986__IS_A.obj_hash = 114216212; + cdat->dobj_986__IS_A.obj_hash = 176133609; cdat->dobj_986__IS_A.obj_len = 5; /*inimult dtup_987__IS_A*/ @@ -17066,7 +17084,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_991", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_991.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_991.obj_num = 0; - cdat->dobj_991.obj_hash = 974440776; + cdat->dobj_991.obj_hash = 3283331; cdat->dobj_991.obj_len = 2; /*iniobj dsym_992__CLA*/ @@ -17089,7 +17107,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_994", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_994.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_994.obj_num = 1; - cdat->dobj_994.obj_hash = 627449080; + cdat->dobj_994.obj_hash = 301737093; cdat->dobj_994.obj_len = 2; /*inistring dstr_995__melt_is_instance*/ @@ -17131,7 +17149,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1001__IS_NOT_A", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1001__IS_NOT_A", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1001__IS_NOT_A.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_1001__IS_NOT_A.obj_hash = 443592606; + cdat->dobj_1001__IS_NOT_A.obj_hash = 607130552; cdat->dobj_1001__IS_NOT_A.obj_len = 5; /*inimult dtup_1002__IS_NOT_A*/ @@ -17149,7 +17167,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1004", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1004.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1004.obj_num = 0; - cdat->dobj_1004.obj_hash = 299499831; + cdat->dobj_1004.obj_hash = 352408195; cdat->dobj_1004.obj_len = 2; /*^iniobj*/ @@ -17159,7 +17177,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1005", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1005.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1005.obj_num = 1; - cdat->dobj_1005.obj_hash = 315108977; + cdat->dobj_1005.obj_hash = 664946105; cdat->dobj_1005.obj_len = 2; /*inistring dstr_1006__melt_is_instanc*/ @@ -17201,7 +17219,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1012__IS_OBJECT", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1012__IS_OBJECT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1012__IS_OBJECT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_1012__IS_OBJECT.obj_hash = 1028700820; + cdat->dobj_1012__IS_OBJECT.obj_hash = 77542300; cdat->dobj_1012__IS_OBJECT.obj_len = 5; /*inimult dtup_1013__IS_OBJECT*/ @@ -17219,7 +17237,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1015", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1015.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1015.obj_num = 0; - cdat->dobj_1015.obj_hash = 203691853; + cdat->dobj_1015.obj_hash = 294415006; cdat->dobj_1015.obj_len = 2; /*inistring dstr_1016__melt_magic_disc*/ @@ -17256,7 +17274,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1021__DISCRIM", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1021__DISCRIM", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1021__DISCRIM.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_1021__DISCRIM.obj_hash = 339314250; + cdat->dobj_1021__DISCRIM.obj_hash = 384643414; cdat->dobj_1021__DISCRIM.obj_len = 5; /*inimult dtup_1022__DISCRIM*/ @@ -17287,7 +17305,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1026", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1026.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1026.obj_num = 0; - cdat->dobj_1026.obj_hash = 309689180; + cdat->dobj_1026.obj_hash = 403420666; cdat->dobj_1026.obj_len = 2; /*inistring dstr_1027__melt_discr_mel*/ @@ -17324,7 +17342,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1032__GET_INT", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1032__GET_INT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1032__GET_INT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_1032__GET_INT.obj_hash = 911573851; + cdat->dobj_1032__GET_INT.obj_hash = 126529348; cdat->dobj_1032__GET_INT.obj_len = 5; /*inimult dtup_1033__GET_INT*/ @@ -17342,7 +17360,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1035", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1035.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1035.obj_num = 0; - cdat->dobj_1035.obj_hash = 158283877; + cdat->dobj_1035.obj_hash = 649358371; cdat->dobj_1035.obj_len = 2; /*inistring dstr_1036__melt_get_int_m*/ @@ -17379,7 +17397,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1041__PUT_INT", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1041__PUT_INT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1041__PUT_INT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_1041__PUT_INT.obj_hash = 282227833; + cdat->dobj_1041__PUT_INT.obj_hash = 906770813; cdat->dobj_1041__PUT_INT.obj_len = 5; /*inimult dtup_1042__PUT_INT*/ @@ -17397,7 +17415,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1044", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1044.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1044.obj_num = 0; - cdat->dobj_1044.obj_hash = 311070229; + cdat->dobj_1044.obj_hash = 949891644; cdat->dobj_1044.obj_len = 2; /*iniobj dsym_1045__I*/ @@ -17420,7 +17438,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1047", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1047.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1047.obj_num = 1; - cdat->dobj_1047.obj_hash = 468879826; + cdat->dobj_1047.obj_hash = 945909055; cdat->dobj_1047.obj_len = 2; /*inistring dstr_1048__melt_put_int_me*/ @@ -17462,7 +17480,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1054__", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1054__", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1054__.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_1054__.obj_hash = 879521662; + cdat->dobj_1054__.obj_hash = 665584890; cdat->dobj_1054__.obj_len = 5; /*inimult dtup_1055__*/ @@ -17493,7 +17511,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1059", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1059.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1059.obj_num = 0; - cdat->dobj_1059.obj_hash = 621669400; + cdat->dobj_1059.obj_hash = 594445849; cdat->dobj_1059.obj_len = 2; /*iniobj dsym_1060__B*/ @@ -17516,7 +17534,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1062", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1062.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1062.obj_num = 1; - cdat->dobj_1062.obj_hash = 1008560665; + cdat->dobj_1062.obj_hash = 645000229; cdat->dobj_1062.obj_len = 2; /*inistring dstr_1063__*/ @@ -17558,7 +17576,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1069__", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1069__", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1069__.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_1069__.obj_hash = 703626070; + cdat->dobj_1069__.obj_hash = 139989509; cdat->dobj_1069__.obj_len = 5; /*inimult dtup_1070__*/ @@ -17576,7 +17594,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1072", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1072.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1072.obj_num = 0; - cdat->dobj_1072.obj_hash = 453162059; + cdat->dobj_1072.obj_hash = 556060575; cdat->dobj_1072.obj_len = 2; /*^iniobj*/ @@ -17586,7 +17604,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1073", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1073.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1073.obj_num = 1; - cdat->dobj_1073.obj_hash = 428308456; + cdat->dobj_1073.obj_hash = 372026255; cdat->dobj_1073.obj_len = 2; /*inistring dstr_1074__*/ @@ -17628,7 +17646,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1080__THE_MELTCALLCOUNT", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1080__THE_MELTCALLCOUNT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1080__THE_MELTCALLCOUNT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_1080__THE_MELTCALLCOUNT.obj_hash = 750434955; + cdat->dobj_1080__THE_MELTCALLCOUNT.obj_hash = 506443792; cdat->dobj_1080__THE_MELTCALLCOUNT.obj_len = 5; /*inimult dtup_1081__THE_MELTCALLCOUNT*/ @@ -17668,7 +17686,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1087__THE_CALLCOUNT", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1087__THE_CALLCOUNT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1087__THE_CALLCOUNT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_1087__THE_CALLCOUNT.obj_hash = 953314421; + cdat->dobj_1087__THE_CALLCOUNT.obj_hash = 666175264; cdat->dobj_1087__THE_CALLCOUNT.obj_len = 5; /*inimult dtup_1088__THE_CALLCOUNT*/ @@ -17708,7 +17726,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1094__THE_FRAMEDEPTH", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1094__THE_FRAMEDEPTH", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1094__THE_FRAMEDEPTH.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_1094__THE_FRAMEDEPTH.obj_hash = 366718713; + cdat->dobj_1094__THE_FRAMEDEPTH.obj_hash = 289795888; cdat->dobj_1094__THE_FRAMEDEPTH.obj_len = 5; /*inimult dtup_1095__THE_FRAMEDEPTH*/ @@ -17748,7 +17766,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1101__GET_SYMBOLSTR", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1101__GET_SYMBOLSTR", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1101__GET_SYMBOLSTR.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_1101__GET_SYMBOLSTR.obj_hash = 279864205; + cdat->dobj_1101__GET_SYMBOLSTR.obj_hash = 323933735; cdat->dobj_1101__GET_SYMBOLSTR.obj_len = 5; /*inimult dtup_1102__GET_SYMBOLSTR*/ @@ -17779,7 +17797,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1106", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1106.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1106.obj_num = 0; - cdat->dobj_1106.obj_hash = 1039782748; + cdat->dobj_1106.obj_hash = 1017459995; cdat->dobj_1106.obj_len = 2; /*inistring dstr_1107__meltgc_named_sym*/ @@ -17816,7 +17834,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1112__CREATE_SYMBOLSTR", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1112__CREATE_SYMBOLSTR", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1112__CREATE_SYMBOLSTR.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_1112__CREATE_SYMBOLSTR.obj_hash = 571046652; + cdat->dobj_1112__CREATE_SYMBOLSTR.obj_hash = 4522806; cdat->dobj_1112__CREATE_SYMBOLSTR.obj_len = 5; /*inimult dtup_1113__CREATE_SYMBOLSTR*/ @@ -17834,7 +17852,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1115", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1115.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1115.obj_num = 0; - cdat->dobj_1115.obj_hash = 94144284; + cdat->dobj_1115.obj_hash = 437302034; cdat->dobj_1115.obj_len = 2; /*inistring dstr_1116__meltgc_named_sym*/ @@ -17871,7 +17889,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1121__GET_RAW_SYMBOL", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1121__GET_RAW_SYMBOL", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1121__GET_RAW_SYMBOL.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_1121__GET_RAW_SYMBOL.obj_hash = 468634539; + cdat->dobj_1121__GET_RAW_SYMBOL.obj_hash = 619910768; cdat->dobj_1121__GET_RAW_SYMBOL.obj_len = 5; /*inimult dtup_1122__GET_RAW_SYMBOL*/ @@ -17902,7 +17920,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1126", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1126.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1126.obj_num = 0; - cdat->dobj_1126.obj_hash = 489654709; + cdat->dobj_1126.obj_hash = 976426077; cdat->dobj_1126.obj_len = 2; /*inistring dstr_1127__meltgc_named_sym*/ @@ -17939,7 +17957,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1132__GET_KEYWORDSTR", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1132__GET_KEYWORDSTR", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1132__GET_KEYWORDSTR.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_1132__GET_KEYWORDSTR.obj_hash = 568317022; + cdat->dobj_1132__GET_KEYWORDSTR.obj_hash = 475379119; cdat->dobj_1132__GET_KEYWORDSTR.obj_len = 5; /*inimult dtup_1133__GET_KEYWORDSTR*/ @@ -17957,7 +17975,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1135", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1135.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1135.obj_num = 0; - cdat->dobj_1135.obj_hash = 1001352608; + cdat->dobj_1135.obj_hash = 722338890; cdat->dobj_1135.obj_len = 2; /*inistring dstr_1136__meltgc_named_key*/ @@ -17994,7 +18012,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1141__CREATE_KEYWORDSTR", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1141__CREATE_KEYWORDSTR", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1141__CREATE_KEYWORDSTR.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_1141__CREATE_KEYWORDSTR.obj_hash = 294991618; + cdat->dobj_1141__CREATE_KEYWORDSTR.obj_hash = 366173582; cdat->dobj_1141__CREATE_KEYWORDSTR.obj_len = 5; /*inimult dtup_1142__CREATE_KEYWORDSTR*/ @@ -18012,7 +18030,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1144", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1144.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1144.obj_num = 0; - cdat->dobj_1144.obj_hash = 155948783; + cdat->dobj_1144.obj_hash = 568611748; cdat->dobj_1144.obj_len = 2; /*inistring dstr_1145__meltgc_named_key*/ @@ -18049,7 +18067,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1150__ASSERT_FAILED", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1150__ASSERT_FAILED", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1150__ASSERT_FAILED.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_1150__ASSERT_FAILED.obj_hash = 500590764; + cdat->dobj_1150__ASSERT_FAILED.obj_hash = 1053611977; cdat->dobj_1150__ASSERT_FAILED.obj_len = 5; /*inimult dtup_1151__ASSERT_FAILED*/ @@ -18080,7 +18098,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1155", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1155.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1155.obj_num = 0; - cdat->dobj_1155.obj_hash = 870766592; + cdat->dobj_1155.obj_hash = 920860894; cdat->dobj_1155.obj_len = 2; /*iniobj dsym_1156__FILENAME*/ @@ -18103,7 +18121,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1158", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1158.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1158.obj_num = 1; - cdat->dobj_1158.obj_hash = 664994540; + cdat->dobj_1158.obj_hash = 463469971; cdat->dobj_1158.obj_len = 2; /*iniobj dsym_1159__LINENO*/ @@ -18126,7 +18144,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1161", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1161.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1161.obj_num = 2; - cdat->dobj_1161.obj_hash = 521646492; + cdat->dobj_1161.obj_hash = 740770728; cdat->dobj_1161.obj_len = 2; /*inistring dstr_1162__melt_assert_fail*/ @@ -18183,7 +18201,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1171__I", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1171__I", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1171__I.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_1171__I.obj_hash = 716786322; + cdat->dobj_1171__I.obj_hash = 984872956; cdat->dobj_1171__I.obj_len = 5; /*inimult dtup_1172__I*/ @@ -18201,7 +18219,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1174", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1174.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1174.obj_num = 0; - cdat->dobj_1174.obj_hash = 861170911; + cdat->dobj_1174.obj_hash = 38522201; cdat->dobj_1174.obj_len = 2; /*^iniobj*/ @@ -18211,7 +18229,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1175", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1175.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1175.obj_num = 1; - cdat->dobj_1175.obj_hash = 99821458; + cdat->dobj_1175.obj_hash = 305260709; cdat->dobj_1175.obj_len = 2; /*inistring dstr_1176__*/ @@ -18253,7 +18271,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1182__I", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1182__I", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1182__I.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_1182__I.obj_hash = 890283895; + cdat->dobj_1182__I.obj_hash = 690328761; cdat->dobj_1182__I.obj_len = 5; /*inimult dtup_1183__I*/ @@ -18271,7 +18289,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1185", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1185.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1185.obj_num = 0; - cdat->dobj_1185.obj_hash = 405527058; + cdat->dobj_1185.obj_hash = 273232840; cdat->dobj_1185.obj_len = 2; /*^iniobj*/ @@ -18281,7 +18299,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1186", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1186.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1186.obj_num = 1; - cdat->dobj_1186.obj_hash = 966242749; + cdat->dobj_1186.obj_hash = 216860178; cdat->dobj_1186.obj_len = 2; /*inistring dstr_1187__*/ @@ -18323,7 +18341,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1193__I", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1193__I", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1193__I.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_1193__I.obj_hash = 623830770; + cdat->dobj_1193__I.obj_hash = 932036288; cdat->dobj_1193__I.obj_len = 5; /*inimult dtup_1194__I*/ @@ -18341,7 +18359,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1196", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1196.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1196.obj_num = 0; - cdat->dobj_1196.obj_hash = 756405264; + cdat->dobj_1196.obj_hash = 422493860; cdat->dobj_1196.obj_len = 2; /*^iniobj*/ @@ -18351,7 +18369,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1197", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1197.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1197.obj_num = 1; - cdat->dobj_1197.obj_hash = 564984987; + cdat->dobj_1197.obj_hash = 32231281; cdat->dobj_1197.obj_len = 2; /*inistring dstr_1198__*/ @@ -18393,7 +18411,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1204__I", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1204__I", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1204__I.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_1204__I.obj_hash = 253512079; + cdat->dobj_1204__I.obj_hash = 226909741; cdat->dobj_1204__I.obj_len = 5; /*inimult dtup_1205__I*/ @@ -18411,7 +18429,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1207", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1207.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1207.obj_num = 0; - cdat->dobj_1207.obj_hash = 39185528; + cdat->dobj_1207.obj_hash = 785369806; cdat->dobj_1207.obj_len = 2; /*^iniobj*/ @@ -18421,7 +18439,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1208", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1208.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1208.obj_num = 1; - cdat->dobj_1208.obj_hash = 549942903; + cdat->dobj_1208.obj_hash = 142494400; cdat->dobj_1208.obj_len = 2; /*inistring dstr_1209__*/ @@ -18463,7 +18481,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1215__I", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1215__I", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1215__I.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_1215__I.obj_hash = 492919754; + cdat->dobj_1215__I.obj_hash = 8911198; cdat->dobj_1215__I.obj_len = 5; /*inimult dtup_1216__I*/ @@ -18481,7 +18499,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1218", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1218.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1218.obj_num = 0; - cdat->dobj_1218.obj_hash = 649097077; + cdat->dobj_1218.obj_hash = 945395907; cdat->dobj_1218.obj_len = 2; /*^iniobj*/ @@ -18491,7 +18509,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1219", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1219.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1219.obj_num = 1; - cdat->dobj_1219.obj_hash = 850547609; + cdat->dobj_1219.obj_hash = 344120243; cdat->dobj_1219.obj_len = 2; /*inistring dstr_1220__melt_idiv_*/ @@ -18533,7 +18551,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1226__I", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1226__I", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1226__I.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_1226__I.obj_hash = 736270642; + cdat->dobj_1226__I.obj_hash = 1030314574; cdat->dobj_1226__I.obj_len = 5; /*inimult dtup_1227__I*/ @@ -18551,7 +18569,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1229", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1229.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1229.obj_num = 0; - cdat->dobj_1229.obj_hash = 360338808; + cdat->dobj_1229.obj_hash = 403321202; cdat->dobj_1229.obj_len = 2; /*^iniobj*/ @@ -18561,7 +18579,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1230", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1230.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1230.obj_num = 1; - cdat->dobj_1230.obj_hash = 81534434; + cdat->dobj_1230.obj_hash = 624877547; cdat->dobj_1230.obj_len = 2; /*inistring dstr_1231__melt_imod_*/ @@ -18603,7 +18621,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1237__IRAW", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1237__IRAW", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1237__IRAW.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_1237__IRAW.obj_hash = 352101426; + cdat->dobj_1237__IRAW.obj_hash = 614617362; cdat->dobj_1237__IRAW.obj_len = 5; /*inimult dtup_1238__IRAW*/ @@ -18621,7 +18639,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1240", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1240.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1240.obj_num = 0; - cdat->dobj_1240.obj_hash = 762117142; + cdat->dobj_1240.obj_hash = 715996336; cdat->dobj_1240.obj_len = 2; /*^iniobj*/ @@ -18631,7 +18649,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1241", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1241.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1241.obj_num = 1; - cdat->dobj_1241.obj_hash = 606625161; + cdat->dobj_1241.obj_hash = 109491912; cdat->dobj_1241.obj_len = 2; /*inistring dstr_1242__*/ @@ -18673,7 +18691,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1248__IRAW", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1248__IRAW", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1248__IRAW.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_1248__IRAW.obj_hash = 230742133; + cdat->dobj_1248__IRAW.obj_hash = 886837625; cdat->dobj_1248__IRAW.obj_len = 5; /*inimult dtup_1249__IRAW*/ @@ -18691,7 +18709,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1251", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1251.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1251.obj_num = 0; - cdat->dobj_1251.obj_hash = 1061061642; + cdat->dobj_1251.obj_hash = 832388945; cdat->dobj_1251.obj_len = 2; /*^iniobj*/ @@ -18701,7 +18719,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1252", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1252.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1252.obj_num = 1; - cdat->dobj_1252.obj_hash = 966203645; + cdat->dobj_1252.obj_hash = 916785892; cdat->dobj_1252.obj_len = 2; /*inistring dstr_1253__*/ @@ -18743,7 +18761,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1259__NOT", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1259__NOT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1259__NOT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_1259__NOT.obj_hash = 135044588; + cdat->dobj_1259__NOT.obj_hash = 880069065; cdat->dobj_1259__NOT.obj_len = 5; /*inimult dtup_1260__NOT*/ @@ -18761,7 +18779,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1262", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1262.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1262.obj_num = 0; - cdat->dobj_1262.obj_hash = 656724556; + cdat->dobj_1262.obj_hash = 569333468; cdat->dobj_1262.obj_len = 2; /*inistring dstr_1263__*/ @@ -18798,7 +18816,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1268__INFORMSG_STRV", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1268__INFORMSG_STRV", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1268__INFORMSG_STRV.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_1268__INFORMSG_STRV.obj_hash = 265407313; + cdat->dobj_1268__INFORMSG_STRV.obj_hash = 800800024; cdat->dobj_1268__INFORMSG_STRV.obj_len = 5; /*inimult dtup_1269__INFORMSG_STRV*/ @@ -18829,7 +18847,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1273", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1273.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1273.obj_num = 0; - cdat->dobj_1273.obj_hash = 106751653; + cdat->dobj_1273.obj_hash = 1028364321; cdat->dobj_1273.obj_len = 2; /*^iniobj*/ @@ -18839,7 +18857,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1274", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1274.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1274.obj_num = 1; - cdat->dobj_1274.obj_hash = 517590755; + cdat->dobj_1274.obj_hash = 626207630; cdat->dobj_1274.obj_len = 2; /*inistring dstr_1275__inform_UNKNOWN_L*/ @@ -18868,7 +18886,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1279__INTEGER_GREATER_THAN", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_CMATCHER)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1279__INTEGER_GREATER_THAN", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CMATCHER)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1279__INTEGER_GREATER_THAN.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CMATCHER)))); - cdat->dobj_1279__INTEGER_GREATER_THAN.obj_hash = 630343502; + cdat->dobj_1279__INTEGER_GREATER_THAN.obj_hash = 1041613880; cdat->dobj_1279__INTEGER_GREATER_THAN.obj_len = 9; /*inistring dstr_1280__INTEGER_GREATER_*/ @@ -18896,7 +18914,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1283", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1283.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1283.obj_num = 0; - cdat->dobj_1283.obj_hash = 33339165; + cdat->dobj_1283.obj_hash = 1048597971; cdat->dobj_1283.obj_len = 2; /*inimult dtup_1284__INTEGER_GREATER_THAN*/ @@ -18909,7 +18927,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1285", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1285", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1285.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); - cdat->dobj_1285.obj_hash = 658178061; + cdat->dobj_1285.obj_hash = 870955728; cdat->dobj_1285.obj_len = 2; /*inimult dtup_1286__INTEGER_GREATER_THAN*/ @@ -18972,7 +18990,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1296__NULL", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1296__NULL", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1296__NULL.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_1296__NULL.obj_hash = 599665400; + cdat->dobj_1296__NULL.obj_hash = 625436017; cdat->dobj_1296__NULL.obj_len = 5; /*inimult dtup_1297__NULL*/ @@ -18990,7 +19008,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1299", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1299.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1299.obj_num = 0; - cdat->dobj_1299.obj_hash = 812768662; + cdat->dobj_1299.obj_hash = 676128424; cdat->dobj_1299.obj_len = 2; /*inistring dstr_1300__*/ @@ -19027,7 +19045,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1305__NEED_DBG", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1305__NEED_DBG", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1305__NEED_DBG.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_1305__NEED_DBG.obj_hash = 717081670; + cdat->dobj_1305__NEED_DBG.obj_hash = 653323346; cdat->dobj_1305__NEED_DBG.obj_len = 5; /*inimult dtup_1306__NEED_DBG*/ @@ -19058,7 +19076,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1310", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1310.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1310.obj_num = 0; - cdat->dobj_1310.obj_hash = 695130836; + cdat->dobj_1310.obj_hash = 743790993; cdat->dobj_1310.obj_len = 2; /*inistring dstr_1311__flag_melt_debug*/ @@ -19100,7 +19118,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1317__NEED_DBGLIM", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1317__NEED_DBGLIM", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1317__NEED_DBGLIM.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_1317__NEED_DBGLIM.obj_hash = 727956184; + cdat->dobj_1317__NEED_DBGLIM.obj_hash = 422306060; cdat->dobj_1317__NEED_DBGLIM.obj_len = 5; /*inimult dtup_1318__NEED_DBGLIM*/ @@ -19118,7 +19136,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1320", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1320.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1320.obj_num = 0; - cdat->dobj_1320.obj_hash = 355651837; + cdat->dobj_1320.obj_hash = 1009404601; cdat->dobj_1320.obj_len = 2; /*iniobj dsym_1321__LIMIT*/ @@ -19141,7 +19159,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1323", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1323.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1323.obj_num = 1; - cdat->dobj_1323.obj_hash = 5071855; + cdat->dobj_1323.obj_hash = 599833366; cdat->dobj_1323.obj_len = 2; /*inistring dstr_1324__flag_melt_debug*/ @@ -19188,7 +19206,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1331__SHORTBACKTRACE_DBG", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1331__SHORTBACKTRACE_DBG", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1331__SHORTBACKTRACE_DBG.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_1331__SHORTBACKTRACE_DBG.obj_hash = 791031535; + cdat->dobj_1331__SHORTBACKTRACE_DBG.obj_hash = 740458247; cdat->dobj_1331__SHORTBACKTRACE_DBG.obj_len = 5; /*inimult dtup_1332__SHORTBACKTRACE_DBG*/ @@ -19206,7 +19224,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1334", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1334.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1334.obj_num = 0; - cdat->dobj_1334.obj_hash = 1037867239; + cdat->dobj_1334.obj_hash = 345145559; cdat->dobj_1334.obj_len = 2; /*iniobj dsym_1335__MAXDEPTH*/ @@ -19229,7 +19247,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1337", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1337.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1337.obj_num = 1; - cdat->dobj_1337.obj_hash = 485032727; + cdat->dobj_1337.obj_hash = 438935731; cdat->dobj_1337.obj_len = 2; /*inistring dstr_1338__if_ENABLE_CHE*/ @@ -19271,7 +19289,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1344__THE_NULL_CSTRING", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1344__THE_NULL_CSTRING", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1344__THE_NULL_CSTRING.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_1344__THE_NULL_CSTRING.obj_hash = 114506464; + cdat->dobj_1344__THE_NULL_CSTRING.obj_hash = 1048217041; cdat->dobj_1344__THE_NULL_CSTRING.obj_len = 5; /*inimult dtup_1345__THE_NULL_CSTRING*/ @@ -19311,7 +19329,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1351__IS_STRING", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1351__IS_STRING", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1351__IS_STRING.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_1351__IS_STRING.obj_hash = 94407086; + cdat->dobj_1351__IS_STRING.obj_hash = 261238192; cdat->dobj_1351__IS_STRING.obj_len = 5; /*inimult dtup_1352__IS_STRING*/ @@ -19342,7 +19360,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1356", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1356.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1356.obj_num = 0; - cdat->dobj_1356.obj_hash = 90703688; + cdat->dobj_1356.obj_hash = 524254851; cdat->dobj_1356.obj_len = 2; /*inistring dstr_1357__melt_magic_disc*/ @@ -19379,7 +19397,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1362__S", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1362__S", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1362__S.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_1362__S.obj_hash = 187387196; + cdat->dobj_1362__S.obj_hash = 233116768; cdat->dobj_1362__S.obj_len = 5; /*inimult dtup_1363__S*/ @@ -19410,7 +19428,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1367", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1367.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1367.obj_num = 0; - cdat->dobj_1367.obj_hash = 992512062; + cdat->dobj_1367.obj_hash = 522295878; cdat->dobj_1367.obj_len = 2; /*iniobj dsym_1368__S2*/ @@ -19433,7 +19451,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1370", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1370.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1370.obj_num = 1; - cdat->dobj_1370.obj_hash = 962038158; + cdat->dobj_1370.obj_hash = 88899322; cdat->dobj_1370.obj_len = 2; /*inistring dstr_1371__melt_string_same*/ @@ -19475,7 +19493,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1377__S", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1377__S", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1377__S.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_1377__S.obj_hash = 689382882; + cdat->dobj_1377__S.obj_hash = 1016016302; cdat->dobj_1377__S.obj_len = 5; /*inimult dtup_1378__S*/ @@ -19493,7 +19511,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1380", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1380.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1380.obj_num = 0; - cdat->dobj_1380.obj_hash = 747161211; + cdat->dobj_1380.obj_hash = 767879635; cdat->dobj_1380.obj_len = 2; /*^iniobj*/ @@ -19503,7 +19521,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1381", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1381.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1381.obj_num = 1; - cdat->dobj_1381.obj_hash = 484607266; + cdat->dobj_1381.obj_hash = 781073213; cdat->dobj_1381.obj_len = 2; /*inistring dstr_1382__melt_string_sam*/ @@ -19545,7 +19563,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1388__MAKE_STRINGCONST", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1388__MAKE_STRINGCONST", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1388__MAKE_STRINGCONST.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_1388__MAKE_STRINGCONST.obj_hash = 350497339; + cdat->dobj_1388__MAKE_STRINGCONST.obj_hash = 526000396; cdat->dobj_1388__MAKE_STRINGCONST.obj_len = 5; /*inimult dtup_1389__MAKE_STRINGCONST*/ @@ -19576,7 +19594,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1393", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1393.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1393.obj_num = 0; - cdat->dobj_1393.obj_hash = 783498536; + cdat->dobj_1393.obj_hash = 1070974689; cdat->dobj_1393.obj_len = 2; /*^iniobj*/ @@ -19586,7 +19604,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1394", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1394.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1394.obj_num = 1; - cdat->dobj_1394.obj_hash = 423451438; + cdat->dobj_1394.obj_hash = 465587506; cdat->dobj_1394.obj_len = 2; /*inistring dstr_1395__meltgc_new_stri*/ @@ -19628,7 +19646,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1401__STRING_", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1401__STRING_", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1401__STRING_.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_1401__STRING_.obj_hash = 674669923; + cdat->dobj_1401__STRING_.obj_hash = 453532476; cdat->dobj_1401__STRING_.obj_len = 5; /*inimult dtup_1402__STRING_*/ @@ -19646,7 +19664,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1404", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1404.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1404.obj_num = 0; - cdat->dobj_1404.obj_hash = 900464280; + cdat->dobj_1404.obj_hash = 616717235; cdat->dobj_1404.obj_len = 2; /*^iniobj*/ @@ -19656,7 +19674,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1405", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1405.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1405.obj_num = 1; - cdat->dobj_1405.obj_hash = 788130490; + cdat->dobj_1405.obj_hash = 407135877; cdat->dobj_1405.obj_len = 2; /*inistring dstr_1406__melt_string_less*/ @@ -19698,7 +19716,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1412__STRING_", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1412__STRING_", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1412__STRING_.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_1412__STRING_.obj_hash = 301924648; + cdat->dobj_1412__STRING_.obj_hash = 147046065; cdat->dobj_1412__STRING_.obj_len = 5; /*inimult dtup_1413__STRING_*/ @@ -19716,7 +19734,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1415", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1415.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1415.obj_num = 0; - cdat->dobj_1415.obj_hash = 594058301; + cdat->dobj_1415.obj_hash = 283002164; cdat->dobj_1415.obj_len = 2; /*^iniobj*/ @@ -19726,7 +19744,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1416", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1416.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1416.obj_num = 1; - cdat->dobj_1416.obj_hash = 688404960; + cdat->dobj_1416.obj_hash = 315658529; cdat->dobj_1416.obj_len = 2; /*inistring dstr_1417__melt_string_less*/ @@ -19768,7 +19786,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1423__IS_MULTIPLE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1423__IS_MULTIPLE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1423__IS_MULTIPLE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_1423__IS_MULTIPLE.obj_hash = 137096672; + cdat->dobj_1423__IS_MULTIPLE.obj_hash = 99284673; cdat->dobj_1423__IS_MULTIPLE.obj_len = 5; /*inimult dtup_1424__IS_MULTIPLE*/ @@ -19799,7 +19817,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1428", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1428.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1428.obj_num = 0; - cdat->dobj_1428.obj_hash = 889814848; + cdat->dobj_1428.obj_hash = 879532917; cdat->dobj_1428.obj_len = 2; /*inistring dstr_1429__melt_magic_disc*/ @@ -19836,7 +19854,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1434__MAKE_MULTIPLE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1434__MAKE_MULTIPLE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1434__MAKE_MULTIPLE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_1434__MAKE_MULTIPLE.obj_hash = 732094635; + cdat->dobj_1434__MAKE_MULTIPLE.obj_hash = 484710096; cdat->dobj_1434__MAKE_MULTIPLE.obj_len = 5; /*inimult dtup_1435__MAKE_MULTIPLE*/ @@ -19854,7 +19872,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1437", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1437.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1437.obj_num = 0; - cdat->dobj_1437.obj_hash = 640321548; + cdat->dobj_1437.obj_hash = 763838858; cdat->dobj_1437.obj_len = 2; /*iniobj dsym_1438__LN*/ @@ -19877,7 +19895,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1440", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1440.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1440.obj_num = 1; - cdat->dobj_1440.obj_hash = 132580777; + cdat->dobj_1440.obj_hash = 553943478; cdat->dobj_1440.obj_len = 2; /*inistring dstr_1441__meltgc_new_mult*/ @@ -19919,7 +19937,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1447__MULTIPLE_NTH", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1447__MULTIPLE_NTH", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1447__MULTIPLE_NTH.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_1447__MULTIPLE_NTH.obj_hash = 587309321; + cdat->dobj_1447__MULTIPLE_NTH.obj_hash = 922695358; cdat->dobj_1447__MULTIPLE_NTH.obj_len = 5; /*inimult dtup_1448__MULTIPLE_NTH*/ @@ -19937,7 +19955,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1450", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1450.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1450.obj_num = 0; - cdat->dobj_1450.obj_hash = 1046581594; + cdat->dobj_1450.obj_hash = 714212713; cdat->dobj_1450.obj_len = 2; /*^iniobj*/ @@ -19947,7 +19965,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1451", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1451.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1451.obj_num = 1; - cdat->dobj_1451.obj_hash = 639476271; + cdat->dobj_1451.obj_hash = 342819850; cdat->dobj_1451.obj_len = 2; /*inistring dstr_1452__melt_multiple_n*/ @@ -19989,7 +20007,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1458__MULTIPLE_LENGTH", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1458__MULTIPLE_LENGTH", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1458__MULTIPLE_LENGTH.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_1458__MULTIPLE_LENGTH.obj_hash = 990712125; + cdat->dobj_1458__MULTIPLE_LENGTH.obj_hash = 519033614; cdat->dobj_1458__MULTIPLE_LENGTH.obj_len = 5; /*inimult dtup_1459__MULTIPLE_LENGTH*/ @@ -20007,7 +20025,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1461", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1461.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1461.obj_num = 0; - cdat->dobj_1461.obj_hash = 964173200; + cdat->dobj_1461.obj_hash = 412009828; cdat->dobj_1461.obj_len = 2; /*inistring dstr_1462__melt_multiple_l*/ @@ -20044,7 +20062,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1467__MULTIPLE_PUT_NTH", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1467__MULTIPLE_PUT_NTH", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1467__MULTIPLE_PUT_NTH.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_1467__MULTIPLE_PUT_NTH.obj_hash = 24315134; + cdat->dobj_1467__MULTIPLE_PUT_NTH.obj_hash = 1051118068; cdat->dobj_1467__MULTIPLE_PUT_NTH.obj_len = 5; /*inimult dtup_1468__MULTIPLE_PUT_NTH*/ @@ -20062,7 +20080,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1470", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1470.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1470.obj_num = 0; - cdat->dobj_1470.obj_hash = 69197368; + cdat->dobj_1470.obj_hash = 521294548; cdat->dobj_1470.obj_len = 2; /*^iniobj*/ @@ -20072,7 +20090,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1471", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1471.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1471.obj_num = 1; - cdat->dobj_1471.obj_hash = 13801786; + cdat->dobj_1471.obj_hash = 529524721; cdat->dobj_1471.obj_len = 2; /*^iniobj*/ @@ -20082,7 +20100,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1472", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1472.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1472.obj_num = 2; - cdat->dobj_1472.obj_hash = 535876690; + cdat->dobj_1472.obj_hash = 402337001; cdat->dobj_1472.obj_len = 2; /*inistring dstr_1473__meltgc_multiple_*/ @@ -20129,7 +20147,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1480__MULTIPLE_SORT", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1480__MULTIPLE_SORT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1480__MULTIPLE_SORT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_1480__MULTIPLE_SORT.obj_hash = 1043983510; + cdat->dobj_1480__MULTIPLE_SORT.obj_hash = 863532517; cdat->dobj_1480__MULTIPLE_SORT.obj_len = 5; /*inimult dtup_1481__MULTIPLE_SORT*/ @@ -20147,7 +20165,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1483", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1483.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1483.obj_num = 0; - cdat->dobj_1483.obj_hash = 876085431; + cdat->dobj_1483.obj_hash = 64255514; cdat->dobj_1483.obj_len = 2; /*iniobj dsym_1484__CMP*/ @@ -20170,7 +20188,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1486", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1486.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1486.obj_num = 1; - cdat->dobj_1486.obj_hash = 206443872; + cdat->dobj_1486.obj_hash = 1049334655; cdat->dobj_1486.obj_len = 2; /*iniobj dsym_1487__DISCRM*/ @@ -20193,7 +20211,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1489", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1489.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1489.obj_num = 2; - cdat->dobj_1489.obj_hash = 446829424; + cdat->dobj_1489.obj_hash = 667216986; cdat->dobj_1489.obj_len = 2; /*inistring dstr_1490__meltgc_sort_mult*/ @@ -20240,7 +20258,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1497__IS_MAPOBJECT", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1497__IS_MAPOBJECT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1497__IS_MAPOBJECT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_1497__IS_MAPOBJECT.obj_hash = 851553484; + cdat->dobj_1497__IS_MAPOBJECT.obj_hash = 551900510; cdat->dobj_1497__IS_MAPOBJECT.obj_len = 5; /*inimult dtup_1498__IS_MAPOBJECT*/ @@ -20271,7 +20289,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1502", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1502.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1502.obj_num = 0; - cdat->dobj_1502.obj_hash = 960659358; + cdat->dobj_1502.obj_hash = 265265825; cdat->dobj_1502.obj_len = 2; /*inistring dstr_1503__melt_magic_disc*/ @@ -20308,7 +20326,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1508__MAPOBJECT_SIZE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1508__MAPOBJECT_SIZE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1508__MAPOBJECT_SIZE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_1508__MAPOBJECT_SIZE.obj_hash = 537526567; + cdat->dobj_1508__MAPOBJECT_SIZE.obj_hash = 97116644; cdat->dobj_1508__MAPOBJECT_SIZE.obj_len = 5; /*inimult dtup_1509__MAPOBJECT_SIZE*/ @@ -20326,7 +20344,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1511", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1511.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1511.obj_num = 0; - cdat->dobj_1511.obj_hash = 793205973; + cdat->dobj_1511.obj_hash = 211786716; cdat->dobj_1511.obj_len = 2; /*inistring dstr_1512__melt_size_mapob*/ @@ -20363,7 +20381,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1517__MAPOBJECT_COUNT", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1517__MAPOBJECT_COUNT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1517__MAPOBJECT_COUNT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_1517__MAPOBJECT_COUNT.obj_hash = 858501505; + cdat->dobj_1517__MAPOBJECT_COUNT.obj_hash = 413640121; cdat->dobj_1517__MAPOBJECT_COUNT.obj_len = 5; /*inimult dtup_1518__MAPOBJECT_COUNT*/ @@ -20381,7 +20399,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1520", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1520.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1520.obj_num = 0; - cdat->dobj_1520.obj_hash = 780581197; + cdat->dobj_1520.obj_hash = 931836687; cdat->dobj_1520.obj_len = 2; /*inistring dstr_1521__melt_count_mapo*/ @@ -20418,7 +20436,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1526__MAPOBJECT_NTH_ATTR", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1526__MAPOBJECT_NTH_ATTR", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1526__MAPOBJECT_NTH_ATTR.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_1526__MAPOBJECT_NTH_ATTR.obj_hash = 314515917; + cdat->dobj_1526__MAPOBJECT_NTH_ATTR.obj_hash = 872622941; cdat->dobj_1526__MAPOBJECT_NTH_ATTR.obj_len = 5; /*inimult dtup_1527__MAPOBJECT_NTH_ATTR*/ @@ -20436,7 +20454,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1529", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1529.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1529.obj_num = 0; - cdat->dobj_1529.obj_hash = 353837537; + cdat->dobj_1529.obj_hash = 637637441; cdat->dobj_1529.obj_len = 2; /*^iniobj*/ @@ -20446,7 +20464,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1530", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1530.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1530.obj_num = 1; - cdat->dobj_1530.obj_hash = 330935407; + cdat->dobj_1530.obj_hash = 849400624; cdat->dobj_1530.obj_len = 2; /*inistring dstr_1531__melt_nthattr_ma*/ @@ -20488,7 +20506,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1537__MAPOBJECT_NTH_VAL", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1537__MAPOBJECT_NTH_VAL", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1537__MAPOBJECT_NTH_VAL.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_1537__MAPOBJECT_NTH_VAL.obj_hash = 373338388; + cdat->dobj_1537__MAPOBJECT_NTH_VAL.obj_hash = 16512191; cdat->dobj_1537__MAPOBJECT_NTH_VAL.obj_len = 5; /*inimult dtup_1538__MAPOBJECT_NTH_VAL*/ @@ -20506,7 +20524,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1540", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1540.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1540.obj_num = 0; - cdat->dobj_1540.obj_hash = 322594786; + cdat->dobj_1540.obj_hash = 679801250; cdat->dobj_1540.obj_len = 2; /*^iniobj*/ @@ -20516,7 +20534,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1541", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1541.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1541.obj_num = 1; - cdat->dobj_1541.obj_hash = 58729404; + cdat->dobj_1541.obj_hash = 257448974; cdat->dobj_1541.obj_len = 2; /*inistring dstr_1542__melt_nthval_map*/ @@ -20558,7 +20576,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1548__MAPOBJECT_GET", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1548__MAPOBJECT_GET", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1548__MAPOBJECT_GET.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_1548__MAPOBJECT_GET.obj_hash = 257936090; + cdat->dobj_1548__MAPOBJECT_GET.obj_hash = 1001176436; cdat->dobj_1548__MAPOBJECT_GET.obj_len = 5; /*inimult dtup_1549__MAPOBJECT_GET*/ @@ -20576,7 +20594,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1551", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1551.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1551.obj_num = 0; - cdat->dobj_1551.obj_hash = 66885362; + cdat->dobj_1551.obj_hash = 324182691; cdat->dobj_1551.obj_len = 2; /*iniobj dsym_1552__ATTR*/ @@ -20599,7 +20617,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1554", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1554.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1554.obj_num = 1; - cdat->dobj_1554.obj_hash = 1059260870; + cdat->dobj_1554.obj_hash = 594109964; cdat->dobj_1554.obj_len = 2; /*inistring dstr_1555__melt_get_mapobje*/ @@ -20641,7 +20659,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1561__MAKE_MAPOBJECT", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1561__MAKE_MAPOBJECT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1561__MAKE_MAPOBJECT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_1561__MAKE_MAPOBJECT.obj_hash = 220032192; + cdat->dobj_1561__MAKE_MAPOBJECT.obj_hash = 488317315; cdat->dobj_1561__MAKE_MAPOBJECT.obj_len = 5; /*inimult dtup_1562__MAKE_MAPOBJECT*/ @@ -20659,7 +20677,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1564", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1564.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1564.obj_num = 0; - cdat->dobj_1564.obj_hash = 631393007; + cdat->dobj_1564.obj_hash = 775624132; cdat->dobj_1564.obj_len = 2; /*iniobj dsym_1565__LEN*/ @@ -20682,7 +20700,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1567", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1567.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1567.obj_num = 1; - cdat->dobj_1567.obj_hash = 421676495; + cdat->dobj_1567.obj_hash = 356063938; cdat->dobj_1567.obj_len = 2; /*inistring dstr_1568__meltgc_new_mapo*/ @@ -20724,7 +20742,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1574__MAPOBJECT_PUT", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1574__MAPOBJECT_PUT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1574__MAPOBJECT_PUT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_1574__MAPOBJECT_PUT.obj_hash = 923778980; + cdat->dobj_1574__MAPOBJECT_PUT.obj_hash = 497097484; cdat->dobj_1574__MAPOBJECT_PUT.obj_len = 5; /*inimult dtup_1575__MAPOBJECT_PUT*/ @@ -20742,7 +20760,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1577", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1577.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1577.obj_num = 0; - cdat->dobj_1577.obj_hash = 836614552; + cdat->dobj_1577.obj_hash = 40015199; cdat->dobj_1577.obj_len = 2; /*iniobj dsym_1578__KEY*/ @@ -20765,7 +20783,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1580", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1580.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1580.obj_num = 1; - cdat->dobj_1580.obj_hash = 443364865; + cdat->dobj_1580.obj_hash = 175726999; cdat->dobj_1580.obj_len = 2; /*iniobj dsym_1581__VAL*/ @@ -20788,7 +20806,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1583", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1583.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1583.obj_num = 2; - cdat->dobj_1583.obj_hash = 841099463; + cdat->dobj_1583.obj_hash = 40570350; cdat->dobj_1583.obj_len = 2; /*inistring dstr_1584__meltgc_put_mapob*/ @@ -20835,7 +20853,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1591__MAPOBJECT_REMOVE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1591__MAPOBJECT_REMOVE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1591__MAPOBJECT_REMOVE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_1591__MAPOBJECT_REMOVE.obj_hash = 692271597; + cdat->dobj_1591__MAPOBJECT_REMOVE.obj_hash = 712374280; cdat->dobj_1591__MAPOBJECT_REMOVE.obj_len = 5; /*inimult dtup_1592__MAPOBJECT_REMOVE*/ @@ -20853,7 +20871,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1594", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1594.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1594.obj_num = 0; - cdat->dobj_1594.obj_hash = 644895206; + cdat->dobj_1594.obj_hash = 56672943; cdat->dobj_1594.obj_len = 2; /*^iniobj*/ @@ -20863,7 +20881,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1595", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1595.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1595.obj_num = 1; - cdat->dobj_1595.obj_hash = 523853358; + cdat->dobj_1595.obj_hash = 51473584; cdat->dobj_1595.obj_len = 2; /*inistring dstr_1596__meltgc_remove_ma*/ @@ -20892,7 +20910,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1600__FOREACH_IN_MAPOBJECT", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_CITERATOR)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1600__FOREACH_IN_MAPOBJECT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CITERATOR)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1600__FOREACH_IN_MAPOBJECT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CITERATOR)))); - cdat->dobj_1600__FOREACH_IN_MAPOBJECT.obj_hash = 101448101; + cdat->dobj_1600__FOREACH_IN_MAPOBJECT.obj_hash = 430401855; cdat->dobj_1600__FOREACH_IN_MAPOBJECT.obj_len = 7; /*inistring dstr_1601__FOREACH_IN_MAPOB*/ @@ -20920,7 +20938,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1604", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1604.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1604.obj_num = 0; - cdat->dobj_1604.obj_hash = 458541055; + cdat->dobj_1604.obj_hash = 65760846; cdat->dobj_1604.obj_len = 2; /*inimult dtup_1605__FOREACH_IN_MAPOBJECT*/ @@ -20960,7 +20978,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1610", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1610.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1610.obj_num = 0; - cdat->dobj_1610.obj_hash = 1051964379; + cdat->dobj_1610.obj_hash = 629912101; cdat->dobj_1610.obj_len = 2; /*iniobj dsym_1611__CURVA*/ @@ -20983,7 +21001,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1613", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1613.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1613.obj_num = 1; - cdat->dobj_1613.obj_hash = 708703153; + cdat->dobj_1613.obj_hash = 1056996576; cdat->dobj_1613.obj_len = 2; /*inimult dtup_1614__FOREACH_IN_MAPOBJECT*/ @@ -21157,7 +21175,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1647__IS_MAPSTRING", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1647__IS_MAPSTRING", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1647__IS_MAPSTRING.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_1647__IS_MAPSTRING.obj_hash = 52853961; + cdat->dobj_1647__IS_MAPSTRING.obj_hash = 438358707; cdat->dobj_1647__IS_MAPSTRING.obj_len = 5; /*inimult dtup_1648__IS_MAPSTRING*/ @@ -21175,7 +21193,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1650", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1650.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1650.obj_num = 0; - cdat->dobj_1650.obj_hash = 711992733; + cdat->dobj_1650.obj_hash = 705279874; cdat->dobj_1650.obj_len = 2; /*inistring dstr_1651__melt_magic_disc*/ @@ -21212,7 +21230,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1656__MAKE_MAPSTRING", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1656__MAKE_MAPSTRING", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1656__MAKE_MAPSTRING.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_1656__MAKE_MAPSTRING.obj_hash = 762328358; + cdat->dobj_1656__MAKE_MAPSTRING.obj_hash = 674533749; cdat->dobj_1656__MAKE_MAPSTRING.obj_len = 5; /*inimult dtup_1657__MAKE_MAPSTRING*/ @@ -21230,7 +21248,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1659", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1659.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1659.obj_num = 0; - cdat->dobj_1659.obj_hash = 915044872; + cdat->dobj_1659.obj_hash = 609748659; cdat->dobj_1659.obj_len = 2; /*^iniobj*/ @@ -21240,7 +21258,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1660", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1660.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1660.obj_num = 1; - cdat->dobj_1660.obj_hash = 218498370; + cdat->dobj_1660.obj_hash = 567150620; cdat->dobj_1660.obj_len = 2; /*inistring dstr_1661__meltgc_new_maps*/ @@ -21282,7 +21300,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1667__MAPSTRING_PUTSTR", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1667__MAPSTRING_PUTSTR", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1667__MAPSTRING_PUTSTR.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_1667__MAPSTRING_PUTSTR.obj_hash = 76221362; + cdat->dobj_1667__MAPSTRING_PUTSTR.obj_hash = 1009170464; cdat->dobj_1667__MAPSTRING_PUTSTR.obj_len = 5; /*inimult dtup_1668__MAPSTRING_PUTSTR*/ @@ -21300,7 +21318,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1670", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1670.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1670.obj_num = 0; - cdat->dobj_1670.obj_hash = 487008173; + cdat->dobj_1670.obj_hash = 557543018; cdat->dobj_1670.obj_len = 2; /*iniobj dsym_1671__KEYSTR*/ @@ -21323,7 +21341,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1673", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1673.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1673.obj_num = 1; - cdat->dobj_1673.obj_hash = 783469350; + cdat->dobj_1673.obj_hash = 585857743; cdat->dobj_1673.obj_len = 2; /*^iniobj*/ @@ -21333,7 +21351,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1674", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1674.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1674.obj_num = 2; - cdat->dobj_1674.obj_hash = 14486533; + cdat->dobj_1674.obj_hash = 53661931; cdat->dobj_1674.obj_len = 2; /*inistring dstr_1675__meltgc_put_mapst*/ @@ -21380,7 +21398,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1682__MAPSTRING_GETSTR", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1682__MAPSTRING_GETSTR", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1682__MAPSTRING_GETSTR.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_1682__MAPSTRING_GETSTR.obj_hash = 544550926; + cdat->dobj_1682__MAPSTRING_GETSTR.obj_hash = 637661679; cdat->dobj_1682__MAPSTRING_GETSTR.obj_len = 5; /*inimult dtup_1683__MAPSTRING_GETSTR*/ @@ -21398,7 +21416,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1685", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1685.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1685.obj_num = 0; - cdat->dobj_1685.obj_hash = 436530154; + cdat->dobj_1685.obj_hash = 206773803; cdat->dobj_1685.obj_len = 2; /*^iniobj*/ @@ -21408,7 +21426,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1686", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1686.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1686.obj_num = 1; - cdat->dobj_1686.obj_hash = 949769937; + cdat->dobj_1686.obj_hash = 527227608; cdat->dobj_1686.obj_len = 2; /*inistring dstr_1687__melt_get_mapstr*/ @@ -21450,7 +21468,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1693__MAPSTRING_REMOVESTR", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1693__MAPSTRING_REMOVESTR", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1693__MAPSTRING_REMOVESTR.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_1693__MAPSTRING_REMOVESTR.obj_hash = 507877209; + cdat->dobj_1693__MAPSTRING_REMOVESTR.obj_hash = 1031467793; cdat->dobj_1693__MAPSTRING_REMOVESTR.obj_len = 5; /*inimult dtup_1694__MAPSTRING_REMOVESTR*/ @@ -21468,7 +21486,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1696", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1696.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1696.obj_num = 0; - cdat->dobj_1696.obj_hash = 741363061; + cdat->dobj_1696.obj_hash = 173552629; cdat->dobj_1696.obj_len = 2; /*^iniobj*/ @@ -21478,7 +21496,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1697", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1697.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1697.obj_num = 1; - cdat->dobj_1697.obj_hash = 723242991; + cdat->dobj_1697.obj_hash = 231352076; cdat->dobj_1697.obj_len = 2; /*inistring dstr_1698__meltgc_remove_ma*/ @@ -21520,7 +21538,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1704__MAPSTRING_NTH_ATTRSTR", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1704__MAPSTRING_NTH_ATTRSTR", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1704__MAPSTRING_NTH_ATTRSTR.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_1704__MAPSTRING_NTH_ATTRSTR.obj_hash = 136343755; + cdat->dobj_1704__MAPSTRING_NTH_ATTRSTR.obj_hash = 718171881; cdat->dobj_1704__MAPSTRING_NTH_ATTRSTR.obj_len = 5; /*inimult dtup_1705__MAPSTRING_NTH_ATTRSTR*/ @@ -21538,7 +21556,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1707", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1707.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1707.obj_num = 0; - cdat->dobj_1707.obj_hash = 544275264; + cdat->dobj_1707.obj_hash = 881510796; cdat->dobj_1707.obj_len = 2; /*iniobj dsym_1708__SDICR*/ @@ -21561,7 +21579,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1710", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1710.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1710.obj_num = 1; - cdat->dobj_1710.obj_hash = 17635954; + cdat->dobj_1710.obj_hash = 183840075; cdat->dobj_1710.obj_len = 2; /*^iniobj*/ @@ -21571,7 +21589,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1711", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1711.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1711.obj_num = 2; - cdat->dobj_1711.obj_hash = 7610418; + cdat->dobj_1711.obj_hash = 469949272; cdat->dobj_1711.obj_len = 2; /*inistring dstr_1712__meltgc_new_stri*/ @@ -21618,7 +21636,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1719__MAPSTRING_NTH_VAL", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1719__MAPSTRING_NTH_VAL", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1719__MAPSTRING_NTH_VAL.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_1719__MAPSTRING_NTH_VAL.obj_hash = 571483952; + cdat->dobj_1719__MAPSTRING_NTH_VAL.obj_hash = 570988268; cdat->dobj_1719__MAPSTRING_NTH_VAL.obj_len = 5; /*inimult dtup_1720__MAPSTRING_NTH_VAL*/ @@ -21636,7 +21654,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1722", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1722.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1722.obj_num = 0; - cdat->dobj_1722.obj_hash = 872540100; + cdat->dobj_1722.obj_hash = 684540217; cdat->dobj_1722.obj_len = 2; /*^iniobj*/ @@ -21646,7 +21664,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1723", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1723.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1723.obj_num = 1; - cdat->dobj_1723.obj_hash = 461633069; + cdat->dobj_1723.obj_hash = 918538112; cdat->dobj_1723.obj_len = 2; /*inistring dstr_1724__melt_nthval_map*/ @@ -21675,7 +21693,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1728__FOREACH_IN_MAPSTRING", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_CITERATOR)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1728__FOREACH_IN_MAPSTRING", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CITERATOR)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1728__FOREACH_IN_MAPSTRING.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CITERATOR)))); - cdat->dobj_1728__FOREACH_IN_MAPSTRING.obj_hash = 502160492; + cdat->dobj_1728__FOREACH_IN_MAPSTRING.obj_hash = 783594998; cdat->dobj_1728__FOREACH_IN_MAPSTRING.obj_len = 7; /*inistring dstr_1729__FOREACH_IN_MAPST*/ @@ -21703,7 +21721,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1732", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1732.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1732.obj_num = 0; - cdat->dobj_1732.obj_hash = 889669868; + cdat->dobj_1732.obj_hash = 3869445; cdat->dobj_1732.obj_len = 2; /*inimult dtup_1733__FOREACH_IN_MAPSTRING*/ @@ -21730,7 +21748,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1736", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1736.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1736.obj_num = 0; - cdat->dobj_1736.obj_hash = 708847970; + cdat->dobj_1736.obj_hash = 800088481; cdat->dobj_1736.obj_len = 2; /*^iniobj*/ @@ -21740,7 +21758,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1737", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1737.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1737.obj_num = 1; - cdat->dobj_1737.obj_hash = 528067437; + cdat->dobj_1737.obj_hash = 106038889; cdat->dobj_1737.obj_len = 2; /*inimult dtup_1738__FOREACH_IN_MAPSTRING*/ @@ -21994,7 +22012,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1787__IS_ROUTINE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1787__IS_ROUTINE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1787__IS_ROUTINE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_1787__IS_ROUTINE.obj_hash = 658426239; + cdat->dobj_1787__IS_ROUTINE.obj_hash = 38554519; cdat->dobj_1787__IS_ROUTINE.obj_len = 5; /*inimult dtup_1788__IS_ROUTINE*/ @@ -22025,7 +22043,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1792", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1792.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1792.obj_num = 0; - cdat->dobj_1792.obj_hash = 993875323; + cdat->dobj_1792.obj_hash = 1004541732; cdat->dobj_1792.obj_len = 2; /*inistring dstr_1793__melt_magic_disc*/ @@ -22062,7 +22080,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1798__ROUTINE_DESCR", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1798__ROUTINE_DESCR", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1798__ROUTINE_DESCR.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_1798__ROUTINE_DESCR.obj_hash = 770331081; + cdat->dobj_1798__ROUTINE_DESCR.obj_hash = 915848587; cdat->dobj_1798__ROUTINE_DESCR.obj_len = 5; /*inimult dtup_1799__ROUTINE_DESCR*/ @@ -22080,7 +22098,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1801", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1801.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1801.obj_num = 0; - cdat->dobj_1801.obj_hash = 929084101; + cdat->dobj_1801.obj_hash = 385537575; cdat->dobj_1801.obj_len = 2; /*inistring dstr_1802__meltgc_new_stri*/ @@ -22117,7 +22135,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1807__ROUTINE_SIZE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1807__ROUTINE_SIZE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1807__ROUTINE_SIZE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_1807__ROUTINE_SIZE.obj_hash = 434985632; + cdat->dobj_1807__ROUTINE_SIZE.obj_hash = 574075687; cdat->dobj_1807__ROUTINE_SIZE.obj_len = 5; /*inimult dtup_1808__ROUTINE_SIZE*/ @@ -22135,7 +22153,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1810", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1810.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1810.obj_num = 0; - cdat->dobj_1810.obj_hash = 634668004; + cdat->dobj_1810.obj_hash = 505137869; cdat->dobj_1810.obj_len = 2; /*inistring dstr_1811__melt_routine_si*/ @@ -22172,7 +22190,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1816__ROUTINE_NTH", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1816__ROUTINE_NTH", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1816__ROUTINE_NTH.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_1816__ROUTINE_NTH.obj_hash = 681492051; + cdat->dobj_1816__ROUTINE_NTH.obj_hash = 607058245; cdat->dobj_1816__ROUTINE_NTH.obj_len = 5; /*inimult dtup_1817__ROUTINE_NTH*/ @@ -22190,7 +22208,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1819", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1819.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1819.obj_num = 0; - cdat->dobj_1819.obj_hash = 951424541; + cdat->dobj_1819.obj_hash = 41741155; cdat->dobj_1819.obj_len = 2; /*iniobj dsym_1820__IX*/ @@ -22213,7 +22231,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1822", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1822.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1822.obj_num = 1; - cdat->dobj_1822.obj_hash = 818858133; + cdat->dobj_1822.obj_hash = 348521500; cdat->dobj_1822.obj_len = 2; /*inistring dstr_1823__melt_routine_nt*/ @@ -22255,7 +22273,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1829__IS_CLOSURE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1829__IS_CLOSURE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1829__IS_CLOSURE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_1829__IS_CLOSURE.obj_hash = 116777681; + cdat->dobj_1829__IS_CLOSURE.obj_hash = 201691062; cdat->dobj_1829__IS_CLOSURE.obj_len = 5; /*inimult dtup_1830__IS_CLOSURE*/ @@ -22286,7 +22304,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1834", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1834.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1834.obj_num = 0; - cdat->dobj_1834.obj_hash = 576020835; + cdat->dobj_1834.obj_hash = 11133159; cdat->dobj_1834.obj_len = 2; /*inistring dstr_1835__melt_magic_disc*/ @@ -22323,7 +22341,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1840__CLOSURE_SIZE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1840__CLOSURE_SIZE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1840__CLOSURE_SIZE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_1840__CLOSURE_SIZE.obj_hash = 23769761; + cdat->dobj_1840__CLOSURE_SIZE.obj_hash = 734022633; cdat->dobj_1840__CLOSURE_SIZE.obj_len = 5; /*inimult dtup_1841__CLOSURE_SIZE*/ @@ -22341,7 +22359,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1843", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1843.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1843.obj_num = 0; - cdat->dobj_1843.obj_hash = 550248673; + cdat->dobj_1843.obj_hash = 1031758483; cdat->dobj_1843.obj_len = 2; /*inistring dstr_1844__melt_closure_si*/ @@ -22378,7 +22396,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1849__CLOSURE_ROUTINE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1849__CLOSURE_ROUTINE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1849__CLOSURE_ROUTINE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_1849__CLOSURE_ROUTINE.obj_hash = 1016914604; + cdat->dobj_1849__CLOSURE_ROUTINE.obj_hash = 686642254; cdat->dobj_1849__CLOSURE_ROUTINE.obj_len = 5; /*inimult dtup_1850__CLOSURE_ROUTINE*/ @@ -22396,7 +22414,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1852", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1852.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1852.obj_num = 0; - cdat->dobj_1852.obj_hash = 386740537; + cdat->dobj_1852.obj_hash = 665722121; cdat->dobj_1852.obj_len = 2; /*inistring dstr_1853__melt_closure_ro*/ @@ -22433,7 +22451,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1858__CLOSURE_NTH", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1858__CLOSURE_NTH", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1858__CLOSURE_NTH.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_1858__CLOSURE_NTH.obj_hash = 914208915; + cdat->dobj_1858__CLOSURE_NTH.obj_hash = 407758545; cdat->dobj_1858__CLOSURE_NTH.obj_len = 5; /*inimult dtup_1859__CLOSURE_NTH*/ @@ -22451,7 +22469,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1861", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1861.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1861.obj_num = 0; - cdat->dobj_1861.obj_hash = 521034855; + cdat->dobj_1861.obj_hash = 287937649; cdat->dobj_1861.obj_len = 2; /*^iniobj*/ @@ -22461,7 +22479,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1862", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1862.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1862.obj_num = 1; - cdat->dobj_1862.obj_hash = 279877569; + cdat->dobj_1862.obj_hash = 440368732; cdat->dobj_1862.obj_len = 2; /*inistring dstr_1863__melt_closure_nt*/ @@ -22490,7 +22508,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1867__CLOSURE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_CMATCHER)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1867__CLOSURE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CMATCHER)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1867__CLOSURE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CMATCHER)))); - cdat->dobj_1867__CLOSURE.obj_hash = 492643591; + cdat->dobj_1867__CLOSURE.obj_hash = 642432927; cdat->dobj_1867__CLOSURE.obj_len = 9; /*inistring dstr_1868__CLOSURE*/ @@ -22508,7 +22526,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1870", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1870", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1870.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); - cdat->dobj_1870.obj_hash = 759079202; + cdat->dobj_1870.obj_hash = 384797646; cdat->dobj_1870.obj_len = 2; /*inimult dtup_1871__CLOSURE*/ @@ -22585,7 +22603,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1884__IS_INTEGERBOX", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1884__IS_INTEGERBOX", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1884__IS_INTEGERBOX.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_1884__IS_INTEGERBOX.obj_hash = 258035173; + cdat->dobj_1884__IS_INTEGERBOX.obj_hash = 526042530; cdat->dobj_1884__IS_INTEGERBOX.obj_len = 5; /*inimult dtup_1885__IS_INTEGERBOX*/ @@ -22616,7 +22634,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1889", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1889.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1889.obj_num = 0; - cdat->dobj_1889.obj_hash = 335652699; + cdat->dobj_1889.obj_hash = 694971465; cdat->dobj_1889.obj_len = 2; /*inistring dstr_1890__melt_magic_disc*/ @@ -22653,7 +22671,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1895__MAKE_INTEGERBOX", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1895__MAKE_INTEGERBOX", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1895__MAKE_INTEGERBOX.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_1895__MAKE_INTEGERBOX.obj_hash = 255120222; + cdat->dobj_1895__MAKE_INTEGERBOX.obj_hash = 950516194; cdat->dobj_1895__MAKE_INTEGERBOX.obj_len = 5; /*inimult dtup_1896__MAKE_INTEGERBOX*/ @@ -22671,7 +22689,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1898", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1898.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1898.obj_num = 0; - cdat->dobj_1898.obj_hash = 20869209; + cdat->dobj_1898.obj_hash = 750757316; cdat->dobj_1898.obj_len = 2; /*^iniobj*/ @@ -22681,7 +22699,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1899", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1899.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1899.obj_num = 1; - cdat->dobj_1899.obj_hash = 554498538; + cdat->dobj_1899.obj_hash = 65139415; cdat->dobj_1899.obj_len = 2; /*inistring dstr_1900__meltgc_new_int_*/ @@ -22710,7 +22728,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1904__INTEGERBOX_OF", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_CMATCHER)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1904__INTEGERBOX_OF", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CMATCHER)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1904__INTEGERBOX_OF.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CMATCHER)))); - cdat->dobj_1904__INTEGERBOX_OF.obj_hash = 105842953; + cdat->dobj_1904__INTEGERBOX_OF.obj_hash = 958908153; cdat->dobj_1904__INTEGERBOX_OF.obj_len = 9; /*inistring dstr_1905__INTEGERBOX_OF*/ @@ -22741,7 +22759,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1909", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1909", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1909.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); - cdat->dobj_1909.obj_hash = 986761809; + cdat->dobj_1909.obj_hash = 463994685; cdat->dobj_1909.obj_len = 2; /*iniobj dsym_1910__ICT*/ @@ -22764,7 +22782,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1912", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1912.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1912.obj_num = 0; - cdat->dobj_1912.obj_hash = 303436235; + cdat->dobj_1912.obj_hash = 589762632; cdat->dobj_1912.obj_len = 2; /*inimult dtup_1913__INTEGERBOX_OF*/ @@ -22851,7 +22869,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1928__IS_BOX", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1928__IS_BOX", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1928__IS_BOX.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_1928__IS_BOX.obj_hash = 242428672; + cdat->dobj_1928__IS_BOX.obj_hash = 96404503; cdat->dobj_1928__IS_BOX.obj_len = 5; /*inimult dtup_1929__IS_BOX*/ @@ -22882,7 +22900,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1933", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1933.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1933.obj_num = 0; - cdat->dobj_1933.obj_hash = 1026645802; + cdat->dobj_1933.obj_hash = 667340988; cdat->dobj_1933.obj_len = 2; /*inistring dstr_1934__melt_magic_disc*/ @@ -22919,7 +22937,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1939__BOX_CONTENT", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1939__BOX_CONTENT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1939__BOX_CONTENT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_1939__BOX_CONTENT.obj_hash = 1048023910; + cdat->dobj_1939__BOX_CONTENT.obj_hash = 647815605; cdat->dobj_1939__BOX_CONTENT.obj_len = 5; /*inimult dtup_1940__BOX_CONTENT*/ @@ -22937,7 +22955,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1942", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1942.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1942.obj_num = 0; - cdat->dobj_1942.obj_hash = 812671928; + cdat->dobj_1942.obj_hash = 354508924; cdat->dobj_1942.obj_len = 2; /*inistring dstr_1943__melt_box_content*/ @@ -22974,7 +22992,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1948__BOX_PUT", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1948__BOX_PUT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1948__BOX_PUT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_1948__BOX_PUT.obj_hash = 361163905; + cdat->dobj_1948__BOX_PUT.obj_hash = 401176544; cdat->dobj_1948__BOX_PUT.obj_len = 5; /*inimult dtup_1949__BOX_PUT*/ @@ -22992,7 +23010,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1951", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1951.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1951.obj_num = 0; - cdat->dobj_1951.obj_hash = 890903295; + cdat->dobj_1951.obj_hash = 949111683; cdat->dobj_1951.obj_len = 2; /*^iniobj*/ @@ -23002,7 +23020,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1952", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1952.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1952.obj_num = 1; - cdat->dobj_1952.obj_hash = 1020954540; + cdat->dobj_1952.obj_hash = 317543453; cdat->dobj_1952.obj_len = 2; /*inistring dstr_1953__meltgc_box_put_*/ @@ -23044,7 +23062,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1959__MAKE_BOX", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1959__MAKE_BOX", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1959__MAKE_BOX.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_1959__MAKE_BOX.obj_hash = 764438862; + cdat->dobj_1959__MAKE_BOX.obj_hash = 787625516; cdat->dobj_1959__MAKE_BOX.obj_len = 5; /*inimult dtup_1960__MAKE_BOX*/ @@ -23062,7 +23080,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1962", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1962.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1962.obj_num = 0; - cdat->dobj_1962.obj_hash = 716874574; + cdat->dobj_1962.obj_hash = 359896023; cdat->dobj_1962.obj_len = 2; /*iniobj dsym_1963__VALB*/ @@ -23085,7 +23103,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1965", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1965.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1965.obj_num = 1; - cdat->dobj_1965.obj_hash = 413163696; + cdat->dobj_1965.obj_hash = 438121786; cdat->dobj_1965.obj_len = 2; /*inistring dstr_1966__meltgc_new_box_*/ @@ -23127,7 +23145,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1972__IS_LIST", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1972__IS_LIST", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1972__IS_LIST.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_1972__IS_LIST.obj_hash = 122121996; + cdat->dobj_1972__IS_LIST.obj_hash = 687345850; cdat->dobj_1972__IS_LIST.obj_len = 5; /*inimult dtup_1973__IS_LIST*/ @@ -23158,7 +23176,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1977", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1977.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1977.obj_num = 0; - cdat->dobj_1977.obj_hash = 155721646; + cdat->dobj_1977.obj_hash = 254106245; cdat->dobj_1977.obj_len = 2; /*inistring dstr_1978__melt_magic_disc*/ @@ -23195,7 +23213,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1983__IS_LIST_OR_NULL", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1983__IS_LIST_OR_NULL", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1983__IS_LIST_OR_NULL.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_1983__IS_LIST_OR_NULL.obj_hash = 893663542; + cdat->dobj_1983__IS_LIST_OR_NULL.obj_hash = 728460794; cdat->dobj_1983__IS_LIST_OR_NULL.obj_len = 5; /*inimult dtup_1984__IS_LIST_OR_NULL*/ @@ -23213,7 +23231,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1986", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1986.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1986.obj_num = 0; - cdat->dobj_1986.obj_hash = 160072063; + cdat->dobj_1986.obj_hash = 631900306; cdat->dobj_1986.obj_len = 2; /*inistring dstr_1987__*/ @@ -23255,7 +23273,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1993__LIST_FIRST", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1993__LIST_FIRST", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1993__LIST_FIRST.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_1993__LIST_FIRST.obj_hash = 632128479; + cdat->dobj_1993__LIST_FIRST.obj_hash = 606210009; cdat->dobj_1993__LIST_FIRST.obj_len = 5; /*inimult dtup_1994__LIST_FIRST*/ @@ -23273,7 +23291,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1996", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1996.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1996.obj_num = 0; - cdat->dobj_1996.obj_hash = 368406449; + cdat->dobj_1996.obj_hash = 232613205; cdat->dobj_1996.obj_len = 2; /*inistring dstr_1997__melt_list_first*/ @@ -23310,7 +23328,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2002__LIST_LAST", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2002__LIST_LAST", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->object_magic == OBMAG_OBJECT); cdat->dobj_2002__LIST_LAST.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_2002__LIST_LAST.obj_hash = 1007930727; + cdat->dobj_2002__LIST_LAST.obj_hash = 87989626; cdat->dobj_2002__LIST_LAST.obj_len = 5; /*inimult dtup_2003__LIST_LAST*/ @@ -23328,7 +23346,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2005", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_2005.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_2005.obj_num = 0; - cdat->dobj_2005.obj_hash = 880020651; + cdat->dobj_2005.obj_hash = 443271693; cdat->dobj_2005.obj_len = 2; /*inistring dstr_2006__melt_list_last_*/ @@ -23346,36 +23364,36 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS cdat->dstr_2008__LIST_LAST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); strncpy(cdat->dstr_2008__LIST_LAST.val, "LIST_LAST", sizeof (cdat->dstr_2008__LIST_LAST.val)-1); - /*iniobj dsym_2009__LIST_LENGTH*/ -/*uniqueobj*/ if (!/*_.VALDATA___V2015*/ meltfptr[2014]) /*_.VALDATA___V2015*/ meltfptr[2014] = (void*)&cdat->dsym_2009__LIST_LENGTH; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2009__LIST_LENGTH", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2009__LIST_LENGTH", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); - cdat->dsym_2009__LIST_LENGTH.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_2009__LIST_LENGTH.obj_hash = 933284122; - cdat->dsym_2009__LIST_LENGTH.obj_len = 3; + /*iniobj dsym_2009__LIST_FIRST_ELEMENT*/ +/*uniqueobj*/ if (!/*_.VALDATA___V2015*/ meltfptr[2014]) /*_.VALDATA___V2015*/ meltfptr[2014] = (void*)&cdat->dsym_2009__LIST_FIRST_ELEMENT; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2009__LIST_FIRST_ELEMENT", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2009__LIST_FIRST_ELEMENT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); + cdat->dsym_2009__LIST_FIRST_ELEMENT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_2009__LIST_FIRST_ELEMENT.obj_hash = 312185320; + cdat->dsym_2009__LIST_FIRST_ELEMENT.obj_len = 3; - /*inistring dstr_2010__LIST_LENGTH*/ - /*_.VALSTR___V2016*/ meltfptr[2015] = (void*)&cdat->dstr_2010__LIST_LENGTH; - cdat->dstr_2010__LIST_LENGTH.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2010__LIST_LENGTH.val, "LIST_LENGTH", sizeof (cdat->dstr_2010__LIST_LENGTH.val)-1); + /*inistring dstr_2010__LIST_FIRST_ELEME*/ + /*_.VALSTR___V2016*/ meltfptr[2015] = (void*)&cdat->dstr_2010__LIST_FIRST_ELEME; + cdat->dstr_2010__LIST_FIRST_ELEME.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2010__LIST_FIRST_ELEME.val, "LIST_FIRST_ELEMENT", sizeof (cdat->dstr_2010__LIST_FIRST_ELEME.val)-1); MELT_LOCATION("warmelt-first.melt:1337:/ iniobj"); - /*iniobj dobj_2011__LIST_LENGTH*/ -/*_.VALDATA___V2017*/ meltfptr[2016] = (void*)&cdat->dobj_2011__LIST_LENGTH; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2011__LIST_LENGTH", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2011__LIST_LENGTH", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->object_magic == OBMAG_OBJECT); - cdat->dobj_2011__LIST_LENGTH.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_2011__LIST_LENGTH.obj_hash = 658616867; - cdat->dobj_2011__LIST_LENGTH.obj_len = 5; - - /*inimult dtup_2012__LIST_LENGTH*/ - /*_.VALTUP___V2023*/ meltfptr[2022] = (void*)&cdat->dtup_2012__LIST_LENGTH; - cdat->dtup_2012__LIST_LENGTH.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE)))); - cdat->dtup_2012__LIST_LENGTH.nbval = 3; - /*inimult dtup_2013__LIST_LENGTH*/ - /*_.VALTUP___V2020*/ meltfptr[2019] = (void*)&cdat->dtup_2013__LIST_LENGTH; - cdat->dtup_2013__LIST_LENGTH.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE)))); - cdat->dtup_2013__LIST_LENGTH.nbval = 1; + /*iniobj dobj_2011__LIST_FIRST_ELEMENT*/ +/*_.VALDATA___V2017*/ meltfptr[2016] = (void*)&cdat->dobj_2011__LIST_FIRST_ELEMENT; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2011__LIST_FIRST_ELEMENT", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2011__LIST_FIRST_ELEMENT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->object_magic == OBMAG_OBJECT); + cdat->dobj_2011__LIST_FIRST_ELEMENT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); + cdat->dobj_2011__LIST_FIRST_ELEMENT.obj_hash = 499434911; + cdat->dobj_2011__LIST_FIRST_ELEMENT.obj_len = 5; + + /*inimult dtup_2012__LIST_FIRST_ELEMENT*/ + /*_.VALTUP___V2023*/ meltfptr[2022] = (void*)&cdat->dtup_2012__LIST_FIRST_ELEMENT; + cdat->dtup_2012__LIST_FIRST_ELEMENT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE)))); + cdat->dtup_2012__LIST_FIRST_ELEMENT.nbval = 3; + /*inimult dtup_2013__LIST_FIRST_ELEMENT*/ + /*_.VALTUP___V2020*/ meltfptr[2019] = (void*)&cdat->dtup_2013__LIST_FIRST_ELEMENT; + cdat->dtup_2013__LIST_FIRST_ELEMENT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE)))); + cdat->dtup_2013__LIST_FIRST_ELEMENT.nbval = 1; /*^iniobj*/ /*iniobj dobj_2014*/ /*_.VALDATA___V2019*/ meltfptr[2018] = (void*)&cdat->dobj_2014; @@ -23383,54 +23401,54 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2014", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_2014.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_2014.obj_num = 0; - cdat->dobj_2014.obj_hash = 190221999; + cdat->dobj_2014.obj_hash = 731423092; cdat->dobj_2014.obj_len = 2; - /*inistring dstr_2015__melt_list_lengt*/ - /*_.VALSTR___V2021*/ meltfptr[2020] = (void*)&cdat->dstr_2015__melt_list_lengt; - cdat->dstr_2015__melt_list_lengt.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING)))); - strncpy(cdat->dstr_2015__melt_list_lengt.val, "(melt_list_length((melt_ptr_t)(", sizeof (cdat->dstr_2015__melt_list_lengt.val)-1); + /*inistring dstr_2015__melt_pair_head_*/ + /*_.VALSTR___V2021*/ meltfptr[2020] = (void*)&cdat->dstr_2015__melt_pair_head_; + cdat->dstr_2015__melt_pair_head_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING)))); + strncpy(cdat->dstr_2015__melt_pair_head_.val, "(melt_pair_head (melt_list_first((melt_ptr_t)(", sizeof (cdat->dstr_2015__melt_pair_head_.val)-1); /*inistring dstr_2016__*/ /*_.VALSTR___V2022*/ meltfptr[2021] = (void*)&cdat->dstr_2016__; cdat->dstr_2016__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING)))); - strncpy(cdat->dstr_2016__.val, ")))", sizeof (cdat->dstr_2016__.val)-1); - - /*inistring dstr_2017__LIST_LENGTH*/ - /*_.VALSTR___V2018*/ meltfptr[2017] = (void*)&cdat->dstr_2017__LIST_LENGTH; - cdat->dstr_2017__LIST_LENGTH.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2017__LIST_LENGTH.val, "LIST_LENGTH", sizeof (cdat->dstr_2017__LIST_LENGTH.val)-1); - - /*iniobj dsym_2018__LIST_APPEND*/ -/*uniqueobj*/ if (!/*_.VALDATA___V2024*/ meltfptr[2023]) /*_.VALDATA___V2024*/ meltfptr[2023] = (void*)&cdat->dsym_2018__LIST_APPEND; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2018__LIST_APPEND", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2018__LIST_APPEND", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); - cdat->dsym_2018__LIST_APPEND.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_2018__LIST_APPEND.obj_hash = 56487139; - cdat->dsym_2018__LIST_APPEND.obj_len = 3; - - /*inistring dstr_2019__LIST_APPEND*/ - /*_.VALSTR___V2025*/ meltfptr[2024] = (void*)&cdat->dstr_2019__LIST_APPEND; - cdat->dstr_2019__LIST_APPEND.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2019__LIST_APPEND.val, "LIST_APPEND", sizeof (cdat->dstr_2019__LIST_APPEND.val)-1); + strncpy(cdat->dstr_2016__.val, "))))", sizeof (cdat->dstr_2016__.val)-1); + + /*inistring dstr_2017__LIST_FIRST_ELEME*/ + /*_.VALSTR___V2018*/ meltfptr[2017] = (void*)&cdat->dstr_2017__LIST_FIRST_ELEME; + cdat->dstr_2017__LIST_FIRST_ELEME.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2017__LIST_FIRST_ELEME.val, "LIST_FIRST_ELEMENT", sizeof (cdat->dstr_2017__LIST_FIRST_ELEME.val)-1); + + /*iniobj dsym_2018__LIST_LAST_ELEMENT*/ +/*uniqueobj*/ if (!/*_.VALDATA___V2024*/ meltfptr[2023]) /*_.VALDATA___V2024*/ meltfptr[2023] = (void*)&cdat->dsym_2018__LIST_LAST_ELEMENT; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2018__LIST_LAST_ELEMENT", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2018__LIST_LAST_ELEMENT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); + cdat->dsym_2018__LIST_LAST_ELEMENT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_2018__LIST_LAST_ELEMENT.obj_hash = 83590997; + cdat->dsym_2018__LIST_LAST_ELEMENT.obj_len = 3; + + /*inistring dstr_2019__LIST_LAST_ELEMEN*/ + /*_.VALSTR___V2025*/ meltfptr[2024] = (void*)&cdat->dstr_2019__LIST_LAST_ELEMEN; + cdat->dstr_2019__LIST_LAST_ELEMEN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2019__LIST_LAST_ELEMEN.val, "LIST_LAST_ELEMENT", sizeof (cdat->dstr_2019__LIST_LAST_ELEMEN.val)-1); MELT_LOCATION("warmelt-first.melt:1341:/ iniobj"); - /*iniobj dobj_2020__LIST_APPEND*/ -/*_.VALDATA___V2026*/ meltfptr[2025] = (void*)&cdat->dobj_2020__LIST_APPEND; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2020__LIST_APPEND", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2020__LIST_APPEND", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->object_magic == OBMAG_OBJECT); - cdat->dobj_2020__LIST_APPEND.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_2020__LIST_APPEND.obj_hash = 454213651; - cdat->dobj_2020__LIST_APPEND.obj_len = 5; - - /*inimult dtup_2021__LIST_APPEND*/ - /*_.VALTUP___V2036*/ meltfptr[2035] = (void*)&cdat->dtup_2021__LIST_APPEND; - cdat->dtup_2021__LIST_APPEND.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE)))); - cdat->dtup_2021__LIST_APPEND.nbval = 5; - /*inimult dtup_2022__LIST_APPEND*/ - /*_.VALTUP___V2032*/ meltfptr[2031] = (void*)&cdat->dtup_2022__LIST_APPEND; - cdat->dtup_2022__LIST_APPEND.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE)))); - cdat->dtup_2022__LIST_APPEND.nbval = 2; + /*iniobj dobj_2020__LIST_LAST_ELEMENT*/ +/*_.VALDATA___V2026*/ meltfptr[2025] = (void*)&cdat->dobj_2020__LIST_LAST_ELEMENT; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2020__LIST_LAST_ELEMENT", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2020__LIST_LAST_ELEMENT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->object_magic == OBMAG_OBJECT); + cdat->dobj_2020__LIST_LAST_ELEMENT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); + cdat->dobj_2020__LIST_LAST_ELEMENT.obj_hash = 87587918; + cdat->dobj_2020__LIST_LAST_ELEMENT.obj_len = 5; + + /*inimult dtup_2021__LIST_LAST_ELEMENT*/ + /*_.VALTUP___V2032*/ meltfptr[2031] = (void*)&cdat->dtup_2021__LIST_LAST_ELEMENT; + cdat->dtup_2021__LIST_LAST_ELEMENT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE)))); + cdat->dtup_2021__LIST_LAST_ELEMENT.nbval = 3; + /*inimult dtup_2022__LIST_LAST_ELEMENT*/ + /*_.VALTUP___V2029*/ meltfptr[2028] = (void*)&cdat->dtup_2022__LIST_LAST_ELEMENT; + cdat->dtup_2022__LIST_LAST_ELEMENT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE)))); + cdat->dtup_2022__LIST_LAST_ELEMENT.nbval = 1; /*^iniobj*/ /*iniobj dobj_2023*/ /*_.VALDATA___V2028*/ meltfptr[2027] = (void*)&cdat->dobj_2023; @@ -23438,440 +23456,440 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2023", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_2023.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_2023.obj_num = 0; - cdat->dobj_2023.obj_hash = 920147696; + cdat->dobj_2023.obj_hash = 219007750; cdat->dobj_2023.obj_len = 2; - /*iniobj dsym_2024__EL*/ -/*uniqueobj*/ if (!/*_.VALDATA___V2030*/ meltfptr[2029]) /*_.VALDATA___V2030*/ meltfptr[2029] = (void*)&cdat->dsym_2024__EL; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2024__EL", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2024__EL", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); - cdat->dsym_2024__EL.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_2024__EL.obj_hash = 15029533; - cdat->dsym_2024__EL.obj_len = 3; - - /*inistring dstr_2025__EL*/ - /*_.VALSTR___V2031*/ meltfptr[2030] = (void*)&cdat->dstr_2025__EL; - cdat->dstr_2025__EL.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2025__EL.val, "EL", sizeof (cdat->dstr_2025__EL.val)-1); - + /*inistring dstr_2024__melt_pair_head_*/ + /*_.VALSTR___V2030*/ meltfptr[2029] = (void*)&cdat->dstr_2024__melt_pair_head_; + cdat->dstr_2024__melt_pair_head_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING)))); + strncpy(cdat->dstr_2024__melt_pair_head_.val, "(melt_pair_head (melt_list_last((melt_ptr_t)(", sizeof (cdat->dstr_2024__melt_pair_head_.val)-1); + + /*inistring dstr_2025__*/ + /*_.VALSTR___V2031*/ meltfptr[2030] = (void*)&cdat->dstr_2025__; + cdat->dstr_2025__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING)))); + strncpy(cdat->dstr_2025__.val, "))))", sizeof (cdat->dstr_2025__.val)-1); + + /*inistring dstr_2026__LIST_LAST_ELEMEN*/ + /*_.VALSTR___V2027*/ meltfptr[2026] = (void*)&cdat->dstr_2026__LIST_LAST_ELEMEN; + cdat->dstr_2026__LIST_LAST_ELEMEN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2026__LIST_LAST_ELEMEN.val, "LIST_LAST_ELEMENT", sizeof (cdat->dstr_2026__LIST_LAST_ELEMEN.val)-1); + + /*iniobj dsym_2027__LIST_LENGTH*/ +/*uniqueobj*/ if (!/*_.VALDATA___V2033*/ meltfptr[2032]) /*_.VALDATA___V2033*/ meltfptr[2032] = (void*)&cdat->dsym_2027__LIST_LENGTH; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2027__LIST_LENGTH", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2027__LIST_LENGTH", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); + cdat->dsym_2027__LIST_LENGTH.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_2027__LIST_LENGTH.obj_hash = 933284122; + cdat->dsym_2027__LIST_LENGTH.obj_len = 3; + + /*inistring dstr_2028__LIST_LENGTH*/ + /*_.VALSTR___V2034*/ meltfptr[2033] = (void*)&cdat->dstr_2028__LIST_LENGTH; + cdat->dstr_2028__LIST_LENGTH.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2028__LIST_LENGTH.val, "LIST_LENGTH", sizeof (cdat->dstr_2028__LIST_LENGTH.val)-1); + + MELT_LOCATION("warmelt-first.melt:1344:/ iniobj"); + /*iniobj dobj_2029__LIST_LENGTH*/ +/*_.VALDATA___V2035*/ meltfptr[2034] = (void*)&cdat->dobj_2029__LIST_LENGTH; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2029__LIST_LENGTH", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2029__LIST_LENGTH", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->object_magic == OBMAG_OBJECT); + cdat->dobj_2029__LIST_LENGTH.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); + cdat->dobj_2029__LIST_LENGTH.obj_hash = 88238815; + cdat->dobj_2029__LIST_LENGTH.obj_len = 5; + + /*inimult dtup_2030__LIST_LENGTH*/ + /*_.VALTUP___V2041*/ meltfptr[2040] = (void*)&cdat->dtup_2030__LIST_LENGTH; + cdat->dtup_2030__LIST_LENGTH.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE)))); + cdat->dtup_2030__LIST_LENGTH.nbval = 3; + /*inimult dtup_2031__LIST_LENGTH*/ + /*_.VALTUP___V2038*/ meltfptr[2037] = (void*)&cdat->dtup_2031__LIST_LENGTH; + cdat->dtup_2031__LIST_LENGTH.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE)))); + cdat->dtup_2031__LIST_LENGTH.nbval = 1; /*^iniobj*/ - /*iniobj dobj_2026*/ -/*_.VALDATA___V2029*/ meltfptr[2028] = (void*)&cdat->dobj_2026; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2026", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2026", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); - cdat->dobj_2026.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); - cdat->dobj_2026.obj_num = 1; - cdat->dobj_2026.obj_hash = 537861137; - cdat->dobj_2026.obj_len = 2; - - /*inistring dstr_2027__meltgc_append_li*/ - /*_.VALSTR___V2033*/ meltfptr[2032] = (void*)&cdat->dstr_2027__meltgc_append_li; - cdat->dstr_2027__meltgc_append_li.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING)))); - strncpy(cdat->dstr_2027__meltgc_append_li.val, "meltgc_append_list((melt_ptr_t)(", sizeof (cdat->dstr_2027__meltgc_append_li.val)-1); - - /*inistring dstr_2028__melt_ptr_t_*/ - /*_.VALSTR___V2034*/ meltfptr[2033] = (void*)&cdat->dstr_2028__melt_ptr_t_; - cdat->dstr_2028__melt_ptr_t_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING)))); - strncpy(cdat->dstr_2028__melt_ptr_t_.val, "), (melt_ptr_t)(", sizeof (cdat->dstr_2028__melt_ptr_t_.val)-1); - - /*inistring dstr_2029__*/ - /*_.VALSTR___V2035*/ meltfptr[2034] = (void*)&cdat->dstr_2029__; - cdat->dstr_2029__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING)))); - strncpy(cdat->dstr_2029__.val, "))", sizeof (cdat->dstr_2029__.val)-1); - - /*inistring dstr_2030__LIST_APPEND*/ - /*_.VALSTR___V2027*/ meltfptr[2026] = (void*)&cdat->dstr_2030__LIST_APPEND; - cdat->dstr_2030__LIST_APPEND.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2030__LIST_APPEND.val, "LIST_APPEND", sizeof (cdat->dstr_2030__LIST_APPEND.val)-1); - - /*iniobj dsym_2031__LIST_PREPEND*/ -/*uniqueobj*/ if (!/*_.VALDATA___V2037*/ meltfptr[2036]) /*_.VALDATA___V2037*/ meltfptr[2036] = (void*)&cdat->dsym_2031__LIST_PREPEND; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2031__LIST_PREPEND", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2031__LIST_PREPEND", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); - cdat->dsym_2031__LIST_PREPEND.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_2031__LIST_PREPEND.obj_hash = 1063959021; - cdat->dsym_2031__LIST_PREPEND.obj_len = 3; - - /*inistring dstr_2032__LIST_PREPEND*/ - /*_.VALSTR___V2038*/ meltfptr[2037] = (void*)&cdat->dstr_2032__LIST_PREPEND; - cdat->dstr_2032__LIST_PREPEND.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2032__LIST_PREPEND.val, "LIST_PREPEND", sizeof (cdat->dstr_2032__LIST_PREPEND.val)-1); - - MELT_LOCATION("warmelt-first.melt:1345:/ iniobj"); - /*iniobj dobj_2033__LIST_PREPEND*/ -/*_.VALDATA___V2039*/ meltfptr[2038] = (void*)&cdat->dobj_2033__LIST_PREPEND; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2033__LIST_PREPEND", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2033__LIST_PREPEND", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->object_magic == OBMAG_OBJECT); - cdat->dobj_2033__LIST_PREPEND.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_2033__LIST_PREPEND.obj_hash = 288434883; - cdat->dobj_2033__LIST_PREPEND.obj_len = 5; - - /*inimult dtup_2034__LIST_PREPEND*/ - /*_.VALTUP___V2047*/ meltfptr[2046] = (void*)&cdat->dtup_2034__LIST_PREPEND; - cdat->dtup_2034__LIST_PREPEND.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE)))); - cdat->dtup_2034__LIST_PREPEND.nbval = 5; - /*inimult dtup_2035__LIST_PREPEND*/ - /*_.VALTUP___V2043*/ meltfptr[2042] = (void*)&cdat->dtup_2035__LIST_PREPEND; - cdat->dtup_2035__LIST_PREPEND.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE)))); - cdat->dtup_2035__LIST_PREPEND.nbval = 2; + /*iniobj dobj_2032*/ +/*_.VALDATA___V2037*/ meltfptr[2036] = (void*)&cdat->dobj_2032; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2032", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2032", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); + cdat->dobj_2032.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); + cdat->dobj_2032.obj_num = 0; + cdat->dobj_2032.obj_hash = 513667324; + cdat->dobj_2032.obj_len = 2; + + /*inistring dstr_2033__melt_list_lengt*/ + /*_.VALSTR___V2039*/ meltfptr[2038] = (void*)&cdat->dstr_2033__melt_list_lengt; + cdat->dstr_2033__melt_list_lengt.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING)))); + strncpy(cdat->dstr_2033__melt_list_lengt.val, "(melt_list_length((melt_ptr_t)(", sizeof (cdat->dstr_2033__melt_list_lengt.val)-1); + + /*inistring dstr_2034__*/ + /*_.VALSTR___V2040*/ meltfptr[2039] = (void*)&cdat->dstr_2034__; + cdat->dstr_2034__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING)))); + strncpy(cdat->dstr_2034__.val, ")))", sizeof (cdat->dstr_2034__.val)-1); + + /*inistring dstr_2035__LIST_LENGTH*/ + /*_.VALSTR___V2036*/ meltfptr[2035] = (void*)&cdat->dstr_2035__LIST_LENGTH; + cdat->dstr_2035__LIST_LENGTH.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2035__LIST_LENGTH.val, "LIST_LENGTH", sizeof (cdat->dstr_2035__LIST_LENGTH.val)-1); + + /*iniobj dsym_2036__LIST_APPEND*/ +/*uniqueobj*/ if (!/*_.VALDATA___V2042*/ meltfptr[2041]) /*_.VALDATA___V2042*/ meltfptr[2041] = (void*)&cdat->dsym_2036__LIST_APPEND; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2036__LIST_APPEND", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2036__LIST_APPEND", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); + cdat->dsym_2036__LIST_APPEND.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_2036__LIST_APPEND.obj_hash = 56487139; + cdat->dsym_2036__LIST_APPEND.obj_len = 3; + + /*inistring dstr_2037__LIST_APPEND*/ + /*_.VALSTR___V2043*/ meltfptr[2042] = (void*)&cdat->dstr_2037__LIST_APPEND; + cdat->dstr_2037__LIST_APPEND.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2037__LIST_APPEND.val, "LIST_APPEND", sizeof (cdat->dstr_2037__LIST_APPEND.val)-1); + + MELT_LOCATION("warmelt-first.melt:1348:/ iniobj"); + /*iniobj dobj_2038__LIST_APPEND*/ +/*_.VALDATA___V2044*/ meltfptr[2043] = (void*)&cdat->dobj_2038__LIST_APPEND; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2038__LIST_APPEND", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2038__LIST_APPEND", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->object_magic == OBMAG_OBJECT); + cdat->dobj_2038__LIST_APPEND.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); + cdat->dobj_2038__LIST_APPEND.obj_hash = 698306173; + cdat->dobj_2038__LIST_APPEND.obj_len = 5; + + /*inimult dtup_2039__LIST_APPEND*/ + /*_.VALTUP___V2054*/ meltfptr[2053] = (void*)&cdat->dtup_2039__LIST_APPEND; + cdat->dtup_2039__LIST_APPEND.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE)))); + cdat->dtup_2039__LIST_APPEND.nbval = 5; + /*inimult dtup_2040__LIST_APPEND*/ + /*_.VALTUP___V2050*/ meltfptr[2049] = (void*)&cdat->dtup_2040__LIST_APPEND; + cdat->dtup_2040__LIST_APPEND.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE)))); + cdat->dtup_2040__LIST_APPEND.nbval = 2; /*^iniobj*/ - /*iniobj dobj_2036*/ -/*_.VALDATA___V2041*/ meltfptr[2040] = (void*)&cdat->dobj_2036; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2036", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2036", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); - cdat->dobj_2036.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); - cdat->dobj_2036.obj_num = 0; - cdat->dobj_2036.obj_hash = 1046868743; - cdat->dobj_2036.obj_len = 2; - + /*iniobj dobj_2041*/ +/*_.VALDATA___V2046*/ meltfptr[2045] = (void*)&cdat->dobj_2041; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2041", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2041", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); + cdat->dobj_2041.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); + cdat->dobj_2041.obj_num = 0; + cdat->dobj_2041.obj_hash = 368731332; + cdat->dobj_2041.obj_len = 2; + + /*iniobj dsym_2042__EL*/ +/*uniqueobj*/ if (!/*_.VALDATA___V2048*/ meltfptr[2047]) /*_.VALDATA___V2048*/ meltfptr[2047] = (void*)&cdat->dsym_2042__EL; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2042__EL", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2042__EL", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); + cdat->dsym_2042__EL.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_2042__EL.obj_hash = 15029533; + cdat->dsym_2042__EL.obj_len = 3; + + /*inistring dstr_2043__EL*/ + /*_.VALSTR___V2049*/ meltfptr[2048] = (void*)&cdat->dstr_2043__EL; + cdat->dstr_2043__EL.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2043__EL.val, "EL", sizeof (cdat->dstr_2043__EL.val)-1); + /*^iniobj*/ - /*iniobj dobj_2037*/ -/*_.VALDATA___V2042*/ meltfptr[2041] = (void*)&cdat->dobj_2037; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2037", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2037", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); - cdat->dobj_2037.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); - cdat->dobj_2037.obj_num = 1; - cdat->dobj_2037.obj_hash = 1030715642; - cdat->dobj_2037.obj_len = 2; - - /*inistring dstr_2038__meltgc_prepend_l*/ - /*_.VALSTR___V2044*/ meltfptr[2043] = (void*)&cdat->dstr_2038__meltgc_prepend_l; - cdat->dstr_2038__meltgc_prepend_l.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING)))); - strncpy(cdat->dstr_2038__meltgc_prepend_l.val, "meltgc_prepend_list((melt_ptr_t)(", sizeof (cdat->dstr_2038__meltgc_prepend_l.val)-1); - - /*inistring dstr_2039__melt_ptr_t_*/ - /*_.VALSTR___V2045*/ meltfptr[2044] = (void*)&cdat->dstr_2039__melt_ptr_t_; - cdat->dstr_2039__melt_ptr_t_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING)))); - strncpy(cdat->dstr_2039__melt_ptr_t_.val, "), (melt_ptr_t)(", sizeof (cdat->dstr_2039__melt_ptr_t_.val)-1); - - /*inistring dstr_2040__*/ - /*_.VALSTR___V2046*/ meltfptr[2045] = (void*)&cdat->dstr_2040__; - cdat->dstr_2040__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING)))); - strncpy(cdat->dstr_2040__.val, "))", sizeof (cdat->dstr_2040__.val)-1); - - /*inistring dstr_2041__LIST_PREPEND*/ - /*_.VALSTR___V2040*/ meltfptr[2039] = (void*)&cdat->dstr_2041__LIST_PREPEND; - cdat->dstr_2041__LIST_PREPEND.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2041__LIST_PREPEND.val, "LIST_PREPEND", sizeof (cdat->dstr_2041__LIST_PREPEND.val)-1); - - /*iniobj dsym_2042__LIST_POPFIRST*/ -/*uniqueobj*/ if (!/*_.VALDATA___V2048*/ meltfptr[2047]) /*_.VALDATA___V2048*/ meltfptr[2047] = (void*)&cdat->dsym_2042__LIST_POPFIRST; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2042__LIST_POPFIRST", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2042__LIST_POPFIRST", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); - cdat->dsym_2042__LIST_POPFIRST.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_2042__LIST_POPFIRST.obj_hash = 862248144; - cdat->dsym_2042__LIST_POPFIRST.obj_len = 3; - - /*inistring dstr_2043__LIST_POPFIRST*/ - /*_.VALSTR___V2049*/ meltfptr[2048] = (void*)&cdat->dstr_2043__LIST_POPFIRST; - cdat->dstr_2043__LIST_POPFIRST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2043__LIST_POPFIRST.val, "LIST_POPFIRST", sizeof (cdat->dstr_2043__LIST_POPFIRST.val)-1); - - MELT_LOCATION("warmelt-first.melt:1349:/ iniobj"); - /*iniobj dobj_2044__LIST_POPFIRST*/ -/*_.VALDATA___V2050*/ meltfptr[2049] = (void*)&cdat->dobj_2044__LIST_POPFIRST; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2044__LIST_POPFIRST", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2044__LIST_POPFIRST", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->object_magic == OBMAG_OBJECT); - cdat->dobj_2044__LIST_POPFIRST.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_2044__LIST_POPFIRST.obj_hash = 592882558; - cdat->dobj_2044__LIST_POPFIRST.obj_len = 5; - - /*inimult dtup_2045__LIST_POPFIRST*/ - /*_.VALTUP___V2056*/ meltfptr[2055] = (void*)&cdat->dtup_2045__LIST_POPFIRST; - cdat->dtup_2045__LIST_POPFIRST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE)))); - cdat->dtup_2045__LIST_POPFIRST.nbval = 3; - /*inimult dtup_2046__LIST_POPFIRST*/ - /*_.VALTUP___V2053*/ meltfptr[2052] = (void*)&cdat->dtup_2046__LIST_POPFIRST; - cdat->dtup_2046__LIST_POPFIRST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE)))); - cdat->dtup_2046__LIST_POPFIRST.nbval = 1; + /*iniobj dobj_2044*/ +/*_.VALDATA___V2047*/ meltfptr[2046] = (void*)&cdat->dobj_2044; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2044", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2044", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); + cdat->dobj_2044.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); + cdat->dobj_2044.obj_num = 1; + cdat->dobj_2044.obj_hash = 575682196; + cdat->dobj_2044.obj_len = 2; + + /*inistring dstr_2045__meltgc_append_li*/ + /*_.VALSTR___V2051*/ meltfptr[2050] = (void*)&cdat->dstr_2045__meltgc_append_li; + cdat->dstr_2045__meltgc_append_li.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING)))); + strncpy(cdat->dstr_2045__meltgc_append_li.val, "meltgc_append_list((melt_ptr_t)(", sizeof (cdat->dstr_2045__meltgc_append_li.val)-1); + + /*inistring dstr_2046__melt_ptr_t_*/ + /*_.VALSTR___V2052*/ meltfptr[2051] = (void*)&cdat->dstr_2046__melt_ptr_t_; + cdat->dstr_2046__melt_ptr_t_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING)))); + strncpy(cdat->dstr_2046__melt_ptr_t_.val, "), (melt_ptr_t)(", sizeof (cdat->dstr_2046__melt_ptr_t_.val)-1); + + /*inistring dstr_2047__*/ + /*_.VALSTR___V2053*/ meltfptr[2052] = (void*)&cdat->dstr_2047__; + cdat->dstr_2047__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING)))); + strncpy(cdat->dstr_2047__.val, "))", sizeof (cdat->dstr_2047__.val)-1); + + /*inistring dstr_2048__LIST_APPEND*/ + /*_.VALSTR___V2045*/ meltfptr[2044] = (void*)&cdat->dstr_2048__LIST_APPEND; + cdat->dstr_2048__LIST_APPEND.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2048__LIST_APPEND.val, "LIST_APPEND", sizeof (cdat->dstr_2048__LIST_APPEND.val)-1); + + /*iniobj dsym_2049__LIST_PREPEND*/ +/*uniqueobj*/ if (!/*_.VALDATA___V2055*/ meltfptr[2054]) /*_.VALDATA___V2055*/ meltfptr[2054] = (void*)&cdat->dsym_2049__LIST_PREPEND; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2049__LIST_PREPEND", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2049__LIST_PREPEND", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); + cdat->dsym_2049__LIST_PREPEND.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_2049__LIST_PREPEND.obj_hash = 1063959021; + cdat->dsym_2049__LIST_PREPEND.obj_len = 3; + + /*inistring dstr_2050__LIST_PREPEND*/ + /*_.VALSTR___V2056*/ meltfptr[2055] = (void*)&cdat->dstr_2050__LIST_PREPEND; + cdat->dstr_2050__LIST_PREPEND.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2050__LIST_PREPEND.val, "LIST_PREPEND", sizeof (cdat->dstr_2050__LIST_PREPEND.val)-1); + + MELT_LOCATION("warmelt-first.melt:1352:/ iniobj"); + /*iniobj dobj_2051__LIST_PREPEND*/ +/*_.VALDATA___V2057*/ meltfptr[2056] = (void*)&cdat->dobj_2051__LIST_PREPEND; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2051__LIST_PREPEND", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2051__LIST_PREPEND", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->object_magic == OBMAG_OBJECT); + cdat->dobj_2051__LIST_PREPEND.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); + cdat->dobj_2051__LIST_PREPEND.obj_hash = 488065203; + cdat->dobj_2051__LIST_PREPEND.obj_len = 5; + + /*inimult dtup_2052__LIST_PREPEND*/ + /*_.VALTUP___V2065*/ meltfptr[2064] = (void*)&cdat->dtup_2052__LIST_PREPEND; + cdat->dtup_2052__LIST_PREPEND.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE)))); + cdat->dtup_2052__LIST_PREPEND.nbval = 5; + /*inimult dtup_2053__LIST_PREPEND*/ + /*_.VALTUP___V2061*/ meltfptr[2060] = (void*)&cdat->dtup_2053__LIST_PREPEND; + cdat->dtup_2053__LIST_PREPEND.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE)))); + cdat->dtup_2053__LIST_PREPEND.nbval = 2; /*^iniobj*/ - /*iniobj dobj_2047*/ -/*_.VALDATA___V2052*/ meltfptr[2051] = (void*)&cdat->dobj_2047; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2047", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2047", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); - cdat->dobj_2047.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); - cdat->dobj_2047.obj_num = 0; - cdat->dobj_2047.obj_hash = 431645889; - cdat->dobj_2047.obj_len = 2; - - /*inistring dstr_2048__meltgc_popfirst*/ - /*_.VALSTR___V2054*/ meltfptr[2053] = (void*)&cdat->dstr_2048__meltgc_popfirst; - cdat->dstr_2048__meltgc_popfirst.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING)))); - strncpy(cdat->dstr_2048__meltgc_popfirst.val, "(meltgc_popfirst_list((melt_ptr_t)(", sizeof (cdat->dstr_2048__meltgc_popfirst.val)-1); - - /*inistring dstr_2049__*/ - /*_.VALSTR___V2055*/ meltfptr[2054] = (void*)&cdat->dstr_2049__; - cdat->dstr_2049__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING)))); - strncpy(cdat->dstr_2049__.val, ")))", sizeof (cdat->dstr_2049__.val)-1); - - /*inistring dstr_2050__LIST_POPFIRST*/ - /*_.VALSTR___V2051*/ meltfptr[2050] = (void*)&cdat->dstr_2050__LIST_POPFIRST; - cdat->dstr_2050__LIST_POPFIRST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2050__LIST_POPFIRST.val, "LIST_POPFIRST", sizeof (cdat->dstr_2050__LIST_POPFIRST.val)-1); - - /*iniobj dsym_2051__MAKE_LIST*/ -/*uniqueobj*/ if (!/*_.VALDATA___V2057*/ meltfptr[2056]) /*_.VALDATA___V2057*/ meltfptr[2056] = (void*)&cdat->dsym_2051__MAKE_LIST; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2051__MAKE_LIST", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2051__MAKE_LIST", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); - cdat->dsym_2051__MAKE_LIST.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_2051__MAKE_LIST.obj_hash = 184573384; - cdat->dsym_2051__MAKE_LIST.obj_len = 3; - - /*inistring dstr_2052__MAKE_LIST*/ - /*_.VALSTR___V2058*/ meltfptr[2057] = (void*)&cdat->dstr_2052__MAKE_LIST; - cdat->dstr_2052__MAKE_LIST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2052__MAKE_LIST.val, "MAKE_LIST", sizeof (cdat->dstr_2052__MAKE_LIST.val)-1); - - MELT_LOCATION("warmelt-first.melt:1353:/ iniobj"); - /*iniobj dobj_2053__MAKE_LIST*/ -/*_.VALDATA___V2059*/ meltfptr[2058] = (void*)&cdat->dobj_2053__MAKE_LIST; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2053__MAKE_LIST", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2053__MAKE_LIST", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->object_magic == OBMAG_OBJECT); - cdat->dobj_2053__MAKE_LIST.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_2053__MAKE_LIST.obj_hash = 3121560; - cdat->dobj_2053__MAKE_LIST.obj_len = 5; - - /*inimult dtup_2054__MAKE_LIST*/ - /*_.VALTUP___V2065*/ meltfptr[2064] = (void*)&cdat->dtup_2054__MAKE_LIST; - cdat->dtup_2054__MAKE_LIST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE)))); - cdat->dtup_2054__MAKE_LIST.nbval = 3; - /*inimult dtup_2055__MAKE_LIST*/ - /*_.VALTUP___V2062*/ meltfptr[2061] = (void*)&cdat->dtup_2055__MAKE_LIST; - cdat->dtup_2055__MAKE_LIST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE)))); - cdat->dtup_2055__MAKE_LIST.nbval = 1; + /*iniobj dobj_2054*/ +/*_.VALDATA___V2059*/ meltfptr[2058] = (void*)&cdat->dobj_2054; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2054", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2054", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); + cdat->dobj_2054.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); + cdat->dobj_2054.obj_num = 0; + cdat->dobj_2054.obj_hash = 1012977481; + cdat->dobj_2054.obj_len = 2; + /*^iniobj*/ - /*iniobj dobj_2056*/ -/*_.VALDATA___V2061*/ meltfptr[2060] = (void*)&cdat->dobj_2056; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2056", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2056", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); - cdat->dobj_2056.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); - cdat->dobj_2056.obj_num = 0; - cdat->dobj_2056.obj_hash = 1011600813; - cdat->dobj_2056.obj_len = 2; - - /*inistring dstr_2057__meltgc_new_list*/ - /*_.VALSTR___V2063*/ meltfptr[2062] = (void*)&cdat->dstr_2057__meltgc_new_list; - cdat->dstr_2057__meltgc_new_list.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING)))); - strncpy(cdat->dstr_2057__meltgc_new_list.val, "(meltgc_new_list((meltobject_ptr_t)(", sizeof (cdat->dstr_2057__meltgc_new_list.val)-1); + /*iniobj dobj_2055*/ +/*_.VALDATA___V2060*/ meltfptr[2059] = (void*)&cdat->dobj_2055; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2055", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2055", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); + cdat->dobj_2055.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); + cdat->dobj_2055.obj_num = 1; + cdat->dobj_2055.obj_hash = 599618912; + cdat->dobj_2055.obj_len = 2; + + /*inistring dstr_2056__meltgc_prepend_l*/ + /*_.VALSTR___V2062*/ meltfptr[2061] = (void*)&cdat->dstr_2056__meltgc_prepend_l; + cdat->dstr_2056__meltgc_prepend_l.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING)))); + strncpy(cdat->dstr_2056__meltgc_prepend_l.val, "meltgc_prepend_list((melt_ptr_t)(", sizeof (cdat->dstr_2056__meltgc_prepend_l.val)-1); + + /*inistring dstr_2057__melt_ptr_t_*/ + /*_.VALSTR___V2063*/ meltfptr[2062] = (void*)&cdat->dstr_2057__melt_ptr_t_; + cdat->dstr_2057__melt_ptr_t_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING)))); + strncpy(cdat->dstr_2057__melt_ptr_t_.val, "), (melt_ptr_t)(", sizeof (cdat->dstr_2057__melt_ptr_t_.val)-1); /*inistring dstr_2058__*/ /*_.VALSTR___V2064*/ meltfptr[2063] = (void*)&cdat->dstr_2058__; cdat->dstr_2058__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING)))); - strncpy(cdat->dstr_2058__.val, ")))", sizeof (cdat->dstr_2058__.val)-1); - - /*inistring dstr_2059__MAKE_LIST*/ - /*_.VALSTR___V2060*/ meltfptr[2059] = (void*)&cdat->dstr_2059__MAKE_LIST; - cdat->dstr_2059__MAKE_LIST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2059__MAKE_LIST.val, "MAKE_LIST", sizeof (cdat->dstr_2059__MAKE_LIST.val)-1); - - /*iniobj dsym_2060__IS_PAIR*/ -/*uniqueobj*/ if (!/*_.VALDATA___V2066*/ meltfptr[2065]) /*_.VALDATA___V2066*/ meltfptr[2065] = (void*)&cdat->dsym_2060__IS_PAIR; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2060__IS_PAIR", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2060__IS_PAIR", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); - cdat->dsym_2060__IS_PAIR.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_2060__IS_PAIR.obj_hash = 135748880; - cdat->dsym_2060__IS_PAIR.obj_len = 3; - - /*inistring dstr_2061__IS_PAIR*/ - /*_.VALSTR___V2067*/ meltfptr[2066] = (void*)&cdat->dstr_2061__IS_PAIR; - cdat->dstr_2061__IS_PAIR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2061__IS_PAIR.val, "IS_PAIR", sizeof (cdat->dstr_2061__IS_PAIR.val)-1); + strncpy(cdat->dstr_2058__.val, "))", sizeof (cdat->dstr_2058__.val)-1); + + /*inistring dstr_2059__LIST_PREPEND*/ + /*_.VALSTR___V2058*/ meltfptr[2057] = (void*)&cdat->dstr_2059__LIST_PREPEND; + cdat->dstr_2059__LIST_PREPEND.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2059__LIST_PREPEND.val, "LIST_PREPEND", sizeof (cdat->dstr_2059__LIST_PREPEND.val)-1); + + /*iniobj dsym_2060__LIST_POPFIRST*/ +/*uniqueobj*/ if (!/*_.VALDATA___V2066*/ meltfptr[2065]) /*_.VALDATA___V2066*/ meltfptr[2065] = (void*)&cdat->dsym_2060__LIST_POPFIRST; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2060__LIST_POPFIRST", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2060__LIST_POPFIRST", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); + cdat->dsym_2060__LIST_POPFIRST.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_2060__LIST_POPFIRST.obj_hash = 862248144; + cdat->dsym_2060__LIST_POPFIRST.obj_len = 3; + + /*inistring dstr_2061__LIST_POPFIRST*/ + /*_.VALSTR___V2067*/ meltfptr[2066] = (void*)&cdat->dstr_2061__LIST_POPFIRST; + cdat->dstr_2061__LIST_POPFIRST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2061__LIST_POPFIRST.val, "LIST_POPFIRST", sizeof (cdat->dstr_2061__LIST_POPFIRST.val)-1); + + MELT_LOCATION("warmelt-first.melt:1356:/ iniobj"); + /*iniobj dobj_2062__LIST_POPFIRST*/ +/*_.VALDATA___V2068*/ meltfptr[2067] = (void*)&cdat->dobj_2062__LIST_POPFIRST; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2062__LIST_POPFIRST", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2062__LIST_POPFIRST", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->object_magic == OBMAG_OBJECT); + cdat->dobj_2062__LIST_POPFIRST.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); + cdat->dobj_2062__LIST_POPFIRST.obj_hash = 127930559; + cdat->dobj_2062__LIST_POPFIRST.obj_len = 5; + + /*inimult dtup_2063__LIST_POPFIRST*/ + /*_.VALTUP___V2074*/ meltfptr[2073] = (void*)&cdat->dtup_2063__LIST_POPFIRST; + cdat->dtup_2063__LIST_POPFIRST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE)))); + cdat->dtup_2063__LIST_POPFIRST.nbval = 3; + /*inimult dtup_2064__LIST_POPFIRST*/ + /*_.VALTUP___V2071*/ meltfptr[2070] = (void*)&cdat->dtup_2064__LIST_POPFIRST; + cdat->dtup_2064__LIST_POPFIRST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE)))); + cdat->dtup_2064__LIST_POPFIRST.nbval = 1; + /*^iniobj*/ + /*iniobj dobj_2065*/ +/*_.VALDATA___V2070*/ meltfptr[2069] = (void*)&cdat->dobj_2065; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2065", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2065", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); + cdat->dobj_2065.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); + cdat->dobj_2065.obj_num = 0; + cdat->dobj_2065.obj_hash = 443836231; + cdat->dobj_2065.obj_len = 2; + + /*inistring dstr_2066__meltgc_popfirst*/ + /*_.VALSTR___V2072*/ meltfptr[2071] = (void*)&cdat->dstr_2066__meltgc_popfirst; + cdat->dstr_2066__meltgc_popfirst.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING)))); + strncpy(cdat->dstr_2066__meltgc_popfirst.val, "(meltgc_popfirst_list((melt_ptr_t)(", sizeof (cdat->dstr_2066__meltgc_popfirst.val)-1); + + /*inistring dstr_2067__*/ + /*_.VALSTR___V2073*/ meltfptr[2072] = (void*)&cdat->dstr_2067__; + cdat->dstr_2067__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING)))); + strncpy(cdat->dstr_2067__.val, ")))", sizeof (cdat->dstr_2067__.val)-1); + + /*inistring dstr_2068__LIST_POPFIRST*/ + /*_.VALSTR___V2069*/ meltfptr[2068] = (void*)&cdat->dstr_2068__LIST_POPFIRST; + cdat->dstr_2068__LIST_POPFIRST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2068__LIST_POPFIRST.val, "LIST_POPFIRST", sizeof (cdat->dstr_2068__LIST_POPFIRST.val)-1); + + /*iniobj dsym_2069__MAKE_LIST*/ +/*uniqueobj*/ if (!/*_.VALDATA___V2075*/ meltfptr[2074]) /*_.VALDATA___V2075*/ meltfptr[2074] = (void*)&cdat->dsym_2069__MAKE_LIST; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2069__MAKE_LIST", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2069__MAKE_LIST", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); + cdat->dsym_2069__MAKE_LIST.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_2069__MAKE_LIST.obj_hash = 184573384; + cdat->dsym_2069__MAKE_LIST.obj_len = 3; + + /*inistring dstr_2070__MAKE_LIST*/ + /*_.VALSTR___V2076*/ meltfptr[2075] = (void*)&cdat->dstr_2070__MAKE_LIST; + cdat->dstr_2070__MAKE_LIST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2070__MAKE_LIST.val, "MAKE_LIST", sizeof (cdat->dstr_2070__MAKE_LIST.val)-1); MELT_LOCATION("warmelt-first.melt:1360:/ iniobj"); - /*iniobj dobj_2062__IS_PAIR*/ -/*_.VALDATA___V2068*/ meltfptr[2067] = (void*)&cdat->dobj_2062__IS_PAIR; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2062__IS_PAIR", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2062__IS_PAIR", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->object_magic == OBMAG_OBJECT); - cdat->dobj_2062__IS_PAIR.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_2062__IS_PAIR.obj_hash = 1067010109; - cdat->dobj_2062__IS_PAIR.obj_len = 5; - - /*inimult dtup_2063__IS_PAIR*/ - /*_.VALTUP___V2076*/ meltfptr[2075] = (void*)&cdat->dtup_2063__IS_PAIR; - cdat->dtup_2063__IS_PAIR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE)))); - cdat->dtup_2063__IS_PAIR.nbval = 3; - /*inimult dtup_2064__IS_PAIR*/ - /*_.VALTUP___V2073*/ meltfptr[2072] = (void*)&cdat->dtup_2064__IS_PAIR; - cdat->dtup_2064__IS_PAIR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE)))); - cdat->dtup_2064__IS_PAIR.nbval = 1; - /*iniobj dsym_2065__PA*/ -/*uniqueobj*/ if (!/*_.VALDATA___V2071*/ meltfptr[2070]) /*_.VALDATA___V2071*/ meltfptr[2070] = (void*)&cdat->dsym_2065__PA; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2065__PA", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2065__PA", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); - cdat->dsym_2065__PA.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_2065__PA.obj_hash = 94633376; - cdat->dsym_2065__PA.obj_len = 3; - - /*inistring dstr_2066__PA*/ - /*_.VALSTR___V2072*/ meltfptr[2071] = (void*)&cdat->dstr_2066__PA; - cdat->dstr_2066__PA.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2066__PA.val, "PA", sizeof (cdat->dstr_2066__PA.val)-1); - + /*iniobj dobj_2071__MAKE_LIST*/ +/*_.VALDATA___V2077*/ meltfptr[2076] = (void*)&cdat->dobj_2071__MAKE_LIST; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2071__MAKE_LIST", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2071__MAKE_LIST", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->object_magic == OBMAG_OBJECT); + cdat->dobj_2071__MAKE_LIST.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); + cdat->dobj_2071__MAKE_LIST.obj_hash = 1047823858; + cdat->dobj_2071__MAKE_LIST.obj_len = 5; + + /*inimult dtup_2072__MAKE_LIST*/ + /*_.VALTUP___V2083*/ meltfptr[2082] = (void*)&cdat->dtup_2072__MAKE_LIST; + cdat->dtup_2072__MAKE_LIST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE)))); + cdat->dtup_2072__MAKE_LIST.nbval = 3; + /*inimult dtup_2073__MAKE_LIST*/ + /*_.VALTUP___V2080*/ meltfptr[2079] = (void*)&cdat->dtup_2073__MAKE_LIST; + cdat->dtup_2073__MAKE_LIST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE)))); + cdat->dtup_2073__MAKE_LIST.nbval = 1; /*^iniobj*/ - /*iniobj dobj_2067*/ -/*_.VALDATA___V2070*/ meltfptr[2069] = (void*)&cdat->dobj_2067; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2067", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2067", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); - cdat->dobj_2067.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); - cdat->dobj_2067.obj_num = 0; - cdat->dobj_2067.obj_hash = 314983693; - cdat->dobj_2067.obj_len = 2; - - /*inistring dstr_2068__melt_magic_disc*/ - /*_.VALSTR___V2074*/ meltfptr[2073] = (void*)&cdat->dstr_2068__melt_magic_disc; - cdat->dstr_2068__melt_magic_disc.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING)))); - strncpy(cdat->dstr_2068__melt_magic_disc.val, "(melt_magic_discr((melt_ptr_t)(", sizeof (cdat->dstr_2068__melt_magic_disc.val)-1); - - /*inistring dstr_2069__OBMAG_PAIR*/ - /*_.VALSTR___V2075*/ meltfptr[2074] = (void*)&cdat->dstr_2069__OBMAG_PAIR; - cdat->dstr_2069__OBMAG_PAIR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING)))); - strncpy(cdat->dstr_2069__OBMAG_PAIR.val, ")) == OBMAG_PAIR)", sizeof (cdat->dstr_2069__OBMAG_PAIR.val)-1); - - /*inistring dstr_2070__IS_PAIR*/ - /*_.VALSTR___V2069*/ meltfptr[2068] = (void*)&cdat->dstr_2070__IS_PAIR; - cdat->dstr_2070__IS_PAIR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2070__IS_PAIR.val, "IS_PAIR", sizeof (cdat->dstr_2070__IS_PAIR.val)-1); - - /*iniobj dsym_2071__PAIR_HEAD*/ -/*uniqueobj*/ if (!/*_.VALDATA___V2077*/ meltfptr[2076]) /*_.VALDATA___V2077*/ meltfptr[2076] = (void*)&cdat->dsym_2071__PAIR_HEAD; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2071__PAIR_HEAD", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2071__PAIR_HEAD", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); - cdat->dsym_2071__PAIR_HEAD.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_2071__PAIR_HEAD.obj_hash = 1025514553; - cdat->dsym_2071__PAIR_HEAD.obj_len = 3; - - /*inistring dstr_2072__PAIR_HEAD*/ - /*_.VALSTR___V2078*/ meltfptr[2077] = (void*)&cdat->dstr_2072__PAIR_HEAD; - cdat->dstr_2072__PAIR_HEAD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2072__PAIR_HEAD.val, "PAIR_HEAD", sizeof (cdat->dstr_2072__PAIR_HEAD.val)-1); - - MELT_LOCATION("warmelt-first.melt:1364:/ iniobj"); - /*iniobj dobj_2073__PAIR_HEAD*/ -/*_.VALDATA___V2079*/ meltfptr[2078] = (void*)&cdat->dobj_2073__PAIR_HEAD; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2073__PAIR_HEAD", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2073__PAIR_HEAD", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->object_magic == OBMAG_OBJECT); - cdat->dobj_2073__PAIR_HEAD.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_2073__PAIR_HEAD.obj_hash = 902943008; - cdat->dobj_2073__PAIR_HEAD.obj_len = 5; - - /*inimult dtup_2074__PAIR_HEAD*/ - /*_.VALTUP___V2085*/ meltfptr[2084] = (void*)&cdat->dtup_2074__PAIR_HEAD; - cdat->dtup_2074__PAIR_HEAD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE)))); - cdat->dtup_2074__PAIR_HEAD.nbval = 3; - /*inimult dtup_2075__PAIR_HEAD*/ - /*_.VALTUP___V2082*/ meltfptr[2081] = (void*)&cdat->dtup_2075__PAIR_HEAD; - cdat->dtup_2075__PAIR_HEAD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE)))); - cdat->dtup_2075__PAIR_HEAD.nbval = 1; - /*^iniobj*/ - /*iniobj dobj_2076*/ -/*_.VALDATA___V2081*/ meltfptr[2080] = (void*)&cdat->dobj_2076; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2076", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2076", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); - cdat->dobj_2076.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); - cdat->dobj_2076.obj_num = 0; - cdat->dobj_2076.obj_hash = 359398442; - cdat->dobj_2076.obj_len = 2; - - /*inistring dstr_2077__melt_pair_head_*/ - /*_.VALSTR___V2083*/ meltfptr[2082] = (void*)&cdat->dstr_2077__melt_pair_head_; - cdat->dstr_2077__melt_pair_head_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING)))); - strncpy(cdat->dstr_2077__melt_pair_head_.val, "(melt_pair_head((melt_ptr_t)(", sizeof (cdat->dstr_2077__melt_pair_head_.val)-1); - - /*inistring dstr_2078__*/ - /*_.VALSTR___V2084*/ meltfptr[2083] = (void*)&cdat->dstr_2078__; - cdat->dstr_2078__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING)))); - strncpy(cdat->dstr_2078__.val, ")))", sizeof (cdat->dstr_2078__.val)-1); - - /*inistring dstr_2079__PAIR_HEAD*/ - /*_.VALSTR___V2080*/ meltfptr[2079] = (void*)&cdat->dstr_2079__PAIR_HEAD; - cdat->dstr_2079__PAIR_HEAD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2079__PAIR_HEAD.val, "PAIR_HEAD", sizeof (cdat->dstr_2079__PAIR_HEAD.val)-1); - - /*iniobj dsym_2080__PAIR_TAIL*/ -/*uniqueobj*/ if (!/*_.VALDATA___V2086*/ meltfptr[2085]) /*_.VALDATA___V2086*/ meltfptr[2085] = (void*)&cdat->dsym_2080__PAIR_TAIL; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2080__PAIR_TAIL", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2080__PAIR_TAIL", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); - cdat->dsym_2080__PAIR_TAIL.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_2080__PAIR_TAIL.obj_hash = 403517666; - cdat->dsym_2080__PAIR_TAIL.obj_len = 3; - - /*inistring dstr_2081__PAIR_TAIL*/ - /*_.VALSTR___V2087*/ meltfptr[2086] = (void*)&cdat->dstr_2081__PAIR_TAIL; - cdat->dstr_2081__PAIR_TAIL.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2081__PAIR_TAIL.val, "PAIR_TAIL", sizeof (cdat->dstr_2081__PAIR_TAIL.val)-1); - - MELT_LOCATION("warmelt-first.melt:1368:/ iniobj"); - /*iniobj dobj_2082__PAIR_TAIL*/ -/*_.VALDATA___V2088*/ meltfptr[2087] = (void*)&cdat->dobj_2082__PAIR_TAIL; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2082__PAIR_TAIL", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2082__PAIR_TAIL", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->object_magic == OBMAG_OBJECT); - cdat->dobj_2082__PAIR_TAIL.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_2082__PAIR_TAIL.obj_hash = 533277688; - cdat->dobj_2082__PAIR_TAIL.obj_len = 5; - - /*inimult dtup_2083__PAIR_TAIL*/ - /*_.VALTUP___V2094*/ meltfptr[2093] = (void*)&cdat->dtup_2083__PAIR_TAIL; - cdat->dtup_2083__PAIR_TAIL.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE)))); - cdat->dtup_2083__PAIR_TAIL.nbval = 3; - /*inimult dtup_2084__PAIR_TAIL*/ - /*_.VALTUP___V2091*/ meltfptr[2090] = (void*)&cdat->dtup_2084__PAIR_TAIL; - cdat->dtup_2084__PAIR_TAIL.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE)))); - cdat->dtup_2084__PAIR_TAIL.nbval = 1; + /*iniobj dobj_2074*/ +/*_.VALDATA___V2079*/ meltfptr[2078] = (void*)&cdat->dobj_2074; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2074", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2074", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); + cdat->dobj_2074.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); + cdat->dobj_2074.obj_num = 0; + cdat->dobj_2074.obj_hash = 771290762; + cdat->dobj_2074.obj_len = 2; + + /*inistring dstr_2075__meltgc_new_list*/ + /*_.VALSTR___V2081*/ meltfptr[2080] = (void*)&cdat->dstr_2075__meltgc_new_list; + cdat->dstr_2075__meltgc_new_list.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING)))); + strncpy(cdat->dstr_2075__meltgc_new_list.val, "(meltgc_new_list((meltobject_ptr_t)(", sizeof (cdat->dstr_2075__meltgc_new_list.val)-1); + + /*inistring dstr_2076__*/ + /*_.VALSTR___V2082*/ meltfptr[2081] = (void*)&cdat->dstr_2076__; + cdat->dstr_2076__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING)))); + strncpy(cdat->dstr_2076__.val, ")))", sizeof (cdat->dstr_2076__.val)-1); + + /*inistring dstr_2077__MAKE_LIST*/ + /*_.VALSTR___V2078*/ meltfptr[2077] = (void*)&cdat->dstr_2077__MAKE_LIST; + cdat->dstr_2077__MAKE_LIST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2077__MAKE_LIST.val, "MAKE_LIST", sizeof (cdat->dstr_2077__MAKE_LIST.val)-1); + + /*iniobj dsym_2078__IS_PAIR*/ +/*uniqueobj*/ if (!/*_.VALDATA___V2084*/ meltfptr[2083]) /*_.VALDATA___V2084*/ meltfptr[2083] = (void*)&cdat->dsym_2078__IS_PAIR; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2078__IS_PAIR", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2078__IS_PAIR", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); + cdat->dsym_2078__IS_PAIR.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_2078__IS_PAIR.obj_hash = 135748880; + cdat->dsym_2078__IS_PAIR.obj_len = 3; + + /*inistring dstr_2079__IS_PAIR*/ + /*_.VALSTR___V2085*/ meltfptr[2084] = (void*)&cdat->dstr_2079__IS_PAIR; + cdat->dstr_2079__IS_PAIR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2079__IS_PAIR.val, "IS_PAIR", sizeof (cdat->dstr_2079__IS_PAIR.val)-1); + + MELT_LOCATION("warmelt-first.melt:1367:/ iniobj"); + /*iniobj dobj_2080__IS_PAIR*/ +/*_.VALDATA___V2086*/ meltfptr[2085] = (void*)&cdat->dobj_2080__IS_PAIR; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2080__IS_PAIR", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2080__IS_PAIR", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->object_magic == OBMAG_OBJECT); + cdat->dobj_2080__IS_PAIR.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); + cdat->dobj_2080__IS_PAIR.obj_hash = 778281769; + cdat->dobj_2080__IS_PAIR.obj_len = 5; + + /*inimult dtup_2081__IS_PAIR*/ + /*_.VALTUP___V2094*/ meltfptr[2093] = (void*)&cdat->dtup_2081__IS_PAIR; + cdat->dtup_2081__IS_PAIR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE)))); + cdat->dtup_2081__IS_PAIR.nbval = 3; + /*inimult dtup_2082__IS_PAIR*/ + /*_.VALTUP___V2091*/ meltfptr[2090] = (void*)&cdat->dtup_2082__IS_PAIR; + cdat->dtup_2082__IS_PAIR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE)))); + cdat->dtup_2082__IS_PAIR.nbval = 1; + /*iniobj dsym_2083__PA*/ +/*uniqueobj*/ if (!/*_.VALDATA___V2089*/ meltfptr[2088]) /*_.VALDATA___V2089*/ meltfptr[2088] = (void*)&cdat->dsym_2083__PA; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2083__PA", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2083__PA", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); + cdat->dsym_2083__PA.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_2083__PA.obj_hash = 94633376; + cdat->dsym_2083__PA.obj_len = 3; + + /*inistring dstr_2084__PA*/ + /*_.VALSTR___V2090*/ meltfptr[2089] = (void*)&cdat->dstr_2084__PA; + cdat->dstr_2084__PA.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2084__PA.val, "PA", sizeof (cdat->dstr_2084__PA.val)-1); + /*^iniobj*/ /*iniobj dobj_2085*/ -/*_.VALDATA___V2090*/ meltfptr[2089] = (void*)&cdat->dobj_2085; +/*_.VALDATA___V2088*/ meltfptr[2087] = (void*)&cdat->dobj_2085; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2085", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2085", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_2085.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_2085.obj_num = 0; - cdat->dobj_2085.obj_hash = 177465124; + cdat->dobj_2085.obj_hash = 295228702; cdat->dobj_2085.obj_len = 2; - /*inistring dstr_2086__melt_pair_tail_*/ - /*_.VALSTR___V2092*/ meltfptr[2091] = (void*)&cdat->dstr_2086__melt_pair_tail_; - cdat->dstr_2086__melt_pair_tail_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING)))); - strncpy(cdat->dstr_2086__melt_pair_tail_.val, "(melt_pair_tail((melt_ptr_t)(", sizeof (cdat->dstr_2086__melt_pair_tail_.val)-1); - - /*inistring dstr_2087__*/ - /*_.VALSTR___V2093*/ meltfptr[2092] = (void*)&cdat->dstr_2087__; - cdat->dstr_2087__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING)))); - strncpy(cdat->dstr_2087__.val, ")))", sizeof (cdat->dstr_2087__.val)-1); - - /*inistring dstr_2088__PAIR_TAIL*/ - /*_.VALSTR___V2089*/ meltfptr[2088] = (void*)&cdat->dstr_2088__PAIR_TAIL; - cdat->dstr_2088__PAIR_TAIL.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2088__PAIR_TAIL.val, "PAIR_TAIL", sizeof (cdat->dstr_2088__PAIR_TAIL.val)-1); - - /*iniobj dsym_2089__WARNINGMSG_STRV*/ -/*uniqueobj*/ if (!/*_.VALDATA___V2095*/ meltfptr[2094]) /*_.VALDATA___V2095*/ meltfptr[2094] = (void*)&cdat->dsym_2089__WARNINGMSG_STRV; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2089__WARNINGMSG_STRV", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2089__WARNINGMSG_STRV", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); - cdat->dsym_2089__WARNINGMSG_STRV.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_2089__WARNINGMSG_STRV.obj_hash = 595150788; - cdat->dsym_2089__WARNINGMSG_STRV.obj_len = 3; - - /*inistring dstr_2090__WARNINGMSG_STRV*/ - /*_.VALSTR___V2096*/ meltfptr[2095] = (void*)&cdat->dstr_2090__WARNINGMSG_STRV; - cdat->dstr_2090__WARNINGMSG_STRV.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2090__WARNINGMSG_STRV.val, "WARNINGMSG_STRV", sizeof (cdat->dstr_2090__WARNINGMSG_STRV.val)-1); - - MELT_LOCATION("warmelt-first.melt:1376:/ iniobj"); - /*iniobj dobj_2091__WARNINGMSG_STRV*/ -/*_.VALDATA___V2097*/ meltfptr[2096] = (void*)&cdat->dobj_2091__WARNINGMSG_STRV; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2091__WARNINGMSG_STRV", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2091__WARNINGMSG_STRV", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->object_magic == OBMAG_OBJECT); - cdat->dobj_2091__WARNINGMSG_STRV.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_2091__WARNINGMSG_STRV.obj_hash = 421805695; - cdat->dobj_2091__WARNINGMSG_STRV.obj_len = 5; - - /*inimult dtup_2092__WARNINGMSG_STRV*/ - /*_.VALTUP___V2105*/ meltfptr[2104] = (void*)&cdat->dtup_2092__WARNINGMSG_STRV; - cdat->dtup_2092__WARNINGMSG_STRV.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE)))); - cdat->dtup_2092__WARNINGMSG_STRV.nbval = 5; - /*inimult dtup_2093__WARNINGMSG_STRV*/ - /*_.VALTUP___V2101*/ meltfptr[2100] = (void*)&cdat->dtup_2093__WARNINGMSG_STRV; - cdat->dtup_2093__WARNINGMSG_STRV.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE)))); - cdat->dtup_2093__WARNINGMSG_STRV.nbval = 2; + /*inistring dstr_2086__melt_magic_disc*/ + /*_.VALSTR___V2092*/ meltfptr[2091] = (void*)&cdat->dstr_2086__melt_magic_disc; + cdat->dstr_2086__melt_magic_disc.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING)))); + strncpy(cdat->dstr_2086__melt_magic_disc.val, "(melt_magic_discr((melt_ptr_t)(", sizeof (cdat->dstr_2086__melt_magic_disc.val)-1); + + /*inistring dstr_2087__OBMAG_PAIR*/ + /*_.VALSTR___V2093*/ meltfptr[2092] = (void*)&cdat->dstr_2087__OBMAG_PAIR; + cdat->dstr_2087__OBMAG_PAIR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING)))); + strncpy(cdat->dstr_2087__OBMAG_PAIR.val, ")) == OBMAG_PAIR)", sizeof (cdat->dstr_2087__OBMAG_PAIR.val)-1); + + /*inistring dstr_2088__IS_PAIR*/ + /*_.VALSTR___V2087*/ meltfptr[2086] = (void*)&cdat->dstr_2088__IS_PAIR; + cdat->dstr_2088__IS_PAIR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2088__IS_PAIR.val, "IS_PAIR", sizeof (cdat->dstr_2088__IS_PAIR.val)-1); + + /*iniobj dsym_2089__PAIR_HEAD*/ +/*uniqueobj*/ if (!/*_.VALDATA___V2095*/ meltfptr[2094]) /*_.VALDATA___V2095*/ meltfptr[2094] = (void*)&cdat->dsym_2089__PAIR_HEAD; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2089__PAIR_HEAD", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2089__PAIR_HEAD", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); + cdat->dsym_2089__PAIR_HEAD.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_2089__PAIR_HEAD.obj_hash = 1025514553; + cdat->dsym_2089__PAIR_HEAD.obj_len = 3; + + /*inistring dstr_2090__PAIR_HEAD*/ + /*_.VALSTR___V2096*/ meltfptr[2095] = (void*)&cdat->dstr_2090__PAIR_HEAD; + cdat->dstr_2090__PAIR_HEAD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2090__PAIR_HEAD.val, "PAIR_HEAD", sizeof (cdat->dstr_2090__PAIR_HEAD.val)-1); + + MELT_LOCATION("warmelt-first.melt:1371:/ iniobj"); + /*iniobj dobj_2091__PAIR_HEAD*/ +/*_.VALDATA___V2097*/ meltfptr[2096] = (void*)&cdat->dobj_2091__PAIR_HEAD; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2091__PAIR_HEAD", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2091__PAIR_HEAD", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->object_magic == OBMAG_OBJECT); + cdat->dobj_2091__PAIR_HEAD.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); + cdat->dobj_2091__PAIR_HEAD.obj_hash = 824090161; + cdat->dobj_2091__PAIR_HEAD.obj_len = 5; + + /*inimult dtup_2092__PAIR_HEAD*/ + /*_.VALTUP___V2103*/ meltfptr[2102] = (void*)&cdat->dtup_2092__PAIR_HEAD; + cdat->dtup_2092__PAIR_HEAD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE)))); + cdat->dtup_2092__PAIR_HEAD.nbval = 3; + /*inimult dtup_2093__PAIR_HEAD*/ + /*_.VALTUP___V2100*/ meltfptr[2099] = (void*)&cdat->dtup_2093__PAIR_HEAD; + cdat->dtup_2093__PAIR_HEAD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE)))); + cdat->dtup_2093__PAIR_HEAD.nbval = 1; /*^iniobj*/ /*iniobj dobj_2094*/ /*_.VALDATA___V2099*/ meltfptr[2098] = (void*)&cdat->dobj_2094; @@ -23879,4371 +23897,4481 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_781__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2094", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_2094.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_2094.obj_num = 0; - cdat->dobj_2094.obj_hash = 274660157; + cdat->dobj_2094.obj_hash = 82608198; cdat->dobj_2094.obj_len = 2; + /*inistring dstr_2095__melt_pair_head_*/ + /*_.VALSTR___V2101*/ meltfptr[2100] = (void*)&cdat->dstr_2095__melt_pair_head_; + cdat->dstr_2095__melt_pair_head_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING)))); + strncpy(cdat->dstr_2095__melt_pair_head_.val, "(melt_pair_head((melt_ptr_t)(", sizeof (cdat->dstr_2095__melt_pair_head_.val)-1); + + /*inistring dstr_2096__*/ + /*_.VALSTR___V2102*/ meltfptr[2101] = (void*)&cdat->dstr_2096__; + cdat->dstr_2096__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING)))); + strncpy(cdat->dstr_2096__.val, ")))", sizeof (cdat->dstr_2096__.val)-1); + + /*inistring dstr_2097__PAIR_HEAD*/ + /*_.VALSTR___V2098*/ meltfptr[2097] = (void*)&cdat->dstr_2097__PAIR_HEAD; + cdat->dstr_2097__PAIR_HEAD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2097__PAIR_HEAD.val, "PAIR_HEAD", sizeof (cdat->dstr_2097__PAIR_HEAD.val)-1); + + /*iniobj dsym_2098__PAIR_TAIL*/ +/*uniqueobj*/ if (!/*_.VALDATA___V2104*/ meltfptr[2103]) /*_.VALDATA___V2104*/ meltfptr[2103] = (void*)&cdat->dsym_2098__PAIR_TAIL; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2098__PAIR_TAIL", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2098__PAIR_TAIL", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); + cdat->dsym_2098__PAIR_TAIL.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_2098__PAIR_TAIL.obj_hash = 403517666; + cdat->dsym_2098__PAIR_TAIL.obj_len = 3; + + /*inistring dstr_2099__PAIR_TAIL*/ + /*_.VALSTR___V2105*/ meltfptr[2104] = (void*)&cdat->dstr_2099__PAIR_TAIL; + cdat->dstr_2099__PAIR_TAIL.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2099__PAIR_TAIL.val, "PAIR_TAIL", sizeof (cdat->dstr_2099__PAIR_TAIL.val)-1); + + MELT_LOCATION("warmelt-first.melt:1375:/ iniobj"); + /*iniobj dobj_2100__PAIR_TAIL*/ +/*_.VALDATA___V2106*/ meltfptr[2105] = (void*)&cdat->dobj_2100__PAIR_TAIL; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2100__PAIR_TAIL", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2100__PAIR_TAIL", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->object_magic == OBMAG_OBJECT); + cdat->dobj_2100__PAIR_TAIL.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); + cdat->dobj_2100__PAIR_TAIL.obj_hash = 824173337; + cdat->dobj_2100__PAIR_TAIL.obj_len = 5; + + /*inimult dtup_2101__PAIR_TAIL*/ + /*_.VALTUP___V2112*/ meltfptr[2111] = (void*)&cdat->dtup_2101__PAIR_TAIL; + cdat->dtup_2101__PAIR_TAIL.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE)))); + cdat->dtup_2101__PAIR_TAIL.nbval = 3; + /*inimult dtup_2102__PAIR_TAIL*/ + /*_.VALTUP___V2109*/ meltfptr[2108] = (void*)&cdat->dtup_2102__PAIR_TAIL; + cdat->dtup_2102__PAIR_TAIL.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE)))); + cdat->dtup_2102__PAIR_TAIL.nbval = 1; /*^iniobj*/ - /*iniobj dobj_2095*/ -/*_.VALDATA___V2100*/ meltfptr[2099] = (void*)&cdat->dobj_2095; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2095", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2095", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); - cdat->dobj_2095.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); - cdat->dobj_2095.obj_num = 1; - cdat->dobj_2095.obj_hash = 696445014; - cdat->dobj_2095.obj_len = 2; - - /*inistring dstr_2096__warning_0_MEL*/ - /*_.VALSTR___V2102*/ meltfptr[2101] = (void*)&cdat->dstr_2096__warning_0_MEL; - cdat->dstr_2096__warning_0_MEL.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING)))); - strncpy(cdat->dstr_2096__warning_0_MEL.val, "warning (0, \"MELT WARNING MSG [#%ld]::: %s - %s\", melt_dbgcounter, (", sizeof (cdat->dstr_2096__warning_0_MEL.val)-1); - - /*inistring dstr_2097__melt*/ - /*_.VALSTR___V2103*/ meltfptr[2102] = (void*)&cdat->dstr_2097__melt; - cdat->dstr_2097__melt.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING)))); - strncpy(cdat->dstr_2097__melt.val, "), \n\t melt_string_str((melt_ptr_t)(", sizeof (cdat->dstr_2097__melt.val)-1); - - /*inistring dstr_2098__*/ - /*_.VALSTR___V2104*/ meltfptr[2103] = (void*)&cdat->dstr_2098__; - cdat->dstr_2098__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING)))); - strncpy(cdat->dstr_2098__.val, ")))", sizeof (cdat->dstr_2098__.val)-1); - - /*inistring dstr_2099__WARNINGMSG_STRV*/ - /*_.VALSTR___V2098*/ meltfptr[2097] = (void*)&cdat->dstr_2099__WARNINGMSG_STRV; - cdat->dstr_2099__WARNINGMSG_STRV.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2099__WARNINGMSG_STRV.val, "WARNINGMSG_STRV", sizeof (cdat->dstr_2099__WARNINGMSG_STRV.val)-1); - - /*iniobj dsym_2100__INFORMSG_LONG*/ -/*uniqueobj*/ if (!/*_.VALDATA___V2106*/ meltfptr[2105]) /*_.VALDATA___V2106*/ meltfptr[2105] = (void*)&cdat->dsym_2100__INFORMSG_LONG; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2100__INFORMSG_LONG", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2100__INFORMSG_LONG", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); - cdat->dsym_2100__INFORMSG_LONG.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_2100__INFORMSG_LONG.obj_hash = 206205313; - cdat->dsym_2100__INFORMSG_LONG.obj_len = 3; - - /*inistring dstr_2101__INFORMSG_LONG*/ - /*_.VALSTR___V2107*/ meltfptr[2106] = (void*)&cdat->dstr_2101__INFORMSG_LONG; - cdat->dstr_2101__INFORMSG_LONG.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2101__INFORMSG_LONG.val, "INFORMSG_LONG", sizeof (cdat->dstr_2101__INFORMSG_LONG.val)-1); + /*iniobj dobj_2103*/ +/*_.VALDATA___V2108*/ meltfptr[2107] = (void*)&cdat->dobj_2103; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2103", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2103", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); + cdat->dobj_2103.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); + cdat->dobj_2103.obj_num = 0; + cdat->dobj_2103.obj_hash = 806905745; + cdat->dobj_2103.obj_len = 2; + + /*inistring dstr_2104__melt_pair_tail_*/ + /*_.VALSTR___V2110*/ meltfptr[2109] = (void*)&cdat->dstr_2104__melt_pair_tail_; + cdat->dstr_2104__melt_pair_tail_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING)))); + strncpy(cdat->dstr_2104__melt_pair_tail_.val, "(melt_pair_tail((melt_ptr_t)(", sizeof (cdat->dstr_2104__melt_pair_tail_.val)-1); + + /*inistring dstr_2105__*/ + /*_.VALSTR___V2111*/ meltfptr[2110] = (void*)&cdat->dstr_2105__; + cdat->dstr_2105__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING)))); + strncpy(cdat->dstr_2105__.val, ")))", sizeof (cdat->dstr_2105__.val)-1); + + /*inistring dstr_2106__PAIR_TAIL*/ + /*_.VALSTR___V2107*/ meltfptr[2106] = (void*)&cdat->dstr_2106__PAIR_TAIL; + cdat->dstr_2106__PAIR_TAIL.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2106__PAIR_TAIL.val, "PAIR_TAIL", sizeof (cdat->dstr_2106__PAIR_TAIL.val)-1); + + /*iniobj dsym_2107__WARNINGMSG_STRV*/ +/*uniqueobj*/ if (!/*_.VALDATA___V2113*/ meltfptr[2112]) /*_.VALDATA___V2113*/ meltfptr[2112] = (void*)&cdat->dsym_2107__WARNINGMSG_STRV; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2107__WARNINGMSG_STRV", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2107__WARNINGMSG_STRV", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); + cdat->dsym_2107__WARNINGMSG_STRV.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_2107__WARNINGMSG_STRV.obj_hash = 595150788; + cdat->dsym_2107__WARNINGMSG_STRV.obj_len = 3; + + /*inistring dstr_2108__WARNINGMSG_STRV*/ + /*_.VALSTR___V2114*/ meltfptr[2113] = (void*)&cdat->dstr_2108__WARNINGMSG_STRV; + cdat->dstr_2108__WARNINGMSG_STRV.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2108__WARNINGMSG_STRV.val, "WARNINGMSG_STRV", sizeof (cdat->dstr_2108__WARNINGMSG_STRV.val)-1); MELT_LOCATION("warmelt-first.melt:1383:/ iniobj"); - /*iniobj dobj_2102__INFORMSG_LONG*/ -/*_.VALDATA___V2108*/ meltfptr[2107] = (void*)&cdat->dobj_2102__INFORMSG_LONG; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2102__INFORMSG_LONG", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2102__INFORMSG_LONG", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->object_magic == OBMAG_OBJECT); - cdat->dobj_2102__INFORMSG_LONG.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_2102__INFORMSG_LONG.obj_hash = 140391182; - cdat->dobj_2102__INFORMSG_LONG.obj_len = 5; - - /*inimult dtup_2103__INFORMSG_LONG*/ - /*_.VALTUP___V2116*/ meltfptr[2115] = (void*)&cdat->dtup_2103__INFORMSG_LONG; - cdat->dtup_2103__INFORMSG_LONG.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE)))); - cdat->dtup_2103__INFORMSG_LONG.nbval = 5; - /*inimult dtup_2104__INFORMSG_LONG*/ - /*_.VALTUP___V2112*/ meltfptr[2111] = (void*)&cdat->dtup_2104__INFORMSG_LONG; - cdat->dtup_2104__INFORMSG_LONG.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE)))); - cdat->dtup_2104__INFORMSG_LONG.nbval = 2; + /*iniobj dobj_2109__WARNINGMSG_STRV*/ +/*_.VALDATA___V2115*/ meltfptr[2114] = (void*)&cdat->dobj_2109__WARNINGMSG_STRV; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2109__WARNINGMSG_STRV", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2109__WARNINGMSG_STRV", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->object_magic == OBMAG_OBJECT); + cdat->dobj_2109__WARNINGMSG_STRV.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); + cdat->dobj_2109__WARNINGMSG_STRV.obj_hash = 445641216; + cdat->dobj_2109__WARNINGMSG_STRV.obj_len = 5; + + /*inimult dtup_2110__WARNINGMSG_STRV*/ + /*_.VALTUP___V2123*/ meltfptr[2122] = (void*)&cdat->dtup_2110__WARNINGMSG_STRV; + cdat->dtup_2110__WARNINGMSG_STRV.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE)))); + cdat->dtup_2110__WARNINGMSG_STRV.nbval = 5; + /*inimult dtup_2111__WARNINGMSG_STRV*/ + /*_.VALTUP___V2119*/ meltfptr[2118] = (void*)&cdat->dtup_2111__WARNINGMSG_STRV; + cdat->dtup_2111__WARNINGMSG_STRV.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE)))); + cdat->dtup_2111__WARNINGMSG_STRV.nbval = 2; /*^iniobj*/ - /*iniobj dobj_2105*/ -/*_.VALDATA___V2110*/ meltfptr[2109] = (void*)&cdat->dobj_2105; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2105", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2105", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); - cdat->dobj_2105.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); - cdat->dobj_2105.obj_num = 0; - cdat->dobj_2105.obj_hash = 428651859; - cdat->dobj_2105.obj_len = 2; + /*iniobj dobj_2112*/ +/*_.VALDATA___V2117*/ meltfptr[2116] = (void*)&cdat->dobj_2112; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2112", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2112", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); + cdat->dobj_2112.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); + cdat->dobj_2112.obj_num = 0; + cdat->dobj_2112.obj_hash = 954143762; + cdat->dobj_2112.obj_len = 2; /*^iniobj*/ - /*iniobj dobj_2106*/ -/*_.VALDATA___V2111*/ meltfptr[2110] = (void*)&cdat->dobj_2106; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2106", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2106", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); - cdat->dobj_2106.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); - cdat->dobj_2106.obj_num = 1; - cdat->dobj_2106.obj_hash = 166989406; - cdat->dobj_2106.obj_len = 2; - - /*inistring dstr_2107__inform_UNKNOWN_L*/ - /*_.VALSTR___V2113*/ meltfptr[2112] = (void*)&cdat->dstr_2107__inform_UNKNOWN_L; - cdat->dstr_2107__inform_UNKNOWN_L.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING)))); - strncpy(cdat->dstr_2107__inform_UNKNOWN_L.val, "inform(UNKNOWN_LOCATION, \"MELT INFORM [#%ld]: %s * %ld\", melt_dbgcounter, (", sizeof (cdat->dstr_2107__inform_UNKNOWN_L.val)-1); - - /*inistring dstr_2108__*/ - /*_.VALSTR___V2114*/ meltfptr[2113] = (void*)&cdat->dstr_2108__; - cdat->dstr_2108__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING)))); - strncpy(cdat->dstr_2108__.val, "), (", sizeof (cdat->dstr_2108__.val)-1); - - /*inistring dstr_2109__*/ - /*_.VALSTR___V2115*/ meltfptr[2114] = (void*)&cdat->dstr_2109__; - cdat->dstr_2109__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING)))); - strncpy(cdat->dstr_2109__.val, "))", sizeof (cdat->dstr_2109__.val)-1); - - /*inistring dstr_2110__INFORMSG_LONG*/ - /*_.VALSTR___V2109*/ meltfptr[2108] = (void*)&cdat->dstr_2110__INFORMSG_LONG; - cdat->dstr_2110__INFORMSG_LONG.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2110__INFORMSG_LONG.val, "INFORMSG_LONG", sizeof (cdat->dstr_2110__INFORMSG_LONG.val)-1); - - /*iniobj dsym_2111__DISCR_NAME_STRING*/ -/*uniqueobj*/ if (!/*_.VALDATA___V2117*/ meltfptr[2116]) /*_.VALDATA___V2117*/ meltfptr[2116] = (void*)&cdat->dsym_2111__DISCR_NAME_STRING; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2111__DISCR_NAME_STRING", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2111__DISCR_NAME_STRING", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); - cdat->dsym_2111__DISCR_NAME_STRING.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_2111__DISCR_NAME_STRING.obj_hash = 291781472; - cdat->dsym_2111__DISCR_NAME_STRING.obj_len = 3; - - /*inistring dstr_2112__DISCR_NAME_STRIN*/ - /*_.VALSTR___V2118*/ meltfptr[2117] = (void*)&cdat->dstr_2112__DISCR_NAME_STRIN; - cdat->dstr_2112__DISCR_NAME_STRIN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2112__DISCR_NAME_STRIN.val, "DISCR_NAME_STRING", sizeof (cdat->dstr_2112__DISCR_NAME_STRIN.val)-1); - - MELT_LOCATION("warmelt-first.melt:1391:/ iniobj"); - /*iniobj dobj_2113__DISCR_NAME_STRING*/ -if (((void*)(MELT_PREDEF(DISCR_NAME_STRING))) != (melt_ptr_t)&cdat->dobj_2113__DISCR_NAME_STRING) { + /*iniobj dobj_2113*/ +/*_.VALDATA___V2118*/ meltfptr[2117] = (void*)&cdat->dobj_2113; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2113", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2113", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); + cdat->dobj_2113.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); + cdat->dobj_2113.obj_num = 1; + cdat->dobj_2113.obj_hash = 293772090; + cdat->dobj_2113.obj_len = 2; + + /*inistring dstr_2114__warning_0_MEL*/ + /*_.VALSTR___V2120*/ meltfptr[2119] = (void*)&cdat->dstr_2114__warning_0_MEL; + cdat->dstr_2114__warning_0_MEL.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING)))); + strncpy(cdat->dstr_2114__warning_0_MEL.val, "warning (0, \"MELT WARNING MSG [#%ld]::: %s - %s\", melt_dbgcounter, (", sizeof (cdat->dstr_2114__warning_0_MEL.val)-1); + + /*inistring dstr_2115__melt*/ + /*_.VALSTR___V2121*/ meltfptr[2120] = (void*)&cdat->dstr_2115__melt; + cdat->dstr_2115__melt.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING)))); + strncpy(cdat->dstr_2115__melt.val, "), \n\t melt_string_str((melt_ptr_t)(", sizeof (cdat->dstr_2115__melt.val)-1); + + /*inistring dstr_2116__*/ + /*_.VALSTR___V2122*/ meltfptr[2121] = (void*)&cdat->dstr_2116__; + cdat->dstr_2116__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING)))); + strncpy(cdat->dstr_2116__.val, ")))", sizeof (cdat->dstr_2116__.val)-1); + + /*inistring dstr_2117__WARNINGMSG_STRV*/ + /*_.VALSTR___V2116*/ meltfptr[2115] = (void*)&cdat->dstr_2117__WARNINGMSG_STRV; + cdat->dstr_2117__WARNINGMSG_STRV.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2117__WARNINGMSG_STRV.val, "WARNINGMSG_STRV", sizeof (cdat->dstr_2117__WARNINGMSG_STRV.val)-1); + + /*iniobj dsym_2118__INFORMSG_LONG*/ +/*uniqueobj*/ if (!/*_.VALDATA___V2124*/ meltfptr[2123]) /*_.VALDATA___V2124*/ meltfptr[2123] = (void*)&cdat->dsym_2118__INFORMSG_LONG; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2118__INFORMSG_LONG", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2118__INFORMSG_LONG", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); + cdat->dsym_2118__INFORMSG_LONG.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_2118__INFORMSG_LONG.obj_hash = 206205313; + cdat->dsym_2118__INFORMSG_LONG.obj_len = 3; + + /*inistring dstr_2119__INFORMSG_LONG*/ + /*_.VALSTR___V2125*/ meltfptr[2124] = (void*)&cdat->dstr_2119__INFORMSG_LONG; + cdat->dstr_2119__INFORMSG_LONG.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2119__INFORMSG_LONG.val, "INFORMSG_LONG", sizeof (cdat->dstr_2119__INFORMSG_LONG.val)-1); + + MELT_LOCATION("warmelt-first.melt:1390:/ iniobj"); + /*iniobj dobj_2120__INFORMSG_LONG*/ +/*_.VALDATA___V2126*/ meltfptr[2125] = (void*)&cdat->dobj_2120__INFORMSG_LONG; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2120__INFORMSG_LONG", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2120__INFORMSG_LONG", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->object_magic == OBMAG_OBJECT); + cdat->dobj_2120__INFORMSG_LONG.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); + cdat->dobj_2120__INFORMSG_LONG.obj_hash = 752520898; + cdat->dobj_2120__INFORMSG_LONG.obj_len = 5; + + /*inimult dtup_2121__INFORMSG_LONG*/ + /*_.VALTUP___V2134*/ meltfptr[2133] = (void*)&cdat->dtup_2121__INFORMSG_LONG; + cdat->dtup_2121__INFORMSG_LONG.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE)))); + cdat->dtup_2121__INFORMSG_LONG.nbval = 5; + /*inimult dtup_2122__INFORMSG_LONG*/ + /*_.VALTUP___V2130*/ meltfptr[2129] = (void*)&cdat->dtup_2122__INFORMSG_LONG; + cdat->dtup_2122__INFORMSG_LONG.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE)))); + cdat->dtup_2122__INFORMSG_LONG.nbval = 2; + /*^iniobj*/ + /*iniobj dobj_2123*/ +/*_.VALDATA___V2128*/ meltfptr[2127] = (void*)&cdat->dobj_2123; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2123", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2123", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); + cdat->dobj_2123.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); + cdat->dobj_2123.obj_num = 0; + cdat->dobj_2123.obj_hash = 725036024; + cdat->dobj_2123.obj_len = 2; + + /*^iniobj*/ + /*iniobj dobj_2124*/ +/*_.VALDATA___V2129*/ meltfptr[2128] = (void*)&cdat->dobj_2124; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2124", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2124", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); + cdat->dobj_2124.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); + cdat->dobj_2124.obj_num = 1; + cdat->dobj_2124.obj_hash = 565299230; + cdat->dobj_2124.obj_len = 2; + + /*inistring dstr_2125__inform_UNKNOWN_L*/ + /*_.VALSTR___V2131*/ meltfptr[2130] = (void*)&cdat->dstr_2125__inform_UNKNOWN_L; + cdat->dstr_2125__inform_UNKNOWN_L.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING)))); + strncpy(cdat->dstr_2125__inform_UNKNOWN_L.val, "inform(UNKNOWN_LOCATION, \"MELT INFORM [#%ld]: %s * %ld\", melt_dbgcounter, (", sizeof (cdat->dstr_2125__inform_UNKNOWN_L.val)-1); + + /*inistring dstr_2126__*/ + /*_.VALSTR___V2132*/ meltfptr[2131] = (void*)&cdat->dstr_2126__; + cdat->dstr_2126__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING)))); + strncpy(cdat->dstr_2126__.val, "), (", sizeof (cdat->dstr_2126__.val)-1); + + /*inistring dstr_2127__*/ + /*_.VALSTR___V2133*/ meltfptr[2132] = (void*)&cdat->dstr_2127__; + cdat->dstr_2127__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING)))); + strncpy(cdat->dstr_2127__.val, "))", sizeof (cdat->dstr_2127__.val)-1); + + /*inistring dstr_2128__INFORMSG_LONG*/ + /*_.VALSTR___V2127*/ meltfptr[2126] = (void*)&cdat->dstr_2128__INFORMSG_LONG; + cdat->dstr_2128__INFORMSG_LONG.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2128__INFORMSG_LONG.val, "INFORMSG_LONG", sizeof (cdat->dstr_2128__INFORMSG_LONG.val)-1); + + /*iniobj dsym_2129__DISCR_NAME_STRING*/ +/*uniqueobj*/ if (!/*_.VALDATA___V2135*/ meltfptr[2134]) /*_.VALDATA___V2135*/ meltfptr[2134] = (void*)&cdat->dsym_2129__DISCR_NAME_STRING; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2129__DISCR_NAME_STRING", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2129__DISCR_NAME_STRING", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); + cdat->dsym_2129__DISCR_NAME_STRING.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_2129__DISCR_NAME_STRING.obj_hash = 291781472; + cdat->dsym_2129__DISCR_NAME_STRING.obj_len = 3; + + /*inistring dstr_2130__DISCR_NAME_STRIN*/ + /*_.VALSTR___V2136*/ meltfptr[2135] = (void*)&cdat->dstr_2130__DISCR_NAME_STRIN; + cdat->dstr_2130__DISCR_NAME_STRIN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2130__DISCR_NAME_STRIN.val, "DISCR_NAME_STRING", sizeof (cdat->dstr_2130__DISCR_NAME_STRIN.val)-1); + + MELT_LOCATION("warmelt-first.melt:1398:/ iniobj"); + /*iniobj dobj_2131__DISCR_NAME_STRING*/ +if (((void*)(MELT_PREDEF(DISCR_NAME_STRING))) != (melt_ptr_t)&cdat->dobj_2131__DISCR_NAME_STRING) { melt_assertmsg("check.predef length ((void*)(MELT_PREDEF(DISCR_NAME_STRING)))", melt_object_length((melt_ptr_t)(((void*)(MELT_PREDEF(DISCR_NAME_STRING))))) >= 5); }; -/*_.VALDATA___V2119*/ meltfptr[2118] = ((void*)(MELT_PREDEF(DISCR_NAME_STRING))); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2113__DISCR_NAME_STRING", melt_magic_discr (/*_.VALDATA___V45*/ meltfptr[44]) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2113__DISCR_NAME_STRING", ((meltobject_ptr_t) (/*_.VALDATA___V45*/ meltfptr[44]))->object_magic == OBMAG_OBJECT); - cdat->dobj_2113__DISCR_NAME_STRING.obj_class = (meltobject_ptr_t)(/*_.VALDATA___V45*/ meltfptr[44]); - cdat->dobj_2113__DISCR_NAME_STRING.obj_num = OBMAG_STRING; - cdat->dobj_2113__DISCR_NAME_STRING.obj_hash = 975340094; - cdat->dobj_2113__DISCR_NAME_STRING.obj_len = 5; - - /*iniobj dsym_2114__DISCR_STRING*/ -/*uniqueobj*/ if (!/*_.VALDATA___V2120*/ meltfptr[2119]) /*_.VALDATA___V2120*/ meltfptr[2119] = (void*)&cdat->dsym_2114__DISCR_STRING; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2114__DISCR_STRING", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2114__DISCR_STRING", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); - cdat->dsym_2114__DISCR_STRING.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_2114__DISCR_STRING.obj_hash = 100436219; - cdat->dsym_2114__DISCR_STRING.obj_len = 3; - - /*inistring dstr_2115__DISCR_STRING*/ - /*_.VALSTR___V2121*/ meltfptr[2120] = (void*)&cdat->dstr_2115__DISCR_STRING; - cdat->dstr_2115__DISCR_STRING.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2115__DISCR_STRING.val, "DISCR_STRING", sizeof (cdat->dstr_2115__DISCR_STRING.val)-1); - - MELT_LOCATION("warmelt-first.melt:1400:/ iniobj"); - /*iniobj dobj_2116__DISCR_STRING*/ -if (((void*)(MELT_PREDEF(DISCR_STRING))) != (melt_ptr_t)&cdat->dobj_2116__DISCR_STRING) { +/*_.VALDATA___V2137*/ meltfptr[2136] = ((void*)(MELT_PREDEF(DISCR_NAME_STRING))); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2131__DISCR_NAME_STRING", melt_magic_discr (/*_.VALDATA___V45*/ meltfptr[44]) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2131__DISCR_NAME_STRING", ((meltobject_ptr_t) (/*_.VALDATA___V45*/ meltfptr[44]))->object_magic == OBMAG_OBJECT); + cdat->dobj_2131__DISCR_NAME_STRING.obj_class = (meltobject_ptr_t)(/*_.VALDATA___V45*/ meltfptr[44]); + cdat->dobj_2131__DISCR_NAME_STRING.obj_num = OBMAG_STRING; + cdat->dobj_2131__DISCR_NAME_STRING.obj_hash = 117604292; + cdat->dobj_2131__DISCR_NAME_STRING.obj_len = 5; + + /*iniobj dsym_2132__DISCR_STRING*/ +/*uniqueobj*/ if (!/*_.VALDATA___V2138*/ meltfptr[2137]) /*_.VALDATA___V2138*/ meltfptr[2137] = (void*)&cdat->dsym_2132__DISCR_STRING; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2132__DISCR_STRING", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2132__DISCR_STRING", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); + cdat->dsym_2132__DISCR_STRING.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_2132__DISCR_STRING.obj_hash = 100436219; + cdat->dsym_2132__DISCR_STRING.obj_len = 3; + + /*inistring dstr_2133__DISCR_STRING*/ + /*_.VALSTR___V2139*/ meltfptr[2138] = (void*)&cdat->dstr_2133__DISCR_STRING; + cdat->dstr_2133__DISCR_STRING.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2133__DISCR_STRING.val, "DISCR_STRING", sizeof (cdat->dstr_2133__DISCR_STRING.val)-1); + + MELT_LOCATION("warmelt-first.melt:1407:/ iniobj"); + /*iniobj dobj_2134__DISCR_STRING*/ +if (((void*)(MELT_PREDEF(DISCR_STRING))) != (melt_ptr_t)&cdat->dobj_2134__DISCR_STRING) { melt_assertmsg("check.predef length ((void*)(MELT_PREDEF(DISCR_STRING)))", melt_object_length((melt_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))))) >= 5); }; -/*_.VALDATA___V2122*/ meltfptr[2121] = ((void*)(MELT_PREDEF(DISCR_STRING))); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2116__DISCR_STRING", melt_magic_discr (/*_.VALDATA___V45*/ meltfptr[44]) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2116__DISCR_STRING", ((meltobject_ptr_t) (/*_.VALDATA___V45*/ meltfptr[44]))->object_magic == OBMAG_OBJECT); - cdat->dobj_2116__DISCR_STRING.obj_class = (meltobject_ptr_t)(/*_.VALDATA___V45*/ meltfptr[44]); - cdat->dobj_2116__DISCR_STRING.obj_num = OBMAG_STRING; - cdat->dobj_2116__DISCR_STRING.obj_hash = 318257101; - cdat->dobj_2116__DISCR_STRING.obj_len = 5; - - /*inistring dstr_2117__DISCR_STRING*/ - /*_.VALSTR___V2123*/ meltfptr[2122] = (void*)&cdat->dstr_2117__DISCR_STRING; - cdat->dstr_2117__DISCR_STRING.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2117__DISCR_STRING.val, "DISCR_STRING", sizeof (cdat->dstr_2117__DISCR_STRING.val)-1); - - /*inistring dstr_2118__DISCR_NAME_STRIN*/ - /*_.VALSTR___V2124*/ meltfptr[2123] = (void*)&cdat->dstr_2118__DISCR_NAME_STRIN; - cdat->dstr_2118__DISCR_NAME_STRIN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2118__DISCR_NAME_STRIN.val, "DISCR_NAME_STRING", sizeof (cdat->dstr_2118__DISCR_NAME_STRIN.val)-1); - - /*iniobj dsym_2119__DISCR_VERBATIM_STRING*/ -/*uniqueobj*/ if (!/*_.VALDATA___V2125*/ meltfptr[2124]) /*_.VALDATA___V2125*/ meltfptr[2124] = (void*)&cdat->dsym_2119__DISCR_VERBATIM_STRING; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2119__DISCR_VERBATIM_STRING", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2119__DISCR_VERBATIM_STRING", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); - cdat->dsym_2119__DISCR_VERBATIM_STRING.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_2119__DISCR_VERBATIM_STRING.obj_hash = 258402049; - cdat->dsym_2119__DISCR_VERBATIM_STRING.obj_len = 3; - - /*inistring dstr_2120__DISCR_VERBATIM_S*/ - /*_.VALSTR___V2126*/ meltfptr[2125] = (void*)&cdat->dstr_2120__DISCR_VERBATIM_S; - cdat->dstr_2120__DISCR_VERBATIM_S.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2120__DISCR_VERBATIM_S.val, "DISCR_VERBATIM_STRING", sizeof (cdat->dstr_2120__DISCR_VERBATIM_S.val)-1); - - MELT_LOCATION("warmelt-first.melt:1411:/ iniobj"); - /*iniobj dobj_2121__DISCR_VERBATIM_STRING*/ -if (((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))) != (melt_ptr_t)&cdat->dobj_2121__DISCR_VERBATIM_STRING) { +/*_.VALDATA___V2140*/ meltfptr[2139] = ((void*)(MELT_PREDEF(DISCR_STRING))); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2134__DISCR_STRING", melt_magic_discr (/*_.VALDATA___V45*/ meltfptr[44]) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2134__DISCR_STRING", ((meltobject_ptr_t) (/*_.VALDATA___V45*/ meltfptr[44]))->object_magic == OBMAG_OBJECT); + cdat->dobj_2134__DISCR_STRING.obj_class = (meltobject_ptr_t)(/*_.VALDATA___V45*/ meltfptr[44]); + cdat->dobj_2134__DISCR_STRING.obj_num = OBMAG_STRING; + cdat->dobj_2134__DISCR_STRING.obj_hash = 369370416; + cdat->dobj_2134__DISCR_STRING.obj_len = 5; + + /*inistring dstr_2135__DISCR_STRING*/ + /*_.VALSTR___V2141*/ meltfptr[2140] = (void*)&cdat->dstr_2135__DISCR_STRING; + cdat->dstr_2135__DISCR_STRING.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2135__DISCR_STRING.val, "DISCR_STRING", sizeof (cdat->dstr_2135__DISCR_STRING.val)-1); + + /*inistring dstr_2136__DISCR_NAME_STRIN*/ + /*_.VALSTR___V2142*/ meltfptr[2141] = (void*)&cdat->dstr_2136__DISCR_NAME_STRIN; + cdat->dstr_2136__DISCR_NAME_STRIN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2136__DISCR_NAME_STRIN.val, "DISCR_NAME_STRING", sizeof (cdat->dstr_2136__DISCR_NAME_STRIN.val)-1); + + /*iniobj dsym_2137__DISCR_VERBATIM_STRING*/ +/*uniqueobj*/ if (!/*_.VALDATA___V2143*/ meltfptr[2142]) /*_.VALDATA___V2143*/ meltfptr[2142] = (void*)&cdat->dsym_2137__DISCR_VERBATIM_STRING; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2137__DISCR_VERBATIM_STRING", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2137__DISCR_VERBATIM_STRING", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); + cdat->dsym_2137__DISCR_VERBATIM_STRING.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_2137__DISCR_VERBATIM_STRING.obj_hash = 258402049; + cdat->dsym_2137__DISCR_VERBATIM_STRING.obj_len = 3; + + /*inistring dstr_2138__DISCR_VERBATIM_S*/ + /*_.VALSTR___V2144*/ meltfptr[2143] = (void*)&cdat->dstr_2138__DISCR_VERBATIM_S; + cdat->dstr_2138__DISCR_VERBATIM_S.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2138__DISCR_VERBATIM_S.val, "DISCR_VERBATIM_STRING", sizeof (cdat->dstr_2138__DISCR_VERBATIM_S.val)-1); + + MELT_LOCATION("warmelt-first.melt:1418:/ iniobj"); + /*iniobj dobj_2139__DISCR_VERBATIM_STRING*/ +if (((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))) != (melt_ptr_t)&cdat->dobj_2139__DISCR_VERBATIM_STRING) { melt_assertmsg("check.predef length ((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING)))", melt_object_length((melt_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))))) >= 5); }; -/*_.VALDATA___V2127*/ meltfptr[2126] = ((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2121__DISCR_VERBATIM_STRING", melt_magic_discr (/*_.VALDATA___V45*/ meltfptr[44]) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2121__DISCR_VERBATIM_STRING", ((meltobject_ptr_t) (/*_.VALDATA___V45*/ meltfptr[44]))->object_magic == OBMAG_OBJECT); - cdat->dobj_2121__DISCR_VERBATIM_STRING.obj_class = (meltobject_ptr_t)(/*_.VALDATA___V45*/ meltfptr[44]); - cdat->dobj_2121__DISCR_VERBATIM_STRING.obj_num = OBMAG_STRING; - cdat->dobj_2121__DISCR_VERBATIM_STRING.obj_hash = 216403087; - cdat->dobj_2121__DISCR_VERBATIM_STRING.obj_len = 5; - - /*inistring dstr_2122__DISCR_VERBATIM_S*/ - /*_.VALSTR___V2128*/ meltfptr[2127] = (void*)&cdat->dstr_2122__DISCR_VERBATIM_S; - cdat->dstr_2122__DISCR_VERBATIM_S.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2122__DISCR_VERBATIM_S.val, "DISCR_VERBATIM_STRING", sizeof (cdat->dstr_2122__DISCR_VERBATIM_S.val)-1); - - /*iniobj dsym_2123__DISCR_ANY_RECEIVER*/ -/*uniqueobj*/ if (!/*_.VALDATA___V2129*/ meltfptr[2128]) /*_.VALDATA___V2129*/ meltfptr[2128] = (void*)&cdat->dsym_2123__DISCR_ANY_RECEIVER; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2123__DISCR_ANY_RECEIVER", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2123__DISCR_ANY_RECEIVER", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); - cdat->dsym_2123__DISCR_ANY_RECEIVER.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_2123__DISCR_ANY_RECEIVER.obj_hash = 95947314; - cdat->dsym_2123__DISCR_ANY_RECEIVER.obj_len = 3; - - /*inistring dstr_2124__DISCR_ANY_RECEIV*/ - /*_.VALSTR___V2130*/ meltfptr[2129] = (void*)&cdat->dstr_2124__DISCR_ANY_RECEIV; - cdat->dstr_2124__DISCR_ANY_RECEIV.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2124__DISCR_ANY_RECEIV.val, "DISCR_ANY_RECEIVER", sizeof (cdat->dstr_2124__DISCR_ANY_RECEIV.val)-1); - - MELT_LOCATION("warmelt-first.melt:1420:/ iniobj"); - /*iniobj dobj_2125__DISCR_ANY_RECEIVER*/ -/*_.VALDATA___V2131*/ meltfptr[2130] = (void*)&cdat->dobj_2125__DISCR_ANY_RECEIVER; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2125__DISCR_ANY_RECEIVER", melt_magic_discr (/*_.VALDATA___V45*/ meltfptr[44]) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2125__DISCR_ANY_RECEIVER", ((meltobject_ptr_t) (/*_.VALDATA___V45*/ meltfptr[44]))->object_magic == OBMAG_OBJECT); - cdat->dobj_2125__DISCR_ANY_RECEIVER.obj_class = (meltobject_ptr_t)(/*_.VALDATA___V45*/ meltfptr[44]); - cdat->dobj_2125__DISCR_ANY_RECEIVER.obj_hash = 872830849; - cdat->dobj_2125__DISCR_ANY_RECEIVER.obj_len = 5; - - /*inistring dstr_2126__DISCR_ANY_RECEIV*/ - /*_.VALSTR___V2132*/ meltfptr[2131] = (void*)&cdat->dstr_2126__DISCR_ANY_RECEIV; - cdat->dstr_2126__DISCR_ANY_RECEIV.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2126__DISCR_ANY_RECEIV.val, "DISCR_ANY_RECEIVER", sizeof (cdat->dstr_2126__DISCR_ANY_RECEIV.val)-1); - - /*iniobj dsym_2127__DISCR_NULL_RECEIVER*/ -/*uniqueobj*/ if (!/*_.VALDATA___V2133*/ meltfptr[2132]) /*_.VALDATA___V2133*/ meltfptr[2132] = (void*)&cdat->dsym_2127__DISCR_NULL_RECEIVER; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2127__DISCR_NULL_RECEIVER", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2127__DISCR_NULL_RECEIVER", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); - cdat->dsym_2127__DISCR_NULL_RECEIVER.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_2127__DISCR_NULL_RECEIVER.obj_hash = 1063609307; - cdat->dsym_2127__DISCR_NULL_RECEIVER.obj_len = 3; - - /*inistring dstr_2128__DISCR_NULL_RECEI*/ - /*_.VALSTR___V2134*/ meltfptr[2133] = (void*)&cdat->dstr_2128__DISCR_NULL_RECEI; - cdat->dstr_2128__DISCR_NULL_RECEI.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2128__DISCR_NULL_RECEI.val, "DISCR_NULL_RECEIVER", sizeof (cdat->dstr_2128__DISCR_NULL_RECEI.val)-1); - - MELT_LOCATION("warmelt-first.melt:1429:/ iniobj"); - /*iniobj dobj_2129__DISCR_NULL_RECEIVER*/ -if (((void*)(MELT_PREDEF(DISCR_NULL_RECEIVER))) != (melt_ptr_t)&cdat->dobj_2129__DISCR_NULL_RECEIVER) { - melt_assertmsg("check.predef length ((void*)(MELT_PREDEF(DISCR_NULL_RECEIVER)))", melt_object_length((melt_ptr_t)(((void*)(MELT_PREDEF(DISCR_NULL_RECEIVER))))) >= 5); - }; -/*_.VALDATA___V2135*/ meltfptr[2134] = ((void*)(MELT_PREDEF(DISCR_NULL_RECEIVER))); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2129__DISCR_NULL_RECEIVER", melt_magic_discr (/*_.VALDATA___V45*/ meltfptr[44]) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2129__DISCR_NULL_RECEIVER", ((meltobject_ptr_t) (/*_.VALDATA___V45*/ meltfptr[44]))->object_magic == OBMAG_OBJECT); - cdat->dobj_2129__DISCR_NULL_RECEIVER.obj_class = (meltobject_ptr_t)(/*_.VALDATA___V45*/ meltfptr[44]); - cdat->dobj_2129__DISCR_NULL_RECEIVER.obj_hash = 904203451; - cdat->dobj_2129__DISCR_NULL_RECEIVER.obj_len = 5; - - /*inistring dstr_2130__DISCR_NULL_RECEI*/ - /*_.VALSTR___V2136*/ meltfptr[2135] = (void*)&cdat->dstr_2130__DISCR_NULL_RECEI; - cdat->dstr_2130__DISCR_NULL_RECEI.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2130__DISCR_NULL_RECEI.val, "DISCR_NULL_RECEIVER", sizeof (cdat->dstr_2130__DISCR_NULL_RECEI.val)-1); - - /*iniobj dsym_2131__DISCR_STRBUF*/ -/*uniqueobj*/ if (!/*_.VALDATA___V2137*/ meltfptr[2136]) /*_.VALDATA___V2137*/ meltfptr[2136] = (void*)&cdat->dsym_2131__DISCR_STRBUF; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2131__DISCR_STRBUF", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2131__DISCR_STRBUF", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); - cdat->dsym_2131__DISCR_STRBUF.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_2131__DISCR_STRBUF.obj_hash = 492035674; - cdat->dsym_2131__DISCR_STRBUF.obj_len = 3; - - /*inistring dstr_2132__DISCR_STRBUF*/ - /*_.VALSTR___V2138*/ meltfptr[2137] = (void*)&cdat->dstr_2132__DISCR_STRBUF; - cdat->dstr_2132__DISCR_STRBUF.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2132__DISCR_STRBUF.val, "DISCR_STRBUF", sizeof (cdat->dstr_2132__DISCR_STRBUF.val)-1); +/*_.VALDATA___V2145*/ meltfptr[2144] = ((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2139__DISCR_VERBATIM_STRING", melt_magic_discr (/*_.VALDATA___V45*/ meltfptr[44]) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2139__DISCR_VERBATIM_STRING", ((meltobject_ptr_t) (/*_.VALDATA___V45*/ meltfptr[44]))->object_magic == OBMAG_OBJECT); + cdat->dobj_2139__DISCR_VERBATIM_STRING.obj_class = (meltobject_ptr_t)(/*_.VALDATA___V45*/ meltfptr[44]); + cdat->dobj_2139__DISCR_VERBATIM_STRING.obj_num = OBMAG_STRING; + cdat->dobj_2139__DISCR_VERBATIM_STRING.obj_hash = 1042011321; + cdat->dobj_2139__DISCR_VERBATIM_STRING.obj_len = 5; + + /*inistring dstr_2140__DISCR_VERBATIM_S*/ + /*_.VALSTR___V2146*/ meltfptr[2145] = (void*)&cdat->dstr_2140__DISCR_VERBATIM_S; + cdat->dstr_2140__DISCR_VERBATIM_S.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2140__DISCR_VERBATIM_S.val, "DISCR_VERBATIM_STRING", sizeof (cdat->dstr_2140__DISCR_VERBATIM_S.val)-1); + + /*iniobj dsym_2141__DISCR_ANY_RECEIVER*/ +/*uniqueobj*/ if (!/*_.VALDATA___V2147*/ meltfptr[2146]) /*_.VALDATA___V2147*/ meltfptr[2146] = (void*)&cdat->dsym_2141__DISCR_ANY_RECEIVER; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2141__DISCR_ANY_RECEIVER", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2141__DISCR_ANY_RECEIVER", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); + cdat->dsym_2141__DISCR_ANY_RECEIVER.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_2141__DISCR_ANY_RECEIVER.obj_hash = 95947314; + cdat->dsym_2141__DISCR_ANY_RECEIVER.obj_len = 3; + + /*inistring dstr_2142__DISCR_ANY_RECEIV*/ + /*_.VALSTR___V2148*/ meltfptr[2147] = (void*)&cdat->dstr_2142__DISCR_ANY_RECEIV; + cdat->dstr_2142__DISCR_ANY_RECEIV.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2142__DISCR_ANY_RECEIV.val, "DISCR_ANY_RECEIVER", sizeof (cdat->dstr_2142__DISCR_ANY_RECEIV.val)-1); + + MELT_LOCATION("warmelt-first.melt:1427:/ iniobj"); + /*iniobj dobj_2143__DISCR_ANY_RECEIVER*/ +/*_.VALDATA___V2149*/ meltfptr[2148] = (void*)&cdat->dobj_2143__DISCR_ANY_RECEIVER; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2143__DISCR_ANY_RECEIVER", melt_magic_discr (/*_.VALDATA___V45*/ meltfptr[44]) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2143__DISCR_ANY_RECEIVER", ((meltobject_ptr_t) (/*_.VALDATA___V45*/ meltfptr[44]))->object_magic == OBMAG_OBJECT); + cdat->dobj_2143__DISCR_ANY_RECEIVER.obj_class = (meltobject_ptr_t)(/*_.VALDATA___V45*/ meltfptr[44]); + cdat->dobj_2143__DISCR_ANY_RECEIVER.obj_hash = 1070645036; + cdat->dobj_2143__DISCR_ANY_RECEIVER.obj_len = 5; + + /*inistring dstr_2144__DISCR_ANY_RECEIV*/ + /*_.VALSTR___V2150*/ meltfptr[2149] = (void*)&cdat->dstr_2144__DISCR_ANY_RECEIV; + cdat->dstr_2144__DISCR_ANY_RECEIV.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2144__DISCR_ANY_RECEIV.val, "DISCR_ANY_RECEIVER", sizeof (cdat->dstr_2144__DISCR_ANY_RECEIV.val)-1); + + /*iniobj dsym_2145__DISCR_NULL_RECEIVER*/ +/*uniqueobj*/ if (!/*_.VALDATA___V2151*/ meltfptr[2150]) /*_.VALDATA___V2151*/ meltfptr[2150] = (void*)&cdat->dsym_2145__DISCR_NULL_RECEIVER; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2145__DISCR_NULL_RECEIVER", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2145__DISCR_NULL_RECEIVER", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); + cdat->dsym_2145__DISCR_NULL_RECEIVER.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_2145__DISCR_NULL_RECEIVER.obj_hash = 1063609307; + cdat->dsym_2145__DISCR_NULL_RECEIVER.obj_len = 3; + + /*inistring dstr_2146__DISCR_NULL_RECEI*/ + /*_.VALSTR___V2152*/ meltfptr[2151] = (void*)&cdat->dstr_2146__DISCR_NULL_RECEI; + cdat->dstr_2146__DISCR_NULL_RECEI.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2146__DISCR_NULL_RECEI.val, "DISCR_NULL_RECEIVER", sizeof (cdat->dstr_2146__DISCR_NULL_RECEI.val)-1); MELT_LOCATION("warmelt-first.melt:1436:/ iniobj"); - /*iniobj dobj_2133__DISCR_STRBUF*/ -if (((void*)(MELT_PREDEF(DISCR_STRBUF))) != (melt_ptr_t)&cdat->dobj_2133__DISCR_STRBUF) { + /*iniobj dobj_2147__DISCR_NULL_RECEIVER*/ +if (((void*)(MELT_PREDEF(DISCR_NULL_RECEIVER))) != (melt_ptr_t)&cdat->dobj_2147__DISCR_NULL_RECEIVER) { + melt_assertmsg("check.predef length ((void*)(MELT_PREDEF(DISCR_NULL_RECEIVER)))", melt_object_length((melt_ptr_t)(((void*)(MELT_PREDEF(DISCR_NULL_RECEIVER))))) >= 5); + }; +/*_.VALDATA___V2153*/ meltfptr[2152] = ((void*)(MELT_PREDEF(DISCR_NULL_RECEIVER))); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2147__DISCR_NULL_RECEIVER", melt_magic_discr (/*_.VALDATA___V45*/ meltfptr[44]) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2147__DISCR_NULL_RECEIVER", ((meltobject_ptr_t) (/*_.VALDATA___V45*/ meltfptr[44]))->object_magic == OBMAG_OBJECT); + cdat->dobj_2147__DISCR_NULL_RECEIVER.obj_class = (meltobject_ptr_t)(/*_.VALDATA___V45*/ meltfptr[44]); + cdat->dobj_2147__DISCR_NULL_RECEIVER.obj_hash = 79448659; + cdat->dobj_2147__DISCR_NULL_RECEIVER.obj_len = 5; + + /*inistring dstr_2148__DISCR_NULL_RECEI*/ + /*_.VALSTR___V2154*/ meltfptr[2153] = (void*)&cdat->dstr_2148__DISCR_NULL_RECEI; + cdat->dstr_2148__DISCR_NULL_RECEI.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2148__DISCR_NULL_RECEI.val, "DISCR_NULL_RECEIVER", sizeof (cdat->dstr_2148__DISCR_NULL_RECEI.val)-1); + + /*iniobj dsym_2149__DISCR_STRBUF*/ +/*uniqueobj*/ if (!/*_.VALDATA___V2155*/ meltfptr[2154]) /*_.VALDATA___V2155*/ meltfptr[2154] = (void*)&cdat->dsym_2149__DISCR_STRBUF; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2149__DISCR_STRBUF", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2149__DISCR_STRBUF", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); + cdat->dsym_2149__DISCR_STRBUF.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_2149__DISCR_STRBUF.obj_hash = 492035674; + cdat->dsym_2149__DISCR_STRBUF.obj_len = 3; + + /*inistring dstr_2150__DISCR_STRBUF*/ + /*_.VALSTR___V2156*/ meltfptr[2155] = (void*)&cdat->dstr_2150__DISCR_STRBUF; + cdat->dstr_2150__DISCR_STRBUF.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2150__DISCR_STRBUF.val, "DISCR_STRBUF", sizeof (cdat->dstr_2150__DISCR_STRBUF.val)-1); + + MELT_LOCATION("warmelt-first.melt:1443:/ iniobj"); + /*iniobj dobj_2151__DISCR_STRBUF*/ +if (((void*)(MELT_PREDEF(DISCR_STRBUF))) != (melt_ptr_t)&cdat->dobj_2151__DISCR_STRBUF) { melt_assertmsg("check.predef length ((void*)(MELT_PREDEF(DISCR_STRBUF)))", melt_object_length((melt_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRBUF))))) >= 5); }; -/*_.VALDATA___V2139*/ meltfptr[2138] = ((void*)(MELT_PREDEF(DISCR_STRBUF))); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2133__DISCR_STRBUF", melt_magic_discr (/*_.VALDATA___V45*/ meltfptr[44]) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2133__DISCR_STRBUF", ((meltobject_ptr_t) (/*_.VALDATA___V45*/ meltfptr[44]))->object_magic == OBMAG_OBJECT); - cdat->dobj_2133__DISCR_STRBUF.obj_class = (meltobject_ptr_t)(/*_.VALDATA___V45*/ meltfptr[44]); - cdat->dobj_2133__DISCR_STRBUF.obj_num = OBMAG_STRBUF; - cdat->dobj_2133__DISCR_STRBUF.obj_hash = 649640030; - cdat->dobj_2133__DISCR_STRBUF.obj_len = 5; - - /*inistring dstr_2134__DISCR_STRBUF*/ - /*_.VALSTR___V2140*/ meltfptr[2139] = (void*)&cdat->dstr_2134__DISCR_STRBUF; - cdat->dstr_2134__DISCR_STRBUF.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2134__DISCR_STRBUF.val, "DISCR_STRBUF", sizeof (cdat->dstr_2134__DISCR_STRBUF.val)-1); - - /*iniobj dsym_2135__DISCR_INTEGER*/ -/*uniqueobj*/ if (!/*_.VALDATA___V2141*/ meltfptr[2140]) /*_.VALDATA___V2141*/ meltfptr[2140] = (void*)&cdat->dsym_2135__DISCR_INTEGER; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2135__DISCR_INTEGER", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2135__DISCR_INTEGER", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); - cdat->dsym_2135__DISCR_INTEGER.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_2135__DISCR_INTEGER.obj_hash = 119182103; - cdat->dsym_2135__DISCR_INTEGER.obj_len = 3; - - /*inistring dstr_2136__DISCR_INTEGER*/ - /*_.VALSTR___V2142*/ meltfptr[2141] = (void*)&cdat->dstr_2136__DISCR_INTEGER; - cdat->dstr_2136__DISCR_INTEGER.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2136__DISCR_INTEGER.val, "DISCR_INTEGER", sizeof (cdat->dstr_2136__DISCR_INTEGER.val)-1); - - MELT_LOCATION("warmelt-first.melt:1444:/ iniobj"); - /*iniobj dobj_2137__DISCR_INTEGER*/ -if (((void*)(MELT_PREDEF(DISCR_INTEGER))) != (melt_ptr_t)&cdat->dobj_2137__DISCR_INTEGER) { +/*_.VALDATA___V2157*/ meltfptr[2156] = ((void*)(MELT_PREDEF(DISCR_STRBUF))); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2151__DISCR_STRBUF", melt_magic_discr (/*_.VALDATA___V45*/ meltfptr[44]) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2151__DISCR_STRBUF", ((meltobject_ptr_t) (/*_.VALDATA___V45*/ meltfptr[44]))->object_magic == OBMAG_OBJECT); + cdat->dobj_2151__DISCR_STRBUF.obj_class = (meltobject_ptr_t)(/*_.VALDATA___V45*/ meltfptr[44]); + cdat->dobj_2151__DISCR_STRBUF.obj_num = OBMAG_STRBUF; + cdat->dobj_2151__DISCR_STRBUF.obj_hash = 678353433; + cdat->dobj_2151__DISCR_STRBUF.obj_len = 5; + + /*inistring dstr_2152__DISCR_STRBUF*/ + /*_.VALSTR___V2158*/ meltfptr[2157] = (void*)&cdat->dstr_2152__DISCR_STRBUF; + cdat->dstr_2152__DISCR_STRBUF.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2152__DISCR_STRBUF.val, "DISCR_STRBUF", sizeof (cdat->dstr_2152__DISCR_STRBUF.val)-1); + + /*iniobj dsym_2153__DISCR_INTEGER*/ +/*uniqueobj*/ if (!/*_.VALDATA___V2159*/ meltfptr[2158]) /*_.VALDATA___V2159*/ meltfptr[2158] = (void*)&cdat->dsym_2153__DISCR_INTEGER; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2153__DISCR_INTEGER", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2153__DISCR_INTEGER", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); + cdat->dsym_2153__DISCR_INTEGER.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_2153__DISCR_INTEGER.obj_hash = 119182103; + cdat->dsym_2153__DISCR_INTEGER.obj_len = 3; + + /*inistring dstr_2154__DISCR_INTEGER*/ + /*_.VALSTR___V2160*/ meltfptr[2159] = (void*)&cdat->dstr_2154__DISCR_INTEGER; + cdat->dstr_2154__DISCR_INTEGER.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2154__DISCR_INTEGER.val, "DISCR_INTEGER", sizeof (cdat->dstr_2154__DISCR_INTEGER.val)-1); + + MELT_LOCATION("warmelt-first.melt:1451:/ iniobj"); + /*iniobj dobj_2155__DISCR_INTEGER*/ +if (((void*)(MELT_PREDEF(DISCR_INTEGER))) != (melt_ptr_t)&cdat->dobj_2155__DISCR_INTEGER) { melt_assertmsg("check.predef length ((void*)(MELT_PREDEF(DISCR_INTEGER)))", melt_object_length((melt_ptr_t)(((void*)(MELT_PREDEF(DISCR_INTEGER))))) >= 5); }; -/*_.VALDATA___V2143*/ meltfptr[2142] = ((void*)(MELT_PREDEF(DISCR_INTEGER))); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2137__DISCR_INTEGER", melt_magic_discr (/*_.VALDATA___V45*/ meltfptr[44]) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2137__DISCR_INTEGER", ((meltobject_ptr_t) (/*_.VALDATA___V45*/ meltfptr[44]))->object_magic == OBMAG_OBJECT); - cdat->dobj_2137__DISCR_INTEGER.obj_class = (meltobject_ptr_t)(/*_.VALDATA___V45*/ meltfptr[44]); - cdat->dobj_2137__DISCR_INTEGER.obj_num = OBMAG_INT; - cdat->dobj_2137__DISCR_INTEGER.obj_hash = 1070774430; - cdat->dobj_2137__DISCR_INTEGER.obj_len = 5; - - /*inistring dstr_2138__DISCR_INTEGER*/ - /*_.VALSTR___V2144*/ meltfptr[2143] = (void*)&cdat->dstr_2138__DISCR_INTEGER; - cdat->dstr_2138__DISCR_INTEGER.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2138__DISCR_INTEGER.val, "DISCR_INTEGER", sizeof (cdat->dstr_2138__DISCR_INTEGER.val)-1); - - /*iniobj dsym_2139__DISCR_CONSTANT_INTEGER*/ -/*uniqueobj*/ if (!/*_.VALDATA___V2145*/ meltfptr[2144]) /*_.VALDATA___V2145*/ meltfptr[2144] = (void*)&cdat->dsym_2139__DISCR_CONSTANT_INTEGER; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2139__DISCR_CONSTANT_INTEGER", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2139__DISCR_CONSTANT_INTEGER", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); - cdat->dsym_2139__DISCR_CONSTANT_INTEGER.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_2139__DISCR_CONSTANT_INTEGER.obj_hash = 1007078494; - cdat->dsym_2139__DISCR_CONSTANT_INTEGER.obj_len = 3; - - /*inistring dstr_2140__DISCR_CONSTANT_I*/ - /*_.VALSTR___V2146*/ meltfptr[2145] = (void*)&cdat->dstr_2140__DISCR_CONSTANT_I; - cdat->dstr_2140__DISCR_CONSTANT_I.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2140__DISCR_CONSTANT_I.val, "DISCR_CONSTANT_INTEGER", sizeof (cdat->dstr_2140__DISCR_CONSTANT_I.val)-1); - - MELT_LOCATION("warmelt-first.melt:1452:/ iniobj"); - /*iniobj dobj_2141__DISCR_CONSTANT_INTEGER*/ -if (((void*)(MELT_PREDEF(DISCR_CONSTANT_INTEGER))) != (melt_ptr_t)&cdat->dobj_2141__DISCR_CONSTANT_INTEGER) { +/*_.VALDATA___V2161*/ meltfptr[2160] = ((void*)(MELT_PREDEF(DISCR_INTEGER))); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2155__DISCR_INTEGER", melt_magic_discr (/*_.VALDATA___V45*/ meltfptr[44]) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2155__DISCR_INTEGER", ((meltobject_ptr_t) (/*_.VALDATA___V45*/ meltfptr[44]))->object_magic == OBMAG_OBJECT); + cdat->dobj_2155__DISCR_INTEGER.obj_class = (meltobject_ptr_t)(/*_.VALDATA___V45*/ meltfptr[44]); + cdat->dobj_2155__DISCR_INTEGER.obj_num = OBMAG_INT; + cdat->dobj_2155__DISCR_INTEGER.obj_hash = 621742257; + cdat->dobj_2155__DISCR_INTEGER.obj_len = 5; + + /*inistring dstr_2156__DISCR_INTEGER*/ + /*_.VALSTR___V2162*/ meltfptr[2161] = (void*)&cdat->dstr_2156__DISCR_INTEGER; + cdat->dstr_2156__DISCR_INTEGER.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2156__DISCR_INTEGER.val, "DISCR_INTEGER", sizeof (cdat->dstr_2156__DISCR_INTEGER.val)-1); + + /*iniobj dsym_2157__DISCR_CONSTANT_INTEGER*/ +/*uniqueobj*/ if (!/*_.VALDATA___V2163*/ meltfptr[2162]) /*_.VALDATA___V2163*/ meltfptr[2162] = (void*)&cdat->dsym_2157__DISCR_CONSTANT_INTEGER; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2157__DISCR_CONSTANT_INTEGER", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2157__DISCR_CONSTANT_INTEGER", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); + cdat->dsym_2157__DISCR_CONSTANT_INTEGER.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_2157__DISCR_CONSTANT_INTEGER.obj_hash = 1007078494; + cdat->dsym_2157__DISCR_CONSTANT_INTEGER.obj_len = 3; + + /*inistring dstr_2158__DISCR_CONSTANT_I*/ + /*_.VALSTR___V2164*/ meltfptr[2163] = (void*)&cdat->dstr_2158__DISCR_CONSTANT_I; + cdat->dstr_2158__DISCR_CONSTANT_I.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2158__DISCR_CONSTANT_I.val, "DISCR_CONSTANT_INTEGER", sizeof (cdat->dstr_2158__DISCR_CONSTANT_I.val)-1); + + MELT_LOCATION("warmelt-first.melt:1459:/ iniobj"); + /*iniobj dobj_2159__DISCR_CONSTANT_INTEGER*/ +if (((void*)(MELT_PREDEF(DISCR_CONSTANT_INTEGER))) != (melt_ptr_t)&cdat->dobj_2159__DISCR_CONSTANT_INTEGER) { melt_assertmsg("check.predef length ((void*)(MELT_PREDEF(DISCR_CONSTANT_INTEGER)))", melt_object_length((melt_ptr_t)(((void*)(MELT_PREDEF(DISCR_CONSTANT_INTEGER))))) >= 5); }; -/*_.VALDATA___V2147*/ meltfptr[2146] = ((void*)(MELT_PREDEF(DISCR_CONSTANT_INTEGER))); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2141__DISCR_CONSTANT_INTEGER", melt_magic_discr (/*_.VALDATA___V45*/ meltfptr[44]) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2141__DISCR_CONSTANT_INTEGER", ((meltobject_ptr_t) (/*_.VALDATA___V45*/ meltfptr[44]))->object_magic == OBMAG_OBJECT); - cdat->dobj_2141__DISCR_CONSTANT_INTEGER.obj_class = (meltobject_ptr_t)(/*_.VALDATA___V45*/ meltfptr[44]); - cdat->dobj_2141__DISCR_CONSTANT_INTEGER.obj_num = OBMAG_INT; - cdat->dobj_2141__DISCR_CONSTANT_INTEGER.obj_hash = 206010533; - cdat->dobj_2141__DISCR_CONSTANT_INTEGER.obj_len = 5; - - /*inistring dstr_2142__DISCR_CONSTANT_I*/ - /*_.VALSTR___V2148*/ meltfptr[2147] = (void*)&cdat->dstr_2142__DISCR_CONSTANT_I; - cdat->dstr_2142__DISCR_CONSTANT_I.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2142__DISCR_CONSTANT_I.val, "DISCR_CONSTANT_INTEGER", sizeof (cdat->dstr_2142__DISCR_CONSTANT_I.val)-1); - - /*iniobj dsym_2143__DISCR_LIST*/ -/*uniqueobj*/ if (!/*_.VALDATA___V2149*/ meltfptr[2148]) /*_.VALDATA___V2149*/ meltfptr[2148] = (void*)&cdat->dsym_2143__DISCR_LIST; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2143__DISCR_LIST", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2143__DISCR_LIST", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); - cdat->dsym_2143__DISCR_LIST.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_2143__DISCR_LIST.obj_hash = 98407634; - cdat->dsym_2143__DISCR_LIST.obj_len = 3; - - /*inistring dstr_2144__DISCR_LIST*/ - /*_.VALSTR___V2150*/ meltfptr[2149] = (void*)&cdat->dstr_2144__DISCR_LIST; - cdat->dstr_2144__DISCR_LIST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2144__DISCR_LIST.val, "DISCR_LIST", sizeof (cdat->dstr_2144__DISCR_LIST.val)-1); - - MELT_LOCATION("warmelt-first.melt:1463:/ iniobj"); - /*iniobj dobj_2145__DISCR_LIST*/ -if (((void*)(MELT_PREDEF(DISCR_LIST))) != (melt_ptr_t)&cdat->dobj_2145__DISCR_LIST) { +/*_.VALDATA___V2165*/ meltfptr[2164] = ((void*)(MELT_PREDEF(DISCR_CONSTANT_INTEGER))); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2159__DISCR_CONSTANT_INTEGER", melt_magic_discr (/*_.VALDATA___V45*/ meltfptr[44]) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2159__DISCR_CONSTANT_INTEGER", ((meltobject_ptr_t) (/*_.VALDATA___V45*/ meltfptr[44]))->object_magic == OBMAG_OBJECT); + cdat->dobj_2159__DISCR_CONSTANT_INTEGER.obj_class = (meltobject_ptr_t)(/*_.VALDATA___V45*/ meltfptr[44]); + cdat->dobj_2159__DISCR_CONSTANT_INTEGER.obj_num = OBMAG_INT; + cdat->dobj_2159__DISCR_CONSTANT_INTEGER.obj_hash = 1055782271; + cdat->dobj_2159__DISCR_CONSTANT_INTEGER.obj_len = 5; + + /*inistring dstr_2160__DISCR_CONSTANT_I*/ + /*_.VALSTR___V2166*/ meltfptr[2165] = (void*)&cdat->dstr_2160__DISCR_CONSTANT_I; + cdat->dstr_2160__DISCR_CONSTANT_I.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2160__DISCR_CONSTANT_I.val, "DISCR_CONSTANT_INTEGER", sizeof (cdat->dstr_2160__DISCR_CONSTANT_I.val)-1); + + /*iniobj dsym_2161__DISCR_LIST*/ +/*uniqueobj*/ if (!/*_.VALDATA___V2167*/ meltfptr[2166]) /*_.VALDATA___V2167*/ meltfptr[2166] = (void*)&cdat->dsym_2161__DISCR_LIST; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2161__DISCR_LIST", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2161__DISCR_LIST", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); + cdat->dsym_2161__DISCR_LIST.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_2161__DISCR_LIST.obj_hash = 98407634; + cdat->dsym_2161__DISCR_LIST.obj_len = 3; + + /*inistring dstr_2162__DISCR_LIST*/ + /*_.VALSTR___V2168*/ meltfptr[2167] = (void*)&cdat->dstr_2162__DISCR_LIST; + cdat->dstr_2162__DISCR_LIST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2162__DISCR_LIST.val, "DISCR_LIST", sizeof (cdat->dstr_2162__DISCR_LIST.val)-1); + + MELT_LOCATION("warmelt-first.melt:1470:/ iniobj"); + /*iniobj dobj_2163__DISCR_LIST*/ +if (((void*)(MELT_PREDEF(DISCR_LIST))) != (melt_ptr_t)&cdat->dobj_2163__DISCR_LIST) { melt_assertmsg("check.predef length ((void*)(MELT_PREDEF(DISCR_LIST)))", melt_object_length((melt_ptr_t)(((void*)(MELT_PREDEF(DISCR_LIST))))) >= 5); }; -/*_.VALDATA___V2151*/ meltfptr[2150] = ((void*)(MELT_PREDEF(DISCR_LIST))); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2145__DISCR_LIST", melt_magic_discr (/*_.VALDATA___V45*/ meltfptr[44]) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2145__DISCR_LIST", ((meltobject_ptr_t) (/*_.VALDATA___V45*/ meltfptr[44]))->object_magic == OBMAG_OBJECT); - cdat->dobj_2145__DISCR_LIST.obj_class = (meltobject_ptr_t)(/*_.VALDATA___V45*/ meltfptr[44]); - cdat->dobj_2145__DISCR_LIST.obj_num = OBMAG_LIST; - cdat->dobj_2145__DISCR_LIST.obj_hash = 901343550; - cdat->dobj_2145__DISCR_LIST.obj_len = 5; - - /*inistring dstr_2146__DISCR_LIST*/ - /*_.VALSTR___V2152*/ meltfptr[2151] = (void*)&cdat->dstr_2146__DISCR_LIST; - cdat->dstr_2146__DISCR_LIST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2146__DISCR_LIST.val, "DISCR_LIST", sizeof (cdat->dstr_2146__DISCR_LIST.val)-1); - - /*iniobj dsym_2147__DISCR_PAIR*/ -/*uniqueobj*/ if (!/*_.VALDATA___V2153*/ meltfptr[2152]) /*_.VALDATA___V2153*/ meltfptr[2152] = (void*)&cdat->dsym_2147__DISCR_PAIR; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2147__DISCR_PAIR", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2147__DISCR_PAIR", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); - cdat->dsym_2147__DISCR_PAIR.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_2147__DISCR_PAIR.obj_hash = 69333571; - cdat->dsym_2147__DISCR_PAIR.obj_len = 3; - - /*inistring dstr_2148__DISCR_PAIR*/ - /*_.VALSTR___V2154*/ meltfptr[2153] = (void*)&cdat->dstr_2148__DISCR_PAIR; - cdat->dstr_2148__DISCR_PAIR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2148__DISCR_PAIR.val, "DISCR_PAIR", sizeof (cdat->dstr_2148__DISCR_PAIR.val)-1); - - MELT_LOCATION("warmelt-first.melt:1471:/ iniobj"); - /*iniobj dobj_2149__DISCR_PAIR*/ -if (((void*)(MELT_PREDEF(DISCR_PAIR))) != (melt_ptr_t)&cdat->dobj_2149__DISCR_PAIR) { +/*_.VALDATA___V2169*/ meltfptr[2168] = ((void*)(MELT_PREDEF(DISCR_LIST))); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2163__DISCR_LIST", melt_magic_discr (/*_.VALDATA___V45*/ meltfptr[44]) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2163__DISCR_LIST", ((meltobject_ptr_t) (/*_.VALDATA___V45*/ meltfptr[44]))->object_magic == OBMAG_OBJECT); + cdat->dobj_2163__DISCR_LIST.obj_class = (meltobject_ptr_t)(/*_.VALDATA___V45*/ meltfptr[44]); + cdat->dobj_2163__DISCR_LIST.obj_num = OBMAG_LIST; + cdat->dobj_2163__DISCR_LIST.obj_hash = 753400020; + cdat->dobj_2163__DISCR_LIST.obj_len = 5; + + /*inistring dstr_2164__DISCR_LIST*/ + /*_.VALSTR___V2170*/ meltfptr[2169] = (void*)&cdat->dstr_2164__DISCR_LIST; + cdat->dstr_2164__DISCR_LIST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2164__DISCR_LIST.val, "DISCR_LIST", sizeof (cdat->dstr_2164__DISCR_LIST.val)-1); + + /*iniobj dsym_2165__DISCR_PAIR*/ +/*uniqueobj*/ if (!/*_.VALDATA___V2171*/ meltfptr[2170]) /*_.VALDATA___V2171*/ meltfptr[2170] = (void*)&cdat->dsym_2165__DISCR_PAIR; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2165__DISCR_PAIR", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2165__DISCR_PAIR", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); + cdat->dsym_2165__DISCR_PAIR.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_2165__DISCR_PAIR.obj_hash = 69333571; + cdat->dsym_2165__DISCR_PAIR.obj_len = 3; + + /*inistring dstr_2166__DISCR_PAIR*/ + /*_.VALSTR___V2172*/ meltfptr[2171] = (void*)&cdat->dstr_2166__DISCR_PAIR; + cdat->dstr_2166__DISCR_PAIR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2166__DISCR_PAIR.val, "DISCR_PAIR", sizeof (cdat->dstr_2166__DISCR_PAIR.val)-1); + + MELT_LOCATION("warmelt-first.melt:1478:/ iniobj"); + /*iniobj dobj_2167__DISCR_PAIR*/ +if (((void*)(MELT_PREDEF(DISCR_PAIR))) != (melt_ptr_t)&cdat->dobj_2167__DISCR_PAIR) { melt_assertmsg("check.predef length ((void*)(MELT_PREDEF(DISCR_PAIR)))", melt_object_length((melt_ptr_t)(((void*)(MELT_PREDEF(DISCR_PAIR))))) >= 5); }; -/*_.VALDATA___V2155*/ meltfptr[2154] = ((void*)(MELT_PREDEF(DISCR_PAIR))); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2149__DISCR_PAIR", melt_magic_discr (/*_.VALDATA___V45*/ meltfptr[44]) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2149__DISCR_PAIR", ((meltobject_ptr_t) (/*_.VALDATA___V45*/ meltfptr[44]))->object_magic == OBMAG_OBJECT); - cdat->dobj_2149__DISCR_PAIR.obj_class = (meltobject_ptr_t)(/*_.VALDATA___V45*/ meltfptr[44]); - cdat->dobj_2149__DISCR_PAIR.obj_num = OBMAG_PAIR; - cdat->dobj_2149__DISCR_PAIR.obj_hash = 973296408; - cdat->dobj_2149__DISCR_PAIR.obj_len = 5; - - /*inistring dstr_2150__DISCR_PAIR*/ - /*_.VALSTR___V2156*/ meltfptr[2155] = (void*)&cdat->dstr_2150__DISCR_PAIR; - cdat->dstr_2150__DISCR_PAIR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2150__DISCR_PAIR.val, "DISCR_PAIR", sizeof (cdat->dstr_2150__DISCR_PAIR.val)-1); - - /*iniobj dsym_2151__DISCR_MULTIPLE*/ -/*uniqueobj*/ if (!/*_.VALDATA___V2157*/ meltfptr[2156]) /*_.VALDATA___V2157*/ meltfptr[2156] = (void*)&cdat->dsym_2151__DISCR_MULTIPLE; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2151__DISCR_MULTIPLE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2151__DISCR_MULTIPLE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); - cdat->dsym_2151__DISCR_MULTIPLE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_2151__DISCR_MULTIPLE.obj_hash = 91864583; - cdat->dsym_2151__DISCR_MULTIPLE.obj_len = 3; - - /*inistring dstr_2152__DISCR_MULTIPLE*/ - /*_.VALSTR___V2158*/ meltfptr[2157] = (void*)&cdat->dstr_2152__DISCR_MULTIPLE; - cdat->dstr_2152__DISCR_MULTIPLE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2152__DISCR_MULTIPLE.val, "DISCR_MULTIPLE", sizeof (cdat->dstr_2152__DISCR_MULTIPLE.val)-1); - - MELT_LOCATION("warmelt-first.melt:1479:/ iniobj"); - /*iniobj dobj_2153__DISCR_MULTIPLE*/ -if (((void*)(MELT_PREDEF(DISCR_MULTIPLE))) != (melt_ptr_t)&cdat->dobj_2153__DISCR_MULTIPLE) { +/*_.VALDATA___V2173*/ meltfptr[2172] = ((void*)(MELT_PREDEF(DISCR_PAIR))); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2167__DISCR_PAIR", melt_magic_discr (/*_.VALDATA___V45*/ meltfptr[44]) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2167__DISCR_PAIR", ((meltobject_ptr_t) (/*_.VALDATA___V45*/ meltfptr[44]))->object_magic == OBMAG_OBJECT); + cdat->dobj_2167__DISCR_PAIR.obj_class = (meltobject_ptr_t)(/*_.VALDATA___V45*/ meltfptr[44]); + cdat->dobj_2167__DISCR_PAIR.obj_num = OBMAG_PAIR; + cdat->dobj_2167__DISCR_PAIR.obj_hash = 838276905; + cdat->dobj_2167__DISCR_PAIR.obj_len = 5; + + /*inistring dstr_2168__DISCR_PAIR*/ + /*_.VALSTR___V2174*/ meltfptr[2173] = (void*)&cdat->dstr_2168__DISCR_PAIR; + cdat->dstr_2168__DISCR_PAIR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2168__DISCR_PAIR.val, "DISCR_PAIR", sizeof (cdat->dstr_2168__DISCR_PAIR.val)-1); + + /*iniobj dsym_2169__DISCR_MULTIPLE*/ +/*uniqueobj*/ if (!/*_.VALDATA___V2175*/ meltfptr[2174]) /*_.VALDATA___V2175*/ meltfptr[2174] = (void*)&cdat->dsym_2169__DISCR_MULTIPLE; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2169__DISCR_MULTIPLE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2169__DISCR_MULTIPLE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); + cdat->dsym_2169__DISCR_MULTIPLE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_2169__DISCR_MULTIPLE.obj_hash = 91864583; + cdat->dsym_2169__DISCR_MULTIPLE.obj_len = 3; + + /*inistring dstr_2170__DISCR_MULTIPLE*/ + /*_.VALSTR___V2176*/ meltfptr[2175] = (void*)&cdat->dstr_2170__DISCR_MULTIPLE; + cdat->dstr_2170__DISCR_MULTIPLE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2170__DISCR_MULTIPLE.val, "DISCR_MULTIPLE", sizeof (cdat->dstr_2170__DISCR_MULTIPLE.val)-1); + + MELT_LOCATION("warmelt-first.melt:1486:/ iniobj"); + /*iniobj dobj_2171__DISCR_MULTIPLE*/ +if (((void*)(MELT_PREDEF(DISCR_MULTIPLE))) != (melt_ptr_t)&cdat->dobj_2171__DISCR_MULTIPLE) { melt_assertmsg("check.predef length ((void*)(MELT_PREDEF(DISCR_MULTIPLE)))", melt_object_length((melt_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))))) >= 5); }; -/*_.VALDATA___V2159*/ meltfptr[2158] = ((void*)(MELT_PREDEF(DISCR_MULTIPLE))); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2153__DISCR_MULTIPLE", melt_magic_discr (/*_.VALDATA___V45*/ meltfptr[44]) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2153__DISCR_MULTIPLE", ((meltobject_ptr_t) (/*_.VALDATA___V45*/ meltfptr[44]))->object_magic == OBMAG_OBJECT); - cdat->dobj_2153__DISCR_MULTIPLE.obj_class = (meltobject_ptr_t)(/*_.VALDATA___V45*/ meltfptr[44]); - cdat->dobj_2153__DISCR_MULTIPLE.obj_num = OBMAG_MULTIPLE; - cdat->dobj_2153__DISCR_MULTIPLE.obj_hash = 42119424; - cdat->dobj_2153__DISCR_MULTIPLE.obj_len = 5; - - /*inistring dstr_2154__DISCR_MULTIPLE*/ - /*_.VALSTR___V2160*/ meltfptr[2159] = (void*)&cdat->dstr_2154__DISCR_MULTIPLE; - cdat->dstr_2154__DISCR_MULTIPLE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2154__DISCR_MULTIPLE.val, "DISCR_MULTIPLE", sizeof (cdat->dstr_2154__DISCR_MULTIPLE.val)-1); - - /*iniobj dsym_2155__DISCR_FIELD_SEQUENCE*/ -/*uniqueobj*/ if (!/*_.VALDATA___V2161*/ meltfptr[2160]) /*_.VALDATA___V2161*/ meltfptr[2160] = (void*)&cdat->dsym_2155__DISCR_FIELD_SEQUENCE; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2155__DISCR_FIELD_SEQUENCE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2155__DISCR_FIELD_SEQUENCE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); - cdat->dsym_2155__DISCR_FIELD_SEQUENCE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_2155__DISCR_FIELD_SEQUENCE.obj_hash = 95370221; - cdat->dsym_2155__DISCR_FIELD_SEQUENCE.obj_len = 3; - - /*inistring dstr_2156__DISCR_FIELD_SEQU*/ - /*_.VALSTR___V2162*/ meltfptr[2161] = (void*)&cdat->dstr_2156__DISCR_FIELD_SEQU; - cdat->dstr_2156__DISCR_FIELD_SEQU.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2156__DISCR_FIELD_SEQU.val, "DISCR_FIELD_SEQUENCE", sizeof (cdat->dstr_2156__DISCR_FIELD_SEQU.val)-1); - - MELT_LOCATION("warmelt-first.melt:1488:/ iniobj"); - /*iniobj dobj_2157__DISCR_FIELD_SEQUENCE*/ -if (((void*)(MELT_PREDEF(DISCR_FIELD_SEQUENCE))) != (melt_ptr_t)&cdat->dobj_2157__DISCR_FIELD_SEQUENCE) { +/*_.VALDATA___V2177*/ meltfptr[2176] = ((void*)(MELT_PREDEF(DISCR_MULTIPLE))); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2171__DISCR_MULTIPLE", melt_magic_discr (/*_.VALDATA___V45*/ meltfptr[44]) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2171__DISCR_MULTIPLE", ((meltobject_ptr_t) (/*_.VALDATA___V45*/ meltfptr[44]))->object_magic == OBMAG_OBJECT); + cdat->dobj_2171__DISCR_MULTIPLE.obj_class = (meltobject_ptr_t)(/*_.VALDATA___V45*/ meltfptr[44]); + cdat->dobj_2171__DISCR_MULTIPLE.obj_num = OBMAG_MULTIPLE; + cdat->dobj_2171__DISCR_MULTIPLE.obj_hash = 115907682; + cdat->dobj_2171__DISCR_MULTIPLE.obj_len = 5; + + /*inistring dstr_2172__DISCR_MULTIPLE*/ + /*_.VALSTR___V2178*/ meltfptr[2177] = (void*)&cdat->dstr_2172__DISCR_MULTIPLE; + cdat->dstr_2172__DISCR_MULTIPLE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2172__DISCR_MULTIPLE.val, "DISCR_MULTIPLE", sizeof (cdat->dstr_2172__DISCR_MULTIPLE.val)-1); + + /*iniobj dsym_2173__DISCR_FIELD_SEQUENCE*/ +/*uniqueobj*/ if (!/*_.VALDATA___V2179*/ meltfptr[2178]) /*_.VALDATA___V2179*/ meltfptr[2178] = (void*)&cdat->dsym_2173__DISCR_FIELD_SEQUENCE; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2173__DISCR_FIELD_SEQUENCE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2173__DISCR_FIELD_SEQUENCE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); + cdat->dsym_2173__DISCR_FIELD_SEQUENCE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_2173__DISCR_FIELD_SEQUENCE.obj_hash = 95370221; + cdat->dsym_2173__DISCR_FIELD_SEQUENCE.obj_len = 3; + + /*inistring dstr_2174__DISCR_FIELD_SEQU*/ + /*_.VALSTR___V2180*/ meltfptr[2179] = (void*)&cdat->dstr_2174__DISCR_FIELD_SEQU; + cdat->dstr_2174__DISCR_FIELD_SEQU.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2174__DISCR_FIELD_SEQU.val, "DISCR_FIELD_SEQUENCE", sizeof (cdat->dstr_2174__DISCR_FIELD_SEQU.val)-1); + + MELT_LOCATION("warmelt-first.melt:1495:/ iniobj"); + /*iniobj dobj_2175__DISCR_FIELD_SEQUENCE*/ +if (((void*)(MELT_PREDEF(DISCR_FIELD_SEQUENCE))) != (melt_ptr_t)&cdat->dobj_2175__DISCR_FIELD_SEQUENCE) { melt_assertmsg("check.predef length ((void*)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))", melt_object_length((melt_ptr_t)(((void*)(MELT_PREDEF(DISCR_FIELD_SEQUENCE))))) >= 5); }; -/*_.VALDATA___V2163*/ meltfptr[2162] = ((void*)(MELT_PREDEF(DISCR_FIELD_SEQUENCE))); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2157__DISCR_FIELD_SEQUENCE", melt_magic_discr (/*_.VALDATA___V45*/ meltfptr[44]) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2157__DISCR_FIELD_SEQUENCE", ((meltobject_ptr_t) (/*_.VALDATA___V45*/ meltfptr[44]))->object_magic == OBMAG_OBJECT); - cdat->dobj_2157__DISCR_FIELD_SEQUENCE.obj_class = (meltobject_ptr_t)(/*_.VALDATA___V45*/ meltfptr[44]); - cdat->dobj_2157__DISCR_FIELD_SEQUENCE.obj_num = OBMAG_MULTIPLE; - cdat->dobj_2157__DISCR_FIELD_SEQUENCE.obj_hash = 502993451; - cdat->dobj_2157__DISCR_FIELD_SEQUENCE.obj_len = 5; - - /*inistring dstr_2158__DISCR_FIELD_SEQU*/ - /*_.VALSTR___V2164*/ meltfptr[2163] = (void*)&cdat->dstr_2158__DISCR_FIELD_SEQU; - cdat->dstr_2158__DISCR_FIELD_SEQU.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2158__DISCR_FIELD_SEQU.val, "DISCR_FIELD_SEQUENCE", sizeof (cdat->dstr_2158__DISCR_FIELD_SEQU.val)-1); - - /*iniobj dsym_2159__DISCR_BOX*/ -/*uniqueobj*/ if (!/*_.VALDATA___V2165*/ meltfptr[2164]) /*_.VALDATA___V2165*/ meltfptr[2164] = (void*)&cdat->dsym_2159__DISCR_BOX; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2159__DISCR_BOX", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2159__DISCR_BOX", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); - cdat->dsym_2159__DISCR_BOX.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_2159__DISCR_BOX.obj_hash = 8042275; - cdat->dsym_2159__DISCR_BOX.obj_len = 3; - - /*inistring dstr_2160__DISCR_BOX*/ - /*_.VALSTR___V2166*/ meltfptr[2165] = (void*)&cdat->dstr_2160__DISCR_BOX; - cdat->dstr_2160__DISCR_BOX.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2160__DISCR_BOX.val, "DISCR_BOX", sizeof (cdat->dstr_2160__DISCR_BOX.val)-1); - - MELT_LOCATION("warmelt-first.melt:1499:/ iniobj"); - /*iniobj dobj_2161__DISCR_BOX*/ -if (((void*)(MELT_PREDEF(DISCR_BOX))) != (melt_ptr_t)&cdat->dobj_2161__DISCR_BOX) { +/*_.VALDATA___V2181*/ meltfptr[2180] = ((void*)(MELT_PREDEF(DISCR_FIELD_SEQUENCE))); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2175__DISCR_FIELD_SEQUENCE", melt_magic_discr (/*_.VALDATA___V45*/ meltfptr[44]) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2175__DISCR_FIELD_SEQUENCE", ((meltobject_ptr_t) (/*_.VALDATA___V45*/ meltfptr[44]))->object_magic == OBMAG_OBJECT); + cdat->dobj_2175__DISCR_FIELD_SEQUENCE.obj_class = (meltobject_ptr_t)(/*_.VALDATA___V45*/ meltfptr[44]); + cdat->dobj_2175__DISCR_FIELD_SEQUENCE.obj_num = OBMAG_MULTIPLE; + cdat->dobj_2175__DISCR_FIELD_SEQUENCE.obj_hash = 913497868; + cdat->dobj_2175__DISCR_FIELD_SEQUENCE.obj_len = 5; + + /*inistring dstr_2176__DISCR_FIELD_SEQU*/ + /*_.VALSTR___V2182*/ meltfptr[2181] = (void*)&cdat->dstr_2176__DISCR_FIELD_SEQU; + cdat->dstr_2176__DISCR_FIELD_SEQU.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2176__DISCR_FIELD_SEQU.val, "DISCR_FIELD_SEQUENCE", sizeof (cdat->dstr_2176__DISCR_FIELD_SEQU.val)-1); + + /*iniobj dsym_2177__DISCR_BOX*/ +/*uniqueobj*/ if (!/*_.VALDATA___V2183*/ meltfptr[2182]) /*_.VALDATA___V2183*/ meltfptr[2182] = (void*)&cdat->dsym_2177__DISCR_BOX; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2177__DISCR_BOX", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2177__DISCR_BOX", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); + cdat->dsym_2177__DISCR_BOX.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_2177__DISCR_BOX.obj_hash = 8042275; + cdat->dsym_2177__DISCR_BOX.obj_len = 3; + + /*inistring dstr_2178__DISCR_BOX*/ + /*_.VALSTR___V2184*/ meltfptr[2183] = (void*)&cdat->dstr_2178__DISCR_BOX; + cdat->dstr_2178__DISCR_BOX.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2178__DISCR_BOX.val, "DISCR_BOX", sizeof (cdat->dstr_2178__DISCR_BOX.val)-1); + + MELT_LOCATION("warmelt-first.melt:1506:/ iniobj"); + /*iniobj dobj_2179__DISCR_BOX*/ +if (((void*)(MELT_PREDEF(DISCR_BOX))) != (melt_ptr_t)&cdat->dobj_2179__DISCR_BOX) { melt_assertmsg("check.predef length ((void*)(MELT_PREDEF(DISCR_BOX)))", melt_object_length((melt_ptr_t)(((void*)(MELT_PREDEF(DISCR_BOX))))) >= 5); }; -/*_.VALDATA___V2167*/ meltfptr[2166] = ((void*)(MELT_PREDEF(DISCR_BOX))); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2161__DISCR_BOX", melt_magic_discr (/*_.VALDATA___V45*/ meltfptr[44]) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2161__DISCR_BOX", ((meltobject_ptr_t) (/*_.VALDATA___V45*/ meltfptr[44]))->object_magic == OBMAG_OBJECT); - cdat->dobj_2161__DISCR_BOX.obj_class = (meltobject_ptr_t)(/*_.VALDATA___V45*/ meltfptr[44]); - cdat->dobj_2161__DISCR_BOX.obj_num = OBMAG_BOX; - cdat->dobj_2161__DISCR_BOX.obj_hash = 606831721; - cdat->dobj_2161__DISCR_BOX.obj_len = 5; - - /*inistring dstr_2162__DISCR_BOX*/ - /*_.VALSTR___V2168*/ meltfptr[2167] = (void*)&cdat->dstr_2162__DISCR_BOX; - cdat->dstr_2162__DISCR_BOX.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2162__DISCR_BOX.val, "DISCR_BOX", sizeof (cdat->dstr_2162__DISCR_BOX.val)-1); - - /*iniobj dsym_2163__DISCR_TREE*/ -/*uniqueobj*/ if (!/*_.VALDATA___V2169*/ meltfptr[2168]) /*_.VALDATA___V2169*/ meltfptr[2168] = (void*)&cdat->dsym_2163__DISCR_TREE; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2163__DISCR_TREE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2163__DISCR_TREE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); - cdat->dsym_2163__DISCR_TREE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_2163__DISCR_TREE.obj_hash = 33934607; - cdat->dsym_2163__DISCR_TREE.obj_len = 3; - - /*inistring dstr_2164__DISCR_TREE*/ - /*_.VALSTR___V2170*/ meltfptr[2169] = (void*)&cdat->dstr_2164__DISCR_TREE; - cdat->dstr_2164__DISCR_TREE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2164__DISCR_TREE.val, "DISCR_TREE", sizeof (cdat->dstr_2164__DISCR_TREE.val)-1); - - MELT_LOCATION("warmelt-first.melt:1508:/ iniobj"); - /*iniobj dobj_2165__DISCR_TREE*/ -if (((void*)(MELT_PREDEF(DISCR_TREE))) != (melt_ptr_t)&cdat->dobj_2165__DISCR_TREE) { +/*_.VALDATA___V2185*/ meltfptr[2184] = ((void*)(MELT_PREDEF(DISCR_BOX))); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2179__DISCR_BOX", melt_magic_discr (/*_.VALDATA___V45*/ meltfptr[44]) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2179__DISCR_BOX", ((meltobject_ptr_t) (/*_.VALDATA___V45*/ meltfptr[44]))->object_magic == OBMAG_OBJECT); + cdat->dobj_2179__DISCR_BOX.obj_class = (meltobject_ptr_t)(/*_.VALDATA___V45*/ meltfptr[44]); + cdat->dobj_2179__DISCR_BOX.obj_num = OBMAG_BOX; + cdat->dobj_2179__DISCR_BOX.obj_hash = 948448160; + cdat->dobj_2179__DISCR_BOX.obj_len = 5; + + /*inistring dstr_2180__DISCR_BOX*/ + /*_.VALSTR___V2186*/ meltfptr[2185] = (void*)&cdat->dstr_2180__DISCR_BOX; + cdat->dstr_2180__DISCR_BOX.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2180__DISCR_BOX.val, "DISCR_BOX", sizeof (cdat->dstr_2180__DISCR_BOX.val)-1); + + /*iniobj dsym_2181__DISCR_TREE*/ +/*uniqueobj*/ if (!/*_.VALDATA___V2187*/ meltfptr[2186]) /*_.VALDATA___V2187*/ meltfptr[2186] = (void*)&cdat->dsym_2181__DISCR_TREE; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2181__DISCR_TREE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2181__DISCR_TREE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); + cdat->dsym_2181__DISCR_TREE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_2181__DISCR_TREE.obj_hash = 33934607; + cdat->dsym_2181__DISCR_TREE.obj_len = 3; + + /*inistring dstr_2182__DISCR_TREE*/ + /*_.VALSTR___V2188*/ meltfptr[2187] = (void*)&cdat->dstr_2182__DISCR_TREE; + cdat->dstr_2182__DISCR_TREE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2182__DISCR_TREE.val, "DISCR_TREE", sizeof (cdat->dstr_2182__DISCR_TREE.val)-1); + + MELT_LOCATION("warmelt-first.melt:1515:/ iniobj"); + /*iniobj dobj_2183__DISCR_TREE*/ +if (((void*)(MELT_PREDEF(DISCR_TREE))) != (melt_ptr_t)&cdat->dobj_2183__DISCR_TREE) { melt_assertmsg("check.predef length ((void*)(MELT_PREDEF(DISCR_TREE)))", melt_object_length((melt_ptr_t)(((void*)(MELT_PREDEF(DISCR_TREE))))) >= 5); }; -/*_.VALDATA___V2171*/ meltfptr[2170] = ((void*)(MELT_PREDEF(DISCR_TREE))); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2165__DISCR_TREE", melt_magic_discr (/*_.VALDATA___V45*/ meltfptr[44]) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2165__DISCR_TREE", ((meltobject_ptr_t) (/*_.VALDATA___V45*/ meltfptr[44]))->object_magic == OBMAG_OBJECT); - cdat->dobj_2165__DISCR_TREE.obj_class = (meltobject_ptr_t)(/*_.VALDATA___V45*/ meltfptr[44]); - cdat->dobj_2165__DISCR_TREE.obj_num = OBMAG_TREE; - cdat->dobj_2165__DISCR_TREE.obj_hash = 877594226; - cdat->dobj_2165__DISCR_TREE.obj_len = 5; - - /*inistring dstr_2166__DISCR_TREE*/ - /*_.VALSTR___V2172*/ meltfptr[2171] = (void*)&cdat->dstr_2166__DISCR_TREE; - cdat->dstr_2166__DISCR_TREE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2166__DISCR_TREE.val, "DISCR_TREE", sizeof (cdat->dstr_2166__DISCR_TREE.val)-1); - - /*iniobj dsym_2167__DISCR_GIMPLE*/ -/*uniqueobj*/ if (!/*_.VALDATA___V2173*/ meltfptr[2172]) /*_.VALDATA___V2173*/ meltfptr[2172] = (void*)&cdat->dsym_2167__DISCR_GIMPLE; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2167__DISCR_GIMPLE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2167__DISCR_GIMPLE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); - cdat->dsym_2167__DISCR_GIMPLE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_2167__DISCR_GIMPLE.obj_hash = 554416154; - cdat->dsym_2167__DISCR_GIMPLE.obj_len = 3; - - /*inistring dstr_2168__DISCR_GIMPLE*/ - /*_.VALSTR___V2174*/ meltfptr[2173] = (void*)&cdat->dstr_2168__DISCR_GIMPLE; - cdat->dstr_2168__DISCR_GIMPLE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2168__DISCR_GIMPLE.val, "DISCR_GIMPLE", sizeof (cdat->dstr_2168__DISCR_GIMPLE.val)-1); - - MELT_LOCATION("warmelt-first.melt:1516:/ iniobj"); - /*iniobj dobj_2169__DISCR_GIMPLE*/ -if (((void*)(MELT_PREDEF(DISCR_GIMPLE))) != (melt_ptr_t)&cdat->dobj_2169__DISCR_GIMPLE) { +/*_.VALDATA___V2189*/ meltfptr[2188] = ((void*)(MELT_PREDEF(DISCR_TREE))); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2183__DISCR_TREE", melt_magic_discr (/*_.VALDATA___V45*/ meltfptr[44]) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2183__DISCR_TREE", ((meltobject_ptr_t) (/*_.VALDATA___V45*/ meltfptr[44]))->object_magic == OBMAG_OBJECT); + cdat->dobj_2183__DISCR_TREE.obj_class = (meltobject_ptr_t)(/*_.VALDATA___V45*/ meltfptr[44]); + cdat->dobj_2183__DISCR_TREE.obj_num = OBMAG_TREE; + cdat->dobj_2183__DISCR_TREE.obj_hash = 946067392; + cdat->dobj_2183__DISCR_TREE.obj_len = 5; + + /*inistring dstr_2184__DISCR_TREE*/ + /*_.VALSTR___V2190*/ meltfptr[2189] = (void*)&cdat->dstr_2184__DISCR_TREE; + cdat->dstr_2184__DISCR_TREE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2184__DISCR_TREE.val, "DISCR_TREE", sizeof (cdat->dstr_2184__DISCR_TREE.val)-1); + + /*iniobj dsym_2185__DISCR_GIMPLE*/ +/*uniqueobj*/ if (!/*_.VALDATA___V2191*/ meltfptr[2190]) /*_.VALDATA___V2191*/ meltfptr[2190] = (void*)&cdat->dsym_2185__DISCR_GIMPLE; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2185__DISCR_GIMPLE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2185__DISCR_GIMPLE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); + cdat->dsym_2185__DISCR_GIMPLE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_2185__DISCR_GIMPLE.obj_hash = 554416154; + cdat->dsym_2185__DISCR_GIMPLE.obj_len = 3; + + /*inistring dstr_2186__DISCR_GIMPLE*/ + /*_.VALSTR___V2192*/ meltfptr[2191] = (void*)&cdat->dstr_2186__DISCR_GIMPLE; + cdat->dstr_2186__DISCR_GIMPLE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2186__DISCR_GIMPLE.val, "DISCR_GIMPLE", sizeof (cdat->dstr_2186__DISCR_GIMPLE.val)-1); + + MELT_LOCATION("warmelt-first.melt:1523:/ iniobj"); + /*iniobj dobj_2187__DISCR_GIMPLE*/ +if (((void*)(MELT_PREDEF(DISCR_GIMPLE))) != (melt_ptr_t)&cdat->dobj_2187__DISCR_GIMPLE) { melt_assertmsg("check.predef length ((void*)(MELT_PREDEF(DISCR_GIMPLE)))", melt_object_length((melt_ptr_t)(((void*)(MELT_PREDEF(DISCR_GIMPLE))))) >= 5); }; -/*_.VALDATA___V2175*/ meltfptr[2174] = ((void*)(MELT_PREDEF(DISCR_GIMPLE))); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2169__DISCR_GIMPLE", melt_magic_discr (/*_.VALDATA___V45*/ meltfptr[44]) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2169__DISCR_GIMPLE", ((meltobject_ptr_t) (/*_.VALDATA___V45*/ meltfptr[44]))->object_magic == OBMAG_OBJECT); - cdat->dobj_2169__DISCR_GIMPLE.obj_class = (meltobject_ptr_t)(/*_.VALDATA___V45*/ meltfptr[44]); - cdat->dobj_2169__DISCR_GIMPLE.obj_num = OBMAG_GIMPLE; - cdat->dobj_2169__DISCR_GIMPLE.obj_hash = 232849949; - cdat->dobj_2169__DISCR_GIMPLE.obj_len = 5; - - /*inistring dstr_2170__DISCR_GIMPLE*/ - /*_.VALSTR___V2176*/ meltfptr[2175] = (void*)&cdat->dstr_2170__DISCR_GIMPLE; - cdat->dstr_2170__DISCR_GIMPLE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2170__DISCR_GIMPLE.val, "DISCR_GIMPLE", sizeof (cdat->dstr_2170__DISCR_GIMPLE.val)-1); - - /*iniobj dsym_2171__DISCR_GIMPLE_SEQ*/ -/*uniqueobj*/ if (!/*_.VALDATA___V2177*/ meltfptr[2176]) /*_.VALDATA___V2177*/ meltfptr[2176] = (void*)&cdat->dsym_2171__DISCR_GIMPLE_SEQ; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2171__DISCR_GIMPLE_SEQ", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2171__DISCR_GIMPLE_SEQ", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); - cdat->dsym_2171__DISCR_GIMPLE_SEQ.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_2171__DISCR_GIMPLE_SEQ.obj_hash = 369017589; - cdat->dsym_2171__DISCR_GIMPLE_SEQ.obj_len = 3; - - /*inistring dstr_2172__DISCR_GIMPLE_SEQ*/ - /*_.VALSTR___V2178*/ meltfptr[2177] = (void*)&cdat->dstr_2172__DISCR_GIMPLE_SEQ; - cdat->dstr_2172__DISCR_GIMPLE_SEQ.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2172__DISCR_GIMPLE_SEQ.val, "DISCR_GIMPLE_SEQ", sizeof (cdat->dstr_2172__DISCR_GIMPLE_SEQ.val)-1); - - MELT_LOCATION("warmelt-first.melt:1524:/ iniobj"); - /*iniobj dobj_2173__DISCR_GIMPLE_SEQ*/ -if (((void*)(MELT_PREDEF(DISCR_GIMPLE_SEQ))) != (melt_ptr_t)&cdat->dobj_2173__DISCR_GIMPLE_SEQ) { +/*_.VALDATA___V2193*/ meltfptr[2192] = ((void*)(MELT_PREDEF(DISCR_GIMPLE))); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2187__DISCR_GIMPLE", melt_magic_discr (/*_.VALDATA___V45*/ meltfptr[44]) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2187__DISCR_GIMPLE", ((meltobject_ptr_t) (/*_.VALDATA___V45*/ meltfptr[44]))->object_magic == OBMAG_OBJECT); + cdat->dobj_2187__DISCR_GIMPLE.obj_class = (meltobject_ptr_t)(/*_.VALDATA___V45*/ meltfptr[44]); + cdat->dobj_2187__DISCR_GIMPLE.obj_num = OBMAG_GIMPLE; + cdat->dobj_2187__DISCR_GIMPLE.obj_hash = 57572727; + cdat->dobj_2187__DISCR_GIMPLE.obj_len = 5; + + /*inistring dstr_2188__DISCR_GIMPLE*/ + /*_.VALSTR___V2194*/ meltfptr[2193] = (void*)&cdat->dstr_2188__DISCR_GIMPLE; + cdat->dstr_2188__DISCR_GIMPLE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2188__DISCR_GIMPLE.val, "DISCR_GIMPLE", sizeof (cdat->dstr_2188__DISCR_GIMPLE.val)-1); + + /*iniobj dsym_2189__DISCR_GIMPLE_SEQ*/ +/*uniqueobj*/ if (!/*_.VALDATA___V2195*/ meltfptr[2194]) /*_.VALDATA___V2195*/ meltfptr[2194] = (void*)&cdat->dsym_2189__DISCR_GIMPLE_SEQ; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2189__DISCR_GIMPLE_SEQ", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2189__DISCR_GIMPLE_SEQ", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); + cdat->dsym_2189__DISCR_GIMPLE_SEQ.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_2189__DISCR_GIMPLE_SEQ.obj_hash = 369017589; + cdat->dsym_2189__DISCR_GIMPLE_SEQ.obj_len = 3; + + /*inistring dstr_2190__DISCR_GIMPLE_SEQ*/ + /*_.VALSTR___V2196*/ meltfptr[2195] = (void*)&cdat->dstr_2190__DISCR_GIMPLE_SEQ; + cdat->dstr_2190__DISCR_GIMPLE_SEQ.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2190__DISCR_GIMPLE_SEQ.val, "DISCR_GIMPLE_SEQ", sizeof (cdat->dstr_2190__DISCR_GIMPLE_SEQ.val)-1); + + MELT_LOCATION("warmelt-first.melt:1531:/ iniobj"); + /*iniobj dobj_2191__DISCR_GIMPLE_SEQ*/ +if (((void*)(MELT_PREDEF(DISCR_GIMPLE_SEQ))) != (melt_ptr_t)&cdat->dobj_2191__DISCR_GIMPLE_SEQ) { melt_assertmsg("check.predef length ((void*)(MELT_PREDEF(DISCR_GIMPLE_SEQ)))", melt_object_length((melt_ptr_t)(((void*)(MELT_PREDEF(DISCR_GIMPLE_SEQ))))) >= 5); }; -/*_.VALDATA___V2179*/ meltfptr[2178] = ((void*)(MELT_PREDEF(DISCR_GIMPLE_SEQ))); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2173__DISCR_GIMPLE_SEQ", melt_magic_discr (/*_.VALDATA___V45*/ meltfptr[44]) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2173__DISCR_GIMPLE_SEQ", ((meltobject_ptr_t) (/*_.VALDATA___V45*/ meltfptr[44]))->object_magic == OBMAG_OBJECT); - cdat->dobj_2173__DISCR_GIMPLE_SEQ.obj_class = (meltobject_ptr_t)(/*_.VALDATA___V45*/ meltfptr[44]); - cdat->dobj_2173__DISCR_GIMPLE_SEQ.obj_num = OBMAG_GIMPLESEQ; - cdat->dobj_2173__DISCR_GIMPLE_SEQ.obj_hash = 891211427; - cdat->dobj_2173__DISCR_GIMPLE_SEQ.obj_len = 5; - - /*inistring dstr_2174__DISCR_GIMPLE_SEQ*/ - /*_.VALSTR___V2180*/ meltfptr[2179] = (void*)&cdat->dstr_2174__DISCR_GIMPLE_SEQ; - cdat->dstr_2174__DISCR_GIMPLE_SEQ.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2174__DISCR_GIMPLE_SEQ.val, "DISCR_GIMPLE_SEQ", sizeof (cdat->dstr_2174__DISCR_GIMPLE_SEQ.val)-1); - - /*iniobj dsym_2175__DISCR_EDGE*/ -/*uniqueobj*/ if (!/*_.VALDATA___V2181*/ meltfptr[2180]) /*_.VALDATA___V2181*/ meltfptr[2180] = (void*)&cdat->dsym_2175__DISCR_EDGE; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2175__DISCR_EDGE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2175__DISCR_EDGE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); - cdat->dsym_2175__DISCR_EDGE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_2175__DISCR_EDGE.obj_hash = 91457502; - cdat->dsym_2175__DISCR_EDGE.obj_len = 3; - - /*inistring dstr_2176__DISCR_EDGE*/ - /*_.VALSTR___V2182*/ meltfptr[2181] = (void*)&cdat->dstr_2176__DISCR_EDGE; - cdat->dstr_2176__DISCR_EDGE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2176__DISCR_EDGE.val, "DISCR_EDGE", sizeof (cdat->dstr_2176__DISCR_EDGE.val)-1); - - MELT_LOCATION("warmelt-first.melt:1532:/ iniobj"); - /*iniobj dobj_2177__DISCR_EDGE*/ -if (((void*)(MELT_PREDEF(DISCR_EDGE))) != (melt_ptr_t)&cdat->dobj_2177__DISCR_EDGE) { - melt_assertmsg("check.predef length ((void*)(MELT_PREDEF(DISCR_EDGE)))", melt_object_length((melt_ptr_t)(((void*)(MELT_PREDEF(DISCR_EDGE))))) >= 5); - }; -/*_.VALDATA___V2183*/ meltfptr[2182] = ((void*)(MELT_PREDEF(DISCR_EDGE))); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2177__DISCR_EDGE", melt_magic_discr (/*_.VALDATA___V45*/ meltfptr[44]) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2177__DISCR_EDGE", ((meltobject_ptr_t) (/*_.VALDATA___V45*/ meltfptr[44]))->object_magic == OBMAG_OBJECT); - cdat->dobj_2177__DISCR_EDGE.obj_class = (meltobject_ptr_t)(/*_.VALDATA___V45*/ meltfptr[44]); - cdat->dobj_2177__DISCR_EDGE.obj_num = OBMAG_EDGE; - cdat->dobj_2177__DISCR_EDGE.obj_hash = 719272672; - cdat->dobj_2177__DISCR_EDGE.obj_len = 5; - - /*inistring dstr_2178__DISCR_EDGE*/ - /*_.VALSTR___V2184*/ meltfptr[2183] = (void*)&cdat->dstr_2178__DISCR_EDGE; - cdat->dstr_2178__DISCR_EDGE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2178__DISCR_EDGE.val, "DISCR_EDGE", sizeof (cdat->dstr_2178__DISCR_EDGE.val)-1); - - /*iniobj dsym_2179__DISCR_BASIC_BLOCK*/ -/*uniqueobj*/ if (!/*_.VALDATA___V2185*/ meltfptr[2184]) /*_.VALDATA___V2185*/ meltfptr[2184] = (void*)&cdat->dsym_2179__DISCR_BASIC_BLOCK; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2179__DISCR_BASIC_BLOCK", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2179__DISCR_BASIC_BLOCK", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); - cdat->dsym_2179__DISCR_BASIC_BLOCK.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_2179__DISCR_BASIC_BLOCK.obj_hash = 457105241; - cdat->dsym_2179__DISCR_BASIC_BLOCK.obj_len = 3; - - /*inistring dstr_2180__DISCR_BASIC_BLOC*/ - /*_.VALSTR___V2186*/ meltfptr[2185] = (void*)&cdat->dstr_2180__DISCR_BASIC_BLOC; - cdat->dstr_2180__DISCR_BASIC_BLOC.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2180__DISCR_BASIC_BLOC.val, "DISCR_BASIC_BLOCK", sizeof (cdat->dstr_2180__DISCR_BASIC_BLOC.val)-1); +/*_.VALDATA___V2197*/ meltfptr[2196] = ((void*)(MELT_PREDEF(DISCR_GIMPLE_SEQ))); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2191__DISCR_GIMPLE_SEQ", melt_magic_discr (/*_.VALDATA___V45*/ meltfptr[44]) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2191__DISCR_GIMPLE_SEQ", ((meltobject_ptr_t) (/*_.VALDATA___V45*/ meltfptr[44]))->object_magic == OBMAG_OBJECT); + cdat->dobj_2191__DISCR_GIMPLE_SEQ.obj_class = (meltobject_ptr_t)(/*_.VALDATA___V45*/ meltfptr[44]); + cdat->dobj_2191__DISCR_GIMPLE_SEQ.obj_num = OBMAG_GIMPLESEQ; + cdat->dobj_2191__DISCR_GIMPLE_SEQ.obj_hash = 632708731; + cdat->dobj_2191__DISCR_GIMPLE_SEQ.obj_len = 5; + + /*inistring dstr_2192__DISCR_GIMPLE_SEQ*/ + /*_.VALSTR___V2198*/ meltfptr[2197] = (void*)&cdat->dstr_2192__DISCR_GIMPLE_SEQ; + cdat->dstr_2192__DISCR_GIMPLE_SEQ.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2192__DISCR_GIMPLE_SEQ.val, "DISCR_GIMPLE_SEQ", sizeof (cdat->dstr_2192__DISCR_GIMPLE_SEQ.val)-1); + + /*iniobj dsym_2193__DISCR_EDGE*/ +/*uniqueobj*/ if (!/*_.VALDATA___V2199*/ meltfptr[2198]) /*_.VALDATA___V2199*/ meltfptr[2198] = (void*)&cdat->dsym_2193__DISCR_EDGE; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2193__DISCR_EDGE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2193__DISCR_EDGE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); + cdat->dsym_2193__DISCR_EDGE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_2193__DISCR_EDGE.obj_hash = 91457502; + cdat->dsym_2193__DISCR_EDGE.obj_len = 3; + + /*inistring dstr_2194__DISCR_EDGE*/ + /*_.VALSTR___V2200*/ meltfptr[2199] = (void*)&cdat->dstr_2194__DISCR_EDGE; + cdat->dstr_2194__DISCR_EDGE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2194__DISCR_EDGE.val, "DISCR_EDGE", sizeof (cdat->dstr_2194__DISCR_EDGE.val)-1); MELT_LOCATION("warmelt-first.melt:1539:/ iniobj"); - /*iniobj dobj_2181__DISCR_BASIC_BLOCK*/ -if (((void*)(MELT_PREDEF(DISCR_BASIC_BLOCK))) != (melt_ptr_t)&cdat->dobj_2181__DISCR_BASIC_BLOCK) { + /*iniobj dobj_2195__DISCR_EDGE*/ +if (((void*)(MELT_PREDEF(DISCR_EDGE))) != (melt_ptr_t)&cdat->dobj_2195__DISCR_EDGE) { + melt_assertmsg("check.predef length ((void*)(MELT_PREDEF(DISCR_EDGE)))", melt_object_length((melt_ptr_t)(((void*)(MELT_PREDEF(DISCR_EDGE))))) >= 5); + }; +/*_.VALDATA___V2201*/ meltfptr[2200] = ((void*)(MELT_PREDEF(DISCR_EDGE))); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2195__DISCR_EDGE", melt_magic_discr (/*_.VALDATA___V45*/ meltfptr[44]) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2195__DISCR_EDGE", ((meltobject_ptr_t) (/*_.VALDATA___V45*/ meltfptr[44]))->object_magic == OBMAG_OBJECT); + cdat->dobj_2195__DISCR_EDGE.obj_class = (meltobject_ptr_t)(/*_.VALDATA___V45*/ meltfptr[44]); + cdat->dobj_2195__DISCR_EDGE.obj_num = OBMAG_EDGE; + cdat->dobj_2195__DISCR_EDGE.obj_hash = 861466476; + cdat->dobj_2195__DISCR_EDGE.obj_len = 5; + + /*inistring dstr_2196__DISCR_EDGE*/ + /*_.VALSTR___V2202*/ meltfptr[2201] = (void*)&cdat->dstr_2196__DISCR_EDGE; + cdat->dstr_2196__DISCR_EDGE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2196__DISCR_EDGE.val, "DISCR_EDGE", sizeof (cdat->dstr_2196__DISCR_EDGE.val)-1); + + /*iniobj dsym_2197__DISCR_BASIC_BLOCK*/ +/*uniqueobj*/ if (!/*_.VALDATA___V2203*/ meltfptr[2202]) /*_.VALDATA___V2203*/ meltfptr[2202] = (void*)&cdat->dsym_2197__DISCR_BASIC_BLOCK; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2197__DISCR_BASIC_BLOCK", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2197__DISCR_BASIC_BLOCK", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); + cdat->dsym_2197__DISCR_BASIC_BLOCK.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_2197__DISCR_BASIC_BLOCK.obj_hash = 457105241; + cdat->dsym_2197__DISCR_BASIC_BLOCK.obj_len = 3; + + /*inistring dstr_2198__DISCR_BASIC_BLOC*/ + /*_.VALSTR___V2204*/ meltfptr[2203] = (void*)&cdat->dstr_2198__DISCR_BASIC_BLOC; + cdat->dstr_2198__DISCR_BASIC_BLOC.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2198__DISCR_BASIC_BLOC.val, "DISCR_BASIC_BLOCK", sizeof (cdat->dstr_2198__DISCR_BASIC_BLOC.val)-1); + + MELT_LOCATION("warmelt-first.melt:1546:/ iniobj"); + /*iniobj dobj_2199__DISCR_BASIC_BLOCK*/ +if (((void*)(MELT_PREDEF(DISCR_BASIC_BLOCK))) != (melt_ptr_t)&cdat->dobj_2199__DISCR_BASIC_BLOCK) { melt_assertmsg("check.predef length ((void*)(MELT_PREDEF(DISCR_BASIC_BLOCK)))", melt_object_length((melt_ptr_t)(((void*)(MELT_PREDEF(DISCR_BASIC_BLOCK))))) >= 5); }; -/*_.VALDATA___V2187*/ meltfptr[2186] = ((void*)(MELT_PREDEF(DISCR_BASIC_BLOCK))); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2181__DISCR_BASIC_BLOCK", melt_magic_discr (/*_.VALDATA___V45*/ meltfptr[44]) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2181__DISCR_BASIC_BLOCK", ((meltobject_ptr_t) (/*_.VALDATA___V45*/ meltfptr[44]))->object_magic == OBMAG_OBJECT); - cdat->dobj_2181__DISCR_BASIC_BLOCK.obj_class = (meltobject_ptr_t)(/*_.VALDATA___V45*/ meltfptr[44]); - cdat->dobj_2181__DISCR_BASIC_BLOCK.obj_num = OBMAG_BASICBLOCK; - cdat->dobj_2181__DISCR_BASIC_BLOCK.obj_hash = 964239250; - cdat->dobj_2181__DISCR_BASIC_BLOCK.obj_len = 5; - - /*inistring dstr_2182__DISCR_BASIC_BLOC*/ - /*_.VALSTR___V2188*/ meltfptr[2187] = (void*)&cdat->dstr_2182__DISCR_BASIC_BLOC; - cdat->dstr_2182__DISCR_BASIC_BLOC.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2182__DISCR_BASIC_BLOC.val, "DISCR_BASIC_BLOCK", sizeof (cdat->dstr_2182__DISCR_BASIC_BLOC.val)-1); - - /*iniobj dsym_2183__DISCR_MAP_OBJECTS*/ -/*uniqueobj*/ if (!/*_.VALDATA___V2189*/ meltfptr[2188]) /*_.VALDATA___V2189*/ meltfptr[2188] = (void*)&cdat->dsym_2183__DISCR_MAP_OBJECTS; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2183__DISCR_MAP_OBJECTS", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2183__DISCR_MAP_OBJECTS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); - cdat->dsym_2183__DISCR_MAP_OBJECTS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_2183__DISCR_MAP_OBJECTS.obj_hash = 217147088; - cdat->dsym_2183__DISCR_MAP_OBJECTS.obj_len = 3; - - /*inistring dstr_2184__DISCR_MAP_OBJECT*/ - /*_.VALSTR___V2190*/ meltfptr[2189] = (void*)&cdat->dstr_2184__DISCR_MAP_OBJECT; - cdat->dstr_2184__DISCR_MAP_OBJECT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2184__DISCR_MAP_OBJECT.val, "DISCR_MAP_OBJECTS", sizeof (cdat->dstr_2184__DISCR_MAP_OBJECT.val)-1); - - MELT_LOCATION("warmelt-first.melt:1548:/ iniobj"); - /*iniobj dobj_2185__DISCR_MAP_OBJECTS*/ -if (((void*)(MELT_PREDEF(DISCR_MAP_OBJECTS))) != (melt_ptr_t)&cdat->dobj_2185__DISCR_MAP_OBJECTS) { +/*_.VALDATA___V2205*/ meltfptr[2204] = ((void*)(MELT_PREDEF(DISCR_BASIC_BLOCK))); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2199__DISCR_BASIC_BLOCK", melt_magic_discr (/*_.VALDATA___V45*/ meltfptr[44]) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2199__DISCR_BASIC_BLOCK", ((meltobject_ptr_t) (/*_.VALDATA___V45*/ meltfptr[44]))->object_magic == OBMAG_OBJECT); + cdat->dobj_2199__DISCR_BASIC_BLOCK.obj_class = (meltobject_ptr_t)(/*_.VALDATA___V45*/ meltfptr[44]); + cdat->dobj_2199__DISCR_BASIC_BLOCK.obj_num = OBMAG_BASICBLOCK; + cdat->dobj_2199__DISCR_BASIC_BLOCK.obj_hash = 752519956; + cdat->dobj_2199__DISCR_BASIC_BLOCK.obj_len = 5; + + /*inistring dstr_2200__DISCR_BASIC_BLOC*/ + /*_.VALSTR___V2206*/ meltfptr[2205] = (void*)&cdat->dstr_2200__DISCR_BASIC_BLOC; + cdat->dstr_2200__DISCR_BASIC_BLOC.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2200__DISCR_BASIC_BLOC.val, "DISCR_BASIC_BLOCK", sizeof (cdat->dstr_2200__DISCR_BASIC_BLOC.val)-1); + + /*iniobj dsym_2201__DISCR_MAP_OBJECTS*/ +/*uniqueobj*/ if (!/*_.VALDATA___V2207*/ meltfptr[2206]) /*_.VALDATA___V2207*/ meltfptr[2206] = (void*)&cdat->dsym_2201__DISCR_MAP_OBJECTS; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2201__DISCR_MAP_OBJECTS", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2201__DISCR_MAP_OBJECTS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); + cdat->dsym_2201__DISCR_MAP_OBJECTS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_2201__DISCR_MAP_OBJECTS.obj_hash = 217147088; + cdat->dsym_2201__DISCR_MAP_OBJECTS.obj_len = 3; + + /*inistring dstr_2202__DISCR_MAP_OBJECT*/ + /*_.VALSTR___V2208*/ meltfptr[2207] = (void*)&cdat->dstr_2202__DISCR_MAP_OBJECT; + cdat->dstr_2202__DISCR_MAP_OBJECT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2202__DISCR_MAP_OBJECT.val, "DISCR_MAP_OBJECTS", sizeof (cdat->dstr_2202__DISCR_MAP_OBJECT.val)-1); + + MELT_LOCATION("warmelt-first.melt:1555:/ iniobj"); + /*iniobj dobj_2203__DISCR_MAP_OBJECTS*/ +if (((void*)(MELT_PREDEF(DISCR_MAP_OBJECTS))) != (melt_ptr_t)&cdat->dobj_2203__DISCR_MAP_OBJECTS) { melt_assertmsg("check.predef length ((void*)(MELT_PREDEF(DISCR_MAP_OBJECTS)))", melt_object_length((melt_ptr_t)(((void*)(MELT_PREDEF(DISCR_MAP_OBJECTS))))) >= 5); }; -/*_.VALDATA___V2191*/ meltfptr[2190] = ((void*)(MELT_PREDEF(DISCR_MAP_OBJECTS))); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2185__DISCR_MAP_OBJECTS", melt_magic_discr (/*_.VALDATA___V45*/ meltfptr[44]) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2185__DISCR_MAP_OBJECTS", ((meltobject_ptr_t) (/*_.VALDATA___V45*/ meltfptr[44]))->object_magic == OBMAG_OBJECT); - cdat->dobj_2185__DISCR_MAP_OBJECTS.obj_class = (meltobject_ptr_t)(/*_.VALDATA___V45*/ meltfptr[44]); - cdat->dobj_2185__DISCR_MAP_OBJECTS.obj_num = OBMAG_MAPOBJECTS; - cdat->dobj_2185__DISCR_MAP_OBJECTS.obj_hash = 915536279; - cdat->dobj_2185__DISCR_MAP_OBJECTS.obj_len = 5; - - /*inistring dstr_2186__DISCR_MAP_OBJECT*/ - /*_.VALSTR___V2192*/ meltfptr[2191] = (void*)&cdat->dstr_2186__DISCR_MAP_OBJECT; - cdat->dstr_2186__DISCR_MAP_OBJECT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2186__DISCR_MAP_OBJECT.val, "DISCR_MAP_OBJECTS", sizeof (cdat->dstr_2186__DISCR_MAP_OBJECT.val)-1); - - /*iniobj dsym_2187__DISCR_MAP_STRINGS*/ -/*uniqueobj*/ if (!/*_.VALDATA___V2193*/ meltfptr[2192]) /*_.VALDATA___V2193*/ meltfptr[2192] = (void*)&cdat->dsym_2187__DISCR_MAP_STRINGS; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2187__DISCR_MAP_STRINGS", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2187__DISCR_MAP_STRINGS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); - cdat->dsym_2187__DISCR_MAP_STRINGS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_2187__DISCR_MAP_STRINGS.obj_hash = 344609662; - cdat->dsym_2187__DISCR_MAP_STRINGS.obj_len = 3; - - /*inistring dstr_2188__DISCR_MAP_STRING*/ - /*_.VALSTR___V2194*/ meltfptr[2193] = (void*)&cdat->dstr_2188__DISCR_MAP_STRING; - cdat->dstr_2188__DISCR_MAP_STRING.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2188__DISCR_MAP_STRING.val, "DISCR_MAP_STRINGS", sizeof (cdat->dstr_2188__DISCR_MAP_STRING.val)-1); - - MELT_LOCATION("warmelt-first.melt:1557:/ iniobj"); - /*iniobj dobj_2189__DISCR_MAP_STRINGS*/ -if (((void*)(MELT_PREDEF(DISCR_MAP_STRINGS))) != (melt_ptr_t)&cdat->dobj_2189__DISCR_MAP_STRINGS) { +/*_.VALDATA___V2209*/ meltfptr[2208] = ((void*)(MELT_PREDEF(DISCR_MAP_OBJECTS))); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2203__DISCR_MAP_OBJECTS", melt_magic_discr (/*_.VALDATA___V45*/ meltfptr[44]) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2203__DISCR_MAP_OBJECTS", ((meltobject_ptr_t) (/*_.VALDATA___V45*/ meltfptr[44]))->object_magic == OBMAG_OBJECT); + cdat->dobj_2203__DISCR_MAP_OBJECTS.obj_class = (meltobject_ptr_t)(/*_.VALDATA___V45*/ meltfptr[44]); + cdat->dobj_2203__DISCR_MAP_OBJECTS.obj_num = OBMAG_MAPOBJECTS; + cdat->dobj_2203__DISCR_MAP_OBJECTS.obj_hash = 252267942; + cdat->dobj_2203__DISCR_MAP_OBJECTS.obj_len = 5; + + /*inistring dstr_2204__DISCR_MAP_OBJECT*/ + /*_.VALSTR___V2210*/ meltfptr[2209] = (void*)&cdat->dstr_2204__DISCR_MAP_OBJECT; + cdat->dstr_2204__DISCR_MAP_OBJECT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2204__DISCR_MAP_OBJECT.val, "DISCR_MAP_OBJECTS", sizeof (cdat->dstr_2204__DISCR_MAP_OBJECT.val)-1); + + /*iniobj dsym_2205__DISCR_MAP_STRINGS*/ +/*uniqueobj*/ if (!/*_.VALDATA___V2211*/ meltfptr[2210]) /*_.VALDATA___V2211*/ meltfptr[2210] = (void*)&cdat->dsym_2205__DISCR_MAP_STRINGS; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2205__DISCR_MAP_STRINGS", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2205__DISCR_MAP_STRINGS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); + cdat->dsym_2205__DISCR_MAP_STRINGS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_2205__DISCR_MAP_STRINGS.obj_hash = 344609662; + cdat->dsym_2205__DISCR_MAP_STRINGS.obj_len = 3; + + /*inistring dstr_2206__DISCR_MAP_STRING*/ + /*_.VALSTR___V2212*/ meltfptr[2211] = (void*)&cdat->dstr_2206__DISCR_MAP_STRING; + cdat->dstr_2206__DISCR_MAP_STRING.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2206__DISCR_MAP_STRING.val, "DISCR_MAP_STRINGS", sizeof (cdat->dstr_2206__DISCR_MAP_STRING.val)-1); + + MELT_LOCATION("warmelt-first.melt:1564:/ iniobj"); + /*iniobj dobj_2207__DISCR_MAP_STRINGS*/ +if (((void*)(MELT_PREDEF(DISCR_MAP_STRINGS))) != (melt_ptr_t)&cdat->dobj_2207__DISCR_MAP_STRINGS) { melt_assertmsg("check.predef length ((void*)(MELT_PREDEF(DISCR_MAP_STRINGS)))", melt_object_length((melt_ptr_t)(((void*)(MELT_PREDEF(DISCR_MAP_STRINGS))))) >= 5); }; -/*_.VALDATA___V2195*/ meltfptr[2194] = ((void*)(MELT_PREDEF(DISCR_MAP_STRINGS))); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2189__DISCR_MAP_STRINGS", melt_magic_discr (/*_.VALDATA___V45*/ meltfptr[44]) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2189__DISCR_MAP_STRINGS", ((meltobject_ptr_t) (/*_.VALDATA___V45*/ meltfptr[44]))->object_magic == OBMAG_OBJECT); - cdat->dobj_2189__DISCR_MAP_STRINGS.obj_class = (meltobject_ptr_t)(/*_.VALDATA___V45*/ meltfptr[44]); - cdat->dobj_2189__DISCR_MAP_STRINGS.obj_num = OBMAG_MAPSTRINGS; - cdat->dobj_2189__DISCR_MAP_STRINGS.obj_hash = 466455603; - cdat->dobj_2189__DISCR_MAP_STRINGS.obj_len = 5; - - /*inistring dstr_2190__DISCR_MAP_STRING*/ - /*_.VALSTR___V2196*/ meltfptr[2195] = (void*)&cdat->dstr_2190__DISCR_MAP_STRING; - cdat->dstr_2190__DISCR_MAP_STRING.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2190__DISCR_MAP_STRING.val, "DISCR_MAP_STRINGS", sizeof (cdat->dstr_2190__DISCR_MAP_STRING.val)-1); - - /*iniobj dsym_2191__DISCR_MAP_TREES*/ -/*uniqueobj*/ if (!/*_.VALDATA___V2197*/ meltfptr[2196]) /*_.VALDATA___V2197*/ meltfptr[2196] = (void*)&cdat->dsym_2191__DISCR_MAP_TREES; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2191__DISCR_MAP_TREES", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2191__DISCR_MAP_TREES", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); - cdat->dsym_2191__DISCR_MAP_TREES.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_2191__DISCR_MAP_TREES.obj_hash = 26820857; - cdat->dsym_2191__DISCR_MAP_TREES.obj_len = 3; - - /*inistring dstr_2192__DISCR_MAP_TREES*/ - /*_.VALSTR___V2198*/ meltfptr[2197] = (void*)&cdat->dstr_2192__DISCR_MAP_TREES; - cdat->dstr_2192__DISCR_MAP_TREES.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2192__DISCR_MAP_TREES.val, "DISCR_MAP_TREES", sizeof (cdat->dstr_2192__DISCR_MAP_TREES.val)-1); - - MELT_LOCATION("warmelt-first.melt:1566:/ iniobj"); - /*iniobj dobj_2193__DISCR_MAP_TREES*/ -if (((void*)(MELT_PREDEF(DISCR_MAP_TREES))) != (melt_ptr_t)&cdat->dobj_2193__DISCR_MAP_TREES) { +/*_.VALDATA___V2213*/ meltfptr[2212] = ((void*)(MELT_PREDEF(DISCR_MAP_STRINGS))); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2207__DISCR_MAP_STRINGS", melt_magic_discr (/*_.VALDATA___V45*/ meltfptr[44]) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2207__DISCR_MAP_STRINGS", ((meltobject_ptr_t) (/*_.VALDATA___V45*/ meltfptr[44]))->object_magic == OBMAG_OBJECT); + cdat->dobj_2207__DISCR_MAP_STRINGS.obj_class = (meltobject_ptr_t)(/*_.VALDATA___V45*/ meltfptr[44]); + cdat->dobj_2207__DISCR_MAP_STRINGS.obj_num = OBMAG_MAPSTRINGS; + cdat->dobj_2207__DISCR_MAP_STRINGS.obj_hash = 900208640; + cdat->dobj_2207__DISCR_MAP_STRINGS.obj_len = 5; + + /*inistring dstr_2208__DISCR_MAP_STRING*/ + /*_.VALSTR___V2214*/ meltfptr[2213] = (void*)&cdat->dstr_2208__DISCR_MAP_STRING; + cdat->dstr_2208__DISCR_MAP_STRING.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2208__DISCR_MAP_STRING.val, "DISCR_MAP_STRINGS", sizeof (cdat->dstr_2208__DISCR_MAP_STRING.val)-1); + + /*iniobj dsym_2209__DISCR_MAP_TREES*/ +/*uniqueobj*/ if (!/*_.VALDATA___V2215*/ meltfptr[2214]) /*_.VALDATA___V2215*/ meltfptr[2214] = (void*)&cdat->dsym_2209__DISCR_MAP_TREES; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2209__DISCR_MAP_TREES", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2209__DISCR_MAP_TREES", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); + cdat->dsym_2209__DISCR_MAP_TREES.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_2209__DISCR_MAP_TREES.obj_hash = 26820857; + cdat->dsym_2209__DISCR_MAP_TREES.obj_len = 3; + + /*inistring dstr_2210__DISCR_MAP_TREES*/ + /*_.VALSTR___V2216*/ meltfptr[2215] = (void*)&cdat->dstr_2210__DISCR_MAP_TREES; + cdat->dstr_2210__DISCR_MAP_TREES.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2210__DISCR_MAP_TREES.val, "DISCR_MAP_TREES", sizeof (cdat->dstr_2210__DISCR_MAP_TREES.val)-1); + + MELT_LOCATION("warmelt-first.melt:1573:/ iniobj"); + /*iniobj dobj_2211__DISCR_MAP_TREES*/ +if (((void*)(MELT_PREDEF(DISCR_MAP_TREES))) != (melt_ptr_t)&cdat->dobj_2211__DISCR_MAP_TREES) { melt_assertmsg("check.predef length ((void*)(MELT_PREDEF(DISCR_MAP_TREES)))", melt_object_length((melt_ptr_t)(((void*)(MELT_PREDEF(DISCR_MAP_TREES))))) >= 5); }; -/*_.VALDATA___V2199*/ meltfptr[2198] = ((void*)(MELT_PREDEF(DISCR_MAP_TREES))); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2193__DISCR_MAP_TREES", melt_magic_discr (/*_.VALDATA___V45*/ meltfptr[44]) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2193__DISCR_MAP_TREES", ((meltobject_ptr_t) (/*_.VALDATA___V45*/ meltfptr[44]))->object_magic == OBMAG_OBJECT); - cdat->dobj_2193__DISCR_MAP_TREES.obj_class = (meltobject_ptr_t)(/*_.VALDATA___V45*/ meltfptr[44]); - cdat->dobj_2193__DISCR_MAP_TREES.obj_num = OBMAG_MAPTREES; - cdat->dobj_2193__DISCR_MAP_TREES.obj_hash = 1048021831; - cdat->dobj_2193__DISCR_MAP_TREES.obj_len = 5; - - /*inistring dstr_2194__DISCR_MAP_TREES*/ - /*_.VALSTR___V2200*/ meltfptr[2199] = (void*)&cdat->dstr_2194__DISCR_MAP_TREES; - cdat->dstr_2194__DISCR_MAP_TREES.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2194__DISCR_MAP_TREES.val, "DISCR_MAP_TREES", sizeof (cdat->dstr_2194__DISCR_MAP_TREES.val)-1); - - /*iniobj dsym_2195__DISCR_MAP_GIMPLES*/ -/*uniqueobj*/ if (!/*_.VALDATA___V2201*/ meltfptr[2200]) /*_.VALDATA___V2201*/ meltfptr[2200] = (void*)&cdat->dsym_2195__DISCR_MAP_GIMPLES; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2195__DISCR_MAP_GIMPLES", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2195__DISCR_MAP_GIMPLES", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); - cdat->dsym_2195__DISCR_MAP_GIMPLES.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_2195__DISCR_MAP_GIMPLES.obj_hash = 581433132; - cdat->dsym_2195__DISCR_MAP_GIMPLES.obj_len = 3; - - /*inistring dstr_2196__DISCR_MAP_GIMPLE*/ - /*_.VALSTR___V2202*/ meltfptr[2201] = (void*)&cdat->dstr_2196__DISCR_MAP_GIMPLE; - cdat->dstr_2196__DISCR_MAP_GIMPLE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2196__DISCR_MAP_GIMPLE.val, "DISCR_MAP_GIMPLES", sizeof (cdat->dstr_2196__DISCR_MAP_GIMPLE.val)-1); - - MELT_LOCATION("warmelt-first.melt:1575:/ iniobj"); - /*iniobj dobj_2197__DISCR_MAP_GIMPLES*/ -if (((void*)(MELT_PREDEF(DISCR_MAP_GIMPLES))) != (melt_ptr_t)&cdat->dobj_2197__DISCR_MAP_GIMPLES) { +/*_.VALDATA___V2217*/ meltfptr[2216] = ((void*)(MELT_PREDEF(DISCR_MAP_TREES))); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2211__DISCR_MAP_TREES", melt_magic_discr (/*_.VALDATA___V45*/ meltfptr[44]) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2211__DISCR_MAP_TREES", ((meltobject_ptr_t) (/*_.VALDATA___V45*/ meltfptr[44]))->object_magic == OBMAG_OBJECT); + cdat->dobj_2211__DISCR_MAP_TREES.obj_class = (meltobject_ptr_t)(/*_.VALDATA___V45*/ meltfptr[44]); + cdat->dobj_2211__DISCR_MAP_TREES.obj_num = OBMAG_MAPTREES; + cdat->dobj_2211__DISCR_MAP_TREES.obj_hash = 46054123; + cdat->dobj_2211__DISCR_MAP_TREES.obj_len = 5; + + /*inistring dstr_2212__DISCR_MAP_TREES*/ + /*_.VALSTR___V2218*/ meltfptr[2217] = (void*)&cdat->dstr_2212__DISCR_MAP_TREES; + cdat->dstr_2212__DISCR_MAP_TREES.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2212__DISCR_MAP_TREES.val, "DISCR_MAP_TREES", sizeof (cdat->dstr_2212__DISCR_MAP_TREES.val)-1); + + /*iniobj dsym_2213__DISCR_MAP_GIMPLES*/ +/*uniqueobj*/ if (!/*_.VALDATA___V2219*/ meltfptr[2218]) /*_.VALDATA___V2219*/ meltfptr[2218] = (void*)&cdat->dsym_2213__DISCR_MAP_GIMPLES; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2213__DISCR_MAP_GIMPLES", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2213__DISCR_MAP_GIMPLES", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); + cdat->dsym_2213__DISCR_MAP_GIMPLES.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_2213__DISCR_MAP_GIMPLES.obj_hash = 581433132; + cdat->dsym_2213__DISCR_MAP_GIMPLES.obj_len = 3; + + /*inistring dstr_2214__DISCR_MAP_GIMPLE*/ + /*_.VALSTR___V2220*/ meltfptr[2219] = (void*)&cdat->dstr_2214__DISCR_MAP_GIMPLE; + cdat->dstr_2214__DISCR_MAP_GIMPLE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2214__DISCR_MAP_GIMPLE.val, "DISCR_MAP_GIMPLES", sizeof (cdat->dstr_2214__DISCR_MAP_GIMPLE.val)-1); + + MELT_LOCATION("warmelt-first.melt:1582:/ iniobj"); + /*iniobj dobj_2215__DISCR_MAP_GIMPLES*/ +if (((void*)(MELT_PREDEF(DISCR_MAP_GIMPLES))) != (melt_ptr_t)&cdat->dobj_2215__DISCR_MAP_GIMPLES) { melt_assertmsg("check.predef length ((void*)(MELT_PREDEF(DISCR_MAP_GIMPLES)))", melt_object_length((melt_ptr_t)(((void*)(MELT_PREDEF(DISCR_MAP_GIMPLES))))) >= 5); }; -/*_.VALDATA___V2203*/ meltfptr[2202] = ((void*)(MELT_PREDEF(DISCR_MAP_GIMPLES))); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2197__DISCR_MAP_GIMPLES", melt_magic_discr (/*_.VALDATA___V45*/ meltfptr[44]) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2197__DISCR_MAP_GIMPLES", ((meltobject_ptr_t) (/*_.VALDATA___V45*/ meltfptr[44]))->object_magic == OBMAG_OBJECT); - cdat->dobj_2197__DISCR_MAP_GIMPLES.obj_class = (meltobject_ptr_t)(/*_.VALDATA___V45*/ meltfptr[44]); - cdat->dobj_2197__DISCR_MAP_GIMPLES.obj_num = OBMAG_MAPGIMPLES; - cdat->dobj_2197__DISCR_MAP_GIMPLES.obj_hash = 945835419; - cdat->dobj_2197__DISCR_MAP_GIMPLES.obj_len = 5; - - /*inistring dstr_2198__DISCR_MAP_GIMPLE*/ - /*_.VALSTR___V2204*/ meltfptr[2203] = (void*)&cdat->dstr_2198__DISCR_MAP_GIMPLE; - cdat->dstr_2198__DISCR_MAP_GIMPLE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2198__DISCR_MAP_GIMPLE.val, "DISCR_MAP_GIMPLES", sizeof (cdat->dstr_2198__DISCR_MAP_GIMPLE.val)-1); - - /*iniobj dsym_2199__DISCR_MAP_GIMPLE_SEQS*/ -/*uniqueobj*/ if (!/*_.VALDATA___V2205*/ meltfptr[2204]) /*_.VALDATA___V2205*/ meltfptr[2204] = (void*)&cdat->dsym_2199__DISCR_MAP_GIMPLE_SEQS; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2199__DISCR_MAP_GIMPLE_SEQS", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2199__DISCR_MAP_GIMPLE_SEQS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); - cdat->dsym_2199__DISCR_MAP_GIMPLE_SEQS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_2199__DISCR_MAP_GIMPLE_SEQS.obj_hash = 688895982; - cdat->dsym_2199__DISCR_MAP_GIMPLE_SEQS.obj_len = 3; - - /*inistring dstr_2200__DISCR_MAP_GIMPLE*/ - /*_.VALSTR___V2206*/ meltfptr[2205] = (void*)&cdat->dstr_2200__DISCR_MAP_GIMPLE; - cdat->dstr_2200__DISCR_MAP_GIMPLE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2200__DISCR_MAP_GIMPLE.val, "DISCR_MAP_GIMPLE_SEQS", sizeof (cdat->dstr_2200__DISCR_MAP_GIMPLE.val)-1); - - MELT_LOCATION("warmelt-first.melt:1584:/ iniobj"); - /*iniobj dobj_2201__DISCR_MAP_GIMPLE_SEQS*/ -if (((void*)(MELT_PREDEF(DISCR_MAP_GIMPLE_SEQS))) != (melt_ptr_t)&cdat->dobj_2201__DISCR_MAP_GIMPLE_SEQS) { +/*_.VALDATA___V2221*/ meltfptr[2220] = ((void*)(MELT_PREDEF(DISCR_MAP_GIMPLES))); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2215__DISCR_MAP_GIMPLES", melt_magic_discr (/*_.VALDATA___V45*/ meltfptr[44]) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2215__DISCR_MAP_GIMPLES", ((meltobject_ptr_t) (/*_.VALDATA___V45*/ meltfptr[44]))->object_magic == OBMAG_OBJECT); + cdat->dobj_2215__DISCR_MAP_GIMPLES.obj_class = (meltobject_ptr_t)(/*_.VALDATA___V45*/ meltfptr[44]); + cdat->dobj_2215__DISCR_MAP_GIMPLES.obj_num = OBMAG_MAPGIMPLES; + cdat->dobj_2215__DISCR_MAP_GIMPLES.obj_hash = 990661207; + cdat->dobj_2215__DISCR_MAP_GIMPLES.obj_len = 5; + + /*inistring dstr_2216__DISCR_MAP_GIMPLE*/ + /*_.VALSTR___V2222*/ meltfptr[2221] = (void*)&cdat->dstr_2216__DISCR_MAP_GIMPLE; + cdat->dstr_2216__DISCR_MAP_GIMPLE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2216__DISCR_MAP_GIMPLE.val, "DISCR_MAP_GIMPLES", sizeof (cdat->dstr_2216__DISCR_MAP_GIMPLE.val)-1); + + /*iniobj dsym_2217__DISCR_MAP_GIMPLE_SEQS*/ +/*uniqueobj*/ if (!/*_.VALDATA___V2223*/ meltfptr[2222]) /*_.VALDATA___V2223*/ meltfptr[2222] = (void*)&cdat->dsym_2217__DISCR_MAP_GIMPLE_SEQS; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2217__DISCR_MAP_GIMPLE_SEQS", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2217__DISCR_MAP_GIMPLE_SEQS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); + cdat->dsym_2217__DISCR_MAP_GIMPLE_SEQS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_2217__DISCR_MAP_GIMPLE_SEQS.obj_hash = 688895982; + cdat->dsym_2217__DISCR_MAP_GIMPLE_SEQS.obj_len = 3; + + /*inistring dstr_2218__DISCR_MAP_GIMPLE*/ + /*_.VALSTR___V2224*/ meltfptr[2223] = (void*)&cdat->dstr_2218__DISCR_MAP_GIMPLE; + cdat->dstr_2218__DISCR_MAP_GIMPLE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2218__DISCR_MAP_GIMPLE.val, "DISCR_MAP_GIMPLE_SEQS", sizeof (cdat->dstr_2218__DISCR_MAP_GIMPLE.val)-1); + + MELT_LOCATION("warmelt-first.melt:1591:/ iniobj"); + /*iniobj dobj_2219__DISCR_MAP_GIMPLE_SEQS*/ +if (((void*)(MELT_PREDEF(DISCR_MAP_GIMPLE_SEQS))) != (melt_ptr_t)&cdat->dobj_2219__DISCR_MAP_GIMPLE_SEQS) { melt_assertmsg("check.predef length ((void*)(MELT_PREDEF(DISCR_MAP_GIMPLE_SEQS)))", melt_object_length((melt_ptr_t)(((void*)(MELT_PREDEF(DISCR_MAP_GIMPLE_SEQS))))) >= 5); }; -/*_.VALDATA___V2207*/ meltfptr[2206] = ((void*)(MELT_PREDEF(DISCR_MAP_GIMPLE_SEQS))); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2201__DISCR_MAP_GIMPLE_SEQS", melt_magic_discr (/*_.VALDATA___V45*/ meltfptr[44]) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2201__DISCR_MAP_GIMPLE_SEQS", ((meltobject_ptr_t) (/*_.VALDATA___V45*/ meltfptr[44]))->object_magic == OBMAG_OBJECT); - cdat->dobj_2201__DISCR_MAP_GIMPLE_SEQS.obj_class = (meltobject_ptr_t)(/*_.VALDATA___V45*/ meltfptr[44]); - cdat->dobj_2201__DISCR_MAP_GIMPLE_SEQS.obj_num = OBMAG_MAPGIMPLESEQS; - cdat->dobj_2201__DISCR_MAP_GIMPLE_SEQS.obj_hash = 38110996; - cdat->dobj_2201__DISCR_MAP_GIMPLE_SEQS.obj_len = 5; - - /*inistring dstr_2202__DISCR_MAP_GIMPLE*/ - /*_.VALSTR___V2208*/ meltfptr[2207] = (void*)&cdat->dstr_2202__DISCR_MAP_GIMPLE; - cdat->dstr_2202__DISCR_MAP_GIMPLE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2202__DISCR_MAP_GIMPLE.val, "DISCR_MAP_GIMPLE_SEQS", sizeof (cdat->dstr_2202__DISCR_MAP_GIMPLE.val)-1); - - /*iniobj dsym_2203__DISCR_MAP_EDGES*/ -/*uniqueobj*/ if (!/*_.VALDATA___V2209*/ meltfptr[2208]) /*_.VALDATA___V2209*/ meltfptr[2208] = (void*)&cdat->dsym_2203__DISCR_MAP_EDGES; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2203__DISCR_MAP_EDGES", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2203__DISCR_MAP_EDGES", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); - cdat->dsym_2203__DISCR_MAP_EDGES.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_2203__DISCR_MAP_EDGES.obj_hash = 510102591; - cdat->dsym_2203__DISCR_MAP_EDGES.obj_len = 3; - - /*inistring dstr_2204__DISCR_MAP_EDGES*/ - /*_.VALSTR___V2210*/ meltfptr[2209] = (void*)&cdat->dstr_2204__DISCR_MAP_EDGES; - cdat->dstr_2204__DISCR_MAP_EDGES.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2204__DISCR_MAP_EDGES.val, "DISCR_MAP_EDGES", sizeof (cdat->dstr_2204__DISCR_MAP_EDGES.val)-1); - - MELT_LOCATION("warmelt-first.melt:1593:/ iniobj"); - /*iniobj dobj_2205__DISCR_MAP_EDGES*/ -if (((void*)(MELT_PREDEF(DISCR_MAP_EDGES))) != (melt_ptr_t)&cdat->dobj_2205__DISCR_MAP_EDGES) { +/*_.VALDATA___V2225*/ meltfptr[2224] = ((void*)(MELT_PREDEF(DISCR_MAP_GIMPLE_SEQS))); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2219__DISCR_MAP_GIMPLE_SEQS", melt_magic_discr (/*_.VALDATA___V45*/ meltfptr[44]) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2219__DISCR_MAP_GIMPLE_SEQS", ((meltobject_ptr_t) (/*_.VALDATA___V45*/ meltfptr[44]))->object_magic == OBMAG_OBJECT); + cdat->dobj_2219__DISCR_MAP_GIMPLE_SEQS.obj_class = (meltobject_ptr_t)(/*_.VALDATA___V45*/ meltfptr[44]); + cdat->dobj_2219__DISCR_MAP_GIMPLE_SEQS.obj_num = OBMAG_MAPGIMPLESEQS; + cdat->dobj_2219__DISCR_MAP_GIMPLE_SEQS.obj_hash = 985176226; + cdat->dobj_2219__DISCR_MAP_GIMPLE_SEQS.obj_len = 5; + + /*inistring dstr_2220__DISCR_MAP_GIMPLE*/ + /*_.VALSTR___V2226*/ meltfptr[2225] = (void*)&cdat->dstr_2220__DISCR_MAP_GIMPLE; + cdat->dstr_2220__DISCR_MAP_GIMPLE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2220__DISCR_MAP_GIMPLE.val, "DISCR_MAP_GIMPLE_SEQS", sizeof (cdat->dstr_2220__DISCR_MAP_GIMPLE.val)-1); + + /*iniobj dsym_2221__DISCR_MAP_EDGES*/ +/*uniqueobj*/ if (!/*_.VALDATA___V2227*/ meltfptr[2226]) /*_.VALDATA___V2227*/ meltfptr[2226] = (void*)&cdat->dsym_2221__DISCR_MAP_EDGES; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2221__DISCR_MAP_EDGES", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2221__DISCR_MAP_EDGES", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); + cdat->dsym_2221__DISCR_MAP_EDGES.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_2221__DISCR_MAP_EDGES.obj_hash = 510102591; + cdat->dsym_2221__DISCR_MAP_EDGES.obj_len = 3; + + /*inistring dstr_2222__DISCR_MAP_EDGES*/ + /*_.VALSTR___V2228*/ meltfptr[2227] = (void*)&cdat->dstr_2222__DISCR_MAP_EDGES; + cdat->dstr_2222__DISCR_MAP_EDGES.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2222__DISCR_MAP_EDGES.val, "DISCR_MAP_EDGES", sizeof (cdat->dstr_2222__DISCR_MAP_EDGES.val)-1); + + MELT_LOCATION("warmelt-first.melt:1600:/ iniobj"); + /*iniobj dobj_2223__DISCR_MAP_EDGES*/ +if (((void*)(MELT_PREDEF(DISCR_MAP_EDGES))) != (melt_ptr_t)&cdat->dobj_2223__DISCR_MAP_EDGES) { melt_assertmsg("check.predef length ((void*)(MELT_PREDEF(DISCR_MAP_EDGES)))", melt_object_length((melt_ptr_t)(((void*)(MELT_PREDEF(DISCR_MAP_EDGES))))) >= 5); }; -/*_.VALDATA___V2211*/ meltfptr[2210] = ((void*)(MELT_PREDEF(DISCR_MAP_EDGES))); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2205__DISCR_MAP_EDGES", melt_magic_discr (/*_.VALDATA___V45*/ meltfptr[44]) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2205__DISCR_MAP_EDGES", ((meltobject_ptr_t) (/*_.VALDATA___V45*/ meltfptr[44]))->object_magic == OBMAG_OBJECT); - cdat->dobj_2205__DISCR_MAP_EDGES.obj_class = (meltobject_ptr_t)(/*_.VALDATA___V45*/ meltfptr[44]); - cdat->dobj_2205__DISCR_MAP_EDGES.obj_num = OBMAG_MAPEDGES; - cdat->dobj_2205__DISCR_MAP_EDGES.obj_hash = 306187005; - cdat->dobj_2205__DISCR_MAP_EDGES.obj_len = 5; - - /*inistring dstr_2206__DISCR_MAP_EDGES*/ - /*_.VALSTR___V2212*/ meltfptr[2211] = (void*)&cdat->dstr_2206__DISCR_MAP_EDGES; - cdat->dstr_2206__DISCR_MAP_EDGES.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2206__DISCR_MAP_EDGES.val, "DISCR_MAP_EDGES", sizeof (cdat->dstr_2206__DISCR_MAP_EDGES.val)-1); - - /*iniobj dsym_2207__DISCR_MAP_BASIC_BLOCKS*/ -/*uniqueobj*/ if (!/*_.VALDATA___V2213*/ meltfptr[2212]) /*_.VALDATA___V2213*/ meltfptr[2212] = (void*)&cdat->dsym_2207__DISCR_MAP_BASIC_BLOCKS; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2207__DISCR_MAP_BASIC_BLOCKS", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2207__DISCR_MAP_BASIC_BLOCKS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); - cdat->dsym_2207__DISCR_MAP_BASIC_BLOCKS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_2207__DISCR_MAP_BASIC_BLOCKS.obj_hash = 460843809; - cdat->dsym_2207__DISCR_MAP_BASIC_BLOCKS.obj_len = 3; - - /*inistring dstr_2208__DISCR_MAP_BASIC_*/ - /*_.VALSTR___V2214*/ meltfptr[2213] = (void*)&cdat->dstr_2208__DISCR_MAP_BASIC_; - cdat->dstr_2208__DISCR_MAP_BASIC_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2208__DISCR_MAP_BASIC_.val, "DISCR_MAP_BASIC_BLOCKS", sizeof (cdat->dstr_2208__DISCR_MAP_BASIC_.val)-1); - - MELT_LOCATION("warmelt-first.melt:1602:/ iniobj"); - /*iniobj dobj_2209__DISCR_MAP_BASIC_BLOCKS*/ -if (((void*)(MELT_PREDEF(DISCR_MAP_BASIC_BLOCKS))) != (melt_ptr_t)&cdat->dobj_2209__DISCR_MAP_BASIC_BLOCKS) { +/*_.VALDATA___V2229*/ meltfptr[2228] = ((void*)(MELT_PREDEF(DISCR_MAP_EDGES))); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2223__DISCR_MAP_EDGES", melt_magic_discr (/*_.VALDATA___V45*/ meltfptr[44]) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2223__DISCR_MAP_EDGES", ((meltobject_ptr_t) (/*_.VALDATA___V45*/ meltfptr[44]))->object_magic == OBMAG_OBJECT); + cdat->dobj_2223__DISCR_MAP_EDGES.obj_class = (meltobject_ptr_t)(/*_.VALDATA___V45*/ meltfptr[44]); + cdat->dobj_2223__DISCR_MAP_EDGES.obj_num = OBMAG_MAPEDGES; + cdat->dobj_2223__DISCR_MAP_EDGES.obj_hash = 201447887; + cdat->dobj_2223__DISCR_MAP_EDGES.obj_len = 5; + + /*inistring dstr_2224__DISCR_MAP_EDGES*/ + /*_.VALSTR___V2230*/ meltfptr[2229] = (void*)&cdat->dstr_2224__DISCR_MAP_EDGES; + cdat->dstr_2224__DISCR_MAP_EDGES.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2224__DISCR_MAP_EDGES.val, "DISCR_MAP_EDGES", sizeof (cdat->dstr_2224__DISCR_MAP_EDGES.val)-1); + + /*iniobj dsym_2225__DISCR_MAP_BASIC_BLOCKS*/ +/*uniqueobj*/ if (!/*_.VALDATA___V2231*/ meltfptr[2230]) /*_.VALDATA___V2231*/ meltfptr[2230] = (void*)&cdat->dsym_2225__DISCR_MAP_BASIC_BLOCKS; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2225__DISCR_MAP_BASIC_BLOCKS", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2225__DISCR_MAP_BASIC_BLOCKS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); + cdat->dsym_2225__DISCR_MAP_BASIC_BLOCKS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_2225__DISCR_MAP_BASIC_BLOCKS.obj_hash = 460843809; + cdat->dsym_2225__DISCR_MAP_BASIC_BLOCKS.obj_len = 3; + + /*inistring dstr_2226__DISCR_MAP_BASIC_*/ + /*_.VALSTR___V2232*/ meltfptr[2231] = (void*)&cdat->dstr_2226__DISCR_MAP_BASIC_; + cdat->dstr_2226__DISCR_MAP_BASIC_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2226__DISCR_MAP_BASIC_.val, "DISCR_MAP_BASIC_BLOCKS", sizeof (cdat->dstr_2226__DISCR_MAP_BASIC_.val)-1); + + MELT_LOCATION("warmelt-first.melt:1609:/ iniobj"); + /*iniobj dobj_2227__DISCR_MAP_BASIC_BLOCKS*/ +if (((void*)(MELT_PREDEF(DISCR_MAP_BASIC_BLOCKS))) != (melt_ptr_t)&cdat->dobj_2227__DISCR_MAP_BASIC_BLOCKS) { melt_assertmsg("check.predef length ((void*)(MELT_PREDEF(DISCR_MAP_BASIC_BLOCKS)))", melt_object_length((melt_ptr_t)(((void*)(MELT_PREDEF(DISCR_MAP_BASIC_BLOCKS))))) >= 5); }; -/*_.VALDATA___V2215*/ meltfptr[2214] = ((void*)(MELT_PREDEF(DISCR_MAP_BASIC_BLOCKS))); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2209__DISCR_MAP_BASIC_BLOCKS", melt_magic_discr (/*_.VALDATA___V45*/ meltfptr[44]) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2209__DISCR_MAP_BASIC_BLOCKS", ((meltobject_ptr_t) (/*_.VALDATA___V45*/ meltfptr[44]))->object_magic == OBMAG_OBJECT); - cdat->dobj_2209__DISCR_MAP_BASIC_BLOCKS.obj_class = (meltobject_ptr_t)(/*_.VALDATA___V45*/ meltfptr[44]); - cdat->dobj_2209__DISCR_MAP_BASIC_BLOCKS.obj_num = OBMAG_MAPBASICBLOCKS; - cdat->dobj_2209__DISCR_MAP_BASIC_BLOCKS.obj_hash = 114267714; - cdat->dobj_2209__DISCR_MAP_BASIC_BLOCKS.obj_len = 5; - - /*inistring dstr_2210__DISCR_MAP_BASIC_*/ - /*_.VALSTR___V2216*/ meltfptr[2215] = (void*)&cdat->dstr_2210__DISCR_MAP_BASIC_; - cdat->dstr_2210__DISCR_MAP_BASIC_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2210__DISCR_MAP_BASIC_.val, "DISCR_MAP_BASIC_BLOCKS", sizeof (cdat->dstr_2210__DISCR_MAP_BASIC_.val)-1); - - /*iniobj dsym_2211__DISCR_PPL_CONSTRAINT_SYSTEM*/ -/*uniqueobj*/ if (!/*_.VALDATA___V2217*/ meltfptr[2216]) /*_.VALDATA___V2217*/ meltfptr[2216] = (void*)&cdat->dsym_2211__DISCR_PPL_CONSTRAINT_SYSTEM; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2211__DISCR_PPL_CONSTRAINT_SYSTEM", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2211__DISCR_PPL_CONSTRAINT_SYSTEM", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); - cdat->dsym_2211__DISCR_PPL_CONSTRAINT_SYSTEM.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_2211__DISCR_PPL_CONSTRAINT_SYSTEM.obj_hash = 543731239; - cdat->dsym_2211__DISCR_PPL_CONSTRAINT_SYSTEM.obj_len = 3; - - /*inistring dstr_2212__DISCR_PPL_CONSTR*/ - /*_.VALSTR___V2218*/ meltfptr[2217] = (void*)&cdat->dstr_2212__DISCR_PPL_CONSTR; - cdat->dstr_2212__DISCR_PPL_CONSTR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2212__DISCR_PPL_CONSTR.val, "DISCR_PPL_CONSTRAINT_SYSTEM", sizeof (cdat->dstr_2212__DISCR_PPL_CONSTR.val)-1); - - MELT_LOCATION("warmelt-first.melt:1612:/ iniobj"); - /*iniobj dobj_2213__DISCR_PPL_CONSTRAINT_SYSTEM*/ -/*_.VALDATA___V2219*/ meltfptr[2218] = (void*)&cdat->dobj_2213__DISCR_PPL_CONSTRAINT_SYSTEM; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2213__DISCR_PPL_CONSTRAINT_SYSTEM", melt_magic_discr (/*_.VALDATA___V45*/ meltfptr[44]) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2213__DISCR_PPL_CONSTRAINT_SYSTEM", ((meltobject_ptr_t) (/*_.VALDATA___V45*/ meltfptr[44]))->object_magic == OBMAG_OBJECT); - cdat->dobj_2213__DISCR_PPL_CONSTRAINT_SYSTEM.obj_class = (meltobject_ptr_t)(/*_.VALDATA___V45*/ meltfptr[44]); - cdat->dobj_2213__DISCR_PPL_CONSTRAINT_SYSTEM.obj_num = OBMAG_SPECPPL_CONSTRAINT_SYSTEM; - cdat->dobj_2213__DISCR_PPL_CONSTRAINT_SYSTEM.obj_hash = 20816304; - cdat->dobj_2213__DISCR_PPL_CONSTRAINT_SYSTEM.obj_len = 5; - - /*inistring dstr_2214__DISCR_PPL_CONSTR*/ - /*_.VALSTR___V2220*/ meltfptr[2219] = (void*)&cdat->dstr_2214__DISCR_PPL_CONSTR; - cdat->dstr_2214__DISCR_PPL_CONSTR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2214__DISCR_PPL_CONSTR.val, "DISCR_PPL_CONSTRAINT_SYSTEM", sizeof (cdat->dstr_2214__DISCR_PPL_CONSTR.val)-1); - - /*iniobj dsym_2215__DISCR_PPL_POLYHEDRON*/ -/*uniqueobj*/ if (!/*_.VALDATA___V2221*/ meltfptr[2220]) /*_.VALDATA___V2221*/ meltfptr[2220] = (void*)&cdat->dsym_2215__DISCR_PPL_POLYHEDRON; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2215__DISCR_PPL_POLYHEDRON", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2215__DISCR_PPL_POLYHEDRON", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); - cdat->dsym_2215__DISCR_PPL_POLYHEDRON.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_2215__DISCR_PPL_POLYHEDRON.obj_hash = 814954128; - cdat->dsym_2215__DISCR_PPL_POLYHEDRON.obj_len = 3; - - /*inistring dstr_2216__DISCR_PPL_POLYHE*/ - /*_.VALSTR___V2222*/ meltfptr[2221] = (void*)&cdat->dstr_2216__DISCR_PPL_POLYHE; - cdat->dstr_2216__DISCR_PPL_POLYHE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2216__DISCR_PPL_POLYHE.val, "DISCR_PPL_POLYHEDRON", sizeof (cdat->dstr_2216__DISCR_PPL_POLYHE.val)-1); - - MELT_LOCATION("warmelt-first.melt:1620:/ iniobj"); - /*iniobj dobj_2217__DISCR_PPL_POLYHEDRON*/ -/*_.VALDATA___V2223*/ meltfptr[2222] = (void*)&cdat->dobj_2217__DISCR_PPL_POLYHEDRON; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2217__DISCR_PPL_POLYHEDRON", melt_magic_discr (/*_.VALDATA___V45*/ meltfptr[44]) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2217__DISCR_PPL_POLYHEDRON", ((meltobject_ptr_t) (/*_.VALDATA___V45*/ meltfptr[44]))->object_magic == OBMAG_OBJECT); - cdat->dobj_2217__DISCR_PPL_POLYHEDRON.obj_class = (meltobject_ptr_t)(/*_.VALDATA___V45*/ meltfptr[44]); - cdat->dobj_2217__DISCR_PPL_POLYHEDRON.obj_num = OBMAG_SPECPPL_POLYHEDRON; - cdat->dobj_2217__DISCR_PPL_POLYHEDRON.obj_hash = 271596599; - cdat->dobj_2217__DISCR_PPL_POLYHEDRON.obj_len = 5; - - /*inistring dstr_2218__DISCR_PPL_POLYHE*/ - /*_.VALSTR___V2224*/ meltfptr[2223] = (void*)&cdat->dstr_2218__DISCR_PPL_POLYHE; - cdat->dstr_2218__DISCR_PPL_POLYHE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2218__DISCR_PPL_POLYHE.val, "DISCR_PPL_POLYHEDRON", sizeof (cdat->dstr_2218__DISCR_PPL_POLYHE.val)-1); - - /*iniobj dsym_2219__DISCR_FILE*/ -/*uniqueobj*/ if (!/*_.VALDATA___V2225*/ meltfptr[2224]) /*_.VALDATA___V2225*/ meltfptr[2224] = (void*)&cdat->dsym_2219__DISCR_FILE; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2219__DISCR_FILE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2219__DISCR_FILE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); - cdat->dsym_2219__DISCR_FILE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_2219__DISCR_FILE.obj_hash = 22500478; - cdat->dsym_2219__DISCR_FILE.obj_len = 3; - - /*inistring dstr_2220__DISCR_FILE*/ - /*_.VALSTR___V2226*/ meltfptr[2225] = (void*)&cdat->dstr_2220__DISCR_FILE; - cdat->dstr_2220__DISCR_FILE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2220__DISCR_FILE.val, "DISCR_FILE", sizeof (cdat->dstr_2220__DISCR_FILE.val)-1); - - MELT_LOCATION("warmelt-first.melt:1629:/ iniobj"); - /*iniobj dobj_2221__DISCR_FILE*/ -/*_.VALDATA___V2227*/ meltfptr[2226] = (void*)&cdat->dobj_2221__DISCR_FILE; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2221__DISCR_FILE", melt_magic_discr (/*_.VALDATA___V45*/ meltfptr[44]) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2221__DISCR_FILE", ((meltobject_ptr_t) (/*_.VALDATA___V45*/ meltfptr[44]))->object_magic == OBMAG_OBJECT); - cdat->dobj_2221__DISCR_FILE.obj_class = (meltobject_ptr_t)(/*_.VALDATA___V45*/ meltfptr[44]); - cdat->dobj_2221__DISCR_FILE.obj_num = OBMAG_SPEC_FILE; - cdat->dobj_2221__DISCR_FILE.obj_hash = 761654567; - cdat->dobj_2221__DISCR_FILE.obj_len = 5; - - /*inistring dstr_2222__DISCR_FILE*/ - /*_.VALSTR___V2228*/ meltfptr[2227] = (void*)&cdat->dstr_2222__DISCR_FILE; - cdat->dstr_2222__DISCR_FILE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2222__DISCR_FILE.val, "DISCR_FILE", sizeof (cdat->dstr_2222__DISCR_FILE.val)-1); - - /*iniobj dsym_2223__DISCR_RAWFILE*/ -/*uniqueobj*/ if (!/*_.VALDATA___V2229*/ meltfptr[2228]) /*_.VALDATA___V2229*/ meltfptr[2228] = (void*)&cdat->dsym_2223__DISCR_RAWFILE; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2223__DISCR_RAWFILE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2223__DISCR_RAWFILE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); - cdat->dsym_2223__DISCR_RAWFILE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_2223__DISCR_RAWFILE.obj_hash = 482138009; - cdat->dsym_2223__DISCR_RAWFILE.obj_len = 3; - - /*inistring dstr_2224__DISCR_RAWFILE*/ - /*_.VALSTR___V2230*/ meltfptr[2229] = (void*)&cdat->dstr_2224__DISCR_RAWFILE; - cdat->dstr_2224__DISCR_RAWFILE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2224__DISCR_RAWFILE.val, "DISCR_RAWFILE", sizeof (cdat->dstr_2224__DISCR_RAWFILE.val)-1); - - MELT_LOCATION("warmelt-first.melt:1639:/ iniobj"); - /*iniobj dobj_2225__DISCR_RAWFILE*/ -/*_.VALDATA___V2231*/ meltfptr[2230] = (void*)&cdat->dobj_2225__DISCR_RAWFILE; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2225__DISCR_RAWFILE", melt_magic_discr (/*_.VALDATA___V45*/ meltfptr[44]) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2225__DISCR_RAWFILE", ((meltobject_ptr_t) (/*_.VALDATA___V45*/ meltfptr[44]))->object_magic == OBMAG_OBJECT); - cdat->dobj_2225__DISCR_RAWFILE.obj_class = (meltobject_ptr_t)(/*_.VALDATA___V45*/ meltfptr[44]); - cdat->dobj_2225__DISCR_RAWFILE.obj_num = OBMAG_SPEC_RAWFILE; - cdat->dobj_2225__DISCR_RAWFILE.obj_hash = 397647477; - cdat->dobj_2225__DISCR_RAWFILE.obj_len = 5; - - /*inistring dstr_2226__DISCR_RAWFILE*/ - /*_.VALSTR___V2232*/ meltfptr[2231] = (void*)&cdat->dstr_2226__DISCR_RAWFILE; - cdat->dstr_2226__DISCR_RAWFILE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2226__DISCR_RAWFILE.val, "DISCR_RAWFILE", sizeof (cdat->dstr_2226__DISCR_RAWFILE.val)-1); - - /*iniobj dsym_2227__DISCR_CLASS_SEQUENCE*/ -/*uniqueobj*/ if (!/*_.VALDATA___V2233*/ meltfptr[2232]) /*_.VALDATA___V2233*/ meltfptr[2232] = (void*)&cdat->dsym_2227__DISCR_CLASS_SEQUENCE; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2227__DISCR_CLASS_SEQUENCE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2227__DISCR_CLASS_SEQUENCE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); - cdat->dsym_2227__DISCR_CLASS_SEQUENCE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_2227__DISCR_CLASS_SEQUENCE.obj_hash = 751197907; - cdat->dsym_2227__DISCR_CLASS_SEQUENCE.obj_len = 3; - - /*inistring dstr_2228__DISCR_CLASS_SEQU*/ - /*_.VALSTR___V2234*/ meltfptr[2233] = (void*)&cdat->dstr_2228__DISCR_CLASS_SEQU; - cdat->dstr_2228__DISCR_CLASS_SEQU.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2228__DISCR_CLASS_SEQU.val, "DISCR_CLASS_SEQUENCE", sizeof (cdat->dstr_2228__DISCR_CLASS_SEQU.val)-1); - - MELT_LOCATION("warmelt-first.melt:1649:/ iniobj"); - /*iniobj dobj_2229__DISCR_CLASS_SEQUENCE*/ -if (((void*)(MELT_PREDEF(DISCR_CLASS_SEQUENCE))) != (melt_ptr_t)&cdat->dobj_2229__DISCR_CLASS_SEQUENCE) { +/*_.VALDATA___V2233*/ meltfptr[2232] = ((void*)(MELT_PREDEF(DISCR_MAP_BASIC_BLOCKS))); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2227__DISCR_MAP_BASIC_BLOCKS", melt_magic_discr (/*_.VALDATA___V45*/ meltfptr[44]) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2227__DISCR_MAP_BASIC_BLOCKS", ((meltobject_ptr_t) (/*_.VALDATA___V45*/ meltfptr[44]))->object_magic == OBMAG_OBJECT); + cdat->dobj_2227__DISCR_MAP_BASIC_BLOCKS.obj_class = (meltobject_ptr_t)(/*_.VALDATA___V45*/ meltfptr[44]); + cdat->dobj_2227__DISCR_MAP_BASIC_BLOCKS.obj_num = OBMAG_MAPBASICBLOCKS; + cdat->dobj_2227__DISCR_MAP_BASIC_BLOCKS.obj_hash = 71528145; + cdat->dobj_2227__DISCR_MAP_BASIC_BLOCKS.obj_len = 5; + + /*inistring dstr_2228__DISCR_MAP_BASIC_*/ + /*_.VALSTR___V2234*/ meltfptr[2233] = (void*)&cdat->dstr_2228__DISCR_MAP_BASIC_; + cdat->dstr_2228__DISCR_MAP_BASIC_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2228__DISCR_MAP_BASIC_.val, "DISCR_MAP_BASIC_BLOCKS", sizeof (cdat->dstr_2228__DISCR_MAP_BASIC_.val)-1); + + /*iniobj dsym_2229__DISCR_PPL_CONSTRAINT_SYSTEM*/ +/*uniqueobj*/ if (!/*_.VALDATA___V2235*/ meltfptr[2234]) /*_.VALDATA___V2235*/ meltfptr[2234] = (void*)&cdat->dsym_2229__DISCR_PPL_CONSTRAINT_SYSTEM; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2229__DISCR_PPL_CONSTRAINT_SYSTEM", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2229__DISCR_PPL_CONSTRAINT_SYSTEM", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); + cdat->dsym_2229__DISCR_PPL_CONSTRAINT_SYSTEM.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_2229__DISCR_PPL_CONSTRAINT_SYSTEM.obj_hash = 543731239; + cdat->dsym_2229__DISCR_PPL_CONSTRAINT_SYSTEM.obj_len = 3; + + /*inistring dstr_2230__DISCR_PPL_CONSTR*/ + /*_.VALSTR___V2236*/ meltfptr[2235] = (void*)&cdat->dstr_2230__DISCR_PPL_CONSTR; + cdat->dstr_2230__DISCR_PPL_CONSTR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2230__DISCR_PPL_CONSTR.val, "DISCR_PPL_CONSTRAINT_SYSTEM", sizeof (cdat->dstr_2230__DISCR_PPL_CONSTR.val)-1); + + MELT_LOCATION("warmelt-first.melt:1619:/ iniobj"); + /*iniobj dobj_2231__DISCR_PPL_CONSTRAINT_SYSTEM*/ +/*_.VALDATA___V2237*/ meltfptr[2236] = (void*)&cdat->dobj_2231__DISCR_PPL_CONSTRAINT_SYSTEM; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2231__DISCR_PPL_CONSTRAINT_SYSTEM", melt_magic_discr (/*_.VALDATA___V45*/ meltfptr[44]) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2231__DISCR_PPL_CONSTRAINT_SYSTEM", ((meltobject_ptr_t) (/*_.VALDATA___V45*/ meltfptr[44]))->object_magic == OBMAG_OBJECT); + cdat->dobj_2231__DISCR_PPL_CONSTRAINT_SYSTEM.obj_class = (meltobject_ptr_t)(/*_.VALDATA___V45*/ meltfptr[44]); + cdat->dobj_2231__DISCR_PPL_CONSTRAINT_SYSTEM.obj_num = OBMAG_SPECPPL_CONSTRAINT_SYSTEM; + cdat->dobj_2231__DISCR_PPL_CONSTRAINT_SYSTEM.obj_hash = 441637055; + cdat->dobj_2231__DISCR_PPL_CONSTRAINT_SYSTEM.obj_len = 5; + + /*inistring dstr_2232__DISCR_PPL_CONSTR*/ + /*_.VALSTR___V2238*/ meltfptr[2237] = (void*)&cdat->dstr_2232__DISCR_PPL_CONSTR; + cdat->dstr_2232__DISCR_PPL_CONSTR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2232__DISCR_PPL_CONSTR.val, "DISCR_PPL_CONSTRAINT_SYSTEM", sizeof (cdat->dstr_2232__DISCR_PPL_CONSTR.val)-1); + + /*iniobj dsym_2233__DISCR_PPL_POLYHEDRON*/ +/*uniqueobj*/ if (!/*_.VALDATA___V2239*/ meltfptr[2238]) /*_.VALDATA___V2239*/ meltfptr[2238] = (void*)&cdat->dsym_2233__DISCR_PPL_POLYHEDRON; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2233__DISCR_PPL_POLYHEDRON", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2233__DISCR_PPL_POLYHEDRON", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); + cdat->dsym_2233__DISCR_PPL_POLYHEDRON.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_2233__DISCR_PPL_POLYHEDRON.obj_hash = 814954128; + cdat->dsym_2233__DISCR_PPL_POLYHEDRON.obj_len = 3; + + /*inistring dstr_2234__DISCR_PPL_POLYHE*/ + /*_.VALSTR___V2240*/ meltfptr[2239] = (void*)&cdat->dstr_2234__DISCR_PPL_POLYHE; + cdat->dstr_2234__DISCR_PPL_POLYHE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2234__DISCR_PPL_POLYHE.val, "DISCR_PPL_POLYHEDRON", sizeof (cdat->dstr_2234__DISCR_PPL_POLYHE.val)-1); + + MELT_LOCATION("warmelt-first.melt:1627:/ iniobj"); + /*iniobj dobj_2235__DISCR_PPL_POLYHEDRON*/ +/*_.VALDATA___V2241*/ meltfptr[2240] = (void*)&cdat->dobj_2235__DISCR_PPL_POLYHEDRON; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2235__DISCR_PPL_POLYHEDRON", melt_magic_discr (/*_.VALDATA___V45*/ meltfptr[44]) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2235__DISCR_PPL_POLYHEDRON", ((meltobject_ptr_t) (/*_.VALDATA___V45*/ meltfptr[44]))->object_magic == OBMAG_OBJECT); + cdat->dobj_2235__DISCR_PPL_POLYHEDRON.obj_class = (meltobject_ptr_t)(/*_.VALDATA___V45*/ meltfptr[44]); + cdat->dobj_2235__DISCR_PPL_POLYHEDRON.obj_num = OBMAG_SPECPPL_POLYHEDRON; + cdat->dobj_2235__DISCR_PPL_POLYHEDRON.obj_hash = 735040543; + cdat->dobj_2235__DISCR_PPL_POLYHEDRON.obj_len = 5; + + /*inistring dstr_2236__DISCR_PPL_POLYHE*/ + /*_.VALSTR___V2242*/ meltfptr[2241] = (void*)&cdat->dstr_2236__DISCR_PPL_POLYHE; + cdat->dstr_2236__DISCR_PPL_POLYHE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2236__DISCR_PPL_POLYHE.val, "DISCR_PPL_POLYHEDRON", sizeof (cdat->dstr_2236__DISCR_PPL_POLYHE.val)-1); + + /*iniobj dsym_2237__DISCR_FILE*/ +/*uniqueobj*/ if (!/*_.VALDATA___V2243*/ meltfptr[2242]) /*_.VALDATA___V2243*/ meltfptr[2242] = (void*)&cdat->dsym_2237__DISCR_FILE; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2237__DISCR_FILE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2237__DISCR_FILE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); + cdat->dsym_2237__DISCR_FILE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_2237__DISCR_FILE.obj_hash = 22500478; + cdat->dsym_2237__DISCR_FILE.obj_len = 3; + + /*inistring dstr_2238__DISCR_FILE*/ + /*_.VALSTR___V2244*/ meltfptr[2243] = (void*)&cdat->dstr_2238__DISCR_FILE; + cdat->dstr_2238__DISCR_FILE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2238__DISCR_FILE.val, "DISCR_FILE", sizeof (cdat->dstr_2238__DISCR_FILE.val)-1); + + MELT_LOCATION("warmelt-first.melt:1636:/ iniobj"); + /*iniobj dobj_2239__DISCR_FILE*/ +/*_.VALDATA___V2245*/ meltfptr[2244] = (void*)&cdat->dobj_2239__DISCR_FILE; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2239__DISCR_FILE", melt_magic_discr (/*_.VALDATA___V45*/ meltfptr[44]) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2239__DISCR_FILE", ((meltobject_ptr_t) (/*_.VALDATA___V45*/ meltfptr[44]))->object_magic == OBMAG_OBJECT); + cdat->dobj_2239__DISCR_FILE.obj_class = (meltobject_ptr_t)(/*_.VALDATA___V45*/ meltfptr[44]); + cdat->dobj_2239__DISCR_FILE.obj_num = OBMAG_SPEC_FILE; + cdat->dobj_2239__DISCR_FILE.obj_hash = 497327133; + cdat->dobj_2239__DISCR_FILE.obj_len = 5; + + /*inistring dstr_2240__DISCR_FILE*/ + /*_.VALSTR___V2246*/ meltfptr[2245] = (void*)&cdat->dstr_2240__DISCR_FILE; + cdat->dstr_2240__DISCR_FILE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2240__DISCR_FILE.val, "DISCR_FILE", sizeof (cdat->dstr_2240__DISCR_FILE.val)-1); + + /*iniobj dsym_2241__DISCR_RAWFILE*/ +/*uniqueobj*/ if (!/*_.VALDATA___V2247*/ meltfptr[2246]) /*_.VALDATA___V2247*/ meltfptr[2246] = (void*)&cdat->dsym_2241__DISCR_RAWFILE; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2241__DISCR_RAWFILE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2241__DISCR_RAWFILE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); + cdat->dsym_2241__DISCR_RAWFILE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_2241__DISCR_RAWFILE.obj_hash = 482138009; + cdat->dsym_2241__DISCR_RAWFILE.obj_len = 3; + + /*inistring dstr_2242__DISCR_RAWFILE*/ + /*_.VALSTR___V2248*/ meltfptr[2247] = (void*)&cdat->dstr_2242__DISCR_RAWFILE; + cdat->dstr_2242__DISCR_RAWFILE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2242__DISCR_RAWFILE.val, "DISCR_RAWFILE", sizeof (cdat->dstr_2242__DISCR_RAWFILE.val)-1); + + MELT_LOCATION("warmelt-first.melt:1646:/ iniobj"); + /*iniobj dobj_2243__DISCR_RAWFILE*/ +/*_.VALDATA___V2249*/ meltfptr[2248] = (void*)&cdat->dobj_2243__DISCR_RAWFILE; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2243__DISCR_RAWFILE", melt_magic_discr (/*_.VALDATA___V45*/ meltfptr[44]) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2243__DISCR_RAWFILE", ((meltobject_ptr_t) (/*_.VALDATA___V45*/ meltfptr[44]))->object_magic == OBMAG_OBJECT); + cdat->dobj_2243__DISCR_RAWFILE.obj_class = (meltobject_ptr_t)(/*_.VALDATA___V45*/ meltfptr[44]); + cdat->dobj_2243__DISCR_RAWFILE.obj_num = OBMAG_SPEC_RAWFILE; + cdat->dobj_2243__DISCR_RAWFILE.obj_hash = 781407698; + cdat->dobj_2243__DISCR_RAWFILE.obj_len = 5; + + /*inistring dstr_2244__DISCR_RAWFILE*/ + /*_.VALSTR___V2250*/ meltfptr[2249] = (void*)&cdat->dstr_2244__DISCR_RAWFILE; + cdat->dstr_2244__DISCR_RAWFILE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2244__DISCR_RAWFILE.val, "DISCR_RAWFILE", sizeof (cdat->dstr_2244__DISCR_RAWFILE.val)-1); + + /*iniobj dsym_2245__DISCR_CLASS_SEQUENCE*/ +/*uniqueobj*/ if (!/*_.VALDATA___V2251*/ meltfptr[2250]) /*_.VALDATA___V2251*/ meltfptr[2250] = (void*)&cdat->dsym_2245__DISCR_CLASS_SEQUENCE; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2245__DISCR_CLASS_SEQUENCE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2245__DISCR_CLASS_SEQUENCE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); + cdat->dsym_2245__DISCR_CLASS_SEQUENCE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_2245__DISCR_CLASS_SEQUENCE.obj_hash = 751197907; + cdat->dsym_2245__DISCR_CLASS_SEQUENCE.obj_len = 3; + + /*inistring dstr_2246__DISCR_CLASS_SEQU*/ + /*_.VALSTR___V2252*/ meltfptr[2251] = (void*)&cdat->dstr_2246__DISCR_CLASS_SEQU; + cdat->dstr_2246__DISCR_CLASS_SEQU.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2246__DISCR_CLASS_SEQU.val, "DISCR_CLASS_SEQUENCE", sizeof (cdat->dstr_2246__DISCR_CLASS_SEQU.val)-1); + + MELT_LOCATION("warmelt-first.melt:1656:/ iniobj"); + /*iniobj dobj_2247__DISCR_CLASS_SEQUENCE*/ +if (((void*)(MELT_PREDEF(DISCR_CLASS_SEQUENCE))) != (melt_ptr_t)&cdat->dobj_2247__DISCR_CLASS_SEQUENCE) { melt_assertmsg("check.predef length ((void*)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))", melt_object_length((melt_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLASS_SEQUENCE))))) >= 5); }; -/*_.VALDATA___V2235*/ meltfptr[2234] = ((void*)(MELT_PREDEF(DISCR_CLASS_SEQUENCE))); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2229__DISCR_CLASS_SEQUENCE", melt_magic_discr (/*_.VALDATA___V45*/ meltfptr[44]) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2229__DISCR_CLASS_SEQUENCE", ((meltobject_ptr_t) (/*_.VALDATA___V45*/ meltfptr[44]))->object_magic == OBMAG_OBJECT); - cdat->dobj_2229__DISCR_CLASS_SEQUENCE.obj_class = (meltobject_ptr_t)(/*_.VALDATA___V45*/ meltfptr[44]); - cdat->dobj_2229__DISCR_CLASS_SEQUENCE.obj_num = OBMAG_MULTIPLE; - cdat->dobj_2229__DISCR_CLASS_SEQUENCE.obj_hash = 1014861559; - cdat->dobj_2229__DISCR_CLASS_SEQUENCE.obj_len = 5; - - /*inistring dstr_2230__DISCR_CLASS_SEQU*/ - /*_.VALSTR___V2236*/ meltfptr[2235] = (void*)&cdat->dstr_2230__DISCR_CLASS_SEQU; - cdat->dstr_2230__DISCR_CLASS_SEQU.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2230__DISCR_CLASS_SEQU.val, "DISCR_CLASS_SEQUENCE", sizeof (cdat->dstr_2230__DISCR_CLASS_SEQU.val)-1); - - /*iniobj dsym_2231__DISCR_METHOD_MAP*/ -/*uniqueobj*/ if (!/*_.VALDATA___V2237*/ meltfptr[2236]) /*_.VALDATA___V2237*/ meltfptr[2236] = (void*)&cdat->dsym_2231__DISCR_METHOD_MAP; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2231__DISCR_METHOD_MAP", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2231__DISCR_METHOD_MAP", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); - cdat->dsym_2231__DISCR_METHOD_MAP.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_2231__DISCR_METHOD_MAP.obj_hash = 132275480; - cdat->dsym_2231__DISCR_METHOD_MAP.obj_len = 3; - - /*inistring dstr_2232__DISCR_METHOD_MAP*/ - /*_.VALSTR___V2238*/ meltfptr[2237] = (void*)&cdat->dstr_2232__DISCR_METHOD_MAP; - cdat->dstr_2232__DISCR_METHOD_MAP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2232__DISCR_METHOD_MAP.val, "DISCR_METHOD_MAP", sizeof (cdat->dstr_2232__DISCR_METHOD_MAP.val)-1); - - MELT_LOCATION("warmelt-first.melt:1660:/ iniobj"); - /*iniobj dobj_2233__DISCR_METHOD_MAP*/ -if (((void*)(MELT_PREDEF(DISCR_METHOD_MAP))) != (melt_ptr_t)&cdat->dobj_2233__DISCR_METHOD_MAP) { +/*_.VALDATA___V2253*/ meltfptr[2252] = ((void*)(MELT_PREDEF(DISCR_CLASS_SEQUENCE))); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2247__DISCR_CLASS_SEQUENCE", melt_magic_discr (/*_.VALDATA___V45*/ meltfptr[44]) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2247__DISCR_CLASS_SEQUENCE", ((meltobject_ptr_t) (/*_.VALDATA___V45*/ meltfptr[44]))->object_magic == OBMAG_OBJECT); + cdat->dobj_2247__DISCR_CLASS_SEQUENCE.obj_class = (meltobject_ptr_t)(/*_.VALDATA___V45*/ meltfptr[44]); + cdat->dobj_2247__DISCR_CLASS_SEQUENCE.obj_num = OBMAG_MULTIPLE; + cdat->dobj_2247__DISCR_CLASS_SEQUENCE.obj_hash = 827171711; + cdat->dobj_2247__DISCR_CLASS_SEQUENCE.obj_len = 5; + + /*inistring dstr_2248__DISCR_CLASS_SEQU*/ + /*_.VALSTR___V2254*/ meltfptr[2253] = (void*)&cdat->dstr_2248__DISCR_CLASS_SEQU; + cdat->dstr_2248__DISCR_CLASS_SEQU.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2248__DISCR_CLASS_SEQU.val, "DISCR_CLASS_SEQUENCE", sizeof (cdat->dstr_2248__DISCR_CLASS_SEQU.val)-1); + + /*iniobj dsym_2249__DISCR_METHOD_MAP*/ +/*uniqueobj*/ if (!/*_.VALDATA___V2255*/ meltfptr[2254]) /*_.VALDATA___V2255*/ meltfptr[2254] = (void*)&cdat->dsym_2249__DISCR_METHOD_MAP; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2249__DISCR_METHOD_MAP", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2249__DISCR_METHOD_MAP", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); + cdat->dsym_2249__DISCR_METHOD_MAP.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_2249__DISCR_METHOD_MAP.obj_hash = 132275480; + cdat->dsym_2249__DISCR_METHOD_MAP.obj_len = 3; + + /*inistring dstr_2250__DISCR_METHOD_MAP*/ + /*_.VALSTR___V2256*/ meltfptr[2255] = (void*)&cdat->dstr_2250__DISCR_METHOD_MAP; + cdat->dstr_2250__DISCR_METHOD_MAP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2250__DISCR_METHOD_MAP.val, "DISCR_METHOD_MAP", sizeof (cdat->dstr_2250__DISCR_METHOD_MAP.val)-1); + + MELT_LOCATION("warmelt-first.melt:1667:/ iniobj"); + /*iniobj dobj_2251__DISCR_METHOD_MAP*/ +if (((void*)(MELT_PREDEF(DISCR_METHOD_MAP))) != (melt_ptr_t)&cdat->dobj_2251__DISCR_METHOD_MAP) { melt_assertmsg("check.predef length ((void*)(MELT_PREDEF(DISCR_METHOD_MAP)))", melt_object_length((melt_ptr_t)(((void*)(MELT_PREDEF(DISCR_METHOD_MAP))))) >= 5); }; -/*_.VALDATA___V2239*/ meltfptr[2238] = ((void*)(MELT_PREDEF(DISCR_METHOD_MAP))); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2233__DISCR_METHOD_MAP", melt_magic_discr (/*_.VALDATA___V45*/ meltfptr[44]) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2233__DISCR_METHOD_MAP", ((meltobject_ptr_t) (/*_.VALDATA___V45*/ meltfptr[44]))->object_magic == OBMAG_OBJECT); - cdat->dobj_2233__DISCR_METHOD_MAP.obj_class = (meltobject_ptr_t)(/*_.VALDATA___V45*/ meltfptr[44]); - cdat->dobj_2233__DISCR_METHOD_MAP.obj_num = OBMAG_MAPOBJECTS; - cdat->dobj_2233__DISCR_METHOD_MAP.obj_hash = 839142563; - cdat->dobj_2233__DISCR_METHOD_MAP.obj_len = 5; - - /*inistring dstr_2234__DISCR_METHOD_MAP*/ - /*_.VALSTR___V2240*/ meltfptr[2239] = (void*)&cdat->dstr_2234__DISCR_METHOD_MAP; - cdat->dstr_2234__DISCR_METHOD_MAP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2234__DISCR_METHOD_MAP.val, "DISCR_METHOD_MAP", sizeof (cdat->dstr_2234__DISCR_METHOD_MAP.val)-1); - - /*iniobj dsym_2235__DISCR_CHARACTER_INTEGER*/ -/*uniqueobj*/ if (!/*_.VALDATA___V2241*/ meltfptr[2240]) /*_.VALDATA___V2241*/ meltfptr[2240] = (void*)&cdat->dsym_2235__DISCR_CHARACTER_INTEGER; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2235__DISCR_CHARACTER_INTEGER", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2235__DISCR_CHARACTER_INTEGER", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); - cdat->dsym_2235__DISCR_CHARACTER_INTEGER.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_2235__DISCR_CHARACTER_INTEGER.obj_hash = 370833943; - cdat->dsym_2235__DISCR_CHARACTER_INTEGER.obj_len = 3; - - /*inistring dstr_2236__DISCR_CHARACTER_*/ - /*_.VALSTR___V2242*/ meltfptr[2241] = (void*)&cdat->dstr_2236__DISCR_CHARACTER_; - cdat->dstr_2236__DISCR_CHARACTER_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2236__DISCR_CHARACTER_.val, "DISCR_CHARACTER_INTEGER", sizeof (cdat->dstr_2236__DISCR_CHARACTER_.val)-1); - - MELT_LOCATION("warmelt-first.melt:1671:/ iniobj"); - /*iniobj dobj_2237__DISCR_CHARACTER_INTEGER*/ -if (((void*)(MELT_PREDEF(DISCR_CHARACTER_INTEGER))) != (melt_ptr_t)&cdat->dobj_2237__DISCR_CHARACTER_INTEGER) { +/*_.VALDATA___V2257*/ meltfptr[2256] = ((void*)(MELT_PREDEF(DISCR_METHOD_MAP))); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2251__DISCR_METHOD_MAP", melt_magic_discr (/*_.VALDATA___V45*/ meltfptr[44]) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2251__DISCR_METHOD_MAP", ((meltobject_ptr_t) (/*_.VALDATA___V45*/ meltfptr[44]))->object_magic == OBMAG_OBJECT); + cdat->dobj_2251__DISCR_METHOD_MAP.obj_class = (meltobject_ptr_t)(/*_.VALDATA___V45*/ meltfptr[44]); + cdat->dobj_2251__DISCR_METHOD_MAP.obj_num = OBMAG_MAPOBJECTS; + cdat->dobj_2251__DISCR_METHOD_MAP.obj_hash = 909336529; + cdat->dobj_2251__DISCR_METHOD_MAP.obj_len = 5; + + /*inistring dstr_2252__DISCR_METHOD_MAP*/ + /*_.VALSTR___V2258*/ meltfptr[2257] = (void*)&cdat->dstr_2252__DISCR_METHOD_MAP; + cdat->dstr_2252__DISCR_METHOD_MAP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2252__DISCR_METHOD_MAP.val, "DISCR_METHOD_MAP", sizeof (cdat->dstr_2252__DISCR_METHOD_MAP.val)-1); + + /*iniobj dsym_2253__DISCR_CHARACTER_INTEGER*/ +/*uniqueobj*/ if (!/*_.VALDATA___V2259*/ meltfptr[2258]) /*_.VALDATA___V2259*/ meltfptr[2258] = (void*)&cdat->dsym_2253__DISCR_CHARACTER_INTEGER; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2253__DISCR_CHARACTER_INTEGER", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2253__DISCR_CHARACTER_INTEGER", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); + cdat->dsym_2253__DISCR_CHARACTER_INTEGER.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_2253__DISCR_CHARACTER_INTEGER.obj_hash = 370833943; + cdat->dsym_2253__DISCR_CHARACTER_INTEGER.obj_len = 3; + + /*inistring dstr_2254__DISCR_CHARACTER_*/ + /*_.VALSTR___V2260*/ meltfptr[2259] = (void*)&cdat->dstr_2254__DISCR_CHARACTER_; + cdat->dstr_2254__DISCR_CHARACTER_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2254__DISCR_CHARACTER_.val, "DISCR_CHARACTER_INTEGER", sizeof (cdat->dstr_2254__DISCR_CHARACTER_.val)-1); + + MELT_LOCATION("warmelt-first.melt:1678:/ iniobj"); + /*iniobj dobj_2255__DISCR_CHARACTER_INTEGER*/ +if (((void*)(MELT_PREDEF(DISCR_CHARACTER_INTEGER))) != (melt_ptr_t)&cdat->dobj_2255__DISCR_CHARACTER_INTEGER) { melt_assertmsg("check.predef length ((void*)(MELT_PREDEF(DISCR_CHARACTER_INTEGER)))", melt_object_length((melt_ptr_t)(((void*)(MELT_PREDEF(DISCR_CHARACTER_INTEGER))))) >= 5); }; -/*_.VALDATA___V2243*/ meltfptr[2242] = ((void*)(MELT_PREDEF(DISCR_CHARACTER_INTEGER))); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2237__DISCR_CHARACTER_INTEGER", melt_magic_discr (/*_.VALDATA___V45*/ meltfptr[44]) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2237__DISCR_CHARACTER_INTEGER", ((meltobject_ptr_t) (/*_.VALDATA___V45*/ meltfptr[44]))->object_magic == OBMAG_OBJECT); - cdat->dobj_2237__DISCR_CHARACTER_INTEGER.obj_class = (meltobject_ptr_t)(/*_.VALDATA___V45*/ meltfptr[44]); - cdat->dobj_2237__DISCR_CHARACTER_INTEGER.obj_num = OBMAG_INT; - cdat->dobj_2237__DISCR_CHARACTER_INTEGER.obj_hash = 905885396; - cdat->dobj_2237__DISCR_CHARACTER_INTEGER.obj_len = 5; - - /*inistring dstr_2238__DISCR_CHARACTER_*/ - /*_.VALSTR___V2244*/ meltfptr[2243] = (void*)&cdat->dstr_2238__DISCR_CHARACTER_; - cdat->dstr_2238__DISCR_CHARACTER_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2238__DISCR_CHARACTER_.val, "DISCR_CHARACTER_INTEGER", sizeof (cdat->dstr_2238__DISCR_CHARACTER_.val)-1); - - /*iniobj dsym_2239__DISCR_MIXED_INTEGER*/ -/*uniqueobj*/ if (!/*_.VALDATA___V2245*/ meltfptr[2244]) /*_.VALDATA___V2245*/ meltfptr[2244] = (void*)&cdat->dsym_2239__DISCR_MIXED_INTEGER; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2239__DISCR_MIXED_INTEGER", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2239__DISCR_MIXED_INTEGER", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); - cdat->dsym_2239__DISCR_MIXED_INTEGER.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_2239__DISCR_MIXED_INTEGER.obj_hash = 355248820; - cdat->dsym_2239__DISCR_MIXED_INTEGER.obj_len = 3; - - /*inistring dstr_2240__DISCR_MIXED_INTE*/ - /*_.VALSTR___V2246*/ meltfptr[2245] = (void*)&cdat->dstr_2240__DISCR_MIXED_INTE; - cdat->dstr_2240__DISCR_MIXED_INTE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2240__DISCR_MIXED_INTE.val, "DISCR_MIXED_INTEGER", sizeof (cdat->dstr_2240__DISCR_MIXED_INTE.val)-1); - - MELT_LOCATION("warmelt-first.melt:1682:/ iniobj"); - /*iniobj dobj_2241__DISCR_MIXED_INTEGER*/ -if (((void*)(MELT_PREDEF(DISCR_MIXED_INTEGER))) != (melt_ptr_t)&cdat->dobj_2241__DISCR_MIXED_INTEGER) { +/*_.VALDATA___V2261*/ meltfptr[2260] = ((void*)(MELT_PREDEF(DISCR_CHARACTER_INTEGER))); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2255__DISCR_CHARACTER_INTEGER", melt_magic_discr (/*_.VALDATA___V45*/ meltfptr[44]) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2255__DISCR_CHARACTER_INTEGER", ((meltobject_ptr_t) (/*_.VALDATA___V45*/ meltfptr[44]))->object_magic == OBMAG_OBJECT); + cdat->dobj_2255__DISCR_CHARACTER_INTEGER.obj_class = (meltobject_ptr_t)(/*_.VALDATA___V45*/ meltfptr[44]); + cdat->dobj_2255__DISCR_CHARACTER_INTEGER.obj_num = OBMAG_INT; + cdat->dobj_2255__DISCR_CHARACTER_INTEGER.obj_hash = 863338780; + cdat->dobj_2255__DISCR_CHARACTER_INTEGER.obj_len = 5; + + /*inistring dstr_2256__DISCR_CHARACTER_*/ + /*_.VALSTR___V2262*/ meltfptr[2261] = (void*)&cdat->dstr_2256__DISCR_CHARACTER_; + cdat->dstr_2256__DISCR_CHARACTER_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2256__DISCR_CHARACTER_.val, "DISCR_CHARACTER_INTEGER", sizeof (cdat->dstr_2256__DISCR_CHARACTER_.val)-1); + + /*iniobj dsym_2257__DISCR_MIXED_INTEGER*/ +/*uniqueobj*/ if (!/*_.VALDATA___V2263*/ meltfptr[2262]) /*_.VALDATA___V2263*/ meltfptr[2262] = (void*)&cdat->dsym_2257__DISCR_MIXED_INTEGER; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2257__DISCR_MIXED_INTEGER", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2257__DISCR_MIXED_INTEGER", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); + cdat->dsym_2257__DISCR_MIXED_INTEGER.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_2257__DISCR_MIXED_INTEGER.obj_hash = 355248820; + cdat->dsym_2257__DISCR_MIXED_INTEGER.obj_len = 3; + + /*inistring dstr_2258__DISCR_MIXED_INTE*/ + /*_.VALSTR___V2264*/ meltfptr[2263] = (void*)&cdat->dstr_2258__DISCR_MIXED_INTE; + cdat->dstr_2258__DISCR_MIXED_INTE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2258__DISCR_MIXED_INTE.val, "DISCR_MIXED_INTEGER", sizeof (cdat->dstr_2258__DISCR_MIXED_INTE.val)-1); + + MELT_LOCATION("warmelt-first.melt:1689:/ iniobj"); + /*iniobj dobj_2259__DISCR_MIXED_INTEGER*/ +if (((void*)(MELT_PREDEF(DISCR_MIXED_INTEGER))) != (melt_ptr_t)&cdat->dobj_2259__DISCR_MIXED_INTEGER) { melt_assertmsg("check.predef length ((void*)(MELT_PREDEF(DISCR_MIXED_INTEGER)))", melt_object_length((melt_ptr_t)(((void*)(MELT_PREDEF(DISCR_MIXED_INTEGER))))) >= 5); }; -/*_.VALDATA___V2247*/ meltfptr[2246] = ((void*)(MELT_PREDEF(DISCR_MIXED_INTEGER))); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2241__DISCR_MIXED_INTEGER", melt_magic_discr (/*_.VALDATA___V45*/ meltfptr[44]) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2241__DISCR_MIXED_INTEGER", ((meltobject_ptr_t) (/*_.VALDATA___V45*/ meltfptr[44]))->object_magic == OBMAG_OBJECT); - cdat->dobj_2241__DISCR_MIXED_INTEGER.obj_class = (meltobject_ptr_t)(/*_.VALDATA___V45*/ meltfptr[44]); - cdat->dobj_2241__DISCR_MIXED_INTEGER.obj_num = OBMAG_MIXINT; - cdat->dobj_2241__DISCR_MIXED_INTEGER.obj_hash = 974784645; - cdat->dobj_2241__DISCR_MIXED_INTEGER.obj_len = 5; - - /*inistring dstr_2242__DISCR_MIXED_INTE*/ - /*_.VALSTR___V2248*/ meltfptr[2247] = (void*)&cdat->dstr_2242__DISCR_MIXED_INTE; - cdat->dstr_2242__DISCR_MIXED_INTE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2242__DISCR_MIXED_INTE.val, "DISCR_MIXED_INTEGER", sizeof (cdat->dstr_2242__DISCR_MIXED_INTE.val)-1); - - /*iniobj dsym_2243__DISCR_MIXED_BIGINT*/ -/*uniqueobj*/ if (!/*_.VALDATA___V2249*/ meltfptr[2248]) /*_.VALDATA___V2249*/ meltfptr[2248] = (void*)&cdat->dsym_2243__DISCR_MIXED_BIGINT; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2243__DISCR_MIXED_BIGINT", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2243__DISCR_MIXED_BIGINT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); - cdat->dsym_2243__DISCR_MIXED_BIGINT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_2243__DISCR_MIXED_BIGINT.obj_hash = 484145131; - cdat->dsym_2243__DISCR_MIXED_BIGINT.obj_len = 3; - - /*inistring dstr_2244__DISCR_MIXED_BIGI*/ - /*_.VALSTR___V2250*/ meltfptr[2249] = (void*)&cdat->dstr_2244__DISCR_MIXED_BIGI; - cdat->dstr_2244__DISCR_MIXED_BIGI.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2244__DISCR_MIXED_BIGI.val, "DISCR_MIXED_BIGINT", sizeof (cdat->dstr_2244__DISCR_MIXED_BIGI.val)-1); - - MELT_LOCATION("warmelt-first.melt:1692:/ iniobj"); - /*iniobj dobj_2245__DISCR_MIXED_BIGINT*/ -if (((void*)(MELT_PREDEF(DISCR_MIXED_BIGINT))) != (melt_ptr_t)&cdat->dobj_2245__DISCR_MIXED_BIGINT) { +/*_.VALDATA___V2265*/ meltfptr[2264] = ((void*)(MELT_PREDEF(DISCR_MIXED_INTEGER))); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2259__DISCR_MIXED_INTEGER", melt_magic_discr (/*_.VALDATA___V45*/ meltfptr[44]) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2259__DISCR_MIXED_INTEGER", ((meltobject_ptr_t) (/*_.VALDATA___V45*/ meltfptr[44]))->object_magic == OBMAG_OBJECT); + cdat->dobj_2259__DISCR_MIXED_INTEGER.obj_class = (meltobject_ptr_t)(/*_.VALDATA___V45*/ meltfptr[44]); + cdat->dobj_2259__DISCR_MIXED_INTEGER.obj_num = OBMAG_MIXINT; + cdat->dobj_2259__DISCR_MIXED_INTEGER.obj_hash = 888808610; + cdat->dobj_2259__DISCR_MIXED_INTEGER.obj_len = 5; + + /*inistring dstr_2260__DISCR_MIXED_INTE*/ + /*_.VALSTR___V2266*/ meltfptr[2265] = (void*)&cdat->dstr_2260__DISCR_MIXED_INTE; + cdat->dstr_2260__DISCR_MIXED_INTE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2260__DISCR_MIXED_INTE.val, "DISCR_MIXED_INTEGER", sizeof (cdat->dstr_2260__DISCR_MIXED_INTE.val)-1); + + /*iniobj dsym_2261__DISCR_MIXED_BIGINT*/ +/*uniqueobj*/ if (!/*_.VALDATA___V2267*/ meltfptr[2266]) /*_.VALDATA___V2267*/ meltfptr[2266] = (void*)&cdat->dsym_2261__DISCR_MIXED_BIGINT; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2261__DISCR_MIXED_BIGINT", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2261__DISCR_MIXED_BIGINT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); + cdat->dsym_2261__DISCR_MIXED_BIGINT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_2261__DISCR_MIXED_BIGINT.obj_hash = 484145131; + cdat->dsym_2261__DISCR_MIXED_BIGINT.obj_len = 3; + + /*inistring dstr_2262__DISCR_MIXED_BIGI*/ + /*_.VALSTR___V2268*/ meltfptr[2267] = (void*)&cdat->dstr_2262__DISCR_MIXED_BIGI; + cdat->dstr_2262__DISCR_MIXED_BIGI.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2262__DISCR_MIXED_BIGI.val, "DISCR_MIXED_BIGINT", sizeof (cdat->dstr_2262__DISCR_MIXED_BIGI.val)-1); + + MELT_LOCATION("warmelt-first.melt:1699:/ iniobj"); + /*iniobj dobj_2263__DISCR_MIXED_BIGINT*/ +if (((void*)(MELT_PREDEF(DISCR_MIXED_BIGINT))) != (melt_ptr_t)&cdat->dobj_2263__DISCR_MIXED_BIGINT) { melt_assertmsg("check.predef length ((void*)(MELT_PREDEF(DISCR_MIXED_BIGINT)))", melt_object_length((melt_ptr_t)(((void*)(MELT_PREDEF(DISCR_MIXED_BIGINT))))) >= 5); }; -/*_.VALDATA___V2251*/ meltfptr[2250] = ((void*)(MELT_PREDEF(DISCR_MIXED_BIGINT))); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2245__DISCR_MIXED_BIGINT", melt_magic_discr (/*_.VALDATA___V45*/ meltfptr[44]) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2245__DISCR_MIXED_BIGINT", ((meltobject_ptr_t) (/*_.VALDATA___V45*/ meltfptr[44]))->object_magic == OBMAG_OBJECT); - cdat->dobj_2245__DISCR_MIXED_BIGINT.obj_class = (meltobject_ptr_t)(/*_.VALDATA___V45*/ meltfptr[44]); - cdat->dobj_2245__DISCR_MIXED_BIGINT.obj_num = OBMAG_MIXBIGINT; - cdat->dobj_2245__DISCR_MIXED_BIGINT.obj_hash = 35187347; - cdat->dobj_2245__DISCR_MIXED_BIGINT.obj_len = 5; - - /*inistring dstr_2246__DISCR_MIXED_BIGI*/ - /*_.VALSTR___V2252*/ meltfptr[2251] = (void*)&cdat->dstr_2246__DISCR_MIXED_BIGI; - cdat->dstr_2246__DISCR_MIXED_BIGI.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2246__DISCR_MIXED_BIGI.val, "DISCR_MIXED_BIGINT", sizeof (cdat->dstr_2246__DISCR_MIXED_BIGI.val)-1); - - /*iniobj dsym_2247__DISCR_MIXED_LOCATION*/ -/*uniqueobj*/ if (!/*_.VALDATA___V2253*/ meltfptr[2252]) /*_.VALDATA___V2253*/ meltfptr[2252] = (void*)&cdat->dsym_2247__DISCR_MIXED_LOCATION; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2247__DISCR_MIXED_LOCATION", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2247__DISCR_MIXED_LOCATION", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); - cdat->dsym_2247__DISCR_MIXED_LOCATION.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_2247__DISCR_MIXED_LOCATION.obj_hash = 1019373807; - cdat->dsym_2247__DISCR_MIXED_LOCATION.obj_len = 3; - - /*inistring dstr_2248__DISCR_MIXED_LOCA*/ - /*_.VALSTR___V2254*/ meltfptr[2253] = (void*)&cdat->dstr_2248__DISCR_MIXED_LOCA; - cdat->dstr_2248__DISCR_MIXED_LOCA.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2248__DISCR_MIXED_LOCA.val, "DISCR_MIXED_LOCATION", sizeof (cdat->dstr_2248__DISCR_MIXED_LOCA.val)-1); - - MELT_LOCATION("warmelt-first.melt:1703:/ iniobj"); - /*iniobj dobj_2249__DISCR_MIXED_LOCATION*/ -if (((void*)(MELT_PREDEF(DISCR_MIXED_LOCATION))) != (melt_ptr_t)&cdat->dobj_2249__DISCR_MIXED_LOCATION) { +/*_.VALDATA___V2269*/ meltfptr[2268] = ((void*)(MELT_PREDEF(DISCR_MIXED_BIGINT))); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2263__DISCR_MIXED_BIGINT", melt_magic_discr (/*_.VALDATA___V45*/ meltfptr[44]) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2263__DISCR_MIXED_BIGINT", ((meltobject_ptr_t) (/*_.VALDATA___V45*/ meltfptr[44]))->object_magic == OBMAG_OBJECT); + cdat->dobj_2263__DISCR_MIXED_BIGINT.obj_class = (meltobject_ptr_t)(/*_.VALDATA___V45*/ meltfptr[44]); + cdat->dobj_2263__DISCR_MIXED_BIGINT.obj_num = OBMAG_MIXBIGINT; + cdat->dobj_2263__DISCR_MIXED_BIGINT.obj_hash = 201245131; + cdat->dobj_2263__DISCR_MIXED_BIGINT.obj_len = 5; + + /*inistring dstr_2264__DISCR_MIXED_BIGI*/ + /*_.VALSTR___V2270*/ meltfptr[2269] = (void*)&cdat->dstr_2264__DISCR_MIXED_BIGI; + cdat->dstr_2264__DISCR_MIXED_BIGI.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2264__DISCR_MIXED_BIGI.val, "DISCR_MIXED_BIGINT", sizeof (cdat->dstr_2264__DISCR_MIXED_BIGI.val)-1); + + /*iniobj dsym_2265__DISCR_MIXED_LOCATION*/ +/*uniqueobj*/ if (!/*_.VALDATA___V2271*/ meltfptr[2270]) /*_.VALDATA___V2271*/ meltfptr[2270] = (void*)&cdat->dsym_2265__DISCR_MIXED_LOCATION; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2265__DISCR_MIXED_LOCATION", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2265__DISCR_MIXED_LOCATION", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); + cdat->dsym_2265__DISCR_MIXED_LOCATION.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_2265__DISCR_MIXED_LOCATION.obj_hash = 1019373807; + cdat->dsym_2265__DISCR_MIXED_LOCATION.obj_len = 3; + + /*inistring dstr_2266__DISCR_MIXED_LOCA*/ + /*_.VALSTR___V2272*/ meltfptr[2271] = (void*)&cdat->dstr_2266__DISCR_MIXED_LOCA; + cdat->dstr_2266__DISCR_MIXED_LOCA.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2266__DISCR_MIXED_LOCA.val, "DISCR_MIXED_LOCATION", sizeof (cdat->dstr_2266__DISCR_MIXED_LOCA.val)-1); + + MELT_LOCATION("warmelt-first.melt:1710:/ iniobj"); + /*iniobj dobj_2267__DISCR_MIXED_LOCATION*/ +if (((void*)(MELT_PREDEF(DISCR_MIXED_LOCATION))) != (melt_ptr_t)&cdat->dobj_2267__DISCR_MIXED_LOCATION) { melt_assertmsg("check.predef length ((void*)(MELT_PREDEF(DISCR_MIXED_LOCATION)))", melt_object_length((melt_ptr_t)(((void*)(MELT_PREDEF(DISCR_MIXED_LOCATION))))) >= 5); }; -/*_.VALDATA___V2255*/ meltfptr[2254] = ((void*)(MELT_PREDEF(DISCR_MIXED_LOCATION))); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2249__DISCR_MIXED_LOCATION", melt_magic_discr (/*_.VALDATA___V45*/ meltfptr[44]) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2249__DISCR_MIXED_LOCATION", ((meltobject_ptr_t) (/*_.VALDATA___V45*/ meltfptr[44]))->object_magic == OBMAG_OBJECT); - cdat->dobj_2249__DISCR_MIXED_LOCATION.obj_class = (meltobject_ptr_t)(/*_.VALDATA___V45*/ meltfptr[44]); - cdat->dobj_2249__DISCR_MIXED_LOCATION.obj_num = OBMAG_MIXLOC; - cdat->dobj_2249__DISCR_MIXED_LOCATION.obj_hash = 896175614; - cdat->dobj_2249__DISCR_MIXED_LOCATION.obj_len = 5; - - /*inistring dstr_2250__DISCR_MIXED_LOCA*/ - /*_.VALSTR___V2256*/ meltfptr[2255] = (void*)&cdat->dstr_2250__DISCR_MIXED_LOCA; - cdat->dstr_2250__DISCR_MIXED_LOCA.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2250__DISCR_MIXED_LOCA.val, "DISCR_MIXED_LOCATION", sizeof (cdat->dstr_2250__DISCR_MIXED_LOCA.val)-1); - - /*iniobj dsym_2251__DISCR_CLOSURE*/ -/*uniqueobj*/ if (!/*_.VALDATA___V2257*/ meltfptr[2256]) /*_.VALDATA___V2257*/ meltfptr[2256] = (void*)&cdat->dsym_2251__DISCR_CLOSURE; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2251__DISCR_CLOSURE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2251__DISCR_CLOSURE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); - cdat->dsym_2251__DISCR_CLOSURE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_2251__DISCR_CLOSURE.obj_hash = 99248147; - cdat->dsym_2251__DISCR_CLOSURE.obj_len = 3; - - /*inistring dstr_2252__DISCR_CLOSURE*/ - /*_.VALSTR___V2258*/ meltfptr[2257] = (void*)&cdat->dstr_2252__DISCR_CLOSURE; - cdat->dstr_2252__DISCR_CLOSURE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2252__DISCR_CLOSURE.val, "DISCR_CLOSURE", sizeof (cdat->dstr_2252__DISCR_CLOSURE.val)-1); - - MELT_LOCATION("warmelt-first.melt:1713:/ iniobj"); - /*iniobj dobj_2253__DISCR_CLOSURE*/ -if (((void*)(MELT_PREDEF(DISCR_CLOSURE))) != (melt_ptr_t)&cdat->dobj_2253__DISCR_CLOSURE) { +/*_.VALDATA___V2273*/ meltfptr[2272] = ((void*)(MELT_PREDEF(DISCR_MIXED_LOCATION))); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2267__DISCR_MIXED_LOCATION", melt_magic_discr (/*_.VALDATA___V45*/ meltfptr[44]) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2267__DISCR_MIXED_LOCATION", ((meltobject_ptr_t) (/*_.VALDATA___V45*/ meltfptr[44]))->object_magic == OBMAG_OBJECT); + cdat->dobj_2267__DISCR_MIXED_LOCATION.obj_class = (meltobject_ptr_t)(/*_.VALDATA___V45*/ meltfptr[44]); + cdat->dobj_2267__DISCR_MIXED_LOCATION.obj_num = OBMAG_MIXLOC; + cdat->dobj_2267__DISCR_MIXED_LOCATION.obj_hash = 420840812; + cdat->dobj_2267__DISCR_MIXED_LOCATION.obj_len = 5; + + /*inistring dstr_2268__DISCR_MIXED_LOCA*/ + /*_.VALSTR___V2274*/ meltfptr[2273] = (void*)&cdat->dstr_2268__DISCR_MIXED_LOCA; + cdat->dstr_2268__DISCR_MIXED_LOCA.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2268__DISCR_MIXED_LOCA.val, "DISCR_MIXED_LOCATION", sizeof (cdat->dstr_2268__DISCR_MIXED_LOCA.val)-1); + + /*iniobj dsym_2269__DISCR_CLOSURE*/ +/*uniqueobj*/ if (!/*_.VALDATA___V2275*/ meltfptr[2274]) /*_.VALDATA___V2275*/ meltfptr[2274] = (void*)&cdat->dsym_2269__DISCR_CLOSURE; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2269__DISCR_CLOSURE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2269__DISCR_CLOSURE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); + cdat->dsym_2269__DISCR_CLOSURE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_2269__DISCR_CLOSURE.obj_hash = 99248147; + cdat->dsym_2269__DISCR_CLOSURE.obj_len = 3; + + /*inistring dstr_2270__DISCR_CLOSURE*/ + /*_.VALSTR___V2276*/ meltfptr[2275] = (void*)&cdat->dstr_2270__DISCR_CLOSURE; + cdat->dstr_2270__DISCR_CLOSURE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2270__DISCR_CLOSURE.val, "DISCR_CLOSURE", sizeof (cdat->dstr_2270__DISCR_CLOSURE.val)-1); + + MELT_LOCATION("warmelt-first.melt:1720:/ iniobj"); + /*iniobj dobj_2271__DISCR_CLOSURE*/ +if (((void*)(MELT_PREDEF(DISCR_CLOSURE))) != (melt_ptr_t)&cdat->dobj_2271__DISCR_CLOSURE) { melt_assertmsg("check.predef length ((void*)(MELT_PREDEF(DISCR_CLOSURE)))", melt_object_length((melt_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE))))) >= 5); }; -/*_.VALDATA___V2259*/ meltfptr[2258] = ((void*)(MELT_PREDEF(DISCR_CLOSURE))); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2253__DISCR_CLOSURE", melt_magic_discr (/*_.VALDATA___V45*/ meltfptr[44]) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2253__DISCR_CLOSURE", ((meltobject_ptr_t) (/*_.VALDATA___V45*/ meltfptr[44]))->object_magic == OBMAG_OBJECT); - cdat->dobj_2253__DISCR_CLOSURE.obj_class = (meltobject_ptr_t)(/*_.VALDATA___V45*/ meltfptr[44]); - cdat->dobj_2253__DISCR_CLOSURE.obj_num = OBMAG_CLOSURE; - cdat->dobj_2253__DISCR_CLOSURE.obj_hash = 137547304; - cdat->dobj_2253__DISCR_CLOSURE.obj_len = 5; - - /*inistring dstr_2254__DISCR_CLOSURE*/ - /*_.VALSTR___V2260*/ meltfptr[2259] = (void*)&cdat->dstr_2254__DISCR_CLOSURE; - cdat->dstr_2254__DISCR_CLOSURE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2254__DISCR_CLOSURE.val, "DISCR_CLOSURE", sizeof (cdat->dstr_2254__DISCR_CLOSURE.val)-1); - - /*iniobj dsym_2255__DISCR_ROUTINE*/ -/*uniqueobj*/ if (!/*_.VALDATA___V2261*/ meltfptr[2260]) /*_.VALDATA___V2261*/ meltfptr[2260] = (void*)&cdat->dsym_2255__DISCR_ROUTINE; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2255__DISCR_ROUTINE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2255__DISCR_ROUTINE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); - cdat->dsym_2255__DISCR_ROUTINE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_2255__DISCR_ROUTINE.obj_hash = 30464565; - cdat->dsym_2255__DISCR_ROUTINE.obj_len = 3; - - /*inistring dstr_2256__DISCR_ROUTINE*/ - /*_.VALSTR___V2262*/ meltfptr[2261] = (void*)&cdat->dstr_2256__DISCR_ROUTINE; - cdat->dstr_2256__DISCR_ROUTINE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2256__DISCR_ROUTINE.val, "DISCR_ROUTINE", sizeof (cdat->dstr_2256__DISCR_ROUTINE.val)-1); - - MELT_LOCATION("warmelt-first.melt:1722:/ iniobj"); - /*iniobj dobj_2257__DISCR_ROUTINE*/ -if (((void*)(MELT_PREDEF(DISCR_ROUTINE))) != (melt_ptr_t)&cdat->dobj_2257__DISCR_ROUTINE) { +/*_.VALDATA___V2277*/ meltfptr[2276] = ((void*)(MELT_PREDEF(DISCR_CLOSURE))); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2271__DISCR_CLOSURE", melt_magic_discr (/*_.VALDATA___V45*/ meltfptr[44]) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2271__DISCR_CLOSURE", ((meltobject_ptr_t) (/*_.VALDATA___V45*/ meltfptr[44]))->object_magic == OBMAG_OBJECT); + cdat->dobj_2271__DISCR_CLOSURE.obj_class = (meltobject_ptr_t)(/*_.VALDATA___V45*/ meltfptr[44]); + cdat->dobj_2271__DISCR_CLOSURE.obj_num = OBMAG_CLOSURE; + cdat->dobj_2271__DISCR_CLOSURE.obj_hash = 565892354; + cdat->dobj_2271__DISCR_CLOSURE.obj_len = 5; + + /*inistring dstr_2272__DISCR_CLOSURE*/ + /*_.VALSTR___V2278*/ meltfptr[2277] = (void*)&cdat->dstr_2272__DISCR_CLOSURE; + cdat->dstr_2272__DISCR_CLOSURE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2272__DISCR_CLOSURE.val, "DISCR_CLOSURE", sizeof (cdat->dstr_2272__DISCR_CLOSURE.val)-1); + + /*iniobj dsym_2273__DISCR_ROUTINE*/ +/*uniqueobj*/ if (!/*_.VALDATA___V2279*/ meltfptr[2278]) /*_.VALDATA___V2279*/ meltfptr[2278] = (void*)&cdat->dsym_2273__DISCR_ROUTINE; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2273__DISCR_ROUTINE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2273__DISCR_ROUTINE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); + cdat->dsym_2273__DISCR_ROUTINE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_2273__DISCR_ROUTINE.obj_hash = 30464565; + cdat->dsym_2273__DISCR_ROUTINE.obj_len = 3; + + /*inistring dstr_2274__DISCR_ROUTINE*/ + /*_.VALSTR___V2280*/ meltfptr[2279] = (void*)&cdat->dstr_2274__DISCR_ROUTINE; + cdat->dstr_2274__DISCR_ROUTINE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2274__DISCR_ROUTINE.val, "DISCR_ROUTINE", sizeof (cdat->dstr_2274__DISCR_ROUTINE.val)-1); + + MELT_LOCATION("warmelt-first.melt:1729:/ iniobj"); + /*iniobj dobj_2275__DISCR_ROUTINE*/ +if (((void*)(MELT_PREDEF(DISCR_ROUTINE))) != (melt_ptr_t)&cdat->dobj_2275__DISCR_ROUTINE) { melt_assertmsg("check.predef length ((void*)(MELT_PREDEF(DISCR_ROUTINE)))", melt_object_length((melt_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))))) >= 5); }; -/*_.VALDATA___V2263*/ meltfptr[2262] = ((void*)(MELT_PREDEF(DISCR_ROUTINE))); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2257__DISCR_ROUTINE", melt_magic_discr (/*_.VALDATA___V45*/ meltfptr[44]) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2257__DISCR_ROUTINE", ((meltobject_ptr_t) (/*_.VALDATA___V45*/ meltfptr[44]))->object_magic == OBMAG_OBJECT); - cdat->dobj_2257__DISCR_ROUTINE.obj_class = (meltobject_ptr_t)(/*_.VALDATA___V45*/ meltfptr[44]); - cdat->dobj_2257__DISCR_ROUTINE.obj_num = OBMAG_ROUTINE; - cdat->dobj_2257__DISCR_ROUTINE.obj_hash = 98327316; - cdat->dobj_2257__DISCR_ROUTINE.obj_len = 5; - - /*inistring dstr_2258__DISCR_ROUTINE*/ - /*_.VALSTR___V2264*/ meltfptr[2263] = (void*)&cdat->dstr_2258__DISCR_ROUTINE; - cdat->dstr_2258__DISCR_ROUTINE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2258__DISCR_ROUTINE.val, "DISCR_ROUTINE", sizeof (cdat->dstr_2258__DISCR_ROUTINE.val)-1); - - /*inirout drout_2259__INSTALL_CTYPE_DESCR*/ - /*_.VALROUT___V2265*/ meltfptr[2264] = (void*)&cdat->drout_2259__INSTALL_CTYPE_DESCR; - cdat->drout_2259__INSTALL_CTYPE_DESCR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); - strncpy(cdat->drout_2259__INSTALL_CTYPE_DESCR.routdescr, "INSTALL_CTYPE_DESCR @warmelt-first.melt:1734", MELT_ROUTDESCR_LEN - 1); - cdat->drout_2259__INSTALL_CTYPE_DESCR.nbval = 4; - MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_2259__INSTALL_CTYPE_DESCR, meltrout_1_warmelt_first_INSTALL_CTYPE_DESCR); - - /*iniclos dclo_2260__INSTALL_CTYPE_DESCR*/ - /*_.VALCLO___V2266*/ meltfptr[2265] = (void*)&cdat->dclo_2260__INSTALL_CTYPE_DESCR; - cdat->dclo_2260__INSTALL_CTYPE_DESCR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); - cdat->dclo_2260__INSTALL_CTYPE_DESCR.nbval = 0; - - /*iniobj dsym_2261__CTYPE_VALUE*/ -/*uniqueobj*/ if (!/*_.VALDATA___V2267*/ meltfptr[2266]) /*_.VALDATA___V2267*/ meltfptr[2266] = (void*)&cdat->dsym_2261__CTYPE_VALUE; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2261__CTYPE_VALUE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2261__CTYPE_VALUE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); - cdat->dsym_2261__CTYPE_VALUE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_2261__CTYPE_VALUE.obj_hash = 11062864; - cdat->dsym_2261__CTYPE_VALUE.obj_len = 3; - - /*inistring dstr_2262__CTYPE_VALUE*/ - /*_.VALSTR___V2268*/ meltfptr[2267] = (void*)&cdat->dstr_2262__CTYPE_VALUE; - cdat->dstr_2262__CTYPE_VALUE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2262__CTYPE_VALUE.val, "CTYPE_VALUE", sizeof (cdat->dstr_2262__CTYPE_VALUE.val)-1); - - MELT_LOCATION("warmelt-first.melt:1757:/ iniobj"); - /*iniobj dobj_2263__CTYPE_VALUE*/ -if (((void*)(MELT_PREDEF(CTYPE_VALUE))) != (melt_ptr_t)&cdat->dobj_2263__CTYPE_VALUE) { +/*_.VALDATA___V2281*/ meltfptr[2280] = ((void*)(MELT_PREDEF(DISCR_ROUTINE))); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2275__DISCR_ROUTINE", melt_magic_discr (/*_.VALDATA___V45*/ meltfptr[44]) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2275__DISCR_ROUTINE", ((meltobject_ptr_t) (/*_.VALDATA___V45*/ meltfptr[44]))->object_magic == OBMAG_OBJECT); + cdat->dobj_2275__DISCR_ROUTINE.obj_class = (meltobject_ptr_t)(/*_.VALDATA___V45*/ meltfptr[44]); + cdat->dobj_2275__DISCR_ROUTINE.obj_num = OBMAG_ROUTINE; + cdat->dobj_2275__DISCR_ROUTINE.obj_hash = 761264629; + cdat->dobj_2275__DISCR_ROUTINE.obj_len = 5; + + /*inistring dstr_2276__DISCR_ROUTINE*/ + /*_.VALSTR___V2282*/ meltfptr[2281] = (void*)&cdat->dstr_2276__DISCR_ROUTINE; + cdat->dstr_2276__DISCR_ROUTINE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2276__DISCR_ROUTINE.val, "DISCR_ROUTINE", sizeof (cdat->dstr_2276__DISCR_ROUTINE.val)-1); + + /*inirout drout_2277__INSTALL_CTYPE_DESCR*/ + /*_.VALROUT___V2283*/ meltfptr[2282] = (void*)&cdat->drout_2277__INSTALL_CTYPE_DESCR; + cdat->drout_2277__INSTALL_CTYPE_DESCR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); + strncpy(cdat->drout_2277__INSTALL_CTYPE_DESCR.routdescr, "INSTALL_CTYPE_DESCR @warmelt-first.melt:1741", MELT_ROUTDESCR_LEN - 1); + cdat->drout_2277__INSTALL_CTYPE_DESCR.nbval = 4; + MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_2277__INSTALL_CTYPE_DESCR, meltrout_1_warmelt_first_INSTALL_CTYPE_DESCR); + + /*iniclos dclo_2278__INSTALL_CTYPE_DESCR*/ + /*_.VALCLO___V2284*/ meltfptr[2283] = (void*)&cdat->dclo_2278__INSTALL_CTYPE_DESCR; + cdat->dclo_2278__INSTALL_CTYPE_DESCR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); + cdat->dclo_2278__INSTALL_CTYPE_DESCR.nbval = 0; + + /*iniobj dsym_2279__CTYPE_VALUE*/ +/*uniqueobj*/ if (!/*_.VALDATA___V2285*/ meltfptr[2284]) /*_.VALDATA___V2285*/ meltfptr[2284] = (void*)&cdat->dsym_2279__CTYPE_VALUE; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2279__CTYPE_VALUE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2279__CTYPE_VALUE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); + cdat->dsym_2279__CTYPE_VALUE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_2279__CTYPE_VALUE.obj_hash = 11062864; + cdat->dsym_2279__CTYPE_VALUE.obj_len = 3; + + /*inistring dstr_2280__CTYPE_VALUE*/ + /*_.VALSTR___V2286*/ meltfptr[2285] = (void*)&cdat->dstr_2280__CTYPE_VALUE; + cdat->dstr_2280__CTYPE_VALUE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2280__CTYPE_VALUE.val, "CTYPE_VALUE", sizeof (cdat->dstr_2280__CTYPE_VALUE.val)-1); + + MELT_LOCATION("warmelt-first.melt:1764:/ iniobj"); + /*iniobj dobj_2281__CTYPE_VALUE*/ +if (((void*)(MELT_PREDEF(CTYPE_VALUE))) != (melt_ptr_t)&cdat->dobj_2281__CTYPE_VALUE) { melt_assertmsg("check.predef length ((void*)(MELT_PREDEF(CTYPE_VALUE)))", melt_object_length((melt_ptr_t)(((void*)(MELT_PREDEF(CTYPE_VALUE))))) >= 11); }; -/*_.VALDATA___V2269*/ meltfptr[2268] = ((void*)(MELT_PREDEF(CTYPE_VALUE))); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2263__CTYPE_VALUE", melt_magic_discr (/*_.VALDATA___V327*/ meltfptr[326]) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2263__CTYPE_VALUE", ((meltobject_ptr_t) (/*_.VALDATA___V327*/ meltfptr[326]))->object_magic == OBMAG_OBJECT); - cdat->dobj_2263__CTYPE_VALUE.obj_class = (meltobject_ptr_t)(/*_.VALDATA___V327*/ meltfptr[326]); - cdat->dobj_2263__CTYPE_VALUE.obj_hash = 50390305; - cdat->dobj_2263__CTYPE_VALUE.obj_len = 11; - - /*inistring dstr_2264__CTYPE_VALUE*/ - /*_.VALSTR___V2270*/ meltfptr[2269] = (void*)&cdat->dstr_2264__CTYPE_VALUE; - cdat->dstr_2264__CTYPE_VALUE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2264__CTYPE_VALUE.val, "CTYPE_VALUE", sizeof (cdat->dstr_2264__CTYPE_VALUE.val)-1); - - /*iniobj dsym_2265__VALUE*/ -/*uniqueobj*/ if (!/*_.VALDATA___V2271*/ meltfptr[2270]) /*_.VALDATA___V2271*/ meltfptr[2270] = (void*)&cdat->dsym_2265__VALUE; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2265__VALUE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_KEYWORD)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2265__VALUE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_KEYWORD)))))->object_magic == OBMAG_OBJECT); - cdat->dsym_2265__VALUE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_KEYWORD)))); - cdat->dsym_2265__VALUE.obj_hash = 68391938; - cdat->dsym_2265__VALUE.obj_len = 3; - - /*inistring dstr_2266__VALUE*/ - /*_.VALSTR___V2272*/ meltfptr[2271] = (void*)&cdat->dstr_2266__VALUE; - cdat->dstr_2266__VALUE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2266__VALUE.val, "VALUE", sizeof (cdat->dstr_2266__VALUE.val)-1); - - /*inistring dstr_2267__melt_ptr_t*/ - /*_.VALSTR___V2273*/ meltfptr[2272] = (void*)&cdat->dstr_2267__melt_ptr_t; - cdat->dstr_2267__melt_ptr_t.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2267__melt_ptr_t.val, "melt_ptr_t", sizeof (cdat->dstr_2267__melt_ptr_t.val)-1); - - /*inistring dstr_2268__BPAR_PTR*/ - /*_.VALSTR___V2274*/ meltfptr[2273] = (void*)&cdat->dstr_2268__BPAR_PTR; - cdat->dstr_2268__BPAR_PTR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2268__BPAR_PTR.val, "BPAR_PTR", sizeof (cdat->dstr_2268__BPAR_PTR.val)-1); - - /*inistring dstr_2269__BPARSTR_PTR*/ - /*_.VALSTR___V2275*/ meltfptr[2274] = (void*)&cdat->dstr_2269__BPARSTR_PTR; - cdat->dstr_2269__BPARSTR_PTR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2269__BPARSTR_PTR.val, "BPARSTR_PTR", sizeof (cdat->dstr_2269__BPARSTR_PTR.val)-1); - - /*inistring dstr_2270__bp_aptr*/ - /*_.VALSTR___V2276*/ meltfptr[2275] = (void*)&cdat->dstr_2270__bp_aptr; - cdat->dstr_2270__bp_aptr.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2270__bp_aptr.val, "bp_aptr", sizeof (cdat->dstr_2270__bp_aptr.val)-1); - - /*inistring dstr_2271__bp_aptr*/ - /*_.VALSTR___V2277*/ meltfptr[2276] = (void*)&cdat->dstr_2271__bp_aptr; - cdat->dstr_2271__bp_aptr.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2271__bp_aptr.val, "bp_aptr", sizeof (cdat->dstr_2271__bp_aptr.val)-1); - - /*inistring dstr_2272__gt_ggc_mx_melt_u*/ - /*_.VALSTR___V2278*/ meltfptr[2277] = (void*)&cdat->dstr_2272__gt_ggc_mx_melt_u; - cdat->dstr_2272__gt_ggc_mx_melt_u.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2272__gt_ggc_mx_melt_u.val, "gt_ggc_mx_melt_un", sizeof (cdat->dstr_2272__gt_ggc_mx_melt_u.val)-1); - - /*iniobj dsym_2273__CTYPE_LONG*/ -/*uniqueobj*/ if (!/*_.VALDATA___V2279*/ meltfptr[2278]) /*_.VALDATA___V2279*/ meltfptr[2278] = (void*)&cdat->dsym_2273__CTYPE_LONG; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2273__CTYPE_LONG", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2273__CTYPE_LONG", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); - cdat->dsym_2273__CTYPE_LONG.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_2273__CTYPE_LONG.obj_hash = 64180850; - cdat->dsym_2273__CTYPE_LONG.obj_len = 3; - - /*inistring dstr_2274__CTYPE_LONG*/ - /*_.VALSTR___V2280*/ meltfptr[2279] = (void*)&cdat->dstr_2274__CTYPE_LONG; - cdat->dstr_2274__CTYPE_LONG.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2274__CTYPE_LONG.val, "CTYPE_LONG", sizeof (cdat->dstr_2274__CTYPE_LONG.val)-1); - - MELT_LOCATION("warmelt-first.melt:1773:/ iniobj"); - /*iniobj dobj_2275__CTYPE_LONG*/ -if (((void*)(MELT_PREDEF(CTYPE_LONG))) != (melt_ptr_t)&cdat->dobj_2275__CTYPE_LONG) { +/*_.VALDATA___V2287*/ meltfptr[2286] = ((void*)(MELT_PREDEF(CTYPE_VALUE))); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2281__CTYPE_VALUE", melt_magic_discr (/*_.VALDATA___V327*/ meltfptr[326]) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2281__CTYPE_VALUE", ((meltobject_ptr_t) (/*_.VALDATA___V327*/ meltfptr[326]))->object_magic == OBMAG_OBJECT); + cdat->dobj_2281__CTYPE_VALUE.obj_class = (meltobject_ptr_t)(/*_.VALDATA___V327*/ meltfptr[326]); + cdat->dobj_2281__CTYPE_VALUE.obj_hash = 365589619; + cdat->dobj_2281__CTYPE_VALUE.obj_len = 11; + + /*inistring dstr_2282__CTYPE_VALUE*/ + /*_.VALSTR___V2288*/ meltfptr[2287] = (void*)&cdat->dstr_2282__CTYPE_VALUE; + cdat->dstr_2282__CTYPE_VALUE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2282__CTYPE_VALUE.val, "CTYPE_VALUE", sizeof (cdat->dstr_2282__CTYPE_VALUE.val)-1); + + /*iniobj dsym_2283__VALUE*/ +/*uniqueobj*/ if (!/*_.VALDATA___V2289*/ meltfptr[2288]) /*_.VALDATA___V2289*/ meltfptr[2288] = (void*)&cdat->dsym_2283__VALUE; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2283__VALUE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_KEYWORD)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2283__VALUE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_KEYWORD)))))->object_magic == OBMAG_OBJECT); + cdat->dsym_2283__VALUE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_KEYWORD)))); + cdat->dsym_2283__VALUE.obj_hash = 68391938; + cdat->dsym_2283__VALUE.obj_len = 3; + + /*inistring dstr_2284__VALUE*/ + /*_.VALSTR___V2290*/ meltfptr[2289] = (void*)&cdat->dstr_2284__VALUE; + cdat->dstr_2284__VALUE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2284__VALUE.val, "VALUE", sizeof (cdat->dstr_2284__VALUE.val)-1); + + /*inistring dstr_2285__melt_ptr_t*/ + /*_.VALSTR___V2291*/ meltfptr[2290] = (void*)&cdat->dstr_2285__melt_ptr_t; + cdat->dstr_2285__melt_ptr_t.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2285__melt_ptr_t.val, "melt_ptr_t", sizeof (cdat->dstr_2285__melt_ptr_t.val)-1); + + /*inistring dstr_2286__BPAR_PTR*/ + /*_.VALSTR___V2292*/ meltfptr[2291] = (void*)&cdat->dstr_2286__BPAR_PTR; + cdat->dstr_2286__BPAR_PTR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2286__BPAR_PTR.val, "BPAR_PTR", sizeof (cdat->dstr_2286__BPAR_PTR.val)-1); + + /*inistring dstr_2287__BPARSTR_PTR*/ + /*_.VALSTR___V2293*/ meltfptr[2292] = (void*)&cdat->dstr_2287__BPARSTR_PTR; + cdat->dstr_2287__BPARSTR_PTR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2287__BPARSTR_PTR.val, "BPARSTR_PTR", sizeof (cdat->dstr_2287__BPARSTR_PTR.val)-1); + + /*inistring dstr_2288__bp_aptr*/ + /*_.VALSTR___V2294*/ meltfptr[2293] = (void*)&cdat->dstr_2288__bp_aptr; + cdat->dstr_2288__bp_aptr.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2288__bp_aptr.val, "bp_aptr", sizeof (cdat->dstr_2288__bp_aptr.val)-1); + + /*inistring dstr_2289__bp_aptr*/ + /*_.VALSTR___V2295*/ meltfptr[2294] = (void*)&cdat->dstr_2289__bp_aptr; + cdat->dstr_2289__bp_aptr.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2289__bp_aptr.val, "bp_aptr", sizeof (cdat->dstr_2289__bp_aptr.val)-1); + + /*inistring dstr_2290__gt_ggc_mx_melt_u*/ + /*_.VALSTR___V2296*/ meltfptr[2295] = (void*)&cdat->dstr_2290__gt_ggc_mx_melt_u; + cdat->dstr_2290__gt_ggc_mx_melt_u.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2290__gt_ggc_mx_melt_u.val, "gt_ggc_mx_melt_un", sizeof (cdat->dstr_2290__gt_ggc_mx_melt_u.val)-1); + + /*iniobj dsym_2291__CTYPE_LONG*/ +/*uniqueobj*/ if (!/*_.VALDATA___V2297*/ meltfptr[2296]) /*_.VALDATA___V2297*/ meltfptr[2296] = (void*)&cdat->dsym_2291__CTYPE_LONG; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2291__CTYPE_LONG", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2291__CTYPE_LONG", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); + cdat->dsym_2291__CTYPE_LONG.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_2291__CTYPE_LONG.obj_hash = 64180850; + cdat->dsym_2291__CTYPE_LONG.obj_len = 3; + + /*inistring dstr_2292__CTYPE_LONG*/ + /*_.VALSTR___V2298*/ meltfptr[2297] = (void*)&cdat->dstr_2292__CTYPE_LONG; + cdat->dstr_2292__CTYPE_LONG.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2292__CTYPE_LONG.val, "CTYPE_LONG", sizeof (cdat->dstr_2292__CTYPE_LONG.val)-1); + + MELT_LOCATION("warmelt-first.melt:1780:/ iniobj"); + /*iniobj dobj_2293__CTYPE_LONG*/ +if (((void*)(MELT_PREDEF(CTYPE_LONG))) != (melt_ptr_t)&cdat->dobj_2293__CTYPE_LONG) { melt_assertmsg("check.predef length ((void*)(MELT_PREDEF(CTYPE_LONG)))", melt_object_length((melt_ptr_t)(((void*)(MELT_PREDEF(CTYPE_LONG))))) >= 11); }; -/*_.VALDATA___V2281*/ meltfptr[2280] = ((void*)(MELT_PREDEF(CTYPE_LONG))); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2275__CTYPE_LONG", melt_magic_discr (/*_.VALDATA___V327*/ meltfptr[326]) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2275__CTYPE_LONG", ((meltobject_ptr_t) (/*_.VALDATA___V327*/ meltfptr[326]))->object_magic == OBMAG_OBJECT); - cdat->dobj_2275__CTYPE_LONG.obj_class = (meltobject_ptr_t)(/*_.VALDATA___V327*/ meltfptr[326]); - cdat->dobj_2275__CTYPE_LONG.obj_hash = 247568006; - cdat->dobj_2275__CTYPE_LONG.obj_len = 11; - - /*inistring dstr_2276__CTYPE_LONG*/ - /*_.VALSTR___V2282*/ meltfptr[2281] = (void*)&cdat->dstr_2276__CTYPE_LONG; - cdat->dstr_2276__CTYPE_LONG.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2276__CTYPE_LONG.val, "CTYPE_LONG", sizeof (cdat->dstr_2276__CTYPE_LONG.val)-1); - - /*iniobj dsym_2277__LONG*/ -/*uniqueobj*/ if (!/*_.VALDATA___V2283*/ meltfptr[2282]) /*_.VALDATA___V2283*/ meltfptr[2282] = (void*)&cdat->dsym_2277__LONG; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2277__LONG", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_KEYWORD)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2277__LONG", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_KEYWORD)))))->object_magic == OBMAG_OBJECT); - cdat->dsym_2277__LONG.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_KEYWORD)))); - cdat->dsym_2277__LONG.obj_hash = 22911159; - cdat->dsym_2277__LONG.obj_len = 3; - - /*inistring dstr_2278__LONG*/ - /*_.VALSTR___V2284*/ meltfptr[2283] = (void*)&cdat->dstr_2278__LONG; - cdat->dstr_2278__LONG.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2278__LONG.val, "LONG", sizeof (cdat->dstr_2278__LONG.val)-1); - - /*inistring dstr_2279__long*/ - /*_.VALSTR___V2285*/ meltfptr[2284] = (void*)&cdat->dstr_2279__long; - cdat->dstr_2279__long.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2279__long.val, "long", sizeof (cdat->dstr_2279__long.val)-1); - - /*inistring dstr_2280__BPAR_LONG*/ - /*_.VALSTR___V2286*/ meltfptr[2285] = (void*)&cdat->dstr_2280__BPAR_LONG; - cdat->dstr_2280__BPAR_LONG.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2280__BPAR_LONG.val, "BPAR_LONG", sizeof (cdat->dstr_2280__BPAR_LONG.val)-1); - - /*inistring dstr_2281__BPARSTR_LONG*/ - /*_.VALSTR___V2287*/ meltfptr[2286] = (void*)&cdat->dstr_2281__BPARSTR_LONG; - cdat->dstr_2281__BPARSTR_LONG.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2281__BPARSTR_LONG.val, "BPARSTR_LONG", sizeof (cdat->dstr_2281__BPARSTR_LONG.val)-1); - - /*inistring dstr_2282__bp_long*/ - /*_.VALSTR___V2288*/ meltfptr[2287] = (void*)&cdat->dstr_2282__bp_long; - cdat->dstr_2282__bp_long.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2282__bp_long.val, "bp_long", sizeof (cdat->dstr_2282__bp_long.val)-1); - - /*inistring dstr_2283__bp_longptr*/ - /*_.VALSTR___V2289*/ meltfptr[2288] = (void*)&cdat->dstr_2283__bp_longptr; - cdat->dstr_2283__bp_longptr.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2283__bp_longptr.val, "bp_longptr", sizeof (cdat->dstr_2283__bp_longptr.val)-1); - - /*iniobj dsym_2284__CTYPE_TREE*/ -/*uniqueobj*/ if (!/*_.VALDATA___V2290*/ meltfptr[2289]) /*_.VALDATA___V2290*/ meltfptr[2289] = (void*)&cdat->dsym_2284__CTYPE_TREE; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2284__CTYPE_TREE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2284__CTYPE_TREE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); - cdat->dsym_2284__CTYPE_TREE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_2284__CTYPE_TREE.obj_hash = 93576863; - cdat->dsym_2284__CTYPE_TREE.obj_len = 3; - - /*inistring dstr_2285__CTYPE_TREE*/ - /*_.VALSTR___V2291*/ meltfptr[2290] = (void*)&cdat->dstr_2285__CTYPE_TREE; - cdat->dstr_2285__CTYPE_TREE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2285__CTYPE_TREE.val, "CTYPE_TREE", sizeof (cdat->dstr_2285__CTYPE_TREE.val)-1); - - MELT_LOCATION("warmelt-first.melt:1787:/ iniobj"); - /*iniobj dobj_2286__CTYPE_TREE*/ -if (((void*)(MELT_PREDEF(CTYPE_TREE))) != (melt_ptr_t)&cdat->dobj_2286__CTYPE_TREE) { +/*_.VALDATA___V2299*/ meltfptr[2298] = ((void*)(MELT_PREDEF(CTYPE_LONG))); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2293__CTYPE_LONG", melt_magic_discr (/*_.VALDATA___V327*/ meltfptr[326]) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2293__CTYPE_LONG", ((meltobject_ptr_t) (/*_.VALDATA___V327*/ meltfptr[326]))->object_magic == OBMAG_OBJECT); + cdat->dobj_2293__CTYPE_LONG.obj_class = (meltobject_ptr_t)(/*_.VALDATA___V327*/ meltfptr[326]); + cdat->dobj_2293__CTYPE_LONG.obj_hash = 958941375; + cdat->dobj_2293__CTYPE_LONG.obj_len = 11; + + /*inistring dstr_2294__CTYPE_LONG*/ + /*_.VALSTR___V2300*/ meltfptr[2299] = (void*)&cdat->dstr_2294__CTYPE_LONG; + cdat->dstr_2294__CTYPE_LONG.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2294__CTYPE_LONG.val, "CTYPE_LONG", sizeof (cdat->dstr_2294__CTYPE_LONG.val)-1); + + /*iniobj dsym_2295__LONG*/ +/*uniqueobj*/ if (!/*_.VALDATA___V2301*/ meltfptr[2300]) /*_.VALDATA___V2301*/ meltfptr[2300] = (void*)&cdat->dsym_2295__LONG; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2295__LONG", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_KEYWORD)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2295__LONG", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_KEYWORD)))))->object_magic == OBMAG_OBJECT); + cdat->dsym_2295__LONG.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_KEYWORD)))); + cdat->dsym_2295__LONG.obj_hash = 22911159; + cdat->dsym_2295__LONG.obj_len = 3; + + /*inistring dstr_2296__LONG*/ + /*_.VALSTR___V2302*/ meltfptr[2301] = (void*)&cdat->dstr_2296__LONG; + cdat->dstr_2296__LONG.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2296__LONG.val, "LONG", sizeof (cdat->dstr_2296__LONG.val)-1); + + /*inistring dstr_2297__long*/ + /*_.VALSTR___V2303*/ meltfptr[2302] = (void*)&cdat->dstr_2297__long; + cdat->dstr_2297__long.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2297__long.val, "long", sizeof (cdat->dstr_2297__long.val)-1); + + /*inistring dstr_2298__BPAR_LONG*/ + /*_.VALSTR___V2304*/ meltfptr[2303] = (void*)&cdat->dstr_2298__BPAR_LONG; + cdat->dstr_2298__BPAR_LONG.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2298__BPAR_LONG.val, "BPAR_LONG", sizeof (cdat->dstr_2298__BPAR_LONG.val)-1); + + /*inistring dstr_2299__BPARSTR_LONG*/ + /*_.VALSTR___V2305*/ meltfptr[2304] = (void*)&cdat->dstr_2299__BPARSTR_LONG; + cdat->dstr_2299__BPARSTR_LONG.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2299__BPARSTR_LONG.val, "BPARSTR_LONG", sizeof (cdat->dstr_2299__BPARSTR_LONG.val)-1); + + /*inistring dstr_2300__bp_long*/ + /*_.VALSTR___V2306*/ meltfptr[2305] = (void*)&cdat->dstr_2300__bp_long; + cdat->dstr_2300__bp_long.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2300__bp_long.val, "bp_long", sizeof (cdat->dstr_2300__bp_long.val)-1); + + /*inistring dstr_2301__bp_longptr*/ + /*_.VALSTR___V2307*/ meltfptr[2306] = (void*)&cdat->dstr_2301__bp_longptr; + cdat->dstr_2301__bp_longptr.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2301__bp_longptr.val, "bp_longptr", sizeof (cdat->dstr_2301__bp_longptr.val)-1); + + /*iniobj dsym_2302__CTYPE_TREE*/ +/*uniqueobj*/ if (!/*_.VALDATA___V2308*/ meltfptr[2307]) /*_.VALDATA___V2308*/ meltfptr[2307] = (void*)&cdat->dsym_2302__CTYPE_TREE; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2302__CTYPE_TREE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2302__CTYPE_TREE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); + cdat->dsym_2302__CTYPE_TREE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_2302__CTYPE_TREE.obj_hash = 93576863; + cdat->dsym_2302__CTYPE_TREE.obj_len = 3; + + /*inistring dstr_2303__CTYPE_TREE*/ + /*_.VALSTR___V2309*/ meltfptr[2308] = (void*)&cdat->dstr_2303__CTYPE_TREE; + cdat->dstr_2303__CTYPE_TREE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2303__CTYPE_TREE.val, "CTYPE_TREE", sizeof (cdat->dstr_2303__CTYPE_TREE.val)-1); + + MELT_LOCATION("warmelt-first.melt:1794:/ iniobj"); + /*iniobj dobj_2304__CTYPE_TREE*/ +if (((void*)(MELT_PREDEF(CTYPE_TREE))) != (melt_ptr_t)&cdat->dobj_2304__CTYPE_TREE) { melt_assertmsg("check.predef length ((void*)(MELT_PREDEF(CTYPE_TREE)))", melt_object_length((melt_ptr_t)(((void*)(MELT_PREDEF(CTYPE_TREE))))) >= 11); }; -/*_.VALDATA___V2292*/ meltfptr[2291] = ((void*)(MELT_PREDEF(CTYPE_TREE))); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2286__CTYPE_TREE", melt_magic_discr (/*_.VALDATA___V327*/ meltfptr[326]) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2286__CTYPE_TREE", ((meltobject_ptr_t) (/*_.VALDATA___V327*/ meltfptr[326]))->object_magic == OBMAG_OBJECT); - cdat->dobj_2286__CTYPE_TREE.obj_class = (meltobject_ptr_t)(/*_.VALDATA___V327*/ meltfptr[326]); - cdat->dobj_2286__CTYPE_TREE.obj_hash = 926567602; - cdat->dobj_2286__CTYPE_TREE.obj_len = 11; - - /*inistring dstr_2287__CTYPE_TREE*/ - /*_.VALSTR___V2293*/ meltfptr[2292] = (void*)&cdat->dstr_2287__CTYPE_TREE; - cdat->dstr_2287__CTYPE_TREE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2287__CTYPE_TREE.val, "CTYPE_TREE", sizeof (cdat->dstr_2287__CTYPE_TREE.val)-1); - - /*iniobj dsym_2288__TREE*/ -/*uniqueobj*/ if (!/*_.VALDATA___V2294*/ meltfptr[2293]) /*_.VALDATA___V2294*/ meltfptr[2293] = (void*)&cdat->dsym_2288__TREE; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2288__TREE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_KEYWORD)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2288__TREE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_KEYWORD)))))->object_magic == OBMAG_OBJECT); - cdat->dsym_2288__TREE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_KEYWORD)))); - cdat->dsym_2288__TREE.obj_hash = 114172609; - cdat->dsym_2288__TREE.obj_len = 3; - - /*inistring dstr_2289__TREE*/ - /*_.VALSTR___V2295*/ meltfptr[2294] = (void*)&cdat->dstr_2289__TREE; - cdat->dstr_2289__TREE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2289__TREE.val, "TREE", sizeof (cdat->dstr_2289__TREE.val)-1); - - /*inistring dstr_2290__tree*/ - /*_.VALSTR___V2296*/ meltfptr[2295] = (void*)&cdat->dstr_2290__tree; - cdat->dstr_2290__tree.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2290__tree.val, "tree", sizeof (cdat->dstr_2290__tree.val)-1); - - /*inistring dstr_2291__BPAR_TREE*/ - /*_.VALSTR___V2297*/ meltfptr[2296] = (void*)&cdat->dstr_2291__BPAR_TREE; - cdat->dstr_2291__BPAR_TREE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2291__BPAR_TREE.val, "BPAR_TREE", sizeof (cdat->dstr_2291__BPAR_TREE.val)-1); - - /*inistring dstr_2292__BPARSTR_TREE*/ - /*_.VALSTR___V2298*/ meltfptr[2297] = (void*)&cdat->dstr_2292__BPARSTR_TREE; - cdat->dstr_2292__BPARSTR_TREE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2292__BPARSTR_TREE.val, "BPARSTR_TREE", sizeof (cdat->dstr_2292__BPARSTR_TREE.val)-1); - - /*inistring dstr_2293__bp_tree*/ - /*_.VALSTR___V2299*/ meltfptr[2298] = (void*)&cdat->dstr_2293__bp_tree; - cdat->dstr_2293__bp_tree.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2293__bp_tree.val, "bp_tree", sizeof (cdat->dstr_2293__bp_tree.val)-1); - - /*inistring dstr_2294__bp_treeptr*/ - /*_.VALSTR___V2300*/ meltfptr[2299] = (void*)&cdat->dstr_2294__bp_treeptr; - cdat->dstr_2294__bp_treeptr.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2294__bp_treeptr.val, "bp_treeptr", sizeof (cdat->dstr_2294__bp_treeptr.val)-1); - - /*inistring dstr_2295__gt_ggc_mx_tree_n*/ - /*_.VALSTR___V2301*/ meltfptr[2300] = (void*)&cdat->dstr_2295__gt_ggc_mx_tree_n; - cdat->dstr_2295__gt_ggc_mx_tree_n.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2295__gt_ggc_mx_tree_n.val, "gt_ggc_mx_tree_node", sizeof (cdat->dstr_2295__gt_ggc_mx_tree_n.val)-1); - - /*iniobj dsym_2296__CTYPE_GIMPLE*/ -/*uniqueobj*/ if (!/*_.VALDATA___V2302*/ meltfptr[2301]) /*_.VALDATA___V2302*/ meltfptr[2301] = (void*)&cdat->dsym_2296__CTYPE_GIMPLE; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2296__CTYPE_GIMPLE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2296__CTYPE_GIMPLE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); - cdat->dsym_2296__CTYPE_GIMPLE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_2296__CTYPE_GIMPLE.obj_hash = 625493548; - cdat->dsym_2296__CTYPE_GIMPLE.obj_len = 3; - - /*inistring dstr_2297__CTYPE_GIMPLE*/ - /*_.VALSTR___V2303*/ meltfptr[2302] = (void*)&cdat->dstr_2297__CTYPE_GIMPLE; - cdat->dstr_2297__CTYPE_GIMPLE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2297__CTYPE_GIMPLE.val, "CTYPE_GIMPLE", sizeof (cdat->dstr_2297__CTYPE_GIMPLE.val)-1); - - MELT_LOCATION("warmelt-first.melt:1802:/ iniobj"); - /*iniobj dobj_2298__CTYPE_GIMPLE*/ -if (((void*)(MELT_PREDEF(CTYPE_GIMPLE))) != (melt_ptr_t)&cdat->dobj_2298__CTYPE_GIMPLE) { +/*_.VALDATA___V2310*/ meltfptr[2309] = ((void*)(MELT_PREDEF(CTYPE_TREE))); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2304__CTYPE_TREE", melt_magic_discr (/*_.VALDATA___V327*/ meltfptr[326]) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2304__CTYPE_TREE", ((meltobject_ptr_t) (/*_.VALDATA___V327*/ meltfptr[326]))->object_magic == OBMAG_OBJECT); + cdat->dobj_2304__CTYPE_TREE.obj_class = (meltobject_ptr_t)(/*_.VALDATA___V327*/ meltfptr[326]); + cdat->dobj_2304__CTYPE_TREE.obj_hash = 614939814; + cdat->dobj_2304__CTYPE_TREE.obj_len = 11; + + /*inistring dstr_2305__CTYPE_TREE*/ + /*_.VALSTR___V2311*/ meltfptr[2310] = (void*)&cdat->dstr_2305__CTYPE_TREE; + cdat->dstr_2305__CTYPE_TREE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2305__CTYPE_TREE.val, "CTYPE_TREE", sizeof (cdat->dstr_2305__CTYPE_TREE.val)-1); + + /*iniobj dsym_2306__TREE*/ +/*uniqueobj*/ if (!/*_.VALDATA___V2312*/ meltfptr[2311]) /*_.VALDATA___V2312*/ meltfptr[2311] = (void*)&cdat->dsym_2306__TREE; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2306__TREE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_KEYWORD)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2306__TREE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_KEYWORD)))))->object_magic == OBMAG_OBJECT); + cdat->dsym_2306__TREE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_KEYWORD)))); + cdat->dsym_2306__TREE.obj_hash = 114172609; + cdat->dsym_2306__TREE.obj_len = 3; + + /*inistring dstr_2307__TREE*/ + /*_.VALSTR___V2313*/ meltfptr[2312] = (void*)&cdat->dstr_2307__TREE; + cdat->dstr_2307__TREE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2307__TREE.val, "TREE", sizeof (cdat->dstr_2307__TREE.val)-1); + + /*inistring dstr_2308__tree*/ + /*_.VALSTR___V2314*/ meltfptr[2313] = (void*)&cdat->dstr_2308__tree; + cdat->dstr_2308__tree.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2308__tree.val, "tree", sizeof (cdat->dstr_2308__tree.val)-1); + + /*inistring dstr_2309__BPAR_TREE*/ + /*_.VALSTR___V2315*/ meltfptr[2314] = (void*)&cdat->dstr_2309__BPAR_TREE; + cdat->dstr_2309__BPAR_TREE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2309__BPAR_TREE.val, "BPAR_TREE", sizeof (cdat->dstr_2309__BPAR_TREE.val)-1); + + /*inistring dstr_2310__BPARSTR_TREE*/ + /*_.VALSTR___V2316*/ meltfptr[2315] = (void*)&cdat->dstr_2310__BPARSTR_TREE; + cdat->dstr_2310__BPARSTR_TREE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2310__BPARSTR_TREE.val, "BPARSTR_TREE", sizeof (cdat->dstr_2310__BPARSTR_TREE.val)-1); + + /*inistring dstr_2311__bp_tree*/ + /*_.VALSTR___V2317*/ meltfptr[2316] = (void*)&cdat->dstr_2311__bp_tree; + cdat->dstr_2311__bp_tree.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2311__bp_tree.val, "bp_tree", sizeof (cdat->dstr_2311__bp_tree.val)-1); + + /*inistring dstr_2312__bp_treeptr*/ + /*_.VALSTR___V2318*/ meltfptr[2317] = (void*)&cdat->dstr_2312__bp_treeptr; + cdat->dstr_2312__bp_treeptr.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2312__bp_treeptr.val, "bp_treeptr", sizeof (cdat->dstr_2312__bp_treeptr.val)-1); + + /*inistring dstr_2313__gt_ggc_mx_tree_n*/ + /*_.VALSTR___V2319*/ meltfptr[2318] = (void*)&cdat->dstr_2313__gt_ggc_mx_tree_n; + cdat->dstr_2313__gt_ggc_mx_tree_n.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2313__gt_ggc_mx_tree_n.val, "gt_ggc_mx_tree_node", sizeof (cdat->dstr_2313__gt_ggc_mx_tree_n.val)-1); + + /*iniobj dsym_2314__CTYPE_GIMPLE*/ +/*uniqueobj*/ if (!/*_.VALDATA___V2320*/ meltfptr[2319]) /*_.VALDATA___V2320*/ meltfptr[2319] = (void*)&cdat->dsym_2314__CTYPE_GIMPLE; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2314__CTYPE_GIMPLE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2314__CTYPE_GIMPLE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); + cdat->dsym_2314__CTYPE_GIMPLE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_2314__CTYPE_GIMPLE.obj_hash = 625493548; + cdat->dsym_2314__CTYPE_GIMPLE.obj_len = 3; + + /*inistring dstr_2315__CTYPE_GIMPLE*/ + /*_.VALSTR___V2321*/ meltfptr[2320] = (void*)&cdat->dstr_2315__CTYPE_GIMPLE; + cdat->dstr_2315__CTYPE_GIMPLE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2315__CTYPE_GIMPLE.val, "CTYPE_GIMPLE", sizeof (cdat->dstr_2315__CTYPE_GIMPLE.val)-1); + + MELT_LOCATION("warmelt-first.melt:1809:/ iniobj"); + /*iniobj dobj_2316__CTYPE_GIMPLE*/ +if (((void*)(MELT_PREDEF(CTYPE_GIMPLE))) != (melt_ptr_t)&cdat->dobj_2316__CTYPE_GIMPLE) { melt_assertmsg("check.predef length ((void*)(MELT_PREDEF(CTYPE_GIMPLE)))", melt_object_length((melt_ptr_t)(((void*)(MELT_PREDEF(CTYPE_GIMPLE))))) >= 11); }; -/*_.VALDATA___V2304*/ meltfptr[2303] = ((void*)(MELT_PREDEF(CTYPE_GIMPLE))); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2298__CTYPE_GIMPLE", melt_magic_discr (/*_.VALDATA___V327*/ meltfptr[326]) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2298__CTYPE_GIMPLE", ((meltobject_ptr_t) (/*_.VALDATA___V327*/ meltfptr[326]))->object_magic == OBMAG_OBJECT); - cdat->dobj_2298__CTYPE_GIMPLE.obj_class = (meltobject_ptr_t)(/*_.VALDATA___V327*/ meltfptr[326]); - cdat->dobj_2298__CTYPE_GIMPLE.obj_hash = 379808729; - cdat->dobj_2298__CTYPE_GIMPLE.obj_len = 11; - - /*inistring dstr_2299__CTYPE_GIMPLE*/ - /*_.VALSTR___V2305*/ meltfptr[2304] = (void*)&cdat->dstr_2299__CTYPE_GIMPLE; - cdat->dstr_2299__CTYPE_GIMPLE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2299__CTYPE_GIMPLE.val, "CTYPE_GIMPLE", sizeof (cdat->dstr_2299__CTYPE_GIMPLE.val)-1); - - /*iniobj dsym_2300__GIMPLE*/ -/*uniqueobj*/ if (!/*_.VALDATA___V2306*/ meltfptr[2305]) /*_.VALDATA___V2306*/ meltfptr[2305] = (void*)&cdat->dsym_2300__GIMPLE; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2300__GIMPLE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_KEYWORD)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2300__GIMPLE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_KEYWORD)))))->object_magic == OBMAG_OBJECT); - cdat->dsym_2300__GIMPLE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_KEYWORD)))); - cdat->dsym_2300__GIMPLE.obj_hash = 236556636; - cdat->dsym_2300__GIMPLE.obj_len = 3; - - /*inistring dstr_2301__GIMPLE*/ - /*_.VALSTR___V2307*/ meltfptr[2306] = (void*)&cdat->dstr_2301__GIMPLE; - cdat->dstr_2301__GIMPLE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2301__GIMPLE.val, "GIMPLE", sizeof (cdat->dstr_2301__GIMPLE.val)-1); - - /*inistring dstr_2302__gimple*/ - /*_.VALSTR___V2308*/ meltfptr[2307] = (void*)&cdat->dstr_2302__gimple; - cdat->dstr_2302__gimple.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2302__gimple.val, "gimple", sizeof (cdat->dstr_2302__gimple.val)-1); - - /*inistring dstr_2303__BPAR_GIMPLE*/ - /*_.VALSTR___V2309*/ meltfptr[2308] = (void*)&cdat->dstr_2303__BPAR_GIMPLE; - cdat->dstr_2303__BPAR_GIMPLE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2303__BPAR_GIMPLE.val, "BPAR_GIMPLE", sizeof (cdat->dstr_2303__BPAR_GIMPLE.val)-1); - - /*inistring dstr_2304__BPARSTR_GIMPLE*/ - /*_.VALSTR___V2310*/ meltfptr[2309] = (void*)&cdat->dstr_2304__BPARSTR_GIMPLE; - cdat->dstr_2304__BPARSTR_GIMPLE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2304__BPARSTR_GIMPLE.val, "BPARSTR_GIMPLE", sizeof (cdat->dstr_2304__BPARSTR_GIMPLE.val)-1); - - /*inistring dstr_2305__bp_gimple*/ - /*_.VALSTR___V2311*/ meltfptr[2310] = (void*)&cdat->dstr_2305__bp_gimple; - cdat->dstr_2305__bp_gimple.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2305__bp_gimple.val, "bp_gimple", sizeof (cdat->dstr_2305__bp_gimple.val)-1); - - /*inistring dstr_2306__bp_gimpleptr*/ - /*_.VALSTR___V2312*/ meltfptr[2311] = (void*)&cdat->dstr_2306__bp_gimpleptr; - cdat->dstr_2306__bp_gimpleptr.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2306__bp_gimpleptr.val, "bp_gimpleptr", sizeof (cdat->dstr_2306__bp_gimpleptr.val)-1); - - /*inistring dstr_2307__gt_ggc_mx_gimple*/ - /*_.VALSTR___V2313*/ meltfptr[2312] = (void*)&cdat->dstr_2307__gt_ggc_mx_gimple; - cdat->dstr_2307__gt_ggc_mx_gimple.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2307__gt_ggc_mx_gimple.val, "gt_ggc_mx_gimple_statement_d", sizeof (cdat->dstr_2307__gt_ggc_mx_gimple.val)-1); - - /*iniobj dsym_2308__CTYPE_GIMPLE_SEQ*/ -/*uniqueobj*/ if (!/*_.VALDATA___V2314*/ meltfptr[2313]) /*_.VALDATA___V2314*/ meltfptr[2313] = (void*)&cdat->dsym_2308__CTYPE_GIMPLE_SEQ; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2308__CTYPE_GIMPLE_SEQ", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2308__CTYPE_GIMPLE_SEQ", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); - cdat->dsym_2308__CTYPE_GIMPLE_SEQ.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_2308__CTYPE_GIMPLE_SEQ.obj_hash = 455098616; - cdat->dsym_2308__CTYPE_GIMPLE_SEQ.obj_len = 3; - - /*inistring dstr_2309__CTYPE_GIMPLE_SEQ*/ - /*_.VALSTR___V2315*/ meltfptr[2314] = (void*)&cdat->dstr_2309__CTYPE_GIMPLE_SEQ; - cdat->dstr_2309__CTYPE_GIMPLE_SEQ.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2309__CTYPE_GIMPLE_SEQ.val, "CTYPE_GIMPLE_SEQ", sizeof (cdat->dstr_2309__CTYPE_GIMPLE_SEQ.val)-1); - - MELT_LOCATION("warmelt-first.melt:1817:/ iniobj"); - /*iniobj dobj_2310__CTYPE_GIMPLE_SEQ*/ -if (((void*)(MELT_PREDEF(CTYPE_GIMPLE_SEQ))) != (melt_ptr_t)&cdat->dobj_2310__CTYPE_GIMPLE_SEQ) { +/*_.VALDATA___V2322*/ meltfptr[2321] = ((void*)(MELT_PREDEF(CTYPE_GIMPLE))); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2316__CTYPE_GIMPLE", melt_magic_discr (/*_.VALDATA___V327*/ meltfptr[326]) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2316__CTYPE_GIMPLE", ((meltobject_ptr_t) (/*_.VALDATA___V327*/ meltfptr[326]))->object_magic == OBMAG_OBJECT); + cdat->dobj_2316__CTYPE_GIMPLE.obj_class = (meltobject_ptr_t)(/*_.VALDATA___V327*/ meltfptr[326]); + cdat->dobj_2316__CTYPE_GIMPLE.obj_hash = 123208239; + cdat->dobj_2316__CTYPE_GIMPLE.obj_len = 11; + + /*inistring dstr_2317__CTYPE_GIMPLE*/ + /*_.VALSTR___V2323*/ meltfptr[2322] = (void*)&cdat->dstr_2317__CTYPE_GIMPLE; + cdat->dstr_2317__CTYPE_GIMPLE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2317__CTYPE_GIMPLE.val, "CTYPE_GIMPLE", sizeof (cdat->dstr_2317__CTYPE_GIMPLE.val)-1); + + /*iniobj dsym_2318__GIMPLE*/ +/*uniqueobj*/ if (!/*_.VALDATA___V2324*/ meltfptr[2323]) /*_.VALDATA___V2324*/ meltfptr[2323] = (void*)&cdat->dsym_2318__GIMPLE; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2318__GIMPLE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_KEYWORD)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2318__GIMPLE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_KEYWORD)))))->object_magic == OBMAG_OBJECT); + cdat->dsym_2318__GIMPLE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_KEYWORD)))); + cdat->dsym_2318__GIMPLE.obj_hash = 236556636; + cdat->dsym_2318__GIMPLE.obj_len = 3; + + /*inistring dstr_2319__GIMPLE*/ + /*_.VALSTR___V2325*/ meltfptr[2324] = (void*)&cdat->dstr_2319__GIMPLE; + cdat->dstr_2319__GIMPLE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2319__GIMPLE.val, "GIMPLE", sizeof (cdat->dstr_2319__GIMPLE.val)-1); + + /*inistring dstr_2320__gimple*/ + /*_.VALSTR___V2326*/ meltfptr[2325] = (void*)&cdat->dstr_2320__gimple; + cdat->dstr_2320__gimple.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2320__gimple.val, "gimple", sizeof (cdat->dstr_2320__gimple.val)-1); + + /*inistring dstr_2321__BPAR_GIMPLE*/ + /*_.VALSTR___V2327*/ meltfptr[2326] = (void*)&cdat->dstr_2321__BPAR_GIMPLE; + cdat->dstr_2321__BPAR_GIMPLE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2321__BPAR_GIMPLE.val, "BPAR_GIMPLE", sizeof (cdat->dstr_2321__BPAR_GIMPLE.val)-1); + + /*inistring dstr_2322__BPARSTR_GIMPLE*/ + /*_.VALSTR___V2328*/ meltfptr[2327] = (void*)&cdat->dstr_2322__BPARSTR_GIMPLE; + cdat->dstr_2322__BPARSTR_GIMPLE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2322__BPARSTR_GIMPLE.val, "BPARSTR_GIMPLE", sizeof (cdat->dstr_2322__BPARSTR_GIMPLE.val)-1); + + /*inistring dstr_2323__bp_gimple*/ + /*_.VALSTR___V2329*/ meltfptr[2328] = (void*)&cdat->dstr_2323__bp_gimple; + cdat->dstr_2323__bp_gimple.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2323__bp_gimple.val, "bp_gimple", sizeof (cdat->dstr_2323__bp_gimple.val)-1); + + /*inistring dstr_2324__bp_gimpleptr*/ + /*_.VALSTR___V2330*/ meltfptr[2329] = (void*)&cdat->dstr_2324__bp_gimpleptr; + cdat->dstr_2324__bp_gimpleptr.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2324__bp_gimpleptr.val, "bp_gimpleptr", sizeof (cdat->dstr_2324__bp_gimpleptr.val)-1); + + /*inistring dstr_2325__gt_ggc_mx_gimple*/ + /*_.VALSTR___V2331*/ meltfptr[2330] = (void*)&cdat->dstr_2325__gt_ggc_mx_gimple; + cdat->dstr_2325__gt_ggc_mx_gimple.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2325__gt_ggc_mx_gimple.val, "gt_ggc_mx_gimple_statement_d", sizeof (cdat->dstr_2325__gt_ggc_mx_gimple.val)-1); + + /*iniobj dsym_2326__CTYPE_GIMPLE_SEQ*/ +/*uniqueobj*/ if (!/*_.VALDATA___V2332*/ meltfptr[2331]) /*_.VALDATA___V2332*/ meltfptr[2331] = (void*)&cdat->dsym_2326__CTYPE_GIMPLE_SEQ; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2326__CTYPE_GIMPLE_SEQ", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2326__CTYPE_GIMPLE_SEQ", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); + cdat->dsym_2326__CTYPE_GIMPLE_SEQ.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_2326__CTYPE_GIMPLE_SEQ.obj_hash = 455098616; + cdat->dsym_2326__CTYPE_GIMPLE_SEQ.obj_len = 3; + + /*inistring dstr_2327__CTYPE_GIMPLE_SEQ*/ + /*_.VALSTR___V2333*/ meltfptr[2332] = (void*)&cdat->dstr_2327__CTYPE_GIMPLE_SEQ; + cdat->dstr_2327__CTYPE_GIMPLE_SEQ.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2327__CTYPE_GIMPLE_SEQ.val, "CTYPE_GIMPLE_SEQ", sizeof (cdat->dstr_2327__CTYPE_GIMPLE_SEQ.val)-1); + + MELT_LOCATION("warmelt-first.melt:1824:/ iniobj"); + /*iniobj dobj_2328__CTYPE_GIMPLE_SEQ*/ +if (((void*)(MELT_PREDEF(CTYPE_GIMPLE_SEQ))) != (melt_ptr_t)&cdat->dobj_2328__CTYPE_GIMPLE_SEQ) { melt_assertmsg("check.predef length ((void*)(MELT_PREDEF(CTYPE_GIMPLE_SEQ)))", melt_object_length((melt_ptr_t)(((void*)(MELT_PREDEF(CTYPE_GIMPLE_SEQ))))) >= 11); }; -/*_.VALDATA___V2316*/ meltfptr[2315] = ((void*)(MELT_PREDEF(CTYPE_GIMPLE_SEQ))); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2310__CTYPE_GIMPLE_SEQ", melt_magic_discr (/*_.VALDATA___V327*/ meltfptr[326]) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2310__CTYPE_GIMPLE_SEQ", ((meltobject_ptr_t) (/*_.VALDATA___V327*/ meltfptr[326]))->object_magic == OBMAG_OBJECT); - cdat->dobj_2310__CTYPE_GIMPLE_SEQ.obj_class = (meltobject_ptr_t)(/*_.VALDATA___V327*/ meltfptr[326]); - cdat->dobj_2310__CTYPE_GIMPLE_SEQ.obj_hash = 724490467; - cdat->dobj_2310__CTYPE_GIMPLE_SEQ.obj_len = 11; - - /*inistring dstr_2311__CTYPE_GIMPLE_SEQ*/ - /*_.VALSTR___V2317*/ meltfptr[2316] = (void*)&cdat->dstr_2311__CTYPE_GIMPLE_SEQ; - cdat->dstr_2311__CTYPE_GIMPLE_SEQ.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2311__CTYPE_GIMPLE_SEQ.val, "CTYPE_GIMPLE_SEQ", sizeof (cdat->dstr_2311__CTYPE_GIMPLE_SEQ.val)-1); - - /*iniobj dsym_2312__GIMPLE_SEQ*/ -/*uniqueobj*/ if (!/*_.VALDATA___V2318*/ meltfptr[2317]) /*_.VALDATA___V2318*/ meltfptr[2317] = (void*)&cdat->dsym_2312__GIMPLE_SEQ; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2312__GIMPLE_SEQ", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_KEYWORD)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2312__GIMPLE_SEQ", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_KEYWORD)))))->object_magic == OBMAG_OBJECT); - cdat->dsym_2312__GIMPLE_SEQ.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_KEYWORD)))); - cdat->dsym_2312__GIMPLE_SEQ.obj_hash = 547996591; - cdat->dsym_2312__GIMPLE_SEQ.obj_len = 3; - - /*inistring dstr_2313__GIMPLE_SEQ*/ - /*_.VALSTR___V2319*/ meltfptr[2318] = (void*)&cdat->dstr_2313__GIMPLE_SEQ; - cdat->dstr_2313__GIMPLE_SEQ.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2313__GIMPLE_SEQ.val, "GIMPLE_SEQ", sizeof (cdat->dstr_2313__GIMPLE_SEQ.val)-1); - - /*inistring dstr_2314__gimple_seq*/ - /*_.VALSTR___V2320*/ meltfptr[2319] = (void*)&cdat->dstr_2314__gimple_seq; - cdat->dstr_2314__gimple_seq.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2314__gimple_seq.val, "gimple_seq", sizeof (cdat->dstr_2314__gimple_seq.val)-1); - - /*inistring dstr_2315__BPAR_GIMPLESEQ*/ - /*_.VALSTR___V2321*/ meltfptr[2320] = (void*)&cdat->dstr_2315__BPAR_GIMPLESEQ; - cdat->dstr_2315__BPAR_GIMPLESEQ.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2315__BPAR_GIMPLESEQ.val, "BPAR_GIMPLESEQ", sizeof (cdat->dstr_2315__BPAR_GIMPLESEQ.val)-1); - - /*inistring dstr_2316__BPARSTR_GIMPLESE*/ - /*_.VALSTR___V2322*/ meltfptr[2321] = (void*)&cdat->dstr_2316__BPARSTR_GIMPLESE; - cdat->dstr_2316__BPARSTR_GIMPLESE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2316__BPARSTR_GIMPLESE.val, "BPARSTR_GIMPLESEQ", sizeof (cdat->dstr_2316__BPARSTR_GIMPLESE.val)-1); - - /*inistring dstr_2317__bp_gimpleseq*/ - /*_.VALSTR___V2323*/ meltfptr[2322] = (void*)&cdat->dstr_2317__bp_gimpleseq; - cdat->dstr_2317__bp_gimpleseq.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2317__bp_gimpleseq.val, "bp_gimpleseq", sizeof (cdat->dstr_2317__bp_gimpleseq.val)-1); - - /*inistring dstr_2318__bp_gimpleseqptr*/ - /*_.VALSTR___V2324*/ meltfptr[2323] = (void*)&cdat->dstr_2318__bp_gimpleseqptr; - cdat->dstr_2318__bp_gimpleseqptr.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2318__bp_gimpleseqptr.val, "bp_gimpleseqptr", sizeof (cdat->dstr_2318__bp_gimpleseqptr.val)-1); - - /*inistring dstr_2319__gt_ggc_mx_gimple*/ - /*_.VALSTR___V2325*/ meltfptr[2324] = (void*)&cdat->dstr_2319__gt_ggc_mx_gimple; - cdat->dstr_2319__gt_ggc_mx_gimple.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2319__gt_ggc_mx_gimple.val, "gt_ggc_mx_gimple_seq_d", sizeof (cdat->dstr_2319__gt_ggc_mx_gimple.val)-1); - - /*iniobj dsym_2320__CTYPE_BASIC_BLOCK*/ -/*uniqueobj*/ if (!/*_.VALDATA___V2326*/ meltfptr[2325]) /*_.VALDATA___V2326*/ meltfptr[2325] = (void*)&cdat->dsym_2320__CTYPE_BASIC_BLOCK; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2320__CTYPE_BASIC_BLOCK", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2320__CTYPE_BASIC_BLOCK", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); - cdat->dsym_2320__CTYPE_BASIC_BLOCK.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_2320__CTYPE_BASIC_BLOCK.obj_hash = 344797451; - cdat->dsym_2320__CTYPE_BASIC_BLOCK.obj_len = 3; - - /*inistring dstr_2321__CTYPE_BASIC_BLOC*/ - /*_.VALSTR___V2327*/ meltfptr[2326] = (void*)&cdat->dstr_2321__CTYPE_BASIC_BLOC; - cdat->dstr_2321__CTYPE_BASIC_BLOC.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2321__CTYPE_BASIC_BLOC.val, "CTYPE_BASIC_BLOCK", sizeof (cdat->dstr_2321__CTYPE_BASIC_BLOC.val)-1); - - MELT_LOCATION("warmelt-first.melt:1834:/ iniobj"); - /*iniobj dobj_2322__CTYPE_BASIC_BLOCK*/ -if (((void*)(MELT_PREDEF(CTYPE_BASIC_BLOCK))) != (melt_ptr_t)&cdat->dobj_2322__CTYPE_BASIC_BLOCK) { +/*_.VALDATA___V2334*/ meltfptr[2333] = ((void*)(MELT_PREDEF(CTYPE_GIMPLE_SEQ))); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2328__CTYPE_GIMPLE_SEQ", melt_magic_discr (/*_.VALDATA___V327*/ meltfptr[326]) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2328__CTYPE_GIMPLE_SEQ", ((meltobject_ptr_t) (/*_.VALDATA___V327*/ meltfptr[326]))->object_magic == OBMAG_OBJECT); + cdat->dobj_2328__CTYPE_GIMPLE_SEQ.obj_class = (meltobject_ptr_t)(/*_.VALDATA___V327*/ meltfptr[326]); + cdat->dobj_2328__CTYPE_GIMPLE_SEQ.obj_hash = 539152679; + cdat->dobj_2328__CTYPE_GIMPLE_SEQ.obj_len = 11; + + /*inistring dstr_2329__CTYPE_GIMPLE_SEQ*/ + /*_.VALSTR___V2335*/ meltfptr[2334] = (void*)&cdat->dstr_2329__CTYPE_GIMPLE_SEQ; + cdat->dstr_2329__CTYPE_GIMPLE_SEQ.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2329__CTYPE_GIMPLE_SEQ.val, "CTYPE_GIMPLE_SEQ", sizeof (cdat->dstr_2329__CTYPE_GIMPLE_SEQ.val)-1); + + /*iniobj dsym_2330__GIMPLE_SEQ*/ +/*uniqueobj*/ if (!/*_.VALDATA___V2336*/ meltfptr[2335]) /*_.VALDATA___V2336*/ meltfptr[2335] = (void*)&cdat->dsym_2330__GIMPLE_SEQ; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2330__GIMPLE_SEQ", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_KEYWORD)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2330__GIMPLE_SEQ", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_KEYWORD)))))->object_magic == OBMAG_OBJECT); + cdat->dsym_2330__GIMPLE_SEQ.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_KEYWORD)))); + cdat->dsym_2330__GIMPLE_SEQ.obj_hash = 547996591; + cdat->dsym_2330__GIMPLE_SEQ.obj_len = 3; + + /*inistring dstr_2331__GIMPLE_SEQ*/ + /*_.VALSTR___V2337*/ meltfptr[2336] = (void*)&cdat->dstr_2331__GIMPLE_SEQ; + cdat->dstr_2331__GIMPLE_SEQ.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2331__GIMPLE_SEQ.val, "GIMPLE_SEQ", sizeof (cdat->dstr_2331__GIMPLE_SEQ.val)-1); + + /*inistring dstr_2332__gimple_seq*/ + /*_.VALSTR___V2338*/ meltfptr[2337] = (void*)&cdat->dstr_2332__gimple_seq; + cdat->dstr_2332__gimple_seq.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2332__gimple_seq.val, "gimple_seq", sizeof (cdat->dstr_2332__gimple_seq.val)-1); + + /*inistring dstr_2333__BPAR_GIMPLESEQ*/ + /*_.VALSTR___V2339*/ meltfptr[2338] = (void*)&cdat->dstr_2333__BPAR_GIMPLESEQ; + cdat->dstr_2333__BPAR_GIMPLESEQ.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2333__BPAR_GIMPLESEQ.val, "BPAR_GIMPLESEQ", sizeof (cdat->dstr_2333__BPAR_GIMPLESEQ.val)-1); + + /*inistring dstr_2334__BPARSTR_GIMPLESE*/ + /*_.VALSTR___V2340*/ meltfptr[2339] = (void*)&cdat->dstr_2334__BPARSTR_GIMPLESE; + cdat->dstr_2334__BPARSTR_GIMPLESE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2334__BPARSTR_GIMPLESE.val, "BPARSTR_GIMPLESEQ", sizeof (cdat->dstr_2334__BPARSTR_GIMPLESE.val)-1); + + /*inistring dstr_2335__bp_gimpleseq*/ + /*_.VALSTR___V2341*/ meltfptr[2340] = (void*)&cdat->dstr_2335__bp_gimpleseq; + cdat->dstr_2335__bp_gimpleseq.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2335__bp_gimpleseq.val, "bp_gimpleseq", sizeof (cdat->dstr_2335__bp_gimpleseq.val)-1); + + /*inistring dstr_2336__bp_gimpleseqptr*/ + /*_.VALSTR___V2342*/ meltfptr[2341] = (void*)&cdat->dstr_2336__bp_gimpleseqptr; + cdat->dstr_2336__bp_gimpleseqptr.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2336__bp_gimpleseqptr.val, "bp_gimpleseqptr", sizeof (cdat->dstr_2336__bp_gimpleseqptr.val)-1); + + /*inistring dstr_2337__gt_ggc_mx_gimple*/ + /*_.VALSTR___V2343*/ meltfptr[2342] = (void*)&cdat->dstr_2337__gt_ggc_mx_gimple; + cdat->dstr_2337__gt_ggc_mx_gimple.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2337__gt_ggc_mx_gimple.val, "gt_ggc_mx_gimple_seq_d", sizeof (cdat->dstr_2337__gt_ggc_mx_gimple.val)-1); + + /*iniobj dsym_2338__CTYPE_BASIC_BLOCK*/ +/*uniqueobj*/ if (!/*_.VALDATA___V2344*/ meltfptr[2343]) /*_.VALDATA___V2344*/ meltfptr[2343] = (void*)&cdat->dsym_2338__CTYPE_BASIC_BLOCK; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2338__CTYPE_BASIC_BLOCK", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2338__CTYPE_BASIC_BLOCK", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); + cdat->dsym_2338__CTYPE_BASIC_BLOCK.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_2338__CTYPE_BASIC_BLOCK.obj_hash = 344797451; + cdat->dsym_2338__CTYPE_BASIC_BLOCK.obj_len = 3; + + /*inistring dstr_2339__CTYPE_BASIC_BLOC*/ + /*_.VALSTR___V2345*/ meltfptr[2344] = (void*)&cdat->dstr_2339__CTYPE_BASIC_BLOC; + cdat->dstr_2339__CTYPE_BASIC_BLOC.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2339__CTYPE_BASIC_BLOC.val, "CTYPE_BASIC_BLOCK", sizeof (cdat->dstr_2339__CTYPE_BASIC_BLOC.val)-1); + + MELT_LOCATION("warmelt-first.melt:1841:/ iniobj"); + /*iniobj dobj_2340__CTYPE_BASIC_BLOCK*/ +if (((void*)(MELT_PREDEF(CTYPE_BASIC_BLOCK))) != (melt_ptr_t)&cdat->dobj_2340__CTYPE_BASIC_BLOCK) { melt_assertmsg("check.predef length ((void*)(MELT_PREDEF(CTYPE_BASIC_BLOCK)))", melt_object_length((melt_ptr_t)(((void*)(MELT_PREDEF(CTYPE_BASIC_BLOCK))))) >= 11); }; -/*_.VALDATA___V2328*/ meltfptr[2327] = ((void*)(MELT_PREDEF(CTYPE_BASIC_BLOCK))); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2322__CTYPE_BASIC_BLOCK", melt_magic_discr (/*_.VALDATA___V327*/ meltfptr[326]) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2322__CTYPE_BASIC_BLOCK", ((meltobject_ptr_t) (/*_.VALDATA___V327*/ meltfptr[326]))->object_magic == OBMAG_OBJECT); - cdat->dobj_2322__CTYPE_BASIC_BLOCK.obj_class = (meltobject_ptr_t)(/*_.VALDATA___V327*/ meltfptr[326]); - cdat->dobj_2322__CTYPE_BASIC_BLOCK.obj_hash = 710360929; - cdat->dobj_2322__CTYPE_BASIC_BLOCK.obj_len = 11; - - /*inistring dstr_2323__CTYPE_BASIC_BLOC*/ - /*_.VALSTR___V2329*/ meltfptr[2328] = (void*)&cdat->dstr_2323__CTYPE_BASIC_BLOC; - cdat->dstr_2323__CTYPE_BASIC_BLOC.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2323__CTYPE_BASIC_BLOC.val, "CTYPE_BASIC_BLOCK", sizeof (cdat->dstr_2323__CTYPE_BASIC_BLOC.val)-1); - - /*iniobj dsym_2324__BASIC_BLOCK*/ -/*uniqueobj*/ if (!/*_.VALDATA___V2330*/ meltfptr[2329]) /*_.VALDATA___V2330*/ meltfptr[2329] = (void*)&cdat->dsym_2324__BASIC_BLOCK; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2324__BASIC_BLOCK", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_KEYWORD)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2324__BASIC_BLOCK", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_KEYWORD)))))->object_magic == OBMAG_OBJECT); - cdat->dsym_2324__BASIC_BLOCK.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_KEYWORD)))); - cdat->dsym_2324__BASIC_BLOCK.obj_hash = 760231711; - cdat->dsym_2324__BASIC_BLOCK.obj_len = 3; - - /*inistring dstr_2325__BASIC_BLOCK*/ - /*_.VALSTR___V2331*/ meltfptr[2330] = (void*)&cdat->dstr_2325__BASIC_BLOCK; - cdat->dstr_2325__BASIC_BLOCK.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2325__BASIC_BLOCK.val, "BASIC_BLOCK", sizeof (cdat->dstr_2325__BASIC_BLOCK.val)-1); - - /*inistring dstr_2326__basic_block*/ - /*_.VALSTR___V2332*/ meltfptr[2331] = (void*)&cdat->dstr_2326__basic_block; - cdat->dstr_2326__basic_block.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2326__basic_block.val, "basic_block", sizeof (cdat->dstr_2326__basic_block.val)-1); - - /*inistring dstr_2327__BPAR_BB*/ - /*_.VALSTR___V2333*/ meltfptr[2332] = (void*)&cdat->dstr_2327__BPAR_BB; - cdat->dstr_2327__BPAR_BB.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2327__BPAR_BB.val, "BPAR_BB", sizeof (cdat->dstr_2327__BPAR_BB.val)-1); - - /*inistring dstr_2328__BPARSTR_BB*/ - /*_.VALSTR___V2334*/ meltfptr[2333] = (void*)&cdat->dstr_2328__BPARSTR_BB; - cdat->dstr_2328__BPARSTR_BB.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2328__BPARSTR_BB.val, "BPARSTR_BB", sizeof (cdat->dstr_2328__BPARSTR_BB.val)-1); - - /*inistring dstr_2329__bp_bb*/ - /*_.VALSTR___V2335*/ meltfptr[2334] = (void*)&cdat->dstr_2329__bp_bb; - cdat->dstr_2329__bp_bb.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2329__bp_bb.val, "bp_bb", sizeof (cdat->dstr_2329__bp_bb.val)-1); - - /*inistring dstr_2330__bp_bbptr*/ - /*_.VALSTR___V2336*/ meltfptr[2335] = (void*)&cdat->dstr_2330__bp_bbptr; - cdat->dstr_2330__bp_bbptr.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2330__bp_bbptr.val, "bp_bbptr", sizeof (cdat->dstr_2330__bp_bbptr.val)-1); - - /*inistring dstr_2331__gt_ggc_mx_basic_*/ - /*_.VALSTR___V2337*/ meltfptr[2336] = (void*)&cdat->dstr_2331__gt_ggc_mx_basic_; - cdat->dstr_2331__gt_ggc_mx_basic_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2331__gt_ggc_mx_basic_.val, "gt_ggc_mx_basic_block_def", sizeof (cdat->dstr_2331__gt_ggc_mx_basic_.val)-1); - - /*iniobj dsym_2332__CTYPE_EDGE*/ -/*uniqueobj*/ if (!/*_.VALDATA___V2338*/ meltfptr[2337]) /*_.VALDATA___V2338*/ meltfptr[2337] = (void*)&cdat->dsym_2332__CTYPE_EDGE; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2332__CTYPE_EDGE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2332__CTYPE_EDGE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); - cdat->dsym_2332__CTYPE_EDGE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_2332__CTYPE_EDGE.obj_hash = 959535633; - cdat->dsym_2332__CTYPE_EDGE.obj_len = 3; - - /*inistring dstr_2333__CTYPE_EDGE*/ - /*_.VALSTR___V2339*/ meltfptr[2338] = (void*)&cdat->dstr_2333__CTYPE_EDGE; - cdat->dstr_2333__CTYPE_EDGE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2333__CTYPE_EDGE.val, "CTYPE_EDGE", sizeof (cdat->dstr_2333__CTYPE_EDGE.val)-1); - - MELT_LOCATION("warmelt-first.melt:1851:/ iniobj"); - /*iniobj dobj_2334__CTYPE_EDGE*/ -if (((void*)(MELT_PREDEF(CTYPE_EDGE))) != (melt_ptr_t)&cdat->dobj_2334__CTYPE_EDGE) { +/*_.VALDATA___V2346*/ meltfptr[2345] = ((void*)(MELT_PREDEF(CTYPE_BASIC_BLOCK))); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2340__CTYPE_BASIC_BLOCK", melt_magic_discr (/*_.VALDATA___V327*/ meltfptr[326]) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2340__CTYPE_BASIC_BLOCK", ((meltobject_ptr_t) (/*_.VALDATA___V327*/ meltfptr[326]))->object_magic == OBMAG_OBJECT); + cdat->dobj_2340__CTYPE_BASIC_BLOCK.obj_class = (meltobject_ptr_t)(/*_.VALDATA___V327*/ meltfptr[326]); + cdat->dobj_2340__CTYPE_BASIC_BLOCK.obj_hash = 409011548; + cdat->dobj_2340__CTYPE_BASIC_BLOCK.obj_len = 11; + + /*inistring dstr_2341__CTYPE_BASIC_BLOC*/ + /*_.VALSTR___V2347*/ meltfptr[2346] = (void*)&cdat->dstr_2341__CTYPE_BASIC_BLOC; + cdat->dstr_2341__CTYPE_BASIC_BLOC.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2341__CTYPE_BASIC_BLOC.val, "CTYPE_BASIC_BLOCK", sizeof (cdat->dstr_2341__CTYPE_BASIC_BLOC.val)-1); + + /*iniobj dsym_2342__BASIC_BLOCK*/ +/*uniqueobj*/ if (!/*_.VALDATA___V2348*/ meltfptr[2347]) /*_.VALDATA___V2348*/ meltfptr[2347] = (void*)&cdat->dsym_2342__BASIC_BLOCK; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2342__BASIC_BLOCK", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_KEYWORD)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2342__BASIC_BLOCK", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_KEYWORD)))))->object_magic == OBMAG_OBJECT); + cdat->dsym_2342__BASIC_BLOCK.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_KEYWORD)))); + cdat->dsym_2342__BASIC_BLOCK.obj_hash = 760231711; + cdat->dsym_2342__BASIC_BLOCK.obj_len = 3; + + /*inistring dstr_2343__BASIC_BLOCK*/ + /*_.VALSTR___V2349*/ meltfptr[2348] = (void*)&cdat->dstr_2343__BASIC_BLOCK; + cdat->dstr_2343__BASIC_BLOCK.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2343__BASIC_BLOCK.val, "BASIC_BLOCK", sizeof (cdat->dstr_2343__BASIC_BLOCK.val)-1); + + /*inistring dstr_2344__basic_block*/ + /*_.VALSTR___V2350*/ meltfptr[2349] = (void*)&cdat->dstr_2344__basic_block; + cdat->dstr_2344__basic_block.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2344__basic_block.val, "basic_block", sizeof (cdat->dstr_2344__basic_block.val)-1); + + /*inistring dstr_2345__BPAR_BB*/ + /*_.VALSTR___V2351*/ meltfptr[2350] = (void*)&cdat->dstr_2345__BPAR_BB; + cdat->dstr_2345__BPAR_BB.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2345__BPAR_BB.val, "BPAR_BB", sizeof (cdat->dstr_2345__BPAR_BB.val)-1); + + /*inistring dstr_2346__BPARSTR_BB*/ + /*_.VALSTR___V2352*/ meltfptr[2351] = (void*)&cdat->dstr_2346__BPARSTR_BB; + cdat->dstr_2346__BPARSTR_BB.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2346__BPARSTR_BB.val, "BPARSTR_BB", sizeof (cdat->dstr_2346__BPARSTR_BB.val)-1); + + /*inistring dstr_2347__bp_bb*/ + /*_.VALSTR___V2353*/ meltfptr[2352] = (void*)&cdat->dstr_2347__bp_bb; + cdat->dstr_2347__bp_bb.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2347__bp_bb.val, "bp_bb", sizeof (cdat->dstr_2347__bp_bb.val)-1); + + /*inistring dstr_2348__bp_bbptr*/ + /*_.VALSTR___V2354*/ meltfptr[2353] = (void*)&cdat->dstr_2348__bp_bbptr; + cdat->dstr_2348__bp_bbptr.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2348__bp_bbptr.val, "bp_bbptr", sizeof (cdat->dstr_2348__bp_bbptr.val)-1); + + /*inistring dstr_2349__gt_ggc_mx_basic_*/ + /*_.VALSTR___V2355*/ meltfptr[2354] = (void*)&cdat->dstr_2349__gt_ggc_mx_basic_; + cdat->dstr_2349__gt_ggc_mx_basic_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2349__gt_ggc_mx_basic_.val, "gt_ggc_mx_basic_block_def", sizeof (cdat->dstr_2349__gt_ggc_mx_basic_.val)-1); + + /*iniobj dsym_2350__CTYPE_EDGE*/ +/*uniqueobj*/ if (!/*_.VALDATA___V2356*/ meltfptr[2355]) /*_.VALDATA___V2356*/ meltfptr[2355] = (void*)&cdat->dsym_2350__CTYPE_EDGE; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2350__CTYPE_EDGE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2350__CTYPE_EDGE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); + cdat->dsym_2350__CTYPE_EDGE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_2350__CTYPE_EDGE.obj_hash = 959535633; + cdat->dsym_2350__CTYPE_EDGE.obj_len = 3; + + /*inistring dstr_2351__CTYPE_EDGE*/ + /*_.VALSTR___V2357*/ meltfptr[2356] = (void*)&cdat->dstr_2351__CTYPE_EDGE; + cdat->dstr_2351__CTYPE_EDGE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2351__CTYPE_EDGE.val, "CTYPE_EDGE", sizeof (cdat->dstr_2351__CTYPE_EDGE.val)-1); + + MELT_LOCATION("warmelt-first.melt:1858:/ iniobj"); + /*iniobj dobj_2352__CTYPE_EDGE*/ +if (((void*)(MELT_PREDEF(CTYPE_EDGE))) != (melt_ptr_t)&cdat->dobj_2352__CTYPE_EDGE) { melt_assertmsg("check.predef length ((void*)(MELT_PREDEF(CTYPE_EDGE)))", melt_object_length((melt_ptr_t)(((void*)(MELT_PREDEF(CTYPE_EDGE))))) >= 11); }; -/*_.VALDATA___V2340*/ meltfptr[2339] = ((void*)(MELT_PREDEF(CTYPE_EDGE))); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2334__CTYPE_EDGE", melt_magic_discr (/*_.VALDATA___V327*/ meltfptr[326]) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2334__CTYPE_EDGE", ((meltobject_ptr_t) (/*_.VALDATA___V327*/ meltfptr[326]))->object_magic == OBMAG_OBJECT); - cdat->dobj_2334__CTYPE_EDGE.obj_class = (meltobject_ptr_t)(/*_.VALDATA___V327*/ meltfptr[326]); - cdat->dobj_2334__CTYPE_EDGE.obj_hash = 412700394; - cdat->dobj_2334__CTYPE_EDGE.obj_len = 11; - - /*inistring dstr_2335__CTYPE_EDGE*/ - /*_.VALSTR___V2341*/ meltfptr[2340] = (void*)&cdat->dstr_2335__CTYPE_EDGE; - cdat->dstr_2335__CTYPE_EDGE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2335__CTYPE_EDGE.val, "CTYPE_EDGE", sizeof (cdat->dstr_2335__CTYPE_EDGE.val)-1); - - /*iniobj dsym_2336__EDGE*/ -/*uniqueobj*/ if (!/*_.VALDATA___V2342*/ meltfptr[2341]) /*_.VALDATA___V2342*/ meltfptr[2341] = (void*)&cdat->dsym_2336__EDGE; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2336__EDGE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_KEYWORD)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2336__EDGE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_KEYWORD)))))->object_magic == OBMAG_OBJECT); - cdat->dsym_2336__EDGE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_KEYWORD)))); - cdat->dsym_2336__EDGE.obj_hash = 132743413; - cdat->dsym_2336__EDGE.obj_len = 3; - - /*inistring dstr_2337__EDGE*/ - /*_.VALSTR___V2343*/ meltfptr[2342] = (void*)&cdat->dstr_2337__EDGE; - cdat->dstr_2337__EDGE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2337__EDGE.val, "EDGE", sizeof (cdat->dstr_2337__EDGE.val)-1); - - /*inistring dstr_2338__edge*/ - /*_.VALSTR___V2344*/ meltfptr[2343] = (void*)&cdat->dstr_2338__edge; - cdat->dstr_2338__edge.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2338__edge.val, "edge", sizeof (cdat->dstr_2338__edge.val)-1); - - /*inistring dstr_2339__BPAR_EDGE*/ - /*_.VALSTR___V2345*/ meltfptr[2344] = (void*)&cdat->dstr_2339__BPAR_EDGE; - cdat->dstr_2339__BPAR_EDGE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2339__BPAR_EDGE.val, "BPAR_EDGE", sizeof (cdat->dstr_2339__BPAR_EDGE.val)-1); - - /*inistring dstr_2340__BPARSTR_EDGE*/ - /*_.VALSTR___V2346*/ meltfptr[2345] = (void*)&cdat->dstr_2340__BPARSTR_EDGE; - cdat->dstr_2340__BPARSTR_EDGE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2340__BPARSTR_EDGE.val, "BPARSTR_EDGE", sizeof (cdat->dstr_2340__BPARSTR_EDGE.val)-1); - - /*inistring dstr_2341__bp_edge*/ - /*_.VALSTR___V2347*/ meltfptr[2346] = (void*)&cdat->dstr_2341__bp_edge; - cdat->dstr_2341__bp_edge.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2341__bp_edge.val, "bp_edge", sizeof (cdat->dstr_2341__bp_edge.val)-1); - - /*inistring dstr_2342__bp_edgeptr*/ - /*_.VALSTR___V2348*/ meltfptr[2347] = (void*)&cdat->dstr_2342__bp_edgeptr; - cdat->dstr_2342__bp_edgeptr.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2342__bp_edgeptr.val, "bp_edgeptr", sizeof (cdat->dstr_2342__bp_edgeptr.val)-1); - - /*inistring dstr_2343__gt_ggc_mx_edge_d*/ - /*_.VALSTR___V2349*/ meltfptr[2348] = (void*)&cdat->dstr_2343__gt_ggc_mx_edge_d; - cdat->dstr_2343__gt_ggc_mx_edge_d.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2343__gt_ggc_mx_edge_d.val, "gt_ggc_mx_edge_def", sizeof (cdat->dstr_2343__gt_ggc_mx_edge_d.val)-1); - - /*iniobj dsym_2344__CTYPE_PPL_COEFFICIENT*/ -/*uniqueobj*/ if (!/*_.VALDATA___V2350*/ meltfptr[2349]) /*_.VALDATA___V2350*/ meltfptr[2349] = (void*)&cdat->dsym_2344__CTYPE_PPL_COEFFICIENT; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2344__CTYPE_PPL_COEFFICIENT", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2344__CTYPE_PPL_COEFFICIENT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); - cdat->dsym_2344__CTYPE_PPL_COEFFICIENT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_2344__CTYPE_PPL_COEFFICIENT.obj_hash = 480666121; - cdat->dsym_2344__CTYPE_PPL_COEFFICIENT.obj_len = 3; - - /*inistring dstr_2345__CTYPE_PPL_COEFFI*/ - /*_.VALSTR___V2351*/ meltfptr[2350] = (void*)&cdat->dstr_2345__CTYPE_PPL_COEFFI; - cdat->dstr_2345__CTYPE_PPL_COEFFI.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2345__CTYPE_PPL_COEFFI.val, "CTYPE_PPL_COEFFICIENT", sizeof (cdat->dstr_2345__CTYPE_PPL_COEFFI.val)-1); - - MELT_LOCATION("warmelt-first.melt:1867:/ iniobj"); - /*iniobj dobj_2346__CTYPE_PPL_COEFFICIENT*/ -if (((void*)(MELT_PREDEF(CTYPE_PPL_COEFFICIENT))) != (melt_ptr_t)&cdat->dobj_2346__CTYPE_PPL_COEFFICIENT) { +/*_.VALDATA___V2358*/ meltfptr[2357] = ((void*)(MELT_PREDEF(CTYPE_EDGE))); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2352__CTYPE_EDGE", melt_magic_discr (/*_.VALDATA___V327*/ meltfptr[326]) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2352__CTYPE_EDGE", ((meltobject_ptr_t) (/*_.VALDATA___V327*/ meltfptr[326]))->object_magic == OBMAG_OBJECT); + cdat->dobj_2352__CTYPE_EDGE.obj_class = (meltobject_ptr_t)(/*_.VALDATA___V327*/ meltfptr[326]); + cdat->dobj_2352__CTYPE_EDGE.obj_hash = 1068798919; + cdat->dobj_2352__CTYPE_EDGE.obj_len = 11; + + /*inistring dstr_2353__CTYPE_EDGE*/ + /*_.VALSTR___V2359*/ meltfptr[2358] = (void*)&cdat->dstr_2353__CTYPE_EDGE; + cdat->dstr_2353__CTYPE_EDGE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2353__CTYPE_EDGE.val, "CTYPE_EDGE", sizeof (cdat->dstr_2353__CTYPE_EDGE.val)-1); + + /*iniobj dsym_2354__EDGE*/ +/*uniqueobj*/ if (!/*_.VALDATA___V2360*/ meltfptr[2359]) /*_.VALDATA___V2360*/ meltfptr[2359] = (void*)&cdat->dsym_2354__EDGE; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2354__EDGE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_KEYWORD)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2354__EDGE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_KEYWORD)))))->object_magic == OBMAG_OBJECT); + cdat->dsym_2354__EDGE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_KEYWORD)))); + cdat->dsym_2354__EDGE.obj_hash = 132743413; + cdat->dsym_2354__EDGE.obj_len = 3; + + /*inistring dstr_2355__EDGE*/ + /*_.VALSTR___V2361*/ meltfptr[2360] = (void*)&cdat->dstr_2355__EDGE; + cdat->dstr_2355__EDGE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2355__EDGE.val, "EDGE", sizeof (cdat->dstr_2355__EDGE.val)-1); + + /*inistring dstr_2356__edge*/ + /*_.VALSTR___V2362*/ meltfptr[2361] = (void*)&cdat->dstr_2356__edge; + cdat->dstr_2356__edge.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2356__edge.val, "edge", sizeof (cdat->dstr_2356__edge.val)-1); + + /*inistring dstr_2357__BPAR_EDGE*/ + /*_.VALSTR___V2363*/ meltfptr[2362] = (void*)&cdat->dstr_2357__BPAR_EDGE; + cdat->dstr_2357__BPAR_EDGE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2357__BPAR_EDGE.val, "BPAR_EDGE", sizeof (cdat->dstr_2357__BPAR_EDGE.val)-1); + + /*inistring dstr_2358__BPARSTR_EDGE*/ + /*_.VALSTR___V2364*/ meltfptr[2363] = (void*)&cdat->dstr_2358__BPARSTR_EDGE; + cdat->dstr_2358__BPARSTR_EDGE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2358__BPARSTR_EDGE.val, "BPARSTR_EDGE", sizeof (cdat->dstr_2358__BPARSTR_EDGE.val)-1); + + /*inistring dstr_2359__bp_edge*/ + /*_.VALSTR___V2365*/ meltfptr[2364] = (void*)&cdat->dstr_2359__bp_edge; + cdat->dstr_2359__bp_edge.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2359__bp_edge.val, "bp_edge", sizeof (cdat->dstr_2359__bp_edge.val)-1); + + /*inistring dstr_2360__bp_edgeptr*/ + /*_.VALSTR___V2366*/ meltfptr[2365] = (void*)&cdat->dstr_2360__bp_edgeptr; + cdat->dstr_2360__bp_edgeptr.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2360__bp_edgeptr.val, "bp_edgeptr", sizeof (cdat->dstr_2360__bp_edgeptr.val)-1); + + /*inistring dstr_2361__gt_ggc_mx_edge_d*/ + /*_.VALSTR___V2367*/ meltfptr[2366] = (void*)&cdat->dstr_2361__gt_ggc_mx_edge_d; + cdat->dstr_2361__gt_ggc_mx_edge_d.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2361__gt_ggc_mx_edge_d.val, "gt_ggc_mx_edge_def", sizeof (cdat->dstr_2361__gt_ggc_mx_edge_d.val)-1); + + /*iniobj dsym_2362__CTYPE_PPL_COEFFICIENT*/ +/*uniqueobj*/ if (!/*_.VALDATA___V2368*/ meltfptr[2367]) /*_.VALDATA___V2368*/ meltfptr[2367] = (void*)&cdat->dsym_2362__CTYPE_PPL_COEFFICIENT; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2362__CTYPE_PPL_COEFFICIENT", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2362__CTYPE_PPL_COEFFICIENT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); + cdat->dsym_2362__CTYPE_PPL_COEFFICIENT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_2362__CTYPE_PPL_COEFFICIENT.obj_hash = 480666121; + cdat->dsym_2362__CTYPE_PPL_COEFFICIENT.obj_len = 3; + + /*inistring dstr_2363__CTYPE_PPL_COEFFI*/ + /*_.VALSTR___V2369*/ meltfptr[2368] = (void*)&cdat->dstr_2363__CTYPE_PPL_COEFFI; + cdat->dstr_2363__CTYPE_PPL_COEFFI.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2363__CTYPE_PPL_COEFFI.val, "CTYPE_PPL_COEFFICIENT", sizeof (cdat->dstr_2363__CTYPE_PPL_COEFFI.val)-1); + + MELT_LOCATION("warmelt-first.melt:1874:/ iniobj"); + /*iniobj dobj_2364__CTYPE_PPL_COEFFICIENT*/ +if (((void*)(MELT_PREDEF(CTYPE_PPL_COEFFICIENT))) != (melt_ptr_t)&cdat->dobj_2364__CTYPE_PPL_COEFFICIENT) { melt_assertmsg("check.predef length ((void*)(MELT_PREDEF(CTYPE_PPL_COEFFICIENT)))", melt_object_length((melt_ptr_t)(((void*)(MELT_PREDEF(CTYPE_PPL_COEFFICIENT))))) >= 11); }; -/*_.VALDATA___V2352*/ meltfptr[2351] = ((void*)(MELT_PREDEF(CTYPE_PPL_COEFFICIENT))); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2346__CTYPE_PPL_COEFFICIENT", melt_magic_discr (/*_.VALDATA___V327*/ meltfptr[326]) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2346__CTYPE_PPL_COEFFICIENT", ((meltobject_ptr_t) (/*_.VALDATA___V327*/ meltfptr[326]))->object_magic == OBMAG_OBJECT); - cdat->dobj_2346__CTYPE_PPL_COEFFICIENT.obj_class = (meltobject_ptr_t)(/*_.VALDATA___V327*/ meltfptr[326]); - cdat->dobj_2346__CTYPE_PPL_COEFFICIENT.obj_hash = 553082877; - cdat->dobj_2346__CTYPE_PPL_COEFFICIENT.obj_len = 11; - - /*inistring dstr_2347__CTYPE_PPL_COEFFI*/ - /*_.VALSTR___V2353*/ meltfptr[2352] = (void*)&cdat->dstr_2347__CTYPE_PPL_COEFFI; - cdat->dstr_2347__CTYPE_PPL_COEFFI.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2347__CTYPE_PPL_COEFFI.val, "CTYPE_PPL_COEFFICIENT", sizeof (cdat->dstr_2347__CTYPE_PPL_COEFFI.val)-1); - - /*iniobj dsym_2348__PPL_COEFFICIENT*/ -/*uniqueobj*/ if (!/*_.VALDATA___V2354*/ meltfptr[2353]) /*_.VALDATA___V2354*/ meltfptr[2353] = (void*)&cdat->dsym_2348__PPL_COEFFICIENT; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2348__PPL_COEFFICIENT", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_KEYWORD)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2348__PPL_COEFFICIENT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_KEYWORD)))))->object_magic == OBMAG_OBJECT); - cdat->dsym_2348__PPL_COEFFICIENT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_KEYWORD)))); - cdat->dsym_2348__PPL_COEFFICIENT.obj_hash = 232836844; - cdat->dsym_2348__PPL_COEFFICIENT.obj_len = 3; - - /*inistring dstr_2349__PPL_COEFFICIENT*/ - /*_.VALSTR___V2355*/ meltfptr[2354] = (void*)&cdat->dstr_2349__PPL_COEFFICIENT; - cdat->dstr_2349__PPL_COEFFICIENT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2349__PPL_COEFFICIENT.val, "PPL_COEFFICIENT", sizeof (cdat->dstr_2349__PPL_COEFFICIENT.val)-1); - - /*inistring dstr_2350__ppl_Coefficient_*/ - /*_.VALSTR___V2356*/ meltfptr[2355] = (void*)&cdat->dstr_2350__ppl_Coefficient_; - cdat->dstr_2350__ppl_Coefficient_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2350__ppl_Coefficient_.val, "ppl_Coefficient_t", sizeof (cdat->dstr_2350__ppl_Coefficient_.val)-1); - - /*inistring dstr_2351__BPAR_PPL_COEFFIC*/ - /*_.VALSTR___V2357*/ meltfptr[2356] = (void*)&cdat->dstr_2351__BPAR_PPL_COEFFIC; - cdat->dstr_2351__BPAR_PPL_COEFFIC.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2351__BPAR_PPL_COEFFIC.val, "BPAR_PPL_COEFFICIENT", sizeof (cdat->dstr_2351__BPAR_PPL_COEFFIC.val)-1); - - /*inistring dstr_2352__BPARSTR_PPL_COEF*/ - /*_.VALSTR___V2358*/ meltfptr[2357] = (void*)&cdat->dstr_2352__BPARSTR_PPL_COEF; - cdat->dstr_2352__BPARSTR_PPL_COEF.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2352__BPARSTR_PPL_COEF.val, "BPARSTR_PPL_COEFFICIENT", sizeof (cdat->dstr_2352__BPARSTR_PPL_COEF.val)-1); - - /*inistring dstr_2353__bp_ppl_coefficie*/ - /*_.VALSTR___V2359*/ meltfptr[2358] = (void*)&cdat->dstr_2353__bp_ppl_coefficie; - cdat->dstr_2353__bp_ppl_coefficie.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2353__bp_ppl_coefficie.val, "bp_ppl_coefficient", sizeof (cdat->dstr_2353__bp_ppl_coefficie.val)-1); - - /*inistring dstr_2354__bp_ppl_coefficie*/ - /*_.VALSTR___V2360*/ meltfptr[2359] = (void*)&cdat->dstr_2354__bp_ppl_coefficie; - cdat->dstr_2354__bp_ppl_coefficie.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2354__bp_ppl_coefficie.val, "bp_ppl_coefficientptr", sizeof (cdat->dstr_2354__bp_ppl_coefficie.val)-1); - - /*iniobj dsym_2355__CTYPE_PPL_LINEAR_EXPRESSION*/ -/*uniqueobj*/ if (!/*_.VALDATA___V2361*/ meltfptr[2360]) /*_.VALDATA___V2361*/ meltfptr[2360] = (void*)&cdat->dsym_2355__CTYPE_PPL_LINEAR_EXPRESSION; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2355__CTYPE_PPL_LINEAR_EXPRESSION", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2355__CTYPE_PPL_LINEAR_EXPRESSION", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); - cdat->dsym_2355__CTYPE_PPL_LINEAR_EXPRESSION.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_2355__CTYPE_PPL_LINEAR_EXPRESSION.obj_hash = 607500934; - cdat->dsym_2355__CTYPE_PPL_LINEAR_EXPRESSION.obj_len = 3; - - /*inistring dstr_2356__CTYPE_PPL_LINEAR*/ - /*_.VALSTR___V2362*/ meltfptr[2361] = (void*)&cdat->dstr_2356__CTYPE_PPL_LINEAR; - cdat->dstr_2356__CTYPE_PPL_LINEAR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2356__CTYPE_PPL_LINEAR.val, "CTYPE_PPL_LINEAR_EXPRESSION", sizeof (cdat->dstr_2356__CTYPE_PPL_LINEAR.val)-1); - - MELT_LOCATION("warmelt-first.melt:1882:/ iniobj"); - /*iniobj dobj_2357__CTYPE_PPL_LINEAR_EXPRESSION*/ -if (((void*)(MELT_PREDEF(CTYPE_PPL_LINEAR_EXPRESSION))) != (melt_ptr_t)&cdat->dobj_2357__CTYPE_PPL_LINEAR_EXPRESSION) { +/*_.VALDATA___V2370*/ meltfptr[2369] = ((void*)(MELT_PREDEF(CTYPE_PPL_COEFFICIENT))); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2364__CTYPE_PPL_COEFFICIENT", melt_magic_discr (/*_.VALDATA___V327*/ meltfptr[326]) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2364__CTYPE_PPL_COEFFICIENT", ((meltobject_ptr_t) (/*_.VALDATA___V327*/ meltfptr[326]))->object_magic == OBMAG_OBJECT); + cdat->dobj_2364__CTYPE_PPL_COEFFICIENT.obj_class = (meltobject_ptr_t)(/*_.VALDATA___V327*/ meltfptr[326]); + cdat->dobj_2364__CTYPE_PPL_COEFFICIENT.obj_hash = 558994474; + cdat->dobj_2364__CTYPE_PPL_COEFFICIENT.obj_len = 11; + + /*inistring dstr_2365__CTYPE_PPL_COEFFI*/ + /*_.VALSTR___V2371*/ meltfptr[2370] = (void*)&cdat->dstr_2365__CTYPE_PPL_COEFFI; + cdat->dstr_2365__CTYPE_PPL_COEFFI.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2365__CTYPE_PPL_COEFFI.val, "CTYPE_PPL_COEFFICIENT", sizeof (cdat->dstr_2365__CTYPE_PPL_COEFFI.val)-1); + + /*iniobj dsym_2366__PPL_COEFFICIENT*/ +/*uniqueobj*/ if (!/*_.VALDATA___V2372*/ meltfptr[2371]) /*_.VALDATA___V2372*/ meltfptr[2371] = (void*)&cdat->dsym_2366__PPL_COEFFICIENT; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2366__PPL_COEFFICIENT", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_KEYWORD)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2366__PPL_COEFFICIENT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_KEYWORD)))))->object_magic == OBMAG_OBJECT); + cdat->dsym_2366__PPL_COEFFICIENT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_KEYWORD)))); + cdat->dsym_2366__PPL_COEFFICIENT.obj_hash = 232836844; + cdat->dsym_2366__PPL_COEFFICIENT.obj_len = 3; + + /*inistring dstr_2367__PPL_COEFFICIENT*/ + /*_.VALSTR___V2373*/ meltfptr[2372] = (void*)&cdat->dstr_2367__PPL_COEFFICIENT; + cdat->dstr_2367__PPL_COEFFICIENT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2367__PPL_COEFFICIENT.val, "PPL_COEFFICIENT", sizeof (cdat->dstr_2367__PPL_COEFFICIENT.val)-1); + + /*inistring dstr_2368__ppl_Coefficient_*/ + /*_.VALSTR___V2374*/ meltfptr[2373] = (void*)&cdat->dstr_2368__ppl_Coefficient_; + cdat->dstr_2368__ppl_Coefficient_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2368__ppl_Coefficient_.val, "ppl_Coefficient_t", sizeof (cdat->dstr_2368__ppl_Coefficient_.val)-1); + + /*inistring dstr_2369__BPAR_PPL_COEFFIC*/ + /*_.VALSTR___V2375*/ meltfptr[2374] = (void*)&cdat->dstr_2369__BPAR_PPL_COEFFIC; + cdat->dstr_2369__BPAR_PPL_COEFFIC.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2369__BPAR_PPL_COEFFIC.val, "BPAR_PPL_COEFFICIENT", sizeof (cdat->dstr_2369__BPAR_PPL_COEFFIC.val)-1); + + /*inistring dstr_2370__BPARSTR_PPL_COEF*/ + /*_.VALSTR___V2376*/ meltfptr[2375] = (void*)&cdat->dstr_2370__BPARSTR_PPL_COEF; + cdat->dstr_2370__BPARSTR_PPL_COEF.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2370__BPARSTR_PPL_COEF.val, "BPARSTR_PPL_COEFFICIENT", sizeof (cdat->dstr_2370__BPARSTR_PPL_COEF.val)-1); + + /*inistring dstr_2371__bp_ppl_coefficie*/ + /*_.VALSTR___V2377*/ meltfptr[2376] = (void*)&cdat->dstr_2371__bp_ppl_coefficie; + cdat->dstr_2371__bp_ppl_coefficie.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2371__bp_ppl_coefficie.val, "bp_ppl_coefficient", sizeof (cdat->dstr_2371__bp_ppl_coefficie.val)-1); + + /*inistring dstr_2372__bp_ppl_coefficie*/ + /*_.VALSTR___V2378*/ meltfptr[2377] = (void*)&cdat->dstr_2372__bp_ppl_coefficie; + cdat->dstr_2372__bp_ppl_coefficie.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2372__bp_ppl_coefficie.val, "bp_ppl_coefficientptr", sizeof (cdat->dstr_2372__bp_ppl_coefficie.val)-1); + + /*iniobj dsym_2373__CTYPE_PPL_LINEAR_EXPRESSION*/ +/*uniqueobj*/ if (!/*_.VALDATA___V2379*/ meltfptr[2378]) /*_.VALDATA___V2379*/ meltfptr[2378] = (void*)&cdat->dsym_2373__CTYPE_PPL_LINEAR_EXPRESSION; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2373__CTYPE_PPL_LINEAR_EXPRESSION", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2373__CTYPE_PPL_LINEAR_EXPRESSION", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); + cdat->dsym_2373__CTYPE_PPL_LINEAR_EXPRESSION.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_2373__CTYPE_PPL_LINEAR_EXPRESSION.obj_hash = 607500934; + cdat->dsym_2373__CTYPE_PPL_LINEAR_EXPRESSION.obj_len = 3; + + /*inistring dstr_2374__CTYPE_PPL_LINEAR*/ + /*_.VALSTR___V2380*/ meltfptr[2379] = (void*)&cdat->dstr_2374__CTYPE_PPL_LINEAR; + cdat->dstr_2374__CTYPE_PPL_LINEAR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2374__CTYPE_PPL_LINEAR.val, "CTYPE_PPL_LINEAR_EXPRESSION", sizeof (cdat->dstr_2374__CTYPE_PPL_LINEAR.val)-1); + + MELT_LOCATION("warmelt-first.melt:1889:/ iniobj"); + /*iniobj dobj_2375__CTYPE_PPL_LINEAR_EXPRESSION*/ +if (((void*)(MELT_PREDEF(CTYPE_PPL_LINEAR_EXPRESSION))) != (melt_ptr_t)&cdat->dobj_2375__CTYPE_PPL_LINEAR_EXPRESSION) { melt_assertmsg("check.predef length ((void*)(MELT_PREDEF(CTYPE_PPL_LINEAR_EXPRESSION)))", melt_object_length((melt_ptr_t)(((void*)(MELT_PREDEF(CTYPE_PPL_LINEAR_EXPRESSION))))) >= 11); }; -/*_.VALDATA___V2363*/ meltfptr[2362] = ((void*)(MELT_PREDEF(CTYPE_PPL_LINEAR_EXPRESSION))); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2357__CTYPE_PPL_LINEAR_EXPRESSION", melt_magic_discr (/*_.VALDATA___V327*/ meltfptr[326]) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2357__CTYPE_PPL_LINEAR_EXPRESSION", ((meltobject_ptr_t) (/*_.VALDATA___V327*/ meltfptr[326]))->object_magic == OBMAG_OBJECT); - cdat->dobj_2357__CTYPE_PPL_LINEAR_EXPRESSION.obj_class = (meltobject_ptr_t)(/*_.VALDATA___V327*/ meltfptr[326]); - cdat->dobj_2357__CTYPE_PPL_LINEAR_EXPRESSION.obj_hash = 1056922067; - cdat->dobj_2357__CTYPE_PPL_LINEAR_EXPRESSION.obj_len = 11; - - /*inistring dstr_2358__CTYPE_PPL_LINEAR*/ - /*_.VALSTR___V2364*/ meltfptr[2363] = (void*)&cdat->dstr_2358__CTYPE_PPL_LINEAR; - cdat->dstr_2358__CTYPE_PPL_LINEAR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2358__CTYPE_PPL_LINEAR.val, "CTYPE_PPL_LINEAR_EXPRESSION", sizeof (cdat->dstr_2358__CTYPE_PPL_LINEAR.val)-1); - - /*iniobj dsym_2359__PPL_LINEAR_EXPRESSION*/ -/*uniqueobj*/ if (!/*_.VALDATA___V2365*/ meltfptr[2364]) /*_.VALDATA___V2365*/ meltfptr[2364] = (void*)&cdat->dsym_2359__PPL_LINEAR_EXPRESSION; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2359__PPL_LINEAR_EXPRESSION", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_KEYWORD)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2359__PPL_LINEAR_EXPRESSION", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_KEYWORD)))))->object_magic == OBMAG_OBJECT); - cdat->dsym_2359__PPL_LINEAR_EXPRESSION.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_KEYWORD)))); - cdat->dsym_2359__PPL_LINEAR_EXPRESSION.obj_hash = 680422589; - cdat->dsym_2359__PPL_LINEAR_EXPRESSION.obj_len = 3; - - /*inistring dstr_2360__PPL_LINEAR_EXPRE*/ - /*_.VALSTR___V2366*/ meltfptr[2365] = (void*)&cdat->dstr_2360__PPL_LINEAR_EXPRE; - cdat->dstr_2360__PPL_LINEAR_EXPRE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2360__PPL_LINEAR_EXPRE.val, "PPL_LINEAR_EXPRESSION", sizeof (cdat->dstr_2360__PPL_LINEAR_EXPRE.val)-1); - - /*inistring dstr_2361__ppl_Linear_Expre*/ - /*_.VALSTR___V2367*/ meltfptr[2366] = (void*)&cdat->dstr_2361__ppl_Linear_Expre; - cdat->dstr_2361__ppl_Linear_Expre.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2361__ppl_Linear_Expre.val, "ppl_Linear_Expression_t", sizeof (cdat->dstr_2361__ppl_Linear_Expre.val)-1); - - /*inistring dstr_2362__BPAR_PPL_LINEAR_*/ - /*_.VALSTR___V2368*/ meltfptr[2367] = (void*)&cdat->dstr_2362__BPAR_PPL_LINEAR_; - cdat->dstr_2362__BPAR_PPL_LINEAR_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2362__BPAR_PPL_LINEAR_.val, "BPAR_PPL_LINEAR_EXPRESSION", sizeof (cdat->dstr_2362__BPAR_PPL_LINEAR_.val)-1); - - /*inistring dstr_2363__BPARSTR_PPL_LINE*/ - /*_.VALSTR___V2369*/ meltfptr[2368] = (void*)&cdat->dstr_2363__BPARSTR_PPL_LINE; - cdat->dstr_2363__BPARSTR_PPL_LINE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2363__BPARSTR_PPL_LINE.val, "BPARSTR_PPL_LINEAR_EXPRESSION", sizeof (cdat->dstr_2363__BPARSTR_PPL_LINE.val)-1); - - /*inistring dstr_2364__bp_ppl_linear_ex*/ - /*_.VALSTR___V2370*/ meltfptr[2369] = (void*)&cdat->dstr_2364__bp_ppl_linear_ex; - cdat->dstr_2364__bp_ppl_linear_ex.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2364__bp_ppl_linear_ex.val, "bp_ppl_linear_expression", sizeof (cdat->dstr_2364__bp_ppl_linear_ex.val)-1); - - /*inistring dstr_2365__bp_ppl_linear_ex*/ - /*_.VALSTR___V2371*/ meltfptr[2370] = (void*)&cdat->dstr_2365__bp_ppl_linear_ex; - cdat->dstr_2365__bp_ppl_linear_ex.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2365__bp_ppl_linear_ex.val, "bp_ppl_linear_expressionptr", sizeof (cdat->dstr_2365__bp_ppl_linear_ex.val)-1); - - /*iniobj dsym_2366__CTYPE_PPL_CONSTRAINT*/ -/*uniqueobj*/ if (!/*_.VALDATA___V2372*/ meltfptr[2371]) /*_.VALDATA___V2372*/ meltfptr[2371] = (void*)&cdat->dsym_2366__CTYPE_PPL_CONSTRAINT; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2366__CTYPE_PPL_CONSTRAINT", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2366__CTYPE_PPL_CONSTRAINT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); - cdat->dsym_2366__CTYPE_PPL_CONSTRAINT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_2366__CTYPE_PPL_CONSTRAINT.obj_hash = 66344219; - cdat->dsym_2366__CTYPE_PPL_CONSTRAINT.obj_len = 3; - - /*inistring dstr_2367__CTYPE_PPL_CONSTR*/ - /*_.VALSTR___V2373*/ meltfptr[2372] = (void*)&cdat->dstr_2367__CTYPE_PPL_CONSTR; - cdat->dstr_2367__CTYPE_PPL_CONSTR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2367__CTYPE_PPL_CONSTR.val, "CTYPE_PPL_CONSTRAINT", sizeof (cdat->dstr_2367__CTYPE_PPL_CONSTR.val)-1); - - MELT_LOCATION("warmelt-first.melt:1897:/ iniobj"); - /*iniobj dobj_2368__CTYPE_PPL_CONSTRAINT*/ -if (((void*)(MELT_PREDEF(CTYPE_PPL_CONSTRAINT))) != (melt_ptr_t)&cdat->dobj_2368__CTYPE_PPL_CONSTRAINT) { +/*_.VALDATA___V2381*/ meltfptr[2380] = ((void*)(MELT_PREDEF(CTYPE_PPL_LINEAR_EXPRESSION))); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2375__CTYPE_PPL_LINEAR_EXPRESSION", melt_magic_discr (/*_.VALDATA___V327*/ meltfptr[326]) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2375__CTYPE_PPL_LINEAR_EXPRESSION", ((meltobject_ptr_t) (/*_.VALDATA___V327*/ meltfptr[326]))->object_magic == OBMAG_OBJECT); + cdat->dobj_2375__CTYPE_PPL_LINEAR_EXPRESSION.obj_class = (meltobject_ptr_t)(/*_.VALDATA___V327*/ meltfptr[326]); + cdat->dobj_2375__CTYPE_PPL_LINEAR_EXPRESSION.obj_hash = 774545250; + cdat->dobj_2375__CTYPE_PPL_LINEAR_EXPRESSION.obj_len = 11; + + /*inistring dstr_2376__CTYPE_PPL_LINEAR*/ + /*_.VALSTR___V2382*/ meltfptr[2381] = (void*)&cdat->dstr_2376__CTYPE_PPL_LINEAR; + cdat->dstr_2376__CTYPE_PPL_LINEAR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2376__CTYPE_PPL_LINEAR.val, "CTYPE_PPL_LINEAR_EXPRESSION", sizeof (cdat->dstr_2376__CTYPE_PPL_LINEAR.val)-1); + + /*iniobj dsym_2377__PPL_LINEAR_EXPRESSION*/ +/*uniqueobj*/ if (!/*_.VALDATA___V2383*/ meltfptr[2382]) /*_.VALDATA___V2383*/ meltfptr[2382] = (void*)&cdat->dsym_2377__PPL_LINEAR_EXPRESSION; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2377__PPL_LINEAR_EXPRESSION", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_KEYWORD)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2377__PPL_LINEAR_EXPRESSION", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_KEYWORD)))))->object_magic == OBMAG_OBJECT); + cdat->dsym_2377__PPL_LINEAR_EXPRESSION.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_KEYWORD)))); + cdat->dsym_2377__PPL_LINEAR_EXPRESSION.obj_hash = 680422589; + cdat->dsym_2377__PPL_LINEAR_EXPRESSION.obj_len = 3; + + /*inistring dstr_2378__PPL_LINEAR_EXPRE*/ + /*_.VALSTR___V2384*/ meltfptr[2383] = (void*)&cdat->dstr_2378__PPL_LINEAR_EXPRE; + cdat->dstr_2378__PPL_LINEAR_EXPRE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2378__PPL_LINEAR_EXPRE.val, "PPL_LINEAR_EXPRESSION", sizeof (cdat->dstr_2378__PPL_LINEAR_EXPRE.val)-1); + + /*inistring dstr_2379__ppl_Linear_Expre*/ + /*_.VALSTR___V2385*/ meltfptr[2384] = (void*)&cdat->dstr_2379__ppl_Linear_Expre; + cdat->dstr_2379__ppl_Linear_Expre.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2379__ppl_Linear_Expre.val, "ppl_Linear_Expression_t", sizeof (cdat->dstr_2379__ppl_Linear_Expre.val)-1); + + /*inistring dstr_2380__BPAR_PPL_LINEAR_*/ + /*_.VALSTR___V2386*/ meltfptr[2385] = (void*)&cdat->dstr_2380__BPAR_PPL_LINEAR_; + cdat->dstr_2380__BPAR_PPL_LINEAR_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2380__BPAR_PPL_LINEAR_.val, "BPAR_PPL_LINEAR_EXPRESSION", sizeof (cdat->dstr_2380__BPAR_PPL_LINEAR_.val)-1); + + /*inistring dstr_2381__BPARSTR_PPL_LINE*/ + /*_.VALSTR___V2387*/ meltfptr[2386] = (void*)&cdat->dstr_2381__BPARSTR_PPL_LINE; + cdat->dstr_2381__BPARSTR_PPL_LINE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2381__BPARSTR_PPL_LINE.val, "BPARSTR_PPL_LINEAR_EXPRESSION", sizeof (cdat->dstr_2381__BPARSTR_PPL_LINE.val)-1); + + /*inistring dstr_2382__bp_ppl_linear_ex*/ + /*_.VALSTR___V2388*/ meltfptr[2387] = (void*)&cdat->dstr_2382__bp_ppl_linear_ex; + cdat->dstr_2382__bp_ppl_linear_ex.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2382__bp_ppl_linear_ex.val, "bp_ppl_linear_expression", sizeof (cdat->dstr_2382__bp_ppl_linear_ex.val)-1); + + /*inistring dstr_2383__bp_ppl_linear_ex*/ + /*_.VALSTR___V2389*/ meltfptr[2388] = (void*)&cdat->dstr_2383__bp_ppl_linear_ex; + cdat->dstr_2383__bp_ppl_linear_ex.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2383__bp_ppl_linear_ex.val, "bp_ppl_linear_expressionptr", sizeof (cdat->dstr_2383__bp_ppl_linear_ex.val)-1); + + /*iniobj dsym_2384__CTYPE_PPL_CONSTRAINT*/ +/*uniqueobj*/ if (!/*_.VALDATA___V2390*/ meltfptr[2389]) /*_.VALDATA___V2390*/ meltfptr[2389] = (void*)&cdat->dsym_2384__CTYPE_PPL_CONSTRAINT; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2384__CTYPE_PPL_CONSTRAINT", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2384__CTYPE_PPL_CONSTRAINT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); + cdat->dsym_2384__CTYPE_PPL_CONSTRAINT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_2384__CTYPE_PPL_CONSTRAINT.obj_hash = 66344219; + cdat->dsym_2384__CTYPE_PPL_CONSTRAINT.obj_len = 3; + + /*inistring dstr_2385__CTYPE_PPL_CONSTR*/ + /*_.VALSTR___V2391*/ meltfptr[2390] = (void*)&cdat->dstr_2385__CTYPE_PPL_CONSTR; + cdat->dstr_2385__CTYPE_PPL_CONSTR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2385__CTYPE_PPL_CONSTR.val, "CTYPE_PPL_CONSTRAINT", sizeof (cdat->dstr_2385__CTYPE_PPL_CONSTR.val)-1); + + MELT_LOCATION("warmelt-first.melt:1904:/ iniobj"); + /*iniobj dobj_2386__CTYPE_PPL_CONSTRAINT*/ +if (((void*)(MELT_PREDEF(CTYPE_PPL_CONSTRAINT))) != (melt_ptr_t)&cdat->dobj_2386__CTYPE_PPL_CONSTRAINT) { melt_assertmsg("check.predef length ((void*)(MELT_PREDEF(CTYPE_PPL_CONSTRAINT)))", melt_object_length((melt_ptr_t)(((void*)(MELT_PREDEF(CTYPE_PPL_CONSTRAINT))))) >= 11); }; -/*_.VALDATA___V2374*/ meltfptr[2373] = ((void*)(MELT_PREDEF(CTYPE_PPL_CONSTRAINT))); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2368__CTYPE_PPL_CONSTRAINT", melt_magic_discr (/*_.VALDATA___V327*/ meltfptr[326]) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2368__CTYPE_PPL_CONSTRAINT", ((meltobject_ptr_t) (/*_.VALDATA___V327*/ meltfptr[326]))->object_magic == OBMAG_OBJECT); - cdat->dobj_2368__CTYPE_PPL_CONSTRAINT.obj_class = (meltobject_ptr_t)(/*_.VALDATA___V327*/ meltfptr[326]); - cdat->dobj_2368__CTYPE_PPL_CONSTRAINT.obj_hash = 399075034; - cdat->dobj_2368__CTYPE_PPL_CONSTRAINT.obj_len = 11; - - /*inistring dstr_2369__CTYPE_PPL_CONSTR*/ - /*_.VALSTR___V2375*/ meltfptr[2374] = (void*)&cdat->dstr_2369__CTYPE_PPL_CONSTR; - cdat->dstr_2369__CTYPE_PPL_CONSTR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2369__CTYPE_PPL_CONSTR.val, "CTYPE_PPL_CONSTRAINT", sizeof (cdat->dstr_2369__CTYPE_PPL_CONSTR.val)-1); - - /*iniobj dsym_2370__PPL_CONSTRAINT*/ -/*uniqueobj*/ if (!/*_.VALDATA___V2376*/ meltfptr[2375]) /*_.VALDATA___V2376*/ meltfptr[2375] = (void*)&cdat->dsym_2370__PPL_CONSTRAINT; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2370__PPL_CONSTRAINT", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_KEYWORD)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2370__PPL_CONSTRAINT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_KEYWORD)))))->object_magic == OBMAG_OBJECT); - cdat->dsym_2370__PPL_CONSTRAINT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_KEYWORD)))); - cdat->dsym_2370__PPL_CONSTRAINT.obj_hash = 63718339; - cdat->dsym_2370__PPL_CONSTRAINT.obj_len = 3; - - /*inistring dstr_2371__PPL_CONSTRAINT*/ - /*_.VALSTR___V2377*/ meltfptr[2376] = (void*)&cdat->dstr_2371__PPL_CONSTRAINT; - cdat->dstr_2371__PPL_CONSTRAINT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2371__PPL_CONSTRAINT.val, "PPL_CONSTRAINT", sizeof (cdat->dstr_2371__PPL_CONSTRAINT.val)-1); - - /*inistring dstr_2372__ppl_Constraint_t*/ - /*_.VALSTR___V2378*/ meltfptr[2377] = (void*)&cdat->dstr_2372__ppl_Constraint_t; - cdat->dstr_2372__ppl_Constraint_t.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2372__ppl_Constraint_t.val, "ppl_Constraint_t", sizeof (cdat->dstr_2372__ppl_Constraint_t.val)-1); - - /*inistring dstr_2373__BPAR_PPL_CONSTRA*/ - /*_.VALSTR___V2379*/ meltfptr[2378] = (void*)&cdat->dstr_2373__BPAR_PPL_CONSTRA; - cdat->dstr_2373__BPAR_PPL_CONSTRA.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2373__BPAR_PPL_CONSTRA.val, "BPAR_PPL_CONSTRAINT", sizeof (cdat->dstr_2373__BPAR_PPL_CONSTRA.val)-1); - - /*inistring dstr_2374__BPARSTR_PPL_CONS*/ - /*_.VALSTR___V2380*/ meltfptr[2379] = (void*)&cdat->dstr_2374__BPARSTR_PPL_CONS; - cdat->dstr_2374__BPARSTR_PPL_CONS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2374__BPARSTR_PPL_CONS.val, "BPARSTR_PPL_CONSTRAINT", sizeof (cdat->dstr_2374__BPARSTR_PPL_CONS.val)-1); - - /*inistring dstr_2375__bp_ppl_constrain*/ - /*_.VALSTR___V2381*/ meltfptr[2380] = (void*)&cdat->dstr_2375__bp_ppl_constrain; - cdat->dstr_2375__bp_ppl_constrain.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2375__bp_ppl_constrain.val, "bp_ppl_constraint", sizeof (cdat->dstr_2375__bp_ppl_constrain.val)-1); - - /*inistring dstr_2376__bp_ppl_constrain*/ - /*_.VALSTR___V2382*/ meltfptr[2381] = (void*)&cdat->dstr_2376__bp_ppl_constrain; - cdat->dstr_2376__bp_ppl_constrain.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2376__bp_ppl_constrain.val, "bp_ppl_constraintptr", sizeof (cdat->dstr_2376__bp_ppl_constrain.val)-1); - - /*iniobj dsym_2377__CTYPE_PPL_CONSTRAINT_SYSTEM*/ -/*uniqueobj*/ if (!/*_.VALDATA___V2383*/ meltfptr[2382]) /*_.VALDATA___V2383*/ meltfptr[2382] = (void*)&cdat->dsym_2377__CTYPE_PPL_CONSTRAINT_SYSTEM; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2377__CTYPE_PPL_CONSTRAINT_SYSTEM", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2377__CTYPE_PPL_CONSTRAINT_SYSTEM", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); - cdat->dsym_2377__CTYPE_PPL_CONSTRAINT_SYSTEM.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_2377__CTYPE_PPL_CONSTRAINT_SYSTEM.obj_hash = 450980506; - cdat->dsym_2377__CTYPE_PPL_CONSTRAINT_SYSTEM.obj_len = 3; - - /*inistring dstr_2378__CTYPE_PPL_CONSTR*/ - /*_.VALSTR___V2384*/ meltfptr[2383] = (void*)&cdat->dstr_2378__CTYPE_PPL_CONSTR; - cdat->dstr_2378__CTYPE_PPL_CONSTR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2378__CTYPE_PPL_CONSTR.val, "CTYPE_PPL_CONSTRAINT_SYSTEM", sizeof (cdat->dstr_2378__CTYPE_PPL_CONSTR.val)-1); - - MELT_LOCATION("warmelt-first.melt:1912:/ iniobj"); - /*iniobj dobj_2379__CTYPE_PPL_CONSTRAINT_SYSTEM*/ -if (((void*)(MELT_PREDEF(CTYPE_PPL_CONSTRAINT_SYSTEM))) != (melt_ptr_t)&cdat->dobj_2379__CTYPE_PPL_CONSTRAINT_SYSTEM) { +/*_.VALDATA___V2392*/ meltfptr[2391] = ((void*)(MELT_PREDEF(CTYPE_PPL_CONSTRAINT))); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2386__CTYPE_PPL_CONSTRAINT", melt_magic_discr (/*_.VALDATA___V327*/ meltfptr[326]) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2386__CTYPE_PPL_CONSTRAINT", ((meltobject_ptr_t) (/*_.VALDATA___V327*/ meltfptr[326]))->object_magic == OBMAG_OBJECT); + cdat->dobj_2386__CTYPE_PPL_CONSTRAINT.obj_class = (meltobject_ptr_t)(/*_.VALDATA___V327*/ meltfptr[326]); + cdat->dobj_2386__CTYPE_PPL_CONSTRAINT.obj_hash = 314854139; + cdat->dobj_2386__CTYPE_PPL_CONSTRAINT.obj_len = 11; + + /*inistring dstr_2387__CTYPE_PPL_CONSTR*/ + /*_.VALSTR___V2393*/ meltfptr[2392] = (void*)&cdat->dstr_2387__CTYPE_PPL_CONSTR; + cdat->dstr_2387__CTYPE_PPL_CONSTR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2387__CTYPE_PPL_CONSTR.val, "CTYPE_PPL_CONSTRAINT", sizeof (cdat->dstr_2387__CTYPE_PPL_CONSTR.val)-1); + + /*iniobj dsym_2388__PPL_CONSTRAINT*/ +/*uniqueobj*/ if (!/*_.VALDATA___V2394*/ meltfptr[2393]) /*_.VALDATA___V2394*/ meltfptr[2393] = (void*)&cdat->dsym_2388__PPL_CONSTRAINT; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2388__PPL_CONSTRAINT", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_KEYWORD)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2388__PPL_CONSTRAINT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_KEYWORD)))))->object_magic == OBMAG_OBJECT); + cdat->dsym_2388__PPL_CONSTRAINT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_KEYWORD)))); + cdat->dsym_2388__PPL_CONSTRAINT.obj_hash = 63718339; + cdat->dsym_2388__PPL_CONSTRAINT.obj_len = 3; + + /*inistring dstr_2389__PPL_CONSTRAINT*/ + /*_.VALSTR___V2395*/ meltfptr[2394] = (void*)&cdat->dstr_2389__PPL_CONSTRAINT; + cdat->dstr_2389__PPL_CONSTRAINT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2389__PPL_CONSTRAINT.val, "PPL_CONSTRAINT", sizeof (cdat->dstr_2389__PPL_CONSTRAINT.val)-1); + + /*inistring dstr_2390__ppl_Constraint_t*/ + /*_.VALSTR___V2396*/ meltfptr[2395] = (void*)&cdat->dstr_2390__ppl_Constraint_t; + cdat->dstr_2390__ppl_Constraint_t.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2390__ppl_Constraint_t.val, "ppl_Constraint_t", sizeof (cdat->dstr_2390__ppl_Constraint_t.val)-1); + + /*inistring dstr_2391__BPAR_PPL_CONSTRA*/ + /*_.VALSTR___V2397*/ meltfptr[2396] = (void*)&cdat->dstr_2391__BPAR_PPL_CONSTRA; + cdat->dstr_2391__BPAR_PPL_CONSTRA.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2391__BPAR_PPL_CONSTRA.val, "BPAR_PPL_CONSTRAINT", sizeof (cdat->dstr_2391__BPAR_PPL_CONSTRA.val)-1); + + /*inistring dstr_2392__BPARSTR_PPL_CONS*/ + /*_.VALSTR___V2398*/ meltfptr[2397] = (void*)&cdat->dstr_2392__BPARSTR_PPL_CONS; + cdat->dstr_2392__BPARSTR_PPL_CONS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2392__BPARSTR_PPL_CONS.val, "BPARSTR_PPL_CONSTRAINT", sizeof (cdat->dstr_2392__BPARSTR_PPL_CONS.val)-1); + + /*inistring dstr_2393__bp_ppl_constrain*/ + /*_.VALSTR___V2399*/ meltfptr[2398] = (void*)&cdat->dstr_2393__bp_ppl_constrain; + cdat->dstr_2393__bp_ppl_constrain.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2393__bp_ppl_constrain.val, "bp_ppl_constraint", sizeof (cdat->dstr_2393__bp_ppl_constrain.val)-1); + + /*inistring dstr_2394__bp_ppl_constrain*/ + /*_.VALSTR___V2400*/ meltfptr[2399] = (void*)&cdat->dstr_2394__bp_ppl_constrain; + cdat->dstr_2394__bp_ppl_constrain.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2394__bp_ppl_constrain.val, "bp_ppl_constraintptr", sizeof (cdat->dstr_2394__bp_ppl_constrain.val)-1); + + /*iniobj dsym_2395__CTYPE_PPL_CONSTRAINT_SYSTEM*/ +/*uniqueobj*/ if (!/*_.VALDATA___V2401*/ meltfptr[2400]) /*_.VALDATA___V2401*/ meltfptr[2400] = (void*)&cdat->dsym_2395__CTYPE_PPL_CONSTRAINT_SYSTEM; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2395__CTYPE_PPL_CONSTRAINT_SYSTEM", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2395__CTYPE_PPL_CONSTRAINT_SYSTEM", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); + cdat->dsym_2395__CTYPE_PPL_CONSTRAINT_SYSTEM.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_2395__CTYPE_PPL_CONSTRAINT_SYSTEM.obj_hash = 450980506; + cdat->dsym_2395__CTYPE_PPL_CONSTRAINT_SYSTEM.obj_len = 3; + + /*inistring dstr_2396__CTYPE_PPL_CONSTR*/ + /*_.VALSTR___V2402*/ meltfptr[2401] = (void*)&cdat->dstr_2396__CTYPE_PPL_CONSTR; + cdat->dstr_2396__CTYPE_PPL_CONSTR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2396__CTYPE_PPL_CONSTR.val, "CTYPE_PPL_CONSTRAINT_SYSTEM", sizeof (cdat->dstr_2396__CTYPE_PPL_CONSTR.val)-1); + + MELT_LOCATION("warmelt-first.melt:1919:/ iniobj"); + /*iniobj dobj_2397__CTYPE_PPL_CONSTRAINT_SYSTEM*/ +if (((void*)(MELT_PREDEF(CTYPE_PPL_CONSTRAINT_SYSTEM))) != (melt_ptr_t)&cdat->dobj_2397__CTYPE_PPL_CONSTRAINT_SYSTEM) { melt_assertmsg("check.predef length ((void*)(MELT_PREDEF(CTYPE_PPL_CONSTRAINT_SYSTEM)))", melt_object_length((melt_ptr_t)(((void*)(MELT_PREDEF(CTYPE_PPL_CONSTRAINT_SYSTEM))))) >= 11); }; -/*_.VALDATA___V2385*/ meltfptr[2384] = ((void*)(MELT_PREDEF(CTYPE_PPL_CONSTRAINT_SYSTEM))); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2379__CTYPE_PPL_CONSTRAINT_SYSTEM", melt_magic_discr (/*_.VALDATA___V327*/ meltfptr[326]) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2379__CTYPE_PPL_CONSTRAINT_SYSTEM", ((meltobject_ptr_t) (/*_.VALDATA___V327*/ meltfptr[326]))->object_magic == OBMAG_OBJECT); - cdat->dobj_2379__CTYPE_PPL_CONSTRAINT_SYSTEM.obj_class = (meltobject_ptr_t)(/*_.VALDATA___V327*/ meltfptr[326]); - cdat->dobj_2379__CTYPE_PPL_CONSTRAINT_SYSTEM.obj_hash = 542416372; - cdat->dobj_2379__CTYPE_PPL_CONSTRAINT_SYSTEM.obj_len = 11; - - /*inistring dstr_2380__CTYPE_PPL_CONSTR*/ - /*_.VALSTR___V2386*/ meltfptr[2385] = (void*)&cdat->dstr_2380__CTYPE_PPL_CONSTR; - cdat->dstr_2380__CTYPE_PPL_CONSTR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2380__CTYPE_PPL_CONSTR.val, "CTYPE_PPL_CONSTRAINT_SYSTEM", sizeof (cdat->dstr_2380__CTYPE_PPL_CONSTR.val)-1); - - /*iniobj dsym_2381__PPL_CONSTRAINT_SYSTEM*/ -/*uniqueobj*/ if (!/*_.VALDATA___V2387*/ meltfptr[2386]) /*_.VALDATA___V2387*/ meltfptr[2386] = (void*)&cdat->dsym_2381__PPL_CONSTRAINT_SYSTEM; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2381__PPL_CONSTRAINT_SYSTEM", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_KEYWORD)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2381__PPL_CONSTRAINT_SYSTEM", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_KEYWORD)))))->object_magic == OBMAG_OBJECT); - cdat->dsym_2381__PPL_CONSTRAINT_SYSTEM.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_KEYWORD)))); - cdat->dsym_2381__PPL_CONSTRAINT_SYSTEM.obj_hash = 913923267; - cdat->dsym_2381__PPL_CONSTRAINT_SYSTEM.obj_len = 3; - - /*inistring dstr_2382__PPL_CONSTRAINT_S*/ - /*_.VALSTR___V2388*/ meltfptr[2387] = (void*)&cdat->dstr_2382__PPL_CONSTRAINT_S; - cdat->dstr_2382__PPL_CONSTRAINT_S.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2382__PPL_CONSTRAINT_S.val, "PPL_CONSTRAINT_SYSTEM", sizeof (cdat->dstr_2382__PPL_CONSTRAINT_S.val)-1); - - /*inistring dstr_2383__ppl_Constraint_S*/ - /*_.VALSTR___V2389*/ meltfptr[2388] = (void*)&cdat->dstr_2383__ppl_Constraint_S; - cdat->dstr_2383__ppl_Constraint_S.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2383__ppl_Constraint_S.val, "ppl_Constraint_System_t", sizeof (cdat->dstr_2383__ppl_Constraint_S.val)-1); - - /*inistring dstr_2384__BPAR_PPL_CONSTRA*/ - /*_.VALSTR___V2390*/ meltfptr[2389] = (void*)&cdat->dstr_2384__BPAR_PPL_CONSTRA; - cdat->dstr_2384__BPAR_PPL_CONSTRA.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2384__BPAR_PPL_CONSTRA.val, "BPAR_PPL_CONSTRAINT_SYSTEM", sizeof (cdat->dstr_2384__BPAR_PPL_CONSTRA.val)-1); - - /*inistring dstr_2385__BPARSTR_PPL_CONS*/ - /*_.VALSTR___V2391*/ meltfptr[2390] = (void*)&cdat->dstr_2385__BPARSTR_PPL_CONS; - cdat->dstr_2385__BPARSTR_PPL_CONS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2385__BPARSTR_PPL_CONS.val, "BPARSTR_PPL_CONSTRAINT_SYSTEM", sizeof (cdat->dstr_2385__BPARSTR_PPL_CONS.val)-1); - - /*inistring dstr_2386__bp_ppl_constrain*/ - /*_.VALSTR___V2392*/ meltfptr[2391] = (void*)&cdat->dstr_2386__bp_ppl_constrain; - cdat->dstr_2386__bp_ppl_constrain.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2386__bp_ppl_constrain.val, "bp_ppl_constraint_system", sizeof (cdat->dstr_2386__bp_ppl_constrain.val)-1); - - /*inistring dstr_2387__bp_ppl_constrain*/ - /*_.VALSTR___V2393*/ meltfptr[2392] = (void*)&cdat->dstr_2387__bp_ppl_constrain; - cdat->dstr_2387__bp_ppl_constrain.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2387__bp_ppl_constrain.val, "bp_ppl_constraint_systemptr", sizeof (cdat->dstr_2387__bp_ppl_constrain.val)-1); - - /*iniobj dsym_2388__CTYPE_PPL_POLYHEDRON*/ -/*uniqueobj*/ if (!/*_.VALDATA___V2394*/ meltfptr[2393]) /*_.VALDATA___V2394*/ meltfptr[2393] = (void*)&cdat->dsym_2388__CTYPE_PPL_POLYHEDRON; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2388__CTYPE_PPL_POLYHEDRON", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2388__CTYPE_PPL_POLYHEDRON", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); - cdat->dsym_2388__CTYPE_PPL_POLYHEDRON.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_2388__CTYPE_PPL_POLYHEDRON.obj_hash = 849173857; - cdat->dsym_2388__CTYPE_PPL_POLYHEDRON.obj_len = 3; - - /*inistring dstr_2389__CTYPE_PPL_POLYHE*/ - /*_.VALSTR___V2395*/ meltfptr[2394] = (void*)&cdat->dstr_2389__CTYPE_PPL_POLYHE; - cdat->dstr_2389__CTYPE_PPL_POLYHE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2389__CTYPE_PPL_POLYHE.val, "CTYPE_PPL_POLYHEDRON", sizeof (cdat->dstr_2389__CTYPE_PPL_POLYHE.val)-1); - - MELT_LOCATION("warmelt-first.melt:1927:/ iniobj"); - /*iniobj dobj_2390__CTYPE_PPL_POLYHEDRON*/ -if (((void*)(MELT_PREDEF(CTYPE_PPL_POLYHEDRON))) != (melt_ptr_t)&cdat->dobj_2390__CTYPE_PPL_POLYHEDRON) { +/*_.VALDATA___V2403*/ meltfptr[2402] = ((void*)(MELT_PREDEF(CTYPE_PPL_CONSTRAINT_SYSTEM))); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2397__CTYPE_PPL_CONSTRAINT_SYSTEM", melt_magic_discr (/*_.VALDATA___V327*/ meltfptr[326]) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2397__CTYPE_PPL_CONSTRAINT_SYSTEM", ((meltobject_ptr_t) (/*_.VALDATA___V327*/ meltfptr[326]))->object_magic == OBMAG_OBJECT); + cdat->dobj_2397__CTYPE_PPL_CONSTRAINT_SYSTEM.obj_class = (meltobject_ptr_t)(/*_.VALDATA___V327*/ meltfptr[326]); + cdat->dobj_2397__CTYPE_PPL_CONSTRAINT_SYSTEM.obj_hash = 110188272; + cdat->dobj_2397__CTYPE_PPL_CONSTRAINT_SYSTEM.obj_len = 11; + + /*inistring dstr_2398__CTYPE_PPL_CONSTR*/ + /*_.VALSTR___V2404*/ meltfptr[2403] = (void*)&cdat->dstr_2398__CTYPE_PPL_CONSTR; + cdat->dstr_2398__CTYPE_PPL_CONSTR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2398__CTYPE_PPL_CONSTR.val, "CTYPE_PPL_CONSTRAINT_SYSTEM", sizeof (cdat->dstr_2398__CTYPE_PPL_CONSTR.val)-1); + + /*iniobj dsym_2399__PPL_CONSTRAINT_SYSTEM*/ +/*uniqueobj*/ if (!/*_.VALDATA___V2405*/ meltfptr[2404]) /*_.VALDATA___V2405*/ meltfptr[2404] = (void*)&cdat->dsym_2399__PPL_CONSTRAINT_SYSTEM; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2399__PPL_CONSTRAINT_SYSTEM", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_KEYWORD)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2399__PPL_CONSTRAINT_SYSTEM", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_KEYWORD)))))->object_magic == OBMAG_OBJECT); + cdat->dsym_2399__PPL_CONSTRAINT_SYSTEM.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_KEYWORD)))); + cdat->dsym_2399__PPL_CONSTRAINT_SYSTEM.obj_hash = 913923267; + cdat->dsym_2399__PPL_CONSTRAINT_SYSTEM.obj_len = 3; + + /*inistring dstr_2400__PPL_CONSTRAINT_S*/ + /*_.VALSTR___V2406*/ meltfptr[2405] = (void*)&cdat->dstr_2400__PPL_CONSTRAINT_S; + cdat->dstr_2400__PPL_CONSTRAINT_S.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2400__PPL_CONSTRAINT_S.val, "PPL_CONSTRAINT_SYSTEM", sizeof (cdat->dstr_2400__PPL_CONSTRAINT_S.val)-1); + + /*inistring dstr_2401__ppl_Constraint_S*/ + /*_.VALSTR___V2407*/ meltfptr[2406] = (void*)&cdat->dstr_2401__ppl_Constraint_S; + cdat->dstr_2401__ppl_Constraint_S.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2401__ppl_Constraint_S.val, "ppl_Constraint_System_t", sizeof (cdat->dstr_2401__ppl_Constraint_S.val)-1); + + /*inistring dstr_2402__BPAR_PPL_CONSTRA*/ + /*_.VALSTR___V2408*/ meltfptr[2407] = (void*)&cdat->dstr_2402__BPAR_PPL_CONSTRA; + cdat->dstr_2402__BPAR_PPL_CONSTRA.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2402__BPAR_PPL_CONSTRA.val, "BPAR_PPL_CONSTRAINT_SYSTEM", sizeof (cdat->dstr_2402__BPAR_PPL_CONSTRA.val)-1); + + /*inistring dstr_2403__BPARSTR_PPL_CONS*/ + /*_.VALSTR___V2409*/ meltfptr[2408] = (void*)&cdat->dstr_2403__BPARSTR_PPL_CONS; + cdat->dstr_2403__BPARSTR_PPL_CONS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2403__BPARSTR_PPL_CONS.val, "BPARSTR_PPL_CONSTRAINT_SYSTEM", sizeof (cdat->dstr_2403__BPARSTR_PPL_CONS.val)-1); + + /*inistring dstr_2404__bp_ppl_constrain*/ + /*_.VALSTR___V2410*/ meltfptr[2409] = (void*)&cdat->dstr_2404__bp_ppl_constrain; + cdat->dstr_2404__bp_ppl_constrain.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2404__bp_ppl_constrain.val, "bp_ppl_constraint_system", sizeof (cdat->dstr_2404__bp_ppl_constrain.val)-1); + + /*inistring dstr_2405__bp_ppl_constrain*/ + /*_.VALSTR___V2411*/ meltfptr[2410] = (void*)&cdat->dstr_2405__bp_ppl_constrain; + cdat->dstr_2405__bp_ppl_constrain.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2405__bp_ppl_constrain.val, "bp_ppl_constraint_systemptr", sizeof (cdat->dstr_2405__bp_ppl_constrain.val)-1); + + /*iniobj dsym_2406__CTYPE_PPL_POLYHEDRON*/ +/*uniqueobj*/ if (!/*_.VALDATA___V2412*/ meltfptr[2411]) /*_.VALDATA___V2412*/ meltfptr[2411] = (void*)&cdat->dsym_2406__CTYPE_PPL_POLYHEDRON; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2406__CTYPE_PPL_POLYHEDRON", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2406__CTYPE_PPL_POLYHEDRON", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); + cdat->dsym_2406__CTYPE_PPL_POLYHEDRON.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_2406__CTYPE_PPL_POLYHEDRON.obj_hash = 849173857; + cdat->dsym_2406__CTYPE_PPL_POLYHEDRON.obj_len = 3; + + /*inistring dstr_2407__CTYPE_PPL_POLYHE*/ + /*_.VALSTR___V2413*/ meltfptr[2412] = (void*)&cdat->dstr_2407__CTYPE_PPL_POLYHE; + cdat->dstr_2407__CTYPE_PPL_POLYHE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2407__CTYPE_PPL_POLYHE.val, "CTYPE_PPL_POLYHEDRON", sizeof (cdat->dstr_2407__CTYPE_PPL_POLYHE.val)-1); + + MELT_LOCATION("warmelt-first.melt:1934:/ iniobj"); + /*iniobj dobj_2408__CTYPE_PPL_POLYHEDRON*/ +if (((void*)(MELT_PREDEF(CTYPE_PPL_POLYHEDRON))) != (melt_ptr_t)&cdat->dobj_2408__CTYPE_PPL_POLYHEDRON) { melt_assertmsg("check.predef length ((void*)(MELT_PREDEF(CTYPE_PPL_POLYHEDRON)))", melt_object_length((melt_ptr_t)(((void*)(MELT_PREDEF(CTYPE_PPL_POLYHEDRON))))) >= 11); }; -/*_.VALDATA___V2396*/ meltfptr[2395] = ((void*)(MELT_PREDEF(CTYPE_PPL_POLYHEDRON))); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2390__CTYPE_PPL_POLYHEDRON", melt_magic_discr (/*_.VALDATA___V327*/ meltfptr[326]) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2390__CTYPE_PPL_POLYHEDRON", ((meltobject_ptr_t) (/*_.VALDATA___V327*/ meltfptr[326]))->object_magic == OBMAG_OBJECT); - cdat->dobj_2390__CTYPE_PPL_POLYHEDRON.obj_class = (meltobject_ptr_t)(/*_.VALDATA___V327*/ meltfptr[326]); - cdat->dobj_2390__CTYPE_PPL_POLYHEDRON.obj_hash = 461500720; - cdat->dobj_2390__CTYPE_PPL_POLYHEDRON.obj_len = 11; - - /*inistring dstr_2391__CTYPE_PPL_POLYHE*/ - /*_.VALSTR___V2397*/ meltfptr[2396] = (void*)&cdat->dstr_2391__CTYPE_PPL_POLYHE; - cdat->dstr_2391__CTYPE_PPL_POLYHE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2391__CTYPE_PPL_POLYHE.val, "CTYPE_PPL_POLYHEDRON", sizeof (cdat->dstr_2391__CTYPE_PPL_POLYHE.val)-1); - - /*iniobj dsym_2392__PPL_POLYHEDRON*/ -/*uniqueobj*/ if (!/*_.VALDATA___V2398*/ meltfptr[2397]) /*_.VALDATA___V2398*/ meltfptr[2397] = (void*)&cdat->dsym_2392__PPL_POLYHEDRON; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2392__PPL_POLYHEDRON", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_KEYWORD)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2392__PPL_POLYHEDRON", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_KEYWORD)))))->object_magic == OBMAG_OBJECT); - cdat->dsym_2392__PPL_POLYHEDRON.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_KEYWORD)))); - cdat->dsym_2392__PPL_POLYHEDRON.obj_hash = 542236482; - cdat->dsym_2392__PPL_POLYHEDRON.obj_len = 3; - - /*inistring dstr_2393__PPL_POLYHEDRON*/ - /*_.VALSTR___V2399*/ meltfptr[2398] = (void*)&cdat->dstr_2393__PPL_POLYHEDRON; - cdat->dstr_2393__PPL_POLYHEDRON.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2393__PPL_POLYHEDRON.val, "PPL_POLYHEDRON", sizeof (cdat->dstr_2393__PPL_POLYHEDRON.val)-1); - - /*inistring dstr_2394__ppl_Polyhedron_t*/ - /*_.VALSTR___V2400*/ meltfptr[2399] = (void*)&cdat->dstr_2394__ppl_Polyhedron_t; - cdat->dstr_2394__ppl_Polyhedron_t.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2394__ppl_Polyhedron_t.val, "ppl_Polyhedron_t", sizeof (cdat->dstr_2394__ppl_Polyhedron_t.val)-1); - - /*inistring dstr_2395__BPAR_PPL_POLYHED*/ - /*_.VALSTR___V2401*/ meltfptr[2400] = (void*)&cdat->dstr_2395__BPAR_PPL_POLYHED; - cdat->dstr_2395__BPAR_PPL_POLYHED.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2395__BPAR_PPL_POLYHED.val, "BPAR_PPL_POLYHEDRON", sizeof (cdat->dstr_2395__BPAR_PPL_POLYHED.val)-1); - - /*inistring dstr_2396__BPARSTR_PPL_POLY*/ - /*_.VALSTR___V2402*/ meltfptr[2401] = (void*)&cdat->dstr_2396__BPARSTR_PPL_POLY; - cdat->dstr_2396__BPARSTR_PPL_POLY.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2396__BPARSTR_PPL_POLY.val, "BPARSTR_PPL_POLYHEDRON", sizeof (cdat->dstr_2396__BPARSTR_PPL_POLY.val)-1); - - /*inistring dstr_2397__bp_ppl_polyhedro*/ - /*_.VALSTR___V2403*/ meltfptr[2402] = (void*)&cdat->dstr_2397__bp_ppl_polyhedro; - cdat->dstr_2397__bp_ppl_polyhedro.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2397__bp_ppl_polyhedro.val, "bp_ppl_polyhedron", sizeof (cdat->dstr_2397__bp_ppl_polyhedro.val)-1); - - /*inistring dstr_2398__bp_ppl_polyhedro*/ - /*_.VALSTR___V2404*/ meltfptr[2403] = (void*)&cdat->dstr_2398__bp_ppl_polyhedro; - cdat->dstr_2398__bp_ppl_polyhedro.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2398__bp_ppl_polyhedro.val, "bp_ppl_polyhedronptr", sizeof (cdat->dstr_2398__bp_ppl_polyhedro.val)-1); - - /*iniobj dsym_2399__CTYPE_VOID*/ -/*uniqueobj*/ if (!/*_.VALDATA___V2405*/ meltfptr[2404]) /*_.VALDATA___V2405*/ meltfptr[2404] = (void*)&cdat->dsym_2399__CTYPE_VOID; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2399__CTYPE_VOID", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2399__CTYPE_VOID", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); - cdat->dsym_2399__CTYPE_VOID.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_2399__CTYPE_VOID.obj_hash = 94242002; - cdat->dsym_2399__CTYPE_VOID.obj_len = 3; - - /*inistring dstr_2400__CTYPE_VOID*/ - /*_.VALSTR___V2406*/ meltfptr[2405] = (void*)&cdat->dstr_2400__CTYPE_VOID; - cdat->dstr_2400__CTYPE_VOID.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2400__CTYPE_VOID.val, "CTYPE_VOID", sizeof (cdat->dstr_2400__CTYPE_VOID.val)-1); - - MELT_LOCATION("warmelt-first.melt:1943:/ iniobj"); - /*iniobj dobj_2401__CTYPE_VOID*/ -if (((void*)(MELT_PREDEF(CTYPE_VOID))) != (melt_ptr_t)&cdat->dobj_2401__CTYPE_VOID) { +/*_.VALDATA___V2414*/ meltfptr[2413] = ((void*)(MELT_PREDEF(CTYPE_PPL_POLYHEDRON))); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2408__CTYPE_PPL_POLYHEDRON", melt_magic_discr (/*_.VALDATA___V327*/ meltfptr[326]) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2408__CTYPE_PPL_POLYHEDRON", ((meltobject_ptr_t) (/*_.VALDATA___V327*/ meltfptr[326]))->object_magic == OBMAG_OBJECT); + cdat->dobj_2408__CTYPE_PPL_POLYHEDRON.obj_class = (meltobject_ptr_t)(/*_.VALDATA___V327*/ meltfptr[326]); + cdat->dobj_2408__CTYPE_PPL_POLYHEDRON.obj_hash = 1046799811; + cdat->dobj_2408__CTYPE_PPL_POLYHEDRON.obj_len = 11; + + /*inistring dstr_2409__CTYPE_PPL_POLYHE*/ + /*_.VALSTR___V2415*/ meltfptr[2414] = (void*)&cdat->dstr_2409__CTYPE_PPL_POLYHE; + cdat->dstr_2409__CTYPE_PPL_POLYHE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2409__CTYPE_PPL_POLYHE.val, "CTYPE_PPL_POLYHEDRON", sizeof (cdat->dstr_2409__CTYPE_PPL_POLYHE.val)-1); + + /*iniobj dsym_2410__PPL_POLYHEDRON*/ +/*uniqueobj*/ if (!/*_.VALDATA___V2416*/ meltfptr[2415]) /*_.VALDATA___V2416*/ meltfptr[2415] = (void*)&cdat->dsym_2410__PPL_POLYHEDRON; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2410__PPL_POLYHEDRON", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_KEYWORD)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2410__PPL_POLYHEDRON", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_KEYWORD)))))->object_magic == OBMAG_OBJECT); + cdat->dsym_2410__PPL_POLYHEDRON.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_KEYWORD)))); + cdat->dsym_2410__PPL_POLYHEDRON.obj_hash = 542236482; + cdat->dsym_2410__PPL_POLYHEDRON.obj_len = 3; + + /*inistring dstr_2411__PPL_POLYHEDRON*/ + /*_.VALSTR___V2417*/ meltfptr[2416] = (void*)&cdat->dstr_2411__PPL_POLYHEDRON; + cdat->dstr_2411__PPL_POLYHEDRON.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2411__PPL_POLYHEDRON.val, "PPL_POLYHEDRON", sizeof (cdat->dstr_2411__PPL_POLYHEDRON.val)-1); + + /*inistring dstr_2412__ppl_Polyhedron_t*/ + /*_.VALSTR___V2418*/ meltfptr[2417] = (void*)&cdat->dstr_2412__ppl_Polyhedron_t; + cdat->dstr_2412__ppl_Polyhedron_t.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2412__ppl_Polyhedron_t.val, "ppl_Polyhedron_t", sizeof (cdat->dstr_2412__ppl_Polyhedron_t.val)-1); + + /*inistring dstr_2413__BPAR_PPL_POLYHED*/ + /*_.VALSTR___V2419*/ meltfptr[2418] = (void*)&cdat->dstr_2413__BPAR_PPL_POLYHED; + cdat->dstr_2413__BPAR_PPL_POLYHED.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2413__BPAR_PPL_POLYHED.val, "BPAR_PPL_POLYHEDRON", sizeof (cdat->dstr_2413__BPAR_PPL_POLYHED.val)-1); + + /*inistring dstr_2414__BPARSTR_PPL_POLY*/ + /*_.VALSTR___V2420*/ meltfptr[2419] = (void*)&cdat->dstr_2414__BPARSTR_PPL_POLY; + cdat->dstr_2414__BPARSTR_PPL_POLY.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2414__BPARSTR_PPL_POLY.val, "BPARSTR_PPL_POLYHEDRON", sizeof (cdat->dstr_2414__BPARSTR_PPL_POLY.val)-1); + + /*inistring dstr_2415__bp_ppl_polyhedro*/ + /*_.VALSTR___V2421*/ meltfptr[2420] = (void*)&cdat->dstr_2415__bp_ppl_polyhedro; + cdat->dstr_2415__bp_ppl_polyhedro.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2415__bp_ppl_polyhedro.val, "bp_ppl_polyhedron", sizeof (cdat->dstr_2415__bp_ppl_polyhedro.val)-1); + + /*inistring dstr_2416__bp_ppl_polyhedro*/ + /*_.VALSTR___V2422*/ meltfptr[2421] = (void*)&cdat->dstr_2416__bp_ppl_polyhedro; + cdat->dstr_2416__bp_ppl_polyhedro.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2416__bp_ppl_polyhedro.val, "bp_ppl_polyhedronptr", sizeof (cdat->dstr_2416__bp_ppl_polyhedro.val)-1); + + /*iniobj dsym_2417__CTYPE_VOID*/ +/*uniqueobj*/ if (!/*_.VALDATA___V2423*/ meltfptr[2422]) /*_.VALDATA___V2423*/ meltfptr[2422] = (void*)&cdat->dsym_2417__CTYPE_VOID; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2417__CTYPE_VOID", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2417__CTYPE_VOID", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); + cdat->dsym_2417__CTYPE_VOID.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_2417__CTYPE_VOID.obj_hash = 94242002; + cdat->dsym_2417__CTYPE_VOID.obj_len = 3; + + /*inistring dstr_2418__CTYPE_VOID*/ + /*_.VALSTR___V2424*/ meltfptr[2423] = (void*)&cdat->dstr_2418__CTYPE_VOID; + cdat->dstr_2418__CTYPE_VOID.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2418__CTYPE_VOID.val, "CTYPE_VOID", sizeof (cdat->dstr_2418__CTYPE_VOID.val)-1); + + MELT_LOCATION("warmelt-first.melt:1950:/ iniobj"); + /*iniobj dobj_2419__CTYPE_VOID*/ +if (((void*)(MELT_PREDEF(CTYPE_VOID))) != (melt_ptr_t)&cdat->dobj_2419__CTYPE_VOID) { melt_assertmsg("check.predef length ((void*)(MELT_PREDEF(CTYPE_VOID)))", melt_object_length((melt_ptr_t)(((void*)(MELT_PREDEF(CTYPE_VOID))))) >= 11); }; -/*_.VALDATA___V2407*/ meltfptr[2406] = ((void*)(MELT_PREDEF(CTYPE_VOID))); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2401__CTYPE_VOID", melt_magic_discr (/*_.VALDATA___V327*/ meltfptr[326]) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2401__CTYPE_VOID", ((meltobject_ptr_t) (/*_.VALDATA___V327*/ meltfptr[326]))->object_magic == OBMAG_OBJECT); - cdat->dobj_2401__CTYPE_VOID.obj_class = (meltobject_ptr_t)(/*_.VALDATA___V327*/ meltfptr[326]); - cdat->dobj_2401__CTYPE_VOID.obj_hash = 628831617; - cdat->dobj_2401__CTYPE_VOID.obj_len = 11; - - /*inistring dstr_2402__CTYPE_VOID*/ - /*_.VALSTR___V2408*/ meltfptr[2407] = (void*)&cdat->dstr_2402__CTYPE_VOID; - cdat->dstr_2402__CTYPE_VOID.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2402__CTYPE_VOID.val, "CTYPE_VOID", sizeof (cdat->dstr_2402__CTYPE_VOID.val)-1); - - /*iniobj dsym_2403__VOID*/ -/*uniqueobj*/ if (!/*_.VALDATA___V2409*/ meltfptr[2408]) /*_.VALDATA___V2409*/ meltfptr[2408] = (void*)&cdat->dsym_2403__VOID; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2403__VOID", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_KEYWORD)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2403__VOID", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_KEYWORD)))))->object_magic == OBMAG_OBJECT); - cdat->dsym_2403__VOID.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_KEYWORD)))); - cdat->dsym_2403__VOID.obj_hash = 123885219; - cdat->dsym_2403__VOID.obj_len = 3; - - /*inistring dstr_2404__VOID*/ - /*_.VALSTR___V2410*/ meltfptr[2409] = (void*)&cdat->dstr_2404__VOID; - cdat->dstr_2404__VOID.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2404__VOID.val, "VOID", sizeof (cdat->dstr_2404__VOID.val)-1); - - /*inistring dstr_2405__void*/ - /*_.VALSTR___V2411*/ meltfptr[2410] = (void*)&cdat->dstr_2405__void; - cdat->dstr_2405__void.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2405__void.val, "void", sizeof (cdat->dstr_2405__void.val)-1); - - /*iniobj dsym_2406__CTYPE_CSTRING*/ -/*uniqueobj*/ if (!/*_.VALDATA___V2412*/ meltfptr[2411]) /*_.VALDATA___V2412*/ meltfptr[2411] = (void*)&cdat->dsym_2406__CTYPE_CSTRING; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2406__CTYPE_CSTRING", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2406__CTYPE_CSTRING", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); - cdat->dsym_2406__CTYPE_CSTRING.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_2406__CTYPE_CSTRING.obj_hash = 90196516; - cdat->dsym_2406__CTYPE_CSTRING.obj_len = 3; - - /*inistring dstr_2407__CTYPE_CSTRING*/ - /*_.VALSTR___V2413*/ meltfptr[2412] = (void*)&cdat->dstr_2407__CTYPE_CSTRING; - cdat->dstr_2407__CTYPE_CSTRING.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2407__CTYPE_CSTRING.val, "CTYPE_CSTRING", sizeof (cdat->dstr_2407__CTYPE_CSTRING.val)-1); - - MELT_LOCATION("warmelt-first.melt:1955:/ iniobj"); - /*iniobj dobj_2408__CTYPE_CSTRING*/ -if (((void*)(MELT_PREDEF(CTYPE_CSTRING))) != (melt_ptr_t)&cdat->dobj_2408__CTYPE_CSTRING) { +/*_.VALDATA___V2425*/ meltfptr[2424] = ((void*)(MELT_PREDEF(CTYPE_VOID))); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2419__CTYPE_VOID", melt_magic_discr (/*_.VALDATA___V327*/ meltfptr[326]) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2419__CTYPE_VOID", ((meltobject_ptr_t) (/*_.VALDATA___V327*/ meltfptr[326]))->object_magic == OBMAG_OBJECT); + cdat->dobj_2419__CTYPE_VOID.obj_class = (meltobject_ptr_t)(/*_.VALDATA___V327*/ meltfptr[326]); + cdat->dobj_2419__CTYPE_VOID.obj_hash = 961457393; + cdat->dobj_2419__CTYPE_VOID.obj_len = 11; + + /*inistring dstr_2420__CTYPE_VOID*/ + /*_.VALSTR___V2426*/ meltfptr[2425] = (void*)&cdat->dstr_2420__CTYPE_VOID; + cdat->dstr_2420__CTYPE_VOID.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2420__CTYPE_VOID.val, "CTYPE_VOID", sizeof (cdat->dstr_2420__CTYPE_VOID.val)-1); + + /*iniobj dsym_2421__VOID*/ +/*uniqueobj*/ if (!/*_.VALDATA___V2427*/ meltfptr[2426]) /*_.VALDATA___V2427*/ meltfptr[2426] = (void*)&cdat->dsym_2421__VOID; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2421__VOID", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_KEYWORD)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2421__VOID", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_KEYWORD)))))->object_magic == OBMAG_OBJECT); + cdat->dsym_2421__VOID.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_KEYWORD)))); + cdat->dsym_2421__VOID.obj_hash = 123885219; + cdat->dsym_2421__VOID.obj_len = 3; + + /*inistring dstr_2422__VOID*/ + /*_.VALSTR___V2428*/ meltfptr[2427] = (void*)&cdat->dstr_2422__VOID; + cdat->dstr_2422__VOID.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2422__VOID.val, "VOID", sizeof (cdat->dstr_2422__VOID.val)-1); + + /*inistring dstr_2423__void*/ + /*_.VALSTR___V2429*/ meltfptr[2428] = (void*)&cdat->dstr_2423__void; + cdat->dstr_2423__void.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2423__void.val, "void", sizeof (cdat->dstr_2423__void.val)-1); + + /*iniobj dsym_2424__CTYPE_CSTRING*/ +/*uniqueobj*/ if (!/*_.VALDATA___V2430*/ meltfptr[2429]) /*_.VALDATA___V2430*/ meltfptr[2429] = (void*)&cdat->dsym_2424__CTYPE_CSTRING; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2424__CTYPE_CSTRING", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2424__CTYPE_CSTRING", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); + cdat->dsym_2424__CTYPE_CSTRING.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_2424__CTYPE_CSTRING.obj_hash = 90196516; + cdat->dsym_2424__CTYPE_CSTRING.obj_len = 3; + + /*inistring dstr_2425__CTYPE_CSTRING*/ + /*_.VALSTR___V2431*/ meltfptr[2430] = (void*)&cdat->dstr_2425__CTYPE_CSTRING; + cdat->dstr_2425__CTYPE_CSTRING.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2425__CTYPE_CSTRING.val, "CTYPE_CSTRING", sizeof (cdat->dstr_2425__CTYPE_CSTRING.val)-1); + + MELT_LOCATION("warmelt-first.melt:1962:/ iniobj"); + /*iniobj dobj_2426__CTYPE_CSTRING*/ +if (((void*)(MELT_PREDEF(CTYPE_CSTRING))) != (melt_ptr_t)&cdat->dobj_2426__CTYPE_CSTRING) { melt_assertmsg("check.predef length ((void*)(MELT_PREDEF(CTYPE_CSTRING)))", melt_object_length((melt_ptr_t)(((void*)(MELT_PREDEF(CTYPE_CSTRING))))) >= 11); }; -/*_.VALDATA___V2414*/ meltfptr[2413] = ((void*)(MELT_PREDEF(CTYPE_CSTRING))); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2408__CTYPE_CSTRING", melt_magic_discr (/*_.VALDATA___V327*/ meltfptr[326]) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2408__CTYPE_CSTRING", ((meltobject_ptr_t) (/*_.VALDATA___V327*/ meltfptr[326]))->object_magic == OBMAG_OBJECT); - cdat->dobj_2408__CTYPE_CSTRING.obj_class = (meltobject_ptr_t)(/*_.VALDATA___V327*/ meltfptr[326]); - cdat->dobj_2408__CTYPE_CSTRING.obj_hash = 836074317; - cdat->dobj_2408__CTYPE_CSTRING.obj_len = 11; - - /*inistring dstr_2409__CTYPE_CSTRING*/ - /*_.VALSTR___V2416*/ meltfptr[2415] = (void*)&cdat->dstr_2409__CTYPE_CSTRING; - cdat->dstr_2409__CTYPE_CSTRING.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2409__CTYPE_CSTRING.val, "CTYPE_CSTRING", sizeof (cdat->dstr_2409__CTYPE_CSTRING.val)-1); - - /*iniobj dsym_2410__CSTRING*/ -/*uniqueobj*/ if (!/*_.VALDATA___V2417*/ meltfptr[2416]) /*_.VALDATA___V2417*/ meltfptr[2416] = (void*)&cdat->dsym_2410__CSTRING; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2410__CSTRING", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_KEYWORD)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2410__CSTRING", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_KEYWORD)))))->object_magic == OBMAG_OBJECT); - cdat->dsym_2410__CSTRING.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_KEYWORD)))); - cdat->dsym_2410__CSTRING.obj_hash = 33530498; - cdat->dsym_2410__CSTRING.obj_len = 3; - - /*inistring dstr_2411__CSTRING*/ - /*_.VALSTR___V2418*/ meltfptr[2417] = (void*)&cdat->dstr_2411__CSTRING; - cdat->dstr_2411__CSTRING.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2411__CSTRING.val, "CSTRING", sizeof (cdat->dstr_2411__CSTRING.val)-1); - - /*inistring dstr_2412__BPAR_CSTRING*/ - /*_.VALSTR___V2419*/ meltfptr[2418] = (void*)&cdat->dstr_2412__BPAR_CSTRING; - cdat->dstr_2412__BPAR_CSTRING.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2412__BPAR_CSTRING.val, "BPAR_CSTRING", sizeof (cdat->dstr_2412__BPAR_CSTRING.val)-1); - - /*inistring dstr_2413__BPARSTR_CSTRING*/ - /*_.VALSTR___V2420*/ meltfptr[2419] = (void*)&cdat->dstr_2413__BPARSTR_CSTRING; - cdat->dstr_2413__BPARSTR_CSTRING.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2413__BPARSTR_CSTRING.val, "BPARSTR_CSTRING", sizeof (cdat->dstr_2413__BPARSTR_CSTRING.val)-1); - - /*inistring dstr_2414__bp_cstring*/ - /*_.VALSTR___V2421*/ meltfptr[2420] = (void*)&cdat->dstr_2414__bp_cstring; - cdat->dstr_2414__bp_cstring.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2414__bp_cstring.val, "bp_cstring", sizeof (cdat->dstr_2414__bp_cstring.val)-1); - - /*inirout drout_2415__ADD_NEW_SYMBOL_TOKEN*/ - /*_.VALROUT___V2422*/ meltfptr[2421] = (void*)&cdat->drout_2415__ADD_NEW_SYMBOL_TOKEN; - cdat->drout_2415__ADD_NEW_SYMBOL_TOKEN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); - strncpy(cdat->drout_2415__ADD_NEW_SYMBOL_TOKEN.routdescr, "ADD_NEW_SYMBOL_TOKEN @warmelt-first.melt:1971", MELT_ROUTDESCR_LEN - 1); - cdat->drout_2415__ADD_NEW_SYMBOL_TOKEN.nbval = 2; - MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_2415__ADD_NEW_SYMBOL_TOKEN, meltrout_2_warmelt_first_ADD_NEW_SYMBOL_TOKEN); - - /*iniclos dclo_2416__ADD_NEW_SYMBOL_TOKEN*/ - /*_.VALCLO___V2423*/ meltfptr[2422] = (void*)&cdat->dclo_2416__ADD_NEW_SYMBOL_TOKEN; - cdat->dclo_2416__ADD_NEW_SYMBOL_TOKEN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); - cdat->dclo_2416__ADD_NEW_SYMBOL_TOKEN.nbval = 0; - - /*inirout drout_2417__ADD_NEW_KEYWORD_TOKEN*/ - /*_.VALROUT___V2424*/ meltfptr[2423] = (void*)&cdat->drout_2417__ADD_NEW_KEYWORD_TOKEN; - cdat->drout_2417__ADD_NEW_KEYWORD_TOKEN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); - strncpy(cdat->drout_2417__ADD_NEW_KEYWORD_TOKEN.routdescr, "ADD_NEW_KEYWORD_TOKEN @warmelt-first.melt:1980", MELT_ROUTDESCR_LEN - 1); - cdat->drout_2417__ADD_NEW_KEYWORD_TOKEN.nbval = 2; - MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_2417__ADD_NEW_KEYWORD_TOKEN, meltrout_3_warmelt_first_ADD_NEW_KEYWORD_TOKEN); - - /*iniclos dclo_2418__ADD_NEW_KEYWORD_TOKEN*/ - /*_.VALCLO___V2425*/ meltfptr[2424] = (void*)&cdat->dclo_2418__ADD_NEW_KEYWORD_TOKEN; - cdat->dclo_2418__ADD_NEW_KEYWORD_TOKEN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); - cdat->dclo_2418__ADD_NEW_KEYWORD_TOKEN.nbval = 0; - - /*inirout drout_2419__INTERN_SYMBOL*/ - /*_.VALROUT___V2426*/ meltfptr[2425] = (void*)&cdat->drout_2419__INTERN_SYMBOL; - cdat->drout_2419__INTERN_SYMBOL.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); - strncpy(cdat->drout_2419__INTERN_SYMBOL.routdescr, "INTERN_SYMBOL @warmelt-first.melt:1989", MELT_ROUTDESCR_LEN - 1); - cdat->drout_2419__INTERN_SYMBOL.nbval = 2; - MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_2419__INTERN_SYMBOL, meltrout_4_warmelt_first_INTERN_SYMBOL); - - /*iniclos dclo_2420__INTERN_SYMBOL*/ - /*_.VALCLO___V2427*/ meltfptr[2426] = (void*)&cdat->dclo_2420__INTERN_SYMBOL; - cdat->dclo_2420__INTERN_SYMBOL.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); - cdat->dclo_2420__INTERN_SYMBOL.nbval = 0; - - /*inirout drout_2421__INTERN_KEYWORD*/ - /*_.VALROUT___V2428*/ meltfptr[2427] = (void*)&cdat->drout_2421__INTERN_KEYWORD; - cdat->drout_2421__INTERN_KEYWORD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); - strncpy(cdat->drout_2421__INTERN_KEYWORD.routdescr, "INTERN_KEYWORD @warmelt-first.melt:2004", MELT_ROUTDESCR_LEN - 1); - cdat->drout_2421__INTERN_KEYWORD.nbval = 2; - MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_2421__INTERN_KEYWORD, meltrout_5_warmelt_first_INTERN_KEYWORD); - - /*iniclos dclo_2422__INTERN_KEYWORD*/ - /*_.VALCLO___V2429*/ meltfptr[2428] = (void*)&cdat->dclo_2422__INTERN_KEYWORD; - cdat->dclo_2422__INTERN_KEYWORD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); - cdat->dclo_2422__INTERN_KEYWORD.nbval = 0; - - /*iniobj dsym_2423__CONTAINER_CLONEMAPSTRING*/ -/*uniqueobj*/ if (!/*_.VALDATA___V2430*/ meltfptr[2429]) /*_.VALDATA___V2430*/ meltfptr[2429] = (void*)&cdat->dsym_2423__CONTAINER_CLONEMAPSTRING; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2423__CONTAINER_CLONEMAPSTRING", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2423__CONTAINER_CLONEMAPSTRING", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); - cdat->dsym_2423__CONTAINER_CLONEMAPSTRING.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_2423__CONTAINER_CLONEMAPSTRING.obj_hash = 81420896; - cdat->dsym_2423__CONTAINER_CLONEMAPSTRING.obj_len = 3; - - /*inistring dstr_2424__CONTAINER_CLONEM*/ - /*_.VALSTR___V2431*/ meltfptr[2430] = (void*)&cdat->dstr_2424__CONTAINER_CLONEM; - cdat->dstr_2424__CONTAINER_CLONEM.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2424__CONTAINER_CLONEM.val, "CONTAINER_CLONEMAPSTRING", sizeof (cdat->dstr_2424__CONTAINER_CLONEM.val)-1); - - MELT_LOCATION("warmelt-first.melt:2016:/ iniobj"); - /*iniobj dobj_2425__CONTAINER_CLONEMAPSTRING*/ -/*_.VALDATA___V2432*/ meltfptr[2431] = (void*)&cdat->dobj_2425__CONTAINER_CLONEMAPSTRING; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2425__CONTAINER_CLONEMAPSTRING", melt_magic_discr (/*_.VALDATA___V25*/ meltfptr[24]) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2425__CONTAINER_CLONEMAPSTRING", ((meltobject_ptr_t) (/*_.VALDATA___V25*/ meltfptr[24]))->object_magic == OBMAG_OBJECT); - cdat->dobj_2425__CONTAINER_CLONEMAPSTRING.obj_class = (meltobject_ptr_t)(/*_.VALDATA___V25*/ meltfptr[24]); - cdat->dobj_2425__CONTAINER_CLONEMAPSTRING.obj_hash = 13483728; - cdat->dobj_2425__CONTAINER_CLONEMAPSTRING.obj_len = 1; - - /*inirout drout_2426__CLONE_SYMBOL*/ - /*_.VALROUT___V2434*/ meltfptr[2433] = (void*)&cdat->drout_2426__CLONE_SYMBOL; - cdat->drout_2426__CLONE_SYMBOL.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); - strncpy(cdat->drout_2426__CLONE_SYMBOL.routdescr, "CLONE_SYMBOL @warmelt-first.melt:2020", MELT_ROUTDESCR_LEN - 1); - cdat->drout_2426__CLONE_SYMBOL.nbval = 6; - MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_2426__CLONE_SYMBOL, meltrout_6_warmelt_first_CLONE_SYMBOL); - - /*iniclos dclo_2427__CLONE_SYMBOL*/ - /*_.VALCLO___V2512*/ meltfptr[2511] = (void*)&cdat->dclo_2427__CLONE_SYMBOL; - cdat->dclo_2427__CLONE_SYMBOL.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); - cdat->dclo_2427__CLONE_SYMBOL.nbval = 0; - - /*inirout drout_2428__INITFRESH_CONTENVMAKER*/ - /*_.VALROUT___V2444*/ meltfptr[2443] = (void*)&cdat->drout_2428__INITFRESH_CONTENVMAKER; - cdat->drout_2428__INITFRESH_CONTENVMAKER.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); - strncpy(cdat->drout_2428__INITFRESH_CONTENVMAKER.routdescr, "INITFRESH_CONTENVMAKER @warmelt-first.melt:2072", MELT_ROUTDESCR_LEN - 1); - cdat->drout_2428__INITFRESH_CONTENVMAKER.nbval = 3; - MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_2428__INITFRESH_CONTENVMAKER, meltrout_7_warmelt_first_INITFRESH_CONTENVMAKER); - - /*iniclos dclo_2429__INITFRESH_CONTENVMAKER*/ - /*_.VALCLO___V2443*/ meltfptr[2442] = (void*)&cdat->dclo_2429__INITFRESH_CONTENVMAKER; - cdat->dclo_2429__INITFRESH_CONTENVMAKER.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); - cdat->dclo_2429__INITFRESH_CONTENVMAKER.nbval = 0; - - /*inirout drout_2430__INITVALUE_EXPORTER*/ - /*_.VALROUT___V2448*/ meltfptr[2447] = (void*)&cdat->drout_2430__INITVALUE_EXPORTER; - cdat->drout_2430__INITVALUE_EXPORTER.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); - strncpy(cdat->drout_2430__INITVALUE_EXPORTER.routdescr, "INITVALUE_EXPORTER @warmelt-first.melt:2086", MELT_ROUTDESCR_LEN - 1); - cdat->drout_2430__INITVALUE_EXPORTER.nbval = 17; - MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_2430__INITVALUE_EXPORTER, meltrout_8_warmelt_first_INITVALUE_EXPORTER); - - /*iniclos dclo_2431__INITVALUE_EXPORTER*/ - /*_.VALCLO___V2447*/ meltfptr[2446] = (void*)&cdat->dclo_2431__INITVALUE_EXPORTER; - cdat->dclo_2431__INITVALUE_EXPORTER.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); - cdat->dclo_2431__INITVALUE_EXPORTER.nbval = 0; - - /*inirout drout_2432__INITVALUE_IMPORTER*/ - /*_.VALROUT___V2456*/ meltfptr[2455] = (void*)&cdat->drout_2432__INITVALUE_IMPORTER; - cdat->drout_2432__INITVALUE_IMPORTER.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); - strncpy(cdat->drout_2432__INITVALUE_IMPORTER.routdescr, "INITVALUE_IMPORTER @warmelt-first.melt:2176", MELT_ROUTDESCR_LEN - 1); - cdat->drout_2432__INITVALUE_IMPORTER.nbval = 6; - MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_2432__INITVALUE_IMPORTER, meltrout_9_warmelt_first_INITVALUE_IMPORTER); - - /*iniclos dclo_2433__INITVALUE_IMPORTER*/ - /*_.VALCLO___V2455*/ meltfptr[2454] = (void*)&cdat->dclo_2433__INITVALUE_IMPORTER; - cdat->dclo_2433__INITVALUE_IMPORTER.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); - cdat->dclo_2433__INITVALUE_IMPORTER.nbval = 0; - - /*inirout drout_2434__INITMACRO_EXPORTER*/ - /*_.VALROUT___V2454*/ meltfptr[2453] = (void*)&cdat->drout_2434__INITMACRO_EXPORTER; - cdat->drout_2434__INITMACRO_EXPORTER.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); - strncpy(cdat->drout_2434__INITMACRO_EXPORTER.routdescr, "INITMACRO_EXPORTER @warmelt-first.melt:2217", MELT_ROUTDESCR_LEN - 1); - cdat->drout_2434__INITMACRO_EXPORTER.nbval = 7; - MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_2434__INITMACRO_EXPORTER, meltrout_10_warmelt_first_INITMACRO_EXPORTER); - - /*iniclos dclo_2435__INITMACRO_EXPORTER*/ - /*_.VALCLO___V2453*/ meltfptr[2452] = (void*)&cdat->dclo_2435__INITMACRO_EXPORTER; - cdat->dclo_2435__INITMACRO_EXPORTER.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); - cdat->dclo_2435__INITMACRO_EXPORTER.nbval = 0; - - /*inirout drout_2436__INITPATMACRO_EXPORTER*/ - /*_.VALROUT___V2479*/ meltfptr[2478] = (void*)&cdat->drout_2436__INITPATMACRO_EXPORTER; - cdat->drout_2436__INITPATMACRO_EXPORTER.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); - strncpy(cdat->drout_2436__INITPATMACRO_EXPORTER.routdescr, "INITPATMACRO_EXPORTER @warmelt-first.melt:2247", MELT_ROUTDESCR_LEN - 1); - cdat->drout_2436__INITPATMACRO_EXPORTER.nbval = 6; - MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_2436__INITPATMACRO_EXPORTER, meltrout_11_warmelt_first_INITPATMACRO_EXPORTER); - - /*iniclos dclo_2437__INITPATMACRO_EXPORTER*/ - /*_.VALCLO___V2478*/ meltfptr[2477] = (void*)&cdat->dclo_2437__INITPATMACRO_EXPORTER; - cdat->dclo_2437__INITPATMACRO_EXPORTER.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); - cdat->dclo_2437__INITPATMACRO_EXPORTER.nbval = 0; - - /*iniobj dsym_2438__CLASS_DELAYED_QUEUE*/ -/*uniqueobj*/ if (!/*_.VALDATA___V2513*/ meltfptr[2512]) /*_.VALDATA___V2513*/ meltfptr[2512] = (void*)&cdat->dsym_2438__CLASS_DELAYED_QUEUE; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2438__CLASS_DELAYED_QUEUE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2438__CLASS_DELAYED_QUEUE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); - cdat->dsym_2438__CLASS_DELAYED_QUEUE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_2438__CLASS_DELAYED_QUEUE.obj_hash = 761132519; - cdat->dsym_2438__CLASS_DELAYED_QUEUE.obj_len = 3; - - /*inistring dstr_2439__CLASS_DELAYED_QU*/ - /*_.VALSTR___V2514*/ meltfptr[2513] = (void*)&cdat->dstr_2439__CLASS_DELAYED_QU; - cdat->dstr_2439__CLASS_DELAYED_QU.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2439__CLASS_DELAYED_QU.val, "CLASS_DELAYED_QUEUE", sizeof (cdat->dstr_2439__CLASS_DELAYED_QU.val)-1); - - MELT_LOCATION("warmelt-first.melt:2281:/ iniobj"); - /*iniobj dobj_2440__CLASS_DELAYED_QUEUE*/ -/*_.VALDATA___V2459*/ meltfptr[2458] = (void*)&cdat->dobj_2440__CLASS_DELAYED_QUEUE; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2440__CLASS_DELAYED_QUEUE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_CLASS)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2440__CLASS_DELAYED_QUEUE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); - cdat->dobj_2440__CLASS_DELAYED_QUEUE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); - cdat->dobj_2440__CLASS_DELAYED_QUEUE.obj_num = OBMAG_OBJECT; - cdat->dobj_2440__CLASS_DELAYED_QUEUE.obj_hash = 307635543; - cdat->dobj_2440__CLASS_DELAYED_QUEUE.obj_len = 8; - - /*inistring dstr_2441__CLASS_DELAYED_QU*/ - /*_.VALSTR___V2460*/ meltfptr[2459] = (void*)&cdat->dstr_2441__CLASS_DELAYED_QU; - cdat->dstr_2441__CLASS_DELAYED_QU.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2441__CLASS_DELAYED_QU.val, "CLASS_DELAYED_QUEUE", sizeof (cdat->dstr_2441__CLASS_DELAYED_QU.val)-1); - - /*inimult dtup_2442__CLASS_DELAYED_QUEUE*/ - /*_.VALTUP___V2461*/ meltfptr[2460] = (void*)&cdat->dtup_2442__CLASS_DELAYED_QUEUE; - cdat->dtup_2442__CLASS_DELAYED_QUEUE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); - cdat->dtup_2442__CLASS_DELAYED_QUEUE.nbval = 3; - /*inimult dtup_2443__CLASS_DELAYED_QUEUE*/ - /*_.VALTUP___V2468*/ meltfptr[2467] = (void*)&cdat->dtup_2443__CLASS_DELAYED_QUEUE; - cdat->dtup_2443__CLASS_DELAYED_QUEUE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); - cdat->dtup_2443__CLASS_DELAYED_QUEUE.nbval = 5; - /*iniobj dsym_2444__DELQU_FIRST*/ -/*uniqueobj*/ if (!/*_.VALDATA___V2515*/ meltfptr[2514]) /*_.VALDATA___V2515*/ meltfptr[2514] = (void*)&cdat->dsym_2444__DELQU_FIRST; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2444__DELQU_FIRST", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2444__DELQU_FIRST", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); - cdat->dsym_2444__DELQU_FIRST.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_2444__DELQU_FIRST.obj_hash = 186270784; - cdat->dsym_2444__DELQU_FIRST.obj_len = 3; - - /*inistring dstr_2445__DELQU_FIRST*/ - /*_.VALSTR___V2516*/ meltfptr[2515] = (void*)&cdat->dstr_2445__DELQU_FIRST; - cdat->dstr_2445__DELQU_FIRST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2445__DELQU_FIRST.val, "DELQU_FIRST", sizeof (cdat->dstr_2445__DELQU_FIRST.val)-1); +/*_.VALDATA___V2432*/ meltfptr[2431] = ((void*)(MELT_PREDEF(CTYPE_CSTRING))); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2426__CTYPE_CSTRING", melt_magic_discr (/*_.VALDATA___V327*/ meltfptr[326]) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2426__CTYPE_CSTRING", ((meltobject_ptr_t) (/*_.VALDATA___V327*/ meltfptr[326]))->object_magic == OBMAG_OBJECT); + cdat->dobj_2426__CTYPE_CSTRING.obj_class = (meltobject_ptr_t)(/*_.VALDATA___V327*/ meltfptr[326]); + cdat->dobj_2426__CTYPE_CSTRING.obj_hash = 975946576; + cdat->dobj_2426__CTYPE_CSTRING.obj_len = 11; + + /*inistring dstr_2427__CTYPE_CSTRING*/ + /*_.VALSTR___V2434*/ meltfptr[2433] = (void*)&cdat->dstr_2427__CTYPE_CSTRING; + cdat->dstr_2427__CTYPE_CSTRING.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2427__CTYPE_CSTRING.val, "CTYPE_CSTRING", sizeof (cdat->dstr_2427__CTYPE_CSTRING.val)-1); + + /*iniobj dsym_2428__CSTRING*/ +/*uniqueobj*/ if (!/*_.VALDATA___V2435*/ meltfptr[2434]) /*_.VALDATA___V2435*/ meltfptr[2434] = (void*)&cdat->dsym_2428__CSTRING; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2428__CSTRING", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_KEYWORD)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2428__CSTRING", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_KEYWORD)))))->object_magic == OBMAG_OBJECT); + cdat->dsym_2428__CSTRING.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_KEYWORD)))); + cdat->dsym_2428__CSTRING.obj_hash = 33530498; + cdat->dsym_2428__CSTRING.obj_len = 3; + + /*inistring dstr_2429__CSTRING*/ + /*_.VALSTR___V2436*/ meltfptr[2435] = (void*)&cdat->dstr_2429__CSTRING; + cdat->dstr_2429__CSTRING.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2429__CSTRING.val, "CSTRING", sizeof (cdat->dstr_2429__CSTRING.val)-1); + + /*inistring dstr_2430__BPAR_CSTRING*/ + /*_.VALSTR___V2437*/ meltfptr[2436] = (void*)&cdat->dstr_2430__BPAR_CSTRING; + cdat->dstr_2430__BPAR_CSTRING.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2430__BPAR_CSTRING.val, "BPAR_CSTRING", sizeof (cdat->dstr_2430__BPAR_CSTRING.val)-1); + + /*inistring dstr_2431__BPARSTR_CSTRING*/ + /*_.VALSTR___V2438*/ meltfptr[2437] = (void*)&cdat->dstr_2431__BPARSTR_CSTRING; + cdat->dstr_2431__BPARSTR_CSTRING.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2431__BPARSTR_CSTRING.val, "BPARSTR_CSTRING", sizeof (cdat->dstr_2431__BPARSTR_CSTRING.val)-1); + + /*inistring dstr_2432__bp_cstring*/ + /*_.VALSTR___V2439*/ meltfptr[2438] = (void*)&cdat->dstr_2432__bp_cstring; + cdat->dstr_2432__bp_cstring.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2432__bp_cstring.val, "bp_cstring", sizeof (cdat->dstr_2432__bp_cstring.val)-1); + + /*inirout drout_2433__ADD_NEW_SYMBOL_TOKEN*/ + /*_.VALROUT___V2440*/ meltfptr[2439] = (void*)&cdat->drout_2433__ADD_NEW_SYMBOL_TOKEN; + cdat->drout_2433__ADD_NEW_SYMBOL_TOKEN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); + strncpy(cdat->drout_2433__ADD_NEW_SYMBOL_TOKEN.routdescr, "ADD_NEW_SYMBOL_TOKEN @warmelt-first.melt:1978", MELT_ROUTDESCR_LEN - 1); + cdat->drout_2433__ADD_NEW_SYMBOL_TOKEN.nbval = 2; + MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_2433__ADD_NEW_SYMBOL_TOKEN, meltrout_2_warmelt_first_ADD_NEW_SYMBOL_TOKEN); + + /*iniclos dclo_2434__ADD_NEW_SYMBOL_TOKEN*/ + /*_.VALCLO___V2441*/ meltfptr[2440] = (void*)&cdat->dclo_2434__ADD_NEW_SYMBOL_TOKEN; + cdat->dclo_2434__ADD_NEW_SYMBOL_TOKEN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); + cdat->dclo_2434__ADD_NEW_SYMBOL_TOKEN.nbval = 0; + + /*inirout drout_2435__ADD_NEW_KEYWORD_TOKEN*/ + /*_.VALROUT___V2442*/ meltfptr[2441] = (void*)&cdat->drout_2435__ADD_NEW_KEYWORD_TOKEN; + cdat->drout_2435__ADD_NEW_KEYWORD_TOKEN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); + strncpy(cdat->drout_2435__ADD_NEW_KEYWORD_TOKEN.routdescr, "ADD_NEW_KEYWORD_TOKEN @warmelt-first.melt:1987", MELT_ROUTDESCR_LEN - 1); + cdat->drout_2435__ADD_NEW_KEYWORD_TOKEN.nbval = 2; + MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_2435__ADD_NEW_KEYWORD_TOKEN, meltrout_3_warmelt_first_ADD_NEW_KEYWORD_TOKEN); + + /*iniclos dclo_2436__ADD_NEW_KEYWORD_TOKEN*/ + /*_.VALCLO___V2443*/ meltfptr[2442] = (void*)&cdat->dclo_2436__ADD_NEW_KEYWORD_TOKEN; + cdat->dclo_2436__ADD_NEW_KEYWORD_TOKEN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); + cdat->dclo_2436__ADD_NEW_KEYWORD_TOKEN.nbval = 0; + + /*inirout drout_2437__INTERN_SYMBOL*/ + /*_.VALROUT___V2444*/ meltfptr[2443] = (void*)&cdat->drout_2437__INTERN_SYMBOL; + cdat->drout_2437__INTERN_SYMBOL.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); + strncpy(cdat->drout_2437__INTERN_SYMBOL.routdescr, "INTERN_SYMBOL @warmelt-first.melt:1996", MELT_ROUTDESCR_LEN - 1); + cdat->drout_2437__INTERN_SYMBOL.nbval = 2; + MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_2437__INTERN_SYMBOL, meltrout_4_warmelt_first_INTERN_SYMBOL); + + /*iniclos dclo_2438__INTERN_SYMBOL*/ + /*_.VALCLO___V2445*/ meltfptr[2444] = (void*)&cdat->dclo_2438__INTERN_SYMBOL; + cdat->dclo_2438__INTERN_SYMBOL.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); + cdat->dclo_2438__INTERN_SYMBOL.nbval = 0; + + /*inirout drout_2439__INTERN_KEYWORD*/ + /*_.VALROUT___V2446*/ meltfptr[2445] = (void*)&cdat->drout_2439__INTERN_KEYWORD; + cdat->drout_2439__INTERN_KEYWORD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); + strncpy(cdat->drout_2439__INTERN_KEYWORD.routdescr, "INTERN_KEYWORD @warmelt-first.melt:2011", MELT_ROUTDESCR_LEN - 1); + cdat->drout_2439__INTERN_KEYWORD.nbval = 2; + MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_2439__INTERN_KEYWORD, meltrout_5_warmelt_first_INTERN_KEYWORD); + + /*iniclos dclo_2440__INTERN_KEYWORD*/ + /*_.VALCLO___V2447*/ meltfptr[2446] = (void*)&cdat->dclo_2440__INTERN_KEYWORD; + cdat->dclo_2440__INTERN_KEYWORD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); + cdat->dclo_2440__INTERN_KEYWORD.nbval = 0; + + /*iniobj dsym_2441__CONTAINER_CLONEMAPSTRING*/ +/*uniqueobj*/ if (!/*_.VALDATA___V2448*/ meltfptr[2447]) /*_.VALDATA___V2448*/ meltfptr[2447] = (void*)&cdat->dsym_2441__CONTAINER_CLONEMAPSTRING; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2441__CONTAINER_CLONEMAPSTRING", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2441__CONTAINER_CLONEMAPSTRING", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); + cdat->dsym_2441__CONTAINER_CLONEMAPSTRING.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_2441__CONTAINER_CLONEMAPSTRING.obj_hash = 81420896; + cdat->dsym_2441__CONTAINER_CLONEMAPSTRING.obj_len = 3; + + /*inistring dstr_2442__CONTAINER_CLONEM*/ + /*_.VALSTR___V2449*/ meltfptr[2448] = (void*)&cdat->dstr_2442__CONTAINER_CLONEM; + cdat->dstr_2442__CONTAINER_CLONEM.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2442__CONTAINER_CLONEM.val, "CONTAINER_CLONEMAPSTRING", sizeof (cdat->dstr_2442__CONTAINER_CLONEM.val)-1); + + MELT_LOCATION("warmelt-first.melt:2023:/ iniobj"); + /*iniobj dobj_2443__CONTAINER_CLONEMAPSTRING*/ +/*_.VALDATA___V2450*/ meltfptr[2449] = (void*)&cdat->dobj_2443__CONTAINER_CLONEMAPSTRING; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2443__CONTAINER_CLONEMAPSTRING", melt_magic_discr (/*_.VALDATA___V25*/ meltfptr[24]) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2443__CONTAINER_CLONEMAPSTRING", ((meltobject_ptr_t) (/*_.VALDATA___V25*/ meltfptr[24]))->object_magic == OBMAG_OBJECT); + cdat->dobj_2443__CONTAINER_CLONEMAPSTRING.obj_class = (meltobject_ptr_t)(/*_.VALDATA___V25*/ meltfptr[24]); + cdat->dobj_2443__CONTAINER_CLONEMAPSTRING.obj_hash = 190641998; + cdat->dobj_2443__CONTAINER_CLONEMAPSTRING.obj_len = 1; + + /*inirout drout_2444__CLONE_SYMBOL*/ + /*_.VALROUT___V2452*/ meltfptr[2451] = (void*)&cdat->drout_2444__CLONE_SYMBOL; + cdat->drout_2444__CLONE_SYMBOL.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); + strncpy(cdat->drout_2444__CLONE_SYMBOL.routdescr, "CLONE_SYMBOL @warmelt-first.melt:2027", MELT_ROUTDESCR_LEN - 1); + cdat->drout_2444__CLONE_SYMBOL.nbval = 6; + MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_2444__CLONE_SYMBOL, meltrout_6_warmelt_first_CLONE_SYMBOL); + + /*iniclos dclo_2445__CLONE_SYMBOL*/ + /*_.VALCLO___V2530*/ meltfptr[2529] = (void*)&cdat->dclo_2445__CLONE_SYMBOL; + cdat->dclo_2445__CLONE_SYMBOL.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); + cdat->dclo_2445__CLONE_SYMBOL.nbval = 0; + + /*inirout drout_2446__INITFRESH_CONTENVMAKER*/ + /*_.VALROUT___V2462*/ meltfptr[2461] = (void*)&cdat->drout_2446__INITFRESH_CONTENVMAKER; + cdat->drout_2446__INITFRESH_CONTENVMAKER.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); + strncpy(cdat->drout_2446__INITFRESH_CONTENVMAKER.routdescr, "INITFRESH_CONTENVMAKER @warmelt-first.melt:2079", MELT_ROUTDESCR_LEN - 1); + cdat->drout_2446__INITFRESH_CONTENVMAKER.nbval = 3; + MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_2446__INITFRESH_CONTENVMAKER, meltrout_7_warmelt_first_INITFRESH_CONTENVMAKER); + + /*iniclos dclo_2447__INITFRESH_CONTENVMAKER*/ + /*_.VALCLO___V2461*/ meltfptr[2460] = (void*)&cdat->dclo_2447__INITFRESH_CONTENVMAKER; + cdat->dclo_2447__INITFRESH_CONTENVMAKER.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); + cdat->dclo_2447__INITFRESH_CONTENVMAKER.nbval = 0; + + /*inirout drout_2448__INITVALUE_EXPORTER*/ + /*_.VALROUT___V2466*/ meltfptr[2465] = (void*)&cdat->drout_2448__INITVALUE_EXPORTER; + cdat->drout_2448__INITVALUE_EXPORTER.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); + strncpy(cdat->drout_2448__INITVALUE_EXPORTER.routdescr, "INITVALUE_EXPORTER @warmelt-first.melt:2093", MELT_ROUTDESCR_LEN - 1); + cdat->drout_2448__INITVALUE_EXPORTER.nbval = 17; + MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_2448__INITVALUE_EXPORTER, meltrout_8_warmelt_first_INITVALUE_EXPORTER); + + /*iniclos dclo_2449__INITVALUE_EXPORTER*/ + /*_.VALCLO___V2465*/ meltfptr[2464] = (void*)&cdat->dclo_2449__INITVALUE_EXPORTER; + cdat->dclo_2449__INITVALUE_EXPORTER.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); + cdat->dclo_2449__INITVALUE_EXPORTER.nbval = 0; + + /*inirout drout_2450__INITVALUE_IMPORTER*/ + /*_.VALROUT___V2474*/ meltfptr[2473] = (void*)&cdat->drout_2450__INITVALUE_IMPORTER; + cdat->drout_2450__INITVALUE_IMPORTER.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); + strncpy(cdat->drout_2450__INITVALUE_IMPORTER.routdescr, "INITVALUE_IMPORTER @warmelt-first.melt:2183", MELT_ROUTDESCR_LEN - 1); + cdat->drout_2450__INITVALUE_IMPORTER.nbval = 6; + MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_2450__INITVALUE_IMPORTER, meltrout_9_warmelt_first_INITVALUE_IMPORTER); + + /*iniclos dclo_2451__INITVALUE_IMPORTER*/ + /*_.VALCLO___V2473*/ meltfptr[2472] = (void*)&cdat->dclo_2451__INITVALUE_IMPORTER; + cdat->dclo_2451__INITVALUE_IMPORTER.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); + cdat->dclo_2451__INITVALUE_IMPORTER.nbval = 0; + + /*inirout drout_2452__INITMACRO_EXPORTER*/ + /*_.VALROUT___V2472*/ meltfptr[2471] = (void*)&cdat->drout_2452__INITMACRO_EXPORTER; + cdat->drout_2452__INITMACRO_EXPORTER.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); + strncpy(cdat->drout_2452__INITMACRO_EXPORTER.routdescr, "INITMACRO_EXPORTER @warmelt-first.melt:2224", MELT_ROUTDESCR_LEN - 1); + cdat->drout_2452__INITMACRO_EXPORTER.nbval = 7; + MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_2452__INITMACRO_EXPORTER, meltrout_10_warmelt_first_INITMACRO_EXPORTER); + + /*iniclos dclo_2453__INITMACRO_EXPORTER*/ + /*_.VALCLO___V2471*/ meltfptr[2470] = (void*)&cdat->dclo_2453__INITMACRO_EXPORTER; + cdat->dclo_2453__INITMACRO_EXPORTER.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); + cdat->dclo_2453__INITMACRO_EXPORTER.nbval = 0; + + /*inirout drout_2454__INITPATMACRO_EXPORTER*/ + /*_.VALROUT___V2497*/ meltfptr[2496] = (void*)&cdat->drout_2454__INITPATMACRO_EXPORTER; + cdat->drout_2454__INITPATMACRO_EXPORTER.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); + strncpy(cdat->drout_2454__INITPATMACRO_EXPORTER.routdescr, "INITPATMACRO_EXPORTER @warmelt-first.melt:2254", MELT_ROUTDESCR_LEN - 1); + cdat->drout_2454__INITPATMACRO_EXPORTER.nbval = 6; + MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_2454__INITPATMACRO_EXPORTER, meltrout_11_warmelt_first_INITPATMACRO_EXPORTER); + + /*iniclos dclo_2455__INITPATMACRO_EXPORTER*/ + /*_.VALCLO___V2496*/ meltfptr[2495] = (void*)&cdat->dclo_2455__INITPATMACRO_EXPORTER; + cdat->dclo_2455__INITPATMACRO_EXPORTER.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); + cdat->dclo_2455__INITPATMACRO_EXPORTER.nbval = 0; + + /*iniobj dsym_2456__CLASS_DELAYED_QUEUE*/ +/*uniqueobj*/ if (!/*_.VALDATA___V2531*/ meltfptr[2530]) /*_.VALDATA___V2531*/ meltfptr[2530] = (void*)&cdat->dsym_2456__CLASS_DELAYED_QUEUE; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2456__CLASS_DELAYED_QUEUE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2456__CLASS_DELAYED_QUEUE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); + cdat->dsym_2456__CLASS_DELAYED_QUEUE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_2456__CLASS_DELAYED_QUEUE.obj_hash = 761132519; + cdat->dsym_2456__CLASS_DELAYED_QUEUE.obj_len = 3; + + /*inistring dstr_2457__CLASS_DELAYED_QU*/ + /*_.VALSTR___V2532*/ meltfptr[2531] = (void*)&cdat->dstr_2457__CLASS_DELAYED_QU; + cdat->dstr_2457__CLASS_DELAYED_QU.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2457__CLASS_DELAYED_QU.val, "CLASS_DELAYED_QUEUE", sizeof (cdat->dstr_2457__CLASS_DELAYED_QU.val)-1); + + MELT_LOCATION("warmelt-first.melt:2288:/ iniobj"); + /*iniobj dobj_2458__CLASS_DELAYED_QUEUE*/ +/*_.VALDATA___V2477*/ meltfptr[2476] = (void*)&cdat->dobj_2458__CLASS_DELAYED_QUEUE; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2458__CLASS_DELAYED_QUEUE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_CLASS)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2458__CLASS_DELAYED_QUEUE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); + cdat->dobj_2458__CLASS_DELAYED_QUEUE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); + cdat->dobj_2458__CLASS_DELAYED_QUEUE.obj_num = OBMAG_OBJECT; + cdat->dobj_2458__CLASS_DELAYED_QUEUE.obj_hash = 581289918; + cdat->dobj_2458__CLASS_DELAYED_QUEUE.obj_len = 8; + + /*inistring dstr_2459__CLASS_DELAYED_QU*/ + /*_.VALSTR___V2478*/ meltfptr[2477] = (void*)&cdat->dstr_2459__CLASS_DELAYED_QU; + cdat->dstr_2459__CLASS_DELAYED_QU.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2459__CLASS_DELAYED_QU.val, "CLASS_DELAYED_QUEUE", sizeof (cdat->dstr_2459__CLASS_DELAYED_QU.val)-1); + + /*inimult dtup_2460__CLASS_DELAYED_QUEUE*/ + /*_.VALTUP___V2479*/ meltfptr[2478] = (void*)&cdat->dtup_2460__CLASS_DELAYED_QUEUE; + cdat->dtup_2460__CLASS_DELAYED_QUEUE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); + cdat->dtup_2460__CLASS_DELAYED_QUEUE.nbval = 3; + /*inimult dtup_2461__CLASS_DELAYED_QUEUE*/ + /*_.VALTUP___V2486*/ meltfptr[2485] = (void*)&cdat->dtup_2461__CLASS_DELAYED_QUEUE; + cdat->dtup_2461__CLASS_DELAYED_QUEUE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); + cdat->dtup_2461__CLASS_DELAYED_QUEUE.nbval = 5; + /*iniobj dsym_2462__DELQU_FIRST*/ +/*uniqueobj*/ if (!/*_.VALDATA___V2533*/ meltfptr[2532]) /*_.VALDATA___V2533*/ meltfptr[2532] = (void*)&cdat->dsym_2462__DELQU_FIRST; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2462__DELQU_FIRST", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2462__DELQU_FIRST", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); + cdat->dsym_2462__DELQU_FIRST.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_2462__DELQU_FIRST.obj_hash = 186270784; + cdat->dsym_2462__DELQU_FIRST.obj_len = 3; + + /*inistring dstr_2463__DELQU_FIRST*/ + /*_.VALSTR___V2534*/ meltfptr[2533] = (void*)&cdat->dstr_2463__DELQU_FIRST; + cdat->dstr_2463__DELQU_FIRST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2463__DELQU_FIRST.val, "DELQU_FIRST", sizeof (cdat->dstr_2463__DELQU_FIRST.val)-1); /*^iniobj*/ - /*iniobj dobj_2446__DELQU_FIRST*/ -/*_.VALDATA___V2462*/ meltfptr[2461] = (void*)&cdat->dobj_2446__DELQU_FIRST; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2446__DELQU_FIRST", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2446__DELQU_FIRST", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); - cdat->dobj_2446__DELQU_FIRST.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); - cdat->dobj_2446__DELQU_FIRST.obj_num = 2; - cdat->dobj_2446__DELQU_FIRST.obj_hash = 584460770; - cdat->dobj_2446__DELQU_FIRST.obj_len = 4; - - /*inistring dstr_2447__DELQU_FIRST*/ - /*_.VALSTR___V2463*/ meltfptr[2462] = (void*)&cdat->dstr_2447__DELQU_FIRST; - cdat->dstr_2447__DELQU_FIRST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2447__DELQU_FIRST.val, "DELQU_FIRST", sizeof (cdat->dstr_2447__DELQU_FIRST.val)-1); - - /*iniobj dsym_2448__DELQU_LAST*/ -/*uniqueobj*/ if (!/*_.VALDATA___V2517*/ meltfptr[2516]) /*_.VALDATA___V2517*/ meltfptr[2516] = (void*)&cdat->dsym_2448__DELQU_LAST; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2448__DELQU_LAST", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2448__DELQU_LAST", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); - cdat->dsym_2448__DELQU_LAST.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_2448__DELQU_LAST.obj_hash = 794155320; - cdat->dsym_2448__DELQU_LAST.obj_len = 3; - - /*inistring dstr_2449__DELQU_LAST*/ - /*_.VALSTR___V2518*/ meltfptr[2517] = (void*)&cdat->dstr_2449__DELQU_LAST; - cdat->dstr_2449__DELQU_LAST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2449__DELQU_LAST.val, "DELQU_LAST", sizeof (cdat->dstr_2449__DELQU_LAST.val)-1); + /*iniobj dobj_2464__DELQU_FIRST*/ +/*_.VALDATA___V2480*/ meltfptr[2479] = (void*)&cdat->dobj_2464__DELQU_FIRST; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2464__DELQU_FIRST", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2464__DELQU_FIRST", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); + cdat->dobj_2464__DELQU_FIRST.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); + cdat->dobj_2464__DELQU_FIRST.obj_num = 2; + cdat->dobj_2464__DELQU_FIRST.obj_hash = 800503528; + cdat->dobj_2464__DELQU_FIRST.obj_len = 4; + + /*inistring dstr_2465__DELQU_FIRST*/ + /*_.VALSTR___V2481*/ meltfptr[2480] = (void*)&cdat->dstr_2465__DELQU_FIRST; + cdat->dstr_2465__DELQU_FIRST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2465__DELQU_FIRST.val, "DELQU_FIRST", sizeof (cdat->dstr_2465__DELQU_FIRST.val)-1); + + /*iniobj dsym_2466__DELQU_LAST*/ +/*uniqueobj*/ if (!/*_.VALDATA___V2535*/ meltfptr[2534]) /*_.VALDATA___V2535*/ meltfptr[2534] = (void*)&cdat->dsym_2466__DELQU_LAST; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2466__DELQU_LAST", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2466__DELQU_LAST", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); + cdat->dsym_2466__DELQU_LAST.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_2466__DELQU_LAST.obj_hash = 794155320; + cdat->dsym_2466__DELQU_LAST.obj_len = 3; + + /*inistring dstr_2467__DELQU_LAST*/ + /*_.VALSTR___V2536*/ meltfptr[2535] = (void*)&cdat->dstr_2467__DELQU_LAST; + cdat->dstr_2467__DELQU_LAST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2467__DELQU_LAST.val, "DELQU_LAST", sizeof (cdat->dstr_2467__DELQU_LAST.val)-1); /*^iniobj*/ - /*iniobj dobj_2450__DELQU_LAST*/ -/*_.VALDATA___V2464*/ meltfptr[2463] = (void*)&cdat->dobj_2450__DELQU_LAST; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2450__DELQU_LAST", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2450__DELQU_LAST", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); - cdat->dobj_2450__DELQU_LAST.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); - cdat->dobj_2450__DELQU_LAST.obj_num = 3; - cdat->dobj_2450__DELQU_LAST.obj_hash = 214231638; - cdat->dobj_2450__DELQU_LAST.obj_len = 4; - - /*inistring dstr_2451__DELQU_LAST*/ - /*_.VALSTR___V2465*/ meltfptr[2464] = (void*)&cdat->dstr_2451__DELQU_LAST; - cdat->dstr_2451__DELQU_LAST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2451__DELQU_LAST.val, "DELQU_LAST", sizeof (cdat->dstr_2451__DELQU_LAST.val)-1); - - /*iniobj dsym_2452__DELQU_DATA*/ -/*uniqueobj*/ if (!/*_.VALDATA___V2519*/ meltfptr[2518]) /*_.VALDATA___V2519*/ meltfptr[2518] = (void*)&cdat->dsym_2452__DELQU_DATA; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2452__DELQU_DATA", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2452__DELQU_DATA", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); - cdat->dsym_2452__DELQU_DATA.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_2452__DELQU_DATA.obj_hash = 14455036; - cdat->dsym_2452__DELQU_DATA.obj_len = 3; - - /*inistring dstr_2453__DELQU_DATA*/ - /*_.VALSTR___V2520*/ meltfptr[2519] = (void*)&cdat->dstr_2453__DELQU_DATA; - cdat->dstr_2453__DELQU_DATA.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2453__DELQU_DATA.val, "DELQU_DATA", sizeof (cdat->dstr_2453__DELQU_DATA.val)-1); + /*iniobj dobj_2468__DELQU_LAST*/ +/*_.VALDATA___V2482*/ meltfptr[2481] = (void*)&cdat->dobj_2468__DELQU_LAST; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2468__DELQU_LAST", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2468__DELQU_LAST", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); + cdat->dobj_2468__DELQU_LAST.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); + cdat->dobj_2468__DELQU_LAST.obj_num = 3; + cdat->dobj_2468__DELQU_LAST.obj_hash = 202818723; + cdat->dobj_2468__DELQU_LAST.obj_len = 4; + + /*inistring dstr_2469__DELQU_LAST*/ + /*_.VALSTR___V2483*/ meltfptr[2482] = (void*)&cdat->dstr_2469__DELQU_LAST; + cdat->dstr_2469__DELQU_LAST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2469__DELQU_LAST.val, "DELQU_LAST", sizeof (cdat->dstr_2469__DELQU_LAST.val)-1); + + /*iniobj dsym_2470__DELQU_DATA*/ +/*uniqueobj*/ if (!/*_.VALDATA___V2537*/ meltfptr[2536]) /*_.VALDATA___V2537*/ meltfptr[2536] = (void*)&cdat->dsym_2470__DELQU_DATA; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2470__DELQU_DATA", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2470__DELQU_DATA", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); + cdat->dsym_2470__DELQU_DATA.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_2470__DELQU_DATA.obj_hash = 14455036; + cdat->dsym_2470__DELQU_DATA.obj_len = 3; + + /*inistring dstr_2471__DELQU_DATA*/ + /*_.VALSTR___V2538*/ meltfptr[2537] = (void*)&cdat->dstr_2471__DELQU_DATA; + cdat->dstr_2471__DELQU_DATA.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2471__DELQU_DATA.val, "DELQU_DATA", sizeof (cdat->dstr_2471__DELQU_DATA.val)-1); /*^iniobj*/ - /*iniobj dobj_2454__DELQU_DATA*/ -/*_.VALDATA___V2466*/ meltfptr[2465] = (void*)&cdat->dobj_2454__DELQU_DATA; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2454__DELQU_DATA", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2454__DELQU_DATA", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); - cdat->dobj_2454__DELQU_DATA.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); - cdat->dobj_2454__DELQU_DATA.obj_num = 4; - cdat->dobj_2454__DELQU_DATA.obj_hash = 687322224; - cdat->dobj_2454__DELQU_DATA.obj_len = 4; - - /*inistring dstr_2455__DELQU_DATA*/ - /*_.VALSTR___V2467*/ meltfptr[2466] = (void*)&cdat->dstr_2455__DELQU_DATA; - cdat->dstr_2455__DELQU_DATA.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2455__DELQU_DATA.val, "DELQU_DATA", sizeof (cdat->dstr_2455__DELQU_DATA.val)-1); - - /*iniobj dsym_2456__FINAL_DELAYED_QUEUE*/ -/*uniqueobj*/ if (!/*_.VALDATA___V2521*/ meltfptr[2520]) /*_.VALDATA___V2521*/ meltfptr[2520] = (void*)&cdat->dsym_2456__FINAL_DELAYED_QUEUE; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2456__FINAL_DELAYED_QUEUE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2456__FINAL_DELAYED_QUEUE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); - cdat->dsym_2456__FINAL_DELAYED_QUEUE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_2456__FINAL_DELAYED_QUEUE.obj_hash = 912306839; - cdat->dsym_2456__FINAL_DELAYED_QUEUE.obj_len = 3; - - /*inistring dstr_2457__FINAL_DELAYED_QU*/ - /*_.VALSTR___V2522*/ meltfptr[2521] = (void*)&cdat->dstr_2457__FINAL_DELAYED_QU; - cdat->dstr_2457__FINAL_DELAYED_QU.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2457__FINAL_DELAYED_QU.val, "FINAL_DELAYED_QUEUE", sizeof (cdat->dstr_2457__FINAL_DELAYED_QU.val)-1); - - MELT_LOCATION("warmelt-first.melt:2289:/ iniobj"); - /*iniobj dobj_2458__FINAL_DELAYED_QUEUE*/ -/*_.VALDATA___V2469*/ meltfptr[2468] = (void*)&cdat->dobj_2458__FINAL_DELAYED_QUEUE; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2458__FINAL_DELAYED_QUEUE", melt_magic_discr (/*_.VALDATA___V2459*/ meltfptr[2458]) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2458__FINAL_DELAYED_QUEUE", ((meltobject_ptr_t) (/*_.VALDATA___V2459*/ meltfptr[2458]))->object_magic == OBMAG_OBJECT); - cdat->dobj_2458__FINAL_DELAYED_QUEUE.obj_class = (meltobject_ptr_t)(/*_.VALDATA___V2459*/ meltfptr[2458]); - cdat->dobj_2458__FINAL_DELAYED_QUEUE.obj_hash = 519755250; - cdat->dobj_2458__FINAL_DELAYED_QUEUE.obj_len = 5; - - /*inistring dstr_2459__final_delayed_qu*/ - /*_.VALSTR___V2472*/ meltfptr[2471] = (void*)&cdat->dstr_2459__final_delayed_qu; - cdat->dstr_2459__final_delayed_qu.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2459__final_delayed_qu.val, "final_delayed_queue", sizeof (cdat->dstr_2459__final_delayed_qu.val)-1); - - /*inirout drout_2460__INIT_EXITFINALIZER*/ - /*_.VALROUT___V2458*/ meltfptr[2457] = (void*)&cdat->drout_2460__INIT_EXITFINALIZER; - cdat->drout_2460__INIT_EXITFINALIZER.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); - strncpy(cdat->drout_2460__INIT_EXITFINALIZER.routdescr, "INIT_EXITFINALIZER @warmelt-first.melt:2297", MELT_ROUTDESCR_LEN - 1); - cdat->drout_2460__INIT_EXITFINALIZER.nbval = 10; - MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_2460__INIT_EXITFINALIZER, meltrout_12_warmelt_first_INIT_EXITFINALIZER); - - /*iniclos dclo_2461__INIT_EXITFINALIZER*/ - /*_.VALCLO___V2457*/ meltfptr[2456] = (void*)&cdat->dclo_2461__INIT_EXITFINALIZER; - cdat->dclo_2461__INIT_EXITFINALIZER.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); - cdat->dclo_2461__INIT_EXITFINALIZER.nbval = 0; - - /*inirout drout_2462__LAMBDA_*/ - /*_.VALROUT___V2475*/ meltfptr[2474] = (void*)&cdat->drout_2462__LAMBDA_; - cdat->drout_2462__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); - strncpy(cdat->drout_2462__LAMBDA_.routdescr, "LAMBDA_ @warmelt-first.melt:2307", MELT_ROUTDESCR_LEN - 1); - cdat->drout_2462__LAMBDA_.nbval = 1; - MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_2462__LAMBDA_, meltrout_13_warmelt_first_LAMBDA_); - - /*inirout drout_2463__LAMBDA_*/ - /*_.VALROUT___V2476*/ meltfptr[2475] = (void*)&cdat->drout_2463__LAMBDA_; - cdat->drout_2463__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); - strncpy(cdat->drout_2463__LAMBDA_.routdescr, "LAMBDA_ @warmelt-first.melt:2316", MELT_ROUTDESCR_LEN - 1); - cdat->drout_2463__LAMBDA_.nbval = 0; - MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_2463__LAMBDA_, meltrout_14_warmelt_first_LAMBDA_); - - /*inirout drout_2464__LAMBDA_*/ - /*_.VALROUT___V2477*/ meltfptr[2476] = (void*)&cdat->drout_2464__LAMBDA_; - cdat->drout_2464__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); - strncpy(cdat->drout_2464__LAMBDA_.routdescr, "LAMBDA_ @warmelt-first.melt:2321", MELT_ROUTDESCR_LEN - 1); - cdat->drout_2464__LAMBDA_.nbval = 1; - MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_2464__LAMBDA_, meltrout_15_warmelt_first_LAMBDA_); - - /*inirout drout_2465__AT_EXIT_FIRST*/ - /*_.VALROUT___V2523*/ meltfptr[2522] = (void*)&cdat->drout_2465__AT_EXIT_FIRST; - cdat->drout_2465__AT_EXIT_FIRST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); - strncpy(cdat->drout_2465__AT_EXIT_FIRST.routdescr, "AT_EXIT_FIRST @warmelt-first.melt:2331", MELT_ROUTDESCR_LEN - 1); - cdat->drout_2465__AT_EXIT_FIRST.nbval = 1; - MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_2465__AT_EXIT_FIRST, meltrout_16_warmelt_first_AT_EXIT_FIRST); - - /*iniclos dclo_2466__AT_EXIT_FIRST*/ - /*_.VALCLO___V2524*/ meltfptr[2523] = (void*)&cdat->dclo_2466__AT_EXIT_FIRST; - cdat->dclo_2466__AT_EXIT_FIRST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); - cdat->dclo_2466__AT_EXIT_FIRST.nbval = 0; - - /*inirout drout_2467__AT_EXIT_LAST*/ - /*_.VALROUT___V2525*/ meltfptr[2524] = (void*)&cdat->drout_2467__AT_EXIT_LAST; - cdat->drout_2467__AT_EXIT_LAST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); - strncpy(cdat->drout_2467__AT_EXIT_LAST.routdescr, "AT_EXIT_LAST @warmelt-first.melt:2339", MELT_ROUTDESCR_LEN - 1); - cdat->drout_2467__AT_EXIT_LAST.nbval = 1; - MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_2467__AT_EXIT_LAST, meltrout_17_warmelt_first_AT_EXIT_LAST); - - /*iniclos dclo_2468__AT_EXIT_LAST*/ - /*_.VALCLO___V2526*/ meltfptr[2525] = (void*)&cdat->dclo_2468__AT_EXIT_LAST; - cdat->dclo_2468__AT_EXIT_LAST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); - cdat->dclo_2468__AT_EXIT_LAST.nbval = 0; - - /*iniobj dsym_2469__START_UNIT_DELAYED_QUEUE*/ -/*uniqueobj*/ if (!/*_.VALDATA___V2527*/ meltfptr[2526]) /*_.VALDATA___V2527*/ meltfptr[2526] = (void*)&cdat->dsym_2469__START_UNIT_DELAYED_QUEUE; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2469__START_UNIT_DELAYED_QUEUE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2469__START_UNIT_DELAYED_QUEUE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); - cdat->dsym_2469__START_UNIT_DELAYED_QUEUE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_2469__START_UNIT_DELAYED_QUEUE.obj_hash = 29194126; - cdat->dsym_2469__START_UNIT_DELAYED_QUEUE.obj_len = 3; - - /*inistring dstr_2470__START_UNIT_DELAY*/ - /*_.VALSTR___V2528*/ meltfptr[2527] = (void*)&cdat->dstr_2470__START_UNIT_DELAY; - cdat->dstr_2470__START_UNIT_DELAY.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2470__START_UNIT_DELAY.val, "START_UNIT_DELAYED_QUEUE", sizeof (cdat->dstr_2470__START_UNIT_DELAY.val)-1); - - MELT_LOCATION("warmelt-first.melt:2348:/ iniobj"); - /*iniobj dobj_2471__START_UNIT_DELAYED_QUEUE*/ -/*_.VALDATA___V2482*/ meltfptr[2481] = (void*)&cdat->dobj_2471__START_UNIT_DELAYED_QUEUE; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2471__START_UNIT_DELAYED_QUEUE", melt_magic_discr (/*_.VALDATA___V2459*/ meltfptr[2458]) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2471__START_UNIT_DELAYED_QUEUE", ((meltobject_ptr_t) (/*_.VALDATA___V2459*/ meltfptr[2458]))->object_magic == OBMAG_OBJECT); - cdat->dobj_2471__START_UNIT_DELAYED_QUEUE.obj_class = (meltobject_ptr_t)(/*_.VALDATA___V2459*/ meltfptr[2458]); - cdat->dobj_2471__START_UNIT_DELAYED_QUEUE.obj_hash = 1035985019; - cdat->dobj_2471__START_UNIT_DELAYED_QUEUE.obj_len = 5; - - /*inistring dstr_2472__start_unit_delay*/ - /*_.VALSTR___V2485*/ meltfptr[2484] = (void*)&cdat->dstr_2472__start_unit_delay; - cdat->dstr_2472__start_unit_delay.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2472__start_unit_delay.val, "start_unit_delayed_queue", sizeof (cdat->dstr_2472__start_unit_delay.val)-1); - - /*inirout drout_2473__INIT_UNITSTARTER*/ - /*_.VALROUT___V2481*/ meltfptr[2480] = (void*)&cdat->drout_2473__INIT_UNITSTARTER; - cdat->drout_2473__INIT_UNITSTARTER.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); - strncpy(cdat->drout_2473__INIT_UNITSTARTER.routdescr, "INIT_UNITSTARTER @warmelt-first.melt:2355", MELT_ROUTDESCR_LEN - 1); - cdat->drout_2473__INIT_UNITSTARTER.nbval = 10; - MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_2473__INIT_UNITSTARTER, meltrout_18_warmelt_first_INIT_UNITSTARTER); - - /*iniclos dclo_2474__INIT_UNITSTARTER*/ - /*_.VALCLO___V2480*/ meltfptr[2479] = (void*)&cdat->dclo_2474__INIT_UNITSTARTER; - cdat->dclo_2474__INIT_UNITSTARTER.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); - cdat->dclo_2474__INIT_UNITSTARTER.nbval = 0; - - /*inirout drout_2475__LAMBDA_*/ - /*_.VALROUT___V2486*/ meltfptr[2485] = (void*)&cdat->drout_2475__LAMBDA_; - cdat->drout_2475__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); - strncpy(cdat->drout_2475__LAMBDA_.routdescr, "LAMBDA_ @warmelt-first.melt:2365", MELT_ROUTDESCR_LEN - 1); - cdat->drout_2475__LAMBDA_.nbval = 1; - MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_2475__LAMBDA_, meltrout_19_warmelt_first_LAMBDA_); - - /*inirout drout_2476__LAMBDA_*/ - /*_.VALROUT___V2487*/ meltfptr[2486] = (void*)&cdat->drout_2476__LAMBDA_; - cdat->drout_2476__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); - strncpy(cdat->drout_2476__LAMBDA_.routdescr, "LAMBDA_ @warmelt-first.melt:2374", MELT_ROUTDESCR_LEN - 1); - cdat->drout_2476__LAMBDA_.nbval = 0; - MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_2476__LAMBDA_, meltrout_20_warmelt_first_LAMBDA_); - - /*inirout drout_2477__LAMBDA_*/ - /*_.VALROUT___V2488*/ meltfptr[2487] = (void*)&cdat->drout_2477__LAMBDA_; - cdat->drout_2477__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); - strncpy(cdat->drout_2477__LAMBDA_.routdescr, "LAMBDA_ @warmelt-first.melt:2379", MELT_ROUTDESCR_LEN - 1); - cdat->drout_2477__LAMBDA_.nbval = 1; - MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_2477__LAMBDA_, meltrout_21_warmelt_first_LAMBDA_); - - /*inirout drout_2478__AT_START_UNIT_FIRST*/ - /*_.VALROUT___V2529*/ meltfptr[2528] = (void*)&cdat->drout_2478__AT_START_UNIT_FIRST; - cdat->drout_2478__AT_START_UNIT_FIRST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); - strncpy(cdat->drout_2478__AT_START_UNIT_FIRST.routdescr, "AT_START_UNIT_FIRST @warmelt-first.melt:2389", MELT_ROUTDESCR_LEN - 1); - cdat->drout_2478__AT_START_UNIT_FIRST.nbval = 1; - MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_2478__AT_START_UNIT_FIRST, meltrout_22_warmelt_first_AT_START_UNIT_FIRST); - - /*iniclos dclo_2479__AT_START_UNIT_FIRST*/ - /*_.VALCLO___V2530*/ meltfptr[2529] = (void*)&cdat->dclo_2479__AT_START_UNIT_FIRST; - cdat->dclo_2479__AT_START_UNIT_FIRST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); - cdat->dclo_2479__AT_START_UNIT_FIRST.nbval = 0; - - /*inirout drout_2480__AT_START_UNIT_LAST*/ - /*_.VALROUT___V2531*/ meltfptr[2530] = (void*)&cdat->drout_2480__AT_START_UNIT_LAST; - cdat->drout_2480__AT_START_UNIT_LAST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); - strncpy(cdat->drout_2480__AT_START_UNIT_LAST.routdescr, "AT_START_UNIT_LAST @warmelt-first.melt:2396", MELT_ROUTDESCR_LEN - 1); - cdat->drout_2480__AT_START_UNIT_LAST.nbval = 1; - MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_2480__AT_START_UNIT_LAST, meltrout_23_warmelt_first_AT_START_UNIT_LAST); - - /*iniclos dclo_2481__AT_START_UNIT_LAST*/ - /*_.VALCLO___V2532*/ meltfptr[2531] = (void*)&cdat->dclo_2481__AT_START_UNIT_LAST; - cdat->dclo_2481__AT_START_UNIT_LAST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); - cdat->dclo_2481__AT_START_UNIT_LAST.nbval = 0; - - /*iniobj dsym_2482__FINISH_UNIT_DELAYED_QUEUE*/ -/*uniqueobj*/ if (!/*_.VALDATA___V2533*/ meltfptr[2532]) /*_.VALDATA___V2533*/ meltfptr[2532] = (void*)&cdat->dsym_2482__FINISH_UNIT_DELAYED_QUEUE; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2482__FINISH_UNIT_DELAYED_QUEUE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2482__FINISH_UNIT_DELAYED_QUEUE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); - cdat->dsym_2482__FINISH_UNIT_DELAYED_QUEUE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_2482__FINISH_UNIT_DELAYED_QUEUE.obj_hash = 694241046; - cdat->dsym_2482__FINISH_UNIT_DELAYED_QUEUE.obj_len = 3; - - /*inistring dstr_2483__FINISH_UNIT_DELA*/ - /*_.VALSTR___V2534*/ meltfptr[2533] = (void*)&cdat->dstr_2483__FINISH_UNIT_DELA; - cdat->dstr_2483__FINISH_UNIT_DELA.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2483__FINISH_UNIT_DELA.val, "FINISH_UNIT_DELAYED_QUEUE", sizeof (cdat->dstr_2483__FINISH_UNIT_DELA.val)-1); - - MELT_LOCATION("warmelt-first.melt:2405:/ iniobj"); - /*iniobj dobj_2484__FINISH_UNIT_DELAYED_QUEUE*/ -/*_.VALDATA___V2491*/ meltfptr[2490] = (void*)&cdat->dobj_2484__FINISH_UNIT_DELAYED_QUEUE; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2484__FINISH_UNIT_DELAYED_QUEUE", melt_magic_discr (/*_.VALDATA___V2459*/ meltfptr[2458]) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2484__FINISH_UNIT_DELAYED_QUEUE", ((meltobject_ptr_t) (/*_.VALDATA___V2459*/ meltfptr[2458]))->object_magic == OBMAG_OBJECT); - cdat->dobj_2484__FINISH_UNIT_DELAYED_QUEUE.obj_class = (meltobject_ptr_t)(/*_.VALDATA___V2459*/ meltfptr[2458]); - cdat->dobj_2484__FINISH_UNIT_DELAYED_QUEUE.obj_hash = 248236071; - cdat->dobj_2484__FINISH_UNIT_DELAYED_QUEUE.obj_len = 5; - - /*inistring dstr_2485__finish_unit_dela*/ - /*_.VALSTR___V2494*/ meltfptr[2493] = (void*)&cdat->dstr_2485__finish_unit_dela; - cdat->dstr_2485__finish_unit_dela.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2485__finish_unit_dela.val, "finish_unit_delayed_queue", sizeof (cdat->dstr_2485__finish_unit_dela.val)-1); - - /*inirout drout_2486__INIT_UNITFINISHER*/ - /*_.VALROUT___V2490*/ meltfptr[2489] = (void*)&cdat->drout_2486__INIT_UNITFINISHER; - cdat->drout_2486__INIT_UNITFINISHER.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); - strncpy(cdat->drout_2486__INIT_UNITFINISHER.routdescr, "INIT_UNITFINISHER @warmelt-first.melt:2411", MELT_ROUTDESCR_LEN - 1); - cdat->drout_2486__INIT_UNITFINISHER.nbval = 10; - MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_2486__INIT_UNITFINISHER, meltrout_24_warmelt_first_INIT_UNITFINISHER); - - /*iniclos dclo_2487__INIT_UNITFINISHER*/ - /*_.VALCLO___V2489*/ meltfptr[2488] = (void*)&cdat->dclo_2487__INIT_UNITFINISHER; - cdat->dclo_2487__INIT_UNITFINISHER.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); - cdat->dclo_2487__INIT_UNITFINISHER.nbval = 0; - - /*inirout drout_2488__LAMBDA_*/ - /*_.VALROUT___V2495*/ meltfptr[2494] = (void*)&cdat->drout_2488__LAMBDA_; - cdat->drout_2488__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); - strncpy(cdat->drout_2488__LAMBDA_.routdescr, "LAMBDA_ @warmelt-first.melt:2421", MELT_ROUTDESCR_LEN - 1); - cdat->drout_2488__LAMBDA_.nbval = 1; - MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_2488__LAMBDA_, meltrout_25_warmelt_first_LAMBDA_); - - /*inirout drout_2489__LAMBDA_*/ - /*_.VALROUT___V2496*/ meltfptr[2495] = (void*)&cdat->drout_2489__LAMBDA_; - cdat->drout_2489__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); - strncpy(cdat->drout_2489__LAMBDA_.routdescr, "LAMBDA_ @warmelt-first.melt:2430", MELT_ROUTDESCR_LEN - 1); - cdat->drout_2489__LAMBDA_.nbval = 0; - MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_2489__LAMBDA_, meltrout_26_warmelt_first_LAMBDA_); - - /*inirout drout_2490__LAMBDA_*/ - /*_.VALROUT___V2497*/ meltfptr[2496] = (void*)&cdat->drout_2490__LAMBDA_; - cdat->drout_2490__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); - strncpy(cdat->drout_2490__LAMBDA_.routdescr, "LAMBDA_ @warmelt-first.melt:2435", MELT_ROUTDESCR_LEN - 1); - cdat->drout_2490__LAMBDA_.nbval = 1; - MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_2490__LAMBDA_, meltrout_27_warmelt_first_LAMBDA_); - - /*inirout drout_2491__AT_FINISH_UNIT_FIRST*/ - /*_.VALROUT___V2535*/ meltfptr[2534] = (void*)&cdat->drout_2491__AT_FINISH_UNIT_FIRST; - cdat->drout_2491__AT_FINISH_UNIT_FIRST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); - strncpy(cdat->drout_2491__AT_FINISH_UNIT_FIRST.routdescr, "AT_FINISH_UNIT_FIRST @warmelt-first.melt:2445", MELT_ROUTDESCR_LEN - 1); - cdat->drout_2491__AT_FINISH_UNIT_FIRST.nbval = 1; - MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_2491__AT_FINISH_UNIT_FIRST, meltrout_28_warmelt_first_AT_FINISH_UNIT_FIRST); - - /*iniclos dclo_2492__AT_FINISH_UNIT_FIRST*/ - /*_.VALCLO___V2536*/ meltfptr[2535] = (void*)&cdat->dclo_2492__AT_FINISH_UNIT_FIRST; - cdat->dclo_2492__AT_FINISH_UNIT_FIRST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); - cdat->dclo_2492__AT_FINISH_UNIT_FIRST.nbval = 0; - - /*inirout drout_2493__AT_FINISH_UNIT_LAST*/ - /*_.VALROUT___V2537*/ meltfptr[2536] = (void*)&cdat->drout_2493__AT_FINISH_UNIT_LAST; - cdat->drout_2493__AT_FINISH_UNIT_LAST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); - strncpy(cdat->drout_2493__AT_FINISH_UNIT_LAST.routdescr, "AT_FINISH_UNIT_LAST @warmelt-first.melt:2453", MELT_ROUTDESCR_LEN - 1); - cdat->drout_2493__AT_FINISH_UNIT_LAST.nbval = 1; - MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_2493__AT_FINISH_UNIT_LAST, meltrout_29_warmelt_first_AT_FINISH_UNIT_LAST); - - /*iniclos dclo_2494__AT_FINISH_UNIT_LAST*/ - /*_.VALCLO___V2538*/ meltfptr[2537] = (void*)&cdat->dclo_2494__AT_FINISH_UNIT_LAST; - cdat->dclo_2494__AT_FINISH_UNIT_LAST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); - cdat->dclo_2494__AT_FINISH_UNIT_LAST.nbval = 0; - - /*iniobj dsym_2495__OPTION_MAP_CONTAINER*/ -/*uniqueobj*/ if (!/*_.VALDATA___V2539*/ meltfptr[2538]) /*_.VALDATA___V2539*/ meltfptr[2538] = (void*)&cdat->dsym_2495__OPTION_MAP_CONTAINER; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2495__OPTION_MAP_CONTAINER", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2495__OPTION_MAP_CONTAINER", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); - cdat->dsym_2495__OPTION_MAP_CONTAINER.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_2495__OPTION_MAP_CONTAINER.obj_hash = 528246379; - cdat->dsym_2495__OPTION_MAP_CONTAINER.obj_len = 3; - - /*inistring dstr_2496__OPTION_MAP_CONTA*/ - /*_.VALSTR___V2540*/ meltfptr[2539] = (void*)&cdat->dstr_2496__OPTION_MAP_CONTA; - cdat->dstr_2496__OPTION_MAP_CONTA.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2496__OPTION_MAP_CONTA.val, "OPTION_MAP_CONTAINER", sizeof (cdat->dstr_2496__OPTION_MAP_CONTA.val)-1); - - MELT_LOCATION("warmelt-first.melt:2462:/ iniobj"); - /*iniobj dobj_2497__OPTION_MAP_CONTAINER*/ -/*_.VALDATA___V2500*/ meltfptr[2499] = (void*)&cdat->dobj_2497__OPTION_MAP_CONTAINER; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2497__OPTION_MAP_CONTAINER", melt_magic_discr (/*_.VALDATA___V25*/ meltfptr[24]) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2497__OPTION_MAP_CONTAINER", ((meltobject_ptr_t) (/*_.VALDATA___V25*/ meltfptr[24]))->object_magic == OBMAG_OBJECT); - cdat->dobj_2497__OPTION_MAP_CONTAINER.obj_class = (meltobject_ptr_t)(/*_.VALDATA___V25*/ meltfptr[24]); - cdat->dobj_2497__OPTION_MAP_CONTAINER.obj_hash = 519310156; - cdat->dobj_2497__OPTION_MAP_CONTAINER.obj_len = 1; - - /*iniobj dsym_2498__CLASS_OPTION_DESCRIPTOR*/ -/*uniqueobj*/ if (!/*_.VALDATA___V2541*/ meltfptr[2540]) /*_.VALDATA___V2541*/ meltfptr[2540] = (void*)&cdat->dsym_2498__CLASS_OPTION_DESCRIPTOR; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2498__CLASS_OPTION_DESCRIPTOR", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2498__CLASS_OPTION_DESCRIPTOR", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); - cdat->dsym_2498__CLASS_OPTION_DESCRIPTOR.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_2498__CLASS_OPTION_DESCRIPTOR.obj_hash = 311125109; - cdat->dsym_2498__CLASS_OPTION_DESCRIPTOR.obj_len = 3; - - /*inistring dstr_2499__CLASS_OPTION_DES*/ - /*_.VALSTR___V2542*/ meltfptr[2541] = (void*)&cdat->dstr_2499__CLASS_OPTION_DES; - cdat->dstr_2499__CLASS_OPTION_DES.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2499__CLASS_OPTION_DES.val, "CLASS_OPTION_DESCRIPTOR", sizeof (cdat->dstr_2499__CLASS_OPTION_DES.val)-1); - - MELT_LOCATION("warmelt-first.melt:2465:/ iniobj"); - /*iniobj dobj_2500__CLASS_OPTION_DESCRIPTOR*/ -/*_.VALDATA___V2502*/ meltfptr[2501] = (void*)&cdat->dobj_2500__CLASS_OPTION_DESCRIPTOR; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2500__CLASS_OPTION_DESCRIPTOR", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_CLASS)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2500__CLASS_OPTION_DESCRIPTOR", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); - cdat->dobj_2500__CLASS_OPTION_DESCRIPTOR.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); - cdat->dobj_2500__CLASS_OPTION_DESCRIPTOR.obj_num = OBMAG_OBJECT; - cdat->dobj_2500__CLASS_OPTION_DESCRIPTOR.obj_hash = 19657659; - cdat->dobj_2500__CLASS_OPTION_DESCRIPTOR.obj_len = 8; - - /*inistring dstr_2501__CLASS_OPTION_DES*/ - /*_.VALSTR___V2503*/ meltfptr[2502] = (void*)&cdat->dstr_2501__CLASS_OPTION_DES; - cdat->dstr_2501__CLASS_OPTION_DES.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2501__CLASS_OPTION_DES.val, "CLASS_OPTION_DESCRIPTOR", sizeof (cdat->dstr_2501__CLASS_OPTION_DES.val)-1); - - /*inimult dtup_2502__CLASS_OPTION_DESCRIPTOR*/ - /*_.VALTUP___V2504*/ meltfptr[2503] = (void*)&cdat->dtup_2502__CLASS_OPTION_DESCRIPTOR; - cdat->dtup_2502__CLASS_OPTION_DESCRIPTOR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); - cdat->dtup_2502__CLASS_OPTION_DESCRIPTOR.nbval = 1; - /*inimult dtup_2503__CLASS_OPTION_DESCRIPTOR*/ - /*_.VALTUP___V2511*/ meltfptr[2510] = (void*)&cdat->dtup_2503__CLASS_OPTION_DESCRIPTOR; - cdat->dtup_2503__CLASS_OPTION_DESCRIPTOR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); - cdat->dtup_2503__CLASS_OPTION_DESCRIPTOR.nbval = 3; - /*iniobj dsym_2504__OPTDESC_NAME*/ -/*uniqueobj*/ if (!/*_.VALDATA___V2543*/ meltfptr[2542]) /*_.VALDATA___V2543*/ meltfptr[2542] = (void*)&cdat->dsym_2504__OPTDESC_NAME; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2504__OPTDESC_NAME", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2504__OPTDESC_NAME", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); - cdat->dsym_2504__OPTDESC_NAME.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_2504__OPTDESC_NAME.obj_hash = 361455686; - cdat->dsym_2504__OPTDESC_NAME.obj_len = 3; - - /*inistring dstr_2505__OPTDESC_NAME*/ - /*_.VALSTR___V2544*/ meltfptr[2543] = (void*)&cdat->dstr_2505__OPTDESC_NAME; - cdat->dstr_2505__OPTDESC_NAME.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2505__OPTDESC_NAME.val, "OPTDESC_NAME", sizeof (cdat->dstr_2505__OPTDESC_NAME.val)-1); + /*iniobj dobj_2472__DELQU_DATA*/ +/*_.VALDATA___V2484*/ meltfptr[2483] = (void*)&cdat->dobj_2472__DELQU_DATA; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2472__DELQU_DATA", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2472__DELQU_DATA", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); + cdat->dobj_2472__DELQU_DATA.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); + cdat->dobj_2472__DELQU_DATA.obj_num = 4; + cdat->dobj_2472__DELQU_DATA.obj_hash = 725326188; + cdat->dobj_2472__DELQU_DATA.obj_len = 4; + + /*inistring dstr_2473__DELQU_DATA*/ + /*_.VALSTR___V2485*/ meltfptr[2484] = (void*)&cdat->dstr_2473__DELQU_DATA; + cdat->dstr_2473__DELQU_DATA.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2473__DELQU_DATA.val, "DELQU_DATA", sizeof (cdat->dstr_2473__DELQU_DATA.val)-1); + + /*iniobj dsym_2474__FINAL_DELAYED_QUEUE*/ +/*uniqueobj*/ if (!/*_.VALDATA___V2539*/ meltfptr[2538]) /*_.VALDATA___V2539*/ meltfptr[2538] = (void*)&cdat->dsym_2474__FINAL_DELAYED_QUEUE; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2474__FINAL_DELAYED_QUEUE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2474__FINAL_DELAYED_QUEUE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); + cdat->dsym_2474__FINAL_DELAYED_QUEUE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_2474__FINAL_DELAYED_QUEUE.obj_hash = 912306839; + cdat->dsym_2474__FINAL_DELAYED_QUEUE.obj_len = 3; + + /*inistring dstr_2475__FINAL_DELAYED_QU*/ + /*_.VALSTR___V2540*/ meltfptr[2539] = (void*)&cdat->dstr_2475__FINAL_DELAYED_QU; + cdat->dstr_2475__FINAL_DELAYED_QU.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2475__FINAL_DELAYED_QU.val, "FINAL_DELAYED_QUEUE", sizeof (cdat->dstr_2475__FINAL_DELAYED_QU.val)-1); + + MELT_LOCATION("warmelt-first.melt:2296:/ iniobj"); + /*iniobj dobj_2476__FINAL_DELAYED_QUEUE*/ +/*_.VALDATA___V2487*/ meltfptr[2486] = (void*)&cdat->dobj_2476__FINAL_DELAYED_QUEUE; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2476__FINAL_DELAYED_QUEUE", melt_magic_discr (/*_.VALDATA___V2477*/ meltfptr[2476]) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2476__FINAL_DELAYED_QUEUE", ((meltobject_ptr_t) (/*_.VALDATA___V2477*/ meltfptr[2476]))->object_magic == OBMAG_OBJECT); + cdat->dobj_2476__FINAL_DELAYED_QUEUE.obj_class = (meltobject_ptr_t)(/*_.VALDATA___V2477*/ meltfptr[2476]); + cdat->dobj_2476__FINAL_DELAYED_QUEUE.obj_hash = 124146738; + cdat->dobj_2476__FINAL_DELAYED_QUEUE.obj_len = 5; + + /*inistring dstr_2477__final_delayed_qu*/ + /*_.VALSTR___V2490*/ meltfptr[2489] = (void*)&cdat->dstr_2477__final_delayed_qu; + cdat->dstr_2477__final_delayed_qu.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2477__final_delayed_qu.val, "final_delayed_queue", sizeof (cdat->dstr_2477__final_delayed_qu.val)-1); + + /*inirout drout_2478__INIT_EXITFINALIZER*/ + /*_.VALROUT___V2476*/ meltfptr[2475] = (void*)&cdat->drout_2478__INIT_EXITFINALIZER; + cdat->drout_2478__INIT_EXITFINALIZER.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); + strncpy(cdat->drout_2478__INIT_EXITFINALIZER.routdescr, "INIT_EXITFINALIZER @warmelt-first.melt:2304", MELT_ROUTDESCR_LEN - 1); + cdat->drout_2478__INIT_EXITFINALIZER.nbval = 10; + MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_2478__INIT_EXITFINALIZER, meltrout_12_warmelt_first_INIT_EXITFINALIZER); + + /*iniclos dclo_2479__INIT_EXITFINALIZER*/ + /*_.VALCLO___V2475*/ meltfptr[2474] = (void*)&cdat->dclo_2479__INIT_EXITFINALIZER; + cdat->dclo_2479__INIT_EXITFINALIZER.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); + cdat->dclo_2479__INIT_EXITFINALIZER.nbval = 0; + + /*inirout drout_2480__LAMBDA_*/ + /*_.VALROUT___V2493*/ meltfptr[2492] = (void*)&cdat->drout_2480__LAMBDA_; + cdat->drout_2480__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); + strncpy(cdat->drout_2480__LAMBDA_.routdescr, "LAMBDA_ @warmelt-first.melt:2314", MELT_ROUTDESCR_LEN - 1); + cdat->drout_2480__LAMBDA_.nbval = 1; + MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_2480__LAMBDA_, meltrout_13_warmelt_first_LAMBDA_); + + /*inirout drout_2481__LAMBDA_*/ + /*_.VALROUT___V2494*/ meltfptr[2493] = (void*)&cdat->drout_2481__LAMBDA_; + cdat->drout_2481__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); + strncpy(cdat->drout_2481__LAMBDA_.routdescr, "LAMBDA_ @warmelt-first.melt:2323", MELT_ROUTDESCR_LEN - 1); + cdat->drout_2481__LAMBDA_.nbval = 0; + MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_2481__LAMBDA_, meltrout_14_warmelt_first_LAMBDA_); + + /*inirout drout_2482__LAMBDA_*/ + /*_.VALROUT___V2495*/ meltfptr[2494] = (void*)&cdat->drout_2482__LAMBDA_; + cdat->drout_2482__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); + strncpy(cdat->drout_2482__LAMBDA_.routdescr, "LAMBDA_ @warmelt-first.melt:2328", MELT_ROUTDESCR_LEN - 1); + cdat->drout_2482__LAMBDA_.nbval = 1; + MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_2482__LAMBDA_, meltrout_15_warmelt_first_LAMBDA_); + + /*inirout drout_2483__AT_EXIT_FIRST*/ + /*_.VALROUT___V2541*/ meltfptr[2540] = (void*)&cdat->drout_2483__AT_EXIT_FIRST; + cdat->drout_2483__AT_EXIT_FIRST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); + strncpy(cdat->drout_2483__AT_EXIT_FIRST.routdescr, "AT_EXIT_FIRST @warmelt-first.melt:2338", MELT_ROUTDESCR_LEN - 1); + cdat->drout_2483__AT_EXIT_FIRST.nbval = 1; + MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_2483__AT_EXIT_FIRST, meltrout_16_warmelt_first_AT_EXIT_FIRST); + + /*iniclos dclo_2484__AT_EXIT_FIRST*/ + /*_.VALCLO___V2542*/ meltfptr[2541] = (void*)&cdat->dclo_2484__AT_EXIT_FIRST; + cdat->dclo_2484__AT_EXIT_FIRST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); + cdat->dclo_2484__AT_EXIT_FIRST.nbval = 0; + + /*inirout drout_2485__AT_EXIT_LAST*/ + /*_.VALROUT___V2543*/ meltfptr[2542] = (void*)&cdat->drout_2485__AT_EXIT_LAST; + cdat->drout_2485__AT_EXIT_LAST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); + strncpy(cdat->drout_2485__AT_EXIT_LAST.routdescr, "AT_EXIT_LAST @warmelt-first.melt:2346", MELT_ROUTDESCR_LEN - 1); + cdat->drout_2485__AT_EXIT_LAST.nbval = 1; + MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_2485__AT_EXIT_LAST, meltrout_17_warmelt_first_AT_EXIT_LAST); + + /*iniclos dclo_2486__AT_EXIT_LAST*/ + /*_.VALCLO___V2544*/ meltfptr[2543] = (void*)&cdat->dclo_2486__AT_EXIT_LAST; + cdat->dclo_2486__AT_EXIT_LAST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); + cdat->dclo_2486__AT_EXIT_LAST.nbval = 0; + + /*iniobj dsym_2487__START_UNIT_DELAYED_QUEUE*/ +/*uniqueobj*/ if (!/*_.VALDATA___V2545*/ meltfptr[2544]) /*_.VALDATA___V2545*/ meltfptr[2544] = (void*)&cdat->dsym_2487__START_UNIT_DELAYED_QUEUE; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2487__START_UNIT_DELAYED_QUEUE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2487__START_UNIT_DELAYED_QUEUE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); + cdat->dsym_2487__START_UNIT_DELAYED_QUEUE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_2487__START_UNIT_DELAYED_QUEUE.obj_hash = 29194126; + cdat->dsym_2487__START_UNIT_DELAYED_QUEUE.obj_len = 3; + + /*inistring dstr_2488__START_UNIT_DELAY*/ + /*_.VALSTR___V2546*/ meltfptr[2545] = (void*)&cdat->dstr_2488__START_UNIT_DELAY; + cdat->dstr_2488__START_UNIT_DELAY.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2488__START_UNIT_DELAY.val, "START_UNIT_DELAYED_QUEUE", sizeof (cdat->dstr_2488__START_UNIT_DELAY.val)-1); + + MELT_LOCATION("warmelt-first.melt:2355:/ iniobj"); + /*iniobj dobj_2489__START_UNIT_DELAYED_QUEUE*/ +/*_.VALDATA___V2500*/ meltfptr[2499] = (void*)&cdat->dobj_2489__START_UNIT_DELAYED_QUEUE; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2489__START_UNIT_DELAYED_QUEUE", melt_magic_discr (/*_.VALDATA___V2477*/ meltfptr[2476]) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2489__START_UNIT_DELAYED_QUEUE", ((meltobject_ptr_t) (/*_.VALDATA___V2477*/ meltfptr[2476]))->object_magic == OBMAG_OBJECT); + cdat->dobj_2489__START_UNIT_DELAYED_QUEUE.obj_class = (meltobject_ptr_t)(/*_.VALDATA___V2477*/ meltfptr[2476]); + cdat->dobj_2489__START_UNIT_DELAYED_QUEUE.obj_hash = 164410673; + cdat->dobj_2489__START_UNIT_DELAYED_QUEUE.obj_len = 5; + + /*inistring dstr_2490__start_unit_delay*/ + /*_.VALSTR___V2503*/ meltfptr[2502] = (void*)&cdat->dstr_2490__start_unit_delay; + cdat->dstr_2490__start_unit_delay.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2490__start_unit_delay.val, "start_unit_delayed_queue", sizeof (cdat->dstr_2490__start_unit_delay.val)-1); + + /*inirout drout_2491__INIT_UNITSTARTER*/ + /*_.VALROUT___V2499*/ meltfptr[2498] = (void*)&cdat->drout_2491__INIT_UNITSTARTER; + cdat->drout_2491__INIT_UNITSTARTER.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); + strncpy(cdat->drout_2491__INIT_UNITSTARTER.routdescr, "INIT_UNITSTARTER @warmelt-first.melt:2362", MELT_ROUTDESCR_LEN - 1); + cdat->drout_2491__INIT_UNITSTARTER.nbval = 10; + MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_2491__INIT_UNITSTARTER, meltrout_18_warmelt_first_INIT_UNITSTARTER); + + /*iniclos dclo_2492__INIT_UNITSTARTER*/ + /*_.VALCLO___V2498*/ meltfptr[2497] = (void*)&cdat->dclo_2492__INIT_UNITSTARTER; + cdat->dclo_2492__INIT_UNITSTARTER.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); + cdat->dclo_2492__INIT_UNITSTARTER.nbval = 0; + + /*inirout drout_2493__LAMBDA_*/ + /*_.VALROUT___V2504*/ meltfptr[2503] = (void*)&cdat->drout_2493__LAMBDA_; + cdat->drout_2493__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); + strncpy(cdat->drout_2493__LAMBDA_.routdescr, "LAMBDA_ @warmelt-first.melt:2372", MELT_ROUTDESCR_LEN - 1); + cdat->drout_2493__LAMBDA_.nbval = 1; + MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_2493__LAMBDA_, meltrout_19_warmelt_first_LAMBDA_); + + /*inirout drout_2494__LAMBDA_*/ + /*_.VALROUT___V2505*/ meltfptr[2504] = (void*)&cdat->drout_2494__LAMBDA_; + cdat->drout_2494__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); + strncpy(cdat->drout_2494__LAMBDA_.routdescr, "LAMBDA_ @warmelt-first.melt:2381", MELT_ROUTDESCR_LEN - 1); + cdat->drout_2494__LAMBDA_.nbval = 0; + MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_2494__LAMBDA_, meltrout_20_warmelt_first_LAMBDA_); + + /*inirout drout_2495__LAMBDA_*/ + /*_.VALROUT___V2506*/ meltfptr[2505] = (void*)&cdat->drout_2495__LAMBDA_; + cdat->drout_2495__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); + strncpy(cdat->drout_2495__LAMBDA_.routdescr, "LAMBDA_ @warmelt-first.melt:2386", MELT_ROUTDESCR_LEN - 1); + cdat->drout_2495__LAMBDA_.nbval = 1; + MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_2495__LAMBDA_, meltrout_21_warmelt_first_LAMBDA_); + + /*inirout drout_2496__AT_START_UNIT_FIRST*/ + /*_.VALROUT___V2547*/ meltfptr[2546] = (void*)&cdat->drout_2496__AT_START_UNIT_FIRST; + cdat->drout_2496__AT_START_UNIT_FIRST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); + strncpy(cdat->drout_2496__AT_START_UNIT_FIRST.routdescr, "AT_START_UNIT_FIRST @warmelt-first.melt:2396", MELT_ROUTDESCR_LEN - 1); + cdat->drout_2496__AT_START_UNIT_FIRST.nbval = 1; + MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_2496__AT_START_UNIT_FIRST, meltrout_22_warmelt_first_AT_START_UNIT_FIRST); + + /*iniclos dclo_2497__AT_START_UNIT_FIRST*/ + /*_.VALCLO___V2548*/ meltfptr[2547] = (void*)&cdat->dclo_2497__AT_START_UNIT_FIRST; + cdat->dclo_2497__AT_START_UNIT_FIRST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); + cdat->dclo_2497__AT_START_UNIT_FIRST.nbval = 0; + + /*inirout drout_2498__AT_START_UNIT_LAST*/ + /*_.VALROUT___V2549*/ meltfptr[2548] = (void*)&cdat->drout_2498__AT_START_UNIT_LAST; + cdat->drout_2498__AT_START_UNIT_LAST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); + strncpy(cdat->drout_2498__AT_START_UNIT_LAST.routdescr, "AT_START_UNIT_LAST @warmelt-first.melt:2403", MELT_ROUTDESCR_LEN - 1); + cdat->drout_2498__AT_START_UNIT_LAST.nbval = 1; + MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_2498__AT_START_UNIT_LAST, meltrout_23_warmelt_first_AT_START_UNIT_LAST); + + /*iniclos dclo_2499__AT_START_UNIT_LAST*/ + /*_.VALCLO___V2550*/ meltfptr[2549] = (void*)&cdat->dclo_2499__AT_START_UNIT_LAST; + cdat->dclo_2499__AT_START_UNIT_LAST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); + cdat->dclo_2499__AT_START_UNIT_LAST.nbval = 0; + + /*iniobj dsym_2500__FINISH_UNIT_DELAYED_QUEUE*/ +/*uniqueobj*/ if (!/*_.VALDATA___V2551*/ meltfptr[2550]) /*_.VALDATA___V2551*/ meltfptr[2550] = (void*)&cdat->dsym_2500__FINISH_UNIT_DELAYED_QUEUE; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2500__FINISH_UNIT_DELAYED_QUEUE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2500__FINISH_UNIT_DELAYED_QUEUE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); + cdat->dsym_2500__FINISH_UNIT_DELAYED_QUEUE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_2500__FINISH_UNIT_DELAYED_QUEUE.obj_hash = 694241046; + cdat->dsym_2500__FINISH_UNIT_DELAYED_QUEUE.obj_len = 3; + + /*inistring dstr_2501__FINISH_UNIT_DELA*/ + /*_.VALSTR___V2552*/ meltfptr[2551] = (void*)&cdat->dstr_2501__FINISH_UNIT_DELA; + cdat->dstr_2501__FINISH_UNIT_DELA.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2501__FINISH_UNIT_DELA.val, "FINISH_UNIT_DELAYED_QUEUE", sizeof (cdat->dstr_2501__FINISH_UNIT_DELA.val)-1); + + MELT_LOCATION("warmelt-first.melt:2412:/ iniobj"); + /*iniobj dobj_2502__FINISH_UNIT_DELAYED_QUEUE*/ +/*_.VALDATA___V2509*/ meltfptr[2508] = (void*)&cdat->dobj_2502__FINISH_UNIT_DELAYED_QUEUE; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2502__FINISH_UNIT_DELAYED_QUEUE", melt_magic_discr (/*_.VALDATA___V2477*/ meltfptr[2476]) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2502__FINISH_UNIT_DELAYED_QUEUE", ((meltobject_ptr_t) (/*_.VALDATA___V2477*/ meltfptr[2476]))->object_magic == OBMAG_OBJECT); + cdat->dobj_2502__FINISH_UNIT_DELAYED_QUEUE.obj_class = (meltobject_ptr_t)(/*_.VALDATA___V2477*/ meltfptr[2476]); + cdat->dobj_2502__FINISH_UNIT_DELAYED_QUEUE.obj_hash = 449128225; + cdat->dobj_2502__FINISH_UNIT_DELAYED_QUEUE.obj_len = 5; + + /*inistring dstr_2503__finish_unit_dela*/ + /*_.VALSTR___V2512*/ meltfptr[2511] = (void*)&cdat->dstr_2503__finish_unit_dela; + cdat->dstr_2503__finish_unit_dela.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2503__finish_unit_dela.val, "finish_unit_delayed_queue", sizeof (cdat->dstr_2503__finish_unit_dela.val)-1); + + /*inirout drout_2504__INIT_UNITFINISHER*/ + /*_.VALROUT___V2508*/ meltfptr[2507] = (void*)&cdat->drout_2504__INIT_UNITFINISHER; + cdat->drout_2504__INIT_UNITFINISHER.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); + strncpy(cdat->drout_2504__INIT_UNITFINISHER.routdescr, "INIT_UNITFINISHER @warmelt-first.melt:2418", MELT_ROUTDESCR_LEN - 1); + cdat->drout_2504__INIT_UNITFINISHER.nbval = 10; + MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_2504__INIT_UNITFINISHER, meltrout_24_warmelt_first_INIT_UNITFINISHER); + + /*iniclos dclo_2505__INIT_UNITFINISHER*/ + /*_.VALCLO___V2507*/ meltfptr[2506] = (void*)&cdat->dclo_2505__INIT_UNITFINISHER; + cdat->dclo_2505__INIT_UNITFINISHER.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); + cdat->dclo_2505__INIT_UNITFINISHER.nbval = 0; + + /*inirout drout_2506__LAMBDA_*/ + /*_.VALROUT___V2513*/ meltfptr[2512] = (void*)&cdat->drout_2506__LAMBDA_; + cdat->drout_2506__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); + strncpy(cdat->drout_2506__LAMBDA_.routdescr, "LAMBDA_ @warmelt-first.melt:2428", MELT_ROUTDESCR_LEN - 1); + cdat->drout_2506__LAMBDA_.nbval = 1; + MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_2506__LAMBDA_, meltrout_25_warmelt_first_LAMBDA_); + + /*inirout drout_2507__LAMBDA_*/ + /*_.VALROUT___V2514*/ meltfptr[2513] = (void*)&cdat->drout_2507__LAMBDA_; + cdat->drout_2507__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); + strncpy(cdat->drout_2507__LAMBDA_.routdescr, "LAMBDA_ @warmelt-first.melt:2437", MELT_ROUTDESCR_LEN - 1); + cdat->drout_2507__LAMBDA_.nbval = 0; + MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_2507__LAMBDA_, meltrout_26_warmelt_first_LAMBDA_); + + /*inirout drout_2508__LAMBDA_*/ + /*_.VALROUT___V2515*/ meltfptr[2514] = (void*)&cdat->drout_2508__LAMBDA_; + cdat->drout_2508__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); + strncpy(cdat->drout_2508__LAMBDA_.routdescr, "LAMBDA_ @warmelt-first.melt:2442", MELT_ROUTDESCR_LEN - 1); + cdat->drout_2508__LAMBDA_.nbval = 1; + MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_2508__LAMBDA_, meltrout_27_warmelt_first_LAMBDA_); + + /*inirout drout_2509__AT_FINISH_UNIT_FIRST*/ + /*_.VALROUT___V2553*/ meltfptr[2552] = (void*)&cdat->drout_2509__AT_FINISH_UNIT_FIRST; + cdat->drout_2509__AT_FINISH_UNIT_FIRST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); + strncpy(cdat->drout_2509__AT_FINISH_UNIT_FIRST.routdescr, "AT_FINISH_UNIT_FIRST @warmelt-first.melt:2452", MELT_ROUTDESCR_LEN - 1); + cdat->drout_2509__AT_FINISH_UNIT_FIRST.nbval = 1; + MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_2509__AT_FINISH_UNIT_FIRST, meltrout_28_warmelt_first_AT_FINISH_UNIT_FIRST); + + /*iniclos dclo_2510__AT_FINISH_UNIT_FIRST*/ + /*_.VALCLO___V2554*/ meltfptr[2553] = (void*)&cdat->dclo_2510__AT_FINISH_UNIT_FIRST; + cdat->dclo_2510__AT_FINISH_UNIT_FIRST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); + cdat->dclo_2510__AT_FINISH_UNIT_FIRST.nbval = 0; + + /*inirout drout_2511__AT_FINISH_UNIT_LAST*/ + /*_.VALROUT___V2555*/ meltfptr[2554] = (void*)&cdat->drout_2511__AT_FINISH_UNIT_LAST; + cdat->drout_2511__AT_FINISH_UNIT_LAST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); + strncpy(cdat->drout_2511__AT_FINISH_UNIT_LAST.routdescr, "AT_FINISH_UNIT_LAST @warmelt-first.melt:2460", MELT_ROUTDESCR_LEN - 1); + cdat->drout_2511__AT_FINISH_UNIT_LAST.nbval = 1; + MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_2511__AT_FINISH_UNIT_LAST, meltrout_29_warmelt_first_AT_FINISH_UNIT_LAST); + + /*iniclos dclo_2512__AT_FINISH_UNIT_LAST*/ + /*_.VALCLO___V2556*/ meltfptr[2555] = (void*)&cdat->dclo_2512__AT_FINISH_UNIT_LAST; + cdat->dclo_2512__AT_FINISH_UNIT_LAST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); + cdat->dclo_2512__AT_FINISH_UNIT_LAST.nbval = 0; + + /*iniobj dsym_2513__OPTION_MAP_CONTAINER*/ +/*uniqueobj*/ if (!/*_.VALDATA___V2557*/ meltfptr[2556]) /*_.VALDATA___V2557*/ meltfptr[2556] = (void*)&cdat->dsym_2513__OPTION_MAP_CONTAINER; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2513__OPTION_MAP_CONTAINER", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2513__OPTION_MAP_CONTAINER", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); + cdat->dsym_2513__OPTION_MAP_CONTAINER.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_2513__OPTION_MAP_CONTAINER.obj_hash = 528246379; + cdat->dsym_2513__OPTION_MAP_CONTAINER.obj_len = 3; + + /*inistring dstr_2514__OPTION_MAP_CONTA*/ + /*_.VALSTR___V2558*/ meltfptr[2557] = (void*)&cdat->dstr_2514__OPTION_MAP_CONTA; + cdat->dstr_2514__OPTION_MAP_CONTA.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2514__OPTION_MAP_CONTA.val, "OPTION_MAP_CONTAINER", sizeof (cdat->dstr_2514__OPTION_MAP_CONTA.val)-1); + + MELT_LOCATION("warmelt-first.melt:2469:/ iniobj"); + /*iniobj dobj_2515__OPTION_MAP_CONTAINER*/ +/*_.VALDATA___V2518*/ meltfptr[2517] = (void*)&cdat->dobj_2515__OPTION_MAP_CONTAINER; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2515__OPTION_MAP_CONTAINER", melt_magic_discr (/*_.VALDATA___V25*/ meltfptr[24]) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2515__OPTION_MAP_CONTAINER", ((meltobject_ptr_t) (/*_.VALDATA___V25*/ meltfptr[24]))->object_magic == OBMAG_OBJECT); + cdat->dobj_2515__OPTION_MAP_CONTAINER.obj_class = (meltobject_ptr_t)(/*_.VALDATA___V25*/ meltfptr[24]); + cdat->dobj_2515__OPTION_MAP_CONTAINER.obj_hash = 17345331; + cdat->dobj_2515__OPTION_MAP_CONTAINER.obj_len = 1; + + /*iniobj dsym_2516__CLASS_OPTION_DESCRIPTOR*/ +/*uniqueobj*/ if (!/*_.VALDATA___V2559*/ meltfptr[2558]) /*_.VALDATA___V2559*/ meltfptr[2558] = (void*)&cdat->dsym_2516__CLASS_OPTION_DESCRIPTOR; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2516__CLASS_OPTION_DESCRIPTOR", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2516__CLASS_OPTION_DESCRIPTOR", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); + cdat->dsym_2516__CLASS_OPTION_DESCRIPTOR.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_2516__CLASS_OPTION_DESCRIPTOR.obj_hash = 311125109; + cdat->dsym_2516__CLASS_OPTION_DESCRIPTOR.obj_len = 3; + + /*inistring dstr_2517__CLASS_OPTION_DES*/ + /*_.VALSTR___V2560*/ meltfptr[2559] = (void*)&cdat->dstr_2517__CLASS_OPTION_DES; + cdat->dstr_2517__CLASS_OPTION_DES.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2517__CLASS_OPTION_DES.val, "CLASS_OPTION_DESCRIPTOR", sizeof (cdat->dstr_2517__CLASS_OPTION_DES.val)-1); + + MELT_LOCATION("warmelt-first.melt:2472:/ iniobj"); + /*iniobj dobj_2518__CLASS_OPTION_DESCRIPTOR*/ +/*_.VALDATA___V2520*/ meltfptr[2519] = (void*)&cdat->dobj_2518__CLASS_OPTION_DESCRIPTOR; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2518__CLASS_OPTION_DESCRIPTOR", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_CLASS)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2518__CLASS_OPTION_DESCRIPTOR", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); + cdat->dobj_2518__CLASS_OPTION_DESCRIPTOR.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); + cdat->dobj_2518__CLASS_OPTION_DESCRIPTOR.obj_num = OBMAG_OBJECT; + cdat->dobj_2518__CLASS_OPTION_DESCRIPTOR.obj_hash = 853635961; + cdat->dobj_2518__CLASS_OPTION_DESCRIPTOR.obj_len = 8; + + /*inistring dstr_2519__CLASS_OPTION_DES*/ + /*_.VALSTR___V2521*/ meltfptr[2520] = (void*)&cdat->dstr_2519__CLASS_OPTION_DES; + cdat->dstr_2519__CLASS_OPTION_DES.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2519__CLASS_OPTION_DES.val, "CLASS_OPTION_DESCRIPTOR", sizeof (cdat->dstr_2519__CLASS_OPTION_DES.val)-1); + + /*inimult dtup_2520__CLASS_OPTION_DESCRIPTOR*/ + /*_.VALTUP___V2522*/ meltfptr[2521] = (void*)&cdat->dtup_2520__CLASS_OPTION_DESCRIPTOR; + cdat->dtup_2520__CLASS_OPTION_DESCRIPTOR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); + cdat->dtup_2520__CLASS_OPTION_DESCRIPTOR.nbval = 1; + /*inimult dtup_2521__CLASS_OPTION_DESCRIPTOR*/ + /*_.VALTUP___V2529*/ meltfptr[2528] = (void*)&cdat->dtup_2521__CLASS_OPTION_DESCRIPTOR; + cdat->dtup_2521__CLASS_OPTION_DESCRIPTOR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); + cdat->dtup_2521__CLASS_OPTION_DESCRIPTOR.nbval = 3; + /*iniobj dsym_2522__OPTDESC_NAME*/ +/*uniqueobj*/ if (!/*_.VALDATA___V2561*/ meltfptr[2560]) /*_.VALDATA___V2561*/ meltfptr[2560] = (void*)&cdat->dsym_2522__OPTDESC_NAME; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2522__OPTDESC_NAME", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2522__OPTDESC_NAME", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); + cdat->dsym_2522__OPTDESC_NAME.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_2522__OPTDESC_NAME.obj_hash = 361455686; + cdat->dsym_2522__OPTDESC_NAME.obj_len = 3; + + /*inistring dstr_2523__OPTDESC_NAME*/ + /*_.VALSTR___V2562*/ meltfptr[2561] = (void*)&cdat->dstr_2523__OPTDESC_NAME; + cdat->dstr_2523__OPTDESC_NAME.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2523__OPTDESC_NAME.val, "OPTDESC_NAME", sizeof (cdat->dstr_2523__OPTDESC_NAME.val)-1); /*^iniobj*/ - /*iniobj dobj_2506__OPTDESC_NAME*/ -/*_.VALDATA___V2505*/ meltfptr[2504] = (void*)&cdat->dobj_2506__OPTDESC_NAME; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2506__OPTDESC_NAME", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2506__OPTDESC_NAME", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); - cdat->dobj_2506__OPTDESC_NAME.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); - cdat->dobj_2506__OPTDESC_NAME.obj_num = 0; - cdat->dobj_2506__OPTDESC_NAME.obj_hash = 771311395; - cdat->dobj_2506__OPTDESC_NAME.obj_len = 4; - - /*inistring dstr_2507__OPTDESC_NAME*/ - /*_.VALSTR___V2506*/ meltfptr[2505] = (void*)&cdat->dstr_2507__OPTDESC_NAME; - cdat->dstr_2507__OPTDESC_NAME.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2507__OPTDESC_NAME.val, "OPTDESC_NAME", sizeof (cdat->dstr_2507__OPTDESC_NAME.val)-1); - - /*iniobj dsym_2508__OPTDESC_FUN*/ -/*uniqueobj*/ if (!/*_.VALDATA___V2545*/ meltfptr[2544]) /*_.VALDATA___V2545*/ meltfptr[2544] = (void*)&cdat->dsym_2508__OPTDESC_FUN; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2508__OPTDESC_FUN", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2508__OPTDESC_FUN", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); - cdat->dsym_2508__OPTDESC_FUN.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_2508__OPTDESC_FUN.obj_hash = 48494649; - cdat->dsym_2508__OPTDESC_FUN.obj_len = 3; - - /*inistring dstr_2509__OPTDESC_FUN*/ - /*_.VALSTR___V2546*/ meltfptr[2545] = (void*)&cdat->dstr_2509__OPTDESC_FUN; - cdat->dstr_2509__OPTDESC_FUN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2509__OPTDESC_FUN.val, "OPTDESC_FUN", sizeof (cdat->dstr_2509__OPTDESC_FUN.val)-1); + /*iniobj dobj_2524__OPTDESC_NAME*/ +/*_.VALDATA___V2523*/ meltfptr[2522] = (void*)&cdat->dobj_2524__OPTDESC_NAME; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2524__OPTDESC_NAME", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2524__OPTDESC_NAME", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); + cdat->dobj_2524__OPTDESC_NAME.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); + cdat->dobj_2524__OPTDESC_NAME.obj_num = 0; + cdat->dobj_2524__OPTDESC_NAME.obj_hash = 293648739; + cdat->dobj_2524__OPTDESC_NAME.obj_len = 4; + + /*inistring dstr_2525__OPTDESC_NAME*/ + /*_.VALSTR___V2524*/ meltfptr[2523] = (void*)&cdat->dstr_2525__OPTDESC_NAME; + cdat->dstr_2525__OPTDESC_NAME.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2525__OPTDESC_NAME.val, "OPTDESC_NAME", sizeof (cdat->dstr_2525__OPTDESC_NAME.val)-1); + + /*iniobj dsym_2526__OPTDESC_FUN*/ +/*uniqueobj*/ if (!/*_.VALDATA___V2563*/ meltfptr[2562]) /*_.VALDATA___V2563*/ meltfptr[2562] = (void*)&cdat->dsym_2526__OPTDESC_FUN; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2526__OPTDESC_FUN", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2526__OPTDESC_FUN", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); + cdat->dsym_2526__OPTDESC_FUN.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_2526__OPTDESC_FUN.obj_hash = 48494649; + cdat->dsym_2526__OPTDESC_FUN.obj_len = 3; + + /*inistring dstr_2527__OPTDESC_FUN*/ + /*_.VALSTR___V2564*/ meltfptr[2563] = (void*)&cdat->dstr_2527__OPTDESC_FUN; + cdat->dstr_2527__OPTDESC_FUN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2527__OPTDESC_FUN.val, "OPTDESC_FUN", sizeof (cdat->dstr_2527__OPTDESC_FUN.val)-1); /*^iniobj*/ - /*iniobj dobj_2510__OPTDESC_FUN*/ -/*_.VALDATA___V2507*/ meltfptr[2506] = (void*)&cdat->dobj_2510__OPTDESC_FUN; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2510__OPTDESC_FUN", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2510__OPTDESC_FUN", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); - cdat->dobj_2510__OPTDESC_FUN.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); - cdat->dobj_2510__OPTDESC_FUN.obj_num = 1; - cdat->dobj_2510__OPTDESC_FUN.obj_hash = 834997009; - cdat->dobj_2510__OPTDESC_FUN.obj_len = 4; - - /*inistring dstr_2511__OPTDESC_FUN*/ - /*_.VALSTR___V2508*/ meltfptr[2507] = (void*)&cdat->dstr_2511__OPTDESC_FUN; - cdat->dstr_2511__OPTDESC_FUN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2511__OPTDESC_FUN.val, "OPTDESC_FUN", sizeof (cdat->dstr_2511__OPTDESC_FUN.val)-1); - - /*iniobj dsym_2512__OPTDESC_HELP*/ -/*uniqueobj*/ if (!/*_.VALDATA___V2547*/ meltfptr[2546]) /*_.VALDATA___V2547*/ meltfptr[2546] = (void*)&cdat->dsym_2512__OPTDESC_HELP; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2512__OPTDESC_HELP", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2512__OPTDESC_HELP", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); - cdat->dsym_2512__OPTDESC_HELP.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_2512__OPTDESC_HELP.obj_hash = 85535750; - cdat->dsym_2512__OPTDESC_HELP.obj_len = 3; - - /*inistring dstr_2513__OPTDESC_HELP*/ - /*_.VALSTR___V2548*/ meltfptr[2547] = (void*)&cdat->dstr_2513__OPTDESC_HELP; - cdat->dstr_2513__OPTDESC_HELP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2513__OPTDESC_HELP.val, "OPTDESC_HELP", sizeof (cdat->dstr_2513__OPTDESC_HELP.val)-1); + /*iniobj dobj_2528__OPTDESC_FUN*/ +/*_.VALDATA___V2525*/ meltfptr[2524] = (void*)&cdat->dobj_2528__OPTDESC_FUN; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2528__OPTDESC_FUN", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2528__OPTDESC_FUN", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); + cdat->dobj_2528__OPTDESC_FUN.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); + cdat->dobj_2528__OPTDESC_FUN.obj_num = 1; + cdat->dobj_2528__OPTDESC_FUN.obj_hash = 844011857; + cdat->dobj_2528__OPTDESC_FUN.obj_len = 4; + + /*inistring dstr_2529__OPTDESC_FUN*/ + /*_.VALSTR___V2526*/ meltfptr[2525] = (void*)&cdat->dstr_2529__OPTDESC_FUN; + cdat->dstr_2529__OPTDESC_FUN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2529__OPTDESC_FUN.val, "OPTDESC_FUN", sizeof (cdat->dstr_2529__OPTDESC_FUN.val)-1); + + /*iniobj dsym_2530__OPTDESC_HELP*/ +/*uniqueobj*/ if (!/*_.VALDATA___V2565*/ meltfptr[2564]) /*_.VALDATA___V2565*/ meltfptr[2564] = (void*)&cdat->dsym_2530__OPTDESC_HELP; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2530__OPTDESC_HELP", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2530__OPTDESC_HELP", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); + cdat->dsym_2530__OPTDESC_HELP.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_2530__OPTDESC_HELP.obj_hash = 85535750; + cdat->dsym_2530__OPTDESC_HELP.obj_len = 3; + + /*inistring dstr_2531__OPTDESC_HELP*/ + /*_.VALSTR___V2566*/ meltfptr[2565] = (void*)&cdat->dstr_2531__OPTDESC_HELP; + cdat->dstr_2531__OPTDESC_HELP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2531__OPTDESC_HELP.val, "OPTDESC_HELP", sizeof (cdat->dstr_2531__OPTDESC_HELP.val)-1); /*^iniobj*/ - /*iniobj dobj_2514__OPTDESC_HELP*/ -/*_.VALDATA___V2509*/ meltfptr[2508] = (void*)&cdat->dobj_2514__OPTDESC_HELP; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2514__OPTDESC_HELP", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2514__OPTDESC_HELP", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); - cdat->dobj_2514__OPTDESC_HELP.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); - cdat->dobj_2514__OPTDESC_HELP.obj_num = 2; - cdat->dobj_2514__OPTDESC_HELP.obj_hash = 46482033; - cdat->dobj_2514__OPTDESC_HELP.obj_len = 4; - - /*inistring dstr_2515__OPTDESC_HELP*/ - /*_.VALSTR___V2510*/ meltfptr[2509] = (void*)&cdat->dstr_2515__OPTDESC_HELP; - cdat->dstr_2515__OPTDESC_HELP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2515__OPTDESC_HELP.val, "OPTDESC_HELP", sizeof (cdat->dstr_2515__OPTDESC_HELP.val)-1); - - /*inirout drout_2516__INIT_OPTIONSETTER*/ - /*_.VALROUT___V2499*/ meltfptr[2498] = (void*)&cdat->drout_2516__INIT_OPTIONSETTER; - cdat->drout_2516__INIT_OPTIONSETTER.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); - strncpy(cdat->drout_2516__INIT_OPTIONSETTER.routdescr, "INIT_OPTIONSETTER @warmelt-first.melt:2475", MELT_ROUTDESCR_LEN - 1); - cdat->drout_2516__INIT_OPTIONSETTER.nbval = 5; - MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_2516__INIT_OPTIONSETTER, meltrout_30_warmelt_first_INIT_OPTIONSETTER); - - /*iniclos dclo_2517__INIT_OPTIONSETTER*/ - /*_.VALCLO___V2498*/ meltfptr[2497] = (void*)&cdat->dclo_2517__INIT_OPTIONSETTER; - cdat->dclo_2517__INIT_OPTIONSETTER.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); - cdat->dclo_2517__INIT_OPTIONSETTER.nbval = 0; - - /*inirout drout_2518__REGISTER_OPTION*/ - /*_.VALROUT___V2549*/ meltfptr[2548] = (void*)&cdat->drout_2518__REGISTER_OPTION; - cdat->drout_2518__REGISTER_OPTION.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); - strncpy(cdat->drout_2518__REGISTER_OPTION.routdescr, "REGISTER_OPTION @warmelt-first.melt:2498", MELT_ROUTDESCR_LEN - 1); - cdat->drout_2518__REGISTER_OPTION.nbval = 3; - MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_2518__REGISTER_OPTION, meltrout_31_warmelt_first_REGISTER_OPTION); - - /*iniclos dclo_2519__REGISTER_OPTION*/ - /*_.VALCLO___V2550*/ meltfptr[2549] = (void*)&cdat->dclo_2519__REGISTER_OPTION; - cdat->dclo_2519__REGISTER_OPTION.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); - cdat->dclo_2519__REGISTER_OPTION.nbval = 0; - - /*inirout drout_2520__OPTION_HELPER_FUN*/ - /*_.VALROUT___V2551*/ meltfptr[2550] = (void*)&cdat->drout_2520__OPTION_HELPER_FUN; - cdat->drout_2520__OPTION_HELPER_FUN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); - strncpy(cdat->drout_2520__OPTION_HELPER_FUN.routdescr, "OPTION_HELPER_FUN @warmelt-first.melt:2513", MELT_ROUTDESCR_LEN - 1); - cdat->drout_2520__OPTION_HELPER_FUN.nbval = 6; - MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_2520__OPTION_HELPER_FUN, meltrout_32_warmelt_first_OPTION_HELPER_FUN); - - /*iniclos dclo_2521__OPTION_HELPER_FUN*/ - /*_.VALCLO___V2564*/ meltfptr[2563] = (void*)&cdat->dclo_2521__OPTION_HELPER_FUN; - cdat->dclo_2521__OPTION_HELPER_FUN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); - cdat->dclo_2521__OPTION_HELPER_FUN.nbval = 0; - - /*inirout drout_2522__LAMBDA_*/ - /*_.VALROUT___V2563*/ meltfptr[2562] = (void*)&cdat->drout_2522__LAMBDA_; - cdat->drout_2522__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); - strncpy(cdat->drout_2522__LAMBDA_.routdescr, "LAMBDA_ @warmelt-first.melt:2531", MELT_ROUTDESCR_LEN - 1); - cdat->drout_2522__LAMBDA_.nbval = 1; - MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_2522__LAMBDA_, meltrout_33_warmelt_first_LAMBDA_); - - /*iniobj dsym_2523__HELP*/ -/*uniqueobj*/ if (!/*_.VALDATA___V2565*/ meltfptr[2564]) /*_.VALDATA___V2565*/ meltfptr[2564] = (void*)&cdat->dsym_2523__HELP; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2523__HELP", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2523__HELP", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); - cdat->dsym_2523__HELP.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_2523__HELP.obj_hash = 538275978; - cdat->dsym_2523__HELP.obj_len = 3; - - /*inistring dstr_2524__HELP*/ - /*_.VALSTR___V2566*/ meltfptr[2565] = (void*)&cdat->dstr_2524__HELP; - cdat->dstr_2524__HELP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2524__HELP.val, "HELP", sizeof (cdat->dstr_2524__HELP.val)-1); - - /*inistring dstr_2525__Gives_help_about*/ - /*_.VALSTR___V2567*/ meltfptr[2566] = (void*)&cdat->dstr_2525__Gives_help_about; - cdat->dstr_2525__Gives_help_about.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2525__Gives_help_about.val, "Gives help about recognized MELT options", sizeof (cdat->dstr_2525__Gives_help_about.val)-1); - - /*iniobj dsym_2526__MELT_ERROR_COUNTER*/ -/*uniqueobj*/ if (!/*_.VALDATA___V2568*/ meltfptr[2567]) /*_.VALDATA___V2568*/ meltfptr[2567] = (void*)&cdat->dsym_2526__MELT_ERROR_COUNTER; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2526__MELT_ERROR_COUNTER", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2526__MELT_ERROR_COUNTER", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); - cdat->dsym_2526__MELT_ERROR_COUNTER.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_2526__MELT_ERROR_COUNTER.obj_hash = 399455921; - cdat->dsym_2526__MELT_ERROR_COUNTER.obj_len = 3; - - /*inistring dstr_2527__MELT_ERROR_COUNT*/ - /*_.VALSTR___V2569*/ meltfptr[2568] = (void*)&cdat->dstr_2527__MELT_ERROR_COUNT; - cdat->dstr_2527__MELT_ERROR_COUNT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2527__MELT_ERROR_COUNT.val, "MELT_ERROR_COUNTER", sizeof (cdat->dstr_2527__MELT_ERROR_COUNT.val)-1); - - MELT_LOCATION("warmelt-first.melt:2565:/ iniobj"); - /*iniobj dobj_2528__MELT_ERROR_COUNTER*/ -/*_.VALDATA___V2570*/ meltfptr[2569] = (void*)&cdat->dobj_2528__MELT_ERROR_COUNTER; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2528__MELT_ERROR_COUNTER", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2528__MELT_ERROR_COUNTER", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->object_magic == OBMAG_OBJECT); - cdat->dobj_2528__MELT_ERROR_COUNTER.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_2528__MELT_ERROR_COUNTER.obj_hash = 1064346116; - cdat->dobj_2528__MELT_ERROR_COUNTER.obj_len = 5; - - /*inimult dtup_2529__MELT_ERROR_COUNTER*/ - /*_.VALTUP___V2574*/ meltfptr[2573] = (void*)&cdat->dtup_2529__MELT_ERROR_COUNTER; - cdat->dtup_2529__MELT_ERROR_COUNTER.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE)))); - cdat->dtup_2529__MELT_ERROR_COUNTER.nbval = 1; - /*inimult dtup_2530__MELT_ERROR_COUNTER*/ - /*_.VALTUP___V2572*/ meltfptr[2571] = (void*)&cdat->dtup_2530__MELT_ERROR_COUNTER; - cdat->dtup_2530__MELT_ERROR_COUNTER.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE)))); - cdat->dtup_2530__MELT_ERROR_COUNTER.nbval = 0; - /*inistring dstr_2531__long_melt_err*/ - /*_.VALSTR___V2573*/ meltfptr[2572] = (void*)&cdat->dstr_2531__long_melt_err; - cdat->dstr_2531__long_melt_err.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING)))); - strncpy(cdat->dstr_2531__long_melt_err.val, "(long) (melt_error_counter)", sizeof (cdat->dstr_2531__long_melt_err.val)-1); - - /*inistring dstr_2532__MELT_ERROR_COUNT*/ - /*_.VALSTR___V2571*/ meltfptr[2570] = (void*)&cdat->dstr_2532__MELT_ERROR_COUNT; - cdat->dstr_2532__MELT_ERROR_COUNT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2532__MELT_ERROR_COUNT.val, "MELT_ERROR_COUNTER", sizeof (cdat->dstr_2532__MELT_ERROR_COUNT.val)-1); - - /*iniobj dsym_2533__INITIAL_SYSTEM_DATA*/ -/*uniqueobj*/ if (!/*_.VALDATA___V2575*/ meltfptr[2574]) /*_.VALDATA___V2575*/ meltfptr[2574] = (void*)&cdat->dsym_2533__INITIAL_SYSTEM_DATA; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2533__INITIAL_SYSTEM_DATA", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2533__INITIAL_SYSTEM_DATA", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); - cdat->dsym_2533__INITIAL_SYSTEM_DATA.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_2533__INITIAL_SYSTEM_DATA.obj_hash = 771349808; - cdat->dsym_2533__INITIAL_SYSTEM_DATA.obj_len = 3; - - /*inistring dstr_2534__INITIAL_SYSTEM_D*/ - /*_.VALSTR___V2576*/ meltfptr[2575] = (void*)&cdat->dstr_2534__INITIAL_SYSTEM_D; - cdat->dstr_2534__INITIAL_SYSTEM_D.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2534__INITIAL_SYSTEM_D.val, "INITIAL_SYSTEM_DATA", sizeof (cdat->dstr_2534__INITIAL_SYSTEM_D.val)-1); + /*iniobj dobj_2532__OPTDESC_HELP*/ +/*_.VALDATA___V2527*/ meltfptr[2526] = (void*)&cdat->dobj_2532__OPTDESC_HELP; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2532__OPTDESC_HELP", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2532__OPTDESC_HELP", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); + cdat->dobj_2532__OPTDESC_HELP.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); + cdat->dobj_2532__OPTDESC_HELP.obj_num = 2; + cdat->dobj_2532__OPTDESC_HELP.obj_hash = 42979976; + cdat->dobj_2532__OPTDESC_HELP.obj_len = 4; + + /*inistring dstr_2533__OPTDESC_HELP*/ + /*_.VALSTR___V2528*/ meltfptr[2527] = (void*)&cdat->dstr_2533__OPTDESC_HELP; + cdat->dstr_2533__OPTDESC_HELP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2533__OPTDESC_HELP.val, "OPTDESC_HELP", sizeof (cdat->dstr_2533__OPTDESC_HELP.val)-1); + + /*inirout drout_2534__INIT_OPTIONSETTER*/ + /*_.VALROUT___V2517*/ meltfptr[2516] = (void*)&cdat->drout_2534__INIT_OPTIONSETTER; + cdat->drout_2534__INIT_OPTIONSETTER.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); + strncpy(cdat->drout_2534__INIT_OPTIONSETTER.routdescr, "INIT_OPTIONSETTER @warmelt-first.melt:2482", MELT_ROUTDESCR_LEN - 1); + cdat->drout_2534__INIT_OPTIONSETTER.nbval = 5; + MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_2534__INIT_OPTIONSETTER, meltrout_30_warmelt_first_INIT_OPTIONSETTER); + + /*iniclos dclo_2535__INIT_OPTIONSETTER*/ + /*_.VALCLO___V2516*/ meltfptr[2515] = (void*)&cdat->dclo_2535__INIT_OPTIONSETTER; + cdat->dclo_2535__INIT_OPTIONSETTER.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); + cdat->dclo_2535__INIT_OPTIONSETTER.nbval = 0; + + /*inirout drout_2536__REGISTER_OPTION*/ + /*_.VALROUT___V2567*/ meltfptr[2566] = (void*)&cdat->drout_2536__REGISTER_OPTION; + cdat->drout_2536__REGISTER_OPTION.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); + strncpy(cdat->drout_2536__REGISTER_OPTION.routdescr, "REGISTER_OPTION @warmelt-first.melt:2505", MELT_ROUTDESCR_LEN - 1); + cdat->drout_2536__REGISTER_OPTION.nbval = 3; + MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_2536__REGISTER_OPTION, meltrout_31_warmelt_first_REGISTER_OPTION); + + /*iniclos dclo_2537__REGISTER_OPTION*/ + /*_.VALCLO___V2568*/ meltfptr[2567] = (void*)&cdat->dclo_2537__REGISTER_OPTION; + cdat->dclo_2537__REGISTER_OPTION.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); + cdat->dclo_2537__REGISTER_OPTION.nbval = 0; + + /*inirout drout_2538__OPTION_HELPER_FUN*/ + /*_.VALROUT___V2569*/ meltfptr[2568] = (void*)&cdat->drout_2538__OPTION_HELPER_FUN; + cdat->drout_2538__OPTION_HELPER_FUN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); + strncpy(cdat->drout_2538__OPTION_HELPER_FUN.routdescr, "OPTION_HELPER_FUN @warmelt-first.melt:2520", MELT_ROUTDESCR_LEN - 1); + cdat->drout_2538__OPTION_HELPER_FUN.nbval = 6; + MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_2538__OPTION_HELPER_FUN, meltrout_32_warmelt_first_OPTION_HELPER_FUN); + + /*iniclos dclo_2539__OPTION_HELPER_FUN*/ + /*_.VALCLO___V2582*/ meltfptr[2581] = (void*)&cdat->dclo_2539__OPTION_HELPER_FUN; + cdat->dclo_2539__OPTION_HELPER_FUN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); + cdat->dclo_2539__OPTION_HELPER_FUN.nbval = 0; + + /*inirout drout_2540__LAMBDA_*/ + /*_.VALROUT___V2581*/ meltfptr[2580] = (void*)&cdat->drout_2540__LAMBDA_; + cdat->drout_2540__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); + strncpy(cdat->drout_2540__LAMBDA_.routdescr, "LAMBDA_ @warmelt-first.melt:2538", MELT_ROUTDESCR_LEN - 1); + cdat->drout_2540__LAMBDA_.nbval = 1; + MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_2540__LAMBDA_, meltrout_33_warmelt_first_LAMBDA_); + + /*iniobj dsym_2541__HELP*/ +/*uniqueobj*/ if (!/*_.VALDATA___V2583*/ meltfptr[2582]) /*_.VALDATA___V2583*/ meltfptr[2582] = (void*)&cdat->dsym_2541__HELP; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2541__HELP", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2541__HELP", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); + cdat->dsym_2541__HELP.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_2541__HELP.obj_hash = 538275978; + cdat->dsym_2541__HELP.obj_len = 3; + + /*inistring dstr_2542__HELP*/ + /*_.VALSTR___V2584*/ meltfptr[2583] = (void*)&cdat->dstr_2542__HELP; + cdat->dstr_2542__HELP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2542__HELP.val, "HELP", sizeof (cdat->dstr_2542__HELP.val)-1); + + /*inistring dstr_2543__Gives_help_about*/ + /*_.VALSTR___V2585*/ meltfptr[2584] = (void*)&cdat->dstr_2543__Gives_help_about; + cdat->dstr_2543__Gives_help_about.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2543__Gives_help_about.val, "Gives help about recognized MELT options", sizeof (cdat->dstr_2543__Gives_help_about.val)-1); + + /*iniobj dsym_2544__MELT_ERROR_COUNTER*/ +/*uniqueobj*/ if (!/*_.VALDATA___V2586*/ meltfptr[2585]) /*_.VALDATA___V2586*/ meltfptr[2585] = (void*)&cdat->dsym_2544__MELT_ERROR_COUNTER; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2544__MELT_ERROR_COUNTER", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2544__MELT_ERROR_COUNTER", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); + cdat->dsym_2544__MELT_ERROR_COUNTER.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_2544__MELT_ERROR_COUNTER.obj_hash = 399455921; + cdat->dsym_2544__MELT_ERROR_COUNTER.obj_len = 3; + + /*inistring dstr_2545__MELT_ERROR_COUNT*/ + /*_.VALSTR___V2587*/ meltfptr[2586] = (void*)&cdat->dstr_2545__MELT_ERROR_COUNT; + cdat->dstr_2545__MELT_ERROR_COUNT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2545__MELT_ERROR_COUNT.val, "MELT_ERROR_COUNTER", sizeof (cdat->dstr_2545__MELT_ERROR_COUNT.val)-1); MELT_LOCATION("warmelt-first.melt:2572:/ iniobj"); - /*iniobj dobj_2535__INITIAL_SYSTEM_DATA*/ -if (((void*)(MELT_PREDEF(INITIAL_SYSTEM_DATA))) != (melt_ptr_t)&cdat->dobj_2535__INITIAL_SYSTEM_DATA) { + /*iniobj dobj_2546__MELT_ERROR_COUNTER*/ +/*_.VALDATA___V2588*/ meltfptr[2587] = (void*)&cdat->dobj_2546__MELT_ERROR_COUNTER; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2546__MELT_ERROR_COUNTER", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2546__MELT_ERROR_COUNTER", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->object_magic == OBMAG_OBJECT); + cdat->dobj_2546__MELT_ERROR_COUNTER.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); + cdat->dobj_2546__MELT_ERROR_COUNTER.obj_hash = 768862089; + cdat->dobj_2546__MELT_ERROR_COUNTER.obj_len = 5; + + /*inimult dtup_2547__MELT_ERROR_COUNTER*/ + /*_.VALTUP___V2592*/ meltfptr[2591] = (void*)&cdat->dtup_2547__MELT_ERROR_COUNTER; + cdat->dtup_2547__MELT_ERROR_COUNTER.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE)))); + cdat->dtup_2547__MELT_ERROR_COUNTER.nbval = 1; + /*inimult dtup_2548__MELT_ERROR_COUNTER*/ + /*_.VALTUP___V2590*/ meltfptr[2589] = (void*)&cdat->dtup_2548__MELT_ERROR_COUNTER; + cdat->dtup_2548__MELT_ERROR_COUNTER.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE)))); + cdat->dtup_2548__MELT_ERROR_COUNTER.nbval = 0; + /*inistring dstr_2549__long_melt_err*/ + /*_.VALSTR___V2591*/ meltfptr[2590] = (void*)&cdat->dstr_2549__long_melt_err; + cdat->dstr_2549__long_melt_err.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING)))); + strncpy(cdat->dstr_2549__long_melt_err.val, "(long) (melt_error_counter)", sizeof (cdat->dstr_2549__long_melt_err.val)-1); + + /*inistring dstr_2550__MELT_ERROR_COUNT*/ + /*_.VALSTR___V2589*/ meltfptr[2588] = (void*)&cdat->dstr_2550__MELT_ERROR_COUNT; + cdat->dstr_2550__MELT_ERROR_COUNT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2550__MELT_ERROR_COUNT.val, "MELT_ERROR_COUNTER", sizeof (cdat->dstr_2550__MELT_ERROR_COUNT.val)-1); + + /*iniobj dsym_2551__INITIAL_SYSTEM_DATA*/ +/*uniqueobj*/ if (!/*_.VALDATA___V2593*/ meltfptr[2592]) /*_.VALDATA___V2593*/ meltfptr[2592] = (void*)&cdat->dsym_2551__INITIAL_SYSTEM_DATA; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2551__INITIAL_SYSTEM_DATA", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2551__INITIAL_SYSTEM_DATA", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); + cdat->dsym_2551__INITIAL_SYSTEM_DATA.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_2551__INITIAL_SYSTEM_DATA.obj_hash = 771349808; + cdat->dsym_2551__INITIAL_SYSTEM_DATA.obj_len = 3; + + /*inistring dstr_2552__INITIAL_SYSTEM_D*/ + /*_.VALSTR___V2594*/ meltfptr[2593] = (void*)&cdat->dstr_2552__INITIAL_SYSTEM_D; + cdat->dstr_2552__INITIAL_SYSTEM_D.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2552__INITIAL_SYSTEM_D.val, "INITIAL_SYSTEM_DATA", sizeof (cdat->dstr_2552__INITIAL_SYSTEM_D.val)-1); + + MELT_LOCATION("warmelt-first.melt:2579:/ iniobj"); + /*iniobj dobj_2553__INITIAL_SYSTEM_DATA*/ +if (((void*)(MELT_PREDEF(INITIAL_SYSTEM_DATA))) != (melt_ptr_t)&cdat->dobj_2553__INITIAL_SYSTEM_DATA) { melt_assertmsg("check.predef length ((void*)(MELT_PREDEF(INITIAL_SYSTEM_DATA)))", melt_object_length((melt_ptr_t)(((void*)(MELT_PREDEF(INITIAL_SYSTEM_DATA))))) >= 28); }; -/*_.VALDATA___V2437*/ meltfptr[2436] = ((void*)(MELT_PREDEF(INITIAL_SYSTEM_DATA))); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2535__INITIAL_SYSTEM_DATA", melt_magic_discr (/*_.VALDATA___V369*/ meltfptr[368]) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2535__INITIAL_SYSTEM_DATA", ((meltobject_ptr_t) (/*_.VALDATA___V369*/ meltfptr[368]))->object_magic == OBMAG_OBJECT); - cdat->dobj_2535__INITIAL_SYSTEM_DATA.obj_class = (meltobject_ptr_t)(/*_.VALDATA___V369*/ meltfptr[368]); - cdat->dobj_2535__INITIAL_SYSTEM_DATA.obj_hash = 406546183; - cdat->dobj_2535__INITIAL_SYSTEM_DATA.obj_len = 28; - - /*inistring dstr_2536__INITIAL_SYSTEM_D*/ - /*_.VALSTR___V2442*/ meltfptr[2441] = (void*)&cdat->dstr_2536__INITIAL_SYSTEM_D; - cdat->dstr_2536__INITIAL_SYSTEM_D.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2536__INITIAL_SYSTEM_D.val, "INITIAL_SYSTEM_DATA", sizeof (cdat->dstr_2536__INITIAL_SYSTEM_D.val)-1); - - /*inirout drout_2537__MAPOBJECT_EVERY*/ - /*_.VALROUT___V2555*/ meltfptr[2554] = (void*)&cdat->drout_2537__MAPOBJECT_EVERY; - cdat->drout_2537__MAPOBJECT_EVERY.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); - strncpy(cdat->drout_2537__MAPOBJECT_EVERY.routdescr, "MAPOBJECT_EVERY @warmelt-first.melt:2608", MELT_ROUTDESCR_LEN - 1); - cdat->drout_2537__MAPOBJECT_EVERY.nbval = 0; - MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_2537__MAPOBJECT_EVERY, meltrout_34_warmelt_first_MAPOBJECT_EVERY); - - /*iniclos dclo_2538__MAPOBJECT_EVERY*/ - /*_.VALCLO___V2554*/ meltfptr[2553] = (void*)&cdat->dclo_2538__MAPOBJECT_EVERY; - cdat->dclo_2538__MAPOBJECT_EVERY.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); - cdat->dclo_2538__MAPOBJECT_EVERY.nbval = 0; - - /*inirout drout_2539__MAPOBJECT_ITERATE_TEST*/ - /*_.VALROUT___V2577*/ meltfptr[2576] = (void*)&cdat->drout_2539__MAPOBJECT_ITERATE_TEST; - cdat->drout_2539__MAPOBJECT_ITERATE_TEST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); - strncpy(cdat->drout_2539__MAPOBJECT_ITERATE_TEST.routdescr, "MAPOBJECT_ITERATE_TEST @warmelt-first.melt:2623", MELT_ROUTDESCR_LEN - 1); - cdat->drout_2539__MAPOBJECT_ITERATE_TEST.nbval = 0; - MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_2539__MAPOBJECT_ITERATE_TEST, meltrout_35_warmelt_first_MAPOBJECT_ITERATE_TEST); - - /*iniclos dclo_2540__MAPOBJECT_ITERATE_TEST*/ - /*_.VALCLO___V2578*/ meltfptr[2577] = (void*)&cdat->dclo_2540__MAPOBJECT_ITERATE_TEST; - cdat->dclo_2540__MAPOBJECT_ITERATE_TEST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); - cdat->dclo_2540__MAPOBJECT_ITERATE_TEST.nbval = 0; - - MELT_LOCATION("warmelt-first.melt:2646:/ iniobj"); - /*iniobj dobj_2541__FOREACH_IN_LIST*/ -/*_.VALDATA___V2579*/ meltfptr[2578] = (void*)&cdat->dobj_2541__FOREACH_IN_LIST; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2541__FOREACH_IN_LIST", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_CITERATOR)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2541__FOREACH_IN_LIST", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CITERATOR)))))->object_magic == OBMAG_OBJECT); - cdat->dobj_2541__FOREACH_IN_LIST.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CITERATOR)))); - cdat->dobj_2541__FOREACH_IN_LIST.obj_hash = 213009569; - cdat->dobj_2541__FOREACH_IN_LIST.obj_len = 7; - - /*inistring dstr_2542__FOREACH_IN_LIST*/ - /*_.VALSTR___V2580*/ meltfptr[2579] = (void*)&cdat->dstr_2542__FOREACH_IN_LIST; - cdat->dstr_2542__FOREACH_IN_LIST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2542__FOREACH_IN_LIST.val, "FOREACH_IN_LIST", sizeof (cdat->dstr_2542__FOREACH_IN_LIST.val)-1); - - /*iniobj dsym_2543__LIS*/ -/*uniqueobj*/ if (!/*_.VALDATA___V2582*/ meltfptr[2581]) /*_.VALDATA___V2582*/ meltfptr[2581] = (void*)&cdat->dsym_2543__LIS; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2543__LIS", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2543__LIS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); - cdat->dsym_2543__LIS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_2543__LIS.obj_hash = 735199356; - cdat->dsym_2543__LIS.obj_len = 3; - - /*inistring dstr_2544__LIS*/ - /*_.VALSTR___V2583*/ meltfptr[2582] = (void*)&cdat->dstr_2544__LIS; - cdat->dstr_2544__LIS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2544__LIS.val, "LIS", sizeof (cdat->dstr_2544__LIS.val)-1); +/*_.VALDATA___V2455*/ meltfptr[2454] = ((void*)(MELT_PREDEF(INITIAL_SYSTEM_DATA))); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2553__INITIAL_SYSTEM_DATA", melt_magic_discr (/*_.VALDATA___V369*/ meltfptr[368]) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2553__INITIAL_SYSTEM_DATA", ((meltobject_ptr_t) (/*_.VALDATA___V369*/ meltfptr[368]))->object_magic == OBMAG_OBJECT); + cdat->dobj_2553__INITIAL_SYSTEM_DATA.obj_class = (meltobject_ptr_t)(/*_.VALDATA___V369*/ meltfptr[368]); + cdat->dobj_2553__INITIAL_SYSTEM_DATA.obj_hash = 877890884; + cdat->dobj_2553__INITIAL_SYSTEM_DATA.obj_len = 28; + + /*inistring dstr_2554__INITIAL_SYSTEM_D*/ + /*_.VALSTR___V2460*/ meltfptr[2459] = (void*)&cdat->dstr_2554__INITIAL_SYSTEM_D; + cdat->dstr_2554__INITIAL_SYSTEM_D.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2554__INITIAL_SYSTEM_D.val, "INITIAL_SYSTEM_DATA", sizeof (cdat->dstr_2554__INITIAL_SYSTEM_D.val)-1); + + /*inirout drout_2555__MAPOBJECT_EVERY*/ + /*_.VALROUT___V2573*/ meltfptr[2572] = (void*)&cdat->drout_2555__MAPOBJECT_EVERY; + cdat->drout_2555__MAPOBJECT_EVERY.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); + strncpy(cdat->drout_2555__MAPOBJECT_EVERY.routdescr, "MAPOBJECT_EVERY @warmelt-first.melt:2615", MELT_ROUTDESCR_LEN - 1); + cdat->drout_2555__MAPOBJECT_EVERY.nbval = 0; + MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_2555__MAPOBJECT_EVERY, meltrout_34_warmelt_first_MAPOBJECT_EVERY); + + /*iniclos dclo_2556__MAPOBJECT_EVERY*/ + /*_.VALCLO___V2572*/ meltfptr[2571] = (void*)&cdat->dclo_2556__MAPOBJECT_EVERY; + cdat->dclo_2556__MAPOBJECT_EVERY.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); + cdat->dclo_2556__MAPOBJECT_EVERY.nbval = 0; + + /*inirout drout_2557__MAPOBJECT_ITERATE_TEST*/ + /*_.VALROUT___V2595*/ meltfptr[2594] = (void*)&cdat->drout_2557__MAPOBJECT_ITERATE_TEST; + cdat->drout_2557__MAPOBJECT_ITERATE_TEST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); + strncpy(cdat->drout_2557__MAPOBJECT_ITERATE_TEST.routdescr, "MAPOBJECT_ITERATE_TEST @warmelt-first.melt:2630", MELT_ROUTDESCR_LEN - 1); + cdat->drout_2557__MAPOBJECT_ITERATE_TEST.nbval = 0; + MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_2557__MAPOBJECT_ITERATE_TEST, meltrout_35_warmelt_first_MAPOBJECT_ITERATE_TEST); + + /*iniclos dclo_2558__MAPOBJECT_ITERATE_TEST*/ + /*_.VALCLO___V2596*/ meltfptr[2595] = (void*)&cdat->dclo_2558__MAPOBJECT_ITERATE_TEST; + cdat->dclo_2558__MAPOBJECT_ITERATE_TEST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); + cdat->dclo_2558__MAPOBJECT_ITERATE_TEST.nbval = 0; + + MELT_LOCATION("warmelt-first.melt:2653:/ iniobj"); + /*iniobj dobj_2559__FOREACH_IN_LIST*/ +/*_.VALDATA___V2597*/ meltfptr[2596] = (void*)&cdat->dobj_2559__FOREACH_IN_LIST; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2559__FOREACH_IN_LIST", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_CITERATOR)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2559__FOREACH_IN_LIST", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CITERATOR)))))->object_magic == OBMAG_OBJECT); + cdat->dobj_2559__FOREACH_IN_LIST.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CITERATOR)))); + cdat->dobj_2559__FOREACH_IN_LIST.obj_hash = 694743918; + cdat->dobj_2559__FOREACH_IN_LIST.obj_len = 7; + + /*inistring dstr_2560__FOREACH_IN_LIST*/ + /*_.VALSTR___V2598*/ meltfptr[2597] = (void*)&cdat->dstr_2560__FOREACH_IN_LIST; + cdat->dstr_2560__FOREACH_IN_LIST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2560__FOREACH_IN_LIST.val, "FOREACH_IN_LIST", sizeof (cdat->dstr_2560__FOREACH_IN_LIST.val)-1); + + /*iniobj dsym_2561__LIS*/ +/*uniqueobj*/ if (!/*_.VALDATA___V2600*/ meltfptr[2599]) /*_.VALDATA___V2600*/ meltfptr[2599] = (void*)&cdat->dsym_2561__LIS; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2561__LIS", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2561__LIS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); + cdat->dsym_2561__LIS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_2561__LIS.obj_hash = 735199356; + cdat->dsym_2561__LIS.obj_len = 3; + + /*inistring dstr_2562__LIS*/ + /*_.VALSTR___V2601*/ meltfptr[2600] = (void*)&cdat->dstr_2562__LIS; + cdat->dstr_2562__LIS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2562__LIS.val, "LIS", sizeof (cdat->dstr_2562__LIS.val)-1); /*^iniobj*/ - /*iniobj dobj_2545*/ -/*_.VALDATA___V2581*/ meltfptr[2580] = (void*)&cdat->dobj_2545; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2545", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2545", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); - cdat->dobj_2545.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); - cdat->dobj_2545.obj_num = 0; - cdat->dobj_2545.obj_hash = 378587862; - cdat->dobj_2545.obj_len = 2; - - /*inimult dtup_2546__FOREACH_IN_LIST*/ - /*_.VALTUP___V2584*/ meltfptr[2583] = (void*)&cdat->dtup_2546__FOREACH_IN_LIST; - cdat->dtup_2546__FOREACH_IN_LIST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE)))); - cdat->dtup_2546__FOREACH_IN_LIST.nbval = 1; - /*iniobj dsym_2547__EACHLIST*/ -/*uniqueobj*/ if (!/*_.VALDATA___V2585*/ meltfptr[2584]) /*_.VALDATA___V2585*/ meltfptr[2584] = (void*)&cdat->dsym_2547__EACHLIST; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2547__EACHLIST", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2547__EACHLIST", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); - cdat->dsym_2547__EACHLIST.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_2547__EACHLIST.obj_hash = 225124635; - cdat->dsym_2547__EACHLIST.obj_len = 3; - - /*inistring dstr_2548__EACHLIST*/ - /*_.VALSTR___V2586*/ meltfptr[2585] = (void*)&cdat->dstr_2548__EACHLIST; - cdat->dstr_2548__EACHLIST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2548__EACHLIST.val, "EACHLIST", sizeof (cdat->dstr_2548__EACHLIST.val)-1); - - /*iniobj dsym_2549__CURPAIR*/ -/*uniqueobj*/ if (!/*_.VALDATA___V2588*/ meltfptr[2587]) /*_.VALDATA___V2588*/ meltfptr[2587] = (void*)&cdat->dsym_2549__CURPAIR; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2549__CURPAIR", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2549__CURPAIR", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); - cdat->dsym_2549__CURPAIR.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_2549__CURPAIR.obj_hash = 650578685; - cdat->dsym_2549__CURPAIR.obj_len = 3; - - /*inistring dstr_2550__CURPAIR*/ - /*_.VALSTR___V2589*/ meltfptr[2588] = (void*)&cdat->dstr_2550__CURPAIR; - cdat->dstr_2550__CURPAIR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2550__CURPAIR.val, "CURPAIR", sizeof (cdat->dstr_2550__CURPAIR.val)-1); + /*iniobj dobj_2563*/ +/*_.VALDATA___V2599*/ meltfptr[2598] = (void*)&cdat->dobj_2563; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2563", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2563", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); + cdat->dobj_2563.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); + cdat->dobj_2563.obj_num = 0; + cdat->dobj_2563.obj_hash = 649344362; + cdat->dobj_2563.obj_len = 2; + + /*inimult dtup_2564__FOREACH_IN_LIST*/ + /*_.VALTUP___V2602*/ meltfptr[2601] = (void*)&cdat->dtup_2564__FOREACH_IN_LIST; + cdat->dtup_2564__FOREACH_IN_LIST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE)))); + cdat->dtup_2564__FOREACH_IN_LIST.nbval = 1; + /*iniobj dsym_2565__EACHLIST*/ +/*uniqueobj*/ if (!/*_.VALDATA___V2603*/ meltfptr[2602]) /*_.VALDATA___V2603*/ meltfptr[2602] = (void*)&cdat->dsym_2565__EACHLIST; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2565__EACHLIST", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2565__EACHLIST", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); + cdat->dsym_2565__EACHLIST.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_2565__EACHLIST.obj_hash = 225124635; + cdat->dsym_2565__EACHLIST.obj_len = 3; + + /*inistring dstr_2566__EACHLIST*/ + /*_.VALSTR___V2604*/ meltfptr[2603] = (void*)&cdat->dstr_2566__EACHLIST; + cdat->dstr_2566__EACHLIST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2566__EACHLIST.val, "EACHLIST", sizeof (cdat->dstr_2566__EACHLIST.val)-1); + + /*iniobj dsym_2567__CURPAIR*/ +/*uniqueobj*/ if (!/*_.VALDATA___V2606*/ meltfptr[2605]) /*_.VALDATA___V2606*/ meltfptr[2605] = (void*)&cdat->dsym_2567__CURPAIR; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2567__CURPAIR", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2567__CURPAIR", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); + cdat->dsym_2567__CURPAIR.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_2567__CURPAIR.obj_hash = 650578685; + cdat->dsym_2567__CURPAIR.obj_len = 3; + + /*inistring dstr_2568__CURPAIR*/ + /*_.VALSTR___V2607*/ meltfptr[2606] = (void*)&cdat->dstr_2568__CURPAIR; + cdat->dstr_2568__CURPAIR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2568__CURPAIR.val, "CURPAIR", sizeof (cdat->dstr_2568__CURPAIR.val)-1); /*^iniobj*/ - /*iniobj dobj_2551*/ -/*_.VALDATA___V2587*/ meltfptr[2586] = (void*)&cdat->dobj_2551; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2551", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2551", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); - cdat->dobj_2551.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); - cdat->dobj_2551.obj_num = 0; - cdat->dobj_2551.obj_hash = 313872960; - cdat->dobj_2551.obj_len = 2; - - /*iniobj dsym_2552__CURCOMP*/ -/*uniqueobj*/ if (!/*_.VALDATA___V2591*/ meltfptr[2590]) /*_.VALDATA___V2591*/ meltfptr[2590] = (void*)&cdat->dsym_2552__CURCOMP; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2552__CURCOMP", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2552__CURCOMP", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); - cdat->dsym_2552__CURCOMP.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_2552__CURCOMP.obj_hash = 380262672; - cdat->dsym_2552__CURCOMP.obj_len = 3; - - /*inistring dstr_2553__CURCOMP*/ - /*_.VALSTR___V2592*/ meltfptr[2591] = (void*)&cdat->dstr_2553__CURCOMP; - cdat->dstr_2553__CURCOMP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2553__CURCOMP.val, "CURCOMP", sizeof (cdat->dstr_2553__CURCOMP.val)-1); + /*iniobj dobj_2569*/ +/*_.VALDATA___V2605*/ meltfptr[2604] = (void*)&cdat->dobj_2569; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2569", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2569", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); + cdat->dobj_2569.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); + cdat->dobj_2569.obj_num = 0; + cdat->dobj_2569.obj_hash = 325553560; + cdat->dobj_2569.obj_len = 2; + + /*iniobj dsym_2570__CURCOMP*/ +/*uniqueobj*/ if (!/*_.VALDATA___V2609*/ meltfptr[2608]) /*_.VALDATA___V2609*/ meltfptr[2608] = (void*)&cdat->dsym_2570__CURCOMP; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2570__CURCOMP", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2570__CURCOMP", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); + cdat->dsym_2570__CURCOMP.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_2570__CURCOMP.obj_hash = 380262672; + cdat->dsym_2570__CURCOMP.obj_len = 3; + + /*inistring dstr_2571__CURCOMP*/ + /*_.VALSTR___V2610*/ meltfptr[2609] = (void*)&cdat->dstr_2571__CURCOMP; + cdat->dstr_2571__CURCOMP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2571__CURCOMP.val, "CURCOMP", sizeof (cdat->dstr_2571__CURCOMP.val)-1); /*^iniobj*/ - /*iniobj dobj_2554*/ -/*_.VALDATA___V2590*/ meltfptr[2589] = (void*)&cdat->dobj_2554; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2554", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2554", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); - cdat->dobj_2554.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); - cdat->dobj_2554.obj_num = 1; - cdat->dobj_2554.obj_hash = 924719922; - cdat->dobj_2554.obj_len = 2; - - /*inimult dtup_2555__FOREACH_IN_LIST*/ - /*_.VALTUP___V2593*/ meltfptr[2592] = (void*)&cdat->dtup_2555__FOREACH_IN_LIST; - cdat->dtup_2555__FOREACH_IN_LIST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE)))); - cdat->dtup_2555__FOREACH_IN_LIST.nbval = 2; - /*inistring dstr_2556__start_*/ - /*_.VALSTR___V2594*/ meltfptr[2593] = (void*)&cdat->dstr_2556__start_; - cdat->dstr_2556__start_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING)))); - strncpy(cdat->dstr_2556__start_.val, "/* start ", sizeof (cdat->dstr_2556__start_.val)-1); - - /*inistring dstr_2557__for_*/ - /*_.VALSTR___V2595*/ meltfptr[2594] = (void*)&cdat->dstr_2557__for_; - cdat->dstr_2557__for_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING)))); - strncpy(cdat->dstr_2557__for_.val, " */\n for (", sizeof (cdat->dstr_2557__for_.val)-1); - - /*inistring dstr_2558__melt_list_fir*/ - /*_.VALSTR___V2596*/ meltfptr[2595] = (void*)&cdat->dstr_2558__melt_list_fir; - cdat->dstr_2558__melt_list_fir.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING)))); - strncpy(cdat->dstr_2558__melt_list_fir.val, " = melt_list_first(", sizeof (cdat->dstr_2558__melt_list_fir.val)-1); - - /*inistring dstr_2559__melt_magic_d*/ - /*_.VALSTR___V2597*/ meltfptr[2596] = (void*)&cdat->dstr_2559__melt_magic_d; - cdat->dstr_2559__melt_magic_d.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING)))); - strncpy(cdat->dstr_2559__melt_magic_d.val, ");\n\tmelt_magic_discr(", sizeof (cdat->dstr_2559__melt_magic_d.val)-1); - - /*inistring dstr_2560__OBMAG_PAIR_*/ - /*_.VALSTR___V2598*/ meltfptr[2597] = (void*)&cdat->dstr_2560__OBMAG_PAIR_; - cdat->dstr_2560__OBMAG_PAIR_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING)))); - strncpy(cdat->dstr_2560__OBMAG_PAIR_.val, ") == OBMAG_PAIR;\n ", sizeof (cdat->dstr_2560__OBMAG_PAIR_.val)-1); - - /*inistring dstr_2561__melt_pair_tai*/ - /*_.VALSTR___V2599*/ meltfptr[2598] = (void*)&cdat->dstr_2561__melt_pair_tai; - cdat->dstr_2561__melt_pair_tai.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING)))); - strncpy(cdat->dstr_2561__melt_pair_tai.val, " = melt_pair_tail(", sizeof (cdat->dstr_2561__melt_pair_tai.val)-1); - - /*inistring dstr_2562__*/ - /*_.VALSTR___V2600*/ meltfptr[2599] = (void*)&cdat->dstr_2562__; - cdat->dstr_2562__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING)))); - strncpy(cdat->dstr_2562__.val, ")) {\n\t", sizeof (cdat->dstr_2562__.val)-1); - - /*inistring dstr_2563__melt_pair_hea*/ - /*_.VALSTR___V2601*/ meltfptr[2600] = (void*)&cdat->dstr_2563__melt_pair_hea; - cdat->dstr_2563__melt_pair_hea.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING)))); - strncpy(cdat->dstr_2563__melt_pair_hea.val, " = melt_pair_head(", sizeof (cdat->dstr_2563__melt_pair_hea.val)-1); - - /*inistring dstr_2564__*/ - /*_.VALSTR___V2602*/ meltfptr[2601] = (void*)&cdat->dstr_2564__; - cdat->dstr_2564__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING)))); - strncpy(cdat->dstr_2564__.val, "); ", sizeof (cdat->dstr_2564__.val)-1); - - /*inimult dtup_2565__FOREACH_IN_LIST*/ - /*_.VALTUP___V2603*/ meltfptr[2602] = (void*)&cdat->dtup_2565__FOREACH_IN_LIST; - cdat->dtup_2565__FOREACH_IN_LIST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE)))); - cdat->dtup_2565__FOREACH_IN_LIST.nbval = 17; - /*inistring dstr_2566__end_*/ - /*_.VALSTR___V2604*/ meltfptr[2603] = (void*)&cdat->dstr_2566__end_; - cdat->dstr_2566__end_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING)))); - strncpy(cdat->dstr_2566__end_.val, " } /* end ", sizeof (cdat->dstr_2566__end_.val)-1); - - /*inistring dstr_2567__*/ - /*_.VALSTR___V2605*/ meltfptr[2604] = (void*)&cdat->dstr_2567__; - cdat->dstr_2567__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING)))); - strncpy(cdat->dstr_2567__.val, " */", sizeof (cdat->dstr_2567__.val)-1); - - /*inimult dtup_2568__FOREACH_IN_LIST*/ - /*_.VALTUP___V2606*/ meltfptr[2605] = (void*)&cdat->dtup_2568__FOREACH_IN_LIST; - cdat->dtup_2568__FOREACH_IN_LIST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE)))); - cdat->dtup_2568__FOREACH_IN_LIST.nbval = 3; - /*inirout drout_2569__LIST_EVERY*/ - /*_.VALROUT___V2474*/ meltfptr[2473] = (void*)&cdat->drout_2569__LIST_EVERY; - cdat->drout_2569__LIST_EVERY.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); - strncpy(cdat->drout_2569__LIST_EVERY.routdescr, "LIST_EVERY @warmelt-first.melt:2663", MELT_ROUTDESCR_LEN - 1); - cdat->drout_2569__LIST_EVERY.nbval = 0; - MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_2569__LIST_EVERY, meltrout_36_warmelt_first_LIST_EVERY); - - /*iniclos dclo_2570__LIST_EVERY*/ - /*_.VALCLO___V2473*/ meltfptr[2472] = (void*)&cdat->dclo_2570__LIST_EVERY; - cdat->dclo_2570__LIST_EVERY.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); - cdat->dclo_2570__LIST_EVERY.nbval = 0; - - /*inirout drout_2571__LIST_ITERATE_TEST*/ - /*_.VALROUT___V2607*/ meltfptr[2606] = (void*)&cdat->drout_2571__LIST_ITERATE_TEST; - cdat->drout_2571__LIST_ITERATE_TEST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); - strncpy(cdat->drout_2571__LIST_ITERATE_TEST.routdescr, "LIST_ITERATE_TEST @warmelt-first.melt:2674", MELT_ROUTDESCR_LEN - 1); - cdat->drout_2571__LIST_ITERATE_TEST.nbval = 0; - MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_2571__LIST_ITERATE_TEST, meltrout_37_warmelt_first_LIST_ITERATE_TEST); - - /*iniclos dclo_2572__LIST_ITERATE_TEST*/ - /*_.VALCLO___V2608*/ meltfptr[2607] = (void*)&cdat->dclo_2572__LIST_ITERATE_TEST; - cdat->dclo_2572__LIST_ITERATE_TEST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); - cdat->dclo_2572__LIST_ITERATE_TEST.nbval = 0; - - /*inirout drout_2573__LIST_APPEND2LIST*/ - /*_.VALROUT___V2609*/ meltfptr[2608] = (void*)&cdat->drout_2573__LIST_APPEND2LIST; - cdat->drout_2573__LIST_APPEND2LIST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); - strncpy(cdat->drout_2573__LIST_APPEND2LIST.routdescr, "LIST_APPEND2LIST @warmelt-first.melt:2690", MELT_ROUTDESCR_LEN - 1); - cdat->drout_2573__LIST_APPEND2LIST.nbval = 1; - MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_2573__LIST_APPEND2LIST, meltrout_38_warmelt_first_LIST_APPEND2LIST); - - /*iniclos dclo_2574__LIST_APPEND2LIST*/ - /*_.VALCLO___V2610*/ meltfptr[2609] = (void*)&cdat->dclo_2574__LIST_APPEND2LIST; - cdat->dclo_2574__LIST_APPEND2LIST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); - cdat->dclo_2574__LIST_APPEND2LIST.nbval = 0; - - /*inirout drout_2575__LIST_MAP*/ - /*_.VALROUT___V2611*/ meltfptr[2610] = (void*)&cdat->drout_2575__LIST_MAP; - cdat->drout_2575__LIST_MAP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); - strncpy(cdat->drout_2575__LIST_MAP.routdescr, "LIST_MAP @warmelt-first.melt:2705", MELT_ROUTDESCR_LEN - 1); - cdat->drout_2575__LIST_MAP.nbval = 1; - MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_2575__LIST_MAP, meltrout_39_warmelt_first_LIST_MAP); - - /*iniclos dclo_2576__LIST_MAP*/ - /*_.VALCLO___V2612*/ meltfptr[2611] = (void*)&cdat->dclo_2576__LIST_MAP; - cdat->dclo_2576__LIST_MAP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); - cdat->dclo_2576__LIST_MAP.nbval = 0; - - /*inirout drout_2577__LIST_FIND*/ - /*_.VALROUT___V2613*/ meltfptr[2612] = (void*)&cdat->drout_2577__LIST_FIND; - cdat->drout_2577__LIST_FIND.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); - strncpy(cdat->drout_2577__LIST_FIND.routdescr, "LIST_FIND @warmelt-first.melt:2722", MELT_ROUTDESCR_LEN - 1); - cdat->drout_2577__LIST_FIND.nbval = 0; - MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_2577__LIST_FIND, meltrout_40_warmelt_first_LIST_FIND); - - /*iniclos dclo_2578__LIST_FIND*/ - /*_.VALCLO___V2614*/ meltfptr[2613] = (void*)&cdat->dclo_2578__LIST_FIND; - cdat->dclo_2578__LIST_FIND.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); - cdat->dclo_2578__LIST_FIND.nbval = 0; - - /*inirout drout_2579__LIST_TO_MULTIPLE*/ - /*_.VALROUT___V2615*/ meltfptr[2614] = (void*)&cdat->drout_2579__LIST_TO_MULTIPLE; - cdat->drout_2579__LIST_TO_MULTIPLE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); - strncpy(cdat->drout_2579__LIST_TO_MULTIPLE.routdescr, "LIST_TO_MULTIPLE @warmelt-first.melt:2745", MELT_ROUTDESCR_LEN - 1); - cdat->drout_2579__LIST_TO_MULTIPLE.nbval = 4; - MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_2579__LIST_TO_MULTIPLE, meltrout_41_warmelt_first_LIST_TO_MULTIPLE); - - /*iniclos dclo_2580__LIST_TO_MULTIPLE*/ - /*_.VALCLO___V2617*/ meltfptr[2616] = (void*)&cdat->dclo_2580__LIST_TO_MULTIPLE; - cdat->dclo_2580__LIST_TO_MULTIPLE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); - cdat->dclo_2580__LIST_TO_MULTIPLE.nbval = 0; - - /*inirout drout_2581__LAMBDA_*/ - /*_.VALROUT___V2616*/ meltfptr[2615] = (void*)&cdat->drout_2581__LAMBDA_; - cdat->drout_2581__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); - strncpy(cdat->drout_2581__LAMBDA_.routdescr, "LAMBDA_ @warmelt-first.melt:2754", MELT_ROUTDESCR_LEN - 1); - cdat->drout_2581__LAMBDA_.nbval = 0; - MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_2581__LAMBDA_, meltrout_42_warmelt_first_LAMBDA_); - - /*inirout drout_2582__PAIRLIST_TO_MULTIPLE*/ - /*_.VALROUT___V2618*/ meltfptr[2617] = (void*)&cdat->drout_2582__PAIRLIST_TO_MULTIPLE; - cdat->drout_2582__PAIRLIST_TO_MULTIPLE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); - strncpy(cdat->drout_2582__PAIRLIST_TO_MULTIPLE.routdescr, "PAIRLIST_TO_MULTIPLE @warmelt-first.melt:2765", MELT_ROUTDESCR_LEN - 1); - cdat->drout_2582__PAIRLIST_TO_MULTIPLE.nbval = 1; - MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_2582__PAIRLIST_TO_MULTIPLE, meltrout_43_warmelt_first_PAIRLIST_TO_MULTIPLE); - - /*iniclos dclo_2583__PAIRLIST_TO_MULTIPLE*/ - /*_.VALCLO___V2619*/ meltfptr[2618] = (void*)&cdat->dclo_2583__PAIRLIST_TO_MULTIPLE; - cdat->dclo_2583__PAIRLIST_TO_MULTIPLE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); - cdat->dclo_2583__PAIRLIST_TO_MULTIPLE.nbval = 0; - - MELT_LOCATION("warmelt-first.melt:2795:/ iniobj"); - /*iniobj dobj_2584__FOREACH_IN_MULTIPLE*/ -/*_.VALDATA___V2620*/ meltfptr[2619] = (void*)&cdat->dobj_2584__FOREACH_IN_MULTIPLE; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2584__FOREACH_IN_MULTIPLE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_CITERATOR)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2584__FOREACH_IN_MULTIPLE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CITERATOR)))))->object_magic == OBMAG_OBJECT); - cdat->dobj_2584__FOREACH_IN_MULTIPLE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CITERATOR)))); - cdat->dobj_2584__FOREACH_IN_MULTIPLE.obj_hash = 1052675691; - cdat->dobj_2584__FOREACH_IN_MULTIPLE.obj_len = 7; - - /*inistring dstr_2585__FOREACH_IN_MULTI*/ - /*_.VALSTR___V2621*/ meltfptr[2620] = (void*)&cdat->dstr_2585__FOREACH_IN_MULTI; - cdat->dstr_2585__FOREACH_IN_MULTI.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2585__FOREACH_IN_MULTI.val, "FOREACH_IN_MULTIPLE", sizeof (cdat->dstr_2585__FOREACH_IN_MULTI.val)-1); - - /*iniobj dsym_2586__TUP*/ -/*uniqueobj*/ if (!/*_.VALDATA___V2623*/ meltfptr[2622]) /*_.VALDATA___V2623*/ meltfptr[2622] = (void*)&cdat->dsym_2586__TUP; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2586__TUP", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2586__TUP", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); - cdat->dsym_2586__TUP.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_2586__TUP.obj_hash = 224489460; - cdat->dsym_2586__TUP.obj_len = 3; - - /*inistring dstr_2587__TUP*/ - /*_.VALSTR___V2624*/ meltfptr[2623] = (void*)&cdat->dstr_2587__TUP; - cdat->dstr_2587__TUP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2587__TUP.val, "TUP", sizeof (cdat->dstr_2587__TUP.val)-1); + /*iniobj dobj_2572*/ +/*_.VALDATA___V2608*/ meltfptr[2607] = (void*)&cdat->dobj_2572; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2572", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2572", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); + cdat->dobj_2572.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); + cdat->dobj_2572.obj_num = 1; + cdat->dobj_2572.obj_hash = 873426439; + cdat->dobj_2572.obj_len = 2; + + /*inimult dtup_2573__FOREACH_IN_LIST*/ + /*_.VALTUP___V2611*/ meltfptr[2610] = (void*)&cdat->dtup_2573__FOREACH_IN_LIST; + cdat->dtup_2573__FOREACH_IN_LIST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE)))); + cdat->dtup_2573__FOREACH_IN_LIST.nbval = 2; + /*inistring dstr_2574__start_*/ + /*_.VALSTR___V2612*/ meltfptr[2611] = (void*)&cdat->dstr_2574__start_; + cdat->dstr_2574__start_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING)))); + strncpy(cdat->dstr_2574__start_.val, "/* start ", sizeof (cdat->dstr_2574__start_.val)-1); + + /*inistring dstr_2575__for_*/ + /*_.VALSTR___V2613*/ meltfptr[2612] = (void*)&cdat->dstr_2575__for_; + cdat->dstr_2575__for_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING)))); + strncpy(cdat->dstr_2575__for_.val, " */\n for (", sizeof (cdat->dstr_2575__for_.val)-1); + + /*inistring dstr_2576__melt_list_fir*/ + /*_.VALSTR___V2614*/ meltfptr[2613] = (void*)&cdat->dstr_2576__melt_list_fir; + cdat->dstr_2576__melt_list_fir.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING)))); + strncpy(cdat->dstr_2576__melt_list_fir.val, " = melt_list_first(", sizeof (cdat->dstr_2576__melt_list_fir.val)-1); + + /*inistring dstr_2577__melt_magic_d*/ + /*_.VALSTR___V2615*/ meltfptr[2614] = (void*)&cdat->dstr_2577__melt_magic_d; + cdat->dstr_2577__melt_magic_d.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING)))); + strncpy(cdat->dstr_2577__melt_magic_d.val, ");\n\tmelt_magic_discr(", sizeof (cdat->dstr_2577__melt_magic_d.val)-1); + + /*inistring dstr_2578__OBMAG_PAIR_*/ + /*_.VALSTR___V2616*/ meltfptr[2615] = (void*)&cdat->dstr_2578__OBMAG_PAIR_; + cdat->dstr_2578__OBMAG_PAIR_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING)))); + strncpy(cdat->dstr_2578__OBMAG_PAIR_.val, ") == OBMAG_PAIR;\n ", sizeof (cdat->dstr_2578__OBMAG_PAIR_.val)-1); + + /*inistring dstr_2579__melt_pair_tai*/ + /*_.VALSTR___V2617*/ meltfptr[2616] = (void*)&cdat->dstr_2579__melt_pair_tai; + cdat->dstr_2579__melt_pair_tai.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING)))); + strncpy(cdat->dstr_2579__melt_pair_tai.val, " = melt_pair_tail(", sizeof (cdat->dstr_2579__melt_pair_tai.val)-1); + + /*inistring dstr_2580__*/ + /*_.VALSTR___V2618*/ meltfptr[2617] = (void*)&cdat->dstr_2580__; + cdat->dstr_2580__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING)))); + strncpy(cdat->dstr_2580__.val, ")) {\n\t", sizeof (cdat->dstr_2580__.val)-1); + + /*inistring dstr_2581__melt_pair_hea*/ + /*_.VALSTR___V2619*/ meltfptr[2618] = (void*)&cdat->dstr_2581__melt_pair_hea; + cdat->dstr_2581__melt_pair_hea.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING)))); + strncpy(cdat->dstr_2581__melt_pair_hea.val, " = melt_pair_head(", sizeof (cdat->dstr_2581__melt_pair_hea.val)-1); + + /*inistring dstr_2582__*/ + /*_.VALSTR___V2620*/ meltfptr[2619] = (void*)&cdat->dstr_2582__; + cdat->dstr_2582__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING)))); + strncpy(cdat->dstr_2582__.val, "); ", sizeof (cdat->dstr_2582__.val)-1); + + /*inimult dtup_2583__FOREACH_IN_LIST*/ + /*_.VALTUP___V2621*/ meltfptr[2620] = (void*)&cdat->dtup_2583__FOREACH_IN_LIST; + cdat->dtup_2583__FOREACH_IN_LIST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE)))); + cdat->dtup_2583__FOREACH_IN_LIST.nbval = 17; + /*inistring dstr_2584__end_*/ + /*_.VALSTR___V2622*/ meltfptr[2621] = (void*)&cdat->dstr_2584__end_; + cdat->dstr_2584__end_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING)))); + strncpy(cdat->dstr_2584__end_.val, " } /* end ", sizeof (cdat->dstr_2584__end_.val)-1); + + /*inistring dstr_2585__*/ + /*_.VALSTR___V2623*/ meltfptr[2622] = (void*)&cdat->dstr_2585__; + cdat->dstr_2585__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING)))); + strncpy(cdat->dstr_2585__.val, " */", sizeof (cdat->dstr_2585__.val)-1); + + /*inimult dtup_2586__FOREACH_IN_LIST*/ + /*_.VALTUP___V2624*/ meltfptr[2623] = (void*)&cdat->dtup_2586__FOREACH_IN_LIST; + cdat->dtup_2586__FOREACH_IN_LIST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE)))); + cdat->dtup_2586__FOREACH_IN_LIST.nbval = 3; + /*inirout drout_2587__LIST_EVERY*/ + /*_.VALROUT___V2492*/ meltfptr[2491] = (void*)&cdat->drout_2587__LIST_EVERY; + cdat->drout_2587__LIST_EVERY.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); + strncpy(cdat->drout_2587__LIST_EVERY.routdescr, "LIST_EVERY @warmelt-first.melt:2670", MELT_ROUTDESCR_LEN - 1); + cdat->drout_2587__LIST_EVERY.nbval = 0; + MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_2587__LIST_EVERY, meltrout_36_warmelt_first_LIST_EVERY); + + /*iniclos dclo_2588__LIST_EVERY*/ + /*_.VALCLO___V2491*/ meltfptr[2490] = (void*)&cdat->dclo_2588__LIST_EVERY; + cdat->dclo_2588__LIST_EVERY.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); + cdat->dclo_2588__LIST_EVERY.nbval = 0; + + /*inirout drout_2589__LIST_ITERATE_TEST*/ + /*_.VALROUT___V2625*/ meltfptr[2624] = (void*)&cdat->drout_2589__LIST_ITERATE_TEST; + cdat->drout_2589__LIST_ITERATE_TEST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); + strncpy(cdat->drout_2589__LIST_ITERATE_TEST.routdescr, "LIST_ITERATE_TEST @warmelt-first.melt:2681", MELT_ROUTDESCR_LEN - 1); + cdat->drout_2589__LIST_ITERATE_TEST.nbval = 0; + MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_2589__LIST_ITERATE_TEST, meltrout_37_warmelt_first_LIST_ITERATE_TEST); + + /*iniclos dclo_2590__LIST_ITERATE_TEST*/ + /*_.VALCLO___V2626*/ meltfptr[2625] = (void*)&cdat->dclo_2590__LIST_ITERATE_TEST; + cdat->dclo_2590__LIST_ITERATE_TEST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); + cdat->dclo_2590__LIST_ITERATE_TEST.nbval = 0; + + /*inirout drout_2591__LIST_APPEND2LIST*/ + /*_.VALROUT___V2627*/ meltfptr[2626] = (void*)&cdat->drout_2591__LIST_APPEND2LIST; + cdat->drout_2591__LIST_APPEND2LIST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); + strncpy(cdat->drout_2591__LIST_APPEND2LIST.routdescr, "LIST_APPEND2LIST @warmelt-first.melt:2697", MELT_ROUTDESCR_LEN - 1); + cdat->drout_2591__LIST_APPEND2LIST.nbval = 1; + MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_2591__LIST_APPEND2LIST, meltrout_38_warmelt_first_LIST_APPEND2LIST); + + /*iniclos dclo_2592__LIST_APPEND2LIST*/ + /*_.VALCLO___V2628*/ meltfptr[2627] = (void*)&cdat->dclo_2592__LIST_APPEND2LIST; + cdat->dclo_2592__LIST_APPEND2LIST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); + cdat->dclo_2592__LIST_APPEND2LIST.nbval = 0; + + /*inirout drout_2593__LIST_MAP*/ + /*_.VALROUT___V2629*/ meltfptr[2628] = (void*)&cdat->drout_2593__LIST_MAP; + cdat->drout_2593__LIST_MAP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); + strncpy(cdat->drout_2593__LIST_MAP.routdescr, "LIST_MAP @warmelt-first.melt:2712", MELT_ROUTDESCR_LEN - 1); + cdat->drout_2593__LIST_MAP.nbval = 1; + MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_2593__LIST_MAP, meltrout_39_warmelt_first_LIST_MAP); + + /*iniclos dclo_2594__LIST_MAP*/ + /*_.VALCLO___V2630*/ meltfptr[2629] = (void*)&cdat->dclo_2594__LIST_MAP; + cdat->dclo_2594__LIST_MAP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); + cdat->dclo_2594__LIST_MAP.nbval = 0; + + /*inirout drout_2595__LIST_FIND*/ + /*_.VALROUT___V2631*/ meltfptr[2630] = (void*)&cdat->drout_2595__LIST_FIND; + cdat->drout_2595__LIST_FIND.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); + strncpy(cdat->drout_2595__LIST_FIND.routdescr, "LIST_FIND @warmelt-first.melt:2729", MELT_ROUTDESCR_LEN - 1); + cdat->drout_2595__LIST_FIND.nbval = 0; + MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_2595__LIST_FIND, meltrout_40_warmelt_first_LIST_FIND); + + /*iniclos dclo_2596__LIST_FIND*/ + /*_.VALCLO___V2632*/ meltfptr[2631] = (void*)&cdat->dclo_2596__LIST_FIND; + cdat->dclo_2596__LIST_FIND.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); + cdat->dclo_2596__LIST_FIND.nbval = 0; + + /*inirout drout_2597__LIST_TO_MULTIPLE*/ + /*_.VALROUT___V2633*/ meltfptr[2632] = (void*)&cdat->drout_2597__LIST_TO_MULTIPLE; + cdat->drout_2597__LIST_TO_MULTIPLE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); + strncpy(cdat->drout_2597__LIST_TO_MULTIPLE.routdescr, "LIST_TO_MULTIPLE @warmelt-first.melt:2752", MELT_ROUTDESCR_LEN - 1); + cdat->drout_2597__LIST_TO_MULTIPLE.nbval = 4; + MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_2597__LIST_TO_MULTIPLE, meltrout_41_warmelt_first_LIST_TO_MULTIPLE); + + /*iniclos dclo_2598__LIST_TO_MULTIPLE*/ + /*_.VALCLO___V2635*/ meltfptr[2634] = (void*)&cdat->dclo_2598__LIST_TO_MULTIPLE; + cdat->dclo_2598__LIST_TO_MULTIPLE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); + cdat->dclo_2598__LIST_TO_MULTIPLE.nbval = 0; + + /*inirout drout_2599__LAMBDA_*/ + /*_.VALROUT___V2634*/ meltfptr[2633] = (void*)&cdat->drout_2599__LAMBDA_; + cdat->drout_2599__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); + strncpy(cdat->drout_2599__LAMBDA_.routdescr, "LAMBDA_ @warmelt-first.melt:2761", MELT_ROUTDESCR_LEN - 1); + cdat->drout_2599__LAMBDA_.nbval = 0; + MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_2599__LAMBDA_, meltrout_42_warmelt_first_LAMBDA_); + + /*inirout drout_2600__PAIRLIST_TO_MULTIPLE*/ + /*_.VALROUT___V2636*/ meltfptr[2635] = (void*)&cdat->drout_2600__PAIRLIST_TO_MULTIPLE; + cdat->drout_2600__PAIRLIST_TO_MULTIPLE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); + strncpy(cdat->drout_2600__PAIRLIST_TO_MULTIPLE.routdescr, "PAIRLIST_TO_MULTIPLE @warmelt-first.melt:2772", MELT_ROUTDESCR_LEN - 1); + cdat->drout_2600__PAIRLIST_TO_MULTIPLE.nbval = 1; + MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_2600__PAIRLIST_TO_MULTIPLE, meltrout_43_warmelt_first_PAIRLIST_TO_MULTIPLE); + + /*iniclos dclo_2601__PAIRLIST_TO_MULTIPLE*/ + /*_.VALCLO___V2637*/ meltfptr[2636] = (void*)&cdat->dclo_2601__PAIRLIST_TO_MULTIPLE; + cdat->dclo_2601__PAIRLIST_TO_MULTIPLE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); + cdat->dclo_2601__PAIRLIST_TO_MULTIPLE.nbval = 0; + + MELT_LOCATION("warmelt-first.melt:2802:/ iniobj"); + /*iniobj dobj_2602__FOREACH_IN_MULTIPLE*/ +/*_.VALDATA___V2638*/ meltfptr[2637] = (void*)&cdat->dobj_2602__FOREACH_IN_MULTIPLE; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2602__FOREACH_IN_MULTIPLE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_CITERATOR)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2602__FOREACH_IN_MULTIPLE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CITERATOR)))))->object_magic == OBMAG_OBJECT); + cdat->dobj_2602__FOREACH_IN_MULTIPLE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CITERATOR)))); + cdat->dobj_2602__FOREACH_IN_MULTIPLE.obj_hash = 636328210; + cdat->dobj_2602__FOREACH_IN_MULTIPLE.obj_len = 7; + + /*inistring dstr_2603__FOREACH_IN_MULTI*/ + /*_.VALSTR___V2639*/ meltfptr[2638] = (void*)&cdat->dstr_2603__FOREACH_IN_MULTI; + cdat->dstr_2603__FOREACH_IN_MULTI.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2603__FOREACH_IN_MULTI.val, "FOREACH_IN_MULTIPLE", sizeof (cdat->dstr_2603__FOREACH_IN_MULTI.val)-1); + + /*iniobj dsym_2604__TUP*/ +/*uniqueobj*/ if (!/*_.VALDATA___V2641*/ meltfptr[2640]) /*_.VALDATA___V2641*/ meltfptr[2640] = (void*)&cdat->dsym_2604__TUP; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2604__TUP", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2604__TUP", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); + cdat->dsym_2604__TUP.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_2604__TUP.obj_hash = 224489460; + cdat->dsym_2604__TUP.obj_len = 3; + + /*inistring dstr_2605__TUP*/ + /*_.VALSTR___V2642*/ meltfptr[2641] = (void*)&cdat->dstr_2605__TUP; + cdat->dstr_2605__TUP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2605__TUP.val, "TUP", sizeof (cdat->dstr_2605__TUP.val)-1); /*^iniobj*/ - /*iniobj dobj_2588*/ -/*_.VALDATA___V2622*/ meltfptr[2621] = (void*)&cdat->dobj_2588; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2588", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2588", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); - cdat->dobj_2588.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); - cdat->dobj_2588.obj_num = 0; - cdat->dobj_2588.obj_hash = 58218636; - cdat->dobj_2588.obj_len = 2; - - /*inimult dtup_2589__FOREACH_IN_MULTIPLE*/ - /*_.VALTUP___V2625*/ meltfptr[2624] = (void*)&cdat->dtup_2589__FOREACH_IN_MULTIPLE; - cdat->dtup_2589__FOREACH_IN_MULTIPLE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE)))); - cdat->dtup_2589__FOREACH_IN_MULTIPLE.nbval = 1; - /*iniobj dsym_2590__EACHTUP*/ -/*uniqueobj*/ if (!/*_.VALDATA___V2626*/ meltfptr[2625]) /*_.VALDATA___V2626*/ meltfptr[2625] = (void*)&cdat->dsym_2590__EACHTUP; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2590__EACHTUP", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2590__EACHTUP", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); - cdat->dsym_2590__EACHTUP.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_2590__EACHTUP.obj_hash = 419981892; - cdat->dsym_2590__EACHTUP.obj_len = 3; - - /*inistring dstr_2591__EACHTUP*/ - /*_.VALSTR___V2627*/ meltfptr[2626] = (void*)&cdat->dstr_2591__EACHTUP; - cdat->dstr_2591__EACHTUP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2591__EACHTUP.val, "EACHTUP", sizeof (cdat->dstr_2591__EACHTUP.val)-1); - - /*iniobj dsym_2592__COMP*/ -/*uniqueobj*/ if (!/*_.VALDATA___V2629*/ meltfptr[2628]) /*_.VALDATA___V2629*/ meltfptr[2628] = (void*)&cdat->dsym_2592__COMP; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2592__COMP", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2592__COMP", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); - cdat->dsym_2592__COMP.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_2592__COMP.obj_hash = 981846572; - cdat->dsym_2592__COMP.obj_len = 3; - - /*inistring dstr_2593__COMP*/ - /*_.VALSTR___V2630*/ meltfptr[2629] = (void*)&cdat->dstr_2593__COMP; - cdat->dstr_2593__COMP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2593__COMP.val, "COMP", sizeof (cdat->dstr_2593__COMP.val)-1); + /*iniobj dobj_2606*/ +/*_.VALDATA___V2640*/ meltfptr[2639] = (void*)&cdat->dobj_2606; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2606", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2606", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); + cdat->dobj_2606.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); + cdat->dobj_2606.obj_num = 0; + cdat->dobj_2606.obj_hash = 526212694; + cdat->dobj_2606.obj_len = 2; + + /*inimult dtup_2607__FOREACH_IN_MULTIPLE*/ + /*_.VALTUP___V2643*/ meltfptr[2642] = (void*)&cdat->dtup_2607__FOREACH_IN_MULTIPLE; + cdat->dtup_2607__FOREACH_IN_MULTIPLE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE)))); + cdat->dtup_2607__FOREACH_IN_MULTIPLE.nbval = 1; + /*iniobj dsym_2608__EACHTUP*/ +/*uniqueobj*/ if (!/*_.VALDATA___V2644*/ meltfptr[2643]) /*_.VALDATA___V2644*/ meltfptr[2643] = (void*)&cdat->dsym_2608__EACHTUP; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2608__EACHTUP", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2608__EACHTUP", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); + cdat->dsym_2608__EACHTUP.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_2608__EACHTUP.obj_hash = 419981892; + cdat->dsym_2608__EACHTUP.obj_len = 3; + + /*inistring dstr_2609__EACHTUP*/ + /*_.VALSTR___V2645*/ meltfptr[2644] = (void*)&cdat->dstr_2609__EACHTUP; + cdat->dstr_2609__EACHTUP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2609__EACHTUP.val, "EACHTUP", sizeof (cdat->dstr_2609__EACHTUP.val)-1); + + /*iniobj dsym_2610__COMP*/ +/*uniqueobj*/ if (!/*_.VALDATA___V2647*/ meltfptr[2646]) /*_.VALDATA___V2647*/ meltfptr[2646] = (void*)&cdat->dsym_2610__COMP; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2610__COMP", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2610__COMP", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); + cdat->dsym_2610__COMP.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_2610__COMP.obj_hash = 981846572; + cdat->dsym_2610__COMP.obj_len = 3; + + /*inistring dstr_2611__COMP*/ + /*_.VALSTR___V2648*/ meltfptr[2647] = (void*)&cdat->dstr_2611__COMP; + cdat->dstr_2611__COMP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2611__COMP.val, "COMP", sizeof (cdat->dstr_2611__COMP.val)-1); /*^iniobj*/ - /*iniobj dobj_2594*/ -/*_.VALDATA___V2628*/ meltfptr[2627] = (void*)&cdat->dobj_2594; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2594", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2594", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); - cdat->dobj_2594.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); - cdat->dobj_2594.obj_num = 0; - cdat->dobj_2594.obj_hash = 937008536; - cdat->dobj_2594.obj_len = 2; + /*iniobj dobj_2612*/ +/*_.VALDATA___V2646*/ meltfptr[2645] = (void*)&cdat->dobj_2612; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2612", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2612", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); + cdat->dobj_2612.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); + cdat->dobj_2612.obj_num = 0; + cdat->dobj_2612.obj_hash = 665296940; + cdat->dobj_2612.obj_len = 2; /*^iniobj*/ - /*iniobj dobj_2595*/ -/*_.VALDATA___V2631*/ meltfptr[2630] = (void*)&cdat->dobj_2595; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2595", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2595", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); - cdat->dobj_2595.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); - cdat->dobj_2595.obj_num = 1; - cdat->dobj_2595.obj_hash = 594934544; - cdat->dobj_2595.obj_len = 2; - - /*inimult dtup_2596__FOREACH_IN_MULTIPLE*/ - /*_.VALTUP___V2632*/ meltfptr[2631] = (void*)&cdat->dtup_2596__FOREACH_IN_MULTIPLE; - cdat->dtup_2596__FOREACH_IN_MULTIPLE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE)))); - cdat->dtup_2596__FOREACH_IN_MULTIPLE.nbval = 2; - /*inistring dstr_2597__start_*/ - /*_.VALSTR___V2633*/ meltfptr[2632] = (void*)&cdat->dstr_2597__start_; - cdat->dstr_2597__start_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING)))); - strncpy(cdat->dstr_2597__start_.val, " /* start ", sizeof (cdat->dstr_2597__start_.val)-1); - - /*inistring dstr_2598__long_*/ - /*_.VALSTR___V2634*/ meltfptr[2633] = (void*)&cdat->dstr_2598__long_; - cdat->dstr_2598__long_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING)))); - strncpy(cdat->dstr_2598__long_.val, ": */\n long ", sizeof (cdat->dstr_2598__long_.val)-1); - - /*inistring dstr_2599__ln_melt_multi*/ - /*_.VALSTR___V2635*/ meltfptr[2634] = (void*)&cdat->dstr_2599__ln_melt_multi; - cdat->dstr_2599__ln_melt_multi.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING)))); - strncpy(cdat->dstr_2599__ln_melt_multi.val, "_ln = melt_multiple_length((melt_ptr_t)", sizeof (cdat->dstr_2599__ln_melt_multi.val)-1); - - /*inistring dstr_2600__for_*/ - /*_.VALSTR___V2636*/ meltfptr[2635] = (void*)&cdat->dstr_2600__for_; - cdat->dstr_2600__for_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING)))); - strncpy(cdat->dstr_2600__for_.val, ");\n for (", sizeof (cdat->dstr_2600__for_.val)-1); - - /*inistring dstr_2601__0_*/ - /*_.VALSTR___V2637*/ meltfptr[2636] = (void*)&cdat->dstr_2601__0_; - cdat->dstr_2601__0_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING)))); - strncpy(cdat->dstr_2601__0_.val, " = 0; \n\t(", sizeof (cdat->dstr_2601__0_.val)-1); - - /*inistring dstr_2602__0_*/ - /*_.VALSTR___V2638*/ meltfptr[2637] = (void*)&cdat->dstr_2602__0_; - cdat->dstr_2602__0_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING)))); - strncpy(cdat->dstr_2602__0_.val, " >= 0) && (", sizeof (cdat->dstr_2602__0_.val)-1); - - /*inistring dstr_2603__*/ - /*_.VALSTR___V2639*/ meltfptr[2638] = (void*)&cdat->dstr_2603__; - cdat->dstr_2603__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING)))); - strncpy(cdat->dstr_2603__.val, " < ", sizeof (cdat->dstr_2603__.val)-1); - - /*inistring dstr_2604__ln_*/ - /*_.VALSTR___V2640*/ meltfptr[2639] = (void*)&cdat->dstr_2604__ln_; - cdat->dstr_2604__ln_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING)))); - strncpy(cdat->dstr_2604__ln_.val, "_ln); \n\t", sizeof (cdat->dstr_2604__ln_.val)-1); - - /*inistring dstr_2605__*/ - /*_.VALSTR___V2641*/ meltfptr[2640] = (void*)&cdat->dstr_2605__; - cdat->dstr_2605__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING)))); - strncpy(cdat->dstr_2605__.val, "++) {\n ", sizeof (cdat->dstr_2605__.val)-1); - - /*inistring dstr_2606__melt_multiple*/ - /*_.VALSTR___V2642*/ meltfptr[2641] = (void*)&cdat->dstr_2606__melt_multiple; - cdat->dstr_2606__melt_multiple.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING)))); - strncpy(cdat->dstr_2606__melt_multiple.val, " = melt_multiple_nth((melt_ptr_t)(", sizeof (cdat->dstr_2606__melt_multiple.val)-1); - - /*inistring dstr_2607__*/ - /*_.VALSTR___V2643*/ meltfptr[2642] = (void*)&cdat->dstr_2607__; - cdat->dstr_2607__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING)))); - strncpy(cdat->dstr_2607__.val, "), ", sizeof (cdat->dstr_2607__.val)-1); - - /*inistring dstr_2608__*/ - /*_.VALSTR___V2644*/ meltfptr[2643] = (void*)&cdat->dstr_2608__; - cdat->dstr_2608__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING)))); - strncpy(cdat->dstr_2608__.val, ");\n ", sizeof (cdat->dstr_2608__.val)-1); - - /*inimult dtup_2609__FOREACH_IN_MULTIPLE*/ - /*_.VALTUP___V2645*/ meltfptr[2644] = (void*)&cdat->dtup_2609__FOREACH_IN_MULTIPLE; - cdat->dtup_2609__FOREACH_IN_MULTIPLE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE)))); - cdat->dtup_2609__FOREACH_IN_MULTIPLE.nbval = 23; - /*inistring dstr_2610__if_*/ - /*_.VALSTR___V2646*/ meltfptr[2645] = (void*)&cdat->dstr_2610__if_; - cdat->dstr_2610__if_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING)))); - strncpy(cdat->dstr_2610__if_.val, " if (", sizeof (cdat->dstr_2610__if_.val)-1); - - /*inistring dstr_2611__0_break_*/ - /*_.VALSTR___V2647*/ meltfptr[2646] = (void*)&cdat->dstr_2611__0_break_; - cdat->dstr_2611__0_break_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING)))); - strncpy(cdat->dstr_2611__0_break_.val, "<0) break;\n } /* end ", sizeof (cdat->dstr_2611__0_break_.val)-1); - - /*inistring dstr_2612__*/ - /*_.VALSTR___V2648*/ meltfptr[2647] = (void*)&cdat->dstr_2612__; - cdat->dstr_2612__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING)))); - strncpy(cdat->dstr_2612__.val, " */ ", sizeof (cdat->dstr_2612__.val)-1); - - /*inimult dtup_2613__FOREACH_IN_MULTIPLE*/ - /*_.VALTUP___V2649*/ meltfptr[2648] = (void*)&cdat->dtup_2613__FOREACH_IN_MULTIPLE; - cdat->dtup_2613__FOREACH_IN_MULTIPLE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE)))); - cdat->dtup_2613__FOREACH_IN_MULTIPLE.nbval = 5; - MELT_LOCATION("warmelt-first.melt:2811:/ iniobj"); - /*iniobj dobj_2614__FOREACH_IN_MULTIPLE_BACKWARD*/ -/*_.VALDATA___V2650*/ meltfptr[2649] = (void*)&cdat->dobj_2614__FOREACH_IN_MULTIPLE_BACKWARD; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2614__FOREACH_IN_MULTIPLE_BACKWARD", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_CITERATOR)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2614__FOREACH_IN_MULTIPLE_BACKWARD", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CITERATOR)))))->object_magic == OBMAG_OBJECT); - cdat->dobj_2614__FOREACH_IN_MULTIPLE_BACKWARD.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CITERATOR)))); - cdat->dobj_2614__FOREACH_IN_MULTIPLE_BACKWARD.obj_hash = 82256691; - cdat->dobj_2614__FOREACH_IN_MULTIPLE_BACKWARD.obj_len = 7; - - /*inistring dstr_2615__FOREACH_IN_MULTI*/ - /*_.VALSTR___V2651*/ meltfptr[2650] = (void*)&cdat->dstr_2615__FOREACH_IN_MULTI; - cdat->dstr_2615__FOREACH_IN_MULTI.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2615__FOREACH_IN_MULTI.val, "FOREACH_IN_MULTIPLE_BACKWARD", sizeof (cdat->dstr_2615__FOREACH_IN_MULTI.val)-1); + /*iniobj dobj_2613*/ +/*_.VALDATA___V2649*/ meltfptr[2648] = (void*)&cdat->dobj_2613; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2613", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2613", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); + cdat->dobj_2613.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); + cdat->dobj_2613.obj_num = 1; + cdat->dobj_2613.obj_hash = 593967603; + cdat->dobj_2613.obj_len = 2; + + /*inimult dtup_2614__FOREACH_IN_MULTIPLE*/ + /*_.VALTUP___V2650*/ meltfptr[2649] = (void*)&cdat->dtup_2614__FOREACH_IN_MULTIPLE; + cdat->dtup_2614__FOREACH_IN_MULTIPLE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE)))); + cdat->dtup_2614__FOREACH_IN_MULTIPLE.nbval = 2; + /*inistring dstr_2615__start_*/ + /*_.VALSTR___V2651*/ meltfptr[2650] = (void*)&cdat->dstr_2615__start_; + cdat->dstr_2615__start_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING)))); + strncpy(cdat->dstr_2615__start_.val, " /* start ", sizeof (cdat->dstr_2615__start_.val)-1); + + /*inistring dstr_2616__long_*/ + /*_.VALSTR___V2652*/ meltfptr[2651] = (void*)&cdat->dstr_2616__long_; + cdat->dstr_2616__long_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING)))); + strncpy(cdat->dstr_2616__long_.val, ": */\n long ", sizeof (cdat->dstr_2616__long_.val)-1); + + /*inistring dstr_2617__ln_melt_multi*/ + /*_.VALSTR___V2653*/ meltfptr[2652] = (void*)&cdat->dstr_2617__ln_melt_multi; + cdat->dstr_2617__ln_melt_multi.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING)))); + strncpy(cdat->dstr_2617__ln_melt_multi.val, "_ln = melt_multiple_length((melt_ptr_t)", sizeof (cdat->dstr_2617__ln_melt_multi.val)-1); + + /*inistring dstr_2618__for_*/ + /*_.VALSTR___V2654*/ meltfptr[2653] = (void*)&cdat->dstr_2618__for_; + cdat->dstr_2618__for_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING)))); + strncpy(cdat->dstr_2618__for_.val, ");\n for (", sizeof (cdat->dstr_2618__for_.val)-1); + + /*inistring dstr_2619__0_*/ + /*_.VALSTR___V2655*/ meltfptr[2654] = (void*)&cdat->dstr_2619__0_; + cdat->dstr_2619__0_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING)))); + strncpy(cdat->dstr_2619__0_.val, " = 0; \n\t(", sizeof (cdat->dstr_2619__0_.val)-1); + + /*inistring dstr_2620__0_*/ + /*_.VALSTR___V2656*/ meltfptr[2655] = (void*)&cdat->dstr_2620__0_; + cdat->dstr_2620__0_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING)))); + strncpy(cdat->dstr_2620__0_.val, " >= 0) && (", sizeof (cdat->dstr_2620__0_.val)-1); + + /*inistring dstr_2621__*/ + /*_.VALSTR___V2657*/ meltfptr[2656] = (void*)&cdat->dstr_2621__; + cdat->dstr_2621__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING)))); + strncpy(cdat->dstr_2621__.val, " < ", sizeof (cdat->dstr_2621__.val)-1); + + /*inistring dstr_2622__ln_*/ + /*_.VALSTR___V2658*/ meltfptr[2657] = (void*)&cdat->dstr_2622__ln_; + cdat->dstr_2622__ln_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING)))); + strncpy(cdat->dstr_2622__ln_.val, "_ln); \n\t", sizeof (cdat->dstr_2622__ln_.val)-1); + + /*inistring dstr_2623__*/ + /*_.VALSTR___V2659*/ meltfptr[2658] = (void*)&cdat->dstr_2623__; + cdat->dstr_2623__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING)))); + strncpy(cdat->dstr_2623__.val, "++) {\n ", sizeof (cdat->dstr_2623__.val)-1); + + /*inistring dstr_2624__melt_multiple*/ + /*_.VALSTR___V2660*/ meltfptr[2659] = (void*)&cdat->dstr_2624__melt_multiple; + cdat->dstr_2624__melt_multiple.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING)))); + strncpy(cdat->dstr_2624__melt_multiple.val, " = melt_multiple_nth((melt_ptr_t)(", sizeof (cdat->dstr_2624__melt_multiple.val)-1); + + /*inistring dstr_2625__*/ + /*_.VALSTR___V2661*/ meltfptr[2660] = (void*)&cdat->dstr_2625__; + cdat->dstr_2625__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING)))); + strncpy(cdat->dstr_2625__.val, "), ", sizeof (cdat->dstr_2625__.val)-1); + + /*inistring dstr_2626__*/ + /*_.VALSTR___V2662*/ meltfptr[2661] = (void*)&cdat->dstr_2626__; + cdat->dstr_2626__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING)))); + strncpy(cdat->dstr_2626__.val, ");\n ", sizeof (cdat->dstr_2626__.val)-1); + + /*inimult dtup_2627__FOREACH_IN_MULTIPLE*/ + /*_.VALTUP___V2663*/ meltfptr[2662] = (void*)&cdat->dtup_2627__FOREACH_IN_MULTIPLE; + cdat->dtup_2627__FOREACH_IN_MULTIPLE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE)))); + cdat->dtup_2627__FOREACH_IN_MULTIPLE.nbval = 23; + /*inistring dstr_2628__if_*/ + /*_.VALSTR___V2664*/ meltfptr[2663] = (void*)&cdat->dstr_2628__if_; + cdat->dstr_2628__if_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING)))); + strncpy(cdat->dstr_2628__if_.val, " if (", sizeof (cdat->dstr_2628__if_.val)-1); + + /*inistring dstr_2629__0_break_*/ + /*_.VALSTR___V2665*/ meltfptr[2664] = (void*)&cdat->dstr_2629__0_break_; + cdat->dstr_2629__0_break_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING)))); + strncpy(cdat->dstr_2629__0_break_.val, "<0) break;\n } /* end ", sizeof (cdat->dstr_2629__0_break_.val)-1); + + /*inistring dstr_2630__*/ + /*_.VALSTR___V2666*/ meltfptr[2665] = (void*)&cdat->dstr_2630__; + cdat->dstr_2630__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING)))); + strncpy(cdat->dstr_2630__.val, " */ ", sizeof (cdat->dstr_2630__.val)-1); + + /*inimult dtup_2631__FOREACH_IN_MULTIPLE*/ + /*_.VALTUP___V2667*/ meltfptr[2666] = (void*)&cdat->dtup_2631__FOREACH_IN_MULTIPLE; + cdat->dtup_2631__FOREACH_IN_MULTIPLE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE)))); + cdat->dtup_2631__FOREACH_IN_MULTIPLE.nbval = 5; + MELT_LOCATION("warmelt-first.melt:2818:/ iniobj"); + /*iniobj dobj_2632__FOREACH_IN_MULTIPLE_BACKWARD*/ +/*_.VALDATA___V2668*/ meltfptr[2667] = (void*)&cdat->dobj_2632__FOREACH_IN_MULTIPLE_BACKWARD; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2632__FOREACH_IN_MULTIPLE_BACKWARD", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_CITERATOR)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2632__FOREACH_IN_MULTIPLE_BACKWARD", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CITERATOR)))))->object_magic == OBMAG_OBJECT); + cdat->dobj_2632__FOREACH_IN_MULTIPLE_BACKWARD.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CITERATOR)))); + cdat->dobj_2632__FOREACH_IN_MULTIPLE_BACKWARD.obj_hash = 965712663; + cdat->dobj_2632__FOREACH_IN_MULTIPLE_BACKWARD.obj_len = 7; + + /*inistring dstr_2633__FOREACH_IN_MULTI*/ + /*_.VALSTR___V2669*/ meltfptr[2668] = (void*)&cdat->dstr_2633__FOREACH_IN_MULTI; + cdat->dstr_2633__FOREACH_IN_MULTI.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2633__FOREACH_IN_MULTI.val, "FOREACH_IN_MULTIPLE_BACKWARD", sizeof (cdat->dstr_2633__FOREACH_IN_MULTI.val)-1); /*^iniobj*/ - /*iniobj dobj_2616*/ -/*_.VALDATA___V2652*/ meltfptr[2651] = (void*)&cdat->dobj_2616; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2616", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2616", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); - cdat->dobj_2616.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); - cdat->dobj_2616.obj_num = 0; - cdat->dobj_2616.obj_hash = 479884321; - cdat->dobj_2616.obj_len = 2; - - /*inimult dtup_2617__FOREACH_IN_MULTIPLE_BACKWARD*/ - /*_.VALTUP___V2653*/ meltfptr[2652] = (void*)&cdat->dtup_2617__FOREACH_IN_MULTIPLE_BACKWARD; - cdat->dtup_2617__FOREACH_IN_MULTIPLE_BACKWARD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE)))); - cdat->dtup_2617__FOREACH_IN_MULTIPLE_BACKWARD.nbval = 1; - /*iniobj dsym_2618__EACHTUPBACK*/ -/*uniqueobj*/ if (!/*_.VALDATA___V2654*/ meltfptr[2653]) /*_.VALDATA___V2654*/ meltfptr[2653] = (void*)&cdat->dsym_2618__EACHTUPBACK; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2618__EACHTUPBACK", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2618__EACHTUPBACK", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); - cdat->dsym_2618__EACHTUPBACK.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_2618__EACHTUPBACK.obj_hash = 772130029; - cdat->dsym_2618__EACHTUPBACK.obj_len = 3; - - /*inistring dstr_2619__EACHTUPBACK*/ - /*_.VALSTR___V2655*/ meltfptr[2654] = (void*)&cdat->dstr_2619__EACHTUPBACK; - cdat->dstr_2619__EACHTUPBACK.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2619__EACHTUPBACK.val, "EACHTUPBACK", sizeof (cdat->dstr_2619__EACHTUPBACK.val)-1); + /*iniobj dobj_2634*/ +/*_.VALDATA___V2670*/ meltfptr[2669] = (void*)&cdat->dobj_2634; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2634", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2634", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); + cdat->dobj_2634.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); + cdat->dobj_2634.obj_num = 0; + cdat->dobj_2634.obj_hash = 491618180; + cdat->dobj_2634.obj_len = 2; + + /*inimult dtup_2635__FOREACH_IN_MULTIPLE_BACKWARD*/ + /*_.VALTUP___V2671*/ meltfptr[2670] = (void*)&cdat->dtup_2635__FOREACH_IN_MULTIPLE_BACKWARD; + cdat->dtup_2635__FOREACH_IN_MULTIPLE_BACKWARD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE)))); + cdat->dtup_2635__FOREACH_IN_MULTIPLE_BACKWARD.nbval = 1; + /*iniobj dsym_2636__EACHTUPBACK*/ +/*uniqueobj*/ if (!/*_.VALDATA___V2672*/ meltfptr[2671]) /*_.VALDATA___V2672*/ meltfptr[2671] = (void*)&cdat->dsym_2636__EACHTUPBACK; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2636__EACHTUPBACK", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2636__EACHTUPBACK", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); + cdat->dsym_2636__EACHTUPBACK.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_2636__EACHTUPBACK.obj_hash = 772130029; + cdat->dsym_2636__EACHTUPBACK.obj_len = 3; + + /*inistring dstr_2637__EACHTUPBACK*/ + /*_.VALSTR___V2673*/ meltfptr[2672] = (void*)&cdat->dstr_2637__EACHTUPBACK; + cdat->dstr_2637__EACHTUPBACK.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2637__EACHTUPBACK.val, "EACHTUPBACK", sizeof (cdat->dstr_2637__EACHTUPBACK.val)-1); /*^iniobj*/ - /*iniobj dobj_2620*/ -/*_.VALDATA___V2656*/ meltfptr[2655] = (void*)&cdat->dobj_2620; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2620", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2620", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); - cdat->dobj_2620.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); - cdat->dobj_2620.obj_num = 0; - cdat->dobj_2620.obj_hash = 817012909; - cdat->dobj_2620.obj_len = 2; + /*iniobj dobj_2638*/ +/*_.VALDATA___V2674*/ meltfptr[2673] = (void*)&cdat->dobj_2638; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2638", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2638", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); + cdat->dobj_2638.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); + cdat->dobj_2638.obj_num = 0; + cdat->dobj_2638.obj_hash = 763722665; + cdat->dobj_2638.obj_len = 2; /*^iniobj*/ - /*iniobj dobj_2621*/ -/*_.VALDATA___V2657*/ meltfptr[2656] = (void*)&cdat->dobj_2621; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2621", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2621", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); - cdat->dobj_2621.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); - cdat->dobj_2621.obj_num = 1; - cdat->dobj_2621.obj_hash = 1054666131; - cdat->dobj_2621.obj_len = 2; - - /*inimult dtup_2622__FOREACH_IN_MULTIPLE_BACKWARD*/ - /*_.VALTUP___V2658*/ meltfptr[2657] = (void*)&cdat->dtup_2622__FOREACH_IN_MULTIPLE_BACKWARD; - cdat->dtup_2622__FOREACH_IN_MULTIPLE_BACKWARD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE)))); - cdat->dtup_2622__FOREACH_IN_MULTIPLE_BACKWARD.nbval = 2; - /*inistring dstr_2623__start_*/ - /*_.VALSTR___V2659*/ meltfptr[2658] = (void*)&cdat->dstr_2623__start_; - cdat->dstr_2623__start_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING)))); - strncpy(cdat->dstr_2623__start_.val, " /* start ", sizeof (cdat->dstr_2623__start_.val)-1); - - /*inistring dstr_2624__long_*/ - /*_.VALSTR___V2660*/ meltfptr[2659] = (void*)&cdat->dstr_2624__long_; - cdat->dstr_2624__long_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING)))); - strncpy(cdat->dstr_2624__long_.val, ": */\n long ", sizeof (cdat->dstr_2624__long_.val)-1); - - /*inistring dstr_2625__ln_melt_multi*/ - /*_.VALSTR___V2661*/ meltfptr[2660] = (void*)&cdat->dstr_2625__ln_melt_multi; - cdat->dstr_2625__ln_melt_multi.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING)))); - strncpy(cdat->dstr_2625__ln_melt_multi.val, "_ln = melt_multiple_length((melt_ptr_t)", sizeof (cdat->dstr_2625__ln_melt_multi.val)-1); - - /*inistring dstr_2626__long_*/ - /*_.VALSTR___V2662*/ meltfptr[2661] = (void*)&cdat->dstr_2626__long_; - cdat->dstr_2626__long_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING)))); - strncpy(cdat->dstr_2626__long_.val, ");\n long ", sizeof (cdat->dstr_2626__long_.val)-1); - - /*inistring dstr_2627__ix_0_for_*/ - /*_.VALSTR___V2663*/ meltfptr[2662] = (void*)&cdat->dstr_2627__ix_0_for_; - cdat->dstr_2627__ix_0_for_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING)))); - strncpy(cdat->dstr_2627__ix_0_for_.val, "_ix = 0;\n for (", sizeof (cdat->dstr_2627__ix_0_for_.val)-1); - - /*inistring dstr_2628__ix_*/ - /*_.VALSTR___V2664*/ meltfptr[2663] = (void*)&cdat->dstr_2628__ix_; - cdat->dstr_2628__ix_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING)))); - strncpy(cdat->dstr_2628__ix_.val, "_ix = ", sizeof (cdat->dstr_2628__ix_.val)-1); - - /*inistring dstr_2629__ln_1_*/ - /*_.VALSTR___V2665*/ meltfptr[2664] = (void*)&cdat->dstr_2629__ln_1_; - cdat->dstr_2629__ln_1_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING)))); - strncpy(cdat->dstr_2629__ln_1_.val, "_ln - 1; \n\t", sizeof (cdat->dstr_2629__ln_1_.val)-1); - - /*inistring dstr_2630__ix_0_*/ - /*_.VALSTR___V2666*/ meltfptr[2665] = (void*)&cdat->dstr_2630__ix_0_; - cdat->dstr_2630__ix_0_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING)))); - strncpy(cdat->dstr_2630__ix_0_.val, "_ix >= 0; \n\t", sizeof (cdat->dstr_2630__ix_0_.val)-1); - - /*inistring dstr_2631__ix_*/ - /*_.VALSTR___V2667*/ meltfptr[2666] = (void*)&cdat->dstr_2631__ix_; - cdat->dstr_2631__ix_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING)))); - strncpy(cdat->dstr_2631__ix_.val, "_ix--) {\n ", sizeof (cdat->dstr_2631__ix_.val)-1); - - /*inistring dstr_2632__melt_multiple*/ - /*_.VALSTR___V2668*/ meltfptr[2667] = (void*)&cdat->dstr_2632__melt_multiple; - cdat->dstr_2632__melt_multiple.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING)))); - strncpy(cdat->dstr_2632__melt_multiple.val, " = melt_multiple_nth((melt_ptr_t)(", sizeof (cdat->dstr_2632__melt_multiple.val)-1); - - /*inistring dstr_2633__*/ - /*_.VALSTR___V2669*/ meltfptr[2668] = (void*)&cdat->dstr_2633__; - cdat->dstr_2633__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING)))); - strncpy(cdat->dstr_2633__.val, "), ", sizeof (cdat->dstr_2633__.val)-1); - - /*inistring dstr_2634__ix_*/ - /*_.VALSTR___V2670*/ meltfptr[2669] = (void*)&cdat->dstr_2634__ix_; - cdat->dstr_2634__ix_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING)))); - strncpy(cdat->dstr_2634__ix_.val, "_ix);\n ", sizeof (cdat->dstr_2634__ix_.val)-1); - - /*inistring dstr_2635__*/ - /*_.VALSTR___V2671*/ meltfptr[2670] = (void*)&cdat->dstr_2635__; - cdat->dstr_2635__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING)))); - strncpy(cdat->dstr_2635__.val, " = ", sizeof (cdat->dstr_2635__.val)-1); - - /*inistring dstr_2636__ix_*/ - /*_.VALSTR___V2672*/ meltfptr[2671] = (void*)&cdat->dstr_2636__ix_; - cdat->dstr_2636__ix_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING)))); - strncpy(cdat->dstr_2636__ix_.val, "_ix;", sizeof (cdat->dstr_2636__ix_.val)-1); - - /*inimult dtup_2637__FOREACH_IN_MULTIPLE_BACKWARD*/ - /*_.VALTUP___V2673*/ meltfptr[2672] = (void*)&cdat->dtup_2637__FOREACH_IN_MULTIPLE_BACKWARD; - cdat->dtup_2637__FOREACH_IN_MULTIPLE_BACKWARD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE)))); - cdat->dtup_2637__FOREACH_IN_MULTIPLE_BACKWARD.nbval = 27; - /*inistring dstr_2638__end_*/ - /*_.VALSTR___V2674*/ meltfptr[2673] = (void*)&cdat->dstr_2638__end_; - cdat->dstr_2638__end_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING)))); - strncpy(cdat->dstr_2638__end_.val, " } /* end ", sizeof (cdat->dstr_2638__end_.val)-1); - - /*inistring dstr_2639__*/ - /*_.VALSTR___V2675*/ meltfptr[2674] = (void*)&cdat->dstr_2639__; - cdat->dstr_2639__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING)))); - strncpy(cdat->dstr_2639__.val, " */ ", sizeof (cdat->dstr_2639__.val)-1); - + /*iniobj dobj_2639*/ +/*_.VALDATA___V2675*/ meltfptr[2674] = (void*)&cdat->dobj_2639; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2639", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2639", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); + cdat->dobj_2639.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); + cdat->dobj_2639.obj_num = 1; + cdat->dobj_2639.obj_hash = 994803987; + cdat->dobj_2639.obj_len = 2; + /*inimult dtup_2640__FOREACH_IN_MULTIPLE_BACKWARD*/ /*_.VALTUP___V2676*/ meltfptr[2675] = (void*)&cdat->dtup_2640__FOREACH_IN_MULTIPLE_BACKWARD; cdat->dtup_2640__FOREACH_IN_MULTIPLE_BACKWARD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE)))); - cdat->dtup_2640__FOREACH_IN_MULTIPLE_BACKWARD.nbval = 3; - /*inirout drout_2641__MULTIPLE_ITERATE_TEST*/ - /*_.VALROUT___V2677*/ meltfptr[2676] = (void*)&cdat->drout_2641__MULTIPLE_ITERATE_TEST; - cdat->drout_2641__MULTIPLE_ITERATE_TEST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); - strncpy(cdat->drout_2641__MULTIPLE_ITERATE_TEST.routdescr, "MULTIPLE_ITERATE_TEST @warmelt-first.melt:2830", MELT_ROUTDESCR_LEN - 1); - cdat->drout_2641__MULTIPLE_ITERATE_TEST.nbval = 0; - MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_2641__MULTIPLE_ITERATE_TEST, meltrout_44_warmelt_first_MULTIPLE_ITERATE_TEST); - - /*iniclos dclo_2642__MULTIPLE_ITERATE_TEST*/ - /*_.VALCLO___V2678*/ meltfptr[2677] = (void*)&cdat->dclo_2642__MULTIPLE_ITERATE_TEST; - cdat->dclo_2642__MULTIPLE_ITERATE_TEST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); - cdat->dclo_2642__MULTIPLE_ITERATE_TEST.nbval = 0; - - /*inirout drout_2643__MULTIPLE_MAP*/ - /*_.VALROUT___V2561*/ meltfptr[2560] = (void*)&cdat->drout_2643__MULTIPLE_MAP; - cdat->drout_2643__MULTIPLE_MAP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); - strncpy(cdat->drout_2643__MULTIPLE_MAP.routdescr, "MULTIPLE_MAP @warmelt-first.melt:2847", MELT_ROUTDESCR_LEN - 1); - cdat->drout_2643__MULTIPLE_MAP.nbval = 1; - MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_2643__MULTIPLE_MAP, meltrout_45_warmelt_first_MULTIPLE_MAP); - - /*iniclos dclo_2644__MULTIPLE_MAP*/ - /*_.VALCLO___V2560*/ meltfptr[2559] = (void*)&cdat->dclo_2644__MULTIPLE_MAP; - cdat->dclo_2644__MULTIPLE_MAP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); - cdat->dclo_2644__MULTIPLE_MAP.nbval = 0; - - /*inirout drout_2645__MULTIPLE_TO_LIST*/ - /*_.VALROUT___V2679*/ meltfptr[2678] = (void*)&cdat->drout_2645__MULTIPLE_TO_LIST; - cdat->drout_2645__MULTIPLE_TO_LIST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); - strncpy(cdat->drout_2645__MULTIPLE_TO_LIST.routdescr, "MULTIPLE_TO_LIST @warmelt-first.melt:2864", MELT_ROUTDESCR_LEN - 1); - cdat->drout_2645__MULTIPLE_TO_LIST.nbval = 1; - MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_2645__MULTIPLE_TO_LIST, meltrout_46_warmelt_first_MULTIPLE_TO_LIST); - - /*iniclos dclo_2646__MULTIPLE_TO_LIST*/ - /*_.VALCLO___V2680*/ meltfptr[2679] = (void*)&cdat->dclo_2646__MULTIPLE_TO_LIST; - cdat->dclo_2646__MULTIPLE_TO_LIST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); - cdat->dclo_2646__MULTIPLE_TO_LIST.nbval = 0; - - /*inirout drout_2647__CLOSURE_EVERY*/ - /*_.VALROUT___V2681*/ meltfptr[2680] = (void*)&cdat->drout_2647__CLOSURE_EVERY; - cdat->drout_2647__CLOSURE_EVERY.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); - strncpy(cdat->drout_2647__CLOSURE_EVERY.routdescr, "CLOSURE_EVERY @warmelt-first.melt:2882", MELT_ROUTDESCR_LEN - 1); - cdat->drout_2647__CLOSURE_EVERY.nbval = 0; - MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_2647__CLOSURE_EVERY, meltrout_47_warmelt_first_CLOSURE_EVERY); - - /*iniclos dclo_2648__CLOSURE_EVERY*/ - /*_.VALCLO___V2682*/ meltfptr[2681] = (void*)&cdat->dclo_2648__CLOSURE_EVERY; - cdat->dclo_2648__CLOSURE_EVERY.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); - cdat->dclo_2648__CLOSURE_EVERY.nbval = 0; - - /*inirout drout_2649__ROUTINE_EVERY*/ - /*_.VALROUT___V2683*/ meltfptr[2682] = (void*)&cdat->drout_2649__ROUTINE_EVERY; - cdat->drout_2649__ROUTINE_EVERY.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); - strncpy(cdat->drout_2649__ROUTINE_EVERY.routdescr, "ROUTINE_EVERY @warmelt-first.melt:2895", MELT_ROUTDESCR_LEN - 1); - cdat->drout_2649__ROUTINE_EVERY.nbval = 0; - MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_2649__ROUTINE_EVERY, meltrout_48_warmelt_first_ROUTINE_EVERY); - - /*iniclos dclo_2650__ROUTINE_EVERY*/ - /*_.VALCLO___V2684*/ meltfptr[2683] = (void*)&cdat->dclo_2650__ROUTINE_EVERY; - cdat->dclo_2650__ROUTINE_EVERY.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); - cdat->dclo_2650__ROUTINE_EVERY.nbval = 0; - - /*inirout drout_2651__INSTALL_METHOD*/ - /*_.VALROUT___V2685*/ meltfptr[2684] = (void*)&cdat->drout_2651__INSTALL_METHOD; - cdat->drout_2651__INSTALL_METHOD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); - strncpy(cdat->drout_2651__INSTALL_METHOD.routdescr, "INSTALL_METHOD @warmelt-first.melt:2907", MELT_ROUTDESCR_LEN - 1); - cdat->drout_2651__INSTALL_METHOD.nbval = 3; - MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_2651__INSTALL_METHOD, meltrout_49_warmelt_first_INSTALL_METHOD); - - /*iniclos dclo_2652__INSTALL_METHOD*/ - /*_.VALCLO___V2686*/ meltfptr[2685] = (void*)&cdat->dclo_2652__INSTALL_METHOD; - cdat->dclo_2652__INSTALL_METHOD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); - cdat->dclo_2652__INSTALL_METHOD.nbval = 0; - - /*inirout drout_2653__COMPARE_OBJ_RANKED*/ - /*_.VALROUT___V2558*/ meltfptr[2557] = (void*)&cdat->drout_2653__COMPARE_OBJ_RANKED; - cdat->drout_2653__COMPARE_OBJ_RANKED.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); - strncpy(cdat->drout_2653__COMPARE_OBJ_RANKED.routdescr, "COMPARE_OBJ_RANKED @warmelt-first.melt:2928", MELT_ROUTDESCR_LEN - 1); - cdat->drout_2653__COMPARE_OBJ_RANKED.nbval = 4; - MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_2653__COMPARE_OBJ_RANKED, meltrout_50_warmelt_first_COMPARE_OBJ_RANKED); - - /*iniclos dclo_2654__COMPARE_OBJ_RANKED*/ - /*_.VALCLO___V2557*/ meltfptr[2556] = (void*)&cdat->dclo_2654__COMPARE_OBJ_RANKED; - cdat->dclo_2654__COMPARE_OBJ_RANKED.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); - cdat->dclo_2654__COMPARE_OBJ_RANKED.nbval = 0; - - /*inirout drout_2655__MAPOBJECT_SORTED_ATTRIBUTE_TUPLE*/ - /*_.VALROUT___V2553*/ meltfptr[2552] = (void*)&cdat->drout_2655__MAPOBJECT_SORTED_ATTRIBUTE_TUPLE; - cdat->drout_2655__MAPOBJECT_SORTED_ATTRIBUTE_TUPLE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); - strncpy(cdat->drout_2655__MAPOBJECT_SORTED_ATTRIBUTE_TUPLE.routdescr, "MAPOBJECT_SORTED_ATTRIBUTE_TUPLE @warmelt-first.melt:3010", MELT_ROUTDESCR_LEN - 1); - cdat->drout_2655__MAPOBJECT_SORTED_ATTRIBUTE_TUPLE.nbval = 9; - MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_2655__MAPOBJECT_SORTED_ATTRIBUTE_TUPLE, meltrout_51_warmelt_first_MAPOBJECT_SORTED_ATTRIBUTE_TUPLE); - - /*iniclos dclo_2656__MAPOBJECT_SORTED_ATTRIBUTE_TUPLE*/ - /*_.VALCLO___V2552*/ meltfptr[2551] = (void*)&cdat->dclo_2656__MAPOBJECT_SORTED_ATTRIBUTE_TUPLE; - cdat->dclo_2656__MAPOBJECT_SORTED_ATTRIBUTE_TUPLE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); - cdat->dclo_2656__MAPOBJECT_SORTED_ATTRIBUTE_TUPLE.nbval = 0; - - /*inirout drout_2657__LAMBDA_*/ - /*_.VALROUT___V2556*/ meltfptr[2555] = (void*)&cdat->drout_2657__LAMBDA_; - cdat->drout_2657__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); - strncpy(cdat->drout_2657__LAMBDA_.routdescr, "LAMBDA_ @warmelt-first.melt:3024", MELT_ROUTDESCR_LEN - 1); - cdat->drout_2657__LAMBDA_.nbval = 1; - MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_2657__LAMBDA_, meltrout_52_warmelt_first_LAMBDA_); - - /*inirout drout_2658__LAMBDA_*/ - /*_.VALROUT___V2559*/ meltfptr[2558] = (void*)&cdat->drout_2658__LAMBDA_; - cdat->drout_2658__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); - strncpy(cdat->drout_2658__LAMBDA_.routdescr, "LAMBDA_ @warmelt-first.melt:3036", MELT_ROUTDESCR_LEN - 1); - cdat->drout_2658__LAMBDA_.nbval = 1; - MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_2658__LAMBDA_, meltrout_53_warmelt_first_LAMBDA_); - - /*inirout drout_2659__LAMBDA_*/ - /*_.VALROUT___V2562*/ meltfptr[2561] = (void*)&cdat->drout_2659__LAMBDA_; - cdat->drout_2659__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); - strncpy(cdat->drout_2659__LAMBDA_.routdescr, "LAMBDA_ @warmelt-first.melt:3049", MELT_ROUTDESCR_LEN - 1); - cdat->drout_2659__LAMBDA_.nbval = 0; - MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_2659__LAMBDA_, meltrout_54_warmelt_first_LAMBDA_); - - /*inirout drout_2660__FRESH_ENV*/ - /*_.VALROUT___V2446*/ meltfptr[2445] = (void*)&cdat->drout_2660__FRESH_ENV; - cdat->drout_2660__FRESH_ENV.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); - strncpy(cdat->drout_2660__FRESH_ENV.routdescr, "FRESH_ENV @warmelt-first.melt:3063", MELT_ROUTDESCR_LEN - 1); - cdat->drout_2660__FRESH_ENV.nbval = 3; - MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_2660__FRESH_ENV, meltrout_55_warmelt_first_FRESH_ENV); - - /*iniclos dclo_2661__FRESH_ENV*/ - /*_.VALCLO___V2445*/ meltfptr[2444] = (void*)&cdat->dclo_2661__FRESH_ENV; - cdat->dclo_2661__FRESH_ENV.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); - cdat->dclo_2661__FRESH_ENV.nbval = 0; - - /*iniobj dsym_2662__INITIAL_ENVIRONMENT*/ -/*uniqueobj*/ if (!/*_.VALDATA___V2687*/ meltfptr[2686]) /*_.VALDATA___V2687*/ meltfptr[2686] = (void*)&cdat->dsym_2662__INITIAL_ENVIRONMENT; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2662__INITIAL_ENVIRONMENT", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2662__INITIAL_ENVIRONMENT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); - cdat->dsym_2662__INITIAL_ENVIRONMENT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_2662__INITIAL_ENVIRONMENT.obj_hash = 756729242; - cdat->dsym_2662__INITIAL_ENVIRONMENT.obj_len = 3; - - /*inistring dstr_2663__INITIAL_ENVIRONM*/ - /*_.VALSTR___V2688*/ meltfptr[2687] = (void*)&cdat->dstr_2663__INITIAL_ENVIRONM; - cdat->dstr_2663__INITIAL_ENVIRONM.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2663__INITIAL_ENVIRONM.val, "INITIAL_ENVIRONMENT", sizeof (cdat->dstr_2663__INITIAL_ENVIRONM.val)-1); - - MELT_LOCATION("warmelt-first.melt:3078:/ iniobj"); - /*iniobj dobj_2664__INITIAL_ENVIRONMENT*/ -/*_.VALDATA___V2689*/ meltfptr[2688] = (void*)&cdat->dobj_2664__INITIAL_ENVIRONMENT; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2664__INITIAL_ENVIRONMENT", melt_magic_discr (/*_.VALDATA___V497*/ meltfptr[496]) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2664__INITIAL_ENVIRONMENT", ((meltobject_ptr_t) (/*_.VALDATA___V497*/ meltfptr[496]))->object_magic == OBMAG_OBJECT); - cdat->dobj_2664__INITIAL_ENVIRONMENT.obj_class = (meltobject_ptr_t)(/*_.VALDATA___V497*/ meltfptr[496]); - cdat->dobj_2664__INITIAL_ENVIRONMENT.obj_hash = 11161538; - cdat->dobj_2664__INITIAL_ENVIRONMENT.obj_len = 4; - - /*inistring dstr_2665__Initial_Environm*/ - /*_.VALSTR___V2691*/ meltfptr[2690] = (void*)&cdat->dstr_2665__Initial_Environm; - cdat->dstr_2665__Initial_Environm.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2665__Initial_Environm.val, "Initial Environment", sizeof (cdat->dstr_2665__Initial_Environm.val)-1); - - /*inirout drout_2666__FIND_ENV*/ - /*_.VALROUT___V2450*/ meltfptr[2449] = (void*)&cdat->drout_2666__FIND_ENV; - cdat->drout_2666__FIND_ENV.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); - strncpy(cdat->drout_2666__FIND_ENV.routdescr, "FIND_ENV @warmelt-first.melt:3085", MELT_ROUTDESCR_LEN - 1); - cdat->drout_2666__FIND_ENV.nbval = 1; - MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_2666__FIND_ENV, meltrout_56_warmelt_first_FIND_ENV); - - /*iniclos dclo_2667__FIND_ENV*/ - /*_.VALCLO___V2449*/ meltfptr[2448] = (void*)&cdat->dclo_2667__FIND_ENV; - cdat->dclo_2667__FIND_ENV.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); - cdat->dclo_2667__FIND_ENV.nbval = 0; - - /*inirout drout_2668__FIND_ENV_DEBUG*/ - /*_.VALROUT___V2692*/ meltfptr[2691] = (void*)&cdat->drout_2668__FIND_ENV_DEBUG; - cdat->drout_2668__FIND_ENV_DEBUG.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); - strncpy(cdat->drout_2668__FIND_ENV_DEBUG.routdescr, "FIND_ENV_DEBUG @warmelt-first.melt:3108", MELT_ROUTDESCR_LEN - 1); - cdat->drout_2668__FIND_ENV_DEBUG.nbval = 2; - MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_2668__FIND_ENV_DEBUG, meltrout_57_warmelt_first_FIND_ENV_DEBUG); - - /*iniclos dclo_2669__FIND_ENV_DEBUG*/ - /*_.VALCLO___V2693*/ meltfptr[2692] = (void*)&cdat->dclo_2669__FIND_ENV_DEBUG; - cdat->dclo_2669__FIND_ENV_DEBUG.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); - cdat->dclo_2669__FIND_ENV_DEBUG.nbval = 0; - - /*inirout drout_2670__FIND_ENCLOSING_ENV*/ - /*_.VALROUT___V2694*/ meltfptr[2693] = (void*)&cdat->drout_2670__FIND_ENCLOSING_ENV; - cdat->drout_2670__FIND_ENCLOSING_ENV.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); - strncpy(cdat->drout_2670__FIND_ENCLOSING_ENV.routdescr, "FIND_ENCLOSING_ENV @warmelt-first.melt:3135", MELT_ROUTDESCR_LEN - 1); - cdat->drout_2670__FIND_ENCLOSING_ENV.nbval = 2; - MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_2670__FIND_ENCLOSING_ENV, meltrout_58_warmelt_first_FIND_ENCLOSING_ENV); - - /*iniclos dclo_2671__FIND_ENCLOSING_ENV*/ - /*_.VALCLO___V2695*/ meltfptr[2694] = (void*)&cdat->dclo_2671__FIND_ENCLOSING_ENV; - cdat->dclo_2671__FIND_ENCLOSING_ENV.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); - cdat->dclo_2671__FIND_ENCLOSING_ENV.nbval = 0; - - /*inirout drout_2672__PUT_ENV*/ - /*_.VALROUT___V2452*/ meltfptr[2451] = (void*)&cdat->drout_2672__PUT_ENV; - cdat->drout_2672__PUT_ENV.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); - strncpy(cdat->drout_2672__PUT_ENV.routdescr, "PUT_ENV @warmelt-first.melt:3154", MELT_ROUTDESCR_LEN - 1); - cdat->drout_2672__PUT_ENV.nbval = 4; - MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_2672__PUT_ENV, meltrout_59_warmelt_first_PUT_ENV); - - /*iniclos dclo_2673__PUT_ENV*/ - /*_.VALCLO___V2451*/ meltfptr[2450] = (void*)&cdat->dclo_2673__PUT_ENV; - cdat->dclo_2673__PUT_ENV.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); - cdat->dclo_2673__PUT_ENV.nbval = 0; - - /*inirout drout_2674__OVERWRITE_ENV*/ - /*_.VALROUT___V2696*/ meltfptr[2695] = (void*)&cdat->drout_2674__OVERWRITE_ENV; - cdat->drout_2674__OVERWRITE_ENV.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); - strncpy(cdat->drout_2674__OVERWRITE_ENV.routdescr, "OVERWRITE_ENV @warmelt-first.melt:3179", MELT_ROUTDESCR_LEN - 1); - cdat->drout_2674__OVERWRITE_ENV.nbval = 3; - MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_2674__OVERWRITE_ENV, meltrout_60_warmelt_first_OVERWRITE_ENV); - - /*iniclos dclo_2675__OVERWRITE_ENV*/ - /*_.VALCLO___V2697*/ meltfptr[2696] = (void*)&cdat->dclo_2675__OVERWRITE_ENV; - cdat->dclo_2675__OVERWRITE_ENV.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); - cdat->dclo_2675__OVERWRITE_ENV.nbval = 0; - - /*inirout drout_2676__POST_INITIALIZATION*/ - /*_.VALROUT___V2698*/ meltfptr[2697] = (void*)&cdat->drout_2676__POST_INITIALIZATION; - cdat->drout_2676__POST_INITIALIZATION.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); - strncpy(cdat->drout_2676__POST_INITIALIZATION.routdescr, "POST_INITIALIZATION @warmelt-first.melt:3212", MELT_ROUTDESCR_LEN - 1); - cdat->drout_2676__POST_INITIALIZATION.nbval = 4; - MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_2676__POST_INITIALIZATION, meltrout_61_warmelt_first_POST_INITIALIZATION); - - /*iniclos dclo_2677__POST_INITIALIZATION*/ - /*_.VALCLO___V2699*/ meltfptr[2698] = (void*)&cdat->dclo_2677__POST_INITIALIZATION; - cdat->dclo_2677__POST_INITIALIZATION.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); - cdat->dclo_2677__POST_INITIALIZATION.nbval = 0; - - /*iniobj dsym_2678__LIST_FIND*/ -/*uniqueobj*/ if (!/*_.VALDATA___V2700*/ meltfptr[2699]) /*_.VALDATA___V2700*/ meltfptr[2699] = (void*)&cdat->dsym_2678__LIST_FIND; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2678__LIST_FIND", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2678__LIST_FIND", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); - cdat->dsym_2678__LIST_FIND.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_2678__LIST_FIND.obj_hash = 430964501; - cdat->dsym_2678__LIST_FIND.obj_len = 3; - - /*inistring dstr_2679__LIST_FIND*/ - /*_.VALSTR___V2701*/ meltfptr[2700] = (void*)&cdat->dstr_2679__LIST_FIND; - cdat->dstr_2679__LIST_FIND.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2679__LIST_FIND.val, "LIST_FIND", sizeof (cdat->dstr_2679__LIST_FIND.val)-1); - - /*iniobj dsym_2680__AT_EXIT_FIRST*/ -/*uniqueobj*/ if (!/*_.VALDATA___V2702*/ meltfptr[2701]) /*_.VALDATA___V2702*/ meltfptr[2701] = (void*)&cdat->dsym_2680__AT_EXIT_FIRST; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2680__AT_EXIT_FIRST", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2680__AT_EXIT_FIRST", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); - cdat->dsym_2680__AT_EXIT_FIRST.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_2680__AT_EXIT_FIRST.obj_hash = 229908354; - cdat->dsym_2680__AT_EXIT_FIRST.obj_len = 3; - - /*inistring dstr_2681__AT_EXIT_FIRST*/ - /*_.VALSTR___V2703*/ meltfptr[2702] = (void*)&cdat->dstr_2681__AT_EXIT_FIRST; - cdat->dstr_2681__AT_EXIT_FIRST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2681__AT_EXIT_FIRST.val, "AT_EXIT_FIRST", sizeof (cdat->dstr_2681__AT_EXIT_FIRST.val)-1); - - /*iniobj dsym_2682__AT_EXIT_LAST*/ -/*uniqueobj*/ if (!/*_.VALDATA___V2704*/ meltfptr[2703]) /*_.VALDATA___V2704*/ meltfptr[2703] = (void*)&cdat->dsym_2682__AT_EXIT_LAST; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2682__AT_EXIT_LAST", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2682__AT_EXIT_LAST", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); - cdat->dsym_2682__AT_EXIT_LAST.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_2682__AT_EXIT_LAST.obj_hash = 554176281; - cdat->dsym_2682__AT_EXIT_LAST.obj_len = 3; - - /*inistring dstr_2683__AT_EXIT_LAST*/ - /*_.VALSTR___V2705*/ meltfptr[2704] = (void*)&cdat->dstr_2683__AT_EXIT_LAST; - cdat->dstr_2683__AT_EXIT_LAST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2683__AT_EXIT_LAST.val, "AT_EXIT_LAST", sizeof (cdat->dstr_2683__AT_EXIT_LAST.val)-1); - - /*iniobj dsym_2684__AT_FINISH_UNIT_FIRST*/ -/*uniqueobj*/ if (!/*_.VALDATA___V2706*/ meltfptr[2705]) /*_.VALDATA___V2706*/ meltfptr[2705] = (void*)&cdat->dsym_2684__AT_FINISH_UNIT_FIRST; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2684__AT_FINISH_UNIT_FIRST", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2684__AT_FINISH_UNIT_FIRST", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); - cdat->dsym_2684__AT_FINISH_UNIT_FIRST.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_2684__AT_FINISH_UNIT_FIRST.obj_hash = 390084996; - cdat->dsym_2684__AT_FINISH_UNIT_FIRST.obj_len = 3; - - /*inistring dstr_2685__AT_FINISH_UNIT_F*/ - /*_.VALSTR___V2707*/ meltfptr[2706] = (void*)&cdat->dstr_2685__AT_FINISH_UNIT_F; - cdat->dstr_2685__AT_FINISH_UNIT_F.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2685__AT_FINISH_UNIT_F.val, "AT_FINISH_UNIT_FIRST", sizeof (cdat->dstr_2685__AT_FINISH_UNIT_F.val)-1); - - /*iniobj dsym_2686__AT_FINISH_UNIT_LAST*/ -/*uniqueobj*/ if (!/*_.VALDATA___V2708*/ meltfptr[2707]) /*_.VALDATA___V2708*/ meltfptr[2707] = (void*)&cdat->dsym_2686__AT_FINISH_UNIT_LAST; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2686__AT_FINISH_UNIT_LAST", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2686__AT_FINISH_UNIT_LAST", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); - cdat->dsym_2686__AT_FINISH_UNIT_LAST.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_2686__AT_FINISH_UNIT_LAST.obj_hash = 264295221; - cdat->dsym_2686__AT_FINISH_UNIT_LAST.obj_len = 3; - - /*inistring dstr_2687__AT_FINISH_UNIT_L*/ - /*_.VALSTR___V2709*/ meltfptr[2708] = (void*)&cdat->dstr_2687__AT_FINISH_UNIT_L; - cdat->dstr_2687__AT_FINISH_UNIT_L.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2687__AT_FINISH_UNIT_L.val, "AT_FINISH_UNIT_LAST", sizeof (cdat->dstr_2687__AT_FINISH_UNIT_L.val)-1); - - /*iniobj dsym_2688__AT_START_UNIT_FIRST*/ -/*uniqueobj*/ if (!/*_.VALDATA___V2710*/ meltfptr[2709]) /*_.VALDATA___V2710*/ meltfptr[2709] = (void*)&cdat->dsym_2688__AT_START_UNIT_FIRST; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2688__AT_START_UNIT_FIRST", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2688__AT_START_UNIT_FIRST", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); - cdat->dsym_2688__AT_START_UNIT_FIRST.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_2688__AT_START_UNIT_FIRST.obj_hash = 5283802; - cdat->dsym_2688__AT_START_UNIT_FIRST.obj_len = 3; - - /*inistring dstr_2689__AT_START_UNIT_FI*/ - /*_.VALSTR___V2711*/ meltfptr[2710] = (void*)&cdat->dstr_2689__AT_START_UNIT_FI; - cdat->dstr_2689__AT_START_UNIT_FI.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2689__AT_START_UNIT_FI.val, "AT_START_UNIT_FIRST", sizeof (cdat->dstr_2689__AT_START_UNIT_FI.val)-1); - - /*iniobj dsym_2690__AT_START_UNIT_LAST*/ -/*uniqueobj*/ if (!/*_.VALDATA___V2712*/ meltfptr[2711]) /*_.VALDATA___V2712*/ meltfptr[2711] = (void*)&cdat->dsym_2690__AT_START_UNIT_LAST; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2690__AT_START_UNIT_LAST", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2690__AT_START_UNIT_LAST", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); - cdat->dsym_2690__AT_START_UNIT_LAST.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_2690__AT_START_UNIT_LAST.obj_hash = 1055760715; - cdat->dsym_2690__AT_START_UNIT_LAST.obj_len = 3; - - /*inistring dstr_2691__AT_START_UNIT_LA*/ - /*_.VALSTR___V2713*/ meltfptr[2712] = (void*)&cdat->dstr_2691__AT_START_UNIT_LA; - cdat->dstr_2691__AT_START_UNIT_LA.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2691__AT_START_UNIT_LA.val, "AT_START_UNIT_LAST", sizeof (cdat->dstr_2691__AT_START_UNIT_LA.val)-1); - - /*iniobj dsym_2692__CLONE_SYMBOL*/ -/*uniqueobj*/ if (!/*_.VALDATA___V2714*/ meltfptr[2713]) /*_.VALDATA___V2714*/ meltfptr[2713] = (void*)&cdat->dsym_2692__CLONE_SYMBOL; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2692__CLONE_SYMBOL", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2692__CLONE_SYMBOL", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); - cdat->dsym_2692__CLONE_SYMBOL.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_2692__CLONE_SYMBOL.obj_hash = 213258240; - cdat->dsym_2692__CLONE_SYMBOL.obj_len = 3; - - /*inistring dstr_2693__CLONE_SYMBOL*/ - /*_.VALSTR___V2715*/ meltfptr[2714] = (void*)&cdat->dstr_2693__CLONE_SYMBOL; - cdat->dstr_2693__CLONE_SYMBOL.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2693__CLONE_SYMBOL.val, "CLONE_SYMBOL", sizeof (cdat->dstr_2693__CLONE_SYMBOL.val)-1); - - /*iniobj dsym_2694__CLOSURE_EVERY*/ -/*uniqueobj*/ if (!/*_.VALDATA___V2716*/ meltfptr[2715]) /*_.VALDATA___V2716*/ meltfptr[2715] = (void*)&cdat->dsym_2694__CLOSURE_EVERY; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2694__CLOSURE_EVERY", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2694__CLOSURE_EVERY", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); - cdat->dsym_2694__CLOSURE_EVERY.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_2694__CLOSURE_EVERY.obj_hash = 729040422; - cdat->dsym_2694__CLOSURE_EVERY.obj_len = 3; - - /*inistring dstr_2695__CLOSURE_EVERY*/ - /*_.VALSTR___V2717*/ meltfptr[2716] = (void*)&cdat->dstr_2695__CLOSURE_EVERY; - cdat->dstr_2695__CLOSURE_EVERY.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2695__CLOSURE_EVERY.val, "CLOSURE_EVERY", sizeof (cdat->dstr_2695__CLOSURE_EVERY.val)-1); - - /*iniobj dsym_2696__COMPARE_OBJ_RANKED*/ -/*uniqueobj*/ if (!/*_.VALDATA___V2718*/ meltfptr[2717]) /*_.VALDATA___V2718*/ meltfptr[2717] = (void*)&cdat->dsym_2696__COMPARE_OBJ_RANKED; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2696__COMPARE_OBJ_RANKED", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2696__COMPARE_OBJ_RANKED", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); - cdat->dsym_2696__COMPARE_OBJ_RANKED.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_2696__COMPARE_OBJ_RANKED.obj_hash = 657124045; - cdat->dsym_2696__COMPARE_OBJ_RANKED.obj_len = 3; - - /*inistring dstr_2697__COMPARE_OBJ_RANK*/ - /*_.VALSTR___V2719*/ meltfptr[2718] = (void*)&cdat->dstr_2697__COMPARE_OBJ_RANK; - cdat->dstr_2697__COMPARE_OBJ_RANK.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2697__COMPARE_OBJ_RANK.val, "COMPARE_OBJ_RANKED", sizeof (cdat->dstr_2697__COMPARE_OBJ_RANK.val)-1); - - /*iniobj dsym_2698__FIND_ENCLOSING_ENV*/ -/*uniqueobj*/ if (!/*_.VALDATA___V2720*/ meltfptr[2719]) /*_.VALDATA___V2720*/ meltfptr[2719] = (void*)&cdat->dsym_2698__FIND_ENCLOSING_ENV; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2698__FIND_ENCLOSING_ENV", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2698__FIND_ENCLOSING_ENV", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); - cdat->dsym_2698__FIND_ENCLOSING_ENV.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_2698__FIND_ENCLOSING_ENV.obj_hash = 227770701; - cdat->dsym_2698__FIND_ENCLOSING_ENV.obj_len = 3; - - /*inistring dstr_2699__FIND_ENCLOSING_E*/ - /*_.VALSTR___V2721*/ meltfptr[2720] = (void*)&cdat->dstr_2699__FIND_ENCLOSING_E; - cdat->dstr_2699__FIND_ENCLOSING_E.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2699__FIND_ENCLOSING_E.val, "FIND_ENCLOSING_ENV", sizeof (cdat->dstr_2699__FIND_ENCLOSING_E.val)-1); - - /*iniobj dsym_2700__FIND_ENV*/ -/*uniqueobj*/ if (!/*_.VALDATA___V2722*/ meltfptr[2721]) /*_.VALDATA___V2722*/ meltfptr[2721] = (void*)&cdat->dsym_2700__FIND_ENV; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2700__FIND_ENV", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2700__FIND_ENV", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); - cdat->dsym_2700__FIND_ENV.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_2700__FIND_ENV.obj_hash = 233459738; - cdat->dsym_2700__FIND_ENV.obj_len = 3; - - /*inistring dstr_2701__FIND_ENV*/ - /*_.VALSTR___V2723*/ meltfptr[2722] = (void*)&cdat->dstr_2701__FIND_ENV; - cdat->dstr_2701__FIND_ENV.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2701__FIND_ENV.val, "FIND_ENV", sizeof (cdat->dstr_2701__FIND_ENV.val)-1); - - /*iniobj dsym_2702__FIND_ENV_DEBUG*/ -/*uniqueobj*/ if (!/*_.VALDATA___V2724*/ meltfptr[2723]) /*_.VALDATA___V2724*/ meltfptr[2723] = (void*)&cdat->dsym_2702__FIND_ENV_DEBUG; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2702__FIND_ENV_DEBUG", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2702__FIND_ENV_DEBUG", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); - cdat->dsym_2702__FIND_ENV_DEBUG.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_2702__FIND_ENV_DEBUG.obj_hash = 670001916; - cdat->dsym_2702__FIND_ENV_DEBUG.obj_len = 3; - - /*inistring dstr_2703__FIND_ENV_DEBUG*/ - /*_.VALSTR___V2725*/ meltfptr[2724] = (void*)&cdat->dstr_2703__FIND_ENV_DEBUG; - cdat->dstr_2703__FIND_ENV_DEBUG.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2703__FIND_ENV_DEBUG.val, "FIND_ENV_DEBUG", sizeof (cdat->dstr_2703__FIND_ENV_DEBUG.val)-1); - - /*iniobj dsym_2704__FRESH_ENV*/ -/*uniqueobj*/ if (!/*_.VALDATA___V2726*/ meltfptr[2725]) /*_.VALDATA___V2726*/ meltfptr[2725] = (void*)&cdat->dsym_2704__FRESH_ENV; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2704__FRESH_ENV", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2704__FRESH_ENV", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); - cdat->dsym_2704__FRESH_ENV.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_2704__FRESH_ENV.obj_hash = 1002363940; - cdat->dsym_2704__FRESH_ENV.obj_len = 3; - - /*inistring dstr_2705__FRESH_ENV*/ - /*_.VALSTR___V2727*/ meltfptr[2726] = (void*)&cdat->dstr_2705__FRESH_ENV; - cdat->dstr_2705__FRESH_ENV.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2705__FRESH_ENV.val, "FRESH_ENV", sizeof (cdat->dstr_2705__FRESH_ENV.val)-1); - - /*iniobj dsym_2706__INSTALL_CTYPE_DESCR*/ -/*uniqueobj*/ if (!/*_.VALDATA___V2728*/ meltfptr[2727]) /*_.VALDATA___V2728*/ meltfptr[2727] = (void*)&cdat->dsym_2706__INSTALL_CTYPE_DESCR; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2706__INSTALL_CTYPE_DESCR", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2706__INSTALL_CTYPE_DESCR", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); - cdat->dsym_2706__INSTALL_CTYPE_DESCR.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_2706__INSTALL_CTYPE_DESCR.obj_hash = 1019986423; - cdat->dsym_2706__INSTALL_CTYPE_DESCR.obj_len = 3; - - /*inistring dstr_2707__INSTALL_CTYPE_DE*/ - /*_.VALSTR___V2729*/ meltfptr[2728] = (void*)&cdat->dstr_2707__INSTALL_CTYPE_DE; - cdat->dstr_2707__INSTALL_CTYPE_DE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2707__INSTALL_CTYPE_DE.val, "INSTALL_CTYPE_DESCR", sizeof (cdat->dstr_2707__INSTALL_CTYPE_DE.val)-1); - - /*iniobj dsym_2708__INSTALL_METHOD*/ -/*uniqueobj*/ if (!/*_.VALDATA___V2730*/ meltfptr[2729]) /*_.VALDATA___V2730*/ meltfptr[2729] = (void*)&cdat->dsym_2708__INSTALL_METHOD; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2708__INSTALL_METHOD", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2708__INSTALL_METHOD", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); - cdat->dsym_2708__INSTALL_METHOD.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_2708__INSTALL_METHOD.obj_hash = 680699224; - cdat->dsym_2708__INSTALL_METHOD.obj_len = 3; - - /*inistring dstr_2709__INSTALL_METHOD*/ - /*_.VALSTR___V2731*/ meltfptr[2730] = (void*)&cdat->dstr_2709__INSTALL_METHOD; - cdat->dstr_2709__INSTALL_METHOD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2709__INSTALL_METHOD.val, "INSTALL_METHOD", sizeof (cdat->dstr_2709__INSTALL_METHOD.val)-1); - - /*iniobj dsym_2710__LIST_APPEND2LIST*/ -/*uniqueobj*/ if (!/*_.VALDATA___V2732*/ meltfptr[2731]) /*_.VALDATA___V2732*/ meltfptr[2731] = (void*)&cdat->dsym_2710__LIST_APPEND2LIST; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2710__LIST_APPEND2LIST", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2710__LIST_APPEND2LIST", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); - cdat->dsym_2710__LIST_APPEND2LIST.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_2710__LIST_APPEND2LIST.obj_hash = 744841630; - cdat->dsym_2710__LIST_APPEND2LIST.obj_len = 3; - - /*inistring dstr_2711__LIST_APPEND2LIST*/ - /*_.VALSTR___V2733*/ meltfptr[2732] = (void*)&cdat->dstr_2711__LIST_APPEND2LIST; - cdat->dstr_2711__LIST_APPEND2LIST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2711__LIST_APPEND2LIST.val, "LIST_APPEND2LIST", sizeof (cdat->dstr_2711__LIST_APPEND2LIST.val)-1); - - /*iniobj dsym_2712__LIST_EVERY*/ -/*uniqueobj*/ if (!/*_.VALDATA___V2734*/ meltfptr[2733]) /*_.VALDATA___V2734*/ meltfptr[2733] = (void*)&cdat->dsym_2712__LIST_EVERY; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2712__LIST_EVERY", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2712__LIST_EVERY", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); - cdat->dsym_2712__LIST_EVERY.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_2712__LIST_EVERY.obj_hash = 942863429; - cdat->dsym_2712__LIST_EVERY.obj_len = 3; - - /*inistring dstr_2713__LIST_EVERY*/ - /*_.VALSTR___V2735*/ meltfptr[2734] = (void*)&cdat->dstr_2713__LIST_EVERY; - cdat->dstr_2713__LIST_EVERY.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2713__LIST_EVERY.val, "LIST_EVERY", sizeof (cdat->dstr_2713__LIST_EVERY.val)-1); - - /*iniobj dsym_2714__LIST_ITERATE_TEST*/ -/*uniqueobj*/ if (!/*_.VALDATA___V2736*/ meltfptr[2735]) /*_.VALDATA___V2736*/ meltfptr[2735] = (void*)&cdat->dsym_2714__LIST_ITERATE_TEST; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2714__LIST_ITERATE_TEST", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2714__LIST_ITERATE_TEST", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); - cdat->dsym_2714__LIST_ITERATE_TEST.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_2714__LIST_ITERATE_TEST.obj_hash = 561820482; - cdat->dsym_2714__LIST_ITERATE_TEST.obj_len = 3; - - /*inistring dstr_2715__LIST_ITERATE_TES*/ - /*_.VALSTR___V2737*/ meltfptr[2736] = (void*)&cdat->dstr_2715__LIST_ITERATE_TES; - cdat->dstr_2715__LIST_ITERATE_TES.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2715__LIST_ITERATE_TES.val, "LIST_ITERATE_TEST", sizeof (cdat->dstr_2715__LIST_ITERATE_TES.val)-1); - - /*iniobj dsym_2716__LIST_MAP*/ -/*uniqueobj*/ if (!/*_.VALDATA___V2738*/ meltfptr[2737]) /*_.VALDATA___V2738*/ meltfptr[2737] = (void*)&cdat->dsym_2716__LIST_MAP; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2716__LIST_MAP", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2716__LIST_MAP", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); - cdat->dsym_2716__LIST_MAP.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_2716__LIST_MAP.obj_hash = 941133477; - cdat->dsym_2716__LIST_MAP.obj_len = 3; - - /*inistring dstr_2717__LIST_MAP*/ - /*_.VALSTR___V2739*/ meltfptr[2738] = (void*)&cdat->dstr_2717__LIST_MAP; - cdat->dstr_2717__LIST_MAP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2717__LIST_MAP.val, "LIST_MAP", sizeof (cdat->dstr_2717__LIST_MAP.val)-1); - - /*iniobj dsym_2718__LIST_TO_MULTIPLE*/ -/*uniqueobj*/ if (!/*_.VALDATA___V2740*/ meltfptr[2739]) /*_.VALDATA___V2740*/ meltfptr[2739] = (void*)&cdat->dsym_2718__LIST_TO_MULTIPLE; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2718__LIST_TO_MULTIPLE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2718__LIST_TO_MULTIPLE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); - cdat->dsym_2718__LIST_TO_MULTIPLE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_2718__LIST_TO_MULTIPLE.obj_hash = 987171205; - cdat->dsym_2718__LIST_TO_MULTIPLE.obj_len = 3; - - /*inistring dstr_2719__LIST_TO_MULTIPLE*/ - /*_.VALSTR___V2741*/ meltfptr[2740] = (void*)&cdat->dstr_2719__LIST_TO_MULTIPLE; - cdat->dstr_2719__LIST_TO_MULTIPLE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2719__LIST_TO_MULTIPLE.val, "LIST_TO_MULTIPLE", sizeof (cdat->dstr_2719__LIST_TO_MULTIPLE.val)-1); - - /*iniobj dsym_2720__MAPOBJECT_EVERY*/ -/*uniqueobj*/ if (!/*_.VALDATA___V2742*/ meltfptr[2741]) /*_.VALDATA___V2742*/ meltfptr[2741] = (void*)&cdat->dsym_2720__MAPOBJECT_EVERY; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2720__MAPOBJECT_EVERY", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2720__MAPOBJECT_EVERY", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); - cdat->dsym_2720__MAPOBJECT_EVERY.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_2720__MAPOBJECT_EVERY.obj_hash = 726732435; - cdat->dsym_2720__MAPOBJECT_EVERY.obj_len = 3; - - /*inistring dstr_2721__MAPOBJECT_EVERY*/ - /*_.VALSTR___V2743*/ meltfptr[2742] = (void*)&cdat->dstr_2721__MAPOBJECT_EVERY; - cdat->dstr_2721__MAPOBJECT_EVERY.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2721__MAPOBJECT_EVERY.val, "MAPOBJECT_EVERY", sizeof (cdat->dstr_2721__MAPOBJECT_EVERY.val)-1); - - /*iniobj dsym_2722__MAPOBJECT_ITERATE_TEST*/ -/*uniqueobj*/ if (!/*_.VALDATA___V2744*/ meltfptr[2743]) /*_.VALDATA___V2744*/ meltfptr[2743] = (void*)&cdat->dsym_2722__MAPOBJECT_ITERATE_TEST; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2722__MAPOBJECT_ITERATE_TEST", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2722__MAPOBJECT_ITERATE_TEST", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); - cdat->dsym_2722__MAPOBJECT_ITERATE_TEST.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_2722__MAPOBJECT_ITERATE_TEST.obj_hash = 873816186; - cdat->dsym_2722__MAPOBJECT_ITERATE_TEST.obj_len = 3; - - /*inistring dstr_2723__MAPOBJECT_ITERAT*/ - /*_.VALSTR___V2745*/ meltfptr[2744] = (void*)&cdat->dstr_2723__MAPOBJECT_ITERAT; - cdat->dstr_2723__MAPOBJECT_ITERAT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2723__MAPOBJECT_ITERAT.val, "MAPOBJECT_ITERATE_TEST", sizeof (cdat->dstr_2723__MAPOBJECT_ITERAT.val)-1); - - /*iniobj dsym_2724__MAPOBJECT_SORTED_ATTRIBUTE_TUPLE*/ -/*uniqueobj*/ if (!/*_.VALDATA___V2746*/ meltfptr[2745]) /*_.VALDATA___V2746*/ meltfptr[2745] = (void*)&cdat->dsym_2724__MAPOBJECT_SORTED_ATTRIBUTE_TUPLE; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2724__MAPOBJECT_SORTED_ATTRIBUTE_TUPLE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2724__MAPOBJECT_SORTED_ATTRIBUTE_TUPLE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); - cdat->dsym_2724__MAPOBJECT_SORTED_ATTRIBUTE_TUPLE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_2724__MAPOBJECT_SORTED_ATTRIBUTE_TUPLE.obj_hash = 966537230; - cdat->dsym_2724__MAPOBJECT_SORTED_ATTRIBUTE_TUPLE.obj_len = 3; - - /*inistring dstr_2725__MAPOBJECT_SORTED*/ - /*_.VALSTR___V2747*/ meltfptr[2746] = (void*)&cdat->dstr_2725__MAPOBJECT_SORTED; - cdat->dstr_2725__MAPOBJECT_SORTED.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2725__MAPOBJECT_SORTED.val, "MAPOBJECT_SORTED_ATTRIBUTE_TUPLE", sizeof (cdat->dstr_2725__MAPOBJECT_SORTED.val)-1); - - /*iniobj dsym_2726__MULTIPLE_ITERATE_TEST*/ -/*uniqueobj*/ if (!/*_.VALDATA___V2748*/ meltfptr[2747]) /*_.VALDATA___V2748*/ meltfptr[2747] = (void*)&cdat->dsym_2726__MULTIPLE_ITERATE_TEST; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2726__MULTIPLE_ITERATE_TEST", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2726__MULTIPLE_ITERATE_TEST", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); - cdat->dsym_2726__MULTIPLE_ITERATE_TEST.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_2726__MULTIPLE_ITERATE_TEST.obj_hash = 823464346; - cdat->dsym_2726__MULTIPLE_ITERATE_TEST.obj_len = 3; - - /*inistring dstr_2727__MULTIPLE_ITERATE*/ - /*_.VALSTR___V2749*/ meltfptr[2748] = (void*)&cdat->dstr_2727__MULTIPLE_ITERATE; - cdat->dstr_2727__MULTIPLE_ITERATE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2727__MULTIPLE_ITERATE.val, "MULTIPLE_ITERATE_TEST", sizeof (cdat->dstr_2727__MULTIPLE_ITERATE.val)-1); - - /*iniobj dsym_2728__MULTIPLE_MAP*/ -/*uniqueobj*/ if (!/*_.VALDATA___V2750*/ meltfptr[2749]) /*_.VALDATA___V2750*/ meltfptr[2749] = (void*)&cdat->dsym_2728__MULTIPLE_MAP; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2728__MULTIPLE_MAP", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2728__MULTIPLE_MAP", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); - cdat->dsym_2728__MULTIPLE_MAP.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_2728__MULTIPLE_MAP.obj_hash = 218301686; - cdat->dsym_2728__MULTIPLE_MAP.obj_len = 3; - - /*inistring dstr_2729__MULTIPLE_MAP*/ - /*_.VALSTR___V2751*/ meltfptr[2750] = (void*)&cdat->dstr_2729__MULTIPLE_MAP; - cdat->dstr_2729__MULTIPLE_MAP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2729__MULTIPLE_MAP.val, "MULTIPLE_MAP", sizeof (cdat->dstr_2729__MULTIPLE_MAP.val)-1); - - /*iniobj dsym_2730__MULTIPLE_TO_LIST*/ -/*uniqueobj*/ if (!/*_.VALDATA___V2752*/ meltfptr[2751]) /*_.VALDATA___V2752*/ meltfptr[2751] = (void*)&cdat->dsym_2730__MULTIPLE_TO_LIST; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2730__MULTIPLE_TO_LIST", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2730__MULTIPLE_TO_LIST", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); - cdat->dsym_2730__MULTIPLE_TO_LIST.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_2730__MULTIPLE_TO_LIST.obj_hash = 622139769; - cdat->dsym_2730__MULTIPLE_TO_LIST.obj_len = 3; - - /*inistring dstr_2731__MULTIPLE_TO_LIST*/ - /*_.VALSTR___V2753*/ meltfptr[2752] = (void*)&cdat->dstr_2731__MULTIPLE_TO_LIST; - cdat->dstr_2731__MULTIPLE_TO_LIST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2731__MULTIPLE_TO_LIST.val, "MULTIPLE_TO_LIST", sizeof (cdat->dstr_2731__MULTIPLE_TO_LIST.val)-1); - - /*iniobj dsym_2732__OVERWRITE_ENV*/ -/*uniqueobj*/ if (!/*_.VALDATA___V2754*/ meltfptr[2753]) /*_.VALDATA___V2754*/ meltfptr[2753] = (void*)&cdat->dsym_2732__OVERWRITE_ENV; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2732__OVERWRITE_ENV", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2732__OVERWRITE_ENV", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); - cdat->dsym_2732__OVERWRITE_ENV.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_2732__OVERWRITE_ENV.obj_hash = 774789038; - cdat->dsym_2732__OVERWRITE_ENV.obj_len = 3; - - /*inistring dstr_2733__OVERWRITE_ENV*/ - /*_.VALSTR___V2755*/ meltfptr[2754] = (void*)&cdat->dstr_2733__OVERWRITE_ENV; - cdat->dstr_2733__OVERWRITE_ENV.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2733__OVERWRITE_ENV.val, "OVERWRITE_ENV", sizeof (cdat->dstr_2733__OVERWRITE_ENV.val)-1); - - /*iniobj dsym_2734__PAIRLIST_TO_MULTIPLE*/ -/*uniqueobj*/ if (!/*_.VALDATA___V2756*/ meltfptr[2755]) /*_.VALDATA___V2756*/ meltfptr[2755] = (void*)&cdat->dsym_2734__PAIRLIST_TO_MULTIPLE; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2734__PAIRLIST_TO_MULTIPLE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2734__PAIRLIST_TO_MULTIPLE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); - cdat->dsym_2734__PAIRLIST_TO_MULTIPLE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_2734__PAIRLIST_TO_MULTIPLE.obj_hash = 205669322; - cdat->dsym_2734__PAIRLIST_TO_MULTIPLE.obj_len = 3; - - /*inistring dstr_2735__PAIRLIST_TO_MULT*/ - /*_.VALSTR___V2757*/ meltfptr[2756] = (void*)&cdat->dstr_2735__PAIRLIST_TO_MULT; - cdat->dstr_2735__PAIRLIST_TO_MULT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2735__PAIRLIST_TO_MULT.val, "PAIRLIST_TO_MULTIPLE", sizeof (cdat->dstr_2735__PAIRLIST_TO_MULT.val)-1); - - /*iniobj dsym_2736__POST_INITIALIZATION*/ -/*uniqueobj*/ if (!/*_.VALDATA___V2758*/ meltfptr[2757]) /*_.VALDATA___V2758*/ meltfptr[2757] = (void*)&cdat->dsym_2736__POST_INITIALIZATION; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2736__POST_INITIALIZATION", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2736__POST_INITIALIZATION", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); - cdat->dsym_2736__POST_INITIALIZATION.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_2736__POST_INITIALIZATION.obj_hash = 1066527214; - cdat->dsym_2736__POST_INITIALIZATION.obj_len = 3; - - /*inistring dstr_2737__POST_INITIALIZAT*/ - /*_.VALSTR___V2759*/ meltfptr[2758] = (void*)&cdat->dstr_2737__POST_INITIALIZAT; - cdat->dstr_2737__POST_INITIALIZAT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2737__POST_INITIALIZAT.val, "POST_INITIALIZATION", sizeof (cdat->dstr_2737__POST_INITIALIZAT.val)-1); - - /*iniobj dsym_2738__PUT_ENV*/ -/*uniqueobj*/ if (!/*_.VALDATA___V2760*/ meltfptr[2759]) /*_.VALDATA___V2760*/ meltfptr[2759] = (void*)&cdat->dsym_2738__PUT_ENV; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2738__PUT_ENV", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2738__PUT_ENV", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); - cdat->dsym_2738__PUT_ENV.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_2738__PUT_ENV.obj_hash = 440202203; - cdat->dsym_2738__PUT_ENV.obj_len = 3; - - /*inistring dstr_2739__PUT_ENV*/ - /*_.VALSTR___V2761*/ meltfptr[2760] = (void*)&cdat->dstr_2739__PUT_ENV; - cdat->dstr_2739__PUT_ENV.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2739__PUT_ENV.val, "PUT_ENV", sizeof (cdat->dstr_2739__PUT_ENV.val)-1); - - /*iniobj dsym_2740__REGISTER_OPTION*/ -/*uniqueobj*/ if (!/*_.VALDATA___V2762*/ meltfptr[2761]) /*_.VALDATA___V2762*/ meltfptr[2761] = (void*)&cdat->dsym_2740__REGISTER_OPTION; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2740__REGISTER_OPTION", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2740__REGISTER_OPTION", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); - cdat->dsym_2740__REGISTER_OPTION.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_2740__REGISTER_OPTION.obj_hash = 32231349; - cdat->dsym_2740__REGISTER_OPTION.obj_len = 3; - - /*inistring dstr_2741__REGISTER_OPTION*/ - /*_.VALSTR___V2763*/ meltfptr[2762] = (void*)&cdat->dstr_2741__REGISTER_OPTION; - cdat->dstr_2741__REGISTER_OPTION.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2741__REGISTER_OPTION.val, "REGISTER_OPTION", sizeof (cdat->dstr_2741__REGISTER_OPTION.val)-1); - - /*iniobj dsym_2742__ROUTINE_EVERY*/ -/*uniqueobj*/ if (!/*_.VALDATA___V2764*/ meltfptr[2763]) /*_.VALDATA___V2764*/ meltfptr[2763] = (void*)&cdat->dsym_2742__ROUTINE_EVERY; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2742__ROUTINE_EVERY", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2742__ROUTINE_EVERY", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); - cdat->dsym_2742__ROUTINE_EVERY.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_2742__ROUTINE_EVERY.obj_hash = 347090207; - cdat->dsym_2742__ROUTINE_EVERY.obj_len = 3; - - /*inistring dstr_2743__ROUTINE_EVERY*/ - /*_.VALSTR___V2765*/ meltfptr[2764] = (void*)&cdat->dstr_2743__ROUTINE_EVERY; - cdat->dstr_2743__ROUTINE_EVERY.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2743__ROUTINE_EVERY.val, "ROUTINE_EVERY", sizeof (cdat->dstr_2743__ROUTINE_EVERY.val)-1); - - /*iniobj dsym_2744__FOREACH_IN_LIST*/ -/*uniqueobj*/ if (!/*_.VALDATA___V2766*/ meltfptr[2765]) /*_.VALDATA___V2766*/ meltfptr[2765] = (void*)&cdat->dsym_2744__FOREACH_IN_LIST; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2744__FOREACH_IN_LIST", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2744__FOREACH_IN_LIST", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); - cdat->dsym_2744__FOREACH_IN_LIST.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_2744__FOREACH_IN_LIST.obj_hash = 664644215; - cdat->dsym_2744__FOREACH_IN_LIST.obj_len = 3; - - /*inistring dstr_2745__FOREACH_IN_LIST*/ - /*_.VALSTR___V2767*/ meltfptr[2766] = (void*)&cdat->dstr_2745__FOREACH_IN_LIST; - cdat->dstr_2745__FOREACH_IN_LIST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2745__FOREACH_IN_LIST.val, "FOREACH_IN_LIST", sizeof (cdat->dstr_2745__FOREACH_IN_LIST.val)-1); - - /*iniobj dsym_2746__FOREACH_IN_MAPOBJECT*/ -/*uniqueobj*/ if (!/*_.VALDATA___V2768*/ meltfptr[2767]) /*_.VALDATA___V2768*/ meltfptr[2767] = (void*)&cdat->dsym_2746__FOREACH_IN_MAPOBJECT; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2746__FOREACH_IN_MAPOBJECT", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2746__FOREACH_IN_MAPOBJECT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); - cdat->dsym_2746__FOREACH_IN_MAPOBJECT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_2746__FOREACH_IN_MAPOBJECT.obj_hash = 845660309; - cdat->dsym_2746__FOREACH_IN_MAPOBJECT.obj_len = 3; - - /*inistring dstr_2747__FOREACH_IN_MAPOB*/ - /*_.VALSTR___V2769*/ meltfptr[2768] = (void*)&cdat->dstr_2747__FOREACH_IN_MAPOB; - cdat->dstr_2747__FOREACH_IN_MAPOB.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2747__FOREACH_IN_MAPOB.val, "FOREACH_IN_MAPOBJECT", sizeof (cdat->dstr_2747__FOREACH_IN_MAPOB.val)-1); - - /*iniobj dsym_2748__FOREACH_IN_MAPSTRING*/ -/*uniqueobj*/ if (!/*_.VALDATA___V2770*/ meltfptr[2769]) /*_.VALDATA___V2770*/ meltfptr[2769] = (void*)&cdat->dsym_2748__FOREACH_IN_MAPSTRING; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2748__FOREACH_IN_MAPSTRING", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2748__FOREACH_IN_MAPSTRING", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); - cdat->dsym_2748__FOREACH_IN_MAPSTRING.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_2748__FOREACH_IN_MAPSTRING.obj_hash = 16742650; - cdat->dsym_2748__FOREACH_IN_MAPSTRING.obj_len = 3; - - /*inistring dstr_2749__FOREACH_IN_MAPST*/ - /*_.VALSTR___V2771*/ meltfptr[2770] = (void*)&cdat->dstr_2749__FOREACH_IN_MAPST; - cdat->dstr_2749__FOREACH_IN_MAPST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2749__FOREACH_IN_MAPST.val, "FOREACH_IN_MAPSTRING", sizeof (cdat->dstr_2749__FOREACH_IN_MAPST.val)-1); - - /*iniobj dsym_2750__FOREACH_IN_MULTIPLE*/ -/*uniqueobj*/ if (!/*_.VALDATA___V2772*/ meltfptr[2771]) /*_.VALDATA___V2772*/ meltfptr[2771] = (void*)&cdat->dsym_2750__FOREACH_IN_MULTIPLE; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2750__FOREACH_IN_MULTIPLE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2750__FOREACH_IN_MULTIPLE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); - cdat->dsym_2750__FOREACH_IN_MULTIPLE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_2750__FOREACH_IN_MULTIPLE.obj_hash = 692686837; - cdat->dsym_2750__FOREACH_IN_MULTIPLE.obj_len = 3; - - /*inistring dstr_2751__FOREACH_IN_MULTI*/ - /*_.VALSTR___V2773*/ meltfptr[2772] = (void*)&cdat->dstr_2751__FOREACH_IN_MULTI; - cdat->dstr_2751__FOREACH_IN_MULTI.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2751__FOREACH_IN_MULTI.val, "FOREACH_IN_MULTIPLE", sizeof (cdat->dstr_2751__FOREACH_IN_MULTI.val)-1); - - /*iniobj dsym_2752__FOREACH_IN_MULTIPLE_BACKWARD*/ -/*uniqueobj*/ if (!/*_.VALDATA___V2774*/ meltfptr[2773]) /*_.VALDATA___V2774*/ meltfptr[2773] = (void*)&cdat->dsym_2752__FOREACH_IN_MULTIPLE_BACKWARD; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2752__FOREACH_IN_MULTIPLE_BACKWARD", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2752__FOREACH_IN_MULTIPLE_BACKWARD", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); - cdat->dsym_2752__FOREACH_IN_MULTIPLE_BACKWARD.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_2752__FOREACH_IN_MULTIPLE_BACKWARD.obj_hash = 1067970766; - cdat->dsym_2752__FOREACH_IN_MULTIPLE_BACKWARD.obj_len = 3; - - /*inistring dstr_2753__FOREACH_IN_MULTI*/ - /*_.VALSTR___V2775*/ meltfptr[2774] = (void*)&cdat->dstr_2753__FOREACH_IN_MULTI; - cdat->dstr_2753__FOREACH_IN_MULTI.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2753__FOREACH_IN_MULTI.val, "FOREACH_IN_MULTIPLE_BACKWARD", sizeof (cdat->dstr_2753__FOREACH_IN_MULTI.val)-1); - - /*iniobj dsym_2754__INTEGERBOX_OF*/ -/*uniqueobj*/ if (!/*_.VALDATA___V2776*/ meltfptr[2775]) /*_.VALDATA___V2776*/ meltfptr[2775] = (void*)&cdat->dsym_2754__INTEGERBOX_OF; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2754__INTEGERBOX_OF", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2754__INTEGERBOX_OF", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); - cdat->dsym_2754__INTEGERBOX_OF.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_2754__INTEGERBOX_OF.obj_hash = 641824224; - cdat->dsym_2754__INTEGERBOX_OF.obj_len = 3; - - /*inistring dstr_2755__INTEGERBOX_OF*/ - /*_.VALSTR___V2777*/ meltfptr[2776] = (void*)&cdat->dstr_2755__INTEGERBOX_OF; - cdat->dstr_2755__INTEGERBOX_OF.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2755__INTEGERBOX_OF.val, "INTEGERBOX_OF", sizeof (cdat->dstr_2755__INTEGERBOX_OF.val)-1); - - /*iniobj dsym_2756__CLOSURE*/ -/*uniqueobj*/ if (!/*_.VALDATA___V2778*/ meltfptr[2777]) /*_.VALDATA___V2778*/ meltfptr[2777] = (void*)&cdat->dsym_2756__CLOSURE; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2756__CLOSURE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2756__CLOSURE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); - cdat->dsym_2756__CLOSURE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_2756__CLOSURE.obj_hash = 230596885; - cdat->dsym_2756__CLOSURE.obj_len = 3; - - /*inistring dstr_2757__CLOSURE*/ - /*_.VALSTR___V2779*/ meltfptr[2778] = (void*)&cdat->dstr_2757__CLOSURE; - cdat->dstr_2757__CLOSURE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2757__CLOSURE.val, "CLOSURE", sizeof (cdat->dstr_2757__CLOSURE.val)-1); - - /*iniobj dsym_2758__TRUE*/ -/*uniqueobj*/ if (!/*_.VALDATA___V2780*/ meltfptr[2779]) /*_.VALDATA___V2780*/ meltfptr[2779] = (void*)&cdat->dsym_2758__TRUE; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2758__TRUE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_KEYWORD)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2758__TRUE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_KEYWORD)))))->object_magic == OBMAG_OBJECT); - cdat->dsym_2758__TRUE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_KEYWORD)))); - cdat->dsym_2758__TRUE.obj_hash = 576485513; - cdat->dsym_2758__TRUE.obj_len = 3; - - /*inistring dstr_2759__TRUE*/ - /*_.VALSTR___V2781*/ meltfptr[2780] = (void*)&cdat->dstr_2759__TRUE; - cdat->dstr_2759__TRUE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_2759__TRUE.val, "TRUE", sizeof (cdat->dstr_2759__TRUE.val)-1); - - /*inirout drout_2760__DEBUG_MSG_FUN*/ - /*_.VALROUT___V2436*/ meltfptr[2435] = (void*)&cdat->drout_2760__DEBUG_MSG_FUN; - cdat->drout_2760__DEBUG_MSG_FUN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); - strncpy(cdat->drout_2760__DEBUG_MSG_FUN.routdescr, "DEBUG_MSG_FUN @warmelt-first.melt:3546", MELT_ROUTDESCR_LEN - 1); - cdat->drout_2760__DEBUG_MSG_FUN.nbval = 1; - MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_2760__DEBUG_MSG_FUN, meltrout_62_warmelt_first_DEBUG_MSG_FUN); - - /*iniclos dclo_2761__DEBUG_MSG_FUN*/ - /*_.VALCLO___V2435*/ meltfptr[2434] = (void*)&cdat->dclo_2761__DEBUG_MSG_FUN; - cdat->dclo_2761__DEBUG_MSG_FUN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); - cdat->dclo_2761__DEBUG_MSG_FUN.nbval = 0; + cdat->dtup_2640__FOREACH_IN_MULTIPLE_BACKWARD.nbval = 2; + /*inistring dstr_2641__start_*/ + /*_.VALSTR___V2677*/ meltfptr[2676] = (void*)&cdat->dstr_2641__start_; + cdat->dstr_2641__start_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING)))); + strncpy(cdat->dstr_2641__start_.val, " /* start ", sizeof (cdat->dstr_2641__start_.val)-1); + + /*inistring dstr_2642__long_*/ + /*_.VALSTR___V2678*/ meltfptr[2677] = (void*)&cdat->dstr_2642__long_; + cdat->dstr_2642__long_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING)))); + strncpy(cdat->dstr_2642__long_.val, ": */\n long ", sizeof (cdat->dstr_2642__long_.val)-1); + + /*inistring dstr_2643__ln_melt_multi*/ + /*_.VALSTR___V2679*/ meltfptr[2678] = (void*)&cdat->dstr_2643__ln_melt_multi; + cdat->dstr_2643__ln_melt_multi.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING)))); + strncpy(cdat->dstr_2643__ln_melt_multi.val, "_ln = melt_multiple_length((melt_ptr_t)", sizeof (cdat->dstr_2643__ln_melt_multi.val)-1); + + /*inistring dstr_2644__long_*/ + /*_.VALSTR___V2680*/ meltfptr[2679] = (void*)&cdat->dstr_2644__long_; + cdat->dstr_2644__long_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING)))); + strncpy(cdat->dstr_2644__long_.val, ");\n long ", sizeof (cdat->dstr_2644__long_.val)-1); + + /*inistring dstr_2645__ix_0_for_*/ + /*_.VALSTR___V2681*/ meltfptr[2680] = (void*)&cdat->dstr_2645__ix_0_for_; + cdat->dstr_2645__ix_0_for_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING)))); + strncpy(cdat->dstr_2645__ix_0_for_.val, "_ix = 0;\n for (", sizeof (cdat->dstr_2645__ix_0_for_.val)-1); + + /*inistring dstr_2646__ix_*/ + /*_.VALSTR___V2682*/ meltfptr[2681] = (void*)&cdat->dstr_2646__ix_; + cdat->dstr_2646__ix_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING)))); + strncpy(cdat->dstr_2646__ix_.val, "_ix = ", sizeof (cdat->dstr_2646__ix_.val)-1); + + /*inistring dstr_2647__ln_1_*/ + /*_.VALSTR___V2683*/ meltfptr[2682] = (void*)&cdat->dstr_2647__ln_1_; + cdat->dstr_2647__ln_1_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING)))); + strncpy(cdat->dstr_2647__ln_1_.val, "_ln - 1; \n\t", sizeof (cdat->dstr_2647__ln_1_.val)-1); + + /*inistring dstr_2648__ix_0_*/ + /*_.VALSTR___V2684*/ meltfptr[2683] = (void*)&cdat->dstr_2648__ix_0_; + cdat->dstr_2648__ix_0_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING)))); + strncpy(cdat->dstr_2648__ix_0_.val, "_ix >= 0; \n\t", sizeof (cdat->dstr_2648__ix_0_.val)-1); + + /*inistring dstr_2649__ix_*/ + /*_.VALSTR___V2685*/ meltfptr[2684] = (void*)&cdat->dstr_2649__ix_; + cdat->dstr_2649__ix_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING)))); + strncpy(cdat->dstr_2649__ix_.val, "_ix--) {\n ", sizeof (cdat->dstr_2649__ix_.val)-1); + + /*inistring dstr_2650__melt_multiple*/ + /*_.VALSTR___V2686*/ meltfptr[2685] = (void*)&cdat->dstr_2650__melt_multiple; + cdat->dstr_2650__melt_multiple.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING)))); + strncpy(cdat->dstr_2650__melt_multiple.val, " = melt_multiple_nth((melt_ptr_t)(", sizeof (cdat->dstr_2650__melt_multiple.val)-1); + + /*inistring dstr_2651__*/ + /*_.VALSTR___V2687*/ meltfptr[2686] = (void*)&cdat->dstr_2651__; + cdat->dstr_2651__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING)))); + strncpy(cdat->dstr_2651__.val, "), ", sizeof (cdat->dstr_2651__.val)-1); + + /*inistring dstr_2652__ix_*/ + /*_.VALSTR___V2688*/ meltfptr[2687] = (void*)&cdat->dstr_2652__ix_; + cdat->dstr_2652__ix_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING)))); + strncpy(cdat->dstr_2652__ix_.val, "_ix);\n ", sizeof (cdat->dstr_2652__ix_.val)-1); + + /*inistring dstr_2653__*/ + /*_.VALSTR___V2689*/ meltfptr[2688] = (void*)&cdat->dstr_2653__; + cdat->dstr_2653__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING)))); + strncpy(cdat->dstr_2653__.val, " = ", sizeof (cdat->dstr_2653__.val)-1); + + /*inistring dstr_2654__ix_*/ + /*_.VALSTR___V2690*/ meltfptr[2689] = (void*)&cdat->dstr_2654__ix_; + cdat->dstr_2654__ix_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING)))); + strncpy(cdat->dstr_2654__ix_.val, "_ix;", sizeof (cdat->dstr_2654__ix_.val)-1); + + /*inimult dtup_2655__FOREACH_IN_MULTIPLE_BACKWARD*/ + /*_.VALTUP___V2691*/ meltfptr[2690] = (void*)&cdat->dtup_2655__FOREACH_IN_MULTIPLE_BACKWARD; + cdat->dtup_2655__FOREACH_IN_MULTIPLE_BACKWARD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE)))); + cdat->dtup_2655__FOREACH_IN_MULTIPLE_BACKWARD.nbval = 27; + /*inistring dstr_2656__end_*/ + /*_.VALSTR___V2692*/ meltfptr[2691] = (void*)&cdat->dstr_2656__end_; + cdat->dstr_2656__end_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING)))); + strncpy(cdat->dstr_2656__end_.val, " } /* end ", sizeof (cdat->dstr_2656__end_.val)-1); + + /*inistring dstr_2657__*/ + /*_.VALSTR___V2693*/ meltfptr[2692] = (void*)&cdat->dstr_2657__; + cdat->dstr_2657__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING)))); + strncpy(cdat->dstr_2657__.val, " */ ", sizeof (cdat->dstr_2657__.val)-1); + + /*inimult dtup_2658__FOREACH_IN_MULTIPLE_BACKWARD*/ + /*_.VALTUP___V2694*/ meltfptr[2693] = (void*)&cdat->dtup_2658__FOREACH_IN_MULTIPLE_BACKWARD; + cdat->dtup_2658__FOREACH_IN_MULTIPLE_BACKWARD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE)))); + cdat->dtup_2658__FOREACH_IN_MULTIPLE_BACKWARD.nbval = 3; + /*inirout drout_2659__MULTIPLE_ITERATE_TEST*/ + /*_.VALROUT___V2695*/ meltfptr[2694] = (void*)&cdat->drout_2659__MULTIPLE_ITERATE_TEST; + cdat->drout_2659__MULTIPLE_ITERATE_TEST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); + strncpy(cdat->drout_2659__MULTIPLE_ITERATE_TEST.routdescr, "MULTIPLE_ITERATE_TEST @warmelt-first.melt:2837", MELT_ROUTDESCR_LEN - 1); + cdat->drout_2659__MULTIPLE_ITERATE_TEST.nbval = 0; + MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_2659__MULTIPLE_ITERATE_TEST, meltrout_44_warmelt_first_MULTIPLE_ITERATE_TEST); + + /*iniclos dclo_2660__MULTIPLE_ITERATE_TEST*/ + /*_.VALCLO___V2696*/ meltfptr[2695] = (void*)&cdat->dclo_2660__MULTIPLE_ITERATE_TEST; + cdat->dclo_2660__MULTIPLE_ITERATE_TEST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); + cdat->dclo_2660__MULTIPLE_ITERATE_TEST.nbval = 0; + + /*inirout drout_2661__MULTIPLE_MAP*/ + /*_.VALROUT___V2579*/ meltfptr[2578] = (void*)&cdat->drout_2661__MULTIPLE_MAP; + cdat->drout_2661__MULTIPLE_MAP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); + strncpy(cdat->drout_2661__MULTIPLE_MAP.routdescr, "MULTIPLE_MAP @warmelt-first.melt:2854", MELT_ROUTDESCR_LEN - 1); + cdat->drout_2661__MULTIPLE_MAP.nbval = 1; + MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_2661__MULTIPLE_MAP, meltrout_45_warmelt_first_MULTIPLE_MAP); + + /*iniclos dclo_2662__MULTIPLE_MAP*/ + /*_.VALCLO___V2578*/ meltfptr[2577] = (void*)&cdat->dclo_2662__MULTIPLE_MAP; + cdat->dclo_2662__MULTIPLE_MAP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); + cdat->dclo_2662__MULTIPLE_MAP.nbval = 0; + + /*inirout drout_2663__MULTIPLE_TO_LIST*/ + /*_.VALROUT___V2697*/ meltfptr[2696] = (void*)&cdat->drout_2663__MULTIPLE_TO_LIST; + cdat->drout_2663__MULTIPLE_TO_LIST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); + strncpy(cdat->drout_2663__MULTIPLE_TO_LIST.routdescr, "MULTIPLE_TO_LIST @warmelt-first.melt:2871", MELT_ROUTDESCR_LEN - 1); + cdat->drout_2663__MULTIPLE_TO_LIST.nbval = 1; + MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_2663__MULTIPLE_TO_LIST, meltrout_46_warmelt_first_MULTIPLE_TO_LIST); + + /*iniclos dclo_2664__MULTIPLE_TO_LIST*/ + /*_.VALCLO___V2698*/ meltfptr[2697] = (void*)&cdat->dclo_2664__MULTIPLE_TO_LIST; + cdat->dclo_2664__MULTIPLE_TO_LIST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); + cdat->dclo_2664__MULTIPLE_TO_LIST.nbval = 0; + + /*inirout drout_2665__CLOSURE_EVERY*/ + /*_.VALROUT___V2699*/ meltfptr[2698] = (void*)&cdat->drout_2665__CLOSURE_EVERY; + cdat->drout_2665__CLOSURE_EVERY.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); + strncpy(cdat->drout_2665__CLOSURE_EVERY.routdescr, "CLOSURE_EVERY @warmelt-first.melt:2889", MELT_ROUTDESCR_LEN - 1); + cdat->drout_2665__CLOSURE_EVERY.nbval = 0; + MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_2665__CLOSURE_EVERY, meltrout_47_warmelt_first_CLOSURE_EVERY); + + /*iniclos dclo_2666__CLOSURE_EVERY*/ + /*_.VALCLO___V2700*/ meltfptr[2699] = (void*)&cdat->dclo_2666__CLOSURE_EVERY; + cdat->dclo_2666__CLOSURE_EVERY.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); + cdat->dclo_2666__CLOSURE_EVERY.nbval = 0; + + /*inirout drout_2667__ROUTINE_EVERY*/ + /*_.VALROUT___V2701*/ meltfptr[2700] = (void*)&cdat->drout_2667__ROUTINE_EVERY; + cdat->drout_2667__ROUTINE_EVERY.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); + strncpy(cdat->drout_2667__ROUTINE_EVERY.routdescr, "ROUTINE_EVERY @warmelt-first.melt:2902", MELT_ROUTDESCR_LEN - 1); + cdat->drout_2667__ROUTINE_EVERY.nbval = 0; + MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_2667__ROUTINE_EVERY, meltrout_48_warmelt_first_ROUTINE_EVERY); + + /*iniclos dclo_2668__ROUTINE_EVERY*/ + /*_.VALCLO___V2702*/ meltfptr[2701] = (void*)&cdat->dclo_2668__ROUTINE_EVERY; + cdat->dclo_2668__ROUTINE_EVERY.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); + cdat->dclo_2668__ROUTINE_EVERY.nbval = 0; + + /*inirout drout_2669__INSTALL_METHOD*/ + /*_.VALROUT___V2703*/ meltfptr[2702] = (void*)&cdat->drout_2669__INSTALL_METHOD; + cdat->drout_2669__INSTALL_METHOD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); + strncpy(cdat->drout_2669__INSTALL_METHOD.routdescr, "INSTALL_METHOD @warmelt-first.melt:2914", MELT_ROUTDESCR_LEN - 1); + cdat->drout_2669__INSTALL_METHOD.nbval = 3; + MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_2669__INSTALL_METHOD, meltrout_49_warmelt_first_INSTALL_METHOD); + + /*iniclos dclo_2670__INSTALL_METHOD*/ + /*_.VALCLO___V2704*/ meltfptr[2703] = (void*)&cdat->dclo_2670__INSTALL_METHOD; + cdat->dclo_2670__INSTALL_METHOD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); + cdat->dclo_2670__INSTALL_METHOD.nbval = 0; + + /*inirout drout_2671__COMPARE_OBJ_RANKED*/ + /*_.VALROUT___V2576*/ meltfptr[2575] = (void*)&cdat->drout_2671__COMPARE_OBJ_RANKED; + cdat->drout_2671__COMPARE_OBJ_RANKED.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); + strncpy(cdat->drout_2671__COMPARE_OBJ_RANKED.routdescr, "COMPARE_OBJ_RANKED @warmelt-first.melt:2935", MELT_ROUTDESCR_LEN - 1); + cdat->drout_2671__COMPARE_OBJ_RANKED.nbval = 4; + MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_2671__COMPARE_OBJ_RANKED, meltrout_50_warmelt_first_COMPARE_OBJ_RANKED); + + /*iniclos dclo_2672__COMPARE_OBJ_RANKED*/ + /*_.VALCLO___V2575*/ meltfptr[2574] = (void*)&cdat->dclo_2672__COMPARE_OBJ_RANKED; + cdat->dclo_2672__COMPARE_OBJ_RANKED.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); + cdat->dclo_2672__COMPARE_OBJ_RANKED.nbval = 0; + + /*inirout drout_2673__MAPOBJECT_SORTED_ATTRIBUTE_TUPLE*/ + /*_.VALROUT___V2571*/ meltfptr[2570] = (void*)&cdat->drout_2673__MAPOBJECT_SORTED_ATTRIBUTE_TUPLE; + cdat->drout_2673__MAPOBJECT_SORTED_ATTRIBUTE_TUPLE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); + strncpy(cdat->drout_2673__MAPOBJECT_SORTED_ATTRIBUTE_TUPLE.routdescr, "MAPOBJECT_SORTED_ATTRIBUTE_TUPLE @warmelt-first.melt:3017", MELT_ROUTDESCR_LEN - 1); + cdat->drout_2673__MAPOBJECT_SORTED_ATTRIBUTE_TUPLE.nbval = 9; + MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_2673__MAPOBJECT_SORTED_ATTRIBUTE_TUPLE, meltrout_51_warmelt_first_MAPOBJECT_SORTED_ATTRIBUTE_TUPLE); + + /*iniclos dclo_2674__MAPOBJECT_SORTED_ATTRIBUTE_TUPLE*/ + /*_.VALCLO___V2570*/ meltfptr[2569] = (void*)&cdat->dclo_2674__MAPOBJECT_SORTED_ATTRIBUTE_TUPLE; + cdat->dclo_2674__MAPOBJECT_SORTED_ATTRIBUTE_TUPLE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); + cdat->dclo_2674__MAPOBJECT_SORTED_ATTRIBUTE_TUPLE.nbval = 0; + + /*inirout drout_2675__LAMBDA_*/ + /*_.VALROUT___V2574*/ meltfptr[2573] = (void*)&cdat->drout_2675__LAMBDA_; + cdat->drout_2675__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); + strncpy(cdat->drout_2675__LAMBDA_.routdescr, "LAMBDA_ @warmelt-first.melt:3031", MELT_ROUTDESCR_LEN - 1); + cdat->drout_2675__LAMBDA_.nbval = 1; + MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_2675__LAMBDA_, meltrout_52_warmelt_first_LAMBDA_); + + /*inirout drout_2676__LAMBDA_*/ + /*_.VALROUT___V2577*/ meltfptr[2576] = (void*)&cdat->drout_2676__LAMBDA_; + cdat->drout_2676__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); + strncpy(cdat->drout_2676__LAMBDA_.routdescr, "LAMBDA_ @warmelt-first.melt:3043", MELT_ROUTDESCR_LEN - 1); + cdat->drout_2676__LAMBDA_.nbval = 1; + MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_2676__LAMBDA_, meltrout_53_warmelt_first_LAMBDA_); + + /*inirout drout_2677__LAMBDA_*/ + /*_.VALROUT___V2580*/ meltfptr[2579] = (void*)&cdat->drout_2677__LAMBDA_; + cdat->drout_2677__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); + strncpy(cdat->drout_2677__LAMBDA_.routdescr, "LAMBDA_ @warmelt-first.melt:3056", MELT_ROUTDESCR_LEN - 1); + cdat->drout_2677__LAMBDA_.nbval = 0; + MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_2677__LAMBDA_, meltrout_54_warmelt_first_LAMBDA_); + + /*inirout drout_2678__FRESH_ENV*/ + /*_.VALROUT___V2464*/ meltfptr[2463] = (void*)&cdat->drout_2678__FRESH_ENV; + cdat->drout_2678__FRESH_ENV.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); + strncpy(cdat->drout_2678__FRESH_ENV.routdescr, "FRESH_ENV @warmelt-first.melt:3070", MELT_ROUTDESCR_LEN - 1); + cdat->drout_2678__FRESH_ENV.nbval = 3; + MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_2678__FRESH_ENV, meltrout_55_warmelt_first_FRESH_ENV); + + /*iniclos dclo_2679__FRESH_ENV*/ + /*_.VALCLO___V2463*/ meltfptr[2462] = (void*)&cdat->dclo_2679__FRESH_ENV; + cdat->dclo_2679__FRESH_ENV.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); + cdat->dclo_2679__FRESH_ENV.nbval = 0; + + /*iniobj dsym_2680__INITIAL_ENVIRONMENT*/ +/*uniqueobj*/ if (!/*_.VALDATA___V2705*/ meltfptr[2704]) /*_.VALDATA___V2705*/ meltfptr[2704] = (void*)&cdat->dsym_2680__INITIAL_ENVIRONMENT; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2680__INITIAL_ENVIRONMENT", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2680__INITIAL_ENVIRONMENT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); + cdat->dsym_2680__INITIAL_ENVIRONMENT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_2680__INITIAL_ENVIRONMENT.obj_hash = 756729242; + cdat->dsym_2680__INITIAL_ENVIRONMENT.obj_len = 3; + + /*inistring dstr_2681__INITIAL_ENVIRONM*/ + /*_.VALSTR___V2706*/ meltfptr[2705] = (void*)&cdat->dstr_2681__INITIAL_ENVIRONM; + cdat->dstr_2681__INITIAL_ENVIRONM.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2681__INITIAL_ENVIRONM.val, "INITIAL_ENVIRONMENT", sizeof (cdat->dstr_2681__INITIAL_ENVIRONM.val)-1); + + MELT_LOCATION("warmelt-first.melt:3085:/ iniobj"); + /*iniobj dobj_2682__INITIAL_ENVIRONMENT*/ +/*_.VALDATA___V2707*/ meltfptr[2706] = (void*)&cdat->dobj_2682__INITIAL_ENVIRONMENT; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2682__INITIAL_ENVIRONMENT", melt_magic_discr (/*_.VALDATA___V497*/ meltfptr[496]) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2682__INITIAL_ENVIRONMENT", ((meltobject_ptr_t) (/*_.VALDATA___V497*/ meltfptr[496]))->object_magic == OBMAG_OBJECT); + cdat->dobj_2682__INITIAL_ENVIRONMENT.obj_class = (meltobject_ptr_t)(/*_.VALDATA___V497*/ meltfptr[496]); + cdat->dobj_2682__INITIAL_ENVIRONMENT.obj_hash = 944365679; + cdat->dobj_2682__INITIAL_ENVIRONMENT.obj_len = 4; + + /*inistring dstr_2683__Initial_Environm*/ + /*_.VALSTR___V2709*/ meltfptr[2708] = (void*)&cdat->dstr_2683__Initial_Environm; + cdat->dstr_2683__Initial_Environm.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2683__Initial_Environm.val, "Initial Environment", sizeof (cdat->dstr_2683__Initial_Environm.val)-1); + + /*inirout drout_2684__FIND_ENV*/ + /*_.VALROUT___V2468*/ meltfptr[2467] = (void*)&cdat->drout_2684__FIND_ENV; + cdat->drout_2684__FIND_ENV.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); + strncpy(cdat->drout_2684__FIND_ENV.routdescr, "FIND_ENV @warmelt-first.melt:3092", MELT_ROUTDESCR_LEN - 1); + cdat->drout_2684__FIND_ENV.nbval = 1; + MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_2684__FIND_ENV, meltrout_56_warmelt_first_FIND_ENV); + + /*iniclos dclo_2685__FIND_ENV*/ + /*_.VALCLO___V2467*/ meltfptr[2466] = (void*)&cdat->dclo_2685__FIND_ENV; + cdat->dclo_2685__FIND_ENV.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); + cdat->dclo_2685__FIND_ENV.nbval = 0; + + /*inirout drout_2686__FIND_ENV_DEBUG*/ + /*_.VALROUT___V2710*/ meltfptr[2709] = (void*)&cdat->drout_2686__FIND_ENV_DEBUG; + cdat->drout_2686__FIND_ENV_DEBUG.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); + strncpy(cdat->drout_2686__FIND_ENV_DEBUG.routdescr, "FIND_ENV_DEBUG @warmelt-first.melt:3115", MELT_ROUTDESCR_LEN - 1); + cdat->drout_2686__FIND_ENV_DEBUG.nbval = 2; + MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_2686__FIND_ENV_DEBUG, meltrout_57_warmelt_first_FIND_ENV_DEBUG); + + /*iniclos dclo_2687__FIND_ENV_DEBUG*/ + /*_.VALCLO___V2711*/ meltfptr[2710] = (void*)&cdat->dclo_2687__FIND_ENV_DEBUG; + cdat->dclo_2687__FIND_ENV_DEBUG.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); + cdat->dclo_2687__FIND_ENV_DEBUG.nbval = 0; + + /*inirout drout_2688__FIND_ENCLOSING_ENV*/ + /*_.VALROUT___V2712*/ meltfptr[2711] = (void*)&cdat->drout_2688__FIND_ENCLOSING_ENV; + cdat->drout_2688__FIND_ENCLOSING_ENV.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); + strncpy(cdat->drout_2688__FIND_ENCLOSING_ENV.routdescr, "FIND_ENCLOSING_ENV @warmelt-first.melt:3142", MELT_ROUTDESCR_LEN - 1); + cdat->drout_2688__FIND_ENCLOSING_ENV.nbval = 2; + MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_2688__FIND_ENCLOSING_ENV, meltrout_58_warmelt_first_FIND_ENCLOSING_ENV); + + /*iniclos dclo_2689__FIND_ENCLOSING_ENV*/ + /*_.VALCLO___V2713*/ meltfptr[2712] = (void*)&cdat->dclo_2689__FIND_ENCLOSING_ENV; + cdat->dclo_2689__FIND_ENCLOSING_ENV.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); + cdat->dclo_2689__FIND_ENCLOSING_ENV.nbval = 0; + + /*inirout drout_2690__PUT_ENV*/ + /*_.VALROUT___V2470*/ meltfptr[2469] = (void*)&cdat->drout_2690__PUT_ENV; + cdat->drout_2690__PUT_ENV.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); + strncpy(cdat->drout_2690__PUT_ENV.routdescr, "PUT_ENV @warmelt-first.melt:3161", MELT_ROUTDESCR_LEN - 1); + cdat->drout_2690__PUT_ENV.nbval = 4; + MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_2690__PUT_ENV, meltrout_59_warmelt_first_PUT_ENV); + + /*iniclos dclo_2691__PUT_ENV*/ + /*_.VALCLO___V2469*/ meltfptr[2468] = (void*)&cdat->dclo_2691__PUT_ENV; + cdat->dclo_2691__PUT_ENV.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); + cdat->dclo_2691__PUT_ENV.nbval = 0; + + /*inirout drout_2692__OVERWRITE_ENV*/ + /*_.VALROUT___V2714*/ meltfptr[2713] = (void*)&cdat->drout_2692__OVERWRITE_ENV; + cdat->drout_2692__OVERWRITE_ENV.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); + strncpy(cdat->drout_2692__OVERWRITE_ENV.routdescr, "OVERWRITE_ENV @warmelt-first.melt:3186", MELT_ROUTDESCR_LEN - 1); + cdat->drout_2692__OVERWRITE_ENV.nbval = 3; + MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_2692__OVERWRITE_ENV, meltrout_60_warmelt_first_OVERWRITE_ENV); + + /*iniclos dclo_2693__OVERWRITE_ENV*/ + /*_.VALCLO___V2715*/ meltfptr[2714] = (void*)&cdat->dclo_2693__OVERWRITE_ENV; + cdat->dclo_2693__OVERWRITE_ENV.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); + cdat->dclo_2693__OVERWRITE_ENV.nbval = 0; + + /*inirout drout_2694__POST_INITIALIZATION*/ + /*_.VALROUT___V2716*/ meltfptr[2715] = (void*)&cdat->drout_2694__POST_INITIALIZATION; + cdat->drout_2694__POST_INITIALIZATION.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); + strncpy(cdat->drout_2694__POST_INITIALIZATION.routdescr, "POST_INITIALIZATION @warmelt-first.melt:3219", MELT_ROUTDESCR_LEN - 1); + cdat->drout_2694__POST_INITIALIZATION.nbval = 4; + MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_2694__POST_INITIALIZATION, meltrout_61_warmelt_first_POST_INITIALIZATION); + + /*iniclos dclo_2695__POST_INITIALIZATION*/ + /*_.VALCLO___V2717*/ meltfptr[2716] = (void*)&cdat->dclo_2695__POST_INITIALIZATION; + cdat->dclo_2695__POST_INITIALIZATION.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); + cdat->dclo_2695__POST_INITIALIZATION.nbval = 0; + + /*iniobj dsym_2696__LIST_FIND*/ +/*uniqueobj*/ if (!/*_.VALDATA___V2718*/ meltfptr[2717]) /*_.VALDATA___V2718*/ meltfptr[2717] = (void*)&cdat->dsym_2696__LIST_FIND; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2696__LIST_FIND", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2696__LIST_FIND", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); + cdat->dsym_2696__LIST_FIND.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_2696__LIST_FIND.obj_hash = 430964501; + cdat->dsym_2696__LIST_FIND.obj_len = 3; + + /*inistring dstr_2697__LIST_FIND*/ + /*_.VALSTR___V2719*/ meltfptr[2718] = (void*)&cdat->dstr_2697__LIST_FIND; + cdat->dstr_2697__LIST_FIND.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2697__LIST_FIND.val, "LIST_FIND", sizeof (cdat->dstr_2697__LIST_FIND.val)-1); + + /*iniobj dsym_2698__AT_EXIT_FIRST*/ +/*uniqueobj*/ if (!/*_.VALDATA___V2720*/ meltfptr[2719]) /*_.VALDATA___V2720*/ meltfptr[2719] = (void*)&cdat->dsym_2698__AT_EXIT_FIRST; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2698__AT_EXIT_FIRST", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2698__AT_EXIT_FIRST", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); + cdat->dsym_2698__AT_EXIT_FIRST.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_2698__AT_EXIT_FIRST.obj_hash = 229908354; + cdat->dsym_2698__AT_EXIT_FIRST.obj_len = 3; + + /*inistring dstr_2699__AT_EXIT_FIRST*/ + /*_.VALSTR___V2721*/ meltfptr[2720] = (void*)&cdat->dstr_2699__AT_EXIT_FIRST; + cdat->dstr_2699__AT_EXIT_FIRST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2699__AT_EXIT_FIRST.val, "AT_EXIT_FIRST", sizeof (cdat->dstr_2699__AT_EXIT_FIRST.val)-1); + + /*iniobj dsym_2700__AT_EXIT_LAST*/ +/*uniqueobj*/ if (!/*_.VALDATA___V2722*/ meltfptr[2721]) /*_.VALDATA___V2722*/ meltfptr[2721] = (void*)&cdat->dsym_2700__AT_EXIT_LAST; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2700__AT_EXIT_LAST", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2700__AT_EXIT_LAST", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); + cdat->dsym_2700__AT_EXIT_LAST.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_2700__AT_EXIT_LAST.obj_hash = 554176281; + cdat->dsym_2700__AT_EXIT_LAST.obj_len = 3; + + /*inistring dstr_2701__AT_EXIT_LAST*/ + /*_.VALSTR___V2723*/ meltfptr[2722] = (void*)&cdat->dstr_2701__AT_EXIT_LAST; + cdat->dstr_2701__AT_EXIT_LAST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2701__AT_EXIT_LAST.val, "AT_EXIT_LAST", sizeof (cdat->dstr_2701__AT_EXIT_LAST.val)-1); + + /*iniobj dsym_2702__AT_FINISH_UNIT_FIRST*/ +/*uniqueobj*/ if (!/*_.VALDATA___V2724*/ meltfptr[2723]) /*_.VALDATA___V2724*/ meltfptr[2723] = (void*)&cdat->dsym_2702__AT_FINISH_UNIT_FIRST; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2702__AT_FINISH_UNIT_FIRST", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2702__AT_FINISH_UNIT_FIRST", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); + cdat->dsym_2702__AT_FINISH_UNIT_FIRST.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_2702__AT_FINISH_UNIT_FIRST.obj_hash = 390084996; + cdat->dsym_2702__AT_FINISH_UNIT_FIRST.obj_len = 3; + + /*inistring dstr_2703__AT_FINISH_UNIT_F*/ + /*_.VALSTR___V2725*/ meltfptr[2724] = (void*)&cdat->dstr_2703__AT_FINISH_UNIT_F; + cdat->dstr_2703__AT_FINISH_UNIT_F.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2703__AT_FINISH_UNIT_F.val, "AT_FINISH_UNIT_FIRST", sizeof (cdat->dstr_2703__AT_FINISH_UNIT_F.val)-1); + + /*iniobj dsym_2704__AT_FINISH_UNIT_LAST*/ +/*uniqueobj*/ if (!/*_.VALDATA___V2726*/ meltfptr[2725]) /*_.VALDATA___V2726*/ meltfptr[2725] = (void*)&cdat->dsym_2704__AT_FINISH_UNIT_LAST; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2704__AT_FINISH_UNIT_LAST", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2704__AT_FINISH_UNIT_LAST", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); + cdat->dsym_2704__AT_FINISH_UNIT_LAST.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_2704__AT_FINISH_UNIT_LAST.obj_hash = 264295221; + cdat->dsym_2704__AT_FINISH_UNIT_LAST.obj_len = 3; + + /*inistring dstr_2705__AT_FINISH_UNIT_L*/ + /*_.VALSTR___V2727*/ meltfptr[2726] = (void*)&cdat->dstr_2705__AT_FINISH_UNIT_L; + cdat->dstr_2705__AT_FINISH_UNIT_L.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2705__AT_FINISH_UNIT_L.val, "AT_FINISH_UNIT_LAST", sizeof (cdat->dstr_2705__AT_FINISH_UNIT_L.val)-1); + + /*iniobj dsym_2706__AT_START_UNIT_FIRST*/ +/*uniqueobj*/ if (!/*_.VALDATA___V2728*/ meltfptr[2727]) /*_.VALDATA___V2728*/ meltfptr[2727] = (void*)&cdat->dsym_2706__AT_START_UNIT_FIRST; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2706__AT_START_UNIT_FIRST", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2706__AT_START_UNIT_FIRST", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); + cdat->dsym_2706__AT_START_UNIT_FIRST.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_2706__AT_START_UNIT_FIRST.obj_hash = 5283802; + cdat->dsym_2706__AT_START_UNIT_FIRST.obj_len = 3; + + /*inistring dstr_2707__AT_START_UNIT_FI*/ + /*_.VALSTR___V2729*/ meltfptr[2728] = (void*)&cdat->dstr_2707__AT_START_UNIT_FI; + cdat->dstr_2707__AT_START_UNIT_FI.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2707__AT_START_UNIT_FI.val, "AT_START_UNIT_FIRST", sizeof (cdat->dstr_2707__AT_START_UNIT_FI.val)-1); + + /*iniobj dsym_2708__AT_START_UNIT_LAST*/ +/*uniqueobj*/ if (!/*_.VALDATA___V2730*/ meltfptr[2729]) /*_.VALDATA___V2730*/ meltfptr[2729] = (void*)&cdat->dsym_2708__AT_START_UNIT_LAST; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2708__AT_START_UNIT_LAST", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2708__AT_START_UNIT_LAST", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); + cdat->dsym_2708__AT_START_UNIT_LAST.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_2708__AT_START_UNIT_LAST.obj_hash = 1055760715; + cdat->dsym_2708__AT_START_UNIT_LAST.obj_len = 3; + + /*inistring dstr_2709__AT_START_UNIT_LA*/ + /*_.VALSTR___V2731*/ meltfptr[2730] = (void*)&cdat->dstr_2709__AT_START_UNIT_LA; + cdat->dstr_2709__AT_START_UNIT_LA.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2709__AT_START_UNIT_LA.val, "AT_START_UNIT_LAST", sizeof (cdat->dstr_2709__AT_START_UNIT_LA.val)-1); + + /*iniobj dsym_2710__CLONE_SYMBOL*/ +/*uniqueobj*/ if (!/*_.VALDATA___V2732*/ meltfptr[2731]) /*_.VALDATA___V2732*/ meltfptr[2731] = (void*)&cdat->dsym_2710__CLONE_SYMBOL; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2710__CLONE_SYMBOL", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2710__CLONE_SYMBOL", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); + cdat->dsym_2710__CLONE_SYMBOL.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_2710__CLONE_SYMBOL.obj_hash = 213258240; + cdat->dsym_2710__CLONE_SYMBOL.obj_len = 3; + + /*inistring dstr_2711__CLONE_SYMBOL*/ + /*_.VALSTR___V2733*/ meltfptr[2732] = (void*)&cdat->dstr_2711__CLONE_SYMBOL; + cdat->dstr_2711__CLONE_SYMBOL.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2711__CLONE_SYMBOL.val, "CLONE_SYMBOL", sizeof (cdat->dstr_2711__CLONE_SYMBOL.val)-1); + + /*iniobj dsym_2712__CLOSURE_EVERY*/ +/*uniqueobj*/ if (!/*_.VALDATA___V2734*/ meltfptr[2733]) /*_.VALDATA___V2734*/ meltfptr[2733] = (void*)&cdat->dsym_2712__CLOSURE_EVERY; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2712__CLOSURE_EVERY", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2712__CLOSURE_EVERY", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); + cdat->dsym_2712__CLOSURE_EVERY.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_2712__CLOSURE_EVERY.obj_hash = 729040422; + cdat->dsym_2712__CLOSURE_EVERY.obj_len = 3; + + /*inistring dstr_2713__CLOSURE_EVERY*/ + /*_.VALSTR___V2735*/ meltfptr[2734] = (void*)&cdat->dstr_2713__CLOSURE_EVERY; + cdat->dstr_2713__CLOSURE_EVERY.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2713__CLOSURE_EVERY.val, "CLOSURE_EVERY", sizeof (cdat->dstr_2713__CLOSURE_EVERY.val)-1); + + /*iniobj dsym_2714__COMPARE_OBJ_RANKED*/ +/*uniqueobj*/ if (!/*_.VALDATA___V2736*/ meltfptr[2735]) /*_.VALDATA___V2736*/ meltfptr[2735] = (void*)&cdat->dsym_2714__COMPARE_OBJ_RANKED; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2714__COMPARE_OBJ_RANKED", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2714__COMPARE_OBJ_RANKED", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); + cdat->dsym_2714__COMPARE_OBJ_RANKED.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_2714__COMPARE_OBJ_RANKED.obj_hash = 657124045; + cdat->dsym_2714__COMPARE_OBJ_RANKED.obj_len = 3; + + /*inistring dstr_2715__COMPARE_OBJ_RANK*/ + /*_.VALSTR___V2737*/ meltfptr[2736] = (void*)&cdat->dstr_2715__COMPARE_OBJ_RANK; + cdat->dstr_2715__COMPARE_OBJ_RANK.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2715__COMPARE_OBJ_RANK.val, "COMPARE_OBJ_RANKED", sizeof (cdat->dstr_2715__COMPARE_OBJ_RANK.val)-1); + + /*iniobj dsym_2716__FIND_ENCLOSING_ENV*/ +/*uniqueobj*/ if (!/*_.VALDATA___V2738*/ meltfptr[2737]) /*_.VALDATA___V2738*/ meltfptr[2737] = (void*)&cdat->dsym_2716__FIND_ENCLOSING_ENV; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2716__FIND_ENCLOSING_ENV", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2716__FIND_ENCLOSING_ENV", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); + cdat->dsym_2716__FIND_ENCLOSING_ENV.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_2716__FIND_ENCLOSING_ENV.obj_hash = 227770701; + cdat->dsym_2716__FIND_ENCLOSING_ENV.obj_len = 3; + + /*inistring dstr_2717__FIND_ENCLOSING_E*/ + /*_.VALSTR___V2739*/ meltfptr[2738] = (void*)&cdat->dstr_2717__FIND_ENCLOSING_E; + cdat->dstr_2717__FIND_ENCLOSING_E.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2717__FIND_ENCLOSING_E.val, "FIND_ENCLOSING_ENV", sizeof (cdat->dstr_2717__FIND_ENCLOSING_E.val)-1); + + /*iniobj dsym_2718__FIND_ENV*/ +/*uniqueobj*/ if (!/*_.VALDATA___V2740*/ meltfptr[2739]) /*_.VALDATA___V2740*/ meltfptr[2739] = (void*)&cdat->dsym_2718__FIND_ENV; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2718__FIND_ENV", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2718__FIND_ENV", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); + cdat->dsym_2718__FIND_ENV.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_2718__FIND_ENV.obj_hash = 233459738; + cdat->dsym_2718__FIND_ENV.obj_len = 3; + + /*inistring dstr_2719__FIND_ENV*/ + /*_.VALSTR___V2741*/ meltfptr[2740] = (void*)&cdat->dstr_2719__FIND_ENV; + cdat->dstr_2719__FIND_ENV.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2719__FIND_ENV.val, "FIND_ENV", sizeof (cdat->dstr_2719__FIND_ENV.val)-1); + + /*iniobj dsym_2720__FIND_ENV_DEBUG*/ +/*uniqueobj*/ if (!/*_.VALDATA___V2742*/ meltfptr[2741]) /*_.VALDATA___V2742*/ meltfptr[2741] = (void*)&cdat->dsym_2720__FIND_ENV_DEBUG; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2720__FIND_ENV_DEBUG", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2720__FIND_ENV_DEBUG", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); + cdat->dsym_2720__FIND_ENV_DEBUG.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_2720__FIND_ENV_DEBUG.obj_hash = 670001916; + cdat->dsym_2720__FIND_ENV_DEBUG.obj_len = 3; + + /*inistring dstr_2721__FIND_ENV_DEBUG*/ + /*_.VALSTR___V2743*/ meltfptr[2742] = (void*)&cdat->dstr_2721__FIND_ENV_DEBUG; + cdat->dstr_2721__FIND_ENV_DEBUG.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2721__FIND_ENV_DEBUG.val, "FIND_ENV_DEBUG", sizeof (cdat->dstr_2721__FIND_ENV_DEBUG.val)-1); + + /*iniobj dsym_2722__FRESH_ENV*/ +/*uniqueobj*/ if (!/*_.VALDATA___V2744*/ meltfptr[2743]) /*_.VALDATA___V2744*/ meltfptr[2743] = (void*)&cdat->dsym_2722__FRESH_ENV; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2722__FRESH_ENV", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2722__FRESH_ENV", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); + cdat->dsym_2722__FRESH_ENV.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_2722__FRESH_ENV.obj_hash = 1002363940; + cdat->dsym_2722__FRESH_ENV.obj_len = 3; + + /*inistring dstr_2723__FRESH_ENV*/ + /*_.VALSTR___V2745*/ meltfptr[2744] = (void*)&cdat->dstr_2723__FRESH_ENV; + cdat->dstr_2723__FRESH_ENV.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2723__FRESH_ENV.val, "FRESH_ENV", sizeof (cdat->dstr_2723__FRESH_ENV.val)-1); + + /*iniobj dsym_2724__INSTALL_CTYPE_DESCR*/ +/*uniqueobj*/ if (!/*_.VALDATA___V2746*/ meltfptr[2745]) /*_.VALDATA___V2746*/ meltfptr[2745] = (void*)&cdat->dsym_2724__INSTALL_CTYPE_DESCR; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2724__INSTALL_CTYPE_DESCR", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2724__INSTALL_CTYPE_DESCR", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); + cdat->dsym_2724__INSTALL_CTYPE_DESCR.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_2724__INSTALL_CTYPE_DESCR.obj_hash = 1019986423; + cdat->dsym_2724__INSTALL_CTYPE_DESCR.obj_len = 3; + + /*inistring dstr_2725__INSTALL_CTYPE_DE*/ + /*_.VALSTR___V2747*/ meltfptr[2746] = (void*)&cdat->dstr_2725__INSTALL_CTYPE_DE; + cdat->dstr_2725__INSTALL_CTYPE_DE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2725__INSTALL_CTYPE_DE.val, "INSTALL_CTYPE_DESCR", sizeof (cdat->dstr_2725__INSTALL_CTYPE_DE.val)-1); + + /*iniobj dsym_2726__INSTALL_METHOD*/ +/*uniqueobj*/ if (!/*_.VALDATA___V2748*/ meltfptr[2747]) /*_.VALDATA___V2748*/ meltfptr[2747] = (void*)&cdat->dsym_2726__INSTALL_METHOD; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2726__INSTALL_METHOD", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2726__INSTALL_METHOD", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); + cdat->dsym_2726__INSTALL_METHOD.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_2726__INSTALL_METHOD.obj_hash = 680699224; + cdat->dsym_2726__INSTALL_METHOD.obj_len = 3; + + /*inistring dstr_2727__INSTALL_METHOD*/ + /*_.VALSTR___V2749*/ meltfptr[2748] = (void*)&cdat->dstr_2727__INSTALL_METHOD; + cdat->dstr_2727__INSTALL_METHOD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2727__INSTALL_METHOD.val, "INSTALL_METHOD", sizeof (cdat->dstr_2727__INSTALL_METHOD.val)-1); + + /*iniobj dsym_2728__LIST_APPEND2LIST*/ +/*uniqueobj*/ if (!/*_.VALDATA___V2750*/ meltfptr[2749]) /*_.VALDATA___V2750*/ meltfptr[2749] = (void*)&cdat->dsym_2728__LIST_APPEND2LIST; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2728__LIST_APPEND2LIST", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2728__LIST_APPEND2LIST", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); + cdat->dsym_2728__LIST_APPEND2LIST.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_2728__LIST_APPEND2LIST.obj_hash = 744841630; + cdat->dsym_2728__LIST_APPEND2LIST.obj_len = 3; + + /*inistring dstr_2729__LIST_APPEND2LIST*/ + /*_.VALSTR___V2751*/ meltfptr[2750] = (void*)&cdat->dstr_2729__LIST_APPEND2LIST; + cdat->dstr_2729__LIST_APPEND2LIST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2729__LIST_APPEND2LIST.val, "LIST_APPEND2LIST", sizeof (cdat->dstr_2729__LIST_APPEND2LIST.val)-1); + + /*iniobj dsym_2730__LIST_EVERY*/ +/*uniqueobj*/ if (!/*_.VALDATA___V2752*/ meltfptr[2751]) /*_.VALDATA___V2752*/ meltfptr[2751] = (void*)&cdat->dsym_2730__LIST_EVERY; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2730__LIST_EVERY", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2730__LIST_EVERY", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); + cdat->dsym_2730__LIST_EVERY.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_2730__LIST_EVERY.obj_hash = 942863429; + cdat->dsym_2730__LIST_EVERY.obj_len = 3; + + /*inistring dstr_2731__LIST_EVERY*/ + /*_.VALSTR___V2753*/ meltfptr[2752] = (void*)&cdat->dstr_2731__LIST_EVERY; + cdat->dstr_2731__LIST_EVERY.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2731__LIST_EVERY.val, "LIST_EVERY", sizeof (cdat->dstr_2731__LIST_EVERY.val)-1); + + /*iniobj dsym_2732__LIST_ITERATE_TEST*/ +/*uniqueobj*/ if (!/*_.VALDATA___V2754*/ meltfptr[2753]) /*_.VALDATA___V2754*/ meltfptr[2753] = (void*)&cdat->dsym_2732__LIST_ITERATE_TEST; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2732__LIST_ITERATE_TEST", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2732__LIST_ITERATE_TEST", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); + cdat->dsym_2732__LIST_ITERATE_TEST.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_2732__LIST_ITERATE_TEST.obj_hash = 561820482; + cdat->dsym_2732__LIST_ITERATE_TEST.obj_len = 3; + + /*inistring dstr_2733__LIST_ITERATE_TES*/ + /*_.VALSTR___V2755*/ meltfptr[2754] = (void*)&cdat->dstr_2733__LIST_ITERATE_TES; + cdat->dstr_2733__LIST_ITERATE_TES.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2733__LIST_ITERATE_TES.val, "LIST_ITERATE_TEST", sizeof (cdat->dstr_2733__LIST_ITERATE_TES.val)-1); + + /*iniobj dsym_2734__LIST_MAP*/ +/*uniqueobj*/ if (!/*_.VALDATA___V2756*/ meltfptr[2755]) /*_.VALDATA___V2756*/ meltfptr[2755] = (void*)&cdat->dsym_2734__LIST_MAP; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2734__LIST_MAP", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2734__LIST_MAP", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); + cdat->dsym_2734__LIST_MAP.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_2734__LIST_MAP.obj_hash = 941133477; + cdat->dsym_2734__LIST_MAP.obj_len = 3; + + /*inistring dstr_2735__LIST_MAP*/ + /*_.VALSTR___V2757*/ meltfptr[2756] = (void*)&cdat->dstr_2735__LIST_MAP; + cdat->dstr_2735__LIST_MAP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2735__LIST_MAP.val, "LIST_MAP", sizeof (cdat->dstr_2735__LIST_MAP.val)-1); + + /*iniobj dsym_2736__LIST_TO_MULTIPLE*/ +/*uniqueobj*/ if (!/*_.VALDATA___V2758*/ meltfptr[2757]) /*_.VALDATA___V2758*/ meltfptr[2757] = (void*)&cdat->dsym_2736__LIST_TO_MULTIPLE; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2736__LIST_TO_MULTIPLE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2736__LIST_TO_MULTIPLE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); + cdat->dsym_2736__LIST_TO_MULTIPLE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_2736__LIST_TO_MULTIPLE.obj_hash = 987171205; + cdat->dsym_2736__LIST_TO_MULTIPLE.obj_len = 3; + + /*inistring dstr_2737__LIST_TO_MULTIPLE*/ + /*_.VALSTR___V2759*/ meltfptr[2758] = (void*)&cdat->dstr_2737__LIST_TO_MULTIPLE; + cdat->dstr_2737__LIST_TO_MULTIPLE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2737__LIST_TO_MULTIPLE.val, "LIST_TO_MULTIPLE", sizeof (cdat->dstr_2737__LIST_TO_MULTIPLE.val)-1); + + /*iniobj dsym_2738__MAPOBJECT_EVERY*/ +/*uniqueobj*/ if (!/*_.VALDATA___V2760*/ meltfptr[2759]) /*_.VALDATA___V2760*/ meltfptr[2759] = (void*)&cdat->dsym_2738__MAPOBJECT_EVERY; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2738__MAPOBJECT_EVERY", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2738__MAPOBJECT_EVERY", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); + cdat->dsym_2738__MAPOBJECT_EVERY.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_2738__MAPOBJECT_EVERY.obj_hash = 726732435; + cdat->dsym_2738__MAPOBJECT_EVERY.obj_len = 3; + + /*inistring dstr_2739__MAPOBJECT_EVERY*/ + /*_.VALSTR___V2761*/ meltfptr[2760] = (void*)&cdat->dstr_2739__MAPOBJECT_EVERY; + cdat->dstr_2739__MAPOBJECT_EVERY.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2739__MAPOBJECT_EVERY.val, "MAPOBJECT_EVERY", sizeof (cdat->dstr_2739__MAPOBJECT_EVERY.val)-1); + + /*iniobj dsym_2740__MAPOBJECT_ITERATE_TEST*/ +/*uniqueobj*/ if (!/*_.VALDATA___V2762*/ meltfptr[2761]) /*_.VALDATA___V2762*/ meltfptr[2761] = (void*)&cdat->dsym_2740__MAPOBJECT_ITERATE_TEST; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2740__MAPOBJECT_ITERATE_TEST", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2740__MAPOBJECT_ITERATE_TEST", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); + cdat->dsym_2740__MAPOBJECT_ITERATE_TEST.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_2740__MAPOBJECT_ITERATE_TEST.obj_hash = 873816186; + cdat->dsym_2740__MAPOBJECT_ITERATE_TEST.obj_len = 3; + + /*inistring dstr_2741__MAPOBJECT_ITERAT*/ + /*_.VALSTR___V2763*/ meltfptr[2762] = (void*)&cdat->dstr_2741__MAPOBJECT_ITERAT; + cdat->dstr_2741__MAPOBJECT_ITERAT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2741__MAPOBJECT_ITERAT.val, "MAPOBJECT_ITERATE_TEST", sizeof (cdat->dstr_2741__MAPOBJECT_ITERAT.val)-1); + + /*iniobj dsym_2742__MAPOBJECT_SORTED_ATTRIBUTE_TUPLE*/ +/*uniqueobj*/ if (!/*_.VALDATA___V2764*/ meltfptr[2763]) /*_.VALDATA___V2764*/ meltfptr[2763] = (void*)&cdat->dsym_2742__MAPOBJECT_SORTED_ATTRIBUTE_TUPLE; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2742__MAPOBJECT_SORTED_ATTRIBUTE_TUPLE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2742__MAPOBJECT_SORTED_ATTRIBUTE_TUPLE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); + cdat->dsym_2742__MAPOBJECT_SORTED_ATTRIBUTE_TUPLE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_2742__MAPOBJECT_SORTED_ATTRIBUTE_TUPLE.obj_hash = 966537230; + cdat->dsym_2742__MAPOBJECT_SORTED_ATTRIBUTE_TUPLE.obj_len = 3; + + /*inistring dstr_2743__MAPOBJECT_SORTED*/ + /*_.VALSTR___V2765*/ meltfptr[2764] = (void*)&cdat->dstr_2743__MAPOBJECT_SORTED; + cdat->dstr_2743__MAPOBJECT_SORTED.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2743__MAPOBJECT_SORTED.val, "MAPOBJECT_SORTED_ATTRIBUTE_TUPLE", sizeof (cdat->dstr_2743__MAPOBJECT_SORTED.val)-1); + + /*iniobj dsym_2744__MULTIPLE_ITERATE_TEST*/ +/*uniqueobj*/ if (!/*_.VALDATA___V2766*/ meltfptr[2765]) /*_.VALDATA___V2766*/ meltfptr[2765] = (void*)&cdat->dsym_2744__MULTIPLE_ITERATE_TEST; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2744__MULTIPLE_ITERATE_TEST", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2744__MULTIPLE_ITERATE_TEST", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); + cdat->dsym_2744__MULTIPLE_ITERATE_TEST.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_2744__MULTIPLE_ITERATE_TEST.obj_hash = 823464346; + cdat->dsym_2744__MULTIPLE_ITERATE_TEST.obj_len = 3; + + /*inistring dstr_2745__MULTIPLE_ITERATE*/ + /*_.VALSTR___V2767*/ meltfptr[2766] = (void*)&cdat->dstr_2745__MULTIPLE_ITERATE; + cdat->dstr_2745__MULTIPLE_ITERATE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2745__MULTIPLE_ITERATE.val, "MULTIPLE_ITERATE_TEST", sizeof (cdat->dstr_2745__MULTIPLE_ITERATE.val)-1); + + /*iniobj dsym_2746__MULTIPLE_MAP*/ +/*uniqueobj*/ if (!/*_.VALDATA___V2768*/ meltfptr[2767]) /*_.VALDATA___V2768*/ meltfptr[2767] = (void*)&cdat->dsym_2746__MULTIPLE_MAP; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2746__MULTIPLE_MAP", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2746__MULTIPLE_MAP", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); + cdat->dsym_2746__MULTIPLE_MAP.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_2746__MULTIPLE_MAP.obj_hash = 218301686; + cdat->dsym_2746__MULTIPLE_MAP.obj_len = 3; + + /*inistring dstr_2747__MULTIPLE_MAP*/ + /*_.VALSTR___V2769*/ meltfptr[2768] = (void*)&cdat->dstr_2747__MULTIPLE_MAP; + cdat->dstr_2747__MULTIPLE_MAP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2747__MULTIPLE_MAP.val, "MULTIPLE_MAP", sizeof (cdat->dstr_2747__MULTIPLE_MAP.val)-1); + + /*iniobj dsym_2748__MULTIPLE_TO_LIST*/ +/*uniqueobj*/ if (!/*_.VALDATA___V2770*/ meltfptr[2769]) /*_.VALDATA___V2770*/ meltfptr[2769] = (void*)&cdat->dsym_2748__MULTIPLE_TO_LIST; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2748__MULTIPLE_TO_LIST", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2748__MULTIPLE_TO_LIST", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); + cdat->dsym_2748__MULTIPLE_TO_LIST.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_2748__MULTIPLE_TO_LIST.obj_hash = 622139769; + cdat->dsym_2748__MULTIPLE_TO_LIST.obj_len = 3; + + /*inistring dstr_2749__MULTIPLE_TO_LIST*/ + /*_.VALSTR___V2771*/ meltfptr[2770] = (void*)&cdat->dstr_2749__MULTIPLE_TO_LIST; + cdat->dstr_2749__MULTIPLE_TO_LIST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2749__MULTIPLE_TO_LIST.val, "MULTIPLE_TO_LIST", sizeof (cdat->dstr_2749__MULTIPLE_TO_LIST.val)-1); + + /*iniobj dsym_2750__OVERWRITE_ENV*/ +/*uniqueobj*/ if (!/*_.VALDATA___V2772*/ meltfptr[2771]) /*_.VALDATA___V2772*/ meltfptr[2771] = (void*)&cdat->dsym_2750__OVERWRITE_ENV; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2750__OVERWRITE_ENV", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2750__OVERWRITE_ENV", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); + cdat->dsym_2750__OVERWRITE_ENV.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_2750__OVERWRITE_ENV.obj_hash = 774789038; + cdat->dsym_2750__OVERWRITE_ENV.obj_len = 3; + + /*inistring dstr_2751__OVERWRITE_ENV*/ + /*_.VALSTR___V2773*/ meltfptr[2772] = (void*)&cdat->dstr_2751__OVERWRITE_ENV; + cdat->dstr_2751__OVERWRITE_ENV.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2751__OVERWRITE_ENV.val, "OVERWRITE_ENV", sizeof (cdat->dstr_2751__OVERWRITE_ENV.val)-1); + + /*iniobj dsym_2752__PAIRLIST_TO_MULTIPLE*/ +/*uniqueobj*/ if (!/*_.VALDATA___V2774*/ meltfptr[2773]) /*_.VALDATA___V2774*/ meltfptr[2773] = (void*)&cdat->dsym_2752__PAIRLIST_TO_MULTIPLE; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2752__PAIRLIST_TO_MULTIPLE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2752__PAIRLIST_TO_MULTIPLE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); + cdat->dsym_2752__PAIRLIST_TO_MULTIPLE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_2752__PAIRLIST_TO_MULTIPLE.obj_hash = 205669322; + cdat->dsym_2752__PAIRLIST_TO_MULTIPLE.obj_len = 3; + + /*inistring dstr_2753__PAIRLIST_TO_MULT*/ + /*_.VALSTR___V2775*/ meltfptr[2774] = (void*)&cdat->dstr_2753__PAIRLIST_TO_MULT; + cdat->dstr_2753__PAIRLIST_TO_MULT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2753__PAIRLIST_TO_MULT.val, "PAIRLIST_TO_MULTIPLE", sizeof (cdat->dstr_2753__PAIRLIST_TO_MULT.val)-1); + + /*iniobj dsym_2754__POST_INITIALIZATION*/ +/*uniqueobj*/ if (!/*_.VALDATA___V2776*/ meltfptr[2775]) /*_.VALDATA___V2776*/ meltfptr[2775] = (void*)&cdat->dsym_2754__POST_INITIALIZATION; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2754__POST_INITIALIZATION", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2754__POST_INITIALIZATION", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); + cdat->dsym_2754__POST_INITIALIZATION.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_2754__POST_INITIALIZATION.obj_hash = 1066527214; + cdat->dsym_2754__POST_INITIALIZATION.obj_len = 3; + + /*inistring dstr_2755__POST_INITIALIZAT*/ + /*_.VALSTR___V2777*/ meltfptr[2776] = (void*)&cdat->dstr_2755__POST_INITIALIZAT; + cdat->dstr_2755__POST_INITIALIZAT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2755__POST_INITIALIZAT.val, "POST_INITIALIZATION", sizeof (cdat->dstr_2755__POST_INITIALIZAT.val)-1); + + /*iniobj dsym_2756__PUT_ENV*/ +/*uniqueobj*/ if (!/*_.VALDATA___V2778*/ meltfptr[2777]) /*_.VALDATA___V2778*/ meltfptr[2777] = (void*)&cdat->dsym_2756__PUT_ENV; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2756__PUT_ENV", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2756__PUT_ENV", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); + cdat->dsym_2756__PUT_ENV.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_2756__PUT_ENV.obj_hash = 440202203; + cdat->dsym_2756__PUT_ENV.obj_len = 3; + + /*inistring dstr_2757__PUT_ENV*/ + /*_.VALSTR___V2779*/ meltfptr[2778] = (void*)&cdat->dstr_2757__PUT_ENV; + cdat->dstr_2757__PUT_ENV.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2757__PUT_ENV.val, "PUT_ENV", sizeof (cdat->dstr_2757__PUT_ENV.val)-1); + + /*iniobj dsym_2758__REGISTER_OPTION*/ +/*uniqueobj*/ if (!/*_.VALDATA___V2780*/ meltfptr[2779]) /*_.VALDATA___V2780*/ meltfptr[2779] = (void*)&cdat->dsym_2758__REGISTER_OPTION; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2758__REGISTER_OPTION", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2758__REGISTER_OPTION", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); + cdat->dsym_2758__REGISTER_OPTION.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_2758__REGISTER_OPTION.obj_hash = 32231349; + cdat->dsym_2758__REGISTER_OPTION.obj_len = 3; + + /*inistring dstr_2759__REGISTER_OPTION*/ + /*_.VALSTR___V2781*/ meltfptr[2780] = (void*)&cdat->dstr_2759__REGISTER_OPTION; + cdat->dstr_2759__REGISTER_OPTION.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2759__REGISTER_OPTION.val, "REGISTER_OPTION", sizeof (cdat->dstr_2759__REGISTER_OPTION.val)-1); + + /*iniobj dsym_2760__ROUTINE_EVERY*/ +/*uniqueobj*/ if (!/*_.VALDATA___V2782*/ meltfptr[2781]) /*_.VALDATA___V2782*/ meltfptr[2781] = (void*)&cdat->dsym_2760__ROUTINE_EVERY; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2760__ROUTINE_EVERY", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2760__ROUTINE_EVERY", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); + cdat->dsym_2760__ROUTINE_EVERY.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_2760__ROUTINE_EVERY.obj_hash = 347090207; + cdat->dsym_2760__ROUTINE_EVERY.obj_len = 3; + + /*inistring dstr_2761__ROUTINE_EVERY*/ + /*_.VALSTR___V2783*/ meltfptr[2782] = (void*)&cdat->dstr_2761__ROUTINE_EVERY; + cdat->dstr_2761__ROUTINE_EVERY.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2761__ROUTINE_EVERY.val, "ROUTINE_EVERY", sizeof (cdat->dstr_2761__ROUTINE_EVERY.val)-1); + + /*iniobj dsym_2762__FOREACH_IN_LIST*/ +/*uniqueobj*/ if (!/*_.VALDATA___V2784*/ meltfptr[2783]) /*_.VALDATA___V2784*/ meltfptr[2783] = (void*)&cdat->dsym_2762__FOREACH_IN_LIST; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2762__FOREACH_IN_LIST", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2762__FOREACH_IN_LIST", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); + cdat->dsym_2762__FOREACH_IN_LIST.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_2762__FOREACH_IN_LIST.obj_hash = 664644215; + cdat->dsym_2762__FOREACH_IN_LIST.obj_len = 3; + + /*inistring dstr_2763__FOREACH_IN_LIST*/ + /*_.VALSTR___V2785*/ meltfptr[2784] = (void*)&cdat->dstr_2763__FOREACH_IN_LIST; + cdat->dstr_2763__FOREACH_IN_LIST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2763__FOREACH_IN_LIST.val, "FOREACH_IN_LIST", sizeof (cdat->dstr_2763__FOREACH_IN_LIST.val)-1); + + /*iniobj dsym_2764__FOREACH_IN_MAPOBJECT*/ +/*uniqueobj*/ if (!/*_.VALDATA___V2786*/ meltfptr[2785]) /*_.VALDATA___V2786*/ meltfptr[2785] = (void*)&cdat->dsym_2764__FOREACH_IN_MAPOBJECT; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2764__FOREACH_IN_MAPOBJECT", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2764__FOREACH_IN_MAPOBJECT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); + cdat->dsym_2764__FOREACH_IN_MAPOBJECT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_2764__FOREACH_IN_MAPOBJECT.obj_hash = 845660309; + cdat->dsym_2764__FOREACH_IN_MAPOBJECT.obj_len = 3; + + /*inistring dstr_2765__FOREACH_IN_MAPOB*/ + /*_.VALSTR___V2787*/ meltfptr[2786] = (void*)&cdat->dstr_2765__FOREACH_IN_MAPOB; + cdat->dstr_2765__FOREACH_IN_MAPOB.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2765__FOREACH_IN_MAPOB.val, "FOREACH_IN_MAPOBJECT", sizeof (cdat->dstr_2765__FOREACH_IN_MAPOB.val)-1); + + /*iniobj dsym_2766__FOREACH_IN_MAPSTRING*/ +/*uniqueobj*/ if (!/*_.VALDATA___V2788*/ meltfptr[2787]) /*_.VALDATA___V2788*/ meltfptr[2787] = (void*)&cdat->dsym_2766__FOREACH_IN_MAPSTRING; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2766__FOREACH_IN_MAPSTRING", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2766__FOREACH_IN_MAPSTRING", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); + cdat->dsym_2766__FOREACH_IN_MAPSTRING.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_2766__FOREACH_IN_MAPSTRING.obj_hash = 16742650; + cdat->dsym_2766__FOREACH_IN_MAPSTRING.obj_len = 3; + + /*inistring dstr_2767__FOREACH_IN_MAPST*/ + /*_.VALSTR___V2789*/ meltfptr[2788] = (void*)&cdat->dstr_2767__FOREACH_IN_MAPST; + cdat->dstr_2767__FOREACH_IN_MAPST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2767__FOREACH_IN_MAPST.val, "FOREACH_IN_MAPSTRING", sizeof (cdat->dstr_2767__FOREACH_IN_MAPST.val)-1); + + /*iniobj dsym_2768__FOREACH_IN_MULTIPLE*/ +/*uniqueobj*/ if (!/*_.VALDATA___V2790*/ meltfptr[2789]) /*_.VALDATA___V2790*/ meltfptr[2789] = (void*)&cdat->dsym_2768__FOREACH_IN_MULTIPLE; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2768__FOREACH_IN_MULTIPLE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2768__FOREACH_IN_MULTIPLE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); + cdat->dsym_2768__FOREACH_IN_MULTIPLE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_2768__FOREACH_IN_MULTIPLE.obj_hash = 692686837; + cdat->dsym_2768__FOREACH_IN_MULTIPLE.obj_len = 3; + + /*inistring dstr_2769__FOREACH_IN_MULTI*/ + /*_.VALSTR___V2791*/ meltfptr[2790] = (void*)&cdat->dstr_2769__FOREACH_IN_MULTI; + cdat->dstr_2769__FOREACH_IN_MULTI.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2769__FOREACH_IN_MULTI.val, "FOREACH_IN_MULTIPLE", sizeof (cdat->dstr_2769__FOREACH_IN_MULTI.val)-1); + + /*iniobj dsym_2770__FOREACH_IN_MULTIPLE_BACKWARD*/ +/*uniqueobj*/ if (!/*_.VALDATA___V2792*/ meltfptr[2791]) /*_.VALDATA___V2792*/ meltfptr[2791] = (void*)&cdat->dsym_2770__FOREACH_IN_MULTIPLE_BACKWARD; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2770__FOREACH_IN_MULTIPLE_BACKWARD", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2770__FOREACH_IN_MULTIPLE_BACKWARD", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); + cdat->dsym_2770__FOREACH_IN_MULTIPLE_BACKWARD.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_2770__FOREACH_IN_MULTIPLE_BACKWARD.obj_hash = 1067970766; + cdat->dsym_2770__FOREACH_IN_MULTIPLE_BACKWARD.obj_len = 3; + + /*inistring dstr_2771__FOREACH_IN_MULTI*/ + /*_.VALSTR___V2793*/ meltfptr[2792] = (void*)&cdat->dstr_2771__FOREACH_IN_MULTI; + cdat->dstr_2771__FOREACH_IN_MULTI.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2771__FOREACH_IN_MULTI.val, "FOREACH_IN_MULTIPLE_BACKWARD", sizeof (cdat->dstr_2771__FOREACH_IN_MULTI.val)-1); + + /*iniobj dsym_2772__INTEGERBOX_OF*/ +/*uniqueobj*/ if (!/*_.VALDATA___V2794*/ meltfptr[2793]) /*_.VALDATA___V2794*/ meltfptr[2793] = (void*)&cdat->dsym_2772__INTEGERBOX_OF; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2772__INTEGERBOX_OF", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2772__INTEGERBOX_OF", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); + cdat->dsym_2772__INTEGERBOX_OF.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_2772__INTEGERBOX_OF.obj_hash = 641824224; + cdat->dsym_2772__INTEGERBOX_OF.obj_len = 3; + + /*inistring dstr_2773__INTEGERBOX_OF*/ + /*_.VALSTR___V2795*/ meltfptr[2794] = (void*)&cdat->dstr_2773__INTEGERBOX_OF; + cdat->dstr_2773__INTEGERBOX_OF.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2773__INTEGERBOX_OF.val, "INTEGERBOX_OF", sizeof (cdat->dstr_2773__INTEGERBOX_OF.val)-1); + + /*iniobj dsym_2774__CLOSURE*/ +/*uniqueobj*/ if (!/*_.VALDATA___V2796*/ meltfptr[2795]) /*_.VALDATA___V2796*/ meltfptr[2795] = (void*)&cdat->dsym_2774__CLOSURE; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2774__CLOSURE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2774__CLOSURE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); + cdat->dsym_2774__CLOSURE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_2774__CLOSURE.obj_hash = 230596885; + cdat->dsym_2774__CLOSURE.obj_len = 3; + + /*inistring dstr_2775__CLOSURE*/ + /*_.VALSTR___V2797*/ meltfptr[2796] = (void*)&cdat->dstr_2775__CLOSURE; + cdat->dstr_2775__CLOSURE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2775__CLOSURE.val, "CLOSURE", sizeof (cdat->dstr_2775__CLOSURE.val)-1); + + /*iniobj dsym_2776__TRUE*/ +/*uniqueobj*/ if (!/*_.VALDATA___V2798*/ meltfptr[2797]) /*_.VALDATA___V2798*/ meltfptr[2797] = (void*)&cdat->dsym_2776__TRUE; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2776__TRUE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_KEYWORD)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_2776__TRUE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_KEYWORD)))))->object_magic == OBMAG_OBJECT); + cdat->dsym_2776__TRUE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_KEYWORD)))); + cdat->dsym_2776__TRUE.obj_hash = 576485513; + cdat->dsym_2776__TRUE.obj_len = 3; + + /*inistring dstr_2777__TRUE*/ + /*_.VALSTR___V2799*/ meltfptr[2798] = (void*)&cdat->dstr_2777__TRUE; + cdat->dstr_2777__TRUE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_2777__TRUE.val, "TRUE", sizeof (cdat->dstr_2777__TRUE.val)-1); + + /*inirout drout_2778__DEBUG_MSG_FUN*/ + /*_.VALROUT___V2454*/ meltfptr[2453] = (void*)&cdat->drout_2778__DEBUG_MSG_FUN; + cdat->drout_2778__DEBUG_MSG_FUN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); + strncpy(cdat->drout_2778__DEBUG_MSG_FUN.routdescr, "DEBUG_MSG_FUN @warmelt-first.melt:3555", MELT_ROUTDESCR_LEN - 1); + cdat->drout_2778__DEBUG_MSG_FUN.nbval = 1; + MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_2778__DEBUG_MSG_FUN, meltrout_62_warmelt_first_DEBUG_MSG_FUN); + + /*iniclos dclo_2779__DEBUG_MSG_FUN*/ + /*_.VALCLO___V2453*/ meltfptr[2452] = (void*)&cdat->dclo_2779__DEBUG_MSG_FUN; + cdat->dclo_2779__DEBUG_MSG_FUN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); + cdat->dclo_2779__DEBUG_MSG_FUN.nbval = 0; cdat = NULL; melt_prohibit_garbcoll = FALSE; @@ -28268,7 +28396,7 @@ void* start_module_melt(void* modargp_) { initial_frame_st meltframe; #define meltfram__ meltframe memset(&meltfram__, 0, sizeof(meltfram__)); - meltfram__.nbvar = 2817; + meltfram__.nbvar = 2835; meltfram__.prev = (struct callframe_melt_st *) melt_topframe; melt_topframe = (struct callframe_melt_st *) &meltfram__; /**initial routine prologue**/ @@ -30700,989 +30828,1003 @@ initial_frame_st meltframe; /*^getnamedsymbol*/ + /*getnamedsym:LIST_FIRST_ELEMENT*/ + { melt_ptr_t sy_LIST_FIRST_ELEMENT = meltgc_named_symbol("LIST_FIRST_ELEMENT", MELT_GET); + if (sy_LIST_FIRST_ELEMENT && NULL == /*_.VALDATA___V2015*/ meltfptr[2014]) + /*_.VALDATA___V2015*/ meltfptr[2014] = (void*) sy_LIST_FIRST_ELEMENT; } + + /*^getnamedsymbol*/ + + /*getnamedsym:LIST_LAST_ELEMENT*/ + { melt_ptr_t sy_LIST_LAST_ELEMENT = meltgc_named_symbol("LIST_LAST_ELEMENT", MELT_GET); + if (sy_LIST_LAST_ELEMENT && NULL == /*_.VALDATA___V2024*/ meltfptr[2023]) + /*_.VALDATA___V2024*/ meltfptr[2023] = (void*) sy_LIST_LAST_ELEMENT; } + + /*^getnamedsymbol*/ + /*getnamedsym:LIST_LENGTH*/ { melt_ptr_t sy_LIST_LENGTH = meltgc_named_symbol("LIST_LENGTH", MELT_GET); - if (sy_LIST_LENGTH && NULL == /*_.VALDATA___V2015*/ meltfptr[2014]) - /*_.VALDATA___V2015*/ meltfptr[2014] = (void*) sy_LIST_LENGTH; } + if (sy_LIST_LENGTH && NULL == /*_.VALDATA___V2033*/ meltfptr[2032]) + /*_.VALDATA___V2033*/ meltfptr[2032] = (void*) sy_LIST_LENGTH; } /*^getnamedsymbol*/ /*getnamedsym:LIST_APPEND*/ { melt_ptr_t sy_LIST_APPEND = meltgc_named_symbol("LIST_APPEND", MELT_GET); - if (sy_LIST_APPEND && NULL == /*_.VALDATA___V2024*/ meltfptr[2023]) - /*_.VALDATA___V2024*/ meltfptr[2023] = (void*) sy_LIST_APPEND; } + if (sy_LIST_APPEND && NULL == /*_.VALDATA___V2042*/ meltfptr[2041]) + /*_.VALDATA___V2042*/ meltfptr[2041] = (void*) sy_LIST_APPEND; } /*^getnamedsymbol*/ /*getnamedsym:EL*/ { melt_ptr_t sy_EL = meltgc_named_symbol("EL", MELT_GET); - if (sy_EL && NULL == /*_.VALDATA___V2030*/ meltfptr[2029]) - /*_.VALDATA___V2030*/ meltfptr[2029] = (void*) sy_EL; } + if (sy_EL && NULL == /*_.VALDATA___V2048*/ meltfptr[2047]) + /*_.VALDATA___V2048*/ meltfptr[2047] = (void*) sy_EL; } /*^getnamedsymbol*/ /*getnamedsym:LIST_PREPEND*/ { melt_ptr_t sy_LIST_PREPEND = meltgc_named_symbol("LIST_PREPEND", MELT_GET); - if (sy_LIST_PREPEND && NULL == /*_.VALDATA___V2037*/ meltfptr[2036]) - /*_.VALDATA___V2037*/ meltfptr[2036] = (void*) sy_LIST_PREPEND; } + if (sy_LIST_PREPEND && NULL == /*_.VALDATA___V2055*/ meltfptr[2054]) + /*_.VALDATA___V2055*/ meltfptr[2054] = (void*) sy_LIST_PREPEND; } /*^getnamedsymbol*/ /*getnamedsym:LIST_POPFIRST*/ { melt_ptr_t sy_LIST_POPFIRST = meltgc_named_symbol("LIST_POPFIRST", MELT_GET); - if (sy_LIST_POPFIRST && NULL == /*_.VALDATA___V2048*/ meltfptr[2047]) - /*_.VALDATA___V2048*/ meltfptr[2047] = (void*) sy_LIST_POPFIRST; } + if (sy_LIST_POPFIRST && NULL == /*_.VALDATA___V2066*/ meltfptr[2065]) + /*_.VALDATA___V2066*/ meltfptr[2065] = (void*) sy_LIST_POPFIRST; } /*^getnamedsymbol*/ /*getnamedsym:MAKE_LIST*/ { melt_ptr_t sy_MAKE_LIST = meltgc_named_symbol("MAKE_LIST", MELT_GET); - if (sy_MAKE_LIST && NULL == /*_.VALDATA___V2057*/ meltfptr[2056]) - /*_.VALDATA___V2057*/ meltfptr[2056] = (void*) sy_MAKE_LIST; } + if (sy_MAKE_LIST && NULL == /*_.VALDATA___V2075*/ meltfptr[2074]) + /*_.VALDATA___V2075*/ meltfptr[2074] = (void*) sy_MAKE_LIST; } /*^getnamedsymbol*/ /*getnamedsym:IS_PAIR*/ { melt_ptr_t sy_IS_PAIR = meltgc_named_symbol("IS_PAIR", MELT_GET); - if (sy_IS_PAIR && NULL == /*_.VALDATA___V2066*/ meltfptr[2065]) - /*_.VALDATA___V2066*/ meltfptr[2065] = (void*) sy_IS_PAIR; } + if (sy_IS_PAIR && NULL == /*_.VALDATA___V2084*/ meltfptr[2083]) + /*_.VALDATA___V2084*/ meltfptr[2083] = (void*) sy_IS_PAIR; } /*^getnamedsymbol*/ /*getnamedsym:PA*/ { melt_ptr_t sy_PA = meltgc_named_symbol("PA", MELT_GET); - if (sy_PA && NULL == /*_.VALDATA___V2071*/ meltfptr[2070]) - /*_.VALDATA___V2071*/ meltfptr[2070] = (void*) sy_PA; } + if (sy_PA && NULL == /*_.VALDATA___V2089*/ meltfptr[2088]) + /*_.VALDATA___V2089*/ meltfptr[2088] = (void*) sy_PA; } /*^getnamedsymbol*/ /*getnamedsym:PAIR_HEAD*/ { melt_ptr_t sy_PAIR_HEAD = meltgc_named_symbol("PAIR_HEAD", MELT_GET); - if (sy_PAIR_HEAD && NULL == /*_.VALDATA___V2077*/ meltfptr[2076]) - /*_.VALDATA___V2077*/ meltfptr[2076] = (void*) sy_PAIR_HEAD; } + if (sy_PAIR_HEAD && NULL == /*_.VALDATA___V2095*/ meltfptr[2094]) + /*_.VALDATA___V2095*/ meltfptr[2094] = (void*) sy_PAIR_HEAD; } /*^getnamedsymbol*/ /*getnamedsym:PAIR_TAIL*/ { melt_ptr_t sy_PAIR_TAIL = meltgc_named_symbol("PAIR_TAIL", MELT_GET); - if (sy_PAIR_TAIL && NULL == /*_.VALDATA___V2086*/ meltfptr[2085]) - /*_.VALDATA___V2086*/ meltfptr[2085] = (void*) sy_PAIR_TAIL; } + if (sy_PAIR_TAIL && NULL == /*_.VALDATA___V2104*/ meltfptr[2103]) + /*_.VALDATA___V2104*/ meltfptr[2103] = (void*) sy_PAIR_TAIL; } /*^getnamedsymbol*/ /*getnamedsym:WARNINGMSG_STRV*/ { melt_ptr_t sy_WARNINGMSG_STRV = meltgc_named_symbol("WARNINGMSG_STRV", MELT_GET); - if (sy_WARNINGMSG_STRV && NULL == /*_.VALDATA___V2095*/ meltfptr[2094]) - /*_.VALDATA___V2095*/ meltfptr[2094] = (void*) sy_WARNINGMSG_STRV; } + if (sy_WARNINGMSG_STRV && NULL == /*_.VALDATA___V2113*/ meltfptr[2112]) + /*_.VALDATA___V2113*/ meltfptr[2112] = (void*) sy_WARNINGMSG_STRV; } /*^getnamedsymbol*/ /*getnamedsym:INFORMSG_LONG*/ { melt_ptr_t sy_INFORMSG_LONG = meltgc_named_symbol("INFORMSG_LONG", MELT_GET); - if (sy_INFORMSG_LONG && NULL == /*_.VALDATA___V2106*/ meltfptr[2105]) - /*_.VALDATA___V2106*/ meltfptr[2105] = (void*) sy_INFORMSG_LONG; } + if (sy_INFORMSG_LONG && NULL == /*_.VALDATA___V2124*/ meltfptr[2123]) + /*_.VALDATA___V2124*/ meltfptr[2123] = (void*) sy_INFORMSG_LONG; } /*^getnamedsymbol*/ /*getnamedsym:DISCR_NAME_STRING*/ { melt_ptr_t sy_DISCR_NAME_STRING = meltgc_named_symbol("DISCR_NAME_STRING", MELT_GET); - if (sy_DISCR_NAME_STRING && NULL == /*_.VALDATA___V2117*/ meltfptr[2116]) - /*_.VALDATA___V2117*/ meltfptr[2116] = (void*) sy_DISCR_NAME_STRING; } + if (sy_DISCR_NAME_STRING && NULL == /*_.VALDATA___V2135*/ meltfptr[2134]) + /*_.VALDATA___V2135*/ meltfptr[2134] = (void*) sy_DISCR_NAME_STRING; } /*^getnamedsymbol*/ /*getnamedsym:DISCR_STRING*/ { melt_ptr_t sy_DISCR_STRING = meltgc_named_symbol("DISCR_STRING", MELT_GET); - if (sy_DISCR_STRING && NULL == /*_.VALDATA___V2120*/ meltfptr[2119]) - /*_.VALDATA___V2120*/ meltfptr[2119] = (void*) sy_DISCR_STRING; } + if (sy_DISCR_STRING && NULL == /*_.VALDATA___V2138*/ meltfptr[2137]) + /*_.VALDATA___V2138*/ meltfptr[2137] = (void*) sy_DISCR_STRING; } /*^getnamedsymbol*/ /*getnamedsym:DISCR_VERBATIM_STRING*/ { melt_ptr_t sy_DISCR_VERBATIM_STRING = meltgc_named_symbol("DISCR_VERBATIM_STRING", MELT_GET); - if (sy_DISCR_VERBATIM_STRING && NULL == /*_.VALDATA___V2125*/ meltfptr[2124]) - /*_.VALDATA___V2125*/ meltfptr[2124] = (void*) sy_DISCR_VERBATIM_STRING; } + if (sy_DISCR_VERBATIM_STRING && NULL == /*_.VALDATA___V2143*/ meltfptr[2142]) + /*_.VALDATA___V2143*/ meltfptr[2142] = (void*) sy_DISCR_VERBATIM_STRING; } /*^getnamedsymbol*/ /*getnamedsym:DISCR_ANY_RECEIVER*/ { melt_ptr_t sy_DISCR_ANY_RECEIVER = meltgc_named_symbol("DISCR_ANY_RECEIVER", MELT_GET); - if (sy_DISCR_ANY_RECEIVER && NULL == /*_.VALDATA___V2129*/ meltfptr[2128]) - /*_.VALDATA___V2129*/ meltfptr[2128] = (void*) sy_DISCR_ANY_RECEIVER; } + if (sy_DISCR_ANY_RECEIVER && NULL == /*_.VALDATA___V2147*/ meltfptr[2146]) + /*_.VALDATA___V2147*/ meltfptr[2146] = (void*) sy_DISCR_ANY_RECEIVER; } /*^getnamedsymbol*/ /*getnamedsym:DISCR_NULL_RECEIVER*/ { melt_ptr_t sy_DISCR_NULL_RECEIVER = meltgc_named_symbol("DISCR_NULL_RECEIVER", MELT_GET); - if (sy_DISCR_NULL_RECEIVER && NULL == /*_.VALDATA___V2133*/ meltfptr[2132]) - /*_.VALDATA___V2133*/ meltfptr[2132] = (void*) sy_DISCR_NULL_RECEIVER; } + if (sy_DISCR_NULL_RECEIVER && NULL == /*_.VALDATA___V2151*/ meltfptr[2150]) + /*_.VALDATA___V2151*/ meltfptr[2150] = (void*) sy_DISCR_NULL_RECEIVER; } /*^getnamedsymbol*/ /*getnamedsym:DISCR_STRBUF*/ { melt_ptr_t sy_DISCR_STRBUF = meltgc_named_symbol("DISCR_STRBUF", MELT_GET); - if (sy_DISCR_STRBUF && NULL == /*_.VALDATA___V2137*/ meltfptr[2136]) - /*_.VALDATA___V2137*/ meltfptr[2136] = (void*) sy_DISCR_STRBUF; } + if (sy_DISCR_STRBUF && NULL == /*_.VALDATA___V2155*/ meltfptr[2154]) + /*_.VALDATA___V2155*/ meltfptr[2154] = (void*) sy_DISCR_STRBUF; } /*^getnamedsymbol*/ /*getnamedsym:DISCR_INTEGER*/ { melt_ptr_t sy_DISCR_INTEGER = meltgc_named_symbol("DISCR_INTEGER", MELT_GET); - if (sy_DISCR_INTEGER && NULL == /*_.VALDATA___V2141*/ meltfptr[2140]) - /*_.VALDATA___V2141*/ meltfptr[2140] = (void*) sy_DISCR_INTEGER; } + if (sy_DISCR_INTEGER && NULL == /*_.VALDATA___V2159*/ meltfptr[2158]) + /*_.VALDATA___V2159*/ meltfptr[2158] = (void*) sy_DISCR_INTEGER; } /*^getnamedsymbol*/ /*getnamedsym:DISCR_CONSTANT_INTEGER*/ { melt_ptr_t sy_DISCR_CONSTANT_INTEGER = meltgc_named_symbol("DISCR_CONSTANT_INTEGER", MELT_GET); - if (sy_DISCR_CONSTANT_INTEGER && NULL == /*_.VALDATA___V2145*/ meltfptr[2144]) - /*_.VALDATA___V2145*/ meltfptr[2144] = (void*) sy_DISCR_CONSTANT_INTEGER; } + if (sy_DISCR_CONSTANT_INTEGER && NULL == /*_.VALDATA___V2163*/ meltfptr[2162]) + /*_.VALDATA___V2163*/ meltfptr[2162] = (void*) sy_DISCR_CONSTANT_INTEGER; } /*^getnamedsymbol*/ /*getnamedsym:DISCR_LIST*/ { melt_ptr_t sy_DISCR_LIST = meltgc_named_symbol("DISCR_LIST", MELT_GET); - if (sy_DISCR_LIST && NULL == /*_.VALDATA___V2149*/ meltfptr[2148]) - /*_.VALDATA___V2149*/ meltfptr[2148] = (void*) sy_DISCR_LIST; } + if (sy_DISCR_LIST && NULL == /*_.VALDATA___V2167*/ meltfptr[2166]) + /*_.VALDATA___V2167*/ meltfptr[2166] = (void*) sy_DISCR_LIST; } /*^getnamedsymbol*/ /*getnamedsym:DISCR_PAIR*/ { melt_ptr_t sy_DISCR_PAIR = meltgc_named_symbol("DISCR_PAIR", MELT_GET); - if (sy_DISCR_PAIR && NULL == /*_.VALDATA___V2153*/ meltfptr[2152]) - /*_.VALDATA___V2153*/ meltfptr[2152] = (void*) sy_DISCR_PAIR; } + if (sy_DISCR_PAIR && NULL == /*_.VALDATA___V2171*/ meltfptr[2170]) + /*_.VALDATA___V2171*/ meltfptr[2170] = (void*) sy_DISCR_PAIR; } /*^getnamedsymbol*/ /*getnamedsym:DISCR_MULTIPLE*/ { melt_ptr_t sy_DISCR_MULTIPLE = meltgc_named_symbol("DISCR_MULTIPLE", MELT_GET); - if (sy_DISCR_MULTIPLE && NULL == /*_.VALDATA___V2157*/ meltfptr[2156]) - /*_.VALDATA___V2157*/ meltfptr[2156] = (void*) sy_DISCR_MULTIPLE; } + if (sy_DISCR_MULTIPLE && NULL == /*_.VALDATA___V2175*/ meltfptr[2174]) + /*_.VALDATA___V2175*/ meltfptr[2174] = (void*) sy_DISCR_MULTIPLE; } /*^getnamedsymbol*/ /*getnamedsym:DISCR_FIELD_SEQUENCE*/ { melt_ptr_t sy_DISCR_FIELD_SEQUENCE = meltgc_named_symbol("DISCR_FIELD_SEQUENCE", MELT_GET); - if (sy_DISCR_FIELD_SEQUENCE && NULL == /*_.VALDATA___V2161*/ meltfptr[2160]) - /*_.VALDATA___V2161*/ meltfptr[2160] = (void*) sy_DISCR_FIELD_SEQUENCE; } + if (sy_DISCR_FIELD_SEQUENCE && NULL == /*_.VALDATA___V2179*/ meltfptr[2178]) + /*_.VALDATA___V2179*/ meltfptr[2178] = (void*) sy_DISCR_FIELD_SEQUENCE; } /*^getnamedsymbol*/ /*getnamedsym:DISCR_BOX*/ { melt_ptr_t sy_DISCR_BOX = meltgc_named_symbol("DISCR_BOX", MELT_GET); - if (sy_DISCR_BOX && NULL == /*_.VALDATA___V2165*/ meltfptr[2164]) - /*_.VALDATA___V2165*/ meltfptr[2164] = (void*) sy_DISCR_BOX; } + if (sy_DISCR_BOX && NULL == /*_.VALDATA___V2183*/ meltfptr[2182]) + /*_.VALDATA___V2183*/ meltfptr[2182] = (void*) sy_DISCR_BOX; } /*^getnamedsymbol*/ /*getnamedsym:DISCR_TREE*/ { melt_ptr_t sy_DISCR_TREE = meltgc_named_symbol("DISCR_TREE", MELT_GET); - if (sy_DISCR_TREE && NULL == /*_.VALDATA___V2169*/ meltfptr[2168]) - /*_.VALDATA___V2169*/ meltfptr[2168] = (void*) sy_DISCR_TREE; } + if (sy_DISCR_TREE && NULL == /*_.VALDATA___V2187*/ meltfptr[2186]) + /*_.VALDATA___V2187*/ meltfptr[2186] = (void*) sy_DISCR_TREE; } /*^getnamedsymbol*/ /*getnamedsym:DISCR_GIMPLE*/ { melt_ptr_t sy_DISCR_GIMPLE = meltgc_named_symbol("DISCR_GIMPLE", MELT_GET); - if (sy_DISCR_GIMPLE && NULL == /*_.VALDATA___V2173*/ meltfptr[2172]) - /*_.VALDATA___V2173*/ meltfptr[2172] = (void*) sy_DISCR_GIMPLE; } + if (sy_DISCR_GIMPLE && NULL == /*_.VALDATA___V2191*/ meltfptr[2190]) + /*_.VALDATA___V2191*/ meltfptr[2190] = (void*) sy_DISCR_GIMPLE; } /*^getnamedsymbol*/ /*getnamedsym:DISCR_GIMPLE_SEQ*/ { melt_ptr_t sy_DISCR_GIMPLE_SEQ = meltgc_named_symbol("DISCR_GIMPLE_SEQ", MELT_GET); - if (sy_DISCR_GIMPLE_SEQ && NULL == /*_.VALDATA___V2177*/ meltfptr[2176]) - /*_.VALDATA___V2177*/ meltfptr[2176] = (void*) sy_DISCR_GIMPLE_SEQ; } + if (sy_DISCR_GIMPLE_SEQ && NULL == /*_.VALDATA___V2195*/ meltfptr[2194]) + /*_.VALDATA___V2195*/ meltfptr[2194] = (void*) sy_DISCR_GIMPLE_SEQ; } /*^getnamedsymbol*/ /*getnamedsym:DISCR_EDGE*/ { melt_ptr_t sy_DISCR_EDGE = meltgc_named_symbol("DISCR_EDGE", MELT_GET); - if (sy_DISCR_EDGE && NULL == /*_.VALDATA___V2181*/ meltfptr[2180]) - /*_.VALDATA___V2181*/ meltfptr[2180] = (void*) sy_DISCR_EDGE; } + if (sy_DISCR_EDGE && NULL == /*_.VALDATA___V2199*/ meltfptr[2198]) + /*_.VALDATA___V2199*/ meltfptr[2198] = (void*) sy_DISCR_EDGE; } /*^getnamedsymbol*/ /*getnamedsym:DISCR_BASIC_BLOCK*/ { melt_ptr_t sy_DISCR_BASIC_BLOCK = meltgc_named_symbol("DISCR_BASIC_BLOCK", MELT_GET); - if (sy_DISCR_BASIC_BLOCK && NULL == /*_.VALDATA___V2185*/ meltfptr[2184]) - /*_.VALDATA___V2185*/ meltfptr[2184] = (void*) sy_DISCR_BASIC_BLOCK; } + if (sy_DISCR_BASIC_BLOCK && NULL == /*_.VALDATA___V2203*/ meltfptr[2202]) + /*_.VALDATA___V2203*/ meltfptr[2202] = (void*) sy_DISCR_BASIC_BLOCK; } /*^getnamedsymbol*/ /*getnamedsym:DISCR_MAP_OBJECTS*/ { melt_ptr_t sy_DISCR_MAP_OBJECTS = meltgc_named_symbol("DISCR_MAP_OBJECTS", MELT_GET); - if (sy_DISCR_MAP_OBJECTS && NULL == /*_.VALDATA___V2189*/ meltfptr[2188]) - /*_.VALDATA___V2189*/ meltfptr[2188] = (void*) sy_DISCR_MAP_OBJECTS; } + if (sy_DISCR_MAP_OBJECTS && NULL == /*_.VALDATA___V2207*/ meltfptr[2206]) + /*_.VALDATA___V2207*/ meltfptr[2206] = (void*) sy_DISCR_MAP_OBJECTS; } /*^getnamedsymbol*/ /*getnamedsym:DISCR_MAP_STRINGS*/ { melt_ptr_t sy_DISCR_MAP_STRINGS = meltgc_named_symbol("DISCR_MAP_STRINGS", MELT_GET); - if (sy_DISCR_MAP_STRINGS && NULL == /*_.VALDATA___V2193*/ meltfptr[2192]) - /*_.VALDATA___V2193*/ meltfptr[2192] = (void*) sy_DISCR_MAP_STRINGS; } + if (sy_DISCR_MAP_STRINGS && NULL == /*_.VALDATA___V2211*/ meltfptr[2210]) + /*_.VALDATA___V2211*/ meltfptr[2210] = (void*) sy_DISCR_MAP_STRINGS; } /*^getnamedsymbol*/ /*getnamedsym:DISCR_MAP_TREES*/ { melt_ptr_t sy_DISCR_MAP_TREES = meltgc_named_symbol("DISCR_MAP_TREES", MELT_GET); - if (sy_DISCR_MAP_TREES && NULL == /*_.VALDATA___V2197*/ meltfptr[2196]) - /*_.VALDATA___V2197*/ meltfptr[2196] = (void*) sy_DISCR_MAP_TREES; } + if (sy_DISCR_MAP_TREES && NULL == /*_.VALDATA___V2215*/ meltfptr[2214]) + /*_.VALDATA___V2215*/ meltfptr[2214] = (void*) sy_DISCR_MAP_TREES; } /*^getnamedsymbol*/ /*getnamedsym:DISCR_MAP_GIMPLES*/ { melt_ptr_t sy_DISCR_MAP_GIMPLES = meltgc_named_symbol("DISCR_MAP_GIMPLES", MELT_GET); - if (sy_DISCR_MAP_GIMPLES && NULL == /*_.VALDATA___V2201*/ meltfptr[2200]) - /*_.VALDATA___V2201*/ meltfptr[2200] = (void*) sy_DISCR_MAP_GIMPLES; } + if (sy_DISCR_MAP_GIMPLES && NULL == /*_.VALDATA___V2219*/ meltfptr[2218]) + /*_.VALDATA___V2219*/ meltfptr[2218] = (void*) sy_DISCR_MAP_GIMPLES; } /*^getnamedsymbol*/ /*getnamedsym:DISCR_MAP_GIMPLE_SEQS*/ { melt_ptr_t sy_DISCR_MAP_GIMPLE_SEQS = meltgc_named_symbol("DISCR_MAP_GIMPLE_SEQS", MELT_GET); - if (sy_DISCR_MAP_GIMPLE_SEQS && NULL == /*_.VALDATA___V2205*/ meltfptr[2204]) - /*_.VALDATA___V2205*/ meltfptr[2204] = (void*) sy_DISCR_MAP_GIMPLE_SEQS; } + if (sy_DISCR_MAP_GIMPLE_SEQS && NULL == /*_.VALDATA___V2223*/ meltfptr[2222]) + /*_.VALDATA___V2223*/ meltfptr[2222] = (void*) sy_DISCR_MAP_GIMPLE_SEQS; } /*^getnamedsymbol*/ /*getnamedsym:DISCR_MAP_EDGES*/ { melt_ptr_t sy_DISCR_MAP_EDGES = meltgc_named_symbol("DISCR_MAP_EDGES", MELT_GET); - if (sy_DISCR_MAP_EDGES && NULL == /*_.VALDATA___V2209*/ meltfptr[2208]) - /*_.VALDATA___V2209*/ meltfptr[2208] = (void*) sy_DISCR_MAP_EDGES; } + if (sy_DISCR_MAP_EDGES && NULL == /*_.VALDATA___V2227*/ meltfptr[2226]) + /*_.VALDATA___V2227*/ meltfptr[2226] = (void*) sy_DISCR_MAP_EDGES; } /*^getnamedsymbol*/ /*getnamedsym:DISCR_MAP_BASIC_BLOCKS*/ { melt_ptr_t sy_DISCR_MAP_BASIC_BLOCKS = meltgc_named_symbol("DISCR_MAP_BASIC_BLOCKS", MELT_GET); - if (sy_DISCR_MAP_BASIC_BLOCKS && NULL == /*_.VALDATA___V2213*/ meltfptr[2212]) - /*_.VALDATA___V2213*/ meltfptr[2212] = (void*) sy_DISCR_MAP_BASIC_BLOCKS; } + if (sy_DISCR_MAP_BASIC_BLOCKS && NULL == /*_.VALDATA___V2231*/ meltfptr[2230]) + /*_.VALDATA___V2231*/ meltfptr[2230] = (void*) sy_DISCR_MAP_BASIC_BLOCKS; } /*^getnamedsymbol*/ /*getnamedsym:DISCR_PPL_CONSTRAINT_SYSTEM*/ { melt_ptr_t sy_DISCR_PPL_CONSTRAINT_SYSTEM = meltgc_named_symbol("DISCR_PPL_CONSTRAINT_SYSTEM", MELT_GET); - if (sy_DISCR_PPL_CONSTRAINT_SYSTEM && NULL == /*_.VALDATA___V2217*/ meltfptr[2216]) - /*_.VALDATA___V2217*/ meltfptr[2216] = (void*) sy_DISCR_PPL_CONSTRAINT_SYSTEM; } + if (sy_DISCR_PPL_CONSTRAINT_SYSTEM && NULL == /*_.VALDATA___V2235*/ meltfptr[2234]) + /*_.VALDATA___V2235*/ meltfptr[2234] = (void*) sy_DISCR_PPL_CONSTRAINT_SYSTEM; } /*^getnamedsymbol*/ /*getnamedsym:DISCR_PPL_POLYHEDRON*/ { melt_ptr_t sy_DISCR_PPL_POLYHEDRON = meltgc_named_symbol("DISCR_PPL_POLYHEDRON", MELT_GET); - if (sy_DISCR_PPL_POLYHEDRON && NULL == /*_.VALDATA___V2221*/ meltfptr[2220]) - /*_.VALDATA___V2221*/ meltfptr[2220] = (void*) sy_DISCR_PPL_POLYHEDRON; } + if (sy_DISCR_PPL_POLYHEDRON && NULL == /*_.VALDATA___V2239*/ meltfptr[2238]) + /*_.VALDATA___V2239*/ meltfptr[2238] = (void*) sy_DISCR_PPL_POLYHEDRON; } /*^getnamedsymbol*/ /*getnamedsym:DISCR_FILE*/ { melt_ptr_t sy_DISCR_FILE = meltgc_named_symbol("DISCR_FILE", MELT_GET); - if (sy_DISCR_FILE && NULL == /*_.VALDATA___V2225*/ meltfptr[2224]) - /*_.VALDATA___V2225*/ meltfptr[2224] = (void*) sy_DISCR_FILE; } + if (sy_DISCR_FILE && NULL == /*_.VALDATA___V2243*/ meltfptr[2242]) + /*_.VALDATA___V2243*/ meltfptr[2242] = (void*) sy_DISCR_FILE; } /*^getnamedsymbol*/ /*getnamedsym:DISCR_RAWFILE*/ { melt_ptr_t sy_DISCR_RAWFILE = meltgc_named_symbol("DISCR_RAWFILE", MELT_GET); - if (sy_DISCR_RAWFILE && NULL == /*_.VALDATA___V2229*/ meltfptr[2228]) - /*_.VALDATA___V2229*/ meltfptr[2228] = (void*) sy_DISCR_RAWFILE; } + if (sy_DISCR_RAWFILE && NULL == /*_.VALDATA___V2247*/ meltfptr[2246]) + /*_.VALDATA___V2247*/ meltfptr[2246] = (void*) sy_DISCR_RAWFILE; } /*^getnamedsymbol*/ /*getnamedsym:DISCR_CLASS_SEQUENCE*/ { melt_ptr_t sy_DISCR_CLASS_SEQUENCE = meltgc_named_symbol("DISCR_CLASS_SEQUENCE", MELT_GET); - if (sy_DISCR_CLASS_SEQUENCE && NULL == /*_.VALDATA___V2233*/ meltfptr[2232]) - /*_.VALDATA___V2233*/ meltfptr[2232] = (void*) sy_DISCR_CLASS_SEQUENCE; } + if (sy_DISCR_CLASS_SEQUENCE && NULL == /*_.VALDATA___V2251*/ meltfptr[2250]) + /*_.VALDATA___V2251*/ meltfptr[2250] = (void*) sy_DISCR_CLASS_SEQUENCE; } /*^getnamedsymbol*/ /*getnamedsym:DISCR_METHOD_MAP*/ { melt_ptr_t sy_DISCR_METHOD_MAP = meltgc_named_symbol("DISCR_METHOD_MAP", MELT_GET); - if (sy_DISCR_METHOD_MAP && NULL == /*_.VALDATA___V2237*/ meltfptr[2236]) - /*_.VALDATA___V2237*/ meltfptr[2236] = (void*) sy_DISCR_METHOD_MAP; } + if (sy_DISCR_METHOD_MAP && NULL == /*_.VALDATA___V2255*/ meltfptr[2254]) + /*_.VALDATA___V2255*/ meltfptr[2254] = (void*) sy_DISCR_METHOD_MAP; } /*^getnamedsymbol*/ /*getnamedsym:DISCR_CHARACTER_INTEGER*/ { melt_ptr_t sy_DISCR_CHARACTER_INTEGER = meltgc_named_symbol("DISCR_CHARACTER_INTEGER", MELT_GET); - if (sy_DISCR_CHARACTER_INTEGER && NULL == /*_.VALDATA___V2241*/ meltfptr[2240]) - /*_.VALDATA___V2241*/ meltfptr[2240] = (void*) sy_DISCR_CHARACTER_INTEGER; } + if (sy_DISCR_CHARACTER_INTEGER && NULL == /*_.VALDATA___V2259*/ meltfptr[2258]) + /*_.VALDATA___V2259*/ meltfptr[2258] = (void*) sy_DISCR_CHARACTER_INTEGER; } /*^getnamedsymbol*/ /*getnamedsym:DISCR_MIXED_INTEGER*/ { melt_ptr_t sy_DISCR_MIXED_INTEGER = meltgc_named_symbol("DISCR_MIXED_INTEGER", MELT_GET); - if (sy_DISCR_MIXED_INTEGER && NULL == /*_.VALDATA___V2245*/ meltfptr[2244]) - /*_.VALDATA___V2245*/ meltfptr[2244] = (void*) sy_DISCR_MIXED_INTEGER; } + if (sy_DISCR_MIXED_INTEGER && NULL == /*_.VALDATA___V2263*/ meltfptr[2262]) + /*_.VALDATA___V2263*/ meltfptr[2262] = (void*) sy_DISCR_MIXED_INTEGER; } /*^getnamedsymbol*/ /*getnamedsym:DISCR_MIXED_BIGINT*/ { melt_ptr_t sy_DISCR_MIXED_BIGINT = meltgc_named_symbol("DISCR_MIXED_BIGINT", MELT_GET); - if (sy_DISCR_MIXED_BIGINT && NULL == /*_.VALDATA___V2249*/ meltfptr[2248]) - /*_.VALDATA___V2249*/ meltfptr[2248] = (void*) sy_DISCR_MIXED_BIGINT; } + if (sy_DISCR_MIXED_BIGINT && NULL == /*_.VALDATA___V2267*/ meltfptr[2266]) + /*_.VALDATA___V2267*/ meltfptr[2266] = (void*) sy_DISCR_MIXED_BIGINT; } /*^getnamedsymbol*/ /*getnamedsym:DISCR_MIXED_LOCATION*/ { melt_ptr_t sy_DISCR_MIXED_LOCATION = meltgc_named_symbol("DISCR_MIXED_LOCATION", MELT_GET); - if (sy_DISCR_MIXED_LOCATION && NULL == /*_.VALDATA___V2253*/ meltfptr[2252]) - /*_.VALDATA___V2253*/ meltfptr[2252] = (void*) sy_DISCR_MIXED_LOCATION; } + if (sy_DISCR_MIXED_LOCATION && NULL == /*_.VALDATA___V2271*/ meltfptr[2270]) + /*_.VALDATA___V2271*/ meltfptr[2270] = (void*) sy_DISCR_MIXED_LOCATION; } /*^getnamedsymbol*/ /*getnamedsym:DISCR_CLOSURE*/ { melt_ptr_t sy_DISCR_CLOSURE = meltgc_named_symbol("DISCR_CLOSURE", MELT_GET); - if (sy_DISCR_CLOSURE && NULL == /*_.VALDATA___V2257*/ meltfptr[2256]) - /*_.VALDATA___V2257*/ meltfptr[2256] = (void*) sy_DISCR_CLOSURE; } + if (sy_DISCR_CLOSURE && NULL == /*_.VALDATA___V2275*/ meltfptr[2274]) + /*_.VALDATA___V2275*/ meltfptr[2274] = (void*) sy_DISCR_CLOSURE; } /*^getnamedsymbol*/ /*getnamedsym:DISCR_ROUTINE*/ { melt_ptr_t sy_DISCR_ROUTINE = meltgc_named_symbol("DISCR_ROUTINE", MELT_GET); - if (sy_DISCR_ROUTINE && NULL == /*_.VALDATA___V2261*/ meltfptr[2260]) - /*_.VALDATA___V2261*/ meltfptr[2260] = (void*) sy_DISCR_ROUTINE; } + if (sy_DISCR_ROUTINE && NULL == /*_.VALDATA___V2279*/ meltfptr[2278]) + /*_.VALDATA___V2279*/ meltfptr[2278] = (void*) sy_DISCR_ROUTINE; } /*^getnamedsymbol*/ /*getnamedsym:CTYPE_VALUE*/ { melt_ptr_t sy_CTYPE_VALUE = meltgc_named_symbol("CTYPE_VALUE", MELT_GET); - if (sy_CTYPE_VALUE && NULL == /*_.VALDATA___V2267*/ meltfptr[2266]) - /*_.VALDATA___V2267*/ meltfptr[2266] = (void*) sy_CTYPE_VALUE; } + if (sy_CTYPE_VALUE && NULL == /*_.VALDATA___V2285*/ meltfptr[2284]) + /*_.VALDATA___V2285*/ meltfptr[2284] = (void*) sy_CTYPE_VALUE; } /*^getnamedkeyword*/ /*getnamedkeyw:VALUE*/ { melt_ptr_t kw_VALUE = meltgc_named_keyword("VALUE", MELT_GET); - if (kw_VALUE) /*_.VALDATA___V2271*/ meltfptr[2270] = (void*) kw_VALUE; } + if (kw_VALUE) /*_.VALDATA___V2289*/ meltfptr[2288] = (void*) kw_VALUE; } /*^getnamedsymbol*/ /*getnamedsym:CTYPE_LONG*/ { melt_ptr_t sy_CTYPE_LONG = meltgc_named_symbol("CTYPE_LONG", MELT_GET); - if (sy_CTYPE_LONG && NULL == /*_.VALDATA___V2279*/ meltfptr[2278]) - /*_.VALDATA___V2279*/ meltfptr[2278] = (void*) sy_CTYPE_LONG; } + if (sy_CTYPE_LONG && NULL == /*_.VALDATA___V2297*/ meltfptr[2296]) + /*_.VALDATA___V2297*/ meltfptr[2296] = (void*) sy_CTYPE_LONG; } /*^getnamedkeyword*/ /*getnamedkeyw:LONG*/ { melt_ptr_t kw_LONG = meltgc_named_keyword("LONG", MELT_GET); - if (kw_LONG) /*_.VALDATA___V2283*/ meltfptr[2282] = (void*) kw_LONG; } + if (kw_LONG) /*_.VALDATA___V2301*/ meltfptr[2300] = (void*) kw_LONG; } /*^getnamedsymbol*/ /*getnamedsym:CTYPE_TREE*/ { melt_ptr_t sy_CTYPE_TREE = meltgc_named_symbol("CTYPE_TREE", MELT_GET); - if (sy_CTYPE_TREE && NULL == /*_.VALDATA___V2290*/ meltfptr[2289]) - /*_.VALDATA___V2290*/ meltfptr[2289] = (void*) sy_CTYPE_TREE; } + if (sy_CTYPE_TREE && NULL == /*_.VALDATA___V2308*/ meltfptr[2307]) + /*_.VALDATA___V2308*/ meltfptr[2307] = (void*) sy_CTYPE_TREE; } /*^getnamedkeyword*/ /*getnamedkeyw:TREE*/ { melt_ptr_t kw_TREE = meltgc_named_keyword("TREE", MELT_GET); - if (kw_TREE) /*_.VALDATA___V2294*/ meltfptr[2293] = (void*) kw_TREE; } + if (kw_TREE) /*_.VALDATA___V2312*/ meltfptr[2311] = (void*) kw_TREE; } /*^getnamedsymbol*/ /*getnamedsym:CTYPE_GIMPLE*/ { melt_ptr_t sy_CTYPE_GIMPLE = meltgc_named_symbol("CTYPE_GIMPLE", MELT_GET); - if (sy_CTYPE_GIMPLE && NULL == /*_.VALDATA___V2302*/ meltfptr[2301]) - /*_.VALDATA___V2302*/ meltfptr[2301] = (void*) sy_CTYPE_GIMPLE; } + if (sy_CTYPE_GIMPLE && NULL == /*_.VALDATA___V2320*/ meltfptr[2319]) + /*_.VALDATA___V2320*/ meltfptr[2319] = (void*) sy_CTYPE_GIMPLE; } /*^getnamedkeyword*/ /*getnamedkeyw:GIMPLE*/ { melt_ptr_t kw_GIMPLE = meltgc_named_keyword("GIMPLE", MELT_GET); - if (kw_GIMPLE) /*_.VALDATA___V2306*/ meltfptr[2305] = (void*) kw_GIMPLE; } + if (kw_GIMPLE) /*_.VALDATA___V2324*/ meltfptr[2323] = (void*) kw_GIMPLE; } /*^getnamedsymbol*/ /*getnamedsym:CTYPE_GIMPLE_SEQ*/ { melt_ptr_t sy_CTYPE_GIMPLE_SEQ = meltgc_named_symbol("CTYPE_GIMPLE_SEQ", MELT_GET); - if (sy_CTYPE_GIMPLE_SEQ && NULL == /*_.VALDATA___V2314*/ meltfptr[2313]) - /*_.VALDATA___V2314*/ meltfptr[2313] = (void*) sy_CTYPE_GIMPLE_SEQ; } + if (sy_CTYPE_GIMPLE_SEQ && NULL == /*_.VALDATA___V2332*/ meltfptr[2331]) + /*_.VALDATA___V2332*/ meltfptr[2331] = (void*) sy_CTYPE_GIMPLE_SEQ; } /*^getnamedkeyword*/ /*getnamedkeyw:GIMPLE_SEQ*/ { melt_ptr_t kw_GIMPLE_SEQ = meltgc_named_keyword("GIMPLE_SEQ", MELT_GET); - if (kw_GIMPLE_SEQ) /*_.VALDATA___V2318*/ meltfptr[2317] = (void*) kw_GIMPLE_SEQ; } + if (kw_GIMPLE_SEQ) /*_.VALDATA___V2336*/ meltfptr[2335] = (void*) kw_GIMPLE_SEQ; } /*^getnamedsymbol*/ /*getnamedsym:CTYPE_BASIC_BLOCK*/ { melt_ptr_t sy_CTYPE_BASIC_BLOCK = meltgc_named_symbol("CTYPE_BASIC_BLOCK", MELT_GET); - if (sy_CTYPE_BASIC_BLOCK && NULL == /*_.VALDATA___V2326*/ meltfptr[2325]) - /*_.VALDATA___V2326*/ meltfptr[2325] = (void*) sy_CTYPE_BASIC_BLOCK; } + if (sy_CTYPE_BASIC_BLOCK && NULL == /*_.VALDATA___V2344*/ meltfptr[2343]) + /*_.VALDATA___V2344*/ meltfptr[2343] = (void*) sy_CTYPE_BASIC_BLOCK; } /*^getnamedkeyword*/ /*getnamedkeyw:BASIC_BLOCK*/ { melt_ptr_t kw_BASIC_BLOCK = meltgc_named_keyword("BASIC_BLOCK", MELT_GET); - if (kw_BASIC_BLOCK) /*_.VALDATA___V2330*/ meltfptr[2329] = (void*) kw_BASIC_BLOCK; } + if (kw_BASIC_BLOCK) /*_.VALDATA___V2348*/ meltfptr[2347] = (void*) kw_BASIC_BLOCK; } /*^getnamedsymbol*/ /*getnamedsym:CTYPE_EDGE*/ { melt_ptr_t sy_CTYPE_EDGE = meltgc_named_symbol("CTYPE_EDGE", MELT_GET); - if (sy_CTYPE_EDGE && NULL == /*_.VALDATA___V2338*/ meltfptr[2337]) - /*_.VALDATA___V2338*/ meltfptr[2337] = (void*) sy_CTYPE_EDGE; } + if (sy_CTYPE_EDGE && NULL == /*_.VALDATA___V2356*/ meltfptr[2355]) + /*_.VALDATA___V2356*/ meltfptr[2355] = (void*) sy_CTYPE_EDGE; } /*^getnamedkeyword*/ /*getnamedkeyw:EDGE*/ { melt_ptr_t kw_EDGE = meltgc_named_keyword("EDGE", MELT_GET); - if (kw_EDGE) /*_.VALDATA___V2342*/ meltfptr[2341] = (void*) kw_EDGE; } + if (kw_EDGE) /*_.VALDATA___V2360*/ meltfptr[2359] = (void*) kw_EDGE; } /*^getnamedsymbol*/ /*getnamedsym:CTYPE_PPL_COEFFICIENT*/ { melt_ptr_t sy_CTYPE_PPL_COEFFICIENT = meltgc_named_symbol("CTYPE_PPL_COEFFICIENT", MELT_GET); - if (sy_CTYPE_PPL_COEFFICIENT && NULL == /*_.VALDATA___V2350*/ meltfptr[2349]) - /*_.VALDATA___V2350*/ meltfptr[2349] = (void*) sy_CTYPE_PPL_COEFFICIENT; } + if (sy_CTYPE_PPL_COEFFICIENT && NULL == /*_.VALDATA___V2368*/ meltfptr[2367]) + /*_.VALDATA___V2368*/ meltfptr[2367] = (void*) sy_CTYPE_PPL_COEFFICIENT; } /*^getnamedkeyword*/ /*getnamedkeyw:PPL_COEFFICIENT*/ { melt_ptr_t kw_PPL_COEFFICIENT = meltgc_named_keyword("PPL_COEFFICIENT", MELT_GET); - if (kw_PPL_COEFFICIENT) /*_.VALDATA___V2354*/ meltfptr[2353] = (void*) kw_PPL_COEFFICIENT; } + if (kw_PPL_COEFFICIENT) /*_.VALDATA___V2372*/ meltfptr[2371] = (void*) kw_PPL_COEFFICIENT; } /*^getnamedsymbol*/ /*getnamedsym:CTYPE_PPL_LINEAR_EXPRESSION*/ { melt_ptr_t sy_CTYPE_PPL_LINEAR_EXPRESSION = meltgc_named_symbol("CTYPE_PPL_LINEAR_EXPRESSION", MELT_GET); - if (sy_CTYPE_PPL_LINEAR_EXPRESSION && NULL == /*_.VALDATA___V2361*/ meltfptr[2360]) - /*_.VALDATA___V2361*/ meltfptr[2360] = (void*) sy_CTYPE_PPL_LINEAR_EXPRESSION; } + if (sy_CTYPE_PPL_LINEAR_EXPRESSION && NULL == /*_.VALDATA___V2379*/ meltfptr[2378]) + /*_.VALDATA___V2379*/ meltfptr[2378] = (void*) sy_CTYPE_PPL_LINEAR_EXPRESSION; } /*^getnamedkeyword*/ /*getnamedkeyw:PPL_LINEAR_EXPRESSION*/ { melt_ptr_t kw_PPL_LINEAR_EXPRESSION = meltgc_named_keyword("PPL_LINEAR_EXPRESSION", MELT_GET); - if (kw_PPL_LINEAR_EXPRESSION) /*_.VALDATA___V2365*/ meltfptr[2364] = (void*) kw_PPL_LINEAR_EXPRESSION; } + if (kw_PPL_LINEAR_EXPRESSION) /*_.VALDATA___V2383*/ meltfptr[2382] = (void*) kw_PPL_LINEAR_EXPRESSION; } /*^getnamedsymbol*/ /*getnamedsym:CTYPE_PPL_CONSTRAINT*/ { melt_ptr_t sy_CTYPE_PPL_CONSTRAINT = meltgc_named_symbol("CTYPE_PPL_CONSTRAINT", MELT_GET); - if (sy_CTYPE_PPL_CONSTRAINT && NULL == /*_.VALDATA___V2372*/ meltfptr[2371]) - /*_.VALDATA___V2372*/ meltfptr[2371] = (void*) sy_CTYPE_PPL_CONSTRAINT; } + if (sy_CTYPE_PPL_CONSTRAINT && NULL == /*_.VALDATA___V2390*/ meltfptr[2389]) + /*_.VALDATA___V2390*/ meltfptr[2389] = (void*) sy_CTYPE_PPL_CONSTRAINT; } /*^getnamedkeyword*/ /*getnamedkeyw:PPL_CONSTRAINT*/ { melt_ptr_t kw_PPL_CONSTRAINT = meltgc_named_keyword("PPL_CONSTRAINT", MELT_GET); - if (kw_PPL_CONSTRAINT) /*_.VALDATA___V2376*/ meltfptr[2375] = (void*) kw_PPL_CONSTRAINT; } + if (kw_PPL_CONSTRAINT) /*_.VALDATA___V2394*/ meltfptr[2393] = (void*) kw_PPL_CONSTRAINT; } /*^getnamedsymbol*/ /*getnamedsym:CTYPE_PPL_CONSTRAINT_SYSTEM*/ { melt_ptr_t sy_CTYPE_PPL_CONSTRAINT_SYSTEM = meltgc_named_symbol("CTYPE_PPL_CONSTRAINT_SYSTEM", MELT_GET); - if (sy_CTYPE_PPL_CONSTRAINT_SYSTEM && NULL == /*_.VALDATA___V2383*/ meltfptr[2382]) - /*_.VALDATA___V2383*/ meltfptr[2382] = (void*) sy_CTYPE_PPL_CONSTRAINT_SYSTEM; } + if (sy_CTYPE_PPL_CONSTRAINT_SYSTEM && NULL == /*_.VALDATA___V2401*/ meltfptr[2400]) + /*_.VALDATA___V2401*/ meltfptr[2400] = (void*) sy_CTYPE_PPL_CONSTRAINT_SYSTEM; } /*^getnamedkeyword*/ /*getnamedkeyw:PPL_CONSTRAINT_SYSTEM*/ { melt_ptr_t kw_PPL_CONSTRAINT_SYSTEM = meltgc_named_keyword("PPL_CONSTRAINT_SYSTEM", MELT_GET); - if (kw_PPL_CONSTRAINT_SYSTEM) /*_.VALDATA___V2387*/ meltfptr[2386] = (void*) kw_PPL_CONSTRAINT_SYSTEM; } + if (kw_PPL_CONSTRAINT_SYSTEM) /*_.VALDATA___V2405*/ meltfptr[2404] = (void*) kw_PPL_CONSTRAINT_SYSTEM; } /*^getnamedsymbol*/ /*getnamedsym:CTYPE_PPL_POLYHEDRON*/ { melt_ptr_t sy_CTYPE_PPL_POLYHEDRON = meltgc_named_symbol("CTYPE_PPL_POLYHEDRON", MELT_GET); - if (sy_CTYPE_PPL_POLYHEDRON && NULL == /*_.VALDATA___V2394*/ meltfptr[2393]) - /*_.VALDATA___V2394*/ meltfptr[2393] = (void*) sy_CTYPE_PPL_POLYHEDRON; } + if (sy_CTYPE_PPL_POLYHEDRON && NULL == /*_.VALDATA___V2412*/ meltfptr[2411]) + /*_.VALDATA___V2412*/ meltfptr[2411] = (void*) sy_CTYPE_PPL_POLYHEDRON; } /*^getnamedkeyword*/ /*getnamedkeyw:PPL_POLYHEDRON*/ { melt_ptr_t kw_PPL_POLYHEDRON = meltgc_named_keyword("PPL_POLYHEDRON", MELT_GET); - if (kw_PPL_POLYHEDRON) /*_.VALDATA___V2398*/ meltfptr[2397] = (void*) kw_PPL_POLYHEDRON; } + if (kw_PPL_POLYHEDRON) /*_.VALDATA___V2416*/ meltfptr[2415] = (void*) kw_PPL_POLYHEDRON; } /*^getnamedsymbol*/ /*getnamedsym:CTYPE_VOID*/ { melt_ptr_t sy_CTYPE_VOID = meltgc_named_symbol("CTYPE_VOID", MELT_GET); - if (sy_CTYPE_VOID && NULL == /*_.VALDATA___V2405*/ meltfptr[2404]) - /*_.VALDATA___V2405*/ meltfptr[2404] = (void*) sy_CTYPE_VOID; } + if (sy_CTYPE_VOID && NULL == /*_.VALDATA___V2423*/ meltfptr[2422]) + /*_.VALDATA___V2423*/ meltfptr[2422] = (void*) sy_CTYPE_VOID; } /*^getnamedkeyword*/ /*getnamedkeyw:VOID*/ { melt_ptr_t kw_VOID = meltgc_named_keyword("VOID", MELT_GET); - if (kw_VOID) /*_.VALDATA___V2409*/ meltfptr[2408] = (void*) kw_VOID; } + if (kw_VOID) /*_.VALDATA___V2427*/ meltfptr[2426] = (void*) kw_VOID; } /*^getnamedsymbol*/ /*getnamedsym:CTYPE_CSTRING*/ { melt_ptr_t sy_CTYPE_CSTRING = meltgc_named_symbol("CTYPE_CSTRING", MELT_GET); - if (sy_CTYPE_CSTRING && NULL == /*_.VALDATA___V2412*/ meltfptr[2411]) - /*_.VALDATA___V2412*/ meltfptr[2411] = (void*) sy_CTYPE_CSTRING; } + if (sy_CTYPE_CSTRING && NULL == /*_.VALDATA___V2430*/ meltfptr[2429]) + /*_.VALDATA___V2430*/ meltfptr[2429] = (void*) sy_CTYPE_CSTRING; } /*^getnamedkeyword*/ /*getnamedkeyw:CSTRING*/ { melt_ptr_t kw_CSTRING = meltgc_named_keyword("CSTRING", MELT_GET); - if (kw_CSTRING) /*_.VALDATA___V2417*/ meltfptr[2416] = (void*) kw_CSTRING; } + if (kw_CSTRING) /*_.VALDATA___V2435*/ meltfptr[2434] = (void*) kw_CSTRING; } /*^getnamedsymbol*/ /*getnamedsym:CONTAINER_CLONEMAPSTRING*/ { melt_ptr_t sy_CONTAINER_CLONEMAPSTRING = meltgc_named_symbol("CONTAINER_CLONEMAPSTRING", MELT_GET); - if (sy_CONTAINER_CLONEMAPSTRING && NULL == /*_.VALDATA___V2430*/ meltfptr[2429]) - /*_.VALDATA___V2430*/ meltfptr[2429] = (void*) sy_CONTAINER_CLONEMAPSTRING; } + if (sy_CONTAINER_CLONEMAPSTRING && NULL == /*_.VALDATA___V2448*/ meltfptr[2447]) + /*_.VALDATA___V2448*/ meltfptr[2447] = (void*) sy_CONTAINER_CLONEMAPSTRING; } /*^getnamedsymbol*/ /*getnamedsym:CLASS_DELAYED_QUEUE*/ { melt_ptr_t sy_CLASS_DELAYED_QUEUE = meltgc_named_symbol("CLASS_DELAYED_QUEUE", MELT_GET); - if (sy_CLASS_DELAYED_QUEUE && NULL == /*_.VALDATA___V2513*/ meltfptr[2512]) - /*_.VALDATA___V2513*/ meltfptr[2512] = (void*) sy_CLASS_DELAYED_QUEUE; } + if (sy_CLASS_DELAYED_QUEUE && NULL == /*_.VALDATA___V2531*/ meltfptr[2530]) + /*_.VALDATA___V2531*/ meltfptr[2530] = (void*) sy_CLASS_DELAYED_QUEUE; } /*^getnamedsymbol*/ /*getnamedsym:DELQU_FIRST*/ { melt_ptr_t sy_DELQU_FIRST = meltgc_named_symbol("DELQU_FIRST", MELT_GET); - if (sy_DELQU_FIRST && NULL == /*_.VALDATA___V2515*/ meltfptr[2514]) - /*_.VALDATA___V2515*/ meltfptr[2514] = (void*) sy_DELQU_FIRST; } + if (sy_DELQU_FIRST && NULL == /*_.VALDATA___V2533*/ meltfptr[2532]) + /*_.VALDATA___V2533*/ meltfptr[2532] = (void*) sy_DELQU_FIRST; } /*^getnamedsymbol*/ /*getnamedsym:DELQU_LAST*/ { melt_ptr_t sy_DELQU_LAST = meltgc_named_symbol("DELQU_LAST", MELT_GET); - if (sy_DELQU_LAST && NULL == /*_.VALDATA___V2517*/ meltfptr[2516]) - /*_.VALDATA___V2517*/ meltfptr[2516] = (void*) sy_DELQU_LAST; } + if (sy_DELQU_LAST && NULL == /*_.VALDATA___V2535*/ meltfptr[2534]) + /*_.VALDATA___V2535*/ meltfptr[2534] = (void*) sy_DELQU_LAST; } /*^getnamedsymbol*/ /*getnamedsym:DELQU_DATA*/ { melt_ptr_t sy_DELQU_DATA = meltgc_named_symbol("DELQU_DATA", MELT_GET); - if (sy_DELQU_DATA && NULL == /*_.VALDATA___V2519*/ meltfptr[2518]) - /*_.VALDATA___V2519*/ meltfptr[2518] = (void*) sy_DELQU_DATA; } + if (sy_DELQU_DATA && NULL == /*_.VALDATA___V2537*/ meltfptr[2536]) + /*_.VALDATA___V2537*/ meltfptr[2536] = (void*) sy_DELQU_DATA; } /*^getnamedsymbol*/ /*getnamedsym:FINAL_DELAYED_QUEUE*/ { melt_ptr_t sy_FINAL_DELAYED_QUEUE = meltgc_named_symbol("FINAL_DELAYED_QUEUE", MELT_GET); - if (sy_FINAL_DELAYED_QUEUE && NULL == /*_.VALDATA___V2521*/ meltfptr[2520]) - /*_.VALDATA___V2521*/ meltfptr[2520] = (void*) sy_FINAL_DELAYED_QUEUE; } + if (sy_FINAL_DELAYED_QUEUE && NULL == /*_.VALDATA___V2539*/ meltfptr[2538]) + /*_.VALDATA___V2539*/ meltfptr[2538] = (void*) sy_FINAL_DELAYED_QUEUE; } /*^getnamedsymbol*/ /*getnamedsym:START_UNIT_DELAYED_QUEUE*/ { melt_ptr_t sy_START_UNIT_DELAYED_QUEUE = meltgc_named_symbol("START_UNIT_DELAYED_QUEUE", MELT_GET); - if (sy_START_UNIT_DELAYED_QUEUE && NULL == /*_.VALDATA___V2527*/ meltfptr[2526]) - /*_.VALDATA___V2527*/ meltfptr[2526] = (void*) sy_START_UNIT_DELAYED_QUEUE; } + if (sy_START_UNIT_DELAYED_QUEUE && NULL == /*_.VALDATA___V2545*/ meltfptr[2544]) + /*_.VALDATA___V2545*/ meltfptr[2544] = (void*) sy_START_UNIT_DELAYED_QUEUE; } /*^getnamedsymbol*/ /*getnamedsym:FINISH_UNIT_DELAYED_QUEUE*/ { melt_ptr_t sy_FINISH_UNIT_DELAYED_QUEUE = meltgc_named_symbol("FINISH_UNIT_DELAYED_QUEUE", MELT_GET); - if (sy_FINISH_UNIT_DELAYED_QUEUE && NULL == /*_.VALDATA___V2533*/ meltfptr[2532]) - /*_.VALDATA___V2533*/ meltfptr[2532] = (void*) sy_FINISH_UNIT_DELAYED_QUEUE; } + if (sy_FINISH_UNIT_DELAYED_QUEUE && NULL == /*_.VALDATA___V2551*/ meltfptr[2550]) + /*_.VALDATA___V2551*/ meltfptr[2550] = (void*) sy_FINISH_UNIT_DELAYED_QUEUE; } /*^getnamedsymbol*/ /*getnamedsym:OPTION_MAP_CONTAINER*/ { melt_ptr_t sy_OPTION_MAP_CONTAINER = meltgc_named_symbol("OPTION_MAP_CONTAINER", MELT_GET); - if (sy_OPTION_MAP_CONTAINER && NULL == /*_.VALDATA___V2539*/ meltfptr[2538]) - /*_.VALDATA___V2539*/ meltfptr[2538] = (void*) sy_OPTION_MAP_CONTAINER; } + if (sy_OPTION_MAP_CONTAINER && NULL == /*_.VALDATA___V2557*/ meltfptr[2556]) + /*_.VALDATA___V2557*/ meltfptr[2556] = (void*) sy_OPTION_MAP_CONTAINER; } /*^getnamedsymbol*/ /*getnamedsym:CLASS_OPTION_DESCRIPTOR*/ { melt_ptr_t sy_CLASS_OPTION_DESCRIPTOR = meltgc_named_symbol("CLASS_OPTION_DESCRIPTOR", MELT_GET); - if (sy_CLASS_OPTION_DESCRIPTOR && NULL == /*_.VALDATA___V2541*/ meltfptr[2540]) - /*_.VALDATA___V2541*/ meltfptr[2540] = (void*) sy_CLASS_OPTION_DESCRIPTOR; } + if (sy_CLASS_OPTION_DESCRIPTOR && NULL == /*_.VALDATA___V2559*/ meltfptr[2558]) + /*_.VALDATA___V2559*/ meltfptr[2558] = (void*) sy_CLASS_OPTION_DESCRIPTOR; } /*^getnamedsymbol*/ /*getnamedsym:OPTDESC_NAME*/ { melt_ptr_t sy_OPTDESC_NAME = meltgc_named_symbol("OPTDESC_NAME", MELT_GET); - if (sy_OPTDESC_NAME && NULL == /*_.VALDATA___V2543*/ meltfptr[2542]) - /*_.VALDATA___V2543*/ meltfptr[2542] = (void*) sy_OPTDESC_NAME; } + if (sy_OPTDESC_NAME && NULL == /*_.VALDATA___V2561*/ meltfptr[2560]) + /*_.VALDATA___V2561*/ meltfptr[2560] = (void*) sy_OPTDESC_NAME; } /*^getnamedsymbol*/ /*getnamedsym:OPTDESC_FUN*/ { melt_ptr_t sy_OPTDESC_FUN = meltgc_named_symbol("OPTDESC_FUN", MELT_GET); - if (sy_OPTDESC_FUN && NULL == /*_.VALDATA___V2545*/ meltfptr[2544]) - /*_.VALDATA___V2545*/ meltfptr[2544] = (void*) sy_OPTDESC_FUN; } + if (sy_OPTDESC_FUN && NULL == /*_.VALDATA___V2563*/ meltfptr[2562]) + /*_.VALDATA___V2563*/ meltfptr[2562] = (void*) sy_OPTDESC_FUN; } /*^getnamedsymbol*/ /*getnamedsym:OPTDESC_HELP*/ { melt_ptr_t sy_OPTDESC_HELP = meltgc_named_symbol("OPTDESC_HELP", MELT_GET); - if (sy_OPTDESC_HELP && NULL == /*_.VALDATA___V2547*/ meltfptr[2546]) - /*_.VALDATA___V2547*/ meltfptr[2546] = (void*) sy_OPTDESC_HELP; } + if (sy_OPTDESC_HELP && NULL == /*_.VALDATA___V2565*/ meltfptr[2564]) + /*_.VALDATA___V2565*/ meltfptr[2564] = (void*) sy_OPTDESC_HELP; } /*^getnamedsymbol*/ /*getnamedsym:HELP*/ { melt_ptr_t sy_HELP = meltgc_named_symbol("HELP", MELT_GET); - if (sy_HELP && NULL == /*_.VALDATA___V2565*/ meltfptr[2564]) - /*_.VALDATA___V2565*/ meltfptr[2564] = (void*) sy_HELP; } + if (sy_HELP && NULL == /*_.VALDATA___V2583*/ meltfptr[2582]) + /*_.VALDATA___V2583*/ meltfptr[2582] = (void*) sy_HELP; } /*^getnamedsymbol*/ /*getnamedsym:MELT_ERROR_COUNTER*/ { melt_ptr_t sy_MELT_ERROR_COUNTER = meltgc_named_symbol("MELT_ERROR_COUNTER", MELT_GET); - if (sy_MELT_ERROR_COUNTER && NULL == /*_.VALDATA___V2568*/ meltfptr[2567]) - /*_.VALDATA___V2568*/ meltfptr[2567] = (void*) sy_MELT_ERROR_COUNTER; } + if (sy_MELT_ERROR_COUNTER && NULL == /*_.VALDATA___V2586*/ meltfptr[2585]) + /*_.VALDATA___V2586*/ meltfptr[2585] = (void*) sy_MELT_ERROR_COUNTER; } /*^getnamedsymbol*/ /*getnamedsym:INITIAL_SYSTEM_DATA*/ { melt_ptr_t sy_INITIAL_SYSTEM_DATA = meltgc_named_symbol("INITIAL_SYSTEM_DATA", MELT_GET); - if (sy_INITIAL_SYSTEM_DATA && NULL == /*_.VALDATA___V2575*/ meltfptr[2574]) - /*_.VALDATA___V2575*/ meltfptr[2574] = (void*) sy_INITIAL_SYSTEM_DATA; } + if (sy_INITIAL_SYSTEM_DATA && NULL == /*_.VALDATA___V2593*/ meltfptr[2592]) + /*_.VALDATA___V2593*/ meltfptr[2592] = (void*) sy_INITIAL_SYSTEM_DATA; } /*^getnamedsymbol*/ /*getnamedsym:LIS*/ { melt_ptr_t sy_LIS = meltgc_named_symbol("LIS", MELT_GET); - if (sy_LIS && NULL == /*_.VALDATA___V2582*/ meltfptr[2581]) - /*_.VALDATA___V2582*/ meltfptr[2581] = (void*) sy_LIS; } + if (sy_LIS && NULL == /*_.VALDATA___V2600*/ meltfptr[2599]) + /*_.VALDATA___V2600*/ meltfptr[2599] = (void*) sy_LIS; } /*^getnamedsymbol*/ /*getnamedsym:EACHLIST*/ { melt_ptr_t sy_EACHLIST = meltgc_named_symbol("EACHLIST", MELT_GET); - if (sy_EACHLIST && NULL == /*_.VALDATA___V2585*/ meltfptr[2584]) - /*_.VALDATA___V2585*/ meltfptr[2584] = (void*) sy_EACHLIST; } + if (sy_EACHLIST && NULL == /*_.VALDATA___V2603*/ meltfptr[2602]) + /*_.VALDATA___V2603*/ meltfptr[2602] = (void*) sy_EACHLIST; } /*^getnamedsymbol*/ /*getnamedsym:CURPAIR*/ { melt_ptr_t sy_CURPAIR = meltgc_named_symbol("CURPAIR", MELT_GET); - if (sy_CURPAIR && NULL == /*_.VALDATA___V2588*/ meltfptr[2587]) - /*_.VALDATA___V2588*/ meltfptr[2587] = (void*) sy_CURPAIR; } + if (sy_CURPAIR && NULL == /*_.VALDATA___V2606*/ meltfptr[2605]) + /*_.VALDATA___V2606*/ meltfptr[2605] = (void*) sy_CURPAIR; } /*^getnamedsymbol*/ /*getnamedsym:CURCOMP*/ { melt_ptr_t sy_CURCOMP = meltgc_named_symbol("CURCOMP", MELT_GET); - if (sy_CURCOMP && NULL == /*_.VALDATA___V2591*/ meltfptr[2590]) - /*_.VALDATA___V2591*/ meltfptr[2590] = (void*) sy_CURCOMP; } + if (sy_CURCOMP && NULL == /*_.VALDATA___V2609*/ meltfptr[2608]) + /*_.VALDATA___V2609*/ meltfptr[2608] = (void*) sy_CURCOMP; } /*^getnamedsymbol*/ /*getnamedsym:TUP*/ { melt_ptr_t sy_TUP = meltgc_named_symbol("TUP", MELT_GET); - if (sy_TUP && NULL == /*_.VALDATA___V2623*/ meltfptr[2622]) - /*_.VALDATA___V2623*/ meltfptr[2622] = (void*) sy_TUP; } + if (sy_TUP && NULL == /*_.VALDATA___V2641*/ meltfptr[2640]) + /*_.VALDATA___V2641*/ meltfptr[2640] = (void*) sy_TUP; } /*^getnamedsymbol*/ /*getnamedsym:EACHTUP*/ { melt_ptr_t sy_EACHTUP = meltgc_named_symbol("EACHTUP", MELT_GET); - if (sy_EACHTUP && NULL == /*_.VALDATA___V2626*/ meltfptr[2625]) - /*_.VALDATA___V2626*/ meltfptr[2625] = (void*) sy_EACHTUP; } + if (sy_EACHTUP && NULL == /*_.VALDATA___V2644*/ meltfptr[2643]) + /*_.VALDATA___V2644*/ meltfptr[2643] = (void*) sy_EACHTUP; } /*^getnamedsymbol*/ /*getnamedsym:COMP*/ { melt_ptr_t sy_COMP = meltgc_named_symbol("COMP", MELT_GET); - if (sy_COMP && NULL == /*_.VALDATA___V2629*/ meltfptr[2628]) - /*_.VALDATA___V2629*/ meltfptr[2628] = (void*) sy_COMP; } + if (sy_COMP && NULL == /*_.VALDATA___V2647*/ meltfptr[2646]) + /*_.VALDATA___V2647*/ meltfptr[2646] = (void*) sy_COMP; } /*^getnamedsymbol*/ /*getnamedsym:EACHTUPBACK*/ { melt_ptr_t sy_EACHTUPBACK = meltgc_named_symbol("EACHTUPBACK", MELT_GET); - if (sy_EACHTUPBACK && NULL == /*_.VALDATA___V2654*/ meltfptr[2653]) - /*_.VALDATA___V2654*/ meltfptr[2653] = (void*) sy_EACHTUPBACK; } + if (sy_EACHTUPBACK && NULL == /*_.VALDATA___V2672*/ meltfptr[2671]) + /*_.VALDATA___V2672*/ meltfptr[2671] = (void*) sy_EACHTUPBACK; } /*^getnamedsymbol*/ /*getnamedsym:INITIAL_ENVIRONMENT*/ { melt_ptr_t sy_INITIAL_ENVIRONMENT = meltgc_named_symbol("INITIAL_ENVIRONMENT", MELT_GET); - if (sy_INITIAL_ENVIRONMENT && NULL == /*_.VALDATA___V2687*/ meltfptr[2686]) - /*_.VALDATA___V2687*/ meltfptr[2686] = (void*) sy_INITIAL_ENVIRONMENT; } + if (sy_INITIAL_ENVIRONMENT && NULL == /*_.VALDATA___V2705*/ meltfptr[2704]) + /*_.VALDATA___V2705*/ meltfptr[2704] = (void*) sy_INITIAL_ENVIRONMENT; } /*^getnamedsymbol*/ /*getnamedsym:LIST_FIND*/ { melt_ptr_t sy_LIST_FIND = meltgc_named_symbol("LIST_FIND", MELT_GET); - if (sy_LIST_FIND && NULL == /*_.VALDATA___V2700*/ meltfptr[2699]) - /*_.VALDATA___V2700*/ meltfptr[2699] = (void*) sy_LIST_FIND; } + if (sy_LIST_FIND && NULL == /*_.VALDATA___V2718*/ meltfptr[2717]) + /*_.VALDATA___V2718*/ meltfptr[2717] = (void*) sy_LIST_FIND; } /*^getnamedsymbol*/ /*getnamedsym:AT_EXIT_FIRST*/ { melt_ptr_t sy_AT_EXIT_FIRST = meltgc_named_symbol("AT_EXIT_FIRST", MELT_GET); - if (sy_AT_EXIT_FIRST && NULL == /*_.VALDATA___V2702*/ meltfptr[2701]) - /*_.VALDATA___V2702*/ meltfptr[2701] = (void*) sy_AT_EXIT_FIRST; } + if (sy_AT_EXIT_FIRST && NULL == /*_.VALDATA___V2720*/ meltfptr[2719]) + /*_.VALDATA___V2720*/ meltfptr[2719] = (void*) sy_AT_EXIT_FIRST; } /*^getnamedsymbol*/ /*getnamedsym:AT_EXIT_LAST*/ { melt_ptr_t sy_AT_EXIT_LAST = meltgc_named_symbol("AT_EXIT_LAST", MELT_GET); - if (sy_AT_EXIT_LAST && NULL == /*_.VALDATA___V2704*/ meltfptr[2703]) - /*_.VALDATA___V2704*/ meltfptr[2703] = (void*) sy_AT_EXIT_LAST; } + if (sy_AT_EXIT_LAST && NULL == /*_.VALDATA___V2722*/ meltfptr[2721]) + /*_.VALDATA___V2722*/ meltfptr[2721] = (void*) sy_AT_EXIT_LAST; } /*^getnamedsymbol*/ /*getnamedsym:AT_FINISH_UNIT_FIRST*/ { melt_ptr_t sy_AT_FINISH_UNIT_FIRST = meltgc_named_symbol("AT_FINISH_UNIT_FIRST", MELT_GET); - if (sy_AT_FINISH_UNIT_FIRST && NULL == /*_.VALDATA___V2706*/ meltfptr[2705]) - /*_.VALDATA___V2706*/ meltfptr[2705] = (void*) sy_AT_FINISH_UNIT_FIRST; } + if (sy_AT_FINISH_UNIT_FIRST && NULL == /*_.VALDATA___V2724*/ meltfptr[2723]) + /*_.VALDATA___V2724*/ meltfptr[2723] = (void*) sy_AT_FINISH_UNIT_FIRST; } /*^getnamedsymbol*/ /*getnamedsym:AT_FINISH_UNIT_LAST*/ { melt_ptr_t sy_AT_FINISH_UNIT_LAST = meltgc_named_symbol("AT_FINISH_UNIT_LAST", MELT_GET); - if (sy_AT_FINISH_UNIT_LAST && NULL == /*_.VALDATA___V2708*/ meltfptr[2707]) - /*_.VALDATA___V2708*/ meltfptr[2707] = (void*) sy_AT_FINISH_UNIT_LAST; } + if (sy_AT_FINISH_UNIT_LAST && NULL == /*_.VALDATA___V2726*/ meltfptr[2725]) + /*_.VALDATA___V2726*/ meltfptr[2725] = (void*) sy_AT_FINISH_UNIT_LAST; } /*^getnamedsymbol*/ /*getnamedsym:AT_START_UNIT_FIRST*/ { melt_ptr_t sy_AT_START_UNIT_FIRST = meltgc_named_symbol("AT_START_UNIT_FIRST", MELT_GET); - if (sy_AT_START_UNIT_FIRST && NULL == /*_.VALDATA___V2710*/ meltfptr[2709]) - /*_.VALDATA___V2710*/ meltfptr[2709] = (void*) sy_AT_START_UNIT_FIRST; } + if (sy_AT_START_UNIT_FIRST && NULL == /*_.VALDATA___V2728*/ meltfptr[2727]) + /*_.VALDATA___V2728*/ meltfptr[2727] = (void*) sy_AT_START_UNIT_FIRST; } /*^getnamedsymbol*/ /*getnamedsym:AT_START_UNIT_LAST*/ { melt_ptr_t sy_AT_START_UNIT_LAST = meltgc_named_symbol("AT_START_UNIT_LAST", MELT_GET); - if (sy_AT_START_UNIT_LAST && NULL == /*_.VALDATA___V2712*/ meltfptr[2711]) - /*_.VALDATA___V2712*/ meltfptr[2711] = (void*) sy_AT_START_UNIT_LAST; } + if (sy_AT_START_UNIT_LAST && NULL == /*_.VALDATA___V2730*/ meltfptr[2729]) + /*_.VALDATA___V2730*/ meltfptr[2729] = (void*) sy_AT_START_UNIT_LAST; } /*^getnamedsymbol*/ /*getnamedsym:CLONE_SYMBOL*/ { melt_ptr_t sy_CLONE_SYMBOL = meltgc_named_symbol("CLONE_SYMBOL", MELT_GET); - if (sy_CLONE_SYMBOL && NULL == /*_.VALDATA___V2714*/ meltfptr[2713]) - /*_.VALDATA___V2714*/ meltfptr[2713] = (void*) sy_CLONE_SYMBOL; } + if (sy_CLONE_SYMBOL && NULL == /*_.VALDATA___V2732*/ meltfptr[2731]) + /*_.VALDATA___V2732*/ meltfptr[2731] = (void*) sy_CLONE_SYMBOL; } /*^getnamedsymbol*/ /*getnamedsym:CLOSURE_EVERY*/ { melt_ptr_t sy_CLOSURE_EVERY = meltgc_named_symbol("CLOSURE_EVERY", MELT_GET); - if (sy_CLOSURE_EVERY && NULL == /*_.VALDATA___V2716*/ meltfptr[2715]) - /*_.VALDATA___V2716*/ meltfptr[2715] = (void*) sy_CLOSURE_EVERY; } + if (sy_CLOSURE_EVERY && NULL == /*_.VALDATA___V2734*/ meltfptr[2733]) + /*_.VALDATA___V2734*/ meltfptr[2733] = (void*) sy_CLOSURE_EVERY; } /*^getnamedsymbol*/ /*getnamedsym:COMPARE_OBJ_RANKED*/ { melt_ptr_t sy_COMPARE_OBJ_RANKED = meltgc_named_symbol("COMPARE_OBJ_RANKED", MELT_GET); - if (sy_COMPARE_OBJ_RANKED && NULL == /*_.VALDATA___V2718*/ meltfptr[2717]) - /*_.VALDATA___V2718*/ meltfptr[2717] = (void*) sy_COMPARE_OBJ_RANKED; } + if (sy_COMPARE_OBJ_RANKED && NULL == /*_.VALDATA___V2736*/ meltfptr[2735]) + /*_.VALDATA___V2736*/ meltfptr[2735] = (void*) sy_COMPARE_OBJ_RANKED; } /*^getnamedsymbol*/ /*getnamedsym:FIND_ENCLOSING_ENV*/ { melt_ptr_t sy_FIND_ENCLOSING_ENV = meltgc_named_symbol("FIND_ENCLOSING_ENV", MELT_GET); - if (sy_FIND_ENCLOSING_ENV && NULL == /*_.VALDATA___V2720*/ meltfptr[2719]) - /*_.VALDATA___V2720*/ meltfptr[2719] = (void*) sy_FIND_ENCLOSING_ENV; } + if (sy_FIND_ENCLOSING_ENV && NULL == /*_.VALDATA___V2738*/ meltfptr[2737]) + /*_.VALDATA___V2738*/ meltfptr[2737] = (void*) sy_FIND_ENCLOSING_ENV; } /*^getnamedsymbol*/ /*getnamedsym:FIND_ENV*/ { melt_ptr_t sy_FIND_ENV = meltgc_named_symbol("FIND_ENV", MELT_GET); - if (sy_FIND_ENV && NULL == /*_.VALDATA___V2722*/ meltfptr[2721]) - /*_.VALDATA___V2722*/ meltfptr[2721] = (void*) sy_FIND_ENV; } + if (sy_FIND_ENV && NULL == /*_.VALDATA___V2740*/ meltfptr[2739]) + /*_.VALDATA___V2740*/ meltfptr[2739] = (void*) sy_FIND_ENV; } /*^getnamedsymbol*/ /*getnamedsym:FIND_ENV_DEBUG*/ { melt_ptr_t sy_FIND_ENV_DEBUG = meltgc_named_symbol("FIND_ENV_DEBUG", MELT_GET); - if (sy_FIND_ENV_DEBUG && NULL == /*_.VALDATA___V2724*/ meltfptr[2723]) - /*_.VALDATA___V2724*/ meltfptr[2723] = (void*) sy_FIND_ENV_DEBUG; } + if (sy_FIND_ENV_DEBUG && NULL == /*_.VALDATA___V2742*/ meltfptr[2741]) + /*_.VALDATA___V2742*/ meltfptr[2741] = (void*) sy_FIND_ENV_DEBUG; } /*^getnamedsymbol*/ /*getnamedsym:FRESH_ENV*/ { melt_ptr_t sy_FRESH_ENV = meltgc_named_symbol("FRESH_ENV", MELT_GET); - if (sy_FRESH_ENV && NULL == /*_.VALDATA___V2726*/ meltfptr[2725]) - /*_.VALDATA___V2726*/ meltfptr[2725] = (void*) sy_FRESH_ENV; } + if (sy_FRESH_ENV && NULL == /*_.VALDATA___V2744*/ meltfptr[2743]) + /*_.VALDATA___V2744*/ meltfptr[2743] = (void*) sy_FRESH_ENV; } /*^getnamedsymbol*/ /*getnamedsym:INSTALL_CTYPE_DESCR*/ { melt_ptr_t sy_INSTALL_CTYPE_DESCR = meltgc_named_symbol("INSTALL_CTYPE_DESCR", MELT_GET); - if (sy_INSTALL_CTYPE_DESCR && NULL == /*_.VALDATA___V2728*/ meltfptr[2727]) - /*_.VALDATA___V2728*/ meltfptr[2727] = (void*) sy_INSTALL_CTYPE_DESCR; } + if (sy_INSTALL_CTYPE_DESCR && NULL == /*_.VALDATA___V2746*/ meltfptr[2745]) + /*_.VALDATA___V2746*/ meltfptr[2745] = (void*) sy_INSTALL_CTYPE_DESCR; } /*^getnamedsymbol*/ /*getnamedsym:INSTALL_METHOD*/ { melt_ptr_t sy_INSTALL_METHOD = meltgc_named_symbol("INSTALL_METHOD", MELT_GET); - if (sy_INSTALL_METHOD && NULL == /*_.VALDATA___V2730*/ meltfptr[2729]) - /*_.VALDATA___V2730*/ meltfptr[2729] = (void*) sy_INSTALL_METHOD; } + if (sy_INSTALL_METHOD && NULL == /*_.VALDATA___V2748*/ meltfptr[2747]) + /*_.VALDATA___V2748*/ meltfptr[2747] = (void*) sy_INSTALL_METHOD; } /*^getnamedsymbol*/ /*getnamedsym:LIST_APPEND2LIST*/ { melt_ptr_t sy_LIST_APPEND2LIST = meltgc_named_symbol("LIST_APPEND2LIST", MELT_GET); - if (sy_LIST_APPEND2LIST && NULL == /*_.VALDATA___V2732*/ meltfptr[2731]) - /*_.VALDATA___V2732*/ meltfptr[2731] = (void*) sy_LIST_APPEND2LIST; } + if (sy_LIST_APPEND2LIST && NULL == /*_.VALDATA___V2750*/ meltfptr[2749]) + /*_.VALDATA___V2750*/ meltfptr[2749] = (void*) sy_LIST_APPEND2LIST; } /*^getnamedsymbol*/ /*getnamedsym:LIST_EVERY*/ { melt_ptr_t sy_LIST_EVERY = meltgc_named_symbol("LIST_EVERY", MELT_GET); - if (sy_LIST_EVERY && NULL == /*_.VALDATA___V2734*/ meltfptr[2733]) - /*_.VALDATA___V2734*/ meltfptr[2733] = (void*) sy_LIST_EVERY; } + if (sy_LIST_EVERY && NULL == /*_.VALDATA___V2752*/ meltfptr[2751]) + /*_.VALDATA___V2752*/ meltfptr[2751] = (void*) sy_LIST_EVERY; } /*^getnamedsymbol*/ /*getnamedsym:LIST_ITERATE_TEST*/ { melt_ptr_t sy_LIST_ITERATE_TEST = meltgc_named_symbol("LIST_ITERATE_TEST", MELT_GET); - if (sy_LIST_ITERATE_TEST && NULL == /*_.VALDATA___V2736*/ meltfptr[2735]) - /*_.VALDATA___V2736*/ meltfptr[2735] = (void*) sy_LIST_ITERATE_TEST; } + if (sy_LIST_ITERATE_TEST && NULL == /*_.VALDATA___V2754*/ meltfptr[2753]) + /*_.VALDATA___V2754*/ meltfptr[2753] = (void*) sy_LIST_ITERATE_TEST; } /*^getnamedsymbol*/ /*getnamedsym:LIST_MAP*/ { melt_ptr_t sy_LIST_MAP = meltgc_named_symbol("LIST_MAP", MELT_GET); - if (sy_LIST_MAP && NULL == /*_.VALDATA___V2738*/ meltfptr[2737]) - /*_.VALDATA___V2738*/ meltfptr[2737] = (void*) sy_LIST_MAP; } + if (sy_LIST_MAP && NULL == /*_.VALDATA___V2756*/ meltfptr[2755]) + /*_.VALDATA___V2756*/ meltfptr[2755] = (void*) sy_LIST_MAP; } /*^getnamedsymbol*/ /*getnamedsym:LIST_TO_MULTIPLE*/ { melt_ptr_t sy_LIST_TO_MULTIPLE = meltgc_named_symbol("LIST_TO_MULTIPLE", MELT_GET); - if (sy_LIST_TO_MULTIPLE && NULL == /*_.VALDATA___V2740*/ meltfptr[2739]) - /*_.VALDATA___V2740*/ meltfptr[2739] = (void*) sy_LIST_TO_MULTIPLE; } + if (sy_LIST_TO_MULTIPLE && NULL == /*_.VALDATA___V2758*/ meltfptr[2757]) + /*_.VALDATA___V2758*/ meltfptr[2757] = (void*) sy_LIST_TO_MULTIPLE; } /*^getnamedsymbol*/ /*getnamedsym:MAPOBJECT_EVERY*/ { melt_ptr_t sy_MAPOBJECT_EVERY = meltgc_named_symbol("MAPOBJECT_EVERY", MELT_GET); - if (sy_MAPOBJECT_EVERY && NULL == /*_.VALDATA___V2742*/ meltfptr[2741]) - /*_.VALDATA___V2742*/ meltfptr[2741] = (void*) sy_MAPOBJECT_EVERY; } + if (sy_MAPOBJECT_EVERY && NULL == /*_.VALDATA___V2760*/ meltfptr[2759]) + /*_.VALDATA___V2760*/ meltfptr[2759] = (void*) sy_MAPOBJECT_EVERY; } /*^getnamedsymbol*/ /*getnamedsym:MAPOBJECT_ITERATE_TEST*/ { melt_ptr_t sy_MAPOBJECT_ITERATE_TEST = meltgc_named_symbol("MAPOBJECT_ITERATE_TEST", MELT_GET); - if (sy_MAPOBJECT_ITERATE_TEST && NULL == /*_.VALDATA___V2744*/ meltfptr[2743]) - /*_.VALDATA___V2744*/ meltfptr[2743] = (void*) sy_MAPOBJECT_ITERATE_TEST; } + if (sy_MAPOBJECT_ITERATE_TEST && NULL == /*_.VALDATA___V2762*/ meltfptr[2761]) + /*_.VALDATA___V2762*/ meltfptr[2761] = (void*) sy_MAPOBJECT_ITERATE_TEST; } /*^getnamedsymbol*/ /*getnamedsym:MAPOBJECT_SORTED_ATTRIBUTE_TUPLE*/ { melt_ptr_t sy_MAPOBJECT_SORTED_ATTRIBUTE_TUPLE = meltgc_named_symbol("MAPOBJECT_SORTED_ATTRIBUTE_TUPLE", MELT_GET); - if (sy_MAPOBJECT_SORTED_ATTRIBUTE_TUPLE && NULL == /*_.VALDATA___V2746*/ meltfptr[2745]) - /*_.VALDATA___V2746*/ meltfptr[2745] = (void*) sy_MAPOBJECT_SORTED_ATTRIBUTE_TUPLE; } + if (sy_MAPOBJECT_SORTED_ATTRIBUTE_TUPLE && NULL == /*_.VALDATA___V2764*/ meltfptr[2763]) + /*_.VALDATA___V2764*/ meltfptr[2763] = (void*) sy_MAPOBJECT_SORTED_ATTRIBUTE_TUPLE; } /*^getnamedsymbol*/ /*getnamedsym:MULTIPLE_ITERATE_TEST*/ { melt_ptr_t sy_MULTIPLE_ITERATE_TEST = meltgc_named_symbol("MULTIPLE_ITERATE_TEST", MELT_GET); - if (sy_MULTIPLE_ITERATE_TEST && NULL == /*_.VALDATA___V2748*/ meltfptr[2747]) - /*_.VALDATA___V2748*/ meltfptr[2747] = (void*) sy_MULTIPLE_ITERATE_TEST; } + if (sy_MULTIPLE_ITERATE_TEST && NULL == /*_.VALDATA___V2766*/ meltfptr[2765]) + /*_.VALDATA___V2766*/ meltfptr[2765] = (void*) sy_MULTIPLE_ITERATE_TEST; } /*^getnamedsymbol*/ /*getnamedsym:MULTIPLE_MAP*/ { melt_ptr_t sy_MULTIPLE_MAP = meltgc_named_symbol("MULTIPLE_MAP", MELT_GET); - if (sy_MULTIPLE_MAP && NULL == /*_.VALDATA___V2750*/ meltfptr[2749]) - /*_.VALDATA___V2750*/ meltfptr[2749] = (void*) sy_MULTIPLE_MAP; } + if (sy_MULTIPLE_MAP && NULL == /*_.VALDATA___V2768*/ meltfptr[2767]) + /*_.VALDATA___V2768*/ meltfptr[2767] = (void*) sy_MULTIPLE_MAP; } /*^getnamedsymbol*/ /*getnamedsym:MULTIPLE_TO_LIST*/ { melt_ptr_t sy_MULTIPLE_TO_LIST = meltgc_named_symbol("MULTIPLE_TO_LIST", MELT_GET); - if (sy_MULTIPLE_TO_LIST && NULL == /*_.VALDATA___V2752*/ meltfptr[2751]) - /*_.VALDATA___V2752*/ meltfptr[2751] = (void*) sy_MULTIPLE_TO_LIST; } + if (sy_MULTIPLE_TO_LIST && NULL == /*_.VALDATA___V2770*/ meltfptr[2769]) + /*_.VALDATA___V2770*/ meltfptr[2769] = (void*) sy_MULTIPLE_TO_LIST; } /*^getnamedsymbol*/ /*getnamedsym:OVERWRITE_ENV*/ { melt_ptr_t sy_OVERWRITE_ENV = meltgc_named_symbol("OVERWRITE_ENV", MELT_GET); - if (sy_OVERWRITE_ENV && NULL == /*_.VALDATA___V2754*/ meltfptr[2753]) - /*_.VALDATA___V2754*/ meltfptr[2753] = (void*) sy_OVERWRITE_ENV; } + if (sy_OVERWRITE_ENV && NULL == /*_.VALDATA___V2772*/ meltfptr[2771]) + /*_.VALDATA___V2772*/ meltfptr[2771] = (void*) sy_OVERWRITE_ENV; } /*^getnamedsymbol*/ /*getnamedsym:PAIRLIST_TO_MULTIPLE*/ { melt_ptr_t sy_PAIRLIST_TO_MULTIPLE = meltgc_named_symbol("PAIRLIST_TO_MULTIPLE", MELT_GET); - if (sy_PAIRLIST_TO_MULTIPLE && NULL == /*_.VALDATA___V2756*/ meltfptr[2755]) - /*_.VALDATA___V2756*/ meltfptr[2755] = (void*) sy_PAIRLIST_TO_MULTIPLE; } + if (sy_PAIRLIST_TO_MULTIPLE && NULL == /*_.VALDATA___V2774*/ meltfptr[2773]) + /*_.VALDATA___V2774*/ meltfptr[2773] = (void*) sy_PAIRLIST_TO_MULTIPLE; } /*^getnamedsymbol*/ /*getnamedsym:POST_INITIALIZATION*/ { melt_ptr_t sy_POST_INITIALIZATION = meltgc_named_symbol("POST_INITIALIZATION", MELT_GET); - if (sy_POST_INITIALIZATION && NULL == /*_.VALDATA___V2758*/ meltfptr[2757]) - /*_.VALDATA___V2758*/ meltfptr[2757] = (void*) sy_POST_INITIALIZATION; } + if (sy_POST_INITIALIZATION && NULL == /*_.VALDATA___V2776*/ meltfptr[2775]) + /*_.VALDATA___V2776*/ meltfptr[2775] = (void*) sy_POST_INITIALIZATION; } /*^getnamedsymbol*/ /*getnamedsym:PUT_ENV*/ { melt_ptr_t sy_PUT_ENV = meltgc_named_symbol("PUT_ENV", MELT_GET); - if (sy_PUT_ENV && NULL == /*_.VALDATA___V2760*/ meltfptr[2759]) - /*_.VALDATA___V2760*/ meltfptr[2759] = (void*) sy_PUT_ENV; } + if (sy_PUT_ENV && NULL == /*_.VALDATA___V2778*/ meltfptr[2777]) + /*_.VALDATA___V2778*/ meltfptr[2777] = (void*) sy_PUT_ENV; } /*^getnamedsymbol*/ /*getnamedsym:REGISTER_OPTION*/ { melt_ptr_t sy_REGISTER_OPTION = meltgc_named_symbol("REGISTER_OPTION", MELT_GET); - if (sy_REGISTER_OPTION && NULL == /*_.VALDATA___V2762*/ meltfptr[2761]) - /*_.VALDATA___V2762*/ meltfptr[2761] = (void*) sy_REGISTER_OPTION; } + if (sy_REGISTER_OPTION && NULL == /*_.VALDATA___V2780*/ meltfptr[2779]) + /*_.VALDATA___V2780*/ meltfptr[2779] = (void*) sy_REGISTER_OPTION; } /*^getnamedsymbol*/ /*getnamedsym:ROUTINE_EVERY*/ { melt_ptr_t sy_ROUTINE_EVERY = meltgc_named_symbol("ROUTINE_EVERY", MELT_GET); - if (sy_ROUTINE_EVERY && NULL == /*_.VALDATA___V2764*/ meltfptr[2763]) - /*_.VALDATA___V2764*/ meltfptr[2763] = (void*) sy_ROUTINE_EVERY; } + if (sy_ROUTINE_EVERY && NULL == /*_.VALDATA___V2782*/ meltfptr[2781]) + /*_.VALDATA___V2782*/ meltfptr[2781] = (void*) sy_ROUTINE_EVERY; } /*^getnamedsymbol*/ /*getnamedsym:FOREACH_IN_LIST*/ { melt_ptr_t sy_FOREACH_IN_LIST = meltgc_named_symbol("FOREACH_IN_LIST", MELT_GET); - if (sy_FOREACH_IN_LIST && NULL == /*_.VALDATA___V2766*/ meltfptr[2765]) - /*_.VALDATA___V2766*/ meltfptr[2765] = (void*) sy_FOREACH_IN_LIST; } + if (sy_FOREACH_IN_LIST && NULL == /*_.VALDATA___V2784*/ meltfptr[2783]) + /*_.VALDATA___V2784*/ meltfptr[2783] = (void*) sy_FOREACH_IN_LIST; } /*^getnamedsymbol*/ /*getnamedsym:FOREACH_IN_MAPOBJECT*/ { melt_ptr_t sy_FOREACH_IN_MAPOBJECT = meltgc_named_symbol("FOREACH_IN_MAPOBJECT", MELT_GET); - if (sy_FOREACH_IN_MAPOBJECT && NULL == /*_.VALDATA___V2768*/ meltfptr[2767]) - /*_.VALDATA___V2768*/ meltfptr[2767] = (void*) sy_FOREACH_IN_MAPOBJECT; } + if (sy_FOREACH_IN_MAPOBJECT && NULL == /*_.VALDATA___V2786*/ meltfptr[2785]) + /*_.VALDATA___V2786*/ meltfptr[2785] = (void*) sy_FOREACH_IN_MAPOBJECT; } /*^getnamedsymbol*/ /*getnamedsym:FOREACH_IN_MAPSTRING*/ { melt_ptr_t sy_FOREACH_IN_MAPSTRING = meltgc_named_symbol("FOREACH_IN_MAPSTRING", MELT_GET); - if (sy_FOREACH_IN_MAPSTRING && NULL == /*_.VALDATA___V2770*/ meltfptr[2769]) - /*_.VALDATA___V2770*/ meltfptr[2769] = (void*) sy_FOREACH_IN_MAPSTRING; } + if (sy_FOREACH_IN_MAPSTRING && NULL == /*_.VALDATA___V2788*/ meltfptr[2787]) + /*_.VALDATA___V2788*/ meltfptr[2787] = (void*) sy_FOREACH_IN_MAPSTRING; } /*^getnamedsymbol*/ /*getnamedsym:FOREACH_IN_MULTIPLE*/ { melt_ptr_t sy_FOREACH_IN_MULTIPLE = meltgc_named_symbol("FOREACH_IN_MULTIPLE", MELT_GET); - if (sy_FOREACH_IN_MULTIPLE && NULL == /*_.VALDATA___V2772*/ meltfptr[2771]) - /*_.VALDATA___V2772*/ meltfptr[2771] = (void*) sy_FOREACH_IN_MULTIPLE; } + if (sy_FOREACH_IN_MULTIPLE && NULL == /*_.VALDATA___V2790*/ meltfptr[2789]) + /*_.VALDATA___V2790*/ meltfptr[2789] = (void*) sy_FOREACH_IN_MULTIPLE; } /*^getnamedsymbol*/ /*getnamedsym:FOREACH_IN_MULTIPLE_BACKWARD*/ { melt_ptr_t sy_FOREACH_IN_MULTIPLE_BACKWARD = meltgc_named_symbol("FOREACH_IN_MULTIPLE_BACKWARD", MELT_GET); - if (sy_FOREACH_IN_MULTIPLE_BACKWARD && NULL == /*_.VALDATA___V2774*/ meltfptr[2773]) - /*_.VALDATA___V2774*/ meltfptr[2773] = (void*) sy_FOREACH_IN_MULTIPLE_BACKWARD; } + if (sy_FOREACH_IN_MULTIPLE_BACKWARD && NULL == /*_.VALDATA___V2792*/ meltfptr[2791]) + /*_.VALDATA___V2792*/ meltfptr[2791] = (void*) sy_FOREACH_IN_MULTIPLE_BACKWARD; } /*^getnamedsymbol*/ /*getnamedsym:INTEGERBOX_OF*/ { melt_ptr_t sy_INTEGERBOX_OF = meltgc_named_symbol("INTEGERBOX_OF", MELT_GET); - if (sy_INTEGERBOX_OF && NULL == /*_.VALDATA___V2776*/ meltfptr[2775]) - /*_.VALDATA___V2776*/ meltfptr[2775] = (void*) sy_INTEGERBOX_OF; } + if (sy_INTEGERBOX_OF && NULL == /*_.VALDATA___V2794*/ meltfptr[2793]) + /*_.VALDATA___V2794*/ meltfptr[2793] = (void*) sy_INTEGERBOX_OF; } /*^getnamedsymbol*/ /*getnamedsym:CLOSURE*/ { melt_ptr_t sy_CLOSURE = meltgc_named_symbol("CLOSURE", MELT_GET); - if (sy_CLOSURE && NULL == /*_.VALDATA___V2778*/ meltfptr[2777]) - /*_.VALDATA___V2778*/ meltfptr[2777] = (void*) sy_CLOSURE; } + if (sy_CLOSURE && NULL == /*_.VALDATA___V2796*/ meltfptr[2795]) + /*_.VALDATA___V2796*/ meltfptr[2795] = (void*) sy_CLOSURE; } /*^getnamedkeyword*/ /*getnamedkeyw:TRUE*/ { melt_ptr_t kw_TRUE = meltgc_named_keyword("TRUE", MELT_GET); - if (kw_TRUE) /*_.VALDATA___V2780*/ meltfptr[2779] = (void*) kw_TRUE; } + if (kw_TRUE) /*_.VALDATA___V2798*/ meltfptr[2797] = (void*) kw_TRUE; } /**initial routine cdata initializer**/ @@ -54715,7 +54857,7 @@ MELT_LOCATION("warmelt-first.melt:1337:/ initchunk"); melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2017*/ meltfptr[2016])))); ((meltobject_ptr_t)(/*_.VALDATA___V2017*/ meltfptr[2016]))->obj_vartab[3] = (melt_ptr_t)( - ((void*)(MELT_PREDEF(CTYPE_LONG)))); + ((void*)(MELT_PREDEF(CTYPE_VALUE)))); /*putupl*/ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2023*/ meltfptr[2022]))== OBMAG_MULTIPLE); @@ -54791,51 +54933,13 @@ MELT_LOCATION("warmelt-first.melt:1337:/ initchunk"); /*touch:VALUEDATA_*/ meltgc_touch(/*_.VALDATA___V2028*/ meltfptr[2027]); - /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2030*/ meltfptr[2029])) == OBMAG_OBJECT); - - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2030*/ meltfptr[2029])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2030*/ meltfptr[2029]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V2031*/ meltfptr[2030]); - - /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V2030*/ meltfptr[2029]); - - MELT_LOCATION("warmelt-first.melt:1341:/ initchunk"); - /*^putslot*/ - /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2029*/ meltfptr[2028])) == OBMAG_OBJECT); - - melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2029*/ meltfptr[2028])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2029*/ meltfptr[2028]))->obj_vartab[0] = (melt_ptr_t)( - /*_.VALDATA___V2030*/ meltfptr[2029]); - - MELT_LOCATION("warmelt-first.melt:1341:/ initchunk"); - /*^putslot*/ - /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2029*/ meltfptr[2028])) == OBMAG_OBJECT); - - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2029*/ meltfptr[2028])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2029*/ meltfptr[2028]))->obj_vartab[1] = (melt_ptr_t)( - ((void*)(MELT_PREDEF(CTYPE_VALUE)))); - - MELT_LOCATION("warmelt-first.melt:1341:/ initchunk"); - /*^touch*/ - /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V2029*/ meltfptr[2028]); - /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2032*/ meltfptr[2031]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2032*/ meltfptr[2031])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V2032*/ meltfptr[2031]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V2028*/ meltfptr[2027]); - - /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2032*/ meltfptr[2031]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2032*/ meltfptr[2031])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V2032*/ meltfptr[2031]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2029*/ meltfptr[2028]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2029*/ meltfptr[2028]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2029*/ meltfptr[2028])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V2029*/ meltfptr[2028]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V2028*/ meltfptr[2027]); /*touch:INITUP_*/ - meltgc_touch(/*_.VALTUP___V2032*/ meltfptr[2031]); + meltgc_touch(/*_.VALTUP___V2029*/ meltfptr[2028]); MELT_LOCATION("warmelt-first.melt:1341:/ initchunk"); /*^putslot*/ @@ -54844,7 +54948,7 @@ MELT_LOCATION("warmelt-first.melt:1337:/ initchunk"); melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2026*/ meltfptr[2025])))); ((meltobject_ptr_t)(/*_.VALDATA___V2026*/ meltfptr[2025]))->obj_vartab[2] = (melt_ptr_t)( - /*_.VALTUP___V2032*/ meltfptr[2031]); + /*_.VALTUP___V2029*/ meltfptr[2028]); MELT_LOCATION("warmelt-first.melt:1341:/ initchunk"); /*^putslot*/ @@ -54853,35 +54957,25 @@ MELT_LOCATION("warmelt-first.melt:1337:/ initchunk"); melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2026*/ meltfptr[2025])))); ((meltobject_ptr_t)(/*_.VALDATA___V2026*/ meltfptr[2025]))->obj_vartab[3] = (melt_ptr_t)( - ((void*)(MELT_PREDEF(CTYPE_VOID)))); - - /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2036*/ meltfptr[2035]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2036*/ meltfptr[2035])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V2036*/ meltfptr[2035]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V2033*/ meltfptr[2032]); - - /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2036*/ meltfptr[2035]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2036*/ meltfptr[2035])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V2036*/ meltfptr[2035]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1981*/ meltfptr[1980]); + ((void*)(MELT_PREDEF(CTYPE_VALUE)))); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2036*/ meltfptr[2035]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2036*/ meltfptr[2035])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V2036*/ meltfptr[2035]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V2034*/ meltfptr[2033]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2032*/ meltfptr[2031]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2032*/ meltfptr[2031])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V2032*/ meltfptr[2031]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V2030*/ meltfptr[2029]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2036*/ meltfptr[2035]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2036*/ meltfptr[2035])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V2036*/ meltfptr[2035]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V2030*/ meltfptr[2029]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2032*/ meltfptr[2031]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2032*/ meltfptr[2031])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V2032*/ meltfptr[2031]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1981*/ meltfptr[1980]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2036*/ meltfptr[2035]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2036*/ meltfptr[2035])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V2036*/ meltfptr[2035]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V2035*/ meltfptr[2034]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2032*/ meltfptr[2031]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2032*/ meltfptr[2031])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V2032*/ meltfptr[2031]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V2031*/ meltfptr[2030]); /*touch:INITUP_*/ - meltgc_touch(/*_.VALTUP___V2036*/ meltfptr[2035]); + meltgc_touch(/*_.VALTUP___V2032*/ meltfptr[2031]); MELT_LOCATION("warmelt-first.melt:1341:/ initchunk"); /*^putslot*/ @@ -54890,7 +54984,7 @@ MELT_LOCATION("warmelt-first.melt:1337:/ initchunk"); melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2026*/ meltfptr[2025])))); ((meltobject_ptr_t)(/*_.VALDATA___V2026*/ meltfptr[2025]))->obj_vartab[4] = (melt_ptr_t)( - /*_.VALTUP___V2036*/ meltfptr[2035]); + /*_.VALTUP___V2032*/ meltfptr[2031]); MELT_LOCATION("warmelt-first.melt:1341:/ initchunk"); /*^touch*/ @@ -54898,142 +54992,146 @@ MELT_LOCATION("warmelt-first.melt:1337:/ initchunk"); meltgc_touch(/*_.VALDATA___V2026*/ meltfptr[2025]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2037*/ meltfptr[2036])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2033*/ meltfptr[2032])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2037*/ meltfptr[2036])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2037*/ meltfptr[2036]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V2038*/ meltfptr[2037]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2033*/ meltfptr[2032])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2033*/ meltfptr[2032]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V2034*/ meltfptr[2033]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V2037*/ meltfptr[2036]); + meltgc_touch(/*_.VALDATA___V2033*/ meltfptr[2032]); - MELT_LOCATION("warmelt-first.melt:1345:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:1344:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2039*/ meltfptr[2038])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2035*/ meltfptr[2034])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2039*/ meltfptr[2038])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2039*/ meltfptr[2038]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V2040*/ meltfptr[2039]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2035*/ meltfptr[2034])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2035*/ meltfptr[2034]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V2036*/ meltfptr[2035]); - MELT_LOCATION("warmelt-first.melt:1345:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:1344:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2041*/ meltfptr[2040])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2037*/ meltfptr[2036])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2041*/ meltfptr[2040])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2041*/ meltfptr[2040]))->obj_vartab[0] = (melt_ptr_t)( + melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2037*/ meltfptr[2036])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2037*/ meltfptr[2036]))->obj_vartab[0] = (melt_ptr_t)( /*_.VALDATA___V1981*/ meltfptr[1980]); - MELT_LOCATION("warmelt-first.melt:1345:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:1344:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2041*/ meltfptr[2040])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2037*/ meltfptr[2036])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2041*/ meltfptr[2040])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2041*/ meltfptr[2040]))->obj_vartab[1] = (melt_ptr_t)( + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2037*/ meltfptr[2036])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2037*/ meltfptr[2036]))->obj_vartab[1] = (melt_ptr_t)( ((void*)(MELT_PREDEF(CTYPE_VALUE)))); - MELT_LOCATION("warmelt-first.melt:1345:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:1344:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V2041*/ meltfptr[2040]); + meltgc_touch(/*_.VALDATA___V2037*/ meltfptr[2036]); - MELT_LOCATION("warmelt-first.melt:1345:/ initchunk"); + /*putupl*/ + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2038*/ meltfptr[2037]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2038*/ meltfptr[2037])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V2038*/ meltfptr[2037]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V2037*/ meltfptr[2036]); + + /*touch:INITUP_*/ + meltgc_touch(/*_.VALTUP___V2038*/ meltfptr[2037]); + + MELT_LOCATION("warmelt-first.melt:1344:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2042*/ meltfptr[2041])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2035*/ meltfptr[2034])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2042*/ meltfptr[2041])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2042*/ meltfptr[2041]))->obj_vartab[0] = (melt_ptr_t)( - /*_.VALDATA___V2030*/ meltfptr[2029]); + melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2035*/ meltfptr[2034])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2035*/ meltfptr[2034]))->obj_vartab[2] = (melt_ptr_t)( + /*_.VALTUP___V2038*/ meltfptr[2037]); - MELT_LOCATION("warmelt-first.melt:1345:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:1344:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2042*/ meltfptr[2041])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2035*/ meltfptr[2034])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2042*/ meltfptr[2041])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2042*/ meltfptr[2041]))->obj_vartab[1] = (melt_ptr_t)( - ((void*)(MELT_PREDEF(CTYPE_VALUE)))); + melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2035*/ meltfptr[2034])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2035*/ meltfptr[2034]))->obj_vartab[3] = (melt_ptr_t)( + ((void*)(MELT_PREDEF(CTYPE_LONG)))); - MELT_LOCATION("warmelt-first.melt:1345:/ initchunk"); - /*^touch*/ - /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V2042*/ meltfptr[2041]); + /*putupl*/ + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2041*/ meltfptr[2040]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2041*/ meltfptr[2040])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V2041*/ meltfptr[2040]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V2039*/ meltfptr[2038]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2043*/ meltfptr[2042]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2043*/ meltfptr[2042])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V2043*/ meltfptr[2042]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V2041*/ meltfptr[2040]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2041*/ meltfptr[2040]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2041*/ meltfptr[2040])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V2041*/ meltfptr[2040]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1981*/ meltfptr[1980]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2043*/ meltfptr[2042]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2043*/ meltfptr[2042])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V2043*/ meltfptr[2042]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2042*/ meltfptr[2041]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2041*/ meltfptr[2040]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2041*/ meltfptr[2040])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V2041*/ meltfptr[2040]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V2040*/ meltfptr[2039]); /*touch:INITUP_*/ - meltgc_touch(/*_.VALTUP___V2043*/ meltfptr[2042]); + meltgc_touch(/*_.VALTUP___V2041*/ meltfptr[2040]); - MELT_LOCATION("warmelt-first.melt:1345:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:1344:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2039*/ meltfptr[2038])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2035*/ meltfptr[2034])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2039*/ meltfptr[2038])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2039*/ meltfptr[2038]))->obj_vartab[2] = (melt_ptr_t)( - /*_.VALTUP___V2043*/ meltfptr[2042]); + melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2035*/ meltfptr[2034])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2035*/ meltfptr[2034]))->obj_vartab[4] = (melt_ptr_t)( + /*_.VALTUP___V2041*/ meltfptr[2040]); - MELT_LOCATION("warmelt-first.melt:1345:/ initchunk"); - /*^putslot*/ - /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2039*/ meltfptr[2038])) == OBMAG_OBJECT); + MELT_LOCATION("warmelt-first.melt:1344:/ initchunk"); + /*^touch*/ + /*touch:VALUEDATA_*/ + meltgc_touch(/*_.VALDATA___V2035*/ meltfptr[2034]); - melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2039*/ meltfptr[2038])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2039*/ meltfptr[2038]))->obj_vartab[3] = (melt_ptr_t)( - ((void*)(MELT_PREDEF(CTYPE_VOID)))); + /*putslot*/ + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2042*/ meltfptr[2041])) == OBMAG_OBJECT); - /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2047*/ meltfptr[2046]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2047*/ meltfptr[2046])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V2047*/ meltfptr[2046]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V2044*/ meltfptr[2043]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2042*/ meltfptr[2041])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2042*/ meltfptr[2041]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V2043*/ meltfptr[2042]); - /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2047*/ meltfptr[2046]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2047*/ meltfptr[2046])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V2047*/ meltfptr[2046]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1981*/ meltfptr[1980]); + /*touch:VALUEDATA_*/ + meltgc_touch(/*_.VALDATA___V2042*/ meltfptr[2041]); - /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2047*/ meltfptr[2046]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2047*/ meltfptr[2046])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V2047*/ meltfptr[2046]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V2045*/ meltfptr[2044]); + MELT_LOCATION("warmelt-first.melt:1348:/ initchunk"); + /*^putslot*/ + /*putslot*/ + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2044*/ meltfptr[2043])) == OBMAG_OBJECT); - /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2047*/ meltfptr[2046]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2047*/ meltfptr[2046])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V2047*/ meltfptr[2046]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V2030*/ meltfptr[2029]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2044*/ meltfptr[2043])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2044*/ meltfptr[2043]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V2045*/ meltfptr[2044]); - /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2047*/ meltfptr[2046]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2047*/ meltfptr[2046])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V2047*/ meltfptr[2046]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V2046*/ meltfptr[2045]); + MELT_LOCATION("warmelt-first.melt:1348:/ initchunk"); + /*^putslot*/ + /*putslot*/ + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2046*/ meltfptr[2045])) == OBMAG_OBJECT); - /*touch:INITUP_*/ - meltgc_touch(/*_.VALTUP___V2047*/ meltfptr[2046]); + melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2046*/ meltfptr[2045])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2046*/ meltfptr[2045]))->obj_vartab[0] = (melt_ptr_t)( + /*_.VALDATA___V1981*/ meltfptr[1980]); - MELT_LOCATION("warmelt-first.melt:1345:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:1348:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2039*/ meltfptr[2038])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2046*/ meltfptr[2045])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2039*/ meltfptr[2038])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2039*/ meltfptr[2038]))->obj_vartab[4] = (melt_ptr_t)( - /*_.VALTUP___V2047*/ meltfptr[2046]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2046*/ meltfptr[2045])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2046*/ meltfptr[2045]))->obj_vartab[1] = (melt_ptr_t)( + ((void*)(MELT_PREDEF(CTYPE_VALUE)))); - MELT_LOCATION("warmelt-first.melt:1345:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:1348:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V2039*/ meltfptr[2038]); + meltgc_touch(/*_.VALDATA___V2046*/ meltfptr[2045]); /*putslot*/ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2048*/ meltfptr[2047])) == OBMAG_OBJECT); @@ -55045,96 +55143,114 @@ MELT_LOCATION("warmelt-first.melt:1337:/ initchunk"); /*touch:VALUEDATA_*/ meltgc_touch(/*_.VALDATA___V2048*/ meltfptr[2047]); - MELT_LOCATION("warmelt-first.melt:1349:/ initchunk"); - /*^putslot*/ - /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2050*/ meltfptr[2049])) == OBMAG_OBJECT); - - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2050*/ meltfptr[2049])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2050*/ meltfptr[2049]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V2051*/ meltfptr[2050]); - - MELT_LOCATION("warmelt-first.melt:1349:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:1348:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2052*/ meltfptr[2051])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2047*/ meltfptr[2046])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2052*/ meltfptr[2051])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2052*/ meltfptr[2051]))->obj_vartab[0] = (melt_ptr_t)( - /*_.VALDATA___V1981*/ meltfptr[1980]); + melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2047*/ meltfptr[2046])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2047*/ meltfptr[2046]))->obj_vartab[0] = (melt_ptr_t)( + /*_.VALDATA___V2048*/ meltfptr[2047]); - MELT_LOCATION("warmelt-first.melt:1349:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:1348:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2052*/ meltfptr[2051])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2047*/ meltfptr[2046])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2052*/ meltfptr[2051])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2052*/ meltfptr[2051]))->obj_vartab[1] = (melt_ptr_t)( + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2047*/ meltfptr[2046])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2047*/ meltfptr[2046]))->obj_vartab[1] = (melt_ptr_t)( ((void*)(MELT_PREDEF(CTYPE_VALUE)))); - MELT_LOCATION("warmelt-first.melt:1349:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:1348:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V2052*/ meltfptr[2051]); + meltgc_touch(/*_.VALDATA___V2047*/ meltfptr[2046]); + + /*putupl*/ + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2050*/ meltfptr[2049]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2050*/ meltfptr[2049])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V2050*/ meltfptr[2049]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V2046*/ meltfptr[2045]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2053*/ meltfptr[2052]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2053*/ meltfptr[2052])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V2053*/ meltfptr[2052]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V2052*/ meltfptr[2051]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2050*/ meltfptr[2049]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2050*/ meltfptr[2049])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V2050*/ meltfptr[2049]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2047*/ meltfptr[2046]); /*touch:INITUP_*/ - meltgc_touch(/*_.VALTUP___V2053*/ meltfptr[2052]); + meltgc_touch(/*_.VALTUP___V2050*/ meltfptr[2049]); - MELT_LOCATION("warmelt-first.melt:1349:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:1348:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2050*/ meltfptr[2049])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2044*/ meltfptr[2043])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2050*/ meltfptr[2049])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2050*/ meltfptr[2049]))->obj_vartab[2] = (melt_ptr_t)( - /*_.VALTUP___V2053*/ meltfptr[2052]); + melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2044*/ meltfptr[2043])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2044*/ meltfptr[2043]))->obj_vartab[2] = (melt_ptr_t)( + /*_.VALTUP___V2050*/ meltfptr[2049]); - MELT_LOCATION("warmelt-first.melt:1349:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:1348:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2050*/ meltfptr[2049])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2044*/ meltfptr[2043])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2050*/ meltfptr[2049])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2050*/ meltfptr[2049]))->obj_vartab[3] = (melt_ptr_t)( - ((void*)(MELT_PREDEF(CTYPE_VALUE)))); + melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2044*/ meltfptr[2043])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2044*/ meltfptr[2043]))->obj_vartab[3] = (melt_ptr_t)( + ((void*)(MELT_PREDEF(CTYPE_VOID)))); + + /*putupl*/ + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2054*/ meltfptr[2053]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2054*/ meltfptr[2053])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V2054*/ meltfptr[2053]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V2051*/ meltfptr[2050]); + + /*putupl*/ + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2054*/ meltfptr[2053]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2054*/ meltfptr[2053])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V2054*/ meltfptr[2053]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1981*/ meltfptr[1980]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2056*/ meltfptr[2055]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2056*/ meltfptr[2055])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V2056*/ meltfptr[2055]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V2054*/ meltfptr[2053]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2054*/ meltfptr[2053]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2054*/ meltfptr[2053])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V2054*/ meltfptr[2053]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V2052*/ meltfptr[2051]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2056*/ meltfptr[2055]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2056*/ meltfptr[2055])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V2056*/ meltfptr[2055]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1981*/ meltfptr[1980]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2054*/ meltfptr[2053]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2054*/ meltfptr[2053])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V2054*/ meltfptr[2053]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V2048*/ meltfptr[2047]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2056*/ meltfptr[2055]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2056*/ meltfptr[2055])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V2056*/ meltfptr[2055]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V2055*/ meltfptr[2054]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2054*/ meltfptr[2053]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2054*/ meltfptr[2053])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V2054*/ meltfptr[2053]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V2053*/ meltfptr[2052]); /*touch:INITUP_*/ - meltgc_touch(/*_.VALTUP___V2056*/ meltfptr[2055]); + meltgc_touch(/*_.VALTUP___V2054*/ meltfptr[2053]); - MELT_LOCATION("warmelt-first.melt:1349:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:1348:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2050*/ meltfptr[2049])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2044*/ meltfptr[2043])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2050*/ meltfptr[2049])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2050*/ meltfptr[2049]))->obj_vartab[4] = (melt_ptr_t)( - /*_.VALTUP___V2056*/ meltfptr[2055]); + melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2044*/ meltfptr[2043])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2044*/ meltfptr[2043]))->obj_vartab[4] = (melt_ptr_t)( + /*_.VALTUP___V2054*/ meltfptr[2053]); - MELT_LOCATION("warmelt-first.melt:1349:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:1348:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V2050*/ meltfptr[2049]); + meltgc_touch(/*_.VALDATA___V2044*/ meltfptr[2043]); + /*putslot*/ + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2055*/ meltfptr[2054])) == OBMAG_OBJECT); + + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2055*/ meltfptr[2054])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2055*/ meltfptr[2054]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V2056*/ meltfptr[2055]); + + /*touch:VALUEDATA_*/ + meltgc_touch(/*_.VALDATA___V2055*/ meltfptr[2054]); + + MELT_LOCATION("warmelt-first.melt:1352:/ initchunk"); + /*^putslot*/ /*putslot*/ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2057*/ meltfptr[2056])) == OBMAG_OBJECT); @@ -55142,98 +55258,124 @@ MELT_LOCATION("warmelt-first.melt:1337:/ initchunk"); ((meltobject_ptr_t)(/*_.VALDATA___V2057*/ meltfptr[2056]))->obj_vartab[1] = (melt_ptr_t)( /*_.VALSTR___V2058*/ meltfptr[2057]); - /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V2057*/ meltfptr[2056]); + MELT_LOCATION("warmelt-first.melt:1352:/ initchunk"); + /*^putslot*/ + /*putslot*/ + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2059*/ meltfptr[2058])) == OBMAG_OBJECT); - MELT_LOCATION("warmelt-first.melt:1353:/ initchunk"); + melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2059*/ meltfptr[2058])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2059*/ meltfptr[2058]))->obj_vartab[0] = (melt_ptr_t)( + /*_.VALDATA___V1981*/ meltfptr[1980]); + + MELT_LOCATION("warmelt-first.melt:1352:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2059*/ meltfptr[2058])) == OBMAG_OBJECT); melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2059*/ meltfptr[2058])))); ((meltobject_ptr_t)(/*_.VALDATA___V2059*/ meltfptr[2058]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V2060*/ meltfptr[2059]); + ((void*)(MELT_PREDEF(CTYPE_VALUE)))); + + MELT_LOCATION("warmelt-first.melt:1352:/ initchunk"); + /*^touch*/ + /*touch:VALUEDATA_*/ + meltgc_touch(/*_.VALDATA___V2059*/ meltfptr[2058]); - MELT_LOCATION("warmelt-first.melt:1353:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:1352:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2061*/ meltfptr[2060])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2060*/ meltfptr[2059])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2061*/ meltfptr[2060])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2061*/ meltfptr[2060]))->obj_vartab[0] = (melt_ptr_t)( - /*_.VALDATA___V980*/ meltfptr[979]); + melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2060*/ meltfptr[2059])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2060*/ meltfptr[2059]))->obj_vartab[0] = (melt_ptr_t)( + /*_.VALDATA___V2048*/ meltfptr[2047]); - MELT_LOCATION("warmelt-first.melt:1353:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:1352:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2061*/ meltfptr[2060])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2060*/ meltfptr[2059])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2061*/ meltfptr[2060])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2061*/ meltfptr[2060]))->obj_vartab[1] = (melt_ptr_t)( + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2060*/ meltfptr[2059])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2060*/ meltfptr[2059]))->obj_vartab[1] = (melt_ptr_t)( ((void*)(MELT_PREDEF(CTYPE_VALUE)))); - MELT_LOCATION("warmelt-first.melt:1353:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:1352:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V2061*/ meltfptr[2060]); + meltgc_touch(/*_.VALDATA___V2060*/ meltfptr[2059]); + + /*putupl*/ + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2061*/ meltfptr[2060]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2061*/ meltfptr[2060])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V2061*/ meltfptr[2060]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V2059*/ meltfptr[2058]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2062*/ meltfptr[2061]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2062*/ meltfptr[2061])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V2062*/ meltfptr[2061]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V2061*/ meltfptr[2060]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2061*/ meltfptr[2060]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2061*/ meltfptr[2060])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V2061*/ meltfptr[2060]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2060*/ meltfptr[2059]); /*touch:INITUP_*/ - meltgc_touch(/*_.VALTUP___V2062*/ meltfptr[2061]); + meltgc_touch(/*_.VALTUP___V2061*/ meltfptr[2060]); - MELT_LOCATION("warmelt-first.melt:1353:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:1352:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2059*/ meltfptr[2058])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2057*/ meltfptr[2056])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2059*/ meltfptr[2058])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2059*/ meltfptr[2058]))->obj_vartab[2] = (melt_ptr_t)( - /*_.VALTUP___V2062*/ meltfptr[2061]); + melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2057*/ meltfptr[2056])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2057*/ meltfptr[2056]))->obj_vartab[2] = (melt_ptr_t)( + /*_.VALTUP___V2061*/ meltfptr[2060]); - MELT_LOCATION("warmelt-first.melt:1353:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:1352:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2059*/ meltfptr[2058])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2057*/ meltfptr[2056])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2059*/ meltfptr[2058])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2059*/ meltfptr[2058]))->obj_vartab[3] = (melt_ptr_t)( - ((void*)(MELT_PREDEF(CTYPE_VALUE)))); + melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2057*/ meltfptr[2056])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2057*/ meltfptr[2056]))->obj_vartab[3] = (melt_ptr_t)( + ((void*)(MELT_PREDEF(CTYPE_VOID)))); /*putupl*/ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2065*/ meltfptr[2064]))== OBMAG_MULTIPLE); melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2065*/ meltfptr[2064])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V2065*/ meltfptr[2064]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V2063*/ meltfptr[2062]); + ((meltmultiple_ptr_t)(/*_.VALTUP___V2065*/ meltfptr[2064]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V2062*/ meltfptr[2061]); /*putupl*/ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2065*/ meltfptr[2064]))== OBMAG_MULTIPLE); melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2065*/ meltfptr[2064])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V2065*/ meltfptr[2064]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V980*/ meltfptr[979]); + ((meltmultiple_ptr_t)(/*_.VALTUP___V2065*/ meltfptr[2064]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1981*/ meltfptr[1980]); /*putupl*/ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2065*/ meltfptr[2064]))== OBMAG_MULTIPLE); melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2065*/ meltfptr[2064])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V2065*/ meltfptr[2064]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V2064*/ meltfptr[2063]); + ((meltmultiple_ptr_t)(/*_.VALTUP___V2065*/ meltfptr[2064]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V2063*/ meltfptr[2062]); + + /*putupl*/ + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2065*/ meltfptr[2064]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2065*/ meltfptr[2064])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V2065*/ meltfptr[2064]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V2048*/ meltfptr[2047]); + + /*putupl*/ + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2065*/ meltfptr[2064]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2065*/ meltfptr[2064])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V2065*/ meltfptr[2064]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V2064*/ meltfptr[2063]); /*touch:INITUP_*/ meltgc_touch(/*_.VALTUP___V2065*/ meltfptr[2064]); - MELT_LOCATION("warmelt-first.melt:1353:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:1352:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2059*/ meltfptr[2058])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2057*/ meltfptr[2056])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2059*/ meltfptr[2058])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2059*/ meltfptr[2058]))->obj_vartab[4] = (melt_ptr_t)( + melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2057*/ meltfptr[2056])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2057*/ meltfptr[2056]))->obj_vartab[4] = (melt_ptr_t)( /*_.VALTUP___V2065*/ meltfptr[2064]); - MELT_LOCATION("warmelt-first.melt:1353:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:1352:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V2059*/ meltfptr[2058]); + meltgc_touch(/*_.VALDATA___V2057*/ meltfptr[2056]); /*putslot*/ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2066*/ meltfptr[2065])) == OBMAG_OBJECT); @@ -55245,7 +55387,7 @@ MELT_LOCATION("warmelt-first.melt:1337:/ initchunk"); /*touch:VALUEDATA_*/ meltgc_touch(/*_.VALDATA___V2066*/ meltfptr[2065]); - MELT_LOCATION("warmelt-first.melt:1360:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:1356:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2068*/ meltfptr[2067])) == OBMAG_OBJECT); @@ -55254,26 +55396,16 @@ MELT_LOCATION("warmelt-first.melt:1337:/ initchunk"); ((meltobject_ptr_t)(/*_.VALDATA___V2068*/ meltfptr[2067]))->obj_vartab[1] = (melt_ptr_t)( /*_.VALSTR___V2069*/ meltfptr[2068]); - /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2071*/ meltfptr[2070])) == OBMAG_OBJECT); - - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2071*/ meltfptr[2070])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2071*/ meltfptr[2070]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V2072*/ meltfptr[2071]); - - /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V2071*/ meltfptr[2070]); - - MELT_LOCATION("warmelt-first.melt:1360:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:1356:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2070*/ meltfptr[2069])) == OBMAG_OBJECT); melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2070*/ meltfptr[2069])))); ((meltobject_ptr_t)(/*_.VALDATA___V2070*/ meltfptr[2069]))->obj_vartab[0] = (melt_ptr_t)( - /*_.VALDATA___V2071*/ meltfptr[2070]); + /*_.VALDATA___V1981*/ meltfptr[1980]); - MELT_LOCATION("warmelt-first.melt:1360:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:1356:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2070*/ meltfptr[2069])) == OBMAG_OBJECT); @@ -55282,169 +55414,181 @@ MELT_LOCATION("warmelt-first.melt:1337:/ initchunk"); ((meltobject_ptr_t)(/*_.VALDATA___V2070*/ meltfptr[2069]))->obj_vartab[1] = (melt_ptr_t)( ((void*)(MELT_PREDEF(CTYPE_VALUE)))); - MELT_LOCATION("warmelt-first.melt:1360:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:1356:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ meltgc_touch(/*_.VALDATA___V2070*/ meltfptr[2069]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2073*/ meltfptr[2072]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2073*/ meltfptr[2072])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V2073*/ meltfptr[2072]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V2070*/ meltfptr[2069]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2071*/ meltfptr[2070]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2071*/ meltfptr[2070])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V2071*/ meltfptr[2070]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V2070*/ meltfptr[2069]); /*touch:INITUP_*/ - meltgc_touch(/*_.VALTUP___V2073*/ meltfptr[2072]); + meltgc_touch(/*_.VALTUP___V2071*/ meltfptr[2070]); - MELT_LOCATION("warmelt-first.melt:1360:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:1356:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2068*/ meltfptr[2067])) == OBMAG_OBJECT); melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2068*/ meltfptr[2067])))); ((meltobject_ptr_t)(/*_.VALDATA___V2068*/ meltfptr[2067]))->obj_vartab[2] = (melt_ptr_t)( - /*_.VALTUP___V2073*/ meltfptr[2072]); + /*_.VALTUP___V2071*/ meltfptr[2070]); - MELT_LOCATION("warmelt-first.melt:1360:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:1356:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2068*/ meltfptr[2067])) == OBMAG_OBJECT); melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2068*/ meltfptr[2067])))); ((meltobject_ptr_t)(/*_.VALDATA___V2068*/ meltfptr[2067]))->obj_vartab[3] = (melt_ptr_t)( - ((void*)(MELT_PREDEF(CTYPE_LONG)))); + ((void*)(MELT_PREDEF(CTYPE_VALUE)))); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2076*/ meltfptr[2075]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2076*/ meltfptr[2075])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V2076*/ meltfptr[2075]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V2074*/ meltfptr[2073]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2074*/ meltfptr[2073]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2074*/ meltfptr[2073])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V2074*/ meltfptr[2073]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V2072*/ meltfptr[2071]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2076*/ meltfptr[2075]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2076*/ meltfptr[2075])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V2076*/ meltfptr[2075]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2071*/ meltfptr[2070]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2074*/ meltfptr[2073]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2074*/ meltfptr[2073])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V2074*/ meltfptr[2073]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1981*/ meltfptr[1980]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2076*/ meltfptr[2075]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2076*/ meltfptr[2075])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V2076*/ meltfptr[2075]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V2075*/ meltfptr[2074]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2074*/ meltfptr[2073]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2074*/ meltfptr[2073])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V2074*/ meltfptr[2073]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V2073*/ meltfptr[2072]); /*touch:INITUP_*/ - meltgc_touch(/*_.VALTUP___V2076*/ meltfptr[2075]); + meltgc_touch(/*_.VALTUP___V2074*/ meltfptr[2073]); - MELT_LOCATION("warmelt-first.melt:1360:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:1356:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2068*/ meltfptr[2067])) == OBMAG_OBJECT); melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2068*/ meltfptr[2067])))); ((meltobject_ptr_t)(/*_.VALDATA___V2068*/ meltfptr[2067]))->obj_vartab[4] = (melt_ptr_t)( - /*_.VALTUP___V2076*/ meltfptr[2075]); + /*_.VALTUP___V2074*/ meltfptr[2073]); - MELT_LOCATION("warmelt-first.melt:1360:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:1356:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ meltgc_touch(/*_.VALDATA___V2068*/ meltfptr[2067]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2077*/ meltfptr[2076])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2075*/ meltfptr[2074])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2077*/ meltfptr[2076])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2077*/ meltfptr[2076]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V2078*/ meltfptr[2077]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2075*/ meltfptr[2074])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2075*/ meltfptr[2074]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V2076*/ meltfptr[2075]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V2077*/ meltfptr[2076]); + meltgc_touch(/*_.VALDATA___V2075*/ meltfptr[2074]); - MELT_LOCATION("warmelt-first.melt:1364:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:1360:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2079*/ meltfptr[2078])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2077*/ meltfptr[2076])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2079*/ meltfptr[2078])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2079*/ meltfptr[2078]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V2080*/ meltfptr[2079]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2077*/ meltfptr[2076])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2077*/ meltfptr[2076]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V2078*/ meltfptr[2077]); - MELT_LOCATION("warmelt-first.melt:1364:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:1360:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2081*/ meltfptr[2080])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2079*/ meltfptr[2078])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2081*/ meltfptr[2080])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2081*/ meltfptr[2080]))->obj_vartab[0] = (melt_ptr_t)( - /*_.VALDATA___V2071*/ meltfptr[2070]); + melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2079*/ meltfptr[2078])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2079*/ meltfptr[2078]))->obj_vartab[0] = (melt_ptr_t)( + /*_.VALDATA___V980*/ meltfptr[979]); - MELT_LOCATION("warmelt-first.melt:1364:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:1360:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2081*/ meltfptr[2080])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2079*/ meltfptr[2078])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2081*/ meltfptr[2080])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2081*/ meltfptr[2080]))->obj_vartab[1] = (melt_ptr_t)( + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2079*/ meltfptr[2078])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2079*/ meltfptr[2078]))->obj_vartab[1] = (melt_ptr_t)( ((void*)(MELT_PREDEF(CTYPE_VALUE)))); - MELT_LOCATION("warmelt-first.melt:1364:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:1360:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V2081*/ meltfptr[2080]); + meltgc_touch(/*_.VALDATA___V2079*/ meltfptr[2078]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2082*/ meltfptr[2081]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2082*/ meltfptr[2081])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V2082*/ meltfptr[2081]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V2081*/ meltfptr[2080]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2080*/ meltfptr[2079]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2080*/ meltfptr[2079])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V2080*/ meltfptr[2079]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V2079*/ meltfptr[2078]); /*touch:INITUP_*/ - meltgc_touch(/*_.VALTUP___V2082*/ meltfptr[2081]); + meltgc_touch(/*_.VALTUP___V2080*/ meltfptr[2079]); - MELT_LOCATION("warmelt-first.melt:1364:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:1360:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2079*/ meltfptr[2078])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2077*/ meltfptr[2076])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2079*/ meltfptr[2078])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2079*/ meltfptr[2078]))->obj_vartab[2] = (melt_ptr_t)( - /*_.VALTUP___V2082*/ meltfptr[2081]); + melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2077*/ meltfptr[2076])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2077*/ meltfptr[2076]))->obj_vartab[2] = (melt_ptr_t)( + /*_.VALTUP___V2080*/ meltfptr[2079]); - MELT_LOCATION("warmelt-first.melt:1364:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:1360:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2079*/ meltfptr[2078])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2077*/ meltfptr[2076])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2079*/ meltfptr[2078])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2079*/ meltfptr[2078]))->obj_vartab[3] = (melt_ptr_t)( + melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2077*/ meltfptr[2076])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2077*/ meltfptr[2076]))->obj_vartab[3] = (melt_ptr_t)( ((void*)(MELT_PREDEF(CTYPE_VALUE)))); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2085*/ meltfptr[2084]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2085*/ meltfptr[2084])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V2085*/ meltfptr[2084]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V2083*/ meltfptr[2082]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2083*/ meltfptr[2082]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2083*/ meltfptr[2082])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V2083*/ meltfptr[2082]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V2081*/ meltfptr[2080]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2085*/ meltfptr[2084]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2085*/ meltfptr[2084])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V2085*/ meltfptr[2084]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2071*/ meltfptr[2070]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2083*/ meltfptr[2082]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2083*/ meltfptr[2082])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V2083*/ meltfptr[2082]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V980*/ meltfptr[979]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2085*/ meltfptr[2084]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2085*/ meltfptr[2084])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V2085*/ meltfptr[2084]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V2084*/ meltfptr[2083]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2083*/ meltfptr[2082]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2083*/ meltfptr[2082])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V2083*/ meltfptr[2082]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V2082*/ meltfptr[2081]); /*touch:INITUP_*/ - meltgc_touch(/*_.VALTUP___V2085*/ meltfptr[2084]); + meltgc_touch(/*_.VALTUP___V2083*/ meltfptr[2082]); - MELT_LOCATION("warmelt-first.melt:1364:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:1360:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2079*/ meltfptr[2078])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2077*/ meltfptr[2076])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2079*/ meltfptr[2078])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2079*/ meltfptr[2078]))->obj_vartab[4] = (melt_ptr_t)( - /*_.VALTUP___V2085*/ meltfptr[2084]); + melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2077*/ meltfptr[2076])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2077*/ meltfptr[2076]))->obj_vartab[4] = (melt_ptr_t)( + /*_.VALTUP___V2083*/ meltfptr[2082]); - MELT_LOCATION("warmelt-first.melt:1364:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:1360:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V2079*/ meltfptr[2078]); + meltgc_touch(/*_.VALDATA___V2077*/ meltfptr[2076]); + + /*putslot*/ + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2084*/ meltfptr[2083])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2084*/ meltfptr[2083])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2084*/ meltfptr[2083]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V2085*/ meltfptr[2084]); + + /*touch:VALUEDATA_*/ + meltgc_touch(/*_.VALDATA___V2084*/ meltfptr[2083]); + + MELT_LOCATION("warmelt-first.melt:1367:/ initchunk"); + /*^putslot*/ /*putslot*/ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2086*/ meltfptr[2085])) == OBMAG_OBJECT); @@ -55452,66 +55596,64 @@ MELT_LOCATION("warmelt-first.melt:1337:/ initchunk"); ((meltobject_ptr_t)(/*_.VALDATA___V2086*/ meltfptr[2085]))->obj_vartab[1] = (melt_ptr_t)( /*_.VALSTR___V2087*/ meltfptr[2086]); - /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V2086*/ meltfptr[2085]); - - MELT_LOCATION("warmelt-first.melt:1368:/ initchunk"); - /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2088*/ meltfptr[2087])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2089*/ meltfptr[2088])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2088*/ meltfptr[2087])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2088*/ meltfptr[2087]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V2089*/ meltfptr[2088]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2089*/ meltfptr[2088])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2089*/ meltfptr[2088]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V2090*/ meltfptr[2089]); - MELT_LOCATION("warmelt-first.melt:1368:/ initchunk"); + /*touch:VALUEDATA_*/ + meltgc_touch(/*_.VALDATA___V2089*/ meltfptr[2088]); + + MELT_LOCATION("warmelt-first.melt:1367:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2090*/ meltfptr[2089])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2088*/ meltfptr[2087])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2090*/ meltfptr[2089])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2090*/ meltfptr[2089]))->obj_vartab[0] = (melt_ptr_t)( - /*_.VALDATA___V2071*/ meltfptr[2070]); + melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2088*/ meltfptr[2087])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2088*/ meltfptr[2087]))->obj_vartab[0] = (melt_ptr_t)( + /*_.VALDATA___V2089*/ meltfptr[2088]); - MELT_LOCATION("warmelt-first.melt:1368:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:1367:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2090*/ meltfptr[2089])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2088*/ meltfptr[2087])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2090*/ meltfptr[2089])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2090*/ meltfptr[2089]))->obj_vartab[1] = (melt_ptr_t)( + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2088*/ meltfptr[2087])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2088*/ meltfptr[2087]))->obj_vartab[1] = (melt_ptr_t)( ((void*)(MELT_PREDEF(CTYPE_VALUE)))); - MELT_LOCATION("warmelt-first.melt:1368:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:1367:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V2090*/ meltfptr[2089]); + meltgc_touch(/*_.VALDATA___V2088*/ meltfptr[2087]); /*putupl*/ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2091*/ meltfptr[2090]))== OBMAG_MULTIPLE); melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2091*/ meltfptr[2090])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V2091*/ meltfptr[2090]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V2090*/ meltfptr[2089]); + ((meltmultiple_ptr_t)(/*_.VALTUP___V2091*/ meltfptr[2090]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V2088*/ meltfptr[2087]); /*touch:INITUP_*/ meltgc_touch(/*_.VALTUP___V2091*/ meltfptr[2090]); - MELT_LOCATION("warmelt-first.melt:1368:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:1367:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2088*/ meltfptr[2087])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2086*/ meltfptr[2085])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2088*/ meltfptr[2087])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2088*/ meltfptr[2087]))->obj_vartab[2] = (melt_ptr_t)( + melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2086*/ meltfptr[2085])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2086*/ meltfptr[2085]))->obj_vartab[2] = (melt_ptr_t)( /*_.VALTUP___V2091*/ meltfptr[2090]); - MELT_LOCATION("warmelt-first.melt:1368:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:1367:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2088*/ meltfptr[2087])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2086*/ meltfptr[2085])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2088*/ meltfptr[2087])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2088*/ meltfptr[2087]))->obj_vartab[3] = (melt_ptr_t)( - ((void*)(MELT_PREDEF(CTYPE_VALUE)))); + melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2086*/ meltfptr[2085])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2086*/ meltfptr[2085]))->obj_vartab[3] = (melt_ptr_t)( + ((void*)(MELT_PREDEF(CTYPE_LONG)))); /*putupl*/ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2094*/ meltfptr[2093]))== OBMAG_MULTIPLE); @@ -55521,7 +55663,7 @@ MELT_LOCATION("warmelt-first.melt:1337:/ initchunk"); /*putupl*/ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2094*/ meltfptr[2093]))== OBMAG_MULTIPLE); melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2094*/ meltfptr[2093])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V2094*/ meltfptr[2093]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2071*/ meltfptr[2070]); + ((meltmultiple_ptr_t)(/*_.VALTUP___V2094*/ meltfptr[2093]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2089*/ meltfptr[2088]); /*putupl*/ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2094*/ meltfptr[2093]))== OBMAG_MULTIPLE); @@ -55531,19 +55673,19 @@ MELT_LOCATION("warmelt-first.melt:1337:/ initchunk"); /*touch:INITUP_*/ meltgc_touch(/*_.VALTUP___V2094*/ meltfptr[2093]); - MELT_LOCATION("warmelt-first.melt:1368:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:1367:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2088*/ meltfptr[2087])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2086*/ meltfptr[2085])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2088*/ meltfptr[2087])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2088*/ meltfptr[2087]))->obj_vartab[4] = (melt_ptr_t)( + melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2086*/ meltfptr[2085])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2086*/ meltfptr[2085]))->obj_vartab[4] = (melt_ptr_t)( /*_.VALTUP___V2094*/ meltfptr[2093]); - MELT_LOCATION("warmelt-first.melt:1368:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:1367:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V2088*/ meltfptr[2087]); + meltgc_touch(/*_.VALDATA___V2086*/ meltfptr[2085]); /*putslot*/ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2095*/ meltfptr[2094])) == OBMAG_OBJECT); @@ -55555,7 +55697,7 @@ MELT_LOCATION("warmelt-first.melt:1337:/ initchunk"); /*touch:VALUEDATA_*/ meltgc_touch(/*_.VALDATA___V2095*/ meltfptr[2094]); - MELT_LOCATION("warmelt-first.melt:1376:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:1371:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2097*/ meltfptr[2096])) == OBMAG_OBJECT); @@ -55564,2909 +55706,2961 @@ MELT_LOCATION("warmelt-first.melt:1337:/ initchunk"); ((meltobject_ptr_t)(/*_.VALDATA___V2097*/ meltfptr[2096]))->obj_vartab[1] = (melt_ptr_t)( /*_.VALSTR___V2098*/ meltfptr[2097]); - MELT_LOCATION("warmelt-first.melt:1376:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:1371:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2099*/ meltfptr[2098])) == OBMAG_OBJECT); melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2099*/ meltfptr[2098])))); ((meltobject_ptr_t)(/*_.VALDATA___V2099*/ meltfptr[2098]))->obj_vartab[0] = (melt_ptr_t)( - /*_.VALDATA___V1277*/ meltfptr[1276]); + /*_.VALDATA___V2089*/ meltfptr[2088]); - MELT_LOCATION("warmelt-first.melt:1376:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:1371:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2099*/ meltfptr[2098])) == OBMAG_OBJECT); melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2099*/ meltfptr[2098])))); ((meltobject_ptr_t)(/*_.VALDATA___V2099*/ meltfptr[2098]))->obj_vartab[1] = (melt_ptr_t)( - ((void*)(MELT_PREDEF(CTYPE_CSTRING)))); + ((void*)(MELT_PREDEF(CTYPE_VALUE)))); - MELT_LOCATION("warmelt-first.melt:1376:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:1371:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ meltgc_touch(/*_.VALDATA___V2099*/ meltfptr[2098]); - MELT_LOCATION("warmelt-first.melt:1376:/ initchunk"); + /*putupl*/ + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2100*/ meltfptr[2099]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2100*/ meltfptr[2099])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V2100*/ meltfptr[2099]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V2099*/ meltfptr[2098]); + + /*touch:INITUP_*/ + meltgc_touch(/*_.VALTUP___V2100*/ meltfptr[2099]); + + MELT_LOCATION("warmelt-first.melt:1371:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2100*/ meltfptr[2099])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2097*/ meltfptr[2096])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2100*/ meltfptr[2099])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2100*/ meltfptr[2099]))->obj_vartab[0] = (melt_ptr_t)( - /*_.VALDATA___V1110*/ meltfptr[1109]); + melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2097*/ meltfptr[2096])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2097*/ meltfptr[2096]))->obj_vartab[2] = (melt_ptr_t)( + /*_.VALTUP___V2100*/ meltfptr[2099]); - MELT_LOCATION("warmelt-first.melt:1376:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:1371:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2100*/ meltfptr[2099])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2097*/ meltfptr[2096])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2100*/ meltfptr[2099])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2100*/ meltfptr[2099]))->obj_vartab[1] = (melt_ptr_t)( + melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2097*/ meltfptr[2096])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2097*/ meltfptr[2096]))->obj_vartab[3] = (melt_ptr_t)( ((void*)(MELT_PREDEF(CTYPE_VALUE)))); - MELT_LOCATION("warmelt-first.melt:1376:/ initchunk"); - /*^touch*/ - /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V2100*/ meltfptr[2099]); + /*putupl*/ + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2103*/ meltfptr[2102]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2103*/ meltfptr[2102])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V2103*/ meltfptr[2102]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V2101*/ meltfptr[2100]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2101*/ meltfptr[2100]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2101*/ meltfptr[2100])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V2101*/ meltfptr[2100]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V2099*/ meltfptr[2098]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2103*/ meltfptr[2102]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2103*/ meltfptr[2102])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V2103*/ meltfptr[2102]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2089*/ meltfptr[2088]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2101*/ meltfptr[2100]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2101*/ meltfptr[2100])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V2101*/ meltfptr[2100]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2100*/ meltfptr[2099]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2103*/ meltfptr[2102]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2103*/ meltfptr[2102])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V2103*/ meltfptr[2102]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V2102*/ meltfptr[2101]); /*touch:INITUP_*/ - meltgc_touch(/*_.VALTUP___V2101*/ meltfptr[2100]); + meltgc_touch(/*_.VALTUP___V2103*/ meltfptr[2102]); - MELT_LOCATION("warmelt-first.melt:1376:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:1371:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2097*/ meltfptr[2096])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2097*/ meltfptr[2096])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2097*/ meltfptr[2096]))->obj_vartab[2] = (melt_ptr_t)( - /*_.VALTUP___V2101*/ meltfptr[2100]); + melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2097*/ meltfptr[2096])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2097*/ meltfptr[2096]))->obj_vartab[4] = (melt_ptr_t)( + /*_.VALTUP___V2103*/ meltfptr[2102]); + + MELT_LOCATION("warmelt-first.melt:1371:/ initchunk"); + /*^touch*/ + /*touch:VALUEDATA_*/ + meltgc_touch(/*_.VALDATA___V2097*/ meltfptr[2096]); + + /*putslot*/ + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2104*/ meltfptr[2103])) == OBMAG_OBJECT); + + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2104*/ meltfptr[2103])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2104*/ meltfptr[2103]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V2105*/ meltfptr[2104]); - MELT_LOCATION("warmelt-first.melt:1376:/ initchunk"); + /*touch:VALUEDATA_*/ + meltgc_touch(/*_.VALDATA___V2104*/ meltfptr[2103]); + + MELT_LOCATION("warmelt-first.melt:1375:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2097*/ meltfptr[2096])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2106*/ meltfptr[2105])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2097*/ meltfptr[2096])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2097*/ meltfptr[2096]))->obj_vartab[3] = (melt_ptr_t)( - ((void*)(MELT_PREDEF(CTYPE_VOID)))); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2106*/ meltfptr[2105])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2106*/ meltfptr[2105]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V2107*/ meltfptr[2106]); - /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2105*/ meltfptr[2104]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2105*/ meltfptr[2104])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V2105*/ meltfptr[2104]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V2102*/ meltfptr[2101]); + MELT_LOCATION("warmelt-first.melt:1375:/ initchunk"); + /*^putslot*/ + /*putslot*/ + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2108*/ meltfptr[2107])) == OBMAG_OBJECT); + + melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2108*/ meltfptr[2107])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2108*/ meltfptr[2107]))->obj_vartab[0] = (melt_ptr_t)( + /*_.VALDATA___V2089*/ meltfptr[2088]); + + MELT_LOCATION("warmelt-first.melt:1375:/ initchunk"); + /*^putslot*/ + /*putslot*/ + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2108*/ meltfptr[2107])) == OBMAG_OBJECT); + + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2108*/ meltfptr[2107])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2108*/ meltfptr[2107]))->obj_vartab[1] = (melt_ptr_t)( + ((void*)(MELT_PREDEF(CTYPE_VALUE)))); + + MELT_LOCATION("warmelt-first.melt:1375:/ initchunk"); + /*^touch*/ + /*touch:VALUEDATA_*/ + meltgc_touch(/*_.VALDATA___V2108*/ meltfptr[2107]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2105*/ meltfptr[2104]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2105*/ meltfptr[2104])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V2105*/ meltfptr[2104]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1277*/ meltfptr[1276]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2109*/ meltfptr[2108]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2109*/ meltfptr[2108])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V2109*/ meltfptr[2108]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V2108*/ meltfptr[2107]); + + /*touch:INITUP_*/ + meltgc_touch(/*_.VALTUP___V2109*/ meltfptr[2108]); + + MELT_LOCATION("warmelt-first.melt:1375:/ initchunk"); + /*^putslot*/ + /*putslot*/ + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2106*/ meltfptr[2105])) == OBMAG_OBJECT); + + melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2106*/ meltfptr[2105])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2106*/ meltfptr[2105]))->obj_vartab[2] = (melt_ptr_t)( + /*_.VALTUP___V2109*/ meltfptr[2108]); + + MELT_LOCATION("warmelt-first.melt:1375:/ initchunk"); + /*^putslot*/ + /*putslot*/ + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2106*/ meltfptr[2105])) == OBMAG_OBJECT); + + melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2106*/ meltfptr[2105])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2106*/ meltfptr[2105]))->obj_vartab[3] = (melt_ptr_t)( + ((void*)(MELT_PREDEF(CTYPE_VALUE)))); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2105*/ meltfptr[2104]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2105*/ meltfptr[2104])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V2105*/ meltfptr[2104]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V2103*/ meltfptr[2102]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2112*/ meltfptr[2111]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2112*/ meltfptr[2111])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V2112*/ meltfptr[2111]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V2110*/ meltfptr[2109]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2105*/ meltfptr[2104]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2105*/ meltfptr[2104])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V2105*/ meltfptr[2104]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V1110*/ meltfptr[1109]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2112*/ meltfptr[2111]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2112*/ meltfptr[2111])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V2112*/ meltfptr[2111]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2089*/ meltfptr[2088]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2105*/ meltfptr[2104]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2105*/ meltfptr[2104])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V2105*/ meltfptr[2104]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V2104*/ meltfptr[2103]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2112*/ meltfptr[2111]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2112*/ meltfptr[2111])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V2112*/ meltfptr[2111]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V2111*/ meltfptr[2110]); /*touch:INITUP_*/ - meltgc_touch(/*_.VALTUP___V2105*/ meltfptr[2104]); + meltgc_touch(/*_.VALTUP___V2112*/ meltfptr[2111]); - MELT_LOCATION("warmelt-first.melt:1376:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:1375:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2097*/ meltfptr[2096])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2106*/ meltfptr[2105])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2097*/ meltfptr[2096])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2097*/ meltfptr[2096]))->obj_vartab[4] = (melt_ptr_t)( - /*_.VALTUP___V2105*/ meltfptr[2104]); + melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2106*/ meltfptr[2105])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2106*/ meltfptr[2105]))->obj_vartab[4] = (melt_ptr_t)( + /*_.VALTUP___V2112*/ meltfptr[2111]); - MELT_LOCATION("warmelt-first.melt:1376:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:1375:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V2097*/ meltfptr[2096]); + meltgc_touch(/*_.VALDATA___V2106*/ meltfptr[2105]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2106*/ meltfptr[2105])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2113*/ meltfptr[2112])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2106*/ meltfptr[2105])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2106*/ meltfptr[2105]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V2107*/ meltfptr[2106]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2113*/ meltfptr[2112])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2113*/ meltfptr[2112]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V2114*/ meltfptr[2113]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V2106*/ meltfptr[2105]); + meltgc_touch(/*_.VALDATA___V2113*/ meltfptr[2112]); MELT_LOCATION("warmelt-first.melt:1383:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2108*/ meltfptr[2107])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2115*/ meltfptr[2114])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2108*/ meltfptr[2107])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2108*/ meltfptr[2107]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V2109*/ meltfptr[2108]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2115*/ meltfptr[2114])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2115*/ meltfptr[2114]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V2116*/ meltfptr[2115]); MELT_LOCATION("warmelt-first.melt:1383:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2110*/ meltfptr[2109])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2117*/ meltfptr[2116])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2110*/ meltfptr[2109])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2110*/ meltfptr[2109]))->obj_vartab[0] = (melt_ptr_t)( - /*_.VALDATA___V1159*/ meltfptr[1158]); + melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2117*/ meltfptr[2116])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2117*/ meltfptr[2116]))->obj_vartab[0] = (melt_ptr_t)( + /*_.VALDATA___V1277*/ meltfptr[1276]); MELT_LOCATION("warmelt-first.melt:1383:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2110*/ meltfptr[2109])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2117*/ meltfptr[2116])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2110*/ meltfptr[2109])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2110*/ meltfptr[2109]))->obj_vartab[1] = (melt_ptr_t)( + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2117*/ meltfptr[2116])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2117*/ meltfptr[2116]))->obj_vartab[1] = (melt_ptr_t)( ((void*)(MELT_PREDEF(CTYPE_CSTRING)))); MELT_LOCATION("warmelt-first.melt:1383:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V2110*/ meltfptr[2109]); + meltgc_touch(/*_.VALDATA___V2117*/ meltfptr[2116]); MELT_LOCATION("warmelt-first.melt:1383:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2111*/ meltfptr[2110])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2118*/ meltfptr[2117])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2111*/ meltfptr[2110])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2111*/ meltfptr[2110]))->obj_vartab[0] = (melt_ptr_t)( - /*_.VALDATA___V1288*/ meltfptr[1287]); + melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2118*/ meltfptr[2117])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2118*/ meltfptr[2117]))->obj_vartab[0] = (melt_ptr_t)( + /*_.VALDATA___V1110*/ meltfptr[1109]); MELT_LOCATION("warmelt-first.melt:1383:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2111*/ meltfptr[2110])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2118*/ meltfptr[2117])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2111*/ meltfptr[2110])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2111*/ meltfptr[2110]))->obj_vartab[1] = (melt_ptr_t)( - ((void*)(MELT_PREDEF(CTYPE_LONG)))); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2118*/ meltfptr[2117])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2118*/ meltfptr[2117]))->obj_vartab[1] = (melt_ptr_t)( + ((void*)(MELT_PREDEF(CTYPE_VALUE)))); MELT_LOCATION("warmelt-first.melt:1383:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V2111*/ meltfptr[2110]); + meltgc_touch(/*_.VALDATA___V2118*/ meltfptr[2117]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2112*/ meltfptr[2111]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2112*/ meltfptr[2111])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V2112*/ meltfptr[2111]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V2110*/ meltfptr[2109]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2119*/ meltfptr[2118]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2119*/ meltfptr[2118])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V2119*/ meltfptr[2118]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V2117*/ meltfptr[2116]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2112*/ meltfptr[2111]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2112*/ meltfptr[2111])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V2112*/ meltfptr[2111]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2111*/ meltfptr[2110]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2119*/ meltfptr[2118]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2119*/ meltfptr[2118])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V2119*/ meltfptr[2118]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2118*/ meltfptr[2117]); /*touch:INITUP_*/ - meltgc_touch(/*_.VALTUP___V2112*/ meltfptr[2111]); + meltgc_touch(/*_.VALTUP___V2119*/ meltfptr[2118]); MELT_LOCATION("warmelt-first.melt:1383:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2108*/ meltfptr[2107])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2115*/ meltfptr[2114])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2108*/ meltfptr[2107])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2108*/ meltfptr[2107]))->obj_vartab[2] = (melt_ptr_t)( - /*_.VALTUP___V2112*/ meltfptr[2111]); + melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2115*/ meltfptr[2114])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2115*/ meltfptr[2114]))->obj_vartab[2] = (melt_ptr_t)( + /*_.VALTUP___V2119*/ meltfptr[2118]); MELT_LOCATION("warmelt-first.melt:1383:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2108*/ meltfptr[2107])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2115*/ meltfptr[2114])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2108*/ meltfptr[2107])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2108*/ meltfptr[2107]))->obj_vartab[3] = (melt_ptr_t)( + melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2115*/ meltfptr[2114])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2115*/ meltfptr[2114]))->obj_vartab[3] = (melt_ptr_t)( ((void*)(MELT_PREDEF(CTYPE_VOID)))); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2116*/ meltfptr[2115]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2116*/ meltfptr[2115])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V2116*/ meltfptr[2115]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V2113*/ meltfptr[2112]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2123*/ meltfptr[2122]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2123*/ meltfptr[2122])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V2123*/ meltfptr[2122]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V2120*/ meltfptr[2119]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2116*/ meltfptr[2115]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2116*/ meltfptr[2115])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V2116*/ meltfptr[2115]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1159*/ meltfptr[1158]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2123*/ meltfptr[2122]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2123*/ meltfptr[2122])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V2123*/ meltfptr[2122]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1277*/ meltfptr[1276]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2116*/ meltfptr[2115]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2116*/ meltfptr[2115])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V2116*/ meltfptr[2115]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V2114*/ meltfptr[2113]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2123*/ meltfptr[2122]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2123*/ meltfptr[2122])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V2123*/ meltfptr[2122]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V2121*/ meltfptr[2120]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2116*/ meltfptr[2115]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2116*/ meltfptr[2115])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V2116*/ meltfptr[2115]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V1288*/ meltfptr[1287]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2123*/ meltfptr[2122]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2123*/ meltfptr[2122])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V2123*/ meltfptr[2122]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V1110*/ meltfptr[1109]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2116*/ meltfptr[2115]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2116*/ meltfptr[2115])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V2116*/ meltfptr[2115]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V2115*/ meltfptr[2114]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2123*/ meltfptr[2122]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2123*/ meltfptr[2122])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V2123*/ meltfptr[2122]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V2122*/ meltfptr[2121]); /*touch:INITUP_*/ - meltgc_touch(/*_.VALTUP___V2116*/ meltfptr[2115]); + meltgc_touch(/*_.VALTUP___V2123*/ meltfptr[2122]); MELT_LOCATION("warmelt-first.melt:1383:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2108*/ meltfptr[2107])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2115*/ meltfptr[2114])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2108*/ meltfptr[2107])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2108*/ meltfptr[2107]))->obj_vartab[4] = (melt_ptr_t)( - /*_.VALTUP___V2116*/ meltfptr[2115]); + melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2115*/ meltfptr[2114])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2115*/ meltfptr[2114]))->obj_vartab[4] = (melt_ptr_t)( + /*_.VALTUP___V2123*/ meltfptr[2122]); MELT_LOCATION("warmelt-first.melt:1383:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V2108*/ meltfptr[2107]); + meltgc_touch(/*_.VALDATA___V2115*/ meltfptr[2114]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2117*/ meltfptr[2116])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2124*/ meltfptr[2123])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2117*/ meltfptr[2116])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2117*/ meltfptr[2116]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V2118*/ meltfptr[2117]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2124*/ meltfptr[2123])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2124*/ meltfptr[2123]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V2125*/ meltfptr[2124]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V2117*/ meltfptr[2116]); + meltgc_touch(/*_.VALDATA___V2124*/ meltfptr[2123]); + + MELT_LOCATION("warmelt-first.melt:1390:/ initchunk"); + /*^putslot*/ + /*putslot*/ + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2126*/ meltfptr[2125])) == OBMAG_OBJECT); + + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2126*/ meltfptr[2125])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2126*/ meltfptr[2125]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V2127*/ meltfptr[2126]); + + MELT_LOCATION("warmelt-first.melt:1390:/ initchunk"); + /*^putslot*/ + /*putslot*/ + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2128*/ meltfptr[2127])) == OBMAG_OBJECT); + + melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2128*/ meltfptr[2127])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2128*/ meltfptr[2127]))->obj_vartab[0] = (melt_ptr_t)( + /*_.VALDATA___V1159*/ meltfptr[1158]); + + MELT_LOCATION("warmelt-first.melt:1390:/ initchunk"); + /*^putslot*/ + /*putslot*/ + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2128*/ meltfptr[2127])) == OBMAG_OBJECT); + + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2128*/ meltfptr[2127])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2128*/ meltfptr[2127]))->obj_vartab[1] = (melt_ptr_t)( + ((void*)(MELT_PREDEF(CTYPE_CSTRING)))); + + MELT_LOCATION("warmelt-first.melt:1390:/ initchunk"); + /*^touch*/ + /*touch:VALUEDATA_*/ + meltgc_touch(/*_.VALDATA___V2128*/ meltfptr[2127]); + + MELT_LOCATION("warmelt-first.melt:1390:/ initchunk"); + /*^putslot*/ + /*putslot*/ + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2129*/ meltfptr[2128])) == OBMAG_OBJECT); + + melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2129*/ meltfptr[2128])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2129*/ meltfptr[2128]))->obj_vartab[0] = (melt_ptr_t)( + /*_.VALDATA___V1288*/ meltfptr[1287]); + + MELT_LOCATION("warmelt-first.melt:1390:/ initchunk"); + /*^putslot*/ + /*putslot*/ + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2129*/ meltfptr[2128])) == OBMAG_OBJECT); + + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2129*/ meltfptr[2128])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2129*/ meltfptr[2128]))->obj_vartab[1] = (melt_ptr_t)( + ((void*)(MELT_PREDEF(CTYPE_LONG)))); + + MELT_LOCATION("warmelt-first.melt:1390:/ initchunk"); + /*^touch*/ + /*touch:VALUEDATA_*/ + meltgc_touch(/*_.VALDATA___V2129*/ meltfptr[2128]); + + /*putupl*/ + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2130*/ meltfptr[2129]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2130*/ meltfptr[2129])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V2130*/ meltfptr[2129]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V2128*/ meltfptr[2127]); + + /*putupl*/ + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2130*/ meltfptr[2129]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2130*/ meltfptr[2129])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V2130*/ meltfptr[2129]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2129*/ meltfptr[2128]); + + /*touch:INITUP_*/ + meltgc_touch(/*_.VALTUP___V2130*/ meltfptr[2129]); + + MELT_LOCATION("warmelt-first.melt:1390:/ initchunk"); + /*^putslot*/ + /*putslot*/ + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2126*/ meltfptr[2125])) == OBMAG_OBJECT); + + melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2126*/ meltfptr[2125])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2126*/ meltfptr[2125]))->obj_vartab[2] = (melt_ptr_t)( + /*_.VALTUP___V2130*/ meltfptr[2129]); + + MELT_LOCATION("warmelt-first.melt:1390:/ initchunk"); + /*^putslot*/ + /*putslot*/ + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2126*/ meltfptr[2125])) == OBMAG_OBJECT); + + melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2126*/ meltfptr[2125])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2126*/ meltfptr[2125]))->obj_vartab[3] = (melt_ptr_t)( + ((void*)(MELT_PREDEF(CTYPE_VOID)))); + + /*putupl*/ + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2134*/ meltfptr[2133]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2134*/ meltfptr[2133])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V2134*/ meltfptr[2133]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V2131*/ meltfptr[2130]); + + /*putupl*/ + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2134*/ meltfptr[2133]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2134*/ meltfptr[2133])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V2134*/ meltfptr[2133]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1159*/ meltfptr[1158]); + + /*putupl*/ + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2134*/ meltfptr[2133]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2134*/ meltfptr[2133])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V2134*/ meltfptr[2133]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V2132*/ meltfptr[2131]); + + /*putupl*/ + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2134*/ meltfptr[2133]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2134*/ meltfptr[2133])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V2134*/ meltfptr[2133]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V1288*/ meltfptr[1287]); + + /*putupl*/ + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2134*/ meltfptr[2133]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2134*/ meltfptr[2133])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V2134*/ meltfptr[2133]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V2133*/ meltfptr[2132]); + + /*touch:INITUP_*/ + meltgc_touch(/*_.VALTUP___V2134*/ meltfptr[2133]); + + MELT_LOCATION("warmelt-first.melt:1390:/ initchunk"); + /*^putslot*/ + /*putslot*/ + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2126*/ meltfptr[2125])) == OBMAG_OBJECT); - MELT_LOCATION("warmelt-first.melt:1391:/ initchunk"); + melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2126*/ meltfptr[2125])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2126*/ meltfptr[2125]))->obj_vartab[4] = (melt_ptr_t)( + /*_.VALTUP___V2134*/ meltfptr[2133]); + + MELT_LOCATION("warmelt-first.melt:1390:/ initchunk"); + /*^touch*/ + /*touch:VALUEDATA_*/ + meltgc_touch(/*_.VALDATA___V2126*/ meltfptr[2125]); + + /*putslot*/ + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2135*/ meltfptr[2134])) == OBMAG_OBJECT); + + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2135*/ meltfptr[2134])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2135*/ meltfptr[2134]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V2136*/ meltfptr[2135]); + + /*touch:VALUEDATA_*/ + meltgc_touch(/*_.VALDATA___V2135*/ meltfptr[2134]); + + MELT_LOCATION("warmelt-first.melt:1398:/ initchunk"); /*^cond*/ /*cond*/ if (MELTPREDEFIX(predefinited,DISCR_NAME_STRING)) /*then*/ { } else {/*^cond.else*/ /*com.block:fill predef slots*/{ - MELT_LOCATION("warmelt-first.melt:1391:/ touch"); + MELT_LOCATION("warmelt-first.melt:1398:/ touch"); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V2119*/ meltfptr[2118]); + meltgc_touch(/*_.VALDATA___V2137*/ meltfptr[2136]); ;}/*com.end block:fill predef slots*/ ; } /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2120*/ meltfptr[2119])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2138*/ meltfptr[2137])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2120*/ meltfptr[2119])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2120*/ meltfptr[2119]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V2121*/ meltfptr[2120]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2138*/ meltfptr[2137])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2138*/ meltfptr[2137]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V2139*/ meltfptr[2138]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V2120*/ meltfptr[2119]); + meltgc_touch(/*_.VALDATA___V2138*/ meltfptr[2137]); - MELT_LOCATION("warmelt-first.melt:1400:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:1407:/ initchunk"); /*^cond*/ /*cond*/ if (MELTPREDEFIX(predefinited,DISCR_STRING)) /*then*/ { } else {/*^cond.else*/ /*com.block:fill predef slots*/{ - MELT_LOCATION("warmelt-first.melt:1400:/ putslot"); + MELT_LOCATION("warmelt-first.melt:1407:/ putslot"); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2122*/ meltfptr[2121])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2140*/ meltfptr[2139])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2122*/ meltfptr[2121])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2122*/ meltfptr[2121]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V2123*/ meltfptr[2122]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2140*/ meltfptr[2139])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2140*/ meltfptr[2139]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V2141*/ meltfptr[2140]); ; /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V2122*/ meltfptr[2121]); + meltgc_touch(/*_.VALDATA___V2140*/ meltfptr[2139]); ;}/*com.end block:fill predef slots*/ ; } /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2125*/ meltfptr[2124])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2143*/ meltfptr[2142])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2125*/ meltfptr[2124])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2125*/ meltfptr[2124]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V2126*/ meltfptr[2125]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2143*/ meltfptr[2142])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2143*/ meltfptr[2142]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V2144*/ meltfptr[2143]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V2125*/ meltfptr[2124]); + meltgc_touch(/*_.VALDATA___V2143*/ meltfptr[2142]); - MELT_LOCATION("warmelt-first.melt:1411:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:1418:/ initchunk"); /*^cond*/ /*cond*/ if (MELTPREDEFIX(predefinited,DISCR_VERBATIM_STRING)) /*then*/ { } else {/*^cond.else*/ /*com.block:fill predef slots*/{ - MELT_LOCATION("warmelt-first.melt:1411:/ putslot"); + MELT_LOCATION("warmelt-first.melt:1418:/ putslot"); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2127*/ meltfptr[2126])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2145*/ meltfptr[2144])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2127*/ meltfptr[2126])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2127*/ meltfptr[2126]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V2128*/ meltfptr[2127]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2145*/ meltfptr[2144])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2145*/ meltfptr[2144]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V2146*/ meltfptr[2145]); ; /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2127*/ meltfptr[2126])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2145*/ meltfptr[2144])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2127*/ meltfptr[2126])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2127*/ meltfptr[2126]))->obj_vartab[4] = (melt_ptr_t)( - /*_.VALDATA___V2122*/ meltfptr[2121]); + melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2145*/ meltfptr[2144])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2145*/ meltfptr[2144]))->obj_vartab[4] = (melt_ptr_t)( + /*_.VALDATA___V2140*/ meltfptr[2139]); ; /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V2127*/ meltfptr[2126]); + meltgc_touch(/*_.VALDATA___V2145*/ meltfptr[2144]); ;}/*com.end block:fill predef slots*/ ; } /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2129*/ meltfptr[2128])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2147*/ meltfptr[2146])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2129*/ meltfptr[2128])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2129*/ meltfptr[2128]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V2130*/ meltfptr[2129]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2147*/ meltfptr[2146])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2147*/ meltfptr[2146]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V2148*/ meltfptr[2147]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V2129*/ meltfptr[2128]); + meltgc_touch(/*_.VALDATA___V2147*/ meltfptr[2146]); - MELT_LOCATION("warmelt-first.melt:1420:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:1427:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2131*/ meltfptr[2130])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2149*/ meltfptr[2148])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2131*/ meltfptr[2130])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2131*/ meltfptr[2130]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V2132*/ meltfptr[2131]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2149*/ meltfptr[2148])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2149*/ meltfptr[2148]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V2150*/ meltfptr[2149]); - MELT_LOCATION("warmelt-first.melt:1420:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:1427:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V2131*/ meltfptr[2130]); + meltgc_touch(/*_.VALDATA___V2149*/ meltfptr[2148]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2133*/ meltfptr[2132])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2151*/ meltfptr[2150])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2133*/ meltfptr[2132])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2133*/ meltfptr[2132]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V2134*/ meltfptr[2133]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2151*/ meltfptr[2150])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2151*/ meltfptr[2150]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V2152*/ meltfptr[2151]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V2133*/ meltfptr[2132]); + meltgc_touch(/*_.VALDATA___V2151*/ meltfptr[2150]); - MELT_LOCATION("warmelt-first.melt:1429:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:1436:/ initchunk"); /*^cond*/ /*cond*/ if (MELTPREDEFIX(predefinited,DISCR_NULL_RECEIVER)) /*then*/ { } else {/*^cond.else*/ /*com.block:fill predef slots*/{ - MELT_LOCATION("warmelt-first.melt:1429:/ putslot"); + MELT_LOCATION("warmelt-first.melt:1436:/ putslot"); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2135*/ meltfptr[2134])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2153*/ meltfptr[2152])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2135*/ meltfptr[2134])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2135*/ meltfptr[2134]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V2136*/ meltfptr[2135]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2153*/ meltfptr[2152])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2153*/ meltfptr[2152]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V2154*/ meltfptr[2153]); ; /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2135*/ meltfptr[2134])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2153*/ meltfptr[2152])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2135*/ meltfptr[2134])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2135*/ meltfptr[2134]))->obj_vartab[4] = (melt_ptr_t)( - /*_.VALDATA___V2131*/ meltfptr[2130]); + melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2153*/ meltfptr[2152])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2153*/ meltfptr[2152]))->obj_vartab[4] = (melt_ptr_t)( + /*_.VALDATA___V2149*/ meltfptr[2148]); ; /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V2135*/ meltfptr[2134]); + meltgc_touch(/*_.VALDATA___V2153*/ meltfptr[2152]); ;}/*com.end block:fill predef slots*/ ; } /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2137*/ meltfptr[2136])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2155*/ meltfptr[2154])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2137*/ meltfptr[2136])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2137*/ meltfptr[2136]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V2138*/ meltfptr[2137]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2155*/ meltfptr[2154])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2155*/ meltfptr[2154]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V2156*/ meltfptr[2155]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V2137*/ meltfptr[2136]); + meltgc_touch(/*_.VALDATA___V2155*/ meltfptr[2154]); - MELT_LOCATION("warmelt-first.melt:1436:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:1443:/ initchunk"); /*^cond*/ /*cond*/ if (MELTPREDEFIX(predefinited,DISCR_STRBUF)) /*then*/ { } else {/*^cond.else*/ /*com.block:fill predef slots*/{ - MELT_LOCATION("warmelt-first.melt:1436:/ putslot"); + MELT_LOCATION("warmelt-first.melt:1443:/ putslot"); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2139*/ meltfptr[2138])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2157*/ meltfptr[2156])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2139*/ meltfptr[2138])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2139*/ meltfptr[2138]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V2140*/ meltfptr[2139]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2157*/ meltfptr[2156])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2157*/ meltfptr[2156]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V2158*/ meltfptr[2157]); ; /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2139*/ meltfptr[2138])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2157*/ meltfptr[2156])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2139*/ meltfptr[2138])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2139*/ meltfptr[2138]))->obj_vartab[4] = (melt_ptr_t)( - /*_.VALDATA___V2131*/ meltfptr[2130]); + melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2157*/ meltfptr[2156])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2157*/ meltfptr[2156]))->obj_vartab[4] = (melt_ptr_t)( + /*_.VALDATA___V2149*/ meltfptr[2148]); ; /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V2139*/ meltfptr[2138]); + meltgc_touch(/*_.VALDATA___V2157*/ meltfptr[2156]); ;}/*com.end block:fill predef slots*/ ; } /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2141*/ meltfptr[2140])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2159*/ meltfptr[2158])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2141*/ meltfptr[2140])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2141*/ meltfptr[2140]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V2142*/ meltfptr[2141]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2159*/ meltfptr[2158])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2159*/ meltfptr[2158]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V2160*/ meltfptr[2159]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V2141*/ meltfptr[2140]); + meltgc_touch(/*_.VALDATA___V2159*/ meltfptr[2158]); - MELT_LOCATION("warmelt-first.melt:1444:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:1451:/ initchunk"); /*^cond*/ /*cond*/ if (MELTPREDEFIX(predefinited,DISCR_INTEGER)) /*then*/ { } else {/*^cond.else*/ /*com.block:fill predef slots*/{ - MELT_LOCATION("warmelt-first.melt:1444:/ putslot"); + MELT_LOCATION("warmelt-first.melt:1451:/ putslot"); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2143*/ meltfptr[2142])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2161*/ meltfptr[2160])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2143*/ meltfptr[2142])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2143*/ meltfptr[2142]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V2144*/ meltfptr[2143]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2161*/ meltfptr[2160])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2161*/ meltfptr[2160]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V2162*/ meltfptr[2161]); ; /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2143*/ meltfptr[2142])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2161*/ meltfptr[2160])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2143*/ meltfptr[2142])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2143*/ meltfptr[2142]))->obj_vartab[4] = (melt_ptr_t)( - /*_.VALDATA___V2131*/ meltfptr[2130]); + melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2161*/ meltfptr[2160])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2161*/ meltfptr[2160]))->obj_vartab[4] = (melt_ptr_t)( + /*_.VALDATA___V2149*/ meltfptr[2148]); ; /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V2143*/ meltfptr[2142]); + meltgc_touch(/*_.VALDATA___V2161*/ meltfptr[2160]); ;}/*com.end block:fill predef slots*/ ; } /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2145*/ meltfptr[2144])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2163*/ meltfptr[2162])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2145*/ meltfptr[2144])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2145*/ meltfptr[2144]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V2146*/ meltfptr[2145]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2163*/ meltfptr[2162])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2163*/ meltfptr[2162]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V2164*/ meltfptr[2163]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V2145*/ meltfptr[2144]); + meltgc_touch(/*_.VALDATA___V2163*/ meltfptr[2162]); - MELT_LOCATION("warmelt-first.melt:1452:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:1459:/ initchunk"); /*^cond*/ /*cond*/ if (MELTPREDEFIX(predefinited,DISCR_CONSTANT_INTEGER)) /*then*/ { } else {/*^cond.else*/ /*com.block:fill predef slots*/{ - MELT_LOCATION("warmelt-first.melt:1452:/ putslot"); + MELT_LOCATION("warmelt-first.melt:1459:/ putslot"); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2147*/ meltfptr[2146])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2165*/ meltfptr[2164])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2147*/ meltfptr[2146])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2147*/ meltfptr[2146]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V2148*/ meltfptr[2147]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2165*/ meltfptr[2164])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2165*/ meltfptr[2164]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V2166*/ meltfptr[2165]); ; /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2147*/ meltfptr[2146])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2165*/ meltfptr[2164])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2147*/ meltfptr[2146])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2147*/ meltfptr[2146]))->obj_vartab[4] = (melt_ptr_t)( - /*_.VALDATA___V2143*/ meltfptr[2142]); + melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2165*/ meltfptr[2164])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2165*/ meltfptr[2164]))->obj_vartab[4] = (melt_ptr_t)( + /*_.VALDATA___V2161*/ meltfptr[2160]); ; /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V2147*/ meltfptr[2146]); + meltgc_touch(/*_.VALDATA___V2165*/ meltfptr[2164]); ;}/*com.end block:fill predef slots*/ ; } /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2149*/ meltfptr[2148])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2167*/ meltfptr[2166])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2149*/ meltfptr[2148])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2149*/ meltfptr[2148]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V2150*/ meltfptr[2149]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2167*/ meltfptr[2166])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2167*/ meltfptr[2166]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V2168*/ meltfptr[2167]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V2149*/ meltfptr[2148]); + meltgc_touch(/*_.VALDATA___V2167*/ meltfptr[2166]); - MELT_LOCATION("warmelt-first.melt:1463:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:1470:/ initchunk"); /*^cond*/ /*cond*/ if (MELTPREDEFIX(predefinited,DISCR_LIST)) /*then*/ { } else {/*^cond.else*/ /*com.block:fill predef slots*/{ - MELT_LOCATION("warmelt-first.melt:1463:/ putslot"); + MELT_LOCATION("warmelt-first.melt:1470:/ putslot"); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2151*/ meltfptr[2150])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2169*/ meltfptr[2168])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2151*/ meltfptr[2150])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2151*/ meltfptr[2150]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V2152*/ meltfptr[2151]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2169*/ meltfptr[2168])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2169*/ meltfptr[2168]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V2170*/ meltfptr[2169]); ; /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2151*/ meltfptr[2150])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2169*/ meltfptr[2168])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2151*/ meltfptr[2150])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2151*/ meltfptr[2150]))->obj_vartab[4] = (melt_ptr_t)( - /*_.VALDATA___V2131*/ meltfptr[2130]); + melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2169*/ meltfptr[2168])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2169*/ meltfptr[2168]))->obj_vartab[4] = (melt_ptr_t)( + /*_.VALDATA___V2149*/ meltfptr[2148]); ; /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V2151*/ meltfptr[2150]); + meltgc_touch(/*_.VALDATA___V2169*/ meltfptr[2168]); ;}/*com.end block:fill predef slots*/ ; } /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2153*/ meltfptr[2152])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2171*/ meltfptr[2170])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2153*/ meltfptr[2152])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2153*/ meltfptr[2152]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V2154*/ meltfptr[2153]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2171*/ meltfptr[2170])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2171*/ meltfptr[2170]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V2172*/ meltfptr[2171]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V2153*/ meltfptr[2152]); + meltgc_touch(/*_.VALDATA___V2171*/ meltfptr[2170]); - MELT_LOCATION("warmelt-first.melt:1471:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:1478:/ initchunk"); /*^cond*/ /*cond*/ if (MELTPREDEFIX(predefinited,DISCR_PAIR)) /*then*/ { } else {/*^cond.else*/ /*com.block:fill predef slots*/{ - MELT_LOCATION("warmelt-first.melt:1471:/ putslot"); + MELT_LOCATION("warmelt-first.melt:1478:/ putslot"); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2155*/ meltfptr[2154])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2173*/ meltfptr[2172])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2155*/ meltfptr[2154])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2155*/ meltfptr[2154]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V2156*/ meltfptr[2155]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2173*/ meltfptr[2172])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2173*/ meltfptr[2172]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V2174*/ meltfptr[2173]); ; /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2155*/ meltfptr[2154])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2173*/ meltfptr[2172])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2155*/ meltfptr[2154])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2155*/ meltfptr[2154]))->obj_vartab[4] = (melt_ptr_t)( - /*_.VALDATA___V2131*/ meltfptr[2130]); + melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2173*/ meltfptr[2172])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2173*/ meltfptr[2172]))->obj_vartab[4] = (melt_ptr_t)( + /*_.VALDATA___V2149*/ meltfptr[2148]); ; /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V2155*/ meltfptr[2154]); + meltgc_touch(/*_.VALDATA___V2173*/ meltfptr[2172]); ;}/*com.end block:fill predef slots*/ ; } /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2157*/ meltfptr[2156])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2175*/ meltfptr[2174])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2157*/ meltfptr[2156])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2157*/ meltfptr[2156]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V2158*/ meltfptr[2157]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2175*/ meltfptr[2174])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2175*/ meltfptr[2174]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V2176*/ meltfptr[2175]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V2157*/ meltfptr[2156]); + meltgc_touch(/*_.VALDATA___V2175*/ meltfptr[2174]); - MELT_LOCATION("warmelt-first.melt:1479:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:1486:/ initchunk"); /*^cond*/ /*cond*/ if (MELTPREDEFIX(predefinited,DISCR_MULTIPLE)) /*then*/ { } else {/*^cond.else*/ /*com.block:fill predef slots*/{ - MELT_LOCATION("warmelt-first.melt:1479:/ putslot"); + MELT_LOCATION("warmelt-first.melt:1486:/ putslot"); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2159*/ meltfptr[2158])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2177*/ meltfptr[2176])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2159*/ meltfptr[2158])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2159*/ meltfptr[2158]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V2160*/ meltfptr[2159]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2177*/ meltfptr[2176])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2177*/ meltfptr[2176]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V2178*/ meltfptr[2177]); ; /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2159*/ meltfptr[2158])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2177*/ meltfptr[2176])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2159*/ meltfptr[2158])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2159*/ meltfptr[2158]))->obj_vartab[4] = (melt_ptr_t)( - /*_.VALDATA___V2131*/ meltfptr[2130]); + melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2177*/ meltfptr[2176])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2177*/ meltfptr[2176]))->obj_vartab[4] = (melt_ptr_t)( + /*_.VALDATA___V2149*/ meltfptr[2148]); ; /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V2159*/ meltfptr[2158]); + meltgc_touch(/*_.VALDATA___V2177*/ meltfptr[2176]); ;}/*com.end block:fill predef slots*/ ; } /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2161*/ meltfptr[2160])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2179*/ meltfptr[2178])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2161*/ meltfptr[2160])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2161*/ meltfptr[2160]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V2162*/ meltfptr[2161]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2179*/ meltfptr[2178])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2179*/ meltfptr[2178]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V2180*/ meltfptr[2179]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V2161*/ meltfptr[2160]); + meltgc_touch(/*_.VALDATA___V2179*/ meltfptr[2178]); - MELT_LOCATION("warmelt-first.melt:1488:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:1495:/ initchunk"); /*^cond*/ /*cond*/ if (MELTPREDEFIX(predefinited,DISCR_FIELD_SEQUENCE)) /*then*/ { } else {/*^cond.else*/ /*com.block:fill predef slots*/{ - MELT_LOCATION("warmelt-first.melt:1488:/ putslot"); + MELT_LOCATION("warmelt-first.melt:1495:/ putslot"); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2163*/ meltfptr[2162])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2181*/ meltfptr[2180])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2163*/ meltfptr[2162])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2163*/ meltfptr[2162]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V2164*/ meltfptr[2163]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2181*/ meltfptr[2180])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2181*/ meltfptr[2180]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V2182*/ meltfptr[2181]); ; /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2163*/ meltfptr[2162])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2181*/ meltfptr[2180])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2163*/ meltfptr[2162])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2163*/ meltfptr[2162]))->obj_vartab[4] = (melt_ptr_t)( - /*_.VALDATA___V2159*/ meltfptr[2158]); + melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2181*/ meltfptr[2180])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2181*/ meltfptr[2180]))->obj_vartab[4] = (melt_ptr_t)( + /*_.VALDATA___V2177*/ meltfptr[2176]); ; /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V2163*/ meltfptr[2162]); + meltgc_touch(/*_.VALDATA___V2181*/ meltfptr[2180]); ;}/*com.end block:fill predef slots*/ ; } /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2165*/ meltfptr[2164])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2183*/ meltfptr[2182])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2165*/ meltfptr[2164])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2165*/ meltfptr[2164]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V2166*/ meltfptr[2165]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2183*/ meltfptr[2182])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2183*/ meltfptr[2182]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V2184*/ meltfptr[2183]); - /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V2165*/ meltfptr[2164]); - MELT_LOCATION("warmelt-first.melt:1499:/ initchunk"); +#undef meltfram__ +} /*end of warmelt_first_initialmeltchunk_14*/ + +void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_15 (struct frame_start_module_melt_st* meltframptr__, char predefinited[]) { +#define meltfram__ (*meltframptr__) +#undef meltcallcount +#define meltcallcount 0L +/*touch:VALUEDATA_*/ + meltgc_touch(/*_.VALDATA___V2183*/ meltfptr[2182]); + + MELT_LOCATION("warmelt-first.melt:1506:/ initchunk"); /*^cond*/ /*cond*/ if (MELTPREDEFIX(predefinited,DISCR_BOX)) /*then*/ { } else {/*^cond.else*/ /*com.block:fill predef slots*/{ - MELT_LOCATION("warmelt-first.melt:1499:/ putslot"); + MELT_LOCATION("warmelt-first.melt:1506:/ putslot"); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2167*/ meltfptr[2166])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2185*/ meltfptr[2184])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2167*/ meltfptr[2166])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2167*/ meltfptr[2166]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V2168*/ meltfptr[2167]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2185*/ meltfptr[2184])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2185*/ meltfptr[2184]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V2186*/ meltfptr[2185]); ; /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2167*/ meltfptr[2166])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2185*/ meltfptr[2184])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2167*/ meltfptr[2166])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2167*/ meltfptr[2166]))->obj_vartab[4] = (melt_ptr_t)( - /*_.VALDATA___V2131*/ meltfptr[2130]); + melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2185*/ meltfptr[2184])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2185*/ meltfptr[2184]))->obj_vartab[4] = (melt_ptr_t)( + /*_.VALDATA___V2149*/ meltfptr[2148]); ; /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V2167*/ meltfptr[2166]); + meltgc_touch(/*_.VALDATA___V2185*/ meltfptr[2184]); ;}/*com.end block:fill predef slots*/ ; } /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2169*/ meltfptr[2168])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2187*/ meltfptr[2186])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2169*/ meltfptr[2168])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2169*/ meltfptr[2168]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V2170*/ meltfptr[2169]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2187*/ meltfptr[2186])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2187*/ meltfptr[2186]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V2188*/ meltfptr[2187]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V2169*/ meltfptr[2168]); + meltgc_touch(/*_.VALDATA___V2187*/ meltfptr[2186]); - MELT_LOCATION("warmelt-first.melt:1508:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:1515:/ initchunk"); /*^cond*/ /*cond*/ if (MELTPREDEFIX(predefinited,DISCR_TREE)) /*then*/ { } else {/*^cond.else*/ /*com.block:fill predef slots*/{ - MELT_LOCATION("warmelt-first.melt:1508:/ putslot"); + MELT_LOCATION("warmelt-first.melt:1515:/ putslot"); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2171*/ meltfptr[2170])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2189*/ meltfptr[2188])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2171*/ meltfptr[2170])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2171*/ meltfptr[2170]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V2172*/ meltfptr[2171]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2189*/ meltfptr[2188])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2189*/ meltfptr[2188]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V2190*/ meltfptr[2189]); ; /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2171*/ meltfptr[2170])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2189*/ meltfptr[2188])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2171*/ meltfptr[2170])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2171*/ meltfptr[2170]))->obj_vartab[4] = (melt_ptr_t)( - /*_.VALDATA___V2131*/ meltfptr[2130]); + melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2189*/ meltfptr[2188])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2189*/ meltfptr[2188]))->obj_vartab[4] = (melt_ptr_t)( + /*_.VALDATA___V2149*/ meltfptr[2148]); ; /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V2171*/ meltfptr[2170]); + meltgc_touch(/*_.VALDATA___V2189*/ meltfptr[2188]); ;}/*com.end block:fill predef slots*/ ; } /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2173*/ meltfptr[2172])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2191*/ meltfptr[2190])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2173*/ meltfptr[2172])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2173*/ meltfptr[2172]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V2174*/ meltfptr[2173]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2191*/ meltfptr[2190])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2191*/ meltfptr[2190]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V2192*/ meltfptr[2191]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V2173*/ meltfptr[2172]); + meltgc_touch(/*_.VALDATA___V2191*/ meltfptr[2190]); - MELT_LOCATION("warmelt-first.melt:1516:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:1523:/ initchunk"); /*^cond*/ /*cond*/ if (MELTPREDEFIX(predefinited,DISCR_GIMPLE)) /*then*/ { } else {/*^cond.else*/ /*com.block:fill predef slots*/{ - MELT_LOCATION("warmelt-first.melt:1516:/ putslot"); + MELT_LOCATION("warmelt-first.melt:1523:/ putslot"); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2175*/ meltfptr[2174])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2193*/ meltfptr[2192])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2175*/ meltfptr[2174])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2175*/ meltfptr[2174]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V2176*/ meltfptr[2175]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2193*/ meltfptr[2192])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2193*/ meltfptr[2192]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V2194*/ meltfptr[2193]); ; /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2175*/ meltfptr[2174])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2193*/ meltfptr[2192])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2175*/ meltfptr[2174])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2175*/ meltfptr[2174]))->obj_vartab[4] = (melt_ptr_t)( - /*_.VALDATA___V2131*/ meltfptr[2130]); + melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2193*/ meltfptr[2192])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2193*/ meltfptr[2192]))->obj_vartab[4] = (melt_ptr_t)( + /*_.VALDATA___V2149*/ meltfptr[2148]); ; /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V2175*/ meltfptr[2174]); + meltgc_touch(/*_.VALDATA___V2193*/ meltfptr[2192]); ;}/*com.end block:fill predef slots*/ ; } /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2177*/ meltfptr[2176])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2195*/ meltfptr[2194])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2177*/ meltfptr[2176])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2177*/ meltfptr[2176]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V2178*/ meltfptr[2177]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2195*/ meltfptr[2194])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2195*/ meltfptr[2194]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V2196*/ meltfptr[2195]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V2177*/ meltfptr[2176]); + meltgc_touch(/*_.VALDATA___V2195*/ meltfptr[2194]); - MELT_LOCATION("warmelt-first.melt:1524:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:1531:/ initchunk"); /*^cond*/ /*cond*/ if (MELTPREDEFIX(predefinited,DISCR_GIMPLE_SEQ)) /*then*/ { } else {/*^cond.else*/ /*com.block:fill predef slots*/{ - MELT_LOCATION("warmelt-first.melt:1524:/ putslot"); + MELT_LOCATION("warmelt-first.melt:1531:/ putslot"); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2179*/ meltfptr[2178])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2197*/ meltfptr[2196])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2179*/ meltfptr[2178])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2179*/ meltfptr[2178]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V2180*/ meltfptr[2179]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2197*/ meltfptr[2196])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2197*/ meltfptr[2196]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V2198*/ meltfptr[2197]); ; /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2179*/ meltfptr[2178])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2197*/ meltfptr[2196])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2179*/ meltfptr[2178])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2179*/ meltfptr[2178]))->obj_vartab[4] = (melt_ptr_t)( - /*_.VALDATA___V2131*/ meltfptr[2130]); + melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2197*/ meltfptr[2196])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2197*/ meltfptr[2196]))->obj_vartab[4] = (melt_ptr_t)( + /*_.VALDATA___V2149*/ meltfptr[2148]); ; /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V2179*/ meltfptr[2178]); + meltgc_touch(/*_.VALDATA___V2197*/ meltfptr[2196]); ;}/*com.end block:fill predef slots*/ ; } /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2181*/ meltfptr[2180])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2199*/ meltfptr[2198])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2181*/ meltfptr[2180])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2181*/ meltfptr[2180]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V2182*/ meltfptr[2181]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2199*/ meltfptr[2198])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2199*/ meltfptr[2198]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V2200*/ meltfptr[2199]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V2181*/ meltfptr[2180]); + meltgc_touch(/*_.VALDATA___V2199*/ meltfptr[2198]); - MELT_LOCATION("warmelt-first.melt:1532:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:1539:/ initchunk"); /*^cond*/ /*cond*/ if (MELTPREDEFIX(predefinited,DISCR_EDGE)) /*then*/ { } else {/*^cond.else*/ /*com.block:fill predef slots*/{ - MELT_LOCATION("warmelt-first.melt:1532:/ putslot"); + MELT_LOCATION("warmelt-first.melt:1539:/ putslot"); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2183*/ meltfptr[2182])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2201*/ meltfptr[2200])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2183*/ meltfptr[2182])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2183*/ meltfptr[2182]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V2184*/ meltfptr[2183]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2201*/ meltfptr[2200])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2201*/ meltfptr[2200]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V2202*/ meltfptr[2201]); ; /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2183*/ meltfptr[2182])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2201*/ meltfptr[2200])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2183*/ meltfptr[2182])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2183*/ meltfptr[2182]))->obj_vartab[4] = (melt_ptr_t)( - /*_.VALDATA___V2131*/ meltfptr[2130]); + melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2201*/ meltfptr[2200])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2201*/ meltfptr[2200]))->obj_vartab[4] = (melt_ptr_t)( + /*_.VALDATA___V2149*/ meltfptr[2148]); ; /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V2183*/ meltfptr[2182]); + meltgc_touch(/*_.VALDATA___V2201*/ meltfptr[2200]); ;}/*com.end block:fill predef slots*/ ; } /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2185*/ meltfptr[2184])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2203*/ meltfptr[2202])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2185*/ meltfptr[2184])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2185*/ meltfptr[2184]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V2186*/ meltfptr[2185]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2203*/ meltfptr[2202])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2203*/ meltfptr[2202]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V2204*/ meltfptr[2203]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V2185*/ meltfptr[2184]); + meltgc_touch(/*_.VALDATA___V2203*/ meltfptr[2202]); - MELT_LOCATION("warmelt-first.melt:1539:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:1546:/ initchunk"); /*^cond*/ /*cond*/ if (MELTPREDEFIX(predefinited,DISCR_BASIC_BLOCK)) /*then*/ { } else {/*^cond.else*/ /*com.block:fill predef slots*/{ - MELT_LOCATION("warmelt-first.melt:1539:/ putslot"); + MELT_LOCATION("warmelt-first.melt:1546:/ putslot"); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2187*/ meltfptr[2186])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2205*/ meltfptr[2204])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2187*/ meltfptr[2186])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2187*/ meltfptr[2186]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V2188*/ meltfptr[2187]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2205*/ meltfptr[2204])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2205*/ meltfptr[2204]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V2206*/ meltfptr[2205]); ; /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2187*/ meltfptr[2186])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2205*/ meltfptr[2204])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2187*/ meltfptr[2186])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2187*/ meltfptr[2186]))->obj_vartab[4] = (melt_ptr_t)( - /*_.VALDATA___V2131*/ meltfptr[2130]); + melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2205*/ meltfptr[2204])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2205*/ meltfptr[2204]))->obj_vartab[4] = (melt_ptr_t)( + /*_.VALDATA___V2149*/ meltfptr[2148]); ; /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V2187*/ meltfptr[2186]); + meltgc_touch(/*_.VALDATA___V2205*/ meltfptr[2204]); ;}/*com.end block:fill predef slots*/ ; } /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2189*/ meltfptr[2188])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2207*/ meltfptr[2206])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2189*/ meltfptr[2188])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2189*/ meltfptr[2188]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V2190*/ meltfptr[2189]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2207*/ meltfptr[2206])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2207*/ meltfptr[2206]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V2208*/ meltfptr[2207]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V2189*/ meltfptr[2188]); + meltgc_touch(/*_.VALDATA___V2207*/ meltfptr[2206]); - MELT_LOCATION("warmelt-first.melt:1548:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:1555:/ initchunk"); /*^cond*/ /*cond*/ if (MELTPREDEFIX(predefinited,DISCR_MAP_OBJECTS)) /*then*/ { } else {/*^cond.else*/ /*com.block:fill predef slots*/{ - MELT_LOCATION("warmelt-first.melt:1548:/ putslot"); + MELT_LOCATION("warmelt-first.melt:1555:/ putslot"); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2191*/ meltfptr[2190])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2209*/ meltfptr[2208])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2191*/ meltfptr[2190])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2191*/ meltfptr[2190]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V2192*/ meltfptr[2191]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2209*/ meltfptr[2208])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2209*/ meltfptr[2208]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V2210*/ meltfptr[2209]); ; /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2191*/ meltfptr[2190])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2209*/ meltfptr[2208])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2191*/ meltfptr[2190])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2191*/ meltfptr[2190]))->obj_vartab[4] = (melt_ptr_t)( - /*_.VALDATA___V2131*/ meltfptr[2130]); + melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2209*/ meltfptr[2208])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2209*/ meltfptr[2208]))->obj_vartab[4] = (melt_ptr_t)( + /*_.VALDATA___V2149*/ meltfptr[2148]); ; /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V2191*/ meltfptr[2190]); + meltgc_touch(/*_.VALDATA___V2209*/ meltfptr[2208]); ;}/*com.end block:fill predef slots*/ ; } /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2193*/ meltfptr[2192])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2211*/ meltfptr[2210])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2193*/ meltfptr[2192])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2193*/ meltfptr[2192]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V2194*/ meltfptr[2193]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2211*/ meltfptr[2210])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2211*/ meltfptr[2210]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V2212*/ meltfptr[2211]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V2193*/ meltfptr[2192]); + meltgc_touch(/*_.VALDATA___V2211*/ meltfptr[2210]); - MELT_LOCATION("warmelt-first.melt:1557:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:1564:/ initchunk"); /*^cond*/ /*cond*/ if (MELTPREDEFIX(predefinited,DISCR_MAP_STRINGS)) /*then*/ { } else {/*^cond.else*/ /*com.block:fill predef slots*/{ - MELT_LOCATION("warmelt-first.melt:1557:/ putslot"); + MELT_LOCATION("warmelt-first.melt:1564:/ putslot"); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2195*/ meltfptr[2194])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2213*/ meltfptr[2212])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2195*/ meltfptr[2194])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2195*/ meltfptr[2194]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V2196*/ meltfptr[2195]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2213*/ meltfptr[2212])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2213*/ meltfptr[2212]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V2214*/ meltfptr[2213]); ; /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2195*/ meltfptr[2194])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2213*/ meltfptr[2212])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2195*/ meltfptr[2194])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2195*/ meltfptr[2194]))->obj_vartab[4] = (melt_ptr_t)( - /*_.VALDATA___V2131*/ meltfptr[2130]); + melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2213*/ meltfptr[2212])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2213*/ meltfptr[2212]))->obj_vartab[4] = (melt_ptr_t)( + /*_.VALDATA___V2149*/ meltfptr[2148]); ; /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V2195*/ meltfptr[2194]); + meltgc_touch(/*_.VALDATA___V2213*/ meltfptr[2212]); ;}/*com.end block:fill predef slots*/ ; } /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2197*/ meltfptr[2196])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2215*/ meltfptr[2214])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2197*/ meltfptr[2196])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2197*/ meltfptr[2196]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V2198*/ meltfptr[2197]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2215*/ meltfptr[2214])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2215*/ meltfptr[2214]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V2216*/ meltfptr[2215]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V2197*/ meltfptr[2196]); + meltgc_touch(/*_.VALDATA___V2215*/ meltfptr[2214]); - MELT_LOCATION("warmelt-first.melt:1566:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:1573:/ initchunk"); /*^cond*/ /*cond*/ if (MELTPREDEFIX(predefinited,DISCR_MAP_TREES)) /*then*/ { } else {/*^cond.else*/ /*com.block:fill predef slots*/{ - MELT_LOCATION("warmelt-first.melt:1566:/ putslot"); + MELT_LOCATION("warmelt-first.melt:1573:/ putslot"); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2199*/ meltfptr[2198])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2217*/ meltfptr[2216])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2199*/ meltfptr[2198])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2199*/ meltfptr[2198]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V2200*/ meltfptr[2199]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2217*/ meltfptr[2216])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2217*/ meltfptr[2216]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V2218*/ meltfptr[2217]); ; /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2199*/ meltfptr[2198])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2217*/ meltfptr[2216])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2199*/ meltfptr[2198])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2199*/ meltfptr[2198]))->obj_vartab[4] = (melt_ptr_t)( - /*_.VALDATA___V2131*/ meltfptr[2130]); + melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2217*/ meltfptr[2216])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2217*/ meltfptr[2216]))->obj_vartab[4] = (melt_ptr_t)( + /*_.VALDATA___V2149*/ meltfptr[2148]); ; /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V2199*/ meltfptr[2198]); + meltgc_touch(/*_.VALDATA___V2217*/ meltfptr[2216]); ;}/*com.end block:fill predef slots*/ ; } /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2201*/ meltfptr[2200])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2219*/ meltfptr[2218])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2201*/ meltfptr[2200])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2201*/ meltfptr[2200]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V2202*/ meltfptr[2201]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2219*/ meltfptr[2218])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2219*/ meltfptr[2218]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V2220*/ meltfptr[2219]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V2201*/ meltfptr[2200]); + meltgc_touch(/*_.VALDATA___V2219*/ meltfptr[2218]); - MELT_LOCATION("warmelt-first.melt:1575:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:1582:/ initchunk"); /*^cond*/ /*cond*/ if (MELTPREDEFIX(predefinited,DISCR_MAP_GIMPLES)) /*then*/ { } else {/*^cond.else*/ /*com.block:fill predef slots*/{ - MELT_LOCATION("warmelt-first.melt:1575:/ putslot"); + MELT_LOCATION("warmelt-first.melt:1582:/ putslot"); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2203*/ meltfptr[2202])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2221*/ meltfptr[2220])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2203*/ meltfptr[2202])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2203*/ meltfptr[2202]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V2204*/ meltfptr[2203]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2221*/ meltfptr[2220])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2221*/ meltfptr[2220]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V2222*/ meltfptr[2221]); ; /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2203*/ meltfptr[2202])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2221*/ meltfptr[2220])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2203*/ meltfptr[2202])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2203*/ meltfptr[2202]))->obj_vartab[4] = (melt_ptr_t)( - /*_.VALDATA___V2131*/ meltfptr[2130]); + melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2221*/ meltfptr[2220])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2221*/ meltfptr[2220]))->obj_vartab[4] = (melt_ptr_t)( + /*_.VALDATA___V2149*/ meltfptr[2148]); ; /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V2203*/ meltfptr[2202]); + meltgc_touch(/*_.VALDATA___V2221*/ meltfptr[2220]); ;}/*com.end block:fill predef slots*/ ; } /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2205*/ meltfptr[2204])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2223*/ meltfptr[2222])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2205*/ meltfptr[2204])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2205*/ meltfptr[2204]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V2206*/ meltfptr[2205]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2223*/ meltfptr[2222])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2223*/ meltfptr[2222]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V2224*/ meltfptr[2223]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V2205*/ meltfptr[2204]); + meltgc_touch(/*_.VALDATA___V2223*/ meltfptr[2222]); - MELT_LOCATION("warmelt-first.melt:1584:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:1591:/ initchunk"); /*^cond*/ /*cond*/ if (MELTPREDEFIX(predefinited,DISCR_MAP_GIMPLE_SEQS)) /*then*/ { } else {/*^cond.else*/ /*com.block:fill predef slots*/{ - MELT_LOCATION("warmelt-first.melt:1584:/ putslot"); + MELT_LOCATION("warmelt-first.melt:1591:/ putslot"); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2207*/ meltfptr[2206])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2225*/ meltfptr[2224])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2207*/ meltfptr[2206])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2207*/ meltfptr[2206]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V2208*/ meltfptr[2207]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2225*/ meltfptr[2224])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2225*/ meltfptr[2224]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V2226*/ meltfptr[2225]); ; /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2207*/ meltfptr[2206])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2225*/ meltfptr[2224])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2207*/ meltfptr[2206])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2207*/ meltfptr[2206]))->obj_vartab[4] = (melt_ptr_t)( - /*_.VALDATA___V2131*/ meltfptr[2130]); + melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2225*/ meltfptr[2224])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2225*/ meltfptr[2224]))->obj_vartab[4] = (melt_ptr_t)( + /*_.VALDATA___V2149*/ meltfptr[2148]); ; /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V2207*/ meltfptr[2206]); + meltgc_touch(/*_.VALDATA___V2225*/ meltfptr[2224]); ;}/*com.end block:fill predef slots*/ ; } + /*putslot*/ + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2227*/ meltfptr[2226])) == OBMAG_OBJECT); -#undef meltfram__ -} /*end of warmelt_first_initialmeltchunk_14*/ - -void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_15 (struct frame_start_module_melt_st* meltframptr__, char predefinited[]) { -#define meltfram__ (*meltframptr__) -#undef meltcallcount -#define meltcallcount 0L -/*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2209*/ meltfptr[2208])) == OBMAG_OBJECT); - - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2209*/ meltfptr[2208])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2209*/ meltfptr[2208]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V2210*/ meltfptr[2209]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2227*/ meltfptr[2226])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2227*/ meltfptr[2226]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V2228*/ meltfptr[2227]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V2209*/ meltfptr[2208]); + meltgc_touch(/*_.VALDATA___V2227*/ meltfptr[2226]); - MELT_LOCATION("warmelt-first.melt:1593:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:1600:/ initchunk"); /*^cond*/ /*cond*/ if (MELTPREDEFIX(predefinited,DISCR_MAP_EDGES)) /*then*/ { } else {/*^cond.else*/ /*com.block:fill predef slots*/{ - MELT_LOCATION("warmelt-first.melt:1593:/ putslot"); + MELT_LOCATION("warmelt-first.melt:1600:/ putslot"); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2211*/ meltfptr[2210])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2229*/ meltfptr[2228])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2211*/ meltfptr[2210])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2211*/ meltfptr[2210]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V2212*/ meltfptr[2211]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2229*/ meltfptr[2228])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2229*/ meltfptr[2228]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V2230*/ meltfptr[2229]); ; /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2211*/ meltfptr[2210])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2229*/ meltfptr[2228])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2211*/ meltfptr[2210])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2211*/ meltfptr[2210]))->obj_vartab[4] = (melt_ptr_t)( - /*_.VALDATA___V2131*/ meltfptr[2130]); + melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2229*/ meltfptr[2228])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2229*/ meltfptr[2228]))->obj_vartab[4] = (melt_ptr_t)( + /*_.VALDATA___V2149*/ meltfptr[2148]); ; /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V2211*/ meltfptr[2210]); + meltgc_touch(/*_.VALDATA___V2229*/ meltfptr[2228]); ;}/*com.end block:fill predef slots*/ ; } /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2213*/ meltfptr[2212])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2231*/ meltfptr[2230])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2213*/ meltfptr[2212])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2213*/ meltfptr[2212]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V2214*/ meltfptr[2213]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2231*/ meltfptr[2230])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2231*/ meltfptr[2230]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V2232*/ meltfptr[2231]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V2213*/ meltfptr[2212]); + meltgc_touch(/*_.VALDATA___V2231*/ meltfptr[2230]); - MELT_LOCATION("warmelt-first.melt:1602:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:1609:/ initchunk"); /*^cond*/ /*cond*/ if (MELTPREDEFIX(predefinited,DISCR_MAP_BASIC_BLOCKS)) /*then*/ { } else {/*^cond.else*/ /*com.block:fill predef slots*/{ - MELT_LOCATION("warmelt-first.melt:1602:/ putslot"); + MELT_LOCATION("warmelt-first.melt:1609:/ putslot"); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2215*/ meltfptr[2214])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2233*/ meltfptr[2232])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2215*/ meltfptr[2214])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2215*/ meltfptr[2214]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V2216*/ meltfptr[2215]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2233*/ meltfptr[2232])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2233*/ meltfptr[2232]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V2234*/ meltfptr[2233]); ; /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2215*/ meltfptr[2214])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2233*/ meltfptr[2232])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2215*/ meltfptr[2214])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2215*/ meltfptr[2214]))->obj_vartab[4] = (melt_ptr_t)( - /*_.VALDATA___V2131*/ meltfptr[2130]); + melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2233*/ meltfptr[2232])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2233*/ meltfptr[2232]))->obj_vartab[4] = (melt_ptr_t)( + /*_.VALDATA___V2149*/ meltfptr[2148]); ; /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V2215*/ meltfptr[2214]); + meltgc_touch(/*_.VALDATA___V2233*/ meltfptr[2232]); ;}/*com.end block:fill predef slots*/ ; } /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2217*/ meltfptr[2216])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2235*/ meltfptr[2234])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2217*/ meltfptr[2216])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2217*/ meltfptr[2216]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V2218*/ meltfptr[2217]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2235*/ meltfptr[2234])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2235*/ meltfptr[2234]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V2236*/ meltfptr[2235]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V2217*/ meltfptr[2216]); + meltgc_touch(/*_.VALDATA___V2235*/ meltfptr[2234]); - MELT_LOCATION("warmelt-first.melt:1612:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:1619:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2219*/ meltfptr[2218])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2237*/ meltfptr[2236])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2219*/ meltfptr[2218])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2219*/ meltfptr[2218]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V2220*/ meltfptr[2219]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2237*/ meltfptr[2236])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2237*/ meltfptr[2236]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V2238*/ meltfptr[2237]); - MELT_LOCATION("warmelt-first.melt:1612:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:1619:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2219*/ meltfptr[2218])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2237*/ meltfptr[2236])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2219*/ meltfptr[2218])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2219*/ meltfptr[2218]))->obj_vartab[4] = (melt_ptr_t)( - /*_.VALDATA___V2131*/ meltfptr[2130]); + melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2237*/ meltfptr[2236])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2237*/ meltfptr[2236]))->obj_vartab[4] = (melt_ptr_t)( + /*_.VALDATA___V2149*/ meltfptr[2148]); - MELT_LOCATION("warmelt-first.melt:1612:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:1619:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V2219*/ meltfptr[2218]); + meltgc_touch(/*_.VALDATA___V2237*/ meltfptr[2236]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2221*/ meltfptr[2220])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2239*/ meltfptr[2238])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2221*/ meltfptr[2220])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2221*/ meltfptr[2220]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V2222*/ meltfptr[2221]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2239*/ meltfptr[2238])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2239*/ meltfptr[2238]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V2240*/ meltfptr[2239]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V2221*/ meltfptr[2220]); + meltgc_touch(/*_.VALDATA___V2239*/ meltfptr[2238]); - MELT_LOCATION("warmelt-first.melt:1620:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:1627:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2223*/ meltfptr[2222])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2241*/ meltfptr[2240])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2223*/ meltfptr[2222])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2223*/ meltfptr[2222]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V2224*/ meltfptr[2223]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2241*/ meltfptr[2240])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2241*/ meltfptr[2240]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V2242*/ meltfptr[2241]); - MELT_LOCATION("warmelt-first.melt:1620:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:1627:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2223*/ meltfptr[2222])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2241*/ meltfptr[2240])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2223*/ meltfptr[2222])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2223*/ meltfptr[2222]))->obj_vartab[4] = (melt_ptr_t)( - /*_.VALDATA___V2131*/ meltfptr[2130]); + melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2241*/ meltfptr[2240])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2241*/ meltfptr[2240]))->obj_vartab[4] = (melt_ptr_t)( + /*_.VALDATA___V2149*/ meltfptr[2148]); - MELT_LOCATION("warmelt-first.melt:1620:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:1627:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V2223*/ meltfptr[2222]); + meltgc_touch(/*_.VALDATA___V2241*/ meltfptr[2240]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2225*/ meltfptr[2224])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2243*/ meltfptr[2242])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2225*/ meltfptr[2224])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2225*/ meltfptr[2224]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V2226*/ meltfptr[2225]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2243*/ meltfptr[2242])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2243*/ meltfptr[2242]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V2244*/ meltfptr[2243]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V2225*/ meltfptr[2224]); + meltgc_touch(/*_.VALDATA___V2243*/ meltfptr[2242]); - MELT_LOCATION("warmelt-first.melt:1629:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:1636:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2227*/ meltfptr[2226])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2245*/ meltfptr[2244])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2227*/ meltfptr[2226])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2227*/ meltfptr[2226]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V2228*/ meltfptr[2227]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2245*/ meltfptr[2244])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2245*/ meltfptr[2244]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V2246*/ meltfptr[2245]); - MELT_LOCATION("warmelt-first.melt:1629:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:1636:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2227*/ meltfptr[2226])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2245*/ meltfptr[2244])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2227*/ meltfptr[2226])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2227*/ meltfptr[2226]))->obj_vartab[4] = (melt_ptr_t)( - /*_.VALDATA___V2131*/ meltfptr[2130]); + melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2245*/ meltfptr[2244])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2245*/ meltfptr[2244]))->obj_vartab[4] = (melt_ptr_t)( + /*_.VALDATA___V2149*/ meltfptr[2148]); - MELT_LOCATION("warmelt-first.melt:1629:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:1636:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V2227*/ meltfptr[2226]); + meltgc_touch(/*_.VALDATA___V2245*/ meltfptr[2244]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2229*/ meltfptr[2228])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2247*/ meltfptr[2246])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2229*/ meltfptr[2228])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2229*/ meltfptr[2228]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V2230*/ meltfptr[2229]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2247*/ meltfptr[2246])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2247*/ meltfptr[2246]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V2248*/ meltfptr[2247]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V2229*/ meltfptr[2228]); + meltgc_touch(/*_.VALDATA___V2247*/ meltfptr[2246]); - MELT_LOCATION("warmelt-first.melt:1639:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:1646:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2231*/ meltfptr[2230])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2249*/ meltfptr[2248])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2231*/ meltfptr[2230])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2231*/ meltfptr[2230]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V2232*/ meltfptr[2231]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2249*/ meltfptr[2248])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2249*/ meltfptr[2248]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V2250*/ meltfptr[2249]); - MELT_LOCATION("warmelt-first.melt:1639:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:1646:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2231*/ meltfptr[2230])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2249*/ meltfptr[2248])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2231*/ meltfptr[2230])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2231*/ meltfptr[2230]))->obj_vartab[4] = (melt_ptr_t)( - /*_.VALDATA___V2227*/ meltfptr[2226]); + melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2249*/ meltfptr[2248])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2249*/ meltfptr[2248]))->obj_vartab[4] = (melt_ptr_t)( + /*_.VALDATA___V2245*/ meltfptr[2244]); - MELT_LOCATION("warmelt-first.melt:1639:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:1646:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V2231*/ meltfptr[2230]); + meltgc_touch(/*_.VALDATA___V2249*/ meltfptr[2248]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2233*/ meltfptr[2232])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2251*/ meltfptr[2250])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2233*/ meltfptr[2232])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2233*/ meltfptr[2232]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V2234*/ meltfptr[2233]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2251*/ meltfptr[2250])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2251*/ meltfptr[2250]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V2252*/ meltfptr[2251]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V2233*/ meltfptr[2232]); + meltgc_touch(/*_.VALDATA___V2251*/ meltfptr[2250]); - MELT_LOCATION("warmelt-first.melt:1649:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:1656:/ initchunk"); /*^cond*/ /*cond*/ if (MELTPREDEFIX(predefinited,DISCR_CLASS_SEQUENCE)) /*then*/ { } else {/*^cond.else*/ /*com.block:fill predef slots*/{ - MELT_LOCATION("warmelt-first.melt:1649:/ putslot"); + MELT_LOCATION("warmelt-first.melt:1656:/ putslot"); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2235*/ meltfptr[2234])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2253*/ meltfptr[2252])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2235*/ meltfptr[2234])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2235*/ meltfptr[2234]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V2236*/ meltfptr[2235]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2253*/ meltfptr[2252])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2253*/ meltfptr[2252]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V2254*/ meltfptr[2253]); ; /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2235*/ meltfptr[2234])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2253*/ meltfptr[2252])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2235*/ meltfptr[2234])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2235*/ meltfptr[2234]))->obj_vartab[4] = (melt_ptr_t)( - /*_.VALDATA___V2159*/ meltfptr[2158]); + melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2253*/ meltfptr[2252])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2253*/ meltfptr[2252]))->obj_vartab[4] = (melt_ptr_t)( + /*_.VALDATA___V2177*/ meltfptr[2176]); ; /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V2235*/ meltfptr[2234]); + meltgc_touch(/*_.VALDATA___V2253*/ meltfptr[2252]); ;}/*com.end block:fill predef slots*/ ; } /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2237*/ meltfptr[2236])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2255*/ meltfptr[2254])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2237*/ meltfptr[2236])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2237*/ meltfptr[2236]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V2238*/ meltfptr[2237]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2255*/ meltfptr[2254])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2255*/ meltfptr[2254]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V2256*/ meltfptr[2255]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V2237*/ meltfptr[2236]); + meltgc_touch(/*_.VALDATA___V2255*/ meltfptr[2254]); - MELT_LOCATION("warmelt-first.melt:1660:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:1667:/ initchunk"); /*^cond*/ /*cond*/ if (MELTPREDEFIX(predefinited,DISCR_METHOD_MAP)) /*then*/ { } else {/*^cond.else*/ /*com.block:fill predef slots*/{ - MELT_LOCATION("warmelt-first.melt:1660:/ putslot"); + MELT_LOCATION("warmelt-first.melt:1667:/ putslot"); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2239*/ meltfptr[2238])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2257*/ meltfptr[2256])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2239*/ meltfptr[2238])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2239*/ meltfptr[2238]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V2240*/ meltfptr[2239]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2257*/ meltfptr[2256])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2257*/ meltfptr[2256]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V2258*/ meltfptr[2257]); ; /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2239*/ meltfptr[2238])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2257*/ meltfptr[2256])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2239*/ meltfptr[2238])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2239*/ meltfptr[2238]))->obj_vartab[4] = (melt_ptr_t)( - /*_.VALDATA___V2191*/ meltfptr[2190]); + melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2257*/ meltfptr[2256])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2257*/ meltfptr[2256]))->obj_vartab[4] = (melt_ptr_t)( + /*_.VALDATA___V2209*/ meltfptr[2208]); ; /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V2239*/ meltfptr[2238]); + meltgc_touch(/*_.VALDATA___V2257*/ meltfptr[2256]); ;}/*com.end block:fill predef slots*/ ; } /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2241*/ meltfptr[2240])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2259*/ meltfptr[2258])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2241*/ meltfptr[2240])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2241*/ meltfptr[2240]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V2242*/ meltfptr[2241]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2259*/ meltfptr[2258])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2259*/ meltfptr[2258]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V2260*/ meltfptr[2259]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V2241*/ meltfptr[2240]); + meltgc_touch(/*_.VALDATA___V2259*/ meltfptr[2258]); - MELT_LOCATION("warmelt-first.melt:1671:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:1678:/ initchunk"); /*^cond*/ /*cond*/ if (MELTPREDEFIX(predefinited,DISCR_CHARACTER_INTEGER)) /*then*/ { } else {/*^cond.else*/ /*com.block:fill predef slots*/{ - MELT_LOCATION("warmelt-first.melt:1671:/ putslot"); + MELT_LOCATION("warmelt-first.melt:1678:/ putslot"); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2243*/ meltfptr[2242])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2261*/ meltfptr[2260])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2243*/ meltfptr[2242])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2243*/ meltfptr[2242]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V2244*/ meltfptr[2243]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2261*/ meltfptr[2260])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2261*/ meltfptr[2260]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V2262*/ meltfptr[2261]); ; /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2243*/ meltfptr[2242])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2261*/ meltfptr[2260])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2243*/ meltfptr[2242])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2243*/ meltfptr[2242]))->obj_vartab[4] = (melt_ptr_t)( - /*_.VALDATA___V2143*/ meltfptr[2142]); + melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2261*/ meltfptr[2260])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2261*/ meltfptr[2260]))->obj_vartab[4] = (melt_ptr_t)( + /*_.VALDATA___V2161*/ meltfptr[2160]); ; /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V2243*/ meltfptr[2242]); + meltgc_touch(/*_.VALDATA___V2261*/ meltfptr[2260]); ;}/*com.end block:fill predef slots*/ ; } /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2245*/ meltfptr[2244])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2263*/ meltfptr[2262])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2245*/ meltfptr[2244])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2245*/ meltfptr[2244]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V2246*/ meltfptr[2245]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2263*/ meltfptr[2262])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2263*/ meltfptr[2262]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V2264*/ meltfptr[2263]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V2245*/ meltfptr[2244]); + meltgc_touch(/*_.VALDATA___V2263*/ meltfptr[2262]); - MELT_LOCATION("warmelt-first.melt:1682:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:1689:/ initchunk"); /*^cond*/ /*cond*/ if (MELTPREDEFIX(predefinited,DISCR_MIXED_INTEGER)) /*then*/ { } else {/*^cond.else*/ /*com.block:fill predef slots*/{ - MELT_LOCATION("warmelt-first.melt:1682:/ putslot"); + MELT_LOCATION("warmelt-first.melt:1689:/ putslot"); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2247*/ meltfptr[2246])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2265*/ meltfptr[2264])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2247*/ meltfptr[2246])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2247*/ meltfptr[2246]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V2248*/ meltfptr[2247]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2265*/ meltfptr[2264])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2265*/ meltfptr[2264]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V2266*/ meltfptr[2265]); ; /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2247*/ meltfptr[2246])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2265*/ meltfptr[2264])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2247*/ meltfptr[2246])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2247*/ meltfptr[2246]))->obj_vartab[4] = (melt_ptr_t)( - /*_.VALDATA___V2131*/ meltfptr[2130]); + melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2265*/ meltfptr[2264])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2265*/ meltfptr[2264]))->obj_vartab[4] = (melt_ptr_t)( + /*_.VALDATA___V2149*/ meltfptr[2148]); ; /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V2247*/ meltfptr[2246]); + meltgc_touch(/*_.VALDATA___V2265*/ meltfptr[2264]); ;}/*com.end block:fill predef slots*/ ; } /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2249*/ meltfptr[2248])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2267*/ meltfptr[2266])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2249*/ meltfptr[2248])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2249*/ meltfptr[2248]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V2250*/ meltfptr[2249]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2267*/ meltfptr[2266])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2267*/ meltfptr[2266]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V2268*/ meltfptr[2267]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V2249*/ meltfptr[2248]); + meltgc_touch(/*_.VALDATA___V2267*/ meltfptr[2266]); - MELT_LOCATION("warmelt-first.melt:1692:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:1699:/ initchunk"); /*^cond*/ /*cond*/ if (MELTPREDEFIX(predefinited,DISCR_MIXED_BIGINT)) /*then*/ { } else {/*^cond.else*/ /*com.block:fill predef slots*/{ - MELT_LOCATION("warmelt-first.melt:1692:/ putslot"); + MELT_LOCATION("warmelt-first.melt:1699:/ putslot"); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2251*/ meltfptr[2250])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2269*/ meltfptr[2268])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2251*/ meltfptr[2250])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2251*/ meltfptr[2250]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V2252*/ meltfptr[2251]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2269*/ meltfptr[2268])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2269*/ meltfptr[2268]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V2270*/ meltfptr[2269]); ; /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2251*/ meltfptr[2250])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2269*/ meltfptr[2268])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2251*/ meltfptr[2250])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2251*/ meltfptr[2250]))->obj_vartab[4] = (melt_ptr_t)( - /*_.VALDATA___V2131*/ meltfptr[2130]); + melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2269*/ meltfptr[2268])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2269*/ meltfptr[2268]))->obj_vartab[4] = (melt_ptr_t)( + /*_.VALDATA___V2149*/ meltfptr[2148]); ; /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V2251*/ meltfptr[2250]); + meltgc_touch(/*_.VALDATA___V2269*/ meltfptr[2268]); ;}/*com.end block:fill predef slots*/ ; } /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2253*/ meltfptr[2252])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2271*/ meltfptr[2270])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2253*/ meltfptr[2252])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2253*/ meltfptr[2252]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V2254*/ meltfptr[2253]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2271*/ meltfptr[2270])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2271*/ meltfptr[2270]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V2272*/ meltfptr[2271]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V2253*/ meltfptr[2252]); + meltgc_touch(/*_.VALDATA___V2271*/ meltfptr[2270]); - MELT_LOCATION("warmelt-first.melt:1703:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:1710:/ initchunk"); /*^cond*/ /*cond*/ if (MELTPREDEFIX(predefinited,DISCR_MIXED_LOCATION)) /*then*/ { } else {/*^cond.else*/ /*com.block:fill predef slots*/{ - MELT_LOCATION("warmelt-first.melt:1703:/ putslot"); + MELT_LOCATION("warmelt-first.melt:1710:/ putslot"); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2255*/ meltfptr[2254])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2273*/ meltfptr[2272])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2255*/ meltfptr[2254])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2255*/ meltfptr[2254]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V2256*/ meltfptr[2255]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2273*/ meltfptr[2272])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2273*/ meltfptr[2272]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V2274*/ meltfptr[2273]); ; /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2255*/ meltfptr[2254])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2273*/ meltfptr[2272])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2255*/ meltfptr[2254])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2255*/ meltfptr[2254]))->obj_vartab[4] = (melt_ptr_t)( - /*_.VALDATA___V2131*/ meltfptr[2130]); + melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2273*/ meltfptr[2272])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2273*/ meltfptr[2272]))->obj_vartab[4] = (melt_ptr_t)( + /*_.VALDATA___V2149*/ meltfptr[2148]); ; /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V2255*/ meltfptr[2254]); + meltgc_touch(/*_.VALDATA___V2273*/ meltfptr[2272]); ;}/*com.end block:fill predef slots*/ ; } /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2257*/ meltfptr[2256])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2275*/ meltfptr[2274])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2257*/ meltfptr[2256])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2257*/ meltfptr[2256]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V2258*/ meltfptr[2257]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2275*/ meltfptr[2274])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2275*/ meltfptr[2274]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V2276*/ meltfptr[2275]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V2257*/ meltfptr[2256]); + meltgc_touch(/*_.VALDATA___V2275*/ meltfptr[2274]); - MELT_LOCATION("warmelt-first.melt:1713:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:1720:/ initchunk"); /*^cond*/ /*cond*/ if (MELTPREDEFIX(predefinited,DISCR_CLOSURE)) /*then*/ { } else {/*^cond.else*/ /*com.block:fill predef slots*/{ - MELT_LOCATION("warmelt-first.melt:1713:/ putslot"); + MELT_LOCATION("warmelt-first.melt:1720:/ putslot"); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2259*/ meltfptr[2258])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2277*/ meltfptr[2276])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2259*/ meltfptr[2258])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2259*/ meltfptr[2258]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V2260*/ meltfptr[2259]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2277*/ meltfptr[2276])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2277*/ meltfptr[2276]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V2278*/ meltfptr[2277]); ; /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2259*/ meltfptr[2258])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2277*/ meltfptr[2276])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2259*/ meltfptr[2258])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2259*/ meltfptr[2258]))->obj_vartab[4] = (melt_ptr_t)( - /*_.VALDATA___V2131*/ meltfptr[2130]); + melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2277*/ meltfptr[2276])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2277*/ meltfptr[2276]))->obj_vartab[4] = (melt_ptr_t)( + /*_.VALDATA___V2149*/ meltfptr[2148]); ; /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V2259*/ meltfptr[2258]); + meltgc_touch(/*_.VALDATA___V2277*/ meltfptr[2276]); ;}/*com.end block:fill predef slots*/ ; } /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2261*/ meltfptr[2260])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2279*/ meltfptr[2278])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2261*/ meltfptr[2260])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2261*/ meltfptr[2260]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V2262*/ meltfptr[2261]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2279*/ meltfptr[2278])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2279*/ meltfptr[2278]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V2280*/ meltfptr[2279]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V2261*/ meltfptr[2260]); + meltgc_touch(/*_.VALDATA___V2279*/ meltfptr[2278]); - MELT_LOCATION("warmelt-first.melt:1722:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:1729:/ initchunk"); /*^cond*/ /*cond*/ if (MELTPREDEFIX(predefinited,DISCR_ROUTINE)) /*then*/ { } else {/*^cond.else*/ /*com.block:fill predef slots*/{ - MELT_LOCATION("warmelt-first.melt:1722:/ putslot"); + MELT_LOCATION("warmelt-first.melt:1729:/ putslot"); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2263*/ meltfptr[2262])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2281*/ meltfptr[2280])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2263*/ meltfptr[2262])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2263*/ meltfptr[2262]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V2264*/ meltfptr[2263]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2281*/ meltfptr[2280])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2281*/ meltfptr[2280]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V2282*/ meltfptr[2281]); ; /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2263*/ meltfptr[2262])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2281*/ meltfptr[2280])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2263*/ meltfptr[2262])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2263*/ meltfptr[2262]))->obj_vartab[4] = (melt_ptr_t)( - /*_.VALDATA___V2131*/ meltfptr[2130]); + melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2281*/ meltfptr[2280])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2281*/ meltfptr[2280]))->obj_vartab[4] = (melt_ptr_t)( + /*_.VALDATA___V2149*/ meltfptr[2148]); ; /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V2263*/ meltfptr[2262]); + meltgc_touch(/*_.VALDATA___V2281*/ meltfptr[2280]); ;}/*com.end block:fill predef slots*/ ; } - MELT_LOCATION("warmelt-first.melt:1734:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:1741:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2265*/ meltfptr[2264])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2283*/ meltfptr[2282])) == OBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V327*/ meltfptr[326]); - ((meltroutine_ptr_t)/*_.VALROUT___V2265*/ meltfptr[2264])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V327*/ meltfptr[326]); + ((meltroutine_ptr_t)/*_.VALROUT___V2283*/ meltfptr[2282])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V327*/ meltfptr[326]); - MELT_LOCATION("warmelt-first.melt:1734:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:1741:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2265*/ meltfptr[2264])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V2122*/ meltfptr[2121]); - ((meltroutine_ptr_t)/*_.VALROUT___V2265*/ meltfptr[2264])->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2122*/ meltfptr[2121]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2283*/ meltfptr[2282])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V2140*/ meltfptr[2139]); + ((meltroutine_ptr_t)/*_.VALROUT___V2283*/ meltfptr[2282])->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2140*/ meltfptr[2139]); - MELT_LOCATION("warmelt-first.melt:1734:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:1741:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2265*/ meltfptr[2264])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2283*/ meltfptr[2282])) == OBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V321*/ meltfptr[320]); - ((meltroutine_ptr_t)/*_.VALROUT___V2265*/ meltfptr[2264])->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V321*/ meltfptr[320]); + ((meltroutine_ptr_t)/*_.VALROUT___V2283*/ meltfptr[2282])->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V321*/ meltfptr[320]); - MELT_LOCATION("warmelt-first.melt:1734:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:1741:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2265*/ meltfptr[2264])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2283*/ meltfptr[2282])) == OBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V301*/ meltfptr[300]); - ((meltroutine_ptr_t)/*_.VALROUT___V2265*/ meltfptr[2264])->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V301*/ meltfptr[300]); + ((meltroutine_ptr_t)/*_.VALROUT___V2283*/ meltfptr[2282])->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V301*/ meltfptr[300]); - MELT_LOCATION("warmelt-first.melt:1734:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:1741:/ initchunk"); /*^touch*/ /*touch:IROUTVAL_*/ - meltgc_touch(/*_.VALROUT___V2265*/ meltfptr[2264]); + meltgc_touch(/*_.VALROUT___V2283*/ meltfptr[2282]); /*putclosurout*/ - melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V2266*/ meltfptr[2265])) == OBMAG_CLOSURE); - melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2265*/ meltfptr[2264])) == OBMAG_ROUTINE); - ((meltclosure_ptr_t)/*_.VALCLO___V2266*/ meltfptr[2265])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V2265*/ meltfptr[2264]); + melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V2284*/ meltfptr[2283])) == OBMAG_CLOSURE); + melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2283*/ meltfptr[2282])) == OBMAG_ROUTINE); + ((meltclosure_ptr_t)/*_.VALCLO___V2284*/ meltfptr[2283])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V2283*/ meltfptr[2282]); /*touch:DATACLOSURE_*/ - meltgc_touch(/*_.VALCLO___V2266*/ meltfptr[2265]); + meltgc_touch(/*_.VALCLO___V2284*/ meltfptr[2283]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2267*/ meltfptr[2266])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2285*/ meltfptr[2284])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2267*/ meltfptr[2266])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2267*/ meltfptr[2266]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V2268*/ meltfptr[2267]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2285*/ meltfptr[2284])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2285*/ meltfptr[2284]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V2286*/ meltfptr[2285]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V2267*/ meltfptr[2266]); + meltgc_touch(/*_.VALDATA___V2285*/ meltfptr[2284]); - MELT_LOCATION("warmelt-first.melt:1757:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:1764:/ initchunk"); /*^cond*/ /*cond*/ if (MELTPREDEFIX(predefinited,CTYPE_VALUE)) /*then*/ { } else {/*^cond.else*/ /*com.block:fill predef slots*/{ - MELT_LOCATION("warmelt-first.melt:1757:/ putslot"); + MELT_LOCATION("warmelt-first.melt:1764:/ putslot"); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2269*/ meltfptr[2268])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2287*/ meltfptr[2286])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2269*/ meltfptr[2268])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2269*/ meltfptr[2268]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V2270*/ meltfptr[2269]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2287*/ meltfptr[2286])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2287*/ meltfptr[2286]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V2288*/ meltfptr[2287]); ; /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2269*/ meltfptr[2268])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2287*/ meltfptr[2286])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2269*/ meltfptr[2268])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2269*/ meltfptr[2268]))->obj_vartab[2] = (melt_ptr_t)( - /*_.VALDATA___V2271*/ meltfptr[2270]); + melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2287*/ meltfptr[2286])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2287*/ meltfptr[2286]))->obj_vartab[2] = (melt_ptr_t)( + /*_.VALDATA___V2289*/ meltfptr[2288]); ; /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2269*/ meltfptr[2268])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2287*/ meltfptr[2286])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2269*/ meltfptr[2268])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2269*/ meltfptr[2268]))->obj_vartab[3] = (melt_ptr_t)( - /*_.VALSTR___V2273*/ meltfptr[2272]); + melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2287*/ meltfptr[2286])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2287*/ meltfptr[2286]))->obj_vartab[3] = (melt_ptr_t)( + /*_.VALSTR___V2291*/ meltfptr[2290]); ; /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2269*/ meltfptr[2268])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2287*/ meltfptr[2286])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2269*/ meltfptr[2268])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2269*/ meltfptr[2268]))->obj_vartab[4] = (melt_ptr_t)( - /*_.VALSTR___V2274*/ meltfptr[2273]); + melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2287*/ meltfptr[2286])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2287*/ meltfptr[2286]))->obj_vartab[4] = (melt_ptr_t)( + /*_.VALSTR___V2292*/ meltfptr[2291]); ; /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2269*/ meltfptr[2268])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2287*/ meltfptr[2286])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2269*/ meltfptr[2268])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2269*/ meltfptr[2268]))->obj_vartab[5] = (melt_ptr_t)( - /*_.VALSTR___V2275*/ meltfptr[2274]); + melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2287*/ meltfptr[2286])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2287*/ meltfptr[2286]))->obj_vartab[5] = (melt_ptr_t)( + /*_.VALSTR___V2293*/ meltfptr[2292]); ; /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2269*/ meltfptr[2268])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2287*/ meltfptr[2286])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2269*/ meltfptr[2268])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2269*/ meltfptr[2268]))->obj_vartab[6] = (melt_ptr_t)( - /*_.VALSTR___V2276*/ meltfptr[2275]); + melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2287*/ meltfptr[2286])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2287*/ meltfptr[2286]))->obj_vartab[6] = (melt_ptr_t)( + /*_.VALSTR___V2294*/ meltfptr[2293]); ; /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2269*/ meltfptr[2268])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2287*/ meltfptr[2286])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (7>=0 && 7< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2269*/ meltfptr[2268])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2269*/ meltfptr[2268]))->obj_vartab[7] = (melt_ptr_t)( - /*_.VALSTR___V2277*/ meltfptr[2276]); + melt_assertmsg("putslot checkoff", (7>=0 && 7< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2287*/ meltfptr[2286])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2287*/ meltfptr[2286]))->obj_vartab[7] = (melt_ptr_t)( + /*_.VALSTR___V2295*/ meltfptr[2294]); ; /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2269*/ meltfptr[2268])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2287*/ meltfptr[2286])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (8>=0 && 8< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2269*/ meltfptr[2268])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2269*/ meltfptr[2268]))->obj_vartab[8] = (melt_ptr_t)( - /*_.VALSTR___V2278*/ meltfptr[2277]); + melt_assertmsg("putslot checkoff", (8>=0 && 8< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2287*/ meltfptr[2286])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2287*/ meltfptr[2286]))->obj_vartab[8] = (melt_ptr_t)( + /*_.VALSTR___V2296*/ meltfptr[2295]); ; /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V2269*/ meltfptr[2268]); + meltgc_touch(/*_.VALDATA___V2287*/ meltfptr[2286]); ;}/*com.end block:fill predef slots*/ ; } /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2271*/ meltfptr[2270])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2289*/ meltfptr[2288])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2271*/ meltfptr[2270])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2271*/ meltfptr[2270]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V2272*/ meltfptr[2271]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2289*/ meltfptr[2288])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2289*/ meltfptr[2288]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V2290*/ meltfptr[2289]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V2271*/ meltfptr[2270]); + meltgc_touch(/*_.VALDATA___V2289*/ meltfptr[2288]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2279*/ meltfptr[2278])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2297*/ meltfptr[2296])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2279*/ meltfptr[2278])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2279*/ meltfptr[2278]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V2280*/ meltfptr[2279]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2297*/ meltfptr[2296])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2297*/ meltfptr[2296]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V2298*/ meltfptr[2297]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V2279*/ meltfptr[2278]); + meltgc_touch(/*_.VALDATA___V2297*/ meltfptr[2296]); - MELT_LOCATION("warmelt-first.melt:1773:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:1780:/ initchunk"); /*^cond*/ /*cond*/ if (MELTPREDEFIX(predefinited,CTYPE_LONG)) /*then*/ { } else {/*^cond.else*/ /*com.block:fill predef slots*/{ - MELT_LOCATION("warmelt-first.melt:1773:/ putslot"); + MELT_LOCATION("warmelt-first.melt:1780:/ putslot"); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2281*/ meltfptr[2280])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2299*/ meltfptr[2298])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2281*/ meltfptr[2280])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2281*/ meltfptr[2280]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V2282*/ meltfptr[2281]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2299*/ meltfptr[2298])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2299*/ meltfptr[2298]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V2300*/ meltfptr[2299]); ; /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2281*/ meltfptr[2280])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2299*/ meltfptr[2298])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2281*/ meltfptr[2280])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2281*/ meltfptr[2280]))->obj_vartab[2] = (melt_ptr_t)( - /*_.VALDATA___V2283*/ meltfptr[2282]); + melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2299*/ meltfptr[2298])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2299*/ meltfptr[2298]))->obj_vartab[2] = (melt_ptr_t)( + /*_.VALDATA___V2301*/ meltfptr[2300]); ; /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2281*/ meltfptr[2280])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2299*/ meltfptr[2298])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2281*/ meltfptr[2280])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2281*/ meltfptr[2280]))->obj_vartab[3] = (melt_ptr_t)( - /*_.VALSTR___V2285*/ meltfptr[2284]); + melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2299*/ meltfptr[2298])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2299*/ meltfptr[2298]))->obj_vartab[3] = (melt_ptr_t)( + /*_.VALSTR___V2303*/ meltfptr[2302]); ; /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2281*/ meltfptr[2280])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2299*/ meltfptr[2298])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2281*/ meltfptr[2280])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2281*/ meltfptr[2280]))->obj_vartab[4] = (melt_ptr_t)( - /*_.VALSTR___V2286*/ meltfptr[2285]); + melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2299*/ meltfptr[2298])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2299*/ meltfptr[2298]))->obj_vartab[4] = (melt_ptr_t)( + /*_.VALSTR___V2304*/ meltfptr[2303]); ; /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2281*/ meltfptr[2280])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2299*/ meltfptr[2298])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2281*/ meltfptr[2280])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2281*/ meltfptr[2280]))->obj_vartab[5] = (melt_ptr_t)( - /*_.VALSTR___V2287*/ meltfptr[2286]); + melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2299*/ meltfptr[2298])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2299*/ meltfptr[2298]))->obj_vartab[5] = (melt_ptr_t)( + /*_.VALSTR___V2305*/ meltfptr[2304]); ; /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2281*/ meltfptr[2280])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2299*/ meltfptr[2298])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2281*/ meltfptr[2280])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2281*/ meltfptr[2280]))->obj_vartab[6] = (melt_ptr_t)( - /*_.VALSTR___V2288*/ meltfptr[2287]); + melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2299*/ meltfptr[2298])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2299*/ meltfptr[2298]))->obj_vartab[6] = (melt_ptr_t)( + /*_.VALSTR___V2306*/ meltfptr[2305]); ; /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2281*/ meltfptr[2280])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2299*/ meltfptr[2298])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (7>=0 && 7< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2281*/ meltfptr[2280])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2281*/ meltfptr[2280]))->obj_vartab[7] = (melt_ptr_t)( - /*_.VALSTR___V2289*/ meltfptr[2288]); + melt_assertmsg("putslot checkoff", (7>=0 && 7< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2299*/ meltfptr[2298])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2299*/ meltfptr[2298]))->obj_vartab[7] = (melt_ptr_t)( + /*_.VALSTR___V2307*/ meltfptr[2306]); ; /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V2281*/ meltfptr[2280]); + meltgc_touch(/*_.VALDATA___V2299*/ meltfptr[2298]); ;}/*com.end block:fill predef slots*/ ; } /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2283*/ meltfptr[2282])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2301*/ meltfptr[2300])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2283*/ meltfptr[2282])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2283*/ meltfptr[2282]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V2284*/ meltfptr[2283]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2301*/ meltfptr[2300])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2301*/ meltfptr[2300]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V2302*/ meltfptr[2301]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V2283*/ meltfptr[2282]); + meltgc_touch(/*_.VALDATA___V2301*/ meltfptr[2300]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2290*/ meltfptr[2289])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2308*/ meltfptr[2307])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2290*/ meltfptr[2289])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2290*/ meltfptr[2289]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V2291*/ meltfptr[2290]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2308*/ meltfptr[2307])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2308*/ meltfptr[2307]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V2309*/ meltfptr[2308]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V2290*/ meltfptr[2289]); + meltgc_touch(/*_.VALDATA___V2308*/ meltfptr[2307]); - MELT_LOCATION("warmelt-first.melt:1787:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:1794:/ initchunk"); /*^cond*/ /*cond*/ if (MELTPREDEFIX(predefinited,CTYPE_TREE)) /*then*/ { } else {/*^cond.else*/ /*com.block:fill predef slots*/{ - MELT_LOCATION("warmelt-first.melt:1787:/ putslot"); + MELT_LOCATION("warmelt-first.melt:1794:/ putslot"); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2292*/ meltfptr[2291])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2310*/ meltfptr[2309])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2292*/ meltfptr[2291])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2292*/ meltfptr[2291]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V2293*/ meltfptr[2292]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2310*/ meltfptr[2309])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2310*/ meltfptr[2309]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V2311*/ meltfptr[2310]); ; /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2292*/ meltfptr[2291])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2310*/ meltfptr[2309])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2292*/ meltfptr[2291])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2292*/ meltfptr[2291]))->obj_vartab[2] = (melt_ptr_t)( - /*_.VALDATA___V2294*/ meltfptr[2293]); + melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2310*/ meltfptr[2309])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2310*/ meltfptr[2309]))->obj_vartab[2] = (melt_ptr_t)( + /*_.VALDATA___V2312*/ meltfptr[2311]); ; /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2292*/ meltfptr[2291])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2310*/ meltfptr[2309])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2292*/ meltfptr[2291])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2292*/ meltfptr[2291]))->obj_vartab[3] = (melt_ptr_t)( - /*_.VALSTR___V2296*/ meltfptr[2295]); + melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2310*/ meltfptr[2309])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2310*/ meltfptr[2309]))->obj_vartab[3] = (melt_ptr_t)( + /*_.VALSTR___V2314*/ meltfptr[2313]); ; /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2292*/ meltfptr[2291])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2310*/ meltfptr[2309])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2292*/ meltfptr[2291])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2292*/ meltfptr[2291]))->obj_vartab[4] = (melt_ptr_t)( - /*_.VALSTR___V2297*/ meltfptr[2296]); + melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2310*/ meltfptr[2309])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2310*/ meltfptr[2309]))->obj_vartab[4] = (melt_ptr_t)( + /*_.VALSTR___V2315*/ meltfptr[2314]); ; /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2292*/ meltfptr[2291])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2310*/ meltfptr[2309])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2292*/ meltfptr[2291])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2292*/ meltfptr[2291]))->obj_vartab[5] = (melt_ptr_t)( - /*_.VALSTR___V2298*/ meltfptr[2297]); + melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2310*/ meltfptr[2309])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2310*/ meltfptr[2309]))->obj_vartab[5] = (melt_ptr_t)( + /*_.VALSTR___V2316*/ meltfptr[2315]); ; /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2292*/ meltfptr[2291])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2310*/ meltfptr[2309])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2292*/ meltfptr[2291])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2292*/ meltfptr[2291]))->obj_vartab[6] = (melt_ptr_t)( - /*_.VALSTR___V2299*/ meltfptr[2298]); + melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2310*/ meltfptr[2309])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2310*/ meltfptr[2309]))->obj_vartab[6] = (melt_ptr_t)( + /*_.VALSTR___V2317*/ meltfptr[2316]); ; /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2292*/ meltfptr[2291])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2310*/ meltfptr[2309])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (7>=0 && 7< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2292*/ meltfptr[2291])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2292*/ meltfptr[2291]))->obj_vartab[7] = (melt_ptr_t)( - /*_.VALSTR___V2300*/ meltfptr[2299]); + melt_assertmsg("putslot checkoff", (7>=0 && 7< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2310*/ meltfptr[2309])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2310*/ meltfptr[2309]))->obj_vartab[7] = (melt_ptr_t)( + /*_.VALSTR___V2318*/ meltfptr[2317]); ; /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2292*/ meltfptr[2291])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2310*/ meltfptr[2309])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (8>=0 && 8< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2292*/ meltfptr[2291])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2292*/ meltfptr[2291]))->obj_vartab[8] = (melt_ptr_t)( - /*_.VALSTR___V2301*/ meltfptr[2300]); + melt_assertmsg("putslot checkoff", (8>=0 && 8< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2310*/ meltfptr[2309])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2310*/ meltfptr[2309]))->obj_vartab[8] = (melt_ptr_t)( + /*_.VALSTR___V2319*/ meltfptr[2318]); ; /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V2292*/ meltfptr[2291]); + meltgc_touch(/*_.VALDATA___V2310*/ meltfptr[2309]); ;}/*com.end block:fill predef slots*/ ; } /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2294*/ meltfptr[2293])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2312*/ meltfptr[2311])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2294*/ meltfptr[2293])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2294*/ meltfptr[2293]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V2295*/ meltfptr[2294]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2312*/ meltfptr[2311])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2312*/ meltfptr[2311]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V2313*/ meltfptr[2312]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V2294*/ meltfptr[2293]); + meltgc_touch(/*_.VALDATA___V2312*/ meltfptr[2311]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2302*/ meltfptr[2301])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2320*/ meltfptr[2319])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2302*/ meltfptr[2301])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2302*/ meltfptr[2301]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V2303*/ meltfptr[2302]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2320*/ meltfptr[2319])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2320*/ meltfptr[2319]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V2321*/ meltfptr[2320]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V2302*/ meltfptr[2301]); + meltgc_touch(/*_.VALDATA___V2320*/ meltfptr[2319]); - MELT_LOCATION("warmelt-first.melt:1802:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:1809:/ initchunk"); /*^cond*/ /*cond*/ if (MELTPREDEFIX(predefinited,CTYPE_GIMPLE)) /*then*/ { } else {/*^cond.else*/ /*com.block:fill predef slots*/{ - MELT_LOCATION("warmelt-first.melt:1802:/ putslot"); + MELT_LOCATION("warmelt-first.melt:1809:/ putslot"); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2304*/ meltfptr[2303])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2322*/ meltfptr[2321])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2304*/ meltfptr[2303])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2304*/ meltfptr[2303]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V2305*/ meltfptr[2304]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2322*/ meltfptr[2321])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2322*/ meltfptr[2321]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V2323*/ meltfptr[2322]); ; /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2304*/ meltfptr[2303])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2322*/ meltfptr[2321])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2304*/ meltfptr[2303])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2304*/ meltfptr[2303]))->obj_vartab[2] = (melt_ptr_t)( - /*_.VALDATA___V2306*/ meltfptr[2305]); + melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2322*/ meltfptr[2321])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2322*/ meltfptr[2321]))->obj_vartab[2] = (melt_ptr_t)( + /*_.VALDATA___V2324*/ meltfptr[2323]); ; /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2304*/ meltfptr[2303])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2322*/ meltfptr[2321])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2304*/ meltfptr[2303])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2304*/ meltfptr[2303]))->obj_vartab[3] = (melt_ptr_t)( - /*_.VALSTR___V2308*/ meltfptr[2307]); + melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2322*/ meltfptr[2321])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2322*/ meltfptr[2321]))->obj_vartab[3] = (melt_ptr_t)( + /*_.VALSTR___V2326*/ meltfptr[2325]); ; /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2304*/ meltfptr[2303])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2322*/ meltfptr[2321])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2304*/ meltfptr[2303])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2304*/ meltfptr[2303]))->obj_vartab[4] = (melt_ptr_t)( - /*_.VALSTR___V2309*/ meltfptr[2308]); + melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2322*/ meltfptr[2321])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2322*/ meltfptr[2321]))->obj_vartab[4] = (melt_ptr_t)( + /*_.VALSTR___V2327*/ meltfptr[2326]); ; /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2304*/ meltfptr[2303])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2322*/ meltfptr[2321])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2304*/ meltfptr[2303])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2304*/ meltfptr[2303]))->obj_vartab[5] = (melt_ptr_t)( - /*_.VALSTR___V2310*/ meltfptr[2309]); + melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2322*/ meltfptr[2321])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2322*/ meltfptr[2321]))->obj_vartab[5] = (melt_ptr_t)( + /*_.VALSTR___V2328*/ meltfptr[2327]); ; /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2304*/ meltfptr[2303])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2322*/ meltfptr[2321])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2304*/ meltfptr[2303])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2304*/ meltfptr[2303]))->obj_vartab[6] = (melt_ptr_t)( - /*_.VALSTR___V2311*/ meltfptr[2310]); + melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2322*/ meltfptr[2321])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2322*/ meltfptr[2321]))->obj_vartab[6] = (melt_ptr_t)( + /*_.VALSTR___V2329*/ meltfptr[2328]); ; /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2304*/ meltfptr[2303])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2322*/ meltfptr[2321])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (7>=0 && 7< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2304*/ meltfptr[2303])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2304*/ meltfptr[2303]))->obj_vartab[7] = (melt_ptr_t)( - /*_.VALSTR___V2312*/ meltfptr[2311]); + melt_assertmsg("putslot checkoff", (7>=0 && 7< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2322*/ meltfptr[2321])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2322*/ meltfptr[2321]))->obj_vartab[7] = (melt_ptr_t)( + /*_.VALSTR___V2330*/ meltfptr[2329]); ; /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2304*/ meltfptr[2303])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2322*/ meltfptr[2321])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (8>=0 && 8< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2304*/ meltfptr[2303])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2304*/ meltfptr[2303]))->obj_vartab[8] = (melt_ptr_t)( - /*_.VALSTR___V2313*/ meltfptr[2312]); + melt_assertmsg("putslot checkoff", (8>=0 && 8< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2322*/ meltfptr[2321])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2322*/ meltfptr[2321]))->obj_vartab[8] = (melt_ptr_t)( + /*_.VALSTR___V2331*/ meltfptr[2330]); ; /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V2304*/ meltfptr[2303]); + meltgc_touch(/*_.VALDATA___V2322*/ meltfptr[2321]); ;}/*com.end block:fill predef slots*/ ; } /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2306*/ meltfptr[2305])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2324*/ meltfptr[2323])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2306*/ meltfptr[2305])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2306*/ meltfptr[2305]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V2307*/ meltfptr[2306]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2324*/ meltfptr[2323])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2324*/ meltfptr[2323]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V2325*/ meltfptr[2324]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V2306*/ meltfptr[2305]); + meltgc_touch(/*_.VALDATA___V2324*/ meltfptr[2323]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2314*/ meltfptr[2313])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2332*/ meltfptr[2331])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2314*/ meltfptr[2313])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2314*/ meltfptr[2313]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V2315*/ meltfptr[2314]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2332*/ meltfptr[2331])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2332*/ meltfptr[2331]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V2333*/ meltfptr[2332]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V2314*/ meltfptr[2313]); + meltgc_touch(/*_.VALDATA___V2332*/ meltfptr[2331]); - MELT_LOCATION("warmelt-first.melt:1817:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:1824:/ initchunk"); /*^cond*/ /*cond*/ if (MELTPREDEFIX(predefinited,CTYPE_GIMPLE_SEQ)) /*then*/ { } else {/*^cond.else*/ /*com.block:fill predef slots*/{ - MELT_LOCATION("warmelt-first.melt:1817:/ putslot"); + MELT_LOCATION("warmelt-first.melt:1824:/ putslot"); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2316*/ meltfptr[2315])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2334*/ meltfptr[2333])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2316*/ meltfptr[2315])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2316*/ meltfptr[2315]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V2317*/ meltfptr[2316]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2334*/ meltfptr[2333])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2334*/ meltfptr[2333]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V2335*/ meltfptr[2334]); ; /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2316*/ meltfptr[2315])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2334*/ meltfptr[2333])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2316*/ meltfptr[2315])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2316*/ meltfptr[2315]))->obj_vartab[2] = (melt_ptr_t)( - /*_.VALDATA___V2318*/ meltfptr[2317]); + melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2334*/ meltfptr[2333])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2334*/ meltfptr[2333]))->obj_vartab[2] = (melt_ptr_t)( + /*_.VALDATA___V2336*/ meltfptr[2335]); ; /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2316*/ meltfptr[2315])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2334*/ meltfptr[2333])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2316*/ meltfptr[2315])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2316*/ meltfptr[2315]))->obj_vartab[3] = (melt_ptr_t)( - /*_.VALSTR___V2320*/ meltfptr[2319]); + melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2334*/ meltfptr[2333])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2334*/ meltfptr[2333]))->obj_vartab[3] = (melt_ptr_t)( + /*_.VALSTR___V2338*/ meltfptr[2337]); ; /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2316*/ meltfptr[2315])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2334*/ meltfptr[2333])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2316*/ meltfptr[2315])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2316*/ meltfptr[2315]))->obj_vartab[4] = (melt_ptr_t)( - /*_.VALSTR___V2321*/ meltfptr[2320]); + melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2334*/ meltfptr[2333])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2334*/ meltfptr[2333]))->obj_vartab[4] = (melt_ptr_t)( + /*_.VALSTR___V2339*/ meltfptr[2338]); ; /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2316*/ meltfptr[2315])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2334*/ meltfptr[2333])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2316*/ meltfptr[2315])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2316*/ meltfptr[2315]))->obj_vartab[5] = (melt_ptr_t)( - /*_.VALSTR___V2322*/ meltfptr[2321]); + melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2334*/ meltfptr[2333])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2334*/ meltfptr[2333]))->obj_vartab[5] = (melt_ptr_t)( + /*_.VALSTR___V2340*/ meltfptr[2339]); ; /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2316*/ meltfptr[2315])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2334*/ meltfptr[2333])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2316*/ meltfptr[2315])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2316*/ meltfptr[2315]))->obj_vartab[6] = (melt_ptr_t)( - /*_.VALSTR___V2323*/ meltfptr[2322]); + melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2334*/ meltfptr[2333])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2334*/ meltfptr[2333]))->obj_vartab[6] = (melt_ptr_t)( + /*_.VALSTR___V2341*/ meltfptr[2340]); ; /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2316*/ meltfptr[2315])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2334*/ meltfptr[2333])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (7>=0 && 7< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2316*/ meltfptr[2315])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2316*/ meltfptr[2315]))->obj_vartab[7] = (melt_ptr_t)( - /*_.VALSTR___V2324*/ meltfptr[2323]); + melt_assertmsg("putslot checkoff", (7>=0 && 7< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2334*/ meltfptr[2333])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2334*/ meltfptr[2333]))->obj_vartab[7] = (melt_ptr_t)( + /*_.VALSTR___V2342*/ meltfptr[2341]); ; /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2316*/ meltfptr[2315])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2334*/ meltfptr[2333])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (8>=0 && 8< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2316*/ meltfptr[2315])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2316*/ meltfptr[2315]))->obj_vartab[8] = (melt_ptr_t)( - /*_.VALSTR___V2325*/ meltfptr[2324]); + melt_assertmsg("putslot checkoff", (8>=0 && 8< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2334*/ meltfptr[2333])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2334*/ meltfptr[2333]))->obj_vartab[8] = (melt_ptr_t)( + /*_.VALSTR___V2343*/ meltfptr[2342]); ; /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V2316*/ meltfptr[2315]); + meltgc_touch(/*_.VALDATA___V2334*/ meltfptr[2333]); ;}/*com.end block:fill predef slots*/ ; } /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2318*/ meltfptr[2317])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2336*/ meltfptr[2335])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2318*/ meltfptr[2317])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2318*/ meltfptr[2317]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V2319*/ meltfptr[2318]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2336*/ meltfptr[2335])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2336*/ meltfptr[2335]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V2337*/ meltfptr[2336]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V2318*/ meltfptr[2317]); + meltgc_touch(/*_.VALDATA___V2336*/ meltfptr[2335]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2326*/ meltfptr[2325])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2344*/ meltfptr[2343])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2326*/ meltfptr[2325])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2326*/ meltfptr[2325]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V2327*/ meltfptr[2326]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2344*/ meltfptr[2343])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2344*/ meltfptr[2343]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V2345*/ meltfptr[2344]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V2326*/ meltfptr[2325]); + meltgc_touch(/*_.VALDATA___V2344*/ meltfptr[2343]); - MELT_LOCATION("warmelt-first.melt:1834:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:1841:/ initchunk"); /*^cond*/ /*cond*/ if (MELTPREDEFIX(predefinited,CTYPE_BASIC_BLOCK)) /*then*/ { } else {/*^cond.else*/ /*com.block:fill predef slots*/{ - MELT_LOCATION("warmelt-first.melt:1834:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2328*/ meltfptr[2327])) == OBMAG_OBJECT); - - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2328*/ meltfptr[2327])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2328*/ meltfptr[2327]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V2329*/ meltfptr[2328]); - ; - /*^putslot*/ - /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2328*/ meltfptr[2327])) == OBMAG_OBJECT); - - melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2328*/ meltfptr[2327])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2328*/ meltfptr[2327]))->obj_vartab[2] = (melt_ptr_t)( - /*_.VALDATA___V2330*/ meltfptr[2329]); - ; - /*^putslot*/ - /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2328*/ meltfptr[2327])) == OBMAG_OBJECT); - - melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2328*/ meltfptr[2327])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2328*/ meltfptr[2327]))->obj_vartab[3] = (melt_ptr_t)( - /*_.VALSTR___V2332*/ meltfptr[2331]); - ; - /*^putslot*/ - /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2328*/ meltfptr[2327])) == OBMAG_OBJECT); - - melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2328*/ meltfptr[2327])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2328*/ meltfptr[2327]))->obj_vartab[4] = (melt_ptr_t)( - /*_.VALSTR___V2333*/ meltfptr[2332]); - ; - /*^putslot*/ - /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2328*/ meltfptr[2327])) == OBMAG_OBJECT); - - melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2328*/ meltfptr[2327])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2328*/ meltfptr[2327]))->obj_vartab[5] = (melt_ptr_t)( - /*_.VALSTR___V2334*/ meltfptr[2333]); - ; - /*^putslot*/ - /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2328*/ meltfptr[2327])) == OBMAG_OBJECT); - - melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2328*/ meltfptr[2327])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2328*/ meltfptr[2327]))->obj_vartab[6] = (melt_ptr_t)( - /*_.VALSTR___V2335*/ meltfptr[2334]); - ; - /*^putslot*/ - /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2328*/ meltfptr[2327])) == OBMAG_OBJECT); - - melt_assertmsg("putslot checkoff", (7>=0 && 7< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2328*/ meltfptr[2327])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2328*/ meltfptr[2327]))->obj_vartab[7] = (melt_ptr_t)( - /*_.VALSTR___V2336*/ meltfptr[2335]); - ; - /*^putslot*/ - /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2328*/ meltfptr[2327])) == OBMAG_OBJECT); - - melt_assertmsg("putslot checkoff", (8>=0 && 8< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2328*/ meltfptr[2327])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2328*/ meltfptr[2327]))->obj_vartab[8] = (melt_ptr_t)( - /*_.VALSTR___V2337*/ meltfptr[2336]); - ; - /*^touch*/ - /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V2328*/ meltfptr[2327]); - ;}/*com.end block:fill predef slots*/ - ; - } - - /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2330*/ meltfptr[2329])) == OBMAG_OBJECT); - - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2330*/ meltfptr[2329])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2330*/ meltfptr[2329]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V2331*/ meltfptr[2330]); - - /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V2330*/ meltfptr[2329]); - - /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2338*/ meltfptr[2337])) == OBMAG_OBJECT); - - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2338*/ meltfptr[2337])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2338*/ meltfptr[2337]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V2339*/ meltfptr[2338]); - - /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V2338*/ meltfptr[2337]); - - MELT_LOCATION("warmelt-first.melt:1851:/ initchunk"); - /*^cond*/ - /*cond*/ if (MELTPREDEFIX(predefinited,CTYPE_EDGE)) /*then*/ { - } else {/*^cond.else*/ - - /*com.block:fill predef slots*/{ - - MELT_LOCATION("warmelt-first.melt:1851:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2340*/ meltfptr[2339])) == OBMAG_OBJECT); - - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2340*/ meltfptr[2339])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2340*/ meltfptr[2339]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V2341*/ meltfptr[2340]); - ; - /*^putslot*/ - /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2340*/ meltfptr[2339])) == OBMAG_OBJECT); - - melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2340*/ meltfptr[2339])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2340*/ meltfptr[2339]))->obj_vartab[2] = (melt_ptr_t)( - /*_.VALDATA___V2342*/ meltfptr[2341]); - ; - /*^putslot*/ - /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2340*/ meltfptr[2339])) == OBMAG_OBJECT); - - melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2340*/ meltfptr[2339])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2340*/ meltfptr[2339]))->obj_vartab[3] = (melt_ptr_t)( - /*_.VALSTR___V2344*/ meltfptr[2343]); - ; - /*^putslot*/ - /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2340*/ meltfptr[2339])) == OBMAG_OBJECT); - - melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2340*/ meltfptr[2339])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2340*/ meltfptr[2339]))->obj_vartab[4] = (melt_ptr_t)( - /*_.VALSTR___V2345*/ meltfptr[2344]); - ; - /*^putslot*/ - /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2340*/ meltfptr[2339])) == OBMAG_OBJECT); - - melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2340*/ meltfptr[2339])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2340*/ meltfptr[2339]))->obj_vartab[5] = (melt_ptr_t)( - /*_.VALSTR___V2346*/ meltfptr[2345]); - ; - /*^putslot*/ + MELT_LOCATION("warmelt-first.melt:1841:/ putslot"); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2340*/ meltfptr[2339])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2346*/ meltfptr[2345])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2340*/ meltfptr[2339])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2340*/ meltfptr[2339]))->obj_vartab[6] = (melt_ptr_t)( + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2346*/ meltfptr[2345])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2346*/ meltfptr[2345]))->obj_vartab[1] = (melt_ptr_t)( /*_.VALSTR___V2347*/ meltfptr[2346]); ; /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2340*/ meltfptr[2339])) == OBMAG_OBJECT); - - melt_assertmsg("putslot checkoff", (7>=0 && 7< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2340*/ meltfptr[2339])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2340*/ meltfptr[2339]))->obj_vartab[7] = (melt_ptr_t)( - /*_.VALSTR___V2348*/ meltfptr[2347]); - ; - /*^putslot*/ - /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2340*/ meltfptr[2339])) == OBMAG_OBJECT); - - melt_assertmsg("putslot checkoff", (8>=0 && 8< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2340*/ meltfptr[2339])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2340*/ meltfptr[2339]))->obj_vartab[8] = (melt_ptr_t)( - /*_.VALSTR___V2349*/ meltfptr[2348]); - ; - /*^touch*/ - /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V2340*/ meltfptr[2339]); - ;}/*com.end block:fill predef slots*/ - ; - } - - /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2342*/ meltfptr[2341])) == OBMAG_OBJECT); - - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2342*/ meltfptr[2341])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2342*/ meltfptr[2341]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V2343*/ meltfptr[2342]); - - /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V2342*/ meltfptr[2341]); - - /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2350*/ meltfptr[2349])) == OBMAG_OBJECT); - - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2350*/ meltfptr[2349])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2350*/ meltfptr[2349]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V2351*/ meltfptr[2350]); - - /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V2350*/ meltfptr[2349]); - - MELT_LOCATION("warmelt-first.melt:1867:/ initchunk"); - /*^cond*/ - /*cond*/ if (MELTPREDEFIX(predefinited,CTYPE_PPL_COEFFICIENT)) /*then*/ { - } else {/*^cond.else*/ - - /*com.block:fill predef slots*/{ - - MELT_LOCATION("warmelt-first.melt:1867:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2352*/ meltfptr[2351])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2346*/ meltfptr[2345])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2352*/ meltfptr[2351])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2352*/ meltfptr[2351]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V2353*/ meltfptr[2352]); + melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2346*/ meltfptr[2345])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2346*/ meltfptr[2345]))->obj_vartab[2] = (melt_ptr_t)( + /*_.VALDATA___V2348*/ meltfptr[2347]); ; /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2352*/ meltfptr[2351])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2346*/ meltfptr[2345])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2352*/ meltfptr[2351])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2352*/ meltfptr[2351]))->obj_vartab[2] = (melt_ptr_t)( - /*_.VALDATA___V2354*/ meltfptr[2353]); + melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2346*/ meltfptr[2345])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2346*/ meltfptr[2345]))->obj_vartab[3] = (melt_ptr_t)( + /*_.VALSTR___V2350*/ meltfptr[2349]); ; /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2352*/ meltfptr[2351])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2346*/ meltfptr[2345])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2352*/ meltfptr[2351])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2352*/ meltfptr[2351]))->obj_vartab[3] = (melt_ptr_t)( - /*_.VALSTR___V2356*/ meltfptr[2355]); + melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2346*/ meltfptr[2345])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2346*/ meltfptr[2345]))->obj_vartab[4] = (melt_ptr_t)( + /*_.VALSTR___V2351*/ meltfptr[2350]); ; /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2352*/ meltfptr[2351])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2346*/ meltfptr[2345])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2352*/ meltfptr[2351])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2352*/ meltfptr[2351]))->obj_vartab[4] = (melt_ptr_t)( - /*_.VALSTR___V2357*/ meltfptr[2356]); + melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2346*/ meltfptr[2345])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2346*/ meltfptr[2345]))->obj_vartab[5] = (melt_ptr_t)( + /*_.VALSTR___V2352*/ meltfptr[2351]); ; /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2352*/ meltfptr[2351])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2346*/ meltfptr[2345])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2352*/ meltfptr[2351])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2352*/ meltfptr[2351]))->obj_vartab[5] = (melt_ptr_t)( - /*_.VALSTR___V2358*/ meltfptr[2357]); + melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2346*/ meltfptr[2345])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2346*/ meltfptr[2345]))->obj_vartab[6] = (melt_ptr_t)( + /*_.VALSTR___V2353*/ meltfptr[2352]); ; /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2352*/ meltfptr[2351])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2346*/ meltfptr[2345])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2352*/ meltfptr[2351])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2352*/ meltfptr[2351]))->obj_vartab[6] = (melt_ptr_t)( - /*_.VALSTR___V2359*/ meltfptr[2358]); + melt_assertmsg("putslot checkoff", (7>=0 && 7< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2346*/ meltfptr[2345])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2346*/ meltfptr[2345]))->obj_vartab[7] = (melt_ptr_t)( + /*_.VALSTR___V2354*/ meltfptr[2353]); ; /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2352*/ meltfptr[2351])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2346*/ meltfptr[2345])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (7>=0 && 7< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2352*/ meltfptr[2351])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2352*/ meltfptr[2351]))->obj_vartab[7] = (melt_ptr_t)( - /*_.VALSTR___V2360*/ meltfptr[2359]); + melt_assertmsg("putslot checkoff", (8>=0 && 8< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2346*/ meltfptr[2345])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2346*/ meltfptr[2345]))->obj_vartab[8] = (melt_ptr_t)( + /*_.VALSTR___V2355*/ meltfptr[2354]); ; /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V2352*/ meltfptr[2351]); + meltgc_touch(/*_.VALDATA___V2346*/ meltfptr[2345]); ;}/*com.end block:fill predef slots*/ ; } /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2354*/ meltfptr[2353])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2348*/ meltfptr[2347])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2354*/ meltfptr[2353])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2354*/ meltfptr[2353]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V2355*/ meltfptr[2354]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2348*/ meltfptr[2347])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2348*/ meltfptr[2347]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V2349*/ meltfptr[2348]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V2354*/ meltfptr[2353]); + meltgc_touch(/*_.VALDATA___V2348*/ meltfptr[2347]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2361*/ meltfptr[2360])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2356*/ meltfptr[2355])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2361*/ meltfptr[2360])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2361*/ meltfptr[2360]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V2362*/ meltfptr[2361]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2356*/ meltfptr[2355])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2356*/ meltfptr[2355]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V2357*/ meltfptr[2356]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V2361*/ meltfptr[2360]); + meltgc_touch(/*_.VALDATA___V2356*/ meltfptr[2355]); - MELT_LOCATION("warmelt-first.melt:1882:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:1858:/ initchunk"); /*^cond*/ - /*cond*/ if (MELTPREDEFIX(predefinited,CTYPE_PPL_LINEAR_EXPRESSION)) /*then*/ { + /*cond*/ if (MELTPREDEFIX(predefinited,CTYPE_EDGE)) /*then*/ { } else {/*^cond.else*/ /*com.block:fill predef slots*/{ - MELT_LOCATION("warmelt-first.melt:1882:/ putslot"); + MELT_LOCATION("warmelt-first.melt:1858:/ putslot"); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2363*/ meltfptr[2362])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2358*/ meltfptr[2357])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2363*/ meltfptr[2362])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2363*/ meltfptr[2362]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V2364*/ meltfptr[2363]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2358*/ meltfptr[2357])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2358*/ meltfptr[2357]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V2359*/ meltfptr[2358]); ; /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2363*/ meltfptr[2362])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2358*/ meltfptr[2357])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2363*/ meltfptr[2362])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2363*/ meltfptr[2362]))->obj_vartab[2] = (melt_ptr_t)( - /*_.VALDATA___V2365*/ meltfptr[2364]); + melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2358*/ meltfptr[2357])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2358*/ meltfptr[2357]))->obj_vartab[2] = (melt_ptr_t)( + /*_.VALDATA___V2360*/ meltfptr[2359]); ; /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2363*/ meltfptr[2362])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2358*/ meltfptr[2357])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2363*/ meltfptr[2362])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2363*/ meltfptr[2362]))->obj_vartab[3] = (melt_ptr_t)( - /*_.VALSTR___V2367*/ meltfptr[2366]); + melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2358*/ meltfptr[2357])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2358*/ meltfptr[2357]))->obj_vartab[3] = (melt_ptr_t)( + /*_.VALSTR___V2362*/ meltfptr[2361]); ; /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2363*/ meltfptr[2362])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2358*/ meltfptr[2357])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2363*/ meltfptr[2362])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2363*/ meltfptr[2362]))->obj_vartab[4] = (melt_ptr_t)( - /*_.VALSTR___V2368*/ meltfptr[2367]); + melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2358*/ meltfptr[2357])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2358*/ meltfptr[2357]))->obj_vartab[4] = (melt_ptr_t)( + /*_.VALSTR___V2363*/ meltfptr[2362]); ; /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2363*/ meltfptr[2362])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2358*/ meltfptr[2357])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2363*/ meltfptr[2362])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2363*/ meltfptr[2362]))->obj_vartab[5] = (melt_ptr_t)( - /*_.VALSTR___V2369*/ meltfptr[2368]); + melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2358*/ meltfptr[2357])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2358*/ meltfptr[2357]))->obj_vartab[5] = (melt_ptr_t)( + /*_.VALSTR___V2364*/ meltfptr[2363]); ; /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2363*/ meltfptr[2362])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2358*/ meltfptr[2357])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2363*/ meltfptr[2362])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2363*/ meltfptr[2362]))->obj_vartab[6] = (melt_ptr_t)( - /*_.VALSTR___V2370*/ meltfptr[2369]); + melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2358*/ meltfptr[2357])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2358*/ meltfptr[2357]))->obj_vartab[6] = (melt_ptr_t)( + /*_.VALSTR___V2365*/ meltfptr[2364]); ; /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2363*/ meltfptr[2362])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2358*/ meltfptr[2357])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (7>=0 && 7< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2363*/ meltfptr[2362])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2363*/ meltfptr[2362]))->obj_vartab[7] = (melt_ptr_t)( - /*_.VALSTR___V2371*/ meltfptr[2370]); + melt_assertmsg("putslot checkoff", (7>=0 && 7< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2358*/ meltfptr[2357])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2358*/ meltfptr[2357]))->obj_vartab[7] = (melt_ptr_t)( + /*_.VALSTR___V2366*/ meltfptr[2365]); + ; + /*^putslot*/ + /*putslot*/ + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2358*/ meltfptr[2357])) == OBMAG_OBJECT); + + melt_assertmsg("putslot checkoff", (8>=0 && 8< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2358*/ meltfptr[2357])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2358*/ meltfptr[2357]))->obj_vartab[8] = (melt_ptr_t)( + /*_.VALSTR___V2367*/ meltfptr[2366]); ; /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V2363*/ meltfptr[2362]); + meltgc_touch(/*_.VALDATA___V2358*/ meltfptr[2357]); ;}/*com.end block:fill predef slots*/ ; } /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2365*/ meltfptr[2364])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2360*/ meltfptr[2359])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2365*/ meltfptr[2364])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2365*/ meltfptr[2364]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V2366*/ meltfptr[2365]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2360*/ meltfptr[2359])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2360*/ meltfptr[2359]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V2361*/ meltfptr[2360]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V2365*/ meltfptr[2364]); + meltgc_touch(/*_.VALDATA___V2360*/ meltfptr[2359]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2372*/ meltfptr[2371])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2368*/ meltfptr[2367])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2372*/ meltfptr[2371])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2372*/ meltfptr[2371]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V2373*/ meltfptr[2372]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2368*/ meltfptr[2367])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2368*/ meltfptr[2367]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V2369*/ meltfptr[2368]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V2372*/ meltfptr[2371]); + meltgc_touch(/*_.VALDATA___V2368*/ meltfptr[2367]); - MELT_LOCATION("warmelt-first.melt:1897:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:1874:/ initchunk"); /*^cond*/ - /*cond*/ if (MELTPREDEFIX(predefinited,CTYPE_PPL_CONSTRAINT)) /*then*/ { + /*cond*/ if (MELTPREDEFIX(predefinited,CTYPE_PPL_COEFFICIENT)) /*then*/ { } else {/*^cond.else*/ /*com.block:fill predef slots*/{ - MELT_LOCATION("warmelt-first.melt:1897:/ putslot"); + MELT_LOCATION("warmelt-first.melt:1874:/ putslot"); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2374*/ meltfptr[2373])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2370*/ meltfptr[2369])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2374*/ meltfptr[2373])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2374*/ meltfptr[2373]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V2375*/ meltfptr[2374]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2370*/ meltfptr[2369])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2370*/ meltfptr[2369]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V2371*/ meltfptr[2370]); ; /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2374*/ meltfptr[2373])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2370*/ meltfptr[2369])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2374*/ meltfptr[2373])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2374*/ meltfptr[2373]))->obj_vartab[2] = (melt_ptr_t)( - /*_.VALDATA___V2376*/ meltfptr[2375]); + melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2370*/ meltfptr[2369])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2370*/ meltfptr[2369]))->obj_vartab[2] = (melt_ptr_t)( + /*_.VALDATA___V2372*/ meltfptr[2371]); ; /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2374*/ meltfptr[2373])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2370*/ meltfptr[2369])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2374*/ meltfptr[2373])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2374*/ meltfptr[2373]))->obj_vartab[3] = (melt_ptr_t)( - /*_.VALSTR___V2378*/ meltfptr[2377]); + melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2370*/ meltfptr[2369])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2370*/ meltfptr[2369]))->obj_vartab[3] = (melt_ptr_t)( + /*_.VALSTR___V2374*/ meltfptr[2373]); ; /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2374*/ meltfptr[2373])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2370*/ meltfptr[2369])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2374*/ meltfptr[2373])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2374*/ meltfptr[2373]))->obj_vartab[4] = (melt_ptr_t)( - /*_.VALSTR___V2379*/ meltfptr[2378]); + melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2370*/ meltfptr[2369])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2370*/ meltfptr[2369]))->obj_vartab[4] = (melt_ptr_t)( + /*_.VALSTR___V2375*/ meltfptr[2374]); ; /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2374*/ meltfptr[2373])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2370*/ meltfptr[2369])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2374*/ meltfptr[2373])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2374*/ meltfptr[2373]))->obj_vartab[5] = (melt_ptr_t)( - /*_.VALSTR___V2380*/ meltfptr[2379]); + melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2370*/ meltfptr[2369])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2370*/ meltfptr[2369]))->obj_vartab[5] = (melt_ptr_t)( + /*_.VALSTR___V2376*/ meltfptr[2375]); ; /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2374*/ meltfptr[2373])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2370*/ meltfptr[2369])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2374*/ meltfptr[2373])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2374*/ meltfptr[2373]))->obj_vartab[6] = (melt_ptr_t)( - /*_.VALSTR___V2381*/ meltfptr[2380]); + melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2370*/ meltfptr[2369])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2370*/ meltfptr[2369]))->obj_vartab[6] = (melt_ptr_t)( + /*_.VALSTR___V2377*/ meltfptr[2376]); ; /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2374*/ meltfptr[2373])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2370*/ meltfptr[2369])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (7>=0 && 7< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2374*/ meltfptr[2373])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2374*/ meltfptr[2373]))->obj_vartab[7] = (melt_ptr_t)( - /*_.VALSTR___V2382*/ meltfptr[2381]); + melt_assertmsg("putslot checkoff", (7>=0 && 7< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2370*/ meltfptr[2369])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2370*/ meltfptr[2369]))->obj_vartab[7] = (melt_ptr_t)( + /*_.VALSTR___V2378*/ meltfptr[2377]); ; /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V2374*/ meltfptr[2373]); + meltgc_touch(/*_.VALDATA___V2370*/ meltfptr[2369]); ;}/*com.end block:fill predef slots*/ ; } /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2376*/ meltfptr[2375])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2372*/ meltfptr[2371])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2376*/ meltfptr[2375])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2376*/ meltfptr[2375]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V2377*/ meltfptr[2376]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2372*/ meltfptr[2371])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2372*/ meltfptr[2371]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V2373*/ meltfptr[2372]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V2376*/ meltfptr[2375]); + meltgc_touch(/*_.VALDATA___V2372*/ meltfptr[2371]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2383*/ meltfptr[2382])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2379*/ meltfptr[2378])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2383*/ meltfptr[2382])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2383*/ meltfptr[2382]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V2384*/ meltfptr[2383]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2379*/ meltfptr[2378])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2379*/ meltfptr[2378]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V2380*/ meltfptr[2379]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V2383*/ meltfptr[2382]); + meltgc_touch(/*_.VALDATA___V2379*/ meltfptr[2378]); - MELT_LOCATION("warmelt-first.melt:1912:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:1889:/ initchunk"); /*^cond*/ - /*cond*/ if (MELTPREDEFIX(predefinited,CTYPE_PPL_CONSTRAINT_SYSTEM)) /*then*/ { + /*cond*/ if (MELTPREDEFIX(predefinited,CTYPE_PPL_LINEAR_EXPRESSION)) /*then*/ { } else {/*^cond.else*/ /*com.block:fill predef slots*/{ - MELT_LOCATION("warmelt-first.melt:1912:/ putslot"); + MELT_LOCATION("warmelt-first.melt:1889:/ putslot"); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2385*/ meltfptr[2384])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2381*/ meltfptr[2380])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2385*/ meltfptr[2384])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2385*/ meltfptr[2384]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V2386*/ meltfptr[2385]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2381*/ meltfptr[2380])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2381*/ meltfptr[2380]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V2382*/ meltfptr[2381]); ; /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2385*/ meltfptr[2384])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2381*/ meltfptr[2380])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2385*/ meltfptr[2384])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2385*/ meltfptr[2384]))->obj_vartab[2] = (melt_ptr_t)( - /*_.VALDATA___V2387*/ meltfptr[2386]); + melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2381*/ meltfptr[2380])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2381*/ meltfptr[2380]))->obj_vartab[2] = (melt_ptr_t)( + /*_.VALDATA___V2383*/ meltfptr[2382]); ; /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2385*/ meltfptr[2384])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2381*/ meltfptr[2380])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2385*/ meltfptr[2384])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2385*/ meltfptr[2384]))->obj_vartab[3] = (melt_ptr_t)( - /*_.VALSTR___V2389*/ meltfptr[2388]); + melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2381*/ meltfptr[2380])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2381*/ meltfptr[2380]))->obj_vartab[3] = (melt_ptr_t)( + /*_.VALSTR___V2385*/ meltfptr[2384]); ; /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2385*/ meltfptr[2384])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2381*/ meltfptr[2380])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2385*/ meltfptr[2384])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2385*/ meltfptr[2384]))->obj_vartab[4] = (melt_ptr_t)( - /*_.VALSTR___V2390*/ meltfptr[2389]); + melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2381*/ meltfptr[2380])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2381*/ meltfptr[2380]))->obj_vartab[4] = (melt_ptr_t)( + /*_.VALSTR___V2386*/ meltfptr[2385]); ; /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2385*/ meltfptr[2384])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2381*/ meltfptr[2380])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2385*/ meltfptr[2384])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2385*/ meltfptr[2384]))->obj_vartab[5] = (melt_ptr_t)( - /*_.VALSTR___V2391*/ meltfptr[2390]); + melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2381*/ meltfptr[2380])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2381*/ meltfptr[2380]))->obj_vartab[5] = (melt_ptr_t)( + /*_.VALSTR___V2387*/ meltfptr[2386]); ; /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2385*/ meltfptr[2384])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2381*/ meltfptr[2380])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2385*/ meltfptr[2384])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2385*/ meltfptr[2384]))->obj_vartab[6] = (melt_ptr_t)( - /*_.VALSTR___V2392*/ meltfptr[2391]); + melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2381*/ meltfptr[2380])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2381*/ meltfptr[2380]))->obj_vartab[6] = (melt_ptr_t)( + /*_.VALSTR___V2388*/ meltfptr[2387]); ; /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2385*/ meltfptr[2384])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2381*/ meltfptr[2380])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (7>=0 && 7< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2385*/ meltfptr[2384])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2385*/ meltfptr[2384]))->obj_vartab[7] = (melt_ptr_t)( - /*_.VALSTR___V2393*/ meltfptr[2392]); + melt_assertmsg("putslot checkoff", (7>=0 && 7< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2381*/ meltfptr[2380])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2381*/ meltfptr[2380]))->obj_vartab[7] = (melt_ptr_t)( + /*_.VALSTR___V2389*/ meltfptr[2388]); ; /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V2385*/ meltfptr[2384]); + meltgc_touch(/*_.VALDATA___V2381*/ meltfptr[2380]); ;}/*com.end block:fill predef slots*/ ; } /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2387*/ meltfptr[2386])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2383*/ meltfptr[2382])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2387*/ meltfptr[2386])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2387*/ meltfptr[2386]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V2388*/ meltfptr[2387]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2383*/ meltfptr[2382])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2383*/ meltfptr[2382]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V2384*/ meltfptr[2383]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V2387*/ meltfptr[2386]); + meltgc_touch(/*_.VALDATA___V2383*/ meltfptr[2382]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2394*/ meltfptr[2393])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2390*/ meltfptr[2389])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2394*/ meltfptr[2393])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2394*/ meltfptr[2393]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V2395*/ meltfptr[2394]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2390*/ meltfptr[2389])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2390*/ meltfptr[2389]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V2391*/ meltfptr[2390]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V2394*/ meltfptr[2393]); + meltgc_touch(/*_.VALDATA___V2390*/ meltfptr[2389]); - MELT_LOCATION("warmelt-first.melt:1927:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:1904:/ initchunk"); /*^cond*/ - /*cond*/ if (MELTPREDEFIX(predefinited,CTYPE_PPL_POLYHEDRON)) /*then*/ { + /*cond*/ if (MELTPREDEFIX(predefinited,CTYPE_PPL_CONSTRAINT)) /*then*/ { } else {/*^cond.else*/ /*com.block:fill predef slots*/{ - MELT_LOCATION("warmelt-first.melt:1927:/ putslot"); + MELT_LOCATION("warmelt-first.melt:1904:/ putslot"); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2396*/ meltfptr[2395])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2392*/ meltfptr[2391])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2396*/ meltfptr[2395])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2396*/ meltfptr[2395]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V2397*/ meltfptr[2396]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2392*/ meltfptr[2391])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2392*/ meltfptr[2391]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V2393*/ meltfptr[2392]); ; /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2396*/ meltfptr[2395])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2392*/ meltfptr[2391])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2396*/ meltfptr[2395])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2396*/ meltfptr[2395]))->obj_vartab[2] = (melt_ptr_t)( - /*_.VALDATA___V2398*/ meltfptr[2397]); + melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2392*/ meltfptr[2391])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2392*/ meltfptr[2391]))->obj_vartab[2] = (melt_ptr_t)( + /*_.VALDATA___V2394*/ meltfptr[2393]); ; /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2396*/ meltfptr[2395])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2392*/ meltfptr[2391])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2396*/ meltfptr[2395])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2396*/ meltfptr[2395]))->obj_vartab[3] = (melt_ptr_t)( - /*_.VALSTR___V2400*/ meltfptr[2399]); + melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2392*/ meltfptr[2391])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2392*/ meltfptr[2391]))->obj_vartab[3] = (melt_ptr_t)( + /*_.VALSTR___V2396*/ meltfptr[2395]); ; /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2396*/ meltfptr[2395])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2392*/ meltfptr[2391])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2396*/ meltfptr[2395])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2396*/ meltfptr[2395]))->obj_vartab[4] = (melt_ptr_t)( - /*_.VALSTR___V2401*/ meltfptr[2400]); + melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2392*/ meltfptr[2391])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2392*/ meltfptr[2391]))->obj_vartab[4] = (melt_ptr_t)( + /*_.VALSTR___V2397*/ meltfptr[2396]); ; /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2396*/ meltfptr[2395])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2392*/ meltfptr[2391])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2396*/ meltfptr[2395])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2396*/ meltfptr[2395]))->obj_vartab[5] = (melt_ptr_t)( - /*_.VALSTR___V2402*/ meltfptr[2401]); + melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2392*/ meltfptr[2391])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2392*/ meltfptr[2391]))->obj_vartab[5] = (melt_ptr_t)( + /*_.VALSTR___V2398*/ meltfptr[2397]); ; /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2396*/ meltfptr[2395])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2392*/ meltfptr[2391])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2396*/ meltfptr[2395])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2396*/ meltfptr[2395]))->obj_vartab[6] = (melt_ptr_t)( - /*_.VALSTR___V2403*/ meltfptr[2402]); + melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2392*/ meltfptr[2391])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2392*/ meltfptr[2391]))->obj_vartab[6] = (melt_ptr_t)( + /*_.VALSTR___V2399*/ meltfptr[2398]); ; /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2396*/ meltfptr[2395])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2392*/ meltfptr[2391])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (7>=0 && 7< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2396*/ meltfptr[2395])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2396*/ meltfptr[2395]))->obj_vartab[7] = (melt_ptr_t)( - /*_.VALSTR___V2404*/ meltfptr[2403]); + melt_assertmsg("putslot checkoff", (7>=0 && 7< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2392*/ meltfptr[2391])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2392*/ meltfptr[2391]))->obj_vartab[7] = (melt_ptr_t)( + /*_.VALSTR___V2400*/ meltfptr[2399]); ; /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V2396*/ meltfptr[2395]); + meltgc_touch(/*_.VALDATA___V2392*/ meltfptr[2391]); ;}/*com.end block:fill predef slots*/ ; } /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2398*/ meltfptr[2397])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2394*/ meltfptr[2393])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2398*/ meltfptr[2397])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2398*/ meltfptr[2397]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V2399*/ meltfptr[2398]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2394*/ meltfptr[2393])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2394*/ meltfptr[2393]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V2395*/ meltfptr[2394]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V2398*/ meltfptr[2397]); + meltgc_touch(/*_.VALDATA___V2394*/ meltfptr[2393]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2405*/ meltfptr[2404])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2401*/ meltfptr[2400])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2405*/ meltfptr[2404])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2405*/ meltfptr[2404]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V2406*/ meltfptr[2405]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2401*/ meltfptr[2400])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2401*/ meltfptr[2400]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V2402*/ meltfptr[2401]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V2405*/ meltfptr[2404]); + meltgc_touch(/*_.VALDATA___V2401*/ meltfptr[2400]); - MELT_LOCATION("warmelt-first.melt:1943:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:1919:/ initchunk"); /*^cond*/ - /*cond*/ if (MELTPREDEFIX(predefinited,CTYPE_VOID)) /*then*/ { + /*cond*/ if (MELTPREDEFIX(predefinited,CTYPE_PPL_CONSTRAINT_SYSTEM)) /*then*/ { } else {/*^cond.else*/ /*com.block:fill predef slots*/{ - MELT_LOCATION("warmelt-first.melt:1943:/ putslot"); + MELT_LOCATION("warmelt-first.melt:1919:/ putslot"); + /*putslot*/ + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2403*/ meltfptr[2402])) == OBMAG_OBJECT); + + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2403*/ meltfptr[2402])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2403*/ meltfptr[2402]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V2404*/ meltfptr[2403]); + ; + /*^putslot*/ + /*putslot*/ + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2403*/ meltfptr[2402])) == OBMAG_OBJECT); + + melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2403*/ meltfptr[2402])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2403*/ meltfptr[2402]))->obj_vartab[2] = (melt_ptr_t)( + /*_.VALDATA___V2405*/ meltfptr[2404]); + ; + /*^putslot*/ + /*putslot*/ + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2403*/ meltfptr[2402])) == OBMAG_OBJECT); + + melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2403*/ meltfptr[2402])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2403*/ meltfptr[2402]))->obj_vartab[3] = (melt_ptr_t)( + /*_.VALSTR___V2407*/ meltfptr[2406]); + ; + /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2407*/ meltfptr[2406])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2403*/ meltfptr[2402])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2407*/ meltfptr[2406])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2407*/ meltfptr[2406]))->obj_vartab[1] = (melt_ptr_t)( + melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2403*/ meltfptr[2402])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2403*/ meltfptr[2402]))->obj_vartab[4] = (melt_ptr_t)( /*_.VALSTR___V2408*/ meltfptr[2407]); ; /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2407*/ meltfptr[2406])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2403*/ meltfptr[2402])) == OBMAG_OBJECT); + + melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2403*/ meltfptr[2402])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2403*/ meltfptr[2402]))->obj_vartab[5] = (melt_ptr_t)( + /*_.VALSTR___V2409*/ meltfptr[2408]); + ; + /*^putslot*/ + /*putslot*/ + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2403*/ meltfptr[2402])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2407*/ meltfptr[2406])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2407*/ meltfptr[2406]))->obj_vartab[2] = (melt_ptr_t)( - /*_.VALDATA___V2409*/ meltfptr[2408]); + melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2403*/ meltfptr[2402])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2403*/ meltfptr[2402]))->obj_vartab[6] = (melt_ptr_t)( + /*_.VALSTR___V2410*/ meltfptr[2409]); ; /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2407*/ meltfptr[2406])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2403*/ meltfptr[2402])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2407*/ meltfptr[2406])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2407*/ meltfptr[2406]))->obj_vartab[3] = (melt_ptr_t)( + melt_assertmsg("putslot checkoff", (7>=0 && 7< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2403*/ meltfptr[2402])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2403*/ meltfptr[2402]))->obj_vartab[7] = (melt_ptr_t)( /*_.VALSTR___V2411*/ meltfptr[2410]); ; /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V2407*/ meltfptr[2406]); + meltgc_touch(/*_.VALDATA___V2403*/ meltfptr[2402]); ;}/*com.end block:fill predef slots*/ ; } /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2409*/ meltfptr[2408])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2405*/ meltfptr[2404])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2409*/ meltfptr[2408])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2409*/ meltfptr[2408]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V2410*/ meltfptr[2409]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2405*/ meltfptr[2404])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2405*/ meltfptr[2404]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V2406*/ meltfptr[2405]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V2409*/ meltfptr[2408]); + meltgc_touch(/*_.VALDATA___V2405*/ meltfptr[2404]); /*putslot*/ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2412*/ meltfptr[2411])) == OBMAG_OBJECT); @@ -58478,24 +58672,20 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_15 (struct frame_star /*touch:VALUEDATA_*/ meltgc_touch(/*_.VALDATA___V2412*/ meltfptr[2411]); - MELT_LOCATION("warmelt-first.melt:1955:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:1934:/ initchunk"); /*^cond*/ - /*cond*/ if (MELTPREDEFIX(predefinited,CTYPE_CSTRING)) /*then*/ { + /*cond*/ if (MELTPREDEFIX(predefinited,CTYPE_PPL_POLYHEDRON)) /*then*/ { } else {/*^cond.else*/ /*com.block:fill predef slots*/{ - /*^compute*/ - - /*_.STRINGCONST2VAL__V2415*/ meltfptr[2414] = - meltgc_new_string((meltobject_ptr_t)(/*_.VALDATA___V2119*/ meltfptr[2118]), ( "const char*"));; - MELT_LOCATION("warmelt-first.melt:1955:/ putslot"); + MELT_LOCATION("warmelt-first.melt:1934:/ putslot"); /*putslot*/ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2414*/ meltfptr[2413])) == OBMAG_OBJECT); melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2414*/ meltfptr[2413])))); ((meltobject_ptr_t)(/*_.VALDATA___V2414*/ meltfptr[2413]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V2416*/ meltfptr[2415]); + /*_.VALSTR___V2415*/ meltfptr[2414]); ; /*^putslot*/ /*putslot*/ @@ -58503,7 +58693,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_15 (struct frame_star melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2414*/ meltfptr[2413])))); ((meltobject_ptr_t)(/*_.VALDATA___V2414*/ meltfptr[2413]))->obj_vartab[2] = (melt_ptr_t)( - /*_.VALDATA___V2417*/ meltfptr[2416]); + /*_.VALDATA___V2416*/ meltfptr[2415]); ; /*^putslot*/ /*putslot*/ @@ -58511,7 +58701,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_15 (struct frame_star melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2414*/ meltfptr[2413])))); ((meltobject_ptr_t)(/*_.VALDATA___V2414*/ meltfptr[2413]))->obj_vartab[3] = (melt_ptr_t)( - /*_.STRINGCONST2VAL__V2415*/ meltfptr[2414]); + /*_.VALSTR___V2418*/ meltfptr[2417]); ; /*^putslot*/ /*putslot*/ @@ -58537,6 +58727,14 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_15 (struct frame_star ((meltobject_ptr_t)(/*_.VALDATA___V2414*/ meltfptr[2413]))->obj_vartab[6] = (melt_ptr_t)( /*_.VALSTR___V2421*/ meltfptr[2420]); ; + /*^putslot*/ + /*putslot*/ + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2414*/ meltfptr[2413])) == OBMAG_OBJECT); + + melt_assertmsg("putslot checkoff", (7>=0 && 7< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2414*/ meltfptr[2413])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2414*/ meltfptr[2413]))->obj_vartab[7] = (melt_ptr_t)( + /*_.VALSTR___V2422*/ meltfptr[2421]); + ; /*^touch*/ /*touch:VALUEDATA_*/ meltgc_touch(/*_.VALDATA___V2414*/ meltfptr[2413]); @@ -58545,164 +58743,308 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_15 (struct frame_star } /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2417*/ meltfptr[2416])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2416*/ meltfptr[2415])) == OBMAG_OBJECT); + + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2416*/ meltfptr[2415])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2416*/ meltfptr[2415]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V2417*/ meltfptr[2416]); + + /*touch:VALUEDATA_*/ + meltgc_touch(/*_.VALDATA___V2416*/ meltfptr[2415]); + + /*putslot*/ + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2423*/ meltfptr[2422])) == OBMAG_OBJECT); + + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2423*/ meltfptr[2422])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2423*/ meltfptr[2422]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V2424*/ meltfptr[2423]); + + /*touch:VALUEDATA_*/ + meltgc_touch(/*_.VALDATA___V2423*/ meltfptr[2422]); + + MELT_LOCATION("warmelt-first.melt:1950:/ initchunk"); + /*^cond*/ + /*cond*/ if (MELTPREDEFIX(predefinited,CTYPE_VOID)) /*then*/ { + } else {/*^cond.else*/ + + /*com.block:fill predef slots*/{ + + MELT_LOCATION("warmelt-first.melt:1950:/ putslot"); + /*putslot*/ + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2425*/ meltfptr[2424])) == OBMAG_OBJECT); + + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2425*/ meltfptr[2424])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2425*/ meltfptr[2424]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V2426*/ meltfptr[2425]); + ; + /*^putslot*/ + /*putslot*/ + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2425*/ meltfptr[2424])) == OBMAG_OBJECT); + + melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2425*/ meltfptr[2424])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2425*/ meltfptr[2424]))->obj_vartab[2] = (melt_ptr_t)( + /*_.VALDATA___V2427*/ meltfptr[2426]); + ; + /*^putslot*/ + /*putslot*/ + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2425*/ meltfptr[2424])) == OBMAG_OBJECT); + + melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2425*/ meltfptr[2424])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2425*/ meltfptr[2424]))->obj_vartab[3] = (melt_ptr_t)( + /*_.VALSTR___V2429*/ meltfptr[2428]); + ; + /*^touch*/ + /*touch:VALUEDATA_*/ + meltgc_touch(/*_.VALDATA___V2425*/ meltfptr[2424]); + ;}/*com.end block:fill predef slots*/ + ; + } + + /*putslot*/ + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2427*/ meltfptr[2426])) == OBMAG_OBJECT); + + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2427*/ meltfptr[2426])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2427*/ meltfptr[2426]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V2428*/ meltfptr[2427]); + + /*touch:VALUEDATA_*/ + meltgc_touch(/*_.VALDATA___V2427*/ meltfptr[2426]); + + /*putslot*/ + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2430*/ meltfptr[2429])) == OBMAG_OBJECT); + + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2430*/ meltfptr[2429])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2430*/ meltfptr[2429]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V2431*/ meltfptr[2430]); + + /*touch:VALUEDATA_*/ + meltgc_touch(/*_.VALDATA___V2430*/ meltfptr[2429]); + + MELT_LOCATION("warmelt-first.melt:1962:/ initchunk"); + /*^cond*/ + /*cond*/ if (MELTPREDEFIX(predefinited,CTYPE_CSTRING)) /*then*/ { + } else {/*^cond.else*/ + + /*com.block:fill predef slots*/{ + + /*^compute*/ + + /*_.STRINGCONST2VAL__V2433*/ meltfptr[2432] = + meltgc_new_string((meltobject_ptr_t)(/*_.VALDATA___V2137*/ meltfptr[2136]), ( "const char*"));; + MELT_LOCATION("warmelt-first.melt:1962:/ putslot"); + /*putslot*/ + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2432*/ meltfptr[2431])) == OBMAG_OBJECT); + + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2432*/ meltfptr[2431])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2432*/ meltfptr[2431]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V2434*/ meltfptr[2433]); + ; + /*^putslot*/ + /*putslot*/ + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2432*/ meltfptr[2431])) == OBMAG_OBJECT); + + melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2432*/ meltfptr[2431])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2432*/ meltfptr[2431]))->obj_vartab[2] = (melt_ptr_t)( + /*_.VALDATA___V2435*/ meltfptr[2434]); + ; + /*^putslot*/ + /*putslot*/ + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2432*/ meltfptr[2431])) == OBMAG_OBJECT); + + melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2432*/ meltfptr[2431])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2432*/ meltfptr[2431]))->obj_vartab[3] = (melt_ptr_t)( + /*_.STRINGCONST2VAL__V2433*/ meltfptr[2432]); + ; + /*^putslot*/ + /*putslot*/ + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2432*/ meltfptr[2431])) == OBMAG_OBJECT); + + melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2432*/ meltfptr[2431])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2432*/ meltfptr[2431]))->obj_vartab[4] = (melt_ptr_t)( + /*_.VALSTR___V2437*/ meltfptr[2436]); + ; + /*^putslot*/ + /*putslot*/ + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2432*/ meltfptr[2431])) == OBMAG_OBJECT); + + melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2432*/ meltfptr[2431])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2432*/ meltfptr[2431]))->obj_vartab[5] = (melt_ptr_t)( + /*_.VALSTR___V2438*/ meltfptr[2437]); + ; + /*^putslot*/ + /*putslot*/ + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2432*/ meltfptr[2431])) == OBMAG_OBJECT); + + melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2432*/ meltfptr[2431])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2432*/ meltfptr[2431]))->obj_vartab[6] = (melt_ptr_t)( + /*_.VALSTR___V2439*/ meltfptr[2438]); + ; + /*^touch*/ + /*touch:VALUEDATA_*/ + meltgc_touch(/*_.VALDATA___V2432*/ meltfptr[2431]); + ;}/*com.end block:fill predef slots*/ + ; + } + + /*putslot*/ + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2435*/ meltfptr[2434])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2417*/ meltfptr[2416])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2417*/ meltfptr[2416]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V2418*/ meltfptr[2417]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2435*/ meltfptr[2434])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2435*/ meltfptr[2434]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V2436*/ meltfptr[2435]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V2417*/ meltfptr[2416]); + meltgc_touch(/*_.VALDATA___V2435*/ meltfptr[2434]); - MELT_LOCATION("warmelt-first.melt:1971:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:1978:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2422*/ meltfptr[2421])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2440*/ meltfptr[2439])) == OBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V369*/ meltfptr[368]); - ((meltroutine_ptr_t)/*_.VALROUT___V2422*/ meltfptr[2421])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V369*/ meltfptr[368]); + ((meltroutine_ptr_t)/*_.VALROUT___V2440*/ meltfptr[2439])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V369*/ meltfptr[368]); - MELT_LOCATION("warmelt-first.melt:1971:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:1978:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2422*/ meltfptr[2421])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2440*/ meltfptr[2439])) == OBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V301*/ meltfptr[300]); - ((meltroutine_ptr_t)/*_.VALROUT___V2422*/ meltfptr[2421])->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V301*/ meltfptr[300]); + ((meltroutine_ptr_t)/*_.VALROUT___V2440*/ meltfptr[2439])->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V301*/ meltfptr[300]); - MELT_LOCATION("warmelt-first.melt:1971:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:1978:/ initchunk"); /*^touch*/ /*touch:IROUTVAL_*/ - meltgc_touch(/*_.VALROUT___V2422*/ meltfptr[2421]); + meltgc_touch(/*_.VALROUT___V2440*/ meltfptr[2439]); /*putclosurout*/ - melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V2423*/ meltfptr[2422])) == OBMAG_CLOSURE); - melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2422*/ meltfptr[2421])) == OBMAG_ROUTINE); - ((meltclosure_ptr_t)/*_.VALCLO___V2423*/ meltfptr[2422])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V2422*/ meltfptr[2421]); + melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V2441*/ meltfptr[2440])) == OBMAG_CLOSURE); + melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2440*/ meltfptr[2439])) == OBMAG_ROUTINE); + ((meltclosure_ptr_t)/*_.VALCLO___V2441*/ meltfptr[2440])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V2440*/ meltfptr[2439]); /*touch:DATACLOSURE_*/ - meltgc_touch(/*_.VALCLO___V2423*/ meltfptr[2422]); + meltgc_touch(/*_.VALCLO___V2441*/ meltfptr[2440]); - MELT_LOCATION("warmelt-first.melt:1980:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:1987:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2424*/ meltfptr[2423])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2442*/ meltfptr[2441])) == OBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V369*/ meltfptr[368]); - ((meltroutine_ptr_t)/*_.VALROUT___V2424*/ meltfptr[2423])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V369*/ meltfptr[368]); + ((meltroutine_ptr_t)/*_.VALROUT___V2442*/ meltfptr[2441])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V369*/ meltfptr[368]); - MELT_LOCATION("warmelt-first.melt:1980:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:1987:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2424*/ meltfptr[2423])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2442*/ meltfptr[2441])) == OBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V321*/ meltfptr[320]); - ((meltroutine_ptr_t)/*_.VALROUT___V2424*/ meltfptr[2423])->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V321*/ meltfptr[320]); + ((meltroutine_ptr_t)/*_.VALROUT___V2442*/ meltfptr[2441])->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V321*/ meltfptr[320]); - MELT_LOCATION("warmelt-first.melt:1980:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:1987:/ initchunk"); /*^touch*/ /*touch:IROUTVAL_*/ - meltgc_touch(/*_.VALROUT___V2424*/ meltfptr[2423]); + meltgc_touch(/*_.VALROUT___V2442*/ meltfptr[2441]); /*putclosurout*/ - melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V2425*/ meltfptr[2424])) == OBMAG_CLOSURE); - melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2424*/ meltfptr[2423])) == OBMAG_ROUTINE); - ((meltclosure_ptr_t)/*_.VALCLO___V2425*/ meltfptr[2424])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V2424*/ meltfptr[2423]); + melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V2443*/ meltfptr[2442])) == OBMAG_CLOSURE); + melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2442*/ meltfptr[2441])) == OBMAG_ROUTINE); + ((meltclosure_ptr_t)/*_.VALCLO___V2443*/ meltfptr[2442])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V2442*/ meltfptr[2441]); /*touch:DATACLOSURE_*/ - meltgc_touch(/*_.VALCLO___V2425*/ meltfptr[2424]); + meltgc_touch(/*_.VALCLO___V2443*/ meltfptr[2442]); - MELT_LOCATION("warmelt-first.melt:1989:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:1996:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2426*/ meltfptr[2425])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2444*/ meltfptr[2443])) == OBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V369*/ meltfptr[368]); - ((meltroutine_ptr_t)/*_.VALROUT___V2426*/ meltfptr[2425])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V369*/ meltfptr[368]); + ((meltroutine_ptr_t)/*_.VALROUT___V2444*/ meltfptr[2443])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V369*/ meltfptr[368]); - MELT_LOCATION("warmelt-first.melt:1989:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:1996:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2426*/ meltfptr[2425])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2444*/ meltfptr[2443])) == OBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V301*/ meltfptr[300]); - ((meltroutine_ptr_t)/*_.VALROUT___V2426*/ meltfptr[2425])->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V301*/ meltfptr[300]); + ((meltroutine_ptr_t)/*_.VALROUT___V2444*/ meltfptr[2443])->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V301*/ meltfptr[300]); - MELT_LOCATION("warmelt-first.melt:1989:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:1996:/ initchunk"); /*^touch*/ /*touch:IROUTVAL_*/ - meltgc_touch(/*_.VALROUT___V2426*/ meltfptr[2425]); + meltgc_touch(/*_.VALROUT___V2444*/ meltfptr[2443]); /*putclosurout*/ - melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V2427*/ meltfptr[2426])) == OBMAG_CLOSURE); - melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2426*/ meltfptr[2425])) == OBMAG_ROUTINE); - ((meltclosure_ptr_t)/*_.VALCLO___V2427*/ meltfptr[2426])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V2426*/ meltfptr[2425]); + melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V2445*/ meltfptr[2444])) == OBMAG_CLOSURE); + melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2444*/ meltfptr[2443])) == OBMAG_ROUTINE); + ((meltclosure_ptr_t)/*_.VALCLO___V2445*/ meltfptr[2444])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V2444*/ meltfptr[2443]); /*touch:DATACLOSURE_*/ - meltgc_touch(/*_.VALCLO___V2427*/ meltfptr[2426]); + meltgc_touch(/*_.VALCLO___V2445*/ meltfptr[2444]); - MELT_LOCATION("warmelt-first.melt:2004:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:2011:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2428*/ meltfptr[2427])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2446*/ meltfptr[2445])) == OBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V369*/ meltfptr[368]); - ((meltroutine_ptr_t)/*_.VALROUT___V2428*/ meltfptr[2427])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V369*/ meltfptr[368]); + ((meltroutine_ptr_t)/*_.VALROUT___V2446*/ meltfptr[2445])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V369*/ meltfptr[368]); - MELT_LOCATION("warmelt-first.melt:2004:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:2011:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2428*/ meltfptr[2427])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2446*/ meltfptr[2445])) == OBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V321*/ meltfptr[320]); - ((meltroutine_ptr_t)/*_.VALROUT___V2428*/ meltfptr[2427])->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V321*/ meltfptr[320]); + ((meltroutine_ptr_t)/*_.VALROUT___V2446*/ meltfptr[2445])->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V321*/ meltfptr[320]); - MELT_LOCATION("warmelt-first.melt:2004:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:2011:/ initchunk"); /*^touch*/ /*touch:IROUTVAL_*/ - meltgc_touch(/*_.VALROUT___V2428*/ meltfptr[2427]); + meltgc_touch(/*_.VALROUT___V2446*/ meltfptr[2445]); /*putclosurout*/ - melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V2429*/ meltfptr[2428])) == OBMAG_CLOSURE); - melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2428*/ meltfptr[2427])) == OBMAG_ROUTINE); - ((meltclosure_ptr_t)/*_.VALCLO___V2429*/ meltfptr[2428])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V2428*/ meltfptr[2427]); + melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V2447*/ meltfptr[2446])) == OBMAG_CLOSURE); + melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2446*/ meltfptr[2445])) == OBMAG_ROUTINE); + ((meltclosure_ptr_t)/*_.VALCLO___V2447*/ meltfptr[2446])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V2446*/ meltfptr[2445]); /*touch:DATACLOSURE_*/ - meltgc_touch(/*_.VALCLO___V2429*/ meltfptr[2428]); + meltgc_touch(/*_.VALCLO___V2447*/ meltfptr[2446]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2430*/ meltfptr[2429])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2448*/ meltfptr[2447])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2430*/ meltfptr[2429])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2430*/ meltfptr[2429]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V2431*/ meltfptr[2430]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2448*/ meltfptr[2447])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2448*/ meltfptr[2447]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V2449*/ meltfptr[2448]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V2430*/ meltfptr[2429]); + meltgc_touch(/*_.VALDATA___V2448*/ meltfptr[2447]); - /*_.MAKE_MAPSTRING__V2433*/ meltfptr[2432] = - (meltgc_new_mapstrings( (meltobject_ptr_t) (/*_.VALDATA___V2195*/ meltfptr[2194]), (200))); - MELT_LOCATION("warmelt-first.melt:2016:/ initchunk"); + /*_.MAKE_MAPSTRING__V2451*/ meltfptr[2450] = + (meltgc_new_mapstrings( (meltobject_ptr_t) (/*_.VALDATA___V2213*/ meltfptr[2212]), (200))); + MELT_LOCATION("warmelt-first.melt:2023:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2432*/ meltfptr[2431])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2450*/ meltfptr[2449])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2432*/ meltfptr[2431])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2432*/ meltfptr[2431]))->obj_vartab[0] = (melt_ptr_t)( - /*_.MAKE_MAPSTRING__V2433*/ meltfptr[2432]); + melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2450*/ meltfptr[2449])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2450*/ meltfptr[2449]))->obj_vartab[0] = (melt_ptr_t)( + /*_.MAKE_MAPSTRING__V2451*/ meltfptr[2450]); - MELT_LOCATION("warmelt-first.melt:2016:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:2023:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V2432*/ meltfptr[2431]); + meltgc_touch(/*_.VALDATA___V2450*/ meltfptr[2449]); - MELT_LOCATION("warmelt-first.melt:2020:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:2027:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2434*/ meltfptr[2433])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V2432*/ meltfptr[2431]); - ((meltroutine_ptr_t)/*_.VALROUT___V2434*/ meltfptr[2433])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V2432*/ meltfptr[2431]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2452*/ meltfptr[2451])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V2450*/ meltfptr[2449]); + ((meltroutine_ptr_t)/*_.VALROUT___V2452*/ meltfptr[2451])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V2450*/ meltfptr[2449]); - MELT_LOCATION("warmelt-first.melt:2020:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:2027:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2434*/ meltfptr[2433])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2452*/ meltfptr[2451])) == OBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V35*/ meltfptr[34]); - ((meltroutine_ptr_t)/*_.VALROUT___V2434*/ meltfptr[2433])->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V35*/ meltfptr[34]); + ((meltroutine_ptr_t)/*_.VALROUT___V2452*/ meltfptr[2451])->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V35*/ meltfptr[34]); - MELT_LOCATION("warmelt-first.melt:2572:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:2579:/ initchunk"); /*^cond*/ /*cond*/ if (MELTPREDEFIX(predefinited,INITIAL_SYSTEM_DATA)) /*then*/ { } else {/*^cond.else*/ @@ -58711,3489 +59053,3399 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_15 (struct frame_star /*^compute*/ - /*_.MAKE_MAPSTRING__V2438*/ meltfptr[2437] = - (meltgc_new_mapstrings( (meltobject_ptr_t) (/*_.VALDATA___V2195*/ meltfptr[2194]), (40)));; + /*_.MAKE_MAPSTRING__V2456*/ meltfptr[2455] = + (meltgc_new_mapstrings( (meltobject_ptr_t) (/*_.VALDATA___V2213*/ meltfptr[2212]), (40)));; /*^compute*/ - /*_.MAKE_MAPSTRING__V2439*/ meltfptr[2438] = - (meltgc_new_mapstrings( (meltobject_ptr_t) (/*_.VALDATA___V2195*/ meltfptr[2194]), (600)));; + /*_.MAKE_MAPSTRING__V2457*/ meltfptr[2456] = + (meltgc_new_mapstrings( (meltobject_ptr_t) (/*_.VALDATA___V2213*/ meltfptr[2212]), (600)));; /*^compute*/ - /*_.MAKE_MAPSTRING__V2440*/ meltfptr[2439] = - (meltgc_new_mapstrings( (meltobject_ptr_t) (/*_.VALDATA___V2195*/ meltfptr[2194]), (100)));; + /*_.MAKE_MAPSTRING__V2458*/ meltfptr[2457] = + (meltgc_new_mapstrings( (meltobject_ptr_t) (/*_.VALDATA___V2213*/ meltfptr[2212]), (100)));; /*^compute*/ - /*_.MAKE_MAPSTRING__V2441*/ meltfptr[2440] = - (meltgc_new_mapstrings( (meltobject_ptr_t) (/*_.VALDATA___V2195*/ meltfptr[2194]), (100)));; - MELT_LOCATION("warmelt-first.melt:2572:/ putslot"); + /*_.MAKE_MAPSTRING__V2459*/ meltfptr[2458] = + (meltgc_new_mapstrings( (meltobject_ptr_t) (/*_.VALDATA___V2213*/ meltfptr[2212]), (100)));; + MELT_LOCATION("warmelt-first.melt:2579:/ putslot"); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2437*/ meltfptr[2436])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2455*/ meltfptr[2454])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2437*/ meltfptr[2436])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2437*/ meltfptr[2436]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V2442*/ meltfptr[2441]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2455*/ meltfptr[2454])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2455*/ meltfptr[2454]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V2460*/ meltfptr[2459]); ; /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2437*/ meltfptr[2436])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2455*/ meltfptr[2454])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2437*/ meltfptr[2436])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2437*/ meltfptr[2436]))->obj_vartab[2] = (melt_ptr_t)( - /*_.MAKE_MAPSTRING__V2438*/ meltfptr[2437]); + melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2455*/ meltfptr[2454])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2455*/ meltfptr[2454]))->obj_vartab[2] = (melt_ptr_t)( + /*_.MAKE_MAPSTRING__V2456*/ meltfptr[2455]); ; /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2437*/ meltfptr[2436])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2455*/ meltfptr[2454])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2437*/ meltfptr[2436])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2437*/ meltfptr[2436]))->obj_vartab[3] = (melt_ptr_t)( - /*_.VALCLO___V2443*/ meltfptr[2442]); + melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2455*/ meltfptr[2454])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2455*/ meltfptr[2454]))->obj_vartab[3] = (melt_ptr_t)( + /*_.VALCLO___V2461*/ meltfptr[2460]); ; /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2437*/ meltfptr[2436])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2455*/ meltfptr[2454])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2437*/ meltfptr[2436])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2437*/ meltfptr[2436]))->obj_vartab[4] = (melt_ptr_t)( - /*_.VALCLO___V2447*/ meltfptr[2446]); + melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2455*/ meltfptr[2454])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2455*/ meltfptr[2454]))->obj_vartab[4] = (melt_ptr_t)( + /*_.VALCLO___V2465*/ meltfptr[2464]); ; /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2437*/ meltfptr[2436])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2455*/ meltfptr[2454])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2437*/ meltfptr[2436])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2437*/ meltfptr[2436]))->obj_vartab[5] = (melt_ptr_t)( - /*_.VALCLO___V2453*/ meltfptr[2452]); + melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2455*/ meltfptr[2454])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2455*/ meltfptr[2454]))->obj_vartab[5] = (melt_ptr_t)( + /*_.VALCLO___V2471*/ meltfptr[2470]); ; /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2437*/ meltfptr[2436])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2455*/ meltfptr[2454])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2437*/ meltfptr[2436])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2437*/ meltfptr[2436]))->obj_vartab[6] = (melt_ptr_t)( - /*_.MAKE_MAPSTRING__V2439*/ meltfptr[2438]); + melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2455*/ meltfptr[2454])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2455*/ meltfptr[2454]))->obj_vartab[6] = (melt_ptr_t)( + /*_.MAKE_MAPSTRING__V2457*/ meltfptr[2456]); ; /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2437*/ meltfptr[2436])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2455*/ meltfptr[2454])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (7>=0 && 7< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2437*/ meltfptr[2436])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2437*/ meltfptr[2436]))->obj_vartab[7] = (melt_ptr_t)( - /*_.MAKE_MAPSTRING__V2440*/ meltfptr[2439]); + melt_assertmsg("putslot checkoff", (7>=0 && 7< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2455*/ meltfptr[2454])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2455*/ meltfptr[2454]))->obj_vartab[7] = (melt_ptr_t)( + /*_.MAKE_MAPSTRING__V2458*/ meltfptr[2457]); ; /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2437*/ meltfptr[2436])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2455*/ meltfptr[2454])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (8>=0 && 8< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2437*/ meltfptr[2436])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2437*/ meltfptr[2436]))->obj_vartab[8] = (melt_ptr_t)( - /*_.VALCLO___V2423*/ meltfptr[2422]); + melt_assertmsg("putslot checkoff", (8>=0 && 8< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2455*/ meltfptr[2454])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2455*/ meltfptr[2454]))->obj_vartab[8] = (melt_ptr_t)( + /*_.VALCLO___V2441*/ meltfptr[2440]); ; /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2437*/ meltfptr[2436])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2455*/ meltfptr[2454])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (9>=0 && 9< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2437*/ meltfptr[2436])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2437*/ meltfptr[2436]))->obj_vartab[9] = (melt_ptr_t)( - /*_.VALCLO___V2425*/ meltfptr[2424]); + melt_assertmsg("putslot checkoff", (9>=0 && 9< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2455*/ meltfptr[2454])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2455*/ meltfptr[2454]))->obj_vartab[9] = (melt_ptr_t)( + /*_.VALCLO___V2443*/ meltfptr[2442]); ; /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2437*/ meltfptr[2436])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2455*/ meltfptr[2454])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (10>=0 && 10< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2437*/ meltfptr[2436])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2437*/ meltfptr[2436]))->obj_vartab[10] = (melt_ptr_t)( - /*_.VALCLO___V2427*/ meltfptr[2426]); + melt_assertmsg("putslot checkoff", (10>=0 && 10< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2455*/ meltfptr[2454])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2455*/ meltfptr[2454]))->obj_vartab[10] = (melt_ptr_t)( + /*_.VALCLO___V2445*/ meltfptr[2444]); ; /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2437*/ meltfptr[2436])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2455*/ meltfptr[2454])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (11>=0 && 11< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2437*/ meltfptr[2436])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2437*/ meltfptr[2436]))->obj_vartab[11] = (melt_ptr_t)( - /*_.VALCLO___V2429*/ meltfptr[2428]); + melt_assertmsg("putslot checkoff", (11>=0 && 11< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2455*/ meltfptr[2454])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2455*/ meltfptr[2454]))->obj_vartab[11] = (melt_ptr_t)( + /*_.VALCLO___V2447*/ meltfptr[2446]); ; /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2437*/ meltfptr[2436])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2455*/ meltfptr[2454])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (12>=0 && 12< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2437*/ meltfptr[2436])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2437*/ meltfptr[2436]))->obj_vartab[12] = (melt_ptr_t)( - /*_.VALCLO___V2455*/ meltfptr[2454]); + melt_assertmsg("putslot checkoff", (12>=0 && 12< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2455*/ meltfptr[2454])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2455*/ meltfptr[2454]))->obj_vartab[12] = (melt_ptr_t)( + /*_.VALCLO___V2473*/ meltfptr[2472]); ; /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2437*/ meltfptr[2436])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2455*/ meltfptr[2454])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (13>=0 && 13< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2437*/ meltfptr[2436])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2437*/ meltfptr[2436]))->obj_vartab[13] = (melt_ptr_t)( - /*_.MAKE_MAPSTRING__V2441*/ meltfptr[2440]); + melt_assertmsg("putslot checkoff", (13>=0 && 13< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2455*/ meltfptr[2454])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2455*/ meltfptr[2454]))->obj_vartab[13] = (melt_ptr_t)( + /*_.MAKE_MAPSTRING__V2459*/ meltfptr[2458]); ; /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2437*/ meltfptr[2436])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2455*/ meltfptr[2454])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (14>=0 && 14< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2437*/ meltfptr[2436])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2437*/ meltfptr[2436]))->obj_vartab[14] = (melt_ptr_t)( - /*_.VALCLO___V2457*/ meltfptr[2456]); + melt_assertmsg("putslot checkoff", (14>=0 && 14< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2455*/ meltfptr[2454])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2455*/ meltfptr[2454]))->obj_vartab[14] = (melt_ptr_t)( + /*_.VALCLO___V2475*/ meltfptr[2474]); ; /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2437*/ meltfptr[2436])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2455*/ meltfptr[2454])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (16>=0 && 16< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2437*/ meltfptr[2436])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2437*/ meltfptr[2436]))->obj_vartab[16] = (melt_ptr_t)( - /*_.VALCLO___V2478*/ meltfptr[2477]); + melt_assertmsg("putslot checkoff", (16>=0 && 16< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2455*/ meltfptr[2454])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2455*/ meltfptr[2454]))->obj_vartab[16] = (melt_ptr_t)( + /*_.VALCLO___V2496*/ meltfptr[2495]); ; /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2437*/ meltfptr[2436])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2455*/ meltfptr[2454])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (17>=0 && 17< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2437*/ meltfptr[2436])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2437*/ meltfptr[2436]))->obj_vartab[17] = (melt_ptr_t)( + melt_assertmsg("putslot checkoff", (17>=0 && 17< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2455*/ meltfptr[2454])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2455*/ meltfptr[2454]))->obj_vartab[17] = (melt_ptr_t)( (/*nil*/NULL)); ; /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2437*/ meltfptr[2436])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2455*/ meltfptr[2454])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (18>=0 && 18< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2437*/ meltfptr[2436])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2437*/ meltfptr[2436]))->obj_vartab[18] = (melt_ptr_t)( + melt_assertmsg("putslot checkoff", (18>=0 && 18< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2455*/ meltfptr[2454])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2455*/ meltfptr[2454]))->obj_vartab[18] = (melt_ptr_t)( (/*nil*/NULL)); ; /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2437*/ meltfptr[2436])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2455*/ meltfptr[2454])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (19>=0 && 19< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2437*/ meltfptr[2436])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2437*/ meltfptr[2436]))->obj_vartab[19] = (melt_ptr_t)( + melt_assertmsg("putslot checkoff", (19>=0 && 19< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2455*/ meltfptr[2454])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2455*/ meltfptr[2454]))->obj_vartab[19] = (melt_ptr_t)( (/*nil*/NULL)); ; /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2437*/ meltfptr[2436])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2455*/ meltfptr[2454])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (20>=0 && 20< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2437*/ meltfptr[2436])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2437*/ meltfptr[2436]))->obj_vartab[20] = (melt_ptr_t)( + melt_assertmsg("putslot checkoff", (20>=0 && 20< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2455*/ meltfptr[2454])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2455*/ meltfptr[2454]))->obj_vartab[20] = (melt_ptr_t)( (/*nil*/NULL)); ; /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2437*/ meltfptr[2436])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2455*/ meltfptr[2454])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (21>=0 && 21< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2437*/ meltfptr[2436])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2437*/ meltfptr[2436]))->obj_vartab[21] = (melt_ptr_t)( - /*_.VALCLO___V2480*/ meltfptr[2479]); + melt_assertmsg("putslot checkoff", (21>=0 && 21< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2455*/ meltfptr[2454])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2455*/ meltfptr[2454]))->obj_vartab[21] = (melt_ptr_t)( + /*_.VALCLO___V2498*/ meltfptr[2497]); ; /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2437*/ meltfptr[2436])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2455*/ meltfptr[2454])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (22>=0 && 22< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2437*/ meltfptr[2436])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2437*/ meltfptr[2436]))->obj_vartab[22] = (melt_ptr_t)( - /*_.VALCLO___V2489*/ meltfptr[2488]); + melt_assertmsg("putslot checkoff", (22>=0 && 22< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2455*/ meltfptr[2454])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2455*/ meltfptr[2454]))->obj_vartab[22] = (melt_ptr_t)( + /*_.VALCLO___V2507*/ meltfptr[2506]); ; /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2437*/ meltfptr[2436])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2455*/ meltfptr[2454])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (23>=0 && 23< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2437*/ meltfptr[2436])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2437*/ meltfptr[2436]))->obj_vartab[23] = (melt_ptr_t)( - /*_.VALCLO___V2498*/ meltfptr[2497]); + melt_assertmsg("putslot checkoff", (23>=0 && 23< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2455*/ meltfptr[2454])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2455*/ meltfptr[2454]))->obj_vartab[23] = (melt_ptr_t)( + /*_.VALCLO___V2516*/ meltfptr[2515]); ; /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V2437*/ meltfptr[2436]); + meltgc_touch(/*_.VALDATA___V2455*/ meltfptr[2454]); ;}/*com.end block:fill predef slots*/ ; } - MELT_LOCATION("warmelt-first.melt:2072:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:2079:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2444*/ meltfptr[2443])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V2122*/ meltfptr[2121]); - ((meltroutine_ptr_t)/*_.VALROUT___V2444*/ meltfptr[2443])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V2122*/ meltfptr[2121]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2462*/ meltfptr[2461])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V2140*/ meltfptr[2139]); + ((meltroutine_ptr_t)/*_.VALROUT___V2462*/ meltfptr[2461])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V2140*/ meltfptr[2139]); - MELT_LOCATION("warmelt-first.melt:3063:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:3070:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2446*/ meltfptr[2445])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2464*/ meltfptr[2463])) == OBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V479*/ meltfptr[478]); - ((meltroutine_ptr_t)/*_.VALROUT___V2446*/ meltfptr[2445])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V479*/ meltfptr[478]); + ((meltroutine_ptr_t)/*_.VALROUT___V2464*/ meltfptr[2463])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V479*/ meltfptr[478]); - MELT_LOCATION("warmelt-first.melt:3063:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:3070:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2446*/ meltfptr[2445])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2464*/ meltfptr[2463])) == OBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V497*/ meltfptr[496]); - ((meltroutine_ptr_t)/*_.VALROUT___V2446*/ meltfptr[2445])->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V497*/ meltfptr[496]); + ((meltroutine_ptr_t)/*_.VALROUT___V2464*/ meltfptr[2463])->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V497*/ meltfptr[496]); - MELT_LOCATION("warmelt-first.melt:3063:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:3070:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2446*/ meltfptr[2445])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V2191*/ meltfptr[2190]); - ((meltroutine_ptr_t)/*_.VALROUT___V2446*/ meltfptr[2445])->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V2191*/ meltfptr[2190]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2464*/ meltfptr[2463])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V2209*/ meltfptr[2208]); + ((meltroutine_ptr_t)/*_.VALROUT___V2464*/ meltfptr[2463])->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V2209*/ meltfptr[2208]); - MELT_LOCATION("warmelt-first.melt:3063:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:3070:/ initchunk"); /*^touch*/ /*touch:IROUTVAL_*/ - meltgc_touch(/*_.VALROUT___V2446*/ meltfptr[2445]); + meltgc_touch(/*_.VALROUT___V2464*/ meltfptr[2463]); /*putclosurout*/ - melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V2445*/ meltfptr[2444])) == OBMAG_CLOSURE); - melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2446*/ meltfptr[2445])) == OBMAG_ROUTINE); - ((meltclosure_ptr_t)/*_.VALCLO___V2445*/ meltfptr[2444])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V2446*/ meltfptr[2445]); + melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V2463*/ meltfptr[2462])) == OBMAG_CLOSURE); + melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2464*/ meltfptr[2463])) == OBMAG_ROUTINE); + ((meltclosure_ptr_t)/*_.VALCLO___V2463*/ meltfptr[2462])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V2464*/ meltfptr[2463]); /*touch:DATACLOSURE_*/ - meltgc_touch(/*_.VALCLO___V2445*/ meltfptr[2444]); + meltgc_touch(/*_.VALCLO___V2463*/ meltfptr[2462]); - MELT_LOCATION("warmelt-first.melt:2072:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:2079:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2444*/ meltfptr[2443])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V2445*/ meltfptr[2444]); - ((meltroutine_ptr_t)/*_.VALROUT___V2444*/ meltfptr[2443])->tabval[1] = (melt_ptr_t)(/*_.VALCLO___V2445*/ meltfptr[2444]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2462*/ meltfptr[2461])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V2463*/ meltfptr[2462]); + ((meltroutine_ptr_t)/*_.VALROUT___V2462*/ meltfptr[2461])->tabval[1] = (melt_ptr_t)(/*_.VALCLO___V2463*/ meltfptr[2462]); - MELT_LOCATION("warmelt-first.melt:2072:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:2079:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2444*/ meltfptr[2443])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2462*/ meltfptr[2461])) == OBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V25*/ meltfptr[24]); - ((meltroutine_ptr_t)/*_.VALROUT___V2444*/ meltfptr[2443])->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V25*/ meltfptr[24]); + ((meltroutine_ptr_t)/*_.VALROUT___V2462*/ meltfptr[2461])->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V25*/ meltfptr[24]); - MELT_LOCATION("warmelt-first.melt:2072:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:2079:/ initchunk"); /*^touch*/ /*touch:IROUTVAL_*/ - meltgc_touch(/*_.VALROUT___V2444*/ meltfptr[2443]); + meltgc_touch(/*_.VALROUT___V2462*/ meltfptr[2461]); /*putclosurout*/ - melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V2443*/ meltfptr[2442])) == OBMAG_CLOSURE); - melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2444*/ meltfptr[2443])) == OBMAG_ROUTINE); - ((meltclosure_ptr_t)/*_.VALCLO___V2443*/ meltfptr[2442])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V2444*/ meltfptr[2443]); + melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V2461*/ meltfptr[2460])) == OBMAG_CLOSURE); + melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2462*/ meltfptr[2461])) == OBMAG_ROUTINE); + ((meltclosure_ptr_t)/*_.VALCLO___V2461*/ meltfptr[2460])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V2462*/ meltfptr[2461]); /*touch:DATACLOSURE_*/ - meltgc_touch(/*_.VALCLO___V2443*/ meltfptr[2442]); + meltgc_touch(/*_.VALCLO___V2461*/ meltfptr[2460]); - MELT_LOCATION("warmelt-first.melt:2086:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:2093:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2448*/ meltfptr[2447])) == OBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_2430__INITVALUE_EXPORTER#0", NULL != (/*_.PREVENV___V4*/ meltfptr[3])); - ((meltroutine_ptr_t)/*_.VALROUT___V2448*/ meltfptr[2447])->tabval[0] = (melt_ptr_t)(/*_.PREVENV___V4*/ meltfptr[3]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2466*/ meltfptr[2465])) == OBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_2448__INITVALUE_EXPORTER#0", NULL != (/*_.PREVENV___V4*/ meltfptr[3])); + ((meltroutine_ptr_t)/*_.VALROUT___V2466*/ meltfptr[2465])->tabval[0] = (melt_ptr_t)(/*_.PREVENV___V4*/ meltfptr[3]); - MELT_LOCATION("warmelt-first.melt:2086:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:2093:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2448*/ meltfptr[2447])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2466*/ meltfptr[2465])) == OBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V301*/ meltfptr[300]); - ((meltroutine_ptr_t)/*_.VALROUT___V2448*/ meltfptr[2447])->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V301*/ meltfptr[300]); + ((meltroutine_ptr_t)/*_.VALROUT___V2466*/ meltfptr[2465])->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V301*/ meltfptr[300]); - MELT_LOCATION("warmelt-first.melt:2086:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:2093:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2448*/ meltfptr[2447])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2466*/ meltfptr[2465])) == OBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V25*/ meltfptr[24]); - ((meltroutine_ptr_t)/*_.VALROUT___V2448*/ meltfptr[2447])->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V25*/ meltfptr[24]); + ((meltroutine_ptr_t)/*_.VALROUT___V2466*/ meltfptr[2465])->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V25*/ meltfptr[24]); - MELT_LOCATION("warmelt-first.melt:2086:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:2093:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2448*/ meltfptr[2447])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2466*/ meltfptr[2465])) == OBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V479*/ meltfptr[478]); - ((meltroutine_ptr_t)/*_.VALROUT___V2448*/ meltfptr[2447])->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V479*/ meltfptr[478]); + ((meltroutine_ptr_t)/*_.VALROUT___V2466*/ meltfptr[2465])->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V479*/ meltfptr[478]); - MELT_LOCATION("warmelt-first.melt:3085:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:3092:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2450*/ meltfptr[2449])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2468*/ meltfptr[2467])) == OBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V479*/ meltfptr[478]); - ((meltroutine_ptr_t)/*_.VALROUT___V2450*/ meltfptr[2449])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V479*/ meltfptr[478]); + ((meltroutine_ptr_t)/*_.VALROUT___V2468*/ meltfptr[2467])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V479*/ meltfptr[478]); - MELT_LOCATION("warmelt-first.melt:3085:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:3092:/ initchunk"); /*^touch*/ /*touch:IROUTVAL_*/ - meltgc_touch(/*_.VALROUT___V2450*/ meltfptr[2449]); + meltgc_touch(/*_.VALROUT___V2468*/ meltfptr[2467]); /*putclosurout*/ - melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V2449*/ meltfptr[2448])) == OBMAG_CLOSURE); - melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2450*/ meltfptr[2449])) == OBMAG_ROUTINE); - ((meltclosure_ptr_t)/*_.VALCLO___V2449*/ meltfptr[2448])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V2450*/ meltfptr[2449]); + melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V2467*/ meltfptr[2466])) == OBMAG_CLOSURE); + melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2468*/ meltfptr[2467])) == OBMAG_ROUTINE); + ((meltclosure_ptr_t)/*_.VALCLO___V2467*/ meltfptr[2466])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V2468*/ meltfptr[2467]); /*touch:DATACLOSURE_*/ - meltgc_touch(/*_.VALCLO___V2449*/ meltfptr[2448]); + meltgc_touch(/*_.VALCLO___V2467*/ meltfptr[2466]); - MELT_LOCATION("warmelt-first.melt:2086:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:2093:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2448*/ meltfptr[2447])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V2449*/ meltfptr[2448]); - ((meltroutine_ptr_t)/*_.VALROUT___V2448*/ meltfptr[2447])->tabval[4] = (melt_ptr_t)(/*_.VALCLO___V2449*/ meltfptr[2448]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2466*/ meltfptr[2465])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V2467*/ meltfptr[2466]); + ((meltroutine_ptr_t)/*_.VALROUT___V2466*/ meltfptr[2465])->tabval[4] = (melt_ptr_t)(/*_.VALCLO___V2467*/ meltfptr[2466]); - MELT_LOCATION("warmelt-first.melt:2086:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:2093:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2448*/ meltfptr[2447])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2466*/ meltfptr[2465])) == OBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V543*/ meltfptr[542]); - ((meltroutine_ptr_t)/*_.VALROUT___V2448*/ meltfptr[2447])->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V543*/ meltfptr[542]); + ((meltroutine_ptr_t)/*_.VALROUT___V2466*/ meltfptr[2465])->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V543*/ meltfptr[542]); - MELT_LOCATION("warmelt-first.melt:2086:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:2093:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2448*/ meltfptr[2447])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2466*/ meltfptr[2465])) == OBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V573*/ meltfptr[572]); - ((meltroutine_ptr_t)/*_.VALROUT___V2448*/ meltfptr[2447])->tabval[6] = (melt_ptr_t)(/*_.VALDATA___V573*/ meltfptr[572]); + ((meltroutine_ptr_t)/*_.VALROUT___V2466*/ meltfptr[2465])->tabval[6] = (melt_ptr_t)(/*_.VALDATA___V573*/ meltfptr[572]); - MELT_LOCATION("warmelt-first.melt:2086:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:2093:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2448*/ meltfptr[2447])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2466*/ meltfptr[2465])) == OBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V287*/ meltfptr[286]); - ((meltroutine_ptr_t)/*_.VALROUT___V2448*/ meltfptr[2447])->tabval[7] = (melt_ptr_t)(/*_.VALDATA___V287*/ meltfptr[286]); + ((meltroutine_ptr_t)/*_.VALROUT___V2466*/ meltfptr[2465])->tabval[7] = (melt_ptr_t)(/*_.VALDATA___V287*/ meltfptr[286]); - MELT_LOCATION("warmelt-first.melt:2086:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:2093:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2448*/ meltfptr[2447])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2466*/ meltfptr[2465])) == OBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V649*/ meltfptr[648]); - ((meltroutine_ptr_t)/*_.VALROUT___V2448*/ meltfptr[2447])->tabval[8] = (melt_ptr_t)(/*_.VALDATA___V649*/ meltfptr[648]); + ((meltroutine_ptr_t)/*_.VALROUT___V2466*/ meltfptr[2465])->tabval[8] = (melt_ptr_t)(/*_.VALDATA___V649*/ meltfptr[648]); - MELT_LOCATION("warmelt-first.melt:2086:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:2093:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2448*/ meltfptr[2447])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2466*/ meltfptr[2465])) == OBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V583*/ meltfptr[582]); - ((meltroutine_ptr_t)/*_.VALROUT___V2448*/ meltfptr[2447])->tabval[9] = (melt_ptr_t)(/*_.VALDATA___V583*/ meltfptr[582]); + ((meltroutine_ptr_t)/*_.VALROUT___V2466*/ meltfptr[2465])->tabval[9] = (melt_ptr_t)(/*_.VALDATA___V583*/ meltfptr[582]); - MELT_LOCATION("warmelt-first.melt:2086:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:2093:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2448*/ meltfptr[2447])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2466*/ meltfptr[2465])) == OBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V95*/ meltfptr[94]); - ((meltroutine_ptr_t)/*_.VALROUT___V2448*/ meltfptr[2447])->tabval[10] = (melt_ptr_t)(/*_.VALDATA___V95*/ meltfptr[94]); + ((meltroutine_ptr_t)/*_.VALROUT___V2466*/ meltfptr[2465])->tabval[10] = (melt_ptr_t)(/*_.VALDATA___V95*/ meltfptr[94]); - MELT_LOCATION("warmelt-first.melt:2086:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:2093:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2448*/ meltfptr[2447])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2466*/ meltfptr[2465])) == OBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V611*/ meltfptr[610]); - ((meltroutine_ptr_t)/*_.VALROUT___V2448*/ meltfptr[2447])->tabval[11] = (melt_ptr_t)(/*_.VALDATA___V611*/ meltfptr[610]); + ((meltroutine_ptr_t)/*_.VALROUT___V2466*/ meltfptr[2465])->tabval[11] = (melt_ptr_t)(/*_.VALDATA___V611*/ meltfptr[610]); - MELT_LOCATION("warmelt-first.melt:2086:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:2093:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2448*/ meltfptr[2447])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2466*/ meltfptr[2465])) == OBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V621*/ meltfptr[620]); - ((meltroutine_ptr_t)/*_.VALROUT___V2448*/ meltfptr[2447])->tabval[12] = (melt_ptr_t)(/*_.VALDATA___V621*/ meltfptr[620]); + ((meltroutine_ptr_t)/*_.VALROUT___V2466*/ meltfptr[2465])->tabval[12] = (melt_ptr_t)(/*_.VALDATA___V621*/ meltfptr[620]); - MELT_LOCATION("warmelt-first.melt:2086:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:2093:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2448*/ meltfptr[2447])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2466*/ meltfptr[2465])) == OBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V63*/ meltfptr[62]); - ((meltroutine_ptr_t)/*_.VALROUT___V2448*/ meltfptr[2447])->tabval[13] = (melt_ptr_t)(/*_.VALDATA___V63*/ meltfptr[62]); + ((meltroutine_ptr_t)/*_.VALROUT___V2466*/ meltfptr[2465])->tabval[13] = (melt_ptr_t)(/*_.VALDATA___V63*/ meltfptr[62]); - MELT_LOCATION("warmelt-first.melt:2086:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:2093:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2448*/ meltfptr[2447])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2466*/ meltfptr[2465])) == OBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V635*/ meltfptr[634]); - ((meltroutine_ptr_t)/*_.VALROUT___V2448*/ meltfptr[2447])->tabval[14] = (melt_ptr_t)(/*_.VALDATA___V635*/ meltfptr[634]); + ((meltroutine_ptr_t)/*_.VALROUT___V2466*/ meltfptr[2465])->tabval[14] = (melt_ptr_t)(/*_.VALDATA___V635*/ meltfptr[634]); - MELT_LOCATION("warmelt-first.melt:2086:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:2093:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2448*/ meltfptr[2447])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2466*/ meltfptr[2465])) == OBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V507*/ meltfptr[506]); - ((meltroutine_ptr_t)/*_.VALROUT___V2448*/ meltfptr[2447])->tabval[15] = (melt_ptr_t)(/*_.VALDATA___V507*/ meltfptr[506]); + ((meltroutine_ptr_t)/*_.VALROUT___V2466*/ meltfptr[2465])->tabval[15] = (melt_ptr_t)(/*_.VALDATA___V507*/ meltfptr[506]); - MELT_LOCATION("warmelt-first.melt:3154:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:3161:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2452*/ meltfptr[2451])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2470*/ meltfptr[2469])) == OBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V479*/ meltfptr[478]); - ((meltroutine_ptr_t)/*_.VALROUT___V2452*/ meltfptr[2451])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V479*/ meltfptr[478]); + ((meltroutine_ptr_t)/*_.VALROUT___V2470*/ meltfptr[2469])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V479*/ meltfptr[478]); - MELT_LOCATION("warmelt-first.melt:3154:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:3161:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2452*/ meltfptr[2451])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2470*/ meltfptr[2469])) == OBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V507*/ meltfptr[506]); - ((meltroutine_ptr_t)/*_.VALROUT___V2452*/ meltfptr[2451])->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V507*/ meltfptr[506]); + ((meltroutine_ptr_t)/*_.VALROUT___V2470*/ meltfptr[2469])->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V507*/ meltfptr[506]); - MELT_LOCATION("warmelt-first.melt:3154:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:3161:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2452*/ meltfptr[2451])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V2435*/ meltfptr[2434]); - ((meltroutine_ptr_t)/*_.VALROUT___V2452*/ meltfptr[2451])->tabval[2] = (melt_ptr_t)(/*_.VALCLO___V2435*/ meltfptr[2434]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2470*/ meltfptr[2469])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V2453*/ meltfptr[2452]); + ((meltroutine_ptr_t)/*_.VALROUT___V2470*/ meltfptr[2469])->tabval[2] = (melt_ptr_t)(/*_.VALCLO___V2453*/ meltfptr[2452]); - MELT_LOCATION("warmelt-first.melt:3154:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:3161:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2452*/ meltfptr[2451])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2470*/ meltfptr[2469])) == OBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V510*/ meltfptr[509]); - ((meltroutine_ptr_t)/*_.VALROUT___V2452*/ meltfptr[2451])->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V510*/ meltfptr[509]); + ((meltroutine_ptr_t)/*_.VALROUT___V2470*/ meltfptr[2469])->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V510*/ meltfptr[509]); - MELT_LOCATION("warmelt-first.melt:3154:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:3161:/ initchunk"); /*^touch*/ /*touch:IROUTVAL_*/ - meltgc_touch(/*_.VALROUT___V2452*/ meltfptr[2451]); + meltgc_touch(/*_.VALROUT___V2470*/ meltfptr[2469]); /*putclosurout*/ - melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V2451*/ meltfptr[2450])) == OBMAG_CLOSURE); - melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2452*/ meltfptr[2451])) == OBMAG_ROUTINE); - ((meltclosure_ptr_t)/*_.VALCLO___V2451*/ meltfptr[2450])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V2452*/ meltfptr[2451]); + melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V2469*/ meltfptr[2468])) == OBMAG_CLOSURE); + melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2470*/ meltfptr[2469])) == OBMAG_ROUTINE); + ((meltclosure_ptr_t)/*_.VALCLO___V2469*/ meltfptr[2468])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V2470*/ meltfptr[2469]); /*touch:DATACLOSURE_*/ - meltgc_touch(/*_.VALCLO___V2451*/ meltfptr[2450]); + meltgc_touch(/*_.VALCLO___V2469*/ meltfptr[2468]); - MELT_LOCATION("warmelt-first.melt:2086:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:2093:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2448*/ meltfptr[2447])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V2451*/ meltfptr[2450]); - ((meltroutine_ptr_t)/*_.VALROUT___V2448*/ meltfptr[2447])->tabval[16] = (melt_ptr_t)(/*_.VALCLO___V2451*/ meltfptr[2450]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2466*/ meltfptr[2465])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V2469*/ meltfptr[2468]); + ((meltroutine_ptr_t)/*_.VALROUT___V2466*/ meltfptr[2465])->tabval[16] = (melt_ptr_t)(/*_.VALCLO___V2469*/ meltfptr[2468]); - MELT_LOCATION("warmelt-first.melt:2086:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:2093:/ initchunk"); /*^touch*/ /*touch:IROUTVAL_*/ - meltgc_touch(/*_.VALROUT___V2448*/ meltfptr[2447]); + meltgc_touch(/*_.VALROUT___V2466*/ meltfptr[2465]); /*putclosurout*/ - melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V2447*/ meltfptr[2446])) == OBMAG_CLOSURE); - melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2448*/ meltfptr[2447])) == OBMAG_ROUTINE); - ((meltclosure_ptr_t)/*_.VALCLO___V2447*/ meltfptr[2446])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V2448*/ meltfptr[2447]); + melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V2465*/ meltfptr[2464])) == OBMAG_CLOSURE); + melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2466*/ meltfptr[2465])) == OBMAG_ROUTINE); + ((meltclosure_ptr_t)/*_.VALCLO___V2465*/ meltfptr[2464])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V2466*/ meltfptr[2465]); /*touch:DATACLOSURE_*/ - meltgc_touch(/*_.VALCLO___V2447*/ meltfptr[2446]); + meltgc_touch(/*_.VALCLO___V2465*/ meltfptr[2464]); - MELT_LOCATION("warmelt-first.melt:2217:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:2224:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2454*/ meltfptr[2453])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2472*/ meltfptr[2471])) == OBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V301*/ meltfptr[300]); - ((meltroutine_ptr_t)/*_.VALROUT___V2454*/ meltfptr[2453])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V301*/ meltfptr[300]); + ((meltroutine_ptr_t)/*_.VALROUT___V2472*/ meltfptr[2471])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V301*/ meltfptr[300]); - MELT_LOCATION("warmelt-first.melt:2217:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:2224:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2454*/ meltfptr[2453])) == OBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_2434__INITMACRO_EXPORTER#1", NULL != (/*_.PREVENV___V4*/ meltfptr[3])); - ((meltroutine_ptr_t)/*_.VALROUT___V2454*/ meltfptr[2453])->tabval[1] = (melt_ptr_t)(/*_.PREVENV___V4*/ meltfptr[3]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2472*/ meltfptr[2471])) == OBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_2452__INITMACRO_EXPORTER#1", NULL != (/*_.PREVENV___V4*/ meltfptr[3])); + ((meltroutine_ptr_t)/*_.VALROUT___V2472*/ meltfptr[2471])->tabval[1] = (melt_ptr_t)(/*_.PREVENV___V4*/ meltfptr[3]); - MELT_LOCATION("warmelt-first.melt:2217:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:2224:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2454*/ meltfptr[2453])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2472*/ meltfptr[2471])) == OBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V25*/ meltfptr[24]); - ((meltroutine_ptr_t)/*_.VALROUT___V2454*/ meltfptr[2453])->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V25*/ meltfptr[24]); + ((meltroutine_ptr_t)/*_.VALROUT___V2472*/ meltfptr[2471])->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V25*/ meltfptr[24]); - MELT_LOCATION("warmelt-first.melt:2217:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:2224:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2454*/ meltfptr[2453])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2472*/ meltfptr[2471])) == OBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V479*/ meltfptr[478]); - ((meltroutine_ptr_t)/*_.VALROUT___V2454*/ meltfptr[2453])->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V479*/ meltfptr[478]); + ((meltroutine_ptr_t)/*_.VALROUT___V2472*/ meltfptr[2471])->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V479*/ meltfptr[478]); - MELT_LOCATION("warmelt-first.melt:2217:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:2224:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2454*/ meltfptr[2453])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2472*/ meltfptr[2471])) == OBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V523*/ meltfptr[522]); - ((meltroutine_ptr_t)/*_.VALROUT___V2454*/ meltfptr[2453])->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V523*/ meltfptr[522]); + ((meltroutine_ptr_t)/*_.VALROUT___V2472*/ meltfptr[2471])->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V523*/ meltfptr[522]); - MELT_LOCATION("warmelt-first.melt:2217:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:2224:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2454*/ meltfptr[2453])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V2451*/ meltfptr[2450]); - ((meltroutine_ptr_t)/*_.VALROUT___V2454*/ meltfptr[2453])->tabval[5] = (melt_ptr_t)(/*_.VALCLO___V2451*/ meltfptr[2450]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2472*/ meltfptr[2471])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V2469*/ meltfptr[2468]); + ((meltroutine_ptr_t)/*_.VALROUT___V2472*/ meltfptr[2471])->tabval[5] = (melt_ptr_t)(/*_.VALCLO___V2469*/ meltfptr[2468]); - MELT_LOCATION("warmelt-first.melt:2217:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:2224:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2454*/ meltfptr[2453])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V2435*/ meltfptr[2434]); - ((meltroutine_ptr_t)/*_.VALROUT___V2454*/ meltfptr[2453])->tabval[6] = (melt_ptr_t)(/*_.VALCLO___V2435*/ meltfptr[2434]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2472*/ meltfptr[2471])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V2453*/ meltfptr[2452]); + ((meltroutine_ptr_t)/*_.VALROUT___V2472*/ meltfptr[2471])->tabval[6] = (melt_ptr_t)(/*_.VALCLO___V2453*/ meltfptr[2452]); - MELT_LOCATION("warmelt-first.melt:2217:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:2224:/ initchunk"); /*^touch*/ /*touch:IROUTVAL_*/ - meltgc_touch(/*_.VALROUT___V2454*/ meltfptr[2453]); + meltgc_touch(/*_.VALROUT___V2472*/ meltfptr[2471]); /*putclosurout*/ - melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V2453*/ meltfptr[2452])) == OBMAG_CLOSURE); - melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2454*/ meltfptr[2453])) == OBMAG_ROUTINE); - ((meltclosure_ptr_t)/*_.VALCLO___V2453*/ meltfptr[2452])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V2454*/ meltfptr[2453]); + melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V2471*/ meltfptr[2470])) == OBMAG_CLOSURE); + melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2472*/ meltfptr[2471])) == OBMAG_ROUTINE); + ((meltclosure_ptr_t)/*_.VALCLO___V2471*/ meltfptr[2470])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V2472*/ meltfptr[2471]); /*touch:DATACLOSURE_*/ - meltgc_touch(/*_.VALCLO___V2453*/ meltfptr[2452]); + meltgc_touch(/*_.VALCLO___V2471*/ meltfptr[2470]); - MELT_LOCATION("warmelt-first.melt:2176:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:2183:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2456*/ meltfptr[2455])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2474*/ meltfptr[2473])) == OBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V301*/ meltfptr[300]); - ((meltroutine_ptr_t)/*_.VALROUT___V2456*/ meltfptr[2455])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V301*/ meltfptr[300]); + ((meltroutine_ptr_t)/*_.VALROUT___V2474*/ meltfptr[2473])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V301*/ meltfptr[300]); - MELT_LOCATION("warmelt-first.melt:2176:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:2183:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2456*/ meltfptr[2455])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V2435*/ meltfptr[2434]); - ((meltroutine_ptr_t)/*_.VALROUT___V2456*/ meltfptr[2455])->tabval[1] = (melt_ptr_t)(/*_.VALCLO___V2435*/ meltfptr[2434]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2474*/ meltfptr[2473])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V2453*/ meltfptr[2452]); + ((meltroutine_ptr_t)/*_.VALROUT___V2474*/ meltfptr[2473])->tabval[1] = (melt_ptr_t)(/*_.VALCLO___V2453*/ meltfptr[2452]); - MELT_LOCATION("warmelt-first.melt:2176:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:2183:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2456*/ meltfptr[2455])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2474*/ meltfptr[2473])) == OBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V479*/ meltfptr[478]); - ((meltroutine_ptr_t)/*_.VALROUT___V2456*/ meltfptr[2455])->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V479*/ meltfptr[478]); + ((meltroutine_ptr_t)/*_.VALROUT___V2474*/ meltfptr[2473])->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V479*/ meltfptr[478]); - MELT_LOCATION("warmelt-first.melt:2176:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:2183:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2456*/ meltfptr[2455])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V2449*/ meltfptr[2448]); - ((meltroutine_ptr_t)/*_.VALROUT___V2456*/ meltfptr[2455])->tabval[3] = (melt_ptr_t)(/*_.VALCLO___V2449*/ meltfptr[2448]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2474*/ meltfptr[2473])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V2467*/ meltfptr[2466]); + ((meltroutine_ptr_t)/*_.VALROUT___V2474*/ meltfptr[2473])->tabval[3] = (melt_ptr_t)(/*_.VALCLO___V2467*/ meltfptr[2466]); - MELT_LOCATION("warmelt-first.melt:2176:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:2183:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2456*/ meltfptr[2455])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2474*/ meltfptr[2473])) == OBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V543*/ meltfptr[542]); - ((meltroutine_ptr_t)/*_.VALROUT___V2456*/ meltfptr[2455])->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V543*/ meltfptr[542]); + ((meltroutine_ptr_t)/*_.VALROUT___V2474*/ meltfptr[2473])->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V543*/ meltfptr[542]); - MELT_LOCATION("warmelt-first.melt:2176:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:2183:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2456*/ meltfptr[2455])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2474*/ meltfptr[2473])) == OBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V35*/ meltfptr[34]); - ((meltroutine_ptr_t)/*_.VALROUT___V2456*/ meltfptr[2455])->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V35*/ meltfptr[34]); + ((meltroutine_ptr_t)/*_.VALROUT___V2474*/ meltfptr[2473])->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V35*/ meltfptr[34]); - MELT_LOCATION("warmelt-first.melt:2176:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:2183:/ initchunk"); /*^touch*/ /*touch:IROUTVAL_*/ - meltgc_touch(/*_.VALROUT___V2456*/ meltfptr[2455]); + meltgc_touch(/*_.VALROUT___V2474*/ meltfptr[2473]); /*putclosurout*/ - melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V2455*/ meltfptr[2454])) == OBMAG_CLOSURE); - melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2456*/ meltfptr[2455])) == OBMAG_ROUTINE); - ((meltclosure_ptr_t)/*_.VALCLO___V2455*/ meltfptr[2454])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V2456*/ meltfptr[2455]); + melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V2473*/ meltfptr[2472])) == OBMAG_CLOSURE); + melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2474*/ meltfptr[2473])) == OBMAG_ROUTINE); + ((meltclosure_ptr_t)/*_.VALCLO___V2473*/ meltfptr[2472])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V2474*/ meltfptr[2473]); /*touch:DATACLOSURE_*/ - meltgc_touch(/*_.VALCLO___V2455*/ meltfptr[2454]); + meltgc_touch(/*_.VALCLO___V2473*/ meltfptr[2472]); - MELT_LOCATION("warmelt-first.melt:2297:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:2304:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2458*/ meltfptr[2457])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V2435*/ meltfptr[2434]); - ((meltroutine_ptr_t)/*_.VALROUT___V2458*/ meltfptr[2457])->tabval[0] = (melt_ptr_t)(/*_.VALCLO___V2435*/ meltfptr[2434]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2476*/ meltfptr[2475])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V2453*/ meltfptr[2452]); + ((meltroutine_ptr_t)/*_.VALROUT___V2476*/ meltfptr[2475])->tabval[0] = (melt_ptr_t)(/*_.VALCLO___V2453*/ meltfptr[2452]); - MELT_LOCATION("warmelt-first.melt:2281:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:2288:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2459*/ meltfptr[2458])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2477*/ meltfptr[2476])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2459*/ meltfptr[2458])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2459*/ meltfptr[2458]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V2460*/ meltfptr[2459]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2477*/ meltfptr[2476])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2477*/ meltfptr[2476]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V2478*/ meltfptr[2477]); - MELT_LOCATION("warmelt-first.melt:2281:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:2288:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2459*/ meltfptr[2458])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2477*/ meltfptr[2476])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2459*/ meltfptr[2458])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2459*/ meltfptr[2458]))->obj_vartab[4] = (melt_ptr_t)( + melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2477*/ meltfptr[2476])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2477*/ meltfptr[2476]))->obj_vartab[4] = (melt_ptr_t)( /*_.VALDATA___V35*/ meltfptr[34]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2461*/ meltfptr[2460]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2461*/ meltfptr[2460])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V2461*/ meltfptr[2460]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V9*/ meltfptr[8]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2479*/ meltfptr[2478]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2479*/ meltfptr[2478])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V2479*/ meltfptr[2478]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V9*/ meltfptr[8]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2461*/ meltfptr[2460]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2461*/ meltfptr[2460])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V2461*/ meltfptr[2460]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V15*/ meltfptr[14]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2479*/ meltfptr[2478]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2479*/ meltfptr[2478])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V2479*/ meltfptr[2478]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V15*/ meltfptr[14]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2461*/ meltfptr[2460]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2461*/ meltfptr[2460])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V2461*/ meltfptr[2460]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V35*/ meltfptr[34]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2479*/ meltfptr[2478]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2479*/ meltfptr[2478])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V2479*/ meltfptr[2478]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V35*/ meltfptr[34]); /*touch:INITUP_*/ - meltgc_touch(/*_.VALTUP___V2461*/ meltfptr[2460]); + meltgc_touch(/*_.VALTUP___V2479*/ meltfptr[2478]); + - MELT_LOCATION("warmelt-first.melt:2281:/ initchunk"); +#undef meltfram__ +} /*end of warmelt_first_initialmeltchunk_15*/ + +void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_16 (struct frame_start_module_melt_st* meltframptr__, char predefinited[]) { +#define meltfram__ (*meltframptr__) +#undef meltcallcount +#define meltcallcount 0L +MELT_LOCATION("warmelt-first.melt:2288:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2459*/ meltfptr[2458])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2477*/ meltfptr[2476])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2459*/ meltfptr[2458])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2459*/ meltfptr[2458]))->obj_vartab[5] = (melt_ptr_t)( - /*_.VALTUP___V2461*/ meltfptr[2460]); + melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2477*/ meltfptr[2476])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2477*/ meltfptr[2476]))->obj_vartab[5] = (melt_ptr_t)( + /*_.VALTUP___V2479*/ meltfptr[2478]); - MELT_LOCATION("warmelt-first.melt:2281:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:2288:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2462*/ meltfptr[2461])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2480*/ meltfptr[2479])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2462*/ meltfptr[2461])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2462*/ meltfptr[2461]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V2463*/ meltfptr[2462]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2480*/ meltfptr[2479])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2480*/ meltfptr[2479]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V2481*/ meltfptr[2480]); - MELT_LOCATION("warmelt-first.melt:2281:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:2288:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2462*/ meltfptr[2461])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2480*/ meltfptr[2479])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2462*/ meltfptr[2461])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2462*/ meltfptr[2461]))->obj_vartab[2] = (melt_ptr_t)( - /*_.VALDATA___V2459*/ meltfptr[2458]); + melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2480*/ meltfptr[2479])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2480*/ meltfptr[2479]))->obj_vartab[2] = (melt_ptr_t)( + /*_.VALDATA___V2477*/ meltfptr[2476]); - MELT_LOCATION("warmelt-first.melt:2281:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:2288:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V2462*/ meltfptr[2461]); + meltgc_touch(/*_.VALDATA___V2480*/ meltfptr[2479]); - MELT_LOCATION("warmelt-first.melt:2281:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:2288:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2464*/ meltfptr[2463])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2482*/ meltfptr[2481])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2464*/ meltfptr[2463])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2464*/ meltfptr[2463]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V2465*/ meltfptr[2464]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2482*/ meltfptr[2481])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2482*/ meltfptr[2481]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V2483*/ meltfptr[2482]); - MELT_LOCATION("warmelt-first.melt:2281:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:2288:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2464*/ meltfptr[2463])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2482*/ meltfptr[2481])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2464*/ meltfptr[2463])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2464*/ meltfptr[2463]))->obj_vartab[2] = (melt_ptr_t)( - /*_.VALDATA___V2459*/ meltfptr[2458]); + melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2482*/ meltfptr[2481])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2482*/ meltfptr[2481]))->obj_vartab[2] = (melt_ptr_t)( + /*_.VALDATA___V2477*/ meltfptr[2476]); - MELT_LOCATION("warmelt-first.melt:2281:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:2288:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V2464*/ meltfptr[2463]); + meltgc_touch(/*_.VALDATA___V2482*/ meltfptr[2481]); - MELT_LOCATION("warmelt-first.melt:2281:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:2288:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2466*/ meltfptr[2465])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2484*/ meltfptr[2483])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2466*/ meltfptr[2465])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2466*/ meltfptr[2465]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V2467*/ meltfptr[2466]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2484*/ meltfptr[2483])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2484*/ meltfptr[2483]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V2485*/ meltfptr[2484]); - MELT_LOCATION("warmelt-first.melt:2281:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:2288:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2466*/ meltfptr[2465])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2484*/ meltfptr[2483])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2466*/ meltfptr[2465])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2466*/ meltfptr[2465]))->obj_vartab[2] = (melt_ptr_t)( - /*_.VALDATA___V2459*/ meltfptr[2458]); + melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2484*/ meltfptr[2483])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2484*/ meltfptr[2483]))->obj_vartab[2] = (melt_ptr_t)( + /*_.VALDATA___V2477*/ meltfptr[2476]); - MELT_LOCATION("warmelt-first.melt:2281:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:2288:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V2466*/ meltfptr[2465]); + meltgc_touch(/*_.VALDATA___V2484*/ meltfptr[2483]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2468*/ meltfptr[2467]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2468*/ meltfptr[2467])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V2468*/ meltfptr[2467]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V18*/ meltfptr[17]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2486*/ meltfptr[2485]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2486*/ meltfptr[2485])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V2486*/ meltfptr[2485]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V18*/ meltfptr[17]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2468*/ meltfptr[2467]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2468*/ meltfptr[2467])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V2468*/ meltfptr[2467]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V38*/ meltfptr[37]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2486*/ meltfptr[2485]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2486*/ meltfptr[2485])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V2486*/ meltfptr[2485]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V38*/ meltfptr[37]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2468*/ meltfptr[2467]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2468*/ meltfptr[2467])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V2468*/ meltfptr[2467]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V2462*/ meltfptr[2461]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2486*/ meltfptr[2485]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2486*/ meltfptr[2485])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V2486*/ meltfptr[2485]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V2480*/ meltfptr[2479]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2468*/ meltfptr[2467]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2468*/ meltfptr[2467])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V2468*/ meltfptr[2467]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V2464*/ meltfptr[2463]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2486*/ meltfptr[2485]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2486*/ meltfptr[2485])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V2486*/ meltfptr[2485]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V2482*/ meltfptr[2481]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2468*/ meltfptr[2467]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2468*/ meltfptr[2467])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V2468*/ meltfptr[2467]))->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V2466*/ meltfptr[2465]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2486*/ meltfptr[2485]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2486*/ meltfptr[2485])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V2486*/ meltfptr[2485]))->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V2484*/ meltfptr[2483]); /*touch:INITUP_*/ - meltgc_touch(/*_.VALTUP___V2468*/ meltfptr[2467]); + meltgc_touch(/*_.VALTUP___V2486*/ meltfptr[2485]); - MELT_LOCATION("warmelt-first.melt:2281:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:2288:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2459*/ meltfptr[2458])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2477*/ meltfptr[2476])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2459*/ meltfptr[2458])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2459*/ meltfptr[2458]))->obj_vartab[6] = (melt_ptr_t)( - /*_.VALTUP___V2468*/ meltfptr[2467]); + melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2477*/ meltfptr[2476])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2477*/ meltfptr[2476]))->obj_vartab[6] = (melt_ptr_t)( + /*_.VALTUP___V2486*/ meltfptr[2485]); - MELT_LOCATION("warmelt-first.melt:2281:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:2288:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V2459*/ meltfptr[2458]); + meltgc_touch(/*_.VALDATA___V2477*/ meltfptr[2476]); - /*_.MAKE_LIST__V2470*/ meltfptr[2469] = - (meltgc_new_list((meltobject_ptr_t)(/*_.VALDATA___V2151*/ meltfptr[2150]))); - /*_.MAKE_LIST__V2471*/ meltfptr[2470] = - (meltgc_new_list((meltobject_ptr_t)(/*_.VALDATA___V2151*/ meltfptr[2150]))); - MELT_LOCATION("warmelt-first.melt:2289:/ initchunk"); + /*_.MAKE_LIST__V2488*/ meltfptr[2487] = + (meltgc_new_list((meltobject_ptr_t)(/*_.VALDATA___V2169*/ meltfptr[2168]))); + /*_.MAKE_LIST__V2489*/ meltfptr[2488] = + (meltgc_new_list((meltobject_ptr_t)(/*_.VALDATA___V2169*/ meltfptr[2168]))); + MELT_LOCATION("warmelt-first.melt:2296:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2469*/ meltfptr[2468])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2487*/ meltfptr[2486])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2469*/ meltfptr[2468])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2469*/ meltfptr[2468]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V2472*/ meltfptr[2471]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2487*/ meltfptr[2486])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2487*/ meltfptr[2486]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V2490*/ meltfptr[2489]); - MELT_LOCATION("warmelt-first.melt:2289:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:2296:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2469*/ meltfptr[2468])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2487*/ meltfptr[2486])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2469*/ meltfptr[2468])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2469*/ meltfptr[2468]))->obj_vartab[2] = (melt_ptr_t)( - /*_.MAKE_LIST__V2470*/ meltfptr[2469]); + melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2487*/ meltfptr[2486])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2487*/ meltfptr[2486]))->obj_vartab[2] = (melt_ptr_t)( + /*_.MAKE_LIST__V2488*/ meltfptr[2487]); - MELT_LOCATION("warmelt-first.melt:2289:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:2296:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2469*/ meltfptr[2468])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2487*/ meltfptr[2486])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2469*/ meltfptr[2468])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2469*/ meltfptr[2468]))->obj_vartab[3] = (melt_ptr_t)( - /*_.MAKE_LIST__V2471*/ meltfptr[2470]); + melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2487*/ meltfptr[2486])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2487*/ meltfptr[2486]))->obj_vartab[3] = (melt_ptr_t)( + /*_.MAKE_LIST__V2489*/ meltfptr[2488]); - MELT_LOCATION("warmelt-first.melt:2289:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:2296:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V2469*/ meltfptr[2468]); + meltgc_touch(/*_.VALDATA___V2487*/ meltfptr[2486]); - MELT_LOCATION("warmelt-first.melt:2297:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:2304:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2458*/ meltfptr[2457])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V2469*/ meltfptr[2468]); - ((meltroutine_ptr_t)/*_.VALROUT___V2458*/ meltfptr[2457])->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2469*/ meltfptr[2468]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2476*/ meltfptr[2475])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V2487*/ meltfptr[2486]); + ((meltroutine_ptr_t)/*_.VALROUT___V2476*/ meltfptr[2475])->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2487*/ meltfptr[2486]); - MELT_LOCATION("warmelt-first.melt:2297:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:2304:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2458*/ meltfptr[2457])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V2151*/ meltfptr[2150]); - ((meltroutine_ptr_t)/*_.VALROUT___V2458*/ meltfptr[2457])->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V2151*/ meltfptr[2150]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2476*/ meltfptr[2475])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V2169*/ meltfptr[2168]); + ((meltroutine_ptr_t)/*_.VALROUT___V2476*/ meltfptr[2475])->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V2169*/ meltfptr[2168]); - MELT_LOCATION("warmelt-first.melt:2297:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:2304:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2458*/ meltfptr[2457])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2476*/ meltfptr[2475])) == OBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V25*/ meltfptr[24]); - ((meltroutine_ptr_t)/*_.VALROUT___V2458*/ meltfptr[2457])->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V25*/ meltfptr[24]); + ((meltroutine_ptr_t)/*_.VALROUT___V2476*/ meltfptr[2475])->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V25*/ meltfptr[24]); /*putclosurout*/ - melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V2473*/ meltfptr[2472])) == OBMAG_CLOSURE); - melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2474*/ meltfptr[2473])) == OBMAG_ROUTINE); - ((meltclosure_ptr_t)/*_.VALCLO___V2473*/ meltfptr[2472])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V2474*/ meltfptr[2473]); + melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V2491*/ meltfptr[2490])) == OBMAG_CLOSURE); + melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2492*/ meltfptr[2491])) == OBMAG_ROUTINE); + ((meltclosure_ptr_t)/*_.VALCLO___V2491*/ meltfptr[2490])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V2492*/ meltfptr[2491]); /*touch:DATACLOSURE_*/ - meltgc_touch(/*_.VALCLO___V2473*/ meltfptr[2472]); + meltgc_touch(/*_.VALCLO___V2491*/ meltfptr[2490]); - MELT_LOCATION("warmelt-first.melt:2297:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:2304:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2458*/ meltfptr[2457])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V2473*/ meltfptr[2472]); - ((meltroutine_ptr_t)/*_.VALROUT___V2458*/ meltfptr[2457])->tabval[4] = (melt_ptr_t)(/*_.VALCLO___V2473*/ meltfptr[2472]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2476*/ meltfptr[2475])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V2491*/ meltfptr[2490]); + ((meltroutine_ptr_t)/*_.VALROUT___V2476*/ meltfptr[2475])->tabval[4] = (melt_ptr_t)(/*_.VALCLO___V2491*/ meltfptr[2490]); - MELT_LOCATION("warmelt-first.melt:2297:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:2304:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2458*/ meltfptr[2457])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V2469*/ meltfptr[2468]); - ((meltroutine_ptr_t)/*_.VALROUT___V2458*/ meltfptr[2457])->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V2469*/ meltfptr[2468]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2476*/ meltfptr[2475])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V2487*/ meltfptr[2486]); + ((meltroutine_ptr_t)/*_.VALROUT___V2476*/ meltfptr[2475])->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V2487*/ meltfptr[2486]); - MELT_LOCATION("warmelt-first.melt:2307:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:2314:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2475*/ meltfptr[2474])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V2469*/ meltfptr[2468]); - ((meltroutine_ptr_t)/*_.VALROUT___V2475*/ meltfptr[2474])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V2469*/ meltfptr[2468]); - + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2493*/ meltfptr[2492])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V2487*/ meltfptr[2486]); + ((meltroutine_ptr_t)/*_.VALROUT___V2493*/ meltfptr[2492])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V2487*/ meltfptr[2486]); -#undef meltfram__ -} /*end of warmelt_first_initialmeltchunk_15*/ - -void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_16 (struct frame_start_module_melt_st* meltframptr__, char predefinited[]) { -#define meltfram__ (*meltframptr__) -#undef meltcallcount -#define meltcallcount 0L -MELT_LOCATION("warmelt-first.melt:2307:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:2314:/ initchunk"); /*^touch*/ /*touch:IROUTVAL_*/ - meltgc_touch(/*_.VALROUT___V2475*/ meltfptr[2474]); + meltgc_touch(/*_.VALROUT___V2493*/ meltfptr[2492]); - MELT_LOCATION("warmelt-first.melt:2297:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:2304:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2458*/ meltfptr[2457])) == OBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_2460__INIT_EXITFINALIZER#6", NULL != (/*_.VALROUT___V2475*/ meltfptr[2474])); - ((meltroutine_ptr_t)/*_.VALROUT___V2458*/ meltfptr[2457])->tabval[6] = (melt_ptr_t)(/*_.VALROUT___V2475*/ meltfptr[2474]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2476*/ meltfptr[2475])) == OBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_2478__INIT_EXITFINALIZER#6", NULL != (/*_.VALROUT___V2493*/ meltfptr[2492])); + ((meltroutine_ptr_t)/*_.VALROUT___V2476*/ meltfptr[2475])->tabval[6] = (melt_ptr_t)(/*_.VALROUT___V2493*/ meltfptr[2492]); - MELT_LOCATION("warmelt-first.melt:2297:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:2304:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2458*/ meltfptr[2457])) == OBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_2460__INIT_EXITFINALIZER#7", NULL != (/*_.VALROUT___V2476*/ meltfptr[2475])); - ((meltroutine_ptr_t)/*_.VALROUT___V2458*/ meltfptr[2457])->tabval[7] = (melt_ptr_t)(/*_.VALROUT___V2476*/ meltfptr[2475]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2476*/ meltfptr[2475])) == OBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_2478__INIT_EXITFINALIZER#7", NULL != (/*_.VALROUT___V2494*/ meltfptr[2493])); + ((meltroutine_ptr_t)/*_.VALROUT___V2476*/ meltfptr[2475])->tabval[7] = (melt_ptr_t)(/*_.VALROUT___V2494*/ meltfptr[2493]); - MELT_LOCATION("warmelt-first.melt:2297:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:2304:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2458*/ meltfptr[2457])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V2469*/ meltfptr[2468]); - ((meltroutine_ptr_t)/*_.VALROUT___V2458*/ meltfptr[2457])->tabval[8] = (melt_ptr_t)(/*_.VALDATA___V2469*/ meltfptr[2468]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2476*/ meltfptr[2475])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V2487*/ meltfptr[2486]); + ((meltroutine_ptr_t)/*_.VALROUT___V2476*/ meltfptr[2475])->tabval[8] = (melt_ptr_t)(/*_.VALDATA___V2487*/ meltfptr[2486]); - MELT_LOCATION("warmelt-first.melt:2321:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:2328:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2477*/ meltfptr[2476])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V2469*/ meltfptr[2468]); - ((meltroutine_ptr_t)/*_.VALROUT___V2477*/ meltfptr[2476])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V2469*/ meltfptr[2468]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2495*/ meltfptr[2494])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V2487*/ meltfptr[2486]); + ((meltroutine_ptr_t)/*_.VALROUT___V2495*/ meltfptr[2494])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V2487*/ meltfptr[2486]); - MELT_LOCATION("warmelt-first.melt:2321:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:2328:/ initchunk"); /*^touch*/ /*touch:IROUTVAL_*/ - meltgc_touch(/*_.VALROUT___V2477*/ meltfptr[2476]); + meltgc_touch(/*_.VALROUT___V2495*/ meltfptr[2494]); - MELT_LOCATION("warmelt-first.melt:2297:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:2304:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2458*/ meltfptr[2457])) == OBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_2460__INIT_EXITFINALIZER#9", NULL != (/*_.VALROUT___V2477*/ meltfptr[2476])); - ((meltroutine_ptr_t)/*_.VALROUT___V2458*/ meltfptr[2457])->tabval[9] = (melt_ptr_t)(/*_.VALROUT___V2477*/ meltfptr[2476]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2476*/ meltfptr[2475])) == OBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_2478__INIT_EXITFINALIZER#9", NULL != (/*_.VALROUT___V2495*/ meltfptr[2494])); + ((meltroutine_ptr_t)/*_.VALROUT___V2476*/ meltfptr[2475])->tabval[9] = (melt_ptr_t)(/*_.VALROUT___V2495*/ meltfptr[2494]); - MELT_LOCATION("warmelt-first.melt:2297:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:2304:/ initchunk"); /*^touch*/ /*touch:IROUTVAL_*/ - meltgc_touch(/*_.VALROUT___V2458*/ meltfptr[2457]); + meltgc_touch(/*_.VALROUT___V2476*/ meltfptr[2475]); /*putclosurout*/ - melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V2457*/ meltfptr[2456])) == OBMAG_CLOSURE); - melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2458*/ meltfptr[2457])) == OBMAG_ROUTINE); - ((meltclosure_ptr_t)/*_.VALCLO___V2457*/ meltfptr[2456])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V2458*/ meltfptr[2457]); + melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V2475*/ meltfptr[2474])) == OBMAG_CLOSURE); + melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2476*/ meltfptr[2475])) == OBMAG_ROUTINE); + ((meltclosure_ptr_t)/*_.VALCLO___V2475*/ meltfptr[2474])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V2476*/ meltfptr[2475]); /*touch:DATACLOSURE_*/ - meltgc_touch(/*_.VALCLO___V2457*/ meltfptr[2456]); + meltgc_touch(/*_.VALCLO___V2475*/ meltfptr[2474]); - MELT_LOCATION("warmelt-first.melt:2247:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:2254:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2479*/ meltfptr[2478])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V2435*/ meltfptr[2434]); - ((meltroutine_ptr_t)/*_.VALROUT___V2479*/ meltfptr[2478])->tabval[0] = (melt_ptr_t)(/*_.VALCLO___V2435*/ meltfptr[2434]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2497*/ meltfptr[2496])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V2453*/ meltfptr[2452]); + ((meltroutine_ptr_t)/*_.VALROUT___V2497*/ meltfptr[2496])->tabval[0] = (melt_ptr_t)(/*_.VALCLO___V2453*/ meltfptr[2452]); - MELT_LOCATION("warmelt-first.melt:2247:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:2254:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2479*/ meltfptr[2478])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2497*/ meltfptr[2496])) == OBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V301*/ meltfptr[300]); - ((meltroutine_ptr_t)/*_.VALROUT___V2479*/ meltfptr[2478])->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V301*/ meltfptr[300]); + ((meltroutine_ptr_t)/*_.VALROUT___V2497*/ meltfptr[2496])->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V301*/ meltfptr[300]); - MELT_LOCATION("warmelt-first.melt:2247:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:2254:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2479*/ meltfptr[2478])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2497*/ meltfptr[2496])) == OBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V25*/ meltfptr[24]); - ((meltroutine_ptr_t)/*_.VALROUT___V2479*/ meltfptr[2478])->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V25*/ meltfptr[24]); + ((meltroutine_ptr_t)/*_.VALROUT___V2497*/ meltfptr[2496])->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V25*/ meltfptr[24]); - MELT_LOCATION("warmelt-first.melt:2247:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:2254:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2479*/ meltfptr[2478])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2497*/ meltfptr[2496])) == OBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V479*/ meltfptr[478]); - ((meltroutine_ptr_t)/*_.VALROUT___V2479*/ meltfptr[2478])->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V479*/ meltfptr[478]); + ((meltroutine_ptr_t)/*_.VALROUT___V2497*/ meltfptr[2496])->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V479*/ meltfptr[478]); - MELT_LOCATION("warmelt-first.melt:2247:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:2254:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2479*/ meltfptr[2478])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2497*/ meltfptr[2496])) == OBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V533*/ meltfptr[532]); - ((meltroutine_ptr_t)/*_.VALROUT___V2479*/ meltfptr[2478])->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V533*/ meltfptr[532]); + ((meltroutine_ptr_t)/*_.VALROUT___V2497*/ meltfptr[2496])->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V533*/ meltfptr[532]); - MELT_LOCATION("warmelt-first.melt:2247:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:2254:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2479*/ meltfptr[2478])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V2451*/ meltfptr[2450]); - ((meltroutine_ptr_t)/*_.VALROUT___V2479*/ meltfptr[2478])->tabval[5] = (melt_ptr_t)(/*_.VALCLO___V2451*/ meltfptr[2450]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2497*/ meltfptr[2496])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V2469*/ meltfptr[2468]); + ((meltroutine_ptr_t)/*_.VALROUT___V2497*/ meltfptr[2496])->tabval[5] = (melt_ptr_t)(/*_.VALCLO___V2469*/ meltfptr[2468]); - MELT_LOCATION("warmelt-first.melt:2247:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:2254:/ initchunk"); /*^touch*/ /*touch:IROUTVAL_*/ - meltgc_touch(/*_.VALROUT___V2479*/ meltfptr[2478]); + meltgc_touch(/*_.VALROUT___V2497*/ meltfptr[2496]); /*putclosurout*/ - melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V2478*/ meltfptr[2477])) == OBMAG_CLOSURE); - melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2479*/ meltfptr[2478])) == OBMAG_ROUTINE); - ((meltclosure_ptr_t)/*_.VALCLO___V2478*/ meltfptr[2477])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V2479*/ meltfptr[2478]); + melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V2496*/ meltfptr[2495])) == OBMAG_CLOSURE); + melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2497*/ meltfptr[2496])) == OBMAG_ROUTINE); + ((meltclosure_ptr_t)/*_.VALCLO___V2496*/ meltfptr[2495])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V2497*/ meltfptr[2496]); /*touch:DATACLOSURE_*/ - meltgc_touch(/*_.VALCLO___V2478*/ meltfptr[2477]); + meltgc_touch(/*_.VALCLO___V2496*/ meltfptr[2495]); - MELT_LOCATION("warmelt-first.melt:2355:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:2362:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2481*/ meltfptr[2480])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V2435*/ meltfptr[2434]); - ((meltroutine_ptr_t)/*_.VALROUT___V2481*/ meltfptr[2480])->tabval[0] = (melt_ptr_t)(/*_.VALCLO___V2435*/ meltfptr[2434]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2499*/ meltfptr[2498])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V2453*/ meltfptr[2452]); + ((meltroutine_ptr_t)/*_.VALROUT___V2499*/ meltfptr[2498])->tabval[0] = (melt_ptr_t)(/*_.VALCLO___V2453*/ meltfptr[2452]); - /*_.MAKE_LIST__V2483*/ meltfptr[2482] = - (meltgc_new_list((meltobject_ptr_t)(/*_.VALDATA___V2151*/ meltfptr[2150]))); - /*_.MAKE_LIST__V2484*/ meltfptr[2483] = - (meltgc_new_list((meltobject_ptr_t)(/*_.VALDATA___V2151*/ meltfptr[2150]))); - MELT_LOCATION("warmelt-first.melt:2348:/ initchunk"); + /*_.MAKE_LIST__V2501*/ meltfptr[2500] = + (meltgc_new_list((meltobject_ptr_t)(/*_.VALDATA___V2169*/ meltfptr[2168]))); + /*_.MAKE_LIST__V2502*/ meltfptr[2501] = + (meltgc_new_list((meltobject_ptr_t)(/*_.VALDATA___V2169*/ meltfptr[2168]))); + MELT_LOCATION("warmelt-first.melt:2355:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2482*/ meltfptr[2481])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2500*/ meltfptr[2499])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2482*/ meltfptr[2481])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2482*/ meltfptr[2481]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V2485*/ meltfptr[2484]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2500*/ meltfptr[2499])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2500*/ meltfptr[2499]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V2503*/ meltfptr[2502]); - MELT_LOCATION("warmelt-first.melt:2348:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:2355:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2482*/ meltfptr[2481])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2500*/ meltfptr[2499])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2482*/ meltfptr[2481])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2482*/ meltfptr[2481]))->obj_vartab[2] = (melt_ptr_t)( - /*_.MAKE_LIST__V2483*/ meltfptr[2482]); + melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2500*/ meltfptr[2499])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2500*/ meltfptr[2499]))->obj_vartab[2] = (melt_ptr_t)( + /*_.MAKE_LIST__V2501*/ meltfptr[2500]); - MELT_LOCATION("warmelt-first.melt:2348:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:2355:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2482*/ meltfptr[2481])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2500*/ meltfptr[2499])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2482*/ meltfptr[2481])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2482*/ meltfptr[2481]))->obj_vartab[3] = (melt_ptr_t)( - /*_.MAKE_LIST__V2484*/ meltfptr[2483]); + melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2500*/ meltfptr[2499])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2500*/ meltfptr[2499]))->obj_vartab[3] = (melt_ptr_t)( + /*_.MAKE_LIST__V2502*/ meltfptr[2501]); - MELT_LOCATION("warmelt-first.melt:2348:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:2355:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V2482*/ meltfptr[2481]); + meltgc_touch(/*_.VALDATA___V2500*/ meltfptr[2499]); - MELT_LOCATION("warmelt-first.melt:2355:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:2362:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2481*/ meltfptr[2480])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V2482*/ meltfptr[2481]); - ((meltroutine_ptr_t)/*_.VALROUT___V2481*/ meltfptr[2480])->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2482*/ meltfptr[2481]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2499*/ meltfptr[2498])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V2500*/ meltfptr[2499]); + ((meltroutine_ptr_t)/*_.VALROUT___V2499*/ meltfptr[2498])->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2500*/ meltfptr[2499]); - MELT_LOCATION("warmelt-first.melt:2355:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:2362:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2481*/ meltfptr[2480])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V2151*/ meltfptr[2150]); - ((meltroutine_ptr_t)/*_.VALROUT___V2481*/ meltfptr[2480])->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V2151*/ meltfptr[2150]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2499*/ meltfptr[2498])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V2169*/ meltfptr[2168]); + ((meltroutine_ptr_t)/*_.VALROUT___V2499*/ meltfptr[2498])->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V2169*/ meltfptr[2168]); - MELT_LOCATION("warmelt-first.melt:2355:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:2362:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2481*/ meltfptr[2480])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2499*/ meltfptr[2498])) == OBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V25*/ meltfptr[24]); - ((meltroutine_ptr_t)/*_.VALROUT___V2481*/ meltfptr[2480])->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V25*/ meltfptr[24]); + ((meltroutine_ptr_t)/*_.VALROUT___V2499*/ meltfptr[2498])->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V25*/ meltfptr[24]); - MELT_LOCATION("warmelt-first.melt:2355:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:2362:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2481*/ meltfptr[2480])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V2473*/ meltfptr[2472]); - ((meltroutine_ptr_t)/*_.VALROUT___V2481*/ meltfptr[2480])->tabval[4] = (melt_ptr_t)(/*_.VALCLO___V2473*/ meltfptr[2472]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2499*/ meltfptr[2498])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V2491*/ meltfptr[2490]); + ((meltroutine_ptr_t)/*_.VALROUT___V2499*/ meltfptr[2498])->tabval[4] = (melt_ptr_t)(/*_.VALCLO___V2491*/ meltfptr[2490]); - MELT_LOCATION("warmelt-first.melt:2355:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:2362:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2481*/ meltfptr[2480])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V2482*/ meltfptr[2481]); - ((meltroutine_ptr_t)/*_.VALROUT___V2481*/ meltfptr[2480])->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V2482*/ meltfptr[2481]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2499*/ meltfptr[2498])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V2500*/ meltfptr[2499]); + ((meltroutine_ptr_t)/*_.VALROUT___V2499*/ meltfptr[2498])->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V2500*/ meltfptr[2499]); - MELT_LOCATION("warmelt-first.melt:2365:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:2372:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2486*/ meltfptr[2485])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V2482*/ meltfptr[2481]); - ((meltroutine_ptr_t)/*_.VALROUT___V2486*/ meltfptr[2485])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V2482*/ meltfptr[2481]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2504*/ meltfptr[2503])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V2500*/ meltfptr[2499]); + ((meltroutine_ptr_t)/*_.VALROUT___V2504*/ meltfptr[2503])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V2500*/ meltfptr[2499]); - MELT_LOCATION("warmelt-first.melt:2365:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:2372:/ initchunk"); /*^touch*/ /*touch:IROUTVAL_*/ - meltgc_touch(/*_.VALROUT___V2486*/ meltfptr[2485]); + meltgc_touch(/*_.VALROUT___V2504*/ meltfptr[2503]); - MELT_LOCATION("warmelt-first.melt:2355:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:2362:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2481*/ meltfptr[2480])) == OBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_2473__INIT_UNITSTARTER#6", NULL != (/*_.VALROUT___V2486*/ meltfptr[2485])); - ((meltroutine_ptr_t)/*_.VALROUT___V2481*/ meltfptr[2480])->tabval[6] = (melt_ptr_t)(/*_.VALROUT___V2486*/ meltfptr[2485]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2499*/ meltfptr[2498])) == OBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_2491__INIT_UNITSTARTER#6", NULL != (/*_.VALROUT___V2504*/ meltfptr[2503])); + ((meltroutine_ptr_t)/*_.VALROUT___V2499*/ meltfptr[2498])->tabval[6] = (melt_ptr_t)(/*_.VALROUT___V2504*/ meltfptr[2503]); - MELT_LOCATION("warmelt-first.melt:2355:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:2362:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2481*/ meltfptr[2480])) == OBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_2473__INIT_UNITSTARTER#7", NULL != (/*_.VALROUT___V2487*/ meltfptr[2486])); - ((meltroutine_ptr_t)/*_.VALROUT___V2481*/ meltfptr[2480])->tabval[7] = (melt_ptr_t)(/*_.VALROUT___V2487*/ meltfptr[2486]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2499*/ meltfptr[2498])) == OBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_2491__INIT_UNITSTARTER#7", NULL != (/*_.VALROUT___V2505*/ meltfptr[2504])); + ((meltroutine_ptr_t)/*_.VALROUT___V2499*/ meltfptr[2498])->tabval[7] = (melt_ptr_t)(/*_.VALROUT___V2505*/ meltfptr[2504]); - MELT_LOCATION("warmelt-first.melt:2355:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:2362:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2481*/ meltfptr[2480])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V2482*/ meltfptr[2481]); - ((meltroutine_ptr_t)/*_.VALROUT___V2481*/ meltfptr[2480])->tabval[8] = (melt_ptr_t)(/*_.VALDATA___V2482*/ meltfptr[2481]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2499*/ meltfptr[2498])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V2500*/ meltfptr[2499]); + ((meltroutine_ptr_t)/*_.VALROUT___V2499*/ meltfptr[2498])->tabval[8] = (melt_ptr_t)(/*_.VALDATA___V2500*/ meltfptr[2499]); - MELT_LOCATION("warmelt-first.melt:2379:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:2386:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2488*/ meltfptr[2487])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V2482*/ meltfptr[2481]); - ((meltroutine_ptr_t)/*_.VALROUT___V2488*/ meltfptr[2487])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V2482*/ meltfptr[2481]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2506*/ meltfptr[2505])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V2500*/ meltfptr[2499]); + ((meltroutine_ptr_t)/*_.VALROUT___V2506*/ meltfptr[2505])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V2500*/ meltfptr[2499]); - MELT_LOCATION("warmelt-first.melt:2379:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:2386:/ initchunk"); /*^touch*/ /*touch:IROUTVAL_*/ - meltgc_touch(/*_.VALROUT___V2488*/ meltfptr[2487]); + meltgc_touch(/*_.VALROUT___V2506*/ meltfptr[2505]); - MELT_LOCATION("warmelt-first.melt:2355:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:2362:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2481*/ meltfptr[2480])) == OBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_2473__INIT_UNITSTARTER#9", NULL != (/*_.VALROUT___V2488*/ meltfptr[2487])); - ((meltroutine_ptr_t)/*_.VALROUT___V2481*/ meltfptr[2480])->tabval[9] = (melt_ptr_t)(/*_.VALROUT___V2488*/ meltfptr[2487]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2499*/ meltfptr[2498])) == OBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_2491__INIT_UNITSTARTER#9", NULL != (/*_.VALROUT___V2506*/ meltfptr[2505])); + ((meltroutine_ptr_t)/*_.VALROUT___V2499*/ meltfptr[2498])->tabval[9] = (melt_ptr_t)(/*_.VALROUT___V2506*/ meltfptr[2505]); - MELT_LOCATION("warmelt-first.melt:2355:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:2362:/ initchunk"); /*^touch*/ /*touch:IROUTVAL_*/ - meltgc_touch(/*_.VALROUT___V2481*/ meltfptr[2480]); + meltgc_touch(/*_.VALROUT___V2499*/ meltfptr[2498]); /*putclosurout*/ - melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V2480*/ meltfptr[2479])) == OBMAG_CLOSURE); - melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2481*/ meltfptr[2480])) == OBMAG_ROUTINE); - ((meltclosure_ptr_t)/*_.VALCLO___V2480*/ meltfptr[2479])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V2481*/ meltfptr[2480]); + melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V2498*/ meltfptr[2497])) == OBMAG_CLOSURE); + melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2499*/ meltfptr[2498])) == OBMAG_ROUTINE); + ((meltclosure_ptr_t)/*_.VALCLO___V2498*/ meltfptr[2497])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V2499*/ meltfptr[2498]); /*touch:DATACLOSURE_*/ - meltgc_touch(/*_.VALCLO___V2480*/ meltfptr[2479]); + meltgc_touch(/*_.VALCLO___V2498*/ meltfptr[2497]); - MELT_LOCATION("warmelt-first.melt:2411:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:2418:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2490*/ meltfptr[2489])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V2435*/ meltfptr[2434]); - ((meltroutine_ptr_t)/*_.VALROUT___V2490*/ meltfptr[2489])->tabval[0] = (melt_ptr_t)(/*_.VALCLO___V2435*/ meltfptr[2434]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2508*/ meltfptr[2507])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V2453*/ meltfptr[2452]); + ((meltroutine_ptr_t)/*_.VALROUT___V2508*/ meltfptr[2507])->tabval[0] = (melt_ptr_t)(/*_.VALCLO___V2453*/ meltfptr[2452]); - /*_.MAKE_LIST__V2492*/ meltfptr[2491] = - (meltgc_new_list((meltobject_ptr_t)(/*_.VALDATA___V2151*/ meltfptr[2150]))); - /*_.MAKE_LIST__V2493*/ meltfptr[2492] = - (meltgc_new_list((meltobject_ptr_t)(/*_.VALDATA___V2151*/ meltfptr[2150]))); - MELT_LOCATION("warmelt-first.melt:2405:/ initchunk"); + /*_.MAKE_LIST__V2510*/ meltfptr[2509] = + (meltgc_new_list((meltobject_ptr_t)(/*_.VALDATA___V2169*/ meltfptr[2168]))); + /*_.MAKE_LIST__V2511*/ meltfptr[2510] = + (meltgc_new_list((meltobject_ptr_t)(/*_.VALDATA___V2169*/ meltfptr[2168]))); + MELT_LOCATION("warmelt-first.melt:2412:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2491*/ meltfptr[2490])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2509*/ meltfptr[2508])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2491*/ meltfptr[2490])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2491*/ meltfptr[2490]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V2494*/ meltfptr[2493]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2509*/ meltfptr[2508])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2509*/ meltfptr[2508]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V2512*/ meltfptr[2511]); - MELT_LOCATION("warmelt-first.melt:2405:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:2412:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2491*/ meltfptr[2490])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2509*/ meltfptr[2508])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2491*/ meltfptr[2490])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2491*/ meltfptr[2490]))->obj_vartab[2] = (melt_ptr_t)( - /*_.MAKE_LIST__V2492*/ meltfptr[2491]); + melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2509*/ meltfptr[2508])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2509*/ meltfptr[2508]))->obj_vartab[2] = (melt_ptr_t)( + /*_.MAKE_LIST__V2510*/ meltfptr[2509]); - MELT_LOCATION("warmelt-first.melt:2405:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:2412:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2491*/ meltfptr[2490])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2509*/ meltfptr[2508])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2491*/ meltfptr[2490])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2491*/ meltfptr[2490]))->obj_vartab[3] = (melt_ptr_t)( - /*_.MAKE_LIST__V2493*/ meltfptr[2492]); + melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2509*/ meltfptr[2508])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2509*/ meltfptr[2508]))->obj_vartab[3] = (melt_ptr_t)( + /*_.MAKE_LIST__V2511*/ meltfptr[2510]); - MELT_LOCATION("warmelt-first.melt:2405:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:2412:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V2491*/ meltfptr[2490]); + meltgc_touch(/*_.VALDATA___V2509*/ meltfptr[2508]); - MELT_LOCATION("warmelt-first.melt:2411:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:2418:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2490*/ meltfptr[2489])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V2491*/ meltfptr[2490]); - ((meltroutine_ptr_t)/*_.VALROUT___V2490*/ meltfptr[2489])->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2491*/ meltfptr[2490]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2508*/ meltfptr[2507])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V2509*/ meltfptr[2508]); + ((meltroutine_ptr_t)/*_.VALROUT___V2508*/ meltfptr[2507])->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2509*/ meltfptr[2508]); - MELT_LOCATION("warmelt-first.melt:2411:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:2418:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2490*/ meltfptr[2489])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V2151*/ meltfptr[2150]); - ((meltroutine_ptr_t)/*_.VALROUT___V2490*/ meltfptr[2489])->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V2151*/ meltfptr[2150]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2508*/ meltfptr[2507])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V2169*/ meltfptr[2168]); + ((meltroutine_ptr_t)/*_.VALROUT___V2508*/ meltfptr[2507])->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V2169*/ meltfptr[2168]); - MELT_LOCATION("warmelt-first.melt:2411:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:2418:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2490*/ meltfptr[2489])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2508*/ meltfptr[2507])) == OBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V25*/ meltfptr[24]); - ((meltroutine_ptr_t)/*_.VALROUT___V2490*/ meltfptr[2489])->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V25*/ meltfptr[24]); + ((meltroutine_ptr_t)/*_.VALROUT___V2508*/ meltfptr[2507])->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V25*/ meltfptr[24]); - MELT_LOCATION("warmelt-first.melt:2411:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:2418:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2490*/ meltfptr[2489])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V2473*/ meltfptr[2472]); - ((meltroutine_ptr_t)/*_.VALROUT___V2490*/ meltfptr[2489])->tabval[4] = (melt_ptr_t)(/*_.VALCLO___V2473*/ meltfptr[2472]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2508*/ meltfptr[2507])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V2491*/ meltfptr[2490]); + ((meltroutine_ptr_t)/*_.VALROUT___V2508*/ meltfptr[2507])->tabval[4] = (melt_ptr_t)(/*_.VALCLO___V2491*/ meltfptr[2490]); - MELT_LOCATION("warmelt-first.melt:2411:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:2418:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2490*/ meltfptr[2489])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V2491*/ meltfptr[2490]); - ((meltroutine_ptr_t)/*_.VALROUT___V2490*/ meltfptr[2489])->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V2491*/ meltfptr[2490]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2508*/ meltfptr[2507])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V2509*/ meltfptr[2508]); + ((meltroutine_ptr_t)/*_.VALROUT___V2508*/ meltfptr[2507])->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V2509*/ meltfptr[2508]); - MELT_LOCATION("warmelt-first.melt:2421:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:2428:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2495*/ meltfptr[2494])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V2491*/ meltfptr[2490]); - ((meltroutine_ptr_t)/*_.VALROUT___V2495*/ meltfptr[2494])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V2491*/ meltfptr[2490]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2513*/ meltfptr[2512])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V2509*/ meltfptr[2508]); + ((meltroutine_ptr_t)/*_.VALROUT___V2513*/ meltfptr[2512])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V2509*/ meltfptr[2508]); - MELT_LOCATION("warmelt-first.melt:2421:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:2428:/ initchunk"); /*^touch*/ /*touch:IROUTVAL_*/ - meltgc_touch(/*_.VALROUT___V2495*/ meltfptr[2494]); + meltgc_touch(/*_.VALROUT___V2513*/ meltfptr[2512]); - MELT_LOCATION("warmelt-first.melt:2411:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:2418:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2490*/ meltfptr[2489])) == OBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_2486__INIT_UNITFINISHER#6", NULL != (/*_.VALROUT___V2495*/ meltfptr[2494])); - ((meltroutine_ptr_t)/*_.VALROUT___V2490*/ meltfptr[2489])->tabval[6] = (melt_ptr_t)(/*_.VALROUT___V2495*/ meltfptr[2494]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2508*/ meltfptr[2507])) == OBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_2504__INIT_UNITFINISHER#6", NULL != (/*_.VALROUT___V2513*/ meltfptr[2512])); + ((meltroutine_ptr_t)/*_.VALROUT___V2508*/ meltfptr[2507])->tabval[6] = (melt_ptr_t)(/*_.VALROUT___V2513*/ meltfptr[2512]); - MELT_LOCATION("warmelt-first.melt:2411:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:2418:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2490*/ meltfptr[2489])) == OBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_2486__INIT_UNITFINISHER#7", NULL != (/*_.VALROUT___V2496*/ meltfptr[2495])); - ((meltroutine_ptr_t)/*_.VALROUT___V2490*/ meltfptr[2489])->tabval[7] = (melt_ptr_t)(/*_.VALROUT___V2496*/ meltfptr[2495]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2508*/ meltfptr[2507])) == OBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_2504__INIT_UNITFINISHER#7", NULL != (/*_.VALROUT___V2514*/ meltfptr[2513])); + ((meltroutine_ptr_t)/*_.VALROUT___V2508*/ meltfptr[2507])->tabval[7] = (melt_ptr_t)(/*_.VALROUT___V2514*/ meltfptr[2513]); - MELT_LOCATION("warmelt-first.melt:2411:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:2418:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2490*/ meltfptr[2489])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V2491*/ meltfptr[2490]); - ((meltroutine_ptr_t)/*_.VALROUT___V2490*/ meltfptr[2489])->tabval[8] = (melt_ptr_t)(/*_.VALDATA___V2491*/ meltfptr[2490]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2508*/ meltfptr[2507])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V2509*/ meltfptr[2508]); + ((meltroutine_ptr_t)/*_.VALROUT___V2508*/ meltfptr[2507])->tabval[8] = (melt_ptr_t)(/*_.VALDATA___V2509*/ meltfptr[2508]); - MELT_LOCATION("warmelt-first.melt:2435:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:2442:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2497*/ meltfptr[2496])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V2491*/ meltfptr[2490]); - ((meltroutine_ptr_t)/*_.VALROUT___V2497*/ meltfptr[2496])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V2491*/ meltfptr[2490]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2515*/ meltfptr[2514])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V2509*/ meltfptr[2508]); + ((meltroutine_ptr_t)/*_.VALROUT___V2515*/ meltfptr[2514])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V2509*/ meltfptr[2508]); - MELT_LOCATION("warmelt-first.melt:2435:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:2442:/ initchunk"); /*^touch*/ /*touch:IROUTVAL_*/ - meltgc_touch(/*_.VALROUT___V2497*/ meltfptr[2496]); + meltgc_touch(/*_.VALROUT___V2515*/ meltfptr[2514]); - MELT_LOCATION("warmelt-first.melt:2411:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:2418:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2490*/ meltfptr[2489])) == OBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_2486__INIT_UNITFINISHER#9", NULL != (/*_.VALROUT___V2497*/ meltfptr[2496])); - ((meltroutine_ptr_t)/*_.VALROUT___V2490*/ meltfptr[2489])->tabval[9] = (melt_ptr_t)(/*_.VALROUT___V2497*/ meltfptr[2496]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2508*/ meltfptr[2507])) == OBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_2504__INIT_UNITFINISHER#9", NULL != (/*_.VALROUT___V2515*/ meltfptr[2514])); + ((meltroutine_ptr_t)/*_.VALROUT___V2508*/ meltfptr[2507])->tabval[9] = (melt_ptr_t)(/*_.VALROUT___V2515*/ meltfptr[2514]); - MELT_LOCATION("warmelt-first.melt:2411:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:2418:/ initchunk"); /*^touch*/ /*touch:IROUTVAL_*/ - meltgc_touch(/*_.VALROUT___V2490*/ meltfptr[2489]); + meltgc_touch(/*_.VALROUT___V2508*/ meltfptr[2507]); /*putclosurout*/ - melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V2489*/ meltfptr[2488])) == OBMAG_CLOSURE); - melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2490*/ meltfptr[2489])) == OBMAG_ROUTINE); - ((meltclosure_ptr_t)/*_.VALCLO___V2489*/ meltfptr[2488])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V2490*/ meltfptr[2489]); + melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V2507*/ meltfptr[2506])) == OBMAG_CLOSURE); + melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2508*/ meltfptr[2507])) == OBMAG_ROUTINE); + ((meltclosure_ptr_t)/*_.VALCLO___V2507*/ meltfptr[2506])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V2508*/ meltfptr[2507]); /*touch:DATACLOSURE_*/ - meltgc_touch(/*_.VALCLO___V2489*/ meltfptr[2488]); + meltgc_touch(/*_.VALCLO___V2507*/ meltfptr[2506]); - MELT_LOCATION("warmelt-first.melt:2475:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:2482:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2499*/ meltfptr[2498])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V2435*/ meltfptr[2434]); - ((meltroutine_ptr_t)/*_.VALROUT___V2499*/ meltfptr[2498])->tabval[0] = (melt_ptr_t)(/*_.VALCLO___V2435*/ meltfptr[2434]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2517*/ meltfptr[2516])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V2453*/ meltfptr[2452]); + ((meltroutine_ptr_t)/*_.VALROUT___V2517*/ meltfptr[2516])->tabval[0] = (melt_ptr_t)(/*_.VALCLO___V2453*/ meltfptr[2452]); - /*_.MAKE_MAPOBJECT__V2501*/ meltfptr[2500] = - (meltgc_new_mapobjects( (meltobject_ptr_t) (/*_.VALDATA___V2191*/ meltfptr[2190]), (41))); - MELT_LOCATION("warmelt-first.melt:2462:/ initchunk"); + /*_.MAKE_MAPOBJECT__V2519*/ meltfptr[2518] = + (meltgc_new_mapobjects( (meltobject_ptr_t) (/*_.VALDATA___V2209*/ meltfptr[2208]), (41))); + MELT_LOCATION("warmelt-first.melt:2469:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2500*/ meltfptr[2499])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2518*/ meltfptr[2517])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2500*/ meltfptr[2499])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2500*/ meltfptr[2499]))->obj_vartab[0] = (melt_ptr_t)( - /*_.MAKE_MAPOBJECT__V2501*/ meltfptr[2500]); + melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2518*/ meltfptr[2517])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2518*/ meltfptr[2517]))->obj_vartab[0] = (melt_ptr_t)( + /*_.MAKE_MAPOBJECT__V2519*/ meltfptr[2518]); - MELT_LOCATION("warmelt-first.melt:2462:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:2469:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V2500*/ meltfptr[2499]); + meltgc_touch(/*_.VALDATA___V2518*/ meltfptr[2517]); - MELT_LOCATION("warmelt-first.melt:2475:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:2482:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2499*/ meltfptr[2498])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V2500*/ meltfptr[2499]); - ((meltroutine_ptr_t)/*_.VALROUT___V2499*/ meltfptr[2498])->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2500*/ meltfptr[2499]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2517*/ meltfptr[2516])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V2518*/ meltfptr[2517]); + ((meltroutine_ptr_t)/*_.VALROUT___V2517*/ meltfptr[2516])->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2518*/ meltfptr[2517]); - MELT_LOCATION("warmelt-first.melt:2475:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:2482:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2499*/ meltfptr[2498])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2517*/ meltfptr[2516])) == OBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V35*/ meltfptr[34]); - ((meltroutine_ptr_t)/*_.VALROUT___V2499*/ meltfptr[2498])->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V35*/ meltfptr[34]); + ((meltroutine_ptr_t)/*_.VALROUT___V2517*/ meltfptr[2516])->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V35*/ meltfptr[34]); - MELT_LOCATION("warmelt-first.melt:2475:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:2482:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2499*/ meltfptr[2498])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2517*/ meltfptr[2516])) == OBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V301*/ meltfptr[300]); - ((meltroutine_ptr_t)/*_.VALROUT___V2499*/ meltfptr[2498])->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V301*/ meltfptr[300]); + ((meltroutine_ptr_t)/*_.VALROUT___V2517*/ meltfptr[2516])->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V301*/ meltfptr[300]); - MELT_LOCATION("warmelt-first.melt:2465:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:2472:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2502*/ meltfptr[2501])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2520*/ meltfptr[2519])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2502*/ meltfptr[2501])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2502*/ meltfptr[2501]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V2503*/ meltfptr[2502]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2520*/ meltfptr[2519])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2520*/ meltfptr[2519]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V2521*/ meltfptr[2520]); - MELT_LOCATION("warmelt-first.melt:2465:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:2472:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2502*/ meltfptr[2501])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2520*/ meltfptr[2519])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2502*/ meltfptr[2501])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2502*/ meltfptr[2501]))->obj_vartab[4] = (melt_ptr_t)( + melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2520*/ meltfptr[2519])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2520*/ meltfptr[2519]))->obj_vartab[4] = (melt_ptr_t)( /*_.VALDATA___V9*/ meltfptr[8]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2504*/ meltfptr[2503]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2504*/ meltfptr[2503])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V2504*/ meltfptr[2503]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V9*/ meltfptr[8]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2522*/ meltfptr[2521]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2522*/ meltfptr[2521])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V2522*/ meltfptr[2521]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V9*/ meltfptr[8]); /*touch:INITUP_*/ - meltgc_touch(/*_.VALTUP___V2504*/ meltfptr[2503]); + meltgc_touch(/*_.VALTUP___V2522*/ meltfptr[2521]); - MELT_LOCATION("warmelt-first.melt:2465:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:2472:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2502*/ meltfptr[2501])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2520*/ meltfptr[2519])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2502*/ meltfptr[2501])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2502*/ meltfptr[2501]))->obj_vartab[5] = (melt_ptr_t)( - /*_.VALTUP___V2504*/ meltfptr[2503]); + melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2520*/ meltfptr[2519])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2520*/ meltfptr[2519]))->obj_vartab[5] = (melt_ptr_t)( + /*_.VALTUP___V2522*/ meltfptr[2521]); - MELT_LOCATION("warmelt-first.melt:2465:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:2472:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2505*/ meltfptr[2504])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2523*/ meltfptr[2522])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2505*/ meltfptr[2504])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2505*/ meltfptr[2504]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V2506*/ meltfptr[2505]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2523*/ meltfptr[2522])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2523*/ meltfptr[2522]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V2524*/ meltfptr[2523]); - MELT_LOCATION("warmelt-first.melt:2465:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:2472:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2505*/ meltfptr[2504])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2523*/ meltfptr[2522])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2505*/ meltfptr[2504])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2505*/ meltfptr[2504]))->obj_vartab[2] = (melt_ptr_t)( - /*_.VALDATA___V2502*/ meltfptr[2501]); + melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2523*/ meltfptr[2522])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2523*/ meltfptr[2522]))->obj_vartab[2] = (melt_ptr_t)( + /*_.VALDATA___V2520*/ meltfptr[2519]); - MELT_LOCATION("warmelt-first.melt:2465:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:2472:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V2505*/ meltfptr[2504]); + meltgc_touch(/*_.VALDATA___V2523*/ meltfptr[2522]); - MELT_LOCATION("warmelt-first.melt:2465:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:2472:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2507*/ meltfptr[2506])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2525*/ meltfptr[2524])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2507*/ meltfptr[2506])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2507*/ meltfptr[2506]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V2508*/ meltfptr[2507]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2525*/ meltfptr[2524])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2525*/ meltfptr[2524]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V2526*/ meltfptr[2525]); - MELT_LOCATION("warmelt-first.melt:2465:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:2472:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2507*/ meltfptr[2506])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2525*/ meltfptr[2524])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2507*/ meltfptr[2506])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2507*/ meltfptr[2506]))->obj_vartab[2] = (melt_ptr_t)( - /*_.VALDATA___V2502*/ meltfptr[2501]); + melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2525*/ meltfptr[2524])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2525*/ meltfptr[2524]))->obj_vartab[2] = (melt_ptr_t)( + /*_.VALDATA___V2520*/ meltfptr[2519]); - MELT_LOCATION("warmelt-first.melt:2465:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:2472:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V2507*/ meltfptr[2506]); + meltgc_touch(/*_.VALDATA___V2525*/ meltfptr[2524]); - MELT_LOCATION("warmelt-first.melt:2465:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:2472:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2509*/ meltfptr[2508])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2527*/ meltfptr[2526])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2509*/ meltfptr[2508])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2509*/ meltfptr[2508]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V2510*/ meltfptr[2509]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2527*/ meltfptr[2526])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2527*/ meltfptr[2526]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V2528*/ meltfptr[2527]); - MELT_LOCATION("warmelt-first.melt:2465:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:2472:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2509*/ meltfptr[2508])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2527*/ meltfptr[2526])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2509*/ meltfptr[2508])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2509*/ meltfptr[2508]))->obj_vartab[2] = (melt_ptr_t)( - /*_.VALDATA___V2502*/ meltfptr[2501]); + melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2527*/ meltfptr[2526])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2527*/ meltfptr[2526]))->obj_vartab[2] = (melt_ptr_t)( + /*_.VALDATA___V2520*/ meltfptr[2519]); - MELT_LOCATION("warmelt-first.melt:2465:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:2472:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V2509*/ meltfptr[2508]); + meltgc_touch(/*_.VALDATA___V2527*/ meltfptr[2526]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2511*/ meltfptr[2510]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2511*/ meltfptr[2510])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V2511*/ meltfptr[2510]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V2505*/ meltfptr[2504]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2529*/ meltfptr[2528]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2529*/ meltfptr[2528])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V2529*/ meltfptr[2528]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V2523*/ meltfptr[2522]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2511*/ meltfptr[2510]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2511*/ meltfptr[2510])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V2511*/ meltfptr[2510]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2507*/ meltfptr[2506]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2529*/ meltfptr[2528]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2529*/ meltfptr[2528])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V2529*/ meltfptr[2528]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2525*/ meltfptr[2524]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2511*/ meltfptr[2510]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2511*/ meltfptr[2510])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V2511*/ meltfptr[2510]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V2509*/ meltfptr[2508]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2529*/ meltfptr[2528]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2529*/ meltfptr[2528])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V2529*/ meltfptr[2528]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V2527*/ meltfptr[2526]); /*touch:INITUP_*/ - meltgc_touch(/*_.VALTUP___V2511*/ meltfptr[2510]); + meltgc_touch(/*_.VALTUP___V2529*/ meltfptr[2528]); - MELT_LOCATION("warmelt-first.melt:2465:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:2472:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2502*/ meltfptr[2501])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2520*/ meltfptr[2519])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2502*/ meltfptr[2501])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2502*/ meltfptr[2501]))->obj_vartab[6] = (melt_ptr_t)( - /*_.VALTUP___V2511*/ meltfptr[2510]); + melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2520*/ meltfptr[2519])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2520*/ meltfptr[2519]))->obj_vartab[6] = (melt_ptr_t)( + /*_.VALTUP___V2529*/ meltfptr[2528]); - MELT_LOCATION("warmelt-first.melt:2465:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:2472:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V2502*/ meltfptr[2501]); + meltgc_touch(/*_.VALDATA___V2520*/ meltfptr[2519]); - MELT_LOCATION("warmelt-first.melt:2475:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:2482:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2499*/ meltfptr[2498])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V2502*/ meltfptr[2501]); - ((meltroutine_ptr_t)/*_.VALROUT___V2499*/ meltfptr[2498])->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V2502*/ meltfptr[2501]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2517*/ meltfptr[2516])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V2520*/ meltfptr[2519]); + ((meltroutine_ptr_t)/*_.VALROUT___V2517*/ meltfptr[2516])->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V2520*/ meltfptr[2519]); - MELT_LOCATION("warmelt-first.melt:2475:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:2482:/ initchunk"); /*^touch*/ /*touch:IROUTVAL_*/ - meltgc_touch(/*_.VALROUT___V2499*/ meltfptr[2498]); + meltgc_touch(/*_.VALROUT___V2517*/ meltfptr[2516]); /*putclosurout*/ - melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V2498*/ meltfptr[2497])) == OBMAG_CLOSURE); - melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2499*/ meltfptr[2498])) == OBMAG_ROUTINE); - ((meltclosure_ptr_t)/*_.VALCLO___V2498*/ meltfptr[2497])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V2499*/ meltfptr[2498]); + melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V2516*/ meltfptr[2515])) == OBMAG_CLOSURE); + melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2517*/ meltfptr[2516])) == OBMAG_ROUTINE); + ((meltclosure_ptr_t)/*_.VALCLO___V2516*/ meltfptr[2515])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V2517*/ meltfptr[2516]); /*touch:DATACLOSURE_*/ - meltgc_touch(/*_.VALCLO___V2498*/ meltfptr[2497]); + meltgc_touch(/*_.VALCLO___V2516*/ meltfptr[2515]); - MELT_LOCATION("warmelt-first.melt:3546:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:3555:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2436*/ meltfptr[2435])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V2437*/ meltfptr[2436]); - ((meltroutine_ptr_t)/*_.VALROUT___V2436*/ meltfptr[2435])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V2437*/ meltfptr[2436]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2454*/ meltfptr[2453])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V2455*/ meltfptr[2454]); + ((meltroutine_ptr_t)/*_.VALROUT___V2454*/ meltfptr[2453])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V2455*/ meltfptr[2454]); - MELT_LOCATION("warmelt-first.melt:3546:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:3555:/ initchunk"); /*^touch*/ /*touch:IROUTVAL_*/ - meltgc_touch(/*_.VALROUT___V2436*/ meltfptr[2435]); + meltgc_touch(/*_.VALROUT___V2454*/ meltfptr[2453]); /*putclosurout*/ - melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V2435*/ meltfptr[2434])) == OBMAG_CLOSURE); - melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2436*/ meltfptr[2435])) == OBMAG_ROUTINE); - ((meltclosure_ptr_t)/*_.VALCLO___V2435*/ meltfptr[2434])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V2436*/ meltfptr[2435]); + melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V2453*/ meltfptr[2452])) == OBMAG_CLOSURE); + melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2454*/ meltfptr[2453])) == OBMAG_ROUTINE); + ((meltclosure_ptr_t)/*_.VALCLO___V2453*/ meltfptr[2452])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V2454*/ meltfptr[2453]); /*touch:DATACLOSURE_*/ - meltgc_touch(/*_.VALCLO___V2435*/ meltfptr[2434]); + meltgc_touch(/*_.VALCLO___V2453*/ meltfptr[2452]); - MELT_LOCATION("warmelt-first.melt:2020:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:2027:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2434*/ meltfptr[2433])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V2435*/ meltfptr[2434]); - ((meltroutine_ptr_t)/*_.VALROUT___V2434*/ meltfptr[2433])->tabval[2] = (melt_ptr_t)(/*_.VALCLO___V2435*/ meltfptr[2434]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2452*/ meltfptr[2451])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V2453*/ meltfptr[2452]); + ((meltroutine_ptr_t)/*_.VALROUT___V2452*/ meltfptr[2451])->tabval[2] = (melt_ptr_t)(/*_.VALCLO___V2453*/ meltfptr[2452]); - MELT_LOCATION("warmelt-first.melt:2020:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:2027:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2434*/ meltfptr[2433])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V2122*/ meltfptr[2121]); - ((meltroutine_ptr_t)/*_.VALROUT___V2434*/ meltfptr[2433])->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V2122*/ meltfptr[2121]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2452*/ meltfptr[2451])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V2140*/ meltfptr[2139]); + ((meltroutine_ptr_t)/*_.VALROUT___V2452*/ meltfptr[2451])->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V2140*/ meltfptr[2139]); - MELT_LOCATION("warmelt-first.melt:2020:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:2027:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2434*/ meltfptr[2433])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V2143*/ meltfptr[2142]); - ((meltroutine_ptr_t)/*_.VALROUT___V2434*/ meltfptr[2433])->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V2143*/ meltfptr[2142]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2452*/ meltfptr[2451])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V2161*/ meltfptr[2160]); + ((meltroutine_ptr_t)/*_.VALROUT___V2452*/ meltfptr[2451])->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V2161*/ meltfptr[2160]); - MELT_LOCATION("warmelt-first.melt:2020:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:2027:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2434*/ meltfptr[2433])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2452*/ meltfptr[2451])) == OBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V311*/ meltfptr[310]); - ((meltroutine_ptr_t)/*_.VALROUT___V2434*/ meltfptr[2433])->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V311*/ meltfptr[310]); + ((meltroutine_ptr_t)/*_.VALROUT___V2452*/ meltfptr[2451])->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V311*/ meltfptr[310]); - MELT_LOCATION("warmelt-first.melt:2020:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:2027:/ initchunk"); /*^touch*/ /*touch:IROUTVAL_*/ - meltgc_touch(/*_.VALROUT___V2434*/ meltfptr[2433]); + meltgc_touch(/*_.VALROUT___V2452*/ meltfptr[2451]); /*putclosurout*/ - melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V2512*/ meltfptr[2511])) == OBMAG_CLOSURE); - melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2434*/ meltfptr[2433])) == OBMAG_ROUTINE); - ((meltclosure_ptr_t)/*_.VALCLO___V2512*/ meltfptr[2511])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V2434*/ meltfptr[2433]); + melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V2530*/ meltfptr[2529])) == OBMAG_CLOSURE); + melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2452*/ meltfptr[2451])) == OBMAG_ROUTINE); + ((meltclosure_ptr_t)/*_.VALCLO___V2530*/ meltfptr[2529])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V2452*/ meltfptr[2451]); /*touch:DATACLOSURE_*/ - meltgc_touch(/*_.VALCLO___V2512*/ meltfptr[2511]); + meltgc_touch(/*_.VALCLO___V2530*/ meltfptr[2529]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2513*/ meltfptr[2512])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2531*/ meltfptr[2530])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2513*/ meltfptr[2512])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2513*/ meltfptr[2512]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V2514*/ meltfptr[2513]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2531*/ meltfptr[2530])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2531*/ meltfptr[2530]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V2532*/ meltfptr[2531]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V2513*/ meltfptr[2512]); + meltgc_touch(/*_.VALDATA___V2531*/ meltfptr[2530]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2515*/ meltfptr[2514])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2533*/ meltfptr[2532])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2515*/ meltfptr[2514])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2515*/ meltfptr[2514]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V2516*/ meltfptr[2515]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2533*/ meltfptr[2532])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2533*/ meltfptr[2532]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V2534*/ meltfptr[2533]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V2515*/ meltfptr[2514]); + meltgc_touch(/*_.VALDATA___V2533*/ meltfptr[2532]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2517*/ meltfptr[2516])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2535*/ meltfptr[2534])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2517*/ meltfptr[2516])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2517*/ meltfptr[2516]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V2518*/ meltfptr[2517]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2535*/ meltfptr[2534])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2535*/ meltfptr[2534]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V2536*/ meltfptr[2535]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V2517*/ meltfptr[2516]); + meltgc_touch(/*_.VALDATA___V2535*/ meltfptr[2534]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2519*/ meltfptr[2518])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2537*/ meltfptr[2536])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2519*/ meltfptr[2518])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2519*/ meltfptr[2518]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V2520*/ meltfptr[2519]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2537*/ meltfptr[2536])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2537*/ meltfptr[2536]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V2538*/ meltfptr[2537]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V2519*/ meltfptr[2518]); + meltgc_touch(/*_.VALDATA___V2537*/ meltfptr[2536]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2521*/ meltfptr[2520])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2539*/ meltfptr[2538])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2521*/ meltfptr[2520])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2521*/ meltfptr[2520]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V2522*/ meltfptr[2521]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2539*/ meltfptr[2538])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2539*/ meltfptr[2538]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V2540*/ meltfptr[2539]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V2521*/ meltfptr[2520]); + meltgc_touch(/*_.VALDATA___V2539*/ meltfptr[2538]); - MELT_LOCATION("warmelt-first.melt:2331:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:2338:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2523*/ meltfptr[2522])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V2469*/ meltfptr[2468]); - ((meltroutine_ptr_t)/*_.VALROUT___V2523*/ meltfptr[2522])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V2469*/ meltfptr[2468]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2541*/ meltfptr[2540])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V2487*/ meltfptr[2486]); + ((meltroutine_ptr_t)/*_.VALROUT___V2541*/ meltfptr[2540])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V2487*/ meltfptr[2486]); - MELT_LOCATION("warmelt-first.melt:2331:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:2338:/ initchunk"); /*^touch*/ /*touch:IROUTVAL_*/ - meltgc_touch(/*_.VALROUT___V2523*/ meltfptr[2522]); + meltgc_touch(/*_.VALROUT___V2541*/ meltfptr[2540]); /*putclosurout*/ - melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V2524*/ meltfptr[2523])) == OBMAG_CLOSURE); - melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2523*/ meltfptr[2522])) == OBMAG_ROUTINE); - ((meltclosure_ptr_t)/*_.VALCLO___V2524*/ meltfptr[2523])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V2523*/ meltfptr[2522]); + melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V2542*/ meltfptr[2541])) == OBMAG_CLOSURE); + melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2541*/ meltfptr[2540])) == OBMAG_ROUTINE); + ((meltclosure_ptr_t)/*_.VALCLO___V2542*/ meltfptr[2541])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V2541*/ meltfptr[2540]); /*touch:DATACLOSURE_*/ - meltgc_touch(/*_.VALCLO___V2524*/ meltfptr[2523]); + meltgc_touch(/*_.VALCLO___V2542*/ meltfptr[2541]); - MELT_LOCATION("warmelt-first.melt:2339:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:2346:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2525*/ meltfptr[2524])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V2469*/ meltfptr[2468]); - ((meltroutine_ptr_t)/*_.VALROUT___V2525*/ meltfptr[2524])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V2469*/ meltfptr[2468]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2543*/ meltfptr[2542])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V2487*/ meltfptr[2486]); + ((meltroutine_ptr_t)/*_.VALROUT___V2543*/ meltfptr[2542])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V2487*/ meltfptr[2486]); - MELT_LOCATION("warmelt-first.melt:2339:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:2346:/ initchunk"); /*^touch*/ /*touch:IROUTVAL_*/ - meltgc_touch(/*_.VALROUT___V2525*/ meltfptr[2524]); + meltgc_touch(/*_.VALROUT___V2543*/ meltfptr[2542]); /*putclosurout*/ - melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V2526*/ meltfptr[2525])) == OBMAG_CLOSURE); - melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2525*/ meltfptr[2524])) == OBMAG_ROUTINE); - ((meltclosure_ptr_t)/*_.VALCLO___V2526*/ meltfptr[2525])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V2525*/ meltfptr[2524]); + melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V2544*/ meltfptr[2543])) == OBMAG_CLOSURE); + melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2543*/ meltfptr[2542])) == OBMAG_ROUTINE); + ((meltclosure_ptr_t)/*_.VALCLO___V2544*/ meltfptr[2543])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V2543*/ meltfptr[2542]); /*touch:DATACLOSURE_*/ - meltgc_touch(/*_.VALCLO___V2526*/ meltfptr[2525]); + meltgc_touch(/*_.VALCLO___V2544*/ meltfptr[2543]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2527*/ meltfptr[2526])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2545*/ meltfptr[2544])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2527*/ meltfptr[2526])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2527*/ meltfptr[2526]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V2528*/ meltfptr[2527]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2545*/ meltfptr[2544])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2545*/ meltfptr[2544]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V2546*/ meltfptr[2545]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V2527*/ meltfptr[2526]); + meltgc_touch(/*_.VALDATA___V2545*/ meltfptr[2544]); - MELT_LOCATION("warmelt-first.melt:2389:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:2396:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2529*/ meltfptr[2528])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V2482*/ meltfptr[2481]); - ((meltroutine_ptr_t)/*_.VALROUT___V2529*/ meltfptr[2528])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V2482*/ meltfptr[2481]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2547*/ meltfptr[2546])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V2500*/ meltfptr[2499]); + ((meltroutine_ptr_t)/*_.VALROUT___V2547*/ meltfptr[2546])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V2500*/ meltfptr[2499]); - MELT_LOCATION("warmelt-first.melt:2389:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:2396:/ initchunk"); /*^touch*/ /*touch:IROUTVAL_*/ - meltgc_touch(/*_.VALROUT___V2529*/ meltfptr[2528]); + meltgc_touch(/*_.VALROUT___V2547*/ meltfptr[2546]); /*putclosurout*/ - melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V2530*/ meltfptr[2529])) == OBMAG_CLOSURE); - melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2529*/ meltfptr[2528])) == OBMAG_ROUTINE); - ((meltclosure_ptr_t)/*_.VALCLO___V2530*/ meltfptr[2529])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V2529*/ meltfptr[2528]); + melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V2548*/ meltfptr[2547])) == OBMAG_CLOSURE); + melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2547*/ meltfptr[2546])) == OBMAG_ROUTINE); + ((meltclosure_ptr_t)/*_.VALCLO___V2548*/ meltfptr[2547])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V2547*/ meltfptr[2546]); /*touch:DATACLOSURE_*/ - meltgc_touch(/*_.VALCLO___V2530*/ meltfptr[2529]); + meltgc_touch(/*_.VALCLO___V2548*/ meltfptr[2547]); - MELT_LOCATION("warmelt-first.melt:2396:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:2403:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2531*/ meltfptr[2530])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V2482*/ meltfptr[2481]); - ((meltroutine_ptr_t)/*_.VALROUT___V2531*/ meltfptr[2530])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V2482*/ meltfptr[2481]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2549*/ meltfptr[2548])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V2500*/ meltfptr[2499]); + ((meltroutine_ptr_t)/*_.VALROUT___V2549*/ meltfptr[2548])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V2500*/ meltfptr[2499]); - MELT_LOCATION("warmelt-first.melt:2396:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:2403:/ initchunk"); /*^touch*/ /*touch:IROUTVAL_*/ - meltgc_touch(/*_.VALROUT___V2531*/ meltfptr[2530]); + meltgc_touch(/*_.VALROUT___V2549*/ meltfptr[2548]); /*putclosurout*/ - melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V2532*/ meltfptr[2531])) == OBMAG_CLOSURE); - melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2531*/ meltfptr[2530])) == OBMAG_ROUTINE); - ((meltclosure_ptr_t)/*_.VALCLO___V2532*/ meltfptr[2531])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V2531*/ meltfptr[2530]); + melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V2550*/ meltfptr[2549])) == OBMAG_CLOSURE); + melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2549*/ meltfptr[2548])) == OBMAG_ROUTINE); + ((meltclosure_ptr_t)/*_.VALCLO___V2550*/ meltfptr[2549])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V2549*/ meltfptr[2548]); /*touch:DATACLOSURE_*/ - meltgc_touch(/*_.VALCLO___V2532*/ meltfptr[2531]); + meltgc_touch(/*_.VALCLO___V2550*/ meltfptr[2549]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2533*/ meltfptr[2532])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2551*/ meltfptr[2550])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2533*/ meltfptr[2532])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2533*/ meltfptr[2532]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V2534*/ meltfptr[2533]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2551*/ meltfptr[2550])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2551*/ meltfptr[2550]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V2552*/ meltfptr[2551]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V2533*/ meltfptr[2532]); + meltgc_touch(/*_.VALDATA___V2551*/ meltfptr[2550]); - MELT_LOCATION("warmelt-first.melt:2445:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:2452:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2535*/ meltfptr[2534])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V2491*/ meltfptr[2490]); - ((meltroutine_ptr_t)/*_.VALROUT___V2535*/ meltfptr[2534])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V2491*/ meltfptr[2490]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2553*/ meltfptr[2552])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V2509*/ meltfptr[2508]); + ((meltroutine_ptr_t)/*_.VALROUT___V2553*/ meltfptr[2552])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V2509*/ meltfptr[2508]); - MELT_LOCATION("warmelt-first.melt:2445:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:2452:/ initchunk"); /*^touch*/ /*touch:IROUTVAL_*/ - meltgc_touch(/*_.VALROUT___V2535*/ meltfptr[2534]); + meltgc_touch(/*_.VALROUT___V2553*/ meltfptr[2552]); /*putclosurout*/ - melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V2536*/ meltfptr[2535])) == OBMAG_CLOSURE); - melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2535*/ meltfptr[2534])) == OBMAG_ROUTINE); - ((meltclosure_ptr_t)/*_.VALCLO___V2536*/ meltfptr[2535])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V2535*/ meltfptr[2534]); + melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V2554*/ meltfptr[2553])) == OBMAG_CLOSURE); + melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2553*/ meltfptr[2552])) == OBMAG_ROUTINE); + ((meltclosure_ptr_t)/*_.VALCLO___V2554*/ meltfptr[2553])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V2553*/ meltfptr[2552]); /*touch:DATACLOSURE_*/ - meltgc_touch(/*_.VALCLO___V2536*/ meltfptr[2535]); + meltgc_touch(/*_.VALCLO___V2554*/ meltfptr[2553]); - MELT_LOCATION("warmelt-first.melt:2453:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:2460:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2537*/ meltfptr[2536])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V2491*/ meltfptr[2490]); - ((meltroutine_ptr_t)/*_.VALROUT___V2537*/ meltfptr[2536])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V2491*/ meltfptr[2490]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2555*/ meltfptr[2554])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V2509*/ meltfptr[2508]); + ((meltroutine_ptr_t)/*_.VALROUT___V2555*/ meltfptr[2554])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V2509*/ meltfptr[2508]); - MELT_LOCATION("warmelt-first.melt:2453:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:2460:/ initchunk"); /*^touch*/ /*touch:IROUTVAL_*/ - meltgc_touch(/*_.VALROUT___V2537*/ meltfptr[2536]); + meltgc_touch(/*_.VALROUT___V2555*/ meltfptr[2554]); /*putclosurout*/ - melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V2538*/ meltfptr[2537])) == OBMAG_CLOSURE); - melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2537*/ meltfptr[2536])) == OBMAG_ROUTINE); - ((meltclosure_ptr_t)/*_.VALCLO___V2538*/ meltfptr[2537])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V2537*/ meltfptr[2536]); + melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V2556*/ meltfptr[2555])) == OBMAG_CLOSURE); + melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2555*/ meltfptr[2554])) == OBMAG_ROUTINE); + ((meltclosure_ptr_t)/*_.VALCLO___V2556*/ meltfptr[2555])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V2555*/ meltfptr[2554]); /*touch:DATACLOSURE_*/ - meltgc_touch(/*_.VALCLO___V2538*/ meltfptr[2537]); + meltgc_touch(/*_.VALCLO___V2556*/ meltfptr[2555]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2539*/ meltfptr[2538])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2557*/ meltfptr[2556])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2539*/ meltfptr[2538])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2539*/ meltfptr[2538]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V2540*/ meltfptr[2539]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2557*/ meltfptr[2556])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2557*/ meltfptr[2556]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V2558*/ meltfptr[2557]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V2539*/ meltfptr[2538]); + meltgc_touch(/*_.VALDATA___V2557*/ meltfptr[2556]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2541*/ meltfptr[2540])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2559*/ meltfptr[2558])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2541*/ meltfptr[2540])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2541*/ meltfptr[2540]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V2542*/ meltfptr[2541]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2559*/ meltfptr[2558])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2559*/ meltfptr[2558]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V2560*/ meltfptr[2559]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V2541*/ meltfptr[2540]); + meltgc_touch(/*_.VALDATA___V2559*/ meltfptr[2558]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2543*/ meltfptr[2542])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2561*/ meltfptr[2560])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2543*/ meltfptr[2542])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2543*/ meltfptr[2542]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V2544*/ meltfptr[2543]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2561*/ meltfptr[2560])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2561*/ meltfptr[2560]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V2562*/ meltfptr[2561]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V2543*/ meltfptr[2542]); + meltgc_touch(/*_.VALDATA___V2561*/ meltfptr[2560]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2545*/ meltfptr[2544])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2563*/ meltfptr[2562])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2545*/ meltfptr[2544])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2545*/ meltfptr[2544]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V2546*/ meltfptr[2545]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2563*/ meltfptr[2562])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2563*/ meltfptr[2562]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V2564*/ meltfptr[2563]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V2545*/ meltfptr[2544]); + meltgc_touch(/*_.VALDATA___V2563*/ meltfptr[2562]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2547*/ meltfptr[2546])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2565*/ meltfptr[2564])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2547*/ meltfptr[2546])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2547*/ meltfptr[2546]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V2548*/ meltfptr[2547]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2565*/ meltfptr[2564])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2565*/ meltfptr[2564]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V2566*/ meltfptr[2565]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V2547*/ meltfptr[2546]); + meltgc_touch(/*_.VALDATA___V2565*/ meltfptr[2564]); - MELT_LOCATION("warmelt-first.melt:2498:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:2505:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2549*/ meltfptr[2548])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2567*/ meltfptr[2566])) == OBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V301*/ meltfptr[300]); - ((meltroutine_ptr_t)/*_.VALROUT___V2549*/ meltfptr[2548])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V301*/ meltfptr[300]); + ((meltroutine_ptr_t)/*_.VALROUT___V2567*/ meltfptr[2566])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V301*/ meltfptr[300]); - MELT_LOCATION("warmelt-first.melt:2498:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:2505:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2549*/ meltfptr[2548])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V2500*/ meltfptr[2499]); - ((meltroutine_ptr_t)/*_.VALROUT___V2549*/ meltfptr[2548])->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2500*/ meltfptr[2499]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2567*/ meltfptr[2566])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V2518*/ meltfptr[2517]); + ((meltroutine_ptr_t)/*_.VALROUT___V2567*/ meltfptr[2566])->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2518*/ meltfptr[2517]); - MELT_LOCATION("warmelt-first.melt:2498:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:2505:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2549*/ meltfptr[2548])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V2502*/ meltfptr[2501]); - ((meltroutine_ptr_t)/*_.VALROUT___V2549*/ meltfptr[2548])->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V2502*/ meltfptr[2501]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2567*/ meltfptr[2566])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V2520*/ meltfptr[2519]); + ((meltroutine_ptr_t)/*_.VALROUT___V2567*/ meltfptr[2566])->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V2520*/ meltfptr[2519]); - MELT_LOCATION("warmelt-first.melt:2498:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:2505:/ initchunk"); /*^touch*/ /*touch:IROUTVAL_*/ - meltgc_touch(/*_.VALROUT___V2549*/ meltfptr[2548]); + meltgc_touch(/*_.VALROUT___V2567*/ meltfptr[2566]); /*putclosurout*/ - melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V2550*/ meltfptr[2549])) == OBMAG_CLOSURE); - melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2549*/ meltfptr[2548])) == OBMAG_ROUTINE); - ((meltclosure_ptr_t)/*_.VALCLO___V2550*/ meltfptr[2549])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V2549*/ meltfptr[2548]); + melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V2568*/ meltfptr[2567])) == OBMAG_CLOSURE); + melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2567*/ meltfptr[2566])) == OBMAG_ROUTINE); + ((meltclosure_ptr_t)/*_.VALCLO___V2568*/ meltfptr[2567])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V2567*/ meltfptr[2566]); /*touch:DATACLOSURE_*/ - meltgc_touch(/*_.VALCLO___V2550*/ meltfptr[2549]); + meltgc_touch(/*_.VALCLO___V2568*/ meltfptr[2567]); - MELT_LOCATION("warmelt-first.melt:2513:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:2520:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2551*/ meltfptr[2550])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V2500*/ meltfptr[2499]); - ((meltroutine_ptr_t)/*_.VALROUT___V2551*/ meltfptr[2550])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V2500*/ meltfptr[2499]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2569*/ meltfptr[2568])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V2518*/ meltfptr[2517]); + ((meltroutine_ptr_t)/*_.VALROUT___V2569*/ meltfptr[2568])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V2518*/ meltfptr[2517]); - MELT_LOCATION("warmelt-first.melt:2513:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:2520:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2551*/ meltfptr[2550])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V2502*/ meltfptr[2501]); - ((meltroutine_ptr_t)/*_.VALROUT___V2551*/ meltfptr[2550])->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2502*/ meltfptr[2501]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2569*/ meltfptr[2568])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V2520*/ meltfptr[2519]); + ((meltroutine_ptr_t)/*_.VALROUT___V2569*/ meltfptr[2568])->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2520*/ meltfptr[2519]); - MELT_LOCATION("warmelt-first.melt:3010:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:3017:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2553*/ meltfptr[2552])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V2143*/ meltfptr[2142]); - ((meltroutine_ptr_t)/*_.VALROUT___V2553*/ meltfptr[2552])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V2143*/ meltfptr[2142]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2571*/ meltfptr[2570])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V2161*/ meltfptr[2160]); + ((meltroutine_ptr_t)/*_.VALROUT___V2571*/ meltfptr[2570])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V2161*/ meltfptr[2160]); - MELT_LOCATION("warmelt-first.melt:3010:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:3017:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2553*/ meltfptr[2552])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V2159*/ meltfptr[2158]); - ((meltroutine_ptr_t)/*_.VALROUT___V2553*/ meltfptr[2552])->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2159*/ meltfptr[2158]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2571*/ meltfptr[2570])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V2177*/ meltfptr[2176]); + ((meltroutine_ptr_t)/*_.VALROUT___V2571*/ meltfptr[2570])->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2177*/ meltfptr[2176]); /*putclosurout*/ - melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V2554*/ meltfptr[2553])) == OBMAG_CLOSURE); - melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2555*/ meltfptr[2554])) == OBMAG_ROUTINE); - ((meltclosure_ptr_t)/*_.VALCLO___V2554*/ meltfptr[2553])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V2555*/ meltfptr[2554]); + melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V2572*/ meltfptr[2571])) == OBMAG_CLOSURE); + melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2573*/ meltfptr[2572])) == OBMAG_ROUTINE); + ((meltclosure_ptr_t)/*_.VALCLO___V2572*/ meltfptr[2571])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V2573*/ meltfptr[2572]); /*touch:DATACLOSURE_*/ - meltgc_touch(/*_.VALCLO___V2554*/ meltfptr[2553]); + meltgc_touch(/*_.VALCLO___V2572*/ meltfptr[2571]); - MELT_LOCATION("warmelt-first.melt:3010:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:3017:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2553*/ meltfptr[2552])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V2554*/ meltfptr[2553]); - ((meltroutine_ptr_t)/*_.VALROUT___V2553*/ meltfptr[2552])->tabval[2] = (melt_ptr_t)(/*_.VALCLO___V2554*/ meltfptr[2553]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2571*/ meltfptr[2570])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V2572*/ meltfptr[2571]); + ((meltroutine_ptr_t)/*_.VALROUT___V2571*/ meltfptr[2570])->tabval[2] = (melt_ptr_t)(/*_.VALCLO___V2572*/ meltfptr[2571]); - MELT_LOCATION("warmelt-first.melt:3010:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:3017:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2553*/ meltfptr[2552])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V2143*/ meltfptr[2142]); - ((meltroutine_ptr_t)/*_.VALROUT___V2553*/ meltfptr[2552])->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V2143*/ meltfptr[2142]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2571*/ meltfptr[2570])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V2161*/ meltfptr[2160]); + ((meltroutine_ptr_t)/*_.VALROUT___V2571*/ meltfptr[2570])->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V2161*/ meltfptr[2160]); - MELT_LOCATION("warmelt-first.melt:3024:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:3031:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2556*/ meltfptr[2555])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V2143*/ meltfptr[2142]); - ((meltroutine_ptr_t)/*_.VALROUT___V2556*/ meltfptr[2555])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V2143*/ meltfptr[2142]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2574*/ meltfptr[2573])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V2161*/ meltfptr[2160]); + ((meltroutine_ptr_t)/*_.VALROUT___V2574*/ meltfptr[2573])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V2161*/ meltfptr[2160]); - MELT_LOCATION("warmelt-first.melt:3024:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:3031:/ initchunk"); /*^touch*/ /*touch:IROUTVAL_*/ - meltgc_touch(/*_.VALROUT___V2556*/ meltfptr[2555]); + meltgc_touch(/*_.VALROUT___V2574*/ meltfptr[2573]); - MELT_LOCATION("warmelt-first.melt:3010:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:3017:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2553*/ meltfptr[2552])) == OBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_2655__MAPOBJECT_SORTED_ATTRIBUTE_TUPLE#4", NULL != (/*_.VALROUT___V2556*/ meltfptr[2555])); - ((meltroutine_ptr_t)/*_.VALROUT___V2553*/ meltfptr[2552])->tabval[4] = (melt_ptr_t)(/*_.VALROUT___V2556*/ meltfptr[2555]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2571*/ meltfptr[2570])) == OBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_2673__MAPOBJECT_SORTED_ATTRIBUTE_TUPLE#4", NULL != (/*_.VALROUT___V2574*/ meltfptr[2573])); + ((meltroutine_ptr_t)/*_.VALROUT___V2571*/ meltfptr[2570])->tabval[4] = (melt_ptr_t)(/*_.VALROUT___V2574*/ meltfptr[2573]); - MELT_LOCATION("warmelt-first.melt:2928:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:2935:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2558*/ meltfptr[2557])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2576*/ meltfptr[2575])) == OBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V311*/ meltfptr[310]); - ((meltroutine_ptr_t)/*_.VALROUT___V2558*/ meltfptr[2557])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V311*/ meltfptr[310]); + ((meltroutine_ptr_t)/*_.VALROUT___V2576*/ meltfptr[2575])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V311*/ meltfptr[310]); - MELT_LOCATION("warmelt-first.melt:2928:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:2935:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2558*/ meltfptr[2557])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2576*/ meltfptr[2575])) == OBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V35*/ meltfptr[34]); - ((meltroutine_ptr_t)/*_.VALROUT___V2558*/ meltfptr[2557])->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V35*/ meltfptr[34]); + ((meltroutine_ptr_t)/*_.VALROUT___V2576*/ meltfptr[2575])->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V35*/ meltfptr[34]); - MELT_LOCATION("warmelt-first.melt:2928:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:2935:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2558*/ meltfptr[2557])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2576*/ meltfptr[2575])) == OBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V507*/ meltfptr[506]); - ((meltroutine_ptr_t)/*_.VALROUT___V2558*/ meltfptr[2557])->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V507*/ meltfptr[506]); + ((meltroutine_ptr_t)/*_.VALROUT___V2576*/ meltfptr[2575])->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V507*/ meltfptr[506]); - MELT_LOCATION("warmelt-first.melt:2928:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:2935:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2558*/ meltfptr[2557])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V2557*/ meltfptr[2556]); - ((meltroutine_ptr_t)/*_.VALROUT___V2558*/ meltfptr[2557])->tabval[3] = (melt_ptr_t)(/*_.VALCLO___V2557*/ meltfptr[2556]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2576*/ meltfptr[2575])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V2575*/ meltfptr[2574]); + ((meltroutine_ptr_t)/*_.VALROUT___V2576*/ meltfptr[2575])->tabval[3] = (melt_ptr_t)(/*_.VALCLO___V2575*/ meltfptr[2574]); - MELT_LOCATION("warmelt-first.melt:2928:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:2935:/ initchunk"); /*^touch*/ /*touch:IROUTVAL_*/ - meltgc_touch(/*_.VALROUT___V2558*/ meltfptr[2557]); + meltgc_touch(/*_.VALROUT___V2576*/ meltfptr[2575]); /*putclosurout*/ - melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V2557*/ meltfptr[2556])) == OBMAG_CLOSURE); - melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2558*/ meltfptr[2557])) == OBMAG_ROUTINE); - ((meltclosure_ptr_t)/*_.VALCLO___V2557*/ meltfptr[2556])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V2558*/ meltfptr[2557]); + melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V2575*/ meltfptr[2574])) == OBMAG_CLOSURE); + melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2576*/ meltfptr[2575])) == OBMAG_ROUTINE); + ((meltclosure_ptr_t)/*_.VALCLO___V2575*/ meltfptr[2574])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V2576*/ meltfptr[2575]); /*touch:DATACLOSURE_*/ - meltgc_touch(/*_.VALCLO___V2557*/ meltfptr[2556]); + meltgc_touch(/*_.VALCLO___V2575*/ meltfptr[2574]); - MELT_LOCATION("warmelt-first.melt:3010:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:3017:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2553*/ meltfptr[2552])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V2557*/ meltfptr[2556]); - ((meltroutine_ptr_t)/*_.VALROUT___V2553*/ meltfptr[2552])->tabval[5] = (melt_ptr_t)(/*_.VALCLO___V2557*/ meltfptr[2556]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2571*/ meltfptr[2570])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V2575*/ meltfptr[2574]); + ((meltroutine_ptr_t)/*_.VALROUT___V2571*/ meltfptr[2570])->tabval[5] = (melt_ptr_t)(/*_.VALCLO___V2575*/ meltfptr[2574]); - MELT_LOCATION("warmelt-first.melt:3036:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:3043:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2559*/ meltfptr[2558])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V2557*/ meltfptr[2556]); - ((meltroutine_ptr_t)/*_.VALROUT___V2559*/ meltfptr[2558])->tabval[0] = (melt_ptr_t)(/*_.VALCLO___V2557*/ meltfptr[2556]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2577*/ meltfptr[2576])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V2575*/ meltfptr[2574]); + ((meltroutine_ptr_t)/*_.VALROUT___V2577*/ meltfptr[2576])->tabval[0] = (melt_ptr_t)(/*_.VALCLO___V2575*/ meltfptr[2574]); - MELT_LOCATION("warmelt-first.melt:3036:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:3043:/ initchunk"); /*^touch*/ /*touch:IROUTVAL_*/ - meltgc_touch(/*_.VALROUT___V2559*/ meltfptr[2558]); + meltgc_touch(/*_.VALROUT___V2577*/ meltfptr[2576]); - MELT_LOCATION("warmelt-first.melt:3010:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:3017:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2553*/ meltfptr[2552])) == OBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_2655__MAPOBJECT_SORTED_ATTRIBUTE_TUPLE#6", NULL != (/*_.VALROUT___V2559*/ meltfptr[2558])); - ((meltroutine_ptr_t)/*_.VALROUT___V2553*/ meltfptr[2552])->tabval[6] = (melt_ptr_t)(/*_.VALROUT___V2559*/ meltfptr[2558]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2571*/ meltfptr[2570])) == OBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_2673__MAPOBJECT_SORTED_ATTRIBUTE_TUPLE#6", NULL != (/*_.VALROUT___V2577*/ meltfptr[2576])); + ((meltroutine_ptr_t)/*_.VALROUT___V2571*/ meltfptr[2570])->tabval[6] = (melt_ptr_t)(/*_.VALROUT___V2577*/ meltfptr[2576]); - MELT_LOCATION("warmelt-first.melt:2847:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:2854:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2561*/ meltfptr[2560])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V2159*/ meltfptr[2158]); - ((meltroutine_ptr_t)/*_.VALROUT___V2561*/ meltfptr[2560])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V2159*/ meltfptr[2158]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2579*/ meltfptr[2578])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V2177*/ meltfptr[2176]); + ((meltroutine_ptr_t)/*_.VALROUT___V2579*/ meltfptr[2578])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V2177*/ meltfptr[2176]); - MELT_LOCATION("warmelt-first.melt:2847:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:2854:/ initchunk"); /*^touch*/ /*touch:IROUTVAL_*/ - meltgc_touch(/*_.VALROUT___V2561*/ meltfptr[2560]); + meltgc_touch(/*_.VALROUT___V2579*/ meltfptr[2578]); /*putclosurout*/ - melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V2560*/ meltfptr[2559])) == OBMAG_CLOSURE); - melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2561*/ meltfptr[2560])) == OBMAG_ROUTINE); - ((meltclosure_ptr_t)/*_.VALCLO___V2560*/ meltfptr[2559])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V2561*/ meltfptr[2560]); + melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V2578*/ meltfptr[2577])) == OBMAG_CLOSURE); + melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2579*/ meltfptr[2578])) == OBMAG_ROUTINE); + ((meltclosure_ptr_t)/*_.VALCLO___V2578*/ meltfptr[2577])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V2579*/ meltfptr[2578]); /*touch:DATACLOSURE_*/ - meltgc_touch(/*_.VALCLO___V2560*/ meltfptr[2559]); + meltgc_touch(/*_.VALCLO___V2578*/ meltfptr[2577]); - MELT_LOCATION("warmelt-first.melt:3010:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:3017:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2553*/ meltfptr[2552])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V2560*/ meltfptr[2559]); - ((meltroutine_ptr_t)/*_.VALROUT___V2553*/ meltfptr[2552])->tabval[7] = (melt_ptr_t)(/*_.VALCLO___V2560*/ meltfptr[2559]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2571*/ meltfptr[2570])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V2578*/ meltfptr[2577]); + ((meltroutine_ptr_t)/*_.VALROUT___V2571*/ meltfptr[2570])->tabval[7] = (melt_ptr_t)(/*_.VALCLO___V2578*/ meltfptr[2577]); - MELT_LOCATION("warmelt-first.melt:3010:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:3017:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2553*/ meltfptr[2552])) == OBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_2655__MAPOBJECT_SORTED_ATTRIBUTE_TUPLE#8", NULL != (/*_.VALROUT___V2562*/ meltfptr[2561])); - ((meltroutine_ptr_t)/*_.VALROUT___V2553*/ meltfptr[2552])->tabval[8] = (melt_ptr_t)(/*_.VALROUT___V2562*/ meltfptr[2561]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2571*/ meltfptr[2570])) == OBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_2673__MAPOBJECT_SORTED_ATTRIBUTE_TUPLE#8", NULL != (/*_.VALROUT___V2580*/ meltfptr[2579])); + ((meltroutine_ptr_t)/*_.VALROUT___V2571*/ meltfptr[2570])->tabval[8] = (melt_ptr_t)(/*_.VALROUT___V2580*/ meltfptr[2579]); - MELT_LOCATION("warmelt-first.melt:3010:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:3017:/ initchunk"); /*^touch*/ /*touch:IROUTVAL_*/ - meltgc_touch(/*_.VALROUT___V2553*/ meltfptr[2552]); + meltgc_touch(/*_.VALROUT___V2571*/ meltfptr[2570]); /*putclosurout*/ - melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V2552*/ meltfptr[2551])) == OBMAG_CLOSURE); - melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2553*/ meltfptr[2552])) == OBMAG_ROUTINE); - ((meltclosure_ptr_t)/*_.VALCLO___V2552*/ meltfptr[2551])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V2553*/ meltfptr[2552]); + melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V2570*/ meltfptr[2569])) == OBMAG_CLOSURE); + melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2571*/ meltfptr[2570])) == OBMAG_ROUTINE); + ((meltclosure_ptr_t)/*_.VALCLO___V2570*/ meltfptr[2569])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V2571*/ meltfptr[2570]); /*touch:DATACLOSURE_*/ - meltgc_touch(/*_.VALCLO___V2552*/ meltfptr[2551]); + meltgc_touch(/*_.VALCLO___V2570*/ meltfptr[2569]); - MELT_LOCATION("warmelt-first.melt:2513:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:2520:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2551*/ meltfptr[2550])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V2552*/ meltfptr[2551]); - ((meltroutine_ptr_t)/*_.VALROUT___V2551*/ meltfptr[2550])->tabval[2] = (melt_ptr_t)(/*_.VALCLO___V2552*/ meltfptr[2551]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2569*/ meltfptr[2568])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V2570*/ meltfptr[2569]); + ((meltroutine_ptr_t)/*_.VALROUT___V2569*/ meltfptr[2568])->tabval[2] = (melt_ptr_t)(/*_.VALCLO___V2570*/ meltfptr[2569]); - MELT_LOCATION("warmelt-first.melt:2513:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:2520:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2551*/ meltfptr[2550])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V2560*/ meltfptr[2559]); - ((meltroutine_ptr_t)/*_.VALROUT___V2551*/ meltfptr[2550])->tabval[3] = (melt_ptr_t)(/*_.VALCLO___V2560*/ meltfptr[2559]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2569*/ meltfptr[2568])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V2578*/ meltfptr[2577]); + ((meltroutine_ptr_t)/*_.VALROUT___V2569*/ meltfptr[2568])->tabval[3] = (melt_ptr_t)(/*_.VALCLO___V2578*/ meltfptr[2577]); - MELT_LOCATION("warmelt-first.melt:2513:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:2520:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2551*/ meltfptr[2550])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2569*/ meltfptr[2568])) == OBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V35*/ meltfptr[34]); - ((meltroutine_ptr_t)/*_.VALROUT___V2551*/ meltfptr[2550])->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V35*/ meltfptr[34]); + ((meltroutine_ptr_t)/*_.VALROUT___V2569*/ meltfptr[2568])->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V35*/ meltfptr[34]); - MELT_LOCATION("warmelt-first.melt:2531:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:2538:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2563*/ meltfptr[2562])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2581*/ meltfptr[2580])) == OBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V35*/ meltfptr[34]); - ((meltroutine_ptr_t)/*_.VALROUT___V2563*/ meltfptr[2562])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V35*/ meltfptr[34]); + ((meltroutine_ptr_t)/*_.VALROUT___V2581*/ meltfptr[2580])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V35*/ meltfptr[34]); - MELT_LOCATION("warmelt-first.melt:2531:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:2538:/ initchunk"); /*^touch*/ /*touch:IROUTVAL_*/ - meltgc_touch(/*_.VALROUT___V2563*/ meltfptr[2562]); + meltgc_touch(/*_.VALROUT___V2581*/ meltfptr[2580]); - MELT_LOCATION("warmelt-first.melt:2513:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:2520:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2551*/ meltfptr[2550])) == OBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_2520__OPTION_HELPER_FUN#5", NULL != (/*_.VALROUT___V2563*/ meltfptr[2562])); - ((meltroutine_ptr_t)/*_.VALROUT___V2551*/ meltfptr[2550])->tabval[5] = (melt_ptr_t)(/*_.VALROUT___V2563*/ meltfptr[2562]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2569*/ meltfptr[2568])) == OBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_2538__OPTION_HELPER_FUN#5", NULL != (/*_.VALROUT___V2581*/ meltfptr[2580])); + ((meltroutine_ptr_t)/*_.VALROUT___V2569*/ meltfptr[2568])->tabval[5] = (melt_ptr_t)(/*_.VALROUT___V2581*/ meltfptr[2580]); - MELT_LOCATION("warmelt-first.melt:2513:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:2520:/ initchunk"); /*^touch*/ /*touch:IROUTVAL_*/ - meltgc_touch(/*_.VALROUT___V2551*/ meltfptr[2550]); + meltgc_touch(/*_.VALROUT___V2569*/ meltfptr[2568]); /*putclosurout*/ - melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V2564*/ meltfptr[2563])) == OBMAG_CLOSURE); - melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2551*/ meltfptr[2550])) == OBMAG_ROUTINE); - ((meltclosure_ptr_t)/*_.VALCLO___V2564*/ meltfptr[2563])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V2551*/ meltfptr[2550]); + melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V2582*/ meltfptr[2581])) == OBMAG_CLOSURE); + melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2569*/ meltfptr[2568])) == OBMAG_ROUTINE); + ((meltclosure_ptr_t)/*_.VALCLO___V2582*/ meltfptr[2581])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V2569*/ meltfptr[2568]); /*touch:DATACLOSURE_*/ - meltgc_touch(/*_.VALCLO___V2564*/ meltfptr[2563]); + meltgc_touch(/*_.VALCLO___V2582*/ meltfptr[2581]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2565*/ meltfptr[2564])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2583*/ meltfptr[2582])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2565*/ meltfptr[2564])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2565*/ meltfptr[2564]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V2566*/ meltfptr[2565]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2583*/ meltfptr[2582])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2583*/ meltfptr[2582]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V2584*/ meltfptr[2583]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V2565*/ meltfptr[2564]); + meltgc_touch(/*_.VALDATA___V2583*/ meltfptr[2582]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2568*/ meltfptr[2567])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2586*/ meltfptr[2585])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2568*/ meltfptr[2567])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2568*/ meltfptr[2567]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V2569*/ meltfptr[2568]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2586*/ meltfptr[2585])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2586*/ meltfptr[2585]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V2587*/ meltfptr[2586]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V2568*/ meltfptr[2567]); + meltgc_touch(/*_.VALDATA___V2586*/ meltfptr[2585]); - MELT_LOCATION("warmelt-first.melt:2565:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:2572:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2570*/ meltfptr[2569])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2588*/ meltfptr[2587])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2570*/ meltfptr[2569])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2570*/ meltfptr[2569]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V2571*/ meltfptr[2570]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2588*/ meltfptr[2587])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2588*/ meltfptr[2587]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V2589*/ meltfptr[2588]); /*touch:INITUP_*/ - meltgc_touch(/*_.VALTUP___V2572*/ meltfptr[2571]); + meltgc_touch(/*_.VALTUP___V2590*/ meltfptr[2589]); - MELT_LOCATION("warmelt-first.melt:2565:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:2572:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2570*/ meltfptr[2569])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2588*/ meltfptr[2587])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2570*/ meltfptr[2569])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2570*/ meltfptr[2569]))->obj_vartab[2] = (melt_ptr_t)( - /*_.VALTUP___V2572*/ meltfptr[2571]); + melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2588*/ meltfptr[2587])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2588*/ meltfptr[2587]))->obj_vartab[2] = (melt_ptr_t)( + /*_.VALTUP___V2590*/ meltfptr[2589]); - MELT_LOCATION("warmelt-first.melt:2565:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:2572:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2570*/ meltfptr[2569])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2588*/ meltfptr[2587])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2570*/ meltfptr[2569])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2570*/ meltfptr[2569]))->obj_vartab[3] = (melt_ptr_t)( + melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2588*/ meltfptr[2587])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2588*/ meltfptr[2587]))->obj_vartab[3] = (melt_ptr_t)( ((void*)(MELT_PREDEF(CTYPE_LONG)))); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2574*/ meltfptr[2573]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2574*/ meltfptr[2573])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V2574*/ meltfptr[2573]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V2573*/ meltfptr[2572]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2592*/ meltfptr[2591]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2592*/ meltfptr[2591])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V2592*/ meltfptr[2591]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V2591*/ meltfptr[2590]); /*touch:INITUP_*/ - meltgc_touch(/*_.VALTUP___V2574*/ meltfptr[2573]); + meltgc_touch(/*_.VALTUP___V2592*/ meltfptr[2591]); - MELT_LOCATION("warmelt-first.melt:2565:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:2572:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2570*/ meltfptr[2569])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2588*/ meltfptr[2587])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2570*/ meltfptr[2569])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2570*/ meltfptr[2569]))->obj_vartab[4] = (melt_ptr_t)( - /*_.VALTUP___V2574*/ meltfptr[2573]); + melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2588*/ meltfptr[2587])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2588*/ meltfptr[2587]))->obj_vartab[4] = (melt_ptr_t)( + /*_.VALTUP___V2592*/ meltfptr[2591]); - MELT_LOCATION("warmelt-first.melt:2565:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:2572:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V2570*/ meltfptr[2569]); + meltgc_touch(/*_.VALDATA___V2588*/ meltfptr[2587]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2575*/ meltfptr[2574])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2593*/ meltfptr[2592])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2575*/ meltfptr[2574])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2575*/ meltfptr[2574]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V2576*/ meltfptr[2575]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2593*/ meltfptr[2592])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2593*/ meltfptr[2592]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V2594*/ meltfptr[2593]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V2575*/ meltfptr[2574]); + meltgc_touch(/*_.VALDATA___V2593*/ meltfptr[2592]); /*putclosurout*/ - melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V2578*/ meltfptr[2577])) == OBMAG_CLOSURE); - melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2577*/ meltfptr[2576])) == OBMAG_ROUTINE); - ((meltclosure_ptr_t)/*_.VALCLO___V2578*/ meltfptr[2577])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V2577*/ meltfptr[2576]); + melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V2596*/ meltfptr[2595])) == OBMAG_CLOSURE); + melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2595*/ meltfptr[2594])) == OBMAG_ROUTINE); + ((meltclosure_ptr_t)/*_.VALCLO___V2596*/ meltfptr[2595])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V2595*/ meltfptr[2594]); /*touch:DATACLOSURE_*/ - meltgc_touch(/*_.VALCLO___V2578*/ meltfptr[2577]); + meltgc_touch(/*_.VALCLO___V2596*/ meltfptr[2595]); - MELT_LOCATION("warmelt-first.melt:2646:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:2653:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2579*/ meltfptr[2578])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2597*/ meltfptr[2596])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2579*/ meltfptr[2578])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2579*/ meltfptr[2578]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V2580*/ meltfptr[2579]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2597*/ meltfptr[2596])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2597*/ meltfptr[2596]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V2598*/ meltfptr[2597]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2582*/ meltfptr[2581])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2600*/ meltfptr[2599])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2582*/ meltfptr[2581])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2582*/ meltfptr[2581]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V2583*/ meltfptr[2582]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2600*/ meltfptr[2599])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2600*/ meltfptr[2599]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V2601*/ meltfptr[2600]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V2582*/ meltfptr[2581]); + meltgc_touch(/*_.VALDATA___V2600*/ meltfptr[2599]); - MELT_LOCATION("warmelt-first.melt:2646:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:2653:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2581*/ meltfptr[2580])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2599*/ meltfptr[2598])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2581*/ meltfptr[2580])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2581*/ meltfptr[2580]))->obj_vartab[0] = (melt_ptr_t)( - /*_.VALDATA___V2582*/ meltfptr[2581]); + melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2599*/ meltfptr[2598])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2599*/ meltfptr[2598]))->obj_vartab[0] = (melt_ptr_t)( + /*_.VALDATA___V2600*/ meltfptr[2599]); - MELT_LOCATION("warmelt-first.melt:2646:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:2653:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2581*/ meltfptr[2580])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2599*/ meltfptr[2598])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2581*/ meltfptr[2580])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2581*/ meltfptr[2580]))->obj_vartab[1] = (melt_ptr_t)( + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2599*/ meltfptr[2598])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2599*/ meltfptr[2598]))->obj_vartab[1] = (melt_ptr_t)( ((void*)(MELT_PREDEF(CTYPE_VALUE)))); - MELT_LOCATION("warmelt-first.melt:2646:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:2653:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V2581*/ meltfptr[2580]); + meltgc_touch(/*_.VALDATA___V2599*/ meltfptr[2598]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2584*/ meltfptr[2583]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2584*/ meltfptr[2583])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V2584*/ meltfptr[2583]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V2581*/ meltfptr[2580]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2602*/ meltfptr[2601]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2602*/ meltfptr[2601])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V2602*/ meltfptr[2601]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V2599*/ meltfptr[2598]); - /*touch:INITUP_*/ - meltgc_touch(/*_.VALTUP___V2584*/ meltfptr[2583]); - MELT_LOCATION("warmelt-first.melt:2646:/ initchunk"); +#undef meltfram__ +} /*end of warmelt_first_initialmeltchunk_16*/ + +void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_17 (struct frame_start_module_melt_st* meltframptr__, char predefinited[]) { +#define meltfram__ (*meltframptr__) +#undef meltcallcount +#define meltcallcount 0L +/*touch:INITUP_*/ + meltgc_touch(/*_.VALTUP___V2602*/ meltfptr[2601]); + + MELT_LOCATION("warmelt-first.melt:2653:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2579*/ meltfptr[2578])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2597*/ meltfptr[2596])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2579*/ meltfptr[2578])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2579*/ meltfptr[2578]))->obj_vartab[2] = (melt_ptr_t)( - /*_.VALTUP___V2584*/ meltfptr[2583]); + melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2597*/ meltfptr[2596])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2597*/ meltfptr[2596]))->obj_vartab[2] = (melt_ptr_t)( + /*_.VALTUP___V2602*/ meltfptr[2601]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2585*/ meltfptr[2584])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2603*/ meltfptr[2602])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2585*/ meltfptr[2584])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2585*/ meltfptr[2584]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V2586*/ meltfptr[2585]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2603*/ meltfptr[2602])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2603*/ meltfptr[2602]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V2604*/ meltfptr[2603]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V2585*/ meltfptr[2584]); + meltgc_touch(/*_.VALDATA___V2603*/ meltfptr[2602]); - MELT_LOCATION("warmelt-first.melt:2646:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:2653:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2579*/ meltfptr[2578])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2597*/ meltfptr[2596])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2579*/ meltfptr[2578])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2579*/ meltfptr[2578]))->obj_vartab[3] = (melt_ptr_t)( - /*_.VALDATA___V2585*/ meltfptr[2584]); + melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2597*/ meltfptr[2596])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2597*/ meltfptr[2596]))->obj_vartab[3] = (melt_ptr_t)( + /*_.VALDATA___V2603*/ meltfptr[2602]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2588*/ meltfptr[2587])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2606*/ meltfptr[2605])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2588*/ meltfptr[2587])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2588*/ meltfptr[2587]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V2589*/ meltfptr[2588]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2606*/ meltfptr[2605])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2606*/ meltfptr[2605]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V2607*/ meltfptr[2606]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V2588*/ meltfptr[2587]); + meltgc_touch(/*_.VALDATA___V2606*/ meltfptr[2605]); - MELT_LOCATION("warmelt-first.melt:2646:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:2653:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2587*/ meltfptr[2586])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2605*/ meltfptr[2604])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2587*/ meltfptr[2586])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2587*/ meltfptr[2586]))->obj_vartab[0] = (melt_ptr_t)( - /*_.VALDATA___V2588*/ meltfptr[2587]); + melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2605*/ meltfptr[2604])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2605*/ meltfptr[2604]))->obj_vartab[0] = (melt_ptr_t)( + /*_.VALDATA___V2606*/ meltfptr[2605]); - MELT_LOCATION("warmelt-first.melt:2646:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:2653:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2587*/ meltfptr[2586])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2605*/ meltfptr[2604])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2587*/ meltfptr[2586])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2587*/ meltfptr[2586]))->obj_vartab[1] = (melt_ptr_t)( + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2605*/ meltfptr[2604])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2605*/ meltfptr[2604]))->obj_vartab[1] = (melt_ptr_t)( ((void*)(MELT_PREDEF(CTYPE_VALUE)))); - MELT_LOCATION("warmelt-first.melt:2646:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:2653:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V2587*/ meltfptr[2586]); + meltgc_touch(/*_.VALDATA___V2605*/ meltfptr[2604]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2591*/ meltfptr[2590])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2609*/ meltfptr[2608])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2591*/ meltfptr[2590])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2591*/ meltfptr[2590]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V2592*/ meltfptr[2591]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2609*/ meltfptr[2608])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2609*/ meltfptr[2608]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V2610*/ meltfptr[2609]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V2591*/ meltfptr[2590]); + meltgc_touch(/*_.VALDATA___V2609*/ meltfptr[2608]); - MELT_LOCATION("warmelt-first.melt:2646:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:2653:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2590*/ meltfptr[2589])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2608*/ meltfptr[2607])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2590*/ meltfptr[2589])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2590*/ meltfptr[2589]))->obj_vartab[0] = (melt_ptr_t)( - /*_.VALDATA___V2591*/ meltfptr[2590]); + melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2608*/ meltfptr[2607])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2608*/ meltfptr[2607]))->obj_vartab[0] = (melt_ptr_t)( + /*_.VALDATA___V2609*/ meltfptr[2608]); - MELT_LOCATION("warmelt-first.melt:2646:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:2653:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2590*/ meltfptr[2589])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2608*/ meltfptr[2607])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2590*/ meltfptr[2589])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2590*/ meltfptr[2589]))->obj_vartab[1] = (melt_ptr_t)( + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2608*/ meltfptr[2607])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2608*/ meltfptr[2607]))->obj_vartab[1] = (melt_ptr_t)( ((void*)(MELT_PREDEF(CTYPE_VALUE)))); - MELT_LOCATION("warmelt-first.melt:2646:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:2653:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V2590*/ meltfptr[2589]); + meltgc_touch(/*_.VALDATA___V2608*/ meltfptr[2607]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2593*/ meltfptr[2592]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2593*/ meltfptr[2592])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V2593*/ meltfptr[2592]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V2587*/ meltfptr[2586]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2611*/ meltfptr[2610]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2611*/ meltfptr[2610])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V2611*/ meltfptr[2610]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V2605*/ meltfptr[2604]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2593*/ meltfptr[2592]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2593*/ meltfptr[2592])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V2593*/ meltfptr[2592]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2590*/ meltfptr[2589]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2611*/ meltfptr[2610]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2611*/ meltfptr[2610])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V2611*/ meltfptr[2610]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2608*/ meltfptr[2607]); /*touch:INITUP_*/ - meltgc_touch(/*_.VALTUP___V2593*/ meltfptr[2592]); + meltgc_touch(/*_.VALTUP___V2611*/ meltfptr[2610]); - MELT_LOCATION("warmelt-first.melt:2646:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:2653:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2579*/ meltfptr[2578])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2597*/ meltfptr[2596])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2579*/ meltfptr[2578])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2579*/ meltfptr[2578]))->obj_vartab[4] = (melt_ptr_t)( - /*_.VALTUP___V2593*/ meltfptr[2592]); + melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2597*/ meltfptr[2596])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2597*/ meltfptr[2596]))->obj_vartab[4] = (melt_ptr_t)( + /*_.VALTUP___V2611*/ meltfptr[2610]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2603*/ meltfptr[2602]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2603*/ meltfptr[2602])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V2603*/ meltfptr[2602]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V2594*/ meltfptr[2593]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2621*/ meltfptr[2620]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2621*/ meltfptr[2620])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V2621*/ meltfptr[2620]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V2612*/ meltfptr[2611]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2603*/ meltfptr[2602]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2603*/ meltfptr[2602])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V2603*/ meltfptr[2602]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2585*/ meltfptr[2584]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2621*/ meltfptr[2620]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2621*/ meltfptr[2620])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V2621*/ meltfptr[2620]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2603*/ meltfptr[2602]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2603*/ meltfptr[2602]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2603*/ meltfptr[2602])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V2603*/ meltfptr[2602]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V2595*/ meltfptr[2594]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2621*/ meltfptr[2620]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2621*/ meltfptr[2620])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V2621*/ meltfptr[2620]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V2613*/ meltfptr[2612]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2603*/ meltfptr[2602]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2603*/ meltfptr[2602])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V2603*/ meltfptr[2602]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V2588*/ meltfptr[2587]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2621*/ meltfptr[2620]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2621*/ meltfptr[2620])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V2621*/ meltfptr[2620]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V2606*/ meltfptr[2605]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2603*/ meltfptr[2602]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2603*/ meltfptr[2602])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V2603*/ meltfptr[2602]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V2596*/ meltfptr[2595]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2621*/ meltfptr[2620]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2621*/ meltfptr[2620])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V2621*/ meltfptr[2620]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V2614*/ meltfptr[2613]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2603*/ meltfptr[2602]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2603*/ meltfptr[2602])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V2603*/ meltfptr[2602]))->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V2582*/ meltfptr[2581]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2621*/ meltfptr[2620]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2621*/ meltfptr[2620])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V2621*/ meltfptr[2620]))->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V2600*/ meltfptr[2599]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2603*/ meltfptr[2602]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (6>=0 && 6< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2603*/ meltfptr[2602])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V2603*/ meltfptr[2602]))->tabval[6] = (melt_ptr_t)(/*_.VALSTR___V2597*/ meltfptr[2596]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2621*/ meltfptr[2620]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (6>=0 && 6< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2621*/ meltfptr[2620])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V2621*/ meltfptr[2620]))->tabval[6] = (melt_ptr_t)(/*_.VALSTR___V2615*/ meltfptr[2614]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2603*/ meltfptr[2602]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (7>=0 && 7< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2603*/ meltfptr[2602])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V2603*/ meltfptr[2602]))->tabval[7] = (melt_ptr_t)(/*_.VALDATA___V2588*/ meltfptr[2587]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2621*/ meltfptr[2620]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (7>=0 && 7< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2621*/ meltfptr[2620])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V2621*/ meltfptr[2620]))->tabval[7] = (melt_ptr_t)(/*_.VALDATA___V2606*/ meltfptr[2605]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2603*/ meltfptr[2602]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (8>=0 && 8< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2603*/ meltfptr[2602])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V2603*/ meltfptr[2602]))->tabval[8] = (melt_ptr_t)(/*_.VALSTR___V2598*/ meltfptr[2597]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2621*/ meltfptr[2620]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (8>=0 && 8< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2621*/ meltfptr[2620])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V2621*/ meltfptr[2620]))->tabval[8] = (melt_ptr_t)(/*_.VALSTR___V2616*/ meltfptr[2615]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2603*/ meltfptr[2602]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (9>=0 && 9< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2603*/ meltfptr[2602])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V2603*/ meltfptr[2602]))->tabval[9] = (melt_ptr_t)(/*_.VALDATA___V2588*/ meltfptr[2587]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2621*/ meltfptr[2620]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (9>=0 && 9< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2621*/ meltfptr[2620])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V2621*/ meltfptr[2620]))->tabval[9] = (melt_ptr_t)(/*_.VALDATA___V2606*/ meltfptr[2605]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2603*/ meltfptr[2602]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (10>=0 && 10< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2603*/ meltfptr[2602])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V2603*/ meltfptr[2602]))->tabval[10] = (melt_ptr_t)(/*_.VALSTR___V2599*/ meltfptr[2598]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2621*/ meltfptr[2620]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (10>=0 && 10< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2621*/ meltfptr[2620])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V2621*/ meltfptr[2620]))->tabval[10] = (melt_ptr_t)(/*_.VALSTR___V2617*/ meltfptr[2616]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2603*/ meltfptr[2602]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (11>=0 && 11< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2603*/ meltfptr[2602])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V2603*/ meltfptr[2602]))->tabval[11] = (melt_ptr_t)(/*_.VALDATA___V2588*/ meltfptr[2587]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2621*/ meltfptr[2620]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (11>=0 && 11< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2621*/ meltfptr[2620])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V2621*/ meltfptr[2620]))->tabval[11] = (melt_ptr_t)(/*_.VALDATA___V2606*/ meltfptr[2605]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2603*/ meltfptr[2602]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (12>=0 && 12< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2603*/ meltfptr[2602])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V2603*/ meltfptr[2602]))->tabval[12] = (melt_ptr_t)(/*_.VALSTR___V2600*/ meltfptr[2599]); - + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2621*/ meltfptr[2620]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (12>=0 && 12< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2621*/ meltfptr[2620])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V2621*/ meltfptr[2620]))->tabval[12] = (melt_ptr_t)(/*_.VALSTR___V2618*/ meltfptr[2617]); -#undef meltfram__ -} /*end of warmelt_first_initialmeltchunk_16*/ - -void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_17 (struct frame_start_module_melt_st* meltframptr__, char predefinited[]) { -#define meltfram__ (*meltframptr__) -#undef meltcallcount -#define meltcallcount 0L -/*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2603*/ meltfptr[2602]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (13>=0 && 13< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2603*/ meltfptr[2602])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V2603*/ meltfptr[2602]))->tabval[13] = (melt_ptr_t)(/*_.VALDATA___V2591*/ meltfptr[2590]); + /*putupl*/ + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2621*/ meltfptr[2620]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (13>=0 && 13< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2621*/ meltfptr[2620])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V2621*/ meltfptr[2620]))->tabval[13] = (melt_ptr_t)(/*_.VALDATA___V2609*/ meltfptr[2608]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2603*/ meltfptr[2602]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (14>=0 && 14< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2603*/ meltfptr[2602])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V2603*/ meltfptr[2602]))->tabval[14] = (melt_ptr_t)(/*_.VALSTR___V2601*/ meltfptr[2600]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2621*/ meltfptr[2620]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (14>=0 && 14< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2621*/ meltfptr[2620])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V2621*/ meltfptr[2620]))->tabval[14] = (melt_ptr_t)(/*_.VALSTR___V2619*/ meltfptr[2618]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2603*/ meltfptr[2602]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (15>=0 && 15< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2603*/ meltfptr[2602])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V2603*/ meltfptr[2602]))->tabval[15] = (melt_ptr_t)(/*_.VALDATA___V2588*/ meltfptr[2587]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2621*/ meltfptr[2620]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (15>=0 && 15< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2621*/ meltfptr[2620])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V2621*/ meltfptr[2620]))->tabval[15] = (melt_ptr_t)(/*_.VALDATA___V2606*/ meltfptr[2605]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2603*/ meltfptr[2602]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (16>=0 && 16< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2603*/ meltfptr[2602])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V2603*/ meltfptr[2602]))->tabval[16] = (melt_ptr_t)(/*_.VALSTR___V2602*/ meltfptr[2601]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2621*/ meltfptr[2620]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (16>=0 && 16< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2621*/ meltfptr[2620])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V2621*/ meltfptr[2620]))->tabval[16] = (melt_ptr_t)(/*_.VALSTR___V2620*/ meltfptr[2619]); /*touch:INITUP_*/ - meltgc_touch(/*_.VALTUP___V2603*/ meltfptr[2602]); + meltgc_touch(/*_.VALTUP___V2621*/ meltfptr[2620]); - MELT_LOCATION("warmelt-first.melt:2646:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:2653:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2579*/ meltfptr[2578])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2597*/ meltfptr[2596])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2579*/ meltfptr[2578])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2579*/ meltfptr[2578]))->obj_vartab[5] = (melt_ptr_t)( - /*_.VALTUP___V2603*/ meltfptr[2602]); + melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2597*/ meltfptr[2596])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2597*/ meltfptr[2596]))->obj_vartab[5] = (melt_ptr_t)( + /*_.VALTUP___V2621*/ meltfptr[2620]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2606*/ meltfptr[2605]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2606*/ meltfptr[2605])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V2606*/ meltfptr[2605]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V2604*/ meltfptr[2603]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2624*/ meltfptr[2623]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2624*/ meltfptr[2623])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V2624*/ meltfptr[2623]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V2622*/ meltfptr[2621]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2606*/ meltfptr[2605]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2606*/ meltfptr[2605])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V2606*/ meltfptr[2605]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2585*/ meltfptr[2584]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2624*/ meltfptr[2623]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2624*/ meltfptr[2623])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V2624*/ meltfptr[2623]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2603*/ meltfptr[2602]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2606*/ meltfptr[2605]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2606*/ meltfptr[2605])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V2606*/ meltfptr[2605]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V2605*/ meltfptr[2604]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2624*/ meltfptr[2623]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2624*/ meltfptr[2623])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V2624*/ meltfptr[2623]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V2623*/ meltfptr[2622]); /*touch:INITUP_*/ - meltgc_touch(/*_.VALTUP___V2606*/ meltfptr[2605]); + meltgc_touch(/*_.VALTUP___V2624*/ meltfptr[2623]); - MELT_LOCATION("warmelt-first.melt:2646:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:2653:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2579*/ meltfptr[2578])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2597*/ meltfptr[2596])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2579*/ meltfptr[2578])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2579*/ meltfptr[2578]))->obj_vartab[6] = (melt_ptr_t)( - /*_.VALTUP___V2606*/ meltfptr[2605]); + melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2597*/ meltfptr[2596])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2597*/ meltfptr[2596]))->obj_vartab[6] = (melt_ptr_t)( + /*_.VALTUP___V2624*/ meltfptr[2623]); - MELT_LOCATION("warmelt-first.melt:2646:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:2653:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V2579*/ meltfptr[2578]); + meltgc_touch(/*_.VALDATA___V2597*/ meltfptr[2596]); /*putclosurout*/ - melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V2608*/ meltfptr[2607])) == OBMAG_CLOSURE); - melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2607*/ meltfptr[2606])) == OBMAG_ROUTINE); - ((meltclosure_ptr_t)/*_.VALCLO___V2608*/ meltfptr[2607])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V2607*/ meltfptr[2606]); + melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V2626*/ meltfptr[2625])) == OBMAG_CLOSURE); + melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2625*/ meltfptr[2624])) == OBMAG_ROUTINE); + ((meltclosure_ptr_t)/*_.VALCLO___V2626*/ meltfptr[2625])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V2625*/ meltfptr[2624]); /*touch:DATACLOSURE_*/ - meltgc_touch(/*_.VALCLO___V2608*/ meltfptr[2607]); + meltgc_touch(/*_.VALCLO___V2626*/ meltfptr[2625]); - MELT_LOCATION("warmelt-first.melt:2690:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:2697:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2609*/ meltfptr[2608])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V2151*/ meltfptr[2150]); - ((meltroutine_ptr_t)/*_.VALROUT___V2609*/ meltfptr[2608])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V2151*/ meltfptr[2150]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2627*/ meltfptr[2626])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V2169*/ meltfptr[2168]); + ((meltroutine_ptr_t)/*_.VALROUT___V2627*/ meltfptr[2626])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V2169*/ meltfptr[2168]); - MELT_LOCATION("warmelt-first.melt:2690:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:2697:/ initchunk"); /*^touch*/ /*touch:IROUTVAL_*/ - meltgc_touch(/*_.VALROUT___V2609*/ meltfptr[2608]); + meltgc_touch(/*_.VALROUT___V2627*/ meltfptr[2626]); /*putclosurout*/ - melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V2610*/ meltfptr[2609])) == OBMAG_CLOSURE); - melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2609*/ meltfptr[2608])) == OBMAG_ROUTINE); - ((meltclosure_ptr_t)/*_.VALCLO___V2610*/ meltfptr[2609])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V2609*/ meltfptr[2608]); + melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V2628*/ meltfptr[2627])) == OBMAG_CLOSURE); + melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2627*/ meltfptr[2626])) == OBMAG_ROUTINE); + ((meltclosure_ptr_t)/*_.VALCLO___V2628*/ meltfptr[2627])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V2627*/ meltfptr[2626]); /*touch:DATACLOSURE_*/ - meltgc_touch(/*_.VALCLO___V2610*/ meltfptr[2609]); + meltgc_touch(/*_.VALCLO___V2628*/ meltfptr[2627]); - MELT_LOCATION("warmelt-first.melt:2705:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:2712:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2611*/ meltfptr[2610])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V2151*/ meltfptr[2150]); - ((meltroutine_ptr_t)/*_.VALROUT___V2611*/ meltfptr[2610])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V2151*/ meltfptr[2150]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2629*/ meltfptr[2628])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V2169*/ meltfptr[2168]); + ((meltroutine_ptr_t)/*_.VALROUT___V2629*/ meltfptr[2628])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V2169*/ meltfptr[2168]); - MELT_LOCATION("warmelt-first.melt:2705:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:2712:/ initchunk"); /*^touch*/ /*touch:IROUTVAL_*/ - meltgc_touch(/*_.VALROUT___V2611*/ meltfptr[2610]); + meltgc_touch(/*_.VALROUT___V2629*/ meltfptr[2628]); /*putclosurout*/ - melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V2612*/ meltfptr[2611])) == OBMAG_CLOSURE); - melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2611*/ meltfptr[2610])) == OBMAG_ROUTINE); - ((meltclosure_ptr_t)/*_.VALCLO___V2612*/ meltfptr[2611])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V2611*/ meltfptr[2610]); + melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V2630*/ meltfptr[2629])) == OBMAG_CLOSURE); + melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2629*/ meltfptr[2628])) == OBMAG_ROUTINE); + ((meltclosure_ptr_t)/*_.VALCLO___V2630*/ meltfptr[2629])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V2629*/ meltfptr[2628]); /*touch:DATACLOSURE_*/ - meltgc_touch(/*_.VALCLO___V2612*/ meltfptr[2611]); + meltgc_touch(/*_.VALCLO___V2630*/ meltfptr[2629]); /*putclosurout*/ - melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V2614*/ meltfptr[2613])) == OBMAG_CLOSURE); - melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2613*/ meltfptr[2612])) == OBMAG_ROUTINE); - ((meltclosure_ptr_t)/*_.VALCLO___V2614*/ meltfptr[2613])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V2613*/ meltfptr[2612]); + melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V2632*/ meltfptr[2631])) == OBMAG_CLOSURE); + melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2631*/ meltfptr[2630])) == OBMAG_ROUTINE); + ((meltclosure_ptr_t)/*_.VALCLO___V2632*/ meltfptr[2631])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V2631*/ meltfptr[2630]); /*touch:DATACLOSURE_*/ - meltgc_touch(/*_.VALCLO___V2614*/ meltfptr[2613]); + meltgc_touch(/*_.VALCLO___V2632*/ meltfptr[2631]); - MELT_LOCATION("warmelt-first.melt:2745:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:2752:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2615*/ meltfptr[2614])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V2159*/ meltfptr[2158]); - ((meltroutine_ptr_t)/*_.VALROUT___V2615*/ meltfptr[2614])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V2159*/ meltfptr[2158]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2633*/ meltfptr[2632])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V2177*/ meltfptr[2176]); + ((meltroutine_ptr_t)/*_.VALROUT___V2633*/ meltfptr[2632])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V2177*/ meltfptr[2176]); - MELT_LOCATION("warmelt-first.melt:2745:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:2752:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2615*/ meltfptr[2614])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V2143*/ meltfptr[2142]); - ((meltroutine_ptr_t)/*_.VALROUT___V2615*/ meltfptr[2614])->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2143*/ meltfptr[2142]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2633*/ meltfptr[2632])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V2161*/ meltfptr[2160]); + ((meltroutine_ptr_t)/*_.VALROUT___V2633*/ meltfptr[2632])->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2161*/ meltfptr[2160]); - MELT_LOCATION("warmelt-first.melt:2745:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:2752:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2615*/ meltfptr[2614])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V2473*/ meltfptr[2472]); - ((meltroutine_ptr_t)/*_.VALROUT___V2615*/ meltfptr[2614])->tabval[2] = (melt_ptr_t)(/*_.VALCLO___V2473*/ meltfptr[2472]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2633*/ meltfptr[2632])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V2491*/ meltfptr[2490]); + ((meltroutine_ptr_t)/*_.VALROUT___V2633*/ meltfptr[2632])->tabval[2] = (melt_ptr_t)(/*_.VALCLO___V2491*/ meltfptr[2490]); - MELT_LOCATION("warmelt-first.melt:2745:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:2752:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2615*/ meltfptr[2614])) == OBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_2579__LIST_TO_MULTIPLE#3", NULL != (/*_.VALROUT___V2616*/ meltfptr[2615])); - ((meltroutine_ptr_t)/*_.VALROUT___V2615*/ meltfptr[2614])->tabval[3] = (melt_ptr_t)(/*_.VALROUT___V2616*/ meltfptr[2615]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2633*/ meltfptr[2632])) == OBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_2597__LIST_TO_MULTIPLE#3", NULL != (/*_.VALROUT___V2634*/ meltfptr[2633])); + ((meltroutine_ptr_t)/*_.VALROUT___V2633*/ meltfptr[2632])->tabval[3] = (melt_ptr_t)(/*_.VALROUT___V2634*/ meltfptr[2633]); - MELT_LOCATION("warmelt-first.melt:2745:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:2752:/ initchunk"); /*^touch*/ /*touch:IROUTVAL_*/ - meltgc_touch(/*_.VALROUT___V2615*/ meltfptr[2614]); + meltgc_touch(/*_.VALROUT___V2633*/ meltfptr[2632]); /*putclosurout*/ - melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V2617*/ meltfptr[2616])) == OBMAG_CLOSURE); - melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2615*/ meltfptr[2614])) == OBMAG_ROUTINE); - ((meltclosure_ptr_t)/*_.VALCLO___V2617*/ meltfptr[2616])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V2615*/ meltfptr[2614]); + melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V2635*/ meltfptr[2634])) == OBMAG_CLOSURE); + melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2633*/ meltfptr[2632])) == OBMAG_ROUTINE); + ((meltclosure_ptr_t)/*_.VALCLO___V2635*/ meltfptr[2634])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V2633*/ meltfptr[2632]); /*touch:DATACLOSURE_*/ - meltgc_touch(/*_.VALCLO___V2617*/ meltfptr[2616]); + meltgc_touch(/*_.VALCLO___V2635*/ meltfptr[2634]); - MELT_LOCATION("warmelt-first.melt:2765:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:2772:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2618*/ meltfptr[2617])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V2159*/ meltfptr[2158]); - ((meltroutine_ptr_t)/*_.VALROUT___V2618*/ meltfptr[2617])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V2159*/ meltfptr[2158]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2636*/ meltfptr[2635])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V2177*/ meltfptr[2176]); + ((meltroutine_ptr_t)/*_.VALROUT___V2636*/ meltfptr[2635])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V2177*/ meltfptr[2176]); - MELT_LOCATION("warmelt-first.melt:2765:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:2772:/ initchunk"); /*^touch*/ /*touch:IROUTVAL_*/ - meltgc_touch(/*_.VALROUT___V2618*/ meltfptr[2617]); + meltgc_touch(/*_.VALROUT___V2636*/ meltfptr[2635]); /*putclosurout*/ - melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V2619*/ meltfptr[2618])) == OBMAG_CLOSURE); - melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2618*/ meltfptr[2617])) == OBMAG_ROUTINE); - ((meltclosure_ptr_t)/*_.VALCLO___V2619*/ meltfptr[2618])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V2618*/ meltfptr[2617]); + melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V2637*/ meltfptr[2636])) == OBMAG_CLOSURE); + melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2636*/ meltfptr[2635])) == OBMAG_ROUTINE); + ((meltclosure_ptr_t)/*_.VALCLO___V2637*/ meltfptr[2636])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V2636*/ meltfptr[2635]); /*touch:DATACLOSURE_*/ - meltgc_touch(/*_.VALCLO___V2619*/ meltfptr[2618]); + meltgc_touch(/*_.VALCLO___V2637*/ meltfptr[2636]); - MELT_LOCATION("warmelt-first.melt:2795:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:2802:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2620*/ meltfptr[2619])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2638*/ meltfptr[2637])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2620*/ meltfptr[2619])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2620*/ meltfptr[2619]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V2621*/ meltfptr[2620]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2638*/ meltfptr[2637])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2638*/ meltfptr[2637]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V2639*/ meltfptr[2638]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2623*/ meltfptr[2622])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2641*/ meltfptr[2640])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2623*/ meltfptr[2622])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2623*/ meltfptr[2622]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V2624*/ meltfptr[2623]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2641*/ meltfptr[2640])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2641*/ meltfptr[2640]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V2642*/ meltfptr[2641]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V2623*/ meltfptr[2622]); + meltgc_touch(/*_.VALDATA___V2641*/ meltfptr[2640]); - MELT_LOCATION("warmelt-first.melt:2795:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:2802:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2622*/ meltfptr[2621])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2640*/ meltfptr[2639])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2622*/ meltfptr[2621])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2622*/ meltfptr[2621]))->obj_vartab[0] = (melt_ptr_t)( - /*_.VALDATA___V2623*/ meltfptr[2622]); + melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2640*/ meltfptr[2639])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2640*/ meltfptr[2639]))->obj_vartab[0] = (melt_ptr_t)( + /*_.VALDATA___V2641*/ meltfptr[2640]); - MELT_LOCATION("warmelt-first.melt:2795:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:2802:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2622*/ meltfptr[2621])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2640*/ meltfptr[2639])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2622*/ meltfptr[2621])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2622*/ meltfptr[2621]))->obj_vartab[1] = (melt_ptr_t)( + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2640*/ meltfptr[2639])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2640*/ meltfptr[2639]))->obj_vartab[1] = (melt_ptr_t)( ((void*)(MELT_PREDEF(CTYPE_VALUE)))); - MELT_LOCATION("warmelt-first.melt:2795:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:2802:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V2622*/ meltfptr[2621]); + meltgc_touch(/*_.VALDATA___V2640*/ meltfptr[2639]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2625*/ meltfptr[2624]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2625*/ meltfptr[2624])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V2625*/ meltfptr[2624]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V2622*/ meltfptr[2621]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2643*/ meltfptr[2642]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2643*/ meltfptr[2642])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V2643*/ meltfptr[2642]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V2640*/ meltfptr[2639]); /*touch:INITUP_*/ - meltgc_touch(/*_.VALTUP___V2625*/ meltfptr[2624]); + meltgc_touch(/*_.VALTUP___V2643*/ meltfptr[2642]); - MELT_LOCATION("warmelt-first.melt:2795:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:2802:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2620*/ meltfptr[2619])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2638*/ meltfptr[2637])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2620*/ meltfptr[2619])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2620*/ meltfptr[2619]))->obj_vartab[2] = (melt_ptr_t)( - /*_.VALTUP___V2625*/ meltfptr[2624]); + melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2638*/ meltfptr[2637])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2638*/ meltfptr[2637]))->obj_vartab[2] = (melt_ptr_t)( + /*_.VALTUP___V2643*/ meltfptr[2642]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2626*/ meltfptr[2625])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2644*/ meltfptr[2643])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2626*/ meltfptr[2625])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2626*/ meltfptr[2625]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V2627*/ meltfptr[2626]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2644*/ meltfptr[2643])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2644*/ meltfptr[2643]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V2645*/ meltfptr[2644]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V2626*/ meltfptr[2625]); + meltgc_touch(/*_.VALDATA___V2644*/ meltfptr[2643]); - MELT_LOCATION("warmelt-first.melt:2795:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:2802:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2620*/ meltfptr[2619])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2638*/ meltfptr[2637])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2620*/ meltfptr[2619])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2620*/ meltfptr[2619]))->obj_vartab[3] = (melt_ptr_t)( - /*_.VALDATA___V2626*/ meltfptr[2625]); + melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2638*/ meltfptr[2637])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2638*/ meltfptr[2637]))->obj_vartab[3] = (melt_ptr_t)( + /*_.VALDATA___V2644*/ meltfptr[2643]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2629*/ meltfptr[2628])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2647*/ meltfptr[2646])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2629*/ meltfptr[2628])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2629*/ meltfptr[2628]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V2630*/ meltfptr[2629]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2647*/ meltfptr[2646])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2647*/ meltfptr[2646]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V2648*/ meltfptr[2647]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V2629*/ meltfptr[2628]); + meltgc_touch(/*_.VALDATA___V2647*/ meltfptr[2646]); - MELT_LOCATION("warmelt-first.melt:2795:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:2802:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2628*/ meltfptr[2627])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2646*/ meltfptr[2645])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2628*/ meltfptr[2627])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2628*/ meltfptr[2627]))->obj_vartab[0] = (melt_ptr_t)( - /*_.VALDATA___V2629*/ meltfptr[2628]); + melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2646*/ meltfptr[2645])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2646*/ meltfptr[2645]))->obj_vartab[0] = (melt_ptr_t)( + /*_.VALDATA___V2647*/ meltfptr[2646]); - MELT_LOCATION("warmelt-first.melt:2795:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:2802:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2628*/ meltfptr[2627])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2646*/ meltfptr[2645])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2628*/ meltfptr[2627])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2628*/ meltfptr[2627]))->obj_vartab[1] = (melt_ptr_t)( + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2646*/ meltfptr[2645])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2646*/ meltfptr[2645]))->obj_vartab[1] = (melt_ptr_t)( ((void*)(MELT_PREDEF(CTYPE_VALUE)))); - MELT_LOCATION("warmelt-first.melt:2795:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:2802:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V2628*/ meltfptr[2627]); + meltgc_touch(/*_.VALDATA___V2646*/ meltfptr[2645]); - MELT_LOCATION("warmelt-first.melt:2795:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:2802:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2631*/ meltfptr[2630])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2649*/ meltfptr[2648])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2631*/ meltfptr[2630])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2631*/ meltfptr[2630]))->obj_vartab[0] = (melt_ptr_t)( + melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2649*/ meltfptr[2648])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2649*/ meltfptr[2648]))->obj_vartab[0] = (melt_ptr_t)( /*_.VALDATA___V1826*/ meltfptr[1825]); - MELT_LOCATION("warmelt-first.melt:2795:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:2802:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2631*/ meltfptr[2630])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2649*/ meltfptr[2648])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2631*/ meltfptr[2630])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2631*/ meltfptr[2630]))->obj_vartab[1] = (melt_ptr_t)( + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2649*/ meltfptr[2648])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2649*/ meltfptr[2648]))->obj_vartab[1] = (melt_ptr_t)( ((void*)(MELT_PREDEF(CTYPE_LONG)))); - MELT_LOCATION("warmelt-first.melt:2795:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:2802:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V2631*/ meltfptr[2630]); + meltgc_touch(/*_.VALDATA___V2649*/ meltfptr[2648]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2632*/ meltfptr[2631]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2632*/ meltfptr[2631])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V2632*/ meltfptr[2631]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V2628*/ meltfptr[2627]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2650*/ meltfptr[2649]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2650*/ meltfptr[2649])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V2650*/ meltfptr[2649]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V2646*/ meltfptr[2645]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2632*/ meltfptr[2631]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2632*/ meltfptr[2631])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V2632*/ meltfptr[2631]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2631*/ meltfptr[2630]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2650*/ meltfptr[2649]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2650*/ meltfptr[2649])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V2650*/ meltfptr[2649]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2649*/ meltfptr[2648]); /*touch:INITUP_*/ - meltgc_touch(/*_.VALTUP___V2632*/ meltfptr[2631]); + meltgc_touch(/*_.VALTUP___V2650*/ meltfptr[2649]); - MELT_LOCATION("warmelt-first.melt:2795:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:2802:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2620*/ meltfptr[2619])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2638*/ meltfptr[2637])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2620*/ meltfptr[2619])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2620*/ meltfptr[2619]))->obj_vartab[4] = (melt_ptr_t)( - /*_.VALTUP___V2632*/ meltfptr[2631]); + melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2638*/ meltfptr[2637])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2638*/ meltfptr[2637]))->obj_vartab[4] = (melt_ptr_t)( + /*_.VALTUP___V2650*/ meltfptr[2649]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2645*/ meltfptr[2644]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2645*/ meltfptr[2644])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V2645*/ meltfptr[2644]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V2633*/ meltfptr[2632]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2663*/ meltfptr[2662]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2663*/ meltfptr[2662])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V2663*/ meltfptr[2662]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V2651*/ meltfptr[2650]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2645*/ meltfptr[2644]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2645*/ meltfptr[2644])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V2645*/ meltfptr[2644]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2626*/ meltfptr[2625]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2663*/ meltfptr[2662]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2663*/ meltfptr[2662])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V2663*/ meltfptr[2662]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2644*/ meltfptr[2643]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2645*/ meltfptr[2644]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2645*/ meltfptr[2644])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V2645*/ meltfptr[2644]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V2634*/ meltfptr[2633]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2663*/ meltfptr[2662]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2663*/ meltfptr[2662])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V2663*/ meltfptr[2662]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V2652*/ meltfptr[2651]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2645*/ meltfptr[2644]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2645*/ meltfptr[2644])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V2645*/ meltfptr[2644]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V2626*/ meltfptr[2625]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2663*/ meltfptr[2662]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2663*/ meltfptr[2662])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V2663*/ meltfptr[2662]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V2644*/ meltfptr[2643]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2645*/ meltfptr[2644]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2645*/ meltfptr[2644])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V2645*/ meltfptr[2644]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V2635*/ meltfptr[2634]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2663*/ meltfptr[2662]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2663*/ meltfptr[2662])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V2663*/ meltfptr[2662]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V2653*/ meltfptr[2652]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2645*/ meltfptr[2644]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2645*/ meltfptr[2644])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V2645*/ meltfptr[2644]))->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V2623*/ meltfptr[2622]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2663*/ meltfptr[2662]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2663*/ meltfptr[2662])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V2663*/ meltfptr[2662]))->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V2641*/ meltfptr[2640]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2645*/ meltfptr[2644]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (6>=0 && 6< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2645*/ meltfptr[2644])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V2645*/ meltfptr[2644]))->tabval[6] = (melt_ptr_t)(/*_.VALSTR___V2636*/ meltfptr[2635]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2663*/ meltfptr[2662]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (6>=0 && 6< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2663*/ meltfptr[2662])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V2663*/ meltfptr[2662]))->tabval[6] = (melt_ptr_t)(/*_.VALSTR___V2654*/ meltfptr[2653]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2645*/ meltfptr[2644]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (7>=0 && 7< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2645*/ meltfptr[2644])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V2645*/ meltfptr[2644]))->tabval[7] = (melt_ptr_t)(/*_.VALDATA___V1826*/ meltfptr[1825]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2663*/ meltfptr[2662]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (7>=0 && 7< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2663*/ meltfptr[2662])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V2663*/ meltfptr[2662]))->tabval[7] = (melt_ptr_t)(/*_.VALDATA___V1826*/ meltfptr[1825]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2645*/ meltfptr[2644]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (8>=0 && 8< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2645*/ meltfptr[2644])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V2645*/ meltfptr[2644]))->tabval[8] = (melt_ptr_t)(/*_.VALSTR___V2637*/ meltfptr[2636]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2663*/ meltfptr[2662]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (8>=0 && 8< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2663*/ meltfptr[2662])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V2663*/ meltfptr[2662]))->tabval[8] = (melt_ptr_t)(/*_.VALSTR___V2655*/ meltfptr[2654]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2645*/ meltfptr[2644]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (9>=0 && 9< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2645*/ meltfptr[2644])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V2645*/ meltfptr[2644]))->tabval[9] = (melt_ptr_t)(/*_.VALDATA___V1826*/ meltfptr[1825]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2663*/ meltfptr[2662]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (9>=0 && 9< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2663*/ meltfptr[2662])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V2663*/ meltfptr[2662]))->tabval[9] = (melt_ptr_t)(/*_.VALDATA___V1826*/ meltfptr[1825]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2645*/ meltfptr[2644]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (10>=0 && 10< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2645*/ meltfptr[2644])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V2645*/ meltfptr[2644]))->tabval[10] = (melt_ptr_t)(/*_.VALSTR___V2638*/ meltfptr[2637]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2663*/ meltfptr[2662]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (10>=0 && 10< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2663*/ meltfptr[2662])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V2663*/ meltfptr[2662]))->tabval[10] = (melt_ptr_t)(/*_.VALSTR___V2656*/ meltfptr[2655]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2645*/ meltfptr[2644]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (11>=0 && 11< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2645*/ meltfptr[2644])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V2645*/ meltfptr[2644]))->tabval[11] = (melt_ptr_t)(/*_.VALDATA___V1826*/ meltfptr[1825]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2663*/ meltfptr[2662]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (11>=0 && 11< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2663*/ meltfptr[2662])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V2663*/ meltfptr[2662]))->tabval[11] = (melt_ptr_t)(/*_.VALDATA___V1826*/ meltfptr[1825]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2645*/ meltfptr[2644]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (12>=0 && 12< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2645*/ meltfptr[2644])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V2645*/ meltfptr[2644]))->tabval[12] = (melt_ptr_t)(/*_.VALSTR___V2639*/ meltfptr[2638]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2663*/ meltfptr[2662]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (12>=0 && 12< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2663*/ meltfptr[2662])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V2663*/ meltfptr[2662]))->tabval[12] = (melt_ptr_t)(/*_.VALSTR___V2657*/ meltfptr[2656]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2645*/ meltfptr[2644]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (13>=0 && 13< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2645*/ meltfptr[2644])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V2645*/ meltfptr[2644]))->tabval[13] = (melt_ptr_t)(/*_.VALDATA___V2626*/ meltfptr[2625]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2663*/ meltfptr[2662]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (13>=0 && 13< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2663*/ meltfptr[2662])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V2663*/ meltfptr[2662]))->tabval[13] = (melt_ptr_t)(/*_.VALDATA___V2644*/ meltfptr[2643]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2645*/ meltfptr[2644]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (14>=0 && 14< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2645*/ meltfptr[2644])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V2645*/ meltfptr[2644]))->tabval[14] = (melt_ptr_t)(/*_.VALSTR___V2640*/ meltfptr[2639]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2663*/ meltfptr[2662]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (14>=0 && 14< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2663*/ meltfptr[2662])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V2663*/ meltfptr[2662]))->tabval[14] = (melt_ptr_t)(/*_.VALSTR___V2658*/ meltfptr[2657]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2645*/ meltfptr[2644]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (15>=0 && 15< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2645*/ meltfptr[2644])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V2645*/ meltfptr[2644]))->tabval[15] = (melt_ptr_t)(/*_.VALDATA___V1826*/ meltfptr[1825]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2663*/ meltfptr[2662]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (15>=0 && 15< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2663*/ meltfptr[2662])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V2663*/ meltfptr[2662]))->tabval[15] = (melt_ptr_t)(/*_.VALDATA___V1826*/ meltfptr[1825]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2645*/ meltfptr[2644]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (16>=0 && 16< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2645*/ meltfptr[2644])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V2645*/ meltfptr[2644]))->tabval[16] = (melt_ptr_t)(/*_.VALSTR___V2641*/ meltfptr[2640]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2663*/ meltfptr[2662]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (16>=0 && 16< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2663*/ meltfptr[2662])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V2663*/ meltfptr[2662]))->tabval[16] = (melt_ptr_t)(/*_.VALSTR___V2659*/ meltfptr[2658]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2645*/ meltfptr[2644]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (17>=0 && 17< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2645*/ meltfptr[2644])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V2645*/ meltfptr[2644]))->tabval[17] = (melt_ptr_t)(/*_.VALDATA___V2629*/ meltfptr[2628]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2663*/ meltfptr[2662]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (17>=0 && 17< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2663*/ meltfptr[2662])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V2663*/ meltfptr[2662]))->tabval[17] = (melt_ptr_t)(/*_.VALDATA___V2647*/ meltfptr[2646]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2645*/ meltfptr[2644]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (18>=0 && 18< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2645*/ meltfptr[2644])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V2645*/ meltfptr[2644]))->tabval[18] = (melt_ptr_t)(/*_.VALSTR___V2642*/ meltfptr[2641]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2663*/ meltfptr[2662]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (18>=0 && 18< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2663*/ meltfptr[2662])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V2663*/ meltfptr[2662]))->tabval[18] = (melt_ptr_t)(/*_.VALSTR___V2660*/ meltfptr[2659]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2645*/ meltfptr[2644]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (19>=0 && 19< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2645*/ meltfptr[2644])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V2645*/ meltfptr[2644]))->tabval[19] = (melt_ptr_t)(/*_.VALDATA___V2623*/ meltfptr[2622]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2663*/ meltfptr[2662]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (19>=0 && 19< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2663*/ meltfptr[2662])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V2663*/ meltfptr[2662]))->tabval[19] = (melt_ptr_t)(/*_.VALDATA___V2641*/ meltfptr[2640]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2645*/ meltfptr[2644]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (20>=0 && 20< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2645*/ meltfptr[2644])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V2645*/ meltfptr[2644]))->tabval[20] = (melt_ptr_t)(/*_.VALSTR___V2643*/ meltfptr[2642]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2663*/ meltfptr[2662]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (20>=0 && 20< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2663*/ meltfptr[2662])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V2663*/ meltfptr[2662]))->tabval[20] = (melt_ptr_t)(/*_.VALSTR___V2661*/ meltfptr[2660]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2645*/ meltfptr[2644]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (21>=0 && 21< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2645*/ meltfptr[2644])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V2645*/ meltfptr[2644]))->tabval[21] = (melt_ptr_t)(/*_.VALDATA___V1826*/ meltfptr[1825]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2663*/ meltfptr[2662]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (21>=0 && 21< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2663*/ meltfptr[2662])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V2663*/ meltfptr[2662]))->tabval[21] = (melt_ptr_t)(/*_.VALDATA___V1826*/ meltfptr[1825]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2645*/ meltfptr[2644]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (22>=0 && 22< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2645*/ meltfptr[2644])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V2645*/ meltfptr[2644]))->tabval[22] = (melt_ptr_t)(/*_.VALSTR___V2644*/ meltfptr[2643]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2663*/ meltfptr[2662]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (22>=0 && 22< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2663*/ meltfptr[2662])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V2663*/ meltfptr[2662]))->tabval[22] = (melt_ptr_t)(/*_.VALSTR___V2662*/ meltfptr[2661]); /*touch:INITUP_*/ - meltgc_touch(/*_.VALTUP___V2645*/ meltfptr[2644]); + meltgc_touch(/*_.VALTUP___V2663*/ meltfptr[2662]); - MELT_LOCATION("warmelt-first.melt:2795:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:2802:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2620*/ meltfptr[2619])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2638*/ meltfptr[2637])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2620*/ meltfptr[2619])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2620*/ meltfptr[2619]))->obj_vartab[5] = (melt_ptr_t)( - /*_.VALTUP___V2645*/ meltfptr[2644]); + melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2638*/ meltfptr[2637])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2638*/ meltfptr[2637]))->obj_vartab[5] = (melt_ptr_t)( + /*_.VALTUP___V2663*/ meltfptr[2662]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2649*/ meltfptr[2648]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2649*/ meltfptr[2648])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V2649*/ meltfptr[2648]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V2646*/ meltfptr[2645]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2667*/ meltfptr[2666]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2667*/ meltfptr[2666])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V2667*/ meltfptr[2666]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V2664*/ meltfptr[2663]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2649*/ meltfptr[2648]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2649*/ meltfptr[2648])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V2649*/ meltfptr[2648]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1826*/ meltfptr[1825]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2667*/ meltfptr[2666]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2667*/ meltfptr[2666])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V2667*/ meltfptr[2666]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1826*/ meltfptr[1825]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2649*/ meltfptr[2648]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2649*/ meltfptr[2648])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V2649*/ meltfptr[2648]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V2647*/ meltfptr[2646]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2667*/ meltfptr[2666]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2667*/ meltfptr[2666])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V2667*/ meltfptr[2666]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V2665*/ meltfptr[2664]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2649*/ meltfptr[2648]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2649*/ meltfptr[2648])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V2649*/ meltfptr[2648]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V2626*/ meltfptr[2625]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2667*/ meltfptr[2666]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2667*/ meltfptr[2666])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V2667*/ meltfptr[2666]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V2644*/ meltfptr[2643]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2649*/ meltfptr[2648]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2649*/ meltfptr[2648])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V2649*/ meltfptr[2648]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V2648*/ meltfptr[2647]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2667*/ meltfptr[2666]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2667*/ meltfptr[2666])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V2667*/ meltfptr[2666]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V2666*/ meltfptr[2665]); /*touch:INITUP_*/ - meltgc_touch(/*_.VALTUP___V2649*/ meltfptr[2648]); + meltgc_touch(/*_.VALTUP___V2667*/ meltfptr[2666]); - MELT_LOCATION("warmelt-first.melt:2795:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:2802:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2620*/ meltfptr[2619])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2638*/ meltfptr[2637])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2620*/ meltfptr[2619])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2620*/ meltfptr[2619]))->obj_vartab[6] = (melt_ptr_t)( - /*_.VALTUP___V2649*/ meltfptr[2648]); + melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2638*/ meltfptr[2637])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2638*/ meltfptr[2637]))->obj_vartab[6] = (melt_ptr_t)( + /*_.VALTUP___V2667*/ meltfptr[2666]); - MELT_LOCATION("warmelt-first.melt:2795:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:2802:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V2620*/ meltfptr[2619]); + meltgc_touch(/*_.VALDATA___V2638*/ meltfptr[2637]); - MELT_LOCATION("warmelt-first.melt:2811:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:2818:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2650*/ meltfptr[2649])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2668*/ meltfptr[2667])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2650*/ meltfptr[2649])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2650*/ meltfptr[2649]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V2651*/ meltfptr[2650]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2668*/ meltfptr[2667])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2668*/ meltfptr[2667]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V2669*/ meltfptr[2668]); - MELT_LOCATION("warmelt-first.melt:2811:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:2818:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2652*/ meltfptr[2651])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2670*/ meltfptr[2669])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2652*/ meltfptr[2651])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2652*/ meltfptr[2651]))->obj_vartab[0] = (melt_ptr_t)( - /*_.VALDATA___V2623*/ meltfptr[2622]); + melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2670*/ meltfptr[2669])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2670*/ meltfptr[2669]))->obj_vartab[0] = (melt_ptr_t)( + /*_.VALDATA___V2641*/ meltfptr[2640]); - MELT_LOCATION("warmelt-first.melt:2811:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:2818:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2652*/ meltfptr[2651])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2670*/ meltfptr[2669])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2652*/ meltfptr[2651])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2652*/ meltfptr[2651]))->obj_vartab[1] = (melt_ptr_t)( + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2670*/ meltfptr[2669])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2670*/ meltfptr[2669]))->obj_vartab[1] = (melt_ptr_t)( ((void*)(MELT_PREDEF(CTYPE_VALUE)))); - MELT_LOCATION("warmelt-first.melt:2811:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:2818:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V2652*/ meltfptr[2651]); + meltgc_touch(/*_.VALDATA___V2670*/ meltfptr[2669]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2653*/ meltfptr[2652]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2653*/ meltfptr[2652])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V2653*/ meltfptr[2652]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V2652*/ meltfptr[2651]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2671*/ meltfptr[2670]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2671*/ meltfptr[2670])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V2671*/ meltfptr[2670]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V2670*/ meltfptr[2669]); /*touch:INITUP_*/ - meltgc_touch(/*_.VALTUP___V2653*/ meltfptr[2652]); + meltgc_touch(/*_.VALTUP___V2671*/ meltfptr[2670]); - MELT_LOCATION("warmelt-first.melt:2811:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:2818:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2650*/ meltfptr[2649])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2668*/ meltfptr[2667])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2650*/ meltfptr[2649])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2650*/ meltfptr[2649]))->obj_vartab[2] = (melt_ptr_t)( - /*_.VALTUP___V2653*/ meltfptr[2652]); + melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2668*/ meltfptr[2667])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2668*/ meltfptr[2667]))->obj_vartab[2] = (melt_ptr_t)( + /*_.VALTUP___V2671*/ meltfptr[2670]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2654*/ meltfptr[2653])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2672*/ meltfptr[2671])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2654*/ meltfptr[2653])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2654*/ meltfptr[2653]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V2655*/ meltfptr[2654]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2672*/ meltfptr[2671])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2672*/ meltfptr[2671]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V2673*/ meltfptr[2672]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V2654*/ meltfptr[2653]); + meltgc_touch(/*_.VALDATA___V2672*/ meltfptr[2671]); - MELT_LOCATION("warmelt-first.melt:2811:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:2818:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2650*/ meltfptr[2649])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2668*/ meltfptr[2667])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2650*/ meltfptr[2649])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2650*/ meltfptr[2649]))->obj_vartab[3] = (melt_ptr_t)( - /*_.VALDATA___V2654*/ meltfptr[2653]); + melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2668*/ meltfptr[2667])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2668*/ meltfptr[2667]))->obj_vartab[3] = (melt_ptr_t)( + /*_.VALDATA___V2672*/ meltfptr[2671]); - MELT_LOCATION("warmelt-first.melt:2811:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:2818:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2656*/ meltfptr[2655])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2674*/ meltfptr[2673])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2656*/ meltfptr[2655])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2656*/ meltfptr[2655]))->obj_vartab[0] = (melt_ptr_t)( - /*_.VALDATA___V2629*/ meltfptr[2628]); + melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2674*/ meltfptr[2673])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2674*/ meltfptr[2673]))->obj_vartab[0] = (melt_ptr_t)( + /*_.VALDATA___V2647*/ meltfptr[2646]); - MELT_LOCATION("warmelt-first.melt:2811:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:2818:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2656*/ meltfptr[2655])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2674*/ meltfptr[2673])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2656*/ meltfptr[2655])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2656*/ meltfptr[2655]))->obj_vartab[1] = (melt_ptr_t)( + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2674*/ meltfptr[2673])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2674*/ meltfptr[2673]))->obj_vartab[1] = (melt_ptr_t)( ((void*)(MELT_PREDEF(CTYPE_VALUE)))); - MELT_LOCATION("warmelt-first.melt:2811:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:2818:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V2656*/ meltfptr[2655]); + meltgc_touch(/*_.VALDATA___V2674*/ meltfptr[2673]); - MELT_LOCATION("warmelt-first.melt:2811:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:2818:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2657*/ meltfptr[2656])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2675*/ meltfptr[2674])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2657*/ meltfptr[2656])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2657*/ meltfptr[2656]))->obj_vartab[0] = (melt_ptr_t)( + melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2675*/ meltfptr[2674])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2675*/ meltfptr[2674]))->obj_vartab[0] = (melt_ptr_t)( /*_.VALDATA___V1826*/ meltfptr[1825]); - MELT_LOCATION("warmelt-first.melt:2811:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:2818:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2657*/ meltfptr[2656])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2675*/ meltfptr[2674])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2657*/ meltfptr[2656])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2657*/ meltfptr[2656]))->obj_vartab[1] = (melt_ptr_t)( + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2675*/ meltfptr[2674])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2675*/ meltfptr[2674]))->obj_vartab[1] = (melt_ptr_t)( ((void*)(MELT_PREDEF(CTYPE_LONG)))); - MELT_LOCATION("warmelt-first.melt:2811:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:2818:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V2657*/ meltfptr[2656]); + meltgc_touch(/*_.VALDATA___V2675*/ meltfptr[2674]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2658*/ meltfptr[2657]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2658*/ meltfptr[2657])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V2658*/ meltfptr[2657]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V2656*/ meltfptr[2655]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2676*/ meltfptr[2675]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2676*/ meltfptr[2675])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V2676*/ meltfptr[2675]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V2674*/ meltfptr[2673]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2658*/ meltfptr[2657]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2658*/ meltfptr[2657])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V2658*/ meltfptr[2657]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2657*/ meltfptr[2656]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2676*/ meltfptr[2675]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2676*/ meltfptr[2675])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V2676*/ meltfptr[2675]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2675*/ meltfptr[2674]); /*touch:INITUP_*/ - meltgc_touch(/*_.VALTUP___V2658*/ meltfptr[2657]); + meltgc_touch(/*_.VALTUP___V2676*/ meltfptr[2675]); - MELT_LOCATION("warmelt-first.melt:2811:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:2818:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2650*/ meltfptr[2649])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2668*/ meltfptr[2667])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2650*/ meltfptr[2649])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2650*/ meltfptr[2649]))->obj_vartab[4] = (melt_ptr_t)( - /*_.VALTUP___V2658*/ meltfptr[2657]); + melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2668*/ meltfptr[2667])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2668*/ meltfptr[2667]))->obj_vartab[4] = (melt_ptr_t)( + /*_.VALTUP___V2676*/ meltfptr[2675]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2673*/ meltfptr[2672]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2673*/ meltfptr[2672])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V2673*/ meltfptr[2672]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V2659*/ meltfptr[2658]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2691*/ meltfptr[2690]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2691*/ meltfptr[2690])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V2691*/ meltfptr[2690]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V2677*/ meltfptr[2676]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2673*/ meltfptr[2672]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2673*/ meltfptr[2672])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V2673*/ meltfptr[2672]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2654*/ meltfptr[2653]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2691*/ meltfptr[2690]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2691*/ meltfptr[2690])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V2691*/ meltfptr[2690]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2672*/ meltfptr[2671]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2673*/ meltfptr[2672]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2673*/ meltfptr[2672])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V2673*/ meltfptr[2672]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V2660*/ meltfptr[2659]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2691*/ meltfptr[2690]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2691*/ meltfptr[2690])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V2691*/ meltfptr[2690]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V2678*/ meltfptr[2677]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2673*/ meltfptr[2672]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2673*/ meltfptr[2672])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V2673*/ meltfptr[2672]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V2654*/ meltfptr[2653]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2691*/ meltfptr[2690]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2691*/ meltfptr[2690])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V2691*/ meltfptr[2690]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V2672*/ meltfptr[2671]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2673*/ meltfptr[2672]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2673*/ meltfptr[2672])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V2673*/ meltfptr[2672]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V2661*/ meltfptr[2660]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2691*/ meltfptr[2690]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2691*/ meltfptr[2690])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V2691*/ meltfptr[2690]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V2679*/ meltfptr[2678]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2673*/ meltfptr[2672]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2673*/ meltfptr[2672])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V2673*/ meltfptr[2672]))->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V2623*/ meltfptr[2622]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2691*/ meltfptr[2690]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2691*/ meltfptr[2690])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V2691*/ meltfptr[2690]))->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V2641*/ meltfptr[2640]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2673*/ meltfptr[2672]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (6>=0 && 6< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2673*/ meltfptr[2672])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V2673*/ meltfptr[2672]))->tabval[6] = (melt_ptr_t)(/*_.VALSTR___V2662*/ meltfptr[2661]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2691*/ meltfptr[2690]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (6>=0 && 6< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2691*/ meltfptr[2690])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V2691*/ meltfptr[2690]))->tabval[6] = (melt_ptr_t)(/*_.VALSTR___V2680*/ meltfptr[2679]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2673*/ meltfptr[2672]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (7>=0 && 7< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2673*/ meltfptr[2672])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V2673*/ meltfptr[2672]))->tabval[7] = (melt_ptr_t)(/*_.VALDATA___V2654*/ meltfptr[2653]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2691*/ meltfptr[2690]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (7>=0 && 7< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2691*/ meltfptr[2690])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V2691*/ meltfptr[2690]))->tabval[7] = (melt_ptr_t)(/*_.VALDATA___V2672*/ meltfptr[2671]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2673*/ meltfptr[2672]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (8>=0 && 8< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2673*/ meltfptr[2672])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V2673*/ meltfptr[2672]))->tabval[8] = (melt_ptr_t)(/*_.VALSTR___V2663*/ meltfptr[2662]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2691*/ meltfptr[2690]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (8>=0 && 8< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2691*/ meltfptr[2690])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V2691*/ meltfptr[2690]))->tabval[8] = (melt_ptr_t)(/*_.VALSTR___V2681*/ meltfptr[2680]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2673*/ meltfptr[2672]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (9>=0 && 9< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2673*/ meltfptr[2672])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V2673*/ meltfptr[2672]))->tabval[9] = (melt_ptr_t)(/*_.VALDATA___V2654*/ meltfptr[2653]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2691*/ meltfptr[2690]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (9>=0 && 9< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2691*/ meltfptr[2690])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V2691*/ meltfptr[2690]))->tabval[9] = (melt_ptr_t)(/*_.VALDATA___V2672*/ meltfptr[2671]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2673*/ meltfptr[2672]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (10>=0 && 10< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2673*/ meltfptr[2672])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V2673*/ meltfptr[2672]))->tabval[10] = (melt_ptr_t)(/*_.VALSTR___V2664*/ meltfptr[2663]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2691*/ meltfptr[2690]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (10>=0 && 10< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2691*/ meltfptr[2690])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V2691*/ meltfptr[2690]))->tabval[10] = (melt_ptr_t)(/*_.VALSTR___V2682*/ meltfptr[2681]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2673*/ meltfptr[2672]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (11>=0 && 11< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2673*/ meltfptr[2672])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V2673*/ meltfptr[2672]))->tabval[11] = (melt_ptr_t)(/*_.VALDATA___V2654*/ meltfptr[2653]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2691*/ meltfptr[2690]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (11>=0 && 11< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2691*/ meltfptr[2690])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V2691*/ meltfptr[2690]))->tabval[11] = (melt_ptr_t)(/*_.VALDATA___V2672*/ meltfptr[2671]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2673*/ meltfptr[2672]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (12>=0 && 12< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2673*/ meltfptr[2672])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V2673*/ meltfptr[2672]))->tabval[12] = (melt_ptr_t)(/*_.VALSTR___V2665*/ meltfptr[2664]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2691*/ meltfptr[2690]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (12>=0 && 12< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2691*/ meltfptr[2690])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V2691*/ meltfptr[2690]))->tabval[12] = (melt_ptr_t)(/*_.VALSTR___V2683*/ meltfptr[2682]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2673*/ meltfptr[2672]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (13>=0 && 13< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2673*/ meltfptr[2672])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V2673*/ meltfptr[2672]))->tabval[13] = (melt_ptr_t)(/*_.VALDATA___V2654*/ meltfptr[2653]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2691*/ meltfptr[2690]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (13>=0 && 13< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2691*/ meltfptr[2690])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V2691*/ meltfptr[2690]))->tabval[13] = (melt_ptr_t)(/*_.VALDATA___V2672*/ meltfptr[2671]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2673*/ meltfptr[2672]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (14>=0 && 14< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2673*/ meltfptr[2672])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V2673*/ meltfptr[2672]))->tabval[14] = (melt_ptr_t)(/*_.VALSTR___V2666*/ meltfptr[2665]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2691*/ meltfptr[2690]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (14>=0 && 14< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2691*/ meltfptr[2690])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V2691*/ meltfptr[2690]))->tabval[14] = (melt_ptr_t)(/*_.VALSTR___V2684*/ meltfptr[2683]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2673*/ meltfptr[2672]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (15>=0 && 15< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2673*/ meltfptr[2672])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V2673*/ meltfptr[2672]))->tabval[15] = (melt_ptr_t)(/*_.VALDATA___V2654*/ meltfptr[2653]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2691*/ meltfptr[2690]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (15>=0 && 15< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2691*/ meltfptr[2690])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V2691*/ meltfptr[2690]))->tabval[15] = (melt_ptr_t)(/*_.VALDATA___V2672*/ meltfptr[2671]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2673*/ meltfptr[2672]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (16>=0 && 16< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2673*/ meltfptr[2672])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V2673*/ meltfptr[2672]))->tabval[16] = (melt_ptr_t)(/*_.VALSTR___V2667*/ meltfptr[2666]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2691*/ meltfptr[2690]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (16>=0 && 16< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2691*/ meltfptr[2690])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V2691*/ meltfptr[2690]))->tabval[16] = (melt_ptr_t)(/*_.VALSTR___V2685*/ meltfptr[2684]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2673*/ meltfptr[2672]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (17>=0 && 17< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2673*/ meltfptr[2672])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V2673*/ meltfptr[2672]))->tabval[17] = (melt_ptr_t)(/*_.VALDATA___V2629*/ meltfptr[2628]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2691*/ meltfptr[2690]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (17>=0 && 17< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2691*/ meltfptr[2690])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V2691*/ meltfptr[2690]))->tabval[17] = (melt_ptr_t)(/*_.VALDATA___V2647*/ meltfptr[2646]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2673*/ meltfptr[2672]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (18>=0 && 18< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2673*/ meltfptr[2672])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V2673*/ meltfptr[2672]))->tabval[18] = (melt_ptr_t)(/*_.VALSTR___V2668*/ meltfptr[2667]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2691*/ meltfptr[2690]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (18>=0 && 18< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2691*/ meltfptr[2690])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V2691*/ meltfptr[2690]))->tabval[18] = (melt_ptr_t)(/*_.VALSTR___V2686*/ meltfptr[2685]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2673*/ meltfptr[2672]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (19>=0 && 19< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2673*/ meltfptr[2672])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V2673*/ meltfptr[2672]))->tabval[19] = (melt_ptr_t)(/*_.VALDATA___V2623*/ meltfptr[2622]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2691*/ meltfptr[2690]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (19>=0 && 19< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2691*/ meltfptr[2690])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V2691*/ meltfptr[2690]))->tabval[19] = (melt_ptr_t)(/*_.VALDATA___V2641*/ meltfptr[2640]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2673*/ meltfptr[2672]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (20>=0 && 20< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2673*/ meltfptr[2672])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V2673*/ meltfptr[2672]))->tabval[20] = (melt_ptr_t)(/*_.VALSTR___V2669*/ meltfptr[2668]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2691*/ meltfptr[2690]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (20>=0 && 20< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2691*/ meltfptr[2690])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V2691*/ meltfptr[2690]))->tabval[20] = (melt_ptr_t)(/*_.VALSTR___V2687*/ meltfptr[2686]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2673*/ meltfptr[2672]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (21>=0 && 21< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2673*/ meltfptr[2672])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V2673*/ meltfptr[2672]))->tabval[21] = (melt_ptr_t)(/*_.VALDATA___V2654*/ meltfptr[2653]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2691*/ meltfptr[2690]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (21>=0 && 21< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2691*/ meltfptr[2690])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V2691*/ meltfptr[2690]))->tabval[21] = (melt_ptr_t)(/*_.VALDATA___V2672*/ meltfptr[2671]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2673*/ meltfptr[2672]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (22>=0 && 22< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2673*/ meltfptr[2672])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V2673*/ meltfptr[2672]))->tabval[22] = (melt_ptr_t)(/*_.VALSTR___V2670*/ meltfptr[2669]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2691*/ meltfptr[2690]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (22>=0 && 22< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2691*/ meltfptr[2690])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V2691*/ meltfptr[2690]))->tabval[22] = (melt_ptr_t)(/*_.VALSTR___V2688*/ meltfptr[2687]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2673*/ meltfptr[2672]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (23>=0 && 23< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2673*/ meltfptr[2672])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V2673*/ meltfptr[2672]))->tabval[23] = (melt_ptr_t)(/*_.VALDATA___V1826*/ meltfptr[1825]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2691*/ meltfptr[2690]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (23>=0 && 23< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2691*/ meltfptr[2690])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V2691*/ meltfptr[2690]))->tabval[23] = (melt_ptr_t)(/*_.VALDATA___V1826*/ meltfptr[1825]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2673*/ meltfptr[2672]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (24>=0 && 24< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2673*/ meltfptr[2672])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V2673*/ meltfptr[2672]))->tabval[24] = (melt_ptr_t)(/*_.VALSTR___V2671*/ meltfptr[2670]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2691*/ meltfptr[2690]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (24>=0 && 24< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2691*/ meltfptr[2690])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V2691*/ meltfptr[2690]))->tabval[24] = (melt_ptr_t)(/*_.VALSTR___V2689*/ meltfptr[2688]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2673*/ meltfptr[2672]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (25>=0 && 25< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2673*/ meltfptr[2672])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V2673*/ meltfptr[2672]))->tabval[25] = (melt_ptr_t)(/*_.VALDATA___V2654*/ meltfptr[2653]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2691*/ meltfptr[2690]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (25>=0 && 25< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2691*/ meltfptr[2690])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V2691*/ meltfptr[2690]))->tabval[25] = (melt_ptr_t)(/*_.VALDATA___V2672*/ meltfptr[2671]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2673*/ meltfptr[2672]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (26>=0 && 26< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2673*/ meltfptr[2672])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V2673*/ meltfptr[2672]))->tabval[26] = (melt_ptr_t)(/*_.VALSTR___V2672*/ meltfptr[2671]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2691*/ meltfptr[2690]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (26>=0 && 26< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2691*/ meltfptr[2690])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V2691*/ meltfptr[2690]))->tabval[26] = (melt_ptr_t)(/*_.VALSTR___V2690*/ meltfptr[2689]); /*touch:INITUP_*/ - meltgc_touch(/*_.VALTUP___V2673*/ meltfptr[2672]); + meltgc_touch(/*_.VALTUP___V2691*/ meltfptr[2690]); - MELT_LOCATION("warmelt-first.melt:2811:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:2818:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2650*/ meltfptr[2649])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2668*/ meltfptr[2667])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2650*/ meltfptr[2649])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2650*/ meltfptr[2649]))->obj_vartab[5] = (melt_ptr_t)( - /*_.VALTUP___V2673*/ meltfptr[2672]); + melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2668*/ meltfptr[2667])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2668*/ meltfptr[2667]))->obj_vartab[5] = (melt_ptr_t)( + /*_.VALTUP___V2691*/ meltfptr[2690]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2676*/ meltfptr[2675]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2676*/ meltfptr[2675])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V2676*/ meltfptr[2675]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V2674*/ meltfptr[2673]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2694*/ meltfptr[2693]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2694*/ meltfptr[2693])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V2694*/ meltfptr[2693]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V2692*/ meltfptr[2691]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2676*/ meltfptr[2675]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2676*/ meltfptr[2675])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V2676*/ meltfptr[2675]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2654*/ meltfptr[2653]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2694*/ meltfptr[2693]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2694*/ meltfptr[2693])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V2694*/ meltfptr[2693]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2672*/ meltfptr[2671]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2676*/ meltfptr[2675]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2676*/ meltfptr[2675])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V2676*/ meltfptr[2675]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V2675*/ meltfptr[2674]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2694*/ meltfptr[2693]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2694*/ meltfptr[2693])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V2694*/ meltfptr[2693]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V2693*/ meltfptr[2692]); /*touch:INITUP_*/ - meltgc_touch(/*_.VALTUP___V2676*/ meltfptr[2675]); + meltgc_touch(/*_.VALTUP___V2694*/ meltfptr[2693]); - MELT_LOCATION("warmelt-first.melt:2811:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:2818:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2650*/ meltfptr[2649])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2668*/ meltfptr[2667])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2650*/ meltfptr[2649])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2650*/ meltfptr[2649]))->obj_vartab[6] = (melt_ptr_t)( - /*_.VALTUP___V2676*/ meltfptr[2675]); + melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2668*/ meltfptr[2667])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2668*/ meltfptr[2667]))->obj_vartab[6] = (melt_ptr_t)( + /*_.VALTUP___V2694*/ meltfptr[2693]); - MELT_LOCATION("warmelt-first.melt:2811:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:2818:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V2650*/ meltfptr[2649]); + meltgc_touch(/*_.VALDATA___V2668*/ meltfptr[2667]); /*putclosurout*/ - melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V2678*/ meltfptr[2677])) == OBMAG_CLOSURE); - melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2677*/ meltfptr[2676])) == OBMAG_ROUTINE); - ((meltclosure_ptr_t)/*_.VALCLO___V2678*/ meltfptr[2677])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V2677*/ meltfptr[2676]); + melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V2696*/ meltfptr[2695])) == OBMAG_CLOSURE); + melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2695*/ meltfptr[2694])) == OBMAG_ROUTINE); + ((meltclosure_ptr_t)/*_.VALCLO___V2696*/ meltfptr[2695])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V2695*/ meltfptr[2694]); /*touch:DATACLOSURE_*/ - meltgc_touch(/*_.VALCLO___V2678*/ meltfptr[2677]); + meltgc_touch(/*_.VALCLO___V2696*/ meltfptr[2695]); - MELT_LOCATION("warmelt-first.melt:2864:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:2871:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2679*/ meltfptr[2678])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V2151*/ meltfptr[2150]); - ((meltroutine_ptr_t)/*_.VALROUT___V2679*/ meltfptr[2678])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V2151*/ meltfptr[2150]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2697*/ meltfptr[2696])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V2169*/ meltfptr[2168]); + ((meltroutine_ptr_t)/*_.VALROUT___V2697*/ meltfptr[2696])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V2169*/ meltfptr[2168]); - MELT_LOCATION("warmelt-first.melt:2864:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:2871:/ initchunk"); /*^touch*/ /*touch:IROUTVAL_*/ - meltgc_touch(/*_.VALROUT___V2679*/ meltfptr[2678]); + meltgc_touch(/*_.VALROUT___V2697*/ meltfptr[2696]); /*putclosurout*/ - melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V2680*/ meltfptr[2679])) == OBMAG_CLOSURE); - melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2679*/ meltfptr[2678])) == OBMAG_ROUTINE); - ((meltclosure_ptr_t)/*_.VALCLO___V2680*/ meltfptr[2679])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V2679*/ meltfptr[2678]); + melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V2698*/ meltfptr[2697])) == OBMAG_CLOSURE); + melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2697*/ meltfptr[2696])) == OBMAG_ROUTINE); + ((meltclosure_ptr_t)/*_.VALCLO___V2698*/ meltfptr[2697])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V2697*/ meltfptr[2696]); /*touch:DATACLOSURE_*/ - meltgc_touch(/*_.VALCLO___V2680*/ meltfptr[2679]); + meltgc_touch(/*_.VALCLO___V2698*/ meltfptr[2697]); /*putclosurout*/ - melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V2682*/ meltfptr[2681])) == OBMAG_CLOSURE); - melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2681*/ meltfptr[2680])) == OBMAG_ROUTINE); - ((meltclosure_ptr_t)/*_.VALCLO___V2682*/ meltfptr[2681])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V2681*/ meltfptr[2680]); + melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V2700*/ meltfptr[2699])) == OBMAG_CLOSURE); + melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2699*/ meltfptr[2698])) == OBMAG_ROUTINE); + ((meltclosure_ptr_t)/*_.VALCLO___V2700*/ meltfptr[2699])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V2699*/ meltfptr[2698]); /*touch:DATACLOSURE_*/ - meltgc_touch(/*_.VALCLO___V2682*/ meltfptr[2681]); + meltgc_touch(/*_.VALCLO___V2700*/ meltfptr[2699]); /*putclosurout*/ - melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V2684*/ meltfptr[2683])) == OBMAG_CLOSURE); - melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2683*/ meltfptr[2682])) == OBMAG_ROUTINE); - ((meltclosure_ptr_t)/*_.VALCLO___V2684*/ meltfptr[2683])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V2683*/ meltfptr[2682]); + melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V2702*/ meltfptr[2701])) == OBMAG_CLOSURE); + melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2701*/ meltfptr[2700])) == OBMAG_ROUTINE); + ((meltclosure_ptr_t)/*_.VALCLO___V2702*/ meltfptr[2701])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V2701*/ meltfptr[2700]); /*touch:DATACLOSURE_*/ - meltgc_touch(/*_.VALCLO___V2684*/ meltfptr[2683]); + meltgc_touch(/*_.VALCLO___V2702*/ meltfptr[2701]); - MELT_LOCATION("warmelt-first.melt:2907:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:2914:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2685*/ meltfptr[2684])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2703*/ meltfptr[2702])) == OBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V45*/ meltfptr[44]); - ((meltroutine_ptr_t)/*_.VALROUT___V2685*/ meltfptr[2684])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V45*/ meltfptr[44]); + ((meltroutine_ptr_t)/*_.VALROUT___V2703*/ meltfptr[2702])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V45*/ meltfptr[44]); - MELT_LOCATION("warmelt-first.melt:2907:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:2914:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2685*/ meltfptr[2684])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2703*/ meltfptr[2702])) == OBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V287*/ meltfptr[286]); - ((meltroutine_ptr_t)/*_.VALROUT___V2685*/ meltfptr[2684])->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V287*/ meltfptr[286]); + ((meltroutine_ptr_t)/*_.VALROUT___V2703*/ meltfptr[2702])->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V287*/ meltfptr[286]); - MELT_LOCATION("warmelt-first.melt:2907:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:2914:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2685*/ meltfptr[2684])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V2239*/ meltfptr[2238]); - ((meltroutine_ptr_t)/*_.VALROUT___V2685*/ meltfptr[2684])->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V2239*/ meltfptr[2238]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2703*/ meltfptr[2702])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V2257*/ meltfptr[2256]); + ((meltroutine_ptr_t)/*_.VALROUT___V2703*/ meltfptr[2702])->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V2257*/ meltfptr[2256]); - MELT_LOCATION("warmelt-first.melt:2907:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:2914:/ initchunk"); /*^touch*/ /*touch:IROUTVAL_*/ - meltgc_touch(/*_.VALROUT___V2685*/ meltfptr[2684]); + meltgc_touch(/*_.VALROUT___V2703*/ meltfptr[2702]); /*putclosurout*/ - melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V2686*/ meltfptr[2685])) == OBMAG_CLOSURE); - melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2685*/ meltfptr[2684])) == OBMAG_ROUTINE); - ((meltclosure_ptr_t)/*_.VALCLO___V2686*/ meltfptr[2685])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V2685*/ meltfptr[2684]); + melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V2704*/ meltfptr[2703])) == OBMAG_CLOSURE); + melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2703*/ meltfptr[2702])) == OBMAG_ROUTINE); + ((meltclosure_ptr_t)/*_.VALCLO___V2704*/ meltfptr[2703])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V2703*/ meltfptr[2702]); /*touch:DATACLOSURE_*/ - meltgc_touch(/*_.VALCLO___V2686*/ meltfptr[2685]); + meltgc_touch(/*_.VALCLO___V2704*/ meltfptr[2703]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2687*/ meltfptr[2686])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2705*/ meltfptr[2704])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2687*/ meltfptr[2686])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2687*/ meltfptr[2686]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V2688*/ meltfptr[2687]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2705*/ meltfptr[2704])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2705*/ meltfptr[2704]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V2706*/ meltfptr[2705]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V2687*/ meltfptr[2686]); + meltgc_touch(/*_.VALDATA___V2705*/ meltfptr[2704]); - /*_.MAKE_MAPOBJECT__V2690*/ meltfptr[2689] = - (meltgc_new_mapobjects( (meltobject_ptr_t) (/*_.VALDATA___V2191*/ meltfptr[2190]), (500))); - MELT_LOCATION("warmelt-first.melt:3078:/ initchunk"); + /*_.MAKE_MAPOBJECT__V2708*/ meltfptr[2707] = + (meltgc_new_mapobjects( (meltobject_ptr_t) (/*_.VALDATA___V2209*/ meltfptr[2208]), (500))); + MELT_LOCATION("warmelt-first.melt:3085:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2689*/ meltfptr[2688])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2707*/ meltfptr[2706])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2689*/ meltfptr[2688])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2689*/ meltfptr[2688]))->obj_vartab[0] = (melt_ptr_t)( - /*_.MAKE_MAPOBJECT__V2690*/ meltfptr[2689]); + melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2707*/ meltfptr[2706])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2707*/ meltfptr[2706]))->obj_vartab[0] = (melt_ptr_t)( + /*_.MAKE_MAPOBJECT__V2708*/ meltfptr[2707]); - MELT_LOCATION("warmelt-first.melt:3078:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:3085:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2689*/ meltfptr[2688])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2707*/ meltfptr[2706])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2689*/ meltfptr[2688])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2689*/ meltfptr[2688]))->obj_vartab[3] = (melt_ptr_t)( - /*_.VALSTR___V2691*/ meltfptr[2690]); + melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2707*/ meltfptr[2706])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2707*/ meltfptr[2706]))->obj_vartab[3] = (melt_ptr_t)( + /*_.VALSTR___V2709*/ meltfptr[2708]); - MELT_LOCATION("warmelt-first.melt:3078:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:3085:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V2689*/ meltfptr[2688]); + meltgc_touch(/*_.VALDATA___V2707*/ meltfptr[2706]); - MELT_LOCATION("warmelt-first.melt:3108:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:3115:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2692*/ meltfptr[2691])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2710*/ meltfptr[2709])) == OBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V479*/ meltfptr[478]); - ((meltroutine_ptr_t)/*_.VALROUT___V2692*/ meltfptr[2691])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V479*/ meltfptr[478]); + ((meltroutine_ptr_t)/*_.VALROUT___V2710*/ meltfptr[2709])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V479*/ meltfptr[478]); - MELT_LOCATION("warmelt-first.melt:3108:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:3115:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2692*/ meltfptr[2691])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V2435*/ meltfptr[2434]); - ((meltroutine_ptr_t)/*_.VALROUT___V2692*/ meltfptr[2691])->tabval[1] = (melt_ptr_t)(/*_.VALCLO___V2435*/ meltfptr[2434]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2710*/ meltfptr[2709])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V2453*/ meltfptr[2452]); + ((meltroutine_ptr_t)/*_.VALROUT___V2710*/ meltfptr[2709])->tabval[1] = (melt_ptr_t)(/*_.VALCLO___V2453*/ meltfptr[2452]); - MELT_LOCATION("warmelt-first.melt:3108:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:3115:/ initchunk"); /*^touch*/ /*touch:IROUTVAL_*/ - meltgc_touch(/*_.VALROUT___V2692*/ meltfptr[2691]); + meltgc_touch(/*_.VALROUT___V2710*/ meltfptr[2709]); /*putclosurout*/ - melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V2693*/ meltfptr[2692])) == OBMAG_CLOSURE); - melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2692*/ meltfptr[2691])) == OBMAG_ROUTINE); - ((meltclosure_ptr_t)/*_.VALCLO___V2693*/ meltfptr[2692])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V2692*/ meltfptr[2691]); + melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V2711*/ meltfptr[2710])) == OBMAG_CLOSURE); + melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2710*/ meltfptr[2709])) == OBMAG_ROUTINE); + ((meltclosure_ptr_t)/*_.VALCLO___V2711*/ meltfptr[2710])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V2710*/ meltfptr[2709]); /*touch:DATACLOSURE_*/ - meltgc_touch(/*_.VALCLO___V2693*/ meltfptr[2692]); + meltgc_touch(/*_.VALCLO___V2711*/ meltfptr[2710]); - MELT_LOCATION("warmelt-first.melt:3135:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:3142:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2694*/ meltfptr[2693])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2712*/ meltfptr[2711])) == OBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V479*/ meltfptr[478]); - ((meltroutine_ptr_t)/*_.VALROUT___V2694*/ meltfptr[2693])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V479*/ meltfptr[478]); + ((meltroutine_ptr_t)/*_.VALROUT___V2712*/ meltfptr[2711])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V479*/ meltfptr[478]); - MELT_LOCATION("warmelt-first.melt:3135:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:3142:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2694*/ meltfptr[2693])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V2151*/ meltfptr[2150]); - ((meltroutine_ptr_t)/*_.VALROUT___V2694*/ meltfptr[2693])->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2151*/ meltfptr[2150]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2712*/ meltfptr[2711])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V2169*/ meltfptr[2168]); + ((meltroutine_ptr_t)/*_.VALROUT___V2712*/ meltfptr[2711])->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2169*/ meltfptr[2168]); - MELT_LOCATION("warmelt-first.melt:3135:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:3142:/ initchunk"); /*^touch*/ /*touch:IROUTVAL_*/ - meltgc_touch(/*_.VALROUT___V2694*/ meltfptr[2693]); + meltgc_touch(/*_.VALROUT___V2712*/ meltfptr[2711]); /*putclosurout*/ - melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V2695*/ meltfptr[2694])) == OBMAG_CLOSURE); - melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2694*/ meltfptr[2693])) == OBMAG_ROUTINE); - ((meltclosure_ptr_t)/*_.VALCLO___V2695*/ meltfptr[2694])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V2694*/ meltfptr[2693]); + melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V2713*/ meltfptr[2712])) == OBMAG_CLOSURE); + melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2712*/ meltfptr[2711])) == OBMAG_ROUTINE); + ((meltclosure_ptr_t)/*_.VALCLO___V2713*/ meltfptr[2712])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V2712*/ meltfptr[2711]); /*touch:DATACLOSURE_*/ - meltgc_touch(/*_.VALCLO___V2695*/ meltfptr[2694]); + meltgc_touch(/*_.VALCLO___V2713*/ meltfptr[2712]); - MELT_LOCATION("warmelt-first.melt:3179:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:3186:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2696*/ meltfptr[2695])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2714*/ meltfptr[2713])) == OBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V479*/ meltfptr[478]); - ((meltroutine_ptr_t)/*_.VALROUT___V2696*/ meltfptr[2695])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V479*/ meltfptr[478]); + ((meltroutine_ptr_t)/*_.VALROUT___V2714*/ meltfptr[2713])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V479*/ meltfptr[478]); - MELT_LOCATION("warmelt-first.melt:3179:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:3186:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2696*/ meltfptr[2695])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2714*/ meltfptr[2713])) == OBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V507*/ meltfptr[506]); - ((meltroutine_ptr_t)/*_.VALROUT___V2696*/ meltfptr[2695])->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V507*/ meltfptr[506]); + ((meltroutine_ptr_t)/*_.VALROUT___V2714*/ meltfptr[2713])->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V507*/ meltfptr[506]); - MELT_LOCATION("warmelt-first.melt:3179:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:3186:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2696*/ meltfptr[2695])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2714*/ meltfptr[2713])) == OBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V510*/ meltfptr[509]); - ((meltroutine_ptr_t)/*_.VALROUT___V2696*/ meltfptr[2695])->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V510*/ meltfptr[509]); + ((meltroutine_ptr_t)/*_.VALROUT___V2714*/ meltfptr[2713])->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V510*/ meltfptr[509]); - MELT_LOCATION("warmelt-first.melt:3179:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:3186:/ initchunk"); /*^touch*/ /*touch:IROUTVAL_*/ - meltgc_touch(/*_.VALROUT___V2696*/ meltfptr[2695]); + meltgc_touch(/*_.VALROUT___V2714*/ meltfptr[2713]); /*putclosurout*/ - melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V2697*/ meltfptr[2696])) == OBMAG_CLOSURE); - melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2696*/ meltfptr[2695])) == OBMAG_ROUTINE); - ((meltclosure_ptr_t)/*_.VALCLO___V2697*/ meltfptr[2696])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V2696*/ meltfptr[2695]); + melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V2715*/ meltfptr[2714])) == OBMAG_CLOSURE); + melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2714*/ meltfptr[2713])) == OBMAG_ROUTINE); + ((meltclosure_ptr_t)/*_.VALCLO___V2715*/ meltfptr[2714])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V2714*/ meltfptr[2713]); /*touch:DATACLOSURE_*/ - meltgc_touch(/*_.VALCLO___V2697*/ meltfptr[2696]); + meltgc_touch(/*_.VALCLO___V2715*/ meltfptr[2714]); - MELT_LOCATION("warmelt-first.melt:3212:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:3219:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2698*/ meltfptr[2697])) == OBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_2676__POST_INITIALIZATION#0", NULL != (/*_.CONTENV___V2*/ meltfptr[1])); - ((meltroutine_ptr_t)/*_.VALROUT___V2698*/ meltfptr[2697])->tabval[0] = (melt_ptr_t)(/*_.CONTENV___V2*/ meltfptr[1]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2716*/ meltfptr[2715])) == OBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_2694__POST_INITIALIZATION#0", NULL != (/*_.CONTENV___V2*/ meltfptr[1])); + ((meltroutine_ptr_t)/*_.VALROUT___V2716*/ meltfptr[2715])->tabval[0] = (melt_ptr_t)(/*_.CONTENV___V2*/ meltfptr[1]); - MELT_LOCATION("warmelt-first.melt:3212:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:3219:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2698*/ meltfptr[2697])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2716*/ meltfptr[2715])) == OBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V25*/ meltfptr[24]); - ((meltroutine_ptr_t)/*_.VALROUT___V2698*/ meltfptr[2697])->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V25*/ meltfptr[24]); + ((meltroutine_ptr_t)/*_.VALROUT___V2716*/ meltfptr[2715])->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V25*/ meltfptr[24]); - MELT_LOCATION("warmelt-first.melt:3212:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:3219:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2698*/ meltfptr[2697])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V2435*/ meltfptr[2434]); - ((meltroutine_ptr_t)/*_.VALROUT___V2698*/ meltfptr[2697])->tabval[2] = (melt_ptr_t)(/*_.VALCLO___V2435*/ meltfptr[2434]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2716*/ meltfptr[2715])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V2453*/ meltfptr[2452]); + ((meltroutine_ptr_t)/*_.VALROUT___V2716*/ meltfptr[2715])->tabval[2] = (melt_ptr_t)(/*_.VALCLO___V2453*/ meltfptr[2452]); - MELT_LOCATION("warmelt-first.melt:3212:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:3219:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2698*/ meltfptr[2697])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2716*/ meltfptr[2715])) == OBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V479*/ meltfptr[478]); - ((meltroutine_ptr_t)/*_.VALROUT___V2698*/ meltfptr[2697])->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V479*/ meltfptr[478]); + ((meltroutine_ptr_t)/*_.VALROUT___V2716*/ meltfptr[2715])->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V479*/ meltfptr[478]); - MELT_LOCATION("warmelt-first.melt:3212:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:3219:/ initchunk"); /*^touch*/ /*touch:IROUTVAL_*/ - meltgc_touch(/*_.VALROUT___V2698*/ meltfptr[2697]); + meltgc_touch(/*_.VALROUT___V2716*/ meltfptr[2715]); /*putclosurout*/ - melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V2699*/ meltfptr[2698])) == OBMAG_CLOSURE); - melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2698*/ meltfptr[2697])) == OBMAG_ROUTINE); - ((meltclosure_ptr_t)/*_.VALCLO___V2699*/ meltfptr[2698])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V2698*/ meltfptr[2697]); + melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V2717*/ meltfptr[2716])) == OBMAG_CLOSURE); + melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2716*/ meltfptr[2715])) == OBMAG_ROUTINE); + ((meltclosure_ptr_t)/*_.VALCLO___V2717*/ meltfptr[2716])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V2716*/ meltfptr[2715]); /*touch:DATACLOSURE_*/ - meltgc_touch(/*_.VALCLO___V2699*/ meltfptr[2698]); - - /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2700*/ meltfptr[2699])) == OBMAG_OBJECT); - - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2700*/ meltfptr[2699])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2700*/ meltfptr[2699]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V2701*/ meltfptr[2700]); - - /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V2700*/ meltfptr[2699]); - - /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2702*/ meltfptr[2701])) == OBMAG_OBJECT); - - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2702*/ meltfptr[2701])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2702*/ meltfptr[2701]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V2703*/ meltfptr[2702]); - - /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V2702*/ meltfptr[2701]); - - /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2704*/ meltfptr[2703])) == OBMAG_OBJECT); - - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2704*/ meltfptr[2703])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2704*/ meltfptr[2703]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V2705*/ meltfptr[2704]); - - /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V2704*/ meltfptr[2703]); - - /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2706*/ meltfptr[2705])) == OBMAG_OBJECT); - - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2706*/ meltfptr[2705])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2706*/ meltfptr[2705]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V2707*/ meltfptr[2706]); - - /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V2706*/ meltfptr[2705]); - - /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2708*/ meltfptr[2707])) == OBMAG_OBJECT); - - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2708*/ meltfptr[2707])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2708*/ meltfptr[2707]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V2709*/ meltfptr[2708]); - - /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V2708*/ meltfptr[2707]); - - /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2710*/ meltfptr[2709])) == OBMAG_OBJECT); - - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2710*/ meltfptr[2709])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2710*/ meltfptr[2709]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V2711*/ meltfptr[2710]); - - /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V2710*/ meltfptr[2709]); - - /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2712*/ meltfptr[2711])) == OBMAG_OBJECT); - - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2712*/ meltfptr[2711])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2712*/ meltfptr[2711]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V2713*/ meltfptr[2712]); - - /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V2712*/ meltfptr[2711]); - - /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2714*/ meltfptr[2713])) == OBMAG_OBJECT); - - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2714*/ meltfptr[2713])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2714*/ meltfptr[2713]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V2715*/ meltfptr[2714]); - - /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V2714*/ meltfptr[2713]); - - /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2716*/ meltfptr[2715])) == OBMAG_OBJECT); - - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2716*/ meltfptr[2715])))); - ((meltobject_ptr_t)(/*_.VALDATA___V2716*/ meltfptr[2715]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V2717*/ meltfptr[2716]); - - /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V2716*/ meltfptr[2715]); + meltgc_touch(/*_.VALCLO___V2717*/ meltfptr[2716]); /*putslot*/ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2718*/ meltfptr[2717])) == OBMAG_OBJECT); @@ -62355,7 +62607,15 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_17 (struct frame_star /*touch:VALUEDATA_*/ meltgc_touch(/*_.VALDATA___V2748*/ meltfptr[2747]); - /*putslot*/ + +#undef meltfram__ +} /*end of warmelt_first_initialmeltchunk_17*/ + +void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_start_module_melt_st* meltframptr__, char predefinited[]) { +#define meltfram__ (*meltframptr__) +#undef meltcallcount +#define meltcallcount 0L +/*putslot*/ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2750*/ meltfptr[2749])) == OBMAG_OBJECT); melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2750*/ meltfptr[2749])))); @@ -62425,15 +62685,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_17 (struct frame_star /*touch:VALUEDATA_*/ meltgc_touch(/*_.VALDATA___V2762*/ meltfptr[2761]); - -#undef meltfram__ -} /*end of warmelt_first_initialmeltchunk_17*/ - -void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_start_module_melt_st* meltframptr__, char predefinited[]) { -#define meltfram__ (*meltframptr__) -#undef meltcallcount -#define meltcallcount 0L -/*putslot*/ + /*putslot*/ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2764*/ meltfptr[2763])) == OBMAG_OBJECT); melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2764*/ meltfptr[2763])))); @@ -62523,6 +62775,96 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star /*touch:VALUEDATA_*/ meltgc_touch(/*_.VALDATA___V2780*/ meltfptr[2779]); + /*putslot*/ + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2782*/ meltfptr[2781])) == OBMAG_OBJECT); + + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2782*/ meltfptr[2781])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2782*/ meltfptr[2781]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V2783*/ meltfptr[2782]); + + /*touch:VALUEDATA_*/ + meltgc_touch(/*_.VALDATA___V2782*/ meltfptr[2781]); + + /*putslot*/ + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2784*/ meltfptr[2783])) == OBMAG_OBJECT); + + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2784*/ meltfptr[2783])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2784*/ meltfptr[2783]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V2785*/ meltfptr[2784]); + + /*touch:VALUEDATA_*/ + meltgc_touch(/*_.VALDATA___V2784*/ meltfptr[2783]); + + /*putslot*/ + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2786*/ meltfptr[2785])) == OBMAG_OBJECT); + + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2786*/ meltfptr[2785])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2786*/ meltfptr[2785]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V2787*/ meltfptr[2786]); + + /*touch:VALUEDATA_*/ + meltgc_touch(/*_.VALDATA___V2786*/ meltfptr[2785]); + + /*putslot*/ + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2788*/ meltfptr[2787])) == OBMAG_OBJECT); + + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2788*/ meltfptr[2787])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2788*/ meltfptr[2787]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V2789*/ meltfptr[2788]); + + /*touch:VALUEDATA_*/ + meltgc_touch(/*_.VALDATA___V2788*/ meltfptr[2787]); + + /*putslot*/ + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2790*/ meltfptr[2789])) == OBMAG_OBJECT); + + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2790*/ meltfptr[2789])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2790*/ meltfptr[2789]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V2791*/ meltfptr[2790]); + + /*touch:VALUEDATA_*/ + meltgc_touch(/*_.VALDATA___V2790*/ meltfptr[2789]); + + /*putslot*/ + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2792*/ meltfptr[2791])) == OBMAG_OBJECT); + + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2792*/ meltfptr[2791])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2792*/ meltfptr[2791]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V2793*/ meltfptr[2792]); + + /*touch:VALUEDATA_*/ + meltgc_touch(/*_.VALDATA___V2792*/ meltfptr[2791]); + + /*putslot*/ + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2794*/ meltfptr[2793])) == OBMAG_OBJECT); + + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2794*/ meltfptr[2793])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2794*/ meltfptr[2793]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V2795*/ meltfptr[2794]); + + /*touch:VALUEDATA_*/ + meltgc_touch(/*_.VALDATA___V2794*/ meltfptr[2793]); + + /*putslot*/ + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2796*/ meltfptr[2795])) == OBMAG_OBJECT); + + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2796*/ meltfptr[2795])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2796*/ meltfptr[2795]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V2797*/ meltfptr[2796]); + + /*touch:VALUEDATA_*/ + meltgc_touch(/*_.VALDATA___V2796*/ meltfptr[2795]); + + /*putslot*/ + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2798*/ meltfptr[2797])) == OBMAG_OBJECT); + + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2798*/ meltfptr[2797])))); + ((meltobject_ptr_t)(/*_.VALDATA___V2798*/ meltfptr[2797]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V2799*/ meltfptr[2798]); + + /*touch:VALUEDATA_*/ + meltgc_touch(/*_.VALDATA___V2798*/ meltfptr[2797]); + /**COMMENT: before toplevel body **/; MELT_LOCATION("warmelt-first.melt:4:/ initchunk"); @@ -62534,7 +62876,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star /*quasi.cur.mod.env.cont cur.mod.env.cont : at very start*/ /*_.CONTENV___V2*/ meltfptr[1]) /*then*/ { /*^cond.then*/ - /*_.OR___V2782*/ meltfptr[2781] = + /*_.OR___V2800*/ meltfptr[2799] = /*quasi.cur.mod.env.cont cur.mod.env.cont : at very start*/ /*_.CONTENV___V2*/ meltfptr[1];; } else {MELT_LOCATION("warmelt-first.melt:4:/ cond.else"); @@ -62544,7 +62886,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star /*^getslot*/ { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(((void*)(MELT_PREDEF(INITIAL_SYSTEM_DATA)))), 3, "SYSDATA_CONT_FRESH_ENV");/*_.SYSDATA_CONT_FRESH_ENV__V2783*/ meltfptr[2782] = slot; }; + melt_object_get_field(slot,(melt_ptr_t)(((void*)(MELT_PREDEF(INITIAL_SYSTEM_DATA)))), 3, "SYSDATA_CONT_FRESH_ENV");/*_.SYSDATA_CONT_FRESH_ENV__V2801*/ meltfptr[2800] = slot; }; ; /*^apply*/ /*apply*/{ @@ -62552,16 +62894,16 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].bp_cstring = "warmelt-first"; - /*_.FUN___V2784*/ meltfptr[2783] = melt_apply ((meltclosure_ptr_t)(/*_.SYSDATA_CONT_FRESH_ENV__V2783*/ meltfptr[2782]), (melt_ptr_t)(/*_.PREVENV___V4*/ meltfptr[3]), (BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.FUN___V2802*/ meltfptr[2801] = melt_apply ((meltclosure_ptr_t)(/*_.SYSDATA_CONT_FRESH_ENV__V2801*/ meltfptr[2800]), (melt_ptr_t)(/*_.PREVENV___V4*/ meltfptr[3]), (BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; - /*_.OR___V2782*/ meltfptr[2781] = /*_.FUN___V2784*/ meltfptr[2783];; + /*_.OR___V2800*/ meltfptr[2799] = /*_.FUN___V2802*/ meltfptr[2801];; /*epilog*/ MELT_LOCATION("warmelt-first.melt:4:/ clear"); - /*clear*/ /*_.SYSDATA_CONT_FRESH_ENV__V2783*/ meltfptr[2782] = 0 ; + /*clear*/ /*_.SYSDATA_CONT_FRESH_ENV__V2801*/ meltfptr[2800] = 0 ; /*^clear*/ - /*clear*/ /*_.FUN___V2784*/ meltfptr[2783] = 0 ;} + /*clear*/ /*_.FUN___V2802*/ meltfptr[2801] = 0 ;} ; } ; @@ -62570,23 +62912,23 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2698*/ meltfptr[2697])) == OBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.#0", NULL != (/*_.OR___V2782*/ meltfptr[2781])); - ((meltroutine_ptr_t)/*_.VALROUT___V2698*/ meltfptr[2697])->tabval[0] = (melt_ptr_t)(/*_.OR___V2782*/ meltfptr[2781]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2716*/ meltfptr[2715])) == OBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.#0", NULL != (/*_.OR___V2800*/ meltfptr[2799])); + ((meltroutine_ptr_t)/*_.VALROUT___V2716*/ meltfptr[2715])->tabval[0] = (melt_ptr_t)(/*_.OR___V2800*/ meltfptr[2799]); ; /*^touch*/ /*touch:compobj_upd_mod_env_box*/ - meltgc_touch(/*_.VALROUT___V2698*/ meltfptr[2697]); + meltgc_touch(/*_.VALROUT___V2716*/ meltfptr[2715]); ; /*^compute*/ - /*_.CONTENV___V2*/ meltfptr[1] = /*_.OR___V2782*/ meltfptr[2781];;}/*com.end block:upd.cur.mod.env.cont : at very start*/ + /*_.CONTENV___V2*/ meltfptr[1] = /*_.OR___V2800*/ meltfptr[2799];;}/*com.end block:upd.cur.mod.env.cont : at very start*/ ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.OR___V2782*/ meltfptr[2781] = 0 ;} + /*clear*/ /*_.OR___V2800*/ meltfptr[2799] = 0 ;} - MELT_LOCATION("warmelt-first.melt:1407:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:1414:/ initchunk"); /*^block*/ /*anyblock*/{ @@ -62595,17 +62937,17 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj @DISC_SUPER", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2119*/ meltfptr[2118])) == OBMAG_OBJECT); - melt_putfield_object((/*_.VALDATA___V2119*/ meltfptr[2118]), (4), (/*_.VALDATA___V2122*/ meltfptr[2121]), "DISC_SUPER"); + melt_assertmsg("putslot checkobj @DISC_SUPER", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2137*/ meltfptr[2136])) == OBMAG_OBJECT); + melt_putfield_object((/*_.VALDATA___V2137*/ meltfptr[2136]), (4), (/*_.VALDATA___V2140*/ meltfptr[2139]), "DISC_SUPER"); ; /*^touch*/ - meltgc_touch(/*_.VALDATA___V2119*/ meltfptr[2118]); + meltgc_touch(/*_.VALDATA___V2137*/ meltfptr[2136]); ; /*epilog*/ } - MELT_LOCATION("warmelt-first.melt:1408:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:1415:/ initchunk"); /*^block*/ /*anyblock*/{ @@ -62614,17 +62956,17 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj @NAMED_NAME", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2119*/ meltfptr[2118])) == OBMAG_OBJECT); - melt_putfield_object((/*_.VALDATA___V2119*/ meltfptr[2118]), (1), (/*_.VALSTR___V2124*/ meltfptr[2123]), "NAMED_NAME"); + melt_assertmsg("putslot checkobj @NAMED_NAME", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2137*/ meltfptr[2136])) == OBMAG_OBJECT); + melt_putfield_object((/*_.VALDATA___V2137*/ meltfptr[2136]), (1), (/*_.VALSTR___V2142*/ meltfptr[2141]), "NAMED_NAME"); ; /*^touch*/ - meltgc_touch(/*_.VALDATA___V2119*/ meltfptr[2118]); + meltgc_touch(/*_.VALDATA___V2137*/ meltfptr[2136]); ; /*epilog*/ } - MELT_LOCATION("warmelt-first.melt:1425:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:1432:/ initchunk"); /*^block*/ /*anyblock*/{ @@ -62633,17 +62975,17 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj @DISC_SUPER", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2122*/ meltfptr[2121])) == OBMAG_OBJECT); - melt_putfield_object((/*_.VALDATA___V2122*/ meltfptr[2121]), (4), (/*_.VALDATA___V2131*/ meltfptr[2130]), "DISC_SUPER"); + melt_assertmsg("putslot checkobj @DISC_SUPER", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2140*/ meltfptr[2139])) == OBMAG_OBJECT); + melt_putfield_object((/*_.VALDATA___V2140*/ meltfptr[2139]), (4), (/*_.VALDATA___V2149*/ meltfptr[2148]), "DISC_SUPER"); ; /*^touch*/ - meltgc_touch(/*_.VALDATA___V2122*/ meltfptr[2121]); + meltgc_touch(/*_.VALDATA___V2140*/ meltfptr[2139]); ; /*epilog*/ } - MELT_LOCATION("warmelt-first.melt:1426:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:1433:/ initchunk"); /*^block*/ /*anyblock*/{ @@ -62653,7 +62995,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star /*^putslot*/ /*putslot*/ melt_assertmsg("putslot checkobj @DISC_SUPER", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V9*/ meltfptr[8])) == OBMAG_OBJECT); - melt_putfield_object((/*_.VALDATA___V9*/ meltfptr[8]), (4), (/*_.VALDATA___V2131*/ meltfptr[2130]), "DISC_SUPER"); + melt_putfield_object((/*_.VALDATA___V9*/ meltfptr[8]), (4), (/*_.VALDATA___V2149*/ meltfptr[2148]), "DISC_SUPER"); ; /*^touch*/ meltgc_touch(/*_.VALDATA___V9*/ meltfptr[8]); @@ -62662,7 +63004,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star /*epilog*/ } - MELT_LOCATION("warmelt-first.melt:1770:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:1777:/ initchunk"); /*^block*/ /*anyblock*/{ @@ -62672,15 +63014,15 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].bp_cstring = "any melt value pointer"; - /*_.INSTALL_CTYPE_DESCR__V2785*/ meltfptr[2782] = melt_apply ((meltclosure_ptr_t)(/*_.VALCLO___V2266*/ meltfptr[2265]), (melt_ptr_t)(/*_.VALDATA___V2269*/ meltfptr[2268]), (BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.INSTALL_CTYPE_DESCR__V2803*/ meltfptr[2800] = melt_apply ((meltclosure_ptr_t)(/*_.VALCLO___V2284*/ meltfptr[2283]), (melt_ptr_t)(/*_.VALDATA___V2287*/ meltfptr[2286]), (BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.INSTALL_CTYPE_DESCR__V2785*/ meltfptr[2782] = 0 ;} + /*clear*/ /*_.INSTALL_CTYPE_DESCR__V2803*/ meltfptr[2800] = 0 ;} - MELT_LOCATION("warmelt-first.melt:1784:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:1791:/ initchunk"); /*^block*/ /*anyblock*/{ @@ -62690,15 +63032,15 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].bp_cstring = "C long unboxed integer"; - /*_.INSTALL_CTYPE_DESCR__V2786*/ meltfptr[2783] = melt_apply ((meltclosure_ptr_t)(/*_.VALCLO___V2266*/ meltfptr[2265]), (melt_ptr_t)(/*_.VALDATA___V2281*/ meltfptr[2280]), (BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.INSTALL_CTYPE_DESCR__V2804*/ meltfptr[2801] = melt_apply ((meltclosure_ptr_t)(/*_.VALCLO___V2284*/ meltfptr[2283]), (melt_ptr_t)(/*_.VALDATA___V2299*/ meltfptr[2298]), (BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.INSTALL_CTYPE_DESCR__V2786*/ meltfptr[2783] = 0 ;} + /*clear*/ /*_.INSTALL_CTYPE_DESCR__V2804*/ meltfptr[2801] = 0 ;} - MELT_LOCATION("warmelt-first.melt:1799:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:1806:/ initchunk"); /*^block*/ /*anyblock*/{ @@ -62708,15 +63050,15 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].bp_cstring = "GCC tree pointer"; - /*_.INSTALL_CTYPE_DESCR__V2787*/ meltfptr[2781] = melt_apply ((meltclosure_ptr_t)(/*_.VALCLO___V2266*/ meltfptr[2265]), (melt_ptr_t)(/*_.VALDATA___V2292*/ meltfptr[2291]), (BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.INSTALL_CTYPE_DESCR__V2805*/ meltfptr[2799] = melt_apply ((meltclosure_ptr_t)(/*_.VALCLO___V2284*/ meltfptr[2283]), (melt_ptr_t)(/*_.VALDATA___V2310*/ meltfptr[2309]), (BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.INSTALL_CTYPE_DESCR__V2787*/ meltfptr[2781] = 0 ;} + /*clear*/ /*_.INSTALL_CTYPE_DESCR__V2805*/ meltfptr[2799] = 0 ;} - MELT_LOCATION("warmelt-first.melt:1814:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:1821:/ initchunk"); /*^block*/ /*anyblock*/{ @@ -62726,15 +63068,15 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].bp_cstring = "GCC gimple pointer"; - /*_.INSTALL_CTYPE_DESCR__V2788*/ meltfptr[2782] = melt_apply ((meltclosure_ptr_t)(/*_.VALCLO___V2266*/ meltfptr[2265]), (melt_ptr_t)(/*_.VALDATA___V2304*/ meltfptr[2303]), (BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.INSTALL_CTYPE_DESCR__V2806*/ meltfptr[2800] = melt_apply ((meltclosure_ptr_t)(/*_.VALCLO___V2284*/ meltfptr[2283]), (melt_ptr_t)(/*_.VALDATA___V2322*/ meltfptr[2321]), (BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.INSTALL_CTYPE_DESCR__V2788*/ meltfptr[2782] = 0 ;} + /*clear*/ /*_.INSTALL_CTYPE_DESCR__V2806*/ meltfptr[2800] = 0 ;} - MELT_LOCATION("warmelt-first.melt:1831:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:1838:/ initchunk"); /*^block*/ /*anyblock*/{ @@ -62744,15 +63086,15 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].bp_cstring = "GCC gimpleseq pointer"; - /*_.INSTALL_CTYPE_DESCR__V2789*/ meltfptr[2783] = melt_apply ((meltclosure_ptr_t)(/*_.VALCLO___V2266*/ meltfptr[2265]), (melt_ptr_t)(/*_.VALDATA___V2316*/ meltfptr[2315]), (BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.INSTALL_CTYPE_DESCR__V2807*/ meltfptr[2801] = melt_apply ((meltclosure_ptr_t)(/*_.VALCLO___V2284*/ meltfptr[2283]), (melt_ptr_t)(/*_.VALDATA___V2334*/ meltfptr[2333]), (BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.INSTALL_CTYPE_DESCR__V2789*/ meltfptr[2783] = 0 ;} + /*clear*/ /*_.INSTALL_CTYPE_DESCR__V2807*/ meltfptr[2801] = 0 ;} - MELT_LOCATION("warmelt-first.melt:1848:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:1855:/ initchunk"); /*^block*/ /*anyblock*/{ @@ -62762,15 +63104,15 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].bp_cstring = "GCC basic_block"; - /*_.INSTALL_CTYPE_DESCR__V2790*/ meltfptr[2781] = melt_apply ((meltclosure_ptr_t)(/*_.VALCLO___V2266*/ meltfptr[2265]), (melt_ptr_t)(/*_.VALDATA___V2328*/ meltfptr[2327]), (BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.INSTALL_CTYPE_DESCR__V2808*/ meltfptr[2799] = melt_apply ((meltclosure_ptr_t)(/*_.VALCLO___V2284*/ meltfptr[2283]), (melt_ptr_t)(/*_.VALDATA___V2346*/ meltfptr[2345]), (BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.INSTALL_CTYPE_DESCR__V2790*/ meltfptr[2781] = 0 ;} + /*clear*/ /*_.INSTALL_CTYPE_DESCR__V2808*/ meltfptr[2799] = 0 ;} - MELT_LOCATION("warmelt-first.melt:1864:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:1871:/ initchunk"); /*^block*/ /*anyblock*/{ @@ -62780,15 +63122,15 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].bp_cstring = "GCC edge"; - /*_.INSTALL_CTYPE_DESCR__V2791*/ meltfptr[2782] = melt_apply ((meltclosure_ptr_t)(/*_.VALCLO___V2266*/ meltfptr[2265]), (melt_ptr_t)(/*_.VALDATA___V2340*/ meltfptr[2339]), (BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.INSTALL_CTYPE_DESCR__V2809*/ meltfptr[2800] = melt_apply ((meltclosure_ptr_t)(/*_.VALCLO___V2284*/ meltfptr[2283]), (melt_ptr_t)(/*_.VALDATA___V2358*/ meltfptr[2357]), (BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.INSTALL_CTYPE_DESCR__V2791*/ meltfptr[2782] = 0 ;} + /*clear*/ /*_.INSTALL_CTYPE_DESCR__V2809*/ meltfptr[2800] = 0 ;} - MELT_LOCATION("warmelt-first.melt:1879:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:1886:/ initchunk"); /*^block*/ /*anyblock*/{ @@ -62798,15 +63140,15 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].bp_cstring = "PPL coefficient"; - /*_.INSTALL_CTYPE_DESCR__V2792*/ meltfptr[2783] = melt_apply ((meltclosure_ptr_t)(/*_.VALCLO___V2266*/ meltfptr[2265]), (melt_ptr_t)(/*_.VALDATA___V2352*/ meltfptr[2351]), (BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.INSTALL_CTYPE_DESCR__V2810*/ meltfptr[2801] = melt_apply ((meltclosure_ptr_t)(/*_.VALCLO___V2284*/ meltfptr[2283]), (melt_ptr_t)(/*_.VALDATA___V2370*/ meltfptr[2369]), (BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.INSTALL_CTYPE_DESCR__V2792*/ meltfptr[2783] = 0 ;} + /*clear*/ /*_.INSTALL_CTYPE_DESCR__V2810*/ meltfptr[2801] = 0 ;} - MELT_LOCATION("warmelt-first.melt:1894:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:1901:/ initchunk"); /*^block*/ /*anyblock*/{ @@ -62816,15 +63158,15 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].bp_cstring = "PPL linear expression"; - /*_.INSTALL_CTYPE_DESCR__V2793*/ meltfptr[2781] = melt_apply ((meltclosure_ptr_t)(/*_.VALCLO___V2266*/ meltfptr[2265]), (melt_ptr_t)(/*_.VALDATA___V2363*/ meltfptr[2362]), (BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.INSTALL_CTYPE_DESCR__V2811*/ meltfptr[2799] = melt_apply ((meltclosure_ptr_t)(/*_.VALCLO___V2284*/ meltfptr[2283]), (melt_ptr_t)(/*_.VALDATA___V2381*/ meltfptr[2380]), (BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.INSTALL_CTYPE_DESCR__V2793*/ meltfptr[2781] = 0 ;} + /*clear*/ /*_.INSTALL_CTYPE_DESCR__V2811*/ meltfptr[2799] = 0 ;} - MELT_LOCATION("warmelt-first.melt:1909:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:1916:/ initchunk"); /*^block*/ /*anyblock*/{ @@ -62834,15 +63176,15 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].bp_cstring = "PPL constraint"; - /*_.INSTALL_CTYPE_DESCR__V2794*/ meltfptr[2782] = melt_apply ((meltclosure_ptr_t)(/*_.VALCLO___V2266*/ meltfptr[2265]), (melt_ptr_t)(/*_.VALDATA___V2374*/ meltfptr[2373]), (BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.INSTALL_CTYPE_DESCR__V2812*/ meltfptr[2800] = melt_apply ((meltclosure_ptr_t)(/*_.VALCLO___V2284*/ meltfptr[2283]), (melt_ptr_t)(/*_.VALDATA___V2392*/ meltfptr[2391]), (BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.INSTALL_CTYPE_DESCR__V2794*/ meltfptr[2782] = 0 ;} + /*clear*/ /*_.INSTALL_CTYPE_DESCR__V2812*/ meltfptr[2800] = 0 ;} - MELT_LOCATION("warmelt-first.melt:1924:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:1931:/ initchunk"); /*^block*/ /*anyblock*/{ @@ -62852,15 +63194,15 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].bp_cstring = "PPL constraint_system"; - /*_.INSTALL_CTYPE_DESCR__V2795*/ meltfptr[2783] = melt_apply ((meltclosure_ptr_t)(/*_.VALCLO___V2266*/ meltfptr[2265]), (melt_ptr_t)(/*_.VALDATA___V2385*/ meltfptr[2384]), (BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.INSTALL_CTYPE_DESCR__V2813*/ meltfptr[2801] = melt_apply ((meltclosure_ptr_t)(/*_.VALCLO___V2284*/ meltfptr[2283]), (melt_ptr_t)(/*_.VALDATA___V2403*/ meltfptr[2402]), (BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.INSTALL_CTYPE_DESCR__V2795*/ meltfptr[2783] = 0 ;} + /*clear*/ /*_.INSTALL_CTYPE_DESCR__V2813*/ meltfptr[2801] = 0 ;} - MELT_LOCATION("warmelt-first.melt:1939:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:1946:/ initchunk"); /*^block*/ /*anyblock*/{ @@ -62870,15 +63212,15 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].bp_cstring = "PPL polyhedron"; - /*_.INSTALL_CTYPE_DESCR__V2796*/ meltfptr[2781] = melt_apply ((meltclosure_ptr_t)(/*_.VALCLO___V2266*/ meltfptr[2265]), (melt_ptr_t)(/*_.VALDATA___V2396*/ meltfptr[2395]), (BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.INSTALL_CTYPE_DESCR__V2814*/ meltfptr[2799] = melt_apply ((meltclosure_ptr_t)(/*_.VALCLO___V2284*/ meltfptr[2283]), (melt_ptr_t)(/*_.VALDATA___V2414*/ meltfptr[2413]), (BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.INSTALL_CTYPE_DESCR__V2796*/ meltfptr[2781] = 0 ;} + /*clear*/ /*_.INSTALL_CTYPE_DESCR__V2814*/ meltfptr[2799] = 0 ;} - MELT_LOCATION("warmelt-first.melt:1952:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:1959:/ initchunk"); /*^block*/ /*anyblock*/{ @@ -62888,15 +63230,15 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].bp_cstring = "void type for side-effecting primitives without results"; - /*_.INSTALL_CTYPE_DESCR__V2797*/ meltfptr[2782] = melt_apply ((meltclosure_ptr_t)(/*_.VALCLO___V2266*/ meltfptr[2265]), (melt_ptr_t)(/*_.VALDATA___V2407*/ meltfptr[2406]), (BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.INSTALL_CTYPE_DESCR__V2815*/ meltfptr[2800] = melt_apply ((meltclosure_ptr_t)(/*_.VALCLO___V2284*/ meltfptr[2283]), (melt_ptr_t)(/*_.VALDATA___V2425*/ meltfptr[2424]), (BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.INSTALL_CTYPE_DESCR__V2797*/ meltfptr[2782] = 0 ;} + /*clear*/ /*_.INSTALL_CTYPE_DESCR__V2815*/ meltfptr[2800] = 0 ;} - MELT_LOCATION("warmelt-first.melt:1966:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:1973:/ initchunk"); /*^block*/ /*anyblock*/{ @@ -62906,15 +63248,15 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].bp_cstring = "C constant strings (statically allocated outside of any heap)"; - /*_.INSTALL_CTYPE_DESCR__V2798*/ meltfptr[2783] = melt_apply ((meltclosure_ptr_t)(/*_.VALCLO___V2266*/ meltfptr[2265]), (melt_ptr_t)(/*_.VALDATA___V2414*/ meltfptr[2413]), (BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.INSTALL_CTYPE_DESCR__V2816*/ meltfptr[2801] = melt_apply ((meltclosure_ptr_t)(/*_.VALCLO___V2284*/ meltfptr[2283]), (melt_ptr_t)(/*_.VALDATA___V2432*/ meltfptr[2431]), (BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.INSTALL_CTYPE_DESCR__V2798*/ meltfptr[2783] = 0 ;} + /*clear*/ /*_.INSTALL_CTYPE_DESCR__V2816*/ meltfptr[2801] = 0 ;} - MELT_LOCATION("warmelt-first.melt:2557:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:2564:/ initchunk"); /*^block*/ /*anyblock*/{ @@ -62923,18 +63265,18 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALSTR___V2567*/ meltfptr[2566]; + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALSTR___V2585*/ meltfptr[2584]; /*^apply.arg*/ - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V2564*/ meltfptr[2563]; - /*_.REGISTER_OPTION__V2799*/ meltfptr[2781] = melt_apply ((meltclosure_ptr_t)(/*_.VALCLO___V2550*/ meltfptr[2549]), (melt_ptr_t)(/*_.VALDATA___V2565*/ meltfptr[2564]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V2582*/ meltfptr[2581]; + /*_.REGISTER_OPTION__V2817*/ meltfptr[2799] = melt_apply ((meltclosure_ptr_t)(/*_.VALCLO___V2568*/ meltfptr[2567]), (melt_ptr_t)(/*_.VALDATA___V2583*/ meltfptr[2582]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.REGISTER_OPTION__V2799*/ meltfptr[2781] = 0 ;} + /*clear*/ /*_.REGISTER_OPTION__V2817*/ meltfptr[2799] = 0 ;} - MELT_LOCATION("warmelt-first.melt:3206:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:3213:/ initchunk"); /*^block*/ /*anyblock*/{ @@ -62943,17 +63285,17 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star /*quasi.cur.mod.env.cont cur.mod.env.cont : */ /*_.CONTENV___V2*/ meltfptr[1]) /*then*/ { /*^cond.then*/ - /*_.OR___V2800*/ meltfptr[2782] = + /*_.OR___V2818*/ meltfptr[2800] = /*quasi.cur.mod.env.cont cur.mod.env.cont : */ /*_.CONTENV___V2*/ meltfptr[1];; - } else {MELT_LOCATION("warmelt-first.melt:3206:/ cond.else"); + } else {MELT_LOCATION("warmelt-first.melt:3213:/ cond.else"); /*^block*/ /*anyblock*/{ /*^getslot*/ { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(((void*)(MELT_PREDEF(INITIAL_SYSTEM_DATA)))), 3, "SYSDATA_CONT_FRESH_ENV");/*_.SYSDATA_CONT_FRESH_ENV__V2801*/ meltfptr[2783] = slot; }; + melt_object_get_field(slot,(melt_ptr_t)(((void*)(MELT_PREDEF(INITIAL_SYSTEM_DATA)))), 3, "SYSDATA_CONT_FRESH_ENV");/*_.SYSDATA_CONT_FRESH_ENV__V2819*/ meltfptr[2801] = slot; }; ; /*^apply*/ /*apply*/{ @@ -62961,16 +63303,16 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].bp_cstring = "warmelt-first"; - /*_.FUN___V2802*/ meltfptr[2781] = melt_apply ((meltclosure_ptr_t)(/*_.SYSDATA_CONT_FRESH_ENV__V2801*/ meltfptr[2783]), (melt_ptr_t)(/*_.PREVENV___V4*/ meltfptr[3]), (BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.FUN___V2820*/ meltfptr[2799] = melt_apply ((meltclosure_ptr_t)(/*_.SYSDATA_CONT_FRESH_ENV__V2819*/ meltfptr[2801]), (melt_ptr_t)(/*_.PREVENV___V4*/ meltfptr[3]), (BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; - /*_.OR___V2800*/ meltfptr[2782] = /*_.FUN___V2802*/ meltfptr[2781];; + /*_.OR___V2818*/ meltfptr[2800] = /*_.FUN___V2820*/ meltfptr[2799];; /*epilog*/ - MELT_LOCATION("warmelt-first.melt:3206:/ clear"); - /*clear*/ /*_.SYSDATA_CONT_FRESH_ENV__V2801*/ meltfptr[2783] = 0 ; + MELT_LOCATION("warmelt-first.melt:3213:/ clear"); + /*clear*/ /*_.SYSDATA_CONT_FRESH_ENV__V2819*/ meltfptr[2801] = 0 ; /*^clear*/ - /*clear*/ /*_.FUN___V2802*/ meltfptr[2781] = 0 ;} + /*clear*/ /*_.FUN___V2820*/ meltfptr[2799] = 0 ;} ; } ; @@ -62979,103 +63321,103 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2698*/ meltfptr[2697])) == OBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.#0", NULL != (/*_.OR___V2800*/ meltfptr[2782])); - ((meltroutine_ptr_t)/*_.VALROUT___V2698*/ meltfptr[2697])->tabval[0] = (melt_ptr_t)(/*_.OR___V2800*/ meltfptr[2782]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2716*/ meltfptr[2715])) == OBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.#0", NULL != (/*_.OR___V2818*/ meltfptr[2800])); + ((meltroutine_ptr_t)/*_.VALROUT___V2716*/ meltfptr[2715])->tabval[0] = (melt_ptr_t)(/*_.OR___V2818*/ meltfptr[2800]); ; /*^touch*/ /*touch:compobj_upd_mod_env_box*/ - meltgc_touch(/*_.VALROUT___V2698*/ meltfptr[2697]); + meltgc_touch(/*_.VALROUT___V2716*/ meltfptr[2715]); ; /*^compute*/ - /*_.CONTENV___V2*/ meltfptr[1] = /*_.OR___V2800*/ meltfptr[2782];;}/*com.end block:upd.cur.mod.env.cont*/ + /*_.CONTENV___V2*/ meltfptr[1] = /*_.OR___V2818*/ meltfptr[2800];;}/*com.end block:upd.cur.mod.env.cont*/ ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.OR___V2800*/ meltfptr[2782] = 0 ;} + /*clear*/ /*_.OR___V2818*/ meltfptr[2800] = 0 ;} - MELT_LOCATION("warmelt-first.melt:3237:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:3244:/ initchunk"); /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-first.melt:3239:/ quasiblock"); + MELT_LOCATION("warmelt-first.melt:3246:/ quasiblock"); - /*_.F__V2804*/ meltfptr[2781] = (/*nil*/NULL);; + /*_.F__V2822*/ meltfptr[2799] = (/*nil*/NULL);; /*^compute*/ - /*_.D__V2805*/ meltfptr[2782] = /*_.VALDATA___V2231*/ meltfptr[2230];; + /*_.D__V2823*/ meltfptr[2800] = /*_.VALDATA___V2249*/ meltfptr[2248];; { - MELT_LOCATION("warmelt-first.melt:3243:/ locexp"); - /*_.F__V2804*/ meltfptr[2781] = meltgc_new_file(/*_.D__V2805*/ meltfptr[2782], stdout) ; ;} + MELT_LOCATION("warmelt-first.melt:3250:/ locexp"); + /*_.F__V2822*/ meltfptr[2799] = meltgc_new_file(/*_.D__V2823*/ meltfptr[2800], stdout) ; ;} ; - /*_.LET___V2803*/ meltfptr[2783] = /*_.F__V2804*/ meltfptr[2781];; + /*_.LET___V2821*/ meltfptr[2801] = /*_.F__V2822*/ meltfptr[2799];; - MELT_LOCATION("warmelt-first.melt:3239:/ clear"); - /*clear*/ /*_.F__V2804*/ meltfptr[2781] = 0 ; + MELT_LOCATION("warmelt-first.melt:3246:/ clear"); + /*clear*/ /*_.F__V2822*/ meltfptr[2799] = 0 ; /*^clear*/ - /*clear*/ /*_.D__V2805*/ meltfptr[2782] = 0 ; - MELT_LOCATION("warmelt-first.melt:3246:/ quasiblock"); + /*clear*/ /*_.D__V2823*/ meltfptr[2800] = 0 ; + MELT_LOCATION("warmelt-first.melt:3253:/ quasiblock"); - /*_.F__V2807*/ meltfptr[2782] = (/*nil*/NULL);; + /*_.F__V2825*/ meltfptr[2800] = (/*nil*/NULL);; /*^compute*/ - /*_.D__V2808*/ meltfptr[2807] = /*_.VALDATA___V2231*/ meltfptr[2230];; + /*_.D__V2826*/ meltfptr[2825] = /*_.VALDATA___V2249*/ meltfptr[2248];; { - MELT_LOCATION("warmelt-first.melt:3250:/ locexp"); - /*_.F__V2807*/ meltfptr[2782] = meltgc_new_file(/*_.D__V2808*/ meltfptr[2807], stderr) ; ;} + MELT_LOCATION("warmelt-first.melt:3257:/ locexp"); + /*_.F__V2825*/ meltfptr[2800] = meltgc_new_file(/*_.D__V2826*/ meltfptr[2825], stderr) ; ;} ; - /*_.LET___V2806*/ meltfptr[2781] = /*_.F__V2807*/ meltfptr[2782];; + /*_.LET___V2824*/ meltfptr[2799] = /*_.F__V2825*/ meltfptr[2800];; - MELT_LOCATION("warmelt-first.melt:3246:/ clear"); - /*clear*/ /*_.F__V2807*/ meltfptr[2782] = 0 ; + MELT_LOCATION("warmelt-first.melt:3253:/ clear"); + /*clear*/ /*_.F__V2825*/ meltfptr[2800] = 0 ; /*^clear*/ - /*clear*/ /*_.D__V2808*/ meltfptr[2807] = 0 ; - MELT_LOCATION("warmelt-first.melt:3253:/ quasiblock"); + /*clear*/ /*_.D__V2826*/ meltfptr[2825] = 0 ; + MELT_LOCATION("warmelt-first.melt:3260:/ quasiblock"); - /*_.F__V2810*/ meltfptr[2807] = (/*nil*/NULL);; + /*_.F__V2828*/ meltfptr[2825] = (/*nil*/NULL);; /*^compute*/ - /*_.D__V2811*/ meltfptr[2810] = /*_.VALDATA___V2231*/ meltfptr[2230];; + /*_.D__V2829*/ meltfptr[2828] = /*_.VALDATA___V2249*/ meltfptr[2248];; { - MELT_LOCATION("warmelt-first.melt:3258:/ locexp"); - /*_.F__V2810*/ meltfptr[2807] = meltgc_new_file(/*_.D__V2811*/ meltfptr[2810], dump_file) ; ;} + MELT_LOCATION("warmelt-first.melt:3265:/ locexp"); + /*_.F__V2828*/ meltfptr[2825] = meltgc_new_file(/*_.D__V2829*/ meltfptr[2828], dump_file) ; ;} ; - /*_.LET___V2809*/ meltfptr[2782] = /*_.F__V2810*/ meltfptr[2807];; + /*_.LET___V2827*/ meltfptr[2800] = /*_.F__V2828*/ meltfptr[2825];; - MELT_LOCATION("warmelt-first.melt:3253:/ clear"); - /*clear*/ /*_.F__V2810*/ meltfptr[2807] = 0 ; + MELT_LOCATION("warmelt-first.melt:3260:/ clear"); + /*clear*/ /*_.F__V2828*/ meltfptr[2825] = 0 ; /*^clear*/ - /*clear*/ /*_.D__V2811*/ meltfptr[2810] = 0 ; - MELT_LOCATION("warmelt-first.melt:3237:/ cond"); - /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.VALDATA___V2437*/ meltfptr[2436]), (melt_ptr_t)(/*_.VALDATA___V369*/ meltfptr[368]))) /*then*/ { + /*clear*/ /*_.D__V2829*/ meltfptr[2828] = 0 ; + MELT_LOCATION("warmelt-first.melt:3244:/ cond"); + /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.VALDATA___V2455*/ meltfptr[2454]), (melt_ptr_t)(/*_.VALDATA___V369*/ meltfptr[368]))) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/{ /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj @SYSDATA_STDOUT", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2437*/ meltfptr[2436])) == OBMAG_OBJECT); - melt_putfield_object((/*_.VALDATA___V2437*/ meltfptr[2436]), (18), (/*_.LET___V2803*/ meltfptr[2783]), "SYSDATA_STDOUT"); + melt_assertmsg("putslot checkobj @SYSDATA_STDOUT", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2455*/ meltfptr[2454])) == OBMAG_OBJECT); + melt_putfield_object((/*_.VALDATA___V2455*/ meltfptr[2454]), (18), (/*_.LET___V2821*/ meltfptr[2801]), "SYSDATA_STDOUT"); ; /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj @SYSDATA_STDERR", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2437*/ meltfptr[2436])) == OBMAG_OBJECT); - melt_putfield_object((/*_.VALDATA___V2437*/ meltfptr[2436]), (19), (/*_.LET___V2806*/ meltfptr[2781]), "SYSDATA_STDERR"); + melt_assertmsg("putslot checkobj @SYSDATA_STDERR", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2455*/ meltfptr[2454])) == OBMAG_OBJECT); + melt_putfield_object((/*_.VALDATA___V2455*/ meltfptr[2454]), (19), (/*_.LET___V2824*/ meltfptr[2799]), "SYSDATA_STDERR"); ; /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj @SYSDATA_DUMPFILE", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2437*/ meltfptr[2436])) == OBMAG_OBJECT); - melt_putfield_object((/*_.VALDATA___V2437*/ meltfptr[2436]), (20), (/*_.LET___V2809*/ meltfptr[2782]), "SYSDATA_DUMPFILE"); + melt_assertmsg("putslot checkobj @SYSDATA_DUMPFILE", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2455*/ meltfptr[2454])) == OBMAG_OBJECT); + melt_putfield_object((/*_.VALDATA___V2455*/ meltfptr[2454]), (20), (/*_.LET___V2827*/ meltfptr[2800]), "SYSDATA_DUMPFILE"); ; /*^touch*/ - meltgc_touch(/*_.VALDATA___V2437*/ meltfptr[2436]); + meltgc_touch(/*_.VALDATA___V2455*/ meltfptr[2454]); ; /*epilog*/ } @@ -63085,19 +63427,19 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star /*epilog*/ /*^clear*/ - /*clear*/ /*_.LET___V2803*/ meltfptr[2783] = 0 ; + /*clear*/ /*_.LET___V2821*/ meltfptr[2801] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V2806*/ meltfptr[2781] = 0 ; + /*clear*/ /*_.LET___V2824*/ meltfptr[2799] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V2809*/ meltfptr[2782] = 0 ;} + /*clear*/ /*_.LET___V2827*/ meltfptr[2800] = 0 ;} - MELT_LOCATION("warmelt-first.melt:3265:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:3272:/ initchunk"); /*^block*/ /*anyblock*/{ /*^getslot*/ { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(((void*)(MELT_PREDEF(INITIAL_SYSTEM_DATA)))), 4, "SYSDATA_VALUE_EXPORTER");/*_.VALUEXPORTER___V2812*/ meltfptr[2807] = slot; }; + melt_object_get_field(slot,(melt_ptr_t)(((void*)(MELT_PREDEF(INITIAL_SYSTEM_DATA)))), 4, "SYSDATA_VALUE_EXPORTER");/*_.VALUEXPORTER___V2830*/ meltfptr[2825] = slot; }; ; /*^apply*/ /*apply*/{ @@ -63109,7 +63451,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_ANY_BINDING*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2812*/ meltfptr[2807]), (melt_ptr_t)(/*_.VALDATA___V505*/ meltfptr[504]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2830*/ meltfptr[2825]), (melt_ptr_t)(/*_.VALDATA___V505*/ meltfptr[504]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -63122,7 +63464,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : BINDER*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2812*/ meltfptr[2807]), (melt_ptr_t)(/*_.VALDATA___V513*/ meltfptr[512]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2830*/ meltfptr[2825]), (melt_ptr_t)(/*_.VALDATA___V513*/ meltfptr[512]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -63135,7 +63477,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_ANY_MATCHER*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2812*/ meltfptr[2807]), (melt_ptr_t)(/*_.VALDATA___V137*/ meltfptr[136]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2830*/ meltfptr[2825]), (melt_ptr_t)(/*_.VALDATA___V137*/ meltfptr[136]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -63148,7 +63490,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : AMATCH_IN*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2812*/ meltfptr[2807]), (melt_ptr_t)(/*_.VALDATA___V149*/ meltfptr[148]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2830*/ meltfptr[2825]), (melt_ptr_t)(/*_.VALDATA___V149*/ meltfptr[148]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -63161,7 +63503,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : AMATCH_MATCHBIND*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2812*/ meltfptr[2807]), (melt_ptr_t)(/*_.VALDATA___V151*/ meltfptr[150]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2830*/ meltfptr[2825]), (melt_ptr_t)(/*_.VALDATA___V151*/ meltfptr[150]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -63174,7 +63516,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : AMATCH_OUT*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2812*/ meltfptr[2807]), (melt_ptr_t)(/*_.VALDATA___V153*/ meltfptr[152]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2830*/ meltfptr[2825]), (melt_ptr_t)(/*_.VALDATA___V153*/ meltfptr[152]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -63187,7 +63529,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_CITERATOR*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2812*/ meltfptr[2807]), (melt_ptr_t)(/*_.VALDATA___V111*/ meltfptr[110]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2830*/ meltfptr[2825]), (melt_ptr_t)(/*_.VALDATA___V111*/ meltfptr[110]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -63200,7 +63542,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CITER_START_FORMALS*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2812*/ meltfptr[2807]), (melt_ptr_t)(/*_.VALDATA___V127*/ meltfptr[126]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2830*/ meltfptr[2825]), (melt_ptr_t)(/*_.VALDATA___V127*/ meltfptr[126]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -63213,7 +63555,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CITER_STATE*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2812*/ meltfptr[2807]), (melt_ptr_t)(/*_.VALDATA___V129*/ meltfptr[128]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2830*/ meltfptr[2825]), (melt_ptr_t)(/*_.VALDATA___V129*/ meltfptr[128]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -63226,7 +63568,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CITER_BODY_FORMALS*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2812*/ meltfptr[2807]), (melt_ptr_t)(/*_.VALDATA___V131*/ meltfptr[130]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2830*/ meltfptr[2825]), (melt_ptr_t)(/*_.VALDATA___V131*/ meltfptr[130]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -63239,7 +63581,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CITER_EXPBEFORE*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2812*/ meltfptr[2807]), (melt_ptr_t)(/*_.VALDATA___V133*/ meltfptr[132]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2830*/ meltfptr[2825]), (melt_ptr_t)(/*_.VALDATA___V133*/ meltfptr[132]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -63252,7 +63594,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CITER_EXPAFTER*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2812*/ meltfptr[2807]), (melt_ptr_t)(/*_.VALDATA___V135*/ meltfptr[134]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2830*/ meltfptr[2825]), (melt_ptr_t)(/*_.VALDATA___V135*/ meltfptr[134]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -63265,7 +63607,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_CITERATOR_BINDING*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2812*/ meltfptr[2807]), (melt_ptr_t)(/*_.VALDATA___V595*/ meltfptr[594]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2830*/ meltfptr[2825]), (melt_ptr_t)(/*_.VALDATA___V595*/ meltfptr[594]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -63278,7 +63620,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CBIND_CITERDEF*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2812*/ meltfptr[2807]), (melt_ptr_t)(/*_.VALDATA___V605*/ meltfptr[604]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2830*/ meltfptr[2825]), (melt_ptr_t)(/*_.VALDATA___V605*/ meltfptr[604]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -63291,7 +63633,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CBIND_CITERATOR*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2812*/ meltfptr[2807]), (melt_ptr_t)(/*_.VALDATA___V607*/ meltfptr[606]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2830*/ meltfptr[2825]), (melt_ptr_t)(/*_.VALDATA___V607*/ meltfptr[606]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -63304,7 +63646,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_CLASS*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2812*/ meltfptr[2807]), (melt_ptr_t)(/*_.VALDATA___V61*/ meltfptr[60]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2830*/ meltfptr[2825]), (melt_ptr_t)(/*_.VALDATA___V61*/ meltfptr[60]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -63317,7 +63659,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_ANCESTORS*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2812*/ meltfptr[2807]), (melt_ptr_t)(/*_.VALDATA___V73*/ meltfptr[72]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2830*/ meltfptr[2825]), (melt_ptr_t)(/*_.VALDATA___V73*/ meltfptr[72]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -63330,7 +63672,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_FIELDS*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2812*/ meltfptr[2807]), (melt_ptr_t)(/*_.VALDATA___V75*/ meltfptr[74]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2830*/ meltfptr[2825]), (melt_ptr_t)(/*_.VALDATA___V75*/ meltfptr[74]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -63343,7 +63685,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_DATA*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2812*/ meltfptr[2807]), (melt_ptr_t)(/*_.VALDATA___V77*/ meltfptr[76]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2830*/ meltfptr[2825]), (melt_ptr_t)(/*_.VALDATA___V77*/ meltfptr[76]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -63356,7 +63698,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_CLASS_BINDING*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2812*/ meltfptr[2807]), (melt_ptr_t)(/*_.VALDATA___V619*/ meltfptr[618]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2830*/ meltfptr[2825]), (melt_ptr_t)(/*_.VALDATA___V619*/ meltfptr[618]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -63369,7 +63711,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CBIND_DEFCLASS*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2812*/ meltfptr[2807]), (melt_ptr_t)(/*_.VALDATA___V629*/ meltfptr[628]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2830*/ meltfptr[2825]), (melt_ptr_t)(/*_.VALDATA___V629*/ meltfptr[628]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -63382,7 +63724,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CBIND_CLASS*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2812*/ meltfptr[2807]), (melt_ptr_t)(/*_.VALDATA___V631*/ meltfptr[630]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2830*/ meltfptr[2825]), (melt_ptr_t)(/*_.VALDATA___V631*/ meltfptr[630]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -63395,7 +63737,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_CLONED_SYMBOL*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2812*/ meltfptr[2807]), (melt_ptr_t)(/*_.VALDATA___V309*/ meltfptr[308]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2830*/ meltfptr[2825]), (melt_ptr_t)(/*_.VALDATA___V309*/ meltfptr[308]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -63408,7 +63750,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CSYM_URANK*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2812*/ meltfptr[2807]), (melt_ptr_t)(/*_.VALDATA___V317*/ meltfptr[316]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2830*/ meltfptr[2825]), (melt_ptr_t)(/*_.VALDATA___V317*/ meltfptr[316]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -63421,7 +63763,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_CONTAINER*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2812*/ meltfptr[2807]), (melt_ptr_t)(/*_.VALDATA___V23*/ meltfptr[22]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2830*/ meltfptr[2825]), (melt_ptr_t)(/*_.VALDATA___V23*/ meltfptr[22]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -63434,7 +63776,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CONTAINER_VALUE*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2812*/ meltfptr[2807]), (melt_ptr_t)(/*_.VALDATA___V31*/ meltfptr[30]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2830*/ meltfptr[2825]), (melt_ptr_t)(/*_.VALDATA___V31*/ meltfptr[30]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -63447,7 +63789,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_CMATCHER_BINDING*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2812*/ meltfptr[2807]), (melt_ptr_t)(/*_.VALDATA___V657*/ meltfptr[656]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2830*/ meltfptr[2825]), (melt_ptr_t)(/*_.VALDATA___V657*/ meltfptr[656]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -63460,7 +63802,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CMBIND_MATCHER*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2812*/ meltfptr[2807]), (melt_ptr_t)(/*_.VALDATA___V665*/ meltfptr[664]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2830*/ meltfptr[2825]), (melt_ptr_t)(/*_.VALDATA___V665*/ meltfptr[664]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -63473,7 +63815,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_CMATCHER*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2812*/ meltfptr[2807]), (melt_ptr_t)(/*_.VALDATA___V155*/ meltfptr[154]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2830*/ meltfptr[2825]), (melt_ptr_t)(/*_.VALDATA___V155*/ meltfptr[154]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -63486,7 +63828,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CMATCH_STATE*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2812*/ meltfptr[2807]), (melt_ptr_t)(/*_.VALDATA___V169*/ meltfptr[168]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2830*/ meltfptr[2825]), (melt_ptr_t)(/*_.VALDATA___V169*/ meltfptr[168]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -63499,7 +63841,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CMATCH_EXPTEST*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2812*/ meltfptr[2807]), (melt_ptr_t)(/*_.VALDATA___V171*/ meltfptr[170]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2830*/ meltfptr[2825]), (melt_ptr_t)(/*_.VALDATA___V171*/ meltfptr[170]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -63512,7 +63854,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CMATCH_EXPFILL*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2812*/ meltfptr[2807]), (melt_ptr_t)(/*_.VALDATA___V173*/ meltfptr[172]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2830*/ meltfptr[2825]), (melt_ptr_t)(/*_.VALDATA___V173*/ meltfptr[172]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -63525,7 +63867,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CMATCH_EXPOPER*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2812*/ meltfptr[2807]), (melt_ptr_t)(/*_.VALDATA___V175*/ meltfptr[174]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2830*/ meltfptr[2825]), (melt_ptr_t)(/*_.VALDATA___V175*/ meltfptr[174]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -63538,7 +63880,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_CTYPE*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2812*/ meltfptr[2807]), (melt_ptr_t)(/*_.VALDATA___V325*/ meltfptr[324]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2830*/ meltfptr[2825]), (melt_ptr_t)(/*_.VALDATA___V325*/ meltfptr[324]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -63551,7 +63893,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CTYPE_KEYWORD*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2812*/ meltfptr[2807]), (melt_ptr_t)(/*_.VALDATA___V349*/ meltfptr[348]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2830*/ meltfptr[2825]), (melt_ptr_t)(/*_.VALDATA___V349*/ meltfptr[348]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -63564,7 +63906,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CTYPE_CNAME*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2812*/ meltfptr[2807]), (melt_ptr_t)(/*_.VALDATA___V351*/ meltfptr[350]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2830*/ meltfptr[2825]), (melt_ptr_t)(/*_.VALDATA___V351*/ meltfptr[350]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -63577,7 +63919,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CTYPE_PARCHAR*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2812*/ meltfptr[2807]), (melt_ptr_t)(/*_.VALDATA___V353*/ meltfptr[352]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2830*/ meltfptr[2825]), (melt_ptr_t)(/*_.VALDATA___V353*/ meltfptr[352]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -63590,7 +63932,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CTYPE_PARSTRING*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2812*/ meltfptr[2807]), (melt_ptr_t)(/*_.VALDATA___V355*/ meltfptr[354]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2830*/ meltfptr[2825]), (melt_ptr_t)(/*_.VALDATA___V355*/ meltfptr[354]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -63603,7 +63945,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CTYPE_ARGFIELD*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2812*/ meltfptr[2807]), (melt_ptr_t)(/*_.VALDATA___V357*/ meltfptr[356]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2830*/ meltfptr[2825]), (melt_ptr_t)(/*_.VALDATA___V357*/ meltfptr[356]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -63616,7 +63958,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CTYPE_RESFIELD*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2812*/ meltfptr[2807]), (melt_ptr_t)(/*_.VALDATA___V359*/ meltfptr[358]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2830*/ meltfptr[2825]), (melt_ptr_t)(/*_.VALDATA___V359*/ meltfptr[358]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -63629,7 +63971,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CTYPE_MARKER*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2812*/ meltfptr[2807]), (melt_ptr_t)(/*_.VALDATA___V361*/ meltfptr[360]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2830*/ meltfptr[2825]), (melt_ptr_t)(/*_.VALDATA___V361*/ meltfptr[360]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -63642,7 +63984,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CTYPE_DESCR*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2812*/ meltfptr[2807]), (melt_ptr_t)(/*_.VALDATA___V363*/ meltfptr[362]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2830*/ meltfptr[2825]), (melt_ptr_t)(/*_.VALDATA___V363*/ meltfptr[362]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -63655,7 +63997,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CTYPE_ALTKEYWORD*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2812*/ meltfptr[2807]), (melt_ptr_t)(/*_.VALDATA___V365*/ meltfptr[364]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2830*/ meltfptr[2825]), (melt_ptr_t)(/*_.VALDATA___V365*/ meltfptr[364]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -63668,7 +64010,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_DESCRIBED_ENVIRONMENT*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2812*/ meltfptr[2807]), (melt_ptr_t)(/*_.VALDATA___V495*/ meltfptr[494]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2830*/ meltfptr[2825]), (melt_ptr_t)(/*_.VALDATA___V495*/ meltfptr[494]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -63681,7 +64023,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : DENV_DESCR*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2812*/ meltfptr[2807]), (melt_ptr_t)(/*_.VALDATA___V503*/ meltfptr[502]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2830*/ meltfptr[2825]), (melt_ptr_t)(/*_.VALDATA___V503*/ meltfptr[502]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -63694,7 +64036,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_DISCRIMINANT*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2812*/ meltfptr[2807]), (melt_ptr_t)(/*_.VALDATA___V43*/ meltfptr[42]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2830*/ meltfptr[2825]), (melt_ptr_t)(/*_.VALDATA___V43*/ meltfptr[42]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -63707,7 +64049,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : DISC_METHODICT*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2812*/ meltfptr[2807]), (melt_ptr_t)(/*_.VALDATA___V55*/ meltfptr[54]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2830*/ meltfptr[2825]), (melt_ptr_t)(/*_.VALDATA___V55*/ meltfptr[54]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -63720,7 +64062,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : DISC_SENDER*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2812*/ meltfptr[2807]), (melt_ptr_t)(/*_.VALDATA___V57*/ meltfptr[56]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2830*/ meltfptr[2825]), (melt_ptr_t)(/*_.VALDATA___V57*/ meltfptr[56]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -63733,7 +64075,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : DISC_SUPER*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2812*/ meltfptr[2807]), (melt_ptr_t)(/*_.VALDATA___V59*/ meltfptr[58]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2830*/ meltfptr[2825]), (melt_ptr_t)(/*_.VALDATA___V59*/ meltfptr[58]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -63746,7 +64088,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_ENVIRONMENT*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2812*/ meltfptr[2807]), (melt_ptr_t)(/*_.VALDATA___V477*/ meltfptr[476]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2830*/ meltfptr[2825]), (melt_ptr_t)(/*_.VALDATA___V477*/ meltfptr[476]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -63759,7 +64101,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : ENV_BIND*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2812*/ meltfptr[2807]), (melt_ptr_t)(/*_.VALDATA___V489*/ meltfptr[488]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2830*/ meltfptr[2825]), (melt_ptr_t)(/*_.VALDATA___V489*/ meltfptr[488]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -63772,7 +64114,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : ENV_PREV*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2812*/ meltfptr[2807]), (melt_ptr_t)(/*_.VALDATA___V491*/ meltfptr[490]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2830*/ meltfptr[2825]), (melt_ptr_t)(/*_.VALDATA___V491*/ meltfptr[490]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -63785,7 +64127,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : ENV_PROC*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2812*/ meltfptr[2807]), (melt_ptr_t)(/*_.VALDATA___V493*/ meltfptr[492]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2830*/ meltfptr[2825]), (melt_ptr_t)(/*_.VALDATA___V493*/ meltfptr[492]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -63798,7 +64140,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_EXPORTED_BINDING*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2812*/ meltfptr[2807]), (melt_ptr_t)(/*_.VALDATA___V515*/ meltfptr[514]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2830*/ meltfptr[2825]), (melt_ptr_t)(/*_.VALDATA___V515*/ meltfptr[514]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -63811,7 +64153,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_FIELD*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2812*/ meltfptr[2807]), (melt_ptr_t)(/*_.VALDATA___V79*/ meltfptr[78]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2830*/ meltfptr[2825]), (melt_ptr_t)(/*_.VALDATA___V79*/ meltfptr[78]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -63824,7 +64166,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : FLD_OWNCLASS*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2812*/ meltfptr[2807]), (melt_ptr_t)(/*_.VALDATA___V89*/ meltfptr[88]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2830*/ meltfptr[2825]), (melt_ptr_t)(/*_.VALDATA___V89*/ meltfptr[88]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -63837,7 +64179,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : FLD_DATA*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2812*/ meltfptr[2807]), (melt_ptr_t)(/*_.VALDATA___V91*/ meltfptr[90]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2830*/ meltfptr[2825]), (melt_ptr_t)(/*_.VALDATA___V91*/ meltfptr[90]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -63850,7 +64192,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_FIELD_BINDING*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2812*/ meltfptr[2807]), (melt_ptr_t)(/*_.VALDATA___V633*/ meltfptr[632]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2830*/ meltfptr[2825]), (melt_ptr_t)(/*_.VALDATA___V633*/ meltfptr[632]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -63863,7 +64205,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : FLBIND_CLABIND*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2812*/ meltfptr[2807]), (melt_ptr_t)(/*_.VALDATA___V643*/ meltfptr[642]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2830*/ meltfptr[2825]), (melt_ptr_t)(/*_.VALDATA___V643*/ meltfptr[642]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -63876,7 +64218,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : FLBIND_FIELD*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2812*/ meltfptr[2807]), (melt_ptr_t)(/*_.VALDATA___V645*/ meltfptr[644]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2830*/ meltfptr[2825]), (melt_ptr_t)(/*_.VALDATA___V645*/ meltfptr[644]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -63889,7 +64231,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_FIXED_BINDING*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2812*/ meltfptr[2807]), (melt_ptr_t)(/*_.VALDATA___V561*/ meltfptr[560]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2830*/ meltfptr[2825]), (melt_ptr_t)(/*_.VALDATA___V561*/ meltfptr[560]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -63902,7 +64244,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : FIXBIND_DATA*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2812*/ meltfptr[2807]), (melt_ptr_t)(/*_.VALDATA___V569*/ meltfptr[568]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2830*/ meltfptr[2825]), (melt_ptr_t)(/*_.VALDATA___V569*/ meltfptr[568]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -63915,7 +64257,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_FORMAL_BINDING*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2812*/ meltfptr[2807]), (melt_ptr_t)(/*_.VALDATA___V551*/ meltfptr[550]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2830*/ meltfptr[2825]), (melt_ptr_t)(/*_.VALDATA___V551*/ meltfptr[550]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -63928,7 +64270,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : FBIND_TYPE*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2812*/ meltfptr[2807]), (melt_ptr_t)(/*_.VALDATA___V559*/ meltfptr[558]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2830*/ meltfptr[2825]), (melt_ptr_t)(/*_.VALDATA___V559*/ meltfptr[558]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -63941,7 +64283,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_FUNCTION_BINDING*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2812*/ meltfptr[2807]), (melt_ptr_t)(/*_.VALDATA___V609*/ meltfptr[608]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2830*/ meltfptr[2825]), (melt_ptr_t)(/*_.VALDATA___V609*/ meltfptr[608]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -63954,7 +64296,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : FUBIND_DEFUN*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2812*/ meltfptr[2807]), (melt_ptr_t)(/*_.VALDATA___V617*/ meltfptr[616]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2830*/ meltfptr[2825]), (melt_ptr_t)(/*_.VALDATA___V617*/ meltfptr[616]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -63967,7 +64309,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_FUNMATCHER*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2812*/ meltfptr[2807]), (melt_ptr_t)(/*_.VALDATA___V177*/ meltfptr[176]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2830*/ meltfptr[2825]), (melt_ptr_t)(/*_.VALDATA___V177*/ meltfptr[176]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -63980,7 +64322,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : FMATCH_MATCHF*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2812*/ meltfptr[2807]), (melt_ptr_t)(/*_.VALDATA___V189*/ meltfptr[188]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2830*/ meltfptr[2825]), (melt_ptr_t)(/*_.VALDATA___V189*/ meltfptr[188]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -63993,7 +64335,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : FMATCH_APPLYF*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2812*/ meltfptr[2807]), (melt_ptr_t)(/*_.VALDATA___V191*/ meltfptr[190]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2830*/ meltfptr[2825]), (melt_ptr_t)(/*_.VALDATA___V191*/ meltfptr[190]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -64006,7 +64348,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : FMATCH_DATA*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2812*/ meltfptr[2807]), (melt_ptr_t)(/*_.VALDATA___V193*/ meltfptr[192]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2830*/ meltfptr[2825]), (melt_ptr_t)(/*_.VALDATA___V193*/ meltfptr[192]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -64019,7 +64361,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_FUNMATCHER_BINDING*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2812*/ meltfptr[2807]), (melt_ptr_t)(/*_.VALDATA___V667*/ meltfptr[666]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2830*/ meltfptr[2825]), (melt_ptr_t)(/*_.VALDATA___V667*/ meltfptr[666]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -64032,7 +64374,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : FMBIND_FUNMATCHER*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2812*/ meltfptr[2807]), (melt_ptr_t)(/*_.VALDATA___V677*/ meltfptr[676]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2830*/ meltfptr[2825]), (melt_ptr_t)(/*_.VALDATA___V677*/ meltfptr[676]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -64045,7 +64387,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : FMBIND_DEFUNMATCHER*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2812*/ meltfptr[2807]), (melt_ptr_t)(/*_.VALDATA___V679*/ meltfptr[678]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2830*/ meltfptr[2825]), (melt_ptr_t)(/*_.VALDATA___V679*/ meltfptr[678]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -64058,7 +64400,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_C_GENERATION_CONTEXT*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2812*/ meltfptr[2807]), (melt_ptr_t)(/*_.VALDATA___V905*/ meltfptr[904]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2830*/ meltfptr[2825]), (melt_ptr_t)(/*_.VALDATA___V905*/ meltfptr[904]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -64071,7 +64413,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : GNCX_OBJROUT*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2812*/ meltfptr[2807]), (melt_ptr_t)(/*_.VALDATA___V929*/ meltfptr[928]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2830*/ meltfptr[2825]), (melt_ptr_t)(/*_.VALDATA___V929*/ meltfptr[928]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -64084,7 +64426,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : GNCX_LOCMAP*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2812*/ meltfptr[2807]), (melt_ptr_t)(/*_.VALDATA___V931*/ meltfptr[930]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2830*/ meltfptr[2825]), (melt_ptr_t)(/*_.VALDATA___V931*/ meltfptr[930]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -64097,7 +64439,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : GNCX_FREEPTRLIST*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2812*/ meltfptr[2807]), (melt_ptr_t)(/*_.VALDATA___V933*/ meltfptr[932]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2830*/ meltfptr[2825]), (melt_ptr_t)(/*_.VALDATA___V933*/ meltfptr[932]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -64110,7 +64452,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : GNCX_FREELONGLIST*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2812*/ meltfptr[2807]), (melt_ptr_t)(/*_.VALDATA___V935*/ meltfptr[934]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2830*/ meltfptr[2825]), (melt_ptr_t)(/*_.VALDATA___V935*/ meltfptr[934]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -64123,7 +64465,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : GNCX_FREEOTHERMAPS*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2812*/ meltfptr[2807]), (melt_ptr_t)(/*_.VALDATA___V937*/ meltfptr[936]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2830*/ meltfptr[2825]), (melt_ptr_t)(/*_.VALDATA___V937*/ meltfptr[936]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -64136,7 +64478,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : GNCX_RETLOC*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2812*/ meltfptr[2807]), (melt_ptr_t)(/*_.VALDATA___V939*/ meltfptr[938]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2830*/ meltfptr[2825]), (melt_ptr_t)(/*_.VALDATA___V939*/ meltfptr[938]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -64149,7 +64491,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : GNCX_COMPICACHE*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2812*/ meltfptr[2807]), (melt_ptr_t)(/*_.VALDATA___V941*/ meltfptr[940]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2830*/ meltfptr[2825]), (melt_ptr_t)(/*_.VALDATA___V941*/ meltfptr[940]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -64162,7 +64504,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : GNCX_MODULCONTEXT*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2812*/ meltfptr[2807]), (melt_ptr_t)(/*_.VALDATA___V943*/ meltfptr[942]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2830*/ meltfptr[2825]), (melt_ptr_t)(/*_.VALDATA___V943*/ meltfptr[942]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -64175,7 +64517,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : GNCX_MATCHMAP*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2812*/ meltfptr[2807]), (melt_ptr_t)(/*_.VALDATA___V945*/ meltfptr[944]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2830*/ meltfptr[2825]), (melt_ptr_t)(/*_.VALDATA___V945*/ meltfptr[944]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -64188,7 +64530,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_GCC_GIMPLE_PASS*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2812*/ meltfptr[2807]), (melt_ptr_t)(/*_.VALDATA___V767*/ meltfptr[766]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2830*/ meltfptr[2825]), (melt_ptr_t)(/*_.VALDATA___V767*/ meltfptr[766]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -64201,7 +64543,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_GCC_PASS*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2812*/ meltfptr[2807]), (melt_ptr_t)(/*_.VALDATA___V729*/ meltfptr[728]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2830*/ meltfptr[2825]), (melt_ptr_t)(/*_.VALDATA___V729*/ meltfptr[728]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -64214,7 +64556,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : GCCPASS_GATE*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2812*/ meltfptr[2807]), (melt_ptr_t)(/*_.VALDATA___V751*/ meltfptr[750]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2830*/ meltfptr[2825]), (melt_ptr_t)(/*_.VALDATA___V751*/ meltfptr[750]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -64227,7 +64569,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : GCCPASS_EXEC*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2812*/ meltfptr[2807]), (melt_ptr_t)(/*_.VALDATA___V753*/ meltfptr[752]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2830*/ meltfptr[2825]), (melt_ptr_t)(/*_.VALDATA___V753*/ meltfptr[752]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -64240,7 +64582,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : GCCPASS_DATA*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2812*/ meltfptr[2807]), (melt_ptr_t)(/*_.VALDATA___V755*/ meltfptr[754]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2830*/ meltfptr[2825]), (melt_ptr_t)(/*_.VALDATA___V755*/ meltfptr[754]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -64253,7 +64595,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : GCCPASS_PROPERTIES_REQUIRED*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2812*/ meltfptr[2807]), (melt_ptr_t)(/*_.VALDATA___V757*/ meltfptr[756]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2830*/ meltfptr[2825]), (melt_ptr_t)(/*_.VALDATA___V757*/ meltfptr[756]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -64266,7 +64608,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : GCCPASS_PROPERTIES_PROVIDED*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2812*/ meltfptr[2807]), (melt_ptr_t)(/*_.VALDATA___V759*/ meltfptr[758]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2830*/ meltfptr[2825]), (melt_ptr_t)(/*_.VALDATA___V759*/ meltfptr[758]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -64279,7 +64621,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : GCCPASS_PROPERTIES_DESTROYED*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2812*/ meltfptr[2807]), (melt_ptr_t)(/*_.VALDATA___V761*/ meltfptr[760]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2830*/ meltfptr[2825]), (melt_ptr_t)(/*_.VALDATA___V761*/ meltfptr[760]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -64292,7 +64634,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : GCCPASS_TODO_FLAGS_START*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2812*/ meltfptr[2807]), (melt_ptr_t)(/*_.VALDATA___V763*/ meltfptr[762]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2830*/ meltfptr[2825]), (melt_ptr_t)(/*_.VALDATA___V763*/ meltfptr[762]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -64305,7 +64647,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : GCCPASS_TODO_FLAGS_FINISH*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2812*/ meltfptr[2807]), (melt_ptr_t)(/*_.VALDATA___V765*/ meltfptr[764]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2830*/ meltfptr[2825]), (melt_ptr_t)(/*_.VALDATA___V765*/ meltfptr[764]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -64318,7 +64660,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_GCC_RTL_PASS*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2812*/ meltfptr[2807]), (melt_ptr_t)(/*_.VALDATA___V773*/ meltfptr[772]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2830*/ meltfptr[2825]), (melt_ptr_t)(/*_.VALDATA___V773*/ meltfptr[772]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -64331,7 +64673,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_GCC_SIMPLE_IPA_PASS*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2812*/ meltfptr[2807]), (melt_ptr_t)(/*_.VALDATA___V779*/ meltfptr[778]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2830*/ meltfptr[2825]), (melt_ptr_t)(/*_.VALDATA___V779*/ meltfptr[778]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -64344,7 +64686,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_INITIAL_GENERATION_CONTEXT*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2812*/ meltfptr[2807]), (melt_ptr_t)(/*_.VALDATA___V947*/ meltfptr[946]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2830*/ meltfptr[2825]), (melt_ptr_t)(/*_.VALDATA___V947*/ meltfptr[946]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -64357,7 +64699,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : IGNCX_PREVENVLOC*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2812*/ meltfptr[2807]), (melt_ptr_t)(/*_.VALDATA___V961*/ meltfptr[960]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2830*/ meltfptr[2825]), (melt_ptr_t)(/*_.VALDATA___V961*/ meltfptr[960]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -64370,7 +64712,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : IGNCX_CONTENVLOC*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2812*/ meltfptr[2807]), (melt_ptr_t)(/*_.VALDATA___V963*/ meltfptr[962]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2830*/ meltfptr[2825]), (melt_ptr_t)(/*_.VALDATA___V963*/ meltfptr[962]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -64383,7 +64725,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : IGNCX_PROCURMODENVLIST*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2812*/ meltfptr[2807]), (melt_ptr_t)(/*_.VALDATA___V965*/ meltfptr[964]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2830*/ meltfptr[2825]), (melt_ptr_t)(/*_.VALDATA___V965*/ meltfptr[964]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -64396,7 +64738,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : IGNCX_IMPORTMAP*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2812*/ meltfptr[2807]), (melt_ptr_t)(/*_.VALDATA___V967*/ meltfptr[966]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2830*/ meltfptr[2825]), (melt_ptr_t)(/*_.VALDATA___V967*/ meltfptr[966]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -64409,7 +64751,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_INFIX_ADDITIVE_SYMBOL*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2812*/ meltfptr[2807]), (melt_ptr_t)(/*_.VALDATA___V255*/ meltfptr[254]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2830*/ meltfptr[2825]), (melt_ptr_t)(/*_.VALDATA___V255*/ meltfptr[254]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -64422,7 +64764,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_INFIX_ANY_SYMBOL*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2812*/ meltfptr[2807]), (melt_ptr_t)(/*_.VALDATA___V243*/ meltfptr[242]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2830*/ meltfptr[2825]), (melt_ptr_t)(/*_.VALDATA___V243*/ meltfptr[242]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -64435,7 +64777,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_INFIX_DELIMITER*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2812*/ meltfptr[2807]), (melt_ptr_t)(/*_.VALDATA___V273*/ meltfptr[272]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2830*/ meltfptr[2825]), (melt_ptr_t)(/*_.VALDATA___V273*/ meltfptr[272]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -64448,7 +64790,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_INFIX_INTEGER_LITERAL*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2812*/ meltfptr[2807]), (melt_ptr_t)(/*_.VALDATA___V237*/ meltfptr[236]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2830*/ meltfptr[2825]), (melt_ptr_t)(/*_.VALDATA___V237*/ meltfptr[236]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -64461,7 +64803,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_INFIX_KEYWORD*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2812*/ meltfptr[2807]), (melt_ptr_t)(/*_.VALDATA___V279*/ meltfptr[278]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2830*/ meltfptr[2825]), (melt_ptr_t)(/*_.VALDATA___V279*/ meltfptr[278]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -64474,7 +64816,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_INFIX_LEXEME*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2812*/ meltfptr[2807]), (melt_ptr_t)(/*_.VALDATA___V221*/ meltfptr[220]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2830*/ meltfptr[2825]), (melt_ptr_t)(/*_.VALDATA___V221*/ meltfptr[220]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -64487,7 +64829,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : LEXEME_DATA*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2812*/ meltfptr[2807]), (melt_ptr_t)(/*_.VALDATA___V229*/ meltfptr[228]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2830*/ meltfptr[2825]), (melt_ptr_t)(/*_.VALDATA___V229*/ meltfptr[228]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -64500,7 +64842,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_INFIX_MULTIPLICATIVE_SYMBOL*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2812*/ meltfptr[2807]), (melt_ptr_t)(/*_.VALDATA___V261*/ meltfptr[260]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2830*/ meltfptr[2825]), (melt_ptr_t)(/*_.VALDATA___V261*/ meltfptr[260]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -64513,7 +64855,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_INFIX_RELATIONAL_SYMBOL*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2812*/ meltfptr[2807]), (melt_ptr_t)(/*_.VALDATA___V267*/ meltfptr[266]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2830*/ meltfptr[2825]), (melt_ptr_t)(/*_.VALDATA___V267*/ meltfptr[266]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -64526,7 +64868,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_INFIX_STRING_LITERAL*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2812*/ meltfptr[2807]), (melt_ptr_t)(/*_.VALDATA___V231*/ meltfptr[230]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2830*/ meltfptr[2825]), (melt_ptr_t)(/*_.VALDATA___V231*/ meltfptr[230]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -64539,7 +64881,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_INFIX_SYMBOL*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2812*/ meltfptr[2807]), (melt_ptr_t)(/*_.VALDATA___V249*/ meltfptr[248]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2830*/ meltfptr[2825]), (melt_ptr_t)(/*_.VALDATA___V249*/ meltfptr[248]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -64552,7 +64894,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_INSTANCE_BINDING*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2812*/ meltfptr[2807]), (melt_ptr_t)(/*_.VALDATA___V647*/ meltfptr[646]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2830*/ meltfptr[2825]), (melt_ptr_t)(/*_.VALDATA___V647*/ meltfptr[646]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -64565,7 +64907,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : IBIND_ICLASS*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2812*/ meltfptr[2807]), (melt_ptr_t)(/*_.VALDATA___V655*/ meltfptr[654]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2830*/ meltfptr[2825]), (melt_ptr_t)(/*_.VALDATA___V655*/ meltfptr[654]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -64578,7 +64920,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_KEYWORD*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2812*/ meltfptr[2807]), (melt_ptr_t)(/*_.VALDATA___V319*/ meltfptr[318]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2830*/ meltfptr[2825]), (melt_ptr_t)(/*_.VALDATA___V319*/ meltfptr[318]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -64591,7 +64933,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_LABEL_BINDING*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2812*/ meltfptr[2807]), (melt_ptr_t)(/*_.VALDATA___V711*/ meltfptr[710]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2830*/ meltfptr[2825]), (melt_ptr_t)(/*_.VALDATA___V711*/ meltfptr[710]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -64604,7 +64946,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : LABIND_LOC*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2812*/ meltfptr[2807]), (melt_ptr_t)(/*_.VALDATA___V723*/ meltfptr[722]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2830*/ meltfptr[2825]), (melt_ptr_t)(/*_.VALDATA___V723*/ meltfptr[722]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -64617,7 +64959,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : LABIND_CLONSY*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2812*/ meltfptr[2807]), (melt_ptr_t)(/*_.VALDATA___V725*/ meltfptr[724]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2830*/ meltfptr[2825]), (melt_ptr_t)(/*_.VALDATA___V725*/ meltfptr[724]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -64630,7 +64972,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : LABIND_RES*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2812*/ meltfptr[2807]), (melt_ptr_t)(/*_.VALDATA___V727*/ meltfptr[726]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2830*/ meltfptr[2825]), (melt_ptr_t)(/*_.VALDATA___V727*/ meltfptr[726]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -64643,7 +64985,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_LET_BINDING*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2812*/ meltfptr[2807]), (melt_ptr_t)(/*_.VALDATA___V681*/ meltfptr[680]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2830*/ meltfptr[2825]), (melt_ptr_t)(/*_.VALDATA___V681*/ meltfptr[680]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -64656,7 +64998,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : LETBIND_TYPE*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2812*/ meltfptr[2807]), (melt_ptr_t)(/*_.VALDATA___V693*/ meltfptr[692]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2830*/ meltfptr[2825]), (melt_ptr_t)(/*_.VALDATA___V693*/ meltfptr[692]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -64669,7 +65011,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : LETBIND_EXPR*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2812*/ meltfptr[2807]), (melt_ptr_t)(/*_.VALDATA___V695*/ meltfptr[694]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2830*/ meltfptr[2825]), (melt_ptr_t)(/*_.VALDATA___V695*/ meltfptr[694]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -64682,7 +65024,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : LETBIND_LOC*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2812*/ meltfptr[2807]), (melt_ptr_t)(/*_.VALDATA___V697*/ meltfptr[696]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2830*/ meltfptr[2825]), (melt_ptr_t)(/*_.VALDATA___V697*/ meltfptr[696]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -64695,7 +65037,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_LETREC_BINDING*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2812*/ meltfptr[2807]), (melt_ptr_t)(/*_.VALDATA___V699*/ meltfptr[698]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2830*/ meltfptr[2825]), (melt_ptr_t)(/*_.VALDATA___V699*/ meltfptr[698]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -64708,7 +65050,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_LOCATED*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2812*/ meltfptr[2807]), (melt_ptr_t)(/*_.VALDATA___V195*/ meltfptr[194]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2830*/ meltfptr[2825]), (melt_ptr_t)(/*_.VALDATA___V195*/ meltfptr[194]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -64721,7 +65063,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : LOCA_LOCATION*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2812*/ meltfptr[2807]), (melt_ptr_t)(/*_.VALDATA___V203*/ meltfptr[202]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2830*/ meltfptr[2825]), (melt_ptr_t)(/*_.VALDATA___V203*/ meltfptr[202]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -64734,7 +65076,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_MACRO_BINDING*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2812*/ meltfptr[2807]), (melt_ptr_t)(/*_.VALDATA___V521*/ meltfptr[520]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2830*/ meltfptr[2825]), (melt_ptr_t)(/*_.VALDATA___V521*/ meltfptr[520]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -64747,7 +65089,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : MBIND_EXPANSER*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2812*/ meltfptr[2807]), (melt_ptr_t)(/*_.VALDATA___V529*/ meltfptr[528]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2830*/ meltfptr[2825]), (melt_ptr_t)(/*_.VALDATA___V529*/ meltfptr[528]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -64760,7 +65102,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_MELT_MODE*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2812*/ meltfptr[2807]), (melt_ptr_t)(/*_.VALDATA___V785*/ meltfptr[784]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2830*/ meltfptr[2825]), (melt_ptr_t)(/*_.VALDATA___V785*/ meltfptr[784]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -64773,7 +65115,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : MELTMODE_HELP*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2812*/ meltfptr[2807]), (melt_ptr_t)(/*_.VALDATA___V797*/ meltfptr[796]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2830*/ meltfptr[2825]), (melt_ptr_t)(/*_.VALDATA___V797*/ meltfptr[796]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -64786,7 +65128,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : MELTMODE_FUN*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2812*/ meltfptr[2807]), (melt_ptr_t)(/*_.VALDATA___V799*/ meltfptr[798]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2830*/ meltfptr[2825]), (melt_ptr_t)(/*_.VALDATA___V799*/ meltfptr[798]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -64799,7 +65141,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : MELTMODE_DATA*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2812*/ meltfptr[2807]), (melt_ptr_t)(/*_.VALDATA___V801*/ meltfptr[800]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2830*/ meltfptr[2825]), (melt_ptr_t)(/*_.VALDATA___V801*/ meltfptr[800]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -64812,7 +65154,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_MODULE_CONTEXT*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2812*/ meltfptr[2807]), (melt_ptr_t)(/*_.VALDATA___V809*/ meltfptr[808]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2830*/ meltfptr[2825]), (melt_ptr_t)(/*_.VALDATA___V809*/ meltfptr[808]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -64825,7 +65167,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : MOCX_MODULENAME*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2812*/ meltfptr[2807]), (melt_ptr_t)(/*_.VALDATA___V827*/ meltfptr[826]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2830*/ meltfptr[2825]), (melt_ptr_t)(/*_.VALDATA___V827*/ meltfptr[826]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -64838,7 +65180,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : MOCX_EXPFIELDICT*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2812*/ meltfptr[2807]), (melt_ptr_t)(/*_.VALDATA___V829*/ meltfptr[828]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2830*/ meltfptr[2825]), (melt_ptr_t)(/*_.VALDATA___V829*/ meltfptr[828]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -64851,7 +65193,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : MOCX_EXPCLASSDICT*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2812*/ meltfptr[2807]), (melt_ptr_t)(/*_.VALDATA___V831*/ meltfptr[830]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2830*/ meltfptr[2825]), (melt_ptr_t)(/*_.VALDATA___V831*/ meltfptr[830]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -64864,7 +65206,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : MOCX_INITIALENV*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2812*/ meltfptr[2807]), (melt_ptr_t)(/*_.VALDATA___V833*/ meltfptr[832]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2830*/ meltfptr[2825]), (melt_ptr_t)(/*_.VALDATA___V833*/ meltfptr[832]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -64877,7 +65219,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : MOCX_FUNCOUNT*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2812*/ meltfptr[2807]), (melt_ptr_t)(/*_.VALDATA___V835*/ meltfptr[834]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2830*/ meltfptr[2825]), (melt_ptr_t)(/*_.VALDATA___V835*/ meltfptr[834]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -64890,7 +65232,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : MOCX_FILETUPLE*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2812*/ meltfptr[2807]), (melt_ptr_t)(/*_.VALDATA___V837*/ meltfptr[836]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2830*/ meltfptr[2825]), (melt_ptr_t)(/*_.VALDATA___V837*/ meltfptr[836]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -64903,7 +65245,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_NAMED*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2812*/ meltfptr[2807]), (melt_ptr_t)(/*_.VALDATA___V33*/ meltfptr[32]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2830*/ meltfptr[2825]), (melt_ptr_t)(/*_.VALDATA___V33*/ meltfptr[32]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -64916,7 +65258,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : NAMED_NAME*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2812*/ meltfptr[2807]), (melt_ptr_t)(/*_.VALDATA___V41*/ meltfptr[40]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2830*/ meltfptr[2825]), (melt_ptr_t)(/*_.VALDATA___V41*/ meltfptr[40]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -64929,7 +65271,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_NORMALIZATION_CONTEXT*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2812*/ meltfptr[2807]), (melt_ptr_t)(/*_.VALDATA___V839*/ meltfptr[838]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2830*/ meltfptr[2825]), (melt_ptr_t)(/*_.VALDATA___V839*/ meltfptr[838]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -64942,7 +65284,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : NCTX_INITPROC*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2812*/ meltfptr[2807]), (melt_ptr_t)(/*_.VALDATA___V875*/ meltfptr[874]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2830*/ meltfptr[2825]), (melt_ptr_t)(/*_.VALDATA___V875*/ meltfptr[874]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -64955,7 +65297,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : NCTX_PROCLIST*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2812*/ meltfptr[2807]), (melt_ptr_t)(/*_.VALDATA___V877*/ meltfptr[876]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2830*/ meltfptr[2825]), (melt_ptr_t)(/*_.VALDATA___V877*/ meltfptr[876]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -64968,7 +65310,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : NCTX_DATALIST*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2812*/ meltfptr[2807]), (melt_ptr_t)(/*_.VALDATA___V879*/ meltfptr[878]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2830*/ meltfptr[2825]), (melt_ptr_t)(/*_.VALDATA___V879*/ meltfptr[878]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -64981,7 +65323,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : NCTX_VALUELIST*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2812*/ meltfptr[2807]), (melt_ptr_t)(/*_.VALDATA___V881*/ meltfptr[880]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2830*/ meltfptr[2825]), (melt_ptr_t)(/*_.VALDATA___V881*/ meltfptr[880]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -64994,7 +65336,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : NCTX_SYMBMAP*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2812*/ meltfptr[2807]), (melt_ptr_t)(/*_.VALDATA___V883*/ meltfptr[882]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2830*/ meltfptr[2825]), (melt_ptr_t)(/*_.VALDATA___V883*/ meltfptr[882]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -65007,7 +65349,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : NCTX_KEYWMAP*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2812*/ meltfptr[2807]), (melt_ptr_t)(/*_.VALDATA___V885*/ meltfptr[884]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2830*/ meltfptr[2825]), (melt_ptr_t)(/*_.VALDATA___V885*/ meltfptr[884]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -65020,7 +65362,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : NCTX_SYMBCACHEMAP*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2812*/ meltfptr[2807]), (melt_ptr_t)(/*_.VALDATA___V887*/ meltfptr[886]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2830*/ meltfptr[2825]), (melt_ptr_t)(/*_.VALDATA___V887*/ meltfptr[886]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -65033,7 +65375,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : NCTX_PREDEFMAP*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2812*/ meltfptr[2807]), (melt_ptr_t)(/*_.VALDATA___V889*/ meltfptr[888]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2830*/ meltfptr[2825]), (melt_ptr_t)(/*_.VALDATA___V889*/ meltfptr[888]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -65046,7 +65388,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : NCTX_VALMAP*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2812*/ meltfptr[2807]), (melt_ptr_t)(/*_.VALDATA___V891*/ meltfptr[890]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2830*/ meltfptr[2825]), (melt_ptr_t)(/*_.VALDATA___V891*/ meltfptr[890]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -65059,7 +65401,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : NCTX_VALBINDMAP*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2812*/ meltfptr[2807]), (melt_ptr_t)(/*_.VALDATA___V893*/ meltfptr[892]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2830*/ meltfptr[2825]), (melt_ptr_t)(/*_.VALDATA___V893*/ meltfptr[892]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -65072,7 +65414,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : NCTX_CURPROC*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2812*/ meltfptr[2807]), (melt_ptr_t)(/*_.VALDATA___V895*/ meltfptr[894]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2830*/ meltfptr[2825]), (melt_ptr_t)(/*_.VALDATA___V895*/ meltfptr[894]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -65085,7 +65427,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : NCTX_MODULCONTEXT*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2812*/ meltfptr[2807]), (melt_ptr_t)(/*_.VALDATA___V897*/ meltfptr[896]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2830*/ meltfptr[2825]), (melt_ptr_t)(/*_.VALDATA___V897*/ meltfptr[896]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -65098,7 +65440,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : NCTX_QDATCURMODENVBOX*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2812*/ meltfptr[2807]), (melt_ptr_t)(/*_.VALDATA___V899*/ meltfptr[898]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2830*/ meltfptr[2825]), (melt_ptr_t)(/*_.VALDATA___V899*/ meltfptr[898]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -65111,7 +65453,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : NCTX_QDATPARMODENV*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2812*/ meltfptr[2807]), (melt_ptr_t)(/*_.VALDATA___V901*/ meltfptr[900]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2830*/ meltfptr[2825]), (melt_ptr_t)(/*_.VALDATA___V901*/ meltfptr[900]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -65124,7 +65466,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : NCTX_PROCURMODENVLIST*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2812*/ meltfptr[2807]), (melt_ptr_t)(/*_.VALDATA___V903*/ meltfptr[902]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2830*/ meltfptr[2825]), (melt_ptr_t)(/*_.VALDATA___V903*/ meltfptr[902]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -65137,7 +65479,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_NORMAL_LET_BINDING*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2812*/ meltfptr[2807]), (melt_ptr_t)(/*_.VALDATA___V705*/ meltfptr[704]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2830*/ meltfptr[2825]), (melt_ptr_t)(/*_.VALDATA___V705*/ meltfptr[704]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -65150,7 +65492,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_GENERATED_C_CODE*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2812*/ meltfptr[2807]), (melt_ptr_t)(/*_.VALDATA___V969*/ meltfptr[968]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2830*/ meltfptr[2825]), (melt_ptr_t)(/*_.VALDATA___V969*/ meltfptr[968]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -65163,7 +65505,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_PATMACRO_BINDING*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2812*/ meltfptr[2807]), (melt_ptr_t)(/*_.VALDATA___V531*/ meltfptr[530]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2830*/ meltfptr[2825]), (melt_ptr_t)(/*_.VALDATA___V531*/ meltfptr[530]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -65176,7 +65518,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : PATBIND_EXPANSER*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2812*/ meltfptr[2807]), (melt_ptr_t)(/*_.VALDATA___V539*/ meltfptr[538]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2830*/ meltfptr[2825]), (melt_ptr_t)(/*_.VALDATA___V539*/ meltfptr[538]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -65189,7 +65531,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_PRIMITIVE*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2812*/ meltfptr[2807]), (melt_ptr_t)(/*_.VALDATA___V93*/ meltfptr[92]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2830*/ meltfptr[2825]), (melt_ptr_t)(/*_.VALDATA___V93*/ meltfptr[92]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -65202,7 +65544,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : PRIM_FORMALS*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2812*/ meltfptr[2807]), (melt_ptr_t)(/*_.VALDATA___V105*/ meltfptr[104]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2830*/ meltfptr[2825]), (melt_ptr_t)(/*_.VALDATA___V105*/ meltfptr[104]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -65215,7 +65557,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : PRIM_TYPE*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2812*/ meltfptr[2807]), (melt_ptr_t)(/*_.VALDATA___V107*/ meltfptr[106]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2830*/ meltfptr[2825]), (melt_ptr_t)(/*_.VALDATA___V107*/ meltfptr[106]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -65228,7 +65570,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : PRIM_EXPANSION*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2812*/ meltfptr[2807]), (melt_ptr_t)(/*_.VALDATA___V109*/ meltfptr[108]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2830*/ meltfptr[2825]), (melt_ptr_t)(/*_.VALDATA___V109*/ meltfptr[108]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -65241,7 +65583,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_PRIMITIVE_BINDING*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2812*/ meltfptr[2807]), (melt_ptr_t)(/*_.VALDATA___V581*/ meltfptr[580]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2830*/ meltfptr[2825]), (melt_ptr_t)(/*_.VALDATA___V581*/ meltfptr[580]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -65254,7 +65596,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : PBIND_PRIMDEF*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2812*/ meltfptr[2807]), (melt_ptr_t)(/*_.VALDATA___V591*/ meltfptr[590]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2830*/ meltfptr[2825]), (melt_ptr_t)(/*_.VALDATA___V591*/ meltfptr[590]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -65267,7 +65609,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : PBIND_PRIMITIVE*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2812*/ meltfptr[2807]), (melt_ptr_t)(/*_.VALDATA___V593*/ meltfptr[592]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2830*/ meltfptr[2825]), (melt_ptr_t)(/*_.VALDATA___V593*/ meltfptr[592]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -65280,7 +65622,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_PROPED*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2812*/ meltfptr[2807]), (melt_ptr_t)(/*_.VALDATA___V13*/ meltfptr[12]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2830*/ meltfptr[2825]), (melt_ptr_t)(/*_.VALDATA___V13*/ meltfptr[12]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -65293,7 +65635,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : PROP_TABLE*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2812*/ meltfptr[2807]), (melt_ptr_t)(/*_.VALDATA___V21*/ meltfptr[20]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2830*/ meltfptr[2825]), (melt_ptr_t)(/*_.VALDATA___V21*/ meltfptr[20]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -65306,7 +65648,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_ROOT*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2812*/ meltfptr[2807]), (melt_ptr_t)(/*_.VALDATA___V7*/ meltfptr[6]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2830*/ meltfptr[2825]), (melt_ptr_t)(/*_.VALDATA___V7*/ meltfptr[6]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -65319,7 +65661,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_SELECTOR*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2812*/ meltfptr[2807]), (melt_ptr_t)(/*_.VALDATA___V285*/ meltfptr[284]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2830*/ meltfptr[2825]), (melt_ptr_t)(/*_.VALDATA___V285*/ meltfptr[284]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -65332,7 +65674,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : SEL_SIGNATURE*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2812*/ meltfptr[2807]), (melt_ptr_t)(/*_.VALDATA___V295*/ meltfptr[294]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2830*/ meltfptr[2825]), (melt_ptr_t)(/*_.VALDATA___V295*/ meltfptr[294]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -65345,7 +65687,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : SEL_DATA*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2812*/ meltfptr[2807]), (melt_ptr_t)(/*_.VALDATA___V297*/ meltfptr[296]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2830*/ meltfptr[2825]), (melt_ptr_t)(/*_.VALDATA___V297*/ meltfptr[296]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -65358,7 +65700,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_SELECTOR_BINDING*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2812*/ meltfptr[2807]), (melt_ptr_t)(/*_.VALDATA___V571*/ meltfptr[570]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2830*/ meltfptr[2825]), (melt_ptr_t)(/*_.VALDATA___V571*/ meltfptr[570]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -65371,7 +65713,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : SBIND_SELECTORDEF*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2812*/ meltfptr[2807]), (melt_ptr_t)(/*_.VALDATA___V579*/ meltfptr[578]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2830*/ meltfptr[2825]), (melt_ptr_t)(/*_.VALDATA___V579*/ meltfptr[578]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -65384,7 +65726,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_SEXPR*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2812*/ meltfptr[2807]), (melt_ptr_t)(/*_.VALDATA___V205*/ meltfptr[204]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2830*/ meltfptr[2825]), (melt_ptr_t)(/*_.VALDATA___V205*/ meltfptr[204]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -65397,7 +65739,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : SEXP_CONTENTS*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2812*/ meltfptr[2807]), (melt_ptr_t)(/*_.VALDATA___V213*/ meltfptr[212]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2830*/ meltfptr[2825]), (melt_ptr_t)(/*_.VALDATA___V213*/ meltfptr[212]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -65410,7 +65752,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_SEXPR_MACROSTRING*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2812*/ meltfptr[2807]), (melt_ptr_t)(/*_.VALDATA___V215*/ meltfptr[214]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2830*/ meltfptr[2825]), (melt_ptr_t)(/*_.VALDATA___V215*/ meltfptr[214]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -65423,7 +65765,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_SOURCE*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2812*/ meltfptr[2807]), (melt_ptr_t)(/*_.VALDATA___V803*/ meltfptr[802]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2830*/ meltfptr[2825]), (melt_ptr_t)(/*_.VALDATA___V803*/ meltfptr[802]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -65436,7 +65778,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_SYMBOL*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2812*/ meltfptr[2807]), (melt_ptr_t)(/*_.VALDATA___V299*/ meltfptr[298]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2830*/ meltfptr[2825]), (melt_ptr_t)(/*_.VALDATA___V299*/ meltfptr[298]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -65449,7 +65791,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : SYMB_DATA*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2812*/ meltfptr[2807]), (melt_ptr_t)(/*_.VALDATA___V307*/ meltfptr[306]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2830*/ meltfptr[2825]), (melt_ptr_t)(/*_.VALDATA___V307*/ meltfptr[306]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -65462,7 +65804,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_SYSTEM_DATA*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2812*/ meltfptr[2807]), (melt_ptr_t)(/*_.VALDATA___V367*/ meltfptr[366]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2830*/ meltfptr[2825]), (melt_ptr_t)(/*_.VALDATA___V367*/ meltfptr[366]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -65475,7 +65817,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : SYSDATA_MODE_DICT*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2812*/ meltfptr[2807]), (melt_ptr_t)(/*_.VALDATA___V425*/ meltfptr[424]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2830*/ meltfptr[2825]), (melt_ptr_t)(/*_.VALDATA___V425*/ meltfptr[424]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -65488,7 +65830,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : SYSDATA_CONT_FRESH_ENV*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2812*/ meltfptr[2807]), (melt_ptr_t)(/*_.VALDATA___V427*/ meltfptr[426]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2830*/ meltfptr[2825]), (melt_ptr_t)(/*_.VALDATA___V427*/ meltfptr[426]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -65501,7 +65843,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : SYSDATA_VALUE_EXPORTER*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2812*/ meltfptr[2807]), (melt_ptr_t)(/*_.VALDATA___V429*/ meltfptr[428]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2830*/ meltfptr[2825]), (melt_ptr_t)(/*_.VALDATA___V429*/ meltfptr[428]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -65514,7 +65856,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : SYSDATA_MACRO_EXPORTER*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2812*/ meltfptr[2807]), (melt_ptr_t)(/*_.VALDATA___V431*/ meltfptr[430]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2830*/ meltfptr[2825]), (melt_ptr_t)(/*_.VALDATA___V431*/ meltfptr[430]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -65527,7 +65869,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : SYSDATA_SYMBOLDICT*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2812*/ meltfptr[2807]), (melt_ptr_t)(/*_.VALDATA___V433*/ meltfptr[432]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2830*/ meltfptr[2825]), (melt_ptr_t)(/*_.VALDATA___V433*/ meltfptr[432]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -65540,7 +65882,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : SYSDATA_KEYWDICT*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2812*/ meltfptr[2807]), (melt_ptr_t)(/*_.VALDATA___V435*/ meltfptr[434]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2830*/ meltfptr[2825]), (melt_ptr_t)(/*_.VALDATA___V435*/ meltfptr[434]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -65553,7 +65895,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : SYSDATA_ADDSYMBOL*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2812*/ meltfptr[2807]), (melt_ptr_t)(/*_.VALDATA___V437*/ meltfptr[436]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2830*/ meltfptr[2825]), (melt_ptr_t)(/*_.VALDATA___V437*/ meltfptr[436]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -65566,7 +65908,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : SYSDATA_ADDKEYW*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2812*/ meltfptr[2807]), (melt_ptr_t)(/*_.VALDATA___V439*/ meltfptr[438]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2830*/ meltfptr[2825]), (melt_ptr_t)(/*_.VALDATA___V439*/ meltfptr[438]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -65579,7 +65921,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : SYSDATA_INTERNSYMBOL*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2812*/ meltfptr[2807]), (melt_ptr_t)(/*_.VALDATA___V441*/ meltfptr[440]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2830*/ meltfptr[2825]), (melt_ptr_t)(/*_.VALDATA___V441*/ meltfptr[440]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -65592,7 +65934,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : SYSDATA_INTERNKEYW*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2812*/ meltfptr[2807]), (melt_ptr_t)(/*_.VALDATA___V443*/ meltfptr[442]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2830*/ meltfptr[2825]), (melt_ptr_t)(/*_.VALDATA___V443*/ meltfptr[442]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -65605,7 +65947,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : SYSDATA_VALUE_IMPORTER*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2812*/ meltfptr[2807]), (melt_ptr_t)(/*_.VALDATA___V445*/ meltfptr[444]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2830*/ meltfptr[2825]), (melt_ptr_t)(/*_.VALDATA___V445*/ meltfptr[444]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -65618,7 +65960,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : SYSDATA_PASS_DICT*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2812*/ meltfptr[2807]), (melt_ptr_t)(/*_.VALDATA___V447*/ meltfptr[446]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2830*/ meltfptr[2825]), (melt_ptr_t)(/*_.VALDATA___V447*/ meltfptr[446]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -65631,7 +65973,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : SYSDATA_EXIT_FINALIZER*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2812*/ meltfptr[2807]), (melt_ptr_t)(/*_.VALDATA___V449*/ meltfptr[448]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2830*/ meltfptr[2825]), (melt_ptr_t)(/*_.VALDATA___V449*/ meltfptr[448]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -65644,7 +65986,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : SYSDATA_MELTATTR_DEFINER*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2812*/ meltfptr[2807]), (melt_ptr_t)(/*_.VALDATA___V451*/ meltfptr[450]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2830*/ meltfptr[2825]), (melt_ptr_t)(/*_.VALDATA___V451*/ meltfptr[450]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -65657,7 +65999,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : SYSDATA_PATMACRO_EXPORTER*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2812*/ meltfptr[2807]), (melt_ptr_t)(/*_.VALDATA___V453*/ meltfptr[452]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2830*/ meltfptr[2825]), (melt_ptr_t)(/*_.VALDATA___V453*/ meltfptr[452]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -65670,7 +66012,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : SYSDATA_DEBUGMSG*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2812*/ meltfptr[2807]), (melt_ptr_t)(/*_.VALDATA___V455*/ meltfptr[454]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2830*/ meltfptr[2825]), (melt_ptr_t)(/*_.VALDATA___V455*/ meltfptr[454]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -65683,7 +66025,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : SYSDATA_STDOUT*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2812*/ meltfptr[2807]), (melt_ptr_t)(/*_.VALDATA___V457*/ meltfptr[456]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2830*/ meltfptr[2825]), (melt_ptr_t)(/*_.VALDATA___V457*/ meltfptr[456]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -65696,7 +66038,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : SYSDATA_STDERR*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2812*/ meltfptr[2807]), (melt_ptr_t)(/*_.VALDATA___V459*/ meltfptr[458]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2830*/ meltfptr[2825]), (melt_ptr_t)(/*_.VALDATA___V459*/ meltfptr[458]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -65709,7 +66051,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : SYSDATA_DUMPFILE*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2812*/ meltfptr[2807]), (melt_ptr_t)(/*_.VALDATA___V461*/ meltfptr[460]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2830*/ meltfptr[2825]), (melt_ptr_t)(/*_.VALDATA___V461*/ meltfptr[460]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -65722,7 +66064,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : SYSDATA_UNIT_STARTER*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2812*/ meltfptr[2807]), (melt_ptr_t)(/*_.VALDATA___V463*/ meltfptr[462]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2830*/ meltfptr[2825]), (melt_ptr_t)(/*_.VALDATA___V463*/ meltfptr[462]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -65735,7 +66077,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : SYSDATA_UNIT_FINISHER*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2812*/ meltfptr[2807]), (melt_ptr_t)(/*_.VALDATA___V465*/ meltfptr[464]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2830*/ meltfptr[2825]), (melt_ptr_t)(/*_.VALDATA___V465*/ meltfptr[464]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -65748,7 +66090,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : SYSDATA_OPTION_SET*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2812*/ meltfptr[2807]), (melt_ptr_t)(/*_.VALDATA___V467*/ meltfptr[466]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2830*/ meltfptr[2825]), (melt_ptr_t)(/*_.VALDATA___V467*/ meltfptr[466]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -65761,7 +66103,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : SYSDATA___SPARE1*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2812*/ meltfptr[2807]), (melt_ptr_t)(/*_.VALDATA___V469*/ meltfptr[468]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2830*/ meltfptr[2825]), (melt_ptr_t)(/*_.VALDATA___V469*/ meltfptr[468]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -65774,7 +66116,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : SYSDATA___SPARE2*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2812*/ meltfptr[2807]), (melt_ptr_t)(/*_.VALDATA___V471*/ meltfptr[470]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2830*/ meltfptr[2825]), (melt_ptr_t)(/*_.VALDATA___V471*/ meltfptr[470]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -65787,7 +66129,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : SYSDATA___SPARE3*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2812*/ meltfptr[2807]), (melt_ptr_t)(/*_.VALDATA___V473*/ meltfptr[472]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2830*/ meltfptr[2825]), (melt_ptr_t)(/*_.VALDATA___V473*/ meltfptr[472]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -65800,7 +66142,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : SYSDATA___SPARE4*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2812*/ meltfptr[2807]), (melt_ptr_t)(/*_.VALDATA___V475*/ meltfptr[474]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2830*/ meltfptr[2825]), (melt_ptr_t)(/*_.VALDATA___V475*/ meltfptr[474]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -65813,7 +66155,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_VALUE_BINDING*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2812*/ meltfptr[2807]), (melt_ptr_t)(/*_.VALDATA___V541*/ meltfptr[540]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2830*/ meltfptr[2825]), (melt_ptr_t)(/*_.VALDATA___V541*/ meltfptr[540]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -65826,21 +66168,21 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : VBIND_VALUE*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2812*/ meltfptr[2807]), (melt_ptr_t)(/*_.VALDATA___V549*/ meltfptr[548]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2830*/ meltfptr[2825]), (melt_ptr_t)(/*_.VALDATA___V549*/ meltfptr[548]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.VALUEXPORTER___V2812*/ meltfptr[2807] = 0 ;} + /*clear*/ /*_.VALUEXPORTER___V2830*/ meltfptr[2825] = 0 ;} - MELT_LOCATION("warmelt-first.melt:3336:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:3343:/ initchunk"); /*^block*/ /*anyblock*/{ /*^getslot*/ { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(((void*)(MELT_PREDEF(INITIAL_SYSTEM_DATA)))), 4, "SYSDATA_VALUE_EXPORTER");/*_.VALUEXPORTER___V2813*/ meltfptr[2810] = slot; }; + melt_object_get_field(slot,(melt_ptr_t)(((void*)(MELT_PREDEF(INITIAL_SYSTEM_DATA)))), 4, "SYSDATA_VALUE_EXPORTER");/*_.VALUEXPORTER___V2831*/ meltfptr[2828] = slot; }; ; /*^apply*/ /*apply*/{ @@ -65852,7 +66194,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : !=*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2813*/ meltfptr[2810]), (melt_ptr_t)(/*_.VALDATA___V1073*/ meltfptr[1072]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2831*/ meltfptr[2828]), (melt_ptr_t)(/*_.VALDATA___V1073*/ meltfptr[1072]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -65865,7 +66207,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : %I*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2813*/ meltfptr[2810]), (melt_ptr_t)(/*_.VALDATA___V1230*/ meltfptr[1229]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2831*/ meltfptr[2828]), (melt_ptr_t)(/*_.VALDATA___V1230*/ meltfptr[1229]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -65878,7 +66220,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : %IRAW*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2813*/ meltfptr[2810]), (melt_ptr_t)(/*_.VALDATA___V1252*/ meltfptr[1251]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2831*/ meltfptr[2828]), (melt_ptr_t)(/*_.VALDATA___V1252*/ meltfptr[1251]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -65891,7 +66233,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : +I*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2813*/ meltfptr[2810]), (melt_ptr_t)(/*_.VALDATA___V1208*/ meltfptr[1207]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2831*/ meltfptr[2828]), (melt_ptr_t)(/*_.VALDATA___V1208*/ meltfptr[1207]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -65904,7 +66246,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : /I*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2813*/ meltfptr[2810]), (melt_ptr_t)(/*_.VALDATA___V1219*/ meltfptr[1218]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2831*/ meltfptr[2828]), (melt_ptr_t)(/*_.VALDATA___V1219*/ meltfptr[1218]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -65917,7 +66259,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : /IRAW*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2813*/ meltfptr[2810]), (melt_ptr_t)(/*_.VALDATA___V1241*/ meltfptr[1240]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2831*/ meltfptr[2828]), (melt_ptr_t)(/*_.VALDATA___V1241*/ meltfptr[1240]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -65930,7 +66272,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : I*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2813*/ meltfptr[2810]), (melt_ptr_t)(/*_.VALDATA___V1186*/ meltfptr[1185]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2831*/ meltfptr[2828]), (melt_ptr_t)(/*_.VALDATA___V1186*/ meltfptr[1185]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -65956,7 +66298,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : ==*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2813*/ meltfptr[2810]), (melt_ptr_t)(/*_.VALDATA___V1058*/ meltfptr[1057]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2831*/ meltfptr[2828]), (melt_ptr_t)(/*_.VALDATA___V1058*/ meltfptr[1057]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -65969,7 +66311,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : !=S*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2813*/ meltfptr[2810]), (melt_ptr_t)(/*_.VALDATA___V1381*/ meltfptr[1380]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2831*/ meltfptr[2828]), (melt_ptr_t)(/*_.VALDATA___V1381*/ meltfptr[1380]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -65982,7 +66324,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : ==S*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2813*/ meltfptr[2810]), (melt_ptr_t)(/*_.VALDATA___V1366*/ meltfptr[1365]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2831*/ meltfptr[2828]), (melt_ptr_t)(/*_.VALDATA___V1366*/ meltfptr[1365]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -65995,7 +66337,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : >=I*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2813*/ meltfptr[2810]), (melt_ptr_t)(/*_.VALDATA___V1197*/ meltfptr[1196]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2831*/ meltfptr[2828]), (melt_ptr_t)(/*_.VALDATA___V1197*/ meltfptr[1196]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -66008,7 +66350,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : ASSERT_FAILED*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2813*/ meltfptr[2810]), (melt_ptr_t)(/*_.VALDATA___V1154*/ meltfptr[1153]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2831*/ meltfptr[2828]), (melt_ptr_t)(/*_.VALDATA___V1154*/ meltfptr[1153]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -66021,7 +66363,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : BOX_CONTENT*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2813*/ meltfptr[2810]), (melt_ptr_t)(/*_.VALDATA___V1943*/ meltfptr[1942]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2831*/ meltfptr[2828]), (melt_ptr_t)(/*_.VALDATA___V1943*/ meltfptr[1942]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -66034,7 +66376,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : BOX_PUT*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2813*/ meltfptr[2810]), (melt_ptr_t)(/*_.VALDATA___V1952*/ meltfptr[1951]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2831*/ meltfptr[2828]), (melt_ptr_t)(/*_.VALDATA___V1952*/ meltfptr[1951]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -66047,7 +66389,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLOSURE_NTH*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2813*/ meltfptr[2810]), (melt_ptr_t)(/*_.VALDATA___V1862*/ meltfptr[1861]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2831*/ meltfptr[2828]), (melt_ptr_t)(/*_.VALDATA___V1862*/ meltfptr[1861]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -66060,7 +66402,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLOSURE_ROUTINE*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2813*/ meltfptr[2810]), (melt_ptr_t)(/*_.VALDATA___V1853*/ meltfptr[1852]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2831*/ meltfptr[2828]), (melt_ptr_t)(/*_.VALDATA___V1853*/ meltfptr[1852]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -66073,7 +66415,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLOSURE_SIZE*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2813*/ meltfptr[2810]), (melt_ptr_t)(/*_.VALDATA___V1844*/ meltfptr[1843]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2831*/ meltfptr[2828]), (melt_ptr_t)(/*_.VALDATA___V1844*/ meltfptr[1843]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -66086,7 +66428,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CREATE_KEYWORDSTR*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2813*/ meltfptr[2810]), (melt_ptr_t)(/*_.VALDATA___V1145*/ meltfptr[1144]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2831*/ meltfptr[2828]), (melt_ptr_t)(/*_.VALDATA___V1145*/ meltfptr[1144]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -66099,7 +66441,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CREATE_SYMBOLSTR*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2813*/ meltfptr[2810]), (melt_ptr_t)(/*_.VALDATA___V1116*/ meltfptr[1115]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2831*/ meltfptr[2828]), (melt_ptr_t)(/*_.VALDATA___V1116*/ meltfptr[1115]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -66112,7 +66454,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : DISCRIM*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2813*/ meltfptr[2810]), (melt_ptr_t)(/*_.VALDATA___V1025*/ meltfptr[1024]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2831*/ meltfptr[2828]), (melt_ptr_t)(/*_.VALDATA___V1025*/ meltfptr[1024]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -66125,7 +66467,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : GET_INT*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2813*/ meltfptr[2810]), (melt_ptr_t)(/*_.VALDATA___V1036*/ meltfptr[1035]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2831*/ meltfptr[2828]), (melt_ptr_t)(/*_.VALDATA___V1036*/ meltfptr[1035]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -66138,7 +66480,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : GET_KEYWORDSTR*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2813*/ meltfptr[2810]), (melt_ptr_t)(/*_.VALDATA___V1136*/ meltfptr[1135]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2831*/ meltfptr[2828]), (melt_ptr_t)(/*_.VALDATA___V1136*/ meltfptr[1135]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -66151,7 +66493,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : GET_SYMBOLSTR*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2813*/ meltfptr[2810]), (melt_ptr_t)(/*_.VALDATA___V1105*/ meltfptr[1104]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2831*/ meltfptr[2828]), (melt_ptr_t)(/*_.VALDATA___V1105*/ meltfptr[1104]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -66164,7 +66506,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : GET_RAW_SYMBOL*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2813*/ meltfptr[2810]), (melt_ptr_t)(/*_.VALDATA___V1125*/ meltfptr[1124]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2831*/ meltfptr[2828]), (melt_ptr_t)(/*_.VALDATA___V1125*/ meltfptr[1124]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -66172,12 +66514,12 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2108*/ meltfptr[2107]; + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2126*/ meltfptr[2125]; /*^apply.arg*/ argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : INFORMSG_LONG*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2813*/ meltfptr[2810]), (melt_ptr_t)(/*_.VALDATA___V2106*/ meltfptr[2105]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2831*/ meltfptr[2828]), (melt_ptr_t)(/*_.VALDATA___V2124*/ meltfptr[2123]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -66190,7 +66532,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : INFORMSG_STRV*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2813*/ meltfptr[2810]), (melt_ptr_t)(/*_.VALDATA___V1272*/ meltfptr[1271]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2831*/ meltfptr[2828]), (melt_ptr_t)(/*_.VALDATA___V1272*/ meltfptr[1271]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -66203,7 +66545,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : IS_A*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2813*/ meltfptr[2810]), (melt_ptr_t)(/*_.VALDATA___V990*/ meltfptr[989]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2831*/ meltfptr[2828]), (melt_ptr_t)(/*_.VALDATA___V990*/ meltfptr[989]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -66216,7 +66558,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : IS_BOX*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2813*/ meltfptr[2810]), (melt_ptr_t)(/*_.VALDATA___V1932*/ meltfptr[1931]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2831*/ meltfptr[2828]), (melt_ptr_t)(/*_.VALDATA___V1932*/ meltfptr[1931]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -66229,7 +66571,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : IS_CLOSURE*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2813*/ meltfptr[2810]), (melt_ptr_t)(/*_.VALDATA___V1833*/ meltfptr[1832]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2831*/ meltfptr[2828]), (melt_ptr_t)(/*_.VALDATA___V1833*/ meltfptr[1832]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -66242,7 +66584,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : IS_INTEGERBOX*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2813*/ meltfptr[2810]), (melt_ptr_t)(/*_.VALDATA___V1888*/ meltfptr[1887]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2831*/ meltfptr[2828]), (melt_ptr_t)(/*_.VALDATA___V1888*/ meltfptr[1887]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -66255,7 +66597,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : IS_LIST*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2813*/ meltfptr[2810]), (melt_ptr_t)(/*_.VALDATA___V1976*/ meltfptr[1975]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2831*/ meltfptr[2828]), (melt_ptr_t)(/*_.VALDATA___V1976*/ meltfptr[1975]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -66268,7 +66610,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : IS_LIST_OR_NULL*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2813*/ meltfptr[2810]), (melt_ptr_t)(/*_.VALDATA___V1987*/ meltfptr[1986]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2831*/ meltfptr[2828]), (melt_ptr_t)(/*_.VALDATA___V1987*/ meltfptr[1986]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -66281,7 +66623,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : IS_MAPOBJECT*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2813*/ meltfptr[2810]), (melt_ptr_t)(/*_.VALDATA___V1501*/ meltfptr[1500]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2831*/ meltfptr[2828]), (melt_ptr_t)(/*_.VALDATA___V1501*/ meltfptr[1500]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -66294,7 +66636,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : IS_MAPSTRING*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2813*/ meltfptr[2810]), (melt_ptr_t)(/*_.VALDATA___V1651*/ meltfptr[1650]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2831*/ meltfptr[2828]), (melt_ptr_t)(/*_.VALDATA___V1651*/ meltfptr[1650]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -66307,7 +66649,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : IS_MULTIPLE*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2813*/ meltfptr[2810]), (melt_ptr_t)(/*_.VALDATA___V1427*/ meltfptr[1426]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2831*/ meltfptr[2828]), (melt_ptr_t)(/*_.VALDATA___V1427*/ meltfptr[1426]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -66320,7 +66662,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : IS_NOT_A*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2813*/ meltfptr[2810]), (melt_ptr_t)(/*_.VALDATA___V1005*/ meltfptr[1004]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2831*/ meltfptr[2828]), (melt_ptr_t)(/*_.VALDATA___V1005*/ meltfptr[1004]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -66333,7 +66675,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : IS_OBJECT*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2813*/ meltfptr[2810]), (melt_ptr_t)(/*_.VALDATA___V1016*/ meltfptr[1015]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2831*/ meltfptr[2828]), (melt_ptr_t)(/*_.VALDATA___V1016*/ meltfptr[1015]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -66341,12 +66683,12 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2068*/ meltfptr[2067]; + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2086*/ meltfptr[2085]; /*^apply.arg*/ argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : IS_PAIR*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2813*/ meltfptr[2810]), (melt_ptr_t)(/*_.VALDATA___V2066*/ meltfptr[2065]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2831*/ meltfptr[2828]), (melt_ptr_t)(/*_.VALDATA___V2084*/ meltfptr[2083]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -66359,7 +66701,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : IS_ROUTINE*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2813*/ meltfptr[2810]), (melt_ptr_t)(/*_.VALDATA___V1791*/ meltfptr[1790]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2831*/ meltfptr[2828]), (melt_ptr_t)(/*_.VALDATA___V1791*/ meltfptr[1790]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -66372,7 +66714,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : IS_STRING*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2813*/ meltfptr[2810]), (melt_ptr_t)(/*_.VALDATA___V1355*/ meltfptr[1354]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2831*/ meltfptr[2828]), (melt_ptr_t)(/*_.VALDATA___V1355*/ meltfptr[1354]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -66380,12 +66722,12 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2026*/ meltfptr[2025]; + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2044*/ meltfptr[2043]; /*^apply.arg*/ argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : LIST_APPEND*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2813*/ meltfptr[2810]), (melt_ptr_t)(/*_.VALDATA___V2024*/ meltfptr[2023]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2831*/ meltfptr[2828]), (melt_ptr_t)(/*_.VALDATA___V2042*/ meltfptr[2041]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -66398,7 +66740,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : LIST_FIRST*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2813*/ meltfptr[2810]), (melt_ptr_t)(/*_.VALDATA___V1997*/ meltfptr[1996]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2831*/ meltfptr[2828]), (melt_ptr_t)(/*_.VALDATA___V1997*/ meltfptr[1996]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -66406,12 +66748,25 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V2614*/ meltfptr[2613]; + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2017*/ meltfptr[2016]; + /*^apply.arg*/ + argtab[1].bp_aptr = (melt_ptr_t*) & + /*quasi.cur.mod.env.cont norm.exp.val : LIST_FIRST_ELEMENT*/ +/*_.CONTENV___V2*/ meltfptr[1]; + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2831*/ meltfptr[2828]), (melt_ptr_t)(/*_.VALDATA___V2015*/ meltfptr[2014]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + } + ; + /*^apply*/ + /*apply*/{ + union meltparam_un argtab[2]; + memset(&argtab, 0, sizeof(argtab)); + /*^apply.arg*/ + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V2632*/ meltfptr[2631]; /*^apply.arg*/ argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : LIST_FIND*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2813*/ meltfptr[2810]), (melt_ptr_t)(/*_.VALDATA___V2700*/ meltfptr[2699]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2831*/ meltfptr[2828]), (melt_ptr_t)(/*_.VALDATA___V2718*/ meltfptr[2717]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -66424,7 +66779,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : LIST_LAST*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2813*/ meltfptr[2810]), (melt_ptr_t)(/*_.VALDATA___V2006*/ meltfptr[2005]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2831*/ meltfptr[2828]), (melt_ptr_t)(/*_.VALDATA___V2006*/ meltfptr[2005]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -66432,12 +66787,25 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2017*/ meltfptr[2016]; + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2026*/ meltfptr[2025]; + /*^apply.arg*/ + argtab[1].bp_aptr = (melt_ptr_t*) & + /*quasi.cur.mod.env.cont norm.exp.val : LIST_LAST_ELEMENT*/ +/*_.CONTENV___V2*/ meltfptr[1]; + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2831*/ meltfptr[2828]), (melt_ptr_t)(/*_.VALDATA___V2024*/ meltfptr[2023]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + } + ; + /*^apply*/ + /*apply*/{ + union meltparam_un argtab[2]; + memset(&argtab, 0, sizeof(argtab)); + /*^apply.arg*/ + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2035*/ meltfptr[2034]; /*^apply.arg*/ argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : LIST_LENGTH*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2813*/ meltfptr[2810]), (melt_ptr_t)(/*_.VALDATA___V2015*/ meltfptr[2014]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2831*/ meltfptr[2828]), (melt_ptr_t)(/*_.VALDATA___V2033*/ meltfptr[2032]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -66445,12 +66813,12 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2050*/ meltfptr[2049]; + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2068*/ meltfptr[2067]; /*^apply.arg*/ argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : LIST_POPFIRST*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2813*/ meltfptr[2810]), (melt_ptr_t)(/*_.VALDATA___V2048*/ meltfptr[2047]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2831*/ meltfptr[2828]), (melt_ptr_t)(/*_.VALDATA___V2066*/ meltfptr[2065]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -66458,12 +66826,12 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2039*/ meltfptr[2038]; + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2057*/ meltfptr[2056]; /*^apply.arg*/ argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : LIST_PREPEND*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2813*/ meltfptr[2810]), (melt_ptr_t)(/*_.VALDATA___V2037*/ meltfptr[2036]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2831*/ meltfptr[2828]), (melt_ptr_t)(/*_.VALDATA___V2055*/ meltfptr[2054]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -66476,7 +66844,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : MAKE_BOX*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2813*/ meltfptr[2810]), (melt_ptr_t)(/*_.VALDATA___V1963*/ meltfptr[1962]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2831*/ meltfptr[2828]), (melt_ptr_t)(/*_.VALDATA___V1963*/ meltfptr[1962]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -66489,7 +66857,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : MAKE_INTEGERBOX*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2813*/ meltfptr[2810]), (melt_ptr_t)(/*_.VALDATA___V1899*/ meltfptr[1898]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2831*/ meltfptr[2828]), (melt_ptr_t)(/*_.VALDATA___V1899*/ meltfptr[1898]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -66497,12 +66865,12 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2059*/ meltfptr[2058]; + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2077*/ meltfptr[2076]; /*^apply.arg*/ argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : MAKE_LIST*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2813*/ meltfptr[2810]), (melt_ptr_t)(/*_.VALDATA___V2057*/ meltfptr[2056]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2831*/ meltfptr[2828]), (melt_ptr_t)(/*_.VALDATA___V2075*/ meltfptr[2074]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -66515,7 +66883,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : MAKE_MAPOBJECT*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2813*/ meltfptr[2810]), (melt_ptr_t)(/*_.VALDATA___V1565*/ meltfptr[1564]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2831*/ meltfptr[2828]), (melt_ptr_t)(/*_.VALDATA___V1565*/ meltfptr[1564]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -66528,7 +66896,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : MAKE_MAPSTRING*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2813*/ meltfptr[2810]), (melt_ptr_t)(/*_.VALDATA___V1660*/ meltfptr[1659]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2831*/ meltfptr[2828]), (melt_ptr_t)(/*_.VALDATA___V1660*/ meltfptr[1659]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -66541,7 +66909,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : MAKE_MULTIPLE*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2813*/ meltfptr[2810]), (melt_ptr_t)(/*_.VALDATA___V1438*/ meltfptr[1437]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2831*/ meltfptr[2828]), (melt_ptr_t)(/*_.VALDATA___V1438*/ meltfptr[1437]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -66554,7 +66922,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : MAKE_STRINGCONST*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2813*/ meltfptr[2810]), (melt_ptr_t)(/*_.VALDATA___V1392*/ meltfptr[1391]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2831*/ meltfptr[2828]), (melt_ptr_t)(/*_.VALDATA___V1392*/ meltfptr[1391]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -66567,7 +66935,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : MAPOBJECT_COUNT*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2813*/ meltfptr[2810]), (melt_ptr_t)(/*_.VALDATA___V1521*/ meltfptr[1520]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2831*/ meltfptr[2828]), (melt_ptr_t)(/*_.VALDATA___V1521*/ meltfptr[1520]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -66580,7 +66948,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : MAPOBJECT_GET*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2813*/ meltfptr[2810]), (melt_ptr_t)(/*_.VALDATA___V1552*/ meltfptr[1551]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2831*/ meltfptr[2828]), (melt_ptr_t)(/*_.VALDATA___V1552*/ meltfptr[1551]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -66593,7 +66961,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : MAPOBJECT_NTH_ATTR*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2813*/ meltfptr[2810]), (melt_ptr_t)(/*_.VALDATA___V1530*/ meltfptr[1529]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2831*/ meltfptr[2828]), (melt_ptr_t)(/*_.VALDATA___V1530*/ meltfptr[1529]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -66606,7 +66974,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : MAPOBJECT_NTH_VAL*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2813*/ meltfptr[2810]), (melt_ptr_t)(/*_.VALDATA___V1541*/ meltfptr[1540]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2831*/ meltfptr[2828]), (melt_ptr_t)(/*_.VALDATA___V1541*/ meltfptr[1540]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -66619,7 +66987,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : MAPOBJECT_PUT*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2813*/ meltfptr[2810]), (melt_ptr_t)(/*_.VALDATA___V1578*/ meltfptr[1577]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2831*/ meltfptr[2828]), (melt_ptr_t)(/*_.VALDATA___V1578*/ meltfptr[1577]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -66632,7 +67000,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : MAPOBJECT_REMOVE*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2813*/ meltfptr[2810]), (melt_ptr_t)(/*_.VALDATA___V1595*/ meltfptr[1594]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2831*/ meltfptr[2828]), (melt_ptr_t)(/*_.VALDATA___V1595*/ meltfptr[1594]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -66645,7 +67013,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : MAPOBJECT_SIZE*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2813*/ meltfptr[2810]), (melt_ptr_t)(/*_.VALDATA___V1512*/ meltfptr[1511]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2831*/ meltfptr[2828]), (melt_ptr_t)(/*_.VALDATA___V1512*/ meltfptr[1511]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -66658,7 +67026,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : MAPSTRING_GETSTR*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2813*/ meltfptr[2810]), (melt_ptr_t)(/*_.VALDATA___V1686*/ meltfptr[1685]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2831*/ meltfptr[2828]), (melt_ptr_t)(/*_.VALDATA___V1686*/ meltfptr[1685]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -66671,7 +67039,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : MAPSTRING_NTH_ATTRSTR*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2813*/ meltfptr[2810]), (melt_ptr_t)(/*_.VALDATA___V1708*/ meltfptr[1707]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2831*/ meltfptr[2828]), (melt_ptr_t)(/*_.VALDATA___V1708*/ meltfptr[1707]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -66684,7 +67052,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : MAPSTRING_NTH_VAL*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2813*/ meltfptr[2810]), (melt_ptr_t)(/*_.VALDATA___V1723*/ meltfptr[1722]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2831*/ meltfptr[2828]), (melt_ptr_t)(/*_.VALDATA___V1723*/ meltfptr[1722]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -66697,7 +67065,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : MAPSTRING_PUTSTR*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2813*/ meltfptr[2810]), (melt_ptr_t)(/*_.VALDATA___V1671*/ meltfptr[1670]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2831*/ meltfptr[2828]), (melt_ptr_t)(/*_.VALDATA___V1671*/ meltfptr[1670]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -66710,7 +67078,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : MAPSTRING_REMOVESTR*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2813*/ meltfptr[2810]), (melt_ptr_t)(/*_.VALDATA___V1697*/ meltfptr[1696]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2831*/ meltfptr[2828]), (melt_ptr_t)(/*_.VALDATA___V1697*/ meltfptr[1696]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -66723,7 +67091,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : MULTIPLE_LENGTH*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2813*/ meltfptr[2810]), (melt_ptr_t)(/*_.VALDATA___V1462*/ meltfptr[1461]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2831*/ meltfptr[2828]), (melt_ptr_t)(/*_.VALDATA___V1462*/ meltfptr[1461]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -66736,7 +67104,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : MULTIPLE_NTH*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2813*/ meltfptr[2810]), (melt_ptr_t)(/*_.VALDATA___V1451*/ meltfptr[1450]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2831*/ meltfptr[2828]), (melt_ptr_t)(/*_.VALDATA___V1451*/ meltfptr[1450]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -66749,7 +67117,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : MULTIPLE_PUT_NTH*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2813*/ meltfptr[2810]), (melt_ptr_t)(/*_.VALDATA___V1471*/ meltfptr[1470]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2831*/ meltfptr[2828]), (melt_ptr_t)(/*_.VALDATA___V1471*/ meltfptr[1470]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -66762,7 +67130,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : MULTIPLE_SORT*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2813*/ meltfptr[2810]), (melt_ptr_t)(/*_.VALDATA___V1484*/ meltfptr[1483]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2831*/ meltfptr[2828]), (melt_ptr_t)(/*_.VALDATA___V1484*/ meltfptr[1483]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -66775,7 +67143,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : NEED_DBG*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2813*/ meltfptr[2810]), (melt_ptr_t)(/*_.VALDATA___V1309*/ meltfptr[1308]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2831*/ meltfptr[2828]), (melt_ptr_t)(/*_.VALDATA___V1309*/ meltfptr[1308]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -66788,7 +67156,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : NEED_DBGLIM*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2813*/ meltfptr[2810]), (melt_ptr_t)(/*_.VALDATA___V1321*/ meltfptr[1320]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2831*/ meltfptr[2828]), (melt_ptr_t)(/*_.VALDATA___V1321*/ meltfptr[1320]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -66801,7 +67169,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : NOT*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2813*/ meltfptr[2810]), (melt_ptr_t)(/*_.VALDATA___V1263*/ meltfptr[1262]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2831*/ meltfptr[2828]), (melt_ptr_t)(/*_.VALDATA___V1263*/ meltfptr[1262]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -66814,7 +67182,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : NULL*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2813*/ meltfptr[2810]), (melt_ptr_t)(/*_.VALDATA___V1300*/ meltfptr[1299]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2831*/ meltfptr[2828]), (melt_ptr_t)(/*_.VALDATA___V1300*/ meltfptr[1299]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -66822,12 +67190,12 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2079*/ meltfptr[2078]; + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2097*/ meltfptr[2096]; /*^apply.arg*/ argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : PAIR_HEAD*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2813*/ meltfptr[2810]), (melt_ptr_t)(/*_.VALDATA___V2077*/ meltfptr[2076]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2831*/ meltfptr[2828]), (melt_ptr_t)(/*_.VALDATA___V2095*/ meltfptr[2094]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -66835,12 +67203,12 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2088*/ meltfptr[2087]; + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2106*/ meltfptr[2105]; /*^apply.arg*/ argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : PAIR_TAIL*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2813*/ meltfptr[2810]), (melt_ptr_t)(/*_.VALDATA___V2086*/ meltfptr[2085]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2831*/ meltfptr[2828]), (melt_ptr_t)(/*_.VALDATA___V2104*/ meltfptr[2103]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -66853,7 +67221,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : PUT_INT*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2813*/ meltfptr[2810]), (melt_ptr_t)(/*_.VALDATA___V1045*/ meltfptr[1044]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2831*/ meltfptr[2828]), (melt_ptr_t)(/*_.VALDATA___V1045*/ meltfptr[1044]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -66866,7 +67234,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : ROUTINE_DESCR*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2813*/ meltfptr[2810]), (melt_ptr_t)(/*_.VALDATA___V1802*/ meltfptr[1801]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2831*/ meltfptr[2828]), (melt_ptr_t)(/*_.VALDATA___V1802*/ meltfptr[1801]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -66879,7 +67247,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : ROUTINE_NTH*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2813*/ meltfptr[2810]), (melt_ptr_t)(/*_.VALDATA___V1820*/ meltfptr[1819]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2831*/ meltfptr[2828]), (melt_ptr_t)(/*_.VALDATA___V1820*/ meltfptr[1819]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -66892,7 +67260,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : ROUTINE_SIZE*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2813*/ meltfptr[2810]), (melt_ptr_t)(/*_.VALDATA___V1811*/ meltfptr[1810]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2831*/ meltfptr[2828]), (melt_ptr_t)(/*_.VALDATA___V1811*/ meltfptr[1810]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -66905,7 +67273,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : SHORTBACKTRACE_DBG*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2813*/ meltfptr[2810]), (melt_ptr_t)(/*_.VALDATA___V1335*/ meltfptr[1334]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2831*/ meltfptr[2828]), (melt_ptr_t)(/*_.VALDATA___V1335*/ meltfptr[1334]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -66918,7 +67286,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : STRING<*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2813*/ meltfptr[2810]), (melt_ptr_t)(/*_.VALDATA___V1405*/ meltfptr[1404]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2831*/ meltfptr[2828]), (melt_ptr_t)(/*_.VALDATA___V1405*/ meltfptr[1404]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -66931,7 +67299,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : STRING>*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2813*/ meltfptr[2810]), (melt_ptr_t)(/*_.VALDATA___V1416*/ meltfptr[1415]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2831*/ meltfptr[2828]), (melt_ptr_t)(/*_.VALDATA___V1416*/ meltfptr[1415]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -66944,7 +67312,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : STRINGCONST2VAL*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2813*/ meltfptr[2810]), (melt_ptr_t)(/*_.VALDATA___V975*/ meltfptr[974]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2831*/ meltfptr[2828]), (melt_ptr_t)(/*_.VALDATA___V975*/ meltfptr[974]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -66957,7 +67325,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : THE_MELTCALLCOUNT*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2813*/ meltfptr[2810]), (melt_ptr_t)(/*_.VALDATA___V1084*/ meltfptr[1083]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2831*/ meltfptr[2828]), (melt_ptr_t)(/*_.VALDATA___V1084*/ meltfptr[1083]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -66970,7 +67338,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : THE_CALLCOUNT*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2813*/ meltfptr[2810]), (melt_ptr_t)(/*_.VALDATA___V1091*/ meltfptr[1090]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2831*/ meltfptr[2828]), (melt_ptr_t)(/*_.VALDATA___V1091*/ meltfptr[1090]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -66983,7 +67351,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : THE_FRAMEDEPTH*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2813*/ meltfptr[2810]), (melt_ptr_t)(/*_.VALDATA___V1098*/ meltfptr[1097]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2831*/ meltfptr[2828]), (melt_ptr_t)(/*_.VALDATA___V1098*/ meltfptr[1097]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -66996,33 +67364,33 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : THE_NULL_CSTRING*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2813*/ meltfptr[2810]), (melt_ptr_t)(/*_.VALDATA___V1348*/ meltfptr[1347]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2831*/ meltfptr[2828]), (melt_ptr_t)(/*_.VALDATA___V1348*/ meltfptr[1347]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.VALUEXPORTER___V2813*/ meltfptr[2810] = 0 ;} + /*clear*/ /*_.VALUEXPORTER___V2831*/ meltfptr[2828] = 0 ;} - MELT_LOCATION("warmelt-first.melt:3431:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:3440:/ initchunk"); /*^block*/ /*anyblock*/{ /*^getslot*/ { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(((void*)(MELT_PREDEF(INITIAL_SYSTEM_DATA)))), 4, "SYSDATA_VALUE_EXPORTER");/*_.VALUEXPORTER___V2814*/ meltfptr[2783] = slot; }; + melt_object_get_field(slot,(melt_ptr_t)(((void*)(MELT_PREDEF(INITIAL_SYSTEM_DATA)))), 4, "SYSDATA_VALUE_EXPORTER");/*_.VALUEXPORTER___V2832*/ meltfptr[2801] = slot; }; ; /*^apply*/ /*apply*/{ union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2328*/ meltfptr[2327]; + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2346*/ meltfptr[2345]; /*^apply.arg*/ argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CTYPE_BASIC_BLOCK*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2814*/ meltfptr[2783]), (melt_ptr_t)(/*_.VALDATA___V2326*/ meltfptr[2325]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2832*/ meltfptr[2801]), (melt_ptr_t)(/*_.VALDATA___V2344*/ meltfptr[2343]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -67030,12 +67398,12 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2414*/ meltfptr[2413]; + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2432*/ meltfptr[2431]; /*^apply.arg*/ argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CTYPE_CSTRING*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2814*/ meltfptr[2783]), (melt_ptr_t)(/*_.VALDATA___V2412*/ meltfptr[2411]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2832*/ meltfptr[2801]), (melt_ptr_t)(/*_.VALDATA___V2430*/ meltfptr[2429]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -67043,12 +67411,12 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2340*/ meltfptr[2339]; + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2358*/ meltfptr[2357]; /*^apply.arg*/ argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CTYPE_EDGE*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2814*/ meltfptr[2783]), (melt_ptr_t)(/*_.VALDATA___V2338*/ meltfptr[2337]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2832*/ meltfptr[2801]), (melt_ptr_t)(/*_.VALDATA___V2356*/ meltfptr[2355]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -67056,12 +67424,12 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2304*/ meltfptr[2303]; + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2322*/ meltfptr[2321]; /*^apply.arg*/ argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CTYPE_GIMPLE*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2814*/ meltfptr[2783]), (melt_ptr_t)(/*_.VALDATA___V2302*/ meltfptr[2301]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2832*/ meltfptr[2801]), (melt_ptr_t)(/*_.VALDATA___V2320*/ meltfptr[2319]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -67069,12 +67437,12 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2316*/ meltfptr[2315]; + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2334*/ meltfptr[2333]; /*^apply.arg*/ argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CTYPE_GIMPLE_SEQ*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2814*/ meltfptr[2783]), (melt_ptr_t)(/*_.VALDATA___V2314*/ meltfptr[2313]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2832*/ meltfptr[2801]), (melt_ptr_t)(/*_.VALDATA___V2332*/ meltfptr[2331]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -67082,12 +67450,12 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2281*/ meltfptr[2280]; + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2299*/ meltfptr[2298]; /*^apply.arg*/ argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CTYPE_LONG*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2814*/ meltfptr[2783]), (melt_ptr_t)(/*_.VALDATA___V2279*/ meltfptr[2278]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2832*/ meltfptr[2801]), (melt_ptr_t)(/*_.VALDATA___V2297*/ meltfptr[2296]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -67095,12 +67463,12 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2352*/ meltfptr[2351]; + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2370*/ meltfptr[2369]; /*^apply.arg*/ argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CTYPE_PPL_COEFFICIENT*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2814*/ meltfptr[2783]), (melt_ptr_t)(/*_.VALDATA___V2350*/ meltfptr[2349]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2832*/ meltfptr[2801]), (melt_ptr_t)(/*_.VALDATA___V2368*/ meltfptr[2367]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -67108,12 +67476,12 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2374*/ meltfptr[2373]; + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2392*/ meltfptr[2391]; /*^apply.arg*/ argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CTYPE_PPL_CONSTRAINT*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2814*/ meltfptr[2783]), (melt_ptr_t)(/*_.VALDATA___V2372*/ meltfptr[2371]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2832*/ meltfptr[2801]), (melt_ptr_t)(/*_.VALDATA___V2390*/ meltfptr[2389]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -67121,12 +67489,12 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2385*/ meltfptr[2384]; + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2403*/ meltfptr[2402]; /*^apply.arg*/ argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CTYPE_PPL_CONSTRAINT_SYSTEM*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2814*/ meltfptr[2783]), (melt_ptr_t)(/*_.VALDATA___V2383*/ meltfptr[2382]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2832*/ meltfptr[2801]), (melt_ptr_t)(/*_.VALDATA___V2401*/ meltfptr[2400]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -67134,12 +67502,12 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2363*/ meltfptr[2362]; + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2381*/ meltfptr[2380]; /*^apply.arg*/ argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CTYPE_PPL_LINEAR_EXPRESSION*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2814*/ meltfptr[2783]), (melt_ptr_t)(/*_.VALDATA___V2361*/ meltfptr[2360]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2832*/ meltfptr[2801]), (melt_ptr_t)(/*_.VALDATA___V2379*/ meltfptr[2378]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -67147,12 +67515,12 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2292*/ meltfptr[2291]; + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2310*/ meltfptr[2309]; /*^apply.arg*/ argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CTYPE_TREE*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2814*/ meltfptr[2783]), (melt_ptr_t)(/*_.VALDATA___V2290*/ meltfptr[2289]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2832*/ meltfptr[2801]), (melt_ptr_t)(/*_.VALDATA___V2308*/ meltfptr[2307]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -67160,12 +67528,12 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2269*/ meltfptr[2268]; + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2287*/ meltfptr[2286]; /*^apply.arg*/ argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CTYPE_VALUE*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2814*/ meltfptr[2783]), (melt_ptr_t)(/*_.VALDATA___V2267*/ meltfptr[2266]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2832*/ meltfptr[2801]), (melt_ptr_t)(/*_.VALDATA___V2285*/ meltfptr[2284]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -67173,12 +67541,12 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2407*/ meltfptr[2406]; + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2425*/ meltfptr[2424]; /*^apply.arg*/ argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CTYPE_VOID*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2814*/ meltfptr[2783]), (melt_ptr_t)(/*_.VALDATA___V2405*/ meltfptr[2404]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2832*/ meltfptr[2801]), (melt_ptr_t)(/*_.VALDATA___V2423*/ meltfptr[2422]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -67186,12 +67554,12 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2131*/ meltfptr[2130]; + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2149*/ meltfptr[2148]; /*^apply.arg*/ argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : DISCR_ANY_RECEIVER*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2814*/ meltfptr[2783]), (melt_ptr_t)(/*_.VALDATA___V2129*/ meltfptr[2128]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2832*/ meltfptr[2801]), (melt_ptr_t)(/*_.VALDATA___V2147*/ meltfptr[2146]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -67199,12 +67567,12 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2187*/ meltfptr[2186]; + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2205*/ meltfptr[2204]; /*^apply.arg*/ argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : DISCR_BASIC_BLOCK*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2814*/ meltfptr[2783]), (melt_ptr_t)(/*_.VALDATA___V2185*/ meltfptr[2184]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2832*/ meltfptr[2801]), (melt_ptr_t)(/*_.VALDATA___V2203*/ meltfptr[2202]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -67212,12 +67580,12 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2167*/ meltfptr[2166]; + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2185*/ meltfptr[2184]; /*^apply.arg*/ argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : DISCR_BOX*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2814*/ meltfptr[2783]), (melt_ptr_t)(/*_.VALDATA___V2165*/ meltfptr[2164]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2832*/ meltfptr[2801]), (melt_ptr_t)(/*_.VALDATA___V2183*/ meltfptr[2182]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -67225,12 +67593,12 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2243*/ meltfptr[2242]; + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2261*/ meltfptr[2260]; /*^apply.arg*/ argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : DISCR_CHARACTER_INTEGER*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2814*/ meltfptr[2783]), (melt_ptr_t)(/*_.VALDATA___V2241*/ meltfptr[2240]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2832*/ meltfptr[2801]), (melt_ptr_t)(/*_.VALDATA___V2259*/ meltfptr[2258]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -67238,12 +67606,12 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2235*/ meltfptr[2234]; + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2253*/ meltfptr[2252]; /*^apply.arg*/ argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : DISCR_CLASS_SEQUENCE*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2814*/ meltfptr[2783]), (melt_ptr_t)(/*_.VALDATA___V2233*/ meltfptr[2232]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2832*/ meltfptr[2801]), (melt_ptr_t)(/*_.VALDATA___V2251*/ meltfptr[2250]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -67251,12 +67619,12 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2259*/ meltfptr[2258]; + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2277*/ meltfptr[2276]; /*^apply.arg*/ argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : DISCR_CLOSURE*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2814*/ meltfptr[2783]), (melt_ptr_t)(/*_.VALDATA___V2257*/ meltfptr[2256]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2832*/ meltfptr[2801]), (melt_ptr_t)(/*_.VALDATA___V2275*/ meltfptr[2274]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -67264,12 +67632,12 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2147*/ meltfptr[2146]; + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2165*/ meltfptr[2164]; /*^apply.arg*/ argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : DISCR_CONSTANT_INTEGER*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2814*/ meltfptr[2783]), (melt_ptr_t)(/*_.VALDATA___V2145*/ meltfptr[2144]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2832*/ meltfptr[2801]), (melt_ptr_t)(/*_.VALDATA___V2163*/ meltfptr[2162]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -67277,12 +67645,12 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2183*/ meltfptr[2182]; + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2201*/ meltfptr[2200]; /*^apply.arg*/ argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : DISCR_EDGE*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2814*/ meltfptr[2783]), (melt_ptr_t)(/*_.VALDATA___V2181*/ meltfptr[2180]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2832*/ meltfptr[2801]), (melt_ptr_t)(/*_.VALDATA___V2199*/ meltfptr[2198]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -67290,12 +67658,12 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2163*/ meltfptr[2162]; + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2181*/ meltfptr[2180]; /*^apply.arg*/ argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : DISCR_FIELD_SEQUENCE*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2814*/ meltfptr[2783]), (melt_ptr_t)(/*_.VALDATA___V2161*/ meltfptr[2160]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2832*/ meltfptr[2801]), (melt_ptr_t)(/*_.VALDATA___V2179*/ meltfptr[2178]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -67303,12 +67671,12 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2227*/ meltfptr[2226]; + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2245*/ meltfptr[2244]; /*^apply.arg*/ argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : DISCR_FILE*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2814*/ meltfptr[2783]), (melt_ptr_t)(/*_.VALDATA___V2225*/ meltfptr[2224]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2832*/ meltfptr[2801]), (melt_ptr_t)(/*_.VALDATA___V2243*/ meltfptr[2242]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -67316,12 +67684,12 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2175*/ meltfptr[2174]; + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2193*/ meltfptr[2192]; /*^apply.arg*/ argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : DISCR_GIMPLE*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2814*/ meltfptr[2783]), (melt_ptr_t)(/*_.VALDATA___V2173*/ meltfptr[2172]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2832*/ meltfptr[2801]), (melt_ptr_t)(/*_.VALDATA___V2191*/ meltfptr[2190]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -67329,12 +67697,12 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2179*/ meltfptr[2178]; + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2197*/ meltfptr[2196]; /*^apply.arg*/ argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : DISCR_GIMPLE_SEQ*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2814*/ meltfptr[2783]), (melt_ptr_t)(/*_.VALDATA___V2177*/ meltfptr[2176]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2832*/ meltfptr[2801]), (melt_ptr_t)(/*_.VALDATA___V2195*/ meltfptr[2194]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -67342,12 +67710,12 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2143*/ meltfptr[2142]; + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2161*/ meltfptr[2160]; /*^apply.arg*/ argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : DISCR_INTEGER*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2814*/ meltfptr[2783]), (melt_ptr_t)(/*_.VALDATA___V2141*/ meltfptr[2140]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2832*/ meltfptr[2801]), (melt_ptr_t)(/*_.VALDATA___V2159*/ meltfptr[2158]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -67355,12 +67723,12 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2151*/ meltfptr[2150]; + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2169*/ meltfptr[2168]; /*^apply.arg*/ argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : DISCR_LIST*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2814*/ meltfptr[2783]), (melt_ptr_t)(/*_.VALDATA___V2149*/ meltfptr[2148]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2832*/ meltfptr[2801]), (melt_ptr_t)(/*_.VALDATA___V2167*/ meltfptr[2166]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -67368,12 +67736,12 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2215*/ meltfptr[2214]; + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2233*/ meltfptr[2232]; /*^apply.arg*/ argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : DISCR_MAP_BASIC_BLOCKS*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2814*/ meltfptr[2783]), (melt_ptr_t)(/*_.VALDATA___V2213*/ meltfptr[2212]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2832*/ meltfptr[2801]), (melt_ptr_t)(/*_.VALDATA___V2231*/ meltfptr[2230]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -67381,12 +67749,12 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2211*/ meltfptr[2210]; + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2229*/ meltfptr[2228]; /*^apply.arg*/ argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : DISCR_MAP_EDGES*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2814*/ meltfptr[2783]), (melt_ptr_t)(/*_.VALDATA___V2209*/ meltfptr[2208]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2832*/ meltfptr[2801]), (melt_ptr_t)(/*_.VALDATA___V2227*/ meltfptr[2226]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -67394,12 +67762,12 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2203*/ meltfptr[2202]; + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2221*/ meltfptr[2220]; /*^apply.arg*/ argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : DISCR_MAP_GIMPLES*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2814*/ meltfptr[2783]), (melt_ptr_t)(/*_.VALDATA___V2201*/ meltfptr[2200]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2832*/ meltfptr[2801]), (melt_ptr_t)(/*_.VALDATA___V2219*/ meltfptr[2218]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -67407,12 +67775,12 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2207*/ meltfptr[2206]; + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2225*/ meltfptr[2224]; /*^apply.arg*/ argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : DISCR_MAP_GIMPLE_SEQS*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2814*/ meltfptr[2783]), (melt_ptr_t)(/*_.VALDATA___V2205*/ meltfptr[2204]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2832*/ meltfptr[2801]), (melt_ptr_t)(/*_.VALDATA___V2223*/ meltfptr[2222]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -67420,12 +67788,12 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2191*/ meltfptr[2190]; + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2209*/ meltfptr[2208]; /*^apply.arg*/ argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : DISCR_MAP_OBJECTS*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2814*/ meltfptr[2783]), (melt_ptr_t)(/*_.VALDATA___V2189*/ meltfptr[2188]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2832*/ meltfptr[2801]), (melt_ptr_t)(/*_.VALDATA___V2207*/ meltfptr[2206]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -67433,12 +67801,12 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2195*/ meltfptr[2194]; + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2213*/ meltfptr[2212]; /*^apply.arg*/ argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : DISCR_MAP_STRINGS*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2814*/ meltfptr[2783]), (melt_ptr_t)(/*_.VALDATA___V2193*/ meltfptr[2192]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2832*/ meltfptr[2801]), (melt_ptr_t)(/*_.VALDATA___V2211*/ meltfptr[2210]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -67446,12 +67814,12 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2199*/ meltfptr[2198]; + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2217*/ meltfptr[2216]; /*^apply.arg*/ argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : DISCR_MAP_TREES*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2814*/ meltfptr[2783]), (melt_ptr_t)(/*_.VALDATA___V2197*/ meltfptr[2196]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2832*/ meltfptr[2801]), (melt_ptr_t)(/*_.VALDATA___V2215*/ meltfptr[2214]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -67459,12 +67827,12 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2239*/ meltfptr[2238]; + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2257*/ meltfptr[2256]; /*^apply.arg*/ argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : DISCR_METHOD_MAP*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2814*/ meltfptr[2783]), (melt_ptr_t)(/*_.VALDATA___V2237*/ meltfptr[2236]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2832*/ meltfptr[2801]), (melt_ptr_t)(/*_.VALDATA___V2255*/ meltfptr[2254]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -67472,12 +67840,12 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2251*/ meltfptr[2250]; + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2269*/ meltfptr[2268]; /*^apply.arg*/ argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : DISCR_MIXED_BIGINT*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2814*/ meltfptr[2783]), (melt_ptr_t)(/*_.VALDATA___V2249*/ meltfptr[2248]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2832*/ meltfptr[2801]), (melt_ptr_t)(/*_.VALDATA___V2267*/ meltfptr[2266]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -67485,12 +67853,12 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2247*/ meltfptr[2246]; + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2265*/ meltfptr[2264]; /*^apply.arg*/ argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : DISCR_MIXED_INTEGER*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2814*/ meltfptr[2783]), (melt_ptr_t)(/*_.VALDATA___V2245*/ meltfptr[2244]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2832*/ meltfptr[2801]), (melt_ptr_t)(/*_.VALDATA___V2263*/ meltfptr[2262]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -67498,12 +67866,12 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2255*/ meltfptr[2254]; + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2273*/ meltfptr[2272]; /*^apply.arg*/ argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : DISCR_MIXED_LOCATION*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2814*/ meltfptr[2783]), (melt_ptr_t)(/*_.VALDATA___V2253*/ meltfptr[2252]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2832*/ meltfptr[2801]), (melt_ptr_t)(/*_.VALDATA___V2271*/ meltfptr[2270]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -67511,12 +67879,12 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2159*/ meltfptr[2158]; + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2177*/ meltfptr[2176]; /*^apply.arg*/ argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : DISCR_MULTIPLE*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2814*/ meltfptr[2783]), (melt_ptr_t)(/*_.VALDATA___V2157*/ meltfptr[2156]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2832*/ meltfptr[2801]), (melt_ptr_t)(/*_.VALDATA___V2175*/ meltfptr[2174]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -67524,12 +67892,12 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2119*/ meltfptr[2118]; + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2137*/ meltfptr[2136]; /*^apply.arg*/ argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : DISCR_NAME_STRING*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2814*/ meltfptr[2783]), (melt_ptr_t)(/*_.VALDATA___V2117*/ meltfptr[2116]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2832*/ meltfptr[2801]), (melt_ptr_t)(/*_.VALDATA___V2135*/ meltfptr[2134]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -67537,12 +67905,12 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2135*/ meltfptr[2134]; + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2153*/ meltfptr[2152]; /*^apply.arg*/ argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : DISCR_NULL_RECEIVER*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2814*/ meltfptr[2783]), (melt_ptr_t)(/*_.VALDATA___V2133*/ meltfptr[2132]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2832*/ meltfptr[2801]), (melt_ptr_t)(/*_.VALDATA___V2151*/ meltfptr[2150]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -67550,12 +67918,12 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2155*/ meltfptr[2154]; + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2173*/ meltfptr[2172]; /*^apply.arg*/ argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : DISCR_PAIR*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2814*/ meltfptr[2783]), (melt_ptr_t)(/*_.VALDATA___V2153*/ meltfptr[2152]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2832*/ meltfptr[2801]), (melt_ptr_t)(/*_.VALDATA___V2171*/ meltfptr[2170]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -67563,12 +67931,12 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2219*/ meltfptr[2218]; + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2237*/ meltfptr[2236]; /*^apply.arg*/ argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : DISCR_PPL_CONSTRAINT_SYSTEM*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2814*/ meltfptr[2783]), (melt_ptr_t)(/*_.VALDATA___V2217*/ meltfptr[2216]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2832*/ meltfptr[2801]), (melt_ptr_t)(/*_.VALDATA___V2235*/ meltfptr[2234]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -67576,12 +67944,12 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2223*/ meltfptr[2222]; + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2241*/ meltfptr[2240]; /*^apply.arg*/ argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : DISCR_PPL_POLYHEDRON*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2814*/ meltfptr[2783]), (melt_ptr_t)(/*_.VALDATA___V2221*/ meltfptr[2220]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2832*/ meltfptr[2801]), (melt_ptr_t)(/*_.VALDATA___V2239*/ meltfptr[2238]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -67589,12 +67957,12 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2231*/ meltfptr[2230]; + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2249*/ meltfptr[2248]; /*^apply.arg*/ argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : DISCR_RAWFILE*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2814*/ meltfptr[2783]), (melt_ptr_t)(/*_.VALDATA___V2229*/ meltfptr[2228]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2832*/ meltfptr[2801]), (melt_ptr_t)(/*_.VALDATA___V2247*/ meltfptr[2246]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -67602,12 +67970,12 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2263*/ meltfptr[2262]; + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2281*/ meltfptr[2280]; /*^apply.arg*/ argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : DISCR_ROUTINE*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2814*/ meltfptr[2783]), (melt_ptr_t)(/*_.VALDATA___V2261*/ meltfptr[2260]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2832*/ meltfptr[2801]), (melt_ptr_t)(/*_.VALDATA___V2279*/ meltfptr[2278]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -67615,12 +67983,12 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2139*/ meltfptr[2138]; + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2157*/ meltfptr[2156]; /*^apply.arg*/ argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : DISCR_STRBUF*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2814*/ meltfptr[2783]), (melt_ptr_t)(/*_.VALDATA___V2137*/ meltfptr[2136]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2832*/ meltfptr[2801]), (melt_ptr_t)(/*_.VALDATA___V2155*/ meltfptr[2154]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -67628,12 +67996,12 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2122*/ meltfptr[2121]; + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2140*/ meltfptr[2139]; /*^apply.arg*/ argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : DISCR_STRING*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2814*/ meltfptr[2783]), (melt_ptr_t)(/*_.VALDATA___V2120*/ meltfptr[2119]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2832*/ meltfptr[2801]), (melt_ptr_t)(/*_.VALDATA___V2138*/ meltfptr[2137]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -67641,12 +68009,12 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2171*/ meltfptr[2170]; + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2189*/ meltfptr[2188]; /*^apply.arg*/ argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : DISCR_TREE*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2814*/ meltfptr[2783]), (melt_ptr_t)(/*_.VALDATA___V2169*/ meltfptr[2168]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2832*/ meltfptr[2801]), (melt_ptr_t)(/*_.VALDATA___V2187*/ meltfptr[2186]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -67654,12 +68022,12 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2127*/ meltfptr[2126]; + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2145*/ meltfptr[2144]; /*^apply.arg*/ argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : DISCR_VERBATIM_STRING*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2814*/ meltfptr[2783]), (melt_ptr_t)(/*_.VALDATA___V2125*/ meltfptr[2124]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2832*/ meltfptr[2801]), (melt_ptr_t)(/*_.VALDATA___V2143*/ meltfptr[2142]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -67667,12 +68035,12 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2689*/ meltfptr[2688]; + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2707*/ meltfptr[2706]; /*^apply.arg*/ argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : INITIAL_ENVIRONMENT*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2814*/ meltfptr[2783]), (melt_ptr_t)(/*_.VALDATA___V2687*/ meltfptr[2686]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2832*/ meltfptr[2801]), (melt_ptr_t)(/*_.VALDATA___V2705*/ meltfptr[2704]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -67680,38 +68048,38 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2437*/ meltfptr[2436]; + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2455*/ meltfptr[2454]; /*^apply.arg*/ argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : INITIAL_SYSTEM_DATA*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2814*/ meltfptr[2783]), (melt_ptr_t)(/*_.VALDATA___V2575*/ meltfptr[2574]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2832*/ meltfptr[2801]), (melt_ptr_t)(/*_.VALDATA___V2593*/ meltfptr[2592]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.VALUEXPORTER___V2814*/ meltfptr[2783] = 0 ;} + /*clear*/ /*_.VALUEXPORTER___V2832*/ meltfptr[2801] = 0 ;} - MELT_LOCATION("warmelt-first.melt:3488:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:3497:/ initchunk"); /*^block*/ /*anyblock*/{ /*^getslot*/ { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(((void*)(MELT_PREDEF(INITIAL_SYSTEM_DATA)))), 4, "SYSDATA_VALUE_EXPORTER");/*_.VALUEXPORTER___V2815*/ meltfptr[2781] = slot; }; + melt_object_get_field(slot,(melt_ptr_t)(((void*)(MELT_PREDEF(INITIAL_SYSTEM_DATA)))), 4, "SYSDATA_VALUE_EXPORTER");/*_.VALUEXPORTER___V2833*/ meltfptr[2799] = slot; }; ; /*^apply*/ /*apply*/{ union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V2524*/ meltfptr[2523]; + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V2542*/ meltfptr[2541]; /*^apply.arg*/ argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : AT_EXIT_FIRST*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2815*/ meltfptr[2781]), (melt_ptr_t)(/*_.VALDATA___V2702*/ meltfptr[2701]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2833*/ meltfptr[2799]), (melt_ptr_t)(/*_.VALDATA___V2720*/ meltfptr[2719]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -67719,12 +68087,12 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V2526*/ meltfptr[2525]; + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V2544*/ meltfptr[2543]; /*^apply.arg*/ argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : AT_EXIT_LAST*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2815*/ meltfptr[2781]), (melt_ptr_t)(/*_.VALDATA___V2704*/ meltfptr[2703]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2833*/ meltfptr[2799]), (melt_ptr_t)(/*_.VALDATA___V2722*/ meltfptr[2721]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -67732,12 +68100,12 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V2536*/ meltfptr[2535]; + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V2554*/ meltfptr[2553]; /*^apply.arg*/ argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : AT_FINISH_UNIT_FIRST*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2815*/ meltfptr[2781]), (melt_ptr_t)(/*_.VALDATA___V2706*/ meltfptr[2705]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2833*/ meltfptr[2799]), (melt_ptr_t)(/*_.VALDATA___V2724*/ meltfptr[2723]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -67745,12 +68113,12 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V2538*/ meltfptr[2537]; + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V2556*/ meltfptr[2555]; /*^apply.arg*/ argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : AT_FINISH_UNIT_LAST*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2815*/ meltfptr[2781]), (melt_ptr_t)(/*_.VALDATA___V2708*/ meltfptr[2707]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2833*/ meltfptr[2799]), (melt_ptr_t)(/*_.VALDATA___V2726*/ meltfptr[2725]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -67758,12 +68126,12 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V2530*/ meltfptr[2529]; + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V2548*/ meltfptr[2547]; /*^apply.arg*/ argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : AT_START_UNIT_FIRST*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2815*/ meltfptr[2781]), (melt_ptr_t)(/*_.VALDATA___V2710*/ meltfptr[2709]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2833*/ meltfptr[2799]), (melt_ptr_t)(/*_.VALDATA___V2728*/ meltfptr[2727]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -67771,12 +68139,12 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V2532*/ meltfptr[2531]; + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V2550*/ meltfptr[2549]; /*^apply.arg*/ argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : AT_START_UNIT_LAST*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2815*/ meltfptr[2781]), (melt_ptr_t)(/*_.VALDATA___V2712*/ meltfptr[2711]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2833*/ meltfptr[2799]), (melt_ptr_t)(/*_.VALDATA___V2730*/ meltfptr[2729]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -67784,12 +68152,12 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V2512*/ meltfptr[2511]; + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V2530*/ meltfptr[2529]; /*^apply.arg*/ argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLONE_SYMBOL*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2815*/ meltfptr[2781]), (melt_ptr_t)(/*_.VALDATA___V2714*/ meltfptr[2713]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2833*/ meltfptr[2799]), (melt_ptr_t)(/*_.VALDATA___V2732*/ meltfptr[2731]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -67797,12 +68165,12 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V2682*/ meltfptr[2681]; + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V2700*/ meltfptr[2699]; /*^apply.arg*/ argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLOSURE_EVERY*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2815*/ meltfptr[2781]), (melt_ptr_t)(/*_.VALDATA___V2716*/ meltfptr[2715]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2833*/ meltfptr[2799]), (melt_ptr_t)(/*_.VALDATA___V2734*/ meltfptr[2733]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -67810,12 +68178,12 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V2557*/ meltfptr[2556]; + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V2575*/ meltfptr[2574]; /*^apply.arg*/ argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : COMPARE_OBJ_RANKED*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2815*/ meltfptr[2781]), (melt_ptr_t)(/*_.VALDATA___V2718*/ meltfptr[2717]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2833*/ meltfptr[2799]), (melt_ptr_t)(/*_.VALDATA___V2736*/ meltfptr[2735]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -67823,12 +68191,12 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V2695*/ meltfptr[2694]; + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V2713*/ meltfptr[2712]; /*^apply.arg*/ argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : FIND_ENCLOSING_ENV*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2815*/ meltfptr[2781]), (melt_ptr_t)(/*_.VALDATA___V2720*/ meltfptr[2719]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2833*/ meltfptr[2799]), (melt_ptr_t)(/*_.VALDATA___V2738*/ meltfptr[2737]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -67836,12 +68204,12 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V2449*/ meltfptr[2448]; + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V2467*/ meltfptr[2466]; /*^apply.arg*/ argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : FIND_ENV*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2815*/ meltfptr[2781]), (melt_ptr_t)(/*_.VALDATA___V2722*/ meltfptr[2721]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2833*/ meltfptr[2799]), (melt_ptr_t)(/*_.VALDATA___V2740*/ meltfptr[2739]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -67849,12 +68217,12 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V2693*/ meltfptr[2692]; + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V2711*/ meltfptr[2710]; /*^apply.arg*/ argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : FIND_ENV_DEBUG*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2815*/ meltfptr[2781]), (melt_ptr_t)(/*_.VALDATA___V2724*/ meltfptr[2723]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2833*/ meltfptr[2799]), (melt_ptr_t)(/*_.VALDATA___V2742*/ meltfptr[2741]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -67862,12 +68230,12 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V2445*/ meltfptr[2444]; + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V2463*/ meltfptr[2462]; /*^apply.arg*/ argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : FRESH_ENV*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2815*/ meltfptr[2781]), (melt_ptr_t)(/*_.VALDATA___V2726*/ meltfptr[2725]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2833*/ meltfptr[2799]), (melt_ptr_t)(/*_.VALDATA___V2744*/ meltfptr[2743]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -67875,12 +68243,12 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V2266*/ meltfptr[2265]; + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V2284*/ meltfptr[2283]; /*^apply.arg*/ argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : INSTALL_CTYPE_DESCR*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2815*/ meltfptr[2781]), (melt_ptr_t)(/*_.VALDATA___V2728*/ meltfptr[2727]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2833*/ meltfptr[2799]), (melt_ptr_t)(/*_.VALDATA___V2746*/ meltfptr[2745]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -67888,12 +68256,12 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V2686*/ meltfptr[2685]; + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V2704*/ meltfptr[2703]; /*^apply.arg*/ argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : INSTALL_METHOD*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2815*/ meltfptr[2781]), (melt_ptr_t)(/*_.VALDATA___V2730*/ meltfptr[2729]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2833*/ meltfptr[2799]), (melt_ptr_t)(/*_.VALDATA___V2748*/ meltfptr[2747]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -67901,12 +68269,12 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V2610*/ meltfptr[2609]; + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V2628*/ meltfptr[2627]; /*^apply.arg*/ argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : LIST_APPEND2LIST*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2815*/ meltfptr[2781]), (melt_ptr_t)(/*_.VALDATA___V2732*/ meltfptr[2731]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2833*/ meltfptr[2799]), (melt_ptr_t)(/*_.VALDATA___V2750*/ meltfptr[2749]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -67914,12 +68282,12 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V2473*/ meltfptr[2472]; + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V2491*/ meltfptr[2490]; /*^apply.arg*/ argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : LIST_EVERY*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2815*/ meltfptr[2781]), (melt_ptr_t)(/*_.VALDATA___V2734*/ meltfptr[2733]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2833*/ meltfptr[2799]), (melt_ptr_t)(/*_.VALDATA___V2752*/ meltfptr[2751]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -67927,12 +68295,12 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V2608*/ meltfptr[2607]; + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V2626*/ meltfptr[2625]; /*^apply.arg*/ argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : LIST_ITERATE_TEST*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2815*/ meltfptr[2781]), (melt_ptr_t)(/*_.VALDATA___V2736*/ meltfptr[2735]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2833*/ meltfptr[2799]), (melt_ptr_t)(/*_.VALDATA___V2754*/ meltfptr[2753]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -67940,12 +68308,12 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V2612*/ meltfptr[2611]; + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V2630*/ meltfptr[2629]; /*^apply.arg*/ argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : LIST_MAP*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2815*/ meltfptr[2781]), (melt_ptr_t)(/*_.VALDATA___V2738*/ meltfptr[2737]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2833*/ meltfptr[2799]), (melt_ptr_t)(/*_.VALDATA___V2756*/ meltfptr[2755]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -67953,12 +68321,12 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V2617*/ meltfptr[2616]; + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V2635*/ meltfptr[2634]; /*^apply.arg*/ argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : LIST_TO_MULTIPLE*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2815*/ meltfptr[2781]), (melt_ptr_t)(/*_.VALDATA___V2740*/ meltfptr[2739]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2833*/ meltfptr[2799]), (melt_ptr_t)(/*_.VALDATA___V2758*/ meltfptr[2757]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -67966,12 +68334,12 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V2554*/ meltfptr[2553]; + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V2572*/ meltfptr[2571]; /*^apply.arg*/ argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : MAPOBJECT_EVERY*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2815*/ meltfptr[2781]), (melt_ptr_t)(/*_.VALDATA___V2742*/ meltfptr[2741]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2833*/ meltfptr[2799]), (melt_ptr_t)(/*_.VALDATA___V2760*/ meltfptr[2759]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -67979,12 +68347,12 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V2578*/ meltfptr[2577]; + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V2596*/ meltfptr[2595]; /*^apply.arg*/ argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : MAPOBJECT_ITERATE_TEST*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2815*/ meltfptr[2781]), (melt_ptr_t)(/*_.VALDATA___V2744*/ meltfptr[2743]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2833*/ meltfptr[2799]), (melt_ptr_t)(/*_.VALDATA___V2762*/ meltfptr[2761]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -67992,12 +68360,12 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V2552*/ meltfptr[2551]; + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V2570*/ meltfptr[2569]; /*^apply.arg*/ argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : MAPOBJECT_SORTED_ATTRIBUTE_TUPLE*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2815*/ meltfptr[2781]), (melt_ptr_t)(/*_.VALDATA___V2746*/ meltfptr[2745]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2833*/ meltfptr[2799]), (melt_ptr_t)(/*_.VALDATA___V2764*/ meltfptr[2763]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -68005,12 +68373,12 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V2678*/ meltfptr[2677]; + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V2696*/ meltfptr[2695]; /*^apply.arg*/ argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : MULTIPLE_ITERATE_TEST*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2815*/ meltfptr[2781]), (melt_ptr_t)(/*_.VALDATA___V2748*/ meltfptr[2747]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2833*/ meltfptr[2799]), (melt_ptr_t)(/*_.VALDATA___V2766*/ meltfptr[2765]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -68018,12 +68386,12 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V2560*/ meltfptr[2559]; + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V2578*/ meltfptr[2577]; /*^apply.arg*/ argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : MULTIPLE_MAP*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2815*/ meltfptr[2781]), (melt_ptr_t)(/*_.VALDATA___V2750*/ meltfptr[2749]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2833*/ meltfptr[2799]), (melt_ptr_t)(/*_.VALDATA___V2768*/ meltfptr[2767]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -68031,12 +68399,12 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V2680*/ meltfptr[2679]; + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V2698*/ meltfptr[2697]; /*^apply.arg*/ argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : MULTIPLE_TO_LIST*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2815*/ meltfptr[2781]), (melt_ptr_t)(/*_.VALDATA___V2752*/ meltfptr[2751]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2833*/ meltfptr[2799]), (melt_ptr_t)(/*_.VALDATA___V2770*/ meltfptr[2769]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -68044,12 +68412,12 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V2697*/ meltfptr[2696]; + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V2715*/ meltfptr[2714]; /*^apply.arg*/ argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : OVERWRITE_ENV*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2815*/ meltfptr[2781]), (melt_ptr_t)(/*_.VALDATA___V2754*/ meltfptr[2753]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2833*/ meltfptr[2799]), (melt_ptr_t)(/*_.VALDATA___V2772*/ meltfptr[2771]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -68057,12 +68425,12 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V2619*/ meltfptr[2618]; + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V2637*/ meltfptr[2636]; /*^apply.arg*/ argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : PAIRLIST_TO_MULTIPLE*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2815*/ meltfptr[2781]), (melt_ptr_t)(/*_.VALDATA___V2756*/ meltfptr[2755]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2833*/ meltfptr[2799]), (melt_ptr_t)(/*_.VALDATA___V2774*/ meltfptr[2773]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -68070,12 +68438,12 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V2699*/ meltfptr[2698]; + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V2717*/ meltfptr[2716]; /*^apply.arg*/ argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : POST_INITIALIZATION*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2815*/ meltfptr[2781]), (melt_ptr_t)(/*_.VALDATA___V2758*/ meltfptr[2757]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2833*/ meltfptr[2799]), (melt_ptr_t)(/*_.VALDATA___V2776*/ meltfptr[2775]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -68083,12 +68451,12 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V2451*/ meltfptr[2450]; + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V2469*/ meltfptr[2468]; /*^apply.arg*/ argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : PUT_ENV*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2815*/ meltfptr[2781]), (melt_ptr_t)(/*_.VALDATA___V2760*/ meltfptr[2759]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2833*/ meltfptr[2799]), (melt_ptr_t)(/*_.VALDATA___V2778*/ meltfptr[2777]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -68096,12 +68464,12 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V2550*/ meltfptr[2549]; + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V2568*/ meltfptr[2567]; /*^apply.arg*/ argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : REGISTER_OPTION*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2815*/ meltfptr[2781]), (melt_ptr_t)(/*_.VALDATA___V2762*/ meltfptr[2761]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2833*/ meltfptr[2799]), (melt_ptr_t)(/*_.VALDATA___V2780*/ meltfptr[2779]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -68109,38 +68477,38 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V2684*/ meltfptr[2683]; + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V2702*/ meltfptr[2701]; /*^apply.arg*/ argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : ROUTINE_EVERY*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2815*/ meltfptr[2781]), (melt_ptr_t)(/*_.VALDATA___V2764*/ meltfptr[2763]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2833*/ meltfptr[2799]), (melt_ptr_t)(/*_.VALDATA___V2782*/ meltfptr[2781]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.VALUEXPORTER___V2815*/ meltfptr[2781] = 0 ;} + /*clear*/ /*_.VALUEXPORTER___V2833*/ meltfptr[2799] = 0 ;} - MELT_LOCATION("warmelt-first.melt:3525:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:3534:/ initchunk"); /*^block*/ /*anyblock*/{ /*^getslot*/ { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(((void*)(MELT_PREDEF(INITIAL_SYSTEM_DATA)))), 4, "SYSDATA_VALUE_EXPORTER");/*_.VALUEXPORTER___V2816*/ meltfptr[2782] = slot; }; + melt_object_get_field(slot,(melt_ptr_t)(((void*)(MELT_PREDEF(INITIAL_SYSTEM_DATA)))), 4, "SYSDATA_VALUE_EXPORTER");/*_.VALUEXPORTER___V2834*/ meltfptr[2800] = slot; }; ; /*^apply*/ /*apply*/{ union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2579*/ meltfptr[2578]; + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2597*/ meltfptr[2596]; /*^apply.arg*/ argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : FOREACH_IN_LIST*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2816*/ meltfptr[2782]), (melt_ptr_t)(/*_.VALDATA___V2766*/ meltfptr[2765]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2834*/ meltfptr[2800]), (melt_ptr_t)(/*_.VALDATA___V2784*/ meltfptr[2783]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -68153,7 +68521,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : FOREACH_IN_MAPOBJECT*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2816*/ meltfptr[2782]), (melt_ptr_t)(/*_.VALDATA___V2768*/ meltfptr[2767]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2834*/ meltfptr[2800]), (melt_ptr_t)(/*_.VALDATA___V2786*/ meltfptr[2785]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -68166,7 +68534,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : FOREACH_IN_MAPSTRING*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2816*/ meltfptr[2782]), (melt_ptr_t)(/*_.VALDATA___V2770*/ meltfptr[2769]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2834*/ meltfptr[2800]), (melt_ptr_t)(/*_.VALDATA___V2788*/ meltfptr[2787]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -68174,12 +68542,12 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2620*/ meltfptr[2619]; + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2638*/ meltfptr[2637]; /*^apply.arg*/ argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : FOREACH_IN_MULTIPLE*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2816*/ meltfptr[2782]), (melt_ptr_t)(/*_.VALDATA___V2772*/ meltfptr[2771]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2834*/ meltfptr[2800]), (melt_ptr_t)(/*_.VALDATA___V2790*/ meltfptr[2789]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -68187,12 +68555,12 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2650*/ meltfptr[2649]; + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2668*/ meltfptr[2667]; /*^apply.arg*/ argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : FOREACH_IN_MULTIPLE_BACKWARD*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2816*/ meltfptr[2782]), (melt_ptr_t)(/*_.VALDATA___V2774*/ meltfptr[2773]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2834*/ meltfptr[2800]), (melt_ptr_t)(/*_.VALDATA___V2792*/ meltfptr[2791]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -68205,7 +68573,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : INTEGERBOX_OF*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2816*/ meltfptr[2782]), (melt_ptr_t)(/*_.VALDATA___V2776*/ meltfptr[2775]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2834*/ meltfptr[2800]), (melt_ptr_t)(/*_.VALDATA___V2794*/ meltfptr[2793]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -68218,30 +68586,30 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLOSURE*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2816*/ meltfptr[2782]), (melt_ptr_t)(/*_.VALDATA___V2778*/ meltfptr[2777]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V2834*/ meltfptr[2800]), (melt_ptr_t)(/*_.VALDATA___V2796*/ meltfptr[2795]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.VALUEXPORTER___V2816*/ meltfptr[2782] = 0 ;} + /*clear*/ /*_.VALUEXPORTER___V2834*/ meltfptr[2800] = 0 ;} - MELT_LOCATION("warmelt-first.melt:3538:/ initchunk"); + MELT_LOCATION("warmelt-first.melt:3547:/ initchunk"); /*^block*/ /*anyblock*/{ /*^quasiblock*/ - /*_.TRUEKEYWORD__V2817*/ meltfptr[2807] = /*_.VALDATA___V2780*/ meltfptr[2779];; + /*_.TRUEKEYWORD__V2835*/ meltfptr[2825] = /*_.VALDATA___V2798*/ meltfptr[2797];; { - MELT_LOCATION("warmelt-first.melt:3539:/ locexp"); - MELT_STORE_PREDEF(TRUE,/*_.TRUEKEYWORD__V2817*/ meltfptr[2807]);} + MELT_LOCATION("warmelt-first.melt:3548:/ locexp"); + MELT_STORE_PREDEF(TRUE,/*_.TRUEKEYWORD__V2835*/ meltfptr[2825]);} ; - MELT_LOCATION("warmelt-first.melt:3538:/ clear"); - /*clear*/ /*_.TRUEKEYWORD__V2817*/ meltfptr[2807] = 0 ; + MELT_LOCATION("warmelt-first.melt:3547:/ clear"); + /*clear*/ /*_.TRUEKEYWORD__V2835*/ meltfptr[2825] = 0 ; /*epilog*/ } @@ -68800,7 +69168,15 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star /*internsym:MOCX_MODULENAME*/ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V827*/ meltfptr[826])); - /*internsym:MOCX_EXPFIELDICT*/ + +#undef meltfram__ +} /*end of warmelt_first_initialmeltchunk_18*/ + +void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_19 (struct frame_start_module_melt_st* meltframptr__, char predefinited[]) { +#define meltfram__ (*meltframptr__) +#undef meltcallcount +#define meltcallcount 0L +/*internsym:MOCX_EXPFIELDICT*/ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V829*/ meltfptr[828])); /*internsym:MOCX_EXPCLASSDICT*/ @@ -68896,15 +69272,7 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_18 (struct frame_star /*internsym:CLASS_INITIAL_GENERATION_CONTEXT*/ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V947*/ meltfptr[946])); - -#undef meltfram__ -} /*end of warmelt_first_initialmeltchunk_18*/ - -void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_19 (struct frame_start_module_melt_st* meltframptr__, char predefinited[]) { -#define meltfram__ (*meltframptr__) -#undef meltcallcount -#define meltcallcount 0L -/*internsym:IGNCX_PREVENVLOC*/ + /*internsym:IGNCX_PREVENVLOC*/ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V961*/ meltfptr[960])); /*internsym:IGNCX_CONTENVLOC*/ @@ -69309,442 +69677,448 @@ void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_19 (struct frame_star /*internsym:LIST_LAST*/ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2006*/ meltfptr[2005])); - /*internsym:LIST_LENGTH*/ + /*internsym:LIST_FIRST_ELEMENT*/ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2015*/ meltfptr[2014])); - /*internsym:LIST_APPEND*/ + /*internsym:LIST_LAST_ELEMENT*/ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2024*/ meltfptr[2023])); + /*internsym:LIST_LENGTH*/ + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2033*/ meltfptr[2032])); + + /*internsym:LIST_APPEND*/ + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2042*/ meltfptr[2041])); + /*internsym:EL*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2030*/ meltfptr[2029])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2048*/ meltfptr[2047])); /*internsym:LIST_PREPEND*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2037*/ meltfptr[2036])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2055*/ meltfptr[2054])); /*internsym:LIST_POPFIRST*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2048*/ meltfptr[2047])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2066*/ meltfptr[2065])); /*internsym:MAKE_LIST*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2057*/ meltfptr[2056])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2075*/ meltfptr[2074])); /*internsym:IS_PAIR*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2066*/ meltfptr[2065])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2084*/ meltfptr[2083])); /*internsym:PA*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2071*/ meltfptr[2070])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2089*/ meltfptr[2088])); /*internsym:PAIR_HEAD*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2077*/ meltfptr[2076])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2095*/ meltfptr[2094])); /*internsym:PAIR_TAIL*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2086*/ meltfptr[2085])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2104*/ meltfptr[2103])); /*internsym:WARNINGMSG_STRV*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2095*/ meltfptr[2094])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2113*/ meltfptr[2112])); /*internsym:INFORMSG_LONG*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2106*/ meltfptr[2105])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2124*/ meltfptr[2123])); /*internsym:DISCR_NAME_STRING*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2117*/ meltfptr[2116])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2135*/ meltfptr[2134])); /*internsym:DISCR_STRING*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2120*/ meltfptr[2119])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2138*/ meltfptr[2137])); /*internsym:DISCR_VERBATIM_STRING*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2125*/ meltfptr[2124])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2143*/ meltfptr[2142])); /*internsym:DISCR_ANY_RECEIVER*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2129*/ meltfptr[2128])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2147*/ meltfptr[2146])); /*internsym:DISCR_NULL_RECEIVER*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2133*/ meltfptr[2132])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2151*/ meltfptr[2150])); /*internsym:DISCR_STRBUF*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2137*/ meltfptr[2136])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2155*/ meltfptr[2154])); /*internsym:DISCR_INTEGER*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2141*/ meltfptr[2140])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2159*/ meltfptr[2158])); /*internsym:DISCR_CONSTANT_INTEGER*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2145*/ meltfptr[2144])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2163*/ meltfptr[2162])); /*internsym:DISCR_LIST*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2149*/ meltfptr[2148])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2167*/ meltfptr[2166])); /*internsym:DISCR_PAIR*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2153*/ meltfptr[2152])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2171*/ meltfptr[2170])); /*internsym:DISCR_MULTIPLE*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2157*/ meltfptr[2156])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2175*/ meltfptr[2174])); /*internsym:DISCR_FIELD_SEQUENCE*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2161*/ meltfptr[2160])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2179*/ meltfptr[2178])); /*internsym:DISCR_BOX*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2165*/ meltfptr[2164])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2183*/ meltfptr[2182])); /*internsym:DISCR_TREE*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2169*/ meltfptr[2168])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2187*/ meltfptr[2186])); /*internsym:DISCR_GIMPLE*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2173*/ meltfptr[2172])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2191*/ meltfptr[2190])); /*internsym:DISCR_GIMPLE_SEQ*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2177*/ meltfptr[2176])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2195*/ meltfptr[2194])); /*internsym:DISCR_EDGE*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2181*/ meltfptr[2180])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2199*/ meltfptr[2198])); /*internsym:DISCR_BASIC_BLOCK*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2185*/ meltfptr[2184])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2203*/ meltfptr[2202])); /*internsym:DISCR_MAP_OBJECTS*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2189*/ meltfptr[2188])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2207*/ meltfptr[2206])); /*internsym:DISCR_MAP_STRINGS*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2193*/ meltfptr[2192])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2211*/ meltfptr[2210])); /*internsym:DISCR_MAP_TREES*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2197*/ meltfptr[2196])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2215*/ meltfptr[2214])); /*internsym:DISCR_MAP_GIMPLES*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2201*/ meltfptr[2200])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2219*/ meltfptr[2218])); /*internsym:DISCR_MAP_GIMPLE_SEQS*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2205*/ meltfptr[2204])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2223*/ meltfptr[2222])); /*internsym:DISCR_MAP_EDGES*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2209*/ meltfptr[2208])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2227*/ meltfptr[2226])); /*internsym:DISCR_MAP_BASIC_BLOCKS*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2213*/ meltfptr[2212])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2231*/ meltfptr[2230])); /*internsym:DISCR_PPL_CONSTRAINT_SYSTEM*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2217*/ meltfptr[2216])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2235*/ meltfptr[2234])); /*internsym:DISCR_PPL_POLYHEDRON*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2221*/ meltfptr[2220])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2239*/ meltfptr[2238])); /*internsym:DISCR_FILE*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2225*/ meltfptr[2224])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2243*/ meltfptr[2242])); /*internsym:DISCR_RAWFILE*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2229*/ meltfptr[2228])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2247*/ meltfptr[2246])); /*internsym:DISCR_CLASS_SEQUENCE*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2233*/ meltfptr[2232])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2251*/ meltfptr[2250])); /*internsym:DISCR_METHOD_MAP*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2237*/ meltfptr[2236])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2255*/ meltfptr[2254])); /*internsym:DISCR_CHARACTER_INTEGER*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2241*/ meltfptr[2240])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2259*/ meltfptr[2258])); /*internsym:DISCR_MIXED_INTEGER*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2245*/ meltfptr[2244])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2263*/ meltfptr[2262])); /*internsym:DISCR_MIXED_BIGINT*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2249*/ meltfptr[2248])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2267*/ meltfptr[2266])); /*internsym:DISCR_MIXED_LOCATION*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2253*/ meltfptr[2252])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2271*/ meltfptr[2270])); /*internsym:DISCR_CLOSURE*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2257*/ meltfptr[2256])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2275*/ meltfptr[2274])); /*internsym:DISCR_ROUTINE*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2261*/ meltfptr[2260])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2279*/ meltfptr[2278])); /*internsym:CTYPE_VALUE*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2267*/ meltfptr[2266])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2285*/ meltfptr[2284])); /*internkeyw:VALUE*/ - (void) meltgc_intern_keyword((melt_ptr_t)(/*_.VALDATA___V2271*/ meltfptr[2270])); + (void) meltgc_intern_keyword((melt_ptr_t)(/*_.VALDATA___V2289*/ meltfptr[2288])); /*internsym:CTYPE_LONG*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2279*/ meltfptr[2278])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2297*/ meltfptr[2296])); /*internkeyw:LONG*/ - (void) meltgc_intern_keyword((melt_ptr_t)(/*_.VALDATA___V2283*/ meltfptr[2282])); + (void) meltgc_intern_keyword((melt_ptr_t)(/*_.VALDATA___V2301*/ meltfptr[2300])); /*internsym:CTYPE_TREE*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2290*/ meltfptr[2289])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2308*/ meltfptr[2307])); /*internkeyw:TREE*/ - (void) meltgc_intern_keyword((melt_ptr_t)(/*_.VALDATA___V2294*/ meltfptr[2293])); + (void) meltgc_intern_keyword((melt_ptr_t)(/*_.VALDATA___V2312*/ meltfptr[2311])); /*internsym:CTYPE_GIMPLE*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2302*/ meltfptr[2301])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2320*/ meltfptr[2319])); /*internkeyw:GIMPLE*/ - (void) meltgc_intern_keyword((melt_ptr_t)(/*_.VALDATA___V2306*/ meltfptr[2305])); + (void) meltgc_intern_keyword((melt_ptr_t)(/*_.VALDATA___V2324*/ meltfptr[2323])); /*internsym:CTYPE_GIMPLE_SEQ*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2314*/ meltfptr[2313])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2332*/ meltfptr[2331])); /*internkeyw:GIMPLE_SEQ*/ - (void) meltgc_intern_keyword((melt_ptr_t)(/*_.VALDATA___V2318*/ meltfptr[2317])); + (void) meltgc_intern_keyword((melt_ptr_t)(/*_.VALDATA___V2336*/ meltfptr[2335])); /*internsym:CTYPE_BASIC_BLOCK*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2326*/ meltfptr[2325])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2344*/ meltfptr[2343])); /*internkeyw:BASIC_BLOCK*/ - (void) meltgc_intern_keyword((melt_ptr_t)(/*_.VALDATA___V2330*/ meltfptr[2329])); + (void) meltgc_intern_keyword((melt_ptr_t)(/*_.VALDATA___V2348*/ meltfptr[2347])); /*internsym:CTYPE_EDGE*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2338*/ meltfptr[2337])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2356*/ meltfptr[2355])); /*internkeyw:EDGE*/ - (void) meltgc_intern_keyword((melt_ptr_t)(/*_.VALDATA___V2342*/ meltfptr[2341])); + (void) meltgc_intern_keyword((melt_ptr_t)(/*_.VALDATA___V2360*/ meltfptr[2359])); /*internsym:CTYPE_PPL_COEFFICIENT*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2350*/ meltfptr[2349])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2368*/ meltfptr[2367])); /*internkeyw:PPL_COEFFICIENT*/ - (void) meltgc_intern_keyword((melt_ptr_t)(/*_.VALDATA___V2354*/ meltfptr[2353])); + (void) meltgc_intern_keyword((melt_ptr_t)(/*_.VALDATA___V2372*/ meltfptr[2371])); /*internsym:CTYPE_PPL_LINEAR_EXPRESSION*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2361*/ meltfptr[2360])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2379*/ meltfptr[2378])); /*internkeyw:PPL_LINEAR_EXPRESSION*/ - (void) meltgc_intern_keyword((melt_ptr_t)(/*_.VALDATA___V2365*/ meltfptr[2364])); + (void) meltgc_intern_keyword((melt_ptr_t)(/*_.VALDATA___V2383*/ meltfptr[2382])); /*internsym:CTYPE_PPL_CONSTRAINT*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2372*/ meltfptr[2371])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2390*/ meltfptr[2389])); /*internkeyw:PPL_CONSTRAINT*/ - (void) meltgc_intern_keyword((melt_ptr_t)(/*_.VALDATA___V2376*/ meltfptr[2375])); + (void) meltgc_intern_keyword((melt_ptr_t)(/*_.VALDATA___V2394*/ meltfptr[2393])); /*internsym:CTYPE_PPL_CONSTRAINT_SYSTEM*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2383*/ meltfptr[2382])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2401*/ meltfptr[2400])); /*internkeyw:PPL_CONSTRAINT_SYSTEM*/ - (void) meltgc_intern_keyword((melt_ptr_t)(/*_.VALDATA___V2387*/ meltfptr[2386])); + (void) meltgc_intern_keyword((melt_ptr_t)(/*_.VALDATA___V2405*/ meltfptr[2404])); /*internsym:CTYPE_PPL_POLYHEDRON*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2394*/ meltfptr[2393])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2412*/ meltfptr[2411])); /*internkeyw:PPL_POLYHEDRON*/ - (void) meltgc_intern_keyword((melt_ptr_t)(/*_.VALDATA___V2398*/ meltfptr[2397])); + (void) meltgc_intern_keyword((melt_ptr_t)(/*_.VALDATA___V2416*/ meltfptr[2415])); /*internsym:CTYPE_VOID*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2405*/ meltfptr[2404])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2423*/ meltfptr[2422])); /*internkeyw:VOID*/ - (void) meltgc_intern_keyword((melt_ptr_t)(/*_.VALDATA___V2409*/ meltfptr[2408])); + (void) meltgc_intern_keyword((melt_ptr_t)(/*_.VALDATA___V2427*/ meltfptr[2426])); /*internsym:CTYPE_CSTRING*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2412*/ meltfptr[2411])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2430*/ meltfptr[2429])); /*internkeyw:CSTRING*/ - (void) meltgc_intern_keyword((melt_ptr_t)(/*_.VALDATA___V2417*/ meltfptr[2416])); + (void) meltgc_intern_keyword((melt_ptr_t)(/*_.VALDATA___V2435*/ meltfptr[2434])); /*internsym:CONTAINER_CLONEMAPSTRING*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2430*/ meltfptr[2429])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2448*/ meltfptr[2447])); /*internsym:CLASS_DELAYED_QUEUE*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2513*/ meltfptr[2512])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2531*/ meltfptr[2530])); /*internsym:DELQU_FIRST*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2515*/ meltfptr[2514])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2533*/ meltfptr[2532])); /*internsym:DELQU_LAST*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2517*/ meltfptr[2516])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2535*/ meltfptr[2534])); /*internsym:DELQU_DATA*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2519*/ meltfptr[2518])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2537*/ meltfptr[2536])); /*internsym:FINAL_DELAYED_QUEUE*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2521*/ meltfptr[2520])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2539*/ meltfptr[2538])); /*internsym:START_UNIT_DELAYED_QUEUE*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2527*/ meltfptr[2526])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2545*/ meltfptr[2544])); /*internsym:FINISH_UNIT_DELAYED_QUEUE*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2533*/ meltfptr[2532])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2551*/ meltfptr[2550])); /*internsym:OPTION_MAP_CONTAINER*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2539*/ meltfptr[2538])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2557*/ meltfptr[2556])); /*internsym:CLASS_OPTION_DESCRIPTOR*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2541*/ meltfptr[2540])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2559*/ meltfptr[2558])); - /*internsym:OPTDESC_NAME*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2543*/ meltfptr[2542])); + +#undef meltfram__ +} /*end of warmelt_first_initialmeltchunk_19*/ + +void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_20 (struct frame_start_module_melt_st* meltframptr__, char predefinited[]) { +#define meltfram__ (*meltframptr__) +#undef meltcallcount +#define meltcallcount 0L +/*internsym:OPTDESC_NAME*/ + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2561*/ meltfptr[2560])); /*internsym:OPTDESC_FUN*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2545*/ meltfptr[2544])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2563*/ meltfptr[2562])); /*internsym:OPTDESC_HELP*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2547*/ meltfptr[2546])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2565*/ meltfptr[2564])); /*internsym:HELP*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2565*/ meltfptr[2564])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2583*/ meltfptr[2582])); /*internsym:MELT_ERROR_COUNTER*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2568*/ meltfptr[2567])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2586*/ meltfptr[2585])); /*internsym:INITIAL_SYSTEM_DATA*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2575*/ meltfptr[2574])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2593*/ meltfptr[2592])); /*internsym:LIS*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2582*/ meltfptr[2581])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2600*/ meltfptr[2599])); /*internsym:EACHLIST*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2585*/ meltfptr[2584])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2603*/ meltfptr[2602])); /*internsym:CURPAIR*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2588*/ meltfptr[2587])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2606*/ meltfptr[2605])); /*internsym:CURCOMP*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2591*/ meltfptr[2590])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2609*/ meltfptr[2608])); /*internsym:TUP*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2623*/ meltfptr[2622])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2641*/ meltfptr[2640])); /*internsym:EACHTUP*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2626*/ meltfptr[2625])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2644*/ meltfptr[2643])); /*internsym:COMP*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2629*/ meltfptr[2628])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2647*/ meltfptr[2646])); /*internsym:EACHTUPBACK*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2654*/ meltfptr[2653])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2672*/ meltfptr[2671])); /*internsym:INITIAL_ENVIRONMENT*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2687*/ meltfptr[2686])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2705*/ meltfptr[2704])); /*internsym:LIST_FIND*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2700*/ meltfptr[2699])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2718*/ meltfptr[2717])); /*internsym:AT_EXIT_FIRST*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2702*/ meltfptr[2701])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2720*/ meltfptr[2719])); /*internsym:AT_EXIT_LAST*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2704*/ meltfptr[2703])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2722*/ meltfptr[2721])); /*internsym:AT_FINISH_UNIT_FIRST*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2706*/ meltfptr[2705])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2724*/ meltfptr[2723])); /*internsym:AT_FINISH_UNIT_LAST*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2708*/ meltfptr[2707])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2726*/ meltfptr[2725])); /*internsym:AT_START_UNIT_FIRST*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2710*/ meltfptr[2709])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2728*/ meltfptr[2727])); /*internsym:AT_START_UNIT_LAST*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2712*/ meltfptr[2711])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2730*/ meltfptr[2729])); /*internsym:CLONE_SYMBOL*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2714*/ meltfptr[2713])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2732*/ meltfptr[2731])); /*internsym:CLOSURE_EVERY*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2716*/ meltfptr[2715])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2734*/ meltfptr[2733])); /*internsym:COMPARE_OBJ_RANKED*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2718*/ meltfptr[2717])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2736*/ meltfptr[2735])); /*internsym:FIND_ENCLOSING_ENV*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2720*/ meltfptr[2719])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2738*/ meltfptr[2737])); /*internsym:FIND_ENV*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2722*/ meltfptr[2721])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2740*/ meltfptr[2739])); /*internsym:FIND_ENV_DEBUG*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2724*/ meltfptr[2723])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2742*/ meltfptr[2741])); /*internsym:FRESH_ENV*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2726*/ meltfptr[2725])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2744*/ meltfptr[2743])); /*internsym:INSTALL_CTYPE_DESCR*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2728*/ meltfptr[2727])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2746*/ meltfptr[2745])); /*internsym:INSTALL_METHOD*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2730*/ meltfptr[2729])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2748*/ meltfptr[2747])); /*internsym:LIST_APPEND2LIST*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2732*/ meltfptr[2731])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2750*/ meltfptr[2749])); /*internsym:LIST_EVERY*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2734*/ meltfptr[2733])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2752*/ meltfptr[2751])); /*internsym:LIST_ITERATE_TEST*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2736*/ meltfptr[2735])); - + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2754*/ meltfptr[2753])); -#undef meltfram__ -} /*end of warmelt_first_initialmeltchunk_19*/ - -void MELT_MODULE_VISIBILITY warmelt_first_initialmeltchunk_20 (struct frame_start_module_melt_st* meltframptr__, char predefinited[]) { -#define meltfram__ (*meltframptr__) -#undef meltcallcount -#define meltcallcount 0L -/*internsym:LIST_MAP*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2738*/ meltfptr[2737])); + /*internsym:LIST_MAP*/ + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2756*/ meltfptr[2755])); /*internsym:LIST_TO_MULTIPLE*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2740*/ meltfptr[2739])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2758*/ meltfptr[2757])); /*internsym:MAPOBJECT_EVERY*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2742*/ meltfptr[2741])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2760*/ meltfptr[2759])); /*internsym:MAPOBJECT_ITERATE_TEST*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2744*/ meltfptr[2743])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2762*/ meltfptr[2761])); /*internsym:MAPOBJECT_SORTED_ATTRIBUTE_TUPLE*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2746*/ meltfptr[2745])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2764*/ meltfptr[2763])); /*internsym:MULTIPLE_ITERATE_TEST*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2748*/ meltfptr[2747])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2766*/ meltfptr[2765])); /*internsym:MULTIPLE_MAP*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2750*/ meltfptr[2749])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2768*/ meltfptr[2767])); /*internsym:MULTIPLE_TO_LIST*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2752*/ meltfptr[2751])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2770*/ meltfptr[2769])); /*internsym:OVERWRITE_ENV*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2754*/ meltfptr[2753])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2772*/ meltfptr[2771])); /*internsym:PAIRLIST_TO_MULTIPLE*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2756*/ meltfptr[2755])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2774*/ meltfptr[2773])); /*internsym:POST_INITIALIZATION*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2758*/ meltfptr[2757])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2776*/ meltfptr[2775])); /*internsym:PUT_ENV*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2760*/ meltfptr[2759])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2778*/ meltfptr[2777])); /*internsym:REGISTER_OPTION*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2762*/ meltfptr[2761])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2780*/ meltfptr[2779])); /*internsym:ROUTINE_EVERY*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2764*/ meltfptr[2763])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2782*/ meltfptr[2781])); /*internsym:FOREACH_IN_LIST*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2766*/ meltfptr[2765])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2784*/ meltfptr[2783])); /*internsym:FOREACH_IN_MAPOBJECT*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2768*/ meltfptr[2767])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2786*/ meltfptr[2785])); /*internsym:FOREACH_IN_MAPSTRING*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2770*/ meltfptr[2769])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2788*/ meltfptr[2787])); /*internsym:FOREACH_IN_MULTIPLE*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2772*/ meltfptr[2771])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2790*/ meltfptr[2789])); /*internsym:FOREACH_IN_MULTIPLE_BACKWARD*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2774*/ meltfptr[2773])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2792*/ meltfptr[2791])); /*internsym:INTEGERBOX_OF*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2776*/ meltfptr[2775])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2794*/ meltfptr[2793])); /*internsym:CLOSURE*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2778*/ meltfptr[2777])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2796*/ meltfptr[2795])); /*internkeyw:TRUE*/ - (void) meltgc_intern_keyword((melt_ptr_t)(/*_.VALDATA___V2780*/ meltfptr[2779])); + (void) meltgc_intern_keyword((melt_ptr_t)(/*_.VALDATA___V2798*/ meltfptr[2797])); /**COMMENT: set retinit from boxloc **/; @@ -69760,7 +70134,7 @@ void mark_module_melt(void*fp) { int ix=0; initial_frame_st* framptr_= (initial_frame_st*)fp; - for(ix=0; ix<2817; ix++) + for(ix=0; ix<2835; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_melt_un (framptr_->varptr[ix]); diff --git a/gcc/melt/generated/warmelt-genobj.0+03.c b/gcc/melt/generated/warmelt-genobj.0+03.c index dd452dc738e..9c32292d9c1 100644 --- a/gcc/melt/generated/warmelt-genobj.0+03.c +++ b/gcc/melt/generated/warmelt-genobj.0+03.c @@ -6396,7 +6396,7 @@ lab_endgetargs:; /*^putpairhead*/ /*putpairhead*/ - melt_assertmsg("putpairhead /cfc3aae checkpair", melt_magic_discr((melt_ptr_t)(/*_.OCONTENVLOC__V11*/ meltfptr[10]))== OBMAG_PAIR); + melt_assertmsg("putpairhead /390ed934 checkpair", melt_magic_discr((melt_ptr_t)(/*_.OCONTENVLOC__V11*/ meltfptr[10]))== OBMAG_PAIR); ((meltpair_ptr_t)(/*_.OCONTENVLOC__V11*/ meltfptr[10]))->hd = (melt_ptr_t) ((/*~OCONTENVLOC*/ meltfclos->tabval[4])); ; /*^touch*/ @@ -16947,12 +16947,12 @@ lab_endgetargs:; /*^putpairhead*/ /*putpairhead*/ - melt_assertmsg("putpairhead /5abc694 checkpair", melt_magic_discr((melt_ptr_t)(/*_.OSUCC__V41*/ meltfptr[37]))== OBMAG_PAIR); + melt_assertmsg("putpairhead /388d3a48 checkpair", melt_magic_discr((melt_ptr_t)(/*_.OSUCC__V41*/ meltfptr[37]))== OBMAG_PAIR); ((meltpair_ptr_t)(/*_.OSUCC__V41*/ meltfptr[37]))->hd = (melt_ptr_t) (/*_.OSUCC__V33*/ meltfptr[32]); ; /*^putpairtail*/ /*putpairtail*/ - melt_assertmsg("putpairtail /2b91bea7 checkpair", melt_magic_discr((melt_ptr_t)(/*_.OSUCC__V41*/ meltfptr[37]))== OBMAG_PAIR); + melt_assertmsg("putpairtail /2eb45cd4 checkpair", melt_magic_discr((melt_ptr_t)(/*_.OSUCC__V41*/ meltfptr[37]))== OBMAG_PAIR); ((meltpair_ptr_t)(/*_.OSUCC__V41*/ meltfptr[37]))->tl = (meltpair_ptr_t) (/*_.GOTOEND__V42*/ meltfptr[38]); ; /*^touch*/ @@ -16960,7 +16960,7 @@ lab_endgetargs:; ; /*^putpairhead*/ /*putpairhead*/ - melt_assertmsg("putpairhead /29d9a372 checkpair", melt_magic_discr((melt_ptr_t)(/*_.GOTOEND__V42*/ meltfptr[38]))== OBMAG_PAIR); + melt_assertmsg("putpairhead /1fd77cbf checkpair", melt_magic_discr((melt_ptr_t)(/*_.GOTOEND__V42*/ meltfptr[38]))== OBMAG_PAIR); ((meltpair_ptr_t)(/*_.GOTOEND__V42*/ meltfptr[38]))->hd = (melt_ptr_t) (/*_.GOTOEND__V23*/ meltfptr[22]); ; /*^touch*/ @@ -23016,7 +23016,7 @@ lab_endgetargs:; /*^putpairhead*/ /*putpairhead*/ - melt_assertmsg("putpairhead /11db705a checkpair", melt_magic_discr((melt_ptr_t)(/*_.OTESTCLOS__V69*/ meltfptr[68]))== OBMAG_PAIR); + melt_assertmsg("putpairhead /27fada76 checkpair", melt_magic_discr((melt_ptr_t)(/*_.OTESTCLOS__V69*/ meltfptr[68]))== OBMAG_PAIR); ((meltpair_ptr_t)(/*_.OTESTCLOS__V69*/ meltfptr[68]))->hd = (melt_ptr_t) (/*_.OTESTCLOS__V38*/ meltfptr[37]); ; /*^touch*/ @@ -23091,7 +23091,7 @@ lab_endgetargs:; /*^putpairhead*/ /*putpairhead*/ - melt_assertmsg("putpairhead /2dc9236c checkpair", melt_magic_discr((melt_ptr_t)(/*_.OTESTRES__V74*/ meltfptr[73]))== OBMAG_PAIR); + melt_assertmsg("putpairhead /363c3d81 checkpair", melt_magic_discr((melt_ptr_t)(/*_.OTESTRES__V74*/ meltfptr[73]))== OBMAG_PAIR); ((meltpair_ptr_t)(/*_.OTESTRES__V74*/ meltfptr[73]))->hd = (melt_ptr_t) (/*_.OTESTRES__V37*/ meltfptr[36]); ; /*^touch*/ diff --git a/gcc/melt/generated/warmelt-genobj.0.c b/gcc/melt/generated/warmelt-genobj.0.c index f62ac0a2f93..a8ee4ede0b6 100644 --- a/gcc/melt/generated/warmelt-genobj.0.c +++ b/gcc/melt/generated/warmelt-genobj.0.c @@ -3,7 +3,7 @@ #ifndef MELTGCC_DYNAMIC_OBJSTRUCT /* version string of the gcc executable generating this file: */ const char genversionstr_melt[]= - "4.5.0 20100223 (experimental) [melt-branch revision 157055]"; + "4.5.0 20100310 (experimental) [melt-branch revision 157367]"; #endif #include "run-melt.h" @@ -5571,7 +5571,7 @@ lab_endgetargs:; /*^putpairhead*/ /*putpairhead*/ - melt_assertmsg("putpairhead /261d1af1 checkpair", melt_magic_discr((melt_ptr_t)(/*_.OFRESHENV__V69*/ meltfptr[68]))== OBMAG_PAIR); + melt_assertmsg("putpairhead /3d389562 checkpair", melt_magic_discr((melt_ptr_t)(/*_.OFRESHENV__V69*/ meltfptr[68]))== OBMAG_PAIR); ((meltpair_ptr_t)(/*_.OFRESHENV__V69*/ meltfptr[68]))->hd = (melt_ptr_t) (/*_.OFRESHENV__V55*/ meltfptr[54]); ; /*^touch*/ @@ -5744,7 +5744,7 @@ lab_endgetargs:; /*^putpairhead*/ /*putpairhead*/ - melt_assertmsg("putpairhead /4ef0d84 checkpair", melt_magic_discr((melt_ptr_t)(/*_.BOXLOC__V82*/ meltfptr[81]))== OBMAG_PAIR); + melt_assertmsg("putpairhead /2ab125c5 checkpair", melt_magic_discr((melt_ptr_t)(/*_.BOXLOC__V82*/ meltfptr[81]))== OBMAG_PAIR); ((meltpair_ptr_t)(/*_.BOXLOC__V82*/ meltfptr[81]))->hd = (melt_ptr_t) (/*_.BOXLOC__V54*/ meltfptr[52]); ; /*^touch*/ @@ -6290,7 +6290,7 @@ lab_endgetargs:; /*^putpairhead*/ /*putpairhead*/ - melt_assertmsg("putpairhead /2a247b71 checkpair", melt_magic_discr((melt_ptr_t)(/*_.OVALUEIMPORTER__V127*/ meltfptr[126]))== OBMAG_PAIR); + melt_assertmsg("putpairhead /42fb37a checkpair", melt_magic_discr((melt_ptr_t)(/*_.OVALUEIMPORTER__V127*/ meltfptr[126]))== OBMAG_PAIR); ((meltpair_ptr_t)(/*_.OVALUEIMPORTER__V127*/ meltfptr[126]))->hd = (melt_ptr_t) (/*_.OVALUEIMPORTER__V60*/ meltfptr[59]); ; /*^touch*/ @@ -6624,7 +6624,7 @@ lab_endgetargs:; /*^putpairhead*/ /*putpairhead*/ - melt_assertmsg("putpairhead /20b02bd9 checkpair", melt_magic_discr((melt_ptr_t)(/*_.RETINIT__V150*/ meltfptr[120]))== OBMAG_PAIR); + melt_assertmsg("putpairhead /2d1e56a7 checkpair", melt_magic_discr((melt_ptr_t)(/*_.RETINIT__V150*/ meltfptr[120]))== OBMAG_PAIR); ((meltpair_ptr_t)(/*_.RETINIT__V150*/ meltfptr[120]))->hd = (melt_ptr_t) (/*_.RETINIT__V51*/ meltfptr[49]); ; /*^touch*/ @@ -8345,7 +8345,7 @@ lab_endgetargs:; /*^putpairhead*/ /*putpairhead*/ - melt_assertmsg("putpairhead /365a403f checkpair", melt_magic_discr((melt_ptr_t)(/*_.OIMPLOCV__V14*/ meltfptr[13]))== OBMAG_PAIR); + melt_assertmsg("putpairhead /1e316b6 checkpair", melt_magic_discr((melt_ptr_t)(/*_.OIMPLOCV__V14*/ meltfptr[13]))== OBMAG_PAIR); ((meltpair_ptr_t)(/*_.OIMPLOCV__V14*/ meltfptr[13]))->hd = (melt_ptr_t) (/*_.OIMPLOCV__V12*/ meltfptr[11]); ; /*^touch*/ @@ -14955,7 +14955,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_5__CLASS_OBJVALUE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_5__CLASS_OBJVALUE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_5__CLASS_OBJVALUE.obj_num = OBMAG_OBJECT; - cdat->dobj_5__CLASS_OBJVALUE.obj_hash = 392359387; + cdat->dobj_5__CLASS_OBJVALUE.obj_hash = 145279710; cdat->dobj_5__CLASS_OBJVALUE.obj_len = 8; /*inistring dstr_6__CLASS_OBJVALUE*/ @@ -14991,7 +14991,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_11__OBV_TYPE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_11__OBV_TYPE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_11__OBV_TYPE.obj_num = 0; - cdat->dobj_11__OBV_TYPE.obj_hash = 840370808; + cdat->dobj_11__OBV_TYPE.obj_hash = 992247116; cdat->dobj_11__OBV_TYPE.obj_len = 4; /*inistring dstr_12__OBV_TYPE*/ @@ -15019,7 +15019,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_15__CLASS_OBJPUREVALUE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_15__CLASS_OBJPUREVALUE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_15__CLASS_OBJPUREVALUE.obj_num = OBMAG_OBJECT; - cdat->dobj_15__CLASS_OBJPUREVALUE.obj_hash = 832713774; + cdat->dobj_15__CLASS_OBJPUREVALUE.obj_hash = 449841264; cdat->dobj_15__CLASS_OBJPUREVALUE.obj_len = 8; /*inistring dstr_16__CLASS_OBJPUREVAL*/ @@ -15055,7 +15055,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_21__CLASS_OBJLOCV", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_21__CLASS_OBJLOCV.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_21__CLASS_OBJLOCV.obj_num = OBMAG_OBJECT; - cdat->dobj_21__CLASS_OBJLOCV.obj_hash = 546004538; + cdat->dobj_21__CLASS_OBJLOCV.obj_hash = 683967110; cdat->dobj_21__CLASS_OBJLOCV.obj_len = 8; /*inistring dstr_22__CLASS_OBJLOCV*/ @@ -15091,7 +15091,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_27__OBL_OFF", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_27__OBL_OFF.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_27__OBL_OFF.obj_num = 1; - cdat->dobj_27__OBL_OFF.obj_hash = 552635928; + cdat->dobj_27__OBL_OFF.obj_hash = 38225949; cdat->dobj_27__OBL_OFF.obj_len = 4; /*inistring dstr_28__OBL_OFF*/ @@ -15119,7 +15119,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_31__OBL_PROC", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_31__OBL_PROC.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_31__OBL_PROC.obj_num = 2; - cdat->dobj_31__OBL_PROC.obj_hash = 653171870; + cdat->dobj_31__OBL_PROC.obj_hash = 677401021; cdat->dobj_31__OBL_PROC.obj_len = 4; /*inistring dstr_32__OBL_PROC*/ @@ -15147,7 +15147,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_35__OBL_CNAME", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_35__OBL_CNAME.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_35__OBL_CNAME.obj_num = 3; - cdat->dobj_35__OBL_CNAME.obj_hash = 155164130; + cdat->dobj_35__OBL_CNAME.obj_hash = 1023467857; cdat->dobj_35__OBL_CNAME.obj_len = 4; /*inistring dstr_36__OBL_CNAME*/ @@ -15175,7 +15175,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_39__CLASS_OBJCLOCCV", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_39__CLASS_OBJCLOCCV.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_39__CLASS_OBJCLOCCV.obj_num = OBMAG_OBJECT; - cdat->dobj_39__CLASS_OBJCLOCCV.obj_hash = 18383507; + cdat->dobj_39__CLASS_OBJCLOCCV.obj_hash = 465723828; cdat->dobj_39__CLASS_OBJCLOCCV.obj_len = 8; /*inistring dstr_40__CLASS_OBJCLOCCV*/ @@ -15211,7 +15211,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_45__OBC_OFF", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_45__OBC_OFF.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_45__OBC_OFF.obj_num = 1; - cdat->dobj_45__OBC_OFF.obj_hash = 552541558; + cdat->dobj_45__OBC_OFF.obj_hash = 448244911; cdat->dobj_45__OBC_OFF.obj_len = 4; /*inistring dstr_46__OBC_OFF*/ @@ -15239,7 +15239,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_49__OBC_PROC", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_49__OBC_PROC.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_49__OBC_PROC.obj_num = 2; - cdat->dobj_49__OBC_PROC.obj_hash = 397004350; + cdat->dobj_49__OBC_PROC.obj_hash = 38908638; cdat->dobj_49__OBC_PROC.obj_len = 4; /*inistring dstr_50__OBC_PROC*/ @@ -15267,7 +15267,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_53__OBC_NAME", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_53__OBC_NAME.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_53__OBC_NAME.obj_num = 3; - cdat->dobj_53__OBC_NAME.obj_hash = 236428066; + cdat->dobj_53__OBC_NAME.obj_hash = 333308884; cdat->dobj_53__OBC_NAME.obj_len = 4; /*inistring dstr_54__OBC_NAME*/ @@ -15295,7 +15295,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_57__CLASS_OBJCONSTV", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_57__CLASS_OBJCONSTV.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_57__CLASS_OBJCONSTV.obj_num = OBMAG_OBJECT; - cdat->dobj_57__CLASS_OBJCONSTV.obj_hash = 230859310; + cdat->dobj_57__CLASS_OBJCONSTV.obj_hash = 470613541; cdat->dobj_57__CLASS_OBJCONSTV.obj_len = 8; /*inistring dstr_58__CLASS_OBJCONSTV*/ @@ -15331,7 +15331,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_63__CLASS_OBJPREDEF", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_63__CLASS_OBJPREDEF.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_63__CLASS_OBJPREDEF.obj_num = OBMAG_OBJECT; - cdat->dobj_63__CLASS_OBJPREDEF.obj_hash = 235436999; + cdat->dobj_63__CLASS_OBJPREDEF.obj_hash = 740885330; cdat->dobj_63__CLASS_OBJPREDEF.obj_len = 8; /*inistring dstr_64__CLASS_OBJPREDEF*/ @@ -15367,7 +15367,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_69__OBPREDEF", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_69__OBPREDEF.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_69__OBPREDEF.obj_num = 1; - cdat->dobj_69__OBPREDEF.obj_hash = 236866208; + cdat->dobj_69__OBPREDEF.obj_hash = 890565048; cdat->dobj_69__OBPREDEF.obj_len = 4; /*inistring dstr_70__OBPREDEF*/ @@ -15395,7 +15395,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_73__CLASS_OBJNIL", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_73__CLASS_OBJNIL.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_73__CLASS_OBJNIL.obj_num = OBMAG_OBJECT; - cdat->dobj_73__CLASS_OBJNIL.obj_hash = 650994002; + cdat->dobj_73__CLASS_OBJNIL.obj_hash = 501800277; cdat->dobj_73__CLASS_OBJNIL.obj_len = 8; /*inistring dstr_74__CLASS_OBJNIL*/ @@ -15431,7 +15431,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_79__CLASS_OBJINITELEM", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_79__CLASS_OBJINITELEM.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_79__CLASS_OBJINITELEM.obj_num = OBMAG_OBJECT; - cdat->dobj_79__CLASS_OBJINITELEM.obj_hash = 147172663; + cdat->dobj_79__CLASS_OBJINITELEM.obj_hash = 508290510; cdat->dobj_79__CLASS_OBJINITELEM.obj_len = 8; /*inistring dstr_80__CLASS_OBJINITELE*/ @@ -15467,7 +15467,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_85__OIE_CNAME", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_85__OIE_CNAME.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_85__OIE_CNAME.obj_num = 1; - cdat->dobj_85__OIE_CNAME.obj_hash = 807354816; + cdat->dobj_85__OIE_CNAME.obj_hash = 444343384; cdat->dobj_85__OIE_CNAME.obj_len = 4; /*inistring dstr_86__OIE_CNAME*/ @@ -15495,7 +15495,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_89__OIE_DATA", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_89__OIE_DATA.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_89__OIE_DATA.obj_num = 2; - cdat->dobj_89__OIE_DATA.obj_hash = 894999235; + cdat->dobj_89__OIE_DATA.obj_hash = 74750647; cdat->dobj_89__OIE_DATA.obj_len = 4; /*inistring dstr_90__OIE_DATA*/ @@ -15523,7 +15523,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_93__OIE_DISCR", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_93__OIE_DISCR.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_93__OIE_DISCR.obj_num = 3; - cdat->dobj_93__OIE_DISCR.obj_hash = 140894936; + cdat->dobj_93__OIE_DISCR.obj_hash = 922674307; cdat->dobj_93__OIE_DISCR.obj_len = 4; /*inistring dstr_94__OIE_DISCR*/ @@ -15551,7 +15551,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_97__OIE_LOCVAR", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_97__OIE_LOCVAR.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_97__OIE_LOCVAR.obj_num = 4; - cdat->dobj_97__OIE_LOCVAR.obj_hash = 956008171; + cdat->dobj_97__OIE_LOCVAR.obj_hash = 279123822; cdat->dobj_97__OIE_LOCVAR.obj_len = 4; /*inistring dstr_98__OIE_LOCVAR*/ @@ -15579,7 +15579,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_101__CLASS_OBJINITOBJECT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_101__CLASS_OBJINITOBJECT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_101__CLASS_OBJINITOBJECT.obj_num = OBMAG_OBJECT; - cdat->dobj_101__CLASS_OBJINITOBJECT.obj_hash = 757918072; + cdat->dobj_101__CLASS_OBJINITOBJECT.obj_hash = 990772666; cdat->dobj_101__CLASS_OBJINITOBJECT.obj_len = 8; /*inistring dstr_102__CLASS_OBJINITOBJ*/ @@ -15615,7 +15615,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_107__OIO_PREDEF", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_107__OIO_PREDEF.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_107__OIO_PREDEF.obj_num = 5; - cdat->dobj_107__OIO_PREDEF.obj_hash = 622177366; + cdat->dobj_107__OIO_PREDEF.obj_hash = 513914915; cdat->dobj_107__OIO_PREDEF.obj_len = 4; /*inistring dstr_108__OIO_PREDEF*/ @@ -15643,7 +15643,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_111__OIO_CLASS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_111__OIO_CLASS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_111__OIO_CLASS.obj_num = 6; - cdat->dobj_111__OIO_CLASS.obj_hash = 1006836170; + cdat->dobj_111__OIO_CLASS.obj_hash = 365244012; cdat->dobj_111__OIO_CLASS.obj_len = 4; /*inistring dstr_112__OIO_CLASS*/ @@ -15671,7 +15671,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_115__CLASS_OBJINITUNIQUEOBJECT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_115__CLASS_OBJINITUNIQUEOBJECT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_115__CLASS_OBJINITUNIQUEOBJECT.obj_num = OBMAG_OBJECT; - cdat->dobj_115__CLASS_OBJINITUNIQUEOBJECT.obj_hash = 538089118; + cdat->dobj_115__CLASS_OBJINITUNIQUEOBJECT.obj_hash = 429694117; cdat->dobj_115__CLASS_OBJINITUNIQUEOBJECT.obj_len = 8; /*inistring dstr_116__CLASS_OBJINITUNI*/ @@ -15707,7 +15707,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_121__CLASS_OBJINITMULTIPLE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_121__CLASS_OBJINITMULTIPLE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_121__CLASS_OBJINITMULTIPLE.obj_num = OBMAG_OBJECT; - cdat->dobj_121__CLASS_OBJINITMULTIPLE.obj_hash = 571576319; + cdat->dobj_121__CLASS_OBJINITMULTIPLE.obj_hash = 675424388; cdat->dobj_121__CLASS_OBJINITMULTIPLE.obj_len = 8; /*inistring dstr_122__CLASS_OBJINITMUL*/ @@ -15743,7 +15743,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_127__OIM_TUPVAL", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_127__OIM_TUPVAL.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_127__OIM_TUPVAL.obj_num = 5; - cdat->dobj_127__OIM_TUPVAL.obj_hash = 634936147; + cdat->dobj_127__OIM_TUPVAL.obj_hash = 753007409; cdat->dobj_127__OIM_TUPVAL.obj_len = 4; /*inistring dstr_128__OIM_TUPVAL*/ @@ -15771,7 +15771,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_131__CLASS_OBJINITCLOSURE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_131__CLASS_OBJINITCLOSURE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_131__CLASS_OBJINITCLOSURE.obj_num = OBMAG_OBJECT; - cdat->dobj_131__CLASS_OBJINITCLOSURE.obj_hash = 835549091; + cdat->dobj_131__CLASS_OBJINITCLOSURE.obj_hash = 12922066; cdat->dobj_131__CLASS_OBJINITCLOSURE.obj_len = 8; /*inistring dstr_132__CLASS_OBJINITCLO*/ @@ -15807,7 +15807,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_137__OICLO_ROUT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_137__OICLO_ROUT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_137__OICLO_ROUT.obj_num = 5; - cdat->dobj_137__OICLO_ROUT.obj_hash = 806675454; + cdat->dobj_137__OICLO_ROUT.obj_hash = 947688047; cdat->dobj_137__OICLO_ROUT.obj_len = 4; /*inistring dstr_138__OICLO_ROUT*/ @@ -15835,7 +15835,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_141__CLASS_OBJINITROUTINE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_141__CLASS_OBJINITROUTINE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_141__CLASS_OBJINITROUTINE.obj_num = OBMAG_OBJECT; - cdat->dobj_141__CLASS_OBJINITROUTINE.obj_hash = 80787865; + cdat->dobj_141__CLASS_OBJINITROUTINE.obj_hash = 878671528; cdat->dobj_141__CLASS_OBJINITROUTINE.obj_len = 8; /*inistring dstr_142__CLASS_OBJINITROU*/ @@ -15871,7 +15871,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_147__OIR_PROCROUTINE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_147__OIR_PROCROUTINE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_147__OIR_PROCROUTINE.obj_num = 5; - cdat->dobj_147__OIR_PROCROUTINE.obj_hash = 208242724; + cdat->dobj_147__OIR_PROCROUTINE.obj_hash = 984516448; cdat->dobj_147__OIR_PROCROUTINE.obj_len = 4; /*inistring dstr_148__OIR_PROCROUTINE*/ @@ -15899,7 +15899,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_151__CLASS_OBJINITSTRING", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_151__CLASS_OBJINITSTRING.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_151__CLASS_OBJINITSTRING.obj_num = OBMAG_OBJECT; - cdat->dobj_151__CLASS_OBJINITSTRING.obj_hash = 938826850; + cdat->dobj_151__CLASS_OBJINITSTRING.obj_hash = 918755289; cdat->dobj_151__CLASS_OBJINITSTRING.obj_len = 8; /*inistring dstr_152__CLASS_OBJINITSTR*/ @@ -15935,7 +15935,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_157__CLASS_OBJINITPAIR", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_157__CLASS_OBJINITPAIR.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_157__CLASS_OBJINITPAIR.obj_num = OBMAG_OBJECT; - cdat->dobj_157__CLASS_OBJINITPAIR.obj_hash = 285293123; + cdat->dobj_157__CLASS_OBJINITPAIR.obj_hash = 436303620; cdat->dobj_157__CLASS_OBJINITPAIR.obj_len = 8; /*inistring dstr_158__CLASS_OBJINITPAI*/ @@ -15971,7 +15971,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_163__CLASS_OBJINITLIST", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_163__CLASS_OBJINITLIST.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_163__CLASS_OBJINITLIST.obj_num = OBMAG_OBJECT; - cdat->dobj_163__CLASS_OBJINITLIST.obj_hash = 342684662; + cdat->dobj_163__CLASS_OBJINITLIST.obj_hash = 181502660; cdat->dobj_163__CLASS_OBJINITLIST.obj_len = 8; /*inistring dstr_164__CLASS_OBJINITLIS*/ @@ -16007,7 +16007,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_169__CLASS_OBJINITBOXINTEGER", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_169__CLASS_OBJINITBOXINTEGER.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_169__CLASS_OBJINITBOXINTEGER.obj_num = OBMAG_OBJECT; - cdat->dobj_169__CLASS_OBJINITBOXINTEGER.obj_hash = 804135390; + cdat->dobj_169__CLASS_OBJINITBOXINTEGER.obj_hash = 896061712; cdat->dobj_169__CLASS_OBJINITBOXINTEGER.obj_len = 8; /*inistring dstr_170__CLASS_OBJINITBOX*/ @@ -16043,7 +16043,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_175__CLASS_OBJEXPV", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_175__CLASS_OBJEXPV.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_175__CLASS_OBJEXPV.obj_num = OBMAG_OBJECT; - cdat->dobj_175__CLASS_OBJEXPV.obj_hash = 91829874; + cdat->dobj_175__CLASS_OBJEXPV.obj_hash = 618047472; cdat->dobj_175__CLASS_OBJEXPV.obj_len = 8; /*inistring dstr_176__CLASS_OBJEXPV*/ @@ -16079,7 +16079,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_181__OBX_CONT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_181__OBX_CONT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_181__OBX_CONT.obj_num = 1; - cdat->dobj_181__OBX_CONT.obj_hash = 998623927; + cdat->dobj_181__OBX_CONT.obj_hash = 843545126; cdat->dobj_181__OBX_CONT.obj_len = 4; /*inistring dstr_182__OBX_CONT*/ @@ -16107,7 +16107,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_185__CLASS_OBJLOCATEDEXPV", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_185__CLASS_OBJLOCATEDEXPV.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_185__CLASS_OBJLOCATEDEXPV.obj_num = OBMAG_OBJECT; - cdat->dobj_185__CLASS_OBJLOCATEDEXPV.obj_hash = 646652544; + cdat->dobj_185__CLASS_OBJLOCATEDEXPV.obj_hash = 320526803; cdat->dobj_185__CLASS_OBJLOCATEDEXPV.obj_len = 8; /*inistring dstr_186__CLASS_OBJLOCATED*/ @@ -16143,7 +16143,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_191__OBCX_LOC", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_191__OBCX_LOC.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_191__OBCX_LOC.obj_num = 2; - cdat->dobj_191__OBCX_LOC.obj_hash = 915394768; + cdat->dobj_191__OBCX_LOC.obj_hash = 490683075; cdat->dobj_191__OBCX_LOC.obj_len = 4; /*inistring dstr_192__OBCX_LOC*/ @@ -16171,7 +16171,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_195__CLASS_OBJINSTR", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_195__CLASS_OBJINSTR.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_195__CLASS_OBJINSTR.obj_num = OBMAG_OBJECT; - cdat->dobj_195__CLASS_OBJINSTR.obj_hash = 657184821; + cdat->dobj_195__CLASS_OBJINSTR.obj_hash = 125533438; cdat->dobj_195__CLASS_OBJINSTR.obj_len = 8; /*inistring dstr_196__CLASS_OBJINSTR*/ @@ -16207,7 +16207,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_201__OBI_LOC", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_201__OBI_LOC.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_201__OBI_LOC.obj_num = 0; - cdat->dobj_201__OBI_LOC.obj_hash = 251893689; + cdat->dobj_201__OBI_LOC.obj_hash = 655643401; cdat->dobj_201__OBI_LOC.obj_len = 4; /*inistring dstr_202__OBI_LOC*/ @@ -16235,7 +16235,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_205__CLASS_OBJCOMMENTINSTR", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_205__CLASS_OBJCOMMENTINSTR.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_205__CLASS_OBJCOMMENTINSTR.obj_num = OBMAG_OBJECT; - cdat->dobj_205__CLASS_OBJCOMMENTINSTR.obj_hash = 376264499; + cdat->dobj_205__CLASS_OBJCOMMENTINSTR.obj_hash = 76644067; cdat->dobj_205__CLASS_OBJCOMMENTINSTR.obj_len = 8; /*inistring dstr_206__CLASS_OBJCOMMENT*/ @@ -16271,7 +16271,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_211__OBCI_COMMENT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_211__OBCI_COMMENT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_211__OBCI_COMMENT.obj_num = 1; - cdat->dobj_211__OBCI_COMMENT.obj_hash = 550336490; + cdat->dobj_211__OBCI_COMMENT.obj_hash = 398479961; cdat->dobj_211__OBCI_COMMENT.obj_len = 4; /*inistring dstr_212__OBCI_COMMENT*/ @@ -16299,7 +16299,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_215__CLASS_OBJDESTINSTR", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_215__CLASS_OBJDESTINSTR.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_215__CLASS_OBJDESTINSTR.obj_num = OBMAG_OBJECT; - cdat->dobj_215__CLASS_OBJDESTINSTR.obj_hash = 133156955; + cdat->dobj_215__CLASS_OBJDESTINSTR.obj_hash = 771532814; cdat->dobj_215__CLASS_OBJDESTINSTR.obj_len = 8; /*inistring dstr_216__CLASS_OBJDESTINS*/ @@ -16335,7 +16335,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_221__OBDI_DESTLIST", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_221__OBDI_DESTLIST.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_221__OBDI_DESTLIST.obj_num = 1; - cdat->dobj_221__OBDI_DESTLIST.obj_hash = 405469901; + cdat->dobj_221__OBDI_DESTLIST.obj_hash = 870900023; cdat->dobj_221__OBDI_DESTLIST.obj_len = 4; /*inistring dstr_222__OBDI_DESTLIST*/ @@ -16363,7 +16363,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_225__CLASS_OBJCOMPUTE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_225__CLASS_OBJCOMPUTE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_225__CLASS_OBJCOMPUTE.obj_num = OBMAG_OBJECT; - cdat->dobj_225__CLASS_OBJCOMPUTE.obj_hash = 363685809; + cdat->dobj_225__CLASS_OBJCOMPUTE.obj_hash = 66380344; cdat->dobj_225__CLASS_OBJCOMPUTE.obj_len = 8; /*inistring dstr_226__CLASS_OBJCOMPUTE*/ @@ -16399,7 +16399,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_231__OBCPT_EXPR", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_231__OBCPT_EXPR.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_231__OBCPT_EXPR.obj_num = 2; - cdat->dobj_231__OBCPT_EXPR.obj_hash = 757672237; + cdat->dobj_231__OBCPT_EXPR.obj_hash = 322752029; cdat->dobj_231__OBCPT_EXPR.obj_len = 4; /*inistring dstr_232__OBCPT_EXPR*/ @@ -16427,7 +16427,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_235__CLASS_OBJGETARG", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_235__CLASS_OBJGETARG.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_235__CLASS_OBJGETARG.obj_num = OBMAG_OBJECT; - cdat->dobj_235__CLASS_OBJGETARG.obj_hash = 680941871; + cdat->dobj_235__CLASS_OBJGETARG.obj_hash = 408216442; cdat->dobj_235__CLASS_OBJGETARG.obj_len = 8; /*inistring dstr_236__CLASS_OBJGETARG*/ @@ -16463,7 +16463,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_241__OBARG_OBLOC", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_241__OBARG_OBLOC.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_241__OBARG_OBLOC.obj_num = 1; - cdat->dobj_241__OBARG_OBLOC.obj_hash = 726229482; + cdat->dobj_241__OBARG_OBLOC.obj_hash = 975671290; cdat->dobj_241__OBARG_OBLOC.obj_len = 4; /*inistring dstr_242__OBARG_OBLOC*/ @@ -16491,7 +16491,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_245__OBARG_BIND", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_245__OBARG_BIND.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_245__OBARG_BIND.obj_num = 2; - cdat->dobj_245__OBARG_BIND.obj_hash = 450626035; + cdat->dobj_245__OBARG_BIND.obj_hash = 173325224; cdat->dobj_245__OBARG_BIND.obj_len = 4; /*inistring dstr_246__OBARG_BIND*/ @@ -16519,7 +16519,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_249__CLASS_OBJPUTXTRARESULT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_249__CLASS_OBJPUTXTRARESULT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_249__CLASS_OBJPUTXTRARESULT.obj_num = OBMAG_OBJECT; - cdat->dobj_249__CLASS_OBJPUTXTRARESULT.obj_hash = 149264642; + cdat->dobj_249__CLASS_OBJPUTXTRARESULT.obj_hash = 301344885; cdat->dobj_249__CLASS_OBJPUTXTRARESULT.obj_len = 8; /*inistring dstr_250__CLASS_OBJPUTXTRA*/ @@ -16555,7 +16555,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_255__OBXRES_RANK", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_255__OBXRES_RANK.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_255__OBXRES_RANK.obj_num = 1; - cdat->dobj_255__OBXRES_RANK.obj_hash = 57926490; + cdat->dobj_255__OBXRES_RANK.obj_hash = 398935271; cdat->dobj_255__OBXRES_RANK.obj_len = 4; /*inistring dstr_256__OBXRES_RANK*/ @@ -16583,7 +16583,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_259__OBXRES_OBLOC", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_259__OBXRES_OBLOC.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_259__OBXRES_OBLOC.obj_num = 2; - cdat->dobj_259__OBXRES_OBLOC.obj_hash = 118640474; + cdat->dobj_259__OBXRES_OBLOC.obj_hash = 895519926; cdat->dobj_259__OBXRES_OBLOC.obj_len = 4; /*inistring dstr_260__OBXRES_OBLOC*/ @@ -16611,7 +16611,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_263__CLASS_OBJFINALRETURN", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_263__CLASS_OBJFINALRETURN.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_263__CLASS_OBJFINALRETURN.obj_num = OBMAG_OBJECT; - cdat->dobj_263__CLASS_OBJFINALRETURN.obj_hash = 822910328; + cdat->dobj_263__CLASS_OBJFINALRETURN.obj_hash = 527496860; cdat->dobj_263__CLASS_OBJFINALRETURN.obj_len = 8; /*inistring dstr_264__CLASS_OBJFINALRE*/ @@ -16647,7 +16647,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_269__CLASS_OBJCLEAR", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_269__CLASS_OBJCLEAR.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_269__CLASS_OBJCLEAR.obj_num = OBMAG_OBJECT; - cdat->dobj_269__CLASS_OBJCLEAR.obj_hash = 780228550; + cdat->dobj_269__CLASS_OBJCLEAR.obj_hash = 696759872; cdat->dobj_269__CLASS_OBJCLEAR.obj_len = 8; /*inistring dstr_270__CLASS_OBJCLEAR*/ @@ -16683,7 +16683,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_275__OCLR_VLOC", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_275__OCLR_VLOC.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_275__OCLR_VLOC.obj_num = 1; - cdat->dobj_275__OCLR_VLOC.obj_hash = 767934630; + cdat->dobj_275__OCLR_VLOC.obj_hash = 959174862; cdat->dobj_275__OCLR_VLOC.obj_len = 4; /*inistring dstr_276__OCLR_VLOC*/ @@ -16711,7 +16711,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_279__CLASS_OBJANYBLOCK", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_279__CLASS_OBJANYBLOCK.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_279__CLASS_OBJANYBLOCK.obj_num = OBMAG_OBJECT; - cdat->dobj_279__CLASS_OBJANYBLOCK.obj_hash = 852262864; + cdat->dobj_279__CLASS_OBJANYBLOCK.obj_hash = 234738122; cdat->dobj_279__CLASS_OBJANYBLOCK.obj_len = 8; /*inistring dstr_280__CLASS_OBJANYBLOC*/ @@ -16747,7 +16747,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_285__OBLO_BODYL", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_285__OBLO_BODYL.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_285__OBLO_BODYL.obj_num = 1; - cdat->dobj_285__OBLO_BODYL.obj_hash = 627187659; + cdat->dobj_285__OBLO_BODYL.obj_hash = 889086199; cdat->dobj_285__OBLO_BODYL.obj_len = 4; /*inistring dstr_286__OBLO_BODYL*/ @@ -16775,7 +16775,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_289__OBLO_EPIL", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_289__OBLO_EPIL.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_289__OBLO_EPIL.obj_num = 2; - cdat->dobj_289__OBLO_EPIL.obj_hash = 1010143858; + cdat->dobj_289__OBLO_EPIL.obj_hash = 410509969; cdat->dobj_289__OBLO_EPIL.obj_len = 4; /*inistring dstr_290__OBLO_EPIL*/ @@ -16803,7 +16803,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_293__CLASS_OBJPLAINBLOCK", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_293__CLASS_OBJPLAINBLOCK.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_293__CLASS_OBJPLAINBLOCK.obj_num = OBMAG_OBJECT; - cdat->dobj_293__CLASS_OBJPLAINBLOCK.obj_hash = 985439131; + cdat->dobj_293__CLASS_OBJPLAINBLOCK.obj_hash = 1069501619; cdat->dobj_293__CLASS_OBJPLAINBLOCK.obj_len = 8; /*inistring dstr_294__CLASS_OBJPLAINBL*/ @@ -16839,7 +16839,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_299__CLASS_OBJMULTIALLOCBLOCK", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_299__CLASS_OBJMULTIALLOCBLOCK.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_299__CLASS_OBJMULTIALLOCBLOCK.obj_num = OBMAG_OBJECT; - cdat->dobj_299__CLASS_OBJMULTIALLOCBLOCK.obj_hash = 879085765; + cdat->dobj_299__CLASS_OBJMULTIALLOCBLOCK.obj_hash = 358702456; cdat->dobj_299__CLASS_OBJMULTIALLOCBLOCK.obj_len = 8; /*inistring dstr_300__CLASS_OBJMULTIAL*/ @@ -16875,7 +16875,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_305__OMALBLO_ALLSTRUCT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_305__OMALBLO_ALLSTRUCT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_305__OMALBLO_ALLSTRUCT.obj_num = 3; - cdat->dobj_305__OMALBLO_ALLSTRUCT.obj_hash = 64374480; + cdat->dobj_305__OMALBLO_ALLSTRUCT.obj_hash = 882836299; cdat->dobj_305__OMALBLO_ALLSTRUCT.obj_len = 4; /*inistring dstr_306__OMALBLO_ALLSTRUC*/ @@ -16903,7 +16903,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_309__OMALBLO_NAME", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_309__OMALBLO_NAME.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_309__OMALBLO_NAME.obj_num = 4; - cdat->dobj_309__OMALBLO_NAME.obj_hash = 703305940; + cdat->dobj_309__OMALBLO_NAME.obj_hash = 789633665; cdat->dobj_309__OMALBLO_NAME.obj_len = 4; /*inistring dstr_310__OMALBLO_NAME*/ @@ -16931,7 +16931,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_313__CLASS_OBJCOMMENTEDBLOCK", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_313__CLASS_OBJCOMMENTEDBLOCK.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_313__CLASS_OBJCOMMENTEDBLOCK.obj_num = OBMAG_OBJECT; - cdat->dobj_313__CLASS_OBJCOMMENTEDBLOCK.obj_hash = 934112475; + cdat->dobj_313__CLASS_OBJCOMMENTEDBLOCK.obj_hash = 437398734; cdat->dobj_313__CLASS_OBJCOMMENTEDBLOCK.obj_len = 8; /*inistring dstr_314__CLASS_OBJCOMMENT*/ @@ -16967,7 +16967,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_319__OCOMBLO_COMMENT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_319__OCOMBLO_COMMENT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_319__OCOMBLO_COMMENT.obj_num = 3; - cdat->dobj_319__OCOMBLO_COMMENT.obj_hash = 811572836; + cdat->dobj_319__OCOMBLO_COMMENT.obj_hash = 359006882; cdat->dobj_319__OCOMBLO_COMMENT.obj_len = 4; /*inistring dstr_320__OCOMBLO_COMMENT*/ @@ -16995,7 +16995,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_323__CLASS_OBJMULTIBLOCK", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_323__CLASS_OBJMULTIBLOCK.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_323__CLASS_OBJMULTIBLOCK.obj_num = OBMAG_OBJECT; - cdat->dobj_323__CLASS_OBJMULTIBLOCK.obj_hash = 33710612; + cdat->dobj_323__CLASS_OBJMULTIBLOCK.obj_hash = 813379042; cdat->dobj_323__CLASS_OBJMULTIBLOCK.obj_len = 8; /*inistring dstr_324__CLASS_OBJMULTIBL*/ @@ -17031,7 +17031,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_329__OMULBLO_SUBCOMP", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_329__OMULBLO_SUBCOMP.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_329__OMULBLO_SUBCOMP.obj_num = 3; - cdat->dobj_329__OMULBLO_SUBCOMP.obj_hash = 1036824543; + cdat->dobj_329__OMULBLO_SUBCOMP.obj_hash = 896533277; cdat->dobj_329__OMULBLO_SUBCOMP.obj_len = 4; /*inistring dstr_330__OMULBLO_SUBCOMP*/ @@ -17059,7 +17059,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_333__CLASS_OBJLABELINSTR", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_333__CLASS_OBJLABELINSTR.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_333__CLASS_OBJLABELINSTR.obj_num = OBMAG_OBJECT; - cdat->dobj_333__CLASS_OBJLABELINSTR.obj_hash = 740966727; + cdat->dobj_333__CLASS_OBJLABELINSTR.obj_hash = 687383110; cdat->dobj_333__CLASS_OBJLABELINSTR.obj_len = 8; /*inistring dstr_334__CLASS_OBJLABELIN*/ @@ -17095,7 +17095,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_339__OBLAB_PREFIX", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_339__OBLAB_PREFIX.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_339__OBLAB_PREFIX.obj_num = 1; - cdat->dobj_339__OBLAB_PREFIX.obj_hash = 690609003; + cdat->dobj_339__OBLAB_PREFIX.obj_hash = 965019109; cdat->dobj_339__OBLAB_PREFIX.obj_len = 4; /*inistring dstr_340__OBLAB_PREFIX*/ @@ -17123,7 +17123,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_343__OBLAB_RANK", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_343__OBLAB_RANK.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_343__OBLAB_RANK.obj_num = 2; - cdat->dobj_343__OBLAB_RANK.obj_hash = 852593476; + cdat->dobj_343__OBLAB_RANK.obj_hash = 57246290; cdat->dobj_343__OBLAB_RANK.obj_len = 4; /*inistring dstr_344__OBLAB_RANK*/ @@ -17151,7 +17151,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_347__CLASS_OBJGOTOINSTR", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_347__CLASS_OBJGOTOINSTR.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_347__CLASS_OBJGOTOINSTR.obj_num = OBMAG_OBJECT; - cdat->dobj_347__CLASS_OBJGOTOINSTR.obj_hash = 735340324; + cdat->dobj_347__CLASS_OBJGOTOINSTR.obj_hash = 674112278; cdat->dobj_347__CLASS_OBJGOTOINSTR.obj_len = 8; /*inistring dstr_348__CLASS_OBJGOTOINS*/ @@ -17187,7 +17187,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_353__OBGOTO_PREFIX", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_353__OBGOTO_PREFIX.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_353__OBGOTO_PREFIX.obj_num = 1; - cdat->dobj_353__OBGOTO_PREFIX.obj_hash = 751491693; + cdat->dobj_353__OBGOTO_PREFIX.obj_hash = 846624252; cdat->dobj_353__OBGOTO_PREFIX.obj_len = 4; /*inistring dstr_354__OBGOTO_PREFIX*/ @@ -17215,7 +17215,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_357__OBGOTO_RANK", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_357__OBGOTO_RANK.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_357__OBGOTO_RANK.obj_num = 2; - cdat->dobj_357__OBGOTO_RANK.obj_hash = 51070984; + cdat->dobj_357__OBGOTO_RANK.obj_hash = 320024095; cdat->dobj_357__OBGOTO_RANK.obj_len = 4; /*inistring dstr_358__OBGOTO_RANK*/ @@ -17243,7 +17243,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_361__CLASS_OBJLOOP", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_361__CLASS_OBJLOOP.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_361__CLASS_OBJLOOP.obj_num = OBMAG_OBJECT; - cdat->dobj_361__CLASS_OBJLOOP.obj_hash = 271191097; + cdat->dobj_361__CLASS_OBJLOOP.obj_hash = 744634023; cdat->dobj_361__CLASS_OBJLOOP.obj_len = 8; /*inistring dstr_362__CLASS_OBJLOOP*/ @@ -17279,7 +17279,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_367__OBLOOP_LABEL", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_367__OBLOOP_LABEL.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_367__OBLOOP_LABEL.obj_num = 3; - cdat->dobj_367__OBLOOP_LABEL.obj_hash = 473285368; + cdat->dobj_367__OBLOOP_LABEL.obj_hash = 953618861; cdat->dobj_367__OBLOOP_LABEL.obj_len = 4; /*inistring dstr_368__OBLOOP_LABEL*/ @@ -17307,7 +17307,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_371__OBLOOP_RESV", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_371__OBLOOP_RESV.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_371__OBLOOP_RESV.obj_num = 4; - cdat->dobj_371__OBLOOP_RESV.obj_hash = 776029572; + cdat->dobj_371__OBLOOP_RESV.obj_hash = 684650548; cdat->dobj_371__OBLOOP_RESV.obj_len = 4; /*inistring dstr_372__OBLOOP_RESV*/ @@ -17335,7 +17335,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_375__CLASS_OBJEXIT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_375__CLASS_OBJEXIT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_375__CLASS_OBJEXIT.obj_num = OBMAG_OBJECT; - cdat->dobj_375__CLASS_OBJEXIT.obj_hash = 482690230; + cdat->dobj_375__CLASS_OBJEXIT.obj_hash = 822841210; cdat->dobj_375__CLASS_OBJEXIT.obj_len = 8; /*inistring dstr_376__CLASS_OBJEXIT*/ @@ -17371,7 +17371,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_381__OBEXIT_LABEL", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_381__OBEXIT_LABEL.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_381__OBEXIT_LABEL.obj_num = 1; - cdat->dobj_381__OBEXIT_LABEL.obj_hash = 601774701; + cdat->dobj_381__OBEXIT_LABEL.obj_hash = 676544260; cdat->dobj_381__OBEXIT_LABEL.obj_len = 4; /*inistring dstr_382__OBEXIT_LABEL*/ @@ -17399,7 +17399,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_385__CLASS_OBJCITERBLOCK", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_385__CLASS_OBJCITERBLOCK.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_385__CLASS_OBJCITERBLOCK.obj_num = OBMAG_OBJECT; - cdat->dobj_385__CLASS_OBJCITERBLOCK.obj_hash = 869851646; + cdat->dobj_385__CLASS_OBJCITERBLOCK.obj_hash = 899614928; cdat->dobj_385__CLASS_OBJCITERBLOCK.obj_len = 8; /*inistring dstr_386__CLASS_OBJCITERBL*/ @@ -17435,7 +17435,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_391__OBCITER_CITER", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_391__OBCITER_CITER.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_391__OBCITER_CITER.obj_num = 3; - cdat->dobj_391__OBCITER_CITER.obj_hash = 435800991; + cdat->dobj_391__OBCITER_CITER.obj_hash = 718244764; cdat->dobj_391__OBCITER_CITER.obj_len = 4; /*inistring dstr_392__OBCITER_CITER*/ @@ -17463,7 +17463,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_395__OBCITER_BEFORE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_395__OBCITER_BEFORE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_395__OBCITER_BEFORE.obj_num = 4; - cdat->dobj_395__OBCITER_BEFORE.obj_hash = 850739419; + cdat->dobj_395__OBCITER_BEFORE.obj_hash = 263757605; cdat->dobj_395__OBCITER_BEFORE.obj_len = 4; /*inistring dstr_396__OBCITER_BEFORE*/ @@ -17491,7 +17491,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_399__OBCITER_AFTER", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_399__OBCITER_AFTER.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_399__OBCITER_AFTER.obj_num = 5; - cdat->dobj_399__OBCITER_AFTER.obj_hash = 379823017; + cdat->dobj_399__OBCITER_AFTER.obj_hash = 696244856; cdat->dobj_399__OBCITER_AFTER.obj_len = 4; /*inistring dstr_400__OBCITER_AFTER*/ @@ -17519,7 +17519,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_403__CLASS_OBJCOND", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_403__CLASS_OBJCOND.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_403__CLASS_OBJCOND.obj_num = OBMAG_OBJECT; - cdat->dobj_403__CLASS_OBJCOND.obj_hash = 963360554; + cdat->dobj_403__CLASS_OBJCOND.obj_hash = 289959148; cdat->dobj_403__CLASS_OBJCOND.obj_len = 8; /*inistring dstr_404__CLASS_OBJCOND*/ @@ -17555,7 +17555,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_409__OBCOND_TEST", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_409__OBCOND_TEST.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_409__OBCOND_TEST.obj_num = 1; - cdat->dobj_409__OBCOND_TEST.obj_hash = 220504003; + cdat->dobj_409__OBCOND_TEST.obj_hash = 645889445; cdat->dobj_409__OBCOND_TEST.obj_len = 4; /*inistring dstr_410__OBCOND_TEST*/ @@ -17583,7 +17583,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_413__OBCOND_THEN", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_413__OBCOND_THEN.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_413__OBCOND_THEN.obj_num = 2; - cdat->dobj_413__OBCOND_THEN.obj_hash = 939580574; + cdat->dobj_413__OBCOND_THEN.obj_hash = 750094632; cdat->dobj_413__OBCOND_THEN.obj_len = 4; /*inistring dstr_414__OBCOND_THEN*/ @@ -17611,7 +17611,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_417__OBCOND_ELSE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_417__OBCOND_ELSE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_417__OBCOND_ELSE.obj_num = 3; - cdat->dobj_417__OBCOND_ELSE.obj_hash = 994398325; + cdat->dobj_417__OBCOND_ELSE.obj_hash = 470140185; cdat->dobj_417__OBCOND_ELSE.obj_len = 4; /*inistring dstr_418__OBCOND_ELSE*/ @@ -17639,7 +17639,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_421__CLASS_OBJCPPIF", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_421__CLASS_OBJCPPIF.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_421__CLASS_OBJCPPIF.obj_num = OBMAG_OBJECT; - cdat->dobj_421__CLASS_OBJCPPIF.obj_hash = 958109731; + cdat->dobj_421__CLASS_OBJCPPIF.obj_hash = 45186555; cdat->dobj_421__CLASS_OBJCPPIF.obj_len = 8; /*inistring dstr_422__CLASS_OBJCPPIF*/ @@ -17675,7 +17675,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_427__OBIFP_COND", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_427__OBIFP_COND.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_427__OBIFP_COND.obj_num = 1; - cdat->dobj_427__OBIFP_COND.obj_hash = 894344623; + cdat->dobj_427__OBIFP_COND.obj_hash = 297876758; cdat->dobj_427__OBIFP_COND.obj_len = 4; /*inistring dstr_428__OBIFP_COND*/ @@ -17703,7 +17703,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_431__OBIFP_THEN", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_431__OBIFP_THEN.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_431__OBIFP_THEN.obj_num = 2; - cdat->dobj_431__OBIFP_THEN.obj_hash = 806070503; + cdat->dobj_431__OBIFP_THEN.obj_hash = 839631974; cdat->dobj_431__OBIFP_THEN.obj_len = 4; /*inistring dstr_432__OBIFP_THEN*/ @@ -17731,7 +17731,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_435__OBIFP_ELSE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_435__OBIFP_ELSE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_435__OBIFP_ELSE.obj_num = 3; - cdat->dobj_435__OBIFP_ELSE.obj_hash = 40088894; + cdat->dobj_435__OBIFP_ELSE.obj_hash = 1045961856; cdat->dobj_435__OBIFP_ELSE.obj_len = 4; /*inistring dstr_436__OBIFP_ELSE*/ @@ -17759,7 +17759,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_439__CLASS_OBJINTERNCOMMON", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_439__CLASS_OBJINTERNCOMMON.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_439__CLASS_OBJINTERNCOMMON.obj_num = OBMAG_OBJECT; - cdat->dobj_439__CLASS_OBJINTERNCOMMON.obj_hash = 1013766658; + cdat->dobj_439__CLASS_OBJINTERNCOMMON.obj_hash = 68921569; cdat->dobj_439__CLASS_OBJINTERNCOMMON.obj_len = 8; /*inistring dstr_440__CLASS_OBJINTERNC*/ @@ -17795,7 +17795,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_445__OBINTERN_IOBJ", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_445__OBINTERN_IOBJ.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_445__OBINTERN_IOBJ.obj_num = 1; - cdat->dobj_445__OBINTERN_IOBJ.obj_hash = 1000317184; + cdat->dobj_445__OBINTERN_IOBJ.obj_hash = 432227782; cdat->dobj_445__OBINTERN_IOBJ.obj_len = 4; /*inistring dstr_446__OBINTERN_IOBJ*/ @@ -17823,7 +17823,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_449__CLASS_OBJINTERNSYMBOL", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_449__CLASS_OBJINTERNSYMBOL.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_449__CLASS_OBJINTERNSYMBOL.obj_num = OBMAG_OBJECT; - cdat->dobj_449__CLASS_OBJINTERNSYMBOL.obj_hash = 1044901312; + cdat->dobj_449__CLASS_OBJINTERNSYMBOL.obj_hash = 55731059; cdat->dobj_449__CLASS_OBJINTERNSYMBOL.obj_len = 8; /*inistring dstr_450__CLASS_OBJINTERNS*/ @@ -17859,7 +17859,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_455__CLASS_OBJINTERNKEYWORD", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_455__CLASS_OBJINTERNKEYWORD.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_455__CLASS_OBJINTERNKEYWORD.obj_num = OBMAG_OBJECT; - cdat->dobj_455__CLASS_OBJINTERNKEYWORD.obj_hash = 125603637; + cdat->dobj_455__CLASS_OBJINTERNKEYWORD.obj_hash = 472817847; cdat->dobj_455__CLASS_OBJINTERNKEYWORD.obj_len = 8; /*inistring dstr_456__CLASS_OBJINTERNK*/ @@ -17895,7 +17895,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_461__CLASS_OBJGETNAMEDCOMMON", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_461__CLASS_OBJGETNAMEDCOMMON.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_461__CLASS_OBJGETNAMEDCOMMON.obj_num = OBMAG_OBJECT; - cdat->dobj_461__CLASS_OBJGETNAMEDCOMMON.obj_hash = 118757601; + cdat->dobj_461__CLASS_OBJGETNAMEDCOMMON.obj_hash = 881789017; cdat->dobj_461__CLASS_OBJGETNAMEDCOMMON.obj_len = 8; /*inistring dstr_462__CLASS_OBJGETNAME*/ @@ -17931,7 +17931,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_467__OBGNAMED_IOBJ", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_467__OBGNAMED_IOBJ.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_467__OBGNAMED_IOBJ.obj_num = 1; - cdat->dobj_467__OBGNAMED_IOBJ.obj_hash = 221703524; + cdat->dobj_467__OBGNAMED_IOBJ.obj_hash = 712174213; cdat->dobj_467__OBGNAMED_IOBJ.obj_len = 4; /*inistring dstr_468__OBGNAMED_IOBJ*/ @@ -17959,7 +17959,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_471__CLASS_OBJGETNAMEDSYMBOL", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_471__CLASS_OBJGETNAMEDSYMBOL.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_471__CLASS_OBJGETNAMEDSYMBOL.obj_num = OBMAG_OBJECT; - cdat->dobj_471__CLASS_OBJGETNAMEDSYMBOL.obj_hash = 907676807; + cdat->dobj_471__CLASS_OBJGETNAMEDSYMBOL.obj_hash = 599162541; cdat->dobj_471__CLASS_OBJGETNAMEDSYMBOL.obj_len = 8; /*inistring dstr_472__CLASS_OBJGETNAME*/ @@ -17995,7 +17995,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_477__CLASS_OBJGETNAMEDKEYWORD", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_477__CLASS_OBJGETNAMEDKEYWORD.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_477__CLASS_OBJGETNAMEDKEYWORD.obj_num = OBMAG_OBJECT; - cdat->dobj_477__CLASS_OBJGETNAMEDKEYWORD.obj_hash = 620696087; + cdat->dobj_477__CLASS_OBJGETNAMEDKEYWORD.obj_hash = 890145729; cdat->dobj_477__CLASS_OBJGETNAMEDKEYWORD.obj_len = 8; /*inistring dstr_478__CLASS_OBJGETNAME*/ @@ -18031,7 +18031,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_483__CLASS_OBJAPPLY", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_483__CLASS_OBJAPPLY.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_483__CLASS_OBJAPPLY.obj_num = OBMAG_OBJECT; - cdat->dobj_483__CLASS_OBJAPPLY.obj_hash = 845147571; + cdat->dobj_483__CLASS_OBJAPPLY.obj_hash = 715157272; cdat->dobj_483__CLASS_OBJAPPLY.obj_len = 8; /*inistring dstr_484__CLASS_OBJAPPLY*/ @@ -18067,7 +18067,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_489__OBAPP_CLOS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_489__OBAPP_CLOS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_489__OBAPP_CLOS.obj_num = 2; - cdat->dobj_489__OBAPP_CLOS.obj_hash = 860537312; + cdat->dobj_489__OBAPP_CLOS.obj_hash = 190270395; cdat->dobj_489__OBAPP_CLOS.obj_len = 4; /*inistring dstr_490__OBAPP_CLOS*/ @@ -18095,7 +18095,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_493__OBAPP_ARGS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_493__OBAPP_ARGS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_493__OBAPP_ARGS.obj_num = 3; - cdat->dobj_493__OBAPP_ARGS.obj_hash = 597258823; + cdat->dobj_493__OBAPP_ARGS.obj_hash = 259037113; cdat->dobj_493__OBAPP_ARGS.obj_len = 4; /*inistring dstr_494__OBAPP_ARGS*/ @@ -18123,7 +18123,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_497__CLASS_OBJMULTIAPPLY", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_497__CLASS_OBJMULTIAPPLY.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_497__CLASS_OBJMULTIAPPLY.obj_num = OBMAG_OBJECT; - cdat->dobj_497__CLASS_OBJMULTIAPPLY.obj_hash = 941508467; + cdat->dobj_497__CLASS_OBJMULTIAPPLY.obj_hash = 1032787974; cdat->dobj_497__CLASS_OBJMULTIAPPLY.obj_len = 8; /*inistring dstr_498__CLASS_OBJMULTIAP*/ @@ -18159,7 +18159,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_503__OBMULTAPP_XRES", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_503__OBMULTAPP_XRES.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_503__OBMULTAPP_XRES.obj_num = 4; - cdat->dobj_503__OBMULTAPP_XRES.obj_hash = 860440627; + cdat->dobj_503__OBMULTAPP_XRES.obj_hash = 944395720; cdat->dobj_503__OBMULTAPP_XRES.obj_len = 4; /*inistring dstr_504__OBMULTAPP_XRES*/ @@ -18187,7 +18187,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_507__CLASS_OBJMSEND", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_507__CLASS_OBJMSEND.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_507__CLASS_OBJMSEND.obj_num = OBMAG_OBJECT; - cdat->dobj_507__CLASS_OBJMSEND.obj_hash = 828552474; + cdat->dobj_507__CLASS_OBJMSEND.obj_hash = 22330266; cdat->dobj_507__CLASS_OBJMSEND.obj_len = 8; /*inistring dstr_508__CLASS_OBJMSEND*/ @@ -18223,7 +18223,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_513__OBMSND_SEL", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_513__OBMSND_SEL.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_513__OBMSND_SEL.obj_num = 2; - cdat->dobj_513__OBMSND_SEL.obj_hash = 608033458; + cdat->dobj_513__OBMSND_SEL.obj_hash = 1072146565; cdat->dobj_513__OBMSND_SEL.obj_len = 4; /*inistring dstr_514__OBMSND_SEL*/ @@ -18251,7 +18251,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_517__OBMSND_RECV", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_517__OBMSND_RECV.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_517__OBMSND_RECV.obj_num = 3; - cdat->dobj_517__OBMSND_RECV.obj_hash = 174955511; + cdat->dobj_517__OBMSND_RECV.obj_hash = 1006220286; cdat->dobj_517__OBMSND_RECV.obj_len = 4; /*inistring dstr_518__OBMSND_RECV*/ @@ -18279,7 +18279,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_521__OBMSND_ARGS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_521__OBMSND_ARGS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_521__OBMSND_ARGS.obj_num = 4; - cdat->dobj_521__OBMSND_ARGS.obj_hash = 1021868908; + cdat->dobj_521__OBMSND_ARGS.obj_hash = 250834873; cdat->dobj_521__OBMSND_ARGS.obj_len = 4; /*inistring dstr_522__OBMSND_ARGS*/ @@ -18307,7 +18307,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_525__CLASS_OBJMULTIMSEND", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_525__CLASS_OBJMULTIMSEND.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_525__CLASS_OBJMULTIMSEND.obj_num = OBMAG_OBJECT; - cdat->dobj_525__CLASS_OBJMULTIMSEND.obj_hash = 1020937443; + cdat->dobj_525__CLASS_OBJMULTIMSEND.obj_hash = 81717102; cdat->dobj_525__CLASS_OBJMULTIMSEND.obj_len = 8; /*inistring dstr_526__CLASS_OBJMULTIMS*/ @@ -18343,7 +18343,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_531__OBMULTSND_XRES", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_531__OBMULTSND_XRES.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_531__OBMULTSND_XRES.obj_num = 5; - cdat->dobj_531__OBMULTSND_XRES.obj_hash = 267475135; + cdat->dobj_531__OBMULTSND_XRES.obj_hash = 995975767; cdat->dobj_531__OBMULTSND_XRES.obj_len = 4; /*inistring dstr_532__OBMULTSND_XRES*/ @@ -18371,7 +18371,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_535__CLASS_OBJRAWALLOCOBJ", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_535__CLASS_OBJRAWALLOCOBJ.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_535__CLASS_OBJRAWALLOCOBJ.obj_num = OBMAG_OBJECT; - cdat->dobj_535__CLASS_OBJRAWALLOCOBJ.obj_hash = 957853017; + cdat->dobj_535__CLASS_OBJRAWALLOCOBJ.obj_hash = 981210891; cdat->dobj_535__CLASS_OBJRAWALLOCOBJ.obj_len = 8; /*inistring dstr_536__CLASS_OBJRAWALLO*/ @@ -18407,7 +18407,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_541__OBRALLOBJ_CLASS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_541__OBRALLOBJ_CLASS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_541__OBRALLOBJ_CLASS.obj_num = 2; - cdat->dobj_541__OBRALLOBJ_CLASS.obj_hash = 343898882; + cdat->dobj_541__OBRALLOBJ_CLASS.obj_hash = 597395829; cdat->dobj_541__OBRALLOBJ_CLASS.obj_len = 4; /*inistring dstr_542__OBRALLOBJ_CLASS*/ @@ -18435,7 +18435,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_545__OBRALLOBJ_LEN", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_545__OBRALLOBJ_LEN.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_545__OBRALLOBJ_LEN.obj_num = 3; - cdat->dobj_545__OBRALLOBJ_LEN.obj_hash = 652492351; + cdat->dobj_545__OBRALLOBJ_LEN.obj_hash = 353853237; cdat->dobj_545__OBRALLOBJ_LEN.obj_len = 4; /*inistring dstr_546__OBRALLOBJ_LEN*/ @@ -18463,7 +18463,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_549__OBRALLOBJ_CLASSNAME", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_549__OBRALLOBJ_CLASSNAME.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_549__OBRALLOBJ_CLASSNAME.obj_num = 4; - cdat->dobj_549__OBRALLOBJ_CLASSNAME.obj_hash = 373967325; + cdat->dobj_549__OBRALLOBJ_CLASSNAME.obj_hash = 303879806; cdat->dobj_549__OBRALLOBJ_CLASSNAME.obj_len = 4; /*inistring dstr_550__OBRALLOBJ_CLASSN*/ @@ -18491,7 +18491,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_553__CLASS_OBJNEWCLOSURE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_553__CLASS_OBJNEWCLOSURE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_553__CLASS_OBJNEWCLOSURE.obj_num = OBMAG_OBJECT; - cdat->dobj_553__CLASS_OBJNEWCLOSURE.obj_hash = 563114904; + cdat->dobj_553__CLASS_OBJNEWCLOSURE.obj_hash = 246391080; cdat->dobj_553__CLASS_OBJNEWCLOSURE.obj_len = 8; /*inistring dstr_554__CLASS_OBJNEWCLOS*/ @@ -18527,7 +18527,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_559__OBNCLO_DISCR", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_559__OBNCLO_DISCR.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_559__OBNCLO_DISCR.obj_num = 2; - cdat->dobj_559__OBNCLO_DISCR.obj_hash = 866891879; + cdat->dobj_559__OBNCLO_DISCR.obj_hash = 401207793; cdat->dobj_559__OBNCLO_DISCR.obj_len = 4; /*inistring dstr_560__OBNCLO_DISCR*/ @@ -18555,7 +18555,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_563__OBNCLO_ROUT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_563__OBNCLO_ROUT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_563__OBNCLO_ROUT.obj_num = 3; - cdat->dobj_563__OBNCLO_ROUT.obj_hash = 536457273; + cdat->dobj_563__OBNCLO_ROUT.obj_hash = 797082860; cdat->dobj_563__OBNCLO_ROUT.obj_len = 4; /*inistring dstr_564__OBNCLO_ROUT*/ @@ -18583,7 +18583,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_567__OBNCLO_LEN", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_567__OBNCLO_LEN.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_567__OBNCLO_LEN.obj_num = 4; - cdat->dobj_567__OBNCLO_LEN.obj_hash = 961574820; + cdat->dobj_567__OBNCLO_LEN.obj_hash = 882446123; cdat->dobj_567__OBNCLO_LEN.obj_len = 4; /*inistring dstr_568__OBNCLO_LEN*/ @@ -18611,7 +18611,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_571__CLASS_OBJPUTUPLE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_571__CLASS_OBJPUTUPLE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_571__CLASS_OBJPUTUPLE.obj_num = OBMAG_OBJECT; - cdat->dobj_571__CLASS_OBJPUTUPLE.obj_hash = 339574653; + cdat->dobj_571__CLASS_OBJPUTUPLE.obj_hash = 639845139; cdat->dobj_571__CLASS_OBJPUTUPLE.obj_len = 8; /*inistring dstr_572__CLASS_OBJPUTUPLE*/ @@ -18647,7 +18647,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_577__OPUTU_TUPLED", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_577__OPUTU_TUPLED.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_577__OPUTU_TUPLED.obj_num = 1; - cdat->dobj_577__OPUTU_TUPLED.obj_hash = 334351058; + cdat->dobj_577__OPUTU_TUPLED.obj_hash = 910896752; cdat->dobj_577__OPUTU_TUPLED.obj_len = 4; /*inistring dstr_578__OPUTU_TUPLED*/ @@ -18675,7 +18675,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_581__OPUTU_OFFSET", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_581__OPUTU_OFFSET.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_581__OPUTU_OFFSET.obj_num = 2; - cdat->dobj_581__OPUTU_OFFSET.obj_hash = 62507830; + cdat->dobj_581__OPUTU_OFFSET.obj_hash = 589773571; cdat->dobj_581__OPUTU_OFFSET.obj_len = 4; /*inistring dstr_582__OPUTU_OFFSET*/ @@ -18703,7 +18703,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_585__OPUTU_VALUE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_585__OPUTU_VALUE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_585__OPUTU_VALUE.obj_num = 3; - cdat->dobj_585__OPUTU_VALUE.obj_hash = 787854043; + cdat->dobj_585__OPUTU_VALUE.obj_hash = 914301816; cdat->dobj_585__OPUTU_VALUE.obj_len = 4; /*inistring dstr_586__OPUTU_VALUE*/ @@ -18731,7 +18731,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_589__CLASS_OBJPUTPAIR", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_589__CLASS_OBJPUTPAIR.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_589__CLASS_OBJPUTPAIR.obj_num = OBMAG_OBJECT; - cdat->dobj_589__CLASS_OBJPUTPAIR.obj_hash = 475649442; + cdat->dobj_589__CLASS_OBJPUTPAIR.obj_hash = 559957307; cdat->dobj_589__CLASS_OBJPUTPAIR.obj_len = 8; /*inistring dstr_590__CLASS_OBJPUTPAIR*/ @@ -18767,7 +18767,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_595__OPUTP_PAIR", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_595__OPUTP_PAIR.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_595__OPUTP_PAIR.obj_num = 1; - cdat->dobj_595__OPUTP_PAIR.obj_hash = 249855604; + cdat->dobj_595__OPUTP_PAIR.obj_hash = 957546842; cdat->dobj_595__OPUTP_PAIR.obj_len = 4; /*inistring dstr_596__OPUTP_PAIR*/ @@ -18795,7 +18795,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_599__CLASS_OBJPUTPAIRHEAD", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_599__CLASS_OBJPUTPAIRHEAD.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_599__CLASS_OBJPUTPAIRHEAD.obj_num = OBMAG_OBJECT; - cdat->dobj_599__CLASS_OBJPUTPAIRHEAD.obj_hash = 648607068; + cdat->dobj_599__CLASS_OBJPUTPAIRHEAD.obj_hash = 28852020; cdat->dobj_599__CLASS_OBJPUTPAIRHEAD.obj_len = 8; /*inistring dstr_600__CLASS_OBJPUTPAIR*/ @@ -18831,7 +18831,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_605__OPUTP_HEAD", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_605__OPUTP_HEAD.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_605__OPUTP_HEAD.obj_num = 2; - cdat->dobj_605__OPUTP_HEAD.obj_hash = 13481332; + cdat->dobj_605__OPUTP_HEAD.obj_hash = 158247128; cdat->dobj_605__OPUTP_HEAD.obj_len = 4; /*inistring dstr_606__OPUTP_HEAD*/ @@ -18859,7 +18859,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_609__CLASS_OBJPUTPAIRTAIL", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_609__CLASS_OBJPUTPAIRTAIL.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_609__CLASS_OBJPUTPAIRTAIL.obj_num = OBMAG_OBJECT; - cdat->dobj_609__CLASS_OBJPUTPAIRTAIL.obj_hash = 723340626; + cdat->dobj_609__CLASS_OBJPUTPAIRTAIL.obj_hash = 736097189; cdat->dobj_609__CLASS_OBJPUTPAIRTAIL.obj_len = 8; /*inistring dstr_610__CLASS_OBJPUTPAIR*/ @@ -18895,7 +18895,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_615__OPUTP_TAIL", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_615__OPUTP_TAIL.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_615__OPUTP_TAIL.obj_num = 2; - cdat->dobj_615__OPUTP_TAIL.obj_hash = 879104423; + cdat->dobj_615__OPUTP_TAIL.obj_hash = 44186664; cdat->dobj_615__OPUTP_TAIL.obj_len = 4; /*inistring dstr_616__OPUTP_TAIL*/ @@ -18923,7 +18923,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_619__CLASS_OBJPUTLIST", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_619__CLASS_OBJPUTLIST.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_619__CLASS_OBJPUTLIST.obj_num = OBMAG_OBJECT; - cdat->dobj_619__CLASS_OBJPUTLIST.obj_hash = 390393146; + cdat->dobj_619__CLASS_OBJPUTLIST.obj_hash = 539050985; cdat->dobj_619__CLASS_OBJPUTLIST.obj_len = 8; /*inistring dstr_620__CLASS_OBJPUTLIST*/ @@ -18959,7 +18959,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_625__OPUTL_LIST", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_625__OPUTL_LIST.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_625__OPUTL_LIST.obj_num = 1; - cdat->dobj_625__OPUTL_LIST.obj_hash = 225125621; + cdat->dobj_625__OPUTL_LIST.obj_hash = 1058628630; cdat->dobj_625__OPUTL_LIST.obj_len = 4; /*inistring dstr_626__OPUTL_LIST*/ @@ -18987,7 +18987,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_629__OPUTL_FIRST", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_629__OPUTL_FIRST.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_629__OPUTL_FIRST.obj_num = 2; - cdat->dobj_629__OPUTL_FIRST.obj_hash = 653047805; + cdat->dobj_629__OPUTL_FIRST.obj_hash = 842719050; cdat->dobj_629__OPUTL_FIRST.obj_len = 4; /*inistring dstr_630__OPUTL_FIRST*/ @@ -19015,7 +19015,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_633__OPUTL_LAST", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_633__OPUTL_LAST.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_633__OPUTL_LAST.obj_num = 3; - cdat->dobj_633__OPUTL_LAST.obj_hash = 477355991; + cdat->dobj_633__OPUTL_LAST.obj_hash = 267499028; cdat->dobj_633__OPUTL_LAST.obj_len = 4; /*inistring dstr_634__OPUTL_LAST*/ @@ -19043,7 +19043,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_637__CLASS_OBJPUTSLOT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_637__CLASS_OBJPUTSLOT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_637__CLASS_OBJPUTSLOT.obj_num = OBMAG_OBJECT; - cdat->dobj_637__CLASS_OBJPUTSLOT.obj_hash = 12775934; + cdat->dobj_637__CLASS_OBJPUTSLOT.obj_hash = 539919533; cdat->dobj_637__CLASS_OBJPUTSLOT.obj_len = 8; /*inistring dstr_638__CLASS_OBJPUTSLOT*/ @@ -19079,7 +19079,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_643__OSLOT_ODATA", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_643__OSLOT_ODATA.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_643__OSLOT_ODATA.obj_num = 1; - cdat->dobj_643__OSLOT_ODATA.obj_hash = 45879231; + cdat->dobj_643__OSLOT_ODATA.obj_hash = 603247460; cdat->dobj_643__OSLOT_ODATA.obj_len = 4; /*inistring dstr_644__OSLOT_ODATA*/ @@ -19107,7 +19107,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_647__OSLOT_OFFSET", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_647__OSLOT_OFFSET.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_647__OSLOT_OFFSET.obj_num = 2; - cdat->dobj_647__OSLOT_OFFSET.obj_hash = 865080140; + cdat->dobj_647__OSLOT_OFFSET.obj_hash = 305055186; cdat->dobj_647__OSLOT_OFFSET.obj_len = 4; /*inistring dstr_648__OSLOT_OFFSET*/ @@ -19135,7 +19135,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_651__OSLOT_FIELD", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_651__OSLOT_FIELD.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_651__OSLOT_FIELD.obj_num = 3; - cdat->dobj_651__OSLOT_FIELD.obj_hash = 352919170; + cdat->dobj_651__OSLOT_FIELD.obj_hash = 737063425; cdat->dobj_651__OSLOT_FIELD.obj_len = 4; /*inistring dstr_652__OSLOT_FIELD*/ @@ -19163,7 +19163,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_655__OSLOT_VALUE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_655__OSLOT_VALUE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_655__OSLOT_VALUE.obj_num = 4; - cdat->dobj_655__OSLOT_VALUE.obj_hash = 407405331; + cdat->dobj_655__OSLOT_VALUE.obj_hash = 78446915; cdat->dobj_655__OSLOT_VALUE.obj_len = 4; /*inistring dstr_656__OSLOT_VALUE*/ @@ -19191,7 +19191,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_659__CLASS_OBJGETSLOT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_659__CLASS_OBJGETSLOT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_659__CLASS_OBJGETSLOT.obj_num = OBMAG_OBJECT; - cdat->dobj_659__CLASS_OBJGETSLOT.obj_hash = 78438901; + cdat->dobj_659__CLASS_OBJGETSLOT.obj_hash = 1008758568; cdat->dobj_659__CLASS_OBJGETSLOT.obj_len = 8; /*inistring dstr_660__CLASS_OBJGETSLOT*/ @@ -19227,7 +19227,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_665__OGETSL_OBJ", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_665__OGETSL_OBJ.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_665__OGETSL_OBJ.obj_num = 2; - cdat->dobj_665__OGETSL_OBJ.obj_hash = 979745203; + cdat->dobj_665__OGETSL_OBJ.obj_hash = 790378907; cdat->dobj_665__OGETSL_OBJ.obj_len = 4; /*inistring dstr_666__OGETSL_OBJ*/ @@ -19255,7 +19255,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_669__OGETSL_FIELD", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_669__OGETSL_FIELD.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_669__OGETSL_FIELD.obj_num = 3; - cdat->dobj_669__OGETSL_FIELD.obj_hash = 827343127; + cdat->dobj_669__OGETSL_FIELD.obj_hash = 158103165; cdat->dobj_669__OGETSL_FIELD.obj_len = 4; /*inistring dstr_670__OGETSL_FIELD*/ @@ -19283,7 +19283,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_673__CLASS_OBJPUTCLOSUROUT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_673__CLASS_OBJPUTCLOSUROUT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_673__CLASS_OBJPUTCLOSUROUT.obj_num = OBMAG_OBJECT; - cdat->dobj_673__CLASS_OBJPUTCLOSUROUT.obj_hash = 809033719; + cdat->dobj_673__CLASS_OBJPUTCLOSUROUT.obj_hash = 233648188; cdat->dobj_673__CLASS_OBJPUTCLOSUROUT.obj_len = 8; /*inistring dstr_674__CLASS_OBJPUTCLOS*/ @@ -19319,7 +19319,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_679__OPCLOR_CLOS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_679__OPCLOR_CLOS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_679__OPCLOR_CLOS.obj_num = 1; - cdat->dobj_679__OPCLOR_CLOS.obj_hash = 676687248; + cdat->dobj_679__OPCLOR_CLOS.obj_hash = 89476713; cdat->dobj_679__OPCLOR_CLOS.obj_len = 4; /*inistring dstr_680__OPCLOR_CLOS*/ @@ -19347,7 +19347,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_683__OPCLOR_ROUT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_683__OPCLOR_ROUT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_683__OPCLOR_ROUT.obj_num = 2; - cdat->dobj_683__OPCLOR_ROUT.obj_hash = 1000284758; + cdat->dobj_683__OPCLOR_ROUT.obj_hash = 627909317; cdat->dobj_683__OPCLOR_ROUT.obj_len = 4; /*inistring dstr_684__OPCLOR_ROUT*/ @@ -19375,7 +19375,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_687__CLASS_OBJPUTCLOSEDV", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_687__CLASS_OBJPUTCLOSEDV.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_687__CLASS_OBJPUTCLOSEDV.obj_num = OBMAG_OBJECT; - cdat->dobj_687__CLASS_OBJPUTCLOSEDV.obj_hash = 365842471; + cdat->dobj_687__CLASS_OBJPUTCLOSEDV.obj_hash = 354614095; cdat->dobj_687__CLASS_OBJPUTCLOSEDV.obj_len = 8; /*inistring dstr_688__CLASS_OBJPUTCLOS*/ @@ -19411,7 +19411,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_693__OPCLOV_CLOS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_693__OPCLOV_CLOS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_693__OPCLOV_CLOS.obj_num = 1; - cdat->dobj_693__OPCLOV_CLOS.obj_hash = 764416917; + cdat->dobj_693__OPCLOV_CLOS.obj_hash = 459854349; cdat->dobj_693__OPCLOV_CLOS.obj_len = 4; /*inistring dstr_694__OPCLOV_CLOS*/ @@ -19439,7 +19439,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_697__OPCLOV_OFF", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_697__OPCLOV_OFF.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_697__OPCLOV_OFF.obj_num = 2; - cdat->dobj_697__OPCLOV_OFF.obj_hash = 1025836774; + cdat->dobj_697__OPCLOV_OFF.obj_hash = 480200615; cdat->dobj_697__OPCLOV_OFF.obj_len = 4; /*inistring dstr_698__OPCLOV_OFF*/ @@ -19467,7 +19467,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_701__OPCLOV_CVAL", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_701__OPCLOV_CVAL.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_701__OPCLOV_CVAL.obj_num = 3; - cdat->dobj_701__OPCLOV_CVAL.obj_hash = 239686708; + cdat->dobj_701__OPCLOV_CVAL.obj_hash = 319247171; cdat->dobj_701__OPCLOV_CVAL.obj_len = 4; /*inistring dstr_702__OPCLOV_CVAL*/ @@ -19495,7 +19495,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_705__CLASS_OBJPUTCLOSEDNOTNULLV", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_705__CLASS_OBJPUTCLOSEDNOTNULLV.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_705__CLASS_OBJPUTCLOSEDNOTNULLV.obj_num = OBMAG_OBJECT; - cdat->dobj_705__CLASS_OBJPUTCLOSEDNOTNULLV.obj_hash = 285806397; + cdat->dobj_705__CLASS_OBJPUTCLOSEDNOTNULLV.obj_hash = 490956847; cdat->dobj_705__CLASS_OBJPUTCLOSEDNOTNULLV.obj_len = 8; /*inistring dstr_706__CLASS_OBJPUTCLOS*/ @@ -19531,7 +19531,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_711__CLASS_OBJPUTROUTCONST", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_711__CLASS_OBJPUTROUTCONST.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_711__CLASS_OBJPUTROUTCONST.obj_num = OBMAG_OBJECT; - cdat->dobj_711__CLASS_OBJPUTROUTCONST.obj_hash = 841791473; + cdat->dobj_711__CLASS_OBJPUTROUTCONST.obj_hash = 65086207; cdat->dobj_711__CLASS_OBJPUTROUTCONST.obj_len = 8; /*inistring dstr_712__CLASS_OBJPUTROUT*/ @@ -19567,7 +19567,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_717__OPRCONST_ROUT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_717__OPRCONST_ROUT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_717__OPRCONST_ROUT.obj_num = 1; - cdat->dobj_717__OPRCONST_ROUT.obj_hash = 775019864; + cdat->dobj_717__OPRCONST_ROUT.obj_hash = 945323522; cdat->dobj_717__OPRCONST_ROUT.obj_len = 4; /*inistring dstr_718__OPRCONST_ROUT*/ @@ -19595,7 +19595,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_721__OPRCONST_OFF", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_721__OPRCONST_OFF.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_721__OPRCONST_OFF.obj_num = 2; - cdat->dobj_721__OPRCONST_OFF.obj_hash = 154818189; + cdat->dobj_721__OPRCONST_OFF.obj_hash = 550835047; cdat->dobj_721__OPRCONST_OFF.obj_len = 4; /*inistring dstr_722__OPRCONST_OFF*/ @@ -19623,7 +19623,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_725__OPRCONST_CVAL", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_725__OPRCONST_CVAL.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_725__OPRCONST_CVAL.obj_num = 3; - cdat->dobj_725__OPRCONST_CVAL.obj_hash = 121712318; + cdat->dobj_725__OPRCONST_CVAL.obj_hash = 183672242; cdat->dobj_725__OPRCONST_CVAL.obj_len = 4; /*inistring dstr_726__OPRCONST_CVAL*/ @@ -19651,7 +19651,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_729__CLASS_OBJPUTROUTCONSTNOTNULL", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_729__CLASS_OBJPUTROUTCONSTNOTNULL.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_729__CLASS_OBJPUTROUTCONSTNOTNULL.obj_num = OBMAG_OBJECT; - cdat->dobj_729__CLASS_OBJPUTROUTCONSTNOTNULL.obj_hash = 548583564; + cdat->dobj_729__CLASS_OBJPUTROUTCONSTNOTNULL.obj_hash = 212785140; cdat->dobj_729__CLASS_OBJPUTROUTCONSTNOTNULL.obj_len = 8; /*inistring dstr_730__CLASS_OBJPUTROUT*/ @@ -19687,7 +19687,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_735__CLASS_OBJTOUCH", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_735__CLASS_OBJTOUCH.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_735__CLASS_OBJTOUCH.obj_num = OBMAG_OBJECT; - cdat->dobj_735__CLASS_OBJTOUCH.obj_hash = 9747478; + cdat->dobj_735__CLASS_OBJTOUCH.obj_hash = 144534436; cdat->dobj_735__CLASS_OBJTOUCH.obj_len = 8; /*inistring dstr_736__CLASS_OBJTOUCH*/ @@ -19723,7 +19723,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_741__OTOUCH_VAL", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_741__OTOUCH_VAL.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_741__OTOUCH_VAL.obj_num = 1; - cdat->dobj_741__OTOUCH_VAL.obj_hash = 408039906; + cdat->dobj_741__OTOUCH_VAL.obj_hash = 671682621; cdat->dobj_741__OTOUCH_VAL.obj_len = 4; /*inistring dstr_742__OTOUCH_VAL*/ @@ -19751,7 +19751,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_745__OTOUCH_COMMENT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_745__OTOUCH_COMMENT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_745__OTOUCH_COMMENT.obj_num = 2; - cdat->dobj_745__OTOUCH_COMMENT.obj_hash = 680798118; + cdat->dobj_745__OTOUCH_COMMENT.obj_hash = 776817249; cdat->dobj_745__OTOUCH_COMMENT.obj_len = 4; /*inistring dstr_746__OTOUCH_COMMENT*/ @@ -19779,7 +19779,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_749__CLASS_OBJSETPREDEF", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_749__CLASS_OBJSETPREDEF.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_749__CLASS_OBJSETPREDEF.obj_num = OBMAG_OBJECT; - cdat->dobj_749__CLASS_OBJSETPREDEF.obj_hash = 222467339; + cdat->dobj_749__CLASS_OBJSETPREDEF.obj_hash = 610622525; cdat->dobj_749__CLASS_OBJSETPREDEF.obj_len = 8; /*inistring dstr_750__CLASS_OBJSETPRED*/ @@ -19815,7 +19815,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_755__OSPR_OBJECT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_755__OSPR_OBJECT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_755__OSPR_OBJECT.obj_num = 1; - cdat->dobj_755__OSPR_OBJECT.obj_hash = 556794033; + cdat->dobj_755__OSPR_OBJECT.obj_hash = 337512255; cdat->dobj_755__OSPR_OBJECT.obj_len = 4; /*inistring dstr_756__OSPR_OBJECT*/ @@ -19843,7 +19843,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_759__OSPR_PREDEF", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_759__OSPR_PREDEF.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_759__OSPR_PREDEF.obj_num = 2; - cdat->dobj_759__OSPR_PREDEF.obj_hash = 840607365; + cdat->dobj_759__OSPR_PREDEF.obj_hash = 699205309; cdat->dobj_759__OSPR_PREDEF.obj_len = 4; /*inistring dstr_760__OSPR_PREDEF*/ @@ -19884,7 +19884,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_765__CLASS_ROUTINEOBJ", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_765__CLASS_ROUTINEOBJ.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_765__CLASS_ROUTINEOBJ.obj_num = OBMAG_OBJECT; - cdat->dobj_765__CLASS_ROUTINEOBJ.obj_hash = 941664783; + cdat->dobj_765__CLASS_ROUTINEOBJ.obj_hash = 760505123; cdat->dobj_765__CLASS_ROUTINEOBJ.obj_len = 8; /*inistring dstr_766__CLASS_ROUTINEOBJ*/ @@ -19920,7 +19920,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_771__OBROUT_PROC", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_771__OBROUT_PROC.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_771__OBROUT_PROC.obj_num = 2; - cdat->dobj_771__OBROUT_PROC.obj_hash = 969343174; + cdat->dobj_771__OBROUT_PROC.obj_hash = 715500395; cdat->dobj_771__OBROUT_PROC.obj_len = 4; /*inistring dstr_772__OBROUT_PROC*/ @@ -19948,7 +19948,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_775__OBROUT_BODY", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_775__OBROUT_BODY.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_775__OBROUT_BODY.obj_num = 3; - cdat->dobj_775__OBROUT_BODY.obj_hash = 602068738; + cdat->dobj_775__OBROUT_BODY.obj_hash = 727816351; cdat->dobj_775__OBROUT_BODY.obj_len = 4; /*inistring dstr_776__OBROUT_BODY*/ @@ -19976,7 +19976,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_779__OBROUT_NBVAL", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_779__OBROUT_NBVAL.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_779__OBROUT_NBVAL.obj_num = 4; - cdat->dobj_779__OBROUT_NBVAL.obj_hash = 606319841; + cdat->dobj_779__OBROUT_NBVAL.obj_hash = 1028455600; cdat->dobj_779__OBROUT_NBVAL.obj_len = 4; /*inistring dstr_780__OBROUT_NBVAL*/ @@ -20004,7 +20004,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_783__OBROUT_NBLONG", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_783__OBROUT_NBLONG.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_783__OBROUT_NBLONG.obj_num = 5; - cdat->dobj_783__OBROUT_NBLONG.obj_hash = 1022151011; + cdat->dobj_783__OBROUT_NBLONG.obj_hash = 483129405; cdat->dobj_783__OBROUT_NBLONG.obj_len = 4; /*inistring dstr_784__OBROUT_NBLONG*/ @@ -20032,7 +20032,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_787__OBROUT_OTHERS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_787__OBROUT_OTHERS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_787__OBROUT_OTHERS.obj_num = 6; - cdat->dobj_787__OBROUT_OTHERS.obj_hash = 181688980; + cdat->dobj_787__OBROUT_OTHERS.obj_hash = 550141855; cdat->dobj_787__OBROUT_OTHERS.obj_len = 4; /*inistring dstr_788__OBROUT_OTHERS*/ @@ -20060,7 +20060,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_791__OBROUT_RETVAL", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_791__OBROUT_RETVAL.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_791__OBROUT_RETVAL.obj_num = 7; - cdat->dobj_791__OBROUT_RETVAL.obj_hash = 860376778; + cdat->dobj_791__OBROUT_RETVAL.obj_hash = 400777289; cdat->dobj_791__OBROUT_RETVAL.obj_len = 4; /*inistring dstr_792__OBROUT_RETVAL*/ @@ -20088,7 +20088,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_795__OBROUT_CNTCITER", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_795__OBROUT_CNTCITER.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_795__OBROUT_CNTCITER.obj_num = 8; - cdat->dobj_795__OBROUT_CNTCITER.obj_hash = 160757234; + cdat->dobj_795__OBROUT_CNTCITER.obj_hash = 706552054; cdat->dobj_795__OBROUT_CNTCITER.obj_len = 4; /*inistring dstr_796__OBROUT_CNTCITER*/ @@ -20116,7 +20116,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_799__OBROUT_CNTLETREC", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_799__OBROUT_CNTLETREC.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_799__OBROUT_CNTLETREC.obj_num = 9; - cdat->dobj_799__OBROUT_CNTLETREC.obj_hash = 661165310; + cdat->dobj_799__OBROUT_CNTLETREC.obj_hash = 421135585; cdat->dobj_799__OBROUT_CNTLETREC.obj_len = 4; /*inistring dstr_800__OBROUT_CNTLETREC*/ @@ -20144,7 +20144,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_803__CLASS_PROCROUTINEOBJ", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_803__CLASS_PROCROUTINEOBJ.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_803__CLASS_PROCROUTINEOBJ.obj_num = OBMAG_OBJECT; - cdat->dobj_803__CLASS_PROCROUTINEOBJ.obj_hash = 959805531; + cdat->dobj_803__CLASS_PROCROUTINEOBJ.obj_hash = 667330243; cdat->dobj_803__CLASS_PROCROUTINEOBJ.obj_len = 8; /*inistring dstr_804__CLASS_PROCROUTIN*/ @@ -20180,7 +20180,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_809__OPROUT_GETARGS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_809__OPROUT_GETARGS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_809__OPROUT_GETARGS.obj_num = 10; - cdat->dobj_809__OPROUT_GETARGS.obj_hash = 273961397; + cdat->dobj_809__OPROUT_GETARGS.obj_hash = 111141328; cdat->dobj_809__OPROUT_GETARGS.obj_len = 4; /*inistring dstr_810__OPROUT_GETARGS*/ @@ -20208,7 +20208,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_813__OPROUT_LOC", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_813__OPROUT_LOC.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_813__OPROUT_LOC.obj_num = 11; - cdat->dobj_813__OPROUT_LOC.obj_hash = 353306762; + cdat->dobj_813__OPROUT_LOC.obj_hash = 479406347; cdat->dobj_813__OPROUT_LOC.obj_len = 4; /*inistring dstr_814__OPROUT_LOC*/ @@ -20236,7 +20236,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_817__OPROUT_FUNAM", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_817__OPROUT_FUNAM.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_817__OPROUT_FUNAM.obj_num = 12; - cdat->dobj_817__OPROUT_FUNAM.obj_hash = 583319204; + cdat->dobj_817__OPROUT_FUNAM.obj_hash = 550265308; cdat->dobj_817__OPROUT_FUNAM.obj_len = 4; /*inistring dstr_818__OPROUT_FUNAM*/ @@ -20264,7 +20264,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_821__OPROUT_FILENUM", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_821__OPROUT_FILENUM.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_821__OPROUT_FILENUM.obj_num = 13; - cdat->dobj_821__OPROUT_FILENUM.obj_hash = 1008260223; + cdat->dobj_821__OPROUT_FILENUM.obj_hash = 986330889; cdat->dobj_821__OPROUT_FILENUM.obj_len = 4; /*inistring dstr_822__OPROUT_FILENUM*/ @@ -20292,7 +20292,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_825__CLASS_INITIALROUTINEOBJ", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_825__CLASS_INITIALROUTINEOBJ.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_825__CLASS_INITIALROUTINEOBJ.obj_num = OBMAG_OBJECT; - cdat->dobj_825__CLASS_INITIALROUTINEOBJ.obj_hash = 887614091; + cdat->dobj_825__CLASS_INITIALROUTINEOBJ.obj_hash = 717322309; cdat->dobj_825__CLASS_INITIALROUTINEOBJ.obj_len = 8; /*inistring dstr_826__CLASS_INITIALROU*/ @@ -20328,7 +20328,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_831__OIROUT_DATA", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_831__OIROUT_DATA.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_831__OIROUT_DATA.obj_num = 10; - cdat->dobj_831__OIROUT_DATA.obj_hash = 828263748; + cdat->dobj_831__OIROUT_DATA.obj_hash = 330797815; cdat->dobj_831__OIROUT_DATA.obj_len = 4; /*inistring dstr_832__OIROUT_DATA*/ @@ -20356,7 +20356,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_835__OIROUT_PROLOG", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_835__OIROUT_PROLOG.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_835__OIROUT_PROLOG.obj_num = 11; - cdat->dobj_835__OIROUT_PROLOG.obj_hash = 224791019; + cdat->dobj_835__OIROUT_PROLOG.obj_hash = 611439403; cdat->dobj_835__OIROUT_PROLOG.obj_len = 4; /*inistring dstr_836__OIROUT_PROLOG*/ @@ -20384,7 +20384,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_839__OIROUT_FILL", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_839__OIROUT_FILL.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_839__OIROUT_FILL.obj_num = 12; - cdat->dobj_839__OIROUT_FILL.obj_hash = 570853123; + cdat->dobj_839__OIROUT_FILL.obj_hash = 1057476122; cdat->dobj_839__OIROUT_FILL.obj_len = 4; /*inistring dstr_840__OIROUT_FILL*/ @@ -20412,7 +20412,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_843__OIROUT_MODULENAME", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_843__OIROUT_MODULENAME.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_843__OIROUT_MODULENAME.obj_num = 13; - cdat->dobj_843__OIROUT_MODULENAME.obj_hash = 961043352; + cdat->dobj_843__OIROUT_MODULENAME.obj_hash = 969201390; cdat->dobj_843__OIROUT_MODULENAME.obj_len = 4; /*inistring dstr_844__OIROUT_MODULENAM*/ @@ -20479,7 +20479,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_853", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_853.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_853.obj_num = 0; - cdat->dobj_853.obj_hash = 757601575; + cdat->dobj_853.obj_hash = 422626015; cdat->dobj_853.obj_len = 2; /*iniobj dsym_854__SBUF*/ @@ -20502,7 +20502,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_856", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_856.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_856.obj_num = 1; - cdat->dobj_856.obj_hash = 113277639; + cdat->dobj_856.obj_hash = 189690143; cdat->dobj_856.obj_len = 2; /*inimult dtup_857__OUTPUT_C_DECLINIT*/ @@ -20515,7 +20515,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_858__OUTPUT_C_DECLINIT", melt_magic_discr (/*_.CLASS_SELECTOR__V9*/ meltfptr[8]) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_858__OUTPUT_C_DECLINIT", ((meltobject_ptr_t) (/*_.CLASS_SELECTOR__V9*/ meltfptr[8]))->object_magic == OBMAG_OBJECT); cdat->dobj_858__OUTPUT_C_DECLINIT.obj_class = (meltobject_ptr_t)(/*_.CLASS_SELECTOR__V9*/ meltfptr[8]); - cdat->dobj_858__OUTPUT_C_DECLINIT.obj_hash = 293793383; + cdat->dobj_858__OUTPUT_C_DECLINIT.obj_hash = 472406662; cdat->dobj_858__OUTPUT_C_DECLINIT.obj_len = 4; /*inistring dstr_859__OUTPUT_C_DECLINI*/ @@ -20542,7 +20542,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_862__PUT_OBJDEST", melt_magic_discr (/*_.CLASS_SELECTOR__V9*/ meltfptr[8]) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_862__PUT_OBJDEST", ((meltobject_ptr_t) (/*_.CLASS_SELECTOR__V9*/ meltfptr[8]))->object_magic == OBMAG_OBJECT); cdat->dobj_862__PUT_OBJDEST.obj_class = (meltobject_ptr_t)(/*_.CLASS_SELECTOR__V9*/ meltfptr[8]); - cdat->dobj_862__PUT_OBJDEST.obj_hash = 556217517; + cdat->dobj_862__PUT_OBJDEST.obj_hash = 869047468; cdat->dobj_862__PUT_OBJDEST.obj_len = 4; /*inistring dstr_863__PUT_OBJDEST*/ @@ -20570,7 +20570,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_866", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_866.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_866.obj_num = 0; - cdat->dobj_866.obj_hash = 928987836; + cdat->dobj_866.obj_hash = 304749359; cdat->dobj_866.obj_len = 2; /*iniobj dsym_867__DECLBUF*/ @@ -20593,7 +20593,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_869", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_869.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_869.obj_num = 1; - cdat->dobj_869.obj_hash = 805767875; + cdat->dobj_869.obj_hash = 631774140; cdat->dobj_869.obj_len = 2; /*iniobj dsym_870__IMPLBUF*/ @@ -20616,7 +20616,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_872", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_872.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_872.obj_num = 2; - cdat->dobj_872.obj_hash = 829902561; + cdat->dobj_872.obj_hash = 903543695; cdat->dobj_872.obj_len = 2; /*iniobj dsym_873__DEPTH*/ @@ -20639,7 +20639,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_875", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_875.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_875.obj_num = 3; - cdat->dobj_875.obj_hash = 403544510; + cdat->dobj_875.obj_hash = 374493307; cdat->dobj_875.obj_len = 2; /*inimult dtup_876__OUTPUT_C_CODE*/ @@ -20652,7 +20652,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_877__OUTPUT_C_CODE", melt_magic_discr (/*_.CLASS_SELECTOR__V9*/ meltfptr[8]) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_877__OUTPUT_C_CODE", ((meltobject_ptr_t) (/*_.CLASS_SELECTOR__V9*/ meltfptr[8]))->object_magic == OBMAG_OBJECT); cdat->dobj_877__OUTPUT_C_CODE.obj_class = (meltobject_ptr_t)(/*_.CLASS_SELECTOR__V9*/ meltfptr[8]); - cdat->dobj_877__OUTPUT_C_CODE.obj_hash = 331096809; + cdat->dobj_877__OUTPUT_C_CODE.obj_hash = 550803922; cdat->dobj_877__OUTPUT_C_CODE.obj_len = 4; /*inistring dstr_878__OUTPUT_C_CODE*/ @@ -20680,7 +20680,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_881", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_881.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_881.obj_num = 0; - cdat->dobj_881.obj_hash = 335778636; + cdat->dobj_881.obj_hash = 794781104; cdat->dobj_881.obj_len = 2; /*^iniobj*/ @@ -20690,7 +20690,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_882", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_882.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_882.obj_num = 1; - cdat->dobj_882.obj_hash = 983908560; + cdat->dobj_882.obj_hash = 686207513; cdat->dobj_882.obj_len = 2; /*iniobj dsym_883__PTRSTR*/ @@ -20713,7 +20713,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_885", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_885.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_885.obj_num = 2; - cdat->dobj_885.obj_hash = 704653456; + cdat->dobj_885.obj_hash = 961909588; cdat->dobj_885.obj_len = 2; /*^iniobj*/ @@ -20723,7 +20723,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_886", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_886.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_886.obj_num = 3; - cdat->dobj_886.obj_hash = 880686556; + cdat->dobj_886.obj_hash = 520315600; cdat->dobj_886.obj_len = 2; /*inimult dtup_887__OUTPUT_C_INITIAL_FILL*/ @@ -20736,7 +20736,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_888__OUTPUT_C_INITIAL_FILL", melt_magic_discr (/*_.CLASS_SELECTOR__V9*/ meltfptr[8]) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_888__OUTPUT_C_INITIAL_FILL", ((meltobject_ptr_t) (/*_.CLASS_SELECTOR__V9*/ meltfptr[8]))->object_magic == OBMAG_OBJECT); cdat->dobj_888__OUTPUT_C_INITIAL_FILL.obj_class = (meltobject_ptr_t)(/*_.CLASS_SELECTOR__V9*/ meltfptr[8]); - cdat->dobj_888__OUTPUT_C_INITIAL_FILL.obj_hash = 55959908; + cdat->dobj_888__OUTPUT_C_INITIAL_FILL.obj_hash = 656598839; cdat->dobj_888__OUTPUT_C_INITIAL_FILL.obj_len = 4; /*inistring dstr_889__OUTPUT_C_INITIAL*/ @@ -20764,7 +20764,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_892", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_892.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_892.obj_num = 0; - cdat->dobj_892.obj_hash = 259958606; + cdat->dobj_892.obj_hash = 126521270; cdat->dobj_892.obj_len = 2; /*^iniobj*/ @@ -20774,7 +20774,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_893", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_893.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_893.obj_num = 1; - cdat->dobj_893.obj_hash = 673452821; + cdat->dobj_893.obj_hash = 991811242; cdat->dobj_893.obj_len = 2; /*iniobj dsym_894__PRTRSTR*/ @@ -20797,7 +20797,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_896", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_896.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_896.obj_num = 2; - cdat->dobj_896.obj_hash = 700911232; + cdat->dobj_896.obj_hash = 731786703; cdat->dobj_896.obj_len = 2; /*^iniobj*/ @@ -20807,7 +20807,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_897", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_897.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_897.obj_num = 3; - cdat->dobj_897.obj_hash = 671373068; + cdat->dobj_897.obj_hash = 248912446; cdat->dobj_897.obj_len = 2; /*inimult dtup_898__OUTPUT_C_INITIAL_PREDEF*/ @@ -20820,7 +20820,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_899__OUTPUT_C_INITIAL_PREDEF", melt_magic_discr (/*_.CLASS_SELECTOR__V9*/ meltfptr[8]) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_899__OUTPUT_C_INITIAL_PREDEF", ((meltobject_ptr_t) (/*_.CLASS_SELECTOR__V9*/ meltfptr[8]))->object_magic == OBMAG_OBJECT); cdat->dobj_899__OUTPUT_C_INITIAL_PREDEF.obj_class = (meltobject_ptr_t)(/*_.CLASS_SELECTOR__V9*/ meltfptr[8]); - cdat->dobj_899__OUTPUT_C_INITIAL_PREDEF.obj_hash = 487698790; + cdat->dobj_899__OUTPUT_C_INITIAL_PREDEF.obj_hash = 655622792; cdat->dobj_899__OUTPUT_C_INITIAL_PREDEF.obj_len = 4; /*inistring dstr_900__OUTPUT_C_INITIAL*/ @@ -21306,7 +21306,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_975__INITIALSYSTEMDATA_OBJPREDEF", melt_magic_discr (/*_.VALDATA___V193*/ meltfptr[192]) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_975__INITIALSYSTEMDATA_OBJPREDEF", ((meltobject_ptr_t) (/*_.VALDATA___V193*/ meltfptr[192]))->object_magic == OBMAG_OBJECT); cdat->dobj_975__INITIALSYSTEMDATA_OBJPREDEF.obj_class = (meltobject_ptr_t)(/*_.VALDATA___V193*/ meltfptr[192]); - cdat->dobj_975__INITIALSYSTEMDATA_OBJPREDEF.obj_hash = 769554563; + cdat->dobj_975__INITIALSYSTEMDATA_OBJPREDEF.obj_hash = 153600398; cdat->dobj_975__INITIALSYSTEMDATA_OBJPREDEF.obj_len = 2; /*iniobj dsym_976__INITIAL_SYSTEM_DATA*/ @@ -22235,7 +22235,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1120", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1120.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1120.obj_num = 0; - cdat->dobj_1120.obj_hash = 138960478; + cdat->dobj_1120.obj_hash = 792375716; cdat->dobj_1120.obj_len = 2; /*iniobj dsym_1121__OBVA*/ @@ -22258,7 +22258,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1123", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1123.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1123.obj_num = 1; - cdat->dobj_1123.obj_hash = 155328251; + cdat->dobj_1123.obj_hash = 262087614; cdat->dobj_1123.obj_len = 2; /*iniobj dsym_1124__OBODL*/ @@ -22281,7 +22281,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1126", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1126.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1126.obj_num = 2; - cdat->dobj_1126.obj_hash = 612538055; + cdat->dobj_1126.obj_hash = 637350515; cdat->dobj_1126.obj_len = 2; /*iniobj dsym_1127__GCX*/ @@ -22304,7 +22304,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1129", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1129.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1129.obj_num = 3; - cdat->dobj_1129.obj_hash = 1043937498; + cdat->dobj_1129.obj_hash = 488397455; cdat->dobj_1129.obj_len = 2; /*iniobj dsym_1130__SLOC*/ @@ -22327,7 +22327,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1132", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1132.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1132.obj_num = 4; - cdat->dobj_1132.obj_hash = 943490338; + cdat->dobj_1132.obj_hash = 970484100; cdat->dobj_1132.obj_len = 2; /*inimult dtup_1133__COMPILE_LETREC_FILL*/ @@ -22340,7 +22340,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1134__COMPILE_LETREC_FILL", melt_magic_discr (/*_.CLASS_SELECTOR__V9*/ meltfptr[8]) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1134__COMPILE_LETREC_FILL", ((meltobject_ptr_t) (/*_.CLASS_SELECTOR__V9*/ meltfptr[8]))->object_magic == OBMAG_OBJECT); cdat->dobj_1134__COMPILE_LETREC_FILL.obj_class = (meltobject_ptr_t)(/*_.CLASS_SELECTOR__V9*/ meltfptr[8]); - cdat->dobj_1134__COMPILE_LETREC_FILL.obj_hash = 214409518; + cdat->dobj_1134__COMPILE_LETREC_FILL.obj_hash = 128954619; cdat->dobj_1134__COMPILE_LETREC_FILL.obj_len = 4; /*inistring dstr_1135__COMPILE_LETREC_F*/ @@ -23442,7 +23442,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1308__DISCRCLOSURE_OBJPREDEF", melt_magic_discr (/*_.VALDATA___V193*/ meltfptr[192]) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1308__DISCRCLOSURE_OBJPREDEF", ((meltobject_ptr_t) (/*_.VALDATA___V193*/ meltfptr[192]))->object_magic == OBMAG_OBJECT); cdat->dobj_1308__DISCRCLOSURE_OBJPREDEF.obj_class = (meltobject_ptr_t)(/*_.VALDATA___V193*/ meltfptr[192]); - cdat->dobj_1308__DISCRCLOSURE_OBJPREDEF.obj_hash = 1051065591; + cdat->dobj_1308__DISCRCLOSURE_OBJPREDEF.obj_hash = 901687897; cdat->dobj_1308__DISCRCLOSURE_OBJPREDEF.obj_len = 2; /*iniobj dsym_1309__DISCR_CLOSURE*/ @@ -24087,7 +24087,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1409__COMPILE_MATCHER", melt_magic_discr (/*_.CLASS_SELECTOR__V9*/ meltfptr[8]) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1409__COMPILE_MATCHER", ((meltobject_ptr_t) (/*_.CLASS_SELECTOR__V9*/ meltfptr[8]))->object_magic == OBMAG_OBJECT); cdat->dobj_1409__COMPILE_MATCHER.obj_class = (meltobject_ptr_t)(/*_.CLASS_SELECTOR__V9*/ meltfptr[8]); - cdat->dobj_1409__COMPILE_MATCHER.obj_hash = 386279881; + cdat->dobj_1409__COMPILE_MATCHER.obj_hash = 59901779; cdat->dobj_1409__COMPILE_MATCHER.obj_len = 4; /*inistring dstr_1410__COMPILE_MATCHER*/ @@ -24128,7 +24128,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1415__CLASS_MATCHCOMPILCONTEXT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1415__CLASS_MATCHCOMPILCONTEXT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_1415__CLASS_MATCHCOMPILCONTEXT.obj_num = OBMAG_OBJECT; - cdat->dobj_1415__CLASS_MATCHCOMPILCONTEXT.obj_hash = 139591943; + cdat->dobj_1415__CLASS_MATCHCOMPILCONTEXT.obj_hash = 455718450; cdat->dobj_1415__CLASS_MATCHCOMPILCONTEXT.obj_len = 8; /*inistring dstr_1416__CLASS_MATCHCOMPI*/ @@ -24164,7 +24164,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1421__MCX_LOC", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1421__MCX_LOC.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_1421__MCX_LOC.obj_num = 1; - cdat->dobj_1421__MCX_LOC.obj_hash = 227329682; + cdat->dobj_1421__MCX_LOC.obj_hash = 386287425; cdat->dobj_1421__MCX_LOC.obj_len = 4; /*inistring dstr_1422__MCX_LOC*/ @@ -24192,7 +24192,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1425__MCX_NORMTESTER", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1425__MCX_NORMTESTER.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_1425__MCX_NORMTESTER.obj_num = 2; - cdat->dobj_1425__MCX_NORMTESTER.obj_hash = 577796687; + cdat->dobj_1425__MCX_NORMTESTER.obj_hash = 1029988542; cdat->dobj_1425__MCX_NORMTESTER.obj_len = 4; /*inistring dstr_1426__MCX_NORMTESTER*/ @@ -24220,7 +24220,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1429__MCX_GOTOTHEN", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1429__MCX_GOTOTHEN.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_1429__MCX_GOTOTHEN.obj_num = 3; - cdat->dobj_1429__MCX_GOTOTHEN.obj_hash = 879871058; + cdat->dobj_1429__MCX_GOTOTHEN.obj_hash = 1052773774; cdat->dobj_1429__MCX_GOTOTHEN.obj_len = 4; /*inistring dstr_1430__MCX_GOTOTHEN*/ @@ -24248,7 +24248,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1433__MCX_GOTOELSE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1433__MCX_GOTOELSE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_1433__MCX_GOTOELSE.obj_num = 4; - cdat->dobj_1433__MCX_GOTOELSE.obj_hash = 543562628; + cdat->dobj_1433__MCX_GOTOELSE.obj_hash = 554070994; cdat->dobj_1433__MCX_GOTOELSE.obj_len = 4; /*inistring dstr_1434__MCX_GOTOELSE*/ @@ -24276,7 +24276,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1437__MCX_OLIST", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1437__MCX_OLIST.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_1437__MCX_OLIST.obj_num = 5; - cdat->dobj_1437__MCX_OLIST.obj_hash = 69996886; + cdat->dobj_1437__MCX_OLIST.obj_hash = 783019285; cdat->dobj_1437__MCX_OLIST.obj_len = 4; /*inistring dstr_1438__MCX_OLIST*/ @@ -24304,7 +24304,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1441__MCX_SUFFIX", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1441__MCX_SUFFIX.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_1441__MCX_SUFFIX.obj_num = 6; - cdat->dobj_1441__MCX_SUFFIX.obj_hash = 923601288; + cdat->dobj_1441__MCX_SUFFIX.obj_hash = 382462484; cdat->dobj_1441__MCX_SUFFIX.obj_len = 4; /*inistring dstr_1442__MCX_SUFFIX*/ @@ -24332,7 +24332,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1445__MCX_STATECOUNTER", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1445__MCX_STATECOUNTER.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_1445__MCX_STATECOUNTER.obj_num = 7; - cdat->dobj_1445__MCX_STATECOUNTER.obj_hash = 534084467; + cdat->dobj_1445__MCX_STATECOUNTER.obj_hash = 1014036930; cdat->dobj_1445__MCX_STATECOUNTER.obj_len = 4; /*inistring dstr_1446__MCX_STATECOUNTER*/ @@ -24359,7 +24359,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1449__COMPILE_TESTER", melt_magic_discr (/*_.CLASS_SELECTOR__V9*/ meltfptr[8]) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1449__COMPILE_TESTER", ((meltobject_ptr_t) (/*_.CLASS_SELECTOR__V9*/ meltfptr[8]))->object_magic == OBMAG_OBJECT); cdat->dobj_1449__COMPILE_TESTER.obj_class = (meltobject_ptr_t)(/*_.CLASS_SELECTOR__V9*/ meltfptr[8]); - cdat->dobj_1449__COMPILE_TESTER.obj_hash = 1069742613; + cdat->dobj_1449__COMPILE_TESTER.obj_hash = 312795283; cdat->dobj_1449__COMPILE_TESTER.obj_len = 4; /*inistring dstr_1450__COMPILE_TESTER*/ @@ -24387,7 +24387,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1453__CLASS_TESTERCOMPILCONTEXT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1453__CLASS_TESTERCOMPILCONTEXT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_1453__CLASS_TESTERCOMPILCONTEXT.obj_num = OBMAG_OBJECT; - cdat->dobj_1453__CLASS_TESTERCOMPILCONTEXT.obj_hash = 266061016; + cdat->dobj_1453__CLASS_TESTERCOMPILCONTEXT.obj_hash = 271089856; cdat->dobj_1453__CLASS_TESTERCOMPILCONTEXT.obj_len = 8; /*inistring dstr_1454__CLASS_TESTERCOMP*/ @@ -24423,7 +24423,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1459__TCX_NRMATCH", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1459__TCX_NRMATCH.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_1459__TCX_NRMATCH.obj_num = 1; - cdat->dobj_1459__TCX_NRMATCH.obj_hash = 365917303; + cdat->dobj_1459__TCX_NRMATCH.obj_hash = 215669370; cdat->dobj_1459__TCX_NRMATCH.obj_len = 4; /*inistring dstr_1460__TCX_NRMATCH*/ @@ -24451,7 +24451,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1463__TCX_FREELIST", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1463__TCX_FREELIST.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_1463__TCX_FREELIST.obj_num = 2; - cdat->dobj_1463__TCX_FREELIST.obj_hash = 145128965; + cdat->dobj_1463__TCX_FREELIST.obj_hash = 422292931; cdat->dobj_1463__TCX_FREELIST.obj_len = 4; /*inistring dstr_1464__TCX_FREELIST*/ @@ -24479,7 +24479,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1467__TCX_NEXTEST", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1467__TCX_NEXTEST.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_1467__TCX_NEXTEST.obj_num = 3; - cdat->dobj_1467__TCX_NEXTEST.obj_hash = 864130124; + cdat->dobj_1467__TCX_NEXTEST.obj_hash = 376929424; cdat->dobj_1467__TCX_NEXTEST.obj_len = 4; /*inistring dstr_1468__TCX_NEXTEST*/ diff --git a/gcc/melt/generated/warmelt-macro.0.c b/gcc/melt/generated/warmelt-macro.0.c index d0a83cdaedc..493d9380153 100644 --- a/gcc/melt/generated/warmelt-macro.0.c +++ b/gcc/melt/generated/warmelt-macro.0.c @@ -3,7 +3,7 @@ #ifndef MELTGCC_DYNAMIC_OBJSTRUCT /* version string of the gcc executable generating this file: */ const char genversionstr_melt[]= - "4.5.0 20100223 (experimental) [melt-branch revision 157055]"; + "4.5.0 20100310 (experimental) [melt-branch revision 157367]"; #endif #include "run-melt.h" @@ -15434,7 +15434,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_7", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_7.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_7.obj_num = 0; - cdat->dobj_7.obj_hash = 940321265; + cdat->dobj_7.obj_hash = 202504703; cdat->dobj_7.obj_len = 2; /*inimult dtup_8__IS_RECURSIVELY_CONSTRUCTIBLE*/ @@ -15447,7 +15447,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_9__IS_RECURSIVELY_CONSTRUCTIBLE", melt_magic_discr (/*_.CLASS_SELECTOR__V7*/ meltfptr[6]) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_9__IS_RECURSIVELY_CONSTRUCTIBLE", ((meltobject_ptr_t) (/*_.CLASS_SELECTOR__V7*/ meltfptr[6]))->object_magic == OBMAG_OBJECT); cdat->dobj_9__IS_RECURSIVELY_CONSTRUCTIBLE.obj_class = (meltobject_ptr_t)(/*_.CLASS_SELECTOR__V7*/ meltfptr[6]); - cdat->dobj_9__IS_RECURSIVELY_CONSTRUCTIBLE.obj_hash = 881842120; + cdat->dobj_9__IS_RECURSIVELY_CONSTRUCTIBLE.obj_hash = 1052646405; cdat->dobj_9__IS_RECURSIVELY_CONSTRUCTIBLE.obj_len = 4; /*inistring dstr_10__IS_RECURSIVELY_C*/ @@ -15488,7 +15488,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_15__CLASS_SOURCE_ARGUMENTED_OPERATOR", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_15__CLASS_SOURCE_ARGUMENTED_OPERATOR.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_15__CLASS_SOURCE_ARGUMENTED_OPERATOR.obj_num = OBMAG_OBJECT; - cdat->dobj_15__CLASS_SOURCE_ARGUMENTED_OPERATOR.obj_hash = 345582562; + cdat->dobj_15__CLASS_SOURCE_ARGUMENTED_OPERATOR.obj_hash = 1062288560; cdat->dobj_15__CLASS_SOURCE_ARGUMENTED_OPERATOR.obj_len = 8; /*inistring dstr_16__CLASS_SOURCE_ARG*/ @@ -15524,7 +15524,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_21__SARGOP_ARGS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_21__SARGOP_ARGS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_21__SARGOP_ARGS.obj_num = 2; - cdat->dobj_21__SARGOP_ARGS.obj_hash = 694676845; + cdat->dobj_21__SARGOP_ARGS.obj_hash = 934602372; cdat->dobj_21__SARGOP_ARGS.obj_len = 4; /*inistring dstr_22__SARGOP_ARGS*/ @@ -15552,7 +15552,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_25__CLASS_SOURCE_APPLY", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_25__CLASS_SOURCE_APPLY.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_25__CLASS_SOURCE_APPLY.obj_num = OBMAG_OBJECT; - cdat->dobj_25__CLASS_SOURCE_APPLY.obj_hash = 545556108; + cdat->dobj_25__CLASS_SOURCE_APPLY.obj_hash = 664847071; cdat->dobj_25__CLASS_SOURCE_APPLY.obj_len = 8; /*inistring dstr_26__CLASS_SOURCE_APP*/ @@ -15588,7 +15588,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_31__SAPP_FUN", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_31__SAPP_FUN.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_31__SAPP_FUN.obj_num = 3; - cdat->dobj_31__SAPP_FUN.obj_hash = 813887078; + cdat->dobj_31__SAPP_FUN.obj_hash = 599227672; cdat->dobj_31__SAPP_FUN.obj_len = 4; /*inistring dstr_32__SAPP_FUN*/ @@ -15616,7 +15616,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_35__CLASS_SOURCE_MSEND", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_35__CLASS_SOURCE_MSEND.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_35__CLASS_SOURCE_MSEND.obj_num = OBMAG_OBJECT; - cdat->dobj_35__CLASS_SOURCE_MSEND.obj_hash = 511819489; + cdat->dobj_35__CLASS_SOURCE_MSEND.obj_hash = 610043754; cdat->dobj_35__CLASS_SOURCE_MSEND.obj_len = 8; /*inistring dstr_36__CLASS_SOURCE_MSE*/ @@ -15652,7 +15652,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_41__MSEND_SELSYMB", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_41__MSEND_SELSYMB.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_41__MSEND_SELSYMB.obj_num = 3; - cdat->dobj_41__MSEND_SELSYMB.obj_hash = 994224919; + cdat->dobj_41__MSEND_SELSYMB.obj_hash = 965581443; cdat->dobj_41__MSEND_SELSYMB.obj_len = 4; /*inistring dstr_42__MSEND_SELSYMB*/ @@ -15680,7 +15680,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_45__MSEND_RECV", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_45__MSEND_RECV.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_45__MSEND_RECV.obj_num = 4; - cdat->dobj_45__MSEND_RECV.obj_hash = 514068493; + cdat->dobj_45__MSEND_RECV.obj_hash = 925993598; cdat->dobj_45__MSEND_RECV.obj_len = 4; /*inistring dstr_46__MSEND_RECV*/ @@ -15708,7 +15708,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_49__CLASS_SOURCE_PRIMITIVE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_49__CLASS_SOURCE_PRIMITIVE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_49__CLASS_SOURCE_PRIMITIVE.obj_num = OBMAG_OBJECT; - cdat->dobj_49__CLASS_SOURCE_PRIMITIVE.obj_hash = 513360878; + cdat->dobj_49__CLASS_SOURCE_PRIMITIVE.obj_hash = 487895010; cdat->dobj_49__CLASS_SOURCE_PRIMITIVE.obj_len = 8; /*inistring dstr_50__CLASS_SOURCE_PRI*/ @@ -15744,7 +15744,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_55__SPRIM_OPER", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_55__SPRIM_OPER.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_55__SPRIM_OPER.obj_num = 3; - cdat->dobj_55__SPRIM_OPER.obj_hash = 68682951; + cdat->dobj_55__SPRIM_OPER.obj_hash = 541105710; cdat->dobj_55__SPRIM_OPER.obj_len = 4; /*inistring dstr_56__SPRIM_OPER*/ @@ -15772,7 +15772,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_59__CLASS_SOURCE_CITERATION", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_59__CLASS_SOURCE_CITERATION.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_59__CLASS_SOURCE_CITERATION.obj_num = OBMAG_OBJECT; - cdat->dobj_59__CLASS_SOURCE_CITERATION.obj_hash = 780070335; + cdat->dobj_59__CLASS_SOURCE_CITERATION.obj_hash = 668867192; cdat->dobj_59__CLASS_SOURCE_CITERATION.obj_len = 8; /*inistring dstr_60__CLASS_SOURCE_CIT*/ @@ -15808,7 +15808,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_65__SCITER_OPER", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_65__SCITER_OPER.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_65__SCITER_OPER.obj_num = 3; - cdat->dobj_65__SCITER_OPER.obj_hash = 297526040; + cdat->dobj_65__SCITER_OPER.obj_hash = 841306340; cdat->dobj_65__SCITER_OPER.obj_len = 4; /*inistring dstr_66__SCITER_OPER*/ @@ -15836,7 +15836,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_69__SCITER_VARBIND", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_69__SCITER_VARBIND.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_69__SCITER_VARBIND.obj_num = 4; - cdat->dobj_69__SCITER_VARBIND.obj_hash = 882555189; + cdat->dobj_69__SCITER_VARBIND.obj_hash = 988476885; cdat->dobj_69__SCITER_VARBIND.obj_len = 4; /*inistring dstr_70__SCITER_VARBIND*/ @@ -15864,7 +15864,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_73__SCITER_BODY", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_73__SCITER_BODY.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_73__SCITER_BODY.obj_num = 5; - cdat->dobj_73__SCITER_BODY.obj_hash = 614696747; + cdat->dobj_73__SCITER_BODY.obj_hash = 6971489; cdat->dobj_73__SCITER_BODY.obj_len = 4; /*inistring dstr_74__SCITER_BODY*/ @@ -15892,7 +15892,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_77__CLASS_SOURCE_CMATCHEXPR", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_77__CLASS_SOURCE_CMATCHEXPR.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_77__CLASS_SOURCE_CMATCHEXPR.obj_num = OBMAG_OBJECT; - cdat->dobj_77__CLASS_SOURCE_CMATCHEXPR.obj_hash = 783545668; + cdat->dobj_77__CLASS_SOURCE_CMATCHEXPR.obj_hash = 450543603; cdat->dobj_77__CLASS_SOURCE_CMATCHEXPR.obj_len = 8; /*inistring dstr_78__CLASS_SOURCE_CMA*/ @@ -15928,7 +15928,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_83__SCMATX_CMATCHER", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_83__SCMATX_CMATCHER.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_83__SCMATX_CMATCHER.obj_num = 3; - cdat->dobj_83__SCMATX_CMATCHER.obj_hash = 800152175; + cdat->dobj_83__SCMATX_CMATCHER.obj_hash = 768281618; cdat->dobj_83__SCMATX_CMATCHER.obj_len = 4; /*inistring dstr_84__SCMATX_CMATCHER*/ @@ -15956,7 +15956,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_87__CLASS_SOURCE_FUNMATCHEXPR", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_87__CLASS_SOURCE_FUNMATCHEXPR.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_87__CLASS_SOURCE_FUNMATCHEXPR.obj_num = OBMAG_OBJECT; - cdat->dobj_87__CLASS_SOURCE_FUNMATCHEXPR.obj_hash = 675653191; + cdat->dobj_87__CLASS_SOURCE_FUNMATCHEXPR.obj_hash = 556507087; cdat->dobj_87__CLASS_SOURCE_FUNMATCHEXPR.obj_len = 8; /*inistring dstr_88__CLASS_SOURCE_FUN*/ @@ -15992,7 +15992,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_93__SFMATX_FMATCHER", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_93__SFMATX_FMATCHER.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_93__SFMATX_FMATCHER.obj_num = 3; - cdat->dobj_93__SFMATX_FMATCHER.obj_hash = 634209051; + cdat->dobj_93__SFMATX_FMATCHER.obj_hash = 839026250; cdat->dobj_93__SFMATX_FMATCHER.obj_len = 4; /*inistring dstr_94__SFMATX_FMATCHER*/ @@ -16020,7 +16020,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_97__SFMATX_FMATBIND", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_97__SFMATX_FMATBIND.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_97__SFMATX_FMATBIND.obj_num = 4; - cdat->dobj_97__SFMATX_FMATBIND.obj_hash = 877178647; + cdat->dobj_97__SFMATX_FMATBIND.obj_hash = 521969572; cdat->dobj_97__SFMATX_FMATBIND.obj_len = 4; /*inistring dstr_98__SFMATX_FMATBIND*/ @@ -16048,7 +16048,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_101__CLASS_SOURCE_TUPLE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_101__CLASS_SOURCE_TUPLE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_101__CLASS_SOURCE_TUPLE.obj_num = OBMAG_OBJECT; - cdat->dobj_101__CLASS_SOURCE_TUPLE.obj_hash = 435091248; + cdat->dobj_101__CLASS_SOURCE_TUPLE.obj_hash = 579251272; cdat->dobj_101__CLASS_SOURCE_TUPLE.obj_len = 8; /*inistring dstr_102__CLASS_SOURCE_TUP*/ @@ -16084,7 +16084,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_107__CLASS_SOURCE_LIST", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_107__CLASS_SOURCE_LIST.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_107__CLASS_SOURCE_LIST.obj_num = OBMAG_OBJECT; - cdat->dobj_107__CLASS_SOURCE_LIST.obj_hash = 758669290; + cdat->dobj_107__CLASS_SOURCE_LIST.obj_hash = 1049080892; cdat->dobj_107__CLASS_SOURCE_LIST.obj_len = 8; /*inistring dstr_108__CLASS_SOURCE_LIS*/ @@ -16120,7 +16120,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_113__CLASS_SOURCE_PROGN", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_113__CLASS_SOURCE_PROGN.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_113__CLASS_SOURCE_PROGN.obj_num = OBMAG_OBJECT; - cdat->dobj_113__CLASS_SOURCE_PROGN.obj_hash = 461527916; + cdat->dobj_113__CLASS_SOURCE_PROGN.obj_hash = 995620923; cdat->dobj_113__CLASS_SOURCE_PROGN.obj_len = 8; /*inistring dstr_114__CLASS_SOURCE_PRO*/ @@ -16156,7 +16156,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_119__SPROGN_BODY", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_119__SPROGN_BODY.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_119__SPROGN_BODY.obj_num = 2; - cdat->dobj_119__SPROGN_BODY.obj_hash = 445339647; + cdat->dobj_119__SPROGN_BODY.obj_hash = 492945671; cdat->dobj_119__SPROGN_BODY.obj_len = 4; /*inistring dstr_120__SPROGN_BODY*/ @@ -16184,7 +16184,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_123__CLASS_SOURCE_RETURN", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_123__CLASS_SOURCE_RETURN.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_123__CLASS_SOURCE_RETURN.obj_num = OBMAG_OBJECT; - cdat->dobj_123__CLASS_SOURCE_RETURN.obj_hash = 565360473; + cdat->dobj_123__CLASS_SOURCE_RETURN.obj_hash = 109389295; cdat->dobj_123__CLASS_SOURCE_RETURN.obj_len = 8; /*inistring dstr_124__CLASS_SOURCE_RET*/ @@ -16220,7 +16220,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_129__CLASS_SOURCE_SETQ", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_129__CLASS_SOURCE_SETQ.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_129__CLASS_SOURCE_SETQ.obj_num = OBMAG_OBJECT; - cdat->dobj_129__CLASS_SOURCE_SETQ.obj_hash = 453555087; + cdat->dobj_129__CLASS_SOURCE_SETQ.obj_hash = 584058852; cdat->dobj_129__CLASS_SOURCE_SETQ.obj_len = 8; /*inistring dstr_130__CLASS_SOURCE_SET*/ @@ -16256,7 +16256,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_135__SSTQ_VAR", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_135__SSTQ_VAR.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_135__SSTQ_VAR.obj_num = 2; - cdat->dobj_135__SSTQ_VAR.obj_hash = 1007256907; + cdat->dobj_135__SSTQ_VAR.obj_hash = 261399170; cdat->dobj_135__SSTQ_VAR.obj_len = 4; /*inistring dstr_136__SSTQ_VAR*/ @@ -16284,7 +16284,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_139__SSTQ_EXPR", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_139__SSTQ_EXPR.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_139__SSTQ_EXPR.obj_num = 3; - cdat->dobj_139__SSTQ_EXPR.obj_hash = 569602448; + cdat->dobj_139__SSTQ_EXPR.obj_hash = 297612052; cdat->dobj_139__SSTQ_EXPR.obj_len = 4; /*inistring dstr_140__SSTQ_EXPR*/ @@ -16312,7 +16312,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_143__CLASS_SOURCE_COMMENT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_143__CLASS_SOURCE_COMMENT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_143__CLASS_SOURCE_COMMENT.obj_num = OBMAG_OBJECT; - cdat->dobj_143__CLASS_SOURCE_COMMENT.obj_hash = 935967153; + cdat->dobj_143__CLASS_SOURCE_COMMENT.obj_hash = 60966489; cdat->dobj_143__CLASS_SOURCE_COMMENT.obj_len = 8; /*inistring dstr_144__CLASS_SOURCE_COM*/ @@ -16348,7 +16348,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_149__SCOMM_STR", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_149__SCOMM_STR.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_149__SCOMM_STR.obj_num = 2; - cdat->dobj_149__SCOMM_STR.obj_hash = 784230788; + cdat->dobj_149__SCOMM_STR.obj_hash = 892788848; cdat->dobj_149__SCOMM_STR.obj_len = 4; /*inistring dstr_150__SCOMM_STR*/ @@ -16376,7 +16376,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_153__CLASS_SOURCE_QUOTE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_153__CLASS_SOURCE_QUOTE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_153__CLASS_SOURCE_QUOTE.obj_num = OBMAG_OBJECT; - cdat->dobj_153__CLASS_SOURCE_QUOTE.obj_hash = 609915896; + cdat->dobj_153__CLASS_SOURCE_QUOTE.obj_hash = 1029824526; cdat->dobj_153__CLASS_SOURCE_QUOTE.obj_len = 8; /*inistring dstr_154__CLASS_SOURCE_QUO*/ @@ -16412,7 +16412,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_159__SQUOTED", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_159__SQUOTED.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_159__SQUOTED.obj_num = 2; - cdat->dobj_159__SQUOTED.obj_hash = 247264450; + cdat->dobj_159__SQUOTED.obj_hash = 125699858; cdat->dobj_159__SQUOTED.obj_len = 4; /*inistring dstr_160__SQUOTED*/ @@ -16440,7 +16440,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_163__CLASS_SOURCE_EXPORTCOMMON", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_163__CLASS_SOURCE_EXPORTCOMMON.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_163__CLASS_SOURCE_EXPORTCOMMON.obj_num = OBMAG_OBJECT; - cdat->dobj_163__CLASS_SOURCE_EXPORTCOMMON.obj_hash = 175173212; + cdat->dobj_163__CLASS_SOURCE_EXPORTCOMMON.obj_hash = 145820083; cdat->dobj_163__CLASS_SOURCE_EXPORTCOMMON.obj_len = 8; /*inistring dstr_164__CLASS_SOURCE_EXP*/ @@ -16476,7 +16476,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_169__SEXPORT_NAMES", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_169__SEXPORT_NAMES.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_169__SEXPORT_NAMES.obj_num = 2; - cdat->dobj_169__SEXPORT_NAMES.obj_hash = 714212985; + cdat->dobj_169__SEXPORT_NAMES.obj_hash = 745779963; cdat->dobj_169__SEXPORT_NAMES.obj_len = 4; /*inistring dstr_170__SEXPORT_NAMES*/ @@ -16504,7 +16504,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_173__CLASS_SOURCE_EXPORT_VALUES", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_173__CLASS_SOURCE_EXPORT_VALUES.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_173__CLASS_SOURCE_EXPORT_VALUES.obj_num = OBMAG_OBJECT; - cdat->dobj_173__CLASS_SOURCE_EXPORT_VALUES.obj_hash = 508129150; + cdat->dobj_173__CLASS_SOURCE_EXPORT_VALUES.obj_hash = 340306959; cdat->dobj_173__CLASS_SOURCE_EXPORT_VALUES.obj_len = 8; /*inistring dstr_174__CLASS_SOURCE_EXP*/ @@ -16540,7 +16540,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_179__CLASS_SOURCE_EXPORT_CLASS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_179__CLASS_SOURCE_EXPORT_CLASS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_179__CLASS_SOURCE_EXPORT_CLASS.obj_num = OBMAG_OBJECT; - cdat->dobj_179__CLASS_SOURCE_EXPORT_CLASS.obj_hash = 660513545; + cdat->dobj_179__CLASS_SOURCE_EXPORT_CLASS.obj_hash = 219564961; cdat->dobj_179__CLASS_SOURCE_EXPORT_CLASS.obj_len = 8; /*inistring dstr_180__CLASS_SOURCE_EXP*/ @@ -16576,7 +16576,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_185__CLASS_SOURCE_EXPORT_MACRO", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_185__CLASS_SOURCE_EXPORT_MACRO.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_185__CLASS_SOURCE_EXPORT_MACRO.obj_num = OBMAG_OBJECT; - cdat->dobj_185__CLASS_SOURCE_EXPORT_MACRO.obj_hash = 905179144; + cdat->dobj_185__CLASS_SOURCE_EXPORT_MACRO.obj_hash = 243859657; cdat->dobj_185__CLASS_SOURCE_EXPORT_MACRO.obj_len = 8; /*inistring dstr_186__CLASS_SOURCE_EXP*/ @@ -16612,7 +16612,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_191__SEXPMAC_MNAME", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_191__SEXPMAC_MNAME.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_191__SEXPMAC_MNAME.obj_num = 2; - cdat->dobj_191__SEXPMAC_MNAME.obj_hash = 425545310; + cdat->dobj_191__SEXPMAC_MNAME.obj_hash = 472484744; cdat->dobj_191__SEXPMAC_MNAME.obj_len = 4; /*inistring dstr_192__SEXPMAC_MNAME*/ @@ -16640,7 +16640,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_195__SEXPMAC_MVAL", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_195__SEXPMAC_MVAL.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_195__SEXPMAC_MVAL.obj_num = 3; - cdat->dobj_195__SEXPMAC_MVAL.obj_hash = 470251350; + cdat->dobj_195__SEXPMAC_MVAL.obj_hash = 301473478; cdat->dobj_195__SEXPMAC_MVAL.obj_len = 4; /*inistring dstr_196__SEXPMAC_MVAL*/ @@ -16668,7 +16668,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_199__SEXPMAC_DOC", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_199__SEXPMAC_DOC.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_199__SEXPMAC_DOC.obj_num = 4; - cdat->dobj_199__SEXPMAC_DOC.obj_hash = 176759812; + cdat->dobj_199__SEXPMAC_DOC.obj_hash = 423137389; cdat->dobj_199__SEXPMAC_DOC.obj_len = 4; /*inistring dstr_200__SEXPMAC_DOC*/ @@ -16696,7 +16696,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_203__CLASS_SOURCE_EXPORT_PATMACRO", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_203__CLASS_SOURCE_EXPORT_PATMACRO.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_203__CLASS_SOURCE_EXPORT_PATMACRO.obj_num = OBMAG_OBJECT; - cdat->dobj_203__CLASS_SOURCE_EXPORT_PATMACRO.obj_hash = 866881070; + cdat->dobj_203__CLASS_SOURCE_EXPORT_PATMACRO.obj_hash = 85280715; cdat->dobj_203__CLASS_SOURCE_EXPORT_PATMACRO.obj_len = 8; /*inistring dstr_204__CLASS_SOURCE_EXP*/ @@ -16732,7 +16732,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_209__SEXPPAT_PVAL", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_209__SEXPPAT_PVAL.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_209__SEXPPAT_PVAL.obj_num = 5; - cdat->dobj_209__SEXPPAT_PVAL.obj_hash = 758613325; + cdat->dobj_209__SEXPPAT_PVAL.obj_hash = 574704629; cdat->dobj_209__SEXPPAT_PVAL.obj_len = 4; /*inistring dstr_210__SEXPPAT_PVAL*/ @@ -16760,7 +16760,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_213__CLASS_SOURCE_EXPORT_SYNONYM", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_213__CLASS_SOURCE_EXPORT_SYNONYM.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_213__CLASS_SOURCE_EXPORT_SYNONYM.obj_num = OBMAG_OBJECT; - cdat->dobj_213__CLASS_SOURCE_EXPORT_SYNONYM.obj_hash = 959341329; + cdat->dobj_213__CLASS_SOURCE_EXPORT_SYNONYM.obj_hash = 669437745; cdat->dobj_213__CLASS_SOURCE_EXPORT_SYNONYM.obj_len = 8; /*inistring dstr_214__CLASS_SOURCE_EXP*/ @@ -16796,7 +16796,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_219__SEXPSYN_NEWNAME", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_219__SEXPSYN_NEWNAME.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_219__SEXPSYN_NEWNAME.obj_num = 2; - cdat->dobj_219__SEXPSYN_NEWNAME.obj_hash = 309103257; + cdat->dobj_219__SEXPSYN_NEWNAME.obj_hash = 540697409; cdat->dobj_219__SEXPSYN_NEWNAME.obj_len = 4; /*inistring dstr_220__SEXPSYN_NEWNAME*/ @@ -16824,7 +16824,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_223__SEXPSYN_OLDNAME", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_223__SEXPSYN_OLDNAME.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_223__SEXPSYN_OLDNAME.obj_num = 3; - cdat->dobj_223__SEXPSYN_OLDNAME.obj_hash = 941754857; + cdat->dobj_223__SEXPSYN_OLDNAME.obj_hash = 564999162; cdat->dobj_223__SEXPSYN_OLDNAME.obj_len = 4; /*inistring dstr_224__SEXPSYN_OLDNAME*/ @@ -16852,7 +16852,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_227__SEXPSYN_DOC", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_227__SEXPSYN_DOC.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_227__SEXPSYN_DOC.obj_num = 4; - cdat->dobj_227__SEXPSYN_DOC.obj_hash = 1036924425; + cdat->dobj_227__SEXPSYN_DOC.obj_hash = 904811646; cdat->dobj_227__SEXPSYN_DOC.obj_len = 4; /*inistring dstr_228__SEXPSYN_DOC*/ @@ -16880,7 +16880,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_231__CLASS_SOURCE_DEFINITION", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_231__CLASS_SOURCE_DEFINITION.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_231__CLASS_SOURCE_DEFINITION.obj_num = OBMAG_OBJECT; - cdat->dobj_231__CLASS_SOURCE_DEFINITION.obj_hash = 930124131; + cdat->dobj_231__CLASS_SOURCE_DEFINITION.obj_hash = 294411061; cdat->dobj_231__CLASS_SOURCE_DEFINITION.obj_len = 8; /*inistring dstr_232__CLASS_SOURCE_DEF*/ @@ -16916,7 +16916,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_237__SDEF_NAME", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_237__SDEF_NAME.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_237__SDEF_NAME.obj_num = 2; - cdat->dobj_237__SDEF_NAME.obj_hash = 347945260; + cdat->dobj_237__SDEF_NAME.obj_hash = 312411594; cdat->dobj_237__SDEF_NAME.obj_len = 4; /*inistring dstr_238__SDEF_NAME*/ @@ -16944,7 +16944,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_241__SDEF_DOC", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_241__SDEF_DOC.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_241__SDEF_DOC.obj_num = 3; - cdat->dobj_241__SDEF_DOC.obj_hash = 630827809; + cdat->dobj_241__SDEF_DOC.obj_hash = 1049719093; cdat->dobj_241__SDEF_DOC.obj_len = 4; /*inistring dstr_242__SDEF_DOC*/ @@ -16972,7 +16972,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_245__CLASS_SOURCE_DEFINITION_FORMAL", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_245__CLASS_SOURCE_DEFINITION_FORMAL.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_245__CLASS_SOURCE_DEFINITION_FORMAL.obj_num = OBMAG_OBJECT; - cdat->dobj_245__CLASS_SOURCE_DEFINITION_FORMAL.obj_hash = 862488112; + cdat->dobj_245__CLASS_SOURCE_DEFINITION_FORMAL.obj_hash = 279644923; cdat->dobj_245__CLASS_SOURCE_DEFINITION_FORMAL.obj_len = 8; /*inistring dstr_246__CLASS_SOURCE_DEF*/ @@ -17008,7 +17008,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_251__SFORMAL_ARGS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_251__SFORMAL_ARGS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_251__SFORMAL_ARGS.obj_num = 4; - cdat->dobj_251__SFORMAL_ARGS.obj_hash = 550153097; + cdat->dobj_251__SFORMAL_ARGS.obj_hash = 829274931; cdat->dobj_251__SFORMAL_ARGS.obj_len = 4; /*inistring dstr_252__SFORMAL_ARGS*/ @@ -17036,7 +17036,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_255__CLASS_SOURCE_DEFUN", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_255__CLASS_SOURCE_DEFUN.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_255__CLASS_SOURCE_DEFUN.obj_num = OBMAG_OBJECT; - cdat->dobj_255__CLASS_SOURCE_DEFUN.obj_hash = 319413024; + cdat->dobj_255__CLASS_SOURCE_DEFUN.obj_hash = 345706291; cdat->dobj_255__CLASS_SOURCE_DEFUN.obj_len = 8; /*inistring dstr_256__CLASS_SOURCE_DEF*/ @@ -17072,7 +17072,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_261__SFUN_BODY", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_261__SFUN_BODY.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_261__SFUN_BODY.obj_num = 5; - cdat->dobj_261__SFUN_BODY.obj_hash = 971989073; + cdat->dobj_261__SFUN_BODY.obj_hash = 74908075; cdat->dobj_261__SFUN_BODY.obj_len = 4; /*inistring dstr_262__SFUN_BODY*/ @@ -17100,7 +17100,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_265__CLASS_SOURCE_DEFPRIMITIVE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_265__CLASS_SOURCE_DEFPRIMITIVE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_265__CLASS_SOURCE_DEFPRIMITIVE.obj_num = OBMAG_OBJECT; - cdat->dobj_265__CLASS_SOURCE_DEFPRIMITIVE.obj_hash = 916340035; + cdat->dobj_265__CLASS_SOURCE_DEFPRIMITIVE.obj_hash = 478664457; cdat->dobj_265__CLASS_SOURCE_DEFPRIMITIVE.obj_len = 8; /*inistring dstr_266__CLASS_SOURCE_DEF*/ @@ -17136,7 +17136,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_271__SPRIM_TYPE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_271__SPRIM_TYPE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_271__SPRIM_TYPE.obj_num = 5; - cdat->dobj_271__SPRIM_TYPE.obj_hash = 980855977; + cdat->dobj_271__SPRIM_TYPE.obj_hash = 676074928; cdat->dobj_271__SPRIM_TYPE.obj_len = 4; /*inistring dstr_272__SPRIM_TYPE*/ @@ -17164,7 +17164,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_275__SPRIM_EXPANSION", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_275__SPRIM_EXPANSION.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_275__SPRIM_EXPANSION.obj_num = 6; - cdat->dobj_275__SPRIM_EXPANSION.obj_hash = 998669934; + cdat->dobj_275__SPRIM_EXPANSION.obj_hash = 651166822; cdat->dobj_275__SPRIM_EXPANSION.obj_len = 4; /*inistring dstr_276__SPRIM_EXPANSION*/ @@ -17192,7 +17192,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_279__CLASS_SOURCE_DEFCITERATOR", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_279__CLASS_SOURCE_DEFCITERATOR.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_279__CLASS_SOURCE_DEFCITERATOR.obj_num = OBMAG_OBJECT; - cdat->dobj_279__CLASS_SOURCE_DEFCITERATOR.obj_hash = 529995995; + cdat->dobj_279__CLASS_SOURCE_DEFCITERATOR.obj_hash = 305752103; cdat->dobj_279__CLASS_SOURCE_DEFCITERATOR.obj_len = 8; /*inistring dstr_280__CLASS_SOURCE_DEF*/ @@ -17228,7 +17228,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_285__SCITERDEF_CITERATOR", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_285__SCITERDEF_CITERATOR.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_285__SCITERDEF_CITERATOR.obj_num = 5; - cdat->dobj_285__SCITERDEF_CITERATOR.obj_hash = 306544552; + cdat->dobj_285__SCITERDEF_CITERATOR.obj_hash = 927555609; cdat->dobj_285__SCITERDEF_CITERATOR.obj_len = 4; /*inistring dstr_286__SCITERDEF_CITERA*/ @@ -17256,7 +17256,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_289__CLASS_SOURCE_DEFCMATCHER", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_289__CLASS_SOURCE_DEFCMATCHER.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_289__CLASS_SOURCE_DEFCMATCHER.obj_num = OBMAG_OBJECT; - cdat->dobj_289__CLASS_SOURCE_DEFCMATCHER.obj_hash = 509272089; + cdat->dobj_289__CLASS_SOURCE_DEFCMATCHER.obj_hash = 392131817; cdat->dobj_289__CLASS_SOURCE_DEFCMATCHER.obj_len = 8; /*inistring dstr_290__CLASS_SOURCE_DEF*/ @@ -17292,7 +17292,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_295__SCMATDEF_CMATCHER", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_295__SCMATDEF_CMATCHER.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_295__SCMATDEF_CMATCHER.obj_num = 5; - cdat->dobj_295__SCMATDEF_CMATCHER.obj_hash = 856072044; + cdat->dobj_295__SCMATDEF_CMATCHER.obj_hash = 842793497; cdat->dobj_295__SCMATDEF_CMATCHER.obj_len = 4; /*inistring dstr_296__SCMATDEF_CMATCHE*/ @@ -17320,7 +17320,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_299__CLASS_SOURCE_DEFUNMATCHER", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_299__CLASS_SOURCE_DEFUNMATCHER.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_299__CLASS_SOURCE_DEFUNMATCHER.obj_num = OBMAG_OBJECT; - cdat->dobj_299__CLASS_SOURCE_DEFUNMATCHER.obj_hash = 585802234; + cdat->dobj_299__CLASS_SOURCE_DEFUNMATCHER.obj_hash = 329630241; cdat->dobj_299__CLASS_SOURCE_DEFUNMATCHER.obj_len = 8; /*inistring dstr_300__CLASS_SOURCE_DEF*/ @@ -17356,7 +17356,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_305__SFUMATDEF_INS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_305__SFUMATDEF_INS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_305__SFUMATDEF_INS.obj_num = 5; - cdat->dobj_305__SFUMATDEF_INS.obj_hash = 168239496; + cdat->dobj_305__SFUMATDEF_INS.obj_hash = 724493366; cdat->dobj_305__SFUMATDEF_INS.obj_len = 4; /*inistring dstr_306__SFUMATDEF_INS*/ @@ -17384,7 +17384,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_309__SFUMATDEF_OUTS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_309__SFUMATDEF_OUTS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_309__SFUMATDEF_OUTS.obj_num = 6; - cdat->dobj_309__SFUMATDEF_OUTS.obj_hash = 927632331; + cdat->dobj_309__SFUMATDEF_OUTS.obj_hash = 960409031; cdat->dobj_309__SFUMATDEF_OUTS.obj_len = 4; /*inistring dstr_310__SFUMATDEF_OUTS*/ @@ -17412,7 +17412,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_313__SFUMATDEF_MATCHF", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_313__SFUMATDEF_MATCHF.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_313__SFUMATDEF_MATCHF.obj_num = 7; - cdat->dobj_313__SFUMATDEF_MATCHF.obj_hash = 83528254; + cdat->dobj_313__SFUMATDEF_MATCHF.obj_hash = 492691095; cdat->dobj_313__SFUMATDEF_MATCHF.obj_len = 4; /*inistring dstr_314__SFUMATDEF_MATCHF*/ @@ -17440,7 +17440,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_317__SFUMATDEF_APPLYF", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_317__SFUMATDEF_APPLYF.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_317__SFUMATDEF_APPLYF.obj_num = 8; - cdat->dobj_317__SFUMATDEF_APPLYF.obj_hash = 687653134; + cdat->dobj_317__SFUMATDEF_APPLYF.obj_hash = 788725959; cdat->dobj_317__SFUMATDEF_APPLYF.obj_len = 4; /*inistring dstr_318__SFUMATDEF_APPLYF*/ @@ -17468,7 +17468,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_321__SFUMATDEF_DATA", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_321__SFUMATDEF_DATA.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_321__SFUMATDEF_DATA.obj_num = 9; - cdat->dobj_321__SFUMATDEF_DATA.obj_hash = 844323126; + cdat->dobj_321__SFUMATDEF_DATA.obj_hash = 841675860; cdat->dobj_321__SFUMATDEF_DATA.obj_len = 4; /*inistring dstr_322__SFUMATDEF_DATA*/ @@ -17496,7 +17496,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_325__CLASS_SOURCE_DEFOBJCOMMON", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_325__CLASS_SOURCE_DEFOBJCOMMON.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_325__CLASS_SOURCE_DEFOBJCOMMON.obj_num = OBMAG_OBJECT; - cdat->dobj_325__CLASS_SOURCE_DEFOBJCOMMON.obj_hash = 1001568511; + cdat->dobj_325__CLASS_SOURCE_DEFOBJCOMMON.obj_hash = 288338998; cdat->dobj_325__CLASS_SOURCE_DEFOBJCOMMON.obj_len = 8; /*inistring dstr_326__CLASS_SOURCE_DEF*/ @@ -17532,7 +17532,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_331__SOBJ_PREDEF", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_331__SOBJ_PREDEF.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_331__SOBJ_PREDEF.obj_num = 4; - cdat->dobj_331__SOBJ_PREDEF.obj_hash = 684298649; + cdat->dobj_331__SOBJ_PREDEF.obj_hash = 195183923; cdat->dobj_331__SOBJ_PREDEF.obj_len = 4; /*inistring dstr_332__SOBJ_PREDEF*/ @@ -17560,7 +17560,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_335__CLASS_SOURCE_DEFCLASS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_335__CLASS_SOURCE_DEFCLASS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_335__CLASS_SOURCE_DEFCLASS.obj_num = OBMAG_OBJECT; - cdat->dobj_335__CLASS_SOURCE_DEFCLASS.obj_hash = 21774864; + cdat->dobj_335__CLASS_SOURCE_DEFCLASS.obj_hash = 959041073; cdat->dobj_335__CLASS_SOURCE_DEFCLASS.obj_len = 8; /*inistring dstr_336__CLASS_SOURCE_DEF*/ @@ -17596,7 +17596,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_341__SCLASS_CLABIND", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_341__SCLASS_CLABIND.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_341__SCLASS_CLABIND.obj_num = 5; - cdat->dobj_341__SCLASS_CLABIND.obj_hash = 429123904; + cdat->dobj_341__SCLASS_CLABIND.obj_hash = 625027964; cdat->dobj_341__SCLASS_CLABIND.obj_len = 4; /*inistring dstr_342__SCLASS_CLABIND*/ @@ -17624,7 +17624,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_345__SCLASS_SUPERBIND", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_345__SCLASS_SUPERBIND.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_345__SCLASS_SUPERBIND.obj_num = 6; - cdat->dobj_345__SCLASS_SUPERBIND.obj_hash = 874985244; + cdat->dobj_345__SCLASS_SUPERBIND.obj_hash = 150680583; cdat->dobj_345__SCLASS_SUPERBIND.obj_len = 4; /*inistring dstr_346__SCLASS_SUPERBIND*/ @@ -17652,7 +17652,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_349__SCLASS_FLDBINDS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_349__SCLASS_FLDBINDS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_349__SCLASS_FLDBINDS.obj_num = 7; - cdat->dobj_349__SCLASS_FLDBINDS.obj_hash = 189132916; + cdat->dobj_349__SCLASS_FLDBINDS.obj_hash = 1065802531; cdat->dobj_349__SCLASS_FLDBINDS.obj_len = 4; /*inistring dstr_350__SCLASS_FLDBINDS*/ @@ -17680,7 +17680,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_353__CLASS_SOURCE_DEFINSTANCE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_353__CLASS_SOURCE_DEFINSTANCE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_353__CLASS_SOURCE_DEFINSTANCE.obj_num = OBMAG_OBJECT; - cdat->dobj_353__CLASS_SOURCE_DEFINSTANCE.obj_hash = 669110499; + cdat->dobj_353__CLASS_SOURCE_DEFINSTANCE.obj_hash = 1058711081; cdat->dobj_353__CLASS_SOURCE_DEFINSTANCE.obj_len = 8; /*inistring dstr_354__CLASS_SOURCE_DEF*/ @@ -17716,7 +17716,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_359__SINST_CLASS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_359__SINST_CLASS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_359__SINST_CLASS.obj_num = 5; - cdat->dobj_359__SINST_CLASS.obj_hash = 8800789; + cdat->dobj_359__SINST_CLASS.obj_hash = 882308234; cdat->dobj_359__SINST_CLASS.obj_len = 4; /*inistring dstr_360__SINST_CLASS*/ @@ -17744,7 +17744,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_363__SINST_CLABIND", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_363__SINST_CLABIND.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_363__SINST_CLABIND.obj_num = 6; - cdat->dobj_363__SINST_CLABIND.obj_hash = 602670290; + cdat->dobj_363__SINST_CLABIND.obj_hash = 627247341; cdat->dobj_363__SINST_CLABIND.obj_len = 4; /*inistring dstr_364__SINST_CLABIND*/ @@ -17772,7 +17772,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_367__SINST_OBJNUM", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_367__SINST_OBJNUM.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_367__SINST_OBJNUM.obj_num = 7; - cdat->dobj_367__SINST_OBJNUM.obj_hash = 117379740; + cdat->dobj_367__SINST_OBJNUM.obj_hash = 588481949; cdat->dobj_367__SINST_OBJNUM.obj_len = 4; /*inistring dstr_368__SINST_OBJNUM*/ @@ -17800,7 +17800,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_371__SINST_FIELDS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_371__SINST_FIELDS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_371__SINST_FIELDS.obj_num = 8; - cdat->dobj_371__SINST_FIELDS.obj_hash = 1005647204; + cdat->dobj_371__SINST_FIELDS.obj_hash = 414745969; cdat->dobj_371__SINST_FIELDS.obj_len = 4; /*inistring dstr_372__SINST_FIELDS*/ @@ -17828,7 +17828,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_375__CLASS_SOURCE_DEFSELECTOR", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_375__CLASS_SOURCE_DEFSELECTOR.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_375__CLASS_SOURCE_DEFSELECTOR.obj_num = OBMAG_OBJECT; - cdat->dobj_375__CLASS_SOURCE_DEFSELECTOR.obj_hash = 119683847; + cdat->dobj_375__CLASS_SOURCE_DEFSELECTOR.obj_hash = 233115916; cdat->dobj_375__CLASS_SOURCE_DEFSELECTOR.obj_len = 8; /*inistring dstr_376__CLASS_SOURCE_DEF*/ @@ -17864,7 +17864,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_381__SDEFSEL_FORMALS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_381__SDEFSEL_FORMALS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_381__SDEFSEL_FORMALS.obj_num = 9; - cdat->dobj_381__SDEFSEL_FORMALS.obj_hash = 826086896; + cdat->dobj_381__SDEFSEL_FORMALS.obj_hash = 501932311; cdat->dobj_381__SDEFSEL_FORMALS.obj_len = 4; /*inistring dstr_382__SDEFSEL_FORMALS*/ @@ -17892,7 +17892,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_385__CLASS_SOURCE_FIELDASSIGN", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_385__CLASS_SOURCE_FIELDASSIGN.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_385__CLASS_SOURCE_FIELDASSIGN.obj_num = OBMAG_OBJECT; - cdat->dobj_385__CLASS_SOURCE_FIELDASSIGN.obj_hash = 1035257271; + cdat->dobj_385__CLASS_SOURCE_FIELDASSIGN.obj_hash = 347051011; cdat->dobj_385__CLASS_SOURCE_FIELDASSIGN.obj_len = 8; /*inistring dstr_386__CLASS_SOURCE_FIE*/ @@ -17928,7 +17928,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_391__SFLA_FIELD", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_391__SFLA_FIELD.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_391__SFLA_FIELD.obj_num = 2; - cdat->dobj_391__SFLA_FIELD.obj_hash = 706912265; + cdat->dobj_391__SFLA_FIELD.obj_hash = 557795196; cdat->dobj_391__SFLA_FIELD.obj_len = 4; /*inistring dstr_392__SFLA_FIELD*/ @@ -17956,7 +17956,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_395__SFLA_EXPR", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_395__SFLA_EXPR.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_395__SFLA_EXPR.obj_num = 3; - cdat->dobj_395__SFLA_EXPR.obj_hash = 395619401; + cdat->dobj_395__SFLA_EXPR.obj_hash = 46291267; cdat->dobj_395__SFLA_EXPR.obj_len = 4; /*inistring dstr_396__SFLA_EXPR*/ @@ -17984,7 +17984,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_399__CLASS_SOURCE_INSTANCE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_399__CLASS_SOURCE_INSTANCE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_399__CLASS_SOURCE_INSTANCE.obj_num = OBMAG_OBJECT; - cdat->dobj_399__CLASS_SOURCE_INSTANCE.obj_hash = 893096672; + cdat->dobj_399__CLASS_SOURCE_INSTANCE.obj_hash = 999001241; cdat->dobj_399__CLASS_SOURCE_INSTANCE.obj_len = 8; /*inistring dstr_400__CLASS_SOURCE_INS*/ @@ -18020,7 +18020,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_405__SMINS_CLASS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_405__SMINS_CLASS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_405__SMINS_CLASS.obj_num = 2; - cdat->dobj_405__SMINS_CLASS.obj_hash = 713345758; + cdat->dobj_405__SMINS_CLASS.obj_hash = 290457550; cdat->dobj_405__SMINS_CLASS.obj_len = 4; /*inistring dstr_406__SMINS_CLASS*/ @@ -18048,7 +18048,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_409__SMINS_CLABIND", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_409__SMINS_CLABIND.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_409__SMINS_CLABIND.obj_num = 3; - cdat->dobj_409__SMINS_CLABIND.obj_hash = 298892081; + cdat->dobj_409__SMINS_CLABIND.obj_hash = 343174235; cdat->dobj_409__SMINS_CLABIND.obj_len = 4; /*inistring dstr_410__SMINS_CLABIND*/ @@ -18076,7 +18076,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_413__SMINS_FIELDS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_413__SMINS_FIELDS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_413__SMINS_FIELDS.obj_num = 4; - cdat->dobj_413__SMINS_FIELDS.obj_hash = 742550585; + cdat->dobj_413__SMINS_FIELDS.obj_hash = 1040142251; cdat->dobj_413__SMINS_FIELDS.obj_len = 4; /*inistring dstr_414__SMINS_FIELDS*/ @@ -18104,7 +18104,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_417__CLASS_SOURCE_GET_FIELD", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_417__CLASS_SOURCE_GET_FIELD.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_417__CLASS_SOURCE_GET_FIELD.obj_num = OBMAG_OBJECT; - cdat->dobj_417__CLASS_SOURCE_GET_FIELD.obj_hash = 206674731; + cdat->dobj_417__CLASS_SOURCE_GET_FIELD.obj_hash = 530824402; cdat->dobj_417__CLASS_SOURCE_GET_FIELD.obj_len = 8; /*inistring dstr_418__CLASS_SOURCE_GET*/ @@ -18140,7 +18140,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_423__SUGET_OBJ", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_423__SUGET_OBJ.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_423__SUGET_OBJ.obj_num = 2; - cdat->dobj_423__SUGET_OBJ.obj_hash = 167843929; + cdat->dobj_423__SUGET_OBJ.obj_hash = 416421906; cdat->dobj_423__SUGET_OBJ.obj_len = 4; /*inistring dstr_424__SUGET_OBJ*/ @@ -18168,7 +18168,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_427__SUGET_FIELD", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_427__SUGET_FIELD.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_427__SUGET_FIELD.obj_num = 3; - cdat->dobj_427__SUGET_FIELD.obj_hash = 81902863; + cdat->dobj_427__SUGET_FIELD.obj_hash = 618355935; cdat->dobj_427__SUGET_FIELD.obj_len = 4; /*inistring dstr_428__SUGET_FIELD*/ @@ -18196,7 +18196,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_431__CLASS_SOURCE_UNSAFE_GET_FIELD", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_431__CLASS_SOURCE_UNSAFE_GET_FIELD.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_431__CLASS_SOURCE_UNSAFE_GET_FIELD.obj_num = OBMAG_OBJECT; - cdat->dobj_431__CLASS_SOURCE_UNSAFE_GET_FIELD.obj_hash = 326383836; + cdat->dobj_431__CLASS_SOURCE_UNSAFE_GET_FIELD.obj_hash = 450899455; cdat->dobj_431__CLASS_SOURCE_UNSAFE_GET_FIELD.obj_len = 8; /*inistring dstr_432__CLASS_SOURCE_UNS*/ @@ -18232,7 +18232,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_437__CLASS_SOURCE_PUT_FIELDS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_437__CLASS_SOURCE_PUT_FIELDS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_437__CLASS_SOURCE_PUT_FIELDS.obj_num = OBMAG_OBJECT; - cdat->dobj_437__CLASS_SOURCE_PUT_FIELDS.obj_hash = 348704314; + cdat->dobj_437__CLASS_SOURCE_PUT_FIELDS.obj_hash = 888303765; cdat->dobj_437__CLASS_SOURCE_PUT_FIELDS.obj_len = 8; /*inistring dstr_438__CLASS_SOURCE_PUT*/ @@ -18268,7 +18268,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_443__SUPUT_OBJ", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_443__SUPUT_OBJ.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_443__SUPUT_OBJ.obj_num = 2; - cdat->dobj_443__SUPUT_OBJ.obj_hash = 725827059; + cdat->dobj_443__SUPUT_OBJ.obj_hash = 500889419; cdat->dobj_443__SUPUT_OBJ.obj_len = 4; /*inistring dstr_444__SUPUT_OBJ*/ @@ -18296,7 +18296,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_447__SUPUT_FIELDS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_447__SUPUT_FIELDS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_447__SUPUT_FIELDS.obj_num = 3; - cdat->dobj_447__SUPUT_FIELDS.obj_hash = 630852411; + cdat->dobj_447__SUPUT_FIELDS.obj_hash = 375795455; cdat->dobj_447__SUPUT_FIELDS.obj_len = 4; /*inistring dstr_448__SUPUT_FIELDS*/ @@ -18324,7 +18324,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_451__CLASS_SOURCE_UNSAFE_PUT_FIELDS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_451__CLASS_SOURCE_UNSAFE_PUT_FIELDS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_451__CLASS_SOURCE_UNSAFE_PUT_FIELDS.obj_num = OBMAG_OBJECT; - cdat->dobj_451__CLASS_SOURCE_UNSAFE_PUT_FIELDS.obj_hash = 246285993; + cdat->dobj_451__CLASS_SOURCE_UNSAFE_PUT_FIELDS.obj_hash = 274370685; cdat->dobj_451__CLASS_SOURCE_UNSAFE_PUT_FIELDS.obj_len = 8; /*inistring dstr_452__CLASS_SOURCE_UNS*/ @@ -18360,7 +18360,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_457__CLASS_SOURCE_IF", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_457__CLASS_SOURCE_IF.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_457__CLASS_SOURCE_IF.obj_num = OBMAG_OBJECT; - cdat->dobj_457__CLASS_SOURCE_IF.obj_hash = 744673621; + cdat->dobj_457__CLASS_SOURCE_IF.obj_hash = 1059207692; cdat->dobj_457__CLASS_SOURCE_IF.obj_len = 8; /*inistring dstr_458__CLASS_SOURCE_IF*/ @@ -18396,7 +18396,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_463__SIF_TEST", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_463__SIF_TEST.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_463__SIF_TEST.obj_num = 2; - cdat->dobj_463__SIF_TEST.obj_hash = 730647379; + cdat->dobj_463__SIF_TEST.obj_hash = 685682494; cdat->dobj_463__SIF_TEST.obj_len = 4; /*inistring dstr_464__SIF_TEST*/ @@ -18424,7 +18424,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_467__SIF_THEN", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_467__SIF_THEN.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_467__SIF_THEN.obj_num = 3; - cdat->dobj_467__SIF_THEN.obj_hash = 1033157904; + cdat->dobj_467__SIF_THEN.obj_hash = 915863160; cdat->dobj_467__SIF_THEN.obj_len = 4; /*inistring dstr_468__SIF_THEN*/ @@ -18452,7 +18452,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_471__CLASS_SOURCE_IFELSE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_471__CLASS_SOURCE_IFELSE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_471__CLASS_SOURCE_IFELSE.obj_num = OBMAG_OBJECT; - cdat->dobj_471__CLASS_SOURCE_IFELSE.obj_hash = 729343278; + cdat->dobj_471__CLASS_SOURCE_IFELSE.obj_hash = 1067626310; cdat->dobj_471__CLASS_SOURCE_IFELSE.obj_len = 8; /*inistring dstr_472__CLASS_SOURCE_IFE*/ @@ -18488,7 +18488,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_477__SIF_ELSE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_477__SIF_ELSE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_477__SIF_ELSE.obj_num = 4; - cdat->dobj_477__SIF_ELSE.obj_hash = 558039853; + cdat->dobj_477__SIF_ELSE.obj_hash = 979763830; cdat->dobj_477__SIF_ELSE.obj_len = 4; /*inistring dstr_478__SIF_ELSE*/ @@ -18516,7 +18516,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_481__CLASS_SOURCE_OR", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_481__CLASS_SOURCE_OR.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_481__CLASS_SOURCE_OR.obj_num = OBMAG_OBJECT; - cdat->dobj_481__CLASS_SOURCE_OR.obj_hash = 533562293; + cdat->dobj_481__CLASS_SOURCE_OR.obj_hash = 252209016; cdat->dobj_481__CLASS_SOURCE_OR.obj_len = 8; /*inistring dstr_482__CLASS_SOURCE_OR*/ @@ -18552,7 +18552,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_487__SOR_DISJ", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_487__SOR_DISJ.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_487__SOR_DISJ.obj_num = 2; - cdat->dobj_487__SOR_DISJ.obj_hash = 203286172; + cdat->dobj_487__SOR_DISJ.obj_hash = 987484006; cdat->dobj_487__SOR_DISJ.obj_len = 4; /*inistring dstr_488__SOR_DISJ*/ @@ -18580,7 +18580,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_491__CLASS_SOURCE_CPPIF", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_491__CLASS_SOURCE_CPPIF.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_491__CLASS_SOURCE_CPPIF.obj_num = OBMAG_OBJECT; - cdat->dobj_491__CLASS_SOURCE_CPPIF.obj_hash = 1043905415; + cdat->dobj_491__CLASS_SOURCE_CPPIF.obj_hash = 766089884; cdat->dobj_491__CLASS_SOURCE_CPPIF.obj_len = 8; /*inistring dstr_492__CLASS_SOURCE_CPP*/ @@ -18616,7 +18616,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_497__SIFP_COND", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_497__SIFP_COND.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_497__SIFP_COND.obj_num = 2; - cdat->dobj_497__SIFP_COND.obj_hash = 822699890; + cdat->dobj_497__SIFP_COND.obj_hash = 416664718; cdat->dobj_497__SIFP_COND.obj_len = 4; /*inistring dstr_498__SIFP_COND*/ @@ -18644,7 +18644,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_501__SIFP_THEN", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_501__SIFP_THEN.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_501__SIFP_THEN.obj_num = 3; - cdat->dobj_501__SIFP_THEN.obj_hash = 293648391; + cdat->dobj_501__SIFP_THEN.obj_hash = 988481524; cdat->dobj_501__SIFP_THEN.obj_len = 4; /*inistring dstr_502__SIFP_THEN*/ @@ -18672,7 +18672,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_505__SIFP_ELSE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_505__SIFP_ELSE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_505__SIFP_ELSE.obj_num = 4; - cdat->dobj_505__SIFP_ELSE.obj_hash = 318894469; + cdat->dobj_505__SIFP_ELSE.obj_hash = 914756331; cdat->dobj_505__SIFP_ELSE.obj_len = 4; /*inistring dstr_506__SIFP_ELSE*/ @@ -18700,7 +18700,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_509__CLASS_SOURCE_MATCH", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_509__CLASS_SOURCE_MATCH.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_509__CLASS_SOURCE_MATCH.obj_num = OBMAG_OBJECT; - cdat->dobj_509__CLASS_SOURCE_MATCH.obj_hash = 47942430; + cdat->dobj_509__CLASS_SOURCE_MATCH.obj_hash = 905796402; cdat->dobj_509__CLASS_SOURCE_MATCH.obj_len = 8; /*inistring dstr_510__CLASS_SOURCE_MAT*/ @@ -18736,7 +18736,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_515__SMAT_MATCHEDX", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_515__SMAT_MATCHEDX.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_515__SMAT_MATCHEDX.obj_num = 2; - cdat->dobj_515__SMAT_MATCHEDX.obj_hash = 135778428; + cdat->dobj_515__SMAT_MATCHEDX.obj_hash = 731002740; cdat->dobj_515__SMAT_MATCHEDX.obj_len = 4; /*inistring dstr_516__SMAT_MATCHEDX*/ @@ -18764,7 +18764,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_519__SMAT_CASES", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_519__SMAT_CASES.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_519__SMAT_CASES.obj_num = 3; - cdat->dobj_519__SMAT_CASES.obj_hash = 1006096425; + cdat->dobj_519__SMAT_CASES.obj_hash = 916534608; cdat->dobj_519__SMAT_CASES.obj_len = 4; /*inistring dstr_520__SMAT_CASES*/ @@ -18792,7 +18792,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_523__CLASS_SOURCE_MATCH_CASE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_523__CLASS_SOURCE_MATCH_CASE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_523__CLASS_SOURCE_MATCH_CASE.obj_num = OBMAG_OBJECT; - cdat->dobj_523__CLASS_SOURCE_MATCH_CASE.obj_hash = 440364241; + cdat->dobj_523__CLASS_SOURCE_MATCH_CASE.obj_hash = 806870098; cdat->dobj_523__CLASS_SOURCE_MATCH_CASE.obj_len = 8; /*inistring dstr_524__CLASS_SOURCE_MAT*/ @@ -18828,7 +18828,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_529__SCAM_PATT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_529__SCAM_PATT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_529__SCAM_PATT.obj_num = 2; - cdat->dobj_529__SCAM_PATT.obj_hash = 150723456; + cdat->dobj_529__SCAM_PATT.obj_hash = 894556016; cdat->dobj_529__SCAM_PATT.obj_len = 4; /*inistring dstr_530__SCAM_PATT*/ @@ -18856,7 +18856,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_533__SCAM_BODY", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_533__SCAM_BODY.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_533__SCAM_BODY.obj_num = 3; - cdat->dobj_533__SCAM_BODY.obj_hash = 602869601; + cdat->dobj_533__SCAM_BODY.obj_hash = 492408191; cdat->dobj_533__SCAM_BODY.obj_len = 4; /*inistring dstr_534__SCAM_BODY*/ @@ -18884,7 +18884,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_537__CLASS_SOURCE_LET_BINDING", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_537__CLASS_SOURCE_LET_BINDING.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_537__CLASS_SOURCE_LET_BINDING.obj_num = OBMAG_OBJECT; - cdat->dobj_537__CLASS_SOURCE_LET_BINDING.obj_hash = 192314247; + cdat->dobj_537__CLASS_SOURCE_LET_BINDING.obj_hash = 328807029; cdat->dobj_537__CLASS_SOURCE_LET_BINDING.obj_len = 8; /*inistring dstr_538__CLASS_SOURCE_LET*/ @@ -18920,7 +18920,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_543__SLETB_TYPE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_543__SLETB_TYPE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_543__SLETB_TYPE.obj_num = 2; - cdat->dobj_543__SLETB_TYPE.obj_hash = 133916927; + cdat->dobj_543__SLETB_TYPE.obj_hash = 1062734289; cdat->dobj_543__SLETB_TYPE.obj_len = 4; /*inistring dstr_544__SLETB_TYPE*/ @@ -18948,7 +18948,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_547__SLETB_BINDER", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_547__SLETB_BINDER.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_547__SLETB_BINDER.obj_num = 3; - cdat->dobj_547__SLETB_BINDER.obj_hash = 451838278; + cdat->dobj_547__SLETB_BINDER.obj_hash = 584396463; cdat->dobj_547__SLETB_BINDER.obj_len = 4; /*inistring dstr_548__SLETB_BINDER*/ @@ -18976,7 +18976,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_551__SLETB_EXPR", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_551__SLETB_EXPR.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_551__SLETB_EXPR.obj_num = 4; - cdat->dobj_551__SLETB_EXPR.obj_hash = 280859459; + cdat->dobj_551__SLETB_EXPR.obj_hash = 908977976; cdat->dobj_551__SLETB_EXPR.obj_len = 4; /*inistring dstr_552__SLETB_EXPR*/ @@ -19004,7 +19004,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_555__CLASS_SOURCE_LETREC_BINDING", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_555__CLASS_SOURCE_LETREC_BINDING.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_555__CLASS_SOURCE_LETREC_BINDING.obj_num = OBMAG_OBJECT; - cdat->dobj_555__CLASS_SOURCE_LETREC_BINDING.obj_hash = 880214554; + cdat->dobj_555__CLASS_SOURCE_LETREC_BINDING.obj_hash = 422473081; cdat->dobj_555__CLASS_SOURCE_LETREC_BINDING.obj_len = 8; /*inistring dstr_556__CLASS_SOURCE_LET*/ @@ -19040,7 +19040,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_561__CLASS_SOURCE_LET", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_561__CLASS_SOURCE_LET.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_561__CLASS_SOURCE_LET.obj_num = OBMAG_OBJECT; - cdat->dobj_561__CLASS_SOURCE_LET.obj_hash = 599921897; + cdat->dobj_561__CLASS_SOURCE_LET.obj_hash = 210971534; cdat->dobj_561__CLASS_SOURCE_LET.obj_len = 8; /*inistring dstr_562__CLASS_SOURCE_LET*/ @@ -19076,7 +19076,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_567__SLET_BINDINGS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_567__SLET_BINDINGS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_567__SLET_BINDINGS.obj_num = 2; - cdat->dobj_567__SLET_BINDINGS.obj_hash = 929150757; + cdat->dobj_567__SLET_BINDINGS.obj_hash = 1059193038; cdat->dobj_567__SLET_BINDINGS.obj_len = 4; /*inistring dstr_568__SLET_BINDINGS*/ @@ -19104,7 +19104,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_571__SLET_BODY", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_571__SLET_BODY.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_571__SLET_BODY.obj_num = 3; - cdat->dobj_571__SLET_BODY.obj_hash = 852450552; + cdat->dobj_571__SLET_BODY.obj_hash = 322089902; cdat->dobj_571__SLET_BODY.obj_len = 4; /*inistring dstr_572__SLET_BODY*/ @@ -19132,7 +19132,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_575__CLASS_SOURCE_LETREC", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_575__CLASS_SOURCE_LETREC.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_575__CLASS_SOURCE_LETREC.obj_num = OBMAG_OBJECT; - cdat->dobj_575__CLASS_SOURCE_LETREC.obj_hash = 170044251; + cdat->dobj_575__CLASS_SOURCE_LETREC.obj_hash = 609690204; cdat->dobj_575__CLASS_SOURCE_LETREC.obj_len = 8; /*inistring dstr_576__CLASS_SOURCE_LET*/ @@ -19168,7 +19168,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_581__CLASS_SOURCE_LAMBDA", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_581__CLASS_SOURCE_LAMBDA.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_581__CLASS_SOURCE_LAMBDA.obj_num = OBMAG_OBJECT; - cdat->dobj_581__CLASS_SOURCE_LAMBDA.obj_hash = 971576839; + cdat->dobj_581__CLASS_SOURCE_LAMBDA.obj_hash = 417753414; cdat->dobj_581__CLASS_SOURCE_LAMBDA.obj_len = 8; /*inistring dstr_582__CLASS_SOURCE_LAM*/ @@ -19204,7 +19204,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_587__SLAM_ARGBIND", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_587__SLAM_ARGBIND.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_587__SLAM_ARGBIND.obj_num = 2; - cdat->dobj_587__SLAM_ARGBIND.obj_hash = 107340947; + cdat->dobj_587__SLAM_ARGBIND.obj_hash = 166649627; cdat->dobj_587__SLAM_ARGBIND.obj_len = 4; /*inistring dstr_588__SLAM_ARGBIND*/ @@ -19232,7 +19232,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_591__SLAM_BODY", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_591__SLAM_BODY.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_591__SLAM_BODY.obj_num = 3; - cdat->dobj_591__SLAM_BODY.obj_hash = 818211816; + cdat->dobj_591__SLAM_BODY.obj_hash = 96809300; cdat->dobj_591__SLAM_BODY.obj_len = 4; /*inistring dstr_592__SLAM_BODY*/ @@ -19260,7 +19260,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_595__CLASS_SOURCE_MULTICALL", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_595__CLASS_SOURCE_MULTICALL.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_595__CLASS_SOURCE_MULTICALL.obj_num = OBMAG_OBJECT; - cdat->dobj_595__CLASS_SOURCE_MULTICALL.obj_hash = 544635438; + cdat->dobj_595__CLASS_SOURCE_MULTICALL.obj_hash = 226323943; cdat->dobj_595__CLASS_SOURCE_MULTICALL.obj_len = 8; /*inistring dstr_596__CLASS_SOURCE_MUL*/ @@ -19296,7 +19296,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_601__SMULC_RESBIND", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_601__SMULC_RESBIND.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_601__SMULC_RESBIND.obj_num = 2; - cdat->dobj_601__SMULC_RESBIND.obj_hash = 32189743; + cdat->dobj_601__SMULC_RESBIND.obj_hash = 136525680; cdat->dobj_601__SMULC_RESBIND.obj_len = 4; /*inistring dstr_602__SMULC_RESBIND*/ @@ -19324,7 +19324,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_605__SMULC_CALL", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_605__SMULC_CALL.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_605__SMULC_CALL.obj_num = 3; - cdat->dobj_605__SMULC_CALL.obj_hash = 939431279; + cdat->dobj_605__SMULC_CALL.obj_hash = 551071713; cdat->dobj_605__SMULC_CALL.obj_len = 4; /*inistring dstr_606__SMULC_CALL*/ @@ -19352,7 +19352,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_609__SMULC_BODY", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_609__SMULC_BODY.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_609__SMULC_BODY.obj_num = 4; - cdat->dobj_609__SMULC_BODY.obj_hash = 811348144; + cdat->dobj_609__SMULC_BODY.obj_hash = 376949030; cdat->dobj_609__SMULC_BODY.obj_len = 4; /*inistring dstr_610__SMULC_BODY*/ @@ -19380,7 +19380,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_613__CLASS_SOURCE_LABELLED", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_613__CLASS_SOURCE_LABELLED.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_613__CLASS_SOURCE_LABELLED.obj_num = OBMAG_OBJECT; - cdat->dobj_613__CLASS_SOURCE_LABELLED.obj_hash = 774110898; + cdat->dobj_613__CLASS_SOURCE_LABELLED.obj_hash = 835360318; cdat->dobj_613__CLASS_SOURCE_LABELLED.obj_len = 8; /*inistring dstr_614__CLASS_SOURCE_LAB*/ @@ -19416,7 +19416,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_619__SLABEL_BIND", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_619__SLABEL_BIND.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_619__SLABEL_BIND.obj_num = 2; - cdat->dobj_619__SLABEL_BIND.obj_hash = 595400335; + cdat->dobj_619__SLABEL_BIND.obj_hash = 990453082; cdat->dobj_619__SLABEL_BIND.obj_len = 4; /*inistring dstr_620__SLABEL_BIND*/ @@ -19444,7 +19444,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_623__CLASS_SOURCE_FOREVER", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_623__CLASS_SOURCE_FOREVER.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_623__CLASS_SOURCE_FOREVER.obj_num = OBMAG_OBJECT; - cdat->dobj_623__CLASS_SOURCE_FOREVER.obj_hash = 770310039; + cdat->dobj_623__CLASS_SOURCE_FOREVER.obj_hash = 795336566; cdat->dobj_623__CLASS_SOURCE_FOREVER.obj_len = 8; /*inistring dstr_624__CLASS_SOURCE_FOR*/ @@ -19480,7 +19480,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_629__SFRV_BODY", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_629__SFRV_BODY.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_629__SFRV_BODY.obj_num = 3; - cdat->dobj_629__SFRV_BODY.obj_hash = 698076766; + cdat->dobj_629__SFRV_BODY.obj_hash = 1030963812; cdat->dobj_629__SFRV_BODY.obj_len = 4; /*inistring dstr_630__SFRV_BODY*/ @@ -19508,7 +19508,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_633__CLASS_SOURCE_EXIT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_633__CLASS_SOURCE_EXIT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_633__CLASS_SOURCE_EXIT.obj_num = OBMAG_OBJECT; - cdat->dobj_633__CLASS_SOURCE_EXIT.obj_hash = 512281355; + cdat->dobj_633__CLASS_SOURCE_EXIT.obj_hash = 944414350; cdat->dobj_633__CLASS_SOURCE_EXIT.obj_len = 8; /*inistring dstr_634__CLASS_SOURCE_EXI*/ @@ -19544,7 +19544,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_639__SEXI_BODY", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_639__SEXI_BODY.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_639__SEXI_BODY.obj_num = 3; - cdat->dobj_639__SEXI_BODY.obj_hash = 777473201; + cdat->dobj_639__SEXI_BODY.obj_hash = 635569807; cdat->dobj_639__SEXI_BODY.obj_len = 4; /*inistring dstr_640__SEXI_BODY*/ @@ -19572,7 +19572,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_643__CLASS_SOURCE_COMPILEWARNING", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_643__CLASS_SOURCE_COMPILEWARNING.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_643__CLASS_SOURCE_COMPILEWARNING.obj_num = OBMAG_OBJECT; - cdat->dobj_643__CLASS_SOURCE_COMPILEWARNING.obj_hash = 624425887; + cdat->dobj_643__CLASS_SOURCE_COMPILEWARNING.obj_hash = 628656008; cdat->dobj_643__CLASS_SOURCE_COMPILEWARNING.obj_len = 8; /*inistring dstr_644__CLASS_SOURCE_COM*/ @@ -19608,7 +19608,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_649__SCWARN_MSG", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_649__SCWARN_MSG.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_649__SCWARN_MSG.obj_num = 2; - cdat->dobj_649__SCWARN_MSG.obj_hash = 107279565; + cdat->dobj_649__SCWARN_MSG.obj_hash = 725865224; cdat->dobj_649__SCWARN_MSG.obj_len = 4; /*inistring dstr_650__SCWARN_MSG*/ @@ -19636,7 +19636,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_653__SCWARN_EXPR", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_653__SCWARN_EXPR.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_653__SCWARN_EXPR.obj_num = 3; - cdat->dobj_653__SCWARN_EXPR.obj_hash = 431997328; + cdat->dobj_653__SCWARN_EXPR.obj_hash = 761340505; cdat->dobj_653__SCWARN_EXPR.obj_len = 4; /*inistring dstr_654__SCWARN_EXPR*/ @@ -19664,7 +19664,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_657__CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_CONTAINER", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_657__CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_CONTAINER.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_657__CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_CONTAINER.obj_num = OBMAG_OBJECT; - cdat->dobj_657__CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_CONTAINER.obj_hash = 180573683; + cdat->dobj_657__CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_CONTAINER.obj_hash = 404519432; cdat->dobj_657__CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_CONTAINER.obj_len = 8; /*inistring dstr_658__CLASS_SOURCE_CUR*/ @@ -19700,7 +19700,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_663__CMEC_COMMENT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_663__CMEC_COMMENT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_663__CMEC_COMMENT.obj_num = 2; - cdat->dobj_663__CMEC_COMMENT.obj_hash = 353357148; + cdat->dobj_663__CMEC_COMMENT.obj_hash = 248128248; cdat->dobj_663__CMEC_COMMENT.obj_len = 4; /*inistring dstr_664__CMEC_COMMENT*/ @@ -19728,7 +19728,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_667__CLASS_SOURCE_PARENT_MODULE_ENVIRONMENT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_667__CLASS_SOURCE_PARENT_MODULE_ENVIRONMENT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_667__CLASS_SOURCE_PARENT_MODULE_ENVIRONMENT.obj_num = OBMAG_OBJECT; - cdat->dobj_667__CLASS_SOURCE_PARENT_MODULE_ENVIRONMENT.obj_hash = 3214987; + cdat->dobj_667__CLASS_SOURCE_PARENT_MODULE_ENVIRONMENT.obj_hash = 969294613; cdat->dobj_667__CLASS_SOURCE_PARENT_MODULE_ENVIRONMENT.obj_len = 8; /*inistring dstr_668__CLASS_SOURCE_PAR*/ @@ -19764,7 +19764,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_673__CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_673__CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_673__CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER.obj_num = OBMAG_OBJECT; - cdat->dobj_673__CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER.obj_hash = 220905567; + cdat->dobj_673__CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER.obj_hash = 725738088; cdat->dobj_673__CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER.obj_len = 8; /*inistring dstr_674__CLASS_SOURCE_UPD*/ @@ -19800,7 +19800,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_679__SUCME_COMMENT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_679__SUCME_COMMENT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_679__SUCME_COMMENT.obj_num = 2; - cdat->dobj_679__SUCME_COMMENT.obj_hash = 322812229; + cdat->dobj_679__SUCME_COMMENT.obj_hash = 228773659; cdat->dobj_679__SUCME_COMMENT.obj_len = 4; /*inistring dstr_680__SUCME_COMMENT*/ @@ -19828,7 +19828,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_683__CLASS_SOURCE_FETCH_PREDEFINED", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_683__CLASS_SOURCE_FETCH_PREDEFINED.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_683__CLASS_SOURCE_FETCH_PREDEFINED.obj_num = OBMAG_OBJECT; - cdat->dobj_683__CLASS_SOURCE_FETCH_PREDEFINED.obj_hash = 17385887; + cdat->dobj_683__CLASS_SOURCE_FETCH_PREDEFINED.obj_hash = 574385633; cdat->dobj_683__CLASS_SOURCE_FETCH_PREDEFINED.obj_len = 8; /*inistring dstr_684__CLASS_SOURCE_FET*/ @@ -19864,7 +19864,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_689__SFEPD_PREDEF", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_689__SFEPD_PREDEF.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_689__SFEPD_PREDEF.obj_num = 2; - cdat->dobj_689__SFEPD_PREDEF.obj_hash = 551996104; + cdat->dobj_689__SFEPD_PREDEF.obj_hash = 1029042284; cdat->dobj_689__SFEPD_PREDEF.obj_len = 4; /*inistring dstr_690__SFEPD_PREDEF*/ @@ -19892,7 +19892,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_693__CLASS_SOURCE_STORE_PREDEFINED", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_693__CLASS_SOURCE_STORE_PREDEFINED.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_693__CLASS_SOURCE_STORE_PREDEFINED.obj_num = OBMAG_OBJECT; - cdat->dobj_693__CLASS_SOURCE_STORE_PREDEFINED.obj_hash = 881541570; + cdat->dobj_693__CLASS_SOURCE_STORE_PREDEFINED.obj_hash = 453861172; cdat->dobj_693__CLASS_SOURCE_STORE_PREDEFINED.obj_len = 8; /*inistring dstr_694__CLASS_SOURCE_STO*/ @@ -19928,7 +19928,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_699__SSTPD_PREDEF", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_699__SSTPD_PREDEF.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_699__SSTPD_PREDEF.obj_num = 2; - cdat->dobj_699__SSTPD_PREDEF.obj_hash = 570563545; + cdat->dobj_699__SSTPD_PREDEF.obj_hash = 379021406; cdat->dobj_699__SSTPD_PREDEF.obj_len = 4; /*inistring dstr_700__SSTPD_PREDEF*/ @@ -19956,7 +19956,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_703__SSTPD_VALUE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_703__SSTPD_VALUE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_703__SSTPD_VALUE.obj_num = 3; - cdat->dobj_703__SSTPD_VALUE.obj_hash = 464229760; + cdat->dobj_703__SSTPD_VALUE.obj_hash = 106264873; cdat->dobj_703__SSTPD_VALUE.obj_len = 4; /*inistring dstr_704__SSTPD_VALUE*/ @@ -19984,7 +19984,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_707__CLASS_SOURCE_CODECHUNK", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_707__CLASS_SOURCE_CODECHUNK.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_707__CLASS_SOURCE_CODECHUNK.obj_num = OBMAG_OBJECT; - cdat->dobj_707__CLASS_SOURCE_CODECHUNK.obj_hash = 826393685; + cdat->dobj_707__CLASS_SOURCE_CODECHUNK.obj_hash = 1623500; cdat->dobj_707__CLASS_SOURCE_CODECHUNK.obj_len = 8; /*inistring dstr_708__CLASS_SOURCE_COD*/ @@ -20020,7 +20020,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_713__SCH_GENSYM", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_713__SCH_GENSYM.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_713__SCH_GENSYM.obj_num = 2; - cdat->dobj_713__SCH_GENSYM.obj_hash = 782062452; + cdat->dobj_713__SCH_GENSYM.obj_hash = 775090943; cdat->dobj_713__SCH_GENSYM.obj_len = 4; /*inistring dstr_714__SCH_GENSYM*/ @@ -20048,7 +20048,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_717__SCH_CHUNKS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_717__SCH_CHUNKS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_717__SCH_CHUNKS.obj_num = 3; - cdat->dobj_717__SCH_CHUNKS.obj_hash = 615973285; + cdat->dobj_717__SCH_CHUNKS.obj_hash = 60326217; cdat->dobj_717__SCH_CHUNKS.obj_len = 4; /*inistring dstr_718__SCH_CHUNKS*/ @@ -20076,7 +20076,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_721__CLASS_SOURCE_PATTERN", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_721__CLASS_SOURCE_PATTERN.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_721__CLASS_SOURCE_PATTERN.obj_num = OBMAG_OBJECT; - cdat->dobj_721__CLASS_SOURCE_PATTERN.obj_hash = 574095267; + cdat->dobj_721__CLASS_SOURCE_PATTERN.obj_hash = 486881895; cdat->dobj_721__CLASS_SOURCE_PATTERN.obj_len = 8; /*inistring dstr_722__CLASS_SOURCE_PAT*/ @@ -20112,7 +20112,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_727__CLASS_SOURCE_PATTERN_OR", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_727__CLASS_SOURCE_PATTERN_OR.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_727__CLASS_SOURCE_PATTERN_OR.obj_num = OBMAG_OBJECT; - cdat->dobj_727__CLASS_SOURCE_PATTERN_OR.obj_hash = 595924398; + cdat->dobj_727__CLASS_SOURCE_PATTERN_OR.obj_hash = 630320833; cdat->dobj_727__CLASS_SOURCE_PATTERN_OR.obj_len = 8; /*inistring dstr_728__CLASS_SOURCE_PAT*/ @@ -20148,7 +20148,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_733__ORPAT_DISJ", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_733__ORPAT_DISJ.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_733__ORPAT_DISJ.obj_num = 2; - cdat->dobj_733__ORPAT_DISJ.obj_hash = 273883386; + cdat->dobj_733__ORPAT_DISJ.obj_hash = 789533971; cdat->dobj_733__ORPAT_DISJ.obj_len = 4; /*inistring dstr_734__ORPAT_DISJ*/ @@ -20176,7 +20176,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_737__CLASS_SOURCE_PATTERN_AND", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_737__CLASS_SOURCE_PATTERN_AND.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_737__CLASS_SOURCE_PATTERN_AND.obj_num = OBMAG_OBJECT; - cdat->dobj_737__CLASS_SOURCE_PATTERN_AND.obj_hash = 176665884; + cdat->dobj_737__CLASS_SOURCE_PATTERN_AND.obj_hash = 61381287; cdat->dobj_737__CLASS_SOURCE_PATTERN_AND.obj_len = 8; /*inistring dstr_738__CLASS_SOURCE_PAT*/ @@ -20212,7 +20212,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_743__ANDPAT_CONJ", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_743__ANDPAT_CONJ.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_743__ANDPAT_CONJ.obj_num = 2; - cdat->dobj_743__ANDPAT_CONJ.obj_hash = 325127782; + cdat->dobj_743__ANDPAT_CONJ.obj_hash = 274873701; cdat->dobj_743__ANDPAT_CONJ.obj_len = 4; /*inistring dstr_744__ANDPAT_CONJ*/ @@ -20240,7 +20240,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_747__CLASS_SOURCE_PATTERN_VARIABLE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_747__CLASS_SOURCE_PATTERN_VARIABLE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_747__CLASS_SOURCE_PATTERN_VARIABLE.obj_num = OBMAG_OBJECT; - cdat->dobj_747__CLASS_SOURCE_PATTERN_VARIABLE.obj_hash = 659931049; + cdat->dobj_747__CLASS_SOURCE_PATTERN_VARIABLE.obj_hash = 555425730; cdat->dobj_747__CLASS_SOURCE_PATTERN_VARIABLE.obj_len = 8; /*inistring dstr_748__CLASS_SOURCE_PAT*/ @@ -20276,7 +20276,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_753__SPATVAR_SYMB", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_753__SPATVAR_SYMB.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_753__SPATVAR_SYMB.obj_num = 2; - cdat->dobj_753__SPATVAR_SYMB.obj_hash = 501772435; + cdat->dobj_753__SPATVAR_SYMB.obj_hash = 515310676; cdat->dobj_753__SPATVAR_SYMB.obj_len = 4; /*inistring dstr_754__SPATVAR_SYMB*/ @@ -20304,7 +20304,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_757__SPATVAR_NBOCC", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_757__SPATVAR_NBOCC.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_757__SPATVAR_NBOCC.obj_num = 3; - cdat->dobj_757__SPATVAR_NBOCC.obj_hash = 764692395; + cdat->dobj_757__SPATVAR_NBOCC.obj_hash = 622436334; cdat->dobj_757__SPATVAR_NBOCC.obj_len = 4; /*inistring dstr_758__SPATVAR_NBOCC*/ @@ -20345,7 +20345,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_763__CLASS_SOURCE_PATTERN_JOKER_VARIABLE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_763__CLASS_SOURCE_PATTERN_JOKER_VARIABLE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_763__CLASS_SOURCE_PATTERN_JOKER_VARIABLE.obj_num = OBMAG_OBJECT; - cdat->dobj_763__CLASS_SOURCE_PATTERN_JOKER_VARIABLE.obj_hash = 265310103; + cdat->dobj_763__CLASS_SOURCE_PATTERN_JOKER_VARIABLE.obj_hash = 490867431; cdat->dobj_763__CLASS_SOURCE_PATTERN_JOKER_VARIABLE.obj_len = 8; /*inistring dstr_764__CLASS_SOURCE_PAT*/ @@ -20381,7 +20381,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_769__CLASS_SOURCE_PATTERN_CONSTANT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_769__CLASS_SOURCE_PATTERN_CONSTANT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_769__CLASS_SOURCE_PATTERN_CONSTANT.obj_num = OBMAG_OBJECT; - cdat->dobj_769__CLASS_SOURCE_PATTERN_CONSTANT.obj_hash = 467697744; + cdat->dobj_769__CLASS_SOURCE_PATTERN_CONSTANT.obj_hash = 617551093; cdat->dobj_769__CLASS_SOURCE_PATTERN_CONSTANT.obj_len = 8; /*inistring dstr_770__CLASS_SOURCE_PAT*/ @@ -20417,7 +20417,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_775__SPAT_CONSTX", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_775__SPAT_CONSTX.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_775__SPAT_CONSTX.obj_num = 2; - cdat->dobj_775__SPAT_CONSTX.obj_hash = 802281342; + cdat->dobj_775__SPAT_CONSTX.obj_hash = 15681962; cdat->dobj_775__SPAT_CONSTX.obj_len = 4; /*inistring dstr_776__SPAT_CONSTX*/ @@ -20445,7 +20445,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_779__CLASS_SOURCE_PATTERN_CONSTRUCT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_779__CLASS_SOURCE_PATTERN_CONSTRUCT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_779__CLASS_SOURCE_PATTERN_CONSTRUCT.obj_num = OBMAG_OBJECT; - cdat->dobj_779__CLASS_SOURCE_PATTERN_CONSTRUCT.obj_hash = 308143053; + cdat->dobj_779__CLASS_SOURCE_PATTERN_CONSTRUCT.obj_hash = 544421145; cdat->dobj_779__CLASS_SOURCE_PATTERN_CONSTRUCT.obj_len = 8; /*inistring dstr_780__CLASS_SOURCE_PAT*/ @@ -20481,7 +20481,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_785__CTPAT_SUBPA", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_785__CTPAT_SUBPA.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_785__CTPAT_SUBPA.obj_num = 2; - cdat->dobj_785__CTPAT_SUBPA.obj_hash = 33700329; + cdat->dobj_785__CTPAT_SUBPA.obj_hash = 510161915; cdat->dobj_785__CTPAT_SUBPA.obj_len = 4; /*inistring dstr_786__CTPAT_SUBPA*/ @@ -20509,7 +20509,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_789__CLASS_SOURCE_PATTERN_TUPLE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_789__CLASS_SOURCE_PATTERN_TUPLE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_789__CLASS_SOURCE_PATTERN_TUPLE.obj_num = OBMAG_OBJECT; - cdat->dobj_789__CLASS_SOURCE_PATTERN_TUPLE.obj_hash = 400903793; + cdat->dobj_789__CLASS_SOURCE_PATTERN_TUPLE.obj_hash = 162924448; cdat->dobj_789__CLASS_SOURCE_PATTERN_TUPLE.obj_len = 8; /*inistring dstr_790__CLASS_SOURCE_PAT*/ @@ -20545,7 +20545,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_795__CLASS_SOURCE_PATTERN_LIST", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_795__CLASS_SOURCE_PATTERN_LIST.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_795__CLASS_SOURCE_PATTERN_LIST.obj_num = OBMAG_OBJECT; - cdat->dobj_795__CLASS_SOURCE_PATTERN_LIST.obj_hash = 240480948; + cdat->dobj_795__CLASS_SOURCE_PATTERN_LIST.obj_hash = 516458813; cdat->dobj_795__CLASS_SOURCE_PATTERN_LIST.obj_len = 8; /*inistring dstr_796__CLASS_SOURCE_PAT*/ @@ -20581,7 +20581,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_801__CLASS_SOURCE_PATTERN_OBJECT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_801__CLASS_SOURCE_PATTERN_OBJECT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_801__CLASS_SOURCE_PATTERN_OBJECT.obj_num = OBMAG_OBJECT; - cdat->dobj_801__CLASS_SOURCE_PATTERN_OBJECT.obj_hash = 96283654; + cdat->dobj_801__CLASS_SOURCE_PATTERN_OBJECT.obj_hash = 357055768; cdat->dobj_801__CLASS_SOURCE_PATTERN_OBJECT.obj_len = 8; /*inistring dstr_802__CLASS_SOURCE_PAT*/ @@ -20617,7 +20617,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_807__SPAT_CLASS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_807__SPAT_CLASS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_807__SPAT_CLASS.obj_num = 2; - cdat->dobj_807__SPAT_CLASS.obj_hash = 491161193; + cdat->dobj_807__SPAT_CLASS.obj_hash = 206222931; cdat->dobj_807__SPAT_CLASS.obj_len = 4; /*inistring dstr_808__SPAT_CLASS*/ @@ -20645,7 +20645,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_811__SPAT_FIELDS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_811__SPAT_FIELDS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_811__SPAT_FIELDS.obj_num = 3; - cdat->dobj_811__SPAT_FIELDS.obj_hash = 520035692; + cdat->dobj_811__SPAT_FIELDS.obj_hash = 1054875013; cdat->dobj_811__SPAT_FIELDS.obj_len = 4; /*inistring dstr_812__SPAT_FIELDS*/ @@ -20673,7 +20673,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_815__CLASS_SOURCE_PATTERN_INSTANCE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_815__CLASS_SOURCE_PATTERN_INSTANCE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_815__CLASS_SOURCE_PATTERN_INSTANCE.obj_num = OBMAG_OBJECT; - cdat->dobj_815__CLASS_SOURCE_PATTERN_INSTANCE.obj_hash = 427211765; + cdat->dobj_815__CLASS_SOURCE_PATTERN_INSTANCE.obj_hash = 944140114; cdat->dobj_815__CLASS_SOURCE_PATTERN_INSTANCE.obj_len = 8; /*inistring dstr_816__CLASS_SOURCE_PAT*/ @@ -20709,7 +20709,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_821__CLASS_SOURCE_FIELD_PATTERN", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_821__CLASS_SOURCE_FIELD_PATTERN.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_821__CLASS_SOURCE_FIELD_PATTERN.obj_num = OBMAG_OBJECT; - cdat->dobj_821__CLASS_SOURCE_FIELD_PATTERN.obj_hash = 401396263; + cdat->dobj_821__CLASS_SOURCE_FIELD_PATTERN.obj_hash = 604780977; cdat->dobj_821__CLASS_SOURCE_FIELD_PATTERN.obj_len = 8; /*inistring dstr_822__CLASS_SOURCE_FIE*/ @@ -20745,7 +20745,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_827__SPAF_FIELD", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_827__SPAF_FIELD.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_827__SPAF_FIELD.obj_num = 2; - cdat->dobj_827__SPAF_FIELD.obj_hash = 322390707; + cdat->dobj_827__SPAF_FIELD.obj_hash = 239472562; cdat->dobj_827__SPAF_FIELD.obj_len = 4; /*inistring dstr_828__SPAF_FIELD*/ @@ -20773,7 +20773,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_831__SPAF_PATTERN", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_831__SPAF_PATTERN.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_831__SPAF_PATTERN.obj_num = 3; - cdat->dobj_831__SPAF_PATTERN.obj_hash = 670805639; + cdat->dobj_831__SPAF_PATTERN.obj_hash = 1668093; cdat->dobj_831__SPAF_PATTERN.obj_len = 4; /*inistring dstr_832__SPAF_PATTERN*/ @@ -20801,7 +20801,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_835__CLASS_SOURCE_PATTERN_COMPOSITE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_835__CLASS_SOURCE_PATTERN_COMPOSITE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_835__CLASS_SOURCE_PATTERN_COMPOSITE.obj_num = OBMAG_OBJECT; - cdat->dobj_835__CLASS_SOURCE_PATTERN_COMPOSITE.obj_hash = 524523176; + cdat->dobj_835__CLASS_SOURCE_PATTERN_COMPOSITE.obj_hash = 897190696; cdat->dobj_835__CLASS_SOURCE_PATTERN_COMPOSITE.obj_len = 8; /*inistring dstr_836__CLASS_SOURCE_PAT*/ @@ -20837,7 +20837,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_841__SPAC_OPERATOR", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_841__SPAC_OPERATOR.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_841__SPAC_OPERATOR.obj_num = 4; - cdat->dobj_841__SPAC_OPERATOR.obj_hash = 778618393; + cdat->dobj_841__SPAC_OPERATOR.obj_hash = 151573593; cdat->dobj_841__SPAC_OPERATOR.obj_len = 4; /*inistring dstr_842__SPAC_OPERATOR*/ @@ -20865,7 +20865,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_845__SPAC_OPERBIND", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_845__SPAC_OPERBIND.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_845__SPAC_OPERBIND.obj_num = 5; - cdat->dobj_845__SPAC_OPERBIND.obj_hash = 674251179; + cdat->dobj_845__SPAC_OPERBIND.obj_hash = 366718653; cdat->dobj_845__SPAC_OPERBIND.obj_len = 4; /*inistring dstr_846__SPAC_OPERBIND*/ @@ -20893,7 +20893,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_849__SPAC_INARGS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_849__SPAC_INARGS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_849__SPAC_INARGS.obj_num = 6; - cdat->dobj_849__SPAC_INARGS.obj_hash = 633518320; + cdat->dobj_849__SPAC_INARGS.obj_hash = 235440715; cdat->dobj_849__SPAC_INARGS.obj_len = 4; /*inistring dstr_850__SPAC_INARGS*/ @@ -20921,7 +20921,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_853__SPAC_OUTARGS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_853__SPAC_OUTARGS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_853__SPAC_OUTARGS.obj_num = 7; - cdat->dobj_853__SPAC_OUTARGS.obj_hash = 246144994; + cdat->dobj_853__SPAC_OUTARGS.obj_hash = 751359772; cdat->dobj_853__SPAC_OUTARGS.obj_len = 4; /*inistring dstr_854__SPAC_OUTARGS*/ @@ -20949,7 +20949,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_857__CLASS_SOURCE_PATTERN_MATCHER", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_857__CLASS_SOURCE_PATTERN_MATCHER.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_857__CLASS_SOURCE_PATTERN_MATCHER.obj_num = OBMAG_OBJECT; - cdat->dobj_857__CLASS_SOURCE_PATTERN_MATCHER.obj_hash = 140181261; + cdat->dobj_857__CLASS_SOURCE_PATTERN_MATCHER.obj_hash = 930870660; cdat->dobj_857__CLASS_SOURCE_PATTERN_MATCHER.obj_len = 8; /*inistring dstr_858__CLASS_SOURCE_PAT*/ @@ -20985,7 +20985,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_863__CLASS_SOURCE_PATTERN_C_MATCH", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_863__CLASS_SOURCE_PATTERN_C_MATCH.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_863__CLASS_SOURCE_PATTERN_C_MATCH.obj_num = OBMAG_OBJECT; - cdat->dobj_863__CLASS_SOURCE_PATTERN_C_MATCH.obj_hash = 928389443; + cdat->dobj_863__CLASS_SOURCE_PATTERN_C_MATCH.obj_hash = 1047201658; cdat->dobj_863__CLASS_SOURCE_PATTERN_C_MATCH.obj_len = 8; /*inistring dstr_864__CLASS_SOURCE_PAT*/ @@ -21021,7 +21021,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_869__CLASS_SOURCE_PATTERN_FUN_MATCH", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_869__CLASS_SOURCE_PATTERN_FUN_MATCH.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_869__CLASS_SOURCE_PATTERN_FUN_MATCH.obj_num = OBMAG_OBJECT; - cdat->dobj_869__CLASS_SOURCE_PATTERN_FUN_MATCH.obj_hash = 771746784; + cdat->dobj_869__CLASS_SOURCE_PATTERN_FUN_MATCH.obj_hash = 48350346; cdat->dobj_869__CLASS_SOURCE_PATTERN_FUN_MATCH.obj_len = 8; /*inistring dstr_870__CLASS_SOURCE_PAT*/ @@ -21450,7 +21450,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_937__CLASS_PATTERN_EXPANSION_CONTEXT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_937__CLASS_PATTERN_EXPANSION_CONTEXT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_937__CLASS_PATTERN_EXPANSION_CONTEXT.obj_num = OBMAG_OBJECT; - cdat->dobj_937__CLASS_PATTERN_EXPANSION_CONTEXT.obj_hash = 96331240; + cdat->dobj_937__CLASS_PATTERN_EXPANSION_CONTEXT.obj_hash = 1073291472; cdat->dobj_937__CLASS_PATTERN_EXPANSION_CONTEXT.obj_len = 8; /*inistring dstr_938__CLASS_PATTERN_EX*/ @@ -21486,7 +21486,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_943__PCTX_MEXPANDER", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_943__PCTX_MEXPANDER.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_943__PCTX_MEXPANDER.obj_num = 0; - cdat->dobj_943__PCTX_MEXPANDER.obj_hash = 261263605; + cdat->dobj_943__PCTX_MEXPANDER.obj_hash = 1023153751; cdat->dobj_943__PCTX_MEXPANDER.obj_len = 4; /*inistring dstr_944__PCTX_MEXPANDER*/ @@ -21514,7 +21514,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_947__PCTX_PEXPANDER", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_947__PCTX_PEXPANDER.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_947__PCTX_PEXPANDER.obj_num = 1; - cdat->dobj_947__PCTX_PEXPANDER.obj_hash = 605046223; + cdat->dobj_947__PCTX_PEXPANDER.obj_hash = 710759400; cdat->dobj_947__PCTX_PEXPANDER.obj_len = 4; /*inistring dstr_948__PCTX_PEXPANDER*/ @@ -21542,7 +21542,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_951__PCTX_VARMAP", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_951__PCTX_VARMAP.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_951__PCTX_VARMAP.obj_num = 2; - cdat->dobj_951__PCTX_VARMAP.obj_hash = 1022707439; + cdat->dobj_951__PCTX_VARMAP.obj_hash = 91301711; cdat->dobj_951__PCTX_VARMAP.obj_len = 4; /*inistring dstr_952__PCTX_VARMAP*/ @@ -21894,7 +21894,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1006__WARN_SHADOW", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1006__WARN_SHADOW", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1006__WARN_SHADOW.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_1006__WARN_SHADOW.obj_hash = 712472861; + cdat->dobj_1006__WARN_SHADOW.obj_hash = 450294924; cdat->dobj_1006__WARN_SHADOW.obj_len = 5; /*inimult dtup_1007__WARN_SHADOW*/ diff --git a/gcc/melt/generated/warmelt-normal.0+01.c b/gcc/melt/generated/warmelt-normal.0+01.c index 5908f099b51..618cadc4610 100644 --- a/gcc/melt/generated/warmelt-normal.0+01.c +++ b/gcc/melt/generated/warmelt-normal.0+01.c @@ -7082,7 +7082,7 @@ lab_endgetargs:; /*^putpairhead*/ /*putpairhead*/ - melt_assertmsg("putpairhead /2ef935f4 checkpair", melt_magic_discr((melt_ptr_t)(/*_.CBIND__V39*/ meltfptr[38]))== OBMAG_PAIR); + melt_assertmsg("putpairhead /2669ae5a checkpair", melt_magic_discr((melt_ptr_t)(/*_.CBIND__V39*/ meltfptr[38]))== OBMAG_PAIR); ((meltpair_ptr_t)(/*_.CBIND__V39*/ meltfptr[38]))->hd = (melt_ptr_t) (/*_.CBIND__V30*/ meltfptr[29]); ; /*^touch*/ @@ -36164,7 +36164,7 @@ lab_endgetargs:; ; MELT_LOCATION("warmelt-normal.melt:3437:/ putpairhead"); /*putpairhead*/ - melt_assertmsg("putpairhead /31065ef9 checkpair", melt_magic_discr((melt_ptr_t)(/*_.CTUPBIND__V38*/ meltfptr[37]))== OBMAG_PAIR); + melt_assertmsg("putpairhead /72b6233 checkpair", melt_magic_discr((melt_ptr_t)(/*_.CTUPBIND__V38*/ meltfptr[37]))== OBMAG_PAIR); ((meltpair_ptr_t)(/*_.CTUPBIND__V38*/ meltfptr[37]))->hd = (melt_ptr_t) (/*_.CTUPBIND__V36*/ meltfptr[35]); ; /*^touch*/ diff --git a/gcc/melt/generated/warmelt-normal.0+02.c b/gcc/melt/generated/warmelt-normal.0+02.c index 73e35b3c275..6e28813c92d 100644 --- a/gcc/melt/generated/warmelt-normal.0+02.c +++ b/gcc/melt/generated/warmelt-normal.0+02.c @@ -1741,7 +1741,7 @@ lab_endgetargs:; ; MELT_LOCATION("warmelt-normal.melt:3522:/ putpairhead"); /*putpairhead*/ - melt_assertmsg("putpairhead /17fe88f6 checkpair", melt_magic_discr((melt_ptr_t)(/*_.CLISTBIND__V55*/ meltfptr[54]))== OBMAG_PAIR); + melt_assertmsg("putpairhead /2d85c43d checkpair", melt_magic_discr((melt_ptr_t)(/*_.CLISTBIND__V55*/ meltfptr[54]))== OBMAG_PAIR); ((meltpair_ptr_t)(/*_.CLISTBIND__V55*/ meltfptr[54]))->hd = (melt_ptr_t) (/*_.CLISTBIND__V53*/ meltfptr[52]); ; /*^touch*/ diff --git a/gcc/melt/generated/warmelt-normal.0.c b/gcc/melt/generated/warmelt-normal.0.c index 31ba2a5baf6..5ae880e6216 100644 --- a/gcc/melt/generated/warmelt-normal.0.c +++ b/gcc/melt/generated/warmelt-normal.0.c @@ -3,7 +3,7 @@ #ifndef MELTGCC_DYNAMIC_OBJSTRUCT /* version string of the gcc executable generating this file: */ const char genversionstr_melt[]= - "4.5.0 20100223 (experimental) [melt-branch revision 157055]"; + "4.5.0 20100310 (experimental) [melt-branch revision 157367]"; #endif #include "run-melt.h" @@ -10200,7 +10200,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_5__CLASS_NREP", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_5__CLASS_NREP.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_5__CLASS_NREP.obj_num = OBMAG_OBJECT; - cdat->dobj_5__CLASS_NREP.obj_hash = 999860388; + cdat->dobj_5__CLASS_NREP.obj_hash = 693041384; cdat->dobj_5__CLASS_NREP.obj_len = 8; /*inistring dstr_6__CLASS_NREP*/ @@ -10236,7 +10236,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_11__NREP_LOC", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_11__NREP_LOC.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_11__NREP_LOC.obj_num = 0; - cdat->dobj_11__NREP_LOC.obj_hash = 505111391; + cdat->dobj_11__NREP_LOC.obj_hash = 747317034; cdat->dobj_11__NREP_LOC.obj_len = 4; /*inistring dstr_12__NREP_LOC*/ @@ -10264,7 +10264,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_15__CLASS_NREP_SIMPLE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_15__CLASS_NREP_SIMPLE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_15__CLASS_NREP_SIMPLE.obj_num = OBMAG_OBJECT; - cdat->dobj_15__CLASS_NREP_SIMPLE.obj_hash = 709548941; + cdat->dobj_15__CLASS_NREP_SIMPLE.obj_hash = 603596145; cdat->dobj_15__CLASS_NREP_SIMPLE.obj_len = 8; /*inistring dstr_16__CLASS_NREP_SIMPL*/ @@ -10300,7 +10300,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_21__CLASS_NREP_EXPRESSION", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_21__CLASS_NREP_EXPRESSION.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_21__CLASS_NREP_EXPRESSION.obj_num = OBMAG_OBJECT; - cdat->dobj_21__CLASS_NREP_EXPRESSION.obj_hash = 897481584; + cdat->dobj_21__CLASS_NREP_EXPRESSION.obj_hash = 242248267; cdat->dobj_21__CLASS_NREP_EXPRESSION.obj_len = 8; /*inistring dstr_22__CLASS_NREP_EXPRE*/ @@ -10336,7 +10336,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_27__CLASS_NREP_TYPED_EXPRESSION", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_27__CLASS_NREP_TYPED_EXPRESSION.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_27__CLASS_NREP_TYPED_EXPRESSION.obj_num = OBMAG_OBJECT; - cdat->dobj_27__CLASS_NREP_TYPED_EXPRESSION.obj_hash = 567178134; + cdat->dobj_27__CLASS_NREP_TYPED_EXPRESSION.obj_hash = 1024489613; cdat->dobj_27__CLASS_NREP_TYPED_EXPRESSION.obj_len = 8; /*inistring dstr_28__CLASS_NREP_TYPED*/ @@ -10372,7 +10372,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_33__NEXPR_CTYP", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_33__NEXPR_CTYP.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_33__NEXPR_CTYP.obj_num = 1; - cdat->dobj_33__NEXPR_CTYP.obj_hash = 400423557; + cdat->dobj_33__NEXPR_CTYP.obj_hash = 559242515; cdat->dobj_33__NEXPR_CTYP.obj_len = 4; /*inistring dstr_34__NEXPR_CTYP*/ @@ -10400,7 +10400,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_37__CLASS_NREP_TYPED_EXPRESSION_WITH_ARGUMENTS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_37__CLASS_NREP_TYPED_EXPRESSION_WITH_ARGUMENTS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_37__CLASS_NREP_TYPED_EXPRESSION_WITH_ARGUMENTS.obj_num = OBMAG_OBJECT; - cdat->dobj_37__CLASS_NREP_TYPED_EXPRESSION_WITH_ARGUMENTS.obj_hash = 598266866; + cdat->dobj_37__CLASS_NREP_TYPED_EXPRESSION_WITH_ARGUMENTS.obj_hash = 232236432; cdat->dobj_37__CLASS_NREP_TYPED_EXPRESSION_WITH_ARGUMENTS.obj_len = 8; /*inistring dstr_38__CLASS_NREP_TYPED*/ @@ -10436,7 +10436,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_43__NEXPR_ARGS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_43__NEXPR_ARGS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_43__NEXPR_ARGS.obj_num = 2; - cdat->dobj_43__NEXPR_ARGS.obj_hash = 902912444; + cdat->dobj_43__NEXPR_ARGS.obj_hash = 190967689; cdat->dobj_43__NEXPR_ARGS.obj_len = 4; /*inistring dstr_44__NEXPR_ARGS*/ @@ -10464,7 +10464,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_47__CLASS_NREP_APPLY", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_47__CLASS_NREP_APPLY.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_47__CLASS_NREP_APPLY.obj_num = OBMAG_OBJECT; - cdat->dobj_47__CLASS_NREP_APPLY.obj_hash = 357794476; + cdat->dobj_47__CLASS_NREP_APPLY.obj_hash = 615959090; cdat->dobj_47__CLASS_NREP_APPLY.obj_len = 8; /*inistring dstr_48__CLASS_NREP_APPLY*/ @@ -10500,7 +10500,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_53__NAPP_FUN", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_53__NAPP_FUN.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_53__NAPP_FUN.obj_num = 3; - cdat->dobj_53__NAPP_FUN.obj_hash = 527960096; + cdat->dobj_53__NAPP_FUN.obj_hash = 462731175; cdat->dobj_53__NAPP_FUN.obj_len = 4; /*inistring dstr_54__NAPP_FUN*/ @@ -10528,7 +10528,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_57__CLASS_NREP_MULTIAPPLY", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_57__CLASS_NREP_MULTIAPPLY.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_57__CLASS_NREP_MULTIAPPLY.obj_num = OBMAG_OBJECT; - cdat->dobj_57__CLASS_NREP_MULTIAPPLY.obj_hash = 965347070; + cdat->dobj_57__CLASS_NREP_MULTIAPPLY.obj_hash = 246327820; cdat->dobj_57__CLASS_NREP_MULTIAPPLY.obj_len = 8; /*inistring dstr_58__CLASS_NREP_MULTI*/ @@ -10564,7 +10564,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_63__NMULAPP_BINDINGS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_63__NMULAPP_BINDINGS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_63__NMULAPP_BINDINGS.obj_num = 4; - cdat->dobj_63__NMULAPP_BINDINGS.obj_hash = 497402321; + cdat->dobj_63__NMULAPP_BINDINGS.obj_hash = 628864476; cdat->dobj_63__NMULAPP_BINDINGS.obj_len = 4; /*inistring dstr_64__NMULAPP_BINDINGS*/ @@ -10592,7 +10592,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_67__NMULAPP_BODY", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_67__NMULAPP_BODY.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_67__NMULAPP_BODY.obj_num = 5; - cdat->dobj_67__NMULAPP_BODY.obj_hash = 18767282; + cdat->dobj_67__NMULAPP_BODY.obj_hash = 907221338; cdat->dobj_67__NMULAPP_BODY.obj_len = 4; /*inistring dstr_68__NMULAPP_BODY*/ @@ -10620,7 +10620,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_71__CLASS_NREP_MSEND", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_71__CLASS_NREP_MSEND.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_71__CLASS_NREP_MSEND.obj_num = OBMAG_OBJECT; - cdat->dobj_71__CLASS_NREP_MSEND.obj_hash = 1015329549; + cdat->dobj_71__CLASS_NREP_MSEND.obj_hash = 306097999; cdat->dobj_71__CLASS_NREP_MSEND.obj_len = 8; /*inistring dstr_72__CLASS_NREP_MSEND*/ @@ -10656,7 +10656,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_77__NSEND_SEL", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_77__NSEND_SEL.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_77__NSEND_SEL.obj_num = 3; - cdat->dobj_77__NSEND_SEL.obj_hash = 651821021; + cdat->dobj_77__NSEND_SEL.obj_hash = 613095505; cdat->dobj_77__NSEND_SEL.obj_len = 4; /*inistring dstr_78__NSEND_SEL*/ @@ -10684,7 +10684,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_81__NSEND_RECV", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_81__NSEND_RECV.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_81__NSEND_RECV.obj_num = 4; - cdat->dobj_81__NSEND_RECV.obj_hash = 372317973; + cdat->dobj_81__NSEND_RECV.obj_hash = 666134320; cdat->dobj_81__NSEND_RECV.obj_len = 4; /*inistring dstr_82__NSEND_RECV*/ @@ -10712,7 +10712,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_85__CLASS_NREP_MULTIMSEND", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_85__CLASS_NREP_MULTIMSEND.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_85__CLASS_NREP_MULTIMSEND.obj_num = OBMAG_OBJECT; - cdat->dobj_85__CLASS_NREP_MULTIMSEND.obj_hash = 623814831; + cdat->dobj_85__CLASS_NREP_MULTIMSEND.obj_hash = 46388958; cdat->dobj_85__CLASS_NREP_MULTIMSEND.obj_len = 8; /*inistring dstr_86__CLASS_NREP_MULTI*/ @@ -10748,7 +10748,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_91__NMULSEND_BINDINGS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_91__NMULSEND_BINDINGS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_91__NMULSEND_BINDINGS.obj_num = 5; - cdat->dobj_91__NMULSEND_BINDINGS.obj_hash = 134621254; + cdat->dobj_91__NMULSEND_BINDINGS.obj_hash = 520278398; cdat->dobj_91__NMULSEND_BINDINGS.obj_len = 4; /*inistring dstr_92__NMULSEND_BINDING*/ @@ -10776,7 +10776,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_95__NMULSEND_BODY", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_95__NMULSEND_BODY.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_95__NMULSEND_BODY.obj_num = 6; - cdat->dobj_95__NMULSEND_BODY.obj_hash = 600766020; + cdat->dobj_95__NMULSEND_BODY.obj_hash = 930755637; cdat->dobj_95__NMULSEND_BODY.obj_len = 4; /*inistring dstr_96__NMULSEND_BODY*/ @@ -10804,7 +10804,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_99__CLASS_NREP_CHUNK", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_99__CLASS_NREP_CHUNK.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_99__CLASS_NREP_CHUNK.obj_num = OBMAG_OBJECT; - cdat->dobj_99__CLASS_NREP_CHUNK.obj_hash = 337887408; + cdat->dobj_99__CLASS_NREP_CHUNK.obj_hash = 799613763; cdat->dobj_99__CLASS_NREP_CHUNK.obj_len = 8; /*inistring dstr_100__CLASS_NREP_CHUNK*/ @@ -10840,7 +10840,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_105__NCHUNK_EXPANSION", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_105__NCHUNK_EXPANSION.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_105__NCHUNK_EXPANSION.obj_num = 2; - cdat->dobj_105__NCHUNK_EXPANSION.obj_hash = 295977269; + cdat->dobj_105__NCHUNK_EXPANSION.obj_hash = 645443242; cdat->dobj_105__NCHUNK_EXPANSION.obj_len = 4; /*inistring dstr_106__NCHUNK_EXPANSION*/ @@ -10868,7 +10868,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_109__NCHUNK_OPER", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_109__NCHUNK_OPER.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_109__NCHUNK_OPER.obj_num = 3; - cdat->dobj_109__NCHUNK_OPER.obj_hash = 554152311; + cdat->dobj_109__NCHUNK_OPER.obj_hash = 409125752; cdat->dobj_109__NCHUNK_OPER.obj_len = 4; /*inistring dstr_110__NCHUNK_OPER*/ @@ -10896,7 +10896,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_113__CLASS_NREP_COMMENT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_113__CLASS_NREP_COMMENT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_113__CLASS_NREP_COMMENT.obj_num = OBMAG_OBJECT; - cdat->dobj_113__CLASS_NREP_COMMENT.obj_hash = 33086175; + cdat->dobj_113__CLASS_NREP_COMMENT.obj_hash = 64265044; cdat->dobj_113__CLASS_NREP_COMMENT.obj_len = 8; /*inistring dstr_114__CLASS_NREP_COMME*/ @@ -10932,7 +10932,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_119__NCOMM_STRING", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_119__NCOMM_STRING.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_119__NCOMM_STRING.obj_num = 1; - cdat->dobj_119__NCOMM_STRING.obj_hash = 769265167; + cdat->dobj_119__NCOMM_STRING.obj_hash = 4253373; cdat->dobj_119__NCOMM_STRING.obj_len = 4; /*inistring dstr_120__NCOMM_STRING*/ @@ -10960,7 +10960,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_123__CLASS_NREP_LET", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_123__CLASS_NREP_LET.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_123__CLASS_NREP_LET.obj_num = OBMAG_OBJECT; - cdat->dobj_123__CLASS_NREP_LET.obj_hash = 566278728; + cdat->dobj_123__CLASS_NREP_LET.obj_hash = 378847948; cdat->dobj_123__CLASS_NREP_LET.obj_len = 8; /*inistring dstr_124__CLASS_NREP_LET*/ @@ -10996,7 +10996,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_129__NLET_BINDINGS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_129__NLET_BINDINGS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_129__NLET_BINDINGS.obj_num = 1; - cdat->dobj_129__NLET_BINDINGS.obj_hash = 287115021; + cdat->dobj_129__NLET_BINDINGS.obj_hash = 505554233; cdat->dobj_129__NLET_BINDINGS.obj_len = 4; /*inistring dstr_130__NLET_BINDINGS*/ @@ -11024,7 +11024,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_133__NLET_BODY", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_133__NLET_BODY.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_133__NLET_BODY.obj_num = 2; - cdat->dobj_133__NLET_BODY.obj_hash = 622289768; + cdat->dobj_133__NLET_BODY.obj_hash = 47086611; cdat->dobj_133__NLET_BODY.obj_len = 4; /*inistring dstr_134__NLET_BODY*/ @@ -11052,7 +11052,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_137__CLASS_NREP_LETREC", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_137__CLASS_NREP_LETREC.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_137__CLASS_NREP_LETREC.obj_num = OBMAG_OBJECT; - cdat->dobj_137__CLASS_NREP_LETREC.obj_hash = 303343306; + cdat->dobj_137__CLASS_NREP_LETREC.obj_hash = 34862736; cdat->dobj_137__CLASS_NREP_LETREC.obj_len = 8; /*inistring dstr_138__CLASS_NREP_LETRE*/ @@ -11088,7 +11088,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_143__NLETREC_FILL_BINDINGS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_143__NLETREC_FILL_BINDINGS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_143__NLETREC_FILL_BINDINGS.obj_num = 3; - cdat->dobj_143__NLETREC_FILL_BINDINGS.obj_hash = 923521975; + cdat->dobj_143__NLETREC_FILL_BINDINGS.obj_hash = 307530; cdat->dobj_143__NLETREC_FILL_BINDINGS.obj_len = 4; /*inistring dstr_144__NLETREC_FILL_BIN*/ @@ -11116,7 +11116,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_147__NLETREC_BODY_BINDINGS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_147__NLETREC_BODY_BINDINGS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_147__NLETREC_BODY_BINDINGS.obj_num = 4; - cdat->dobj_147__NLETREC_BODY_BINDINGS.obj_hash = 598774323; + cdat->dobj_147__NLETREC_BODY_BINDINGS.obj_hash = 896708820; cdat->dobj_147__NLETREC_BODY_BINDINGS.obj_len = 4; /*inistring dstr_148__NLETREC_BODY_BIN*/ @@ -11144,7 +11144,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_151__NLETREC_LOCSYMS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_151__NLETREC_LOCSYMS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_151__NLETREC_LOCSYMS.obj_num = 5; - cdat->dobj_151__NLETREC_LOCSYMS.obj_hash = 868197014; + cdat->dobj_151__NLETREC_LOCSYMS.obj_hash = 751971423; cdat->dobj_151__NLETREC_LOCSYMS.obj_len = 4; /*inistring dstr_152__NLETREC_LOCSYMS*/ @@ -11172,7 +11172,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_155__CLASS_NREP_RETURN", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_155__CLASS_NREP_RETURN.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_155__CLASS_NREP_RETURN.obj_num = OBMAG_OBJECT; - cdat->dobj_155__CLASS_NREP_RETURN.obj_hash = 686422186; + cdat->dobj_155__CLASS_NREP_RETURN.obj_hash = 260724208; cdat->dobj_155__CLASS_NREP_RETURN.obj_len = 8; /*inistring dstr_156__CLASS_NREP_RETUR*/ @@ -11208,7 +11208,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_161__NRET_MAIN", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_161__NRET_MAIN.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_161__NRET_MAIN.obj_num = 1; - cdat->dobj_161__NRET_MAIN.obj_hash = 840298758; + cdat->dobj_161__NRET_MAIN.obj_hash = 604789407; cdat->dobj_161__NRET_MAIN.obj_len = 4; /*inistring dstr_162__NRET_MAIN*/ @@ -11236,7 +11236,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_165__NRET_REST", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_165__NRET_REST.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_165__NRET_REST.obj_num = 2; - cdat->dobj_165__NRET_REST.obj_hash = 715027927; + cdat->dobj_165__NRET_REST.obj_hash = 200967836; cdat->dobj_165__NRET_REST.obj_len = 4; /*inistring dstr_166__NRET_REST*/ @@ -11264,7 +11264,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_169__CLASS_NREP_IFCOMMON", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_169__CLASS_NREP_IFCOMMON.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_169__CLASS_NREP_IFCOMMON.obj_num = OBMAG_OBJECT; - cdat->dobj_169__CLASS_NREP_IFCOMMON.obj_hash = 392667053; + cdat->dobj_169__CLASS_NREP_IFCOMMON.obj_hash = 1004594944; cdat->dobj_169__CLASS_NREP_IFCOMMON.obj_len = 8; /*inistring dstr_170__CLASS_NREP_IFCOM*/ @@ -11300,7 +11300,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_175__NIF_THEN", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_175__NIF_THEN.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_175__NIF_THEN.obj_num = 2; - cdat->dobj_175__NIF_THEN.obj_hash = 963101067; + cdat->dobj_175__NIF_THEN.obj_hash = 1028602409; cdat->dobj_175__NIF_THEN.obj_len = 4; /*inistring dstr_176__NIF_THEN*/ @@ -11328,7 +11328,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_179__NIF_ELSE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_179__NIF_ELSE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_179__NIF_ELSE.obj_num = 3; - cdat->dobj_179__NIF_ELSE.obj_hash = 858326521; + cdat->dobj_179__NIF_ELSE.obj_hash = 168293744; cdat->dobj_179__NIF_ELSE.obj_len = 4; /*inistring dstr_180__NIF_ELSE*/ @@ -11356,7 +11356,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_183__CLASS_NREP_IFISA", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_183__CLASS_NREP_IFISA.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_183__CLASS_NREP_IFISA.obj_num = OBMAG_OBJECT; - cdat->dobj_183__CLASS_NREP_IFISA.obj_hash = 643429319; + cdat->dobj_183__CLASS_NREP_IFISA.obj_hash = 1031833692; cdat->dobj_183__CLASS_NREP_IFISA.obj_len = 8; /*inistring dstr_184__CLASS_NREP_IFISA*/ @@ -11392,7 +11392,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_189__NIFA_VAL", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_189__NIFA_VAL.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_189__NIFA_VAL.obj_num = 4; - cdat->dobj_189__NIFA_VAL.obj_hash = 469845488; + cdat->dobj_189__NIFA_VAL.obj_hash = 302055415; cdat->dobj_189__NIFA_VAL.obj_len = 4; /*inistring dstr_190__NIFA_VAL*/ @@ -11420,7 +11420,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_193__NIFA_CLASS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_193__NIFA_CLASS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_193__NIFA_CLASS.obj_num = 5; - cdat->dobj_193__NIFA_CLASS.obj_hash = 118304926; + cdat->dobj_193__NIFA_CLASS.obj_hash = 504097206; cdat->dobj_193__NIFA_CLASS.obj_len = 4; /*inistring dstr_194__NIFA_CLASS*/ @@ -11448,7 +11448,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_197__CLASS_NREP_IF", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_197__CLASS_NREP_IF.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_197__CLASS_NREP_IF.obj_num = OBMAG_OBJECT; - cdat->dobj_197__CLASS_NREP_IF.obj_hash = 111275625; + cdat->dobj_197__CLASS_NREP_IF.obj_hash = 756609565; cdat->dobj_197__CLASS_NREP_IF.obj_len = 8; /*inistring dstr_198__CLASS_NREP_IF*/ @@ -11484,7 +11484,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_203__NIF_TEST", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_203__NIF_TEST.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_203__NIF_TEST.obj_num = 4; - cdat->dobj_203__NIF_TEST.obj_hash = 1066315495; + cdat->dobj_203__NIF_TEST.obj_hash = 948599907; cdat->dobj_203__NIF_TEST.obj_len = 4; /*inistring dstr_204__NIF_TEST*/ @@ -11512,7 +11512,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_207__CLASS_NREP_CPPIF", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_207__CLASS_NREP_CPPIF.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_207__CLASS_NREP_CPPIF.obj_num = OBMAG_OBJECT; - cdat->dobj_207__CLASS_NREP_CPPIF.obj_hash = 770366218; + cdat->dobj_207__CLASS_NREP_CPPIF.obj_hash = 593529907; cdat->dobj_207__CLASS_NREP_CPPIF.obj_len = 8; /*inistring dstr_208__CLASS_NREP_CPPIF*/ @@ -11548,7 +11548,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_213__NIFP_COND", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_213__NIFP_COND.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_213__NIFP_COND.obj_num = 1; - cdat->dobj_213__NIFP_COND.obj_hash = 527713737; + cdat->dobj_213__NIFP_COND.obj_hash = 517405377; cdat->dobj_213__NIFP_COND.obj_len = 4; /*inistring dstr_214__NIFP_COND*/ @@ -11576,7 +11576,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_217__NIFP_THEN", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_217__NIFP_THEN.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_217__NIFP_THEN.obj_num = 2; - cdat->dobj_217__NIFP_THEN.obj_hash = 419907517; + cdat->dobj_217__NIFP_THEN.obj_hash = 285017127; cdat->dobj_217__NIFP_THEN.obj_len = 4; /*inistring dstr_218__NIFP_THEN*/ @@ -11604,7 +11604,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_221__NIFP_ELSE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_221__NIFP_ELSE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_221__NIFP_ELSE.obj_num = 3; - cdat->dobj_221__NIFP_ELSE.obj_hash = 843977390; + cdat->dobj_221__NIFP_ELSE.obj_hash = 659328983; cdat->dobj_221__NIFP_ELSE.obj_len = 4; /*inistring dstr_222__NIFP_ELSE*/ @@ -11632,7 +11632,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_225__NIFP_CTYP", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_225__NIFP_CTYP.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_225__NIFP_CTYP.obj_num = 4; - cdat->dobj_225__NIFP_CTYP.obj_hash = 380606377; + cdat->dobj_225__NIFP_CTYP.obj_hash = 646978846; cdat->dobj_225__NIFP_CTYP.obj_len = 4; /*inistring dstr_226__NIFP_CTYP*/ @@ -11660,7 +11660,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_229__CLASS_NREP_PROGN", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_229__CLASS_NREP_PROGN.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_229__CLASS_NREP_PROGN.obj_num = OBMAG_OBJECT; - cdat->dobj_229__CLASS_NREP_PROGN.obj_hash = 567063697; + cdat->dobj_229__CLASS_NREP_PROGN.obj_hash = 799761581; cdat->dobj_229__CLASS_NREP_PROGN.obj_len = 8; /*inistring dstr_230__CLASS_NREP_PROGN*/ @@ -11696,7 +11696,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_235__NPROGN_SEQ", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_235__NPROGN_SEQ.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_235__NPROGN_SEQ.obj_num = 1; - cdat->dobj_235__NPROGN_SEQ.obj_hash = 963465810; + cdat->dobj_235__NPROGN_SEQ.obj_hash = 108819813; cdat->dobj_235__NPROGN_SEQ.obj_len = 4; /*inistring dstr_236__NPROGN_SEQ*/ @@ -11724,7 +11724,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_239__NPROGN_LAST", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_239__NPROGN_LAST.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_239__NPROGN_LAST.obj_num = 2; - cdat->dobj_239__NPROGN_LAST.obj_hash = 527468061; + cdat->dobj_239__NPROGN_LAST.obj_hash = 730233311; cdat->dobj_239__NPROGN_LAST.obj_len = 4; /*inistring dstr_240__NPROGN_LAST*/ @@ -11752,7 +11752,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_243__CLASS_NREP_UNSAFE_GET_FIELD", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_243__CLASS_NREP_UNSAFE_GET_FIELD.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_243__CLASS_NREP_UNSAFE_GET_FIELD.obj_num = OBMAG_OBJECT; - cdat->dobj_243__CLASS_NREP_UNSAFE_GET_FIELD.obj_hash = 552792094; + cdat->dobj_243__CLASS_NREP_UNSAFE_GET_FIELD.obj_hash = 581105151; cdat->dobj_243__CLASS_NREP_UNSAFE_GET_FIELD.obj_len = 8; /*inistring dstr_244__CLASS_NREP_UNSAF*/ @@ -11788,7 +11788,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_249__NUGET_OBJ", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_249__NUGET_OBJ.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_249__NUGET_OBJ.obj_num = 1; - cdat->dobj_249__NUGET_OBJ.obj_hash = 222594140; + cdat->dobj_249__NUGET_OBJ.obj_hash = 880100374; cdat->dobj_249__NUGET_OBJ.obj_len = 4; /*inistring dstr_250__NUGET_OBJ*/ @@ -11816,7 +11816,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_253__NUGET_FIELD", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_253__NUGET_FIELD.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_253__NUGET_FIELD.obj_num = 2; - cdat->dobj_253__NUGET_FIELD.obj_hash = 1051632863; + cdat->dobj_253__NUGET_FIELD.obj_hash = 335200112; cdat->dobj_253__NUGET_FIELD.obj_len = 4; /*inistring dstr_254__NUGET_FIELD*/ @@ -11844,7 +11844,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_257__CLASS_NREP_UNSAFE_PUT_FIELDS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_257__CLASS_NREP_UNSAFE_PUT_FIELDS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_257__CLASS_NREP_UNSAFE_PUT_FIELDS.obj_num = OBMAG_OBJECT; - cdat->dobj_257__CLASS_NREP_UNSAFE_PUT_FIELDS.obj_hash = 537367467; + cdat->dobj_257__CLASS_NREP_UNSAFE_PUT_FIELDS.obj_hash = 621324920; cdat->dobj_257__CLASS_NREP_UNSAFE_PUT_FIELDS.obj_len = 8; /*inistring dstr_258__CLASS_NREP_UNSAF*/ @@ -11880,7 +11880,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_263__NUPUT_OBJ", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_263__NUPUT_OBJ.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_263__NUPUT_OBJ.obj_num = 1; - cdat->dobj_263__NUPUT_OBJ.obj_hash = 423506539; + cdat->dobj_263__NUPUT_OBJ.obj_hash = 978659346; cdat->dobj_263__NUPUT_OBJ.obj_len = 4; /*inistring dstr_264__NUPUT_OBJ*/ @@ -11908,7 +11908,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_267__NUPUT_FIELDS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_267__NUPUT_FIELDS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_267__NUPUT_FIELDS.obj_num = 2; - cdat->dobj_267__NUPUT_FIELDS.obj_hash = 747373262; + cdat->dobj_267__NUPUT_FIELDS.obj_hash = 867410264; cdat->dobj_267__NUPUT_FIELDS.obj_len = 4; /*inistring dstr_268__NUPUT_FIELDS*/ @@ -11936,7 +11936,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_271__CLASS_NREP_SETQ", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_271__CLASS_NREP_SETQ.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_271__CLASS_NREP_SETQ.obj_num = OBMAG_OBJECT; - cdat->dobj_271__CLASS_NREP_SETQ.obj_hash = 121855871; + cdat->dobj_271__CLASS_NREP_SETQ.obj_hash = 207564790; cdat->dobj_271__CLASS_NREP_SETQ.obj_len = 8; /*inistring dstr_272__CLASS_NREP_SETQ*/ @@ -11972,7 +11972,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_277__NSTQ_VAR", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_277__NSTQ_VAR.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_277__NSTQ_VAR.obj_num = 1; - cdat->dobj_277__NSTQ_VAR.obj_hash = 755929324; + cdat->dobj_277__NSTQ_VAR.obj_hash = 1022942201; cdat->dobj_277__NSTQ_VAR.obj_len = 4; /*inistring dstr_278__NSTQ_VAR*/ @@ -12000,7 +12000,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_281__NSTQ_EXP", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_281__NSTQ_EXP.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_281__NSTQ_EXP.obj_num = 2; - cdat->dobj_281__NSTQ_EXP.obj_hash = 639389052; + cdat->dobj_281__NSTQ_EXP.obj_hash = 548004412; cdat->dobj_281__NSTQ_EXP.obj_len = 4; /*inistring dstr_282__NSTQ_EXP*/ @@ -12028,7 +12028,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_285__CLASS_NREP_FOREVER", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_285__CLASS_NREP_FOREVER.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_285__CLASS_NREP_FOREVER.obj_num = OBMAG_OBJECT; - cdat->dobj_285__CLASS_NREP_FOREVER.obj_hash = 290035199; + cdat->dobj_285__CLASS_NREP_FOREVER.obj_hash = 38177087; cdat->dobj_285__CLASS_NREP_FOREVER.obj_len = 8; /*inistring dstr_286__CLASS_NREP_FOREV*/ @@ -12064,7 +12064,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_291__NFOREVER_BIND", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_291__NFOREVER_BIND.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_291__NFOREVER_BIND.obj_num = 1; - cdat->dobj_291__NFOREVER_BIND.obj_hash = 564515413; + cdat->dobj_291__NFOREVER_BIND.obj_hash = 795481460; cdat->dobj_291__NFOREVER_BIND.obj_len = 4; /*inistring dstr_292__NFOREVER_BIND*/ @@ -12092,7 +12092,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_295__NFOREVER_BODY", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_295__NFOREVER_BODY.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_295__NFOREVER_BODY.obj_num = 2; - cdat->dobj_295__NFOREVER_BODY.obj_hash = 109543601; + cdat->dobj_295__NFOREVER_BODY.obj_hash = 176718375; cdat->dobj_295__NFOREVER_BODY.obj_len = 4; /*inistring dstr_296__NFOREVER_BODY*/ @@ -12120,7 +12120,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_299__NFOREVER_RESULT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_299__NFOREVER_RESULT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_299__NFOREVER_RESULT.obj_num = 3; - cdat->dobj_299__NFOREVER_RESULT.obj_hash = 676670938; + cdat->dobj_299__NFOREVER_RESULT.obj_hash = 662258859; cdat->dobj_299__NFOREVER_RESULT.obj_len = 4; /*inistring dstr_300__NFOREVER_RESULT*/ @@ -12148,7 +12148,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_303__CLASS_NREP_EXIT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_303__CLASS_NREP_EXIT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_303__CLASS_NREP_EXIT.obj_num = OBMAG_OBJECT; - cdat->dobj_303__CLASS_NREP_EXIT.obj_hash = 136370834; + cdat->dobj_303__CLASS_NREP_EXIT.obj_hash = 13390986; cdat->dobj_303__CLASS_NREP_EXIT.obj_len = 8; /*inistring dstr_304__CLASS_NREP_EXIT*/ @@ -12184,7 +12184,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_309__NEXIT_BIND", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_309__NEXIT_BIND.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_309__NEXIT_BIND.obj_num = 1; - cdat->dobj_309__NEXIT_BIND.obj_hash = 139239255; + cdat->dobj_309__NEXIT_BIND.obj_hash = 219077501; cdat->dobj_309__NEXIT_BIND.obj_len = 4; /*inistring dstr_310__NEXIT_BIND*/ @@ -12212,7 +12212,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_313__NEXIT_VAL", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_313__NEXIT_VAL.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_313__NEXIT_VAL.obj_num = 2; - cdat->dobj_313__NEXIT_VAL.obj_hash = 212069910; + cdat->dobj_313__NEXIT_VAL.obj_hash = 1581643; cdat->dobj_313__NEXIT_VAL.obj_len = 4; /*inistring dstr_314__NEXIT_VAL*/ @@ -12240,7 +12240,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_317__CLASS_NREP_FIELDASSIGN", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_317__CLASS_NREP_FIELDASSIGN.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_317__CLASS_NREP_FIELDASSIGN.obj_num = OBMAG_OBJECT; - cdat->dobj_317__CLASS_NREP_FIELDASSIGN.obj_hash = 745032910; + cdat->dobj_317__CLASS_NREP_FIELDASSIGN.obj_hash = 500160832; cdat->dobj_317__CLASS_NREP_FIELDASSIGN.obj_len = 8; /*inistring dstr_318__CLASS_NREP_FIELD*/ @@ -12276,7 +12276,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_323__NFLA_FIELD", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_323__NFLA_FIELD.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_323__NFLA_FIELD.obj_num = 1; - cdat->dobj_323__NFLA_FIELD.obj_hash = 133892230; + cdat->dobj_323__NFLA_FIELD.obj_hash = 942004882; cdat->dobj_323__NFLA_FIELD.obj_len = 4; /*inistring dstr_324__NFLA_FIELD*/ @@ -12304,7 +12304,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_327__NFLA_VAL", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_327__NFLA_VAL.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_327__NFLA_VAL.obj_num = 2; - cdat->dobj_327__NFLA_VAL.obj_hash = 775117759; + cdat->dobj_327__NFLA_VAL.obj_hash = 918481130; cdat->dobj_327__NFLA_VAL.obj_len = 4; /*inistring dstr_328__NFLA_VAL*/ @@ -12332,7 +12332,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_331__CLASS_NREP_INSTANCE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_331__CLASS_NREP_INSTANCE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_331__CLASS_NREP_INSTANCE.obj_num = OBMAG_OBJECT; - cdat->dobj_331__CLASS_NREP_INSTANCE.obj_hash = 663875193; + cdat->dobj_331__CLASS_NREP_INSTANCE.obj_hash = 457690279; cdat->dobj_331__CLASS_NREP_INSTANCE.obj_len = 8; /*inistring dstr_332__CLASS_NREP_INSTA*/ @@ -12368,7 +12368,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_337__NMINS_CLASS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_337__NMINS_CLASS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_337__NMINS_CLASS.obj_num = 1; - cdat->dobj_337__NMINS_CLASS.obj_hash = 122650262; + cdat->dobj_337__NMINS_CLASS.obj_hash = 747756016; cdat->dobj_337__NMINS_CLASS.obj_len = 4; /*inistring dstr_338__NMINS_CLASS*/ @@ -12396,7 +12396,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_341__NMINS_CLADATA", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_341__NMINS_CLADATA.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_341__NMINS_CLADATA.obj_num = 2; - cdat->dobj_341__NMINS_CLADATA.obj_hash = 269001891; + cdat->dobj_341__NMINS_CLADATA.obj_hash = 295072763; cdat->dobj_341__NMINS_CLADATA.obj_len = 4; /*inistring dstr_342__NMINS_CLADATA*/ @@ -12424,7 +12424,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_345__NMINS_FIELDS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_345__NMINS_FIELDS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_345__NMINS_FIELDS.obj_num = 3; - cdat->dobj_345__NMINS_FIELDS.obj_hash = 41115714; + cdat->dobj_345__NMINS_FIELDS.obj_hash = 871864727; cdat->dobj_345__NMINS_FIELDS.obj_len = 4; /*inistring dstr_346__NMINS_FIELDS*/ @@ -12452,7 +12452,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_349__CLASS_NREP_LAMBDA", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_349__CLASS_NREP_LAMBDA.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_349__CLASS_NREP_LAMBDA.obj_num = OBMAG_OBJECT; - cdat->dobj_349__CLASS_NREP_LAMBDA.obj_hash = 939748058; + cdat->dobj_349__CLASS_NREP_LAMBDA.obj_hash = 999876113; cdat->dobj_349__CLASS_NREP_LAMBDA.obj_len = 8; /*inistring dstr_350__CLASS_NREP_LAMBD*/ @@ -12488,7 +12488,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_355__NLAMBDA_PROC", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_355__NLAMBDA_PROC.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_355__NLAMBDA_PROC.obj_num = 1; - cdat->dobj_355__NLAMBDA_PROC.obj_hash = 262450709; + cdat->dobj_355__NLAMBDA_PROC.obj_hash = 213315194; cdat->dobj_355__NLAMBDA_PROC.obj_len = 4; /*inistring dstr_356__NLAMBDA_PROC*/ @@ -12516,7 +12516,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_359__NLAMBDA_CONSTROUT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_359__NLAMBDA_CONSTROUT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_359__NLAMBDA_CONSTROUT.obj_num = 2; - cdat->dobj_359__NLAMBDA_CONSTROUT.obj_hash = 368462734; + cdat->dobj_359__NLAMBDA_CONSTROUT.obj_hash = 220547703; cdat->dobj_359__NLAMBDA_CONSTROUT.obj_len = 4; /*inistring dstr_360__NLAMBDA_CONSTROU*/ @@ -12544,7 +12544,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_363__NLAMBDA_CLOSEDV", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_363__NLAMBDA_CLOSEDV.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_363__NLAMBDA_CLOSEDV.obj_num = 3; - cdat->dobj_363__NLAMBDA_CLOSEDV.obj_hash = 583721144; + cdat->dobj_363__NLAMBDA_CLOSEDV.obj_hash = 108166357; cdat->dobj_363__NLAMBDA_CLOSEDV.obj_len = 4; /*inistring dstr_364__NLAMBDA_CLOSEDV*/ @@ -12572,7 +12572,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_367__CLASS_NREP_CITERATION", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_367__CLASS_NREP_CITERATION.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_367__CLASS_NREP_CITERATION.obj_num = OBMAG_OBJECT; - cdat->dobj_367__CLASS_NREP_CITERATION.obj_hash = 527831612; + cdat->dobj_367__CLASS_NREP_CITERATION.obj_hash = 179461360; cdat->dobj_367__CLASS_NREP_CITERATION.obj_len = 8; /*inistring dstr_368__CLASS_NREP_CITER*/ @@ -12608,7 +12608,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_373__NCITER_CITERATOR", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_373__NCITER_CITERATOR.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_373__NCITER_CITERATOR.obj_num = 1; - cdat->dobj_373__NCITER_CITERATOR.obj_hash = 312280117; + cdat->dobj_373__NCITER_CITERATOR.obj_hash = 112319871; cdat->dobj_373__NCITER_CITERATOR.obj_len = 4; /*inistring dstr_374__NCITER_CITERATOR*/ @@ -12636,7 +12636,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_377__NCITER_CHUNKBEFORE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_377__NCITER_CHUNKBEFORE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_377__NCITER_CHUNKBEFORE.obj_num = 2; - cdat->dobj_377__NCITER_CHUNKBEFORE.obj_hash = 573527353; + cdat->dobj_377__NCITER_CHUNKBEFORE.obj_hash = 871487249; cdat->dobj_377__NCITER_CHUNKBEFORE.obj_len = 4; /*inistring dstr_378__NCITER_CHUNKBEFO*/ @@ -12664,7 +12664,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_381__NCITER_CHUNKAFTER", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_381__NCITER_CHUNKAFTER.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_381__NCITER_CHUNKAFTER.obj_num = 3; - cdat->dobj_381__NCITER_CHUNKAFTER.obj_hash = 471628273; + cdat->dobj_381__NCITER_CHUNKAFTER.obj_hash = 211605052; cdat->dobj_381__NCITER_CHUNKAFTER.obj_len = 4; /*inistring dstr_382__NCITER_CHUNKAFTE*/ @@ -12692,7 +12692,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_385__NCITER_BODY", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_385__NCITER_BODY.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_385__NCITER_BODY.obj_num = 4; - cdat->dobj_385__NCITER_BODY.obj_hash = 963032674; + cdat->dobj_385__NCITER_BODY.obj_hash = 7505543; cdat->dobj_385__NCITER_BODY.obj_len = 4; /*inistring dstr_386__NCITER_BODY*/ @@ -12720,7 +12720,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_389__NCITER_STATOCC", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_389__NCITER_STATOCC.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_389__NCITER_STATOCC.obj_num = 5; - cdat->dobj_389__NCITER_STATOCC.obj_hash = 700154181; + cdat->dobj_389__NCITER_STATOCC.obj_hash = 1027297981; cdat->dobj_389__NCITER_STATOCC.obj_len = 4; /*inistring dstr_390__NCITER_STATOCC*/ @@ -12748,7 +12748,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_393__NCITER_LOCBINDINGS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_393__NCITER_LOCBINDINGS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_393__NCITER_LOCBINDINGS.obj_num = 6; - cdat->dobj_393__NCITER_LOCBINDINGS.obj_hash = 87296428; + cdat->dobj_393__NCITER_LOCBINDINGS.obj_hash = 284073701; cdat->dobj_393__NCITER_LOCBINDINGS.obj_len = 4; /*inistring dstr_394__NCITER_LOCBINDIN*/ @@ -12776,7 +12776,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_397__NCITER_BODBINDINGS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_397__NCITER_BODBINDINGS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_397__NCITER_BODBINDINGS.obj_num = 7; - cdat->dobj_397__NCITER_BODBINDINGS.obj_hash = 672288281; + cdat->dobj_397__NCITER_BODBINDINGS.obj_hash = 201984914; cdat->dobj_397__NCITER_BODBINDINGS.obj_len = 4; /*inistring dstr_398__NCITER_BODBINDIN*/ @@ -12804,7 +12804,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_401__CLASS_NREP_TESTS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_401__CLASS_NREP_TESTS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_401__CLASS_NREP_TESTS.obj_num = OBMAG_OBJECT; - cdat->dobj_401__CLASS_NREP_TESTS.obj_hash = 177381165; + cdat->dobj_401__CLASS_NREP_TESTS.obj_hash = 1006908604; cdat->dobj_401__CLASS_NREP_TESTS.obj_len = 8; /*inistring dstr_402__CLASS_NREP_TESTS*/ @@ -12840,7 +12840,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_407__NTESTS_TESTSEQ", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_407__NTESTS_TESTSEQ.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_407__NTESTS_TESTSEQ.obj_num = 1; - cdat->dobj_407__NTESTS_TESTSEQ.obj_hash = 700177032; + cdat->dobj_407__NTESTS_TESTSEQ.obj_hash = 302877161; cdat->dobj_407__NTESTS_TESTSEQ.obj_len = 4; /*inistring dstr_408__NTESTS_TESTSEQ*/ @@ -12881,7 +12881,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_413__CLASS_NORMAL_CONSTRUCTOR_BINDING", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_413__CLASS_NORMAL_CONSTRUCTOR_BINDING.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_413__CLASS_NORMAL_CONSTRUCTOR_BINDING.obj_num = OBMAG_OBJECT; - cdat->dobj_413__CLASS_NORMAL_CONSTRUCTOR_BINDING.obj_hash = 219149784; + cdat->dobj_413__CLASS_NORMAL_CONSTRUCTOR_BINDING.obj_hash = 619179977; cdat->dobj_413__CLASS_NORMAL_CONSTRUCTOR_BINDING.obj_len = 8; /*inistring dstr_414__CLASS_NORMAL_CON*/ @@ -12917,7 +12917,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_419__NCONSB_LOC", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_419__NCONSB_LOC.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_419__NCONSB_LOC.obj_num = 1; - cdat->dobj_419__NCONSB_LOC.obj_hash = 1053493228; + cdat->dobj_419__NCONSB_LOC.obj_hash = 142441353; cdat->dobj_419__NCONSB_LOC.obj_len = 4; /*inistring dstr_420__NCONSB_LOC*/ @@ -12945,7 +12945,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_423__NCONSB_DISCR", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_423__NCONSB_DISCR.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_423__NCONSB_DISCR.obj_num = 2; - cdat->dobj_423__NCONSB_DISCR.obj_hash = 735561203; + cdat->dobj_423__NCONSB_DISCR.obj_hash = 240923318; cdat->dobj_423__NCONSB_DISCR.obj_len = 4; /*inistring dstr_424__NCONSB_DISCR*/ @@ -12973,7 +12973,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_427__NCONSB_NLETREC", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_427__NCONSB_NLETREC.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_427__NCONSB_NLETREC.obj_num = 3; - cdat->dobj_427__NCONSB_NLETREC.obj_hash = 432482659; + cdat->dobj_427__NCONSB_NLETREC.obj_hash = 418422058; cdat->dobj_427__NCONSB_NLETREC.obj_len = 4; /*inistring dstr_428__NCONSB_NLETREC*/ @@ -13001,7 +13001,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_431__CLASS_NORMAL_CONSTRUCTED_TUPLE_BINDING", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_431__CLASS_NORMAL_CONSTRUCTED_TUPLE_BINDING.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_431__CLASS_NORMAL_CONSTRUCTED_TUPLE_BINDING.obj_num = OBMAG_OBJECT; - cdat->dobj_431__CLASS_NORMAL_CONSTRUCTED_TUPLE_BINDING.obj_hash = 177553741; + cdat->dobj_431__CLASS_NORMAL_CONSTRUCTED_TUPLE_BINDING.obj_hash = 923040159; cdat->dobj_431__CLASS_NORMAL_CONSTRUCTED_TUPLE_BINDING.obj_len = 8; /*inistring dstr_432__CLASS_NORMAL_CON*/ @@ -13037,7 +13037,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_437__NTUPB_COMP", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_437__NTUPB_COMP.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_437__NTUPB_COMP.obj_num = 4; - cdat->dobj_437__NTUPB_COMP.obj_hash = 104919450; + cdat->dobj_437__NTUPB_COMP.obj_hash = 127464370; cdat->dobj_437__NTUPB_COMP.obj_len = 4; /*inistring dstr_438__NTUPB_COMP*/ @@ -13065,7 +13065,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_441__CLASS_NORMAL_CONSTRUCTED_PAIR_BINDING", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_441__CLASS_NORMAL_CONSTRUCTED_PAIR_BINDING.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_441__CLASS_NORMAL_CONSTRUCTED_PAIR_BINDING.obj_num = OBMAG_OBJECT; - cdat->dobj_441__CLASS_NORMAL_CONSTRUCTED_PAIR_BINDING.obj_hash = 821645321; + cdat->dobj_441__CLASS_NORMAL_CONSTRUCTED_PAIR_BINDING.obj_hash = 343584891; cdat->dobj_441__CLASS_NORMAL_CONSTRUCTED_PAIR_BINDING.obj_len = 8; /*inistring dstr_442__CLASS_NORMAL_CON*/ @@ -13101,7 +13101,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_447__NPAIRB_HEAD", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_447__NPAIRB_HEAD.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_447__NPAIRB_HEAD.obj_num = 4; - cdat->dobj_447__NPAIRB_HEAD.obj_hash = 1038336476; + cdat->dobj_447__NPAIRB_HEAD.obj_hash = 348430328; cdat->dobj_447__NPAIRB_HEAD.obj_len = 4; /*inistring dstr_448__NPAIRB_HEAD*/ @@ -13129,7 +13129,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_451__NPAIRB_TAIL", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_451__NPAIRB_TAIL.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_451__NPAIRB_TAIL.obj_num = 5; - cdat->dobj_451__NPAIRB_TAIL.obj_hash = 19273916; + cdat->dobj_451__NPAIRB_TAIL.obj_hash = 579683068; cdat->dobj_451__NPAIRB_TAIL.obj_len = 4; /*inistring dstr_452__NPAIRB_TAIL*/ @@ -13157,7 +13157,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_455__CLASS_NORMAL_CONSTRUCTED_LIST_BINDING", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_455__CLASS_NORMAL_CONSTRUCTED_LIST_BINDING.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_455__CLASS_NORMAL_CONSTRUCTED_LIST_BINDING.obj_num = OBMAG_OBJECT; - cdat->dobj_455__CLASS_NORMAL_CONSTRUCTED_LIST_BINDING.obj_hash = 940907951; + cdat->dobj_455__CLASS_NORMAL_CONSTRUCTED_LIST_BINDING.obj_hash = 211259093; cdat->dobj_455__CLASS_NORMAL_CONSTRUCTED_LIST_BINDING.obj_len = 8; /*inistring dstr_456__CLASS_NORMAL_CON*/ @@ -13193,7 +13193,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_461__NLISTB_FIRST", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_461__NLISTB_FIRST.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_461__NLISTB_FIRST.obj_num = 4; - cdat->dobj_461__NLISTB_FIRST.obj_hash = 650461057; + cdat->dobj_461__NLISTB_FIRST.obj_hash = 515360279; cdat->dobj_461__NLISTB_FIRST.obj_len = 4; /*inistring dstr_462__NLISTB_FIRST*/ @@ -13221,7 +13221,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_465__NLISTB_LAST", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_465__NLISTB_LAST.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_465__NLISTB_LAST.obj_num = 5; - cdat->dobj_465__NLISTB_LAST.obj_hash = 500496506; + cdat->dobj_465__NLISTB_LAST.obj_hash = 915327966; cdat->dobj_465__NLISTB_LAST.obj_len = 4; /*inistring dstr_466__NLISTB_LAST*/ @@ -13249,7 +13249,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_469__NLISTB_PAIRSB", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_469__NLISTB_PAIRSB.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_469__NLISTB_PAIRSB.obj_num = 6; - cdat->dobj_469__NLISTB_PAIRSB.obj_hash = 201250303; + cdat->dobj_469__NLISTB_PAIRSB.obj_hash = 751465436; cdat->dobj_469__NLISTB_PAIRSB.obj_len = 4; /*inistring dstr_470__NLISTB_PAIRSB*/ @@ -13277,7 +13277,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_473__CLASS_NORMAL_CONSTRUCTED_LAMBDA_BINDING", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_473__CLASS_NORMAL_CONSTRUCTED_LAMBDA_BINDING.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_473__CLASS_NORMAL_CONSTRUCTED_LAMBDA_BINDING.obj_num = OBMAG_OBJECT; - cdat->dobj_473__CLASS_NORMAL_CONSTRUCTED_LAMBDA_BINDING.obj_hash = 644256755; + cdat->dobj_473__CLASS_NORMAL_CONSTRUCTED_LAMBDA_BINDING.obj_hash = 976695919; cdat->dobj_473__CLASS_NORMAL_CONSTRUCTED_LAMBDA_BINDING.obj_len = 8; /*inistring dstr_474__CLASS_NORMAL_CON*/ @@ -13313,7 +13313,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_479__NLAMBDAB_NCLOSED", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_479__NLAMBDAB_NCLOSED.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_479__NLAMBDAB_NCLOSED.obj_num = 4; - cdat->dobj_479__NLAMBDAB_NCLOSED.obj_hash = 624920458; + cdat->dobj_479__NLAMBDAB_NCLOSED.obj_hash = 478042397; cdat->dobj_479__NLAMBDAB_NCLOSED.obj_len = 4; /*inistring dstr_480__NLAMBDAB_NCLOSED*/ @@ -13341,7 +13341,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_483__NLAMBDAB_CONSTROUT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_483__NLAMBDAB_CONSTROUT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_483__NLAMBDAB_CONSTROUT.obj_num = 5; - cdat->dobj_483__NLAMBDAB_CONSTROUT.obj_hash = 378269812; + cdat->dobj_483__NLAMBDAB_CONSTROUT.obj_hash = 310059866; cdat->dobj_483__NLAMBDAB_CONSTROUT.obj_len = 4; /*inistring dstr_484__NLAMBDAB_CONSTRO*/ @@ -13369,7 +13369,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_487__NLAMBDAB_DATAROUT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_487__NLAMBDAB_DATAROUT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_487__NLAMBDAB_DATAROUT.obj_num = 6; - cdat->dobj_487__NLAMBDAB_DATAROUT.obj_hash = 18063818; + cdat->dobj_487__NLAMBDAB_DATAROUT.obj_hash = 538580509; cdat->dobj_487__NLAMBDAB_DATAROUT.obj_len = 4; /*inistring dstr_488__NLAMBDAB_DATAROU*/ @@ -13397,7 +13397,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_491__CLASS_NORMAL_CONSTRUCTED_INSTANCE_BINDING", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_491__CLASS_NORMAL_CONSTRUCTED_INSTANCE_BINDING.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_491__CLASS_NORMAL_CONSTRUCTED_INSTANCE_BINDING.obj_num = OBMAG_OBJECT; - cdat->dobj_491__CLASS_NORMAL_CONSTRUCTED_INSTANCE_BINDING.obj_hash = 122222664; + cdat->dobj_491__CLASS_NORMAL_CONSTRUCTED_INSTANCE_BINDING.obj_hash = 56713705; cdat->dobj_491__CLASS_NORMAL_CONSTRUCTED_INSTANCE_BINDING.obj_len = 8; /*inistring dstr_492__CLASS_NORMAL_CON*/ @@ -13433,7 +13433,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_497__NINSTB_SLOTS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_497__NINSTB_SLOTS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_497__NINSTB_SLOTS.obj_num = 4; - cdat->dobj_497__NINSTB_SLOTS.obj_hash = 404319602; + cdat->dobj_497__NINSTB_SLOTS.obj_hash = 306068278; cdat->dobj_497__NINSTB_SLOTS.obj_len = 4; /*inistring dstr_498__NINSTB_SLOTS*/ @@ -13461,7 +13461,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_501__NINSTB_CLABIND", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_501__NINSTB_CLABIND.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_501__NINSTB_CLABIND.obj_num = 5; - cdat->dobj_501__NINSTB_CLABIND.obj_hash = 320226051; + cdat->dobj_501__NINSTB_CLABIND.obj_hash = 448828147; cdat->dobj_501__NINSTB_CLABIND.obj_len = 4; /*inistring dstr_502__NINSTB_CLABIND*/ @@ -13489,7 +13489,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_505__CLASS_NREP_ANYPROC", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_505__CLASS_NREP_ANYPROC.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_505__CLASS_NREP_ANYPROC.obj_num = OBMAG_OBJECT; - cdat->dobj_505__CLASS_NREP_ANYPROC.obj_hash = 504424138; + cdat->dobj_505__CLASS_NREP_ANYPROC.obj_hash = 418354844; cdat->dobj_505__CLASS_NREP_ANYPROC.obj_len = 8; /*inistring dstr_506__CLASS_NREP_ANYPR*/ @@ -13525,7 +13525,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_511__NPROC_BODY", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_511__NPROC_BODY.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_511__NPROC_BODY.obj_num = 1; - cdat->dobj_511__NPROC_BODY.obj_hash = 917662862; + cdat->dobj_511__NPROC_BODY.obj_hash = 626249777; cdat->dobj_511__NPROC_BODY.obj_len = 4; /*inistring dstr_512__NPROC_BODY*/ @@ -13553,7 +13553,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_515__CLASS_NREP_INITPROC", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_515__CLASS_NREP_INITPROC.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_515__CLASS_NREP_INITPROC.obj_num = OBMAG_OBJECT; - cdat->dobj_515__CLASS_NREP_INITPROC.obj_hash = 511183468; + cdat->dobj_515__CLASS_NREP_INITPROC.obj_hash = 479120812; cdat->dobj_515__CLASS_NREP_INITPROC.obj_len = 8; /*inistring dstr_516__CLASS_NREP_INITP*/ @@ -13589,7 +13589,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_521__NINIT_TOPL", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_521__NINIT_TOPL.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_521__NINIT_TOPL.obj_num = 2; - cdat->dobj_521__NINIT_TOPL.obj_hash = 281224946; + cdat->dobj_521__NINIT_TOPL.obj_hash = 819706543; cdat->dobj_521__NINIT_TOPL.obj_len = 4; /*inistring dstr_522__NINIT_TOPL*/ @@ -13617,7 +13617,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_525__CLASS_NREP_ROUTPROC", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_525__CLASS_NREP_ROUTPROC.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_525__CLASS_NREP_ROUTPROC.obj_num = OBMAG_OBJECT; - cdat->dobj_525__CLASS_NREP_ROUTPROC.obj_hash = 831314622; + cdat->dobj_525__CLASS_NREP_ROUTPROC.obj_hash = 1062272849; cdat->dobj_525__CLASS_NREP_ROUTPROC.obj_len = 8; /*inistring dstr_526__CLASS_NREP_ROUTP*/ @@ -13653,7 +13653,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_531__NRPRO_NAME", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_531__NRPRO_NAME.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_531__NRPRO_NAME.obj_num = 2; - cdat->dobj_531__NRPRO_NAME.obj_hash = 638746582; + cdat->dobj_531__NRPRO_NAME.obj_hash = 799051122; cdat->dobj_531__NRPRO_NAME.obj_len = 4; /*inistring dstr_532__NRPRO_NAME*/ @@ -13681,7 +13681,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_535__NRPRO_ARGB", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_535__NRPRO_ARGB.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_535__NRPRO_ARGB.obj_num = 3; - cdat->dobj_535__NRPRO_ARGB.obj_hash = 326227880; + cdat->dobj_535__NRPRO_ARGB.obj_hash = 195134017; cdat->dobj_535__NRPRO_ARGB.obj_len = 4; /*inistring dstr_536__NRPRO_ARGB*/ @@ -13709,7 +13709,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_539__NRPRO_CLOSEDB", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_539__NRPRO_CLOSEDB.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_539__NRPRO_CLOSEDB.obj_num = 4; - cdat->dobj_539__NRPRO_CLOSEDB.obj_hash = 392758631; + cdat->dobj_539__NRPRO_CLOSEDB.obj_hash = 179840020; cdat->dobj_539__NRPRO_CLOSEDB.obj_len = 4; /*inistring dstr_540__NRPRO_CLOSEDB*/ @@ -13737,7 +13737,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_543__NRPRO_CONST", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_543__NRPRO_CONST.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_543__NRPRO_CONST.obj_num = 5; - cdat->dobj_543__NRPRO_CONST.obj_hash = 705321652; + cdat->dobj_543__NRPRO_CONST.obj_hash = 357360841; cdat->dobj_543__NRPRO_CONST.obj_len = 4; /*inistring dstr_544__NRPRO_CONST*/ @@ -13765,7 +13765,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_547__NRPRO_DATAROUT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_547__NRPRO_DATAROUT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_547__NRPRO_DATAROUT.obj_num = 6; - cdat->dobj_547__NRPRO_DATAROUT.obj_hash = 391932093; + cdat->dobj_547__NRPRO_DATAROUT.obj_hash = 721769188; cdat->dobj_547__NRPRO_DATAROUT.obj_len = 4; /*inistring dstr_548__NRPRO_DATAROUT*/ @@ -13793,7 +13793,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_551__NRPRO_DATACLOS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_551__NRPRO_DATACLOS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_551__NRPRO_DATACLOS.obj_num = 7; - cdat->dobj_551__NRPRO_DATACLOS.obj_hash = 165277979; + cdat->dobj_551__NRPRO_DATACLOS.obj_hash = 890230839; cdat->dobj_551__NRPRO_DATACLOS.obj_len = 4; /*inistring dstr_552__NRPRO_DATACLOS*/ @@ -13821,7 +13821,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_555__NRPRO_THUNKLIST", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_555__NRPRO_THUNKLIST.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_555__NRPRO_THUNKLIST.obj_num = 8; - cdat->dobj_555__NRPRO_THUNKLIST.obj_hash = 909287069; + cdat->dobj_555__NRPRO_THUNKLIST.obj_hash = 312323148; cdat->dobj_555__NRPRO_THUNKLIST.obj_len = 4; /*inistring dstr_556__NRPRO_THUNKLIST*/ @@ -13849,7 +13849,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_559__CLASS_NREP_LAMBDAROUTPROC", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_559__CLASS_NREP_LAMBDAROUTPROC.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_559__CLASS_NREP_LAMBDAROUTPROC.obj_num = OBMAG_OBJECT; - cdat->dobj_559__CLASS_NREP_LAMBDAROUTPROC.obj_hash = 953068399; + cdat->dobj_559__CLASS_NREP_LAMBDAROUTPROC.obj_hash = 301167454; cdat->dobj_559__CLASS_NREP_LAMBDAROUTPROC.obj_len = 8; /*inistring dstr_560__CLASS_NREP_LAMBD*/ @@ -13885,7 +13885,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_565__CLASS_NREP_DEFUNROUTPROC", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_565__CLASS_NREP_DEFUNROUTPROC.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_565__CLASS_NREP_DEFUNROUTPROC.obj_num = OBMAG_OBJECT; - cdat->dobj_565__CLASS_NREP_DEFUNROUTPROC.obj_hash = 609002269; + cdat->dobj_565__CLASS_NREP_DEFUNROUTPROC.obj_hash = 281804323; cdat->dobj_565__CLASS_NREP_DEFUNROUTPROC.obj_len = 8; /*inistring dstr_566__CLASS_NREP_DEFUN*/ @@ -13921,7 +13921,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_571__CLASS_NREP_PREDEF", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_571__CLASS_NREP_PREDEF.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_571__CLASS_NREP_PREDEF.obj_num = OBMAG_OBJECT; - cdat->dobj_571__CLASS_NREP_PREDEF.obj_hash = 853474350; + cdat->dobj_571__CLASS_NREP_PREDEF.obj_hash = 154074215; cdat->dobj_571__CLASS_NREP_PREDEF.obj_len = 8; /*inistring dstr_572__CLASS_NREP_PREDE*/ @@ -13957,7 +13957,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_577__NRPREDEF", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_577__NRPREDEF.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_577__NRPREDEF.obj_num = 1; - cdat->dobj_577__NRPREDEF.obj_hash = 863874060; + cdat->dobj_577__NRPREDEF.obj_hash = 584211577; cdat->dobj_577__NRPREDEF.obj_len = 4; /*inistring dstr_578__NRPREDEF*/ @@ -13985,7 +13985,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_581__CLASS_NREP_NIL", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_581__CLASS_NREP_NIL.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_581__CLASS_NREP_NIL.obj_num = OBMAG_OBJECT; - cdat->dobj_581__CLASS_NREP_NIL.obj_hash = 747906328; + cdat->dobj_581__CLASS_NREP_NIL.obj_hash = 1005196264; cdat->dobj_581__CLASS_NREP_NIL.obj_len = 8; /*inistring dstr_582__CLASS_NREP_NIL*/ @@ -14021,7 +14021,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_587__CLASS_NREP_QUASIDATA", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_587__CLASS_NREP_QUASIDATA.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_587__CLASS_NREP_QUASIDATA.obj_num = OBMAG_OBJECT; - cdat->dobj_587__CLASS_NREP_QUASIDATA.obj_hash = 951887955; + cdat->dobj_587__CLASS_NREP_QUASIDATA.obj_hash = 151735290; cdat->dobj_587__CLASS_NREP_QUASIDATA.obj_len = 8; /*inistring dstr_588__CLASS_NREP_QUASI*/ @@ -14057,7 +14057,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_593__CLASS_NREP_DATA", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_593__CLASS_NREP_DATA.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_593__CLASS_NREP_DATA.obj_num = OBMAG_OBJECT; - cdat->dobj_593__CLASS_NREP_DATA.obj_hash = 247343009; + cdat->dobj_593__CLASS_NREP_DATA.obj_hash = 409223825; cdat->dobj_593__CLASS_NREP_DATA.obj_len = 8; /*inistring dstr_594__CLASS_NREP_DATA*/ @@ -14093,7 +14093,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_599__NDATA_NAME", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_599__NDATA_NAME.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_599__NDATA_NAME.obj_num = 1; - cdat->dobj_599__NDATA_NAME.obj_hash = 282983448; + cdat->dobj_599__NDATA_NAME.obj_hash = 818423026; cdat->dobj_599__NDATA_NAME.obj_len = 4; /*inistring dstr_600__NDATA_NAME*/ @@ -14121,7 +14121,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_603__NDATA_DISCRX", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_603__NDATA_DISCRX.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_603__NDATA_DISCRX.obj_num = 2; - cdat->dobj_603__NDATA_DISCRX.obj_hash = 1018963186; + cdat->dobj_603__NDATA_DISCRX.obj_hash = 178392911; cdat->dobj_603__NDATA_DISCRX.obj_len = 4; /*inistring dstr_604__NDATA_DISCRX*/ @@ -14149,7 +14149,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_607__NDATA_RANK", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_607__NDATA_RANK.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_607__NDATA_RANK.obj_num = 3; - cdat->dobj_607__NDATA_RANK.obj_hash = 840203835; + cdat->dobj_607__NDATA_RANK.obj_hash = 423668225; cdat->dobj_607__NDATA_RANK.obj_len = 4; /*inistring dstr_608__NDATA_RANK*/ @@ -14177,7 +14177,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_611__NDATA_LOCBIND", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_611__NDATA_LOCBIND.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_611__NDATA_LOCBIND.obj_num = 4; - cdat->dobj_611__NDATA_LOCBIND.obj_hash = 412841033; + cdat->dobj_611__NDATA_LOCBIND.obj_hash = 717395579; cdat->dobj_611__NDATA_LOCBIND.obj_len = 4; /*inistring dstr_612__NDATA_LOCBIND*/ @@ -14205,7 +14205,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_615__CLASS_NREP_DATAINSTANCE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_615__CLASS_NREP_DATAINSTANCE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_615__CLASS_NREP_DATAINSTANCE.obj_num = OBMAG_OBJECT; - cdat->dobj_615__CLASS_NREP_DATAINSTANCE.obj_hash = 907063022; + cdat->dobj_615__CLASS_NREP_DATAINSTANCE.obj_hash = 174510555; cdat->dobj_615__CLASS_NREP_DATAINSTANCE.obj_len = 8; /*inistring dstr_616__CLASS_NREP_DATAI*/ @@ -14241,7 +14241,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_621__NINST_OBJNUM", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_621__NINST_OBJNUM.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_621__NINST_OBJNUM.obj_num = 5; - cdat->dobj_621__NINST_OBJNUM.obj_hash = 296015011; + cdat->dobj_621__NINST_OBJNUM.obj_hash = 469421248; cdat->dobj_621__NINST_OBJNUM.obj_len = 4; /*inistring dstr_622__NINST_OBJNUM*/ @@ -14269,7 +14269,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_625__NINST_PREDEF", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_625__NINST_PREDEF.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_625__NINST_PREDEF.obj_num = 6; - cdat->dobj_625__NINST_PREDEF.obj_hash = 564623574; + cdat->dobj_625__NINST_PREDEF.obj_hash = 144980925; cdat->dobj_625__NINST_PREDEF.obj_len = 4; /*inistring dstr_626__NINST_PREDEF*/ @@ -14297,7 +14297,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_629__NINST_HASH", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_629__NINST_HASH.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_629__NINST_HASH.obj_num = 7; - cdat->dobj_629__NINST_HASH.obj_hash = 87773736; + cdat->dobj_629__NINST_HASH.obj_hash = 252952666; cdat->dobj_629__NINST_HASH.obj_len = 4; /*inistring dstr_630__NINST_HASH*/ @@ -14325,7 +14325,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_633__NINST_SLOTS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_633__NINST_SLOTS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_633__NINST_SLOTS.obj_num = 8; - cdat->dobj_633__NINST_SLOTS.obj_hash = 351450549; + cdat->dobj_633__NINST_SLOTS.obj_hash = 378196901; cdat->dobj_633__NINST_SLOTS.obj_len = 4; /*inistring dstr_634__NINST_SLOTS*/ @@ -14353,7 +14353,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_637__CLASS_NREP_DATASTRING", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_637__CLASS_NREP_DATASTRING.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_637__CLASS_NREP_DATASTRING.obj_num = OBMAG_OBJECT; - cdat->dobj_637__CLASS_NREP_DATASTRING.obj_hash = 369746900; + cdat->dobj_637__CLASS_NREP_DATASTRING.obj_hash = 885659374; cdat->dobj_637__CLASS_NREP_DATASTRING.obj_len = 8; /*inistring dstr_638__CLASS_NREP_DATAS*/ @@ -14389,7 +14389,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_643__NSTR_STRING", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_643__NSTR_STRING.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_643__NSTR_STRING.obj_num = 5; - cdat->dobj_643__NSTR_STRING.obj_hash = 892000333; + cdat->dobj_643__NSTR_STRING.obj_hash = 297909121; cdat->dobj_643__NSTR_STRING.obj_len = 4; /*inistring dstr_644__NSTR_STRING*/ @@ -14417,7 +14417,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_647__CLASS_NREP_DATABOXEDINTEGER", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_647__CLASS_NREP_DATABOXEDINTEGER.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_647__CLASS_NREP_DATABOXEDINTEGER.obj_num = OBMAG_OBJECT; - cdat->dobj_647__CLASS_NREP_DATABOXEDINTEGER.obj_hash = 14866100; + cdat->dobj_647__CLASS_NREP_DATABOXEDINTEGER.obj_hash = 1033667619; cdat->dobj_647__CLASS_NREP_DATABOXEDINTEGER.obj_len = 8; /*inistring dstr_648__CLASS_NREP_DATAB*/ @@ -14453,7 +14453,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_653__NBOXINT_NUM", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_653__NBOXINT_NUM.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_653__NBOXINT_NUM.obj_num = 5; - cdat->dobj_653__NBOXINT_NUM.obj_hash = 234975538; + cdat->dobj_653__NBOXINT_NUM.obj_hash = 1042601979; cdat->dobj_653__NBOXINT_NUM.obj_len = 4; /*inistring dstr_654__NBOXINT_NUM*/ @@ -14481,7 +14481,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_657__CLASS_NREP_DATATUPLE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_657__CLASS_NREP_DATATUPLE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_657__CLASS_NREP_DATATUPLE.obj_num = OBMAG_OBJECT; - cdat->dobj_657__CLASS_NREP_DATATUPLE.obj_hash = 906597154; + cdat->dobj_657__CLASS_NREP_DATATUPLE.obj_hash = 732977420; cdat->dobj_657__CLASS_NREP_DATATUPLE.obj_len = 8; /*inistring dstr_658__CLASS_NREP_DATAT*/ @@ -14517,7 +14517,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_663__NTUP_COMP", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_663__NTUP_COMP.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_663__NTUP_COMP.obj_num = 5; - cdat->dobj_663__NTUP_COMP.obj_hash = 614566479; + cdat->dobj_663__NTUP_COMP.obj_hash = 588466224; cdat->dobj_663__NTUP_COMP.obj_len = 4; /*inistring dstr_664__NTUP_COMP*/ @@ -14545,7 +14545,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_667__CLASS_NREP_DATASYMBOL", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_667__CLASS_NREP_DATASYMBOL.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_667__CLASS_NREP_DATASYMBOL.obj_num = OBMAG_OBJECT; - cdat->dobj_667__CLASS_NREP_DATASYMBOL.obj_hash = 769663099; + cdat->dobj_667__CLASS_NREP_DATASYMBOL.obj_hash = 742903702; cdat->dobj_667__CLASS_NREP_DATASYMBOL.obj_len = 8; /*inistring dstr_668__CLASS_NREP_DATAS*/ @@ -14581,7 +14581,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_673__NDSY_NAMESTR", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_673__NDSY_NAMESTR.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_673__NDSY_NAMESTR.obj_num = 9; - cdat->dobj_673__NDSY_NAMESTR.obj_hash = 828432887; + cdat->dobj_673__NDSY_NAMESTR.obj_hash = 647030489; cdat->dobj_673__NDSY_NAMESTR.obj_len = 4; /*inistring dstr_674__NDSY_NAMESTR*/ @@ -14609,7 +14609,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_677__CLASS_NREP_DATAKEYWORD", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_677__CLASS_NREP_DATAKEYWORD.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_677__CLASS_NREP_DATAKEYWORD.obj_num = OBMAG_OBJECT; - cdat->dobj_677__CLASS_NREP_DATAKEYWORD.obj_hash = 277590200; + cdat->dobj_677__CLASS_NREP_DATAKEYWORD.obj_hash = 761175124; cdat->dobj_677__CLASS_NREP_DATAKEYWORD.obj_len = 8; /*inistring dstr_678__CLASS_NREP_DATAK*/ @@ -14645,7 +14645,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_683__CLASS_NREP_DATAROUTINE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_683__CLASS_NREP_DATAROUTINE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_683__CLASS_NREP_DATAROUTINE.obj_num = OBMAG_OBJECT; - cdat->dobj_683__CLASS_NREP_DATAROUTINE.obj_hash = 603198207; + cdat->dobj_683__CLASS_NREP_DATAROUTINE.obj_hash = 663723934; cdat->dobj_683__CLASS_NREP_DATAROUTINE.obj_len = 8; /*inistring dstr_684__CLASS_NREP_DATAR*/ @@ -14681,7 +14681,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_689__NDROU_PROC", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_689__NDROU_PROC.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_689__NDROU_PROC.obj_num = 5; - cdat->dobj_689__NDROU_PROC.obj_hash = 1017687356; + cdat->dobj_689__NDROU_PROC.obj_hash = 800215030; cdat->dobj_689__NDROU_PROC.obj_len = 4; /*inistring dstr_690__NDROU_PROC*/ @@ -14709,7 +14709,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_693__CLASS_NREP_DATACLOSURE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_693__CLASS_NREP_DATACLOSURE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_693__CLASS_NREP_DATACLOSURE.obj_num = OBMAG_OBJECT; - cdat->dobj_693__CLASS_NREP_DATACLOSURE.obj_hash = 178443957; + cdat->dobj_693__CLASS_NREP_DATACLOSURE.obj_hash = 42666140; cdat->dobj_693__CLASS_NREP_DATACLOSURE.obj_len = 8; /*inistring dstr_694__CLASS_NREP_DATAC*/ @@ -14745,7 +14745,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_699__NDCLO_PROC", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_699__NDCLO_PROC.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_699__NDCLO_PROC.obj_num = 5; - cdat->dobj_699__NDCLO_PROC.obj_hash = 46093151; + cdat->dobj_699__NDCLO_PROC.obj_hash = 473279512; cdat->dobj_699__NDCLO_PROC.obj_len = 4; /*inistring dstr_700__NDCLO_PROC*/ @@ -14773,7 +14773,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_703__NDCLO_CLOSV", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_703__NDCLO_CLOSV.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_703__NDCLO_CLOSV.obj_num = 6; - cdat->dobj_703__NDCLO_CLOSV.obj_hash = 584553009; + cdat->dobj_703__NDCLO_CLOSV.obj_hash = 542240730; cdat->dobj_703__NDCLO_CLOSV.obj_len = 4; /*inistring dstr_704__NDCLO_CLOSV*/ @@ -14801,7 +14801,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_707__CLASS_NREP_IMPORTEDVAL", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_707__CLASS_NREP_IMPORTEDVAL.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_707__CLASS_NREP_IMPORTEDVAL.obj_num = OBMAG_OBJECT; - cdat->dobj_707__CLASS_NREP_IMPORTEDVAL.obj_hash = 549492373; + cdat->dobj_707__CLASS_NREP_IMPORTEDVAL.obj_hash = 344878607; cdat->dobj_707__CLASS_NREP_IMPORTEDVAL.obj_len = 8; /*inistring dstr_708__CLASS_NREP_IMPOR*/ @@ -14837,7 +14837,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_713__NIMPORT_SYMB", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_713__NIMPORT_SYMB.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_713__NIMPORT_SYMB.obj_num = 1; - cdat->dobj_713__NIMPORT_SYMB.obj_hash = 463227354; + cdat->dobj_713__NIMPORT_SYMB.obj_hash = 291337349; cdat->dobj_713__NIMPORT_SYMB.obj_len = 4; /*inistring dstr_714__NIMPORT_SYMB*/ @@ -14865,7 +14865,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_717__NIMPORT_SYDATA", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_717__NIMPORT_SYDATA.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_717__NIMPORT_SYDATA.obj_num = 2; - cdat->dobj_717__NIMPORT_SYDATA.obj_hash = 142576551; + cdat->dobj_717__NIMPORT_SYDATA.obj_hash = 791392952; cdat->dobj_717__NIMPORT_SYDATA.obj_len = 4; /*inistring dstr_718__NIMPORT_SYDATA*/ @@ -14893,7 +14893,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_721__CLASS_NREP_SYMOCC", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_721__CLASS_NREP_SYMOCC.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_721__CLASS_NREP_SYMOCC.obj_num = OBMAG_OBJECT; - cdat->dobj_721__CLASS_NREP_SYMOCC.obj_hash = 19402079; + cdat->dobj_721__CLASS_NREP_SYMOCC.obj_hash = 117435062; cdat->dobj_721__CLASS_NREP_SYMOCC.obj_len = 8; /*inistring dstr_722__CLASS_NREP_SYMOC*/ @@ -14929,7 +14929,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_727__NOCC_SYMB", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_727__NOCC_SYMB.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_727__NOCC_SYMB.obj_num = 1; - cdat->dobj_727__NOCC_SYMB.obj_hash = 53767922; + cdat->dobj_727__NOCC_SYMB.obj_hash = 142789615; cdat->dobj_727__NOCC_SYMB.obj_len = 4; /*inistring dstr_728__NOCC_SYMB*/ @@ -14957,7 +14957,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_731__NOCC_CTYP", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_731__NOCC_CTYP.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_731__NOCC_CTYP.obj_num = 2; - cdat->dobj_731__NOCC_CTYP.obj_hash = 925791581; + cdat->dobj_731__NOCC_CTYP.obj_hash = 190845142; cdat->dobj_731__NOCC_CTYP.obj_len = 4; /*inistring dstr_732__NOCC_CTYP*/ @@ -14985,7 +14985,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_735__NOCC_BIND", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_735__NOCC_BIND.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_735__NOCC_BIND.obj_num = 3; - cdat->dobj_735__NOCC_BIND.obj_hash = 832191470; + cdat->dobj_735__NOCC_BIND.obj_hash = 48730086; cdat->dobj_735__NOCC_BIND.obj_len = 4; /*inistring dstr_736__NOCC_BIND*/ @@ -15013,7 +15013,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_739__CLASS_NREP_LOCSYMOCC", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_739__CLASS_NREP_LOCSYMOCC.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_739__CLASS_NREP_LOCSYMOCC.obj_num = OBMAG_OBJECT; - cdat->dobj_739__CLASS_NREP_LOCSYMOCC.obj_hash = 688479073; + cdat->dobj_739__CLASS_NREP_LOCSYMOCC.obj_hash = 499456077; cdat->dobj_739__CLASS_NREP_LOCSYMOCC.obj_len = 8; /*inistring dstr_740__CLASS_NREP_LOCSY*/ @@ -15049,7 +15049,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_745__CLASS_NREP_CLOSEDOCC", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_745__CLASS_NREP_CLOSEDOCC.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_745__CLASS_NREP_CLOSEDOCC.obj_num = OBMAG_OBJECT; - cdat->dobj_745__CLASS_NREP_CLOSEDOCC.obj_hash = 893526596; + cdat->dobj_745__CLASS_NREP_CLOSEDOCC.obj_hash = 493834899; cdat->dobj_745__CLASS_NREP_CLOSEDOCC.obj_len = 8; /*inistring dstr_746__CLASS_NREP_CLOSE*/ @@ -15085,7 +15085,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_751__NCLOC_PROCS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_751__NCLOC_PROCS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_751__NCLOC_PROCS.obj_num = 4; - cdat->dobj_751__NCLOC_PROCS.obj_hash = 552310278; + cdat->dobj_751__NCLOC_PROCS.obj_hash = 81885671; cdat->dobj_751__NCLOC_PROCS.obj_len = 4; /*inistring dstr_752__NCLOC_PROCS*/ @@ -15113,7 +15113,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_755__CLASS_NREP_CONSTOCC", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_755__CLASS_NREP_CONSTOCC.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_755__CLASS_NREP_CONSTOCC.obj_num = OBMAG_OBJECT; - cdat->dobj_755__CLASS_NREP_CONSTOCC.obj_hash = 979704258; + cdat->dobj_755__CLASS_NREP_CONSTOCC.obj_hash = 526246582; cdat->dobj_755__CLASS_NREP_CONSTOCC.obj_len = 8; /*inistring dstr_756__CLASS_NREP_CONST*/ @@ -15149,7 +15149,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_761__CLASS_NREP_QUASICONSTANT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_761__CLASS_NREP_QUASICONSTANT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_761__CLASS_NREP_QUASICONSTANT.obj_num = OBMAG_OBJECT; - cdat->dobj_761__CLASS_NREP_QUASICONSTANT.obj_hash = 694129805; + cdat->dobj_761__CLASS_NREP_QUASICONSTANT.obj_hash = 1010228705; cdat->dobj_761__CLASS_NREP_QUASICONSTANT.obj_len = 8; /*inistring dstr_762__CLASS_NREP_QUASI*/ @@ -15185,7 +15185,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_767__NCONST_SVAL", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_767__NCONST_SVAL.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_767__NCONST_SVAL.obj_num = 1; - cdat->dobj_767__NCONST_SVAL.obj_hash = 784885477; + cdat->dobj_767__NCONST_SVAL.obj_hash = 868004884; cdat->dobj_767__NCONST_SVAL.obj_len = 4; /*inistring dstr_768__NCONST_SVAL*/ @@ -15213,7 +15213,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_771__NCONST_PROC", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_771__NCONST_PROC.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_771__NCONST_PROC.obj_num = 2; - cdat->dobj_771__NCONST_PROC.obj_hash = 528460782; + cdat->dobj_771__NCONST_PROC.obj_hash = 203294572; cdat->dobj_771__NCONST_PROC.obj_len = 4; /*inistring dstr_772__NCONST_PROC*/ @@ -15241,7 +15241,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_775__NCONST_DATA", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_775__NCONST_DATA.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_775__NCONST_DATA.obj_num = 3; - cdat->dobj_775__NCONST_DATA.obj_hash = 475959891; + cdat->dobj_775__NCONST_DATA.obj_hash = 846421561; cdat->dobj_775__NCONST_DATA.obj_len = 4; /*inistring dstr_776__NCONST_DATA*/ @@ -15269,7 +15269,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_779__CLASS_NREP_CONSTANT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_779__CLASS_NREP_CONSTANT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_779__CLASS_NREP_CONSTANT.obj_num = OBMAG_OBJECT; - cdat->dobj_779__CLASS_NREP_CONSTANT.obj_hash = 40822564; + cdat->dobj_779__CLASS_NREP_CONSTANT.obj_hash = 296286515; cdat->dobj_779__CLASS_NREP_CONSTANT.obj_len = 8; /*inistring dstr_780__CLASS_NREP_CONST*/ @@ -15305,7 +15305,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_785__CLASS_NREP_QUASICONST_CURRENT_MODULE_ENVIRONMENT_CONTAINER", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_785__CLASS_NREP_QUASICONST_CURRENT_MODULE_ENVIRONMENT_CONTAINER.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_785__CLASS_NREP_QUASICONST_CURRENT_MODULE_ENVIRONMENT_CONTAINER.obj_num = OBMAG_OBJECT; - cdat->dobj_785__CLASS_NREP_QUASICONST_CURRENT_MODULE_ENVIRONMENT_CONTAINER.obj_hash = 193114970; + cdat->dobj_785__CLASS_NREP_QUASICONST_CURRENT_MODULE_ENVIRONMENT_CONTAINER.obj_hash = 346262372; cdat->dobj_785__CLASS_NREP_QUASICONST_CURRENT_MODULE_ENVIRONMENT_CONTAINER.obj_len = 8; /*inistring dstr_786__CLASS_NREP_QUASI*/ @@ -15341,7 +15341,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_791__NQCMEC_COMMENT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_791__NQCMEC_COMMENT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_791__NQCMEC_COMMENT.obj_num = 4; - cdat->dobj_791__NQCMEC_COMMENT.obj_hash = 928364709; + cdat->dobj_791__NQCMEC_COMMENT.obj_hash = 560568869; cdat->dobj_791__NQCMEC_COMMENT.obj_len = 4; /*inistring dstr_792__NQCMEC_COMMENT*/ @@ -15369,7 +15369,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_795__CLASS_NREP_QUASIDATA_CURRENT_MODULE_ENVIRONMENT_CONTAINER", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_795__CLASS_NREP_QUASIDATA_CURRENT_MODULE_ENVIRONMENT_CONTAINER.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_795__CLASS_NREP_QUASIDATA_CURRENT_MODULE_ENVIRONMENT_CONTAINER.obj_num = OBMAG_OBJECT; - cdat->dobj_795__CLASS_NREP_QUASIDATA_CURRENT_MODULE_ENVIRONMENT_CONTAINER.obj_hash = 701969776; + cdat->dobj_795__CLASS_NREP_QUASIDATA_CURRENT_MODULE_ENVIRONMENT_CONTAINER.obj_hash = 675218341; cdat->dobj_795__CLASS_NREP_QUASIDATA_CURRENT_MODULE_ENVIRONMENT_CONTAINER.obj_len = 8; /*inistring dstr_796__CLASS_NREP_QUASI*/ @@ -15405,7 +15405,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_801__CLASS_NREP_QUASICONST_PARENT_MODULE_ENVIRONMENT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_801__CLASS_NREP_QUASICONST_PARENT_MODULE_ENVIRONMENT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_801__CLASS_NREP_QUASICONST_PARENT_MODULE_ENVIRONMENT.obj_num = OBMAG_OBJECT; - cdat->dobj_801__CLASS_NREP_QUASICONST_PARENT_MODULE_ENVIRONMENT.obj_hash = 949042092; + cdat->dobj_801__CLASS_NREP_QUASICONST_PARENT_MODULE_ENVIRONMENT.obj_hash = 530004688; cdat->dobj_801__CLASS_NREP_QUASICONST_PARENT_MODULE_ENVIRONMENT.obj_len = 8; /*inistring dstr_802__CLASS_NREP_QUASI*/ @@ -15441,7 +15441,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_807__CLASS_NREP_QUASIDATA_PARENT_MODULE_ENVIRONMENT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_807__CLASS_NREP_QUASIDATA_PARENT_MODULE_ENVIRONMENT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_807__CLASS_NREP_QUASIDATA_PARENT_MODULE_ENVIRONMENT.obj_num = OBMAG_OBJECT; - cdat->dobj_807__CLASS_NREP_QUASIDATA_PARENT_MODULE_ENVIRONMENT.obj_hash = 937702339; + cdat->dobj_807__CLASS_NREP_QUASIDATA_PARENT_MODULE_ENVIRONMENT.obj_hash = 616031437; cdat->dobj_807__CLASS_NREP_QUASIDATA_PARENT_MODULE_ENVIRONMENT.obj_len = 8; /*inistring dstr_808__CLASS_NREP_QUASI*/ @@ -15477,7 +15477,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_813__CLASS_NREP_FIELDACC", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_813__CLASS_NREP_FIELDACC.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_813__CLASS_NREP_FIELDACC.obj_num = OBMAG_OBJECT; - cdat->dobj_813__CLASS_NREP_FIELDACC.obj_hash = 574354588; + cdat->dobj_813__CLASS_NREP_FIELDACC.obj_hash = 429807074; cdat->dobj_813__CLASS_NREP_FIELDACC.obj_len = 8; /*inistring dstr_814__CLASS_NREP_FIELD*/ @@ -15513,7 +15513,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_819__NACCF_OBJ", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_819__NACCF_OBJ.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_819__NACCF_OBJ.obj_num = 1; - cdat->dobj_819__NACCF_OBJ.obj_hash = 947877436; + cdat->dobj_819__NACCF_OBJ.obj_hash = 683493866; cdat->dobj_819__NACCF_OBJ.obj_len = 4; /*inistring dstr_820__NACCF_OBJ*/ @@ -15541,7 +15541,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_823__NACCF_FLD", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_823__NACCF_FLD.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_823__NACCF_FLD.obj_num = 2; - cdat->dobj_823__NACCF_FLD.obj_hash = 878858820; + cdat->dobj_823__NACCF_FLD.obj_hash = 208285188; cdat->dobj_823__NACCF_FLD.obj_len = 4; /*inistring dstr_824__NACCF_FLD*/ @@ -15569,7 +15569,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_827__CLASS_NREP_MULTACC", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_827__CLASS_NREP_MULTACC.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_827__CLASS_NREP_MULTACC.obj_num = OBMAG_OBJECT; - cdat->dobj_827__CLASS_NREP_MULTACC.obj_hash = 158413327; + cdat->dobj_827__CLASS_NREP_MULTACC.obj_hash = 144775344; cdat->dobj_827__CLASS_NREP_MULTACC.obj_len = 8; /*inistring dstr_828__CLASS_NREP_MULTA*/ @@ -15605,7 +15605,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_833__NACCM_MUL", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_833__NACCM_MUL.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_833__NACCM_MUL.obj_num = 1; - cdat->dobj_833__NACCM_MUL.obj_hash = 320979273; + cdat->dobj_833__NACCM_MUL.obj_hash = 910648995; cdat->dobj_833__NACCM_MUL.obj_len = 4; /*inistring dstr_834__NACCM_MUL*/ @@ -15633,7 +15633,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_837__NACCM_IX", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_837__NACCM_IX.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_837__NACCM_IX.obj_num = 2; - cdat->dobj_837__NACCM_IX.obj_hash = 78153611; + cdat->dobj_837__NACCM_IX.obj_hash = 398025249; cdat->dobj_837__NACCM_IX.obj_len = 4; /*inistring dstr_838__NACCM_IX*/ @@ -15661,7 +15661,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_841__CLASS_NREP_STORE_PREDEFINED", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_841__CLASS_NREP_STORE_PREDEFINED.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_841__CLASS_NREP_STORE_PREDEFINED.obj_num = OBMAG_OBJECT; - cdat->dobj_841__CLASS_NREP_STORE_PREDEFINED.obj_hash = 567344984; + cdat->dobj_841__CLASS_NREP_STORE_PREDEFINED.obj_hash = 546776268; cdat->dobj_841__CLASS_NREP_STORE_PREDEFINED.obj_len = 8; /*inistring dstr_842__CLASS_NREP_STORE*/ @@ -15697,7 +15697,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_847__NSTPD_PREDEF", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_847__NSTPD_PREDEF.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_847__NSTPD_PREDEF.obj_num = 1; - cdat->dobj_847__NSTPD_PREDEF.obj_hash = 835513369; + cdat->dobj_847__NSTPD_PREDEF.obj_hash = 354331302; cdat->dobj_847__NSTPD_PREDEF.obj_len = 4; /*inistring dstr_848__NSTPD_PREDEF*/ @@ -15725,7 +15725,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_851__NSTPD_VALUE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_851__NSTPD_VALUE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_851__NSTPD_VALUE.obj_num = 2; - cdat->dobj_851__NSTPD_VALUE.obj_hash = 537490456; + cdat->dobj_851__NSTPD_VALUE.obj_hash = 369510633; cdat->dobj_851__NSTPD_VALUE.obj_len = 4; /*inistring dstr_852__NSTPD_VALUE*/ @@ -15753,7 +15753,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_855__CLASS_NREP_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_855__CLASS_NREP_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_855__CLASS_NREP_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER.obj_num = OBMAG_OBJECT; - cdat->dobj_855__CLASS_NREP_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER.obj_hash = 47581180; + cdat->dobj_855__CLASS_NREP_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER.obj_hash = 118602580; cdat->dobj_855__CLASS_NREP_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER.obj_len = 8; /*inistring dstr_856__CLASS_NREP_UPDAT*/ @@ -15789,7 +15789,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_861__NUCMEB_EXPR", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_861__NUCMEB_EXPR.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_861__NUCMEB_EXPR.obj_num = 1; - cdat->dobj_861__NUCMEB_EXPR.obj_hash = 847692687; + cdat->dobj_861__NUCMEB_EXPR.obj_hash = 122116072; cdat->dobj_861__NUCMEB_EXPR.obj_len = 4; /*inistring dstr_862__NUCMEB_EXPR*/ @@ -15817,7 +15817,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_865__NCUMEB_COMMENT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_865__NCUMEB_COMMENT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_865__NCUMEB_COMMENT.obj_num = 2; - cdat->dobj_865__NCUMEB_COMMENT.obj_hash = 175273192; + cdat->dobj_865__NCUMEB_COMMENT.obj_hash = 91061076; cdat->dobj_865__NCUMEB_COMMENT.obj_len = 4; /*inistring dstr_866__NCUMEB_COMMENT*/ @@ -15844,7 +15844,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_869__HAS_EXTRA_WARNINGS", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_869__HAS_EXTRA_WARNINGS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->object_magic == OBMAG_OBJECT); cdat->dobj_869__HAS_EXTRA_WARNINGS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_869__HAS_EXTRA_WARNINGS.obj_hash = 765305193; + cdat->dobj_869__HAS_EXTRA_WARNINGS.obj_hash = 914487746; cdat->dobj_869__HAS_EXTRA_WARNINGS.obj_len = 5; /*inimult dtup_870__HAS_EXTRA_WARNINGS*/ @@ -17000,7 +17000,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1048__LAST_GLOBPREDEF_INDEX", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1048__LAST_GLOBPREDEF_INDEX", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1048__LAST_GLOBPREDEF_INDEX.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_1048__LAST_GLOBPREDEF_INDEX.obj_hash = 78651821; + cdat->dobj_1048__LAST_GLOBPREDEF_INDEX.obj_hash = 253796288; cdat->dobj_1048__LAST_GLOBPREDEF_INDEX.obj_len = 5; /*inimult dtup_1049__LAST_GLOBPREDEF_INDEX*/ @@ -17078,7 +17078,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1061__NORMAL_EXP", melt_magic_discr (/*_.CLASS_SELECTOR__V16*/ meltfptr[15]) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1061__NORMAL_EXP", ((meltobject_ptr_t) (/*_.CLASS_SELECTOR__V16*/ meltfptr[15]))->object_magic == OBMAG_OBJECT); cdat->dobj_1061__NORMAL_EXP.obj_class = (meltobject_ptr_t)(/*_.CLASS_SELECTOR__V16*/ meltfptr[15]); - cdat->dobj_1061__NORMAL_EXP.obj_hash = 84612439; + cdat->dobj_1061__NORMAL_EXP.obj_hash = 115235453; cdat->dobj_1061__NORMAL_EXP.obj_len = 4; /*inistring dstr_1062__NORMAL_EXP*/ @@ -17180,7 +17180,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1077__GET_CTYPE", melt_magic_discr (/*_.CLASS_SELECTOR__V16*/ meltfptr[15]) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1077__GET_CTYPE", ((meltobject_ptr_t) (/*_.CLASS_SELECTOR__V16*/ meltfptr[15]))->object_magic == OBMAG_OBJECT); cdat->dobj_1077__GET_CTYPE.obj_class = (meltobject_ptr_t)(/*_.CLASS_SELECTOR__V16*/ meltfptr[15]); - cdat->dobj_1077__GET_CTYPE.obj_hash = 881689887; + cdat->dobj_1077__GET_CTYPE.obj_hash = 302258017; cdat->dobj_1077__GET_CTYPE.obj_len = 4; /*inistring dstr_1078__GET_CTYPE*/ @@ -17207,7 +17207,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1081__COMPILE_OBJ", melt_magic_discr (/*_.CLASS_SELECTOR__V16*/ meltfptr[15]) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1081__COMPILE_OBJ", ((meltobject_ptr_t) (/*_.CLASS_SELECTOR__V16*/ meltfptr[15]))->object_magic == OBMAG_OBJECT); cdat->dobj_1081__COMPILE_OBJ.obj_class = (meltobject_ptr_t)(/*_.CLASS_SELECTOR__V16*/ meltfptr[15]); - cdat->dobj_1081__COMPILE_OBJ.obj_hash = 346324123; + cdat->dobj_1081__COMPILE_OBJ.obj_hash = 1036947287; cdat->dobj_1081__COMPILE_OBJ.obj_len = 4; /*inistring dstr_1082__COMPILE_OBJ*/ @@ -17444,7 +17444,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1118", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1118.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1118.obj_num = 0; - cdat->dobj_1118.obj_hash = 254416420; + cdat->dobj_1118.obj_hash = 482972372; cdat->dobj_1118.obj_len = 2; /*iniobj dsym_1119__ENV*/ @@ -17467,7 +17467,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1121", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1121.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1121.obj_num = 1; - cdat->dobj_1121.obj_hash = 574458249; + cdat->dobj_1121.obj_hash = 962778172; cdat->dobj_1121.obj_len = 2; /*iniobj dsym_1122__NCX*/ @@ -17490,7 +17490,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1124", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1124.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1124.obj_num = 2; - cdat->dobj_1124.obj_hash = 1052197046; + cdat->dobj_1124.obj_hash = 138541599; cdat->dobj_1124.obj_len = 2; /*iniobj dsym_1125__PROCS*/ @@ -17513,7 +17513,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1127", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1127.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1127.obj_num = 3; - cdat->dobj_1127.obj_hash = 383911082; + cdat->dobj_1127.obj_hash = 965445908; cdat->dobj_1127.obj_len = 2; /*iniobj dsym_1128__PSLOC*/ @@ -17536,7 +17536,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1130", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1130.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1130.obj_num = 4; - cdat->dobj_1130.obj_hash = 285571384; + cdat->dobj_1130.obj_hash = 901219371; cdat->dobj_1130.obj_len = 2; /*inimult dtup_1131__NORMALIZE_BINDING*/ @@ -17549,7 +17549,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1132__NORMALIZE_BINDING", melt_magic_discr (/*_.CLASS_SELECTOR__V16*/ meltfptr[15]) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1132__NORMALIZE_BINDING", ((meltobject_ptr_t) (/*_.CLASS_SELECTOR__V16*/ meltfptr[15]))->object_magic == OBMAG_OBJECT); cdat->dobj_1132__NORMALIZE_BINDING.obj_class = (meltobject_ptr_t)(/*_.CLASS_SELECTOR__V16*/ meltfptr[15]); - cdat->dobj_1132__NORMALIZE_BINDING.obj_hash = 585981055; + cdat->dobj_1132__NORMALIZE_BINDING.obj_hash = 538810485; cdat->dobj_1132__NORMALIZE_BINDING.obj_len = 4; /*inistring dstr_1133__NORMALIZE_BINDIN*/ @@ -19224,7 +19224,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1392", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1392.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1392.obj_num = 0; - cdat->dobj_1392.obj_hash = 1003062529; + cdat->dobj_1392.obj_hash = 657363293; cdat->dobj_1392.obj_len = 2; /*iniobj dsym_1393__SYMB*/ @@ -19247,7 +19247,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1395", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1395.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1395.obj_num = 1; - cdat->dobj_1395.obj_hash = 7996139; + cdat->dobj_1395.obj_hash = 884288116; cdat->dobj_1395.obj_len = 2; /*^iniobj*/ @@ -19257,7 +19257,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1396", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1396.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1396.obj_num = 2; - cdat->dobj_1396.obj_hash = 188806419; + cdat->dobj_1396.obj_hash = 775468626; cdat->dobj_1396.obj_len = 2; /*iniobj dsym_1397__SLOC*/ @@ -19280,7 +19280,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1399", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1399.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1399.obj_num = 3; - cdat->dobj_1399.obj_hash = 174194017; + cdat->dobj_1399.obj_hash = 606835970; cdat->dobj_1399.obj_len = 2; /*inimult dtup_1400__PREPARE_CONSTRUCTOR_BINDING*/ @@ -19293,7 +19293,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1401__PREPARE_CONSTRUCTOR_BINDING", melt_magic_discr (/*_.CLASS_SELECTOR__V16*/ meltfptr[15]) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1401__PREPARE_CONSTRUCTOR_BINDING", ((meltobject_ptr_t) (/*_.CLASS_SELECTOR__V16*/ meltfptr[15]))->object_magic == OBMAG_OBJECT); cdat->dobj_1401__PREPARE_CONSTRUCTOR_BINDING.obj_class = (meltobject_ptr_t)(/*_.CLASS_SELECTOR__V16*/ meltfptr[15]); - cdat->dobj_1401__PREPARE_CONSTRUCTOR_BINDING.obj_hash = 399432662; + cdat->dobj_1401__PREPARE_CONSTRUCTOR_BINDING.obj_hash = 83316517; cdat->dobj_1401__PREPARE_CONSTRUCTOR_BINDING.obj_len = 4; /*inistring dstr_1402__PREPARE_CONSTRUC*/ @@ -19346,7 +19346,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1409", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1409.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1409.obj_num = 0; - cdat->dobj_1409.obj_hash = 734772887; + cdat->dobj_1409.obj_hash = 603458956; cdat->dobj_1409.obj_len = 2; /*^iniobj*/ @@ -19356,7 +19356,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1410", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1410.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1410.obj_num = 1; - cdat->dobj_1410.obj_hash = 164723152; + cdat->dobj_1410.obj_hash = 290835735; cdat->dobj_1410.obj_len = 2; /*iniobj dsym_1411__CBIND*/ @@ -19379,7 +19379,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1413", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1413.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1413.obj_num = 2; - cdat->dobj_1413.obj_hash = 621230721; + cdat->dobj_1413.obj_hash = 38043945; cdat->dobj_1413.obj_len = 2; /*^iniobj*/ @@ -19389,7 +19389,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1414", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1414.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1414.obj_num = 3; - cdat->dobj_1414.obj_hash = 45339505; + cdat->dobj_1414.obj_hash = 275756370; cdat->dobj_1414.obj_len = 2; /*^iniobj*/ @@ -19399,7 +19399,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1415", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1415.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1415.obj_num = 4; - cdat->dobj_1415.obj_hash = 741769326; + cdat->dobj_1415.obj_hash = 791847678; cdat->dobj_1415.obj_len = 2; /*^iniobj*/ @@ -19409,7 +19409,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1416", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_1416.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1416.obj_num = 5; - cdat->dobj_1416.obj_hash = 575598002; + cdat->dobj_1416.obj_hash = 312554975; cdat->dobj_1416.obj_len = 2; /*inimult dtup_1417__NORMAL_LETREC_CONSTRUCTIVE*/ @@ -19422,7 +19422,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1418__NORMAL_LETREC_CONSTRUCTIVE", melt_magic_discr (/*_.CLASS_SELECTOR__V16*/ meltfptr[15]) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1418__NORMAL_LETREC_CONSTRUCTIVE", ((meltobject_ptr_t) (/*_.CLASS_SELECTOR__V16*/ meltfptr[15]))->object_magic == OBMAG_OBJECT); cdat->dobj_1418__NORMAL_LETREC_CONSTRUCTIVE.obj_class = (meltobject_ptr_t)(/*_.CLASS_SELECTOR__V16*/ meltfptr[15]); - cdat->dobj_1418__NORMAL_LETREC_CONSTRUCTIVE.obj_hash = 785843288; + cdat->dobj_1418__NORMAL_LETREC_CONSTRUCTIVE.obj_hash = 559323376; cdat->dobj_1418__NORMAL_LETREC_CONSTRUCTIVE.obj_len = 4; /*inistring dstr_1419__NORMAL_LETREC_CO*/ diff --git a/gcc/melt/generated/warmelt-normatch.0+01.c b/gcc/melt/generated/warmelt-normatch.0+01.c index 148f240834f..6db984dfbb4 100644 --- a/gcc/melt/generated/warmelt-normatch.0+01.c +++ b/gcc/melt/generated/warmelt-normatch.0+01.c @@ -259,187 +259,187 @@ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_46_warmelt_normatch_NORMBIND_MATCHBIN -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_47_warmelt_normatch_SCANSUBPAT_ANYRECV(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_47_warmelt_normatch_MAKE_MATCH_FLAG(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_48_warmelt_normatch_SCANSUBPAT_NOOP(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_48_warmelt_normatch_SCANSUBPAT_ANYRECV(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_49_warmelt_normatch_SCANSUBPAT_OR(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_49_warmelt_normatch_SCANSUBPAT_NOOP(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_50_warmelt_normatch_SCANSUBPAT_AND(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_50_warmelt_normatch_SCANSUBPAT_OR(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_51_warmelt_normatch_SCANSUBPAT_CONSTRUCT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_51_warmelt_normatch_SCANSUBPAT_AND(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_52_warmelt_normatch_SCANSUBPAT_OBJECT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_52_warmelt_normatch_SCANSUBPAT_CONSTRUCT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_53_warmelt_normatch_SCANSUBPAT_COMPOSITE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_53_warmelt_normatch_SCANSUBPAT_OBJECT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_54_warmelt_normatch_FILL_MATCHCASE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_54_warmelt_normatch_SCANSUBPAT_COMPOSITE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_55_warmelt_normatch_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_55_warmelt_normatch_FILL_MATCHCASE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_56_warmelt_normatch_START_STEP(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_56_warmelt_normatch_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_57_warmelt_normatch_PUTTHEN_MATCHTHEN(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_57_warmelt_normatch_START_STEP(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_58_warmelt_normatch_PUTTHEN_MATCHGROUP(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_58_warmelt_normatch_PUTTHEN_MATCHTHEN(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_59_warmelt_normatch_PUTELSE_MATCHTEST(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_59_warmelt_normatch_PUTTHEN_MATCHGROUP(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_60_warmelt_normatch_PUTELSE_MATCHGROUP(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_60_warmelt_normatch_PUTELSE_MATCHSTEPTHEN(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_61_warmelt_normatch_SCANSTEP_TESTINS(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_61_warmelt_normatch_PUTELSE_MATCHTEST(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_62_warmelt_normatch_SCANSTEP_TESTMATCHER(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_62_warmelt_normatch_PUTELSE_MATCHGROUP(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_63_warmelt_normatch_TRANSLPAT_ANYRECV(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_63_warmelt_normatch_SCANSTEP_TESTINS(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_64_warmelt_normatch_TRANSLPAT_JOKERPAT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_64_warmelt_normatch_SCANSTEP_TESTMATCHER(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_65_warmelt_normatch_TRANSLPAT_INSPAT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_65_warmelt_normatch_TRANSLPAT_ANYRECV(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_66_warmelt_normatch_TRANSLPAT_VARPAT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_66_warmelt_normatch_TRANSLPAT_JOKERPAT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_67_warmelt_normatch_TRANSLPAT_ANDPAT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_67_warmelt_normatch_TRANSLPAT_INSPAT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_68_warmelt_normatch_TRANSLPAT_ORPAT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_68_warmelt_normatch_TRANSLPAT_VARPAT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_69_warmelt_normatch_TRANSLPAT_PATMAT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_69_warmelt_normatch_TRANSLPAT_ANDPAT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_70_warmelt_normatch_MGALTSTEP_STEPSETVAR(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_70_warmelt_normatch_TRANSLPAT_ORPAT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_71_warmelt_normatch_MGALTSTEP_STEPTESTVAR(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_71_warmelt_normatch_TRANSLPAT_PATMAT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_72_warmelt_normatch_MGALTSTEP_STEPTESTINST(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_72_warmelt_normatch_MGALTSTEP_STEPTESTVAR(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_73_warmelt_normatch_MGALTSTEP_STEPTESTGROUP(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_73_warmelt_normatch_MGALTSTEP_STEPTESTINST(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_74_warmelt_normatch_MGALTSTEP_STEPTESTMATCHER(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_74_warmelt_normatch_MGALTSTEP_STEPTESTGROUP(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_75_warmelt_normatch_MGALTSTEP_STEPSUCCESS(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_75_warmelt_normatch_MGALTSTEP_STEPTESTMATCHER(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_76_warmelt_normatch_TRANSLATE_MATCHCASE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_76_warmelt_normatch_MGALTSTEP_STEPSUCCESS(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_77_warmelt_normatch_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_77_warmelt_normatch_MGALTSTEP_STEPFLAGSET(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_78_warmelt_normatch_NORMEXP_ALTMATCH(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_78_warmelt_normatch_MGALTSTEP_STEPFLAGOPER(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_79_warmelt_normatch_ALTERNATE_MATCH_OPTSET(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_79_warmelt_normatch_TRANSLATE_MATCHCASE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_80_warmelt_normatch_MG_ALTDRAW_GRAPHVIZ(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_80_warmelt_normatch_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_81_warmelt_normatch_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_81_warmelt_normatch_NORMEXP_ALTMATCH(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_82_warmelt_normatch_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_82_warmelt_normatch_ALTERNATE_MATCH_OPTSET(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_83_warmelt_normatch_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_83_warmelt_normatch_MG_ALTDRAW_GRAPHVIZ(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); @@ -447,6 +447,21 @@ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_83_warmelt_normatch_LAMBDA_(meltclosu melt_ptr_t MELT_MODULE_VISIBILITY meltrout_84_warmelt_normatch_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); + + +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_85_warmelt_normatch_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); + + + + +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_86_warmelt_normatch_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); + + + + +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_87_warmelt_normatch_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); + + void* start_module_melt(void*); void mark_module_melt(void*); void* initial_frame_melt; @@ -461,6 +476,7 @@ void MELT_MODULE_VISIBILITY warmelt_normatch_initialmeltchunk_5 (struct frame_st void MELT_MODULE_VISIBILITY warmelt_normatch_initialmeltchunk_6 (struct frame_start_module_melt_st*, char*); void MELT_MODULE_VISIBILITY warmelt_normatch_initialmeltchunk_7 (struct frame_start_module_melt_st*, char*); void MELT_MODULE_VISIBILITY warmelt_normatch_initialmeltchunk_8 (struct frame_start_module_melt_st*, char*); +void MELT_MODULE_VISIBILITY warmelt_normatch_initialmeltchunk_9 (struct frame_start_module_melt_st*, char*); /**** warmelt-normatch.0+01.c implementations ****/ @@ -2930,7 +2946,11 @@ lab_endgetargs:; (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ meltfrout->tabval[4]))));; MELT_LOCATION("warmelt-normatch.melt:1254:/ apply"); /*apply*/{ - /*_.LIST_TO_MULTIPLE__V63*/ meltfptr[62] = melt_apply ((meltclosure_ptr_t)((/*!LIST_TO_MULTIPLE*/ meltfrout->tabval[18])), (melt_ptr_t)(/*_.CLEARLOCLIST__V55*/ meltfptr[54]), (""), (union meltparam_un*)0, "", (union meltparam_un*)0); + union meltparam_un argtab[1]; + memset(&argtab, 0, sizeof(argtab)); + /*^apply.arg*/ + argtab[0].bp_aptr = (melt_ptr_t*) &(/*!DISCR_MULTIPLE*/ meltfrout->tabval[19]); + /*_.LIST_TO_MULTIPLE__V63*/ meltfptr[62] = melt_apply ((meltclosure_ptr_t)((/*!LIST_TO_MULTIPLE*/ meltfrout->tabval[18])), (melt_ptr_t)(/*_.CLEARLOCLIST__V55*/ meltfptr[54]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-normatch.melt:1248:/ quasiblock"); @@ -3024,7 +3044,7 @@ lab_endgetargs:; } ; MELT_LOCATION("warmelt-normatch.melt:1263:/ cond"); - /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.PREVTEST__V68*/ meltfptr[66]), (melt_ptr_t)((/*!CLASS_NREP*/ meltfrout->tabval[19])))) /*then*/ { + /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.PREVTEST__V68*/ meltfptr[66]), (melt_ptr_t)((/*!CLASS_NREP*/ meltfrout->tabval[20])))) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=0; @@ -3190,7 +3210,7 @@ lab_endgetargs:; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].bp_aptr = (melt_ptr_t*) &/*_.PREVTEST__V68*/ meltfptr[66]; - /*_.SET_NEW_TESTER_ALL_ELSES__V78*/ meltfptr[76] = melt_apply ((meltclosure_ptr_t)((/*!SET_NEW_TESTER_ALL_ELSES*/ meltfrout->tabval[20])), (melt_ptr_t)(/*_.NORCLEAR__V64*/ meltfptr[63]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.SET_NEW_TESTER_ALL_ELSES__V78*/ meltfptr[76] = melt_apply ((meltclosure_ptr_t)((/*!SET_NEW_TESTER_ALL_ELSES*/ meltfrout->tabval[21])), (melt_ptr_t)(/*_.NORCLEAR__V64*/ meltfptr[63]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-normatch.melt:1271:/ cond"); @@ -3258,7 +3278,7 @@ lab_endgetargs:; /*^newclosure*/ /*newclosure*/ /*_.LAMBDA___V83*/ meltfptr[82] = - meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_24*/ meltfrout->tabval[24])), (3)); + meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_25*/ meltfrout->tabval[25])), (3)); ; /*^putclosedv*/ /*putclosv*/ @@ -3289,7 +3309,7 @@ lab_endgetargs:; argtab[1].bp_aptr = (melt_ptr_t*) &/*_.SUBDISJHANDLER__V82*/ meltfptr[81]; /*^ojbmsend.arg*/ argtab[2].bp_aptr = (melt_ptr_t*) &/*_.PCN__V5*/ meltfptr[4]; - /*_.NORMAL_PATTERN__V84*/ meltfptr[83] = meltgc_send((melt_ptr_t)(/*_.CURDISJ__V53*/ meltfptr[51]), (melt_ptr_t)((/*!NORMAL_PATTERN*/ meltfrout->tabval[25])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.NORMAL_PATTERN__V84*/ meltfptr[83] = meltgc_send((melt_ptr_t)(/*_.CURDISJ__V53*/ meltfptr[51]), (melt_ptr_t)((/*!NORMAL_PATTERN*/ meltfrout->tabval[26])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -3344,7 +3364,7 @@ lab_endgetargs:; /*^rawallocobj*/ /*rawallocobj*/ { melt_ptr_t newobj = 0; - melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NORMTESTER_OR_TRANSMIT*/ meltfrout->tabval[26])), (9), "CLASS_NORMTESTER_OR_TRANSMIT");/*_.INST__V91*/ meltfptr[90] = + melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NORMTESTER_OR_TRANSMIT*/ meltfrout->tabval[27])), (9), "CLASS_NORMTESTER_OR_TRANSMIT");/*_.INST__V91*/ meltfptr[90] = newobj; }; ; /*^putslot*/ @@ -3502,7 +3522,7 @@ lab_endgetargs:; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].bp_aptr = (melt_ptr_t*) &/*_.PREVCONT__V33*/ meltfptr[32]; - /*_.SET_NEW_TESTER_LAST_THEN__V98*/ meltfptr[96] = melt_apply ((meltclosure_ptr_t)((/*!SET_NEW_TESTER_LAST_THEN*/ meltfrout->tabval[27])), (melt_ptr_t)(/*_.NORTRANSM__V90*/ meltfptr[89]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.SET_NEW_TESTER_LAST_THEN__V98*/ meltfptr[96] = melt_apply ((meltclosure_ptr_t)((/*!SET_NEW_TESTER_LAST_THEN*/ meltfrout->tabval[28])), (melt_ptr_t)(/*_.NORTRANSM__V90*/ meltfptr[89]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_#NULL__L28*/ meltfnum[15] = @@ -3716,7 +3736,7 @@ lab_endgetargs:; /*^newclosure*/ /*newclosure*/ /*_.LAMBDA___V107*/ meltfptr[79] = - meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_31*/ meltfrout->tabval[31])), (0)); + meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_32*/ meltfrout->tabval[32])), (0)); ; /*_.LAMBDA___V106*/ meltfptr[96] = /*_.LAMBDA___V107*/ meltfptr[79];; MELT_LOCATION("warmelt-normatch.melt:1330:/ apply"); @@ -3766,7 +3786,11 @@ lab_endgetargs:; ; MELT_LOCATION("warmelt-normatch.melt:1349:/ apply"); /*apply*/{ - /*_.LIST_TO_MULTIPLE__V111*/ meltfptr[66] = melt_apply ((meltclosure_ptr_t)((/*!LIST_TO_MULTIPLE*/ meltfrout->tabval[18])), (melt_ptr_t)(/*_.SUBTESTLIST__V20*/ meltfptr[19]), (""), (union meltparam_un*)0, "", (union meltparam_un*)0); + union meltparam_un argtab[1]; + memset(&argtab, 0, sizeof(argtab)); + /*^apply.arg*/ + argtab[0].bp_aptr = (melt_ptr_t*) &(/*!DISCR_MULTIPLE*/ meltfrout->tabval[19]); + /*_.LIST_TO_MULTIPLE__V111*/ meltfptr[66] = melt_apply ((meltclosure_ptr_t)((/*!LIST_TO_MULTIPLE*/ meltfrout->tabval[18])), (melt_ptr_t)(/*_.SUBTESTLIST__V20*/ meltfptr[19]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-normatch.melt:1348:/ cond"); @@ -14172,7 +14196,7 @@ lab_endgetargs:; /*^putpairhead*/ /*putpairhead*/ - melt_assertmsg("putpairhead /f5d2a12 checkpair", melt_magic_discr((melt_ptr_t)(/*_.CBIND__V49*/ meltfptr[48]))== OBMAG_PAIR); + melt_assertmsg("putpairhead /990894d checkpair", melt_magic_discr((melt_ptr_t)(/*_.CBIND__V49*/ meltfptr[48]))== OBMAG_PAIR); ((meltpair_ptr_t)(/*_.CBIND__V49*/ meltfptr[48]))->hd = (melt_ptr_t) (/*_.CBIND__V41*/ meltfptr[40]); ; /*^touch*/ @@ -17430,7 +17454,11 @@ lab_endgetargs:; /*^apply*/ /*apply*/{ - /*_.TT__V244*/ meltfptr[204] = melt_apply ((meltclosure_ptr_t)((/*!LIST_TO_MULTIPLE*/ meltfrout->tabval[33])), (melt_ptr_t)(/*_.TESTLIST__V22*/ meltfptr[21]), (""), (union meltparam_un*)0, "", (union meltparam_un*)0); + union meltparam_un argtab[1]; + memset(&argtab, 0, sizeof(argtab)); + /*^apply.arg*/ + argtab[0].bp_aptr = (melt_ptr_t*) &(/*!DISCR_MULTIPLE*/ meltfrout->tabval[4]); + /*_.TT__V244*/ meltfptr[204] = melt_apply ((meltclosure_ptr_t)((/*!LIST_TO_MULTIPLE*/ meltfrout->tabval[33])), (melt_ptr_t)(/*_.TESTLIST__V22*/ meltfptr[21]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -18785,7 +18813,7 @@ melt_trace_start("NORMBIND_MATCHBIND", meltcallcount); /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-normatch.melt:2442:/ getarg"); + MELT_LOCATION("warmelt-normatch.melt:2443:/ getarg"); /*_.BIND__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; /*getarg#1*/ @@ -18824,17 +18852,17 @@ lab_endgetargs:; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normatch.melt:2443:/ cppif.then"); + MELT_LOCATION("warmelt-normatch.melt:2444:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L1*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.BIND__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_MATCHED_BINDING*/ meltfrout->tabval[0])));; - MELT_LOCATION("warmelt-normatch.melt:2443:/ cond"); + MELT_LOCATION("warmelt-normatch.melt:2444:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V8*/ meltfptr[7] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normatch.melt:2443:/ cond.else"); + } else {MELT_LOCATION("warmelt-normatch.melt:2444:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -18845,7 +18873,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check bind"),( "warmelt-normatch.melt")?( "warmelt-normatch.melt"):__FILE__, - (2443)?(2443):__LINE__, __FUNCTION__); + (2444)?(2444):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V8*/ meltfptr[7] = 0 ; @@ -18859,7 +18887,7 @@ lab_endgetargs:; /*_.IFCPP___V7*/ meltfptr[6] = /*_.IFELSE___V8*/ meltfptr[7];; /*epilog*/ - MELT_LOCATION("warmelt-normatch.melt:2443:/ clear"); + MELT_LOCATION("warmelt-normatch.melt:2444:/ clear"); /*clear*/ /*_#IS_A__L1*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V8*/ meltfptr[7] = 0 ;} @@ -18871,17 +18899,17 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normatch.melt:2444:/ cppif.then"); + MELT_LOCATION("warmelt-normatch.melt:2445:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L2*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ meltfrout->tabval[1])));; - MELT_LOCATION("warmelt-normatch.melt:2444:/ cond"); + MELT_LOCATION("warmelt-normatch.melt:2445:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V10*/ meltfptr[9] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normatch.melt:2444:/ cond.else"); + } else {MELT_LOCATION("warmelt-normatch.melt:2445:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -18892,7 +18920,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check env"),( "warmelt-normatch.melt")?( "warmelt-normatch.melt"):__FILE__, - (2444)?(2444):__LINE__, __FUNCTION__); + (2445)?(2445):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V10*/ meltfptr[9] = 0 ; @@ -18906,7 +18934,7 @@ lab_endgetargs:; /*_.IFCPP___V9*/ meltfptr[7] = /*_.IFELSE___V10*/ meltfptr[9];; /*epilog*/ - MELT_LOCATION("warmelt-normatch.melt:2444:/ clear"); + MELT_LOCATION("warmelt-normatch.melt:2445:/ clear"); /*clear*/ /*_#IS_A__L2*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V10*/ meltfptr[9] = 0 ;} @@ -18918,17 +18946,17 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normatch.melt:2445:/ cppif.then"); + MELT_LOCATION("warmelt-normatch.melt:2446:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L3*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.NCX__V4*/ meltfptr[3]), (melt_ptr_t)((/*!CLASS_NORMALIZATION_CONTEXT*/ meltfrout->tabval[2])));; - MELT_LOCATION("warmelt-normatch.melt:2445:/ cond"); + MELT_LOCATION("warmelt-normatch.melt:2446:/ cond"); /*cond*/ if (/*_#IS_A__L3*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V12*/ meltfptr[11] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normatch.melt:2445:/ cond.else"); + } else {MELT_LOCATION("warmelt-normatch.melt:2446:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -18939,7 +18967,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check ncx"),( "warmelt-normatch.melt")?( "warmelt-normatch.melt"):__FILE__, - (2445)?(2445):__LINE__, __FUNCTION__); + (2446)?(2446):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V12*/ meltfptr[11] = 0 ; @@ -18953,7 +18981,7 @@ lab_endgetargs:; /*_.IFCPP___V11*/ meltfptr[9] = /*_.IFELSE___V12*/ meltfptr[11];; /*epilog*/ - MELT_LOCATION("warmelt-normatch.melt:2445:/ clear"); + MELT_LOCATION("warmelt-normatch.melt:2446:/ clear"); /*clear*/ /*_#IS_A__L3*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V12*/ meltfptr[11] = 0 ;} @@ -18963,28 +18991,28 @@ lab_endgetargs:; /*_.IFCPP___V11*/ meltfptr[9] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-normatch.melt:2446:/ quasiblock"); + MELT_LOCATION("warmelt-normatch.melt:2447:/ quasiblock"); /*^getslot*/ { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.NCX__V4*/ meltfptr[3]), 6, "NCTX_SYMBCACHEMAP");/*_.SYCMAP__V14*/ meltfptr[13] = slot; }; ; - MELT_LOCATION("warmelt-normatch.melt:2447:/ getslot"); + MELT_LOCATION("warmelt-normatch.melt:2448:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.BIND__V2*/ meltfptr[1]), 0, "BINDER");/*_.SYMB__V15*/ meltfptr[14] = slot; }; ; - MELT_LOCATION("warmelt-normatch.melt:2448:/ getslot"); + MELT_LOCATION("warmelt-normatch.melt:2449:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.BIND__V2*/ meltfptr[1]), 1, "MATCHBIND_DATA");/*_.MDATA__V16*/ meltfptr[15] = slot; }; ; - MELT_LOCATION("warmelt-normatch.melt:2449:/ getslot"); + MELT_LOCATION("warmelt-normatch.melt:2450:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.BIND__V2*/ meltfptr[1]), 2, "MATCHBIND_NBOCC");/*_.BOXNBOCC__V17*/ meltfptr[16] = slot; }; ; /*_#NBOCC__L4*/ meltfnum[0] = (melt_get_int((melt_ptr_t)(/*_.BOXNBOCC__V17*/ meltfptr[16])));; - MELT_LOCATION("warmelt-normatch.melt:2454:/ cond"); + MELT_LOCATION("warmelt-normatch.melt:2455:/ cond"); /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.MDATA__V16*/ meltfptr[15]), (melt_ptr_t)((/*!CLASS_MATCHED_DATA*/ meltfrout->tabval[4])))) /*then*/ { /*^cond.then*/ /*^getslot*/ @@ -18996,7 +19024,7 @@ lab_endgetargs:; /*_.MDATA_CTYPE__V18*/ meltfptr[17] = NULL;; } ; - MELT_LOCATION("warmelt-normatch.melt:2452:/ quasiblock"); + MELT_LOCATION("warmelt-normatch.melt:2453:/ quasiblock"); /*^rawallocobj*/ @@ -19031,19 +19059,19 @@ lab_endgetargs:; ((/*_#NBOCC__L4*/ meltfnum[0]) + (1));; { - MELT_LOCATION("warmelt-normatch.melt:2459:/ locexp"); + MELT_LOCATION("warmelt-normatch.melt:2460:/ locexp"); melt_put_int((melt_ptr_t)(/*_.BOXNBOCC__V17*/ meltfptr[16]), (/*_#I__L5*/ meltfnum[4]));} ; { - MELT_LOCATION("warmelt-normatch.melt:2461:/ locexp"); + MELT_LOCATION("warmelt-normatch.melt:2462:/ locexp"); meltgc_put_mapobjects( (meltmapobjects_ptr_t) (/*_.SYCMAP__V14*/ meltfptr[13]), (meltobject_ptr_t) (/*_.SYMB__V15*/ meltfptr[14]), (melt_ptr_t)(/*_.SYOCC__V19*/ meltfptr[18]));} ; /*_.LET___V13*/ meltfptr[11] = /*_.SYOCC__V19*/ meltfptr[18];; - MELT_LOCATION("warmelt-normatch.melt:2446:/ clear"); + MELT_LOCATION("warmelt-normatch.melt:2447:/ clear"); /*clear*/ /*_.SYCMAP__V14*/ meltfptr[13] = 0 ; /*^clear*/ /*clear*/ /*_.SYMB__V15*/ meltfptr[14] = 0 ; @@ -19059,11 +19087,11 @@ lab_endgetargs:; /*clear*/ /*_.SYOCC__V19*/ meltfptr[18] = 0 ; /*^clear*/ /*clear*/ /*_#I__L5*/ meltfnum[4] = 0 ; - MELT_LOCATION("warmelt-normatch.melt:2442:/ quasiblock"); + MELT_LOCATION("warmelt-normatch.melt:2443:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V13*/ meltfptr[11];; - MELT_LOCATION("warmelt-normatch.melt:2442:/ finalreturn"); + MELT_LOCATION("warmelt-normatch.melt:2443:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*epilog*/ @@ -19093,7 +19121,7 @@ melt_trace_end("NORMBIND_MATCHBIND", meltcallcount); melt_topframe = (struct ca melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_47_warmelt_normatch_SCANSUBPAT_ANYRECV(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, +meltrout_47_warmelt_normatch_MAKE_MATCH_FLAG(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_) { #if ENABLE_CHECKING @@ -19106,17 +19134,17 @@ meltrout_47_warmelt_normatch_SCANSUBPAT_ANYRECV(meltclosure_ptr_t closp_, melt_p #define meltcallcount 0L #endif - struct frame_meltrout_47_warmelt_normatch_SCANSUBPAT_ANYRECV_st { unsigned nbvar; + struct frame_meltrout_47_warmelt_normatch_MAKE_MATCH_FLAG_st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct meltclosure_st *clos; struct excepth_melt_st *exh; struct callframe_melt_st *prev; -#define MELTFRAM_NBVARPTR 11 - void* varptr[11]; -#define MELTFRAM_NBVARNUM 1 - long varnum[1]; +#define MELTFRAM_NBVARPTR 30 + void* varptr[30]; +#define MELTFRAM_NBVARNUM 12 + long varnum[12]; /*others*/ long _spare_; } *framptr_=0, meltframe; @@ -19125,35 +19153,35 @@ meltrout_47_warmelt_normatch_SCANSUBPAT_ANYRECV(meltclosure_ptr_t closp_, melt_p int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_melt_un (framptr_->clos); - for(ix=0; ix<11; ix++) + for(ix=0; ix<30; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_melt_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&meltfram__, 0, sizeof(meltfram__)); - meltfram__.nbvar = 11; + meltfram__.nbvar = 30; meltfram__.clos = closp_; meltfram__.prev = (struct callframe_melt_st *) melt_topframe; melt_topframe = (struct callframe_melt_st *) &meltfram__; -melt_trace_start("SCANSUBPAT_ANYRECV", meltcallcount); +melt_trace_start("MAKE_MATCH_FLAG", meltcallcount); /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-normatch.melt:2549:/ getarg"); - /*_.RECV__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; + MELT_LOCATION("warmelt-normatch.melt:2586:/ getarg"); + /*_.SPAT__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; /*getarg#1*/ /*^getarg*/ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; - /*_.FUN__V3*/ meltfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.FUN__V3*/ meltfptr[2])) != NULL); + /*_.MCX__V3*/ meltfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; + gcc_assert(melt_discr((melt_ptr_t)(/*_.MCX__V3*/ meltfptr[2])) != NULL); /*getarg#2*/ /*^getarg*/ if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; - /*_.CTX__V4*/ meltfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.CTX__V4*/ meltfptr[3])) != NULL); + /*_.STR__V4*/ meltfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; + gcc_assert(melt_discr((melt_ptr_t)(/*_.STR__V4*/ meltfptr[3])) != NULL); ; goto lab_endgetargs; @@ -19164,31 +19192,31 @@ lab_endgetargs:; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normatch.melt:2550:/ cppif.then"); + MELT_LOCATION("warmelt-normatch.melt:2587:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L1*/ meltfnum[0] = meltcallcount;; - MELT_LOCATION("warmelt-normatch.melt:2550:/ apply"); + MELT_LOCATION("warmelt-normatch.melt:2587:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_cstring = "scansubpat_anyrecv recv"; + argtab[0].bp_cstring = "make_match_flag spat"; /*^apply.arg*/ argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L1*/ meltfnum[0]; /*^apply.arg*/ argtab[2].bp_cstring = "warmelt-normatch.melt"; /*^apply.arg*/ - argtab[3].bp_long = 2550; - /*_.DEBUG_MSG_FUN__V6*/ meltfptr[5] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + argtab[3].bp_long = 2587; + /*_.DEBUG_MSG_FUN__V6*/ meltfptr[5] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.SPAT__V2*/ meltfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V5*/ meltfptr[4] = /*_.DEBUG_MSG_FUN__V6*/ meltfptr[5];; /*epilog*/ - MELT_LOCATION("warmelt-normatch.melt:2550:/ clear"); + MELT_LOCATION("warmelt-normatch.melt:2587:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L1*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V6*/ meltfptr[5] = 0 ;} @@ -19198,32 +19226,55 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-normatch.melt:2551:/ quasiblock"); - - /*_.DIS__V8*/ meltfptr[7] = - (melt_discr((melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1])));; - MELT_LOCATION("warmelt-normatch.melt:2552:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.DIS__V8*/ meltfptr[7]), 1, "NAMED_NAME");/*_.NAMED_NAME__V9*/ meltfptr[8] = slot; }; - ; - - { - /*^locexp*/ - error("MELT ERROR MSG [#%ld]::: %s - %s", melt_dbgcounter, ( "unexpected scan_subpatterns for"), - melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V9*/ meltfptr[8])));} - ; + #if ENABLE_CHECKING + MELT_LOCATION("warmelt-normatch.melt:2588:/ cppif.then"); + /*^block*/ + /*anyblock*/{ + + /*_#THE_MELTCALLCOUNT__L2*/ meltfnum[0] = + meltcallcount;; + MELT_LOCATION("warmelt-normatch.melt:2588:/ apply"); + /*apply*/{ + union meltparam_un argtab[4]; + memset(&argtab, 0, sizeof(argtab)); + /*^apply.arg*/ + argtab[0].bp_cstring = "make_match_flag mcx"; + /*^apply.arg*/ + argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L2*/ meltfnum[0]; + /*^apply.arg*/ + argtab[2].bp_cstring = "warmelt-normatch.melt"; + /*^apply.arg*/ + argtab[3].bp_long = 2588; + /*_.DEBUG_MSG_FUN__V8*/ meltfptr[7] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.MCX__V3*/ meltfptr[2]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + } + ; + /*_.IFCPP___V7*/ meltfptr[5] = /*_.DEBUG_MSG_FUN__V8*/ meltfptr[7];; + /*epilog*/ + + MELT_LOCATION("warmelt-normatch.melt:2588:/ clear"); + /*clear*/ /*_#THE_MELTCALLCOUNT__L2*/ meltfnum[0] = 0 ; + /*^clear*/ + /*clear*/ /*_.DEBUG_MSG_FUN__V8*/ meltfptr[7] = 0 ;} + + #else /*ENABLE_CHECKING*/ + /*^cppif.else*/ + /*_.IFCPP___V7*/ meltfptr[5] = (/*nil*/NULL); + #endif /*ENABLE_CHECKING*/ + ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normatch.melt:2553:/ cppif.then"); + MELT_LOCATION("warmelt-normatch.melt:2589:/ cppif.then"); /*^block*/ /*anyblock*/{ - /*^cond*/ - /*cond*/ if ((/*nil*/NULL)) /*then*/ { + /*_#IS_A__L3*/ meltfnum[0] = + melt_is_instance_of((melt_ptr_t)(/*_.SPAT__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_PATTERN*/ meltfrout->tabval[1])));; + MELT_LOCATION("warmelt-normatch.melt:2589:/ cond"); + /*cond*/ if (/*_#IS_A__L3*/ meltfnum[0]) /*then*/ { /*^cond.then*/ - /*_.IFELSE___V11*/ meltfptr[10] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normatch.melt:2553:/ cond.else"); + /*_.IFELSE___V10*/ meltfptr[9] = (/*nil*/NULL);; + } else {MELT_LOCATION("warmelt-normatch.melt:2589:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -19233,11 +19284,11 @@ lab_endgetargs:; { /*^locexp*/ - melt_assert_failed(( "@$@unexpected scansubpat_anyrecv"),( "warmelt-normatch.melt")?( "warmelt-normatch.melt"):__FILE__, - (2553)?(2553):__LINE__, __FUNCTION__); + melt_assert_failed(( "check spat"),( "warmelt-normatch.melt")?( "warmelt-normatch.melt"):__FILE__, + (2589)?(2589):__LINE__, __FUNCTION__); ;} ; - /*clear*/ /*_.IFELSE___V11*/ meltfptr[10] = 0 ; + /*clear*/ /*_.IFELSE___V10*/ meltfptr[9] = 0 ; /*epilog*/ } ; @@ -19245,160 +19296,413 @@ lab_endgetargs:; ; /*^compute*/ - /*_.IFCPP___V10*/ meltfptr[9] = /*_.IFELSE___V11*/ meltfptr[10];; + /*_.IFCPP___V9*/ meltfptr[7] = /*_.IFELSE___V10*/ meltfptr[9];; /*epilog*/ - MELT_LOCATION("warmelt-normatch.melt:2553:/ clear"); - /*clear*/ /*_.IFELSE___V11*/ meltfptr[10] = 0 ;} + MELT_LOCATION("warmelt-normatch.melt:2589:/ clear"); + /*clear*/ /*_#IS_A__L3*/ meltfnum[0] = 0 ; + /*^clear*/ + /*clear*/ /*_.IFELSE___V10*/ meltfptr[9] = 0 ;} #else /*ENABLE_CHECKING*/ /*^cppif.else*/ - /*_.IFCPP___V10*/ meltfptr[9] = (/*nil*/NULL); + /*_.IFCPP___V9*/ meltfptr[7] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - /*^compute*/ + + #if ENABLE_CHECKING + MELT_LOCATION("warmelt-normatch.melt:2590:/ cppif.then"); + /*^block*/ + /*anyblock*/{ + + /*_#IS_A__L4*/ meltfnum[0] = + melt_is_instance_of((melt_ptr_t)(/*_.MCX__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_MATCHING_CONTEXT*/ meltfrout->tabval[2])));; + MELT_LOCATION("warmelt-normatch.melt:2590:/ cond"); + /*cond*/ if (/*_#IS_A__L4*/ meltfnum[0]) /*then*/ { + /*^cond.then*/ + /*_.IFELSE___V12*/ meltfptr[11] = (/*nil*/NULL);; + } else {MELT_LOCATION("warmelt-normatch.melt:2590:/ cond.else"); + + /*^block*/ + /*anyblock*/{ + + + + + { + /*^locexp*/ + melt_assert_failed(( "check mcx"),( "warmelt-normatch.melt")?( "warmelt-normatch.melt"):__FILE__, + (2590)?(2590):__LINE__, __FUNCTION__); +;} + ; + /*clear*/ /*_.IFELSE___V12*/ meltfptr[11] = 0 ; + /*epilog*/ + } + ; + } + ; + /*^compute*/ - /*_.LET___V7*/ meltfptr[5] = /*_.IFCPP___V10*/ meltfptr[9];; + /*_.IFCPP___V11*/ meltfptr[9] = /*_.IFELSE___V12*/ meltfptr[11];; + /*epilog*/ + + MELT_LOCATION("warmelt-normatch.melt:2590:/ clear"); + /*clear*/ /*_#IS_A__L4*/ meltfnum[0] = 0 ; + /*^clear*/ + /*clear*/ /*_.IFELSE___V12*/ meltfptr[11] = 0 ;} + + #else /*ENABLE_CHECKING*/ + /*^cppif.else*/ + /*_.IFCPP___V11*/ meltfptr[9] = (/*nil*/NULL); + #endif /*ENABLE_CHECKING*/ + ; - MELT_LOCATION("warmelt-normatch.melt:2551:/ clear"); - /*clear*/ /*_.DIS__V8*/ meltfptr[7] = 0 ; - /*^clear*/ - /*clear*/ /*_.NAMED_NAME__V9*/ meltfptr[8] = 0 ; - /*^clear*/ - /*clear*/ /*_.IFCPP___V10*/ meltfptr[9] = 0 ; - MELT_LOCATION("warmelt-normatch.melt:2549:/ quasiblock"); + #if ENABLE_CHECKING + MELT_LOCATION("warmelt-normatch.melt:2591:/ cppif.then"); + /*^block*/ + /*anyblock*/{ + + /*_#IS_STRING__L5*/ meltfnum[0] = + (melt_magic_discr((melt_ptr_t)(/*_.STR__V4*/ meltfptr[3])) == OBMAG_STRING);; + MELT_LOCATION("warmelt-normatch.melt:2591:/ cond"); + /*cond*/ if (/*_#IS_STRING__L5*/ meltfnum[0]) /*then*/ { + /*^cond.then*/ + /*_.IFELSE___V14*/ meltfptr[13] = (/*nil*/NULL);; + } else {MELT_LOCATION("warmelt-normatch.melt:2591:/ cond.else"); + + /*^block*/ + /*anyblock*/{ + + + + + { + /*^locexp*/ + melt_assert_failed(( "check str"),( "warmelt-normatch.melt")?( "warmelt-normatch.melt"):__FILE__, + (2591)?(2591):__LINE__, __FUNCTION__); +;} + ; + /*clear*/ /*_.IFELSE___V14*/ meltfptr[13] = 0 ; + /*epilog*/ + } + ; + } + ; + /*^compute*/ + + /*_.IFCPP___V13*/ meltfptr[11] = /*_.IFELSE___V14*/ meltfptr[13];; + /*epilog*/ + + MELT_LOCATION("warmelt-normatch.melt:2591:/ clear"); + /*clear*/ /*_#IS_STRING__L5*/ meltfnum[0] = 0 ; + /*^clear*/ + /*clear*/ /*_.IFELSE___V14*/ meltfptr[13] = 0 ;} + + #else /*ENABLE_CHECKING*/ + /*^cppif.else*/ + /*_.IFCPP___V13*/ meltfptr[11] = (/*nil*/NULL); + #endif /*ENABLE_CHECKING*/ + ; + MELT_LOCATION("warmelt-normatch.melt:2592:/ quasiblock"); - /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V7*/ meltfptr[5];; - MELT_LOCATION("warmelt-normatch.melt:2549:/ finalreturn"); + /*^getslot*/ + { melt_ptr_t slot=0; + melt_object_get_field(slot,(melt_ptr_t)(/*_.SPAT__V2*/ meltfptr[1]), 1, "LOCA_LOCATION");/*_.SLOC__V16*/ meltfptr[15] = slot; }; ; - /*finalret*/ goto labend_rout ; - /*epilog*/ + MELT_LOCATION("warmelt-normatch.melt:2593:/ getslot"); + { melt_ptr_t slot=0; + melt_object_get_field(slot,(melt_ptr_t)(/*_.MCX__V3*/ meltfptr[2]), 7, "MCTX_FLAGS");/*_.FLAGLIST__V17*/ meltfptr[16] = slot; }; + ; + /*_.LIST_LAST__V18*/ meltfptr[17] = + (melt_list_last((melt_ptr_t)(/*_.FLAGLIST__V17*/ meltfptr[16])));; + /*^compute*/ + + /*_.LASTFLAG__V19*/ meltfptr[18] = + (melt_pair_head((melt_ptr_t)(/*_.LIST_LAST__V18*/ meltfptr[17])));; + MELT_LOCATION("warmelt-normatch.melt:2595:/ cond"); + /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.LASTFLAG__V19*/ meltfptr[18]), (melt_ptr_t)((/*!CLASS_MATCH_FLAG*/ meltfrout->tabval[3])))) /*then*/ { + /*^cond.then*/ + /*^getslot*/ + { melt_ptr_t slot=0; + melt_object_get_field(slot,(melt_ptr_t)(/*_.LASTFLAG__V19*/ meltfptr[18]), 3, "MFLAG_RANK");/*_.MFLAG_RANK__V20*/ meltfptr[19] = slot; }; + ; + } else {/*^cond.else*/ - /*^clear*/ - /*clear*/ /*_.IFCPP___V5*/ meltfptr[4] = 0 ; - /*^clear*/ - /*clear*/ /*_.LET___V7*/ meltfptr[5] = 0 ;} + /*_.MFLAG_RANK__V20*/ meltfptr[19] = NULL;; + } + ; + /*^compute*/ -; - goto labend_rout; -labend_rout: -melt_trace_end("SCANSUBPAT_ANYRECV", meltcallcount); melt_topframe = (struct callframe_melt_st*) meltfram__.prev; - return (melt_ptr_t)(/*_.RETVAL___V1*/ meltfptr[0]); -#undef meltcallcount -#undef meltfram__ -#undef MELTFRAM_NBVARNUM -#undef MELTFRAM_NBVARPTR -} /*end meltrout_47_warmelt_normatch_SCANSUBPAT_ANYRECV*/ + /*_#LASTRANK__L6*/ meltfnum[0] = + (melt_get_int((melt_ptr_t)(/*_.MFLAG_RANK__V20*/ meltfptr[19])));; + + #if ENABLE_CHECKING + MELT_LOCATION("warmelt-normatch.melt:2597:/ cppif.then"); + /*^block*/ + /*anyblock*/{ + + /*_#IS_LIST__L7*/ meltfnum[6] = + (melt_magic_discr((melt_ptr_t)(/*_.FLAGLIST__V17*/ meltfptr[16])) == OBMAG_LIST);; + MELT_LOCATION("warmelt-normatch.melt:2597:/ cond"); + /*cond*/ if (/*_#IS_LIST__L7*/ meltfnum[6]) /*then*/ { + /*^cond.then*/ + /*_.IFELSE___V22*/ meltfptr[21] = (/*nil*/NULL);; + } else {MELT_LOCATION("warmelt-normatch.melt:2597:/ cond.else"); + + /*^block*/ + /*anyblock*/{ + + + + + { + /*^locexp*/ + melt_assert_failed(( "check flaglist"),( "warmelt-normatch.melt")?( "warmelt-normatch.melt"):__FILE__, + (2597)?(2597):__LINE__, __FUNCTION__); +;} + ; + /*clear*/ /*_.IFELSE___V22*/ meltfptr[21] = 0 ; + /*epilog*/ + } + ; + } + ; + /*^compute*/ + /*_.IFCPP___V21*/ meltfptr[20] = /*_.IFELSE___V22*/ meltfptr[21];; + /*epilog*/ + + MELT_LOCATION("warmelt-normatch.melt:2597:/ clear"); + /*clear*/ /*_#IS_LIST__L7*/ meltfnum[6] = 0 ; + /*^clear*/ + /*clear*/ /*_.IFELSE___V22*/ meltfptr[21] = 0 ;} + + #else /*ENABLE_CHECKING*/ + /*^cppif.else*/ + /*_.IFCPP___V21*/ meltfptr[20] = (/*nil*/NULL); + #endif /*ENABLE_CHECKING*/ + ; + + #if ENABLE_CHECKING + MELT_LOCATION("warmelt-normatch.melt:2598:/ cppif.then"); + /*^block*/ + /*anyblock*/{ + + /*_#NULL__L8*/ meltfnum[6] = + ((/*_.LASTFLAG__V19*/ meltfptr[18]) == NULL);; + MELT_LOCATION("warmelt-normatch.melt:2598:/ cond"); + /*cond*/ if (/*_#NULL__L8*/ meltfnum[6]) /*then*/ { + /*^cond.then*/ + /*_#OR___L9*/ meltfnum[8] = /*_#NULL__L8*/ meltfnum[6];; + } else {MELT_LOCATION("warmelt-normatch.melt:2598:/ cond.else"); + + /*^block*/ + /*anyblock*/{ + + /*_#I__L10*/ meltfnum[9] = + ((/*_#LASTRANK__L6*/ meltfnum[0]) > (0));; + /*^compute*/ + /*_#OR___L9*/ meltfnum[8] = /*_#I__L10*/ meltfnum[9];; + /*epilog*/ + + MELT_LOCATION("warmelt-normatch.melt:2598:/ clear"); + /*clear*/ /*_#I__L10*/ meltfnum[9] = 0 ;} + ; + } + ; + /*^cond*/ + /*cond*/ if (/*_#OR___L9*/ meltfnum[8]) /*then*/ { + /*^cond.then*/ + /*_.IFELSE___V24*/ meltfptr[23] = (/*nil*/NULL);; + } else {MELT_LOCATION("warmelt-normatch.melt:2598:/ cond.else"); + + /*^block*/ + /*anyblock*/{ + + + + + { + /*^locexp*/ + melt_assert_failed(( "check lastrank"),( "warmelt-normatch.melt")?( "warmelt-normatch.melt"):__FILE__, + (2598)?(2598):__LINE__, __FUNCTION__); +;} + ; + /*clear*/ /*_.IFELSE___V24*/ meltfptr[23] = 0 ; + /*epilog*/ + } + ; + } + ; + /*^compute*/ - - -melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_48_warmelt_normatch_SCANSUBPAT_NOOP(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, - const char xresdescr_[], union meltparam_un *xrestab_) -{ -#if ENABLE_CHECKING - static long call_counter__; - long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; -#undef meltcallcount -#define meltcallcount thiscallcounter__ -#else -#undef meltcallcount -#define meltcallcount 0L -#endif - - struct frame_meltrout_48_warmelt_normatch_SCANSUBPAT_NOOP_st { unsigned nbvar; -#if ENABLE_CHECKING - const char* flocs; -#endif - struct meltclosure_st *clos; - struct excepth_melt_st *exh; - struct callframe_melt_st *prev; -#define MELTFRAM_NBVARPTR 5 - void* varptr[5]; -/*no varnum*/ -#define MELTFRAM_NBVARNUM /*none*/0 -/*others*/ - long _spare_; } - *framptr_=0, meltframe; -#define meltfram__ meltframe - if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/ - int ix=0; - framptr_ = (void*)firstargp_; - gt_ggc_mx_melt_un (framptr_->clos); - for(ix=0; ix<5; ix++) - if (framptr_->varptr[ix]) - gt_ggc_mx_melt_un (framptr_->varptr[ix]); - return NULL; - }/*end markggc*/; - memset(&meltfram__, 0, sizeof(meltfram__)); - meltfram__.nbvar = 5; - meltfram__.clos = closp_; - meltfram__.prev = (struct callframe_melt_st *) melt_topframe; - melt_topframe = (struct callframe_melt_st *) &meltfram__; -melt_trace_start("SCANSUBPAT_NOOP", meltcallcount); -/*getargs*/ - - /*getarg#0*/ - MELT_LOCATION("warmelt-normatch.melt:2557:/ getarg"); - /*_.RECV__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; + /*_.IFCPP___V23*/ meltfptr[21] = /*_.IFELSE___V24*/ meltfptr[23];; + /*epilog*/ + + MELT_LOCATION("warmelt-normatch.melt:2598:/ clear"); + /*clear*/ /*_#NULL__L8*/ meltfnum[6] = 0 ; + /*^clear*/ + /*clear*/ /*_#OR___L9*/ meltfnum[8] = 0 ; + /*^clear*/ + /*clear*/ /*_.IFELSE___V24*/ meltfptr[23] = 0 ;} + + #else /*ENABLE_CHECKING*/ + /*^cppif.else*/ + /*_.IFCPP___V23*/ meltfptr[21] = (/*nil*/NULL); + #endif /*ENABLE_CHECKING*/ + ; + MELT_LOCATION("warmelt-normatch.melt:2599:/ quasiblock"); - /*getarg#1*/ - /*^getarg*/ - if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; - /*_.FUN__V3*/ meltfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.FUN__V3*/ meltfptr[2])) != NULL); + /*_#I__L11*/ meltfnum[9] = + ((/*_#LASTRANK__L6*/ meltfnum[0]) + (1));; + /*^compute*/ + + /*_.MAKE_INTEGERBOX__V26*/ meltfptr[25] = + (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_CONSTANT_INTEGER*/ meltfrout->tabval[4])), (/*_#I__L11*/ meltfnum[9])));; + MELT_LOCATION("warmelt-normatch.melt:2600:/ quasiblock"); - /*getarg#2*/ - /*^getarg*/ - if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; - /*_.CTX__V4*/ meltfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.CTX__V4*/ meltfptr[3])) != NULL); + /*^rawallocobj*/ + /*rawallocobj*/ { melt_ptr_t newobj = 0; + melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_MATCH_FLAG*/ meltfrout->tabval[3])), (6), "CLASS_MATCH_FLAG");/*_.INST__V28*/ meltfptr[27] = + newobj; }; ; - goto lab_endgetargs; -lab_endgetargs:; -/*body*/ -/*^block*/ -/*anyblock*/{ + /*^putslot*/ + /*putslot*/ + melt_assertmsg("putslot checkobj @LOCA_LOCATION", melt_magic_discr((melt_ptr_t)(/*_.INST__V28*/ meltfptr[27])) == OBMAG_OBJECT); + melt_putfield_object((/*_.INST__V28*/ meltfptr[27]), (1), (/*_.SLOC__V16*/ meltfptr[15]), "LOCA_LOCATION"); + ; + /*^putslot*/ + /*putslot*/ + melt_assertmsg("putslot checkobj @MFLAG_SPAT", melt_magic_discr((melt_ptr_t)(/*_.INST__V28*/ meltfptr[27])) == OBMAG_OBJECT); + melt_putfield_object((/*_.INST__V28*/ meltfptr[27]), (2), (/*_.SPAT__V2*/ meltfptr[1]), "MFLAG_SPAT"); + ; + /*^putslot*/ + /*putslot*/ + melt_assertmsg("putslot checkobj @MFLAG_RANK", melt_magic_discr((melt_ptr_t)(/*_.INST__V28*/ meltfptr[27])) == OBMAG_OBJECT); + melt_putfield_object((/*_.INST__V28*/ meltfptr[27]), (3), (/*_.MAKE_INTEGERBOX__V26*/ meltfptr[25]), "MFLAG_RANK"); + ; + /*^putslot*/ + /*putslot*/ + melt_assertmsg("putslot checkobj @MFLAG_STRING", melt_magic_discr((melt_ptr_t)(/*_.INST__V28*/ meltfptr[27])) == OBMAG_OBJECT); + melt_putfield_object((/*_.INST__V28*/ meltfptr[27]), (4), (/*_.STR__V4*/ meltfptr[3]), "MFLAG_STRING"); + ; + /*_.MFLAG__V27*/ meltfptr[26] = /*_.INST__V28*/ meltfptr[27];; - /*^quasiblock*/ + { + MELT_LOCATION("warmelt-normatch.melt:2608:/ locexp"); + meltgc_append_list((melt_ptr_t)(/*_.FLAGLIST__V17*/ meltfptr[16]), (melt_ptr_t)(/*_.MFLAG__V27*/ meltfptr[26]));} + ; + + #if ENABLE_CHECKING + MELT_LOCATION("warmelt-normatch.melt:2609:/ cppif.then"); + /*^block*/ + /*anyblock*/{ + + /*_#THE_MELTCALLCOUNT__L12*/ meltfnum[6] = + meltcallcount;; + MELT_LOCATION("warmelt-normatch.melt:2609:/ apply"); + /*apply*/{ + union meltparam_un argtab[4]; + memset(&argtab, 0, sizeof(argtab)); + /*^apply.arg*/ + argtab[0].bp_cstring = "make_match_flag return mflag"; + /*^apply.arg*/ + argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L12*/ meltfnum[6]; + /*^apply.arg*/ + argtab[2].bp_cstring = "warmelt-normatch.melt"; + /*^apply.arg*/ + argtab[3].bp_long = 2609; + /*_.DEBUG_MSG_FUN__V30*/ meltfptr[29] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.MFLAG__V27*/ meltfptr[26]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + } + ; + /*_.IFCPP___V29*/ meltfptr[28] = /*_.DEBUG_MSG_FUN__V30*/ meltfptr[29];; + /*epilog*/ + + MELT_LOCATION("warmelt-normatch.melt:2609:/ clear"); + /*clear*/ /*_#THE_MELTCALLCOUNT__L12*/ meltfnum[6] = 0 ; + /*^clear*/ + /*clear*/ /*_.DEBUG_MSG_FUN__V30*/ meltfptr[29] = 0 ;} + + #else /*ENABLE_CHECKING*/ + /*^cppif.else*/ + /*_.IFCPP___V29*/ meltfptr[28] = (/*nil*/NULL); + #endif /*ENABLE_CHECKING*/ + ; + /*^compute*/ + + /*_.LET___V25*/ meltfptr[23] = /*_.MFLAG__V27*/ meltfptr[26];; + MELT_LOCATION("warmelt-normatch.melt:2599:/ clear"); + /*clear*/ /*_#I__L11*/ meltfnum[9] = 0 ; + /*^clear*/ + /*clear*/ /*_.MAKE_INTEGERBOX__V26*/ meltfptr[25] = 0 ; + /*^clear*/ + /*clear*/ /*_.MFLAG__V27*/ meltfptr[26] = 0 ; + /*^clear*/ + /*clear*/ /*_.IFCPP___V29*/ meltfptr[28] = 0 ; + /*_.LET___V15*/ meltfptr[13] = /*_.LET___V25*/ meltfptr[23];; - /*_.RETVAL___V5*/ meltfptr[4] = (/*nil*/NULL);; - MELT_LOCATION("warmelt-normatch.melt:2557:/ quasiblock"); + MELT_LOCATION("warmelt-normatch.melt:2592:/ clear"); + /*clear*/ /*_.SLOC__V16*/ meltfptr[15] = 0 ; + /*^clear*/ + /*clear*/ /*_.FLAGLIST__V17*/ meltfptr[16] = 0 ; + /*^clear*/ + /*clear*/ /*_.LIST_LAST__V18*/ meltfptr[17] = 0 ; + /*^clear*/ + /*clear*/ /*_.LASTFLAG__V19*/ meltfptr[18] = 0 ; + /*^clear*/ + /*clear*/ /*_.MFLAG_RANK__V20*/ meltfptr[19] = 0 ; + /*^clear*/ + /*clear*/ /*_#LASTRANK__L6*/ meltfnum[0] = 0 ; + /*^clear*/ + /*clear*/ /*_.IFCPP___V21*/ meltfptr[20] = 0 ; + /*^clear*/ + /*clear*/ /*_.IFCPP___V23*/ meltfptr[21] = 0 ; + /*^clear*/ + /*clear*/ /*_.LET___V25*/ meltfptr[23] = 0 ; + MELT_LOCATION("warmelt-normatch.melt:2586:/ quasiblock"); - /*_.RETVAL___V1*/ meltfptr[0] = /*_.RETVAL___V5*/ meltfptr[4];; - MELT_LOCATION("warmelt-normatch.melt:2557:/ finalreturn"); + /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V15*/ meltfptr[13];; + MELT_LOCATION("warmelt-normatch.melt:2586:/ finalreturn"); ; /*finalret*/ goto labend_rout ; + /*epilog*/ /*^clear*/ - /*clear*/ /*_.RETVAL___V5*/ meltfptr[4] = 0 ; - /*epilog*/ - } + /*clear*/ /*_.IFCPP___V5*/ meltfptr[4] = 0 ; + /*^clear*/ + /*clear*/ /*_.IFCPP___V7*/ meltfptr[5] = 0 ; + /*^clear*/ + /*clear*/ /*_.IFCPP___V9*/ meltfptr[7] = 0 ; + /*^clear*/ + /*clear*/ /*_.IFCPP___V11*/ meltfptr[9] = 0 ; + /*^clear*/ + /*clear*/ /*_.IFCPP___V13*/ meltfptr[11] = 0 ; + /*^clear*/ + /*clear*/ /*_.LET___V15*/ meltfptr[13] = 0 ;} ; goto labend_rout; labend_rout: -melt_trace_end("SCANSUBPAT_NOOP", meltcallcount); melt_topframe = (struct callframe_melt_st*) meltfram__.prev; +melt_trace_end("MAKE_MATCH_FLAG", meltcallcount); melt_topframe = (struct callframe_melt_st*) meltfram__.prev; return (melt_ptr_t)(/*_.RETVAL___V1*/ meltfptr[0]); #undef meltcallcount #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR -} /*end meltrout_48_warmelt_normatch_SCANSUBPAT_NOOP*/ +} /*end meltrout_47_warmelt_normatch_MAKE_MATCH_FLAG*/ melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_49_warmelt_normatch_SCANSUBPAT_OR(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, +meltrout_48_warmelt_normatch_SCANSUBPAT_ANYRECV(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_) { #if ENABLE_CHECKING @@ -19411,15 +19715,15 @@ meltrout_49_warmelt_normatch_SCANSUBPAT_OR(meltclosure_ptr_t closp_, melt_ptr_t #define meltcallcount 0L #endif - struct frame_meltrout_49_warmelt_normatch_SCANSUBPAT_OR_st { unsigned nbvar; + struct frame_meltrout_48_warmelt_normatch_SCANSUBPAT_ANYRECV_st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct meltclosure_st *clos; struct excepth_melt_st *exh; struct callframe_melt_st *prev; -#define MELTFRAM_NBVARPTR 7 - void* varptr[7]; +#define MELTFRAM_NBVARPTR 11 + void* varptr[11]; #define MELTFRAM_NBVARNUM 1 long varnum[1]; /*others*/ @@ -19430,21 +19734,21 @@ meltrout_49_warmelt_normatch_SCANSUBPAT_OR(meltclosure_ptr_t closp_, melt_ptr_t int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_melt_un (framptr_->clos); - for(ix=0; ix<7; ix++) + for(ix=0; ix<11; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_melt_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&meltfram__, 0, sizeof(meltfram__)); - meltfram__.nbvar = 7; + meltfram__.nbvar = 11; meltfram__.clos = closp_; meltfram__.prev = (struct callframe_melt_st *) melt_topframe; melt_topframe = (struct callframe_melt_st *) &meltfram__; -melt_trace_start("SCANSUBPAT_OR", meltcallcount); +melt_trace_start("SCANSUBPAT_ANYRECV", meltcallcount); /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-normatch.melt:2563:/ getarg"); + MELT_LOCATION("warmelt-normatch.melt:2627:/ getarg"); /*_.RECV__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; /*getarg#1*/ @@ -19467,67 +19771,141 @@ lab_endgetargs:; /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-normatch.melt:2564:/ quasiblock"); - - /*^getslot*/ - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), 2, "ORPAT_DISJ");/*_.DISJTUP__V5*/ meltfptr[4] = slot; }; - ; - /*citerblock FOREACH_IN_MULTIPLE*/ { - /* start cit1__EACHTUP: */ - long cit1__EACHTUP_ln = melt_multiple_length((melt_ptr_t)/*_.DISJTUP__V5*/ meltfptr[4]); - for (/*_#DIX__L1*/ meltfnum[0] = 0; - (/*_#DIX__L1*/ meltfnum[0] >= 0) && (/*_#DIX__L1*/ meltfnum[0] < cit1__EACHTUP_ln); - /*_#DIX__L1*/ meltfnum[0]++) { - /*_.CURDISJ__V6*/ meltfptr[5] = melt_multiple_nth((melt_ptr_t)(/*_.DISJTUP__V5*/ meltfptr[4]), /*_#DIX__L1*/ meltfnum[0]); + #if ENABLE_CHECKING + MELT_LOCATION("warmelt-normatch.melt:2628:/ cppif.then"); + /*^block*/ + /*anyblock*/{ - + /*_#THE_MELTCALLCOUNT__L1*/ meltfnum[0] = + meltcallcount;; + MELT_LOCATION("warmelt-normatch.melt:2628:/ apply"); + /*apply*/{ + union meltparam_un argtab[4]; + memset(&argtab, 0, sizeof(argtab)); + /*^apply.arg*/ + argtab[0].bp_cstring = "scansubpat_anyrecv recv"; + /*^apply.arg*/ + argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L1*/ meltfnum[0]; + /*^apply.arg*/ + argtab[2].bp_cstring = "warmelt-normatch.melt"; + /*^apply.arg*/ + argtab[3].bp_long = 2628; + /*_.DEBUG_MSG_FUN__V6*/ meltfptr[5] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + } + ; + /*_.IFCPP___V5*/ meltfptr[4] = /*_.DEBUG_MSG_FUN__V6*/ meltfptr[5];; + /*epilog*/ + + MELT_LOCATION("warmelt-normatch.melt:2628:/ clear"); + /*clear*/ /*_#THE_MELTCALLCOUNT__L1*/ meltfnum[0] = 0 ; + /*^clear*/ + /*clear*/ /*_.DEBUG_MSG_FUN__V6*/ meltfptr[5] = 0 ;} - MELT_LOCATION("warmelt-normatch.melt:2568:/ apply"); - /*apply*/{ - union meltparam_un argtab[1]; - memset(&argtab, 0, sizeof(argtab)); - /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.CTX__V4*/ meltfptr[3]; - /*_.FUN__V7*/ meltfptr[6] = melt_apply ((meltclosure_ptr_t)(/*_.FUN__V3*/ meltfptr[2]), (melt_ptr_t)(/*_.CURDISJ__V6*/ meltfptr[5]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } + #else /*ENABLE_CHECKING*/ + /*^cppif.else*/ + /*_.IFCPP___V5*/ meltfptr[4] = (/*nil*/NULL); + #endif /*ENABLE_CHECKING*/ ; - if (/*_#DIX__L1*/ meltfnum[0]<0) break; - } /* end cit1__EACHTUP */ + MELT_LOCATION("warmelt-normatch.melt:2629:/ quasiblock"); - /*citerepilog*/ - - MELT_LOCATION("warmelt-normatch.melt:2565:/ clear"); - /*clear*/ /*_.CURDISJ__V6*/ meltfptr[5] = 0 ; - /*^clear*/ - /*clear*/ /*_#DIX__L1*/ meltfnum[0] = 0 ; - /*^clear*/ - /*clear*/ /*_.FUN__V7*/ meltfptr[6] = 0 ;} /*endciterblock FOREACH_IN_MULTIPLE*/ + + /*_.DIS__V8*/ meltfptr[7] = + (melt_discr((melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1])));; + MELT_LOCATION("warmelt-normatch.melt:2630:/ getslot"); + { melt_ptr_t slot=0; + melt_object_get_field(slot,(melt_ptr_t)(/*_.DIS__V8*/ meltfptr[7]), 1, "NAMED_NAME");/*_.NAMED_NAME__V9*/ meltfptr[8] = slot; }; ; - MELT_LOCATION("warmelt-normatch.melt:2564:/ clear"); - /*clear*/ /*_.DISJTUP__V5*/ meltfptr[4] = 0 ; + { + /*^locexp*/ + error("MELT ERROR MSG [#%ld]::: %s - %s", melt_dbgcounter, ( "unexpected scan_subpatterns for"), + melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V9*/ meltfptr[8])));} + ; + + #if ENABLE_CHECKING + MELT_LOCATION("warmelt-normatch.melt:2631:/ cppif.then"); + /*^block*/ + /*anyblock*/{ + + /*^cond*/ + /*cond*/ if ((/*nil*/NULL)) /*then*/ { + /*^cond.then*/ + /*_.IFELSE___V11*/ meltfptr[10] = (/*nil*/NULL);; + } else {MELT_LOCATION("warmelt-normatch.melt:2631:/ cond.else"); + + /*^block*/ + /*anyblock*/{ + + + + + { + /*^locexp*/ + melt_assert_failed(( "@$@unexpected scansubpat_anyrecv"),( "warmelt-normatch.melt")?( "warmelt-normatch.melt"):__FILE__, + (2631)?(2631):__LINE__, __FUNCTION__); +;} + ; + /*clear*/ /*_.IFELSE___V11*/ meltfptr[10] = 0 ; + /*epilog*/ + } + ; + } + ; + /*^compute*/ + + /*_.IFCPP___V10*/ meltfptr[9] = /*_.IFELSE___V11*/ meltfptr[10];; + /*epilog*/ + + MELT_LOCATION("warmelt-normatch.melt:2631:/ clear"); + /*clear*/ /*_.IFELSE___V11*/ meltfptr[10] = 0 ;} + + #else /*ENABLE_CHECKING*/ + /*^cppif.else*/ + /*_.IFCPP___V10*/ meltfptr[9] = (/*nil*/NULL); + #endif /*ENABLE_CHECKING*/ + ; + /*^compute*/ + + /*_.LET___V7*/ meltfptr[5] = /*_.IFCPP___V10*/ meltfptr[9];; + + MELT_LOCATION("warmelt-normatch.melt:2629:/ clear"); + /*clear*/ /*_.DIS__V8*/ meltfptr[7] = 0 ; + /*^clear*/ + /*clear*/ /*_.NAMED_NAME__V9*/ meltfptr[8] = 0 ; + /*^clear*/ + /*clear*/ /*_.IFCPP___V10*/ meltfptr[9] = 0 ; + MELT_LOCATION("warmelt-normatch.melt:2627:/ quasiblock"); + + + /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V7*/ meltfptr[5];; + MELT_LOCATION("warmelt-normatch.melt:2627:/ finalreturn"); + ; + /*finalret*/ goto labend_rout ; /*epilog*/ - } + + /*^clear*/ + /*clear*/ /*_.IFCPP___V5*/ meltfptr[4] = 0 ; + /*^clear*/ + /*clear*/ /*_.LET___V7*/ meltfptr[5] = 0 ;} ; goto labend_rout; labend_rout: -melt_trace_end("SCANSUBPAT_OR", meltcallcount); melt_topframe = (struct callframe_melt_st*) meltfram__.prev; - return (melt_ptr_t)(/*noretval*/ NULL); +melt_trace_end("SCANSUBPAT_ANYRECV", meltcallcount); melt_topframe = (struct callframe_melt_st*) meltfram__.prev; + return (melt_ptr_t)(/*_.RETVAL___V1*/ meltfptr[0]); #undef meltcallcount #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR -} /*end meltrout_49_warmelt_normatch_SCANSUBPAT_OR*/ +} /*end meltrout_48_warmelt_normatch_SCANSUBPAT_ANYRECV*/ melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_50_warmelt_normatch_SCANSUBPAT_AND(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, +meltrout_49_warmelt_normatch_SCANSUBPAT_NOOP(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_) { #if ENABLE_CHECKING @@ -19540,17 +19918,17 @@ meltrout_50_warmelt_normatch_SCANSUBPAT_AND(meltclosure_ptr_t closp_, melt_ptr_t #define meltcallcount 0L #endif - struct frame_meltrout_50_warmelt_normatch_SCANSUBPAT_AND_st { unsigned nbvar; + struct frame_meltrout_49_warmelt_normatch_SCANSUBPAT_NOOP_st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct meltclosure_st *clos; struct excepth_melt_st *exh; struct callframe_melt_st *prev; -#define MELTFRAM_NBVARPTR 7 - void* varptr[7]; -#define MELTFRAM_NBVARNUM 1 - long varnum[1]; +#define MELTFRAM_NBVARPTR 5 + void* varptr[5]; +/*no varnum*/ +#define MELTFRAM_NBVARNUM /*none*/0 /*others*/ long _spare_; } *framptr_=0, meltframe; @@ -19559,21 +19937,21 @@ meltrout_50_warmelt_normatch_SCANSUBPAT_AND(meltclosure_ptr_t closp_, melt_ptr_t int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_melt_un (framptr_->clos); - for(ix=0; ix<7; ix++) + for(ix=0; ix<5; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_melt_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&meltfram__, 0, sizeof(meltfram__)); - meltfram__.nbvar = 7; + meltfram__.nbvar = 5; meltfram__.clos = closp_; meltfram__.prev = (struct callframe_melt_st *) melt_topframe; melt_topframe = (struct callframe_melt_st *) &meltfram__; -melt_trace_start("SCANSUBPAT_AND", meltcallcount); +melt_trace_start("SCANSUBPAT_NOOP", meltcallcount); /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-normatch.melt:2571:/ getarg"); + MELT_LOCATION("warmelt-normatch.melt:2635:/ getarg"); /*_.RECV__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; /*getarg#1*/ @@ -19596,67 +19974,40 @@ lab_endgetargs:; /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-normatch.melt:2572:/ quasiblock"); + /*^quasiblock*/ - /*^getslot*/ - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), 2, "ANDPAT_CONJ");/*_.CONJTUP__V5*/ meltfptr[4] = slot; }; - ; - /*citerblock FOREACH_IN_MULTIPLE*/ { - /* start cit1__EACHTUP: */ - long cit1__EACHTUP_ln = melt_multiple_length((melt_ptr_t)/*_.CONJTUP__V5*/ meltfptr[4]); - for (/*_#CIX__L1*/ meltfnum[0] = 0; - (/*_#CIX__L1*/ meltfnum[0] >= 0) && (/*_#CIX__L1*/ meltfnum[0] < cit1__EACHTUP_ln); - /*_#CIX__L1*/ meltfnum[0]++) { - /*_.CURCONJ__V6*/ meltfptr[5] = melt_multiple_nth((melt_ptr_t)(/*_.CONJTUP__V5*/ meltfptr[4]), /*_#CIX__L1*/ meltfnum[0]); - + /*_.RETVAL___V5*/ meltfptr[4] = (/*nil*/NULL);; + MELT_LOCATION("warmelt-normatch.melt:2635:/ quasiblock"); - - MELT_LOCATION("warmelt-normatch.melt:2576:/ apply"); - /*apply*/{ - union meltparam_un argtab[1]; - memset(&argtab, 0, sizeof(argtab)); - /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.CTX__V4*/ meltfptr[3]; - /*_.FUN__V7*/ meltfptr[6] = melt_apply ((meltclosure_ptr_t)(/*_.FUN__V3*/ meltfptr[2]), (melt_ptr_t)(/*_.CURCONJ__V6*/ meltfptr[5]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; - if (/*_#CIX__L1*/ meltfnum[0]<0) break; - } /* end cit1__EACHTUP */ - /*citerepilog*/ - - MELT_LOCATION("warmelt-normatch.melt:2573:/ clear"); - /*clear*/ /*_.CURCONJ__V6*/ meltfptr[5] = 0 ; - /*^clear*/ - /*clear*/ /*_#CIX__L1*/ meltfnum[0] = 0 ; - /*^clear*/ - /*clear*/ /*_.FUN__V7*/ meltfptr[6] = 0 ;} /*endciterblock FOREACH_IN_MULTIPLE*/ + /*_.RETVAL___V1*/ meltfptr[0] = /*_.RETVAL___V5*/ meltfptr[4];; + MELT_LOCATION("warmelt-normatch.melt:2635:/ finalreturn"); ; + /*finalret*/ goto labend_rout ; - MELT_LOCATION("warmelt-normatch.melt:2572:/ clear"); - /*clear*/ /*_.CONJTUP__V5*/ meltfptr[4] = 0 ; + /*^clear*/ + /*clear*/ /*_.RETVAL___V5*/ meltfptr[4] = 0 ; /*epilog*/ } ; goto labend_rout; labend_rout: -melt_trace_end("SCANSUBPAT_AND", meltcallcount); melt_topframe = (struct callframe_melt_st*) meltfram__.prev; - return (melt_ptr_t)(/*noretval*/ NULL); +melt_trace_end("SCANSUBPAT_NOOP", meltcallcount); melt_topframe = (struct callframe_melt_st*) meltfram__.prev; + return (melt_ptr_t)(/*_.RETVAL___V1*/ meltfptr[0]); #undef meltcallcount #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR -} /*end meltrout_50_warmelt_normatch_SCANSUBPAT_AND*/ +} /*end meltrout_49_warmelt_normatch_SCANSUBPAT_NOOP*/ melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_51_warmelt_normatch_SCANSUBPAT_CONSTRUCT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, +meltrout_50_warmelt_normatch_SCANSUBPAT_OR(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_) { #if ENABLE_CHECKING @@ -19669,7 +20020,7 @@ meltrout_51_warmelt_normatch_SCANSUBPAT_CONSTRUCT(meltclosure_ptr_t closp_, melt #define meltcallcount 0L #endif - struct frame_meltrout_51_warmelt_normatch_SCANSUBPAT_CONSTRUCT_st { unsigned nbvar; + struct frame_meltrout_50_warmelt_normatch_SCANSUBPAT_OR_st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif @@ -19698,11 +20049,11 @@ meltrout_51_warmelt_normatch_SCANSUBPAT_CONSTRUCT(meltclosure_ptr_t closp_, melt meltfram__.clos = closp_; meltfram__.prev = (struct callframe_melt_st *) melt_topframe; melt_topframe = (struct callframe_melt_st *) &meltfram__; -melt_trace_start("SCANSUBPAT_CONSTRUCT", meltcallcount); +melt_trace_start("SCANSUBPAT_OR", meltcallcount); /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-normatch.melt:2580:/ getarg"); + MELT_LOCATION("warmelt-normatch.melt:2641:/ getarg"); /*_.RECV__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; /*getarg#1*/ @@ -19725,67 +20076,67 @@ lab_endgetargs:; /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-normatch.melt:2581:/ quasiblock"); + MELT_LOCATION("warmelt-normatch.melt:2642:/ quasiblock"); /*^getslot*/ { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), 2, "CTPAT_SUBPA");/*_.SUBPATUP__V5*/ meltfptr[4] = slot; }; + melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), 2, "ORPAT_DISJ");/*_.DISJTUP__V5*/ meltfptr[4] = slot; }; ; /*citerblock FOREACH_IN_MULTIPLE*/ { /* start cit1__EACHTUP: */ - long cit1__EACHTUP_ln = melt_multiple_length((melt_ptr_t)/*_.SUBPATUP__V5*/ meltfptr[4]); - for (/*_#PIX__L1*/ meltfnum[0] = 0; - (/*_#PIX__L1*/ meltfnum[0] >= 0) && (/*_#PIX__L1*/ meltfnum[0] < cit1__EACHTUP_ln); - /*_#PIX__L1*/ meltfnum[0]++) { - /*_.CURPA__V6*/ meltfptr[5] = melt_multiple_nth((melt_ptr_t)(/*_.SUBPATUP__V5*/ meltfptr[4]), /*_#PIX__L1*/ meltfnum[0]); + long cit1__EACHTUP_ln = melt_multiple_length((melt_ptr_t)/*_.DISJTUP__V5*/ meltfptr[4]); + for (/*_#DIX__L1*/ meltfnum[0] = 0; + (/*_#DIX__L1*/ meltfnum[0] >= 0) && (/*_#DIX__L1*/ meltfnum[0] < cit1__EACHTUP_ln); + /*_#DIX__L1*/ meltfnum[0]++) { + /*_.CURDISJ__V6*/ meltfptr[5] = melt_multiple_nth((melt_ptr_t)(/*_.DISJTUP__V5*/ meltfptr[4]), /*_#DIX__L1*/ meltfnum[0]); - MELT_LOCATION("warmelt-normatch.melt:2585:/ apply"); + MELT_LOCATION("warmelt-normatch.melt:2646:/ apply"); /*apply*/{ union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].bp_aptr = (melt_ptr_t*) &/*_.CTX__V4*/ meltfptr[3]; - /*_.FUN__V7*/ meltfptr[6] = melt_apply ((meltclosure_ptr_t)(/*_.FUN__V3*/ meltfptr[2]), (melt_ptr_t)(/*_.CURPA__V6*/ meltfptr[5]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.FUN__V7*/ meltfptr[6] = melt_apply ((meltclosure_ptr_t)(/*_.FUN__V3*/ meltfptr[2]), (melt_ptr_t)(/*_.CURDISJ__V6*/ meltfptr[5]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - if (/*_#PIX__L1*/ meltfnum[0]<0) break; + if (/*_#DIX__L1*/ meltfnum[0]<0) break; } /* end cit1__EACHTUP */ /*citerepilog*/ - MELT_LOCATION("warmelt-normatch.melt:2582:/ clear"); - /*clear*/ /*_.CURPA__V6*/ meltfptr[5] = 0 ; + MELT_LOCATION("warmelt-normatch.melt:2643:/ clear"); + /*clear*/ /*_.CURDISJ__V6*/ meltfptr[5] = 0 ; /*^clear*/ - /*clear*/ /*_#PIX__L1*/ meltfnum[0] = 0 ; + /*clear*/ /*_#DIX__L1*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.FUN__V7*/ meltfptr[6] = 0 ;} /*endciterblock FOREACH_IN_MULTIPLE*/ ; - MELT_LOCATION("warmelt-normatch.melt:2581:/ clear"); - /*clear*/ /*_.SUBPATUP__V5*/ meltfptr[4] = 0 ; + MELT_LOCATION("warmelt-normatch.melt:2642:/ clear"); + /*clear*/ /*_.DISJTUP__V5*/ meltfptr[4] = 0 ; /*epilog*/ } ; goto labend_rout; labend_rout: -melt_trace_end("SCANSUBPAT_CONSTRUCT", meltcallcount); melt_topframe = (struct callframe_melt_st*) meltfram__.prev; +melt_trace_end("SCANSUBPAT_OR", meltcallcount); melt_topframe = (struct callframe_melt_st*) meltfram__.prev; return (melt_ptr_t)(/*noretval*/ NULL); #undef meltcallcount #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR -} /*end meltrout_51_warmelt_normatch_SCANSUBPAT_CONSTRUCT*/ +} /*end meltrout_50_warmelt_normatch_SCANSUBPAT_OR*/ melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_52_warmelt_normatch_SCANSUBPAT_OBJECT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, +meltrout_51_warmelt_normatch_SCANSUBPAT_AND(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_) { #if ENABLE_CHECKING @@ -19798,17 +20149,17 @@ meltrout_52_warmelt_normatch_SCANSUBPAT_OBJECT(meltclosure_ptr_t closp_, melt_pt #define meltcallcount 0L #endif - struct frame_meltrout_52_warmelt_normatch_SCANSUBPAT_OBJECT_st { unsigned nbvar; + struct frame_meltrout_51_warmelt_normatch_SCANSUBPAT_AND_st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct meltclosure_st *clos; struct excepth_melt_st *exh; struct callframe_melt_st *prev; -#define MELTFRAM_NBVARPTR 9 - void* varptr[9]; -#define MELTFRAM_NBVARNUM 2 - long varnum[2]; +#define MELTFRAM_NBVARPTR 7 + void* varptr[7]; +#define MELTFRAM_NBVARNUM 1 + long varnum[1]; /*others*/ long _spare_; } *framptr_=0, meltframe; @@ -19817,21 +20168,21 @@ meltrout_52_warmelt_normatch_SCANSUBPAT_OBJECT(meltclosure_ptr_t closp_, melt_pt int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_melt_un (framptr_->clos); - for(ix=0; ix<9; ix++) + for(ix=0; ix<7; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_melt_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&meltfram__, 0, sizeof(meltfram__)); - meltfram__.nbvar = 9; + meltfram__.nbvar = 7; meltfram__.clos = closp_; meltfram__.prev = (struct callframe_melt_st *) melt_topframe; melt_topframe = (struct callframe_melt_st *) &meltfram__; -melt_trace_start("SCANSUBPAT_OBJECT", meltcallcount); +melt_trace_start("SCANSUBPAT_AND", meltcallcount); /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-normatch.melt:2588:/ getarg"); + MELT_LOCATION("warmelt-normatch.melt:2649:/ getarg"); /*_.RECV__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; /*getarg#1*/ @@ -19854,94 +20205,67 @@ lab_endgetargs:; /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-normatch.melt:2589:/ quasiblock"); + MELT_LOCATION("warmelt-normatch.melt:2650:/ quasiblock"); /*^getslot*/ { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), 3, "SPAT_FIELDS");/*_.PATFIELTUP__V5*/ meltfptr[4] = slot; }; + melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), 2, "ANDPAT_CONJ");/*_.CONJTUP__V5*/ meltfptr[4] = slot; }; ; /*citerblock FOREACH_IN_MULTIPLE*/ { /* start cit1__EACHTUP: */ - long cit1__EACHTUP_ln = melt_multiple_length((melt_ptr_t)/*_.PATFIELTUP__V5*/ meltfptr[4]); - for (/*_#FLIX__L1*/ meltfnum[0] = 0; - (/*_#FLIX__L1*/ meltfnum[0] >= 0) && (/*_#FLIX__L1*/ meltfnum[0] < cit1__EACHTUP_ln); - /*_#FLIX__L1*/ meltfnum[0]++) { - /*_.CURPATFLD__V6*/ meltfptr[5] = melt_multiple_nth((melt_ptr_t)(/*_.PATFIELTUP__V5*/ meltfptr[4]), /*_#FLIX__L1*/ meltfnum[0]); + long cit1__EACHTUP_ln = melt_multiple_length((melt_ptr_t)/*_.CONJTUP__V5*/ meltfptr[4]); + for (/*_#CIX__L1*/ meltfnum[0] = 0; + (/*_#CIX__L1*/ meltfnum[0] >= 0) && (/*_#CIX__L1*/ meltfnum[0] < cit1__EACHTUP_ln); + /*_#CIX__L1*/ meltfnum[0]++) { + /*_.CURCONJ__V6*/ meltfptr[5] = melt_multiple_nth((melt_ptr_t)(/*_.CONJTUP__V5*/ meltfptr[4]), /*_#CIX__L1*/ meltfnum[0]); - /*_#IS_A__L2*/ meltfnum[1] = - melt_is_instance_of((melt_ptr_t)(/*_.CURPATFLD__V6*/ meltfptr[5]), (melt_ptr_t)((/*!CLASS_SOURCE_FIELD_PATTERN*/ meltfrout->tabval[0])));; - MELT_LOCATION("warmelt-normatch.melt:2593:/ cond"); - /*cond*/ if (/*_#IS_A__L2*/ meltfnum[1]) /*then*/ { - /*^cond.then*/ - /*^block*/ - /*anyblock*/{ - - MELT_LOCATION("warmelt-normatch.melt:2594:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.CURPATFLD__V6*/ meltfptr[5]), 3, "SPAF_PATTERN");/*_.SPAF_PATTERN__V8*/ meltfptr[7] = slot; }; - ; - /*^apply*/ - /*apply*/{ - union meltparam_un argtab[1]; - memset(&argtab, 0, sizeof(argtab)); - /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.CTX__V4*/ meltfptr[3]; - /*_.FUN__V9*/ meltfptr[8] = melt_apply ((meltclosure_ptr_t)(/*_.FUN__V3*/ meltfptr[2]), (melt_ptr_t)(/*_.SPAF_PATTERN__V8*/ meltfptr[7]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IF___V7*/ meltfptr[6] = /*_.FUN__V9*/ meltfptr[8];; - /*epilog*/ - - MELT_LOCATION("warmelt-normatch.melt:2593:/ clear"); - /*clear*/ /*_.SPAF_PATTERN__V8*/ meltfptr[7] = 0 ; - /*^clear*/ - /*clear*/ /*_.FUN__V9*/ meltfptr[8] = 0 ;} - ; - } else {/*^cond.else*/ - - /*_.IF___V7*/ meltfptr[6] = NULL;; + MELT_LOCATION("warmelt-normatch.melt:2654:/ apply"); + /*apply*/{ + union meltparam_un argtab[1]; + memset(&argtab, 0, sizeof(argtab)); + /*^apply.arg*/ + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.CTX__V4*/ meltfptr[3]; + /*_.FUN__V7*/ meltfptr[6] = melt_apply ((meltclosure_ptr_t)(/*_.FUN__V3*/ meltfptr[2]), (melt_ptr_t)(/*_.CURCONJ__V6*/ meltfptr[5]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - if (/*_#FLIX__L1*/ meltfnum[0]<0) break; + if (/*_#CIX__L1*/ meltfnum[0]<0) break; } /* end cit1__EACHTUP */ /*citerepilog*/ - MELT_LOCATION("warmelt-normatch.melt:2590:/ clear"); - /*clear*/ /*_.CURPATFLD__V6*/ meltfptr[5] = 0 ; - /*^clear*/ - /*clear*/ /*_#FLIX__L1*/ meltfnum[0] = 0 ; + MELT_LOCATION("warmelt-normatch.melt:2651:/ clear"); + /*clear*/ /*_.CURCONJ__V6*/ meltfptr[5] = 0 ; /*^clear*/ - /*clear*/ /*_#IS_A__L2*/ meltfnum[1] = 0 ; + /*clear*/ /*_#CIX__L1*/ meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_.IF___V7*/ meltfptr[6] = 0 ;} /*endciterblock FOREACH_IN_MULTIPLE*/ + /*clear*/ /*_.FUN__V7*/ meltfptr[6] = 0 ;} /*endciterblock FOREACH_IN_MULTIPLE*/ ; - MELT_LOCATION("warmelt-normatch.melt:2589:/ clear"); - /*clear*/ /*_.PATFIELTUP__V5*/ meltfptr[4] = 0 ; + MELT_LOCATION("warmelt-normatch.melt:2650:/ clear"); + /*clear*/ /*_.CONJTUP__V5*/ meltfptr[4] = 0 ; /*epilog*/ } ; goto labend_rout; labend_rout: -melt_trace_end("SCANSUBPAT_OBJECT", meltcallcount); melt_topframe = (struct callframe_melt_st*) meltfram__.prev; +melt_trace_end("SCANSUBPAT_AND", meltcallcount); melt_topframe = (struct callframe_melt_st*) meltfram__.prev; return (melt_ptr_t)(/*noretval*/ NULL); #undef meltcallcount #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR -} /*end meltrout_52_warmelt_normatch_SCANSUBPAT_OBJECT*/ +} /*end meltrout_51_warmelt_normatch_SCANSUBPAT_AND*/ melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_53_warmelt_normatch_SCANSUBPAT_COMPOSITE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, +meltrout_52_warmelt_normatch_SCANSUBPAT_CONSTRUCT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_) { #if ENABLE_CHECKING @@ -19954,7 +20278,7 @@ meltrout_53_warmelt_normatch_SCANSUBPAT_COMPOSITE(meltclosure_ptr_t closp_, melt #define meltcallcount 0L #endif - struct frame_meltrout_53_warmelt_normatch_SCANSUBPAT_COMPOSITE_st { unsigned nbvar; + struct frame_meltrout_52_warmelt_normatch_SCANSUBPAT_CONSTRUCT_st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif @@ -19983,11 +20307,11 @@ meltrout_53_warmelt_normatch_SCANSUBPAT_COMPOSITE(meltclosure_ptr_t closp_, melt meltfram__.clos = closp_; meltfram__.prev = (struct callframe_melt_st *) melt_topframe; melt_topframe = (struct callframe_melt_st *) &meltfram__; -melt_trace_start("SCANSUBPAT_COMPOSITE", meltcallcount); +melt_trace_start("SCANSUBPAT_CONSTRUCT", meltcallcount); /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-normatch.melt:2597:/ getarg"); + MELT_LOCATION("warmelt-normatch.melt:2658:/ getarg"); /*_.RECV__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; /*getarg#1*/ @@ -20010,67 +20334,67 @@ lab_endgetargs:; /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-normatch.melt:2598:/ quasiblock"); + MELT_LOCATION("warmelt-normatch.melt:2659:/ quasiblock"); /*^getslot*/ { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), 7, "SPAC_OUTARGS");/*_.OUTUP__V5*/ meltfptr[4] = slot; }; + melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), 2, "CTPAT_SUBPA");/*_.SUBPATUP__V5*/ meltfptr[4] = slot; }; ; /*citerblock FOREACH_IN_MULTIPLE*/ { /* start cit1__EACHTUP: */ - long cit1__EACHTUP_ln = melt_multiple_length((melt_ptr_t)/*_.OUTUP__V5*/ meltfptr[4]); - for (/*_#OIX__L1*/ meltfnum[0] = 0; - (/*_#OIX__L1*/ meltfnum[0] >= 0) && (/*_#OIX__L1*/ meltfnum[0] < cit1__EACHTUP_ln); - /*_#OIX__L1*/ meltfnum[0]++) { - /*_.CUROUT__V6*/ meltfptr[5] = melt_multiple_nth((melt_ptr_t)(/*_.OUTUP__V5*/ meltfptr[4]), /*_#OIX__L1*/ meltfnum[0]); + long cit1__EACHTUP_ln = melt_multiple_length((melt_ptr_t)/*_.SUBPATUP__V5*/ meltfptr[4]); + for (/*_#PIX__L1*/ meltfnum[0] = 0; + (/*_#PIX__L1*/ meltfnum[0] >= 0) && (/*_#PIX__L1*/ meltfnum[0] < cit1__EACHTUP_ln); + /*_#PIX__L1*/ meltfnum[0]++) { + /*_.CURPA__V6*/ meltfptr[5] = melt_multiple_nth((melt_ptr_t)(/*_.SUBPATUP__V5*/ meltfptr[4]), /*_#PIX__L1*/ meltfnum[0]); - MELT_LOCATION("warmelt-normatch.melt:2602:/ apply"); + MELT_LOCATION("warmelt-normatch.melt:2663:/ apply"); /*apply*/{ union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].bp_aptr = (melt_ptr_t*) &/*_.CTX__V4*/ meltfptr[3]; - /*_.FUN__V7*/ meltfptr[6] = melt_apply ((meltclosure_ptr_t)(/*_.FUN__V3*/ meltfptr[2]), (melt_ptr_t)(/*_.CUROUT__V6*/ meltfptr[5]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.FUN__V7*/ meltfptr[6] = melt_apply ((meltclosure_ptr_t)(/*_.FUN__V3*/ meltfptr[2]), (melt_ptr_t)(/*_.CURPA__V6*/ meltfptr[5]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - if (/*_#OIX__L1*/ meltfnum[0]<0) break; + if (/*_#PIX__L1*/ meltfnum[0]<0) break; } /* end cit1__EACHTUP */ /*citerepilog*/ - MELT_LOCATION("warmelt-normatch.melt:2599:/ clear"); - /*clear*/ /*_.CUROUT__V6*/ meltfptr[5] = 0 ; + MELT_LOCATION("warmelt-normatch.melt:2660:/ clear"); + /*clear*/ /*_.CURPA__V6*/ meltfptr[5] = 0 ; /*^clear*/ - /*clear*/ /*_#OIX__L1*/ meltfnum[0] = 0 ; + /*clear*/ /*_#PIX__L1*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.FUN__V7*/ meltfptr[6] = 0 ;} /*endciterblock FOREACH_IN_MULTIPLE*/ ; - MELT_LOCATION("warmelt-normatch.melt:2598:/ clear"); - /*clear*/ /*_.OUTUP__V5*/ meltfptr[4] = 0 ; + MELT_LOCATION("warmelt-normatch.melt:2659:/ clear"); + /*clear*/ /*_.SUBPATUP__V5*/ meltfptr[4] = 0 ; /*epilog*/ } ; goto labend_rout; labend_rout: -melt_trace_end("SCANSUBPAT_COMPOSITE", meltcallcount); melt_topframe = (struct callframe_melt_st*) meltfram__.prev; +melt_trace_end("SCANSUBPAT_CONSTRUCT", meltcallcount); melt_topframe = (struct callframe_melt_st*) meltfram__.prev; return (melt_ptr_t)(/*noretval*/ NULL); #undef meltcallcount #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR -} /*end meltrout_53_warmelt_normatch_SCANSUBPAT_COMPOSITE*/ +} /*end meltrout_52_warmelt_normatch_SCANSUBPAT_CONSTRUCT*/ melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_54_warmelt_normatch_FILL_MATCHCASE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, +meltrout_53_warmelt_normatch_SCANSUBPAT_OBJECT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_) { #if ENABLE_CHECKING @@ -20083,17 +20407,17 @@ meltrout_54_warmelt_normatch_FILL_MATCHCASE(meltclosure_ptr_t closp_, melt_ptr_t #define meltcallcount 0L #endif - struct frame_meltrout_54_warmelt_normatch_FILL_MATCHCASE_st { unsigned nbvar; + struct frame_meltrout_53_warmelt_normatch_SCANSUBPAT_OBJECT_st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct meltclosure_st *clos; struct excepth_melt_st *exh; struct callframe_melt_st *prev; -#define MELTFRAM_NBVARPTR 16 - void* varptr[16]; -#define MELTFRAM_NBVARNUM 3 - long varnum[3]; +#define MELTFRAM_NBVARPTR 9 + void* varptr[9]; +#define MELTFRAM_NBVARNUM 2 + long varnum[2]; /*others*/ long _spare_; } *framptr_=0, meltframe; @@ -20102,28 +20426,35 @@ meltrout_54_warmelt_normatch_FILL_MATCHCASE(meltclosure_ptr_t closp_, melt_ptr_t int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_melt_un (framptr_->clos); - for(ix=0; ix<16; ix++) + for(ix=0; ix<9; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_melt_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&meltfram__, 0, sizeof(meltfram__)); - meltfram__.nbvar = 16; + meltfram__.nbvar = 9; meltfram__.clos = closp_; meltfram__.prev = (struct callframe_melt_st *) melt_topframe; melt_topframe = (struct callframe_melt_st *) &meltfram__; -melt_trace_start("FILL_MATCHCASE", meltcallcount); +melt_trace_start("SCANSUBPAT_OBJECT", meltcallcount); /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-normatch.melt:2606:/ getarg"); - /*_.CURMCASE__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; + MELT_LOCATION("warmelt-normatch.melt:2666:/ getarg"); + /*_.RECV__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; /*getarg#1*/ /*^getarg*/ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; - /*_.SLOC__V3*/ meltfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.SLOC__V3*/ meltfptr[2])) != NULL); + /*_.FUN__V3*/ meltfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; + gcc_assert(melt_discr((melt_ptr_t)(/*_.FUN__V3*/ meltfptr[2])) != NULL); + + + /*getarg#2*/ + /*^getarg*/ + if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; + /*_.CTX__V4*/ meltfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; + gcc_assert(melt_discr((melt_ptr_t)(/*_.CTX__V4*/ meltfptr[3])) != NULL); ; goto lab_endgetargs; @@ -20132,240 +20463,94 @@ lab_endgetargs:; /*^block*/ /*anyblock*/{ - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normatch.melt:2607:/ cppif.then"); - /*^block*/ - /*anyblock*/{ - - /*_#THE_MELTCALLCOUNT__L1*/ meltfnum[0] = - meltcallcount;; - MELT_LOCATION("warmelt-normatch.melt:2607:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - /*^apply.arg*/ - argtab[0].bp_cstring = "fill_matchcase curmcase"; - /*^apply.arg*/ - argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L1*/ meltfnum[0]; - /*^apply.arg*/ - argtab[2].bp_cstring = "warmelt-normatch.melt"; - /*^apply.arg*/ - argtab[3].bp_long = 2607; - /*_.DEBUG_MSG_FUN__V5*/ meltfptr[4] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.CURMCASE__V2*/ meltfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V4*/ meltfptr[3] = /*_.DEBUG_MSG_FUN__V5*/ meltfptr[4];; - /*epilog*/ - - MELT_LOCATION("warmelt-normatch.melt:2607:/ clear"); - /*clear*/ /*_#THE_MELTCALLCOUNT__L1*/ meltfnum[0] = 0 ; - /*^clear*/ - /*clear*/ /*_.DEBUG_MSG_FUN__V5*/ meltfptr[4] = 0 ;} - - #else /*ENABLE_CHECKING*/ - /*^cppif.else*/ - /*_.IFCPP___V4*/ meltfptr[3] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normatch.melt:2608:/ cppif.then"); - /*^block*/ - /*anyblock*/{ - - /*_#IS_A__L2*/ meltfnum[0] = - melt_is_instance_of((melt_ptr_t)(/*_.CURMCASE__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_MATCH_CASE*/ meltfrout->tabval[1])));; - MELT_LOCATION("warmelt-normatch.melt:2608:/ cond"); - /*cond*/ if (/*_#IS_A__L2*/ meltfnum[0]) /*then*/ { - /*^cond.then*/ - /*_.IFELSE___V7*/ meltfptr[6] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normatch.melt:2608:/ cond.else"); - - /*^block*/ - /*anyblock*/{ - - - - - { - /*^locexp*/ - melt_assert_failed(( "check curmcase"),( "warmelt-normatch.melt")?( "warmelt-normatch.melt"):__FILE__, - (2608)?(2608):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V7*/ meltfptr[6] = 0 ; - /*epilog*/ - } - ; - } - ; - /*^compute*/ - - /*_.IFCPP___V6*/ meltfptr[4] = /*_.IFELSE___V7*/ meltfptr[6];; - /*epilog*/ - - MELT_LOCATION("warmelt-normatch.melt:2608:/ clear"); - /*clear*/ /*_#IS_A__L2*/ meltfnum[0] = 0 ; - /*^clear*/ - /*clear*/ /*_.IFELSE___V7*/ meltfptr[6] = 0 ;} - - #else /*ENABLE_CHECKING*/ - /*^cppif.else*/ - /*_.IFCPP___V6*/ meltfptr[4] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - MELT_LOCATION("warmelt-normatch.melt:2609:/ quasiblock"); + MELT_LOCATION("warmelt-normatch.melt:2667:/ quasiblock"); - /*_.OURPATVARMAP__V8*/ meltfptr[6] = - (meltgc_new_mapobjects( (meltobject_ptr_t) ((/*!DISCR_MAP_OBJECTS*/ meltfrout->tabval[2])), (17)));; - MELT_LOCATION("warmelt-normatch.melt:2611:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.CURMCASE__V2*/ meltfptr[1]), 2, "MCASE_SOURCE");/*_.CURSCAS__V9*/ meltfptr[8] = slot; }; - ; - MELT_LOCATION("warmelt-normatch.melt:2612:/ getslot"); + /*^getslot*/ { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.CURSCAS__V9*/ meltfptr[8]), 2, "SCAM_PATT");/*_.CURPAT__V10*/ meltfptr[9] = slot; }; + melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), 3, "SPAT_FIELDS");/*_.PATFIELTUP__V5*/ meltfptr[4] = slot; }; ; - MELT_LOCATION("warmelt-normatch.melt:2614:/ blockmultialloc"); - /*multiallocblock*/{ - struct meltletrec_1_st { - struct MELT_CLOSURE_STRUCT(0) rclo_0__VARPATSCANNER; long meltletrec_1_endgap; } *meltletrec_1_ptr = 0; - meltletrec_1_ptr = (struct meltletrec_1_st *) meltgc_allocate (sizeof (struct meltletrec_1_st), 0); - /*^blockmultialloc.initfill*/ - /*iniclos rclo_0__VARPATSCANNER*/ - /*_.VARPATSCANNER__V12*/ meltfptr[11] = (void*)&meltletrec_1_ptr->rclo_0__VARPATSCANNER; - meltletrec_1_ptr->rclo_0__VARPATSCANNER.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); - meltletrec_1_ptr->rclo_0__VARPATSCANNER.nbval = 0; - meltletrec_1_ptr->rclo_0__VARPATSCANNER.rout = (meltroutine_ptr_t) ((/*!konst_6*/ meltfrout->tabval[6])); + /*citerblock FOREACH_IN_MULTIPLE*/ { + /* start cit1__EACHTUP: */ + long cit1__EACHTUP_ln = melt_multiple_length((melt_ptr_t)/*_.PATFIELTUP__V5*/ meltfptr[4]); + for (/*_#FLIX__L1*/ meltfnum[0] = 0; + (/*_#FLIX__L1*/ meltfnum[0] >= 0) && (/*_#FLIX__L1*/ meltfnum[0] < cit1__EACHTUP_ln); + /*_#FLIX__L1*/ meltfnum[0]++) { + /*_.CURPATFLD__V6*/ meltfptr[5] = melt_multiple_nth((melt_ptr_t)(/*_.PATFIELTUP__V5*/ meltfptr[4]), /*_#FLIX__L1*/ meltfnum[0]); + + /*_#IS_A__L2*/ meltfnum[1] = + melt_is_instance_of((melt_ptr_t)(/*_.CURPATFLD__V6*/ meltfptr[5]), (melt_ptr_t)((/*!CLASS_SOURCE_FIELD_PATTERN*/ meltfrout->tabval[0])));; + MELT_LOCATION("warmelt-normatch.melt:2671:/ cond"); + /*cond*/ if (/*_#IS_A__L2*/ meltfnum[1]) /*then*/ { + /*^cond.then*/ + /*^block*/ + /*anyblock*/{ + + MELT_LOCATION("warmelt-normatch.melt:2672:/ getslot"); + { melt_ptr_t slot=0; + melt_object_get_field(slot,(melt_ptr_t)(/*_.CURPATFLD__V6*/ meltfptr[5]), 3, "SPAF_PATTERN");/*_.SPAF_PATTERN__V8*/ meltfptr[7] = slot; }; + ; + /*^apply*/ + /*apply*/{ + union meltparam_un argtab[1]; + memset(&argtab, 0, sizeof(argtab)); + /*^apply.arg*/ + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.CTX__V4*/ meltfptr[3]; + /*_.FUN__V9*/ meltfptr[8] = melt_apply ((meltclosure_ptr_t)(/*_.FUN__V3*/ meltfptr[2]), (melt_ptr_t)(/*_.SPAF_PATTERN__V8*/ meltfptr[7]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + } + ; + /*_.IF___V7*/ meltfptr[6] = /*_.FUN__V9*/ meltfptr[8];; + /*epilog*/ + + MELT_LOCATION("warmelt-normatch.melt:2671:/ clear"); + /*clear*/ /*_.SPAF_PATTERN__V8*/ meltfptr[7] = 0 ; + /*^clear*/ + /*clear*/ /*_.FUN__V9*/ meltfptr[8] = 0 ;} + ; + } else {/*^cond.else*/ - MELT_LOCATION("warmelt-normatch.melt:2616:/ putclosurout"); - /*putclosurout*/ - melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VARPATSCANNER__V12*/ meltfptr[11])) == OBMAG_CLOSURE); - melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)((/*!konst_6*/ meltfrout->tabval[6]))) == OBMAG_ROUTINE); - ((meltclosure_ptr_t)/*_.VARPATSCANNER__V12*/ meltfptr[11])->rout = (meltroutine_ptr_t) ((/*!konst_6*/ meltfrout->tabval[6])); - ; - /*^touch*/ - meltgc_touch(/*_.VARPATSCANNER__V12*/ meltfptr[11]); - ; - MELT_LOCATION("warmelt-normatch.melt:2631:/ apply"); - /*apply*/{ - union meltparam_un argtab[1]; - memset(&argtab, 0, sizeof(argtab)); - /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.OURPATVARMAP__V8*/ meltfptr[6]; - /*_.VARPATSCANNER__V13*/ meltfptr[12] = melt_apply ((meltclosure_ptr_t)(/*_.VARPATSCANNER__V12*/ meltfptr[11]), (melt_ptr_t)(/*_.CURPAT__V10*/ meltfptr[9]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; - MELT_LOCATION("warmelt-normatch.melt:2632:/ msend"); - /*msend*/{ - union meltparam_un argtab[2]; - memset(&argtab, 0, sizeof(argtab)); - /*^ojbmsend.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VARPATSCANNER__V12*/ meltfptr[11]; - /*^ojbmsend.arg*/ - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.OURPATVARMAP__V8*/ meltfptr[6]; - /*_.SCAN_SUBPATTERNS__V14*/ meltfptr[13] = meltgc_send((melt_ptr_t)(/*_.CURPAT__V10*/ meltfptr[9]), (melt_ptr_t)((/*!SCAN_SUBPATTERNS*/ meltfrout->tabval[7])), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.IF___V7*/ meltfptr[6] = NULL;; } ; - /*_.LETREC___V11*/ meltfptr[10] = /*_.SCAN_SUBPATTERNS__V14*/ meltfptr[13];; - /*epilog*/ + if (/*_#FLIX__L1*/ meltfnum[0]<0) break; + } /* end cit1__EACHTUP */ + + /*citerepilog*/ - MELT_LOCATION("warmelt-normatch.melt:2614:/ clear"); - /*clear*/ /*_.VARPATSCANNER__V12*/ meltfptr[11] = 0 ; + MELT_LOCATION("warmelt-normatch.melt:2668:/ clear"); + /*clear*/ /*_.CURPATFLD__V6*/ meltfptr[5] = 0 ; /*^clear*/ - /*clear*/ /*_.VARPATSCANNER__V12*/ meltfptr[11] = 0 ; + /*clear*/ /*_#FLIX__L1*/ meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_.VARPATSCANNER__V13*/ meltfptr[12] = 0 ; + /*clear*/ /*_#IS_A__L2*/ meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_.SCAN_SUBPATTERNS__V14*/ meltfptr[13] = 0 ;} /*end multiallocblock*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normatch.melt:2634:/ cppif.then"); - /*^block*/ - /*anyblock*/{ - - /*_#THE_MELTCALLCOUNT__L3*/ meltfnum[0] = - meltcallcount;; - MELT_LOCATION("warmelt-normatch.melt:2634:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - /*^apply.arg*/ - argtab[0].bp_cstring = "fill_matchcase ourpatvarmap"; - /*^apply.arg*/ - argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L3*/ meltfnum[0]; - /*^apply.arg*/ - argtab[2].bp_cstring = "warmelt-normatch.melt"; - /*^apply.arg*/ - argtab[3].bp_long = 2634; - /*_.DEBUG_MSG_FUN__V16*/ meltfptr[12] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.OURPATVARMAP__V8*/ meltfptr[6]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V15*/ meltfptr[11] = /*_.DEBUG_MSG_FUN__V16*/ meltfptr[12];; - /*epilog*/ - - MELT_LOCATION("warmelt-normatch.melt:2634:/ clear"); - /*clear*/ /*_#THE_MELTCALLCOUNT__L3*/ meltfnum[0] = 0 ; - /*^clear*/ - /*clear*/ /*_.DEBUG_MSG_FUN__V16*/ meltfptr[12] = 0 ;} - - #else /*ENABLE_CHECKING*/ - /*^cppif.else*/ - /*_.IFCPP___V15*/ meltfptr[11] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - MELT_LOCATION("warmelt-normatch.melt:2635:/ quasiblock"); - - - /*^putslot*/ - /*putslot*/ - melt_assertmsg("putslot checkobj @MCASE_VARMAP", melt_magic_discr((melt_ptr_t)(/*_.CURMCASE__V2*/ meltfptr[1])) == OBMAG_OBJECT); - melt_putfield_object((/*_.CURMCASE__V2*/ meltfptr[1]), (4), (/*_.OURPATVARMAP__V8*/ meltfptr[6]), "MCASE_VARMAP"); - ; - /*^touch*/ - meltgc_touch(/*_.CURMCASE__V2*/ meltfptr[1]); + /*clear*/ /*_.IF___V7*/ meltfptr[6] = 0 ;} /*endciterblock FOREACH_IN_MULTIPLE*/ ; - - MELT_LOCATION("warmelt-normatch.melt:2609:/ clear"); - /*clear*/ /*_.OURPATVARMAP__V8*/ meltfptr[6] = 0 ; - /*^clear*/ - /*clear*/ /*_.CURSCAS__V9*/ meltfptr[8] = 0 ; - /*^clear*/ - /*clear*/ /*_.CURPAT__V10*/ meltfptr[9] = 0 ; - /*^clear*/ - /*clear*/ /*_.LETREC___V11*/ meltfptr[10] = 0 ; - /*^clear*/ - /*clear*/ /*_.IFCPP___V15*/ meltfptr[11] = 0 ; + MELT_LOCATION("warmelt-normatch.melt:2667:/ clear"); + /*clear*/ /*_.PATFIELTUP__V5*/ meltfptr[4] = 0 ; /*epilog*/ - - MELT_LOCATION("warmelt-normatch.melt:2606:/ clear"); - /*clear*/ /*_.IFCPP___V4*/ meltfptr[3] = 0 ; - /*^clear*/ - /*clear*/ /*_.IFCPP___V6*/ meltfptr[4] = 0 ;} + } ; goto labend_rout; labend_rout: -melt_trace_end("FILL_MATCHCASE", meltcallcount); melt_topframe = (struct callframe_melt_st*) meltfram__.prev; +melt_trace_end("SCANSUBPAT_OBJECT", meltcallcount); melt_topframe = (struct callframe_melt_st*) meltfram__.prev; return (melt_ptr_t)(/*noretval*/ NULL); #undef meltcallcount #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR -} /*end meltrout_54_warmelt_normatch_FILL_MATCHCASE*/ +} /*end meltrout_53_warmelt_normatch_SCANSUBPAT_OBJECT*/ melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_55_warmelt_normatch_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, +meltrout_54_warmelt_normatch_SCANSUBPAT_COMPOSITE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_) { #if ENABLE_CHECKING @@ -20378,17 +20563,17 @@ meltrout_55_warmelt_normatch_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firsta #define meltcallcount 0L #endif - struct frame_meltrout_55_warmelt_normatch_LAMBDA__st { unsigned nbvar; + struct frame_meltrout_54_warmelt_normatch_SCANSUBPAT_COMPOSITE_st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct meltclosure_st *clos; struct excepth_melt_st *exh; struct callframe_melt_st *prev; -#define MELTFRAM_NBVARPTR 9 - void* varptr[9]; -#define MELTFRAM_NBVARNUM 3 - long varnum[3]; +#define MELTFRAM_NBVARPTR 7 + void* varptr[7]; +#define MELTFRAM_NBVARNUM 1 + long varnum[1]; /*others*/ long _spare_; } *framptr_=0, meltframe; @@ -20397,28 +20582,35 @@ meltrout_55_warmelt_normatch_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firsta int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_melt_un (framptr_->clos); - for(ix=0; ix<9; ix++) + for(ix=0; ix<7; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_melt_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&meltfram__, 0, sizeof(meltfram__)); - meltfram__.nbvar = 9; + meltfram__.nbvar = 7; meltfram__.clos = closp_; meltfram__.prev = (struct callframe_melt_st *) melt_topframe; melt_topframe = (struct callframe_melt_st *) &meltfram__; -melt_trace_start("LAMBDA_", meltcallcount); +melt_trace_start("SCANSUBPAT_COMPOSITE", meltcallcount); /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-normatch.melt:2616:/ getarg"); - /*_.PAT__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; + MELT_LOCATION("warmelt-normatch.melt:2675:/ getarg"); + /*_.RECV__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; /*getarg#1*/ /*^getarg*/ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; - /*_.PATVARMAP__V3*/ meltfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.PATVARMAP__V3*/ meltfptr[2])) != NULL); + /*_.FUN__V3*/ meltfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; + gcc_assert(melt_discr((melt_ptr_t)(/*_.FUN__V3*/ meltfptr[2])) != NULL); + + + /*getarg#2*/ + /*^getarg*/ + if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; + /*_.CTX__V4*/ meltfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; + gcc_assert(melt_discr((melt_ptr_t)(/*_.CTX__V4*/ meltfptr[3])) != NULL); ; goto lab_endgetargs; @@ -20427,135 +20619,67 @@ lab_endgetargs:; /*^block*/ /*anyblock*/{ + MELT_LOCATION("warmelt-normatch.melt:2676:/ quasiblock"); - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normatch.melt:2617:/ cppif.then"); - /*^block*/ - /*anyblock*/{ - - /*_#THE_MELTCALLCOUNT__L1*/ meltfnum[0] = - meltcallcount;; - MELT_LOCATION("warmelt-normatch.melt:2617:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - /*^apply.arg*/ - argtab[0].bp_cstring = "fill_matchcase/varpatscanner pat"; - /*^apply.arg*/ - argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L1*/ meltfnum[0]; - /*^apply.arg*/ - argtab[2].bp_cstring = "warmelt-normatch.melt"; - /*^apply.arg*/ - argtab[3].bp_long = 2617; - /*_.DEBUG_MSG_FUN__V5*/ meltfptr[4] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.PAT__V2*/ meltfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V4*/ meltfptr[3] = /*_.DEBUG_MSG_FUN__V5*/ meltfptr[4];; - /*epilog*/ + + /*^getslot*/ + { melt_ptr_t slot=0; + melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), 7, "SPAC_OUTARGS");/*_.OUTUP__V5*/ meltfptr[4] = slot; }; + ; + /*citerblock FOREACH_IN_MULTIPLE*/ { + /* start cit1__EACHTUP: */ + long cit1__EACHTUP_ln = melt_multiple_length((melt_ptr_t)/*_.OUTUP__V5*/ meltfptr[4]); + for (/*_#OIX__L1*/ meltfnum[0] = 0; + (/*_#OIX__L1*/ meltfnum[0] >= 0) && (/*_#OIX__L1*/ meltfnum[0] < cit1__EACHTUP_ln); + /*_#OIX__L1*/ meltfnum[0]++) { + /*_.CUROUT__V6*/ meltfptr[5] = melt_multiple_nth((melt_ptr_t)(/*_.OUTUP__V5*/ meltfptr[4]), /*_#OIX__L1*/ meltfnum[0]); - MELT_LOCATION("warmelt-normatch.melt:2617:/ clear"); - /*clear*/ /*_#THE_MELTCALLCOUNT__L1*/ meltfnum[0] = 0 ; - /*^clear*/ - /*clear*/ /*_.DEBUG_MSG_FUN__V5*/ meltfptr[4] = 0 ;} + - #else /*ENABLE_CHECKING*/ - /*^cppif.else*/ - /*_.IFCPP___V4*/ meltfptr[3] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - /*^compute*/ - - /*_#IS_A__L2*/ meltfnum[0] = - melt_is_instance_of((melt_ptr_t)(/*_.PAT__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_PATTERN_VARIABLE*/ meltfrout->tabval[1])));; - MELT_LOCATION("warmelt-normatch.melt:2618:/ cond"); - /*cond*/ if (/*_#IS_A__L2*/ meltfnum[0]) /*then*/ { - /*^cond.then*/ - /*^block*/ - /*anyblock*/{ - - MELT_LOCATION("warmelt-normatch.melt:2619:/ quasiblock"); - - - MELT_LOCATION("warmelt-normatch.melt:2620:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.PAT__V2*/ meltfptr[1]), 2, "SPATVAR_SYMB");/*_.PVARSYMB__V6*/ meltfptr[4] = slot; }; - ; - /*_.VAROCCLIST__V7*/ meltfptr[6] = - melt_get_mapobjects((meltmapobjects_ptr_t)(/*_.PATVARMAP__V3*/ meltfptr[2]), (meltobject_ptr_t)(/*_.PVARSYMB__V6*/ meltfptr[4]));; - /*^compute*/ - - /*_#NULL__L3*/ meltfnum[2] = - ((/*_.VAROCCLIST__V7*/ meltfptr[6]) == NULL);; - MELT_LOCATION("warmelt-normatch.melt:2623:/ cond"); - /*cond*/ if (/*_#NULL__L3*/ meltfnum[2]) /*then*/ { - /*^cond.then*/ - /*^block*/ - /*anyblock*/{ - - /*_.MAKE_LIST__V8*/ meltfptr[7] = - (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ meltfrout->tabval[2]))));; - MELT_LOCATION("warmelt-normatch.melt:2625:/ compute"); - /*_.VAROCCLIST__V7*/ meltfptr[6] = /*_.SETQ___V9*/ meltfptr[8] = /*_.MAKE_LIST__V8*/ meltfptr[7];; - - { - MELT_LOCATION("warmelt-normatch.melt:2626:/ locexp"); - meltgc_put_mapobjects( (meltmapobjects_ptr_t) (/*_.PATVARMAP__V3*/ meltfptr[2]), - (meltobject_ptr_t) (/*_.PVARSYMB__V6*/ meltfptr[4]), - (melt_ptr_t)(/*_.VAROCCLIST__V7*/ meltfptr[6]));} - ; - MELT_LOCATION("warmelt-normatch.melt:2624:/ quasiblock"); - - - /*epilog*/ - - MELT_LOCATION("warmelt-normatch.melt:2623:/ clear"); - /*clear*/ /*_.MAKE_LIST__V8*/ meltfptr[7] = 0 ; - /*^clear*/ - /*clear*/ /*_.SETQ___V9*/ meltfptr[8] = 0 ;} - ; - } /*noelse*/ - ; - - { - MELT_LOCATION("warmelt-normatch.melt:2627:/ locexp"); - meltgc_append_list((melt_ptr_t)(/*_.VAROCCLIST__V7*/ meltfptr[6]), (melt_ptr_t)(/*_.PAT__V2*/ meltfptr[1]));} - ; - - MELT_LOCATION("warmelt-normatch.melt:2619:/ clear"); - /*clear*/ /*_.PVARSYMB__V6*/ meltfptr[4] = 0 ; - /*^clear*/ - /*clear*/ /*_.VAROCCLIST__V7*/ meltfptr[6] = 0 ; - /*^clear*/ - /*clear*/ /*_#NULL__L3*/ meltfnum[2] = 0 ; - /*epilog*/ + MELT_LOCATION("warmelt-normatch.melt:2680:/ apply"); + /*apply*/{ + union meltparam_un argtab[1]; + memset(&argtab, 0, sizeof(argtab)); + /*^apply.arg*/ + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.CTX__V4*/ meltfptr[3]; + /*_.FUN__V7*/ meltfptr[6] = melt_apply ((meltclosure_ptr_t)(/*_.FUN__V3*/ meltfptr[2]), (melt_ptr_t)(/*_.CUROUT__V6*/ meltfptr[5]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - } /*noelse*/ + if (/*_#OIX__L1*/ meltfnum[0]<0) break; + } /* end cit1__EACHTUP */ + + /*citerepilog*/ + + MELT_LOCATION("warmelt-normatch.melt:2677:/ clear"); + /*clear*/ /*_.CUROUT__V6*/ meltfptr[5] = 0 ; + /*^clear*/ + /*clear*/ /*_#OIX__L1*/ meltfnum[0] = 0 ; + /*^clear*/ + /*clear*/ /*_.FUN__V7*/ meltfptr[6] = 0 ;} /*endciterblock FOREACH_IN_MULTIPLE*/ ; - /*epilog*/ - MELT_LOCATION("warmelt-normatch.melt:2616:/ clear"); - /*clear*/ /*_.IFCPP___V4*/ meltfptr[3] = 0 ; - /*^clear*/ - /*clear*/ /*_#IS_A__L2*/ meltfnum[0] = 0 ;} + MELT_LOCATION("warmelt-normatch.melt:2676:/ clear"); + /*clear*/ /*_.OUTUP__V5*/ meltfptr[4] = 0 ; + /*epilog*/ + } ; goto labend_rout; labend_rout: -melt_trace_end("LAMBDA_", meltcallcount); melt_topframe = (struct callframe_melt_st*) meltfram__.prev; +melt_trace_end("SCANSUBPAT_COMPOSITE", meltcallcount); melt_topframe = (struct callframe_melt_st*) meltfram__.prev; return (melt_ptr_t)(/*noretval*/ NULL); #undef meltcallcount #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR -} /*end meltrout_55_warmelt_normatch_LAMBDA_*/ +} /*end meltrout_54_warmelt_normatch_SCANSUBPAT_COMPOSITE*/ melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_56_warmelt_normatch_START_STEP(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, +meltrout_55_warmelt_normatch_FILL_MATCHCASE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_) { #if ENABLE_CHECKING @@ -20568,17 +20692,17 @@ meltrout_56_warmelt_normatch_START_STEP(meltclosure_ptr_t closp_, melt_ptr_t fir #define meltcallcount 0L #endif - struct frame_meltrout_56_warmelt_normatch_START_STEP_st { unsigned nbvar; + struct frame_meltrout_55_warmelt_normatch_FILL_MATCHCASE_st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct meltclosure_st *clos; struct excepth_melt_st *exh; struct callframe_melt_st *prev; -#define MELTFRAM_NBVARPTR 20 - void* varptr[20]; -#define MELTFRAM_NBVARNUM 7 - long varnum[7]; +#define MELTFRAM_NBVARPTR 16 + void* varptr[16]; +#define MELTFRAM_NBVARNUM 3 + long varnum[3]; /*others*/ long _spare_; } *framptr_=0, meltframe; @@ -20587,22 +20711,29 @@ meltrout_56_warmelt_normatch_START_STEP(meltclosure_ptr_t closp_, melt_ptr_t fir int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_melt_un (framptr_->clos); - for(ix=0; ix<20; ix++) + for(ix=0; ix<16; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_melt_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&meltfram__, 0, sizeof(meltfram__)); - meltfram__.nbvar = 20; + meltfram__.nbvar = 16; meltfram__.clos = closp_; meltfram__.prev = (struct callframe_melt_st *) melt_topframe; melt_topframe = (struct callframe_melt_st *) &meltfram__; -melt_trace_start("START_STEP", meltcallcount); +melt_trace_start("FILL_MATCHCASE", meltcallcount); /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-normatch.melt:2646:/ getarg"); - /*_.STEP__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; + MELT_LOCATION("warmelt-normatch.melt:2684:/ getarg"); + /*_.CURMCASE__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; + + /*getarg#1*/ + /*^getarg*/ + if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; + /*_.SLOC__V3*/ meltfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; + gcc_assert(melt_discr((melt_ptr_t)(/*_.SLOC__V3*/ meltfptr[2])) != NULL); + ; goto lab_endgetargs; lab_endgetargs:; @@ -20610,1568 +20741,57 @@ lab_endgetargs:; /*^block*/ /*anyblock*/{ - /*_#NULL__L1*/ meltfnum[0] = - ((/*_.STEP__V2*/ meltfptr[1]) == NULL);; - MELT_LOCATION("warmelt-normatch.melt:2648:/ cond"); - /*cond*/ if (/*_#NULL__L1*/ meltfnum[0]) /*then*/ { - /*^cond.then*/ + + #if ENABLE_CHECKING + MELT_LOCATION("warmelt-normatch.melt:2685:/ cppif.then"); /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-normatch.melt:2649:/ quasiblock"); - - - /*_.RETVAL___V1*/ meltfptr[0] = NULL;; - MELT_LOCATION("warmelt-normatch.melt:2649:/ finalreturn"); + /*_#THE_MELTCALLCOUNT__L1*/ meltfnum[0] = + meltcallcount;; + MELT_LOCATION("warmelt-normatch.melt:2685:/ apply"); + /*apply*/{ + union meltparam_un argtab[4]; + memset(&argtab, 0, sizeof(argtab)); + /*^apply.arg*/ + argtab[0].bp_cstring = "fill_matchcase curmcase"; + /*^apply.arg*/ + argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L1*/ meltfnum[0]; + /*^apply.arg*/ + argtab[2].bp_cstring = "warmelt-normatch.melt"; + /*^apply.arg*/ + argtab[3].bp_long = 2685; + /*_.DEBUG_MSG_FUN__V5*/ meltfptr[4] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.CURMCASE__V2*/ meltfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + } ; - /*finalret*/ goto labend_rout ; - /*_.IFELSE___V3*/ meltfptr[2] = /*_.RETURN___V4*/ meltfptr[3];; + /*_.IFCPP___V4*/ meltfptr[3] = /*_.DEBUG_MSG_FUN__V5*/ meltfptr[4];; /*epilog*/ - MELT_LOCATION("warmelt-normatch.melt:2648:/ clear"); - /*clear*/ /*_.RETURN___V4*/ meltfptr[3] = 0 ;} + MELT_LOCATION("warmelt-normatch.melt:2685:/ clear"); + /*clear*/ /*_#THE_MELTCALLCOUNT__L1*/ meltfnum[0] = 0 ; + /*^clear*/ + /*clear*/ /*_.DEBUG_MSG_FUN__V5*/ meltfptr[4] = 0 ;} + + #else /*ENABLE_CHECKING*/ + /*^cppif.else*/ + /*_.IFCPP___V4*/ meltfptr[3] = (/*nil*/NULL); + #endif /*ENABLE_CHECKING*/ ; - } else {/*^cond.else*/ - /*^block*/ + #if ENABLE_CHECKING + MELT_LOCATION("warmelt-normatch.melt:2686:/ cppif.then"); + /*^block*/ /*anyblock*/{ - /*_#IS_A__L2*/ meltfnum[1] = - melt_is_instance_of((melt_ptr_t)(/*_.STEP__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_MATCH_STEP_TEST_GROUP*/ meltfrout->tabval[0])));; - MELT_LOCATION("warmelt-normatch.melt:2651:/ cond"); - /*cond*/ if (/*_#IS_A__L2*/ meltfnum[1]) /*then*/ { + /*_#IS_A__L2*/ meltfnum[0] = + melt_is_instance_of((melt_ptr_t)(/*_.CURMCASE__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_MATCH_CASE*/ meltfrout->tabval[1])));; + MELT_LOCATION("warmelt-normatch.melt:2686:/ cond"); + /*cond*/ if (/*_#IS_A__L2*/ meltfnum[0]) /*then*/ { /*^cond.then*/ - /*^block*/ - /*anyblock*/{ - - MELT_LOCATION("warmelt-normatch.melt:2652:/ quasiblock"); - - - /*^getslot*/ - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.STEP__V2*/ meltfptr[1]), 5, "MSTGROUP_START");/*_.STASTEP__V7*/ meltfptr[6] = slot; }; - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normatch.melt:2654:/ cppif.then"); - /*^block*/ - /*anyblock*/{ - - /*_#THE_MELTCALLCOUNT__L3*/ meltfnum[2] = - meltcallcount;; - MELT_LOCATION("warmelt-normatch.melt:2654:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - /*^apply.arg*/ - argtab[0].bp_cstring = "start_step group step"; - /*^apply.arg*/ - argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L3*/ meltfnum[2]; - /*^apply.arg*/ - argtab[2].bp_cstring = "warmelt-normatch.melt"; - /*^apply.arg*/ - argtab[3].bp_long = 2654; - /*_.DEBUG_MSG_FUN__V9*/ meltfptr[8] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.STEP__V2*/ meltfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V8*/ meltfptr[7] = /*_.DEBUG_MSG_FUN__V9*/ meltfptr[8];; - /*epilog*/ - - MELT_LOCATION("warmelt-normatch.melt:2654:/ clear"); - /*clear*/ /*_#THE_MELTCALLCOUNT__L3*/ meltfnum[2] = 0 ; - /*^clear*/ - /*clear*/ /*_.DEBUG_MSG_FUN__V9*/ meltfptr[8] = 0 ;} - - #else /*ENABLE_CHECKING*/ - /*^cppif.else*/ - /*_.IFCPP___V8*/ meltfptr[7] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normatch.melt:2655:/ cppif.then"); - /*^block*/ - /*anyblock*/{ - - /*_#THE_MELTCALLCOUNT__L4*/ meltfnum[2] = - meltcallcount;; - MELT_LOCATION("warmelt-normatch.melt:2655:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - /*^apply.arg*/ - argtab[0].bp_cstring = "stastep return stastep"; - /*^apply.arg*/ - argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L4*/ meltfnum[2]; - /*^apply.arg*/ - argtab[2].bp_cstring = "warmelt-normatch.melt"; - /*^apply.arg*/ - argtab[3].bp_long = 2655; - /*_.DEBUG_MSG_FUN__V11*/ meltfptr[10] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.STASTEP__V7*/ meltfptr[6]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V10*/ meltfptr[8] = /*_.DEBUG_MSG_FUN__V11*/ meltfptr[10];; - /*epilog*/ - - MELT_LOCATION("warmelt-normatch.melt:2655:/ clear"); - /*clear*/ /*_#THE_MELTCALLCOUNT__L4*/ meltfnum[2] = 0 ; - /*^clear*/ - /*clear*/ /*_.DEBUG_MSG_FUN__V11*/ meltfptr[10] = 0 ;} - - #else /*ENABLE_CHECKING*/ - /*^cppif.else*/ - /*_.IFCPP___V10*/ meltfptr[8] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normatch.melt:2656:/ cppif.then"); - /*^block*/ - /*anyblock*/{ - - /*_#IS_A__L5*/ meltfnum[2] = - melt_is_instance_of((melt_ptr_t)(/*_.STASTEP__V7*/ meltfptr[6]), (melt_ptr_t)((/*!CLASS_MATCH_STEP*/ meltfrout->tabval[2])));; - MELT_LOCATION("warmelt-normatch.melt:2656:/ cond"); - /*cond*/ if (/*_#IS_A__L5*/ meltfnum[2]) /*then*/ { - /*^cond.then*/ - /*_.IFELSE___V13*/ meltfptr[12] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normatch.melt:2656:/ cond.else"); - - /*^block*/ - /*anyblock*/{ - - - - - { - /*^locexp*/ - melt_assert_failed(( "check stastep"),( "warmelt-normatch.melt")?( "warmelt-normatch.melt"):__FILE__, - (2656)?(2656):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V13*/ meltfptr[12] = 0 ; - /*epilog*/ - } - ; - } - ; - /*^compute*/ - - /*_.IFCPP___V12*/ meltfptr[10] = /*_.IFELSE___V13*/ meltfptr[12];; - /*epilog*/ - - MELT_LOCATION("warmelt-normatch.melt:2656:/ clear"); - /*clear*/ /*_#IS_A__L5*/ meltfnum[2] = 0 ; - /*^clear*/ - /*clear*/ /*_.IFELSE___V13*/ meltfptr[12] = 0 ;} - - #else /*ENABLE_CHECKING*/ - /*^cppif.else*/ - /*_.IFCPP___V12*/ meltfptr[10] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - MELT_LOCATION("warmelt-normatch.melt:2657:/ quasiblock"); - - - /*_.RETVAL___V1*/ meltfptr[0] = /*_.STASTEP__V7*/ meltfptr[6];; - MELT_LOCATION("warmelt-normatch.melt:2657:/ finalreturn"); - ; - /*finalret*/ goto labend_rout ; - /*_.LET___V6*/ meltfptr[5] = /*_.RETURN___V14*/ meltfptr[12];; - - MELT_LOCATION("warmelt-normatch.melt:2652:/ clear"); - /*clear*/ /*_.STASTEP__V7*/ meltfptr[6] = 0 ; - /*^clear*/ - /*clear*/ /*_.IFCPP___V8*/ meltfptr[7] = 0 ; - /*^clear*/ - /*clear*/ /*_.IFCPP___V10*/ meltfptr[8] = 0 ; - /*^clear*/ - /*clear*/ /*_.IFCPP___V12*/ meltfptr[10] = 0 ; - /*^clear*/ - /*clear*/ /*_.RETURN___V14*/ meltfptr[12] = 0 ; - /*_.IFELSE___V5*/ meltfptr[3] = /*_.LET___V6*/ meltfptr[5];; - /*epilog*/ - - MELT_LOCATION("warmelt-normatch.melt:2651:/ clear"); - /*clear*/ /*_.LET___V6*/ meltfptr[5] = 0 ;} - ; - } else {/*^cond.else*/ - - /*^block*/ - /*anyblock*/{ - - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normatch.melt:2659:/ cppif.then"); - /*^block*/ - /*anyblock*/{ - - /*_#THE_MELTCALLCOUNT__L6*/ meltfnum[2] = - meltcallcount;; - MELT_LOCATION("warmelt-normatch.melt:2659:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - /*^apply.arg*/ - argtab[0].bp_cstring = "start_step ordinary step"; - /*^apply.arg*/ - argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L6*/ meltfnum[2]; - /*^apply.arg*/ - argtab[2].bp_cstring = "warmelt-normatch.melt"; - /*^apply.arg*/ - argtab[3].bp_long = 2659; - /*_.DEBUG_MSG_FUN__V16*/ meltfptr[7] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.STEP__V2*/ meltfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V15*/ meltfptr[6] = /*_.DEBUG_MSG_FUN__V16*/ meltfptr[7];; - /*epilog*/ - - MELT_LOCATION("warmelt-normatch.melt:2659:/ clear"); - /*clear*/ /*_#THE_MELTCALLCOUNT__L6*/ meltfnum[2] = 0 ; - /*^clear*/ - /*clear*/ /*_.DEBUG_MSG_FUN__V16*/ meltfptr[7] = 0 ;} - - #else /*ENABLE_CHECKING*/ - /*^cppif.else*/ - /*_.IFCPP___V15*/ meltfptr[6] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normatch.melt:2660:/ cppif.then"); - /*^block*/ - /*anyblock*/{ - - /*_#IS_A__L7*/ meltfnum[2] = - melt_is_instance_of((melt_ptr_t)(/*_.STEP__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_MATCH_STEP*/ meltfrout->tabval[2])));; - MELT_LOCATION("warmelt-normatch.melt:2660:/ cond"); - /*cond*/ if (/*_#IS_A__L7*/ meltfnum[2]) /*then*/ { - /*^cond.then*/ - /*_.IFELSE___V18*/ meltfptr[10] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normatch.melt:2660:/ cond.else"); - - /*^block*/ - /*anyblock*/{ - - - - - { - /*^locexp*/ - melt_assert_failed(( "check step"),( "warmelt-normatch.melt")?( "warmelt-normatch.melt"):__FILE__, - (2660)?(2660):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V18*/ meltfptr[10] = 0 ; - /*epilog*/ - } - ; - } - ; - /*^compute*/ - - /*_.IFCPP___V17*/ meltfptr[8] = /*_.IFELSE___V18*/ meltfptr[10];; - /*epilog*/ - - MELT_LOCATION("warmelt-normatch.melt:2660:/ clear"); - /*clear*/ /*_#IS_A__L7*/ meltfnum[2] = 0 ; - /*^clear*/ - /*clear*/ /*_.IFELSE___V18*/ meltfptr[10] = 0 ;} - - #else /*ENABLE_CHECKING*/ - /*^cppif.else*/ - /*_.IFCPP___V17*/ meltfptr[8] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - MELT_LOCATION("warmelt-normatch.melt:2661:/ quasiblock"); - - - /*_.RETVAL___V1*/ meltfptr[0] = /*_.STEP__V2*/ meltfptr[1];; - MELT_LOCATION("warmelt-normatch.melt:2661:/ finalreturn"); - ; - /*finalret*/ goto labend_rout ; - MELT_LOCATION("warmelt-normatch.melt:2658:/ quasiblock"); - - - /*_.PROGN___V20*/ meltfptr[5] = /*_.RETURN___V19*/ meltfptr[12];; - /*^compute*/ - - /*_.IFELSE___V5*/ meltfptr[3] = /*_.PROGN___V20*/ meltfptr[5];; - /*epilog*/ - - MELT_LOCATION("warmelt-normatch.melt:2651:/ clear"); - /*clear*/ /*_.IFCPP___V15*/ meltfptr[6] = 0 ; - /*^clear*/ - /*clear*/ /*_.IFCPP___V17*/ meltfptr[8] = 0 ; - /*^clear*/ - /*clear*/ /*_.RETURN___V19*/ meltfptr[12] = 0 ; - /*^clear*/ - /*clear*/ /*_.PROGN___V20*/ meltfptr[5] = 0 ;} - ; - } - ; - /*_.IFELSE___V3*/ meltfptr[2] = /*_.IFELSE___V5*/ meltfptr[3];; - /*epilog*/ - - MELT_LOCATION("warmelt-normatch.melt:2648:/ clear"); - /*clear*/ /*_#IS_A__L2*/ meltfnum[1] = 0 ; - /*^clear*/ - /*clear*/ /*_.IFELSE___V5*/ meltfptr[3] = 0 ;} - ; - } - ; - MELT_LOCATION("warmelt-normatch.melt:2646:/ quasiblock"); - - - /*_.RETVAL___V1*/ meltfptr[0] = /*_.IFELSE___V3*/ meltfptr[2];; - MELT_LOCATION("warmelt-normatch.melt:2646:/ finalreturn"); - ; - /*finalret*/ goto labend_rout ; - /*epilog*/ - - /*^clear*/ - /*clear*/ /*_#NULL__L1*/ meltfnum[0] = 0 ; - /*^clear*/ - /*clear*/ /*_.IFELSE___V3*/ meltfptr[2] = 0 ;} - -; - goto labend_rout; -labend_rout: -melt_trace_end("START_STEP", meltcallcount); melt_topframe = (struct callframe_melt_st*) meltfram__.prev; - return (melt_ptr_t)(/*_.RETVAL___V1*/ meltfptr[0]); -#undef meltcallcount -#undef meltfram__ -#undef MELTFRAM_NBVARNUM -#undef MELTFRAM_NBVARPTR -} /*end meltrout_56_warmelt_normatch_START_STEP*/ - - - - - -melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_57_warmelt_normatch_PUTTHEN_MATCHTHEN(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, - const char xresdescr_[], union meltparam_un *xrestab_) -{ -#if ENABLE_CHECKING - static long call_counter__; - long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; -#undef meltcallcount -#define meltcallcount thiscallcounter__ -#else -#undef meltcallcount -#define meltcallcount 0L -#endif - - struct frame_meltrout_57_warmelt_normatch_PUTTHEN_MATCHTHEN_st { unsigned nbvar; -#if ENABLE_CHECKING - const char* flocs; -#endif - struct meltclosure_st *clos; - struct excepth_melt_st *exh; - struct callframe_melt_st *prev; -#define MELTFRAM_NBVARPTR 24 - void* varptr[24]; -#define MELTFRAM_NBVARNUM 8 - long varnum[8]; -/*others*/ - long _spare_; } - *framptr_=0, meltframe; -#define meltfram__ meltframe - if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/ - int ix=0; - framptr_ = (void*)firstargp_; - gt_ggc_mx_melt_un (framptr_->clos); - for(ix=0; ix<24; ix++) - if (framptr_->varptr[ix]) - gt_ggc_mx_melt_un (framptr_->varptr[ix]); - return NULL; - }/*end markggc*/; - memset(&meltfram__, 0, sizeof(meltfram__)); - meltfram__.nbvar = 24; - meltfram__.clos = closp_; - meltfram__.prev = (struct callframe_melt_st *) melt_topframe; - melt_topframe = (struct callframe_melt_st *) &meltfram__; -melt_trace_start("PUTTHEN_MATCHTHEN", meltcallcount); -/*getargs*/ - - /*getarg#0*/ - MELT_LOCATION("warmelt-normatch.melt:2663:/ getarg"); - /*_.RECV__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; - - /*getarg#1*/ - /*^getarg*/ - if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; - /*_.THENSTEP__V3*/ meltfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.THENSTEP__V3*/ meltfptr[2])) != NULL); - - ; - goto lab_endgetargs; -lab_endgetargs:; -/*body*/ -/*^block*/ -/*anyblock*/{ - - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normatch.melt:2664:/ cppif.then"); - /*^block*/ - /*anyblock*/{ - - /*_#THE_MELTCALLCOUNT__L1*/ meltfnum[0] = - meltcallcount;; - MELT_LOCATION("warmelt-normatch.melt:2664:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - /*^apply.arg*/ - argtab[0].bp_cstring = "putthen_matchthen recv"; - /*^apply.arg*/ - argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L1*/ meltfnum[0]; - /*^apply.arg*/ - argtab[2].bp_cstring = "warmelt-normatch.melt"; - /*^apply.arg*/ - argtab[3].bp_long = 2664; - /*_.DEBUG_MSG_FUN__V5*/ meltfptr[4] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V4*/ meltfptr[3] = /*_.DEBUG_MSG_FUN__V5*/ meltfptr[4];; - /*epilog*/ - - MELT_LOCATION("warmelt-normatch.melt:2664:/ clear"); - /*clear*/ /*_#THE_MELTCALLCOUNT__L1*/ meltfnum[0] = 0 ; - /*^clear*/ - /*clear*/ /*_.DEBUG_MSG_FUN__V5*/ meltfptr[4] = 0 ;} - - #else /*ENABLE_CHECKING*/ - /*^cppif.else*/ - /*_.IFCPP___V4*/ meltfptr[3] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normatch.melt:2665:/ cppif.then"); - /*^block*/ - /*anyblock*/{ - - /*_#IS_A__L2*/ meltfnum[0] = - melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_MATCH_STEP_THEN*/ meltfrout->tabval[1])));; - MELT_LOCATION("warmelt-normatch.melt:2665:/ cond"); - /*cond*/ if (/*_#IS_A__L2*/ meltfnum[0]) /*then*/ { - /*^cond.then*/ - /*_.IFELSE___V7*/ meltfptr[6] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normatch.melt:2665:/ cond.else"); - - /*^block*/ - /*anyblock*/{ - - - - - { - /*^locexp*/ - melt_assert_failed(( "check recv"),( "warmelt-normatch.melt")?( "warmelt-normatch.melt"):__FILE__, - (2665)?(2665):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V7*/ meltfptr[6] = 0 ; - /*epilog*/ - } - ; - } - ; - /*^compute*/ - - /*_.IFCPP___V6*/ meltfptr[4] = /*_.IFELSE___V7*/ meltfptr[6];; - /*epilog*/ - - MELT_LOCATION("warmelt-normatch.melt:2665:/ clear"); - /*clear*/ /*_#IS_A__L2*/ meltfnum[0] = 0 ; - /*^clear*/ - /*clear*/ /*_.IFELSE___V7*/ meltfptr[6] = 0 ;} - - #else /*ENABLE_CHECKING*/ - /*^cppif.else*/ - /*_.IFCPP___V6*/ meltfptr[4] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normatch.melt:2666:/ cppif.then"); - /*^block*/ - /*anyblock*/{ - - /*_#THE_MELTCALLCOUNT__L3*/ meltfnum[0] = - meltcallcount;; - MELT_LOCATION("warmelt-normatch.melt:2666:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - /*^apply.arg*/ - argtab[0].bp_cstring = "putthen_matchthen thenstep"; - /*^apply.arg*/ - argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L3*/ meltfnum[0]; - /*^apply.arg*/ - argtab[2].bp_cstring = "warmelt-normatch.melt"; - /*^apply.arg*/ - argtab[3].bp_long = 2666; - /*_.DEBUG_MSG_FUN__V9*/ meltfptr[8] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.THENSTEP__V3*/ meltfptr[2]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V8*/ meltfptr[6] = /*_.DEBUG_MSG_FUN__V9*/ meltfptr[8];; - /*epilog*/ - - MELT_LOCATION("warmelt-normatch.melt:2666:/ clear"); - /*clear*/ /*_#THE_MELTCALLCOUNT__L3*/ meltfnum[0] = 0 ; - /*^clear*/ - /*clear*/ /*_.DEBUG_MSG_FUN__V9*/ meltfptr[8] = 0 ;} - - #else /*ENABLE_CHECKING*/ - /*^cppif.else*/ - /*_.IFCPP___V8*/ meltfptr[6] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normatch.melt:2667:/ cppif.then"); - /*^block*/ - /*anyblock*/{ - - /*_#IS_A__L4*/ meltfnum[0] = - melt_is_instance_of((melt_ptr_t)(/*_.THENSTEP__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_MATCH_STEP*/ meltfrout->tabval[2])));; - MELT_LOCATION("warmelt-normatch.melt:2667:/ cond"); - /*cond*/ if (/*_#IS_A__L4*/ meltfnum[0]) /*then*/ { - /*^cond.then*/ - /*_.IFELSE___V11*/ meltfptr[10] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normatch.melt:2667:/ cond.else"); - - /*^block*/ - /*anyblock*/{ - - - - - { - /*^locexp*/ - melt_assert_failed(( "check thenstep"),( "warmelt-normatch.melt")?( "warmelt-normatch.melt"):__FILE__, - (2667)?(2667):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V11*/ meltfptr[10] = 0 ; - /*epilog*/ - } - ; - } - ; - /*^compute*/ - - /*_.IFCPP___V10*/ meltfptr[8] = /*_.IFELSE___V11*/ meltfptr[10];; - /*epilog*/ - - MELT_LOCATION("warmelt-normatch.melt:2667:/ clear"); - /*clear*/ /*_#IS_A__L4*/ meltfnum[0] = 0 ; - /*^clear*/ - /*clear*/ /*_.IFELSE___V11*/ meltfptr[10] = 0 ;} - - #else /*ENABLE_CHECKING*/ - /*^cppif.else*/ - /*_.IFCPP___V10*/ meltfptr[8] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - MELT_LOCATION("warmelt-normatch.melt:2668:/ quasiblock"); - - - /*^getslot*/ - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), 3, "MSTEP_THEN");/*_.MYTHEN__V13*/ meltfptr[12] = slot; }; - ; - /*_#NULL__L5*/ meltfnum[0] = - ((/*_.MYTHEN__V13*/ meltfptr[12]) == NULL);; - MELT_LOCATION("warmelt-normatch.melt:2670:/ cond"); - /*cond*/ if (/*_#NULL__L5*/ meltfnum[0]) /*then*/ { - /*^cond.then*/ - /*^block*/ - /*anyblock*/{ - - MELT_LOCATION("warmelt-normatch.melt:2672:/ apply"); - /*apply*/{ - /*_.START_STEP__V15*/ meltfptr[14] = melt_apply ((meltclosure_ptr_t)((/*!START_STEP*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.THENSTEP__V3*/ meltfptr[2]), (""), (union meltparam_un*)0, "", (union meltparam_un*)0); - } - ; - /*^quasiblock*/ - - - /*^putslot*/ - /*putslot*/ - melt_assertmsg("putslot checkobj @MSTEP_THEN", melt_magic_discr((melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1])) == OBMAG_OBJECT); - melt_putfield_object((/*_.RECV__V2*/ meltfptr[1]), (3), (/*_.START_STEP__V15*/ meltfptr[14]), "MSTEP_THEN"); - ; - /*^touch*/ - meltgc_touch(/*_.RECV__V2*/ meltfptr[1]); - ; - - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normatch.melt:2673:/ cppif.then"); - /*^block*/ - /*anyblock*/{ - - /*_#THE_MELTCALLCOUNT__L6*/ meltfnum[5] = - meltcallcount;; - MELT_LOCATION("warmelt-normatch.melt:2673:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - /*^apply.arg*/ - argtab[0].bp_cstring = "putthen_matchthen updated recv"; - /*^apply.arg*/ - argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L6*/ meltfnum[5]; - /*^apply.arg*/ - argtab[2].bp_cstring = "warmelt-normatch.melt"; - /*^apply.arg*/ - argtab[3].bp_long = 2673; - /*_.DEBUG_MSG_FUN__V17*/ meltfptr[16] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V16*/ meltfptr[15] = /*_.DEBUG_MSG_FUN__V17*/ meltfptr[16];; - /*epilog*/ - - MELT_LOCATION("warmelt-normatch.melt:2673:/ clear"); - /*clear*/ /*_#THE_MELTCALLCOUNT__L6*/ meltfnum[5] = 0 ; - /*^clear*/ - /*clear*/ /*_.DEBUG_MSG_FUN__V17*/ meltfptr[16] = 0 ;} - - #else /*ENABLE_CHECKING*/ - /*^cppif.else*/ - /*_.IFCPP___V16*/ meltfptr[15] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - MELT_LOCATION("warmelt-normatch.melt:2671:/ quasiblock"); - - - /*_.PROGN___V18*/ meltfptr[16] = /*_.IFCPP___V16*/ meltfptr[15];; - /*^compute*/ - - /*_.IFELSE___V14*/ meltfptr[13] = /*_.PROGN___V18*/ meltfptr[16];; - /*epilog*/ - - MELT_LOCATION("warmelt-normatch.melt:2670:/ clear"); - /*clear*/ /*_.START_STEP__V15*/ meltfptr[14] = 0 ; - /*^clear*/ - /*clear*/ /*_.IFCPP___V16*/ meltfptr[15] = 0 ; - /*^clear*/ - /*clear*/ /*_.PROGN___V18*/ meltfptr[16] = 0 ;} - ; - } else {/*^cond.else*/ - - /*^block*/ - /*anyblock*/{ - - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normatch.melt:2675:/ cppif.then"); - /*^block*/ - /*anyblock*/{ - - /*_#THE_MELTCALLCOUNT__L7*/ meltfnum[5] = - meltcallcount;; - MELT_LOCATION("warmelt-normatch.melt:2675:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - /*^apply.arg*/ - argtab[0].bp_cstring = "putthen_matchthen mythen"; - /*^apply.arg*/ - argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L7*/ meltfnum[5]; - /*^apply.arg*/ - argtab[2].bp_cstring = "warmelt-normatch.melt"; - /*^apply.arg*/ - argtab[3].bp_long = 2675; - /*_.DEBUG_MSG_FUN__V20*/ meltfptr[15] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.MYTHEN__V13*/ meltfptr[12]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V19*/ meltfptr[14] = /*_.DEBUG_MSG_FUN__V20*/ meltfptr[15];; - /*epilog*/ - - MELT_LOCATION("warmelt-normatch.melt:2675:/ clear"); - /*clear*/ /*_#THE_MELTCALLCOUNT__L7*/ meltfnum[5] = 0 ; - /*^clear*/ - /*clear*/ /*_.DEBUG_MSG_FUN__V20*/ meltfptr[15] = 0 ;} - - #else /*ENABLE_CHECKING*/ - /*^cppif.else*/ - /*_.IFCPP___V19*/ meltfptr[14] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - MELT_LOCATION("warmelt-normatch.melt:2676:/ msend"); - /*msend*/{ - union meltparam_un argtab[1]; - memset(&argtab, 0, sizeof(argtab)); - /*^ojbmsend.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.THENSTEP__V3*/ meltfptr[2]; - /*_.PUT_THEN_MATCH__V21*/ meltfptr[16] = meltgc_send((melt_ptr_t)(/*_.MYTHEN__V13*/ meltfptr[12]), (melt_ptr_t)((/*!PUT_THEN_MATCH*/ meltfrout->tabval[4])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normatch.melt:2677:/ cppif.then"); - /*^block*/ - /*anyblock*/{ - - /*_#THE_MELTCALLCOUNT__L8*/ meltfnum[5] = - meltcallcount;; - MELT_LOCATION("warmelt-normatch.melt:2677:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - /*^apply.arg*/ - argtab[0].bp_cstring = "putthen_matchthen did mythen"; - /*^apply.arg*/ - argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L8*/ meltfnum[5]; - /*^apply.arg*/ - argtab[2].bp_cstring = "warmelt-normatch.melt"; - /*^apply.arg*/ - argtab[3].bp_long = 2677; - /*_.DEBUG_MSG_FUN__V23*/ meltfptr[22] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.MYTHEN__V13*/ meltfptr[12]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V22*/ meltfptr[15] = /*_.DEBUG_MSG_FUN__V23*/ meltfptr[22];; - /*epilog*/ - - MELT_LOCATION("warmelt-normatch.melt:2677:/ clear"); - /*clear*/ /*_#THE_MELTCALLCOUNT__L8*/ meltfnum[5] = 0 ; - /*^clear*/ - /*clear*/ /*_.DEBUG_MSG_FUN__V23*/ meltfptr[22] = 0 ;} - - #else /*ENABLE_CHECKING*/ - /*^cppif.else*/ - /*_.IFCPP___V22*/ meltfptr[15] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - MELT_LOCATION("warmelt-normatch.melt:2674:/ quasiblock"); - - - /*_.PROGN___V24*/ meltfptr[22] = /*_.IFCPP___V22*/ meltfptr[15];; - /*^compute*/ - - /*_.IFELSE___V14*/ meltfptr[13] = /*_.PROGN___V24*/ meltfptr[22];; - /*epilog*/ - - MELT_LOCATION("warmelt-normatch.melt:2670:/ clear"); - /*clear*/ /*_.IFCPP___V19*/ meltfptr[14] = 0 ; - /*^clear*/ - /*clear*/ /*_.PUT_THEN_MATCH__V21*/ meltfptr[16] = 0 ; - /*^clear*/ - /*clear*/ /*_.IFCPP___V22*/ meltfptr[15] = 0 ; - /*^clear*/ - /*clear*/ /*_.PROGN___V24*/ meltfptr[22] = 0 ;} - ; - } - ; - /*_.LET___V12*/ meltfptr[10] = /*_.IFELSE___V14*/ meltfptr[13];; - - MELT_LOCATION("warmelt-normatch.melt:2668:/ clear"); - /*clear*/ /*_.MYTHEN__V13*/ meltfptr[12] = 0 ; - /*^clear*/ - /*clear*/ /*_#NULL__L5*/ meltfnum[0] = 0 ; - /*^clear*/ - /*clear*/ /*_.IFELSE___V14*/ meltfptr[13] = 0 ; - MELT_LOCATION("warmelt-normatch.melt:2663:/ quasiblock"); - - - /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V12*/ meltfptr[10];; - MELT_LOCATION("warmelt-normatch.melt:2663:/ finalreturn"); - ; - /*finalret*/ goto labend_rout ; - /*epilog*/ - - /*^clear*/ - /*clear*/ /*_.IFCPP___V4*/ meltfptr[3] = 0 ; - /*^clear*/ - /*clear*/ /*_.IFCPP___V6*/ meltfptr[4] = 0 ; - /*^clear*/ - /*clear*/ /*_.IFCPP___V8*/ meltfptr[6] = 0 ; - /*^clear*/ - /*clear*/ /*_.IFCPP___V10*/ meltfptr[8] = 0 ; - /*^clear*/ - /*clear*/ /*_.LET___V12*/ meltfptr[10] = 0 ;} - -; - goto labend_rout; -labend_rout: -melt_trace_end("PUTTHEN_MATCHTHEN", meltcallcount); melt_topframe = (struct callframe_melt_st*) meltfram__.prev; - return (melt_ptr_t)(/*_.RETVAL___V1*/ meltfptr[0]); -#undef meltcallcount -#undef meltfram__ -#undef MELTFRAM_NBVARNUM -#undef MELTFRAM_NBVARPTR -} /*end meltrout_57_warmelt_normatch_PUTTHEN_MATCHTHEN*/ - - - - - -melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_58_warmelt_normatch_PUTTHEN_MATCHGROUP(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, - const char xresdescr_[], union meltparam_un *xrestab_) -{ -#if ENABLE_CHECKING - static long call_counter__; - long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; -#undef meltcallcount -#define meltcallcount thiscallcounter__ -#else -#undef meltcallcount -#define meltcallcount 0L -#endif - - struct frame_meltrout_58_warmelt_normatch_PUTTHEN_MATCHGROUP_st { unsigned nbvar; -#if ENABLE_CHECKING - const char* flocs; -#endif - struct meltclosure_st *clos; - struct excepth_melt_st *exh; - struct callframe_melt_st *prev; -#define MELTFRAM_NBVARPTR 30 - void* varptr[30]; -#define MELTFRAM_NBVARNUM 10 - long varnum[10]; -/*others*/ - long _spare_; } - *framptr_=0, meltframe; -#define meltfram__ meltframe - if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/ - int ix=0; - framptr_ = (void*)firstargp_; - gt_ggc_mx_melt_un (framptr_->clos); - for(ix=0; ix<30; ix++) - if (framptr_->varptr[ix]) - gt_ggc_mx_melt_un (framptr_->varptr[ix]); - return NULL; - }/*end markggc*/; - memset(&meltfram__, 0, sizeof(meltfram__)); - meltfram__.nbvar = 30; - meltfram__.clos = closp_; - meltfram__.prev = (struct callframe_melt_st *) melt_topframe; - melt_topframe = (struct callframe_melt_st *) &meltfram__; -melt_trace_start("PUTTHEN_MATCHGROUP", meltcallcount); -/*getargs*/ - - /*getarg#0*/ - MELT_LOCATION("warmelt-normatch.melt:2681:/ getarg"); - /*_.RECV__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; - - /*getarg#1*/ - /*^getarg*/ - if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; - /*_.THENSTEP__V3*/ meltfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.THENSTEP__V3*/ meltfptr[2])) != NULL); - - ; - goto lab_endgetargs; -lab_endgetargs:; -/*body*/ -/*^block*/ -/*anyblock*/{ - - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normatch.melt:2682:/ cppif.then"); - /*^block*/ - /*anyblock*/{ - - /*_#THE_MELTCALLCOUNT__L1*/ meltfnum[0] = - meltcallcount;; - MELT_LOCATION("warmelt-normatch.melt:2682:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - /*^apply.arg*/ - argtab[0].bp_cstring = "putthen_matchgroup recv"; - /*^apply.arg*/ - argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L1*/ meltfnum[0]; - /*^apply.arg*/ - argtab[2].bp_cstring = "warmelt-normatch.melt"; - /*^apply.arg*/ - argtab[3].bp_long = 2682; - /*_.DEBUG_MSG_FUN__V5*/ meltfptr[4] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V4*/ meltfptr[3] = /*_.DEBUG_MSG_FUN__V5*/ meltfptr[4];; - /*epilog*/ - - MELT_LOCATION("warmelt-normatch.melt:2682:/ clear"); - /*clear*/ /*_#THE_MELTCALLCOUNT__L1*/ meltfnum[0] = 0 ; - /*^clear*/ - /*clear*/ /*_.DEBUG_MSG_FUN__V5*/ meltfptr[4] = 0 ;} - - #else /*ENABLE_CHECKING*/ - /*^cppif.else*/ - /*_.IFCPP___V4*/ meltfptr[3] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normatch.melt:2683:/ cppif.then"); - /*^block*/ - /*anyblock*/{ - - /*_#IS_A__L2*/ meltfnum[0] = - melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_MATCH_STEP_TEST_GROUP*/ meltfrout->tabval[1])));; - MELT_LOCATION("warmelt-normatch.melt:2683:/ cond"); - /*cond*/ if (/*_#IS_A__L2*/ meltfnum[0]) /*then*/ { - /*^cond.then*/ - /*_.IFELSE___V7*/ meltfptr[6] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normatch.melt:2683:/ cond.else"); - - /*^block*/ - /*anyblock*/{ - - - - - { - /*^locexp*/ - melt_assert_failed(( "check recv"),( "warmelt-normatch.melt")?( "warmelt-normatch.melt"):__FILE__, - (2683)?(2683):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V7*/ meltfptr[6] = 0 ; - /*epilog*/ - } - ; - } - ; - /*^compute*/ - - /*_.IFCPP___V6*/ meltfptr[4] = /*_.IFELSE___V7*/ meltfptr[6];; - /*epilog*/ - - MELT_LOCATION("warmelt-normatch.melt:2683:/ clear"); - /*clear*/ /*_#IS_A__L2*/ meltfnum[0] = 0 ; - /*^clear*/ - /*clear*/ /*_.IFELSE___V7*/ meltfptr[6] = 0 ;} - - #else /*ENABLE_CHECKING*/ - /*^cppif.else*/ - /*_.IFCPP___V6*/ meltfptr[4] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normatch.melt:2684:/ cppif.then"); - /*^block*/ - /*anyblock*/{ - - /*_#THE_MELTCALLCOUNT__L3*/ meltfnum[0] = - meltcallcount;; - MELT_LOCATION("warmelt-normatch.melt:2684:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - /*^apply.arg*/ - argtab[0].bp_cstring = "putthen_matchgroup thenstep"; - /*^apply.arg*/ - argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L3*/ meltfnum[0]; - /*^apply.arg*/ - argtab[2].bp_cstring = "warmelt-normatch.melt"; - /*^apply.arg*/ - argtab[3].bp_long = 2684; - /*_.DEBUG_MSG_FUN__V9*/ meltfptr[8] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.THENSTEP__V3*/ meltfptr[2]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V8*/ meltfptr[6] = /*_.DEBUG_MSG_FUN__V9*/ meltfptr[8];; - /*epilog*/ - - MELT_LOCATION("warmelt-normatch.melt:2684:/ clear"); - /*clear*/ /*_#THE_MELTCALLCOUNT__L3*/ meltfnum[0] = 0 ; - /*^clear*/ - /*clear*/ /*_.DEBUG_MSG_FUN__V9*/ meltfptr[8] = 0 ;} - - #else /*ENABLE_CHECKING*/ - /*^cppif.else*/ - /*_.IFCPP___V8*/ meltfptr[6] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normatch.melt:2685:/ cppif.then"); - /*^block*/ - /*anyblock*/{ - - /*_#IS_A__L4*/ meltfnum[0] = - melt_is_instance_of((melt_ptr_t)(/*_.THENSTEP__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_MATCH_STEP*/ meltfrout->tabval[2])));; - MELT_LOCATION("warmelt-normatch.melt:2685:/ cond"); - /*cond*/ if (/*_#IS_A__L4*/ meltfnum[0]) /*then*/ { - /*^cond.then*/ - /*_.IFELSE___V11*/ meltfptr[10] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normatch.melt:2685:/ cond.else"); - - /*^block*/ - /*anyblock*/{ - - - - - { - /*^locexp*/ - melt_assert_failed(( "check thenstep"),( "warmelt-normatch.melt")?( "warmelt-normatch.melt"):__FILE__, - (2685)?(2685):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V11*/ meltfptr[10] = 0 ; - /*epilog*/ - } - ; - } - ; - /*^compute*/ - - /*_.IFCPP___V10*/ meltfptr[8] = /*_.IFELSE___V11*/ meltfptr[10];; - /*epilog*/ - - MELT_LOCATION("warmelt-normatch.melt:2685:/ clear"); - /*clear*/ /*_#IS_A__L4*/ meltfnum[0] = 0 ; - /*^clear*/ - /*clear*/ /*_.IFELSE___V11*/ meltfptr[10] = 0 ;} - - #else /*ENABLE_CHECKING*/ - /*^cppif.else*/ - /*_.IFCPP___V10*/ meltfptr[8] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - MELT_LOCATION("warmelt-normatch.melt:2686:/ apply"); - /*apply*/{ - union meltparam_un argtab[1]; - memset(&argtab, 0, sizeof(argtab)); - /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.THENSTEP__V3*/ meltfptr[2]; - /*_.PUTTHEN_MATCHTHEN__V12*/ meltfptr[10] = melt_apply ((meltclosure_ptr_t)((/*!PUTTHEN_MATCHTHEN*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; - MELT_LOCATION("warmelt-normatch.melt:2687:/ quasiblock"); - - - /*^getslot*/ - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), 6, "MSTGROUP_THEN");/*_.THENGROUP__V14*/ meltfptr[13] = slot; }; - ; - /*_#NULL__L5*/ meltfnum[0] = - ((/*_.THENGROUP__V14*/ meltfptr[13]) == NULL);; - MELT_LOCATION("warmelt-normatch.melt:2689:/ cond"); - /*cond*/ if (/*_#NULL__L5*/ meltfnum[0]) /*then*/ { - /*^cond.then*/ - /*^block*/ - /*anyblock*/{ - - MELT_LOCATION("warmelt-normatch.melt:2690:/ quasiblock"); - - - /*_.RETVAL___V1*/ meltfptr[0] = NULL;; - MELT_LOCATION("warmelt-normatch.melt:2690:/ finalreturn"); - ; - /*finalret*/ goto labend_rout ; - /*_.IFELSE___V15*/ meltfptr[14] = /*_.RETURN___V16*/ meltfptr[15];; - /*epilog*/ - - MELT_LOCATION("warmelt-normatch.melt:2689:/ clear"); - /*clear*/ /*_.RETURN___V16*/ meltfptr[15] = 0 ;} - ; - } else {/*^cond.else*/ - - /*^block*/ - /*anyblock*/{ - - /*_#IS_A__L6*/ meltfnum[5] = - melt_is_instance_of((melt_ptr_t)(/*_.THENGROUP__V14*/ meltfptr[13]), (melt_ptr_t)((/*!CLASS_MATCH_STEP*/ meltfrout->tabval[2])));; - MELT_LOCATION("warmelt-normatch.melt:2691:/ cond"); - /*cond*/ if (/*_#IS_A__L6*/ meltfnum[5]) /*then*/ { - /*^cond.then*/ - /*^block*/ - /*anyblock*/{ - - MELT_LOCATION("warmelt-normatch.melt:2692:/ msend"); - /*msend*/{ - union meltparam_un argtab[1]; - memset(&argtab, 0, sizeof(argtab)); - /*^ojbmsend.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.THENSTEP__V3*/ meltfptr[2]; - /*_.PUT_THEN_MATCH__V18*/ meltfptr[17] = meltgc_send((melt_ptr_t)(/*_.THENGROUP__V14*/ meltfptr[13]), (melt_ptr_t)((/*!PUT_THEN_MATCH*/ meltfrout->tabval[4])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFELSE___V17*/ meltfptr[15] = /*_.PUT_THEN_MATCH__V18*/ meltfptr[17];; - /*epilog*/ - - MELT_LOCATION("warmelt-normatch.melt:2691:/ clear"); - /*clear*/ /*_.PUT_THEN_MATCH__V18*/ meltfptr[17] = 0 ;} - ; - } else {/*^cond.else*/ - - /*^block*/ - /*anyblock*/{ - - /*_#IS_LIST__L7*/ meltfnum[6] = - (melt_magic_discr((melt_ptr_t)(/*_.THENGROUP__V14*/ meltfptr[13])) == OBMAG_LIST);; - MELT_LOCATION("warmelt-normatch.melt:2693:/ cond"); - /*cond*/ if (/*_#IS_LIST__L7*/ meltfnum[6]) /*then*/ { - /*^cond.then*/ - /*^block*/ - /*anyblock*/{ - - /*citerblock FOREACH_IN_LIST*/ { - /* start cit1__EACHLIST */ - for (/*_.CURPAIR__V20*/ meltfptr[19] = melt_list_first(/*_.THENGROUP__V14*/ meltfptr[13]); - melt_magic_discr(/*_.CURPAIR__V20*/ meltfptr[19]) == OBMAG_PAIR; - /*_.CURPAIR__V20*/ meltfptr[19] = melt_pair_tail(/*_.CURPAIR__V20*/ meltfptr[19])) { - /*_.CURTHEN__V21*/ meltfptr[20] = melt_pair_head(/*_.CURPAIR__V20*/ meltfptr[19]); - - - MELT_LOCATION("warmelt-normatch.melt:2697:/ msend"); - /*msend*/{ - union meltparam_un argtab[1]; - memset(&argtab, 0, sizeof(argtab)); - /*^ojbmsend.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.THENSTEP__V3*/ meltfptr[2]; - /*_.PUT_THEN_MATCH__V22*/ meltfptr[21] = meltgc_send((melt_ptr_t)(/*_.CURTHEN__V21*/ meltfptr[20]), (melt_ptr_t)((/*!PUT_THEN_MATCH*/ meltfrout->tabval[4])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFELSE___V19*/ meltfptr[17] = /*_.PUT_THEN_MATCH__V22*/ meltfptr[21];; - } /* end cit1__EACHLIST */ - - /*citerepilog*/ - - MELT_LOCATION("warmelt-normatch.melt:2694:/ clear"); - /*clear*/ /*_.CURPAIR__V20*/ meltfptr[19] = 0 ; - /*^clear*/ - /*clear*/ /*_.CURTHEN__V21*/ meltfptr[20] = 0 ; - /*^clear*/ - /*clear*/ /*_.PUT_THEN_MATCH__V22*/ meltfptr[21] = 0 ;} /*endciterblock FOREACH_IN_LIST*/ - ; - /*epilog*/ - } - ; - } else {MELT_LOCATION("warmelt-normatch.melt:2693:/ cond.else"); - - /*^block*/ - /*anyblock*/{ - - /*_#IS_MULTIPLE__L8*/ meltfnum[7] = - (melt_magic_discr((melt_ptr_t)(/*_.THENGROUP__V14*/ meltfptr[13])) == OBMAG_MULTIPLE);; - MELT_LOCATION("warmelt-normatch.melt:2698:/ cond"); - /*cond*/ if (/*_#IS_MULTIPLE__L8*/ meltfnum[7]) /*then*/ { - /*^cond.then*/ - /*^block*/ - /*anyblock*/{ - - /*citerblock FOREACH_IN_MULTIPLE*/ { - /* start cit2__EACHTUP: */ - long cit2__EACHTUP_ln = melt_multiple_length((melt_ptr_t)/*_.THENGROUP__V14*/ meltfptr[13]); - for (/*_#THIX__L9*/ meltfnum[8] = 0; - (/*_#THIX__L9*/ meltfnum[8] >= 0) && (/*_#THIX__L9*/ meltfnum[8] < cit2__EACHTUP_ln); - /*_#THIX__L9*/ meltfnum[8]++) { - /*_.CURTHEN__V24*/ meltfptr[23] = melt_multiple_nth((melt_ptr_t)(/*_.THENGROUP__V14*/ meltfptr[13]), /*_#THIX__L9*/ meltfnum[8]); - - - - MELT_LOCATION("warmelt-normatch.melt:2702:/ msend"); - /*msend*/{ - union meltparam_un argtab[1]; - memset(&argtab, 0, sizeof(argtab)); - /*^ojbmsend.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.THENSTEP__V3*/ meltfptr[2]; - /*_.PUT_THEN_MATCH__V25*/ meltfptr[24] = meltgc_send((melt_ptr_t)(/*_.CURTHEN__V24*/ meltfptr[23]), (melt_ptr_t)((/*!PUT_THEN_MATCH*/ meltfrout->tabval[4])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFELSE___V23*/ meltfptr[22] = /*_.PUT_THEN_MATCH__V25*/ meltfptr[24];; - if (/*_#THIX__L9*/ meltfnum[8]<0) break; - } /* end cit2__EACHTUP */ - - /*citerepilog*/ - - MELT_LOCATION("warmelt-normatch.melt:2699:/ clear"); - /*clear*/ /*_.CURTHEN__V24*/ meltfptr[23] = 0 ; - /*^clear*/ - /*clear*/ /*_#THIX__L9*/ meltfnum[8] = 0 ; - /*^clear*/ - /*clear*/ /*_.PUT_THEN_MATCH__V25*/ meltfptr[24] = 0 ;} /*endciterblock FOREACH_IN_MULTIPLE*/ - ; - /*epilog*/ - } - ; - } else {MELT_LOCATION("warmelt-normatch.melt:2698:/ cond.else"); - - /*^block*/ - /*anyblock*/{ - - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normatch.melt:2704:/ cppif.then"); - /*^block*/ - /*anyblock*/{ - - /*_#THE_MELTCALLCOUNT__L10*/ meltfnum[9] = - meltcallcount;; - MELT_LOCATION("warmelt-normatch.melt:2704:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - /*^apply.arg*/ - argtab[0].bp_cstring = "putthen_matchgroup bad thengroup"; - /*^apply.arg*/ - argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L10*/ meltfnum[9]; - /*^apply.arg*/ - argtab[2].bp_cstring = "warmelt-normatch.melt"; - /*^apply.arg*/ - argtab[3].bp_long = 2704; - /*_.DEBUG_MSG_FUN__V27*/ meltfptr[26] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.THENGROUP__V14*/ meltfptr[13]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V26*/ meltfptr[25] = /*_.DEBUG_MSG_FUN__V27*/ meltfptr[26];; - /*epilog*/ - - MELT_LOCATION("warmelt-normatch.melt:2704:/ clear"); - /*clear*/ /*_#THE_MELTCALLCOUNT__L10*/ meltfnum[9] = 0 ; - /*^clear*/ - /*clear*/ /*_.DEBUG_MSG_FUN__V27*/ meltfptr[26] = 0 ;} - - #else /*ENABLE_CHECKING*/ - /*^cppif.else*/ - /*_.IFCPP___V26*/ meltfptr[25] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normatch.melt:2705:/ cppif.then"); - /*^block*/ - /*anyblock*/{ - - /*^cond*/ - /*cond*/ if ((/*nil*/NULL)) /*then*/ { - /*^cond.then*/ - /*_.IFELSE___V29*/ meltfptr[28] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normatch.melt:2705:/ cond.else"); - - /*^block*/ - /*anyblock*/{ - - - - - { - /*^locexp*/ - melt_assert_failed(( "bad thengroup"),( "warmelt-normatch.melt")?( "warmelt-normatch.melt"):__FILE__, - (2705)?(2705):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V29*/ meltfptr[28] = 0 ; - /*epilog*/ - } - ; - } - ; - /*^compute*/ - - /*_.IFCPP___V28*/ meltfptr[26] = /*_.IFELSE___V29*/ meltfptr[28];; - /*epilog*/ - - MELT_LOCATION("warmelt-normatch.melt:2705:/ clear"); - /*clear*/ /*_.IFELSE___V29*/ meltfptr[28] = 0 ;} - - #else /*ENABLE_CHECKING*/ - /*^cppif.else*/ - /*_.IFCPP___V28*/ meltfptr[26] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - MELT_LOCATION("warmelt-normatch.melt:2703:/ quasiblock"); - - - /*_.PROGN___V30*/ meltfptr[28] = /*_.IFCPP___V28*/ meltfptr[26];; - /*^compute*/ - - /*_.IFELSE___V23*/ meltfptr[22] = /*_.PROGN___V30*/ meltfptr[28];; - /*epilog*/ - - MELT_LOCATION("warmelt-normatch.melt:2698:/ clear"); - /*clear*/ /*_.IFCPP___V26*/ meltfptr[25] = 0 ; - /*^clear*/ - /*clear*/ /*_.IFCPP___V28*/ meltfptr[26] = 0 ; - /*^clear*/ - /*clear*/ /*_.PROGN___V30*/ meltfptr[28] = 0 ;} - ; - } - ; - /*_.IFELSE___V19*/ meltfptr[17] = /*_.IFELSE___V23*/ meltfptr[22];; - /*epilog*/ - - MELT_LOCATION("warmelt-normatch.melt:2693:/ clear"); - /*clear*/ /*_#IS_MULTIPLE__L8*/ meltfnum[7] = 0 ; - /*^clear*/ - /*clear*/ /*_.IFELSE___V23*/ meltfptr[22] = 0 ;} - ; - } - ; - /*_.IFELSE___V17*/ meltfptr[15] = /*_.IFELSE___V19*/ meltfptr[17];; - /*epilog*/ - - MELT_LOCATION("warmelt-normatch.melt:2691:/ clear"); - /*clear*/ /*_#IS_LIST__L7*/ meltfnum[6] = 0 ; - /*^clear*/ - /*clear*/ /*_.IFELSE___V19*/ meltfptr[17] = 0 ;} - ; - } - ; - /*_.IFELSE___V15*/ meltfptr[14] = /*_.IFELSE___V17*/ meltfptr[15];; - /*epilog*/ - - MELT_LOCATION("warmelt-normatch.melt:2689:/ clear"); - /*clear*/ /*_#IS_A__L6*/ meltfnum[5] = 0 ; - /*^clear*/ - /*clear*/ /*_.IFELSE___V17*/ meltfptr[15] = 0 ;} - ; - } - ; - /*_.LET___V13*/ meltfptr[12] = /*_.IFELSE___V15*/ meltfptr[14];; - - MELT_LOCATION("warmelt-normatch.melt:2687:/ clear"); - /*clear*/ /*_.THENGROUP__V14*/ meltfptr[13] = 0 ; - /*^clear*/ - /*clear*/ /*_#NULL__L5*/ meltfnum[0] = 0 ; - /*^clear*/ - /*clear*/ /*_.IFELSE___V15*/ meltfptr[14] = 0 ; - MELT_LOCATION("warmelt-normatch.melt:2681:/ quasiblock"); - - - /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V13*/ meltfptr[12];; - MELT_LOCATION("warmelt-normatch.melt:2681:/ finalreturn"); - ; - /*finalret*/ goto labend_rout ; - /*epilog*/ - - /*^clear*/ - /*clear*/ /*_.IFCPP___V4*/ meltfptr[3] = 0 ; - /*^clear*/ - /*clear*/ /*_.IFCPP___V6*/ meltfptr[4] = 0 ; - /*^clear*/ - /*clear*/ /*_.IFCPP___V8*/ meltfptr[6] = 0 ; - /*^clear*/ - /*clear*/ /*_.IFCPP___V10*/ meltfptr[8] = 0 ; - /*^clear*/ - /*clear*/ /*_.PUTTHEN_MATCHTHEN__V12*/ meltfptr[10] = 0 ; - /*^clear*/ - /*clear*/ /*_.LET___V13*/ meltfptr[12] = 0 ;} - -; - goto labend_rout; -labend_rout: -melt_trace_end("PUTTHEN_MATCHGROUP", meltcallcount); melt_topframe = (struct callframe_melt_st*) meltfram__.prev; - return (melt_ptr_t)(/*_.RETVAL___V1*/ meltfptr[0]); -#undef meltcallcount -#undef meltfram__ -#undef MELTFRAM_NBVARNUM -#undef MELTFRAM_NBVARPTR -} /*end meltrout_58_warmelt_normatch_PUTTHEN_MATCHGROUP*/ - - - - - -melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_59_warmelt_normatch_PUTELSE_MATCHTEST(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, - const char xresdescr_[], union meltparam_un *xrestab_) -{ -#if ENABLE_CHECKING - static long call_counter__; - long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; -#undef meltcallcount -#define meltcallcount thiscallcounter__ -#else -#undef meltcallcount -#define meltcallcount 0L -#endif - - struct frame_meltrout_59_warmelt_normatch_PUTELSE_MATCHTEST_st { unsigned nbvar; -#if ENABLE_CHECKING - const char* flocs; -#endif - struct meltclosure_st *clos; - struct excepth_melt_st *exh; - struct callframe_melt_st *prev; -#define MELTFRAM_NBVARPTR 21 - void* varptr[21]; -#define MELTFRAM_NBVARNUM 6 - long varnum[6]; -/*others*/ - long _spare_; } - *framptr_=0, meltframe; -#define meltfram__ meltframe - if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/ - int ix=0; - framptr_ = (void*)firstargp_; - gt_ggc_mx_melt_un (framptr_->clos); - for(ix=0; ix<21; ix++) - if (framptr_->varptr[ix]) - gt_ggc_mx_melt_un (framptr_->varptr[ix]); - return NULL; - }/*end markggc*/; - memset(&meltfram__, 0, sizeof(meltfram__)); - meltfram__.nbvar = 21; - meltfram__.clos = closp_; - meltfram__.prev = (struct callframe_melt_st *) melt_topframe; - melt_topframe = (struct callframe_melt_st *) &meltfram__; -melt_trace_start("PUTELSE_MATCHTEST", meltcallcount); -/*getargs*/ - - /*getarg#0*/ - MELT_LOCATION("warmelt-normatch.melt:2714:/ getarg"); - /*_.RECV__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; - - /*getarg#1*/ - /*^getarg*/ - if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; - /*_.ELSESTEP__V3*/ meltfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.ELSESTEP__V3*/ meltfptr[2])) != NULL); - - ; - goto lab_endgetargs; -lab_endgetargs:; -/*body*/ -/*^block*/ -/*anyblock*/{ - - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normatch.melt:2715:/ cppif.then"); - /*^block*/ - /*anyblock*/{ - - /*_#THE_MELTCALLCOUNT__L1*/ meltfnum[0] = - meltcallcount;; - MELT_LOCATION("warmelt-normatch.melt:2715:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - /*^apply.arg*/ - argtab[0].bp_cstring = "putelse_matchtest recv"; - /*^apply.arg*/ - argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L1*/ meltfnum[0]; - /*^apply.arg*/ - argtab[2].bp_cstring = "warmelt-normatch.melt"; - /*^apply.arg*/ - argtab[3].bp_long = 2715; - /*_.DEBUG_MSG_FUN__V5*/ meltfptr[4] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V4*/ meltfptr[3] = /*_.DEBUG_MSG_FUN__V5*/ meltfptr[4];; - /*epilog*/ - - MELT_LOCATION("warmelt-normatch.melt:2715:/ clear"); - /*clear*/ /*_#THE_MELTCALLCOUNT__L1*/ meltfnum[0] = 0 ; - /*^clear*/ - /*clear*/ /*_.DEBUG_MSG_FUN__V5*/ meltfptr[4] = 0 ;} - - #else /*ENABLE_CHECKING*/ - /*^cppif.else*/ - /*_.IFCPP___V4*/ meltfptr[3] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normatch.melt:2716:/ cppif.then"); - /*^block*/ - /*anyblock*/{ - - /*_#IS_A__L2*/ meltfnum[0] = - melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_MATCH_STEP_TEST*/ meltfrout->tabval[1])));; - MELT_LOCATION("warmelt-normatch.melt:2716:/ cond"); - /*cond*/ if (/*_#IS_A__L2*/ meltfnum[0]) /*then*/ { - /*^cond.then*/ - /*_.IFELSE___V7*/ meltfptr[6] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normatch.melt:2716:/ cond.else"); - - /*^block*/ - /*anyblock*/{ - - - - - { - /*^locexp*/ - melt_assert_failed(( "check recv"),( "warmelt-normatch.melt")?( "warmelt-normatch.melt"):__FILE__, - (2716)?(2716):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V7*/ meltfptr[6] = 0 ; - /*epilog*/ - } - ; - } - ; - /*^compute*/ - - /*_.IFCPP___V6*/ meltfptr[4] = /*_.IFELSE___V7*/ meltfptr[6];; - /*epilog*/ - - MELT_LOCATION("warmelt-normatch.melt:2716:/ clear"); - /*clear*/ /*_#IS_A__L2*/ meltfnum[0] = 0 ; - /*^clear*/ - /*clear*/ /*_.IFELSE___V7*/ meltfptr[6] = 0 ;} - - #else /*ENABLE_CHECKING*/ - /*^cppif.else*/ - /*_.IFCPP___V6*/ meltfptr[4] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normatch.melt:2717:/ cppif.then"); - /*^block*/ - /*anyblock*/{ - - /*_#THE_MELTCALLCOUNT__L3*/ meltfnum[0] = - meltcallcount;; - MELT_LOCATION("warmelt-normatch.melt:2717:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - /*^apply.arg*/ - argtab[0].bp_cstring = "putelse_matchtest elsestep"; - /*^apply.arg*/ - argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L3*/ meltfnum[0]; - /*^apply.arg*/ - argtab[2].bp_cstring = "warmelt-normatch.melt"; - /*^apply.arg*/ - argtab[3].bp_long = 2717; - /*_.DEBUG_MSG_FUN__V9*/ meltfptr[8] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.ELSESTEP__V3*/ meltfptr[2]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V8*/ meltfptr[6] = /*_.DEBUG_MSG_FUN__V9*/ meltfptr[8];; - /*epilog*/ - - MELT_LOCATION("warmelt-normatch.melt:2717:/ clear"); - /*clear*/ /*_#THE_MELTCALLCOUNT__L3*/ meltfnum[0] = 0 ; - /*^clear*/ - /*clear*/ /*_.DEBUG_MSG_FUN__V9*/ meltfptr[8] = 0 ;} - - #else /*ENABLE_CHECKING*/ - /*^cppif.else*/ - /*_.IFCPP___V8*/ meltfptr[6] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normatch.melt:2718:/ cppif.then"); - /*^block*/ - /*anyblock*/{ - - /*_#IS_A__L4*/ meltfnum[0] = - melt_is_instance_of((melt_ptr_t)(/*_.ELSESTEP__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_MATCH_STEP*/ meltfrout->tabval[2])));; - MELT_LOCATION("warmelt-normatch.melt:2718:/ cond"); - /*cond*/ if (/*_#IS_A__L4*/ meltfnum[0]) /*then*/ { - /*^cond.then*/ - /*_.IFELSE___V11*/ meltfptr[10] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normatch.melt:2718:/ cond.else"); - - /*^block*/ + /*_.IFELSE___V7*/ meltfptr[6] = (/*nil*/NULL);; + } else {MELT_LOCATION("warmelt-normatch.melt:2686:/ cond.else"); + + /*^block*/ /*anyblock*/{ @@ -22179,224 +20799,182 @@ lab_endgetargs:; { /*^locexp*/ - melt_assert_failed(( "check elsestep"),( "warmelt-normatch.melt")?( "warmelt-normatch.melt"):__FILE__, - (2718)?(2718):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V11*/ meltfptr[10] = 0 ; - /*epilog*/ - } - ; - } - ; - /*^compute*/ - - /*_.IFCPP___V10*/ meltfptr[8] = /*_.IFELSE___V11*/ meltfptr[10];; - /*epilog*/ - - MELT_LOCATION("warmelt-normatch.melt:2718:/ clear"); - /*clear*/ /*_#IS_A__L4*/ meltfnum[0] = 0 ; - /*^clear*/ - /*clear*/ /*_.IFELSE___V11*/ meltfptr[10] = 0 ;} - - #else /*ENABLE_CHECKING*/ - /*^cppif.else*/ - /*_.IFCPP___V10*/ meltfptr[8] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - MELT_LOCATION("warmelt-normatch.melt:2720:/ quasiblock"); - - - /*^getslot*/ - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), 4, "MSTEP_ELSE");/*_.MYELSE__V13*/ meltfptr[12] = slot; }; - ; - /*_#NULL__L5*/ meltfnum[0] = - ((/*_.MYELSE__V13*/ meltfptr[12]) == NULL);; - MELT_LOCATION("warmelt-normatch.melt:2722:/ cond"); - /*cond*/ if (/*_#NULL__L5*/ meltfnum[0]) /*then*/ { - /*^cond.then*/ - /*^block*/ - /*anyblock*/{ - - MELT_LOCATION("warmelt-normatch.melt:2723:/ apply"); - /*apply*/{ - /*_.START_STEP__V15*/ meltfptr[14] = melt_apply ((meltclosure_ptr_t)((/*!START_STEP*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.ELSESTEP__V3*/ meltfptr[2]), (""), (union meltparam_un*)0, "", (union meltparam_un*)0); - } - ; - /*^quasiblock*/ - - - /*^putslot*/ - /*putslot*/ - melt_assertmsg("putslot checkobj @MSTEP_ELSE", melt_magic_discr((melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1])) == OBMAG_OBJECT); - melt_putfield_object((/*_.RECV__V2*/ meltfptr[1]), (4), (/*_.START_STEP__V15*/ meltfptr[14]), "MSTEP_ELSE"); - ; - /*^touch*/ - meltgc_touch(/*_.RECV__V2*/ meltfptr[1]); - ; - - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normatch.melt:2724:/ cppif.then"); - /*^block*/ - /*anyblock*/{ - - /*_#THE_MELTCALLCOUNT__L6*/ meltfnum[5] = - meltcallcount;; - MELT_LOCATION("warmelt-normatch.melt:2724:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - /*^apply.arg*/ - argtab[0].bp_cstring = "putelse_matchtest updated recv"; - /*^apply.arg*/ - argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L6*/ meltfnum[5]; - /*^apply.arg*/ - argtab[2].bp_cstring = "warmelt-normatch.melt"; - /*^apply.arg*/ - argtab[3].bp_long = 2724; - /*_.DEBUG_MSG_FUN__V17*/ meltfptr[16] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V16*/ meltfptr[15] = /*_.DEBUG_MSG_FUN__V17*/ meltfptr[16];; - /*epilog*/ - - MELT_LOCATION("warmelt-normatch.melt:2724:/ clear"); - /*clear*/ /*_#THE_MELTCALLCOUNT__L6*/ meltfnum[5] = 0 ; - /*^clear*/ - /*clear*/ /*_.DEBUG_MSG_FUN__V17*/ meltfptr[16] = 0 ;} - - #else /*ENABLE_CHECKING*/ - /*^cppif.else*/ - /*_.IFCPP___V16*/ meltfptr[15] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - MELT_LOCATION("warmelt-normatch.melt:2722:/ quasiblock"); - - - /*_.PROGN___V18*/ meltfptr[16] = /*_.IFCPP___V16*/ meltfptr[15];; - /*^compute*/ - - /*_.IFELSE___V14*/ meltfptr[13] = /*_.PROGN___V18*/ meltfptr[16];; - /*epilog*/ - - MELT_LOCATION("warmelt-normatch.melt:2722:/ clear"); - /*clear*/ /*_.START_STEP__V15*/ meltfptr[14] = 0 ; - /*^clear*/ - /*clear*/ /*_.IFCPP___V16*/ meltfptr[15] = 0 ; - /*^clear*/ - /*clear*/ /*_.PROGN___V18*/ meltfptr[16] = 0 ;} - ; - } else {/*^cond.else*/ - - /*^block*/ - /*anyblock*/{ - - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normatch.melt:2728:/ cppif.then"); - /*^block*/ - /*anyblock*/{ - - /*^cond*/ - /*cond*/ if ((/*nil*/NULL)) /*then*/ { - /*^cond.then*/ - /*_.IFELSE___V20*/ meltfptr[15] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normatch.melt:2728:/ cond.else"); - - /*^block*/ - /*anyblock*/{ - - - - - { - /*^locexp*/ - melt_assert_failed(( "$@$unexpected putelse_matchtest already else"),( "warmelt-normatch.melt")?( "warmelt-normatch.melt"):__FILE__, - (2728)?(2728):__LINE__, __FUNCTION__); + melt_assert_failed(( "check curmcase"),( "warmelt-normatch.melt")?( "warmelt-normatch.melt"):__FILE__, + (2686)?(2686):__LINE__, __FUNCTION__); ;} - ; - /*clear*/ /*_.IFELSE___V20*/ meltfptr[15] = 0 ; - /*epilog*/ - } - ; - } ; - /*^compute*/ - - /*_.IFCPP___V19*/ meltfptr[14] = /*_.IFELSE___V20*/ meltfptr[15];; + /*clear*/ /*_.IFELSE___V7*/ meltfptr[6] = 0 ; /*epilog*/ - - MELT_LOCATION("warmelt-normatch.melt:2728:/ clear"); - /*clear*/ /*_.IFELSE___V20*/ meltfptr[15] = 0 ;} - - #else /*ENABLE_CHECKING*/ - /*^cppif.else*/ - /*_.IFCPP___V19*/ meltfptr[14] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ + } ; - MELT_LOCATION("warmelt-normatch.melt:2726:/ quasiblock"); - - - /*_.PROGN___V21*/ meltfptr[16] = /*_.IFCPP___V19*/ meltfptr[14];; + } + ; /*^compute*/ - /*_.IFELSE___V14*/ meltfptr[13] = /*_.PROGN___V21*/ meltfptr[16];; + /*_.IFCPP___V6*/ meltfptr[4] = /*_.IFELSE___V7*/ meltfptr[6];; /*epilog*/ - MELT_LOCATION("warmelt-normatch.melt:2722:/ clear"); - /*clear*/ /*_.IFCPP___V19*/ meltfptr[14] = 0 ; + MELT_LOCATION("warmelt-normatch.melt:2686:/ clear"); + /*clear*/ /*_#IS_A__L2*/ meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_.PROGN___V21*/ meltfptr[16] = 0 ;} + /*clear*/ /*_.IFELSE___V7*/ meltfptr[6] = 0 ;} + + #else /*ENABLE_CHECKING*/ + /*^cppif.else*/ + /*_.IFCPP___V6*/ meltfptr[4] = (/*nil*/NULL); + #endif /*ENABLE_CHECKING*/ ; - } + MELT_LOCATION("warmelt-normatch.melt:2687:/ quasiblock"); + + + /*_.OURPATVARMAP__V8*/ meltfptr[6] = + (meltgc_new_mapobjects( (meltobject_ptr_t) ((/*!DISCR_MAP_OBJECTS*/ meltfrout->tabval[2])), (17)));; + MELT_LOCATION("warmelt-normatch.melt:2689:/ getslot"); + { melt_ptr_t slot=0; + melt_object_get_field(slot,(melt_ptr_t)(/*_.CURMCASE__V2*/ meltfptr[1]), 2, "MCASE_SOURCE");/*_.CURSCAS__V9*/ meltfptr[8] = slot; }; + ; + MELT_LOCATION("warmelt-normatch.melt:2690:/ getslot"); + { melt_ptr_t slot=0; + melt_object_get_field(slot,(melt_ptr_t)(/*_.CURSCAS__V9*/ meltfptr[8]), 2, "SCAM_PATT");/*_.CURPAT__V10*/ meltfptr[9] = slot; }; + ; + MELT_LOCATION("warmelt-normatch.melt:2692:/ blockmultialloc"); + /*multiallocblock*/{ + struct meltletrec_1_st { + struct MELT_CLOSURE_STRUCT(0) rclo_0__VARPATSCANNER; long meltletrec_1_endgap; } *meltletrec_1_ptr = 0; + meltletrec_1_ptr = (struct meltletrec_1_st *) meltgc_allocate (sizeof (struct meltletrec_1_st), 0); + /*^blockmultialloc.initfill*/ + /*iniclos rclo_0__VARPATSCANNER*/ + /*_.VARPATSCANNER__V12*/ meltfptr[11] = (void*)&meltletrec_1_ptr->rclo_0__VARPATSCANNER; + meltletrec_1_ptr->rclo_0__VARPATSCANNER.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); + meltletrec_1_ptr->rclo_0__VARPATSCANNER.nbval = 0; + meltletrec_1_ptr->rclo_0__VARPATSCANNER.rout = (meltroutine_ptr_t) ((/*!konst_6*/ meltfrout->tabval[6])); + + + + MELT_LOCATION("warmelt-normatch.melt:2694:/ putclosurout"); + /*putclosurout*/ + melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VARPATSCANNER__V12*/ meltfptr[11])) == OBMAG_CLOSURE); + melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)((/*!konst_6*/ meltfrout->tabval[6]))) == OBMAG_ROUTINE); + ((meltclosure_ptr_t)/*_.VARPATSCANNER__V12*/ meltfptr[11])->rout = (meltroutine_ptr_t) ((/*!konst_6*/ meltfrout->tabval[6])); + ; + /*^touch*/ + meltgc_touch(/*_.VARPATSCANNER__V12*/ meltfptr[11]); + ; + MELT_LOCATION("warmelt-normatch.melt:2709:/ apply"); + /*apply*/{ + union meltparam_un argtab[1]; + memset(&argtab, 0, sizeof(argtab)); + /*^apply.arg*/ + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.OURPATVARMAP__V8*/ meltfptr[6]; + /*_.VARPATSCANNER__V13*/ meltfptr[12] = melt_apply ((meltclosure_ptr_t)(/*_.VARPATSCANNER__V12*/ meltfptr[11]), (melt_ptr_t)(/*_.CURPAT__V10*/ meltfptr[9]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + } + ; + MELT_LOCATION("warmelt-normatch.melt:2710:/ msend"); + /*msend*/{ + union meltparam_un argtab[2]; + memset(&argtab, 0, sizeof(argtab)); + /*^ojbmsend.arg*/ + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VARPATSCANNER__V12*/ meltfptr[11]; + /*^ojbmsend.arg*/ + argtab[1].bp_aptr = (melt_ptr_t*) &/*_.OURPATVARMAP__V8*/ meltfptr[6]; + /*_.SCAN_SUBPATTERNS__V14*/ meltfptr[13] = meltgc_send((melt_ptr_t)(/*_.CURPAT__V10*/ meltfptr[9]), (melt_ptr_t)((/*!SCAN_SUBPATTERNS*/ meltfrout->tabval[7])), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + } + ; + /*_.LETREC___V11*/ meltfptr[10] = /*_.SCAN_SUBPATTERNS__V14*/ meltfptr[13];; + /*epilog*/ + + MELT_LOCATION("warmelt-normatch.melt:2692:/ clear"); + /*clear*/ /*_.VARPATSCANNER__V12*/ meltfptr[11] = 0 ; + /*^clear*/ + /*clear*/ /*_.VARPATSCANNER__V12*/ meltfptr[11] = 0 ; + /*^clear*/ + /*clear*/ /*_.VARPATSCANNER__V13*/ meltfptr[12] = 0 ; + /*^clear*/ + /*clear*/ /*_.SCAN_SUBPATTERNS__V14*/ meltfptr[13] = 0 ;} /*end multiallocblock*/ ; - /*_.LET___V12*/ meltfptr[10] = /*_.IFELSE___V14*/ meltfptr[13];; - MELT_LOCATION("warmelt-normatch.melt:2720:/ clear"); - /*clear*/ /*_.MYELSE__V13*/ meltfptr[12] = 0 ; - /*^clear*/ - /*clear*/ /*_#NULL__L5*/ meltfnum[0] = 0 ; - /*^clear*/ - /*clear*/ /*_.IFELSE___V14*/ meltfptr[13] = 0 ; - MELT_LOCATION("warmelt-normatch.melt:2714:/ quasiblock"); + #if ENABLE_CHECKING + MELT_LOCATION("warmelt-normatch.melt:2712:/ cppif.then"); + /*^block*/ + /*anyblock*/{ + + /*_#THE_MELTCALLCOUNT__L3*/ meltfnum[0] = + meltcallcount;; + MELT_LOCATION("warmelt-normatch.melt:2712:/ apply"); + /*apply*/{ + union meltparam_un argtab[4]; + memset(&argtab, 0, sizeof(argtab)); + /*^apply.arg*/ + argtab[0].bp_cstring = "fill_matchcase ourpatvarmap"; + /*^apply.arg*/ + argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L3*/ meltfnum[0]; + /*^apply.arg*/ + argtab[2].bp_cstring = "warmelt-normatch.melt"; + /*^apply.arg*/ + argtab[3].bp_long = 2712; + /*_.DEBUG_MSG_FUN__V16*/ meltfptr[12] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.OURPATVARMAP__V8*/ meltfptr[6]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + } + ; + /*_.IFCPP___V15*/ meltfptr[11] = /*_.DEBUG_MSG_FUN__V16*/ meltfptr[12];; + /*epilog*/ + + MELT_LOCATION("warmelt-normatch.melt:2712:/ clear"); + /*clear*/ /*_#THE_MELTCALLCOUNT__L3*/ meltfnum[0] = 0 ; + /*^clear*/ + /*clear*/ /*_.DEBUG_MSG_FUN__V16*/ meltfptr[12] = 0 ;} + + #else /*ENABLE_CHECKING*/ + /*^cppif.else*/ + /*_.IFCPP___V15*/ meltfptr[11] = (/*nil*/NULL); + #endif /*ENABLE_CHECKING*/ + ; + MELT_LOCATION("warmelt-normatch.melt:2713:/ quasiblock"); - /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V12*/ meltfptr[10];; - MELT_LOCATION("warmelt-normatch.melt:2714:/ finalreturn"); + /*^putslot*/ + /*putslot*/ + melt_assertmsg("putslot checkobj @MCASE_VARMAP", melt_magic_discr((melt_ptr_t)(/*_.CURMCASE__V2*/ meltfptr[1])) == OBMAG_OBJECT); + melt_putfield_object((/*_.CURMCASE__V2*/ meltfptr[1]), (4), (/*_.OURPATVARMAP__V8*/ meltfptr[6]), "MCASE_VARMAP"); ; - /*finalret*/ goto labend_rout ; - /*epilog*/ + /*^touch*/ + meltgc_touch(/*_.CURMCASE__V2*/ meltfptr[1]); + ; + + MELT_LOCATION("warmelt-normatch.melt:2687:/ clear"); + /*clear*/ /*_.OURPATVARMAP__V8*/ meltfptr[6] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V4*/ meltfptr[3] = 0 ; + /*clear*/ /*_.CURSCAS__V9*/ meltfptr[8] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V6*/ meltfptr[4] = 0 ; + /*clear*/ /*_.CURPAT__V10*/ meltfptr[9] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V8*/ meltfptr[6] = 0 ; + /*clear*/ /*_.LETREC___V11*/ meltfptr[10] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V10*/ meltfptr[8] = 0 ; + /*clear*/ /*_.IFCPP___V15*/ meltfptr[11] = 0 ; + /*epilog*/ + + MELT_LOCATION("warmelt-normatch.melt:2684:/ clear"); + /*clear*/ /*_.IFCPP___V4*/ meltfptr[3] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V12*/ meltfptr[10] = 0 ;} + /*clear*/ /*_.IFCPP___V6*/ meltfptr[4] = 0 ;} ; goto labend_rout; labend_rout: -melt_trace_end("PUTELSE_MATCHTEST", meltcallcount); melt_topframe = (struct callframe_melt_st*) meltfram__.prev; - return (melt_ptr_t)(/*_.RETVAL___V1*/ meltfptr[0]); +melt_trace_end("FILL_MATCHCASE", meltcallcount); melt_topframe = (struct callframe_melt_st*) meltfram__.prev; + return (melt_ptr_t)(/*noretval*/ NULL); #undef meltcallcount #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR -} /*end meltrout_59_warmelt_normatch_PUTELSE_MATCHTEST*/ +} /*end meltrout_55_warmelt_normatch_FILL_MATCHCASE*/ melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_60_warmelt_normatch_PUTELSE_MATCHGROUP(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, +meltrout_56_warmelt_normatch_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_) { #if ENABLE_CHECKING @@ -22409,17 +20987,17 @@ meltrout_60_warmelt_normatch_PUTELSE_MATCHGROUP(meltclosure_ptr_t closp_, melt_p #define meltcallcount 0L #endif - struct frame_meltrout_60_warmelt_normatch_PUTELSE_MATCHGROUP_st { unsigned nbvar; + struct frame_meltrout_56_warmelt_normatch_LAMBDA__st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct meltclosure_st *clos; struct excepth_melt_st *exh; struct callframe_melt_st *prev; -#define MELTFRAM_NBVARPTR 30 - void* varptr[30]; -#define MELTFRAM_NBVARNUM 10 - long varnum[10]; +#define MELTFRAM_NBVARPTR 9 + void* varptr[9]; +#define MELTFRAM_NBVARNUM 3 + long varnum[3]; /*others*/ long _spare_; } *framptr_=0, meltframe; @@ -22428,547 +21006,560 @@ meltrout_60_warmelt_normatch_PUTELSE_MATCHGROUP(meltclosure_ptr_t closp_, melt_p int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_melt_un (framptr_->clos); - for(ix=0; ix<30; ix++) + for(ix=0; ix<9; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_melt_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&meltfram__, 0, sizeof(meltfram__)); - meltfram__.nbvar = 30; + meltfram__.nbvar = 9; meltfram__.clos = closp_; meltfram__.prev = (struct callframe_melt_st *) melt_topframe; melt_topframe = (struct callframe_melt_st *) &meltfram__; -melt_trace_start("PUTELSE_MATCHGROUP", meltcallcount); +melt_trace_start("LAMBDA_", meltcallcount); /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-normatch.melt:2732:/ getarg"); - /*_.RECV__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; - - /*getarg#1*/ - /*^getarg*/ - if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; - /*_.ELSESTEP__V3*/ meltfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.ELSESTEP__V3*/ meltfptr[2])) != NULL); - - ; - goto lab_endgetargs; -lab_endgetargs:; -/*body*/ -/*^block*/ -/*anyblock*/{ - - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normatch.melt:2733:/ cppif.then"); - /*^block*/ - /*anyblock*/{ - - /*_#THE_MELTCALLCOUNT__L1*/ meltfnum[0] = - meltcallcount;; - MELT_LOCATION("warmelt-normatch.melt:2733:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - /*^apply.arg*/ - argtab[0].bp_cstring = "putelse_matchgroup recv"; - /*^apply.arg*/ - argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L1*/ meltfnum[0]; - /*^apply.arg*/ - argtab[2].bp_cstring = "warmelt-normatch.melt"; - /*^apply.arg*/ - argtab[3].bp_long = 2733; - /*_.DEBUG_MSG_FUN__V5*/ meltfptr[4] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V4*/ meltfptr[3] = /*_.DEBUG_MSG_FUN__V5*/ meltfptr[4];; - /*epilog*/ - - MELT_LOCATION("warmelt-normatch.melt:2733:/ clear"); - /*clear*/ /*_#THE_MELTCALLCOUNT__L1*/ meltfnum[0] = 0 ; - /*^clear*/ - /*clear*/ /*_.DEBUG_MSG_FUN__V5*/ meltfptr[4] = 0 ;} - - #else /*ENABLE_CHECKING*/ - /*^cppif.else*/ - /*_.IFCPP___V4*/ meltfptr[3] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normatch.melt:2734:/ cppif.then"); - /*^block*/ - /*anyblock*/{ - - /*_#IS_A__L2*/ meltfnum[0] = - melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_MATCH_STEP_TEST_GROUP*/ meltfrout->tabval[1])));; - MELT_LOCATION("warmelt-normatch.melt:2734:/ cond"); - /*cond*/ if (/*_#IS_A__L2*/ meltfnum[0]) /*then*/ { - /*^cond.then*/ - /*_.IFELSE___V7*/ meltfptr[6] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normatch.melt:2734:/ cond.else"); - - /*^block*/ - /*anyblock*/{ - - - - - { - /*^locexp*/ - melt_assert_failed(( "check recv"),( "warmelt-normatch.melt")?( "warmelt-normatch.melt"):__FILE__, - (2734)?(2734):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V7*/ meltfptr[6] = 0 ; - /*epilog*/ - } - ; - } - ; - /*^compute*/ - - /*_.IFCPP___V6*/ meltfptr[4] = /*_.IFELSE___V7*/ meltfptr[6];; - /*epilog*/ - - MELT_LOCATION("warmelt-normatch.melt:2734:/ clear"); - /*clear*/ /*_#IS_A__L2*/ meltfnum[0] = 0 ; - /*^clear*/ - /*clear*/ /*_.IFELSE___V7*/ meltfptr[6] = 0 ;} - - #else /*ENABLE_CHECKING*/ - /*^cppif.else*/ - /*_.IFCPP___V6*/ meltfptr[4] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; + MELT_LOCATION("warmelt-normatch.melt:2694:/ getarg"); + /*_.PAT__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; + + /*getarg#1*/ + /*^getarg*/ + if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; + /*_.PATVARMAP__V3*/ meltfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; + gcc_assert(melt_discr((melt_ptr_t)(/*_.PATVARMAP__V3*/ meltfptr[2])) != NULL); + + ; + goto lab_endgetargs; +lab_endgetargs:; +/*body*/ +/*^block*/ +/*anyblock*/{ + #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normatch.melt:2735:/ cppif.then"); + MELT_LOCATION("warmelt-normatch.melt:2695:/ cppif.then"); /*^block*/ /*anyblock*/{ - /*_#THE_MELTCALLCOUNT__L3*/ meltfnum[0] = + /*_#THE_MELTCALLCOUNT__L1*/ meltfnum[0] = meltcallcount;; - MELT_LOCATION("warmelt-normatch.melt:2735:/ apply"); + MELT_LOCATION("warmelt-normatch.melt:2695:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_cstring = "putelse_matchgroup elsestep"; + argtab[0].bp_cstring = "fill_matchcase/varpatscanner pat"; /*^apply.arg*/ - argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L3*/ meltfnum[0]; + argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L1*/ meltfnum[0]; /*^apply.arg*/ argtab[2].bp_cstring = "warmelt-normatch.melt"; /*^apply.arg*/ - argtab[3].bp_long = 2735; - /*_.DEBUG_MSG_FUN__V9*/ meltfptr[8] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.ELSESTEP__V3*/ meltfptr[2]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + argtab[3].bp_long = 2695; + /*_.DEBUG_MSG_FUN__V5*/ meltfptr[4] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.PAT__V2*/ meltfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; - /*_.IFCPP___V8*/ meltfptr[6] = /*_.DEBUG_MSG_FUN__V9*/ meltfptr[8];; + /*_.IFCPP___V4*/ meltfptr[3] = /*_.DEBUG_MSG_FUN__V5*/ meltfptr[4];; /*epilog*/ - MELT_LOCATION("warmelt-normatch.melt:2735:/ clear"); - /*clear*/ /*_#THE_MELTCALLCOUNT__L3*/ meltfnum[0] = 0 ; + MELT_LOCATION("warmelt-normatch.melt:2695:/ clear"); + /*clear*/ /*_#THE_MELTCALLCOUNT__L1*/ meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_.DEBUG_MSG_FUN__V9*/ meltfptr[8] = 0 ;} + /*clear*/ /*_.DEBUG_MSG_FUN__V5*/ meltfptr[4] = 0 ;} #else /*ENABLE_CHECKING*/ /*^cppif.else*/ - /*_.IFCPP___V8*/ meltfptr[6] = (/*nil*/NULL); + /*_.IFCPP___V4*/ meltfptr[3] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normatch.melt:2736:/ cppif.then"); + /*^compute*/ + + /*_#IS_A__L2*/ meltfnum[0] = + melt_is_instance_of((melt_ptr_t)(/*_.PAT__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_PATTERN_VARIABLE*/ meltfrout->tabval[1])));; + MELT_LOCATION("warmelt-normatch.melt:2696:/ cond"); + /*cond*/ if (/*_#IS_A__L2*/ meltfnum[0]) /*then*/ { + /*^cond.then*/ /*^block*/ /*anyblock*/{ - /*_#IS_A__L4*/ meltfnum[0] = - melt_is_instance_of((melt_ptr_t)(/*_.ELSESTEP__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_MATCH_STEP*/ meltfrout->tabval[2])));; - MELT_LOCATION("warmelt-normatch.melt:2736:/ cond"); - /*cond*/ if (/*_#IS_A__L4*/ meltfnum[0]) /*then*/ { - /*^cond.then*/ - /*_.IFELSE___V11*/ meltfptr[10] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normatch.melt:2736:/ cond.else"); + MELT_LOCATION("warmelt-normatch.melt:2697:/ quasiblock"); - /*^block*/ + + MELT_LOCATION("warmelt-normatch.melt:2698:/ getslot"); + { melt_ptr_t slot=0; + melt_object_get_field(slot,(melt_ptr_t)(/*_.PAT__V2*/ meltfptr[1]), 2, "SPATVAR_SYMB");/*_.PVARSYMB__V6*/ meltfptr[4] = slot; }; + ; + /*_.VAROCCLIST__V7*/ meltfptr[6] = + melt_get_mapobjects((meltmapobjects_ptr_t)(/*_.PATVARMAP__V3*/ meltfptr[2]), (meltobject_ptr_t)(/*_.PVARSYMB__V6*/ meltfptr[4]));; + /*^compute*/ + + /*_#NULL__L3*/ meltfnum[2] = + ((/*_.VAROCCLIST__V7*/ meltfptr[6]) == NULL);; + MELT_LOCATION("warmelt-normatch.melt:2701:/ cond"); + /*cond*/ if (/*_#NULL__L3*/ meltfnum[2]) /*then*/ { + /*^cond.then*/ + /*^block*/ /*anyblock*/{ - - + /*_.MAKE_LIST__V8*/ meltfptr[7] = + (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ meltfrout->tabval[2]))));; + MELT_LOCATION("warmelt-normatch.melt:2703:/ compute"); + /*_.VAROCCLIST__V7*/ meltfptr[6] = /*_.SETQ___V9*/ meltfptr[8] = /*_.MAKE_LIST__V8*/ meltfptr[7];; { - /*^locexp*/ - melt_assert_failed(( "check elsestep"),( "warmelt-normatch.melt")?( "warmelt-normatch.melt"):__FILE__, - (2736)?(2736):__LINE__, __FUNCTION__); -;} + MELT_LOCATION("warmelt-normatch.melt:2704:/ locexp"); + meltgc_put_mapobjects( (meltmapobjects_ptr_t) (/*_.PATVARMAP__V3*/ meltfptr[2]), + (meltobject_ptr_t) (/*_.PVARSYMB__V6*/ meltfptr[4]), + (melt_ptr_t)(/*_.VAROCCLIST__V7*/ meltfptr[6]));} ; - /*clear*/ /*_.IFELSE___V11*/ meltfptr[10] = 0 ; + MELT_LOCATION("warmelt-normatch.melt:2702:/ quasiblock"); + + /*epilog*/ - } + + MELT_LOCATION("warmelt-normatch.melt:2701:/ clear"); + /*clear*/ /*_.MAKE_LIST__V8*/ meltfptr[7] = 0 ; + /*^clear*/ + /*clear*/ /*_.SETQ___V9*/ meltfptr[8] = 0 ;} ; - } + } /*noelse*/ ; - /*^compute*/ - - /*_.IFCPP___V10*/ meltfptr[8] = /*_.IFELSE___V11*/ meltfptr[10];; - /*epilog*/ - MELT_LOCATION("warmelt-normatch.melt:2736:/ clear"); - /*clear*/ /*_#IS_A__L4*/ meltfnum[0] = 0 ; + { + MELT_LOCATION("warmelt-normatch.melt:2705:/ locexp"); + meltgc_append_list((melt_ptr_t)(/*_.VAROCCLIST__V7*/ meltfptr[6]), (melt_ptr_t)(/*_.PAT__V2*/ meltfptr[1]));} + ; + + MELT_LOCATION("warmelt-normatch.melt:2697:/ clear"); + /*clear*/ /*_.PVARSYMB__V6*/ meltfptr[4] = 0 ; /*^clear*/ - /*clear*/ /*_.IFELSE___V11*/ meltfptr[10] = 0 ;} - - #else /*ENABLE_CHECKING*/ - /*^cppif.else*/ - /*_.IFCPP___V10*/ meltfptr[8] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ + /*clear*/ /*_.VAROCCLIST__V7*/ meltfptr[6] = 0 ; + /*^clear*/ + /*clear*/ /*_#NULL__L3*/ meltfnum[2] = 0 ; + /*epilog*/ + } ; - MELT_LOCATION("warmelt-normatch.melt:2737:/ apply"); - /*apply*/{ - /*_.START_STEP__V12*/ meltfptr[10] = melt_apply ((meltclosure_ptr_t)((/*!START_STEP*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.ELSESTEP__V3*/ meltfptr[2]), (""), (union meltparam_un*)0, "", (union meltparam_un*)0); - } + } /*noelse*/ ; - /*^quasiblock*/ - + /*epilog*/ - /*^putslot*/ - /*putslot*/ - melt_assertmsg("putslot checkobj @MSTEP_ELSE", melt_magic_discr((melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1])) == OBMAG_OBJECT); - melt_putfield_object((/*_.RECV__V2*/ meltfptr[1]), (4), (/*_.START_STEP__V12*/ meltfptr[10]), "MSTEP_ELSE"); - ; - /*^touch*/ - meltgc_touch(/*_.RECV__V2*/ meltfptr[1]); + MELT_LOCATION("warmelt-normatch.melt:2694:/ clear"); + /*clear*/ /*_.IFCPP___V4*/ meltfptr[3] = 0 ; + /*^clear*/ + /*clear*/ /*_#IS_A__L2*/ meltfnum[0] = 0 ;} + +; + goto labend_rout; +labend_rout: +melt_trace_end("LAMBDA_", meltcallcount); melt_topframe = (struct callframe_melt_st*) meltfram__.prev; + return (melt_ptr_t)(/*noretval*/ NULL); +#undef meltcallcount +#undef meltfram__ +#undef MELTFRAM_NBVARNUM +#undef MELTFRAM_NBVARPTR +} /*end meltrout_56_warmelt_normatch_LAMBDA_*/ + + + + + +melt_ptr_t MELT_MODULE_VISIBILITY +meltrout_57_warmelt_normatch_START_STEP(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, + const char xresdescr_[], union meltparam_un *xrestab_) +{ +#if ENABLE_CHECKING + static long call_counter__; + long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; +#undef meltcallcount +#define meltcallcount thiscallcounter__ +#else +#undef meltcallcount +#define meltcallcount 0L +#endif + + struct frame_meltrout_57_warmelt_normatch_START_STEP_st { unsigned nbvar; +#if ENABLE_CHECKING + const char* flocs; +#endif + struct meltclosure_st *clos; + struct excepth_melt_st *exh; + struct callframe_melt_st *prev; +#define MELTFRAM_NBVARPTR 20 + void* varptr[20]; +#define MELTFRAM_NBVARNUM 7 + long varnum[7]; +/*others*/ + long _spare_; } + *framptr_=0, meltframe; +#define meltfram__ meltframe + if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/ + int ix=0; + framptr_ = (void*)firstargp_; + gt_ggc_mx_melt_un (framptr_->clos); + for(ix=0; ix<20; ix++) + if (framptr_->varptr[ix]) + gt_ggc_mx_melt_un (framptr_->varptr[ix]); + return NULL; + }/*end markggc*/; + memset(&meltfram__, 0, sizeof(meltfram__)); + meltfram__.nbvar = 20; + meltfram__.clos = closp_; + meltfram__.prev = (struct callframe_melt_st *) melt_topframe; + melt_topframe = (struct callframe_melt_st *) &meltfram__; +melt_trace_start("START_STEP", meltcallcount); +/*getargs*/ + + /*getarg#0*/ + MELT_LOCATION("warmelt-normatch.melt:2724:/ getarg"); + /*_.STEP__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; ; + goto lab_endgetargs; +lab_endgetargs:; +/*body*/ +/*^block*/ +/*anyblock*/{ - MELT_LOCATION("warmelt-normatch.melt:2738:/ quasiblock"); - - - /*^getslot*/ - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), 7, "MSTGROUP_ELSE");/*_.ELSEGROUP__V14*/ meltfptr[13] = slot; }; - ; - /*_#NULL__L5*/ meltfnum[0] = - ((/*_.ELSEGROUP__V14*/ meltfptr[13]) == NULL);; - MELT_LOCATION("warmelt-normatch.melt:2740:/ cond"); - /*cond*/ if (/*_#NULL__L5*/ meltfnum[0]) /*then*/ { + /*_#NULL__L1*/ meltfnum[0] = + ((/*_.STEP__V2*/ meltfptr[1]) == NULL);; + MELT_LOCATION("warmelt-normatch.melt:2726:/ cond"); + /*cond*/ if (/*_#NULL__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-normatch.melt:2741:/ quasiblock"); + MELT_LOCATION("warmelt-normatch.melt:2727:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = NULL;; - MELT_LOCATION("warmelt-normatch.melt:2741:/ finalreturn"); + MELT_LOCATION("warmelt-normatch.melt:2727:/ finalreturn"); ; /*finalret*/ goto labend_rout ; - /*_.IFELSE___V15*/ meltfptr[14] = /*_.RETURN___V16*/ meltfptr[15];; + /*_.IFELSE___V3*/ meltfptr[2] = /*_.RETURN___V4*/ meltfptr[3];; /*epilog*/ - MELT_LOCATION("warmelt-normatch.melt:2740:/ clear"); - /*clear*/ /*_.RETURN___V16*/ meltfptr[15] = 0 ;} + MELT_LOCATION("warmelt-normatch.melt:2726:/ clear"); + /*clear*/ /*_.RETURN___V4*/ meltfptr[3] = 0 ;} ; } else {/*^cond.else*/ /*^block*/ /*anyblock*/{ - /*_#IS_A__L6*/ meltfnum[5] = - melt_is_instance_of((melt_ptr_t)(/*_.ELSEGROUP__V14*/ meltfptr[13]), (melt_ptr_t)((/*!CLASS_MATCH_STEP*/ meltfrout->tabval[2])));; - MELT_LOCATION("warmelt-normatch.melt:2742:/ cond"); - /*cond*/ if (/*_#IS_A__L6*/ meltfnum[5]) /*then*/ { + /*_#IS_A__L2*/ meltfnum[1] = + melt_is_instance_of((melt_ptr_t)(/*_.STEP__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_MATCH_STEP_TEST_GROUP*/ meltfrout->tabval[0])));; + MELT_LOCATION("warmelt-normatch.melt:2729:/ cond"); + /*cond*/ if (/*_#IS_A__L2*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-normatch.melt:2743:/ msend"); - /*msend*/{ - union meltparam_un argtab[1]; - memset(&argtab, 0, sizeof(argtab)); - /*^ojbmsend.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.ELSESTEP__V3*/ meltfptr[2]; - /*_.PUT_ELSE_MATCH__V18*/ meltfptr[17] = meltgc_send((melt_ptr_t)(/*_.ELSEGROUP__V14*/ meltfptr[13]), (melt_ptr_t)((/*!PUT_ELSE_MATCH*/ meltfrout->tabval[4])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } + MELT_LOCATION("warmelt-normatch.melt:2730:/ quasiblock"); + + + /*^getslot*/ + { melt_ptr_t slot=0; + melt_object_get_field(slot,(melt_ptr_t)(/*_.STEP__V2*/ meltfptr[1]), 5, "MSTGROUP_START");/*_.STASTEP__V7*/ meltfptr[6] = slot; }; + ; + + #if ENABLE_CHECKING + MELT_LOCATION("warmelt-normatch.melt:2732:/ cppif.then"); + /*^block*/ + /*anyblock*/{ + + /*_#THE_MELTCALLCOUNT__L3*/ meltfnum[2] = + meltcallcount;; + MELT_LOCATION("warmelt-normatch.melt:2732:/ apply"); + /*apply*/{ + union meltparam_un argtab[4]; + memset(&argtab, 0, sizeof(argtab)); + /*^apply.arg*/ + argtab[0].bp_cstring = "start_step group step"; + /*^apply.arg*/ + argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L3*/ meltfnum[2]; + /*^apply.arg*/ + argtab[2].bp_cstring = "warmelt-normatch.melt"; + /*^apply.arg*/ + argtab[3].bp_long = 2732; + /*_.DEBUG_MSG_FUN__V9*/ meltfptr[8] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.STEP__V2*/ meltfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + } + ; + /*_.IFCPP___V8*/ meltfptr[7] = /*_.DEBUG_MSG_FUN__V9*/ meltfptr[8];; + /*epilog*/ + + MELT_LOCATION("warmelt-normatch.melt:2732:/ clear"); + /*clear*/ /*_#THE_MELTCALLCOUNT__L3*/ meltfnum[2] = 0 ; + /*^clear*/ + /*clear*/ /*_.DEBUG_MSG_FUN__V9*/ meltfptr[8] = 0 ;} + + #else /*ENABLE_CHECKING*/ + /*^cppif.else*/ + /*_.IFCPP___V8*/ meltfptr[7] = (/*nil*/NULL); + #endif /*ENABLE_CHECKING*/ + ; + + #if ENABLE_CHECKING + MELT_LOCATION("warmelt-normatch.melt:2733:/ cppif.then"); + /*^block*/ + /*anyblock*/{ + + /*_#THE_MELTCALLCOUNT__L4*/ meltfnum[2] = + meltcallcount;; + MELT_LOCATION("warmelt-normatch.melt:2733:/ apply"); + /*apply*/{ + union meltparam_un argtab[4]; + memset(&argtab, 0, sizeof(argtab)); + /*^apply.arg*/ + argtab[0].bp_cstring = "stastep return stastep"; + /*^apply.arg*/ + argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L4*/ meltfnum[2]; + /*^apply.arg*/ + argtab[2].bp_cstring = "warmelt-normatch.melt"; + /*^apply.arg*/ + argtab[3].bp_long = 2733; + /*_.DEBUG_MSG_FUN__V11*/ meltfptr[10] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.STASTEP__V7*/ meltfptr[6]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + } + ; + /*_.IFCPP___V10*/ meltfptr[8] = /*_.DEBUG_MSG_FUN__V11*/ meltfptr[10];; + /*epilog*/ + + MELT_LOCATION("warmelt-normatch.melt:2733:/ clear"); + /*clear*/ /*_#THE_MELTCALLCOUNT__L4*/ meltfnum[2] = 0 ; + /*^clear*/ + /*clear*/ /*_.DEBUG_MSG_FUN__V11*/ meltfptr[10] = 0 ;} + + #else /*ENABLE_CHECKING*/ + /*^cppif.else*/ + /*_.IFCPP___V10*/ meltfptr[8] = (/*nil*/NULL); + #endif /*ENABLE_CHECKING*/ + ; + + #if ENABLE_CHECKING + MELT_LOCATION("warmelt-normatch.melt:2734:/ cppif.then"); + /*^block*/ + /*anyblock*/{ + + /*_#IS_A__L5*/ meltfnum[2] = + melt_is_instance_of((melt_ptr_t)(/*_.STASTEP__V7*/ meltfptr[6]), (melt_ptr_t)((/*!CLASS_MATCH_STEP*/ meltfrout->tabval[2])));; + MELT_LOCATION("warmelt-normatch.melt:2734:/ cond"); + /*cond*/ if (/*_#IS_A__L5*/ meltfnum[2]) /*then*/ { + /*^cond.then*/ + /*_.IFELSE___V13*/ meltfptr[12] = (/*nil*/NULL);; + } else {MELT_LOCATION("warmelt-normatch.melt:2734:/ cond.else"); + + /*^block*/ + /*anyblock*/{ + + + + + { + /*^locexp*/ + melt_assert_failed(( "check stastep"),( "warmelt-normatch.melt")?( "warmelt-normatch.melt"):__FILE__, + (2734)?(2734):__LINE__, __FUNCTION__); +;} + ; + /*clear*/ /*_.IFELSE___V13*/ meltfptr[12] = 0 ; + /*epilog*/ + } + ; + } + ; + /*^compute*/ + + /*_.IFCPP___V12*/ meltfptr[10] = /*_.IFELSE___V13*/ meltfptr[12];; + /*epilog*/ + + MELT_LOCATION("warmelt-normatch.melt:2734:/ clear"); + /*clear*/ /*_#IS_A__L5*/ meltfnum[2] = 0 ; + /*^clear*/ + /*clear*/ /*_.IFELSE___V13*/ meltfptr[12] = 0 ;} + + #else /*ENABLE_CHECKING*/ + /*^cppif.else*/ + /*_.IFCPP___V12*/ meltfptr[10] = (/*nil*/NULL); + #endif /*ENABLE_CHECKING*/ + ; + MELT_LOCATION("warmelt-normatch.melt:2735:/ quasiblock"); + + + /*_.RETVAL___V1*/ meltfptr[0] = /*_.STASTEP__V7*/ meltfptr[6];; + MELT_LOCATION("warmelt-normatch.melt:2735:/ finalreturn"); ; - /*_.IFELSE___V17*/ meltfptr[15] = /*_.PUT_ELSE_MATCH__V18*/ meltfptr[17];; + /*finalret*/ goto labend_rout ; + /*_.LET___V6*/ meltfptr[5] = /*_.RETURN___V14*/ meltfptr[12];; + + MELT_LOCATION("warmelt-normatch.melt:2730:/ clear"); + /*clear*/ /*_.STASTEP__V7*/ meltfptr[6] = 0 ; + /*^clear*/ + /*clear*/ /*_.IFCPP___V8*/ meltfptr[7] = 0 ; + /*^clear*/ + /*clear*/ /*_.IFCPP___V10*/ meltfptr[8] = 0 ; + /*^clear*/ + /*clear*/ /*_.IFCPP___V12*/ meltfptr[10] = 0 ; + /*^clear*/ + /*clear*/ /*_.RETURN___V14*/ meltfptr[12] = 0 ; + /*_.IFELSE___V5*/ meltfptr[3] = /*_.LET___V6*/ meltfptr[5];; /*epilog*/ - MELT_LOCATION("warmelt-normatch.melt:2742:/ clear"); - /*clear*/ /*_.PUT_ELSE_MATCH__V18*/ meltfptr[17] = 0 ;} + MELT_LOCATION("warmelt-normatch.melt:2729:/ clear"); + /*clear*/ /*_.LET___V6*/ meltfptr[5] = 0 ;} ; } else {/*^cond.else*/ /*^block*/ /*anyblock*/{ - /*_#IS_LIST__L7*/ meltfnum[6] = - (melt_magic_discr((melt_ptr_t)(/*_.ELSEGROUP__V14*/ meltfptr[13])) == OBMAG_LIST);; - MELT_LOCATION("warmelt-normatch.melt:2744:/ cond"); - /*cond*/ if (/*_#IS_LIST__L7*/ meltfnum[6]) /*then*/ { - /*^cond.then*/ + + #if ENABLE_CHECKING + MELT_LOCATION("warmelt-normatch.melt:2737:/ cppif.then"); /*^block*/ /*anyblock*/{ - /*citerblock FOREACH_IN_LIST*/ { - /* start cit1__EACHLIST */ - for (/*_.CURPAIR__V20*/ meltfptr[19] = melt_list_first(/*_.ELSEGROUP__V14*/ meltfptr[13]); - melt_magic_discr(/*_.CURPAIR__V20*/ meltfptr[19]) == OBMAG_PAIR; - /*_.CURPAIR__V20*/ meltfptr[19] = melt_pair_tail(/*_.CURPAIR__V20*/ meltfptr[19])) { - /*_.CURELSE__V21*/ meltfptr[20] = melt_pair_head(/*_.CURPAIR__V20*/ meltfptr[19]); - - - MELT_LOCATION("warmelt-normatch.melt:2748:/ msend"); - /*msend*/{ - union meltparam_un argtab[1]; - memset(&argtab, 0, sizeof(argtab)); - /*^ojbmsend.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.ELSESTEP__V3*/ meltfptr[2]; - /*_.PUT_ELSE_MATCH__V22*/ meltfptr[21] = meltgc_send((melt_ptr_t)(/*_.CURELSE__V21*/ meltfptr[20]), (melt_ptr_t)((/*!PUT_ELSE_MATCH*/ meltfrout->tabval[4])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFELSE___V19*/ meltfptr[17] = /*_.PUT_ELSE_MATCH__V22*/ meltfptr[21];; - } /* end cit1__EACHLIST */ - - /*citerepilog*/ - - MELT_LOCATION("warmelt-normatch.melt:2745:/ clear"); - /*clear*/ /*_.CURPAIR__V20*/ meltfptr[19] = 0 ; - /*^clear*/ - /*clear*/ /*_.CURELSE__V21*/ meltfptr[20] = 0 ; - /*^clear*/ - /*clear*/ /*_.PUT_ELSE_MATCH__V22*/ meltfptr[21] = 0 ;} /*endciterblock FOREACH_IN_LIST*/ + /*_#THE_MELTCALLCOUNT__L6*/ meltfnum[2] = + meltcallcount;; + MELT_LOCATION("warmelt-normatch.melt:2737:/ apply"); + /*apply*/{ + union meltparam_un argtab[4]; + memset(&argtab, 0, sizeof(argtab)); + /*^apply.arg*/ + argtab[0].bp_cstring = "start_step ordinary step"; + /*^apply.arg*/ + argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L6*/ meltfnum[2]; + /*^apply.arg*/ + argtab[2].bp_cstring = "warmelt-normatch.melt"; + /*^apply.arg*/ + argtab[3].bp_long = 2737; + /*_.DEBUG_MSG_FUN__V16*/ meltfptr[7] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.STEP__V2*/ meltfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + } ; + /*_.IFCPP___V15*/ meltfptr[6] = /*_.DEBUG_MSG_FUN__V16*/ meltfptr[7];; /*epilog*/ - } + + MELT_LOCATION("warmelt-normatch.melt:2737:/ clear"); + /*clear*/ /*_#THE_MELTCALLCOUNT__L6*/ meltfnum[2] = 0 ; + /*^clear*/ + /*clear*/ /*_.DEBUG_MSG_FUN__V16*/ meltfptr[7] = 0 ;} + + #else /*ENABLE_CHECKING*/ + /*^cppif.else*/ + /*_.IFCPP___V15*/ meltfptr[6] = (/*nil*/NULL); + #endif /*ENABLE_CHECKING*/ ; - } else {MELT_LOCATION("warmelt-normatch.melt:2744:/ cond.else"); - /*^block*/ + #if ENABLE_CHECKING + MELT_LOCATION("warmelt-normatch.melt:2738:/ cppif.then"); + /*^block*/ /*anyblock*/{ - /*_#IS_MULTIPLE__L8*/ meltfnum[7] = - (melt_magic_discr((melt_ptr_t)(/*_.ELSEGROUP__V14*/ meltfptr[13])) == OBMAG_MULTIPLE);; - MELT_LOCATION("warmelt-normatch.melt:2749:/ cond"); - /*cond*/ if (/*_#IS_MULTIPLE__L8*/ meltfnum[7]) /*then*/ { + /*_#IS_A__L7*/ meltfnum[2] = + melt_is_instance_of((melt_ptr_t)(/*_.STEP__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_MATCH_STEP*/ meltfrout->tabval[2])));; + MELT_LOCATION("warmelt-normatch.melt:2738:/ cond"); + /*cond*/ if (/*_#IS_A__L7*/ meltfnum[2]) /*then*/ { /*^cond.then*/ - /*^block*/ - /*anyblock*/{ - - /*citerblock FOREACH_IN_MULTIPLE*/ { - /* start cit2__EACHTUP: */ - long cit2__EACHTUP_ln = melt_multiple_length((melt_ptr_t)/*_.ELSEGROUP__V14*/ meltfptr[13]); - for (/*_#THIX__L9*/ meltfnum[8] = 0; - (/*_#THIX__L9*/ meltfnum[8] >= 0) && (/*_#THIX__L9*/ meltfnum[8] < cit2__EACHTUP_ln); - /*_#THIX__L9*/ meltfnum[8]++) { - /*_.CURELSE__V24*/ meltfptr[23] = melt_multiple_nth((melt_ptr_t)(/*_.ELSEGROUP__V14*/ meltfptr[13]), /*_#THIX__L9*/ meltfnum[8]); - - - - MELT_LOCATION("warmelt-normatch.melt:2753:/ msend"); - /*msend*/{ - union meltparam_un argtab[1]; - memset(&argtab, 0, sizeof(argtab)); - /*^ojbmsend.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.ELSESTEP__V3*/ meltfptr[2]; - /*_.PUT_ELSE_MATCH__V25*/ meltfptr[24] = meltgc_send((melt_ptr_t)(/*_.CURELSE__V24*/ meltfptr[23]), (melt_ptr_t)((/*!PUT_ELSE_MATCH*/ meltfrout->tabval[4])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFELSE___V23*/ meltfptr[22] = /*_.PUT_ELSE_MATCH__V25*/ meltfptr[24];; - if (/*_#THIX__L9*/ meltfnum[8]<0) break; - } /* end cit2__EACHTUP */ - - /*citerepilog*/ - - MELT_LOCATION("warmelt-normatch.melt:2750:/ clear"); - /*clear*/ /*_.CURELSE__V24*/ meltfptr[23] = 0 ; - /*^clear*/ - /*clear*/ /*_#THIX__L9*/ meltfnum[8] = 0 ; - /*^clear*/ - /*clear*/ /*_.PUT_ELSE_MATCH__V25*/ meltfptr[24] = 0 ;} /*endciterblock FOREACH_IN_MULTIPLE*/ - ; - /*epilog*/ - } - ; - } else {MELT_LOCATION("warmelt-normatch.melt:2749:/ cond.else"); + /*_.IFELSE___V18*/ meltfptr[10] = (/*nil*/NULL);; + } else {MELT_LOCATION("warmelt-normatch.melt:2738:/ cond.else"); /*^block*/ /*anyblock*/{ - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normatch.melt:2755:/ cppif.then"); - /*^block*/ - /*anyblock*/{ - - /*_#THE_MELTCALLCOUNT__L10*/ meltfnum[9] = - meltcallcount;; - MELT_LOCATION("warmelt-normatch.melt:2755:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - /*^apply.arg*/ - argtab[0].bp_cstring = "putelse_matchgroup bad elsegroup"; - /*^apply.arg*/ - argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L10*/ meltfnum[9]; - /*^apply.arg*/ - argtab[2].bp_cstring = "warmelt-normatch.melt"; - /*^apply.arg*/ - argtab[3].bp_long = 2755; - /*_.DEBUG_MSG_FUN__V27*/ meltfptr[26] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.ELSEGROUP__V14*/ meltfptr[13]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V26*/ meltfptr[25] = /*_.DEBUG_MSG_FUN__V27*/ meltfptr[26];; - /*epilog*/ - - MELT_LOCATION("warmelt-normatch.melt:2755:/ clear"); - /*clear*/ /*_#THE_MELTCALLCOUNT__L10*/ meltfnum[9] = 0 ; - /*^clear*/ - /*clear*/ /*_.DEBUG_MSG_FUN__V27*/ meltfptr[26] = 0 ;} - - #else /*ENABLE_CHECKING*/ - /*^cppif.else*/ - /*_.IFCPP___V26*/ meltfptr[25] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normatch.melt:2756:/ cppif.then"); - /*^block*/ - /*anyblock*/{ - - /*^cond*/ - /*cond*/ if ((/*nil*/NULL)) /*then*/ { - /*^cond.then*/ - /*_.IFELSE___V29*/ meltfptr[28] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normatch.melt:2756:/ cond.else"); - - /*^block*/ - /*anyblock*/{ - - - - - { - /*^locexp*/ - melt_assert_failed(( "bad elsegroup"),( "warmelt-normatch.melt")?( "warmelt-normatch.melt"):__FILE__, - (2756)?(2756):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V29*/ meltfptr[28] = 0 ; - /*epilog*/ - } - ; - } - ; - /*^compute*/ - - /*_.IFCPP___V28*/ meltfptr[26] = /*_.IFELSE___V29*/ meltfptr[28];; - /*epilog*/ - - MELT_LOCATION("warmelt-normatch.melt:2756:/ clear"); - /*clear*/ /*_.IFELSE___V29*/ meltfptr[28] = 0 ;} - - #else /*ENABLE_CHECKING*/ - /*^cppif.else*/ - /*_.IFCPP___V28*/ meltfptr[26] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - MELT_LOCATION("warmelt-normatch.melt:2754:/ quasiblock"); - /*_.PROGN___V30*/ meltfptr[28] = /*_.IFCPP___V28*/ meltfptr[26];; - /*^compute*/ - - /*_.IFELSE___V23*/ meltfptr[22] = /*_.PROGN___V30*/ meltfptr[28];; + { + /*^locexp*/ + melt_assert_failed(( "check step"),( "warmelt-normatch.melt")?( "warmelt-normatch.melt"):__FILE__, + (2738)?(2738):__LINE__, __FUNCTION__); +;} + ; + /*clear*/ /*_.IFELSE___V18*/ meltfptr[10] = 0 ; /*epilog*/ - - MELT_LOCATION("warmelt-normatch.melt:2749:/ clear"); - /*clear*/ /*_.IFCPP___V26*/ meltfptr[25] = 0 ; - /*^clear*/ - /*clear*/ /*_.IFCPP___V28*/ meltfptr[26] = 0 ; - /*^clear*/ - /*clear*/ /*_.PROGN___V30*/ meltfptr[28] = 0 ;} + } ; } ; - /*_.IFELSE___V19*/ meltfptr[17] = /*_.IFELSE___V23*/ meltfptr[22];; + /*^compute*/ + + /*_.IFCPP___V17*/ meltfptr[8] = /*_.IFELSE___V18*/ meltfptr[10];; /*epilog*/ - MELT_LOCATION("warmelt-normatch.melt:2744:/ clear"); - /*clear*/ /*_#IS_MULTIPLE__L8*/ meltfnum[7] = 0 ; + MELT_LOCATION("warmelt-normatch.melt:2738:/ clear"); + /*clear*/ /*_#IS_A__L7*/ meltfnum[2] = 0 ; /*^clear*/ - /*clear*/ /*_.IFELSE___V23*/ meltfptr[22] = 0 ;} + /*clear*/ /*_.IFELSE___V18*/ meltfptr[10] = 0 ;} + + #else /*ENABLE_CHECKING*/ + /*^cppif.else*/ + /*_.IFCPP___V17*/ meltfptr[8] = (/*nil*/NULL); + #endif /*ENABLE_CHECKING*/ ; - } + MELT_LOCATION("warmelt-normatch.melt:2739:/ quasiblock"); + + + /*_.RETVAL___V1*/ meltfptr[0] = /*_.STEP__V2*/ meltfptr[1];; + MELT_LOCATION("warmelt-normatch.melt:2739:/ finalreturn"); ; - /*_.IFELSE___V17*/ meltfptr[15] = /*_.IFELSE___V19*/ meltfptr[17];; + /*finalret*/ goto labend_rout ; + MELT_LOCATION("warmelt-normatch.melt:2736:/ quasiblock"); + + + /*_.PROGN___V20*/ meltfptr[5] = /*_.RETURN___V19*/ meltfptr[12];; + /*^compute*/ + + /*_.IFELSE___V5*/ meltfptr[3] = /*_.PROGN___V20*/ meltfptr[5];; /*epilog*/ - MELT_LOCATION("warmelt-normatch.melt:2742:/ clear"); - /*clear*/ /*_#IS_LIST__L7*/ meltfnum[6] = 0 ; + MELT_LOCATION("warmelt-normatch.melt:2729:/ clear"); + /*clear*/ /*_.IFCPP___V15*/ meltfptr[6] = 0 ; /*^clear*/ - /*clear*/ /*_.IFELSE___V19*/ meltfptr[17] = 0 ;} + /*clear*/ /*_.IFCPP___V17*/ meltfptr[8] = 0 ; + /*^clear*/ + /*clear*/ /*_.RETURN___V19*/ meltfptr[12] = 0 ; + /*^clear*/ + /*clear*/ /*_.PROGN___V20*/ meltfptr[5] = 0 ;} ; } ; - /*_.IFELSE___V15*/ meltfptr[14] = /*_.IFELSE___V17*/ meltfptr[15];; + /*_.IFELSE___V3*/ meltfptr[2] = /*_.IFELSE___V5*/ meltfptr[3];; /*epilog*/ - MELT_LOCATION("warmelt-normatch.melt:2740:/ clear"); - /*clear*/ /*_#IS_A__L6*/ meltfnum[5] = 0 ; + MELT_LOCATION("warmelt-normatch.melt:2726:/ clear"); + /*clear*/ /*_#IS_A__L2*/ meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_.IFELSE___V17*/ meltfptr[15] = 0 ;} + /*clear*/ /*_.IFELSE___V5*/ meltfptr[3] = 0 ;} ; } ; - /*_.LET___V13*/ meltfptr[12] = /*_.IFELSE___V15*/ meltfptr[14];; - - MELT_LOCATION("warmelt-normatch.melt:2738:/ clear"); - /*clear*/ /*_.ELSEGROUP__V14*/ meltfptr[13] = 0 ; - /*^clear*/ - /*clear*/ /*_#NULL__L5*/ meltfnum[0] = 0 ; - /*^clear*/ - /*clear*/ /*_.IFELSE___V15*/ meltfptr[14] = 0 ; - MELT_LOCATION("warmelt-normatch.melt:2732:/ quasiblock"); + MELT_LOCATION("warmelt-normatch.melt:2724:/ quasiblock"); - /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V13*/ meltfptr[12];; - MELT_LOCATION("warmelt-normatch.melt:2732:/ finalreturn"); + /*_.RETVAL___V1*/ meltfptr[0] = /*_.IFELSE___V3*/ meltfptr[2];; + MELT_LOCATION("warmelt-normatch.melt:2724:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.IFCPP___V4*/ meltfptr[3] = 0 ; - /*^clear*/ - /*clear*/ /*_.IFCPP___V6*/ meltfptr[4] = 0 ; - /*^clear*/ - /*clear*/ /*_.IFCPP___V8*/ meltfptr[6] = 0 ; - /*^clear*/ - /*clear*/ /*_.IFCPP___V10*/ meltfptr[8] = 0 ; - /*^clear*/ - /*clear*/ /*_.START_STEP__V12*/ meltfptr[10] = 0 ; + /*clear*/ /*_#NULL__L1*/ meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V13*/ meltfptr[12] = 0 ;} + /*clear*/ /*_.IFELSE___V3*/ meltfptr[2] = 0 ;} ; goto labend_rout; labend_rout: -melt_trace_end("PUTELSE_MATCHGROUP", meltcallcount); melt_topframe = (struct callframe_melt_st*) meltfram__.prev; +melt_trace_end("START_STEP", meltcallcount); melt_topframe = (struct callframe_melt_st*) meltfram__.prev; return (melt_ptr_t)(/*_.RETVAL___V1*/ meltfptr[0]); #undef meltcallcount #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR -} /*end meltrout_60_warmelt_normatch_PUTELSE_MATCHGROUP*/ +} /*end meltrout_57_warmelt_normatch_START_STEP*/ melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_61_warmelt_normatch_SCANSTEP_TESTINS(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, +meltrout_58_warmelt_normatch_PUTTHEN_MATCHTHEN(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_) { #if ENABLE_CHECKING @@ -22981,17 +21572,17 @@ meltrout_61_warmelt_normatch_SCANSTEP_TESTINS(meltclosure_ptr_t closp_, melt_ptr #define meltcallcount 0L #endif - struct frame_meltrout_61_warmelt_normatch_SCANSTEP_TESTINS_st { unsigned nbvar; + struct frame_meltrout_58_warmelt_normatch_PUTTHEN_MATCHTHEN_st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct meltclosure_st *clos; struct excepth_melt_st *exh; struct callframe_melt_st *prev; -#define MELTFRAM_NBVARPTR 10 - void* varptr[10]; -#define MELTFRAM_NBVARNUM 2 - long varnum[2]; +#define MELTFRAM_NBVARPTR 24 + void* varptr[24]; +#define MELTFRAM_NBVARNUM 8 + long varnum[8]; /*others*/ long _spare_; } *framptr_=0, meltframe; @@ -23000,35 +21591,28 @@ meltrout_61_warmelt_normatch_SCANSTEP_TESTINS(meltclosure_ptr_t closp_, melt_ptr int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_melt_un (framptr_->clos); - for(ix=0; ix<10; ix++) + for(ix=0; ix<24; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_melt_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&meltfram__, 0, sizeof(meltfram__)); - meltfram__.nbvar = 10; + meltfram__.nbvar = 24; meltfram__.clos = closp_; meltfram__.prev = (struct callframe_melt_st *) melt_topframe; melt_topframe = (struct callframe_melt_st *) &meltfram__; -melt_trace_start("SCANSTEP_TESTINS", meltcallcount); +melt_trace_start("PUTTHEN_MATCHTHEN", meltcallcount); /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-normatch.melt:2761:/ getarg"); - /*_.STEP__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; + MELT_LOCATION("warmelt-normatch.melt:2741:/ getarg"); + /*_.RECV__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; /*getarg#1*/ /*^getarg*/ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; - /*_.FUN__V3*/ meltfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.FUN__V3*/ meltfptr[2])) != NULL); - - - /*getarg#2*/ - /*^getarg*/ - if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; - /*_.CTX__V4*/ meltfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.CTX__V4*/ meltfptr[3])) != NULL); + /*_.THENSTEP__V3*/ meltfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; + gcc_assert(melt_discr((melt_ptr_t)(/*_.THENSTEP__V3*/ meltfptr[2])) != NULL); ; goto lab_endgetargs; @@ -23039,212 +21623,136 @@ lab_endgetargs:; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normatch.melt:2762:/ cppif.then"); + MELT_LOCATION("warmelt-normatch.melt:2742:/ cppif.then"); /*^block*/ /*anyblock*/{ - /*_#IS_A__L1*/ meltfnum[0] = - melt_is_instance_of((melt_ptr_t)(/*_.STEP__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_MATCH_STEP_TEST_INSTANCE*/ meltfrout->tabval[0])));; - MELT_LOCATION("warmelt-normatch.melt:2762:/ cond"); - /*cond*/ if (/*_#IS_A__L1*/ meltfnum[0]) /*then*/ { - /*^cond.then*/ - /*_.IFELSE___V6*/ meltfptr[5] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normatch.melt:2762:/ cond.else"); - - /*^block*/ - /*anyblock*/{ - - - - - { - /*^locexp*/ - melt_assert_failed(( "check step"),( "warmelt-normatch.melt")?( "warmelt-normatch.melt"):__FILE__, - (2762)?(2762):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V6*/ meltfptr[5] = 0 ; - /*epilog*/ - } - ; + /*_#THE_MELTCALLCOUNT__L1*/ meltfnum[0] = + meltcallcount;; + MELT_LOCATION("warmelt-normatch.melt:2742:/ apply"); + /*apply*/{ + union meltparam_un argtab[4]; + memset(&argtab, 0, sizeof(argtab)); + /*^apply.arg*/ + argtab[0].bp_cstring = "putthen_matchthen recv"; + /*^apply.arg*/ + argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L1*/ meltfnum[0]; + /*^apply.arg*/ + argtab[2].bp_cstring = "warmelt-normatch.melt"; + /*^apply.arg*/ + argtab[3].bp_long = 2742; + /*_.DEBUG_MSG_FUN__V5*/ meltfptr[4] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; - /*^compute*/ - - /*_.IFCPP___V5*/ meltfptr[4] = /*_.IFELSE___V6*/ meltfptr[5];; + /*_.IFCPP___V4*/ meltfptr[3] = /*_.DEBUG_MSG_FUN__V5*/ meltfptr[4];; /*epilog*/ - MELT_LOCATION("warmelt-normatch.melt:2762:/ clear"); - /*clear*/ /*_#IS_A__L1*/ meltfnum[0] = 0 ; + MELT_LOCATION("warmelt-normatch.melt:2742:/ clear"); + /*clear*/ /*_#THE_MELTCALLCOUNT__L1*/ meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_.IFELSE___V6*/ meltfptr[5] = 0 ;} + /*clear*/ /*_.DEBUG_MSG_FUN__V5*/ meltfptr[4] = 0 ;} #else /*ENABLE_CHECKING*/ /*^cppif.else*/ - /*_.IFCPP___V5*/ meltfptr[4] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - MELT_LOCATION("warmelt-normatch.melt:2763:/ quasiblock"); - - - /*^getslot*/ - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.STEP__V2*/ meltfptr[1]), 6, "MSTINS_SLOTS");/*_.SLOTUP__V7*/ meltfptr[5] = slot; }; - ; - /*citerblock FOREACH_IN_MULTIPLE*/ { - /* start cit1__EACHTUP: */ - long cit1__EACHTUP_ln = melt_multiple_length((melt_ptr_t)/*_.SLOTUP__V7*/ meltfptr[5]); - for (/*_#IX__L2*/ meltfnum[0] = 0; - (/*_#IX__L2*/ meltfnum[0] >= 0) && (/*_#IX__L2*/ meltfnum[0] < cit1__EACHTUP_ln); - /*_#IX__L2*/ meltfnum[0]++) { - /*_.CURSLOT__V8*/ meltfptr[7] = melt_multiple_nth((melt_ptr_t)(/*_.SLOTUP__V7*/ meltfptr[5]), /*_#IX__L2*/ meltfnum[0]); - - - - MELT_LOCATION("warmelt-normatch.melt:2768:/ cond"); - /*cond*/ if (/*_.CURSLOT__V8*/ meltfptr[7]) /*then*/ { - /*^cond.then*/ - /*^block*/ - /*anyblock*/{ - - MELT_LOCATION("warmelt-normatch.melt:2769:/ apply"); - /*apply*/{ - union meltparam_un argtab[1]; - memset(&argtab, 0, sizeof(argtab)); - /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.CTX__V4*/ meltfptr[3]; - /*_.FUN__V10*/ meltfptr[9] = melt_apply ((meltclosure_ptr_t)(/*_.FUN__V3*/ meltfptr[2]), (melt_ptr_t)(/*_.CURSLOT__V8*/ meltfptr[7]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IF___V9*/ meltfptr[8] = /*_.FUN__V10*/ meltfptr[9];; - /*epilog*/ - - MELT_LOCATION("warmelt-normatch.melt:2768:/ clear"); - /*clear*/ /*_.FUN__V10*/ meltfptr[9] = 0 ;} - ; - } else {/*^cond.else*/ - - /*_.IF___V9*/ meltfptr[8] = NULL;; - } - ; - if (/*_#IX__L2*/ meltfnum[0]<0) break; - } /* end cit1__EACHTUP */ - - /*citerepilog*/ - - MELT_LOCATION("warmelt-normatch.melt:2765:/ clear"); - /*clear*/ /*_.CURSLOT__V8*/ meltfptr[7] = 0 ; - /*^clear*/ - /*clear*/ /*_#IX__L2*/ meltfnum[0] = 0 ; - /*^clear*/ - /*clear*/ /*_.IF___V9*/ meltfptr[8] = 0 ;} /*endciterblock FOREACH_IN_MULTIPLE*/ - ; - - MELT_LOCATION("warmelt-normatch.melt:2763:/ clear"); - /*clear*/ /*_.SLOTUP__V7*/ meltfptr[5] = 0 ; - /*epilog*/ - - MELT_LOCATION("warmelt-normatch.melt:2761:/ clear"); - /*clear*/ /*_.IFCPP___V5*/ meltfptr[4] = 0 ;} - -; - goto labend_rout; -labend_rout: -melt_trace_end("SCANSTEP_TESTINS", meltcallcount); melt_topframe = (struct callframe_melt_st*) meltfram__.prev; - return (melt_ptr_t)(/*noretval*/ NULL); -#undef meltcallcount -#undef meltfram__ -#undef MELTFRAM_NBVARNUM -#undef MELTFRAM_NBVARPTR -} /*end meltrout_61_warmelt_normatch_SCANSTEP_TESTINS*/ - - - - - -melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_62_warmelt_normatch_SCANSTEP_TESTMATCHER(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, - const char xresdescr_[], union meltparam_un *xrestab_) -{ -#if ENABLE_CHECKING - static long call_counter__; - long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; -#undef meltcallcount -#define meltcallcount thiscallcounter__ -#else -#undef meltcallcount -#define meltcallcount 0L -#endif - - struct frame_meltrout_62_warmelt_normatch_SCANSTEP_TESTMATCHER_st { unsigned nbvar; -#if ENABLE_CHECKING - const char* flocs; -#endif - struct meltclosure_st *clos; - struct excepth_melt_st *exh; - struct callframe_melt_st *prev; -#define MELTFRAM_NBVARPTR 10 - void* varptr[10]; -#define MELTFRAM_NBVARNUM 2 - long varnum[2]; -/*others*/ - long _spare_; } - *framptr_=0, meltframe; -#define meltfram__ meltframe - if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/ - int ix=0; - framptr_ = (void*)firstargp_; - gt_ggc_mx_melt_un (framptr_->clos); - for(ix=0; ix<10; ix++) - if (framptr_->varptr[ix]) - gt_ggc_mx_melt_un (framptr_->varptr[ix]); - return NULL; - }/*end markggc*/; - memset(&meltfram__, 0, sizeof(meltfram__)); - meltfram__.nbvar = 10; - meltfram__.clos = closp_; - meltfram__.prev = (struct callframe_melt_st *) melt_topframe; - melt_topframe = (struct callframe_melt_st *) &meltfram__; -melt_trace_start("SCANSTEP_TESTMATCHER", meltcallcount); -/*getargs*/ - - /*getarg#0*/ - MELT_LOCATION("warmelt-normatch.melt:2772:/ getarg"); - /*_.STEP__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; - - /*getarg#1*/ - /*^getarg*/ - if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; - /*_.FUN__V3*/ meltfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.FUN__V3*/ meltfptr[2])) != NULL); - - - /*getarg#2*/ - /*^getarg*/ - if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; - /*_.CTX__V4*/ meltfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.CTX__V4*/ meltfptr[3])) != NULL); + /*_.IFCPP___V4*/ meltfptr[3] = (/*nil*/NULL); + #endif /*ENABLE_CHECKING*/ + ; - ; - goto lab_endgetargs; -lab_endgetargs:; -/*body*/ -/*^block*/ -/*anyblock*/{ + #if ENABLE_CHECKING + MELT_LOCATION("warmelt-normatch.melt:2743:/ cppif.then"); + /*^block*/ + /*anyblock*/{ + + /*_#IS_A__L2*/ meltfnum[0] = + melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_MATCH_STEP_THEN*/ meltfrout->tabval[1])));; + MELT_LOCATION("warmelt-normatch.melt:2743:/ cond"); + /*cond*/ if (/*_#IS_A__L2*/ meltfnum[0]) /*then*/ { + /*^cond.then*/ + /*_.IFELSE___V7*/ meltfptr[6] = (/*nil*/NULL);; + } else {MELT_LOCATION("warmelt-normatch.melt:2743:/ cond.else"); + + /*^block*/ + /*anyblock*/{ + + + + + { + /*^locexp*/ + melt_assert_failed(( "check recv"),( "warmelt-normatch.melt")?( "warmelt-normatch.melt"):__FILE__, + (2743)?(2743):__LINE__, __FUNCTION__); +;} + ; + /*clear*/ /*_.IFELSE___V7*/ meltfptr[6] = 0 ; + /*epilog*/ + } + ; + } + ; + /*^compute*/ + + /*_.IFCPP___V6*/ meltfptr[4] = /*_.IFELSE___V7*/ meltfptr[6];; + /*epilog*/ + + MELT_LOCATION("warmelt-normatch.melt:2743:/ clear"); + /*clear*/ /*_#IS_A__L2*/ meltfnum[0] = 0 ; + /*^clear*/ + /*clear*/ /*_.IFELSE___V7*/ meltfptr[6] = 0 ;} + + #else /*ENABLE_CHECKING*/ + /*^cppif.else*/ + /*_.IFCPP___V6*/ meltfptr[4] = (/*nil*/NULL); + #endif /*ENABLE_CHECKING*/ + ; + #if ENABLE_CHECKING + MELT_LOCATION("warmelt-normatch.melt:2744:/ cppif.then"); + /*^block*/ + /*anyblock*/{ + + /*_#THE_MELTCALLCOUNT__L3*/ meltfnum[0] = + meltcallcount;; + MELT_LOCATION("warmelt-normatch.melt:2744:/ apply"); + /*apply*/{ + union meltparam_un argtab[4]; + memset(&argtab, 0, sizeof(argtab)); + /*^apply.arg*/ + argtab[0].bp_cstring = "putthen_matchthen thenstep"; + /*^apply.arg*/ + argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L3*/ meltfnum[0]; + /*^apply.arg*/ + argtab[2].bp_cstring = "warmelt-normatch.melt"; + /*^apply.arg*/ + argtab[3].bp_long = 2744; + /*_.DEBUG_MSG_FUN__V9*/ meltfptr[8] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.THENSTEP__V3*/ meltfptr[2]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + } + ; + /*_.IFCPP___V8*/ meltfptr[6] = /*_.DEBUG_MSG_FUN__V9*/ meltfptr[8];; + /*epilog*/ + + MELT_LOCATION("warmelt-normatch.melt:2744:/ clear"); + /*clear*/ /*_#THE_MELTCALLCOUNT__L3*/ meltfnum[0] = 0 ; + /*^clear*/ + /*clear*/ /*_.DEBUG_MSG_FUN__V9*/ meltfptr[8] = 0 ;} + + #else /*ENABLE_CHECKING*/ + /*^cppif.else*/ + /*_.IFCPP___V8*/ meltfptr[6] = (/*nil*/NULL); + #endif /*ENABLE_CHECKING*/ + ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normatch.melt:2773:/ cppif.then"); + MELT_LOCATION("warmelt-normatch.melt:2745:/ cppif.then"); /*^block*/ /*anyblock*/{ - /*_#IS_A__L1*/ meltfnum[0] = - melt_is_instance_of((melt_ptr_t)(/*_.STEP__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_MATCH_STEP_TEST_MATCHER*/ meltfrout->tabval[0])));; - MELT_LOCATION("warmelt-normatch.melt:2773:/ cond"); - /*cond*/ if (/*_#IS_A__L1*/ meltfnum[0]) /*then*/ { + /*_#IS_A__L4*/ meltfnum[0] = + melt_is_instance_of((melt_ptr_t)(/*_.THENSTEP__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_MATCH_STEP*/ meltfrout->tabval[2])));; + MELT_LOCATION("warmelt-normatch.melt:2745:/ cond"); + /*cond*/ if (/*_#IS_A__L4*/ meltfnum[0]) /*then*/ { /*^cond.then*/ - /*_.IFELSE___V6*/ meltfptr[5] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normatch.melt:2773:/ cond.else"); + /*_.IFELSE___V11*/ meltfptr[10] = (/*nil*/NULL);; + } else {MELT_LOCATION("warmelt-normatch.melt:2745:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -23254,111 +21762,266 @@ lab_endgetargs:; { /*^locexp*/ - melt_assert_failed(( "check step"),( "warmelt-normatch.melt")?( "warmelt-normatch.melt"):__FILE__, - (2773)?(2773):__LINE__, __FUNCTION__); + melt_assert_failed(( "check thenstep"),( "warmelt-normatch.melt")?( "warmelt-normatch.melt"):__FILE__, + (2745)?(2745):__LINE__, __FUNCTION__); ;} ; - /*clear*/ /*_.IFELSE___V6*/ meltfptr[5] = 0 ; + /*clear*/ /*_.IFELSE___V11*/ meltfptr[10] = 0 ; /*epilog*/ } ; - } - ; + } + ; + /*^compute*/ + + /*_.IFCPP___V10*/ meltfptr[8] = /*_.IFELSE___V11*/ meltfptr[10];; + /*epilog*/ + + MELT_LOCATION("warmelt-normatch.melt:2745:/ clear"); + /*clear*/ /*_#IS_A__L4*/ meltfnum[0] = 0 ; + /*^clear*/ + /*clear*/ /*_.IFELSE___V11*/ meltfptr[10] = 0 ;} + + #else /*ENABLE_CHECKING*/ + /*^cppif.else*/ + /*_.IFCPP___V10*/ meltfptr[8] = (/*nil*/NULL); + #endif /*ENABLE_CHECKING*/ + ; + MELT_LOCATION("warmelt-normatch.melt:2746:/ quasiblock"); + + + /*^getslot*/ + { melt_ptr_t slot=0; + melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), 3, "MSTEP_THEN");/*_.MYTHEN__V13*/ meltfptr[12] = slot; }; + ; + /*_#NULL__L5*/ meltfnum[0] = + ((/*_.MYTHEN__V13*/ meltfptr[12]) == NULL);; + MELT_LOCATION("warmelt-normatch.melt:2748:/ cond"); + /*cond*/ if (/*_#NULL__L5*/ meltfnum[0]) /*then*/ { + /*^cond.then*/ + /*^block*/ + /*anyblock*/{ + + MELT_LOCATION("warmelt-normatch.melt:2750:/ apply"); + /*apply*/{ + /*_.START_STEP__V15*/ meltfptr[14] = melt_apply ((meltclosure_ptr_t)((/*!START_STEP*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.THENSTEP__V3*/ meltfptr[2]), (""), (union meltparam_un*)0, "", (union meltparam_un*)0); + } + ; + /*^quasiblock*/ + + + /*^putslot*/ + /*putslot*/ + melt_assertmsg("putslot checkobj @MSTEP_THEN", melt_magic_discr((melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1])) == OBMAG_OBJECT); + melt_putfield_object((/*_.RECV__V2*/ meltfptr[1]), (3), (/*_.START_STEP__V15*/ meltfptr[14]), "MSTEP_THEN"); + ; + /*^touch*/ + meltgc_touch(/*_.RECV__V2*/ meltfptr[1]); + ; + + + #if ENABLE_CHECKING + MELT_LOCATION("warmelt-normatch.melt:2751:/ cppif.then"); + /*^block*/ + /*anyblock*/{ + + /*_#THE_MELTCALLCOUNT__L6*/ meltfnum[5] = + meltcallcount;; + MELT_LOCATION("warmelt-normatch.melt:2751:/ apply"); + /*apply*/{ + union meltparam_un argtab[4]; + memset(&argtab, 0, sizeof(argtab)); + /*^apply.arg*/ + argtab[0].bp_cstring = "putthen_matchthen updated recv"; + /*^apply.arg*/ + argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L6*/ meltfnum[5]; + /*^apply.arg*/ + argtab[2].bp_cstring = "warmelt-normatch.melt"; + /*^apply.arg*/ + argtab[3].bp_long = 2751; + /*_.DEBUG_MSG_FUN__V17*/ meltfptr[16] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + } + ; + /*_.IFCPP___V16*/ meltfptr[15] = /*_.DEBUG_MSG_FUN__V17*/ meltfptr[16];; + /*epilog*/ + + MELT_LOCATION("warmelt-normatch.melt:2751:/ clear"); + /*clear*/ /*_#THE_MELTCALLCOUNT__L6*/ meltfnum[5] = 0 ; + /*^clear*/ + /*clear*/ /*_.DEBUG_MSG_FUN__V17*/ meltfptr[16] = 0 ;} + + #else /*ENABLE_CHECKING*/ + /*^cppif.else*/ + /*_.IFCPP___V16*/ meltfptr[15] = (/*nil*/NULL); + #endif /*ENABLE_CHECKING*/ + ; + MELT_LOCATION("warmelt-normatch.melt:2749:/ quasiblock"); + + + /*_.PROGN___V18*/ meltfptr[16] = /*_.IFCPP___V16*/ meltfptr[15];; + /*^compute*/ + + /*_.IFELSE___V14*/ meltfptr[13] = /*_.PROGN___V18*/ meltfptr[16];; + /*epilog*/ + + MELT_LOCATION("warmelt-normatch.melt:2748:/ clear"); + /*clear*/ /*_.START_STEP__V15*/ meltfptr[14] = 0 ; + /*^clear*/ + /*clear*/ /*_.IFCPP___V16*/ meltfptr[15] = 0 ; + /*^clear*/ + /*clear*/ /*_.PROGN___V18*/ meltfptr[16] = 0 ;} + ; + } else {/*^cond.else*/ + + /*^block*/ + /*anyblock*/{ + + + #if ENABLE_CHECKING + MELT_LOCATION("warmelt-normatch.melt:2753:/ cppif.then"); + /*^block*/ + /*anyblock*/{ + + /*_#THE_MELTCALLCOUNT__L7*/ meltfnum[5] = + meltcallcount;; + MELT_LOCATION("warmelt-normatch.melt:2753:/ apply"); + /*apply*/{ + union meltparam_un argtab[4]; + memset(&argtab, 0, sizeof(argtab)); + /*^apply.arg*/ + argtab[0].bp_cstring = "putthen_matchthen mythen"; + /*^apply.arg*/ + argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L7*/ meltfnum[5]; + /*^apply.arg*/ + argtab[2].bp_cstring = "warmelt-normatch.melt"; + /*^apply.arg*/ + argtab[3].bp_long = 2753; + /*_.DEBUG_MSG_FUN__V20*/ meltfptr[15] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.MYTHEN__V13*/ meltfptr[12]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + } + ; + /*_.IFCPP___V19*/ meltfptr[14] = /*_.DEBUG_MSG_FUN__V20*/ meltfptr[15];; + /*epilog*/ + + MELT_LOCATION("warmelt-normatch.melt:2753:/ clear"); + /*clear*/ /*_#THE_MELTCALLCOUNT__L7*/ meltfnum[5] = 0 ; + /*^clear*/ + /*clear*/ /*_.DEBUG_MSG_FUN__V20*/ meltfptr[15] = 0 ;} + + #else /*ENABLE_CHECKING*/ + /*^cppif.else*/ + /*_.IFCPP___V19*/ meltfptr[14] = (/*nil*/NULL); + #endif /*ENABLE_CHECKING*/ + ; + MELT_LOCATION("warmelt-normatch.melt:2754:/ msend"); + /*msend*/{ + union meltparam_un argtab[1]; + memset(&argtab, 0, sizeof(argtab)); + /*^ojbmsend.arg*/ + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.THENSTEP__V3*/ meltfptr[2]; + /*_.PUT_THEN_MATCH__V21*/ meltfptr[16] = meltgc_send((melt_ptr_t)(/*_.MYTHEN__V13*/ meltfptr[12]), (melt_ptr_t)((/*!PUT_THEN_MATCH*/ meltfrout->tabval[4])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + } + ; + + #if ENABLE_CHECKING + MELT_LOCATION("warmelt-normatch.melt:2755:/ cppif.then"); + /*^block*/ + /*anyblock*/{ + + /*_#THE_MELTCALLCOUNT__L8*/ meltfnum[5] = + meltcallcount;; + MELT_LOCATION("warmelt-normatch.melt:2755:/ apply"); + /*apply*/{ + union meltparam_un argtab[4]; + memset(&argtab, 0, sizeof(argtab)); + /*^apply.arg*/ + argtab[0].bp_cstring = "putthen_matchthen did mythen"; + /*^apply.arg*/ + argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L8*/ meltfnum[5]; + /*^apply.arg*/ + argtab[2].bp_cstring = "warmelt-normatch.melt"; + /*^apply.arg*/ + argtab[3].bp_long = 2755; + /*_.DEBUG_MSG_FUN__V23*/ meltfptr[22] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.MYTHEN__V13*/ meltfptr[12]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + } + ; + /*_.IFCPP___V22*/ meltfptr[15] = /*_.DEBUG_MSG_FUN__V23*/ meltfptr[22];; + /*epilog*/ + + MELT_LOCATION("warmelt-normatch.melt:2755:/ clear"); + /*clear*/ /*_#THE_MELTCALLCOUNT__L8*/ meltfnum[5] = 0 ; + /*^clear*/ + /*clear*/ /*_.DEBUG_MSG_FUN__V23*/ meltfptr[22] = 0 ;} + + #else /*ENABLE_CHECKING*/ + /*^cppif.else*/ + /*_.IFCPP___V22*/ meltfptr[15] = (/*nil*/NULL); + #endif /*ENABLE_CHECKING*/ + ; + MELT_LOCATION("warmelt-normatch.melt:2752:/ quasiblock"); + + + /*_.PROGN___V24*/ meltfptr[22] = /*_.IFCPP___V22*/ meltfptr[15];; /*^compute*/ - /*_.IFCPP___V5*/ meltfptr[4] = /*_.IFELSE___V6*/ meltfptr[5];; + /*_.IFELSE___V14*/ meltfptr[13] = /*_.PROGN___V24*/ meltfptr[22];; /*epilog*/ - MELT_LOCATION("warmelt-normatch.melt:2773:/ clear"); - /*clear*/ /*_#IS_A__L1*/ meltfnum[0] = 0 ; + MELT_LOCATION("warmelt-normatch.melt:2748:/ clear"); + /*clear*/ /*_.IFCPP___V19*/ meltfptr[14] = 0 ; /*^clear*/ - /*clear*/ /*_.IFELSE___V6*/ meltfptr[5] = 0 ;} - - #else /*ENABLE_CHECKING*/ - /*^cppif.else*/ - /*_.IFCPP___V5*/ meltfptr[4] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ + /*clear*/ /*_.PUT_THEN_MATCH__V21*/ meltfptr[16] = 0 ; + /*^clear*/ + /*clear*/ /*_.IFCPP___V22*/ meltfptr[15] = 0 ; + /*^clear*/ + /*clear*/ /*_.PROGN___V24*/ meltfptr[22] = 0 ;} ; - MELT_LOCATION("warmelt-normatch.melt:2774:/ quasiblock"); - - - /*^getslot*/ - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.STEP__V2*/ meltfptr[1]), 8, "MSTMA_OUTS");/*_.OUTS__V7*/ meltfptr[5] = slot; }; + } ; - /*citerblock FOREACH_IN_MULTIPLE*/ { - /* start cit1__EACHTUP: */ - long cit1__EACHTUP_ln = melt_multiple_length((melt_ptr_t)/*_.OUTS__V7*/ meltfptr[5]); - for (/*_#OUTIX__L2*/ meltfnum[0] = 0; - (/*_#OUTIX__L2*/ meltfnum[0] >= 0) && (/*_#OUTIX__L2*/ meltfnum[0] < cit1__EACHTUP_ln); - /*_#OUTIX__L2*/ meltfnum[0]++) { - /*_.CUROUT__V8*/ meltfptr[7] = melt_multiple_nth((melt_ptr_t)(/*_.OUTS__V7*/ meltfptr[5]), /*_#OUTIX__L2*/ meltfnum[0]); - + /*_.LET___V12*/ meltfptr[10] = /*_.IFELSE___V14*/ meltfptr[13];; - - MELT_LOCATION("warmelt-normatch.melt:2779:/ cond"); - /*cond*/ if (/*_.CUROUT__V8*/ meltfptr[7]) /*then*/ { - /*^cond.then*/ - /*^block*/ - /*anyblock*/{ - - /*^apply*/ - /*apply*/{ - union meltparam_un argtab[1]; - memset(&argtab, 0, sizeof(argtab)); - /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.CTX__V4*/ meltfptr[3]; - /*_.FUN__V10*/ meltfptr[9] = melt_apply ((meltclosure_ptr_t)(/*_.FUN__V3*/ meltfptr[2]), (melt_ptr_t)(/*_.CUROUT__V8*/ meltfptr[7]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IF___V9*/ meltfptr[8] = /*_.FUN__V10*/ meltfptr[9];; - /*epilog*/ - - MELT_LOCATION("warmelt-normatch.melt:2779:/ clear"); - /*clear*/ /*_.FUN__V10*/ meltfptr[9] = 0 ;} - ; - } else {/*^cond.else*/ - - /*_.IF___V9*/ meltfptr[8] = NULL;; - } - ; - if (/*_#OUTIX__L2*/ meltfnum[0]<0) break; - } /* end cit1__EACHTUP */ + MELT_LOCATION("warmelt-normatch.melt:2746:/ clear"); + /*clear*/ /*_.MYTHEN__V13*/ meltfptr[12] = 0 ; + /*^clear*/ + /*clear*/ /*_#NULL__L5*/ meltfnum[0] = 0 ; + /*^clear*/ + /*clear*/ /*_.IFELSE___V14*/ meltfptr[13] = 0 ; + MELT_LOCATION("warmelt-normatch.melt:2741:/ quasiblock"); - /*citerepilog*/ - - MELT_LOCATION("warmelt-normatch.melt:2776:/ clear"); - /*clear*/ /*_.CUROUT__V8*/ meltfptr[7] = 0 ; - /*^clear*/ - /*clear*/ /*_#OUTIX__L2*/ meltfnum[0] = 0 ; - /*^clear*/ - /*clear*/ /*_.IF___V9*/ meltfptr[8] = 0 ;} /*endciterblock FOREACH_IN_MULTIPLE*/ - ; - MELT_LOCATION("warmelt-normatch.melt:2774:/ clear"); - /*clear*/ /*_.OUTS__V7*/ meltfptr[5] = 0 ; + /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V12*/ meltfptr[10];; + MELT_LOCATION("warmelt-normatch.melt:2741:/ finalreturn"); + ; + /*finalret*/ goto labend_rout ; /*epilog*/ - MELT_LOCATION("warmelt-normatch.melt:2772:/ clear"); - /*clear*/ /*_.IFCPP___V5*/ meltfptr[4] = 0 ;} + /*^clear*/ + /*clear*/ /*_.IFCPP___V4*/ meltfptr[3] = 0 ; + /*^clear*/ + /*clear*/ /*_.IFCPP___V6*/ meltfptr[4] = 0 ; + /*^clear*/ + /*clear*/ /*_.IFCPP___V8*/ meltfptr[6] = 0 ; + /*^clear*/ + /*clear*/ /*_.IFCPP___V10*/ meltfptr[8] = 0 ; + /*^clear*/ + /*clear*/ /*_.LET___V12*/ meltfptr[10] = 0 ;} ; goto labend_rout; labend_rout: -melt_trace_end("SCANSTEP_TESTMATCHER", meltcallcount); melt_topframe = (struct callframe_melt_st*) meltfram__.prev; - return (melt_ptr_t)(/*noretval*/ NULL); +melt_trace_end("PUTTHEN_MATCHTHEN", meltcallcount); melt_topframe = (struct callframe_melt_st*) meltfram__.prev; + return (melt_ptr_t)(/*_.RETVAL___V1*/ meltfptr[0]); #undef meltcallcount #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR -} /*end meltrout_62_warmelt_normatch_SCANSTEP_TESTMATCHER*/ +} /*end meltrout_58_warmelt_normatch_PUTTHEN_MATCHTHEN*/ melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_63_warmelt_normatch_TRANSLPAT_ANYRECV(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, +meltrout_59_warmelt_normatch_PUTTHEN_MATCHGROUP(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_) { #if ENABLE_CHECKING @@ -23371,17 +22034,17 @@ meltrout_63_warmelt_normatch_TRANSLPAT_ANYRECV(meltclosure_ptr_t closp_, melt_pt #define meltcallcount 0L #endif - struct frame_meltrout_63_warmelt_normatch_TRANSLPAT_ANYRECV_st { unsigned nbvar; + struct frame_meltrout_59_warmelt_normatch_PUTTHEN_MATCHGROUP_st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct meltclosure_st *clos; struct excepth_melt_st *exh; struct callframe_melt_st *prev; -#define MELTFRAM_NBVARPTR 17 - void* varptr[17]; -#define MELTFRAM_NBVARNUM 3 - long varnum[3]; +#define MELTFRAM_NBVARPTR 30 + void* varptr[30]; +#define MELTFRAM_NBVARNUM 10 + long varnum[10]; /*others*/ long _spare_; } *framptr_=0, meltframe; @@ -23390,49 +22053,28 @@ meltrout_63_warmelt_normatch_TRANSLPAT_ANYRECV(meltclosure_ptr_t closp_, melt_pt int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_melt_un (framptr_->clos); - for(ix=0; ix<17; ix++) + for(ix=0; ix<30; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_melt_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&meltfram__, 0, sizeof(meltfram__)); - meltfram__.nbvar = 17; + meltfram__.nbvar = 30; meltfram__.clos = closp_; meltfram__.prev = (struct callframe_melt_st *) melt_topframe; melt_topframe = (struct callframe_melt_st *) &meltfram__; -melt_trace_start("TRANSLPAT_ANYRECV", meltcallcount); +melt_trace_start("PUTTHEN_MATCHGROUP", meltcallcount); /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-normatch.melt:2792:/ getarg"); + MELT_LOCATION("warmelt-normatch.melt:2759:/ getarg"); /*_.RECV__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; /*getarg#1*/ /*^getarg*/ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; - /*_.MDATA__V3*/ meltfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.MDATA__V3*/ meltfptr[2])) != NULL); - - - /*getarg#2*/ - /*^getarg*/ - if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; - /*_.MCASE__V4*/ meltfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.MCASE__V4*/ meltfptr[3])) != NULL); - - - /*getarg#3*/ - /*^getarg*/ - if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs; - /*_.VARMAP__V5*/ meltfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.VARMAP__V5*/ meltfptr[4])) != NULL); - - - /*getarg#4*/ - /*^getarg*/ - if (xargdescr_[3] != BPAR_PTR) goto lab_endgetargs; - /*_.SLOC__V6*/ meltfptr[5] = (xargtab_[3].bp_aptr) ? (*(xargtab_[3].bp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.SLOC__V6*/ meltfptr[5])) != NULL); + /*_.THENSTEP__V3*/ meltfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; + gcc_assert(melt_discr((melt_ptr_t)(/*_.THENSTEP__V3*/ meltfptr[2])) != NULL); ; goto lab_endgetargs; @@ -23443,214 +22085,507 @@ lab_endgetargs:; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normatch.melt:2793:/ cppif.then"); + MELT_LOCATION("warmelt-normatch.melt:2760:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L1*/ meltfnum[0] = meltcallcount;; - MELT_LOCATION("warmelt-normatch.melt:2793:/ apply"); + MELT_LOCATION("warmelt-normatch.melt:2760:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_cstring = "translpat_anyrecv recv"; + argtab[0].bp_cstring = "putthen_matchgroup recv"; /*^apply.arg*/ argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L1*/ meltfnum[0]; /*^apply.arg*/ argtab[2].bp_cstring = "warmelt-normatch.melt"; /*^apply.arg*/ - argtab[3].bp_long = 2793; - /*_.DEBUG_MSG_FUN__V8*/ meltfptr[7] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + argtab[3].bp_long = 2760; + /*_.DEBUG_MSG_FUN__V5*/ meltfptr[4] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; - /*_.IFCPP___V7*/ meltfptr[6] = /*_.DEBUG_MSG_FUN__V8*/ meltfptr[7];; + /*_.IFCPP___V4*/ meltfptr[3] = /*_.DEBUG_MSG_FUN__V5*/ meltfptr[4];; /*epilog*/ - MELT_LOCATION("warmelt-normatch.melt:2793:/ clear"); + MELT_LOCATION("warmelt-normatch.melt:2760:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L1*/ meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_.DEBUG_MSG_FUN__V8*/ meltfptr[7] = 0 ;} + /*clear*/ /*_.DEBUG_MSG_FUN__V5*/ meltfptr[4] = 0 ;} #else /*ENABLE_CHECKING*/ /*^cppif.else*/ - /*_.IFCPP___V7*/ meltfptr[6] = (/*nil*/NULL); + /*_.IFCPP___V4*/ meltfptr[3] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normatch.melt:2794:/ cppif.then"); + MELT_LOCATION("warmelt-normatch.melt:2761:/ cppif.then"); /*^block*/ /*anyblock*/{ - /*_#THE_MELTCALLCOUNT__L2*/ meltfnum[0] = - meltcallcount;; - MELT_LOCATION("warmelt-normatch.melt:2794:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - /*^apply.arg*/ - argtab[0].bp_cstring = "translpat_anyrecv mdata"; - /*^apply.arg*/ - argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L2*/ meltfnum[0]; - /*^apply.arg*/ - argtab[2].bp_cstring = "warmelt-normatch.melt"; - /*^apply.arg*/ - argtab[3].bp_long = 2794; - /*_.DEBUG_MSG_FUN__V10*/ meltfptr[9] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.MDATA__V3*/ meltfptr[2]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + /*_#IS_A__L2*/ meltfnum[0] = + melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_MATCH_STEP_TEST_GROUP*/ meltfrout->tabval[1])));; + MELT_LOCATION("warmelt-normatch.melt:2761:/ cond"); + /*cond*/ if (/*_#IS_A__L2*/ meltfnum[0]) /*then*/ { + /*^cond.then*/ + /*_.IFELSE___V7*/ meltfptr[6] = (/*nil*/NULL);; + } else {MELT_LOCATION("warmelt-normatch.melt:2761:/ cond.else"); + + /*^block*/ + /*anyblock*/{ + + + + + { + /*^locexp*/ + melt_assert_failed(( "check recv"),( "warmelt-normatch.melt")?( "warmelt-normatch.melt"):__FILE__, + (2761)?(2761):__LINE__, __FUNCTION__); +;} + ; + /*clear*/ /*_.IFELSE___V7*/ meltfptr[6] = 0 ; + /*epilog*/ + } + ; } ; - /*_.IFCPP___V9*/ meltfptr[7] = /*_.DEBUG_MSG_FUN__V10*/ meltfptr[9];; + /*^compute*/ + + /*_.IFCPP___V6*/ meltfptr[4] = /*_.IFELSE___V7*/ meltfptr[6];; /*epilog*/ - MELT_LOCATION("warmelt-normatch.melt:2794:/ clear"); - /*clear*/ /*_#THE_MELTCALLCOUNT__L2*/ meltfnum[0] = 0 ; + MELT_LOCATION("warmelt-normatch.melt:2761:/ clear"); + /*clear*/ /*_#IS_A__L2*/ meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_.DEBUG_MSG_FUN__V10*/ meltfptr[9] = 0 ;} + /*clear*/ /*_.IFELSE___V7*/ meltfptr[6] = 0 ;} #else /*ENABLE_CHECKING*/ /*^cppif.else*/ - /*_.IFCPP___V9*/ meltfptr[7] = (/*nil*/NULL); + /*_.IFCPP___V6*/ meltfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-normatch.melt:2795:/ quasiblock"); - - - /*_.DIS__V12*/ meltfptr[11] = - (melt_discr((melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1])));; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normatch.melt:2796:/ cppif.then"); + MELT_LOCATION("warmelt-normatch.melt:2762:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L3*/ meltfnum[0] = meltcallcount;; - MELT_LOCATION("warmelt-normatch.melt:2796:/ apply"); + MELT_LOCATION("warmelt-normatch.melt:2762:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_cstring = "translpat_anyrecv dis"; + argtab[0].bp_cstring = "putthen_matchgroup thenstep"; /*^apply.arg*/ argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L3*/ meltfnum[0]; /*^apply.arg*/ argtab[2].bp_cstring = "warmelt-normatch.melt"; /*^apply.arg*/ - argtab[3].bp_long = 2796; - /*_.DEBUG_MSG_FUN__V14*/ meltfptr[13] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.DIS__V12*/ meltfptr[11]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + argtab[3].bp_long = 2762; + /*_.DEBUG_MSG_FUN__V9*/ meltfptr[8] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.THENSTEP__V3*/ meltfptr[2]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; - /*_.IFCPP___V13*/ meltfptr[12] = /*_.DEBUG_MSG_FUN__V14*/ meltfptr[13];; + /*_.IFCPP___V8*/ meltfptr[6] = /*_.DEBUG_MSG_FUN__V9*/ meltfptr[8];; /*epilog*/ - MELT_LOCATION("warmelt-normatch.melt:2796:/ clear"); + MELT_LOCATION("warmelt-normatch.melt:2762:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L3*/ meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_.DEBUG_MSG_FUN__V14*/ meltfptr[13] = 0 ;} + /*clear*/ /*_.DEBUG_MSG_FUN__V9*/ meltfptr[8] = 0 ;} + + #else /*ENABLE_CHECKING*/ + /*^cppif.else*/ + /*_.IFCPP___V8*/ meltfptr[6] = (/*nil*/NULL); + #endif /*ENABLE_CHECKING*/ + ; + + #if ENABLE_CHECKING + MELT_LOCATION("warmelt-normatch.melt:2763:/ cppif.then"); + /*^block*/ + /*anyblock*/{ + + /*_#IS_A__L4*/ meltfnum[0] = + melt_is_instance_of((melt_ptr_t)(/*_.THENSTEP__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_MATCH_STEP*/ meltfrout->tabval[2])));; + MELT_LOCATION("warmelt-normatch.melt:2763:/ cond"); + /*cond*/ if (/*_#IS_A__L4*/ meltfnum[0]) /*then*/ { + /*^cond.then*/ + /*_.IFELSE___V11*/ meltfptr[10] = (/*nil*/NULL);; + } else {MELT_LOCATION("warmelt-normatch.melt:2763:/ cond.else"); + + /*^block*/ + /*anyblock*/{ + + + + + { + /*^locexp*/ + melt_assert_failed(( "check thenstep"),( "warmelt-normatch.melt")?( "warmelt-normatch.melt"):__FILE__, + (2763)?(2763):__LINE__, __FUNCTION__); +;} + ; + /*clear*/ /*_.IFELSE___V11*/ meltfptr[10] = 0 ; + /*epilog*/ + } + ; + } + ; + /*^compute*/ + + /*_.IFCPP___V10*/ meltfptr[8] = /*_.IFELSE___V11*/ meltfptr[10];; + /*epilog*/ + + MELT_LOCATION("warmelt-normatch.melt:2763:/ clear"); + /*clear*/ /*_#IS_A__L4*/ meltfnum[0] = 0 ; + /*^clear*/ + /*clear*/ /*_.IFELSE___V11*/ meltfptr[10] = 0 ;} #else /*ENABLE_CHECKING*/ /*^cppif.else*/ - /*_.IFCPP___V13*/ meltfptr[12] = (/*nil*/NULL); + /*_.IFCPP___V10*/ meltfptr[8] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-normatch.melt:2797:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.DIS__V12*/ meltfptr[11]), 1, "NAMED_NAME");/*_.NAMED_NAME__V15*/ meltfptr[13] = slot; }; + MELT_LOCATION("warmelt-normatch.melt:2764:/ apply"); + /*apply*/{ + union meltparam_un argtab[1]; + memset(&argtab, 0, sizeof(argtab)); + /*^apply.arg*/ + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.THENSTEP__V3*/ meltfptr[2]; + /*_.PUTTHEN_MATCHTHEN__V12*/ meltfptr[10] = melt_apply ((meltclosure_ptr_t)((/*!PUTTHEN_MATCHTHEN*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + } ; + MELT_LOCATION("warmelt-normatch.melt:2765:/ quasiblock"); - { - /*^locexp*/ - melt_error_str((melt_ptr_t)(/*_.SLOC__V6*/ meltfptr[5]), ( "unexpected TRANSLATE_PATTERN for"), (melt_ptr_t)(/*_.NAMED_NAME__V15*/ meltfptr[13]));} - ; - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normatch.melt:2798:/ cppif.then"); + /*^getslot*/ + { melt_ptr_t slot=0; + melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), 6, "MSTGROUP_THEN");/*_.THENGROUP__V14*/ meltfptr[13] = slot; }; + ; + /*_#NULL__L5*/ meltfnum[0] = + ((/*_.THENGROUP__V14*/ meltfptr[13]) == NULL);; + MELT_LOCATION("warmelt-normatch.melt:2767:/ cond"); + /*cond*/ if (/*_#NULL__L5*/ meltfnum[0]) /*then*/ { + /*^cond.then*/ /*^block*/ /*anyblock*/{ - /*^cond*/ - /*cond*/ if ((/*nil*/NULL)) /*then*/ { - /*^cond.then*/ - /*_.IFELSE___V17*/ meltfptr[16] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normatch.melt:2798:/ cond.else"); + MELT_LOCATION("warmelt-normatch.melt:2768:/ quasiblock"); - /*^block*/ + + /*_.RETVAL___V1*/ meltfptr[0] = NULL;; + MELT_LOCATION("warmelt-normatch.melt:2768:/ finalreturn"); + ; + /*finalret*/ goto labend_rout ; + /*_.IFELSE___V15*/ meltfptr[14] = /*_.RETURN___V16*/ meltfptr[15];; + /*epilog*/ + + MELT_LOCATION("warmelt-normatch.melt:2767:/ clear"); + /*clear*/ /*_.RETURN___V16*/ meltfptr[15] = 0 ;} + ; + } else {/*^cond.else*/ + + /*^block*/ + /*anyblock*/{ + + /*_#IS_A__L6*/ meltfnum[5] = + melt_is_instance_of((melt_ptr_t)(/*_.THENGROUP__V14*/ meltfptr[13]), (melt_ptr_t)((/*!CLASS_MATCH_STEP*/ meltfrout->tabval[2])));; + MELT_LOCATION("warmelt-normatch.melt:2769:/ cond"); + /*cond*/ if (/*_#IS_A__L6*/ meltfnum[5]) /*then*/ { + /*^cond.then*/ + /*^block*/ /*anyblock*/{ + MELT_LOCATION("warmelt-normatch.melt:2770:/ msend"); + /*msend*/{ + union meltparam_un argtab[1]; + memset(&argtab, 0, sizeof(argtab)); + /*^ojbmsend.arg*/ + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.THENSTEP__V3*/ meltfptr[2]; + /*_.PUT_THEN_MATCH__V18*/ meltfptr[17] = meltgc_send((melt_ptr_t)(/*_.THENGROUP__V14*/ meltfptr[13]), (melt_ptr_t)((/*!PUT_THEN_MATCH*/ meltfrout->tabval[4])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + } + ; + /*_.IFELSE___V17*/ meltfptr[15] = /*_.PUT_THEN_MATCH__V18*/ meltfptr[17];; + /*epilog*/ + MELT_LOCATION("warmelt-normatch.melt:2769:/ clear"); + /*clear*/ /*_.PUT_THEN_MATCH__V18*/ meltfptr[17] = 0 ;} + ; + } else {/*^cond.else*/ + + /*^block*/ + /*anyblock*/{ + /*_#IS_LIST__L7*/ meltfnum[6] = + (melt_magic_discr((melt_ptr_t)(/*_.THENGROUP__V14*/ meltfptr[13])) == OBMAG_LIST);; + MELT_LOCATION("warmelt-normatch.melt:2771:/ cond"); + /*cond*/ if (/*_#IS_LIST__L7*/ meltfnum[6]) /*then*/ { + /*^cond.then*/ + /*^block*/ + /*anyblock*/{ + + /*citerblock FOREACH_IN_LIST*/ { + /* start cit1__EACHLIST */ + for (/*_.CURPAIR__V20*/ meltfptr[19] = melt_list_first(/*_.THENGROUP__V14*/ meltfptr[13]); + melt_magic_discr(/*_.CURPAIR__V20*/ meltfptr[19]) == OBMAG_PAIR; + /*_.CURPAIR__V20*/ meltfptr[19] = melt_pair_tail(/*_.CURPAIR__V20*/ meltfptr[19])) { + /*_.CURTHEN__V21*/ meltfptr[20] = melt_pair_head(/*_.CURPAIR__V20*/ meltfptr[19]); + + + MELT_LOCATION("warmelt-normatch.melt:2775:/ msend"); + /*msend*/{ + union meltparam_un argtab[1]; + memset(&argtab, 0, sizeof(argtab)); + /*^ojbmsend.arg*/ + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.THENSTEP__V3*/ meltfptr[2]; + /*_.PUT_THEN_MATCH__V22*/ meltfptr[21] = meltgc_send((melt_ptr_t)(/*_.CURTHEN__V21*/ meltfptr[20]), (melt_ptr_t)((/*!PUT_THEN_MATCH*/ meltfrout->tabval[4])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + } + ; + /*_.IFELSE___V19*/ meltfptr[17] = /*_.PUT_THEN_MATCH__V22*/ meltfptr[21];; + } /* end cit1__EACHLIST */ + + /*citerepilog*/ + + MELT_LOCATION("warmelt-normatch.melt:2772:/ clear"); + /*clear*/ /*_.CURPAIR__V20*/ meltfptr[19] = 0 ; + /*^clear*/ + /*clear*/ /*_.CURTHEN__V21*/ meltfptr[20] = 0 ; + /*^clear*/ + /*clear*/ /*_.PUT_THEN_MATCH__V22*/ meltfptr[21] = 0 ;} /*endciterblock FOREACH_IN_LIST*/ + ; + /*epilog*/ + } + ; + } else {MELT_LOCATION("warmelt-normatch.melt:2771:/ cond.else"); - { - /*^locexp*/ - melt_assert_failed(( "@$@unexpected translpat_anyrecv"),( "warmelt-normatch.melt")?( "warmelt-normatch.melt"):__FILE__, - (2798)?(2798):__LINE__, __FUNCTION__); + /*^block*/ + /*anyblock*/{ + + /*_#IS_MULTIPLE__L8*/ meltfnum[7] = + (melt_magic_discr((melt_ptr_t)(/*_.THENGROUP__V14*/ meltfptr[13])) == OBMAG_MULTIPLE);; + MELT_LOCATION("warmelt-normatch.melt:2776:/ cond"); + /*cond*/ if (/*_#IS_MULTIPLE__L8*/ meltfnum[7]) /*then*/ { + /*^cond.then*/ + /*^block*/ + /*anyblock*/{ + + /*citerblock FOREACH_IN_MULTIPLE*/ { + /* start cit2__EACHTUP: */ + long cit2__EACHTUP_ln = melt_multiple_length((melt_ptr_t)/*_.THENGROUP__V14*/ meltfptr[13]); + for (/*_#THIX__L9*/ meltfnum[8] = 0; + (/*_#THIX__L9*/ meltfnum[8] >= 0) && (/*_#THIX__L9*/ meltfnum[8] < cit2__EACHTUP_ln); + /*_#THIX__L9*/ meltfnum[8]++) { + /*_.CURTHEN__V24*/ meltfptr[23] = melt_multiple_nth((melt_ptr_t)(/*_.THENGROUP__V14*/ meltfptr[13]), /*_#THIX__L9*/ meltfnum[8]); + + + + MELT_LOCATION("warmelt-normatch.melt:2780:/ msend"); + /*msend*/{ + union meltparam_un argtab[1]; + memset(&argtab, 0, sizeof(argtab)); + /*^ojbmsend.arg*/ + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.THENSTEP__V3*/ meltfptr[2]; + /*_.PUT_THEN_MATCH__V25*/ meltfptr[24] = meltgc_send((melt_ptr_t)(/*_.CURTHEN__V24*/ meltfptr[23]), (melt_ptr_t)((/*!PUT_THEN_MATCH*/ meltfrout->tabval[4])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + } + ; + /*_.IFELSE___V23*/ meltfptr[22] = /*_.PUT_THEN_MATCH__V25*/ meltfptr[24];; + if (/*_#THIX__L9*/ meltfnum[8]<0) break; + } /* end cit2__EACHTUP */ + + /*citerepilog*/ + + MELT_LOCATION("warmelt-normatch.melt:2777:/ clear"); + /*clear*/ /*_.CURTHEN__V24*/ meltfptr[23] = 0 ; + /*^clear*/ + /*clear*/ /*_#THIX__L9*/ meltfnum[8] = 0 ; + /*^clear*/ + /*clear*/ /*_.PUT_THEN_MATCH__V25*/ meltfptr[24] = 0 ;} /*endciterblock FOREACH_IN_MULTIPLE*/ + ; + /*epilog*/ + } + ; + } else {MELT_LOCATION("warmelt-normatch.melt:2776:/ cond.else"); + + /*^block*/ + /*anyblock*/{ + + + #if ENABLE_CHECKING + MELT_LOCATION("warmelt-normatch.melt:2782:/ cppif.then"); + /*^block*/ + /*anyblock*/{ + + /*_#THE_MELTCALLCOUNT__L10*/ meltfnum[9] = + meltcallcount;; + MELT_LOCATION("warmelt-normatch.melt:2782:/ apply"); + /*apply*/{ + union meltparam_un argtab[4]; + memset(&argtab, 0, sizeof(argtab)); + /*^apply.arg*/ + argtab[0].bp_cstring = "putthen_matchgroup bad thengroup"; + /*^apply.arg*/ + argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L10*/ meltfnum[9]; + /*^apply.arg*/ + argtab[2].bp_cstring = "warmelt-normatch.melt"; + /*^apply.arg*/ + argtab[3].bp_long = 2782; + /*_.DEBUG_MSG_FUN__V27*/ meltfptr[26] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.THENGROUP__V14*/ meltfptr[13]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + } + ; + /*_.IFCPP___V26*/ meltfptr[25] = /*_.DEBUG_MSG_FUN__V27*/ meltfptr[26];; + /*epilog*/ + + MELT_LOCATION("warmelt-normatch.melt:2782:/ clear"); + /*clear*/ /*_#THE_MELTCALLCOUNT__L10*/ meltfnum[9] = 0 ; + /*^clear*/ + /*clear*/ /*_.DEBUG_MSG_FUN__V27*/ meltfptr[26] = 0 ;} + + #else /*ENABLE_CHECKING*/ + /*^cppif.else*/ + /*_.IFCPP___V26*/ meltfptr[25] = (/*nil*/NULL); + #endif /*ENABLE_CHECKING*/ + ; + + #if ENABLE_CHECKING + MELT_LOCATION("warmelt-normatch.melt:2783:/ cppif.then"); + /*^block*/ + /*anyblock*/{ + + /*^cond*/ + /*cond*/ if ((/*nil*/NULL)) /*then*/ { + /*^cond.then*/ + /*_.IFELSE___V29*/ meltfptr[28] = (/*nil*/NULL);; + } else {MELT_LOCATION("warmelt-normatch.melt:2783:/ cond.else"); + + /*^block*/ + /*anyblock*/{ + + + + + { + /*^locexp*/ + melt_assert_failed(( "bad thengroup"),( "warmelt-normatch.melt")?( "warmelt-normatch.melt"):__FILE__, + (2783)?(2783):__LINE__, __FUNCTION__); ;} + ; + /*clear*/ /*_.IFELSE___V29*/ meltfptr[28] = 0 ; + /*epilog*/ + } + ; + } + ; + /*^compute*/ + + /*_.IFCPP___V28*/ meltfptr[26] = /*_.IFELSE___V29*/ meltfptr[28];; + /*epilog*/ + + MELT_LOCATION("warmelt-normatch.melt:2783:/ clear"); + /*clear*/ /*_.IFELSE___V29*/ meltfptr[28] = 0 ;} + + #else /*ENABLE_CHECKING*/ + /*^cppif.else*/ + /*_.IFCPP___V28*/ meltfptr[26] = (/*nil*/NULL); + #endif /*ENABLE_CHECKING*/ + ; + MELT_LOCATION("warmelt-normatch.melt:2781:/ quasiblock"); + + + /*_.PROGN___V30*/ meltfptr[28] = /*_.IFCPP___V28*/ meltfptr[26];; + /*^compute*/ + + /*_.IFELSE___V23*/ meltfptr[22] = /*_.PROGN___V30*/ meltfptr[28];; + /*epilog*/ + + MELT_LOCATION("warmelt-normatch.melt:2776:/ clear"); + /*clear*/ /*_.IFCPP___V26*/ meltfptr[25] = 0 ; + /*^clear*/ + /*clear*/ /*_.IFCPP___V28*/ meltfptr[26] = 0 ; + /*^clear*/ + /*clear*/ /*_.PROGN___V30*/ meltfptr[28] = 0 ;} + ; + } + ; + /*_.IFELSE___V19*/ meltfptr[17] = /*_.IFELSE___V23*/ meltfptr[22];; + /*epilog*/ + + MELT_LOCATION("warmelt-normatch.melt:2771:/ clear"); + /*clear*/ /*_#IS_MULTIPLE__L8*/ meltfnum[7] = 0 ; + /*^clear*/ + /*clear*/ /*_.IFELSE___V23*/ meltfptr[22] = 0 ;} + ; + } ; - /*clear*/ /*_.IFELSE___V17*/ meltfptr[16] = 0 ; + /*_.IFELSE___V17*/ meltfptr[15] = /*_.IFELSE___V19*/ meltfptr[17];; /*epilog*/ - } + + MELT_LOCATION("warmelt-normatch.melt:2769:/ clear"); + /*clear*/ /*_#IS_LIST__L7*/ meltfnum[6] = 0 ; + /*^clear*/ + /*clear*/ /*_.IFELSE___V19*/ meltfptr[17] = 0 ;} ; } - ; - /*^compute*/ - - /*_.IFCPP___V16*/ meltfptr[15] = /*_.IFELSE___V17*/ meltfptr[16];; + ; + /*_.IFELSE___V15*/ meltfptr[14] = /*_.IFELSE___V17*/ meltfptr[15];; /*epilog*/ - MELT_LOCATION("warmelt-normatch.melt:2798:/ clear"); - /*clear*/ /*_.IFELSE___V17*/ meltfptr[16] = 0 ;} - - #else /*ENABLE_CHECKING*/ - /*^cppif.else*/ - /*_.IFCPP___V16*/ meltfptr[15] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ + MELT_LOCATION("warmelt-normatch.melt:2767:/ clear"); + /*clear*/ /*_#IS_A__L6*/ meltfnum[5] = 0 ; + /*^clear*/ + /*clear*/ /*_.IFELSE___V17*/ meltfptr[15] = 0 ;} ; - /*^compute*/ - - /*_.LET___V11*/ meltfptr[9] = /*_.IFCPP___V16*/ meltfptr[15];; + } + ; + /*_.LET___V13*/ meltfptr[12] = /*_.IFELSE___V15*/ meltfptr[14];; - MELT_LOCATION("warmelt-normatch.melt:2795:/ clear"); - /*clear*/ /*_.DIS__V12*/ meltfptr[11] = 0 ; - /*^clear*/ - /*clear*/ /*_.IFCPP___V13*/ meltfptr[12] = 0 ; + MELT_LOCATION("warmelt-normatch.melt:2765:/ clear"); + /*clear*/ /*_.THENGROUP__V14*/ meltfptr[13] = 0 ; /*^clear*/ - /*clear*/ /*_.NAMED_NAME__V15*/ meltfptr[13] = 0 ; + /*clear*/ /*_#NULL__L5*/ meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V16*/ meltfptr[15] = 0 ; - MELT_LOCATION("warmelt-normatch.melt:2792:/ quasiblock"); + /*clear*/ /*_.IFELSE___V15*/ meltfptr[14] = 0 ; + MELT_LOCATION("warmelt-normatch.melt:2759:/ quasiblock"); - /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V11*/ meltfptr[9];; - MELT_LOCATION("warmelt-normatch.melt:2792:/ finalreturn"); + /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V13*/ meltfptr[12];; + MELT_LOCATION("warmelt-normatch.melt:2759:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.IFCPP___V7*/ meltfptr[6] = 0 ; + /*clear*/ /*_.IFCPP___V4*/ meltfptr[3] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V9*/ meltfptr[7] = 0 ; + /*clear*/ /*_.IFCPP___V6*/ meltfptr[4] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V11*/ meltfptr[9] = 0 ;} + /*clear*/ /*_.IFCPP___V8*/ meltfptr[6] = 0 ; + /*^clear*/ + /*clear*/ /*_.IFCPP___V10*/ meltfptr[8] = 0 ; + /*^clear*/ + /*clear*/ /*_.PUTTHEN_MATCHTHEN__V12*/ meltfptr[10] = 0 ; + /*^clear*/ + /*clear*/ /*_.LET___V13*/ meltfptr[12] = 0 ;} ; goto labend_rout; labend_rout: -melt_trace_end("TRANSLPAT_ANYRECV", meltcallcount); melt_topframe = (struct callframe_melt_st*) meltfram__.prev; +melt_trace_end("PUTTHEN_MATCHGROUP", meltcallcount); melt_topframe = (struct callframe_melt_st*) meltfram__.prev; return (melt_ptr_t)(/*_.RETVAL___V1*/ meltfptr[0]); #undef meltcallcount #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR -} /*end meltrout_63_warmelt_normatch_TRANSLPAT_ANYRECV*/ +} /*end meltrout_59_warmelt_normatch_PUTTHEN_MATCHGROUP*/ melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_64_warmelt_normatch_TRANSLPAT_JOKERPAT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, +meltrout_60_warmelt_normatch_PUTELSE_MATCHSTEPTHEN(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_) { #if ENABLE_CHECKING @@ -23663,17 +22598,17 @@ meltrout_64_warmelt_normatch_TRANSLPAT_JOKERPAT(meltclosure_ptr_t closp_, melt_p #define meltcallcount 0L #endif - struct frame_meltrout_64_warmelt_normatch_TRANSLPAT_JOKERPAT_st { unsigned nbvar; + struct frame_meltrout_60_warmelt_normatch_PUTELSE_MATCHSTEPTHEN_st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct meltclosure_st *clos; struct excepth_melt_st *exh; struct callframe_melt_st *prev; -#define MELTFRAM_NBVARPTR 11 - void* varptr[11]; -#define MELTFRAM_NBVARNUM 2 - long varnum[2]; +#define MELTFRAM_NBVARPTR 20 + void* varptr[20]; +#define MELTFRAM_NBVARNUM 6 + long varnum[6]; /*others*/ long _spare_; } *framptr_=0, meltframe; @@ -23682,49 +22617,28 @@ meltrout_64_warmelt_normatch_TRANSLPAT_JOKERPAT(meltclosure_ptr_t closp_, melt_p int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_melt_un (framptr_->clos); - for(ix=0; ix<11; ix++) + for(ix=0; ix<20; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_melt_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&meltfram__, 0, sizeof(meltfram__)); - meltfram__.nbvar = 11; + meltfram__.nbvar = 20; meltfram__.clos = closp_; meltfram__.prev = (struct callframe_melt_st *) melt_topframe; melt_topframe = (struct callframe_melt_st *) &meltfram__; -melt_trace_start("TRANSLPAT_JOKERPAT", meltcallcount); +melt_trace_start("PUTELSE_MATCHSTEPTHEN", meltcallcount); /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-normatch.melt:2802:/ getarg"); + MELT_LOCATION("warmelt-normatch.melt:2793:/ getarg"); /*_.RECV__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; /*getarg#1*/ /*^getarg*/ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; - /*_.MDATA__V3*/ meltfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.MDATA__V3*/ meltfptr[2])) != NULL); - - - /*getarg#2*/ - /*^getarg*/ - if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; - /*_.MCASE__V4*/ meltfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.MCASE__V4*/ meltfptr[3])) != NULL); - - - /*getarg#3*/ - /*^getarg*/ - if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs; - /*_.VARMAP__V5*/ meltfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.VARMAP__V5*/ meltfptr[4])) != NULL); - - - /*getarg#4*/ - /*^getarg*/ - if (xargdescr_[3] != BPAR_PTR) goto lab_endgetargs; - /*_.SLOC__V6*/ meltfptr[5] = (xargtab_[3].bp_aptr) ? (*(xargtab_[3].bp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.SLOC__V6*/ meltfptr[5])) != NULL); + /*_.ELSESTEP__V3*/ meltfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; + gcc_assert(melt_discr((melt_ptr_t)(/*_.ELSESTEP__V3*/ meltfptr[2])) != NULL); ; goto lab_endgetargs; @@ -23735,17 +22649,53 @@ lab_endgetargs:; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normatch.melt:2803:/ cppif.then"); + MELT_LOCATION("warmelt-normatch.melt:2794:/ cppif.then"); /*^block*/ /*anyblock*/{ - /*_#IS_A__L1*/ meltfnum[0] = - melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_PATTERN_JOKER_VARIABLE*/ meltfrout->tabval[0])));; - MELT_LOCATION("warmelt-normatch.melt:2803:/ cond"); - /*cond*/ if (/*_#IS_A__L1*/ meltfnum[0]) /*then*/ { + /*_#THE_MELTCALLCOUNT__L1*/ meltfnum[0] = + meltcallcount;; + MELT_LOCATION("warmelt-normatch.melt:2794:/ apply"); + /*apply*/{ + union meltparam_un argtab[4]; + memset(&argtab, 0, sizeof(argtab)); + /*^apply.arg*/ + argtab[0].bp_cstring = "putelse_matchstepthen recv"; + /*^apply.arg*/ + argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L1*/ meltfnum[0]; + /*^apply.arg*/ + argtab[2].bp_cstring = "warmelt-normatch.melt"; + /*^apply.arg*/ + argtab[3].bp_long = 2794; + /*_.DEBUG_MSG_FUN__V5*/ meltfptr[4] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + } + ; + /*_.IFCPP___V4*/ meltfptr[3] = /*_.DEBUG_MSG_FUN__V5*/ meltfptr[4];; + /*epilog*/ + + MELT_LOCATION("warmelt-normatch.melt:2794:/ clear"); + /*clear*/ /*_#THE_MELTCALLCOUNT__L1*/ meltfnum[0] = 0 ; + /*^clear*/ + /*clear*/ /*_.DEBUG_MSG_FUN__V5*/ meltfptr[4] = 0 ;} + + #else /*ENABLE_CHECKING*/ + /*^cppif.else*/ + /*_.IFCPP___V4*/ meltfptr[3] = (/*nil*/NULL); + #endif /*ENABLE_CHECKING*/ + ; + + #if ENABLE_CHECKING + MELT_LOCATION("warmelt-normatch.melt:2795:/ cppif.then"); + /*^block*/ + /*anyblock*/{ + + /*_#IS_A__L2*/ meltfnum[0] = + melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_MATCH_STEP_THEN*/ meltfrout->tabval[1])));; + MELT_LOCATION("warmelt-normatch.melt:2795:/ cond"); + /*cond*/ if (/*_#IS_A__L2*/ meltfnum[0]) /*then*/ { /*^cond.then*/ - /*_.IFELSE___V8*/ meltfptr[7] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normatch.melt:2803:/ cond.else"); + /*_.IFELSE___V7*/ meltfptr[6] = (/*nil*/NULL);; + } else {MELT_LOCATION("warmelt-normatch.melt:2795:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -23756,10 +22706,10 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check recv"),( "warmelt-normatch.melt")?( "warmelt-normatch.melt"):__FILE__, - (2803)?(2803):__LINE__, __FUNCTION__); + (2795)?(2795):__LINE__, __FUNCTION__); ;} ; - /*clear*/ /*_.IFELSE___V8*/ meltfptr[7] = 0 ; + /*clear*/ /*_.IFELSE___V7*/ meltfptr[6] = 0 ; /*epilog*/ } ; @@ -23767,95 +22717,264 @@ lab_endgetargs:; ; /*^compute*/ - /*_.IFCPP___V7*/ meltfptr[6] = /*_.IFELSE___V8*/ meltfptr[7];; + /*_.IFCPP___V6*/ meltfptr[4] = /*_.IFELSE___V7*/ meltfptr[6];; /*epilog*/ - MELT_LOCATION("warmelt-normatch.melt:2803:/ clear"); - /*clear*/ /*_#IS_A__L1*/ meltfnum[0] = 0 ; + MELT_LOCATION("warmelt-normatch.melt:2795:/ clear"); + /*clear*/ /*_#IS_A__L2*/ meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_.IFELSE___V8*/ meltfptr[7] = 0 ;} + /*clear*/ /*_.IFELSE___V7*/ meltfptr[6] = 0 ;} #else /*ENABLE_CHECKING*/ /*^cppif.else*/ - /*_.IFCPP___V7*/ meltfptr[6] = (/*nil*/NULL); + /*_.IFCPP___V6*/ meltfptr[4] = (/*nil*/NULL); + #endif /*ENABLE_CHECKING*/ + ; + + #if ENABLE_CHECKING + MELT_LOCATION("warmelt-normatch.melt:2796:/ cppif.then"); + /*^block*/ + /*anyblock*/{ + + /*_#THE_MELTCALLCOUNT__L3*/ meltfnum[0] = + meltcallcount;; + MELT_LOCATION("warmelt-normatch.melt:2796:/ apply"); + /*apply*/{ + union meltparam_un argtab[4]; + memset(&argtab, 0, sizeof(argtab)); + /*^apply.arg*/ + argtab[0].bp_cstring = "putelse_matchstepthen elsestep"; + /*^apply.arg*/ + argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L3*/ meltfnum[0]; + /*^apply.arg*/ + argtab[2].bp_cstring = "warmelt-normatch.melt"; + /*^apply.arg*/ + argtab[3].bp_long = 2796; + /*_.DEBUG_MSG_FUN__V9*/ meltfptr[8] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.ELSESTEP__V3*/ meltfptr[2]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + } + ; + /*_.IFCPP___V8*/ meltfptr[6] = /*_.DEBUG_MSG_FUN__V9*/ meltfptr[8];; + /*epilog*/ + + MELT_LOCATION("warmelt-normatch.melt:2796:/ clear"); + /*clear*/ /*_#THE_MELTCALLCOUNT__L3*/ meltfnum[0] = 0 ; + /*^clear*/ + /*clear*/ /*_.DEBUG_MSG_FUN__V9*/ meltfptr[8] = 0 ;} + + #else /*ENABLE_CHECKING*/ + /*^cppif.else*/ + /*_.IFCPP___V8*/ meltfptr[6] = (/*nil*/NULL); + #endif /*ENABLE_CHECKING*/ + ; + + #if ENABLE_CHECKING + MELT_LOCATION("warmelt-normatch.melt:2797:/ cppif.then"); + /*^block*/ + /*anyblock*/{ + + /*_#IS_A__L4*/ meltfnum[0] = + melt_is_instance_of((melt_ptr_t)(/*_.ELSESTEP__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_MATCH_STEP*/ meltfrout->tabval[2])));; + MELT_LOCATION("warmelt-normatch.melt:2797:/ cond"); + /*cond*/ if (/*_#IS_A__L4*/ meltfnum[0]) /*then*/ { + /*^cond.then*/ + /*_.IFELSE___V11*/ meltfptr[10] = (/*nil*/NULL);; + } else {MELT_LOCATION("warmelt-normatch.melt:2797:/ cond.else"); + + /*^block*/ + /*anyblock*/{ + + + + + { + /*^locexp*/ + melt_assert_failed(( "check elsestep"),( "warmelt-normatch.melt")?( "warmelt-normatch.melt"):__FILE__, + (2797)?(2797):__LINE__, __FUNCTION__); +;} + ; + /*clear*/ /*_.IFELSE___V11*/ meltfptr[10] = 0 ; + /*epilog*/ + } + ; + } + ; + /*^compute*/ + + /*_.IFCPP___V10*/ meltfptr[8] = /*_.IFELSE___V11*/ meltfptr[10];; + /*epilog*/ + + MELT_LOCATION("warmelt-normatch.melt:2797:/ clear"); + /*clear*/ /*_#IS_A__L4*/ meltfnum[0] = 0 ; + /*^clear*/ + /*clear*/ /*_.IFELSE___V11*/ meltfptr[10] = 0 ;} + + #else /*ENABLE_CHECKING*/ + /*^cppif.else*/ + /*_.IFCPP___V10*/ meltfptr[8] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; + MELT_LOCATION("warmelt-normatch.melt:2798:/ quasiblock"); + + + MELT_LOCATION("warmelt-normatch.melt:2799:/ getslot"); + { melt_ptr_t slot=0; + melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), 3, "MSTEP_THEN");/*_.MYTHEN__V13*/ meltfptr[12] = slot; }; + ; + MELT_LOCATION("warmelt-normatch.melt:2801:/ cond"); + /*cond*/ if (/*_.MYTHEN__V13*/ meltfptr[12]) /*then*/ { + /*^cond.then*/ + /*^block*/ + /*anyblock*/{ + + + #if ENABLE_CHECKING + MELT_LOCATION("warmelt-normatch.melt:2803:/ cppif.then"); + /*^block*/ + /*anyblock*/{ + + /*_#THE_MELTCALLCOUNT__L5*/ meltfnum[0] = + meltcallcount;; + MELT_LOCATION("warmelt-normatch.melt:2803:/ apply"); + /*apply*/{ + union meltparam_un argtab[4]; + memset(&argtab, 0, sizeof(argtab)); + /*^apply.arg*/ + argtab[0].bp_cstring = "putelse_matchstepthen recursing in mythen"; + /*^apply.arg*/ + argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L5*/ meltfnum[0]; + /*^apply.arg*/ + argtab[2].bp_cstring = "warmelt-normatch.melt"; + /*^apply.arg*/ + argtab[3].bp_long = 2803; + /*_.DEBUG_MSG_FUN__V16*/ meltfptr[15] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.MYTHEN__V13*/ meltfptr[12]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + } + ; + /*_.IFCPP___V15*/ meltfptr[14] = /*_.DEBUG_MSG_FUN__V16*/ meltfptr[15];; + /*epilog*/ + + MELT_LOCATION("warmelt-normatch.melt:2803:/ clear"); + /*clear*/ /*_#THE_MELTCALLCOUNT__L5*/ meltfnum[0] = 0 ; + /*^clear*/ + /*clear*/ /*_.DEBUG_MSG_FUN__V16*/ meltfptr[15] = 0 ;} + + #else /*ENABLE_CHECKING*/ + /*^cppif.else*/ + /*_.IFCPP___V15*/ meltfptr[14] = (/*nil*/NULL); + #endif /*ENABLE_CHECKING*/ + ; + MELT_LOCATION("warmelt-normatch.melt:2804:/ msend"); + /*msend*/{ + union meltparam_un argtab[1]; + memset(&argtab, 0, sizeof(argtab)); + /*^ojbmsend.arg*/ + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.ELSESTEP__V3*/ meltfptr[2]; + /*_.PUT_ELSE_MATCH__V17*/ meltfptr[15] = meltgc_send((melt_ptr_t)(/*_.MYTHEN__V13*/ meltfptr[12]), (melt_ptr_t)((/*!PUT_ELSE_MATCH*/ meltfrout->tabval[3])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + } + ; + MELT_LOCATION("warmelt-normatch.melt:2802:/ quasiblock"); + + + /*_.PROGN___V18*/ meltfptr[17] = /*_.PUT_ELSE_MATCH__V17*/ meltfptr[15];; + /*^compute*/ + + /*_.IF___V14*/ meltfptr[13] = /*_.PROGN___V18*/ meltfptr[17];; + /*epilog*/ + + MELT_LOCATION("warmelt-normatch.melt:2801:/ clear"); + /*clear*/ /*_.IFCPP___V15*/ meltfptr[14] = 0 ; + /*^clear*/ + /*clear*/ /*_.PUT_ELSE_MATCH__V17*/ meltfptr[15] = 0 ; + /*^clear*/ + /*clear*/ /*_.PROGN___V18*/ meltfptr[17] = 0 ;} + ; + } else {/*^cond.else*/ + + /*_.IF___V14*/ meltfptr[13] = NULL;; + } + ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normatch.melt:2804:/ cppif.then"); + MELT_LOCATION("warmelt-normatch.melt:2805:/ cppif.then"); /*^block*/ /*anyblock*/{ - /*_#THE_MELTCALLCOUNT__L2*/ meltfnum[0] = + /*_#THE_MELTCALLCOUNT__L6*/ meltfnum[0] = meltcallcount;; - MELT_LOCATION("warmelt-normatch.melt:2804:/ apply"); + MELT_LOCATION("warmelt-normatch.melt:2805:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_cstring = "translpat_jokerpat recv"; + argtab[0].bp_cstring = "putelse_matchstepthen end recv"; /*^apply.arg*/ - argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L2*/ meltfnum[0]; + argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L6*/ meltfnum[0]; /*^apply.arg*/ argtab[2].bp_cstring = "warmelt-normatch.melt"; /*^apply.arg*/ - argtab[3].bp_long = 2804; - /*_.DEBUG_MSG_FUN__V10*/ meltfptr[9] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + argtab[3].bp_long = 2805; + /*_.DEBUG_MSG_FUN__V20*/ meltfptr[15] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; - /*_.IFCPP___V9*/ meltfptr[7] = /*_.DEBUG_MSG_FUN__V10*/ meltfptr[9];; + /*_.IFCPP___V19*/ meltfptr[14] = /*_.DEBUG_MSG_FUN__V20*/ meltfptr[15];; /*epilog*/ - MELT_LOCATION("warmelt-normatch.melt:2804:/ clear"); - /*clear*/ /*_#THE_MELTCALLCOUNT__L2*/ meltfnum[0] = 0 ; + MELT_LOCATION("warmelt-normatch.melt:2805:/ clear"); + /*clear*/ /*_#THE_MELTCALLCOUNT__L6*/ meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_.DEBUG_MSG_FUN__V10*/ meltfptr[9] = 0 ;} + /*clear*/ /*_.DEBUG_MSG_FUN__V20*/ meltfptr[15] = 0 ;} #else /*ENABLE_CHECKING*/ /*^cppif.else*/ - /*_.IFCPP___V9*/ meltfptr[7] = (/*nil*/NULL); + /*_.IFCPP___V19*/ meltfptr[14] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-normatch.melt:2805:/ quasiblock"); - + /*^compute*/ + + /*_.LET___V12*/ meltfptr[10] = /*_.IFCPP___V19*/ meltfptr[14];; - /*_.RETVAL___V1*/ meltfptr[0] = NULL;; - MELT_LOCATION("warmelt-normatch.melt:2805:/ finalreturn"); - ; - /*finalret*/ goto labend_rout ; - MELT_LOCATION("warmelt-normatch.melt:2802:/ quasiblock"); + MELT_LOCATION("warmelt-normatch.melt:2798:/ clear"); + /*clear*/ /*_.MYTHEN__V13*/ meltfptr[12] = 0 ; + /*^clear*/ + /*clear*/ /*_.IF___V14*/ meltfptr[13] = 0 ; + /*^clear*/ + /*clear*/ /*_.IFCPP___V19*/ meltfptr[14] = 0 ; + MELT_LOCATION("warmelt-normatch.melt:2793:/ quasiblock"); - /*_.RETVAL___V1*/ meltfptr[0] = /*_.RETURN___V11*/ meltfptr[9];; - MELT_LOCATION("warmelt-normatch.melt:2802:/ finalreturn"); + /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V12*/ meltfptr[10];; + MELT_LOCATION("warmelt-normatch.melt:2793:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.IFCPP___V7*/ meltfptr[6] = 0 ; + /*clear*/ /*_.IFCPP___V4*/ meltfptr[3] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V9*/ meltfptr[7] = 0 ; + /*clear*/ /*_.IFCPP___V6*/ meltfptr[4] = 0 ; /*^clear*/ - /*clear*/ /*_.RETURN___V11*/ meltfptr[9] = 0 ;} + /*clear*/ /*_.IFCPP___V8*/ meltfptr[6] = 0 ; + /*^clear*/ + /*clear*/ /*_.IFCPP___V10*/ meltfptr[8] = 0 ; + /*^clear*/ + /*clear*/ /*_.LET___V12*/ meltfptr[10] = 0 ;} ; goto labend_rout; labend_rout: -melt_trace_end("TRANSLPAT_JOKERPAT", meltcallcount); melt_topframe = (struct callframe_melt_st*) meltfram__.prev; +melt_trace_end("PUTELSE_MATCHSTEPTHEN", meltcallcount); melt_topframe = (struct callframe_melt_st*) meltfram__.prev; return (melt_ptr_t)(/*_.RETVAL___V1*/ meltfptr[0]); #undef meltcallcount #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR -} /*end meltrout_64_warmelt_normatch_TRANSLPAT_JOKERPAT*/ +} /*end meltrout_60_warmelt_normatch_PUTELSE_MATCHSTEPTHEN*/ melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_65_warmelt_normatch_TRANSLPAT_INSPAT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, +meltrout_61_warmelt_normatch_PUTELSE_MATCHTEST(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_) { #if ENABLE_CHECKING @@ -23868,17 +22987,17 @@ meltrout_65_warmelt_normatch_TRANSLPAT_INSPAT(meltclosure_ptr_t closp_, melt_ptr #define meltcallcount 0L #endif - struct frame_meltrout_65_warmelt_normatch_TRANSLPAT_INSPAT_st { unsigned nbvar; + struct frame_meltrout_61_warmelt_normatch_PUTELSE_MATCHTEST_st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct meltclosure_st *clos; struct excepth_melt_st *exh; struct callframe_melt_st *prev; -#define MELTFRAM_NBVARPTR 106 - void* varptr[106]; -#define MELTFRAM_NBVARNUM 30 - long varnum[30]; +#define MELTFRAM_NBVARPTR 40 + void* varptr[40]; +#define MELTFRAM_NBVARNUM 13 + long varnum[13]; /*others*/ long _spare_; } *framptr_=0, meltframe; @@ -23887,49 +23006,28 @@ meltrout_65_warmelt_normatch_TRANSLPAT_INSPAT(meltclosure_ptr_t closp_, melt_ptr int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_melt_un (framptr_->clos); - for(ix=0; ix<106; ix++) + for(ix=0; ix<40; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_melt_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&meltfram__, 0, sizeof(meltfram__)); - meltfram__.nbvar = 106; + meltfram__.nbvar = 40; meltfram__.clos = closp_; meltfram__.prev = (struct callframe_melt_st *) melt_topframe; melt_topframe = (struct callframe_melt_st *) &meltfram__; -melt_trace_start("TRANSLPAT_INSPAT", meltcallcount); +melt_trace_start("PUTELSE_MATCHTEST", meltcallcount); /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-normatch.melt:2812:/ getarg"); + MELT_LOCATION("warmelt-normatch.melt:2810:/ getarg"); /*_.RECV__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; /*getarg#1*/ /*^getarg*/ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; - /*_.MDATA__V3*/ meltfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.MDATA__V3*/ meltfptr[2])) != NULL); - - - /*getarg#2*/ - /*^getarg*/ - if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; - /*_.MCASE__V4*/ meltfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.MCASE__V4*/ meltfptr[3])) != NULL); - - - /*getarg#3*/ - /*^getarg*/ - if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs; - /*_.VARMAP__V5*/ meltfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.VARMAP__V5*/ meltfptr[4])) != NULL); - - - /*getarg#4*/ - /*^getarg*/ - if (xargdescr_[3] != BPAR_PTR) goto lab_endgetargs; - /*_.PSLOC__V6*/ meltfptr[5] = (xargtab_[3].bp_aptr) ? (*(xargtab_[3].bp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.PSLOC__V6*/ meltfptr[5])) != NULL); + /*_.ELSESTEP__V3*/ meltfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; + gcc_assert(melt_discr((melt_ptr_t)(/*_.ELSESTEP__V3*/ meltfptr[2])) != NULL); ; goto lab_endgetargs; @@ -23940,290 +23038,761 @@ lab_endgetargs:; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normatch.melt:2813:/ cppif.then"); + MELT_LOCATION("warmelt-normatch.melt:2811:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L1*/ meltfnum[0] = meltcallcount;; - MELT_LOCATION("warmelt-normatch.melt:2813:/ apply"); + MELT_LOCATION("warmelt-normatch.melt:2811:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_cstring = "translpat_inspat recv"; + argtab[0].bp_cstring = "putelse_matchtest recv"; /*^apply.arg*/ argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L1*/ meltfnum[0]; /*^apply.arg*/ argtab[2].bp_cstring = "warmelt-normatch.melt"; /*^apply.arg*/ + argtab[3].bp_long = 2811; + /*_.DEBUG_MSG_FUN__V5*/ meltfptr[4] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + } + ; + /*_.IFCPP___V4*/ meltfptr[3] = /*_.DEBUG_MSG_FUN__V5*/ meltfptr[4];; + /*epilog*/ + + MELT_LOCATION("warmelt-normatch.melt:2811:/ clear"); + /*clear*/ /*_#THE_MELTCALLCOUNT__L1*/ meltfnum[0] = 0 ; + /*^clear*/ + /*clear*/ /*_.DEBUG_MSG_FUN__V5*/ meltfptr[4] = 0 ;} + + #else /*ENABLE_CHECKING*/ + /*^cppif.else*/ + /*_.IFCPP___V4*/ meltfptr[3] = (/*nil*/NULL); + #endif /*ENABLE_CHECKING*/ + ; + + #if ENABLE_CHECKING + MELT_LOCATION("warmelt-normatch.melt:2812:/ cppif.then"); + /*^block*/ + /*anyblock*/{ + + /*_#IS_A__L2*/ meltfnum[0] = + melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_MATCH_STEP_TEST*/ meltfrout->tabval[1])));; + MELT_LOCATION("warmelt-normatch.melt:2812:/ cond"); + /*cond*/ if (/*_#IS_A__L2*/ meltfnum[0]) /*then*/ { + /*^cond.then*/ + /*_.IFELSE___V7*/ meltfptr[6] = (/*nil*/NULL);; + } else {MELT_LOCATION("warmelt-normatch.melt:2812:/ cond.else"); + + /*^block*/ + /*anyblock*/{ + + + + + { + /*^locexp*/ + melt_assert_failed(( "check recv"),( "warmelt-normatch.melt")?( "warmelt-normatch.melt"):__FILE__, + (2812)?(2812):__LINE__, __FUNCTION__); +;} + ; + /*clear*/ /*_.IFELSE___V7*/ meltfptr[6] = 0 ; + /*epilog*/ + } + ; + } + ; + /*^compute*/ + + /*_.IFCPP___V6*/ meltfptr[4] = /*_.IFELSE___V7*/ meltfptr[6];; + /*epilog*/ + + MELT_LOCATION("warmelt-normatch.melt:2812:/ clear"); + /*clear*/ /*_#IS_A__L2*/ meltfnum[0] = 0 ; + /*^clear*/ + /*clear*/ /*_.IFELSE___V7*/ meltfptr[6] = 0 ;} + + #else /*ENABLE_CHECKING*/ + /*^cppif.else*/ + /*_.IFCPP___V6*/ meltfptr[4] = (/*nil*/NULL); + #endif /*ENABLE_CHECKING*/ + ; + + #if ENABLE_CHECKING + MELT_LOCATION("warmelt-normatch.melt:2813:/ cppif.then"); + /*^block*/ + /*anyblock*/{ + + /*_#THE_MELTCALLCOUNT__L3*/ meltfnum[0] = + meltcallcount;; + MELT_LOCATION("warmelt-normatch.melt:2813:/ apply"); + /*apply*/{ + union meltparam_un argtab[4]; + memset(&argtab, 0, sizeof(argtab)); + /*^apply.arg*/ + argtab[0].bp_cstring = "putelse_matchtest elsestep"; + /*^apply.arg*/ + argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L3*/ meltfnum[0]; + /*^apply.arg*/ + argtab[2].bp_cstring = "warmelt-normatch.melt"; + /*^apply.arg*/ argtab[3].bp_long = 2813; - /*_.DEBUG_MSG_FUN__V8*/ meltfptr[7] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + /*_.DEBUG_MSG_FUN__V9*/ meltfptr[8] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.ELSESTEP__V3*/ meltfptr[2]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; - /*_.IFCPP___V7*/ meltfptr[6] = /*_.DEBUG_MSG_FUN__V8*/ meltfptr[7];; + /*_.IFCPP___V8*/ meltfptr[6] = /*_.DEBUG_MSG_FUN__V9*/ meltfptr[8];; + /*epilog*/ + + MELT_LOCATION("warmelt-normatch.melt:2813:/ clear"); + /*clear*/ /*_#THE_MELTCALLCOUNT__L3*/ meltfnum[0] = 0 ; + /*^clear*/ + /*clear*/ /*_.DEBUG_MSG_FUN__V9*/ meltfptr[8] = 0 ;} + + #else /*ENABLE_CHECKING*/ + /*^cppif.else*/ + /*_.IFCPP___V8*/ meltfptr[6] = (/*nil*/NULL); + #endif /*ENABLE_CHECKING*/ + ; + + #if ENABLE_CHECKING + MELT_LOCATION("warmelt-normatch.melt:2814:/ cppif.then"); + /*^block*/ + /*anyblock*/{ + + /*_#IS_A__L4*/ meltfnum[0] = + melt_is_instance_of((melt_ptr_t)(/*_.ELSESTEP__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_MATCH_STEP*/ meltfrout->tabval[2])));; + MELT_LOCATION("warmelt-normatch.melt:2814:/ cond"); + /*cond*/ if (/*_#IS_A__L4*/ meltfnum[0]) /*then*/ { + /*^cond.then*/ + /*_.IFELSE___V11*/ meltfptr[10] = (/*nil*/NULL);; + } else {MELT_LOCATION("warmelt-normatch.melt:2814:/ cond.else"); + + /*^block*/ + /*anyblock*/{ + + + + + { + /*^locexp*/ + melt_assert_failed(( "check elsestep"),( "warmelt-normatch.melt")?( "warmelt-normatch.melt"):__FILE__, + (2814)?(2814):__LINE__, __FUNCTION__); +;} + ; + /*clear*/ /*_.IFELSE___V11*/ meltfptr[10] = 0 ; + /*epilog*/ + } + ; + } + ; + /*^compute*/ + + /*_.IFCPP___V10*/ meltfptr[8] = /*_.IFELSE___V11*/ meltfptr[10];; + /*epilog*/ + + MELT_LOCATION("warmelt-normatch.melt:2814:/ clear"); + /*clear*/ /*_#IS_A__L4*/ meltfnum[0] = 0 ; + /*^clear*/ + /*clear*/ /*_.IFELSE___V11*/ meltfptr[10] = 0 ;} + + #else /*ENABLE_CHECKING*/ + /*^cppif.else*/ + /*_.IFCPP___V10*/ meltfptr[8] = (/*nil*/NULL); + #endif /*ENABLE_CHECKING*/ + ; + MELT_LOCATION("warmelt-normatch.melt:2815:/ quasiblock"); + + + MELT_LOCATION("warmelt-normatch.melt:2816:/ getslot"); + { melt_ptr_t slot=0; + melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), 4, "MSTEP_ELSE");/*_.MYELSE__V13*/ meltfptr[12] = slot; }; + ; + MELT_LOCATION("warmelt-normatch.melt:2817:/ getslot"); + { melt_ptr_t slot=0; + melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), 3, "MSTEP_THEN");/*_.MYTHEN__V14*/ meltfptr[13] = slot; }; + ; + MELT_LOCATION("warmelt-normatch.melt:2818:/ apply"); + /*apply*/{ + /*_.ELSESTART__V15*/ meltfptr[14] = melt_apply ((meltclosure_ptr_t)((/*!START_STEP*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.ELSESTEP__V3*/ meltfptr[2]), (""), (union meltparam_un*)0, "", (union meltparam_un*)0); + } + ; + /*_#__L5*/ meltfnum[0] = + ((/*_.RECV__V2*/ meltfptr[1]) == (/*_.ELSESTART__V15*/ meltfptr[14]));; + MELT_LOCATION("warmelt-normatch.melt:2821:/ cond"); + /*cond*/ if (/*_#__L5*/ meltfnum[0]) /*then*/ { + /*^cond.then*/ + /*^block*/ + /*anyblock*/{ + + + #if ENABLE_CHECKING + MELT_LOCATION("warmelt-normatch.melt:2822:/ cppif.then"); + /*^block*/ + /*anyblock*/{ + + /*_#THE_MELTCALLCOUNT__L6*/ meltfnum[5] = + meltcallcount;; + MELT_LOCATION("warmelt-normatch.melt:2822:/ apply"); + /*apply*/{ + union meltparam_un argtab[4]; + memset(&argtab, 0, sizeof(argtab)); + /*^apply.arg*/ + argtab[0].bp_cstring = "putelse_matchtest recv same as elsestep"; + /*^apply.arg*/ + argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L6*/ meltfnum[5]; + /*^apply.arg*/ + argtab[2].bp_cstring = "warmelt-normatch.melt"; + /*^apply.arg*/ + argtab[3].bp_long = 2822; + /*_.DEBUG_MSG_FUN__V18*/ meltfptr[17] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + } + ; + /*_.IFCPP___V17*/ meltfptr[16] = /*_.DEBUG_MSG_FUN__V18*/ meltfptr[17];; + /*epilog*/ + + MELT_LOCATION("warmelt-normatch.melt:2822:/ clear"); + /*clear*/ /*_#THE_MELTCALLCOUNT__L6*/ meltfnum[5] = 0 ; + /*^clear*/ + /*clear*/ /*_.DEBUG_MSG_FUN__V18*/ meltfptr[17] = 0 ;} + + #else /*ENABLE_CHECKING*/ + /*^cppif.else*/ + /*_.IFCPP___V17*/ meltfptr[16] = (/*nil*/NULL); + #endif /*ENABLE_CHECKING*/ + ; + MELT_LOCATION("warmelt-normatch.melt:2823:/ quasiblock"); + + + /*_.RETVAL___V1*/ meltfptr[0] = NULL;; + MELT_LOCATION("warmelt-normatch.melt:2823:/ finalreturn"); + ; + /*finalret*/ goto labend_rout ; + MELT_LOCATION("warmelt-normatch.melt:2821:/ quasiblock"); + + + /*_.PROGN___V20*/ meltfptr[19] = /*_.RETURN___V19*/ meltfptr[17];; + /*^compute*/ + + /*_.IFELSE___V16*/ meltfptr[15] = /*_.PROGN___V20*/ meltfptr[19];; /*epilog*/ - MELT_LOCATION("warmelt-normatch.melt:2813:/ clear"); - /*clear*/ /*_#THE_MELTCALLCOUNT__L1*/ meltfnum[0] = 0 ; + MELT_LOCATION("warmelt-normatch.melt:2821:/ clear"); + /*clear*/ /*_.IFCPP___V17*/ meltfptr[16] = 0 ; /*^clear*/ - /*clear*/ /*_.DEBUG_MSG_FUN__V8*/ meltfptr[7] = 0 ;} - - #else /*ENABLE_CHECKING*/ - /*^cppif.else*/ - /*_.IFCPP___V7*/ meltfptr[6] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ + /*clear*/ /*_.RETURN___V19*/ meltfptr[17] = 0 ; + /*^clear*/ + /*clear*/ /*_.PROGN___V20*/ meltfptr[19] = 0 ;} ; + } else {/*^cond.else*/ - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normatch.melt:2814:/ cppif.then"); - /*^block*/ + /*^block*/ /*anyblock*/{ - /*_#IS_A__L2*/ meltfnum[0] = - melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_PATTERN_INSTANCE*/ meltfrout->tabval[1])));; - MELT_LOCATION("warmelt-normatch.melt:2814:/ cond"); - /*cond*/ if (/*_#IS_A__L2*/ meltfnum[0]) /*then*/ { + /*_#__L7*/ meltfnum[5] = + ((/*_.MYELSE__V13*/ meltfptr[12]) == (/*_.ELSESTART__V15*/ meltfptr[14]));; + MELT_LOCATION("warmelt-normatch.melt:2824:/ cond"); + /*cond*/ if (/*_#__L7*/ meltfnum[5]) /*then*/ { /*^cond.then*/ - /*_.IFELSE___V10*/ meltfptr[9] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normatch.melt:2814:/ cond.else"); - - /*^block*/ + /*^block*/ /*anyblock*/{ + #if ENABLE_CHECKING + MELT_LOCATION("warmelt-normatch.melt:2825:/ cppif.then"); + /*^block*/ + /*anyblock*/{ + + /*_#THE_MELTCALLCOUNT__L8*/ meltfnum[7] = + meltcallcount;; + MELT_LOCATION("warmelt-normatch.melt:2825:/ apply"); + /*apply*/{ + union meltparam_un argtab[4]; + memset(&argtab, 0, sizeof(argtab)); + /*^apply.arg*/ + argtab[0].bp_cstring = "putelse_matchtest myelse same as elsestep"; + /*^apply.arg*/ + argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L8*/ meltfnum[7]; + /*^apply.arg*/ + argtab[2].bp_cstring = "warmelt-normatch.melt"; + /*^apply.arg*/ + argtab[3].bp_long = 2825; + /*_.DEBUG_MSG_FUN__V23*/ meltfptr[19] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + } + ; + /*_.IFCPP___V22*/ meltfptr[17] = /*_.DEBUG_MSG_FUN__V23*/ meltfptr[19];; + /*epilog*/ + + MELT_LOCATION("warmelt-normatch.melt:2825:/ clear"); + /*clear*/ /*_#THE_MELTCALLCOUNT__L8*/ meltfnum[7] = 0 ; + /*^clear*/ + /*clear*/ /*_.DEBUG_MSG_FUN__V23*/ meltfptr[19] = 0 ;} + + #else /*ENABLE_CHECKING*/ + /*^cppif.else*/ + /*_.IFCPP___V22*/ meltfptr[17] = (/*nil*/NULL); + #endif /*ENABLE_CHECKING*/ + ; + MELT_LOCATION("warmelt-normatch.melt:2826:/ quasiblock"); - { - /*^locexp*/ - melt_assert_failed(( "check recv"),( "warmelt-normatch.melt")?( "warmelt-normatch.melt"):__FILE__, - (2814)?(2814):__LINE__, __FUNCTION__); -;} + /*_.RETVAL___V1*/ meltfptr[0] = NULL;; + MELT_LOCATION("warmelt-normatch.melt:2826:/ finalreturn"); ; - /*clear*/ /*_.IFELSE___V10*/ meltfptr[9] = 0 ; + /*finalret*/ goto labend_rout ; + MELT_LOCATION("warmelt-normatch.melt:2824:/ quasiblock"); + + + /*_.PROGN___V25*/ meltfptr[24] = /*_.RETURN___V24*/ meltfptr[19];; + /*^compute*/ + + /*_.IFELSE___V21*/ meltfptr[16] = /*_.PROGN___V25*/ meltfptr[24];; /*epilog*/ - } + + MELT_LOCATION("warmelt-normatch.melt:2824:/ clear"); + /*clear*/ /*_.IFCPP___V22*/ meltfptr[17] = 0 ; + /*^clear*/ + /*clear*/ /*_.RETURN___V24*/ meltfptr[19] = 0 ; + /*^clear*/ + /*clear*/ /*_.PROGN___V25*/ meltfptr[24] = 0 ;} ; - } - ; - /*^compute*/ - - /*_.IFCPP___V9*/ meltfptr[7] = /*_.IFELSE___V10*/ meltfptr[9];; - /*epilog*/ - - MELT_LOCATION("warmelt-normatch.melt:2814:/ clear"); - /*clear*/ /*_#IS_A__L2*/ meltfnum[0] = 0 ; - /*^clear*/ - /*clear*/ /*_.IFELSE___V10*/ meltfptr[9] = 0 ;} - - #else /*ENABLE_CHECKING*/ - /*^cppif.else*/ - /*_.IFCPP___V9*/ meltfptr[7] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normatch.melt:2815:/ cppif.then"); - /*^block*/ - /*anyblock*/{ + } else {/*^cond.else*/ - /*_#THE_MELTCALLCOUNT__L3*/ meltfnum[0] = - meltcallcount;; - MELT_LOCATION("warmelt-normatch.melt:2815:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - /*^apply.arg*/ - argtab[0].bp_cstring = "translpat_inspat mdata"; - /*^apply.arg*/ - argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L3*/ meltfnum[0]; - /*^apply.arg*/ - argtab[2].bp_cstring = "warmelt-normatch.melt"; - /*^apply.arg*/ - argtab[3].bp_long = 2815; - /*_.DEBUG_MSG_FUN__V12*/ meltfptr[11] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.MDATA__V3*/ meltfptr[2]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + /*^block*/ + /*anyblock*/{ + + /*_#NULL__L9*/ meltfnum[7] = + ((/*_.MYELSE__V13*/ meltfptr[12]) == NULL);; + MELT_LOCATION("warmelt-normatch.melt:2827:/ cond"); + /*cond*/ if (/*_#NULL__L9*/ meltfnum[7]) /*then*/ { + /*^cond.then*/ + /*^block*/ + /*anyblock*/{ + + MELT_LOCATION("warmelt-normatch.melt:2828:/ quasiblock"); + + + /*^putslot*/ + /*putslot*/ + melt_assertmsg("putslot checkobj @MSTEP_ELSE", melt_magic_discr((melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1])) == OBMAG_OBJECT); + melt_putfield_object((/*_.RECV__V2*/ meltfptr[1]), (4), (/*_.ELSESTART__V15*/ meltfptr[14]), "MSTEP_ELSE"); + ; + /*^touch*/ + meltgc_touch(/*_.RECV__V2*/ meltfptr[1]); + ; + + + #if ENABLE_CHECKING + MELT_LOCATION("warmelt-normatch.melt:2829:/ cppif.then"); + /*^block*/ + /*anyblock*/{ + + /*_#THE_MELTCALLCOUNT__L10*/ meltfnum[9] = + meltcallcount;; + MELT_LOCATION("warmelt-normatch.melt:2829:/ apply"); + /*apply*/{ + union meltparam_un argtab[4]; + memset(&argtab, 0, sizeof(argtab)); + /*^apply.arg*/ + argtab[0].bp_cstring = "putelse_matchtest updated recv"; + /*^apply.arg*/ + argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L10*/ meltfnum[9]; + /*^apply.arg*/ + argtab[2].bp_cstring = "warmelt-normatch.melt"; + /*^apply.arg*/ + argtab[3].bp_long = 2829; + /*_.DEBUG_MSG_FUN__V28*/ meltfptr[24] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + } + ; + /*_.IFCPP___V27*/ meltfptr[19] = /*_.DEBUG_MSG_FUN__V28*/ meltfptr[24];; + /*epilog*/ + + MELT_LOCATION("warmelt-normatch.melt:2829:/ clear"); + /*clear*/ /*_#THE_MELTCALLCOUNT__L10*/ meltfnum[9] = 0 ; + /*^clear*/ + /*clear*/ /*_.DEBUG_MSG_FUN__V28*/ meltfptr[24] = 0 ;} + + #else /*ENABLE_CHECKING*/ + /*^cppif.else*/ + /*_.IFCPP___V27*/ meltfptr[19] = (/*nil*/NULL); + #endif /*ENABLE_CHECKING*/ + ; + MELT_LOCATION("warmelt-normatch.melt:2827:/ quasiblock"); + + + /*_.PROGN___V29*/ meltfptr[24] = /*_.IFCPP___V27*/ meltfptr[19];; + /*^compute*/ + + /*_.IFELSE___V26*/ meltfptr[17] = /*_.PROGN___V29*/ meltfptr[24];; + /*epilog*/ + + MELT_LOCATION("warmelt-normatch.melt:2827:/ clear"); + /*clear*/ /*_.IFCPP___V27*/ meltfptr[19] = 0 ; + /*^clear*/ + /*clear*/ /*_.PROGN___V29*/ meltfptr[24] = 0 ;} + ; + } else {/*^cond.else*/ + + /*^block*/ + /*anyblock*/{ + + + #if ENABLE_CHECKING + MELT_LOCATION("warmelt-normatch.melt:2832:/ cppif.then"); + /*^block*/ + /*anyblock*/{ + + /*_#THE_MELTCALLCOUNT__L11*/ meltfnum[9] = + meltcallcount;; + MELT_LOCATION("warmelt-normatch.melt:2832:/ apply"); + /*apply*/{ + union meltparam_un argtab[4]; + memset(&argtab, 0, sizeof(argtab)); + /*^apply.arg*/ + argtab[0].bp_cstring = "putelse_matchtest myelse appending then"; + /*^apply.arg*/ + argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L11*/ meltfnum[9]; + /*^apply.arg*/ + argtab[2].bp_cstring = "warmelt-normatch.melt"; + /*^apply.arg*/ + argtab[3].bp_long = 2832; + /*_.DEBUG_MSG_FUN__V31*/ meltfptr[24] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.MYELSE__V13*/ meltfptr[12]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + } + ; + /*_.IFCPP___V30*/ meltfptr[19] = /*_.DEBUG_MSG_FUN__V31*/ meltfptr[24];; + /*epilog*/ + + MELT_LOCATION("warmelt-normatch.melt:2832:/ clear"); + /*clear*/ /*_#THE_MELTCALLCOUNT__L11*/ meltfnum[9] = 0 ; + /*^clear*/ + /*clear*/ /*_.DEBUG_MSG_FUN__V31*/ meltfptr[24] = 0 ;} + + #else /*ENABLE_CHECKING*/ + /*^cppif.else*/ + /*_.IFCPP___V30*/ meltfptr[19] = (/*nil*/NULL); + #endif /*ENABLE_CHECKING*/ + ; + MELT_LOCATION("warmelt-normatch.melt:2833:/ msend"); + /*msend*/{ + union meltparam_un argtab[1]; + memset(&argtab, 0, sizeof(argtab)); + /*^ojbmsend.arg*/ + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.ELSESTART__V15*/ meltfptr[14]; + /*_.PUT_THEN_MATCH__V32*/ meltfptr[24] = meltgc_send((melt_ptr_t)(/*_.MYELSE__V13*/ meltfptr[12]), (melt_ptr_t)((/*!PUT_THEN_MATCH*/ meltfrout->tabval[4])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + } + ; + MELT_LOCATION("warmelt-normatch.melt:2831:/ quasiblock"); + + + /*_.PROGN___V33*/ meltfptr[32] = /*_.PUT_THEN_MATCH__V32*/ meltfptr[24];; + /*^compute*/ + + /*_.IFELSE___V26*/ meltfptr[17] = /*_.PROGN___V33*/ meltfptr[32];; + /*epilog*/ + + MELT_LOCATION("warmelt-normatch.melt:2827:/ clear"); + /*clear*/ /*_.IFCPP___V30*/ meltfptr[19] = 0 ; + /*^clear*/ + /*clear*/ /*_.PUT_THEN_MATCH__V32*/ meltfptr[24] = 0 ; + /*^clear*/ + /*clear*/ /*_.PROGN___V33*/ meltfptr[32] = 0 ;} + ; + } + ; + /*_.IFELSE___V21*/ meltfptr[16] = /*_.IFELSE___V26*/ meltfptr[17];; + /*epilog*/ + + MELT_LOCATION("warmelt-normatch.melt:2824:/ clear"); + /*clear*/ /*_#NULL__L9*/ meltfnum[7] = 0 ; + /*^clear*/ + /*clear*/ /*_.IFELSE___V26*/ meltfptr[17] = 0 ;} + ; } ; - /*_.IFCPP___V11*/ meltfptr[9] = /*_.DEBUG_MSG_FUN__V12*/ meltfptr[11];; + /*_.IFELSE___V16*/ meltfptr[15] = /*_.IFELSE___V21*/ meltfptr[16];; /*epilog*/ - MELT_LOCATION("warmelt-normatch.melt:2815:/ clear"); - /*clear*/ /*_#THE_MELTCALLCOUNT__L3*/ meltfnum[0] = 0 ; + MELT_LOCATION("warmelt-normatch.melt:2821:/ clear"); + /*clear*/ /*_#__L7*/ meltfnum[5] = 0 ; /*^clear*/ - /*clear*/ /*_.DEBUG_MSG_FUN__V12*/ meltfptr[11] = 0 ;} - - #else /*ENABLE_CHECKING*/ - /*^cppif.else*/ - /*_.IFCPP___V11*/ meltfptr[9] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ + /*clear*/ /*_.IFELSE___V21*/ meltfptr[16] = 0 ;} ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normatch.melt:2816:/ cppif.then"); + } + ; + MELT_LOCATION("warmelt-normatch.melt:2836:/ cond"); + /*cond*/ if (/*_.MYTHEN__V14*/ meltfptr[13]) /*then*/ { + /*^cond.then*/ /*^block*/ /*anyblock*/{ - /*_#IS_A__L4*/ meltfnum[0] = - melt_is_instance_of((melt_ptr_t)(/*_.MDATA__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_MATCHED_DATA*/ meltfrout->tabval[2])));; - MELT_LOCATION("warmelt-normatch.melt:2816:/ cond"); - /*cond*/ if (/*_#IS_A__L4*/ meltfnum[0]) /*then*/ { - /*^cond.then*/ - /*_.IFELSE___V14*/ meltfptr[13] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normatch.melt:2816:/ cond.else"); - /*^block*/ + #if ENABLE_CHECKING + MELT_LOCATION("warmelt-normatch.melt:2838:/ cppif.then"); + /*^block*/ /*anyblock*/{ - - - - { - /*^locexp*/ - melt_assert_failed(( "check mdata"),( "warmelt-normatch.melt")?( "warmelt-normatch.melt"):__FILE__, - (2816)?(2816):__LINE__, __FUNCTION__); -;} + /*_#THE_MELTCALLCOUNT__L12*/ meltfnum[9] = + meltcallcount;; + MELT_LOCATION("warmelt-normatch.melt:2838:/ apply"); + /*apply*/{ + union meltparam_un argtab[4]; + memset(&argtab, 0, sizeof(argtab)); + /*^apply.arg*/ + argtab[0].bp_cstring = "putelse_matchtest recursing in mythen"; + /*^apply.arg*/ + argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L12*/ meltfnum[9]; + /*^apply.arg*/ + argtab[2].bp_cstring = "warmelt-normatch.melt"; + /*^apply.arg*/ + argtab[3].bp_long = 2838; + /*_.DEBUG_MSG_FUN__V36*/ meltfptr[32] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.MYTHEN__V14*/ meltfptr[13]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + } ; - /*clear*/ /*_.IFELSE___V14*/ meltfptr[13] = 0 ; + /*_.IFCPP___V35*/ meltfptr[24] = /*_.DEBUG_MSG_FUN__V36*/ meltfptr[32];; /*epilog*/ - } + + MELT_LOCATION("warmelt-normatch.melt:2838:/ clear"); + /*clear*/ /*_#THE_MELTCALLCOUNT__L12*/ meltfnum[9] = 0 ; + /*^clear*/ + /*clear*/ /*_.DEBUG_MSG_FUN__V36*/ meltfptr[32] = 0 ;} + + #else /*ENABLE_CHECKING*/ + /*^cppif.else*/ + /*_.IFCPP___V35*/ meltfptr[24] = (/*nil*/NULL); + #endif /*ENABLE_CHECKING*/ ; + MELT_LOCATION("warmelt-normatch.melt:2839:/ msend"); + /*msend*/{ + union meltparam_un argtab[1]; + memset(&argtab, 0, sizeof(argtab)); + /*^ojbmsend.arg*/ + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.ELSESTART__V15*/ meltfptr[14]; + /*_.PUT_ELSE_MATCH__V37*/ meltfptr[17] = meltgc_send((melt_ptr_t)(/*_.MYTHEN__V14*/ meltfptr[13]), (melt_ptr_t)((/*!PUT_ELSE_MATCH*/ meltfrout->tabval[5])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; + MELT_LOCATION("warmelt-normatch.melt:2837:/ quasiblock"); + + + /*_.PROGN___V38*/ meltfptr[16] = /*_.PUT_ELSE_MATCH__V37*/ meltfptr[17];; /*^compute*/ - /*_.IFCPP___V13*/ meltfptr[11] = /*_.IFELSE___V14*/ meltfptr[13];; + /*_.IF___V34*/ meltfptr[19] = /*_.PROGN___V38*/ meltfptr[16];; /*epilog*/ - MELT_LOCATION("warmelt-normatch.melt:2816:/ clear"); - /*clear*/ /*_#IS_A__L4*/ meltfnum[0] = 0 ; + MELT_LOCATION("warmelt-normatch.melt:2836:/ clear"); + /*clear*/ /*_.IFCPP___V35*/ meltfptr[24] = 0 ; /*^clear*/ - /*clear*/ /*_.IFELSE___V14*/ meltfptr[13] = 0 ;} - - #else /*ENABLE_CHECKING*/ - /*^cppif.else*/ - /*_.IFCPP___V13*/ meltfptr[11] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ + /*clear*/ /*_.PUT_ELSE_MATCH__V37*/ meltfptr[17] = 0 ; + /*^clear*/ + /*clear*/ /*_.PROGN___V38*/ meltfptr[16] = 0 ;} ; + } else {/*^cond.else*/ + + /*_.IF___V34*/ meltfptr[19] = NULL;; + } + ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normatch.melt:2817:/ cppif.then"); + MELT_LOCATION("warmelt-normatch.melt:2840:/ cppif.then"); /*^block*/ /*anyblock*/{ - /*_#THE_MELTCALLCOUNT__L5*/ meltfnum[0] = + /*_#THE_MELTCALLCOUNT__L13*/ meltfnum[7] = meltcallcount;; - MELT_LOCATION("warmelt-normatch.melt:2817:/ apply"); + MELT_LOCATION("warmelt-normatch.melt:2840:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_cstring = "translpat_inspat mcase"; + argtab[0].bp_cstring = "putelse_matchtest end recv"; /*^apply.arg*/ - argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L5*/ meltfnum[0]; + argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L13*/ meltfnum[7]; /*^apply.arg*/ argtab[2].bp_cstring = "warmelt-normatch.melt"; /*^apply.arg*/ - argtab[3].bp_long = 2817; - /*_.DEBUG_MSG_FUN__V16*/ meltfptr[15] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.MCASE__V4*/ meltfptr[3]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + argtab[3].bp_long = 2840; + /*_.DEBUG_MSG_FUN__V40*/ meltfptr[24] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; - /*_.IFCPP___V15*/ meltfptr[13] = /*_.DEBUG_MSG_FUN__V16*/ meltfptr[15];; + /*_.IFCPP___V39*/ meltfptr[32] = /*_.DEBUG_MSG_FUN__V40*/ meltfptr[24];; /*epilog*/ - MELT_LOCATION("warmelt-normatch.melt:2817:/ clear"); - /*clear*/ /*_#THE_MELTCALLCOUNT__L5*/ meltfnum[0] = 0 ; + MELT_LOCATION("warmelt-normatch.melt:2840:/ clear"); + /*clear*/ /*_#THE_MELTCALLCOUNT__L13*/ meltfnum[7] = 0 ; /*^clear*/ - /*clear*/ /*_.DEBUG_MSG_FUN__V16*/ meltfptr[15] = 0 ;} + /*clear*/ /*_.DEBUG_MSG_FUN__V40*/ meltfptr[24] = 0 ;} #else /*ENABLE_CHECKING*/ /*^cppif.else*/ - /*_.IFCPP___V15*/ meltfptr[13] = (/*nil*/NULL); + /*_.IFCPP___V39*/ meltfptr[32] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; + /*^compute*/ + + /*_.LET___V12*/ meltfptr[10] = /*_.IFCPP___V39*/ meltfptr[32];; + + MELT_LOCATION("warmelt-normatch.melt:2815:/ clear"); + /*clear*/ /*_.MYELSE__V13*/ meltfptr[12] = 0 ; + /*^clear*/ + /*clear*/ /*_.MYTHEN__V14*/ meltfptr[13] = 0 ; + /*^clear*/ + /*clear*/ /*_.ELSESTART__V15*/ meltfptr[14] = 0 ; + /*^clear*/ + /*clear*/ /*_#__L5*/ meltfnum[0] = 0 ; + /*^clear*/ + /*clear*/ /*_.IFELSE___V16*/ meltfptr[15] = 0 ; + /*^clear*/ + /*clear*/ /*_.IF___V34*/ meltfptr[19] = 0 ; + /*^clear*/ + /*clear*/ /*_.IFCPP___V39*/ meltfptr[32] = 0 ; + MELT_LOCATION("warmelt-normatch.melt:2810:/ quasiblock"); + + + /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V12*/ meltfptr[10];; + MELT_LOCATION("warmelt-normatch.melt:2810:/ finalreturn"); + ; + /*finalret*/ goto labend_rout ; + /*epilog*/ + + /*^clear*/ + /*clear*/ /*_.IFCPP___V4*/ meltfptr[3] = 0 ; + /*^clear*/ + /*clear*/ /*_.IFCPP___V6*/ meltfptr[4] = 0 ; + /*^clear*/ + /*clear*/ /*_.IFCPP___V8*/ meltfptr[6] = 0 ; + /*^clear*/ + /*clear*/ /*_.IFCPP___V10*/ meltfptr[8] = 0 ; + /*^clear*/ + /*clear*/ /*_.LET___V12*/ meltfptr[10] = 0 ;} + +; + goto labend_rout; +labend_rout: +melt_trace_end("PUTELSE_MATCHTEST", meltcallcount); melt_topframe = (struct callframe_melt_st*) meltfram__.prev; + return (melt_ptr_t)(/*_.RETVAL___V1*/ meltfptr[0]); +#undef meltcallcount +#undef meltfram__ +#undef MELTFRAM_NBVARNUM +#undef MELTFRAM_NBVARPTR +} /*end meltrout_61_warmelt_normatch_PUTELSE_MATCHTEST*/ + + + + + +melt_ptr_t MELT_MODULE_VISIBILITY +meltrout_62_warmelt_normatch_PUTELSE_MATCHGROUP(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, + const char xresdescr_[], union meltparam_un *xrestab_) +{ +#if ENABLE_CHECKING + static long call_counter__; + long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; +#undef meltcallcount +#define meltcallcount thiscallcounter__ +#else +#undef meltcallcount +#define meltcallcount 0L +#endif + + struct frame_meltrout_62_warmelt_normatch_PUTELSE_MATCHGROUP_st { unsigned nbvar; +#if ENABLE_CHECKING + const char* flocs; +#endif + struct meltclosure_st *clos; + struct excepth_melt_st *exh; + struct callframe_melt_st *prev; +#define MELTFRAM_NBVARPTR 48 + void* varptr[48]; +#define MELTFRAM_NBVARNUM 17 + long varnum[17]; +/*others*/ + long _spare_; } + *framptr_=0, meltframe; +#define meltfram__ meltframe + if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/ + int ix=0; + framptr_ = (void*)firstargp_; + gt_ggc_mx_melt_un (framptr_->clos); + for(ix=0; ix<48; ix++) + if (framptr_->varptr[ix]) + gt_ggc_mx_melt_un (framptr_->varptr[ix]); + return NULL; + }/*end markggc*/; + memset(&meltfram__, 0, sizeof(meltfram__)); + meltfram__.nbvar = 48; + meltfram__.clos = closp_; + meltfram__.prev = (struct callframe_melt_st *) melt_topframe; + melt_topframe = (struct callframe_melt_st *) &meltfram__; +melt_trace_start("PUTELSE_MATCHGROUP", meltcallcount); +/*getargs*/ + + /*getarg#0*/ + MELT_LOCATION("warmelt-normatch.melt:2846:/ getarg"); + /*_.RECV__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; + + /*getarg#1*/ + /*^getarg*/ + if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; + /*_.ELSESTEP__V3*/ meltfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; + gcc_assert(melt_discr((melt_ptr_t)(/*_.ELSESTEP__V3*/ meltfptr[2])) != NULL); + + ; + goto lab_endgetargs; +lab_endgetargs:; +/*body*/ +/*^block*/ +/*anyblock*/{ + #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normatch.melt:2818:/ cppif.then"); + MELT_LOCATION("warmelt-normatch.melt:2847:/ cppif.then"); /*^block*/ /*anyblock*/{ - /*_#IS_A__L6*/ meltfnum[0] = - melt_is_instance_of((melt_ptr_t)(/*_.MCASE__V4*/ meltfptr[3]), (melt_ptr_t)((/*!CLASS_MATCH_CASE*/ meltfrout->tabval[3])));; - MELT_LOCATION("warmelt-normatch.melt:2818:/ cond"); - /*cond*/ if (/*_#IS_A__L6*/ meltfnum[0]) /*then*/ { - /*^cond.then*/ - /*_.IFELSE___V18*/ meltfptr[17] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normatch.melt:2818:/ cond.else"); - - /*^block*/ - /*anyblock*/{ - - - - - { - /*^locexp*/ - melt_assert_failed(( "check mcase"),( "warmelt-normatch.melt")?( "warmelt-normatch.melt"):__FILE__, - (2818)?(2818):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V18*/ meltfptr[17] = 0 ; - /*epilog*/ - } - ; + /*_#THE_MELTCALLCOUNT__L1*/ meltfnum[0] = + meltcallcount;; + MELT_LOCATION("warmelt-normatch.melt:2847:/ apply"); + /*apply*/{ + union meltparam_un argtab[4]; + memset(&argtab, 0, sizeof(argtab)); + /*^apply.arg*/ + argtab[0].bp_cstring = "putelse_matchgroup recv"; + /*^apply.arg*/ + argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L1*/ meltfnum[0]; + /*^apply.arg*/ + argtab[2].bp_cstring = "warmelt-normatch.melt"; + /*^apply.arg*/ + argtab[3].bp_long = 2847; + /*_.DEBUG_MSG_FUN__V5*/ meltfptr[4] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; - /*^compute*/ - - /*_.IFCPP___V17*/ meltfptr[15] = /*_.IFELSE___V18*/ meltfptr[17];; + /*_.IFCPP___V4*/ meltfptr[3] = /*_.DEBUG_MSG_FUN__V5*/ meltfptr[4];; /*epilog*/ - MELT_LOCATION("warmelt-normatch.melt:2818:/ clear"); - /*clear*/ /*_#IS_A__L6*/ meltfnum[0] = 0 ; + MELT_LOCATION("warmelt-normatch.melt:2847:/ clear"); + /*clear*/ /*_#THE_MELTCALLCOUNT__L1*/ meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_.IFELSE___V18*/ meltfptr[17] = 0 ;} + /*clear*/ /*_.DEBUG_MSG_FUN__V5*/ meltfptr[4] = 0 ;} #else /*ENABLE_CHECKING*/ /*^cppif.else*/ - /*_.IFCPP___V17*/ meltfptr[15] = (/*nil*/NULL); + /*_.IFCPP___V4*/ meltfptr[3] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-normatch.melt:2819:/ quasiblock"); - - - MELT_LOCATION("warmelt-normatch.melt:2820:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), 2, "SPAT_CLASS");/*_.PCLASS__V20*/ meltfptr[19] = slot; }; - ; - MELT_LOCATION("warmelt-normatch.melt:2821:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), 3, "SPAT_FIELDS");/*_.PFIELDS__V21*/ meltfptr[20] = slot; }; - ; - MELT_LOCATION("warmelt-normatch.melt:2822:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), 1, "LOCA_LOCATION");/*_.LOCA_LOCATION__V22*/ meltfptr[21] = slot; }; - ; - /*^cond*/ - /*cond*/ if (/*_.LOCA_LOCATION__V22*/ meltfptr[21]) /*then*/ { - /*^cond.then*/ - /*_.SLOC__V23*/ meltfptr[22] = /*_.LOCA_LOCATION__V22*/ meltfptr[21];; - } else {MELT_LOCATION("warmelt-normatch.melt:2822:/ cond.else"); - - /*_.SLOC__V23*/ meltfptr[22] = /*_.PSLOC__V6*/ meltfptr[5];; - } - ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normatch.melt:2824:/ cppif.then"); + MELT_LOCATION("warmelt-normatch.melt:2848:/ cppif.then"); /*^block*/ /*anyblock*/{ - /*_#IS_A__L7*/ meltfnum[0] = - melt_is_instance_of((melt_ptr_t)(/*_.PCLASS__V20*/ meltfptr[19]), (melt_ptr_t)((/*!CLASS_CLASS*/ meltfrout->tabval[4])));; - MELT_LOCATION("warmelt-normatch.melt:2824:/ cond"); - /*cond*/ if (/*_#IS_A__L7*/ meltfnum[0]) /*then*/ { + /*_#IS_A__L2*/ meltfnum[0] = + melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_MATCH_STEP_TEST_GROUP*/ meltfrout->tabval[1])));; + MELT_LOCATION("warmelt-normatch.melt:2848:/ cond"); + /*cond*/ if (/*_#IS_A__L2*/ meltfnum[0]) /*then*/ { /*^cond.then*/ - /*_.IFELSE___V25*/ meltfptr[24] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normatch.melt:2824:/ cond.else"); + /*_.IFELSE___V7*/ meltfptr[6] = (/*nil*/NULL);; + } else {MELT_LOCATION("warmelt-normatch.melt:2848:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -24233,1242 +23802,752 @@ lab_endgetargs:; { /*^locexp*/ - melt_assert_failed(( "check pclass"),( "warmelt-normatch.melt")?( "warmelt-normatch.melt"):__FILE__, - (2824)?(2824):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V25*/ meltfptr[24] = 0 ; - /*epilog*/ - } - ; - } - ; - /*^compute*/ - - /*_.IFCPP___V24*/ meltfptr[23] = /*_.IFELSE___V25*/ meltfptr[24];; - /*epilog*/ - - MELT_LOCATION("warmelt-normatch.melt:2824:/ clear"); - /*clear*/ /*_#IS_A__L7*/ meltfnum[0] = 0 ; - /*^clear*/ - /*clear*/ /*_.IFELSE___V25*/ meltfptr[24] = 0 ;} - - #else /*ENABLE_CHECKING*/ - /*^cppif.else*/ - /*_.IFCPP___V24*/ meltfptr[23] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - MELT_LOCATION("warmelt-normatch.melt:2825:/ quasiblock"); - - - /*^getslot*/ - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.PCLASS__V20*/ meltfptr[19]), 6, "CLASS_FIELDS");/*_.CLASS_FIELDS__V27*/ meltfptr[26] = slot; }; - ; - /*_#NBFIELDS__L8*/ meltfnum[0] = - (melt_multiple_length((melt_ptr_t)(/*_.CLASS_FIELDS__V27*/ meltfptr[26])));; - /*citerblock FOREACH_IN_MULTIPLE*/ { - /* start cit1__EACHTUP: */ - long cit1__EACHTUP_ln = melt_multiple_length((melt_ptr_t)/*_.PFIELDS__V21*/ meltfptr[20]); - for (/*_#PIX__L9*/ meltfnum[8] = 0; - (/*_#PIX__L9*/ meltfnum[8] >= 0) && (/*_#PIX__L9*/ meltfnum[8] < cit1__EACHTUP_ln); - /*_#PIX__L9*/ meltfnum[8]++) { - /*_.CURPFLD__V28*/ meltfptr[27] = melt_multiple_nth((melt_ptr_t)(/*_.PFIELDS__V21*/ meltfptr[20]), /*_#PIX__L9*/ meltfnum[8]); - - - - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normatch.melt:2831:/ cppif.then"); - /*^block*/ - /*anyblock*/{ - - /*_#IS_A__L10*/ meltfnum[9] = - melt_is_instance_of((melt_ptr_t)(/*_.CURPFLD__V28*/ meltfptr[27]), (melt_ptr_t)((/*!CLASS_SOURCE_FIELD_PATTERN*/ meltfrout->tabval[5])));; - MELT_LOCATION("warmelt-normatch.melt:2831:/ cond"); - /*cond*/ if (/*_#IS_A__L10*/ meltfnum[9]) /*then*/ { - /*^cond.then*/ - /*_.IFELSE___V30*/ meltfptr[29] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normatch.melt:2831:/ cond.else"); - - /*^block*/ - /*anyblock*/{ - - - - - { - /*^locexp*/ - melt_assert_failed(( "check curpfld"),( "warmelt-normatch.melt")?( "warmelt-normatch.melt"):__FILE__, - (2831)?(2831):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V30*/ meltfptr[29] = 0 ; - /*epilog*/ - } - ; - } - ; - /*^compute*/ - - /*_.IFCPP___V29*/ meltfptr[28] = /*_.IFELSE___V30*/ meltfptr[29];; - /*epilog*/ - - MELT_LOCATION("warmelt-normatch.melt:2831:/ clear"); - /*clear*/ /*_#IS_A__L10*/ meltfnum[9] = 0 ; - /*^clear*/ - /*clear*/ /*_.IFELSE___V30*/ meltfptr[29] = 0 ;} - - #else /*ENABLE_CHECKING*/ - /*^cppif.else*/ - /*_.IFCPP___V29*/ meltfptr[28] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - MELT_LOCATION("warmelt-normatch.melt:2832:/ quasiblock"); - - - /*^getslot*/ - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.CURPFLD__V28*/ meltfptr[27]), 1, "LOCA_LOCATION");/*_.LOCA_LOCATION__V32*/ meltfptr[31] = slot; }; - ; - /*^cond*/ - /*cond*/ if (/*_.LOCA_LOCATION__V32*/ meltfptr[31]) /*then*/ { - /*^cond.then*/ - /*_.FSLOC__V33*/ meltfptr[32] = /*_.LOCA_LOCATION__V32*/ meltfptr[31];; - } else {MELT_LOCATION("warmelt-normatch.melt:2832:/ cond.else"); - - /*_.FSLOC__V33*/ meltfptr[32] = /*_.SLOC__V23*/ meltfptr[22];; - } - ; - MELT_LOCATION("warmelt-normatch.melt:2833:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.CURPFLD__V28*/ meltfptr[27]), 2, "SPAF_FIELD");/*_.CURFLD__V34*/ meltfptr[33] = slot; }; - ; - MELT_LOCATION("warmelt-normatch.melt:2834:/ cond"); - /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURFLD__V34*/ meltfptr[33]), (melt_ptr_t)((/*!CLASS_FIELD*/ meltfrout->tabval[6])))) /*then*/ { - /*^cond.then*/ - /*^getslot*/ - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.CURFLD__V34*/ meltfptr[33]), 2, "FLD_OWNCLASS");/*_.FLCLA__V35*/ meltfptr[34] = slot; }; - ; - } else {/*^cond.else*/ - - /*_.FLCLA__V35*/ meltfptr[34] = NULL;; - } - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normatch.melt:2836:/ cppif.then"); - /*^block*/ - /*anyblock*/{ - - /*_#IS_A__L11*/ meltfnum[9] = - melt_is_instance_of((melt_ptr_t)(/*_.CURFLD__V34*/ meltfptr[33]), (melt_ptr_t)((/*!CLASS_FIELD*/ meltfrout->tabval[6])));; - MELT_LOCATION("warmelt-normatch.melt:2836:/ cond"); - /*cond*/ if (/*_#IS_A__L11*/ meltfnum[9]) /*then*/ { - /*^cond.then*/ - /*_.IFELSE___V37*/ meltfptr[36] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normatch.melt:2836:/ cond.else"); - - /*^block*/ - /*anyblock*/{ - - - - - { - /*^locexp*/ - melt_assert_failed(( "check curfld"),( "warmelt-normatch.melt")?( "warmelt-normatch.melt"):__FILE__, - (2836)?(2836):__LINE__, __FUNCTION__); + melt_assert_failed(( "check recv"),( "warmelt-normatch.melt")?( "warmelt-normatch.melt"):__FILE__, + (2848)?(2848):__LINE__, __FUNCTION__); ;} - ; - /*clear*/ /*_.IFELSE___V37*/ meltfptr[36] = 0 ; - /*epilog*/ - } ; + /*clear*/ /*_.IFELSE___V7*/ meltfptr[6] = 0 ; + /*epilog*/ } ; - /*^compute*/ + } + ; + /*^compute*/ - /*_.IFCPP___V36*/ meltfptr[35] = /*_.IFELSE___V37*/ meltfptr[36];; - /*epilog*/ - - MELT_LOCATION("warmelt-normatch.melt:2836:/ clear"); - /*clear*/ /*_#IS_A__L11*/ meltfnum[9] = 0 ; - /*^clear*/ - /*clear*/ /*_.IFELSE___V37*/ meltfptr[36] = 0 ;} + /*_.IFCPP___V6*/ meltfptr[4] = /*_.IFELSE___V7*/ meltfptr[6];; + /*epilog*/ - #else /*ENABLE_CHECKING*/ - /*^cppif.else*/ - /*_.IFCPP___V36*/ meltfptr[35] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ + MELT_LOCATION("warmelt-normatch.melt:2848:/ clear"); + /*clear*/ /*_#IS_A__L2*/ meltfnum[0] = 0 ; + /*^clear*/ + /*clear*/ /*_.IFELSE___V7*/ meltfptr[6] = 0 ;} + + #else /*ENABLE_CHECKING*/ + /*^cppif.else*/ + /*_.IFCPP___V6*/ meltfptr[4] = (/*nil*/NULL); + #endif /*ENABLE_CHECKING*/ + ; + + #if ENABLE_CHECKING + MELT_LOCATION("warmelt-normatch.melt:2849:/ cppif.then"); + /*^block*/ + /*anyblock*/{ + + /*_#THE_MELTCALLCOUNT__L3*/ meltfnum[0] = + meltcallcount;; + MELT_LOCATION("warmelt-normatch.melt:2849:/ apply"); + /*apply*/{ + union meltparam_un argtab[4]; + memset(&argtab, 0, sizeof(argtab)); + /*^apply.arg*/ + argtab[0].bp_cstring = "putelse_matchgroup elsestep"; + /*^apply.arg*/ + argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L3*/ meltfnum[0]; + /*^apply.arg*/ + argtab[2].bp_cstring = "warmelt-normatch.melt"; + /*^apply.arg*/ + argtab[3].bp_long = 2849; + /*_.DEBUG_MSG_FUN__V9*/ meltfptr[8] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.ELSESTEP__V3*/ meltfptr[2]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + } ; - /*^compute*/ - - /*_#SUBCLASS_OR_EQ__L12*/ meltfnum[9] = - ((/*_.PCLASS__V20*/ meltfptr[19] == /*_.FLCLA__V35*/ meltfptr[34]) || melt_is_subclass_of((meltobject_ptr_t)(/*_.PCLASS__V20*/ meltfptr[19]), (meltobject_ptr_t)(/*_.FLCLA__V35*/ meltfptr[34])));; - /*^compute*/ - - /*_#NOT__L13*/ meltfnum[12] = - (!(/*_#SUBCLASS_OR_EQ__L12*/ meltfnum[9]));; - MELT_LOCATION("warmelt-normatch.melt:2837:/ cond"); - /*cond*/ if (/*_#NOT__L13*/ meltfnum[12]) /*then*/ { - /*^cond.then*/ - /*^block*/ - /*anyblock*/{ - - MELT_LOCATION("warmelt-normatch.melt:2839:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.CURFLD__V34*/ meltfptr[33]), 1, "NAMED_NAME");/*_.NAMED_NAME__V39*/ meltfptr[38] = slot; }; - ; - - { - MELT_LOCATION("warmelt-normatch.melt:2838:/ locexp"); - melt_error_str((melt_ptr_t)(/*_.SLOC__V23*/ meltfptr[22]), ( "bad field in object pattern"), (melt_ptr_t)(/*_.NAMED_NAME__V39*/ meltfptr[38]));} - ; - MELT_LOCATION("warmelt-normatch.melt:2840:/ cond"); - /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.PCLASS__V20*/ meltfptr[19]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[7])))) /*then*/ { - /*^cond.then*/ - /*^getslot*/ - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.PCLASS__V20*/ meltfptr[19]), 1, "NAMED_NAME");/*_.NAMED_NAME__V40*/ meltfptr[39] = slot; }; - ; - } else {/*^cond.else*/ - - /*_.NAMED_NAME__V40*/ meltfptr[39] = NULL;; - } - ; - - { - MELT_LOCATION("warmelt-normatch.melt:2840:/ locexp"); - melt_inform_str((melt_ptr_t)(/*_.SLOC__V23*/ meltfptr[22]), ( "class in pattern is"), (melt_ptr_t)(/*_.NAMED_NAME__V40*/ meltfptr[39]));} - ; - MELT_LOCATION("warmelt-normatch.melt:2841:/ cond"); - /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.FLCLA__V35*/ meltfptr[34]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[7])))) /*then*/ { - /*^cond.then*/ - /*^getslot*/ - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.FLCLA__V35*/ meltfptr[34]), 1, "NAMED_NAME");/*_.NAMED_NAME__V41*/ meltfptr[40] = slot; }; + /*_.IFCPP___V8*/ meltfptr[6] = /*_.DEBUG_MSG_FUN__V9*/ meltfptr[8];; + /*epilog*/ + + MELT_LOCATION("warmelt-normatch.melt:2849:/ clear"); + /*clear*/ /*_#THE_MELTCALLCOUNT__L3*/ meltfnum[0] = 0 ; + /*^clear*/ + /*clear*/ /*_.DEBUG_MSG_FUN__V9*/ meltfptr[8] = 0 ;} + + #else /*ENABLE_CHECKING*/ + /*^cppif.else*/ + /*_.IFCPP___V8*/ meltfptr[6] = (/*nil*/NULL); + #endif /*ENABLE_CHECKING*/ + ; + + #if ENABLE_CHECKING + MELT_LOCATION("warmelt-normatch.melt:2850:/ cppif.then"); + /*^block*/ + /*anyblock*/{ + + /*_#IS_A__L4*/ meltfnum[0] = + melt_is_instance_of((melt_ptr_t)(/*_.ELSESTEP__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_MATCH_STEP*/ meltfrout->tabval[2])));; + MELT_LOCATION("warmelt-normatch.melt:2850:/ cond"); + /*cond*/ if (/*_#IS_A__L4*/ meltfnum[0]) /*then*/ { + /*^cond.then*/ + /*_.IFELSE___V11*/ meltfptr[10] = (/*nil*/NULL);; + } else {MELT_LOCATION("warmelt-normatch.melt:2850:/ cond.else"); + + /*^block*/ + /*anyblock*/{ + + + + + { + /*^locexp*/ + melt_assert_failed(( "check elsestep"),( "warmelt-normatch.melt")?( "warmelt-normatch.melt"):__FILE__, + (2850)?(2850):__LINE__, __FUNCTION__); +;} ; - } else {/*^cond.else*/ - - /*_.NAMED_NAME__V41*/ meltfptr[40] = NULL;; + /*clear*/ /*_.IFELSE___V11*/ meltfptr[10] = 0 ; + /*epilog*/ } ; - - { - MELT_LOCATION("warmelt-normatch.melt:2841:/ locexp"); - melt_inform_str((melt_ptr_t)(/*_.SLOC__V23*/ meltfptr[22]), ( "class of field is"), (melt_ptr_t)(/*_.NAMED_NAME__V41*/ meltfptr[40]));} - ; - MELT_LOCATION("warmelt-normatch.melt:2842:/ quasiblock"); - - - /*_.RETVAL___V1*/ meltfptr[0] = NULL;; - MELT_LOCATION("warmelt-normatch.melt:2842:/ finalreturn"); - ; - /*finalret*/ goto labend_rout ; - MELT_LOCATION("warmelt-normatch.melt:2837:/ quasiblock"); - - - /*_.PROGN___V43*/ meltfptr[42] = /*_.RETURN___V42*/ meltfptr[41];; - /*^compute*/ - - /*_.IFELSE___V38*/ meltfptr[36] = /*_.PROGN___V43*/ meltfptr[42];; - /*epilog*/ - - MELT_LOCATION("warmelt-normatch.melt:2837:/ clear"); - /*clear*/ /*_.NAMED_NAME__V39*/ meltfptr[38] = 0 ; - /*^clear*/ - /*clear*/ /*_.NAMED_NAME__V40*/ meltfptr[39] = 0 ; - /*^clear*/ - /*clear*/ /*_.NAMED_NAME__V41*/ meltfptr[40] = 0 ; - /*^clear*/ - /*clear*/ /*_.RETURN___V42*/ meltfptr[41] = 0 ; - /*^clear*/ - /*clear*/ /*_.PROGN___V43*/ meltfptr[42] = 0 ;} + } ; - } else {/*^cond.else*/ - - /*_.IFELSE___V38*/ meltfptr[36] = NULL;; - } - ; - /*^compute*/ + /*^compute*/ - /*_.LET___V31*/ meltfptr[29] = /*_.IFELSE___V38*/ meltfptr[36];; - - MELT_LOCATION("warmelt-normatch.melt:2832:/ clear"); - /*clear*/ /*_.LOCA_LOCATION__V32*/ meltfptr[31] = 0 ; - /*^clear*/ - /*clear*/ /*_.FSLOC__V33*/ meltfptr[32] = 0 ; - /*^clear*/ - /*clear*/ /*_.CURFLD__V34*/ meltfptr[33] = 0 ; - /*^clear*/ - /*clear*/ /*_.FLCLA__V35*/ meltfptr[34] = 0 ; - /*^clear*/ - /*clear*/ /*_.IFCPP___V36*/ meltfptr[35] = 0 ; - /*^clear*/ - /*clear*/ /*_#SUBCLASS_OR_EQ__L12*/ meltfnum[9] = 0 ; - /*^clear*/ - /*clear*/ /*_#NOT__L13*/ meltfnum[12] = 0 ; - /*^clear*/ - /*clear*/ /*_.IFELSE___V38*/ meltfptr[36] = 0 ; - if (/*_#PIX__L9*/ meltfnum[8]<0) break; - } /* end cit1__EACHTUP */ - - /*citerepilog*/ + /*_.IFCPP___V10*/ meltfptr[8] = /*_.IFELSE___V11*/ meltfptr[10];; + /*epilog*/ + + MELT_LOCATION("warmelt-normatch.melt:2850:/ clear"); + /*clear*/ /*_#IS_A__L4*/ meltfnum[0] = 0 ; + /*^clear*/ + /*clear*/ /*_.IFELSE___V11*/ meltfptr[10] = 0 ;} - MELT_LOCATION("warmelt-normatch.melt:2828:/ clear"); - /*clear*/ /*_.CURPFLD__V28*/ meltfptr[27] = 0 ; - /*^clear*/ - /*clear*/ /*_#PIX__L9*/ meltfnum[8] = 0 ; - /*^clear*/ - /*clear*/ /*_.IFCPP___V29*/ meltfptr[28] = 0 ; - /*^clear*/ - /*clear*/ /*_.LET___V31*/ meltfptr[29] = 0 ;} /*endciterblock FOREACH_IN_MULTIPLE*/ - ; - MELT_LOCATION("warmelt-normatch.melt:2845:/ quasiblock"); + #else /*ENABLE_CHECKING*/ + /*^cppif.else*/ + /*_.IFCPP___V10*/ meltfptr[8] = (/*nil*/NULL); + #endif /*ENABLE_CHECKING*/ + ; + MELT_LOCATION("warmelt-normatch.melt:2851:/ quasiblock"); - /*_.ISTEP__V45*/ meltfptr[39] = (/*nil*/NULL);; - MELT_LOCATION("warmelt-normatch.melt:2846:/ getslot"); + /*^getslot*/ { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.MDATA__V3*/ meltfptr[2]), 4, "MDATA_STEPS");/*_.STEPLIST__V46*/ meltfptr[40] = slot; }; + melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), 7, "MSTGROUP_ELSE");/*_.ELSEGROUP__V13*/ meltfptr[12] = slot; }; + ; + MELT_LOCATION("warmelt-normatch.melt:2852:/ apply"); + /*apply*/{ + /*_.ELSESTART__V14*/ meltfptr[13] = melt_apply ((meltclosure_ptr_t)((/*!START_STEP*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.ELSESTEP__V3*/ meltfptr[2]), (""), (union meltparam_un*)0, "", (union meltparam_un*)0); + } + ; + MELT_LOCATION("warmelt-normatch.melt:2853:/ getslot"); + { melt_ptr_t slot=0; + melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), 5, "MSTGROUP_START");/*_.STARTGROUP__V15*/ meltfptr[14] = slot; }; ; - /*citerblock FOREACH_IN_LIST*/ { - /* start cit2__EACHLIST */ - for (/*_.CURPAIR__V47*/ meltfptr[41] = melt_list_first(/*_.STEPLIST__V46*/ meltfptr[40]); - melt_magic_discr(/*_.CURPAIR__V47*/ meltfptr[41]) == OBMAG_PAIR; - /*_.CURPAIR__V47*/ meltfptr[41] = melt_pair_tail(/*_.CURPAIR__V47*/ meltfptr[41])) { - /*_.CURSTEP__V48*/ meltfptr[42] = melt_pair_head(/*_.CURPAIR__V47*/ meltfptr[41]); - - /*_#IS_A__L14*/ meltfnum[9] = - melt_is_instance_of((melt_ptr_t)(/*_.CURSTEP__V48*/ meltfptr[42]), (melt_ptr_t)((/*!CLASS_MATCH_STEP_TEST_INSTANCE*/ meltfrout->tabval[8])));; - MELT_LOCATION("warmelt-normatch.melt:2852:/ cond"); - /*cond*/ if (/*_#IS_A__L14*/ meltfnum[9]) /*then*/ { - /*^cond.then*/ - /*^block*/ - /*anyblock*/{ - - MELT_LOCATION("warmelt-normatch.melt:2853:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.CURSTEP__V48*/ meltfptr[42]), 5, "MSTINS_CLASS");/*_.MSTINS_CLASS__V49*/ meltfptr[31] = slot; }; - ; - /*_#__L16*/ meltfnum[15] = - ((/*_.MSTINS_CLASS__V49*/ meltfptr[31]) == (/*_.PCLASS__V20*/ meltfptr[19]));; - /*^compute*/ - - /*_#IF___L15*/ meltfnum[12] = /*_#__L16*/ meltfnum[15];; - /*epilog*/ - - MELT_LOCATION("warmelt-normatch.melt:2852:/ clear"); - /*clear*/ /*_.MSTINS_CLASS__V49*/ meltfptr[31] = 0 ; - /*^clear*/ - /*clear*/ /*_#__L16*/ meltfnum[15] = 0 ;} - ; - } else {/*^cond.else*/ - - /*_#IF___L15*/ meltfnum[12] = 0;; - } - ; - MELT_LOCATION("warmelt-normatch.melt:2852:/ cond"); - /*cond*/ if (/*_#IF___L15*/ meltfnum[12]) /*then*/ { - /*^cond.then*/ - /*^block*/ - /*anyblock*/{ - - MELT_LOCATION("warmelt-normatch.melt:2854:/ compute"); - /*_.CURPAIR__V47*/ meltfptr[41] = /*_.SETQ___V51*/ meltfptr[33] = (/*nil*/NULL);; - MELT_LOCATION("warmelt-normatch.melt:2855:/ compute"); - /*_.ISTEP__V45*/ meltfptr[39] = /*_.SETQ___V52*/ meltfptr[34] = /*_.CURSTEP__V48*/ meltfptr[42];; - MELT_LOCATION("warmelt-normatch.melt:2852:/ quasiblock"); - - - /*_.PROGN___V53*/ meltfptr[35] = /*_.SETQ___V52*/ meltfptr[34];; - /*^compute*/ - - /*_.IFELSE___V50*/ meltfptr[32] = /*_.PROGN___V53*/ meltfptr[35];; - /*epilog*/ - - MELT_LOCATION("warmelt-normatch.melt:2852:/ clear"); - /*clear*/ /*_.SETQ___V51*/ meltfptr[33] = 0 ; - /*^clear*/ - /*clear*/ /*_.SETQ___V52*/ meltfptr[34] = 0 ; - /*^clear*/ - /*clear*/ /*_.PROGN___V53*/ meltfptr[35] = 0 ;} + #if ENABLE_CHECKING + MELT_LOCATION("warmelt-normatch.melt:2855:/ cppif.then"); + /*^block*/ + /*anyblock*/{ + + /*_#THE_MELTCALLCOUNT__L5*/ meltfnum[0] = + meltcallcount;; + MELT_LOCATION("warmelt-normatch.melt:2855:/ apply"); + /*apply*/{ + union meltparam_un argtab[4]; + memset(&argtab, 0, sizeof(argtab)); + /*^apply.arg*/ + argtab[0].bp_cstring = "putelse_matchgroup elsestart"; + /*^apply.arg*/ + argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L5*/ meltfnum[0]; + /*^apply.arg*/ + argtab[2].bp_cstring = "warmelt-normatch.melt"; + /*^apply.arg*/ + argtab[3].bp_long = 2855; + /*_.DEBUG_MSG_FUN__V17*/ meltfptr[16] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.ELSESTART__V14*/ meltfptr[13]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + } ; - } else {/*^cond.else*/ + /*_.IFCPP___V16*/ meltfptr[15] = /*_.DEBUG_MSG_FUN__V17*/ meltfptr[16];; + /*epilog*/ + + MELT_LOCATION("warmelt-normatch.melt:2855:/ clear"); + /*clear*/ /*_#THE_MELTCALLCOUNT__L5*/ meltfnum[0] = 0 ; + /*^clear*/ + /*clear*/ /*_.DEBUG_MSG_FUN__V17*/ meltfptr[16] = 0 ;} - /*_.IFELSE___V50*/ meltfptr[32] = NULL;; - } + #else /*ENABLE_CHECKING*/ + /*^cppif.else*/ + /*_.IFCPP___V16*/ meltfptr[15] = (/*nil*/NULL); + #endif /*ENABLE_CHECKING*/ ; - } /* end cit2__EACHLIST */ - - /*citerepilog*/ - - MELT_LOCATION("warmelt-normatch.melt:2848:/ clear"); - /*clear*/ /*_.CURPAIR__V47*/ meltfptr[41] = 0 ; - /*^clear*/ - /*clear*/ /*_.CURSTEP__V48*/ meltfptr[42] = 0 ; - /*^clear*/ - /*clear*/ /*_#IS_A__L14*/ meltfnum[9] = 0 ; - /*^clear*/ - /*clear*/ /*_#IF___L15*/ meltfnum[12] = 0 ; - /*^clear*/ - /*clear*/ /*_.IFELSE___V50*/ meltfptr[32] = 0 ;} /*endciterblock FOREACH_IN_LIST*/ - ; - /*_#NULL__L17*/ meltfnum[15] = - ((/*_.ISTEP__V45*/ meltfptr[39]) == NULL);; - MELT_LOCATION("warmelt-normatch.melt:2857:/ cond"); - /*cond*/ if (/*_#NULL__L17*/ meltfnum[15]) /*then*/ { + MELT_LOCATION("warmelt-normatch.melt:2856:/ cond"); + /*cond*/ if (/*_.STARTGROUP__V15*/ meltfptr[14]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-normatch.melt:2858:/ quasiblock"); - - - /*_.DSLOTS__V56*/ meltfptr[33] = - (meltgc_new_multiple((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ meltfrout->tabval[9])), (/*_#NBFIELDS__L8*/ meltfnum[0])));; - MELT_LOCATION("warmelt-normatch.melt:2861:/ quasiblock"); - - - /*^rawallocobj*/ - /*rawallocobj*/ { melt_ptr_t newobj = 0; - melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_MATCH_STEP_TEST_INSTANCE*/ meltfrout->tabval[8])), (7), "CLASS_MATCH_STEP_TEST_INSTANCE");/*_.INST__V58*/ meltfptr[35] = - newobj; }; - ; - /*^putslot*/ - /*putslot*/ - melt_assertmsg("putslot checkobj @LOCA_LOCATION", melt_magic_discr((melt_ptr_t)(/*_.INST__V58*/ meltfptr[35])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V58*/ meltfptr[35]), (1), (/*_.SLOC__V23*/ meltfptr[22]), "LOCA_LOCATION"); - ; - /*^putslot*/ - /*putslot*/ - melt_assertmsg("putslot checkobj @MSTEP_DATA", melt_magic_discr((melt_ptr_t)(/*_.INST__V58*/ meltfptr[35])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V58*/ meltfptr[35]), (2), (/*_.MDATA__V3*/ meltfptr[2]), "MSTEP_DATA"); - ; - /*^putslot*/ - /*putslot*/ - melt_assertmsg("putslot checkobj @MSTEP_THEN", melt_magic_discr((melt_ptr_t)(/*_.INST__V58*/ meltfptr[35])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V58*/ meltfptr[35]), (3), ((/*nil*/NULL)), "MSTEP_THEN"); - ; - /*^putslot*/ - /*putslot*/ - melt_assertmsg("putslot checkobj @MSTEP_ELSE", melt_magic_discr((melt_ptr_t)(/*_.INST__V58*/ meltfptr[35])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V58*/ meltfptr[35]), (4), ((/*nil*/NULL)), "MSTEP_ELSE"); - ; - /*^putslot*/ - /*putslot*/ - melt_assertmsg("putslot checkobj @MSTINS_CLASS", melt_magic_discr((melt_ptr_t)(/*_.INST__V58*/ meltfptr[35])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V58*/ meltfptr[35]), (5), (/*_.PCLASS__V20*/ meltfptr[19]), "MSTINS_CLASS"); - ; - /*^putslot*/ - /*putslot*/ - melt_assertmsg("putslot checkobj @MSTINS_SLOTS", melt_magic_discr((melt_ptr_t)(/*_.INST__V58*/ meltfptr[35])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V58*/ meltfptr[35]), (6), (/*_.DSLOTS__V56*/ meltfptr[33]), "MSTINS_SLOTS"); - ; - /*_.NEWSTEP__V57*/ meltfptr[34] = /*_.INST__V58*/ meltfptr[35];; - MELT_LOCATION("warmelt-normatch.melt:2870:/ compute"); - /*_.ISTEP__V45*/ meltfptr[39] = /*_.SETQ___V59*/ meltfptr[58] = /*_.NEWSTEP__V57*/ meltfptr[34];; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normatch.melt:2871:/ cppif.then"); + MELT_LOCATION("warmelt-normatch.melt:2858:/ cppif.then"); /*^block*/ /*anyblock*/{ - /*_#THE_MELTCALLCOUNT__L18*/ meltfnum[17] = + /*_#THE_MELTCALLCOUNT__L6*/ meltfnum[0] = meltcallcount;; - MELT_LOCATION("warmelt-normatch.melt:2871:/ apply"); + MELT_LOCATION("warmelt-normatch.melt:2858:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_cstring = "translpat_inspat newstep"; + argtab[0].bp_cstring = "putelse_matchgroup recursing startgroup"; /*^apply.arg*/ - argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L18*/ meltfnum[17]; + argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L6*/ meltfnum[0]; /*^apply.arg*/ argtab[2].bp_cstring = "warmelt-normatch.melt"; /*^apply.arg*/ - argtab[3].bp_long = 2871; - /*_.DEBUG_MSG_FUN__V61*/ meltfptr[60] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.NEWSTEP__V57*/ meltfptr[34]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + argtab[3].bp_long = 2858; + /*_.DEBUG_MSG_FUN__V20*/ meltfptr[19] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.STARTGROUP__V15*/ meltfptr[14]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; - /*_.IFCPP___V60*/ meltfptr[59] = /*_.DEBUG_MSG_FUN__V61*/ meltfptr[60];; + /*_.IFCPP___V19*/ meltfptr[18] = /*_.DEBUG_MSG_FUN__V20*/ meltfptr[19];; /*epilog*/ - MELT_LOCATION("warmelt-normatch.melt:2871:/ clear"); - /*clear*/ /*_#THE_MELTCALLCOUNT__L18*/ meltfnum[17] = 0 ; + MELT_LOCATION("warmelt-normatch.melt:2858:/ clear"); + /*clear*/ /*_#THE_MELTCALLCOUNT__L6*/ meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_.DEBUG_MSG_FUN__V61*/ meltfptr[60] = 0 ;} + /*clear*/ /*_.DEBUG_MSG_FUN__V20*/ meltfptr[19] = 0 ;} #else /*ENABLE_CHECKING*/ /*^cppif.else*/ - /*_.IFCPP___V60*/ meltfptr[59] = (/*nil*/NULL); + /*_.IFCPP___V19*/ meltfptr[18] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - - { - MELT_LOCATION("warmelt-normatch.melt:2872:/ locexp"); - meltgc_append_list((melt_ptr_t)(/*_.STEPLIST__V46*/ meltfptr[40]), (melt_ptr_t)(/*_.NEWSTEP__V57*/ meltfptr[34]));} + MELT_LOCATION("warmelt-normatch.melt:2859:/ msend"); + /*msend*/{ + union meltparam_un argtab[1]; + memset(&argtab, 0, sizeof(argtab)); + /*^ojbmsend.arg*/ + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.ELSESTART__V14*/ meltfptr[13]; + /*_.PUT_ELSE_MATCH__V21*/ meltfptr[19] = meltgc_send((melt_ptr_t)(/*_.STARTGROUP__V15*/ meltfptr[14]), (melt_ptr_t)((/*!PUT_ELSE_MATCH*/ meltfrout->tabval[4])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + } ; + MELT_LOCATION("warmelt-normatch.melt:2857:/ quasiblock"); - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normatch.melt:2873:/ cppif.then"); - /*^block*/ - /*anyblock*/{ - - /*_#THE_MELTCALLCOUNT__L19*/ meltfnum[17] = - meltcallcount;; - MELT_LOCATION("warmelt-normatch.melt:2873:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - /*^apply.arg*/ - argtab[0].bp_cstring = "translpat_inspat updated steplist"; - /*^apply.arg*/ - argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L19*/ meltfnum[17]; - /*^apply.arg*/ - argtab[2].bp_cstring = "warmelt-normatch.melt"; - /*^apply.arg*/ - argtab[3].bp_long = 2873; - /*_.DEBUG_MSG_FUN__V63*/ meltfptr[62] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.STEPLIST__V46*/ meltfptr[40]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V62*/ meltfptr[60] = /*_.DEBUG_MSG_FUN__V63*/ meltfptr[62];; - /*epilog*/ - - MELT_LOCATION("warmelt-normatch.melt:2873:/ clear"); - /*clear*/ /*_#THE_MELTCALLCOUNT__L19*/ meltfnum[17] = 0 ; - /*^clear*/ - /*clear*/ /*_.DEBUG_MSG_FUN__V63*/ meltfptr[62] = 0 ;} - - #else /*ENABLE_CHECKING*/ - /*^cppif.else*/ - /*_.IFCPP___V62*/ meltfptr[60] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; + + /*_.PROGN___V22*/ meltfptr[21] = /*_.PUT_ELSE_MATCH__V21*/ meltfptr[19];; /*^compute*/ - /*_.LET___V55*/ meltfptr[31] = /*_.IFCPP___V62*/ meltfptr[60];; + /*_.IF___V18*/ meltfptr[16] = /*_.PROGN___V22*/ meltfptr[21];; + /*epilog*/ - MELT_LOCATION("warmelt-normatch.melt:2858:/ clear"); - /*clear*/ /*_.DSLOTS__V56*/ meltfptr[33] = 0 ; + MELT_LOCATION("warmelt-normatch.melt:2856:/ clear"); + /*clear*/ /*_.IFCPP___V19*/ meltfptr[18] = 0 ; /*^clear*/ - /*clear*/ /*_.NEWSTEP__V57*/ meltfptr[34] = 0 ; + /*clear*/ /*_.PUT_ELSE_MATCH__V21*/ meltfptr[19] = 0 ; /*^clear*/ - /*clear*/ /*_.SETQ___V59*/ meltfptr[58] = 0 ; - /*^clear*/ - /*clear*/ /*_.IFCPP___V60*/ meltfptr[59] = 0 ; - /*^clear*/ - /*clear*/ /*_.IFCPP___V62*/ meltfptr[60] = 0 ; - /*_.IF___V54*/ meltfptr[36] = /*_.LET___V55*/ meltfptr[31];; - /*epilog*/ - - MELT_LOCATION("warmelt-normatch.melt:2857:/ clear"); - /*clear*/ /*_.LET___V55*/ meltfptr[31] = 0 ;} + /*clear*/ /*_.PROGN___V22*/ meltfptr[21] = 0 ;} ; } else {/*^cond.else*/ - /*_.IF___V54*/ meltfptr[36] = NULL;; + /*_.IF___V18*/ meltfptr[16] = NULL;; } ; - MELT_LOCATION("warmelt-normatch.melt:2876:/ quasiblock"); - - - /*^getslot*/ - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.ISTEP__V45*/ meltfptr[39]), 6, "MSTINS_SLOTS");/*_.MSLOTS__V65*/ meltfptr[33] = slot; }; - ; - /*_.LASTSTEP__V66*/ meltfptr[34] = /*_.ISTEP__V45*/ meltfptr[39];; - /*^compute*/ - - /*_.ELSELIST__V67*/ meltfptr[58] = - (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ meltfrout->tabval[10]))));; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normatch.melt:2880:/ cppif.then"); + MELT_LOCATION("warmelt-normatch.melt:2861:/ cppif.then"); /*^block*/ /*anyblock*/{ - /*_#IS_MULTIPLE__L20*/ meltfnum[17] = - (melt_magic_discr((melt_ptr_t)(/*_.MSLOTS__V65*/ meltfptr[33])) == OBMAG_MULTIPLE);; - MELT_LOCATION("warmelt-normatch.melt:2880:/ cond"); - /*cond*/ if (/*_#IS_MULTIPLE__L20*/ meltfnum[17]) /*then*/ { - /*^cond.then*/ - /*_.IFELSE___V69*/ meltfptr[60] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normatch.melt:2880:/ cond.else"); - - /*^block*/ - /*anyblock*/{ - - - - - { - /*^locexp*/ - melt_assert_failed(( "check mslots"),( "warmelt-normatch.melt")?( "warmelt-normatch.melt"):__FILE__, - (2880)?(2880):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V69*/ meltfptr[60] = 0 ; - /*epilog*/ - } - ; + /*_#THE_MELTCALLCOUNT__L7*/ meltfnum[0] = + meltcallcount;; + MELT_LOCATION("warmelt-normatch.melt:2861:/ apply"); + /*apply*/{ + union meltparam_un argtab[4]; + memset(&argtab, 0, sizeof(argtab)); + /*^apply.arg*/ + argtab[0].bp_cstring = "putelse_matchgroup elsegroup"; + /*^apply.arg*/ + argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L7*/ meltfnum[0]; + /*^apply.arg*/ + argtab[2].bp_cstring = "warmelt-normatch.melt"; + /*^apply.arg*/ + argtab[3].bp_long = 2861; + /*_.DEBUG_MSG_FUN__V24*/ meltfptr[19] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.ELSEGROUP__V13*/ meltfptr[12]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; - /*^compute*/ - - /*_.IFCPP___V68*/ meltfptr[59] = /*_.IFELSE___V69*/ meltfptr[60];; + /*_.IFCPP___V23*/ meltfptr[18] = /*_.DEBUG_MSG_FUN__V24*/ meltfptr[19];; /*epilog*/ - MELT_LOCATION("warmelt-normatch.melt:2880:/ clear"); - /*clear*/ /*_#IS_MULTIPLE__L20*/ meltfnum[17] = 0 ; + MELT_LOCATION("warmelt-normatch.melt:2861:/ clear"); + /*clear*/ /*_#THE_MELTCALLCOUNT__L7*/ meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_.IFELSE___V69*/ meltfptr[60] = 0 ;} + /*clear*/ /*_.DEBUG_MSG_FUN__V24*/ meltfptr[19] = 0 ;} #else /*ENABLE_CHECKING*/ /*^cppif.else*/ - /*_.IFCPP___V68*/ meltfptr[59] = (/*nil*/NULL); + /*_.IFCPP___V23*/ meltfptr[18] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; + /*^compute*/ + + /*_#NULL__L8*/ meltfnum[0] = + ((/*_.ELSEGROUP__V13*/ meltfptr[12]) == NULL);; + MELT_LOCATION("warmelt-normatch.melt:2863:/ cond"); + /*cond*/ if (/*_#NULL__L8*/ meltfnum[0]) /*then*/ { + /*^cond.then*/ + /*_.IFELSE___V25*/ meltfptr[21] = (/*nil*/NULL);; + } else {MELT_LOCATION("warmelt-normatch.melt:2863:/ cond.else"); - { - MELT_LOCATION("warmelt-normatch.melt:2881:/ locexp"); - meltgc_append_list((melt_ptr_t)(/*_.ELSELIST__V67*/ meltfptr[58]), (melt_ptr_t)(/*_.ISTEP__V45*/ meltfptr[39]));} - ; - /*citerblock FOREACH_IN_MULTIPLE*/ { - /* start cit3__EACHTUP: */ - long cit3__EACHTUP_ln = melt_multiple_length((melt_ptr_t)/*_.PFIELDS__V21*/ meltfptr[20]); - for (/*_#PIX__L21*/ meltfnum[17] = 0; - (/*_#PIX__L21*/ meltfnum[17] >= 0) && (/*_#PIX__L21*/ meltfnum[17] < cit3__EACHTUP_ln); - /*_#PIX__L21*/ meltfnum[17]++) { - /*_.CURPFLD__V70*/ meltfptr[31] = melt_multiple_nth((melt_ptr_t)(/*_.PFIELDS__V21*/ meltfptr[20]), /*_#PIX__L21*/ meltfnum[17]); - - - - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normatch.melt:2885:/ cppif.then"); /*^block*/ - /*anyblock*/{ - - /*_#IS_A__L22*/ meltfnum[21] = - melt_is_instance_of((melt_ptr_t)(/*_.CURPFLD__V70*/ meltfptr[31]), (melt_ptr_t)((/*!CLASS_SOURCE_FIELD_PATTERN*/ meltfrout->tabval[5])));; - MELT_LOCATION("warmelt-normatch.melt:2885:/ cond"); - /*cond*/ if (/*_#IS_A__L22*/ meltfnum[21]) /*then*/ { - /*^cond.then*/ - /*_.IFELSE___V72*/ meltfptr[71] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normatch.melt:2885:/ cond.else"); - - /*^block*/ - /*anyblock*/{ - - - - - { - /*^locexp*/ - melt_assert_failed(( "check curpfld"),( "warmelt-normatch.melt")?( "warmelt-normatch.melt"):__FILE__, - (2885)?(2885):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V72*/ meltfptr[71] = 0 ; - /*epilog*/ - } - ; - } - ; - /*^compute*/ - - /*_.IFCPP___V71*/ meltfptr[60] = /*_.IFELSE___V72*/ meltfptr[71];; - /*epilog*/ - - MELT_LOCATION("warmelt-normatch.melt:2885:/ clear"); - /*clear*/ /*_#IS_A__L22*/ meltfnum[21] = 0 ; - /*^clear*/ - /*clear*/ /*_.IFELSE___V72*/ meltfptr[71] = 0 ;} + /*anyblock*/{ - #else /*ENABLE_CHECKING*/ - /*^cppif.else*/ - /*_.IFCPP___V71*/ meltfptr[60] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - MELT_LOCATION("warmelt-normatch.melt:2886:/ quasiblock"); - - - /*^getslot*/ - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.CURPFLD__V70*/ meltfptr[31]), 1, "LOCA_LOCATION");/*_.LOCA_LOCATION__V74*/ meltfptr[73] = slot; }; - ; - /*^cond*/ - /*cond*/ if (/*_.LOCA_LOCATION__V74*/ meltfptr[73]) /*then*/ { - /*^cond.then*/ - /*_.FSLOC__V75*/ meltfptr[74] = /*_.LOCA_LOCATION__V74*/ meltfptr[73];; - } else {MELT_LOCATION("warmelt-normatch.melt:2886:/ cond.else"); - - /*_.FSLOC__V75*/ meltfptr[74] = /*_.SLOC__V23*/ meltfptr[22];; - } - ; - MELT_LOCATION("warmelt-normatch.melt:2887:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.CURPFLD__V70*/ meltfptr[31]), 2, "SPAF_FIELD");/*_.CURFLD__V76*/ meltfptr[75] = slot; }; - ; - MELT_LOCATION("warmelt-normatch.melt:2888:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.CURPFLD__V70*/ meltfptr[31]), 3, "SPAF_PATTERN");/*_.CURFPAT__V77*/ meltfptr[76] = slot; }; - ; - /*_#IS_NOT_A__L23*/ meltfnum[21] = - !melt_is_instance_of((melt_ptr_t)(/*_.CURFPAT__V77*/ meltfptr[76]), (melt_ptr_t)((/*!CLASS_SOURCE_PATTERN_JOKER_VARIABLE*/ meltfrout->tabval[11])));; - MELT_LOCATION("warmelt-normatch.melt:2890:/ cond"); - /*cond*/ if (/*_#IS_NOT_A__L23*/ meltfnum[21]) /*then*/ { - /*^cond.then*/ - /*^block*/ - /*anyblock*/{ - - MELT_LOCATION("warmelt-normatch.melt:2891:/ quasiblock"); - - - /*_#CURFIX__L24*/ meltfnum[23] = - (melt_get_int((melt_ptr_t)(/*_.CURFLD__V76*/ meltfptr[75])));; - /*^compute*/ - - /*_.CURSLOTDATA__V80*/ meltfptr[79] = - (melt_multiple_nth((melt_ptr_t)(/*_.MSLOTS__V65*/ meltfptr[33]), (/*_#CURFIX__L24*/ meltfnum[23])));; - /*^compute*/ - - /*_#NULL__L25*/ meltfnum[24] = - ((/*_.CURSLOTDATA__V80*/ meltfptr[79]) == NULL);; - MELT_LOCATION("warmelt-normatch.melt:2894:/ cond"); - /*cond*/ if (/*_#NULL__L25*/ meltfnum[24]) /*then*/ { - /*^cond.then*/ - /*^block*/ - /*anyblock*/{ - - MELT_LOCATION("warmelt-normatch.melt:2895:/ quasiblock"); - - - MELT_LOCATION("warmelt-normatch.melt:2896:/ apply"); - /*apply*/{ - /*_.CLONE_SYMBOL__V81*/ meltfptr[80] = melt_apply ((meltclosure_ptr_t)((/*!CLONE_SYMBOL*/ meltfrout->tabval[12])), (melt_ptr_t)(/*_.CURFLD__V76*/ meltfptr[75]), (""), (union meltparam_un*)0, "", (union meltparam_un*)0); - } - ; - /*_.MAKE_LIST__V82*/ meltfptr[81] = - (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ meltfrout->tabval[10]))));; - MELT_LOCATION("warmelt-normatch.melt:2895:/ quasiblock"); - - - /*^rawallocobj*/ - /*rawallocobj*/ { melt_ptr_t newobj = 0; - melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_MATCHED_DATA*/ meltfrout->tabval[2])), (5), "CLASS_MATCHED_DATA");/*_.INST__V84*/ meltfptr[83] = - newobj; }; - ; - /*^putslot*/ - /*putslot*/ - melt_assertmsg("putslot checkobj @MDATA_SYMB", melt_magic_discr((melt_ptr_t)(/*_.INST__V84*/ meltfptr[83])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V84*/ meltfptr[83]), (1), (/*_.CLONE_SYMBOL__V81*/ meltfptr[80]), "MDATA_SYMB"); - ; - /*^putslot*/ - /*putslot*/ - melt_assertmsg("putslot checkobj @MDATA_CTYPE", melt_magic_discr((melt_ptr_t)(/*_.INST__V84*/ meltfptr[83])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V84*/ meltfptr[83]), (2), ((/*!CTYPE_VALUE*/ meltfrout->tabval[13])), "MDATA_CTYPE"); - ; - /*^putslot*/ - /*putslot*/ - melt_assertmsg("putslot checkobj @MDATA_ORIG", melt_magic_discr((melt_ptr_t)(/*_.INST__V84*/ meltfptr[83])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V84*/ meltfptr[83]), (3), (/*_.ISTEP__V45*/ meltfptr[39]), "MDATA_ORIG"); - ; - /*^putslot*/ - /*putslot*/ - melt_assertmsg("putslot checkobj @MDATA_STEPS", melt_magic_discr((melt_ptr_t)(/*_.INST__V84*/ meltfptr[83])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V84*/ meltfptr[83]), (4), (/*_.MAKE_LIST__V82*/ meltfptr[81]), "MDATA_STEPS"); - ; - /*_.NEWSLOT__V83*/ meltfptr[82] = /*_.INST__V84*/ meltfptr[83];; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normatch.melt:2902:/ cppif.then"); - /*^block*/ - /*anyblock*/{ - - /*_#THE_MELTCALLCOUNT__L26*/ meltfnum[25] = - meltcallcount;; - MELT_LOCATION("warmelt-normatch.melt:2902:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - /*^apply.arg*/ - argtab[0].bp_cstring = " translpat_inspat newslot"; - /*^apply.arg*/ - argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L26*/ meltfnum[25]; - /*^apply.arg*/ - argtab[2].bp_cstring = "warmelt-normatch.melt"; - /*^apply.arg*/ - argtab[3].bp_long = 2902; - /*_.DEBUG_MSG_FUN__V86*/ meltfptr[85] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.NEWSLOT__V83*/ meltfptr[82]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V85*/ meltfptr[84] = /*_.DEBUG_MSG_FUN__V86*/ meltfptr[85];; - /*epilog*/ - - MELT_LOCATION("warmelt-normatch.melt:2902:/ clear"); - /*clear*/ /*_#THE_MELTCALLCOUNT__L26*/ meltfnum[25] = 0 ; - /*^clear*/ - /*clear*/ /*_.DEBUG_MSG_FUN__V86*/ meltfptr[85] = 0 ;} - - #else /*ENABLE_CHECKING*/ - /*^cppif.else*/ - /*_.IFCPP___V85*/ meltfptr[84] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - MELT_LOCATION("warmelt-normatch.melt:2903:/ compute"); - /*_.CURSLOTDATA__V80*/ meltfptr[79] = /*_.SETQ___V87*/ meltfptr[85] = /*_.NEWSLOT__V83*/ meltfptr[82];; - - { - MELT_LOCATION("warmelt-normatch.melt:2904:/ locexp"); - meltgc_multiple_put_nth((melt_ptr_t)(/*_.MSLOTS__V65*/ meltfptr[33]), (/*_#CURFIX__L24*/ meltfnum[23]), (melt_ptr_t)(/*_.NEWSLOT__V83*/ meltfptr[82]));} - ; - - MELT_LOCATION("warmelt-normatch.melt:2895:/ clear"); - /*clear*/ /*_.CLONE_SYMBOL__V81*/ meltfptr[80] = 0 ; - /*^clear*/ - /*clear*/ /*_.MAKE_LIST__V82*/ meltfptr[81] = 0 ; - /*^clear*/ - /*clear*/ /*_.NEWSLOT__V83*/ meltfptr[82] = 0 ; - /*^clear*/ - /*clear*/ /*_.IFCPP___V85*/ meltfptr[84] = 0 ; - /*^clear*/ - /*clear*/ /*_.SETQ___V87*/ meltfptr[85] = 0 ; - /*epilog*/ - } - ; - } /*noelse*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normatch.melt:2905:/ cppif.then"); - /*^block*/ - /*anyblock*/{ - - /*_#THE_MELTCALLCOUNT__L27*/ meltfnum[25] = - meltcallcount;; - MELT_LOCATION("warmelt-normatch.melt:2905:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - /*^apply.arg*/ - argtab[0].bp_cstring = "translpat_inspat before translation curfpat"; - /*^apply.arg*/ - argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L27*/ meltfnum[25]; - /*^apply.arg*/ - argtab[2].bp_cstring = "warmelt-normatch.melt"; - /*^apply.arg*/ - argtab[3].bp_long = 2905; - /*_.DEBUG_MSG_FUN__V89*/ meltfptr[81] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.CURFPAT__V77*/ meltfptr[76]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V88*/ meltfptr[80] = /*_.DEBUG_MSG_FUN__V89*/ meltfptr[81];; - /*epilog*/ - - MELT_LOCATION("warmelt-normatch.melt:2905:/ clear"); - /*clear*/ /*_#THE_MELTCALLCOUNT__L27*/ meltfnum[25] = 0 ; - /*^clear*/ - /*clear*/ /*_.DEBUG_MSG_FUN__V89*/ meltfptr[81] = 0 ;} + /*_#IS_A__L9*/ meltfnum[8] = + melt_is_instance_of((melt_ptr_t)(/*_.ELSEGROUP__V13*/ meltfptr[12]), (melt_ptr_t)((/*!CLASS_MATCH_STEP*/ meltfrout->tabval[2])));; + MELT_LOCATION("warmelt-normatch.melt:2865:/ cond"); + /*cond*/ if (/*_#IS_A__L9*/ meltfnum[8]) /*then*/ { + /*^cond.then*/ + /*^block*/ + /*anyblock*/{ - #else /*ENABLE_CHECKING*/ - /*^cppif.else*/ - /*_.IFCPP___V88*/ meltfptr[80] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - MELT_LOCATION("warmelt-normatch.melt:2906:/ quasiblock"); - - - /*^msend*/ - /*msend*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - /*^ojbmsend.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.CURSLOTDATA__V80*/ meltfptr[79]; - /*^ojbmsend.arg*/ - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.MCASE__V4*/ meltfptr[3]; - /*^ojbmsend.arg*/ - argtab[2].bp_aptr = (melt_ptr_t*) &/*_.VARMAP__V5*/ meltfptr[4]; - /*^ojbmsend.arg*/ - argtab[3].bp_aptr = (melt_ptr_t*) &/*_.PSLOC__V6*/ meltfptr[5]; - /*_.FLSTEP__V91*/ meltfptr[84] = meltgc_send((melt_ptr_t)(/*_.CURFPAT__V77*/ meltfptr[76]), (melt_ptr_t)((/*!TRANSLATE_PATTERN*/ meltfrout->tabval[14])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normatch.melt:2909:/ cppif.then"); - /*^block*/ - /*anyblock*/{ + + #if ENABLE_CHECKING + MELT_LOCATION("warmelt-normatch.melt:2866:/ cppif.then"); + /*^block*/ + /*anyblock*/{ + + /*_#THE_MELTCALLCOUNT__L10*/ meltfnum[9] = + meltcallcount;; + MELT_LOCATION("warmelt-normatch.melt:2866:/ apply"); + /*apply*/{ + union meltparam_un argtab[4]; + memset(&argtab, 0, sizeof(argtab)); + /*^apply.arg*/ + argtab[0].bp_cstring = "putelse_matchgroup elsegroup step"; + /*^apply.arg*/ + argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L10*/ meltfnum[9]; + /*^apply.arg*/ + argtab[2].bp_cstring = "warmelt-normatch.melt"; + /*^apply.arg*/ + argtab[3].bp_long = 2866; + /*_.DEBUG_MSG_FUN__V28*/ meltfptr[27] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.ELSEGROUP__V13*/ meltfptr[12]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + } + ; + /*_.IFCPP___V27*/ meltfptr[26] = /*_.DEBUG_MSG_FUN__V28*/ meltfptr[27];; + /*epilog*/ + + MELT_LOCATION("warmelt-normatch.melt:2866:/ clear"); + /*clear*/ /*_#THE_MELTCALLCOUNT__L10*/ meltfnum[9] = 0 ; + /*^clear*/ + /*clear*/ /*_.DEBUG_MSG_FUN__V28*/ meltfptr[27] = 0 ;} - /*_#THE_MELTCALLCOUNT__L28*/ meltfnum[25] = - meltcallcount;; - MELT_LOCATION("warmelt-normatch.melt:2909:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - /*^apply.arg*/ - argtab[0].bp_cstring = "translpat_inspat flstep"; - /*^apply.arg*/ - argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L28*/ meltfnum[25]; - /*^apply.arg*/ - argtab[2].bp_cstring = "warmelt-normatch.melt"; - /*^apply.arg*/ - argtab[3].bp_long = 2909; - /*_.DEBUG_MSG_FUN__V93*/ meltfptr[81] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.FLSTEP__V91*/ meltfptr[84]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } + #else /*ENABLE_CHECKING*/ + /*^cppif.else*/ + /*_.IFCPP___V27*/ meltfptr[26] = (/*nil*/NULL); + #endif /*ENABLE_CHECKING*/ ; - /*_.IFCPP___V92*/ meltfptr[85] = /*_.DEBUG_MSG_FUN__V93*/ meltfptr[81];; - /*epilog*/ - - MELT_LOCATION("warmelt-normatch.melt:2909:/ clear"); - /*clear*/ /*_#THE_MELTCALLCOUNT__L28*/ meltfnum[25] = 0 ; - /*^clear*/ - /*clear*/ /*_.DEBUG_MSG_FUN__V93*/ meltfptr[81] = 0 ;} - - #else /*ENABLE_CHECKING*/ - /*^cppif.else*/ - /*_.IFCPP___V92*/ meltfptr[85] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ + MELT_LOCATION("warmelt-normatch.melt:2867:/ msend"); + /*msend*/{ + union meltparam_un argtab[1]; + memset(&argtab, 0, sizeof(argtab)); + /*^ojbmsend.arg*/ + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.ELSESTART__V14*/ meltfptr[13]; + /*_.PUT_ELSE_MATCH__V29*/ meltfptr[27] = meltgc_send((melt_ptr_t)(/*_.ELSEGROUP__V13*/ meltfptr[12]), (melt_ptr_t)((/*!PUT_ELSE_MATCH*/ meltfrout->tabval[4])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + } ; - MELT_LOCATION("warmelt-normatch.melt:2910:/ cond"); - /*cond*/ if (/*_.FLSTEP__V91*/ meltfptr[84]) /*then*/ { - /*^cond.then*/ + MELT_LOCATION("warmelt-normatch.melt:2865:/ quasiblock"); + + + /*_.PROGN___V30*/ meltfptr[29] = /*_.PUT_ELSE_MATCH__V29*/ meltfptr[27];; + /*^compute*/ + + /*_.IFELSE___V26*/ meltfptr[19] = /*_.PROGN___V30*/ meltfptr[29];; + /*epilog*/ + + MELT_LOCATION("warmelt-normatch.melt:2865:/ clear"); + /*clear*/ /*_.IFCPP___V27*/ meltfptr[26] = 0 ; + /*^clear*/ + /*clear*/ /*_.PUT_ELSE_MATCH__V29*/ meltfptr[27] = 0 ; + /*^clear*/ + /*clear*/ /*_.PROGN___V30*/ meltfptr[29] = 0 ;} + ; + } else {/*^cond.else*/ + /*^block*/ - /*anyblock*/{ - - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normatch.melt:2912:/ cppif.then"); - /*^block*/ - /*anyblock*/{ + /*anyblock*/{ + + /*_#IS_LIST__L11*/ meltfnum[9] = + (melt_magic_discr((melt_ptr_t)(/*_.ELSEGROUP__V13*/ meltfptr[12])) == OBMAG_LIST);; + MELT_LOCATION("warmelt-normatch.melt:2868:/ cond"); + /*cond*/ if (/*_#IS_LIST__L11*/ meltfnum[9]) /*then*/ { + /*^cond.then*/ + /*^block*/ + /*anyblock*/{ + + /*citerblock FOREACH_IN_LIST*/ { + /* start cit1__EACHLIST */ + for (/*_.CURPAIR__V32*/ meltfptr[27] = melt_list_first(/*_.ELSEGROUP__V13*/ meltfptr[12]); + melt_magic_discr(/*_.CURPAIR__V32*/ meltfptr[27]) == OBMAG_PAIR; + /*_.CURPAIR__V32*/ meltfptr[27] = melt_pair_tail(/*_.CURPAIR__V32*/ meltfptr[27])) { + /*_.CURELSE__V33*/ meltfptr[29] = melt_pair_head(/*_.CURPAIR__V32*/ meltfptr[27]); + - /*_#THE_MELTCALLCOUNT__L29*/ meltfnum[25] = - meltcallcount;; - MELT_LOCATION("warmelt-normatch.melt:2912:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; + + #if ENABLE_CHECKING + MELT_LOCATION("warmelt-normatch.melt:2872:/ cppif.then"); + /*^block*/ + /*anyblock*/{ + + /*_#THE_MELTCALLCOUNT__L12*/ meltfnum[11] = + meltcallcount;; + MELT_LOCATION("warmelt-normatch.melt:2872:/ apply"); + /*apply*/{ + union meltparam_un argtab[4]; + memset(&argtab, 0, sizeof(argtab)); + /*^apply.arg*/ + argtab[0].bp_cstring = "putelse_matchgroup curelse from list"; + /*^apply.arg*/ + argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L12*/ meltfnum[11]; + /*^apply.arg*/ + argtab[2].bp_cstring = "warmelt-normatch.melt"; + /*^apply.arg*/ + argtab[3].bp_long = 2872; + /*_.DEBUG_MSG_FUN__V35*/ meltfptr[34] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.CURELSE__V33*/ meltfptr[29]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + } + ; + /*_.IFCPP___V34*/ meltfptr[33] = /*_.DEBUG_MSG_FUN__V35*/ meltfptr[34];; + /*epilog*/ + + MELT_LOCATION("warmelt-normatch.melt:2872:/ clear"); + /*clear*/ /*_#THE_MELTCALLCOUNT__L12*/ meltfnum[11] = 0 ; + /*^clear*/ + /*clear*/ /*_.DEBUG_MSG_FUN__V35*/ meltfptr[34] = 0 ;} + + #else /*ENABLE_CHECKING*/ + /*^cppif.else*/ + /*_.IFCPP___V34*/ meltfptr[33] = (/*nil*/NULL); + #endif /*ENABLE_CHECKING*/ + ; + MELT_LOCATION("warmelt-normatch.melt:2873:/ msend"); + /*msend*/{ + union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); - /*^apply.arg*/ - argtab[0].bp_cstring = "translpat_inspat laststep"; - /*^apply.arg*/ - argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L29*/ meltfnum[25]; - /*^apply.arg*/ - argtab[2].bp_cstring = "warmelt-normatch.melt"; - /*^apply.arg*/ - argtab[3].bp_long = 2912; - /*_.DEBUG_MSG_FUN__V96*/ meltfptr[95] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.LASTSTEP__V66*/ meltfptr[34]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + /*^ojbmsend.arg*/ + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.ELSESTART__V14*/ meltfptr[13]; + /*_.PUT_ELSE_MATCH__V36*/ meltfptr[34] = meltgc_send((melt_ptr_t)(/*_.CURELSE__V33*/ meltfptr[29]), (melt_ptr_t)((/*!PUT_ELSE_MATCH*/ meltfrout->tabval[4])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_.IFCPP___V95*/ meltfptr[94] = /*_.DEBUG_MSG_FUN__V96*/ meltfptr[95];; - /*epilog*/ + /*_.IFELSE___V31*/ meltfptr[26] = /*_.PUT_ELSE_MATCH__V36*/ meltfptr[34];; + } /* end cit1__EACHLIST */ + + /*citerepilog*/ - MELT_LOCATION("warmelt-normatch.melt:2912:/ clear"); - /*clear*/ /*_#THE_MELTCALLCOUNT__L29*/ meltfnum[25] = 0 ; + MELT_LOCATION("warmelt-normatch.melt:2869:/ clear"); + /*clear*/ /*_.CURPAIR__V32*/ meltfptr[27] = 0 ; /*^clear*/ - /*clear*/ /*_.DEBUG_MSG_FUN__V96*/ meltfptr[95] = 0 ;} - - #else /*ENABLE_CHECKING*/ - /*^cppif.else*/ - /*_.IFCPP___V95*/ meltfptr[94] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ + /*clear*/ /*_.CURELSE__V33*/ meltfptr[29] = 0 ; + /*^clear*/ + /*clear*/ /*_.IFCPP___V34*/ meltfptr[33] = 0 ; + /*^clear*/ + /*clear*/ /*_.PUT_ELSE_MATCH__V36*/ meltfptr[34] = 0 ;} /*endciterblock FOREACH_IN_LIST*/ ; - MELT_LOCATION("warmelt-normatch.melt:2913:/ msend"); - /*msend*/{ - union meltparam_un argtab[1]; - memset(&argtab, 0, sizeof(argtab)); - /*^ojbmsend.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.FLSTEP__V91*/ meltfptr[84]; - /*_.PUT_THEN_MATCH__V97*/ meltfptr[95] = meltgc_send((melt_ptr_t)(/*_.LASTSTEP__V66*/ meltfptr[34]), (melt_ptr_t)((/*!PUT_THEN_MATCH*/ meltfrout->tabval[15])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*epilog*/ } ; - - { - MELT_LOCATION("warmelt-normatch.melt:2914:/ locexp"); - meltgc_append_list((melt_ptr_t)(/*_.ELSELIST__V67*/ meltfptr[58]), (melt_ptr_t)(/*_.FLSTEP__V91*/ meltfptr[84]));} - ; - MELT_LOCATION("warmelt-normatch.melt:2915:/ compute"); - /*_.LASTSTEP__V66*/ meltfptr[34] = /*_.SETQ___V98*/ meltfptr[97] = /*_.FLSTEP__V91*/ meltfptr[84];; - MELT_LOCATION("warmelt-normatch.melt:2911:/ quasiblock"); - - - /*_.PROGN___V99*/ meltfptr[98] = /*_.SETQ___V98*/ meltfptr[97];; - /*^compute*/ - - /*_.IF___V94*/ meltfptr[81] = /*_.PROGN___V99*/ meltfptr[98];; - /*epilog*/ - - MELT_LOCATION("warmelt-normatch.melt:2910:/ clear"); - /*clear*/ /*_.IFCPP___V95*/ meltfptr[94] = 0 ; - /*^clear*/ - /*clear*/ /*_.PUT_THEN_MATCH__V97*/ meltfptr[95] = 0 ; - /*^clear*/ - /*clear*/ /*_.SETQ___V98*/ meltfptr[97] = 0 ; - /*^clear*/ - /*clear*/ /*_.PROGN___V99*/ meltfptr[98] = 0 ;} - ; - } else {/*^cond.else*/ - - /*_.IF___V94*/ meltfptr[81] = NULL;; - } - ; - /*^compute*/ + } else {MELT_LOCATION("warmelt-normatch.melt:2868:/ cond.else"); + + /*^block*/ + /*anyblock*/{ + + /*_#IS_MULTIPLE__L13*/ meltfnum[11] = + (melt_magic_discr((melt_ptr_t)(/*_.ELSEGROUP__V13*/ meltfptr[12])) == OBMAG_MULTIPLE);; + MELT_LOCATION("warmelt-normatch.melt:2874:/ cond"); + /*cond*/ if (/*_#IS_MULTIPLE__L13*/ meltfnum[11]) /*then*/ { + /*^cond.then*/ + /*^block*/ + /*anyblock*/{ + + /*citerblock FOREACH_IN_MULTIPLE*/ { + /* start cit2__EACHTUP: */ + long cit2__EACHTUP_ln = melt_multiple_length((melt_ptr_t)/*_.ELSEGROUP__V13*/ meltfptr[12]); + for (/*_#THIX__L14*/ meltfnum[13] = 0; + (/*_#THIX__L14*/ meltfnum[13] >= 0) && (/*_#THIX__L14*/ meltfnum[13] < cit2__EACHTUP_ln); + /*_#THIX__L14*/ meltfnum[13]++) { + /*_.CURELSE__V38*/ meltfptr[37] = melt_multiple_nth((melt_ptr_t)(/*_.ELSEGROUP__V13*/ meltfptr[12]), /*_#THIX__L14*/ meltfnum[13]); + + + + + #if ENABLE_CHECKING + MELT_LOCATION("warmelt-normatch.melt:2878:/ cppif.then"); + /*^block*/ + /*anyblock*/{ + + /*_#THE_MELTCALLCOUNT__L15*/ meltfnum[14] = + meltcallcount;; + MELT_LOCATION("warmelt-normatch.melt:2878:/ apply"); + /*apply*/{ + union meltparam_un argtab[4]; + memset(&argtab, 0, sizeof(argtab)); + /*^apply.arg*/ + argtab[0].bp_cstring = "putelse_matchgroup curelse from tuple"; + /*^apply.arg*/ + argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L15*/ meltfnum[14]; + /*^apply.arg*/ + argtab[2].bp_cstring = "warmelt-normatch.melt"; + /*^apply.arg*/ + argtab[3].bp_long = 2878; + /*_.DEBUG_MSG_FUN__V40*/ meltfptr[39] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.CURELSE__V38*/ meltfptr[37]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + } + ; + /*_.IFCPP___V39*/ meltfptr[38] = /*_.DEBUG_MSG_FUN__V40*/ meltfptr[39];; + /*epilog*/ + + MELT_LOCATION("warmelt-normatch.melt:2878:/ clear"); + /*clear*/ /*_#THE_MELTCALLCOUNT__L15*/ meltfnum[14] = 0 ; + /*^clear*/ + /*clear*/ /*_.DEBUG_MSG_FUN__V40*/ meltfptr[39] = 0 ;} + + #else /*ENABLE_CHECKING*/ + /*^cppif.else*/ + /*_.IFCPP___V39*/ meltfptr[38] = (/*nil*/NULL); + #endif /*ENABLE_CHECKING*/ + ; + MELT_LOCATION("warmelt-normatch.melt:2879:/ msend"); + /*msend*/{ + union meltparam_un argtab[1]; + memset(&argtab, 0, sizeof(argtab)); + /*^ojbmsend.arg*/ + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.ELSESTART__V14*/ meltfptr[13]; + /*_.PUT_ELSE_MATCH__V41*/ meltfptr[39] = meltgc_send((melt_ptr_t)(/*_.CURELSE__V38*/ meltfptr[37]), (melt_ptr_t)((/*!PUT_ELSE_MATCH*/ meltfrout->tabval[4])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + } + ; + /*_.IFELSE___V37*/ meltfptr[36] = /*_.PUT_ELSE_MATCH__V41*/ meltfptr[39];; + if (/*_#THIX__L14*/ meltfnum[13]<0) break; + } /* end cit2__EACHTUP */ + + /*citerepilog*/ + + MELT_LOCATION("warmelt-normatch.melt:2875:/ clear"); + /*clear*/ /*_.CURELSE__V38*/ meltfptr[37] = 0 ; + /*^clear*/ + /*clear*/ /*_#THIX__L14*/ meltfnum[13] = 0 ; + /*^clear*/ + /*clear*/ /*_.IFCPP___V39*/ meltfptr[38] = 0 ; + /*^clear*/ + /*clear*/ /*_.PUT_ELSE_MATCH__V41*/ meltfptr[39] = 0 ;} /*endciterblock FOREACH_IN_MULTIPLE*/ + ; + /*epilog*/ + } + ; + } else {MELT_LOCATION("warmelt-normatch.melt:2874:/ cond.else"); + + /*^block*/ + /*anyblock*/{ + + + #if ENABLE_CHECKING + MELT_LOCATION("warmelt-normatch.melt:2881:/ cppif.then"); + /*^block*/ + /*anyblock*/{ + + /*_#THE_MELTCALLCOUNT__L16*/ meltfnum[14] = + meltcallcount;; + MELT_LOCATION("warmelt-normatch.melt:2881:/ apply"); + /*apply*/{ + union meltparam_un argtab[4]; + memset(&argtab, 0, sizeof(argtab)); + /*^apply.arg*/ + argtab[0].bp_cstring = "putelse_matchgroup bad elsegroup"; + /*^apply.arg*/ + argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L16*/ meltfnum[14]; + /*^apply.arg*/ + argtab[2].bp_cstring = "warmelt-normatch.melt"; + /*^apply.arg*/ + argtab[3].bp_long = 2881; + /*_.DEBUG_MSG_FUN__V43*/ meltfptr[42] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.ELSEGROUP__V13*/ meltfptr[12]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + } + ; + /*_.IFCPP___V42*/ meltfptr[41] = /*_.DEBUG_MSG_FUN__V43*/ meltfptr[42];; + /*epilog*/ + + MELT_LOCATION("warmelt-normatch.melt:2881:/ clear"); + /*clear*/ /*_#THE_MELTCALLCOUNT__L16*/ meltfnum[14] = 0 ; + /*^clear*/ + /*clear*/ /*_.DEBUG_MSG_FUN__V43*/ meltfptr[42] = 0 ;} + + #else /*ENABLE_CHECKING*/ + /*^cppif.else*/ + /*_.IFCPP___V42*/ meltfptr[41] = (/*nil*/NULL); + #endif /*ENABLE_CHECKING*/ + ; + + #if ENABLE_CHECKING + MELT_LOCATION("warmelt-normatch.melt:2882:/ cppif.then"); + /*^block*/ + /*anyblock*/{ + + /*^cond*/ + /*cond*/ if ((/*nil*/NULL)) /*then*/ { + /*^cond.then*/ + /*_.IFELSE___V45*/ meltfptr[44] = (/*nil*/NULL);; + } else {MELT_LOCATION("warmelt-normatch.melt:2882:/ cond.else"); + + /*^block*/ + /*anyblock*/{ + + + + + { + /*^locexp*/ + melt_assert_failed(( "bad elsegroup"),( "warmelt-normatch.melt")?( "warmelt-normatch.melt"):__FILE__, + (2882)?(2882):__LINE__, __FUNCTION__); +;} + ; + /*clear*/ /*_.IFELSE___V45*/ meltfptr[44] = 0 ; + /*epilog*/ + } + ; + } + ; + /*^compute*/ - /*_.LET___V90*/ meltfptr[82] = /*_.IF___V94*/ meltfptr[81];; - - MELT_LOCATION("warmelt-normatch.melt:2906:/ clear"); - /*clear*/ /*_.FLSTEP__V91*/ meltfptr[84] = 0 ; - /*^clear*/ - /*clear*/ /*_.IFCPP___V92*/ meltfptr[85] = 0 ; - /*^clear*/ - /*clear*/ /*_.IF___V94*/ meltfptr[81] = 0 ; - /*_.LET___V79*/ meltfptr[78] = /*_.LET___V90*/ meltfptr[82];; - - MELT_LOCATION("warmelt-normatch.melt:2891:/ clear"); - /*clear*/ /*_#CURFIX__L24*/ meltfnum[23] = 0 ; - /*^clear*/ - /*clear*/ /*_.CURSLOTDATA__V80*/ meltfptr[79] = 0 ; - /*^clear*/ - /*clear*/ /*_#NULL__L25*/ meltfnum[24] = 0 ; - /*^clear*/ - /*clear*/ /*_.IFCPP___V88*/ meltfptr[80] = 0 ; - /*^clear*/ - /*clear*/ /*_.LET___V90*/ meltfptr[82] = 0 ; - /*_.IF___V78*/ meltfptr[77] = /*_.LET___V79*/ meltfptr[78];; - /*epilog*/ - - MELT_LOCATION("warmelt-normatch.melt:2890:/ clear"); - /*clear*/ /*_.LET___V79*/ meltfptr[78] = 0 ;} - ; - } else {/*^cond.else*/ - - /*_.IF___V78*/ meltfptr[77] = NULL;; - } - ; - /*^compute*/ + /*_.IFCPP___V44*/ meltfptr[42] = /*_.IFELSE___V45*/ meltfptr[44];; + /*epilog*/ + + MELT_LOCATION("warmelt-normatch.melt:2882:/ clear"); + /*clear*/ /*_.IFELSE___V45*/ meltfptr[44] = 0 ;} + + #else /*ENABLE_CHECKING*/ + /*^cppif.else*/ + /*_.IFCPP___V44*/ meltfptr[42] = (/*nil*/NULL); + #endif /*ENABLE_CHECKING*/ + ; + MELT_LOCATION("warmelt-normatch.melt:2880:/ quasiblock"); + + + /*_.PROGN___V46*/ meltfptr[44] = /*_.IFCPP___V44*/ meltfptr[42];; + /*^compute*/ - /*_.LET___V73*/ meltfptr[71] = /*_.IF___V78*/ meltfptr[77];; - - MELT_LOCATION("warmelt-normatch.melt:2886:/ clear"); - /*clear*/ /*_.LOCA_LOCATION__V74*/ meltfptr[73] = 0 ; - /*^clear*/ - /*clear*/ /*_.FSLOC__V75*/ meltfptr[74] = 0 ; - /*^clear*/ - /*clear*/ /*_.CURFLD__V76*/ meltfptr[75] = 0 ; - /*^clear*/ - /*clear*/ /*_.CURFPAT__V77*/ meltfptr[76] = 0 ; - /*^clear*/ - /*clear*/ /*_#IS_NOT_A__L23*/ meltfnum[21] = 0 ; - /*^clear*/ - /*clear*/ /*_.IF___V78*/ meltfptr[77] = 0 ; - if (/*_#PIX__L21*/ meltfnum[17]<0) break; - } /* end cit3__EACHTUP */ - - /*citerepilog*/ - - MELT_LOCATION("warmelt-normatch.melt:2882:/ clear"); - /*clear*/ /*_.CURPFLD__V70*/ meltfptr[31] = 0 ; - /*^clear*/ - /*clear*/ /*_#PIX__L21*/ meltfnum[17] = 0 ; - /*^clear*/ - /*clear*/ /*_.IFCPP___V71*/ meltfptr[60] = 0 ; - /*^clear*/ - /*clear*/ /*_.LET___V73*/ meltfptr[71] = 0 ;} /*endciterblock FOREACH_IN_MULTIPLE*/ - ; - MELT_LOCATION("warmelt-normatch.melt:2918:/ quasiblock"); - - - MELT_LOCATION("warmelt-normatch.melt:2925:/ apply"); - /*apply*/{ - /*_.LIST_TO_MULTIPLE__V101*/ meltfptr[95] = melt_apply ((meltclosure_ptr_t)((/*!LIST_TO_MULTIPLE*/ meltfrout->tabval[17])), (melt_ptr_t)(/*_.ELSELIST__V67*/ meltfptr[58]), (""), (union meltparam_un*)0, "", (union meltparam_un*)0); + /*_.IFELSE___V37*/ meltfptr[36] = /*_.PROGN___V46*/ meltfptr[44];; + /*epilog*/ + + MELT_LOCATION("warmelt-normatch.melt:2874:/ clear"); + /*clear*/ /*_.IFCPP___V42*/ meltfptr[41] = 0 ; + /*^clear*/ + /*clear*/ /*_.IFCPP___V44*/ meltfptr[42] = 0 ; + /*^clear*/ + /*clear*/ /*_.PROGN___V46*/ meltfptr[44] = 0 ;} + ; + } + ; + /*_.IFELSE___V31*/ meltfptr[26] = /*_.IFELSE___V37*/ meltfptr[36];; + /*epilog*/ + + MELT_LOCATION("warmelt-normatch.melt:2868:/ clear"); + /*clear*/ /*_#IS_MULTIPLE__L13*/ meltfnum[11] = 0 ; + /*^clear*/ + /*clear*/ /*_.IFELSE___V37*/ meltfptr[36] = 0 ;} + ; + } + ; + /*_.IFELSE___V26*/ meltfptr[19] = /*_.IFELSE___V31*/ meltfptr[26];; + /*epilog*/ + + MELT_LOCATION("warmelt-normatch.melt:2865:/ clear"); + /*clear*/ /*_#IS_LIST__L11*/ meltfnum[9] = 0 ; + /*^clear*/ + /*clear*/ /*_.IFELSE___V31*/ meltfptr[26] = 0 ;} + ; + } + ; + /*_.IFELSE___V25*/ meltfptr[21] = /*_.IFELSE___V26*/ meltfptr[19];; + /*epilog*/ + + MELT_LOCATION("warmelt-normatch.melt:2863:/ clear"); + /*clear*/ /*_#IS_A__L9*/ meltfnum[8] = 0 ; + /*^clear*/ + /*clear*/ /*_.IFELSE___V26*/ meltfptr[19] = 0 ;} + ; } ; - MELT_LOCATION("warmelt-normatch.melt:2918:/ quasiblock"); - - - /*^rawallocobj*/ - /*rawallocobj*/ { melt_ptr_t newobj = 0; - melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_MATCH_STEP_TEST_GROUP*/ meltfrout->tabval[16])), (8), "CLASS_MATCH_STEP_TEST_GROUP");/*_.INST__V103*/ meltfptr[98] = - newobj; }; - ; - /*^putslot*/ - /*putslot*/ - melt_assertmsg("putslot checkobj @LOCA_LOCATION", melt_magic_discr((melt_ptr_t)(/*_.INST__V103*/ meltfptr[98])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V103*/ meltfptr[98]), (1), (/*_.SLOC__V23*/ meltfptr[22]), "LOCA_LOCATION"); - ; - /*^putslot*/ - /*putslot*/ - melt_assertmsg("putslot checkobj @MSTEP_DATA", melt_magic_discr((melt_ptr_t)(/*_.INST__V103*/ meltfptr[98])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V103*/ meltfptr[98]), (2), (/*_.MDATA__V3*/ meltfptr[2]), "MSTEP_DATA"); - ; - /*^putslot*/ - /*putslot*/ - melt_assertmsg("putslot checkobj @MSTEP_THEN", melt_magic_discr((melt_ptr_t)(/*_.INST__V103*/ meltfptr[98])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V103*/ meltfptr[98]), (3), ((/*nil*/NULL)), "MSTEP_THEN"); - ; - /*^putslot*/ - /*putslot*/ - melt_assertmsg("putslot checkobj @MSTEP_ELSE", melt_magic_discr((melt_ptr_t)(/*_.INST__V103*/ meltfptr[98])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V103*/ meltfptr[98]), (4), ((/*nil*/NULL)), "MSTEP_ELSE"); - ; - /*^putslot*/ - /*putslot*/ - melt_assertmsg("putslot checkobj @MSTGROUP_START", melt_magic_discr((melt_ptr_t)(/*_.INST__V103*/ meltfptr[98])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V103*/ meltfptr[98]), (5), (/*_.ISTEP__V45*/ meltfptr[39]), "MSTGROUP_START"); - ; - /*^putslot*/ - /*putslot*/ - melt_assertmsg("putslot checkobj @MSTGROUP_THEN", melt_magic_discr((melt_ptr_t)(/*_.INST__V103*/ meltfptr[98])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V103*/ meltfptr[98]), (6), (/*_.LASTSTEP__V66*/ meltfptr[34]), "MSTGROUP_THEN"); - ; - /*^putslot*/ - /*putslot*/ - melt_assertmsg("putslot checkobj @MSTGROUP_ELSE", melt_magic_discr((melt_ptr_t)(/*_.INST__V103*/ meltfptr[98])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V103*/ meltfptr[98]), (7), (/*_.LIST_TO_MULTIPLE__V101*/ meltfptr[95]), "MSTGROUP_ELSE"); - ; - /*_.STEPGROUP__V102*/ meltfptr[97] = /*_.INST__V103*/ meltfptr[98];; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normatch.melt:2928:/ cppif.then"); + MELT_LOCATION("warmelt-normatch.melt:2883:/ cppif.then"); /*^block*/ /*anyblock*/{ - /*_#THE_MELTCALLCOUNT__L30*/ meltfnum[25] = + /*_#THE_MELTCALLCOUNT__L17*/ meltfnum[14] = meltcallcount;; - MELT_LOCATION("warmelt-normatch.melt:2928:/ apply"); + MELT_LOCATION("warmelt-normatch.melt:2883:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_cstring = "translpat_inspat return stepgroup"; + argtab[0].bp_cstring = "putelse_matchgroup end recv"; /*^apply.arg*/ - argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L30*/ meltfnum[25]; + argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L17*/ meltfnum[14]; /*^apply.arg*/ argtab[2].bp_cstring = "warmelt-normatch.melt"; /*^apply.arg*/ - argtab[3].bp_long = 2928; - /*_.DEBUG_MSG_FUN__V105*/ meltfptr[85] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.STEPGROUP__V102*/ meltfptr[97]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + argtab[3].bp_long = 2883; + /*_.DEBUG_MSG_FUN__V48*/ meltfptr[42] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; - /*_.IFCPP___V104*/ meltfptr[84] = /*_.DEBUG_MSG_FUN__V105*/ meltfptr[85];; + /*_.IFCPP___V47*/ meltfptr[41] = /*_.DEBUG_MSG_FUN__V48*/ meltfptr[42];; /*epilog*/ - MELT_LOCATION("warmelt-normatch.melt:2928:/ clear"); - /*clear*/ /*_#THE_MELTCALLCOUNT__L30*/ meltfnum[25] = 0 ; + MELT_LOCATION("warmelt-normatch.melt:2883:/ clear"); + /*clear*/ /*_#THE_MELTCALLCOUNT__L17*/ meltfnum[14] = 0 ; /*^clear*/ - /*clear*/ /*_.DEBUG_MSG_FUN__V105*/ meltfptr[85] = 0 ;} + /*clear*/ /*_.DEBUG_MSG_FUN__V48*/ meltfptr[42] = 0 ;} #else /*ENABLE_CHECKING*/ /*^cppif.else*/ - /*_.IFCPP___V104*/ meltfptr[84] = (/*nil*/NULL); + /*_.IFCPP___V47*/ meltfptr[41] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-normatch.melt:2929:/ quasiblock"); - - - /*_.RETVAL___V1*/ meltfptr[0] = /*_.STEPGROUP__V102*/ meltfptr[97];; - MELT_LOCATION("warmelt-normatch.melt:2929:/ finalreturn"); - ; - /*finalret*/ goto labend_rout ; - /*_.LET___V100*/ meltfptr[94] = /*_.RETURN___V106*/ meltfptr[81];; - - MELT_LOCATION("warmelt-normatch.melt:2918:/ clear"); - /*clear*/ /*_.LIST_TO_MULTIPLE__V101*/ meltfptr[95] = 0 ; - /*^clear*/ - /*clear*/ /*_.STEPGROUP__V102*/ meltfptr[97] = 0 ; - /*^clear*/ - /*clear*/ /*_.IFCPP___V104*/ meltfptr[84] = 0 ; - /*^clear*/ - /*clear*/ /*_.RETURN___V106*/ meltfptr[81] = 0 ; - /*_.LET___V64*/ meltfptr[62] = /*_.LET___V100*/ meltfptr[94];; - - MELT_LOCATION("warmelt-normatch.melt:2876:/ clear"); - /*clear*/ /*_.MSLOTS__V65*/ meltfptr[33] = 0 ; - /*^clear*/ - /*clear*/ /*_.LASTSTEP__V66*/ meltfptr[34] = 0 ; - /*^clear*/ - /*clear*/ /*_.ELSELIST__V67*/ meltfptr[58] = 0 ; - /*^clear*/ - /*clear*/ /*_.IFCPP___V68*/ meltfptr[59] = 0 ; - /*^clear*/ - /*clear*/ /*_.LET___V100*/ meltfptr[94] = 0 ; - /*_.LET___V44*/ meltfptr[38] = /*_.LET___V64*/ meltfptr[62];; + /*^compute*/ + + /*_.LET___V12*/ meltfptr[10] = /*_.IFCPP___V47*/ meltfptr[41];; - MELT_LOCATION("warmelt-normatch.melt:2845:/ clear"); - /*clear*/ /*_.ISTEP__V45*/ meltfptr[39] = 0 ; - /*^clear*/ - /*clear*/ /*_.STEPLIST__V46*/ meltfptr[40] = 0 ; - /*^clear*/ - /*clear*/ /*_#NULL__L17*/ meltfnum[15] = 0 ; - /*^clear*/ - /*clear*/ /*_.IF___V54*/ meltfptr[36] = 0 ; + MELT_LOCATION("warmelt-normatch.melt:2851:/ clear"); + /*clear*/ /*_.ELSEGROUP__V13*/ meltfptr[12] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V64*/ meltfptr[62] = 0 ; - /*_.LET___V26*/ meltfptr[24] = /*_.LET___V44*/ meltfptr[38];; - - MELT_LOCATION("warmelt-normatch.melt:2825:/ clear"); - /*clear*/ /*_.CLASS_FIELDS__V27*/ meltfptr[26] = 0 ; + /*clear*/ /*_.ELSESTART__V14*/ meltfptr[13] = 0 ; /*^clear*/ - /*clear*/ /*_#NBFIELDS__L8*/ meltfnum[0] = 0 ; + /*clear*/ /*_.STARTGROUP__V15*/ meltfptr[14] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V44*/ meltfptr[38] = 0 ; - /*_.LET___V19*/ meltfptr[17] = /*_.LET___V26*/ meltfptr[24];; - - MELT_LOCATION("warmelt-normatch.melt:2819:/ clear"); - /*clear*/ /*_.PCLASS__V20*/ meltfptr[19] = 0 ; + /*clear*/ /*_.IFCPP___V16*/ meltfptr[15] = 0 ; /*^clear*/ - /*clear*/ /*_.PFIELDS__V21*/ meltfptr[20] = 0 ; + /*clear*/ /*_.IF___V18*/ meltfptr[16] = 0 ; /*^clear*/ - /*clear*/ /*_.LOCA_LOCATION__V22*/ meltfptr[21] = 0 ; + /*clear*/ /*_.IFCPP___V23*/ meltfptr[18] = 0 ; /*^clear*/ - /*clear*/ /*_.SLOC__V23*/ meltfptr[22] = 0 ; + /*clear*/ /*_#NULL__L8*/ meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V24*/ meltfptr[23] = 0 ; + /*clear*/ /*_.IFELSE___V25*/ meltfptr[21] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V26*/ meltfptr[24] = 0 ; - MELT_LOCATION("warmelt-normatch.melt:2812:/ quasiblock"); + /*clear*/ /*_.IFCPP___V47*/ meltfptr[41] = 0 ; + MELT_LOCATION("warmelt-normatch.melt:2846:/ quasiblock"); - /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V19*/ meltfptr[17];; - MELT_LOCATION("warmelt-normatch.melt:2812:/ finalreturn"); + /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V12*/ meltfptr[10];; + MELT_LOCATION("warmelt-normatch.melt:2846:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.IFCPP___V7*/ meltfptr[6] = 0 ; - /*^clear*/ - /*clear*/ /*_.IFCPP___V9*/ meltfptr[7] = 0 ; - /*^clear*/ - /*clear*/ /*_.IFCPP___V11*/ meltfptr[9] = 0 ; + /*clear*/ /*_.IFCPP___V4*/ meltfptr[3] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V13*/ meltfptr[11] = 0 ; + /*clear*/ /*_.IFCPP___V6*/ meltfptr[4] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V15*/ meltfptr[13] = 0 ; + /*clear*/ /*_.IFCPP___V8*/ meltfptr[6] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V17*/ meltfptr[15] = 0 ; + /*clear*/ /*_.IFCPP___V10*/ meltfptr[8] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V19*/ meltfptr[17] = 0 ;} + /*clear*/ /*_.LET___V12*/ meltfptr[10] = 0 ;} ; goto labend_rout; labend_rout: -melt_trace_end("TRANSLPAT_INSPAT", meltcallcount); melt_topframe = (struct callframe_melt_st*) meltfram__.prev; +melt_trace_end("PUTELSE_MATCHGROUP", meltcallcount); melt_topframe = (struct callframe_melt_st*) meltfram__.prev; return (melt_ptr_t)(/*_.RETVAL___V1*/ meltfptr[0]); #undef meltcallcount #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR -} /*end meltrout_65_warmelt_normatch_TRANSLPAT_INSPAT*/ +} /*end meltrout_62_warmelt_normatch_PUTELSE_MATCHGROUP*/ melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_66_warmelt_normatch_TRANSLPAT_VARPAT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, +meltrout_63_warmelt_normatch_SCANSTEP_TESTINS(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_) { #if ENABLE_CHECKING @@ -25481,17 +24560,17 @@ meltrout_66_warmelt_normatch_TRANSLPAT_VARPAT(meltclosure_ptr_t closp_, melt_ptr #define meltcallcount 0L #endif - struct frame_meltrout_66_warmelt_normatch_TRANSLPAT_VARPAT_st { unsigned nbvar; + struct frame_meltrout_63_warmelt_normatch_SCANSTEP_TESTINS_st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct meltclosure_st *clos; struct excepth_melt_st *exh; struct callframe_melt_st *prev; -#define MELTFRAM_NBVARPTR 70 - void* varptr[70]; -#define MELTFRAM_NBVARNUM 25 - long varnum[25]; +#define MELTFRAM_NBVARPTR 10 + void* varptr[10]; +#define MELTFRAM_NBVARNUM 2 + long varnum[2]; /*others*/ long _spare_; } *framptr_=0, meltframe; @@ -25500,49 +24579,230 @@ meltrout_66_warmelt_normatch_TRANSLPAT_VARPAT(meltclosure_ptr_t closp_, melt_ptr int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_melt_un (framptr_->clos); - for(ix=0; ix<70; ix++) + for(ix=0; ix<10; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_melt_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&meltfram__, 0, sizeof(meltfram__)); - meltfram__.nbvar = 70; + meltfram__.nbvar = 10; meltfram__.clos = closp_; meltfram__.prev = (struct callframe_melt_st *) melt_topframe; melt_topframe = (struct callframe_melt_st *) &meltfram__; -melt_trace_start("TRANSLPAT_VARPAT", meltcallcount); +melt_trace_start("SCANSTEP_TESTINS", meltcallcount); /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-normatch.melt:2934:/ getarg"); - /*_.RECV__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; + MELT_LOCATION("warmelt-normatch.melt:2889:/ getarg"); + /*_.STEP__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; /*getarg#1*/ /*^getarg*/ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; - /*_.MDATA__V3*/ meltfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.MDATA__V3*/ meltfptr[2])) != NULL); + /*_.FUN__V3*/ meltfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; + gcc_assert(melt_discr((melt_ptr_t)(/*_.FUN__V3*/ meltfptr[2])) != NULL); /*getarg#2*/ /*^getarg*/ if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; - /*_.MCASE__V4*/ meltfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.MCASE__V4*/ meltfptr[3])) != NULL); + /*_.CTX__V4*/ meltfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; + gcc_assert(melt_discr((melt_ptr_t)(/*_.CTX__V4*/ meltfptr[3])) != NULL); + + ; + goto lab_endgetargs; +lab_endgetargs:; +/*body*/ +/*^block*/ +/*anyblock*/{ + + + #if ENABLE_CHECKING + MELT_LOCATION("warmelt-normatch.melt:2890:/ cppif.then"); + /*^block*/ + /*anyblock*/{ + + /*_#IS_A__L1*/ meltfnum[0] = + melt_is_instance_of((melt_ptr_t)(/*_.STEP__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_MATCH_STEP_TEST_INSTANCE*/ meltfrout->tabval[0])));; + MELT_LOCATION("warmelt-normatch.melt:2890:/ cond"); + /*cond*/ if (/*_#IS_A__L1*/ meltfnum[0]) /*then*/ { + /*^cond.then*/ + /*_.IFELSE___V6*/ meltfptr[5] = (/*nil*/NULL);; + } else {MELT_LOCATION("warmelt-normatch.melt:2890:/ cond.else"); + + /*^block*/ + /*anyblock*/{ + + + + + { + /*^locexp*/ + melt_assert_failed(( "check step"),( "warmelt-normatch.melt")?( "warmelt-normatch.melt"):__FILE__, + (2890)?(2890):__LINE__, __FUNCTION__); +;} + ; + /*clear*/ /*_.IFELSE___V6*/ meltfptr[5] = 0 ; + /*epilog*/ + } + ; + } + ; + /*^compute*/ + + /*_.IFCPP___V5*/ meltfptr[4] = /*_.IFELSE___V6*/ meltfptr[5];; + /*epilog*/ + + MELT_LOCATION("warmelt-normatch.melt:2890:/ clear"); + /*clear*/ /*_#IS_A__L1*/ meltfnum[0] = 0 ; + /*^clear*/ + /*clear*/ /*_.IFELSE___V6*/ meltfptr[5] = 0 ;} + + #else /*ENABLE_CHECKING*/ + /*^cppif.else*/ + /*_.IFCPP___V5*/ meltfptr[4] = (/*nil*/NULL); + #endif /*ENABLE_CHECKING*/ + ; + MELT_LOCATION("warmelt-normatch.melt:2891:/ quasiblock"); + + + /*^getslot*/ + { melt_ptr_t slot=0; + melt_object_get_field(slot,(melt_ptr_t)(/*_.STEP__V2*/ meltfptr[1]), 6, "MSTINS_SLOTS");/*_.SLOTUP__V7*/ meltfptr[5] = slot; }; + ; + /*citerblock FOREACH_IN_MULTIPLE*/ { + /* start cit1__EACHTUP: */ + long cit1__EACHTUP_ln = melt_multiple_length((melt_ptr_t)/*_.SLOTUP__V7*/ meltfptr[5]); + for (/*_#IX__L2*/ meltfnum[0] = 0; + (/*_#IX__L2*/ meltfnum[0] >= 0) && (/*_#IX__L2*/ meltfnum[0] < cit1__EACHTUP_ln); + /*_#IX__L2*/ meltfnum[0]++) { + /*_.CURSLOT__V8*/ meltfptr[7] = melt_multiple_nth((melt_ptr_t)(/*_.SLOTUP__V7*/ meltfptr[5]), /*_#IX__L2*/ meltfnum[0]); + + + + MELT_LOCATION("warmelt-normatch.melt:2896:/ cond"); + /*cond*/ if (/*_.CURSLOT__V8*/ meltfptr[7]) /*then*/ { + /*^cond.then*/ + /*^block*/ + /*anyblock*/{ + + MELT_LOCATION("warmelt-normatch.melt:2897:/ apply"); + /*apply*/{ + union meltparam_un argtab[1]; + memset(&argtab, 0, sizeof(argtab)); + /*^apply.arg*/ + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.CTX__V4*/ meltfptr[3]; + /*_.FUN__V10*/ meltfptr[9] = melt_apply ((meltclosure_ptr_t)(/*_.FUN__V3*/ meltfptr[2]), (melt_ptr_t)(/*_.CURSLOT__V8*/ meltfptr[7]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + } + ; + /*_.IF___V9*/ meltfptr[8] = /*_.FUN__V10*/ meltfptr[9];; + /*epilog*/ + + MELT_LOCATION("warmelt-normatch.melt:2896:/ clear"); + /*clear*/ /*_.FUN__V10*/ meltfptr[9] = 0 ;} + ; + } else {/*^cond.else*/ + + /*_.IF___V9*/ meltfptr[8] = NULL;; + } + ; + if (/*_#IX__L2*/ meltfnum[0]<0) break; + } /* end cit1__EACHTUP */ + + /*citerepilog*/ + + MELT_LOCATION("warmelt-normatch.melt:2893:/ clear"); + /*clear*/ /*_.CURSLOT__V8*/ meltfptr[7] = 0 ; + /*^clear*/ + /*clear*/ /*_#IX__L2*/ meltfnum[0] = 0 ; + /*^clear*/ + /*clear*/ /*_.IF___V9*/ meltfptr[8] = 0 ;} /*endciterblock FOREACH_IN_MULTIPLE*/ + ; + + MELT_LOCATION("warmelt-normatch.melt:2891:/ clear"); + /*clear*/ /*_.SLOTUP__V7*/ meltfptr[5] = 0 ; + /*epilog*/ + MELT_LOCATION("warmelt-normatch.melt:2889:/ clear"); + /*clear*/ /*_.IFCPP___V5*/ meltfptr[4] = 0 ;} + +; + goto labend_rout; +labend_rout: +melt_trace_end("SCANSTEP_TESTINS", meltcallcount); melt_topframe = (struct callframe_melt_st*) meltfram__.prev; + return (melt_ptr_t)(/*noretval*/ NULL); +#undef meltcallcount +#undef meltfram__ +#undef MELTFRAM_NBVARNUM +#undef MELTFRAM_NBVARPTR +} /*end meltrout_63_warmelt_normatch_SCANSTEP_TESTINS*/ + + + + + +melt_ptr_t MELT_MODULE_VISIBILITY +meltrout_64_warmelt_normatch_SCANSTEP_TESTMATCHER(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, + const char xresdescr_[], union meltparam_un *xrestab_) +{ +#if ENABLE_CHECKING + static long call_counter__; + long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; +#undef meltcallcount +#define meltcallcount thiscallcounter__ +#else +#undef meltcallcount +#define meltcallcount 0L +#endif + + struct frame_meltrout_64_warmelt_normatch_SCANSTEP_TESTMATCHER_st { unsigned nbvar; +#if ENABLE_CHECKING + const char* flocs; +#endif + struct meltclosure_st *clos; + struct excepth_melt_st *exh; + struct callframe_melt_st *prev; +#define MELTFRAM_NBVARPTR 10 + void* varptr[10]; +#define MELTFRAM_NBVARNUM 2 + long varnum[2]; +/*others*/ + long _spare_; } + *framptr_=0, meltframe; +#define meltfram__ meltframe + if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/ + int ix=0; + framptr_ = (void*)firstargp_; + gt_ggc_mx_melt_un (framptr_->clos); + for(ix=0; ix<10; ix++) + if (framptr_->varptr[ix]) + gt_ggc_mx_melt_un (framptr_->varptr[ix]); + return NULL; + }/*end markggc*/; + memset(&meltfram__, 0, sizeof(meltfram__)); + meltfram__.nbvar = 10; + meltfram__.clos = closp_; + meltfram__.prev = (struct callframe_melt_st *) melt_topframe; + melt_topframe = (struct callframe_melt_st *) &meltfram__; +melt_trace_start("SCANSTEP_TESTMATCHER", meltcallcount); +/*getargs*/ + + /*getarg#0*/ + MELT_LOCATION("warmelt-normatch.melt:2900:/ getarg"); + /*_.STEP__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; - /*getarg#3*/ + /*getarg#1*/ /*^getarg*/ - if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs; - /*_.VARMAP__V5*/ meltfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.VARMAP__V5*/ meltfptr[4])) != NULL); + if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; + /*_.FUN__V3*/ meltfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; + gcc_assert(melt_discr((melt_ptr_t)(/*_.FUN__V3*/ meltfptr[2])) != NULL); - /*getarg#4*/ + /*getarg#2*/ /*^getarg*/ - if (xargdescr_[3] != BPAR_PTR) goto lab_endgetargs; - /*_.PSLOC__V6*/ meltfptr[5] = (xargtab_[3].bp_aptr) ? (*(xargtab_[3].bp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.PSLOC__V6*/ meltfptr[5])) != NULL); + if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; + /*_.CTX__V4*/ meltfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; + gcc_assert(melt_discr((melt_ptr_t)(/*_.CTX__V4*/ meltfptr[3])) != NULL); ; goto lab_endgetargs; @@ -25553,53 +24813,17 @@ lab_endgetargs:; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normatch.melt:2935:/ cppif.then"); - /*^block*/ - /*anyblock*/{ - - /*_#THE_MELTCALLCOUNT__L1*/ meltfnum[0] = - meltcallcount;; - MELT_LOCATION("warmelt-normatch.melt:2935:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - /*^apply.arg*/ - argtab[0].bp_cstring = "translpat_varpat recv"; - /*^apply.arg*/ - argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L1*/ meltfnum[0]; - /*^apply.arg*/ - argtab[2].bp_cstring = "warmelt-normatch.melt"; - /*^apply.arg*/ - argtab[3].bp_long = 2935; - /*_.DEBUG_MSG_FUN__V8*/ meltfptr[7] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V7*/ meltfptr[6] = /*_.DEBUG_MSG_FUN__V8*/ meltfptr[7];; - /*epilog*/ - - MELT_LOCATION("warmelt-normatch.melt:2935:/ clear"); - /*clear*/ /*_#THE_MELTCALLCOUNT__L1*/ meltfnum[0] = 0 ; - /*^clear*/ - /*clear*/ /*_.DEBUG_MSG_FUN__V8*/ meltfptr[7] = 0 ;} - - #else /*ENABLE_CHECKING*/ - /*^cppif.else*/ - /*_.IFCPP___V7*/ meltfptr[6] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normatch.melt:2936:/ cppif.then"); + MELT_LOCATION("warmelt-normatch.melt:2901:/ cppif.then"); /*^block*/ /*anyblock*/{ - /*_#IS_A__L2*/ meltfnum[0] = - melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_PATTERN_VARIABLE*/ meltfrout->tabval[1])));; - MELT_LOCATION("warmelt-normatch.melt:2936:/ cond"); - /*cond*/ if (/*_#IS_A__L2*/ meltfnum[0]) /*then*/ { + /*_#IS_A__L1*/ meltfnum[0] = + melt_is_instance_of((melt_ptr_t)(/*_.STEP__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_MATCH_STEP_TEST_MATCHER*/ meltfrout->tabval[0])));; + MELT_LOCATION("warmelt-normatch.melt:2901:/ cond"); + /*cond*/ if (/*_#IS_A__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ - /*_.IFELSE___V10*/ meltfptr[9] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normatch.melt:2936:/ cond.else"); + /*_.IFELSE___V6*/ meltfptr[5] = (/*nil*/NULL);; + } else {MELT_LOCATION("warmelt-normatch.melt:2901:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -25609,11 +24833,11 @@ lab_endgetargs:; { /*^locexp*/ - melt_assert_failed(( "check recv"),( "warmelt-normatch.melt")?( "warmelt-normatch.melt"):__FILE__, - (2936)?(2936):__LINE__, __FUNCTION__); + melt_assert_failed(( "check step"),( "warmelt-normatch.melt")?( "warmelt-normatch.melt"):__FILE__, + (2901)?(2901):__LINE__, __FUNCTION__); ;} ; - /*clear*/ /*_.IFELSE___V10*/ meltfptr[9] = 0 ; + /*clear*/ /*_.IFELSE___V6*/ meltfptr[5] = 0 ; /*epilog*/ } ; @@ -25621,977 +24845,568 @@ lab_endgetargs:; ; /*^compute*/ - /*_.IFCPP___V9*/ meltfptr[7] = /*_.IFELSE___V10*/ meltfptr[9];; + /*_.IFCPP___V5*/ meltfptr[4] = /*_.IFELSE___V6*/ meltfptr[5];; /*epilog*/ - MELT_LOCATION("warmelt-normatch.melt:2936:/ clear"); - /*clear*/ /*_#IS_A__L2*/ meltfnum[0] = 0 ; + MELT_LOCATION("warmelt-normatch.melt:2901:/ clear"); + /*clear*/ /*_#IS_A__L1*/ meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_.IFELSE___V10*/ meltfptr[9] = 0 ;} + /*clear*/ /*_.IFELSE___V6*/ meltfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ /*^cppif.else*/ - /*_.IFCPP___V9*/ meltfptr[7] = (/*nil*/NULL); + /*_.IFCPP___V5*/ meltfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; + MELT_LOCATION("warmelt-normatch.melt:2902:/ quasiblock"); - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normatch.melt:2937:/ cppif.then"); - /*^block*/ - /*anyblock*/{ - - /*_#THE_MELTCALLCOUNT__L3*/ meltfnum[0] = - meltcallcount;; - MELT_LOCATION("warmelt-normatch.melt:2937:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - /*^apply.arg*/ - argtab[0].bp_cstring = "translpat_varpat mdata"; - /*^apply.arg*/ - argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L3*/ meltfnum[0]; - /*^apply.arg*/ - argtab[2].bp_cstring = "warmelt-normatch.melt"; - /*^apply.arg*/ - argtab[3].bp_long = 2937; - /*_.DEBUG_MSG_FUN__V12*/ meltfptr[11] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.MDATA__V3*/ meltfptr[2]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V11*/ meltfptr[9] = /*_.DEBUG_MSG_FUN__V12*/ meltfptr[11];; - /*epilog*/ - - MELT_LOCATION("warmelt-normatch.melt:2937:/ clear"); - /*clear*/ /*_#THE_MELTCALLCOUNT__L3*/ meltfnum[0] = 0 ; - /*^clear*/ - /*clear*/ /*_.DEBUG_MSG_FUN__V12*/ meltfptr[11] = 0 ;} - - #else /*ENABLE_CHECKING*/ - /*^cppif.else*/ - /*_.IFCPP___V11*/ meltfptr[9] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normatch.melt:2938:/ cppif.then"); - /*^block*/ - /*anyblock*/{ - - /*_#IS_A__L4*/ meltfnum[0] = - melt_is_instance_of((melt_ptr_t)(/*_.MDATA__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_MATCHED_DATA*/ meltfrout->tabval[2])));; - MELT_LOCATION("warmelt-normatch.melt:2938:/ cond"); - /*cond*/ if (/*_#IS_A__L4*/ meltfnum[0]) /*then*/ { - /*^cond.then*/ - /*_.IFELSE___V14*/ meltfptr[13] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normatch.melt:2938:/ cond.else"); + /*^getslot*/ + { melt_ptr_t slot=0; + melt_object_get_field(slot,(melt_ptr_t)(/*_.STEP__V2*/ meltfptr[1]), 8, "MSTMA_OUTS");/*_.OUTS__V7*/ meltfptr[5] = slot; }; + ; + /*citerblock FOREACH_IN_MULTIPLE*/ { + /* start cit1__EACHTUP: */ + long cit1__EACHTUP_ln = melt_multiple_length((melt_ptr_t)/*_.OUTS__V7*/ meltfptr[5]); + for (/*_#OUTIX__L2*/ meltfnum[0] = 0; + (/*_#OUTIX__L2*/ meltfnum[0] >= 0) && (/*_#OUTIX__L2*/ meltfnum[0] < cit1__EACHTUP_ln); + /*_#OUTIX__L2*/ meltfnum[0]++) { + /*_.CUROUT__V8*/ meltfptr[7] = melt_multiple_nth((melt_ptr_t)(/*_.OUTS__V7*/ meltfptr[5]), /*_#OUTIX__L2*/ meltfnum[0]); - /*^block*/ - /*anyblock*/{ - - - - - { - /*^locexp*/ - melt_assert_failed(( "check mdata"),( "warmelt-normatch.melt")?( "warmelt-normatch.melt"):__FILE__, - (2938)?(2938):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V14*/ meltfptr[13] = 0 ; - /*epilog*/ + + + MELT_LOCATION("warmelt-normatch.melt:2907:/ cond"); + /*cond*/ if (/*_.CUROUT__V8*/ meltfptr[7]) /*then*/ { + /*^cond.then*/ + /*^block*/ + /*anyblock*/{ + + /*^apply*/ + /*apply*/{ + union meltparam_un argtab[1]; + memset(&argtab, 0, sizeof(argtab)); + /*^apply.arg*/ + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.CTX__V4*/ meltfptr[3]; + /*_.FUN__V10*/ meltfptr[9] = melt_apply ((meltclosure_ptr_t)(/*_.FUN__V3*/ meltfptr[2]), (melt_ptr_t)(/*_.CUROUT__V8*/ meltfptr[7]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - } + /*_.IF___V9*/ meltfptr[8] = /*_.FUN__V10*/ meltfptr[9];; + /*epilog*/ + + MELT_LOCATION("warmelt-normatch.melt:2907:/ clear"); + /*clear*/ /*_.FUN__V10*/ meltfptr[9] = 0 ;} ; - /*^compute*/ - - /*_.IFCPP___V13*/ meltfptr[11] = /*_.IFELSE___V14*/ meltfptr[13];; - /*epilog*/ - - MELT_LOCATION("warmelt-normatch.melt:2938:/ clear"); - /*clear*/ /*_#IS_A__L4*/ meltfnum[0] = 0 ; - /*^clear*/ - /*clear*/ /*_.IFELSE___V14*/ meltfptr[13] = 0 ;} + } else {/*^cond.else*/ - #else /*ENABLE_CHECKING*/ - /*^cppif.else*/ - /*_.IFCPP___V13*/ meltfptr[11] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ + /*_.IF___V9*/ meltfptr[8] = NULL;; + } ; + if (/*_#OUTIX__L2*/ meltfnum[0]<0) break; + } /* end cit1__EACHTUP */ - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normatch.melt:2939:/ cppif.then"); - /*^block*/ - /*anyblock*/{ - - /*_#THE_MELTCALLCOUNT__L5*/ meltfnum[0] = - meltcallcount;; - MELT_LOCATION("warmelt-normatch.melt:2939:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - /*^apply.arg*/ - argtab[0].bp_cstring = "translpat_varpat mcase"; - /*^apply.arg*/ - argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L5*/ meltfnum[0]; - /*^apply.arg*/ - argtab[2].bp_cstring = "warmelt-normatch.melt"; - /*^apply.arg*/ - argtab[3].bp_long = 2939; - /*_.DEBUG_MSG_FUN__V16*/ meltfptr[15] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.MCASE__V4*/ meltfptr[3]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V15*/ meltfptr[13] = /*_.DEBUG_MSG_FUN__V16*/ meltfptr[15];; - /*epilog*/ - - MELT_LOCATION("warmelt-normatch.melt:2939:/ clear"); - /*clear*/ /*_#THE_MELTCALLCOUNT__L5*/ meltfnum[0] = 0 ; - /*^clear*/ - /*clear*/ /*_.DEBUG_MSG_FUN__V16*/ meltfptr[15] = 0 ;} + /*citerepilog*/ - #else /*ENABLE_CHECKING*/ - /*^cppif.else*/ - /*_.IFCPP___V15*/ meltfptr[13] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; + MELT_LOCATION("warmelt-normatch.melt:2904:/ clear"); + /*clear*/ /*_.CUROUT__V8*/ meltfptr[7] = 0 ; + /*^clear*/ + /*clear*/ /*_#OUTIX__L2*/ meltfnum[0] = 0 ; + /*^clear*/ + /*clear*/ /*_.IF___V9*/ meltfptr[8] = 0 ;} /*endciterblock FOREACH_IN_MULTIPLE*/ + ; - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normatch.melt:2940:/ cppif.then"); - /*^block*/ - /*anyblock*/{ - - /*_#IS_A__L6*/ meltfnum[0] = - melt_is_instance_of((melt_ptr_t)(/*_.MCASE__V4*/ meltfptr[3]), (melt_ptr_t)((/*!CLASS_MATCH_CASE*/ meltfrout->tabval[3])));; - MELT_LOCATION("warmelt-normatch.melt:2940:/ cond"); - /*cond*/ if (/*_#IS_A__L6*/ meltfnum[0]) /*then*/ { - /*^cond.then*/ - /*_.IFELSE___V18*/ meltfptr[17] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normatch.melt:2940:/ cond.else"); - - /*^block*/ - /*anyblock*/{ - - - - - { - /*^locexp*/ - melt_assert_failed(( "check mcase"),( "warmelt-normatch.melt")?( "warmelt-normatch.melt"):__FILE__, - (2940)?(2940):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V18*/ meltfptr[17] = 0 ; - /*epilog*/ - } - ; - } - ; - /*^compute*/ + MELT_LOCATION("warmelt-normatch.melt:2902:/ clear"); + /*clear*/ /*_.OUTS__V7*/ meltfptr[5] = 0 ; + /*epilog*/ + + MELT_LOCATION("warmelt-normatch.melt:2900:/ clear"); + /*clear*/ /*_.IFCPP___V5*/ meltfptr[4] = 0 ;} + +; + goto labend_rout; +labend_rout: +melt_trace_end("SCANSTEP_TESTMATCHER", meltcallcount); melt_topframe = (struct callframe_melt_st*) meltfram__.prev; + return (melt_ptr_t)(/*noretval*/ NULL); +#undef meltcallcount +#undef meltfram__ +#undef MELTFRAM_NBVARNUM +#undef MELTFRAM_NBVARPTR +} /*end meltrout_64_warmelt_normatch_SCANSTEP_TESTMATCHER*/ + + + + + +melt_ptr_t MELT_MODULE_VISIBILITY +meltrout_65_warmelt_normatch_TRANSLPAT_ANYRECV(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, + const char xresdescr_[], union meltparam_un *xrestab_) +{ +#if ENABLE_CHECKING + static long call_counter__; + long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; +#undef meltcallcount +#define meltcallcount thiscallcounter__ +#else +#undef meltcallcount +#define meltcallcount 0L +#endif + + struct frame_meltrout_65_warmelt_normatch_TRANSLPAT_ANYRECV_st { unsigned nbvar; +#if ENABLE_CHECKING + const char* flocs; +#endif + struct meltclosure_st *clos; + struct excepth_melt_st *exh; + struct callframe_melt_st *prev; +#define MELTFRAM_NBVARPTR 17 + void* varptr[17]; +#define MELTFRAM_NBVARNUM 3 + long varnum[3]; +/*others*/ + long _spare_; } + *framptr_=0, meltframe; +#define meltfram__ meltframe + if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/ + int ix=0; + framptr_ = (void*)firstargp_; + gt_ggc_mx_melt_un (framptr_->clos); + for(ix=0; ix<17; ix++) + if (framptr_->varptr[ix]) + gt_ggc_mx_melt_un (framptr_->varptr[ix]); + return NULL; + }/*end markggc*/; + memset(&meltfram__, 0, sizeof(meltfram__)); + meltfram__.nbvar = 17; + meltfram__.clos = closp_; + meltfram__.prev = (struct callframe_melt_st *) melt_topframe; + melt_topframe = (struct callframe_melt_st *) &meltfram__; +melt_trace_start("TRANSLPAT_ANYRECV", meltcallcount); +/*getargs*/ - /*_.IFCPP___V17*/ meltfptr[15] = /*_.IFELSE___V18*/ meltfptr[17];; - /*epilog*/ - - MELT_LOCATION("warmelt-normatch.melt:2940:/ clear"); - /*clear*/ /*_#IS_A__L6*/ meltfnum[0] = 0 ; - /*^clear*/ - /*clear*/ /*_.IFELSE___V18*/ meltfptr[17] = 0 ;} - - #else /*ENABLE_CHECKING*/ - /*^cppif.else*/ - /*_.IFCPP___V17*/ meltfptr[15] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - MELT_LOCATION("warmelt-normatch.melt:2941:/ quasiblock"); + /*getarg#0*/ + MELT_LOCATION("warmelt-normatch.melt:2920:/ getarg"); + /*_.RECV__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; + /*getarg#1*/ + /*^getarg*/ + if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; + /*_.MDATA__V3*/ meltfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; + gcc_assert(melt_discr((melt_ptr_t)(/*_.MDATA__V3*/ meltfptr[2])) != NULL); - MELT_LOCATION("warmelt-normatch.melt:2942:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), 1, "LOCA_LOCATION");/*_.LOCA_LOCATION__V20*/ meltfptr[19] = slot; }; - ; - /*^cond*/ - /*cond*/ if (/*_.LOCA_LOCATION__V20*/ meltfptr[19]) /*then*/ { - /*^cond.then*/ - /*_.SLOC__V21*/ meltfptr[20] = /*_.LOCA_LOCATION__V20*/ meltfptr[19];; - } else {MELT_LOCATION("warmelt-normatch.melt:2942:/ cond.else"); - /*_.SLOC__V21*/ meltfptr[20] = /*_.PSLOC__V6*/ meltfptr[5];; - } - ; - MELT_LOCATION("warmelt-normatch.melt:2943:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), 2, "SPATVAR_SYMB");/*_.SYMB__V22*/ meltfptr[21] = slot; }; - ; - MELT_LOCATION("warmelt-normatch.melt:2944:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.MCASE__V4*/ meltfptr[3]), 1, "MCASE_MCTXT");/*_.MATCTX__V23*/ meltfptr[22] = slot; }; - ; - /*_.SYMBVAL__V24*/ meltfptr[23] = - melt_get_mapobjects((meltmapobjects_ptr_t)(/*_.VARMAP__V5*/ meltfptr[4]), (meltobject_ptr_t)(/*_.SYMB__V22*/ meltfptr[21]));; - MELT_LOCATION("warmelt-normatch.melt:2946:/ cond"); - /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.MATCTX__V23*/ meltfptr[22]), (melt_ptr_t)((/*!CLASS_MATCHING_CONTEXT*/ meltfrout->tabval[4])))) /*then*/ { - /*^cond.then*/ - /*^getslot*/ - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.MATCTX__V23*/ meltfptr[22]), 6, "MXCT_VARHANDLERS");/*_.MHANDLERS__V25*/ meltfptr[24] = slot; }; - ; - } else {/*^cond.else*/ + /*getarg#2*/ + /*^getarg*/ + if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; + /*_.MCASE__V4*/ meltfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; + gcc_assert(melt_discr((melt_ptr_t)(/*_.MCASE__V4*/ meltfptr[3])) != NULL); + + + /*getarg#3*/ + /*^getarg*/ + if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs; + /*_.VARMAP__V5*/ meltfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL; + gcc_assert(melt_discr((melt_ptr_t)(/*_.VARMAP__V5*/ meltfptr[4])) != NULL); + + + /*getarg#4*/ + /*^getarg*/ + if (xargdescr_[3] != BPAR_PTR) goto lab_endgetargs; + /*_.SLOC__V6*/ meltfptr[5] = (xargtab_[3].bp_aptr) ? (*(xargtab_[3].bp_aptr)) : NULL; + gcc_assert(melt_discr((melt_ptr_t)(/*_.SLOC__V6*/ meltfptr[5])) != NULL); - /*_.MHANDLERS__V25*/ meltfptr[24] = NULL;; - } - ; - MELT_LOCATION("warmelt-normatch.melt:2947:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.MDATA__V3*/ meltfptr[2]), 4, "MDATA_STEPS");/*_.STEPLIST__V26*/ meltfptr[25] = slot; }; ; + goto lab_endgetargs; +lab_endgetargs:; +/*body*/ +/*^block*/ +/*anyblock*/{ - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normatch.melt:2949:/ cppif.then"); - /*^block*/ - /*anyblock*/{ - - /*_#THE_MELTCALLCOUNT__L7*/ meltfnum[0] = - meltcallcount;; - MELT_LOCATION("warmelt-normatch.melt:2949:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - /*^apply.arg*/ - argtab[0].bp_cstring = "translpat_varpat symb"; - /*^apply.arg*/ - argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L7*/ meltfnum[0]; - /*^apply.arg*/ - argtab[2].bp_cstring = "warmelt-normatch.melt"; - /*^apply.arg*/ - argtab[3].bp_long = 2949; - /*_.DEBUG_MSG_FUN__V28*/ meltfptr[27] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.SYMB__V22*/ meltfptr[21]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V27*/ meltfptr[26] = /*_.DEBUG_MSG_FUN__V28*/ meltfptr[27];; - /*epilog*/ - - MELT_LOCATION("warmelt-normatch.melt:2949:/ clear"); - /*clear*/ /*_#THE_MELTCALLCOUNT__L7*/ meltfnum[0] = 0 ; - /*^clear*/ - /*clear*/ /*_.DEBUG_MSG_FUN__V28*/ meltfptr[27] = 0 ;} - - #else /*ENABLE_CHECKING*/ - /*^cppif.else*/ - /*_.IFCPP___V27*/ meltfptr[26] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normatch.melt:2950:/ cppif.then"); + MELT_LOCATION("warmelt-normatch.melt:2921:/ cppif.then"); /*^block*/ /*anyblock*/{ - /*_#THE_MELTCALLCOUNT__L8*/ meltfnum[0] = + /*_#THE_MELTCALLCOUNT__L1*/ meltfnum[0] = meltcallcount;; - MELT_LOCATION("warmelt-normatch.melt:2950:/ apply"); + MELT_LOCATION("warmelt-normatch.melt:2921:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_cstring = "translpat_varpat symbval"; + argtab[0].bp_cstring = "translpat_anyrecv recv"; /*^apply.arg*/ - argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L8*/ meltfnum[0]; + argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L1*/ meltfnum[0]; /*^apply.arg*/ argtab[2].bp_cstring = "warmelt-normatch.melt"; /*^apply.arg*/ - argtab[3].bp_long = 2950; - /*_.DEBUG_MSG_FUN__V30*/ meltfptr[29] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.SYMBVAL__V24*/ meltfptr[23]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + argtab[3].bp_long = 2921; + /*_.DEBUG_MSG_FUN__V8*/ meltfptr[7] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; - /*_.IFCPP___V29*/ meltfptr[27] = /*_.DEBUG_MSG_FUN__V30*/ meltfptr[29];; + /*_.IFCPP___V7*/ meltfptr[6] = /*_.DEBUG_MSG_FUN__V8*/ meltfptr[7];; /*epilog*/ - MELT_LOCATION("warmelt-normatch.melt:2950:/ clear"); - /*clear*/ /*_#THE_MELTCALLCOUNT__L8*/ meltfnum[0] = 0 ; + MELT_LOCATION("warmelt-normatch.melt:2921:/ clear"); + /*clear*/ /*_#THE_MELTCALLCOUNT__L1*/ meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_.DEBUG_MSG_FUN__V30*/ meltfptr[29] = 0 ;} + /*clear*/ /*_.DEBUG_MSG_FUN__V8*/ meltfptr[7] = 0 ;} #else /*ENABLE_CHECKING*/ /*^cppif.else*/ - /*_.IFCPP___V29*/ meltfptr[27] = (/*nil*/NULL); + /*_.IFCPP___V7*/ meltfptr[6] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - /*citerblock FOREACH_IN_LIST*/ { - /* start cit1__EACHLIST */ - for (/*_.CURPAIR__V31*/ meltfptr[29] = melt_list_first(/*_.MHANDLERS__V25*/ meltfptr[24]); - melt_magic_discr(/*_.CURPAIR__V31*/ meltfptr[29]) == OBMAG_PAIR; - /*_.CURPAIR__V31*/ meltfptr[29] = melt_pair_tail(/*_.CURPAIR__V31*/ meltfptr[29])) { - /*_.CURHANDLER__V32*/ meltfptr[31] = melt_pair_head(/*_.CURPAIR__V31*/ meltfptr[29]); - - - MELT_LOCATION("warmelt-normatch.melt:2954:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.MDATA__V3*/ meltfptr[2]; - /*^apply.arg*/ - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.MCASE__V4*/ meltfptr[3]; - /*^apply.arg*/ - argtab[2].bp_aptr = (melt_ptr_t*) &/*_.SYMBVAL__V24*/ meltfptr[23]; - /*^apply.arg*/ - argtab[3].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V21*/ meltfptr[20]; - /*_.CURHANDLER__V33*/ meltfptr[32] = melt_apply ((meltclosure_ptr_t)(/*_.CURHANDLER__V32*/ meltfptr[31]), (melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; - } /* end cit1__EACHLIST */ - /*citerepilog*/ - - MELT_LOCATION("warmelt-normatch.melt:2951:/ clear"); - /*clear*/ /*_.CURPAIR__V31*/ meltfptr[29] = 0 ; - /*^clear*/ - /*clear*/ /*_.CURHANDLER__V32*/ meltfptr[31] = 0 ; - /*^clear*/ - /*clear*/ /*_.CURHANDLER__V33*/ meltfptr[32] = 0 ;} /*endciterblock FOREACH_IN_LIST*/ - ; - /*_#NULL__L9*/ meltfnum[0] = - ((/*_.SYMBVAL__V24*/ meltfptr[23]) == NULL);; - MELT_LOCATION("warmelt-normatch.melt:2956:/ cond"); - /*cond*/ if (/*_#NULL__L9*/ meltfnum[0]) /*then*/ { - /*^cond.then*/ + #if ENABLE_CHECKING + MELT_LOCATION("warmelt-normatch.melt:2922:/ cppif.then"); /*^block*/ - /*anyblock*/{ - - - { - MELT_LOCATION("warmelt-normatch.melt:2957:/ locexp"); - meltgc_put_mapobjects( (meltmapobjects_ptr_t) (/*_.VARMAP__V5*/ meltfptr[4]), - (meltobject_ptr_t) (/*_.SYMB__V22*/ meltfptr[21]), - (melt_ptr_t)(/*_.MDATA__V3*/ meltfptr[2]));} - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normatch.melt:2958:/ cppif.then"); - /*^block*/ - /*anyblock*/{ - - /*_#THE_MELTCALLCOUNT__L10*/ meltfnum[9] = - meltcallcount;; - MELT_LOCATION("warmelt-normatch.melt:2958:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - /*^apply.arg*/ - argtab[0].bp_cstring = "translpat_varpat updated varmap"; - /*^apply.arg*/ - argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L10*/ meltfnum[9]; - /*^apply.arg*/ - argtab[2].bp_cstring = "warmelt-normatch.melt"; - /*^apply.arg*/ - argtab[3].bp_long = 2958; - /*_.DEBUG_MSG_FUN__V36*/ meltfptr[35] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.VARMAP__V5*/ meltfptr[4]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V35*/ meltfptr[34] = /*_.DEBUG_MSG_FUN__V36*/ meltfptr[35];; - /*epilog*/ - - MELT_LOCATION("warmelt-normatch.melt:2958:/ clear"); - /*clear*/ /*_#THE_MELTCALLCOUNT__L10*/ meltfnum[9] = 0 ; - /*^clear*/ - /*clear*/ /*_.DEBUG_MSG_FUN__V36*/ meltfptr[35] = 0 ;} - - #else /*ENABLE_CHECKING*/ - /*^cppif.else*/ - /*_.IFCPP___V35*/ meltfptr[34] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - /*citerblock FOREACH_IN_LIST*/ { - /* start cit2__EACHLIST */ - for (/*_.CURPAIR__V37*/ meltfptr[35] = melt_list_first(/*_.STEPLIST__V26*/ meltfptr[25]); - melt_magic_discr(/*_.CURPAIR__V37*/ meltfptr[35]) == OBMAG_PAIR; - /*_.CURPAIR__V37*/ meltfptr[35] = melt_pair_tail(/*_.CURPAIR__V37*/ meltfptr[35])) { - /*_.CURSETSTEP__V38*/ meltfptr[37] = melt_pair_head(/*_.CURPAIR__V37*/ meltfptr[35]); - - - /*_#IS_A__L11*/ meltfnum[9] = - melt_is_instance_of((melt_ptr_t)(/*_.CURSETSTEP__V38*/ meltfptr[37]), (melt_ptr_t)((/*!CLASS_MATCH_STEP_SET_VARIABLE*/ meltfrout->tabval[5])));; - MELT_LOCATION("warmelt-normatch.melt:2962:/ cond"); - /*cond*/ if (/*_#IS_A__L11*/ meltfnum[9]) /*then*/ { - /*^cond.then*/ - /*^block*/ - /*anyblock*/{ - - MELT_LOCATION("warmelt-normatch.melt:2963:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.CURSETSTEP__V38*/ meltfptr[37]), 4, "MSTEPSETVAR_SYMB");/*_.MSTEPSETVAR_SYMB__V39*/ meltfptr[38] = slot; }; - ; - /*_#__L13*/ meltfnum[12] = - ((/*_.MSTEPSETVAR_SYMB__V39*/ meltfptr[38]) == (/*_.SYMB__V22*/ meltfptr[21]));; - MELT_LOCATION("warmelt-normatch.melt:2962:/ cond"); - /*cond*/ if (/*_#__L13*/ meltfnum[12]) /*then*/ { - /*^cond.then*/ - /*^block*/ - /*anyblock*/{ - - MELT_LOCATION("warmelt-normatch.melt:2964:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.CURSETSTEP__V38*/ meltfptr[37]), 2, "MSTEP_DATA");/*_.MSTEP_DATA__V40*/ meltfptr[39] = slot; }; - ; - /*_#__L15*/ meltfnum[14] = - ((/*_.MSTEP_DATA__V40*/ meltfptr[39]) == (/*_.MDATA__V3*/ meltfptr[2]));; - /*^compute*/ - - /*_#IF___L14*/ meltfnum[13] = /*_#__L15*/ meltfnum[14];; - /*epilog*/ - - MELT_LOCATION("warmelt-normatch.melt:2962:/ clear"); - /*clear*/ /*_.MSTEP_DATA__V40*/ meltfptr[39] = 0 ; - /*^clear*/ - /*clear*/ /*_#__L15*/ meltfnum[14] = 0 ;} - ; - } else {/*^cond.else*/ - - /*_#IF___L14*/ meltfnum[13] = 0;; - } - ; - /*^compute*/ - - /*_#IF___L12*/ meltfnum[11] = /*_#IF___L14*/ meltfnum[13];; - /*epilog*/ - - MELT_LOCATION("warmelt-normatch.melt:2962:/ clear"); - /*clear*/ /*_.MSTEPSETVAR_SYMB__V39*/ meltfptr[38] = 0 ; - /*^clear*/ - /*clear*/ /*_#__L13*/ meltfnum[12] = 0 ; - /*^clear*/ - /*clear*/ /*_#IF___L14*/ meltfnum[13] = 0 ;} - ; - } else {/*^cond.else*/ - - /*_#IF___L12*/ meltfnum[11] = 0;; - } - ; - MELT_LOCATION("warmelt-normatch.melt:2962:/ cond"); - /*cond*/ if (/*_#IF___L12*/ meltfnum[11]) /*then*/ { - /*^cond.then*/ - /*^block*/ - /*anyblock*/{ - - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normatch.melt:2966:/ cppif.then"); - /*^block*/ - /*anyblock*/{ - - /*_#THE_MELTCALLCOUNT__L16*/ meltfnum[14] = - meltcallcount;; - MELT_LOCATION("warmelt-normatch.melt:2966:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - /*^apply.arg*/ - argtab[0].bp_cstring = "translpat_varpat found cursetstep"; - /*^apply.arg*/ - argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L16*/ meltfnum[14]; - /*^apply.arg*/ - argtab[2].bp_cstring = "warmelt-normatch.melt"; - /*^apply.arg*/ - argtab[3].bp_long = 2966; - /*_.DEBUG_MSG_FUN__V43*/ meltfptr[42] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.CURSETSTEP__V38*/ meltfptr[37]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V42*/ meltfptr[38] = /*_.DEBUG_MSG_FUN__V43*/ meltfptr[42];; - /*epilog*/ - - MELT_LOCATION("warmelt-normatch.melt:2966:/ clear"); - /*clear*/ /*_#THE_MELTCALLCOUNT__L16*/ meltfnum[14] = 0 ; - /*^clear*/ - /*clear*/ /*_.DEBUG_MSG_FUN__V43*/ meltfptr[42] = 0 ;} - - #else /*ENABLE_CHECKING*/ - /*^cppif.else*/ - /*_.IFCPP___V42*/ meltfptr[38] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - MELT_LOCATION("warmelt-normatch.melt:2967:/ quasiblock"); - - - /*_.RETVAL___V1*/ meltfptr[0] = /*_.CURSETSTEP__V38*/ meltfptr[37];; - MELT_LOCATION("warmelt-normatch.melt:2967:/ finalreturn"); - ; - /*finalret*/ goto labend_rout ; - MELT_LOCATION("warmelt-normatch.melt:2965:/ quasiblock"); - - - /*_.PROGN___V45*/ meltfptr[44] = /*_.RETURN___V44*/ meltfptr[42];; - /*^compute*/ - - /*_.IF___V41*/ meltfptr[39] = /*_.PROGN___V45*/ meltfptr[44];; - /*epilog*/ - - MELT_LOCATION("warmelt-normatch.melt:2962:/ clear"); - /*clear*/ /*_.IFCPP___V42*/ meltfptr[38] = 0 ; - /*^clear*/ - /*clear*/ /*_.RETURN___V44*/ meltfptr[42] = 0 ; - /*^clear*/ - /*clear*/ /*_.PROGN___V45*/ meltfptr[44] = 0 ;} - ; - } else {/*^cond.else*/ - - /*_.IF___V41*/ meltfptr[39] = NULL;; - } - ; - } /* end cit2__EACHLIST */ - - /*citerepilog*/ - - MELT_LOCATION("warmelt-normatch.melt:2959:/ clear"); - /*clear*/ /*_.CURPAIR__V37*/ meltfptr[35] = 0 ; - /*^clear*/ - /*clear*/ /*_.CURSETSTEP__V38*/ meltfptr[37] = 0 ; - /*^clear*/ - /*clear*/ /*_#IS_A__L11*/ meltfnum[9] = 0 ; - /*^clear*/ - /*clear*/ /*_#IF___L12*/ meltfnum[11] = 0 ; - /*^clear*/ - /*clear*/ /*_.IF___V41*/ meltfptr[39] = 0 ;} /*endciterblock FOREACH_IN_LIST*/ + /*anyblock*/{ + + /*_#THE_MELTCALLCOUNT__L2*/ meltfnum[0] = + meltcallcount;; + MELT_LOCATION("warmelt-normatch.melt:2922:/ apply"); + /*apply*/{ + union meltparam_un argtab[4]; + memset(&argtab, 0, sizeof(argtab)); + /*^apply.arg*/ + argtab[0].bp_cstring = "translpat_anyrecv mdata"; + /*^apply.arg*/ + argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L2*/ meltfnum[0]; + /*^apply.arg*/ + argtab[2].bp_cstring = "warmelt-normatch.melt"; + /*^apply.arg*/ + argtab[3].bp_long = 2922; + /*_.DEBUG_MSG_FUN__V10*/ meltfptr[9] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.MDATA__V3*/ meltfptr[2]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + } ; - MELT_LOCATION("warmelt-normatch.melt:2969:/ quasiblock"); + /*_.IFCPP___V9*/ meltfptr[7] = /*_.DEBUG_MSG_FUN__V10*/ meltfptr[9];; + /*epilog*/ + MELT_LOCATION("warmelt-normatch.melt:2922:/ clear"); + /*clear*/ /*_#THE_MELTCALLCOUNT__L2*/ meltfnum[0] = 0 ; + /*^clear*/ + /*clear*/ /*_.DEBUG_MSG_FUN__V10*/ meltfptr[9] = 0 ;} + + #else /*ENABLE_CHECKING*/ + /*^cppif.else*/ + /*_.IFCPP___V9*/ meltfptr[7] = (/*nil*/NULL); + #endif /*ENABLE_CHECKING*/ + ; + MELT_LOCATION("warmelt-normatch.melt:2923:/ quasiblock"); + + + /*_.DIS__V12*/ meltfptr[11] = + (melt_discr((melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1])));; + + #if ENABLE_CHECKING + MELT_LOCATION("warmelt-normatch.melt:2924:/ cppif.then"); + /*^block*/ + /*anyblock*/{ - /*^quasiblock*/ + /*_#THE_MELTCALLCOUNT__L3*/ meltfnum[0] = + meltcallcount;; + MELT_LOCATION("warmelt-normatch.melt:2924:/ apply"); + /*apply*/{ + union meltparam_un argtab[4]; + memset(&argtab, 0, sizeof(argtab)); + /*^apply.arg*/ + argtab[0].bp_cstring = "translpat_anyrecv dis"; + /*^apply.arg*/ + argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L3*/ meltfnum[0]; + /*^apply.arg*/ + argtab[2].bp_cstring = "warmelt-normatch.melt"; + /*^apply.arg*/ + argtab[3].bp_long = 2924; + /*_.DEBUG_MSG_FUN__V14*/ meltfptr[13] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.DIS__V12*/ meltfptr[11]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + } + ; + /*_.IFCPP___V13*/ meltfptr[12] = /*_.DEBUG_MSG_FUN__V14*/ meltfptr[13];; + /*epilog*/ + MELT_LOCATION("warmelt-normatch.melt:2924:/ clear"); + /*clear*/ /*_#THE_MELTCALLCOUNT__L3*/ meltfnum[0] = 0 ; + /*^clear*/ + /*clear*/ /*_.DEBUG_MSG_FUN__V14*/ meltfptr[13] = 0 ;} + + #else /*ENABLE_CHECKING*/ + /*^cppif.else*/ + /*_.IFCPP___V13*/ meltfptr[12] = (/*nil*/NULL); + #endif /*ENABLE_CHECKING*/ + ; + MELT_LOCATION("warmelt-normatch.melt:2925:/ getslot"); + { melt_ptr_t slot=0; + melt_object_get_field(slot,(melt_ptr_t)(/*_.DIS__V12*/ meltfptr[11]), 1, "NAMED_NAME");/*_.NAMED_NAME__V15*/ meltfptr[13] = slot; }; + ; + + { + /*^locexp*/ + melt_error_str((melt_ptr_t)(/*_.SLOC__V6*/ meltfptr[5]), ( "unexpected TRANSLATE_PATTERN for"), (melt_ptr_t)(/*_.NAMED_NAME__V15*/ meltfptr[13]));} + ; + + #if ENABLE_CHECKING + MELT_LOCATION("warmelt-normatch.melt:2926:/ cppif.then"); + /*^block*/ + /*anyblock*/{ - /*^rawallocobj*/ - /*rawallocobj*/ { melt_ptr_t newobj = 0; - melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_MATCH_STEP_SET_VARIABLE*/ meltfrout->tabval[5])), (5), "CLASS_MATCH_STEP_SET_VARIABLE");/*_.INST__V48*/ meltfptr[44] = - newobj; }; - ; - /*^putslot*/ - /*putslot*/ - melt_assertmsg("putslot checkobj @LOCA_LOCATION", melt_magic_discr((melt_ptr_t)(/*_.INST__V48*/ meltfptr[44])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V48*/ meltfptr[44]), (1), (/*_.SLOC__V21*/ meltfptr[20]), "LOCA_LOCATION"); - ; - /*^putslot*/ - /*putslot*/ - melt_assertmsg("putslot checkobj @MSTEP_DATA", melt_magic_discr((melt_ptr_t)(/*_.INST__V48*/ meltfptr[44])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V48*/ meltfptr[44]), (2), (/*_.MDATA__V3*/ meltfptr[2]), "MSTEP_DATA"); - ; - /*^putslot*/ - /*putslot*/ - melt_assertmsg("putslot checkobj @MSTEP_THEN", melt_magic_discr((melt_ptr_t)(/*_.INST__V48*/ meltfptr[44])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V48*/ meltfptr[44]), (3), ((/*nil*/NULL)), "MSTEP_THEN"); - ; - /*^putslot*/ - /*putslot*/ - melt_assertmsg("putslot checkobj @MSTEPSETVAR_SYMB", melt_magic_discr((melt_ptr_t)(/*_.INST__V48*/ meltfptr[44])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V48*/ meltfptr[44]), (4), (/*_.SYMB__V22*/ meltfptr[21]), "MSTEPSETVAR_SYMB"); - ; - /*_.STEPSET__V47*/ meltfptr[42] = /*_.INST__V48*/ meltfptr[44];; + /*^cond*/ + /*cond*/ if ((/*nil*/NULL)) /*then*/ { + /*^cond.then*/ + /*_.IFELSE___V17*/ meltfptr[16] = (/*nil*/NULL);; + } else {MELT_LOCATION("warmelt-normatch.melt:2926:/ cond.else"); - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normatch.melt:2976:/ cppif.then"); - /*^block*/ + /*^block*/ /*anyblock*/{ - /*_#THE_MELTCALLCOUNT__L17*/ meltfnum[12] = - meltcallcount;; - MELT_LOCATION("warmelt-normatch.melt:2976:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - /*^apply.arg*/ - argtab[0].bp_cstring = "translpat_varpat return stepset"; - /*^apply.arg*/ - argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L17*/ meltfnum[12]; - /*^apply.arg*/ - argtab[2].bp_cstring = "warmelt-normatch.melt"; - /*^apply.arg*/ - argtab[3].bp_long = 2976; - /*_.DEBUG_MSG_FUN__V50*/ meltfptr[49] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.STEPSET__V47*/ meltfptr[42]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } + + + + { + /*^locexp*/ + melt_assert_failed(( "@$@unexpected translpat_anyrecv"),( "warmelt-normatch.melt")?( "warmelt-normatch.melt"):__FILE__, + (2926)?(2926):__LINE__, __FUNCTION__); +;} ; - /*_.IFCPP___V49*/ meltfptr[48] = /*_.DEBUG_MSG_FUN__V50*/ meltfptr[49];; + /*clear*/ /*_.IFELSE___V17*/ meltfptr[16] = 0 ; /*epilog*/ - - MELT_LOCATION("warmelt-normatch.melt:2976:/ clear"); - /*clear*/ /*_#THE_MELTCALLCOUNT__L17*/ meltfnum[12] = 0 ; - /*^clear*/ - /*clear*/ /*_.DEBUG_MSG_FUN__V50*/ meltfptr[49] = 0 ;} - - #else /*ENABLE_CHECKING*/ - /*^cppif.else*/ - /*_.IFCPP___V49*/ meltfptr[48] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ + } ; - - { - MELT_LOCATION("warmelt-normatch.melt:2977:/ locexp"); - meltgc_append_list((melt_ptr_t)(/*_.STEPLIST__V26*/ meltfptr[25]), (melt_ptr_t)(/*_.STEPSET__V47*/ meltfptr[42]));} - ; - MELT_LOCATION("warmelt-normatch.melt:2978:/ quasiblock"); - - - /*_.RETVAL___V1*/ meltfptr[0] = /*_.STEPSET__V47*/ meltfptr[42];; - MELT_LOCATION("warmelt-normatch.melt:2978:/ finalreturn"); + } ; - /*finalret*/ goto labend_rout ; - /*_.LET___V46*/ meltfptr[38] = /*_.RETURN___V51*/ meltfptr[49];; - - MELT_LOCATION("warmelt-normatch.melt:2969:/ clear"); - /*clear*/ /*_.STEPSET__V47*/ meltfptr[42] = 0 ; - /*^clear*/ - /*clear*/ /*_.IFCPP___V49*/ meltfptr[48] = 0 ; - /*^clear*/ - /*clear*/ /*_.RETURN___V51*/ meltfptr[49] = 0 ; - MELT_LOCATION("warmelt-normatch.melt:2956:/ quasiblock"); - - - /*_.PROGN___V52*/ meltfptr[42] = /*_.LET___V46*/ meltfptr[38];; /*^compute*/ - /*_.IFELSE___V34*/ meltfptr[33] = /*_.PROGN___V52*/ meltfptr[42];; + /*_.IFCPP___V16*/ meltfptr[15] = /*_.IFELSE___V17*/ meltfptr[16];; /*epilog*/ - MELT_LOCATION("warmelt-normatch.melt:2956:/ clear"); - /*clear*/ /*_.IFCPP___V35*/ meltfptr[34] = 0 ; - /*^clear*/ - /*clear*/ /*_.LET___V46*/ meltfptr[38] = 0 ; - /*^clear*/ - /*clear*/ /*_.PROGN___V52*/ meltfptr[42] = 0 ;} + MELT_LOCATION("warmelt-normatch.melt:2926:/ clear"); + /*clear*/ /*_.IFELSE___V17*/ meltfptr[16] = 0 ;} + + #else /*ENABLE_CHECKING*/ + /*^cppif.else*/ + /*_.IFCPP___V16*/ meltfptr[15] = (/*nil*/NULL); + #endif /*ENABLE_CHECKING*/ ; - } else {/*^cond.else*/ + /*^compute*/ + + /*_.LET___V11*/ meltfptr[9] = /*_.IFCPP___V16*/ meltfptr[15];; + + MELT_LOCATION("warmelt-normatch.melt:2923:/ clear"); + /*clear*/ /*_.DIS__V12*/ meltfptr[11] = 0 ; + /*^clear*/ + /*clear*/ /*_.IFCPP___V13*/ meltfptr[12] = 0 ; + /*^clear*/ + /*clear*/ /*_.NAMED_NAME__V15*/ meltfptr[13] = 0 ; + /*^clear*/ + /*clear*/ /*_.IFCPP___V16*/ meltfptr[15] = 0 ; + MELT_LOCATION("warmelt-normatch.melt:2920:/ quasiblock"); + + + /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V11*/ meltfptr[9];; + MELT_LOCATION("warmelt-normatch.melt:2920:/ finalreturn"); + ; + /*finalret*/ goto labend_rout ; + /*epilog*/ + + /*^clear*/ + /*clear*/ /*_.IFCPP___V7*/ meltfptr[6] = 0 ; + /*^clear*/ + /*clear*/ /*_.IFCPP___V9*/ meltfptr[7] = 0 ; + /*^clear*/ + /*clear*/ /*_.LET___V11*/ meltfptr[9] = 0 ;} + +; + goto labend_rout; +labend_rout: +melt_trace_end("TRANSLPAT_ANYRECV", meltcallcount); melt_topframe = (struct callframe_melt_st*) meltfram__.prev; + return (melt_ptr_t)(/*_.RETVAL___V1*/ meltfptr[0]); +#undef meltcallcount +#undef meltfram__ +#undef MELTFRAM_NBVARNUM +#undef MELTFRAM_NBVARPTR +} /*end meltrout_65_warmelt_normatch_TRANSLPAT_ANYRECV*/ + + + + + +melt_ptr_t MELT_MODULE_VISIBILITY +meltrout_66_warmelt_normatch_TRANSLPAT_JOKERPAT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, + const char xresdescr_[], union meltparam_un *xrestab_) +{ +#if ENABLE_CHECKING + static long call_counter__; + long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; +#undef meltcallcount +#define meltcallcount thiscallcounter__ +#else +#undef meltcallcount +#define meltcallcount 0L +#endif + + struct frame_meltrout_66_warmelt_normatch_TRANSLPAT_JOKERPAT_st { unsigned nbvar; +#if ENABLE_CHECKING + const char* flocs; +#endif + struct meltclosure_st *clos; + struct excepth_melt_st *exh; + struct callframe_melt_st *prev; +#define MELTFRAM_NBVARPTR 11 + void* varptr[11]; +#define MELTFRAM_NBVARNUM 2 + long varnum[2]; +/*others*/ + long _spare_; } + *framptr_=0, meltframe; +#define meltfram__ meltframe + if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/ + int ix=0; + framptr_ = (void*)firstargp_; + gt_ggc_mx_melt_un (framptr_->clos); + for(ix=0; ix<11; ix++) + if (framptr_->varptr[ix]) + gt_ggc_mx_melt_un (framptr_->varptr[ix]); + return NULL; + }/*end markggc*/; + memset(&meltfram__, 0, sizeof(meltfram__)); + meltfram__.nbvar = 11; + meltfram__.clos = closp_; + meltfram__.prev = (struct callframe_melt_st *) melt_topframe; + melt_topframe = (struct callframe_melt_st *) &meltfram__; +melt_trace_start("TRANSLPAT_JOKERPAT", meltcallcount); +/*getargs*/ + + /*getarg#0*/ + MELT_LOCATION("warmelt-normatch.melt:2930:/ getarg"); + /*_.RECV__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; + + /*getarg#1*/ + /*^getarg*/ + if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; + /*_.MDATA__V3*/ meltfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; + gcc_assert(melt_discr((melt_ptr_t)(/*_.MDATA__V3*/ meltfptr[2])) != NULL); + + + /*getarg#2*/ + /*^getarg*/ + if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; + /*_.MCASE__V4*/ meltfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; + gcc_assert(melt_discr((melt_ptr_t)(/*_.MCASE__V4*/ meltfptr[3])) != NULL); + + + /*getarg#3*/ + /*^getarg*/ + if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs; + /*_.VARMAP__V5*/ meltfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL; + gcc_assert(melt_discr((melt_ptr_t)(/*_.VARMAP__V5*/ meltfptr[4])) != NULL); + + + /*getarg#4*/ + /*^getarg*/ + if (xargdescr_[3] != BPAR_PTR) goto lab_endgetargs; + /*_.SLOC__V6*/ meltfptr[5] = (xargtab_[3].bp_aptr) ? (*(xargtab_[3].bp_aptr)) : NULL; + gcc_assert(melt_discr((melt_ptr_t)(/*_.SLOC__V6*/ meltfptr[5])) != NULL); - /*^block*/ + ; + goto lab_endgetargs; +lab_endgetargs:; +/*body*/ +/*^block*/ +/*anyblock*/{ + + + #if ENABLE_CHECKING + MELT_LOCATION("warmelt-normatch.melt:2931:/ cppif.then"); + /*^block*/ /*anyblock*/{ + /*_#IS_A__L1*/ meltfnum[0] = + melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_PATTERN_JOKER_VARIABLE*/ meltfrout->tabval[0])));; + MELT_LOCATION("warmelt-normatch.melt:2931:/ cond"); + /*cond*/ if (/*_#IS_A__L1*/ meltfnum[0]) /*then*/ { + /*^cond.then*/ + /*_.IFELSE___V8*/ meltfptr[7] = (/*nil*/NULL);; + } else {MELT_LOCATION("warmelt-normatch.melt:2931:/ cond.else"); - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normatch.melt:2981:/ cppif.then"); - /*^block*/ + /*^block*/ /*anyblock*/{ - /*_#IS_A__L18*/ meltfnum[13] = - melt_is_instance_of((melt_ptr_t)(/*_.SYMBVAL__V24*/ meltfptr[23]), (melt_ptr_t)((/*!CLASS_MATCHED_DATA*/ meltfrout->tabval[2])));; - MELT_LOCATION("warmelt-normatch.melt:2981:/ cond"); - /*cond*/ if (/*_#IS_A__L18*/ meltfnum[13]) /*then*/ { - /*^cond.then*/ - /*_.IFELSE___V54*/ meltfptr[49] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normatch.melt:2981:/ cond.else"); - /*^block*/ - /*anyblock*/{ - - - - - { - /*^locexp*/ - melt_assert_failed(( "check symbval"),( "warmelt-normatch.melt")?( "warmelt-normatch.melt"):__FILE__, - (2981)?(2981):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V54*/ meltfptr[49] = 0 ; - /*epilog*/ - } - ; - } - ; - /*^compute*/ - - /*_.IFCPP___V53*/ meltfptr[48] = /*_.IFELSE___V54*/ meltfptr[49];; - /*epilog*/ - MELT_LOCATION("warmelt-normatch.melt:2981:/ clear"); - /*clear*/ /*_#IS_A__L18*/ meltfnum[13] = 0 ; - /*^clear*/ - /*clear*/ /*_.IFELSE___V54*/ meltfptr[49] = 0 ;} - - #else /*ENABLE_CHECKING*/ - /*^cppif.else*/ - /*_.IFCPP___V53*/ meltfptr[48] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - /*citerblock FOREACH_IN_LIST*/ { - /* start cit3__EACHLIST */ - for (/*_.CURPAIR__V55*/ meltfptr[34] = melt_list_first(/*_.STEPLIST__V26*/ meltfptr[25]); - melt_magic_discr(/*_.CURPAIR__V55*/ meltfptr[34]) == OBMAG_PAIR; - /*_.CURPAIR__V55*/ meltfptr[34] = melt_pair_tail(/*_.CURPAIR__V55*/ meltfptr[34])) { - /*_.CURTESTSTEP__V56*/ meltfptr[38] = melt_pair_head(/*_.CURPAIR__V55*/ meltfptr[34]); - - - /*_#IS_A__L19*/ meltfnum[14] = - melt_is_instance_of((melt_ptr_t)(/*_.CURTESTSTEP__V56*/ meltfptr[38]), (melt_ptr_t)((/*!CLASS_MATCH_STEP_TEST_VARIABLE*/ meltfrout->tabval[6])));; - MELT_LOCATION("warmelt-normatch.melt:2985:/ cond"); - /*cond*/ if (/*_#IS_A__L19*/ meltfnum[14]) /*then*/ { - /*^cond.then*/ - /*^block*/ - /*anyblock*/{ - - MELT_LOCATION("warmelt-normatch.melt:2986:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.CURTESTSTEP__V56*/ meltfptr[38]), 5, "MSTEPTESTVAR_SYMB");/*_.MSTEPTESTVAR_SYMB__V57*/ meltfptr[42] = slot; }; - ; - /*_#__L21*/ meltfnum[13] = - ((/*_.MSTEPTESTVAR_SYMB__V57*/ meltfptr[42]) == (/*_.SYMB__V22*/ meltfptr[21]));; - MELT_LOCATION("warmelt-normatch.melt:2985:/ cond"); - /*cond*/ if (/*_#__L21*/ meltfnum[13]) /*then*/ { - /*^cond.then*/ - /*^block*/ - /*anyblock*/{ - - MELT_LOCATION("warmelt-normatch.melt:2987:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.CURTESTSTEP__V56*/ meltfptr[38]), 2, "MSTEP_DATA");/*_.MSTEP_DATA__V58*/ meltfptr[49] = slot; }; - ; - /*_#__L23*/ meltfnum[22] = - ((/*_.MSTEP_DATA__V58*/ meltfptr[49]) == (/*_.MDATA__V3*/ meltfptr[2]));; - /*^compute*/ - - /*_#IF___L22*/ meltfnum[21] = /*_#__L23*/ meltfnum[22];; - /*epilog*/ - - MELT_LOCATION("warmelt-normatch.melt:2985:/ clear"); - /*clear*/ /*_.MSTEP_DATA__V58*/ meltfptr[49] = 0 ; - /*^clear*/ - /*clear*/ /*_#__L23*/ meltfnum[22] = 0 ;} - ; - } else {/*^cond.else*/ - - /*_#IF___L22*/ meltfnum[21] = 0;; - } - ; - /*^compute*/ - - /*_#IF___L20*/ meltfnum[12] = /*_#IF___L22*/ meltfnum[21];; - /*epilog*/ - - MELT_LOCATION("warmelt-normatch.melt:2985:/ clear"); - /*clear*/ /*_.MSTEPTESTVAR_SYMB__V57*/ meltfptr[42] = 0 ; - /*^clear*/ - /*clear*/ /*_#__L21*/ meltfnum[13] = 0 ; - /*^clear*/ - /*clear*/ /*_#IF___L22*/ meltfnum[21] = 0 ;} - ; - } else {/*^cond.else*/ - - /*_#IF___L20*/ meltfnum[12] = 0;; - } - ; - MELT_LOCATION("warmelt-normatch.melt:2985:/ cond"); - /*cond*/ if (/*_#IF___L20*/ meltfnum[12]) /*then*/ { - /*^cond.then*/ - /*^block*/ - /*anyblock*/{ - - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normatch.melt:2989:/ cppif.then"); - /*^block*/ - /*anyblock*/{ - - /*_#THE_MELTCALLCOUNT__L24*/ meltfnum[22] = - meltcallcount;; - MELT_LOCATION("warmelt-normatch.melt:2989:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - /*^apply.arg*/ - argtab[0].bp_cstring = "translpat_varpat found curteststep"; - /*^apply.arg*/ - argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L24*/ meltfnum[22]; - /*^apply.arg*/ - argtab[2].bp_cstring = "warmelt-normatch.melt"; - /*^apply.arg*/ - argtab[3].bp_long = 2989; - /*_.DEBUG_MSG_FUN__V61*/ meltfptr[60] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.CURTESTSTEP__V56*/ meltfptr[38]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V60*/ meltfptr[42] = /*_.DEBUG_MSG_FUN__V61*/ meltfptr[60];; - /*epilog*/ - - MELT_LOCATION("warmelt-normatch.melt:2989:/ clear"); - /*clear*/ /*_#THE_MELTCALLCOUNT__L24*/ meltfnum[22] = 0 ; - /*^clear*/ - /*clear*/ /*_.DEBUG_MSG_FUN__V61*/ meltfptr[60] = 0 ;} - - #else /*ENABLE_CHECKING*/ - /*^cppif.else*/ - /*_.IFCPP___V60*/ meltfptr[42] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - MELT_LOCATION("warmelt-normatch.melt:2990:/ quasiblock"); - - - /*_.RETVAL___V1*/ meltfptr[0] = /*_.CURTESTSTEP__V56*/ meltfptr[38];; - MELT_LOCATION("warmelt-normatch.melt:2990:/ finalreturn"); - ; - /*finalret*/ goto labend_rout ; - MELT_LOCATION("warmelt-normatch.melt:2988:/ quasiblock"); - - - /*_.PROGN___V63*/ meltfptr[62] = /*_.RETURN___V62*/ meltfptr[60];; - /*^compute*/ - - /*_.IF___V59*/ meltfptr[49] = /*_.PROGN___V63*/ meltfptr[62];; - /*epilog*/ - - MELT_LOCATION("warmelt-normatch.melt:2985:/ clear"); - /*clear*/ /*_.IFCPP___V60*/ meltfptr[42] = 0 ; - /*^clear*/ - /*clear*/ /*_.RETURN___V62*/ meltfptr[60] = 0 ; - /*^clear*/ - /*clear*/ /*_.PROGN___V63*/ meltfptr[62] = 0 ;} - ; - } else {/*^cond.else*/ - - /*_.IF___V59*/ meltfptr[49] = NULL;; - } - ; - } /* end cit3__EACHLIST */ - - /*citerepilog*/ - - MELT_LOCATION("warmelt-normatch.melt:2982:/ clear"); - /*clear*/ /*_.CURPAIR__V55*/ meltfptr[34] = 0 ; - /*^clear*/ - /*clear*/ /*_.CURTESTSTEP__V56*/ meltfptr[38] = 0 ; - /*^clear*/ - /*clear*/ /*_#IS_A__L19*/ meltfnum[14] = 0 ; - /*^clear*/ - /*clear*/ /*_#IF___L20*/ meltfnum[12] = 0 ; - /*^clear*/ - /*clear*/ /*_.IF___V59*/ meltfptr[49] = 0 ;} /*endciterblock FOREACH_IN_LIST*/ - ; - MELT_LOCATION("warmelt-normatch.melt:2992:/ quasiblock"); - - - /*^quasiblock*/ - - - /*^rawallocobj*/ - /*rawallocobj*/ { melt_ptr_t newobj = 0; - melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_MATCH_STEP_TEST_VARIABLE*/ meltfrout->tabval[6])), (6), "CLASS_MATCH_STEP_TEST_VARIABLE");/*_.INST__V66*/ meltfptr[62] = - newobj; }; - ; - /*^putslot*/ - /*putslot*/ - melt_assertmsg("putslot checkobj @LOCA_LOCATION", melt_magic_discr((melt_ptr_t)(/*_.INST__V66*/ meltfptr[62])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V66*/ meltfptr[62]), (1), (/*_.SLOC__V21*/ meltfptr[20]), "LOCA_LOCATION"); - ; - /*^putslot*/ - /*putslot*/ - melt_assertmsg("putslot checkobj @MSTEP_DATA", melt_magic_discr((melt_ptr_t)(/*_.INST__V66*/ meltfptr[62])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V66*/ meltfptr[62]), (2), (/*_.MDATA__V3*/ meltfptr[2]), "MSTEP_DATA"); - ; - /*^putslot*/ - /*putslot*/ - melt_assertmsg("putslot checkobj @MSTEP_THEN", melt_magic_discr((melt_ptr_t)(/*_.INST__V66*/ meltfptr[62])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V66*/ meltfptr[62]), (3), ((/*nil*/NULL)), "MSTEP_THEN"); - ; - /*^putslot*/ - /*putslot*/ - melt_assertmsg("putslot checkobj @MSTEPTESTVAR_SYMB", melt_magic_discr((melt_ptr_t)(/*_.INST__V66*/ meltfptr[62])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V66*/ meltfptr[62]), (5), (/*_.SYMB__V22*/ meltfptr[21]), "MSTEPTESTVAR_SYMB"); - ; - /*_.STEPTEST__V65*/ meltfptr[60] = /*_.INST__V66*/ meltfptr[62];; - - { - MELT_LOCATION("warmelt-normatch.melt:2999:/ locexp"); - meltgc_append_list((melt_ptr_t)(/*_.STEPLIST__V26*/ meltfptr[25]), (melt_ptr_t)(/*_.STEPTEST__V65*/ meltfptr[60]));} - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normatch.melt:3000:/ cppif.then"); - /*^block*/ - /*anyblock*/{ - /*_#THE_MELTCALLCOUNT__L25*/ meltfnum[13] = - meltcallcount;; - MELT_LOCATION("warmelt-normatch.melt:3000:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - /*^apply.arg*/ - argtab[0].bp_cstring = "translpat_varpat return steptest"; - /*^apply.arg*/ - argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L25*/ meltfnum[13]; - /*^apply.arg*/ - argtab[2].bp_cstring = "warmelt-normatch.melt"; - /*^apply.arg*/ - argtab[3].bp_long = 3000; - /*_.DEBUG_MSG_FUN__V68*/ meltfptr[67] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.STEPTEST__V65*/ meltfptr[60]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } + { + /*^locexp*/ + melt_assert_failed(( "check recv"),( "warmelt-normatch.melt")?( "warmelt-normatch.melt"):__FILE__, + (2931)?(2931):__LINE__, __FUNCTION__); +;} ; - /*_.IFCPP___V67*/ meltfptr[66] = /*_.DEBUG_MSG_FUN__V68*/ meltfptr[67];; + /*clear*/ /*_.IFELSE___V8*/ meltfptr[7] = 0 ; /*epilog*/ - - MELT_LOCATION("warmelt-normatch.melt:3000:/ clear"); - /*clear*/ /*_#THE_MELTCALLCOUNT__L25*/ meltfnum[13] = 0 ; - /*^clear*/ - /*clear*/ /*_.DEBUG_MSG_FUN__V68*/ meltfptr[67] = 0 ;} - - #else /*ENABLE_CHECKING*/ - /*^cppif.else*/ - /*_.IFCPP___V67*/ meltfptr[66] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ + } ; - MELT_LOCATION("warmelt-normatch.melt:3001:/ quasiblock"); - - - /*_.RETVAL___V1*/ meltfptr[0] = /*_.STEPTEST__V65*/ meltfptr[60];; - MELT_LOCATION("warmelt-normatch.melt:3001:/ finalreturn"); + } ; - /*finalret*/ goto labend_rout ; - /*_.LET___V64*/ meltfptr[42] = /*_.RETURN___V69*/ meltfptr[67];; - - MELT_LOCATION("warmelt-normatch.melt:2992:/ clear"); - /*clear*/ /*_.STEPTEST__V65*/ meltfptr[60] = 0 ; - /*^clear*/ - /*clear*/ /*_.IFCPP___V67*/ meltfptr[66] = 0 ; - /*^clear*/ - /*clear*/ /*_.RETURN___V69*/ meltfptr[67] = 0 ; - MELT_LOCATION("warmelt-normatch.melt:2980:/ quasiblock"); - - - /*_.PROGN___V70*/ meltfptr[60] = /*_.LET___V64*/ meltfptr[42];; /*^compute*/ - /*_.IFELSE___V34*/ meltfptr[33] = /*_.PROGN___V70*/ meltfptr[60];; + /*_.IFCPP___V7*/ meltfptr[6] = /*_.IFELSE___V8*/ meltfptr[7];; /*epilog*/ - MELT_LOCATION("warmelt-normatch.melt:2956:/ clear"); - /*clear*/ /*_.IFCPP___V53*/ meltfptr[48] = 0 ; + MELT_LOCATION("warmelt-normatch.melt:2931:/ clear"); + /*clear*/ /*_#IS_A__L1*/ meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V64*/ meltfptr[42] = 0 ; + /*clear*/ /*_.IFELSE___V8*/ meltfptr[7] = 0 ;} + + #else /*ENABLE_CHECKING*/ + /*^cppif.else*/ + /*_.IFCPP___V7*/ meltfptr[6] = (/*nil*/NULL); + #endif /*ENABLE_CHECKING*/ + ; + + #if ENABLE_CHECKING + MELT_LOCATION("warmelt-normatch.melt:2932:/ cppif.then"); + /*^block*/ + /*anyblock*/{ + + /*_#THE_MELTCALLCOUNT__L2*/ meltfnum[0] = + meltcallcount;; + MELT_LOCATION("warmelt-normatch.melt:2932:/ apply"); + /*apply*/{ + union meltparam_un argtab[4]; + memset(&argtab, 0, sizeof(argtab)); + /*^apply.arg*/ + argtab[0].bp_cstring = "translpat_jokerpat recv"; + /*^apply.arg*/ + argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L2*/ meltfnum[0]; + /*^apply.arg*/ + argtab[2].bp_cstring = "warmelt-normatch.melt"; + /*^apply.arg*/ + argtab[3].bp_long = 2932; + /*_.DEBUG_MSG_FUN__V10*/ meltfptr[9] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + } + ; + /*_.IFCPP___V9*/ meltfptr[7] = /*_.DEBUG_MSG_FUN__V10*/ meltfptr[9];; + /*epilog*/ + + MELT_LOCATION("warmelt-normatch.melt:2932:/ clear"); + /*clear*/ /*_#THE_MELTCALLCOUNT__L2*/ meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_.PROGN___V70*/ meltfptr[60] = 0 ;} + /*clear*/ /*_.DEBUG_MSG_FUN__V10*/ meltfptr[9] = 0 ;} + + #else /*ENABLE_CHECKING*/ + /*^cppif.else*/ + /*_.IFCPP___V9*/ meltfptr[7] = (/*nil*/NULL); + #endif /*ENABLE_CHECKING*/ ; - } - ; - /*_.LET___V19*/ meltfptr[17] = /*_.IFELSE___V34*/ meltfptr[33];; + MELT_LOCATION("warmelt-normatch.melt:2933:/ quasiblock"); - MELT_LOCATION("warmelt-normatch.melt:2941:/ clear"); - /*clear*/ /*_.LOCA_LOCATION__V20*/ meltfptr[19] = 0 ; - /*^clear*/ - /*clear*/ /*_.SLOC__V21*/ meltfptr[20] = 0 ; - /*^clear*/ - /*clear*/ /*_.SYMB__V22*/ meltfptr[21] = 0 ; - /*^clear*/ - /*clear*/ /*_.MATCTX__V23*/ meltfptr[22] = 0 ; - /*^clear*/ - /*clear*/ /*_.SYMBVAL__V24*/ meltfptr[23] = 0 ; - /*^clear*/ - /*clear*/ /*_.MHANDLERS__V25*/ meltfptr[24] = 0 ; - /*^clear*/ - /*clear*/ /*_.STEPLIST__V26*/ meltfptr[25] = 0 ; - /*^clear*/ - /*clear*/ /*_.IFCPP___V27*/ meltfptr[26] = 0 ; - /*^clear*/ - /*clear*/ /*_.IFCPP___V29*/ meltfptr[27] = 0 ; - /*^clear*/ - /*clear*/ /*_#NULL__L9*/ meltfnum[0] = 0 ; - /*^clear*/ - /*clear*/ /*_.IFELSE___V34*/ meltfptr[33] = 0 ; - MELT_LOCATION("warmelt-normatch.melt:2934:/ quasiblock"); + + /*_.RETVAL___V1*/ meltfptr[0] = NULL;; + MELT_LOCATION("warmelt-normatch.melt:2933:/ finalreturn"); + ; + /*finalret*/ goto labend_rout ; + MELT_LOCATION("warmelt-normatch.melt:2930:/ quasiblock"); - /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V19*/ meltfptr[17];; - MELT_LOCATION("warmelt-normatch.melt:2934:/ finalreturn"); + /*_.RETVAL___V1*/ meltfptr[0] = /*_.RETURN___V11*/ meltfptr[9];; + MELT_LOCATION("warmelt-normatch.melt:2930:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*epilog*/ @@ -26601,26 +25416,18 @@ lab_endgetargs:; /*^clear*/ /*clear*/ /*_.IFCPP___V9*/ meltfptr[7] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V11*/ meltfptr[9] = 0 ; - /*^clear*/ - /*clear*/ /*_.IFCPP___V13*/ meltfptr[11] = 0 ; - /*^clear*/ - /*clear*/ /*_.IFCPP___V15*/ meltfptr[13] = 0 ; - /*^clear*/ - /*clear*/ /*_.IFCPP___V17*/ meltfptr[15] = 0 ; - /*^clear*/ - /*clear*/ /*_.LET___V19*/ meltfptr[17] = 0 ;} + /*clear*/ /*_.RETURN___V11*/ meltfptr[9] = 0 ;} ; goto labend_rout; labend_rout: -melt_trace_end("TRANSLPAT_VARPAT", meltcallcount); melt_topframe = (struct callframe_melt_st*) meltfram__.prev; +melt_trace_end("TRANSLPAT_JOKERPAT", meltcallcount); melt_topframe = (struct callframe_melt_st*) meltfram__.prev; return (melt_ptr_t)(/*_.RETVAL___V1*/ meltfptr[0]); #undef meltcallcount #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR -} /*end meltrout_66_warmelt_normatch_TRANSLPAT_VARPAT*/ +} /*end meltrout_66_warmelt_normatch_TRANSLPAT_JOKERPAT*/ diff --git a/gcc/melt/generated/warmelt-normatch.0+02.c b/gcc/melt/generated/warmelt-normatch.0+02.c index 5aa74c67265..c6ae3f457a4 100644 --- a/gcc/melt/generated/warmelt-normatch.0+02.c +++ b/gcc/melt/generated/warmelt-normatch.0+02.c @@ -259,187 +259,187 @@ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_46_warmelt_normatch_NORMBIND_MATCHBIN -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_47_warmelt_normatch_SCANSUBPAT_ANYRECV(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_47_warmelt_normatch_MAKE_MATCH_FLAG(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_48_warmelt_normatch_SCANSUBPAT_NOOP(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_48_warmelt_normatch_SCANSUBPAT_ANYRECV(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_49_warmelt_normatch_SCANSUBPAT_OR(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_49_warmelt_normatch_SCANSUBPAT_NOOP(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_50_warmelt_normatch_SCANSUBPAT_AND(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_50_warmelt_normatch_SCANSUBPAT_OR(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_51_warmelt_normatch_SCANSUBPAT_CONSTRUCT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_51_warmelt_normatch_SCANSUBPAT_AND(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_52_warmelt_normatch_SCANSUBPAT_OBJECT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_52_warmelt_normatch_SCANSUBPAT_CONSTRUCT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_53_warmelt_normatch_SCANSUBPAT_COMPOSITE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_53_warmelt_normatch_SCANSUBPAT_OBJECT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_54_warmelt_normatch_FILL_MATCHCASE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_54_warmelt_normatch_SCANSUBPAT_COMPOSITE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_55_warmelt_normatch_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_55_warmelt_normatch_FILL_MATCHCASE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_56_warmelt_normatch_START_STEP(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_56_warmelt_normatch_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_57_warmelt_normatch_PUTTHEN_MATCHTHEN(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_57_warmelt_normatch_START_STEP(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_58_warmelt_normatch_PUTTHEN_MATCHGROUP(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_58_warmelt_normatch_PUTTHEN_MATCHTHEN(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_59_warmelt_normatch_PUTELSE_MATCHTEST(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_59_warmelt_normatch_PUTTHEN_MATCHGROUP(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_60_warmelt_normatch_PUTELSE_MATCHGROUP(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_60_warmelt_normatch_PUTELSE_MATCHSTEPTHEN(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_61_warmelt_normatch_SCANSTEP_TESTINS(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_61_warmelt_normatch_PUTELSE_MATCHTEST(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_62_warmelt_normatch_SCANSTEP_TESTMATCHER(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_62_warmelt_normatch_PUTELSE_MATCHGROUP(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_63_warmelt_normatch_TRANSLPAT_ANYRECV(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_63_warmelt_normatch_SCANSTEP_TESTINS(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_64_warmelt_normatch_TRANSLPAT_JOKERPAT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_64_warmelt_normatch_SCANSTEP_TESTMATCHER(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_65_warmelt_normatch_TRANSLPAT_INSPAT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_65_warmelt_normatch_TRANSLPAT_ANYRECV(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_66_warmelt_normatch_TRANSLPAT_VARPAT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_66_warmelt_normatch_TRANSLPAT_JOKERPAT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_67_warmelt_normatch_TRANSLPAT_ANDPAT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_67_warmelt_normatch_TRANSLPAT_INSPAT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_68_warmelt_normatch_TRANSLPAT_ORPAT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_68_warmelt_normatch_TRANSLPAT_VARPAT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_69_warmelt_normatch_TRANSLPAT_PATMAT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_69_warmelt_normatch_TRANSLPAT_ANDPAT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_70_warmelt_normatch_MGALTSTEP_STEPSETVAR(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_70_warmelt_normatch_TRANSLPAT_ORPAT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_71_warmelt_normatch_MGALTSTEP_STEPTESTVAR(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_71_warmelt_normatch_TRANSLPAT_PATMAT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_72_warmelt_normatch_MGALTSTEP_STEPTESTINST(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_72_warmelt_normatch_MGALTSTEP_STEPTESTVAR(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_73_warmelt_normatch_MGALTSTEP_STEPTESTGROUP(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_73_warmelt_normatch_MGALTSTEP_STEPTESTINST(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_74_warmelt_normatch_MGALTSTEP_STEPTESTMATCHER(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_74_warmelt_normatch_MGALTSTEP_STEPTESTGROUP(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_75_warmelt_normatch_MGALTSTEP_STEPSUCCESS(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_75_warmelt_normatch_MGALTSTEP_STEPTESTMATCHER(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_76_warmelt_normatch_TRANSLATE_MATCHCASE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_76_warmelt_normatch_MGALTSTEP_STEPSUCCESS(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_77_warmelt_normatch_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_77_warmelt_normatch_MGALTSTEP_STEPFLAGSET(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_78_warmelt_normatch_NORMEXP_ALTMATCH(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_78_warmelt_normatch_MGALTSTEP_STEPFLAGOPER(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_79_warmelt_normatch_ALTERNATE_MATCH_OPTSET(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_79_warmelt_normatch_TRANSLATE_MATCHCASE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_80_warmelt_normatch_MG_ALTDRAW_GRAPHVIZ(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_80_warmelt_normatch_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_81_warmelt_normatch_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_81_warmelt_normatch_NORMEXP_ALTMATCH(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_82_warmelt_normatch_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_82_warmelt_normatch_ALTERNATE_MATCH_OPTSET(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_83_warmelt_normatch_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_83_warmelt_normatch_MG_ALTDRAW_GRAPHVIZ(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); @@ -447,6 +447,21 @@ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_83_warmelt_normatch_LAMBDA_(meltclosu melt_ptr_t MELT_MODULE_VISIBILITY meltrout_84_warmelt_normatch_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); + + +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_85_warmelt_normatch_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); + + + + +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_86_warmelt_normatch_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); + + + + +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_87_warmelt_normatch_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); + + void* start_module_melt(void*); void mark_module_melt(void*); void* initial_frame_melt; @@ -461,6 +476,7 @@ void MELT_MODULE_VISIBILITY warmelt_normatch_initialmeltchunk_5 (struct frame_st void MELT_MODULE_VISIBILITY warmelt_normatch_initialmeltchunk_6 (struct frame_start_module_melt_st*, char*); void MELT_MODULE_VISIBILITY warmelt_normatch_initialmeltchunk_7 (struct frame_start_module_melt_st*, char*); void MELT_MODULE_VISIBILITY warmelt_normatch_initialmeltchunk_8 (struct frame_start_module_melt_st*, char*); +void MELT_MODULE_VISIBILITY warmelt_normatch_initialmeltchunk_9 (struct frame_start_module_melt_st*, char*); /**** warmelt-normatch.0+02.c implementations ****/ @@ -469,7 +485,7 @@ void MELT_MODULE_VISIBILITY warmelt_normatch_initialmeltchunk_8 (struct frame_st melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_67_warmelt_normatch_TRANSLPAT_ANDPAT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, +meltrout_67_warmelt_normatch_TRANSLPAT_INSPAT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_) { #if ENABLE_CHECKING @@ -482,17 +498,17 @@ meltrout_67_warmelt_normatch_TRANSLPAT_ANDPAT(meltclosure_ptr_t closp_, melt_ptr #define meltcallcount 0L #endif - struct frame_meltrout_67_warmelt_normatch_TRANSLPAT_ANDPAT_st { unsigned nbvar; + struct frame_meltrout_67_warmelt_normatch_TRANSLPAT_INSPAT_st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct meltclosure_st *clos; struct excepth_melt_st *exh; struct callframe_melt_st *prev; -#define MELTFRAM_NBVARPTR 23 - void* varptr[23]; -#define MELTFRAM_NBVARNUM 6 - long varnum[6]; +#define MELTFRAM_NBVARPTR 130 + void* varptr[130]; +#define MELTFRAM_NBVARNUM 35 + long varnum[35]; /*others*/ long _spare_; } *framptr_=0, meltframe; @@ -501,21 +517,21 @@ meltrout_67_warmelt_normatch_TRANSLPAT_ANDPAT(meltclosure_ptr_t closp_, melt_ptr int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_melt_un (framptr_->clos); - for(ix=0; ix<23; ix++) + for(ix=0; ix<130; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_melt_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&meltfram__, 0, sizeof(meltfram__)); - meltfram__.nbvar = 23; + meltfram__.nbvar = 130; meltfram__.clos = closp_; meltfram__.prev = (struct callframe_melt_st *) melt_topframe; melt_topframe = (struct callframe_melt_st *) &meltfram__; -melt_trace_start("TRANSLPAT_ANDPAT", meltcallcount); +melt_trace_start("TRANSLPAT_INSPAT", meltcallcount); /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-normatch.melt:3010:/ getarg"); + MELT_LOCATION("warmelt-normatch.melt:2940:/ getarg"); /*_.RECV__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; /*getarg#1*/ @@ -554,31 +570,31 @@ lab_endgetargs:; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normatch.melt:3011:/ cppif.then"); + MELT_LOCATION("warmelt-normatch.melt:2941:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L1*/ meltfnum[0] = meltcallcount;; - MELT_LOCATION("warmelt-normatch.melt:3011:/ apply"); + MELT_LOCATION("warmelt-normatch.melt:2941:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_cstring = "translpat_andpat recv"; + argtab[0].bp_cstring = "translpat_inspat recv"; /*^apply.arg*/ argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L1*/ meltfnum[0]; /*^apply.arg*/ argtab[2].bp_cstring = "warmelt-normatch.melt"; /*^apply.arg*/ - argtab[3].bp_long = 3011; + argtab[3].bp_long = 2941; /*_.DEBUG_MSG_FUN__V8*/ meltfptr[7] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V7*/ meltfptr[6] = /*_.DEBUG_MSG_FUN__V8*/ meltfptr[7];; /*epilog*/ - MELT_LOCATION("warmelt-normatch.melt:3011:/ clear"); + MELT_LOCATION("warmelt-normatch.melt:2941:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L1*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V8*/ meltfptr[7] = 0 ;} @@ -590,17 +606,17 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normatch.melt:3012:/ cppif.then"); + MELT_LOCATION("warmelt-normatch.melt:2942:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L2*/ meltfnum[0] = - melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_PATTERN_AND*/ meltfrout->tabval[1])));; - MELT_LOCATION("warmelt-normatch.melt:3012:/ cond"); + melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_PATTERN_INSTANCE*/ meltfrout->tabval[1])));; + MELT_LOCATION("warmelt-normatch.melt:2942:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V10*/ meltfptr[9] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normatch.melt:3012:/ cond.else"); + } else {MELT_LOCATION("warmelt-normatch.melt:2942:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -611,7 +627,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check recv"),( "warmelt-normatch.melt")?( "warmelt-normatch.melt"):__FILE__, - (3012)?(3012):__LINE__, __FUNCTION__); + (2942)?(2942):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V10*/ meltfptr[9] = 0 ; @@ -625,7 +641,7 @@ lab_endgetargs:; /*_.IFCPP___V9*/ meltfptr[7] = /*_.IFELSE___V10*/ meltfptr[9];; /*epilog*/ - MELT_LOCATION("warmelt-normatch.melt:3012:/ clear"); + MELT_LOCATION("warmelt-normatch.melt:2942:/ clear"); /*clear*/ /*_#IS_A__L2*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V10*/ meltfptr[9] = 0 ;} @@ -637,31 +653,31 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normatch.melt:3013:/ cppif.then"); + MELT_LOCATION("warmelt-normatch.melt:2943:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L3*/ meltfnum[0] = meltcallcount;; - MELT_LOCATION("warmelt-normatch.melt:3013:/ apply"); + MELT_LOCATION("warmelt-normatch.melt:2943:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_cstring = "translpat_andpat mdata"; + argtab[0].bp_cstring = "translpat_inspat mdata"; /*^apply.arg*/ argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L3*/ meltfnum[0]; /*^apply.arg*/ argtab[2].bp_cstring = "warmelt-normatch.melt"; /*^apply.arg*/ - argtab[3].bp_long = 3013; + argtab[3].bp_long = 2943; /*_.DEBUG_MSG_FUN__V12*/ meltfptr[11] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.MDATA__V3*/ meltfptr[2]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V11*/ meltfptr[9] = /*_.DEBUG_MSG_FUN__V12*/ meltfptr[11];; /*epilog*/ - MELT_LOCATION("warmelt-normatch.melt:3013:/ clear"); + MELT_LOCATION("warmelt-normatch.melt:2943:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L3*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V12*/ meltfptr[11] = 0 ;} @@ -673,17 +689,17 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normatch.melt:3014:/ cppif.then"); + MELT_LOCATION("warmelt-normatch.melt:2944:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L4*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.MDATA__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_MATCHED_DATA*/ meltfrout->tabval[2])));; - MELT_LOCATION("warmelt-normatch.melt:3014:/ cond"); + MELT_LOCATION("warmelt-normatch.melt:2944:/ cond"); /*cond*/ if (/*_#IS_A__L4*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V14*/ meltfptr[13] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normatch.melt:3014:/ cond.else"); + } else {MELT_LOCATION("warmelt-normatch.melt:2944:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -694,7 +710,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check mdata"),( "warmelt-normatch.melt")?( "warmelt-normatch.melt"):__FILE__, - (3014)?(3014):__LINE__, __FUNCTION__); + (2944)?(2944):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V14*/ meltfptr[13] = 0 ; @@ -708,7 +724,7 @@ lab_endgetargs:; /*_.IFCPP___V13*/ meltfptr[11] = /*_.IFELSE___V14*/ meltfptr[13];; /*epilog*/ - MELT_LOCATION("warmelt-normatch.melt:3014:/ clear"); + MELT_LOCATION("warmelt-normatch.melt:2944:/ clear"); /*clear*/ /*_#IS_A__L4*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V14*/ meltfptr[13] = 0 ;} @@ -720,31 +736,31 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normatch.melt:3015:/ cppif.then"); + MELT_LOCATION("warmelt-normatch.melt:2945:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L5*/ meltfnum[0] = meltcallcount;; - MELT_LOCATION("warmelt-normatch.melt:3015:/ apply"); + MELT_LOCATION("warmelt-normatch.melt:2945:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_cstring = "translpat_andpat mcase"; + argtab[0].bp_cstring = "translpat_inspat mcase"; /*^apply.arg*/ argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L5*/ meltfnum[0]; /*^apply.arg*/ argtab[2].bp_cstring = "warmelt-normatch.melt"; /*^apply.arg*/ - argtab[3].bp_long = 3015; + argtab[3].bp_long = 2945; /*_.DEBUG_MSG_FUN__V16*/ meltfptr[15] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.MCASE__V4*/ meltfptr[3]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V15*/ meltfptr[13] = /*_.DEBUG_MSG_FUN__V16*/ meltfptr[15];; /*epilog*/ - MELT_LOCATION("warmelt-normatch.melt:3015:/ clear"); + MELT_LOCATION("warmelt-normatch.melt:2945:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L5*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V16*/ meltfptr[15] = 0 ;} @@ -756,17 +772,17 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normatch.melt:3016:/ cppif.then"); + MELT_LOCATION("warmelt-normatch.melt:2946:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L6*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.MCASE__V4*/ meltfptr[3]), (melt_ptr_t)((/*!CLASS_MATCH_CASE*/ meltfrout->tabval[3])));; - MELT_LOCATION("warmelt-normatch.melt:3016:/ cond"); + MELT_LOCATION("warmelt-normatch.melt:2946:/ cond"); /*cond*/ if (/*_#IS_A__L6*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V18*/ meltfptr[17] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normatch.melt:3016:/ cond.else"); + } else {MELT_LOCATION("warmelt-normatch.melt:2946:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -777,7 +793,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check mcase"),( "warmelt-normatch.melt")?( "warmelt-normatch.melt"):__FILE__, - (3016)?(3016):__LINE__, __FUNCTION__); + (2946)?(2946):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V18*/ meltfptr[17] = 0 ; @@ -791,7 +807,7 @@ lab_endgetargs:; /*_.IFCPP___V17*/ meltfptr[15] = /*_.IFELSE___V18*/ meltfptr[17];; /*epilog*/ - MELT_LOCATION("warmelt-normatch.melt:3016:/ clear"); + MELT_LOCATION("warmelt-normatch.melt:2946:/ clear"); /*clear*/ /*_#IS_A__L6*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V18*/ meltfptr[17] = 0 ;} @@ -801,38 +817,47 @@ lab_endgetargs:; /*_.IFCPP___V17*/ meltfptr[15] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-normatch.melt:3017:/ quasiblock"); + MELT_LOCATION("warmelt-normatch.melt:2947:/ quasiblock"); - MELT_LOCATION("warmelt-normatch.melt:3018:/ getslot"); + MELT_LOCATION("warmelt-normatch.melt:2948:/ getslot"); { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), 1, "LOCA_LOCATION");/*_.LOCA_LOCATION__V20*/ meltfptr[19] = slot; }; + melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), 2, "SPAT_CLASS");/*_.PCLASS__V20*/ meltfptr[19] = slot; }; + ; + MELT_LOCATION("warmelt-normatch.melt:2949:/ getslot"); + { melt_ptr_t slot=0; + melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), 3, "SPAT_FIELDS");/*_.PFIELDS__V21*/ meltfptr[20] = slot; }; + ; + MELT_LOCATION("warmelt-normatch.melt:2950:/ getslot"); + { melt_ptr_t slot=0; + melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), 1, "LOCA_LOCATION");/*_.LOCA_LOCATION__V22*/ meltfptr[21] = slot; }; ; /*^cond*/ - /*cond*/ if (/*_.LOCA_LOCATION__V20*/ meltfptr[19]) /*then*/ { + /*cond*/ if (/*_.LOCA_LOCATION__V22*/ meltfptr[21]) /*then*/ { /*^cond.then*/ - /*_.SLOC__V21*/ meltfptr[20] = /*_.LOCA_LOCATION__V20*/ meltfptr[19];; - } else {MELT_LOCATION("warmelt-normatch.melt:3018:/ cond.else"); + /*_.SLOC__V23*/ meltfptr[22] = /*_.LOCA_LOCATION__V22*/ meltfptr[21];; + } else {MELT_LOCATION("warmelt-normatch.melt:2950:/ cond.else"); - /*_.SLOC__V21*/ meltfptr[20] = /*_.PSLOC__V6*/ meltfptr[5];; + /*_.SLOC__V23*/ meltfptr[22] = /*_.PSLOC__V6*/ meltfptr[5];; } ; - - { - MELT_LOCATION("warmelt-normatch.melt:3020:/ locexp"); - melt_error_str((melt_ptr_t)(/*_.SLOC__V21*/ meltfptr[20]), ( "unimplementation translpat_andpat"), (melt_ptr_t)0);} + MELT_LOCATION("warmelt-normatch.melt:2951:/ getslot"); + { melt_ptr_t slot=0; + melt_object_get_field(slot,(melt_ptr_t)(/*_.MCASE__V4*/ meltfptr[3]), 1, "MCASE_MCTXT");/*_.MCTXT__V24*/ meltfptr[23] = slot; }; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normatch.melt:3021:/ cppif.then"); + MELT_LOCATION("warmelt-normatch.melt:2953:/ cppif.then"); /*^block*/ /*anyblock*/{ - /*^cond*/ - /*cond*/ if ((/*nil*/NULL)) /*then*/ { + /*_#IS_A__L7*/ meltfnum[0] = + melt_is_instance_of((melt_ptr_t)(/*_.PCLASS__V20*/ meltfptr[19]), (melt_ptr_t)((/*!CLASS_CLASS*/ meltfrout->tabval[4])));; + MELT_LOCATION("warmelt-normatch.melt:2953:/ cond"); + /*cond*/ if (/*_#IS_A__L7*/ meltfnum[0]) /*then*/ { /*^cond.then*/ - /*_.IFELSE___V23*/ meltfptr[22] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normatch.melt:3021:/ cond.else"); + /*_.IFELSE___V26*/ meltfptr[25] = (/*nil*/NULL);; + } else {MELT_LOCATION("warmelt-normatch.melt:2953:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -842,11 +867,11 @@ lab_endgetargs:; { /*^locexp*/ - melt_assert_failed(( "@$@unimplemented translpat_andpat"),( "warmelt-normatch.melt")?( "warmelt-normatch.melt"):__FILE__, - (3021)?(3021):__LINE__, __FUNCTION__); + melt_assert_failed(( "check pclass"),( "warmelt-normatch.melt")?( "warmelt-normatch.melt"):__FILE__, + (2953)?(2953):__LINE__, __FUNCTION__); ;} ; - /*clear*/ /*_.IFELSE___V23*/ meltfptr[22] = 0 ; + /*clear*/ /*_.IFELSE___V26*/ meltfptr[25] = 0 ; /*epilog*/ } ; @@ -854,431 +879,734 @@ lab_endgetargs:; ; /*^compute*/ - /*_.IFCPP___V22*/ meltfptr[21] = /*_.IFELSE___V23*/ meltfptr[22];; + /*_.IFCPP___V25*/ meltfptr[24] = /*_.IFELSE___V26*/ meltfptr[25];; /*epilog*/ - MELT_LOCATION("warmelt-normatch.melt:3021:/ clear"); - /*clear*/ /*_.IFELSE___V23*/ meltfptr[22] = 0 ;} + MELT_LOCATION("warmelt-normatch.melt:2953:/ clear"); + /*clear*/ /*_#IS_A__L7*/ meltfnum[0] = 0 ; + /*^clear*/ + /*clear*/ /*_.IFELSE___V26*/ meltfptr[25] = 0 ;} #else /*ENABLE_CHECKING*/ /*^cppif.else*/ - /*_.IFCPP___V22*/ meltfptr[21] = (/*nil*/NULL); + /*_.IFCPP___V25*/ meltfptr[24] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - /*^compute*/ - - /*_.LET___V19*/ meltfptr[17] = /*_.IFCPP___V22*/ meltfptr[21];; - - MELT_LOCATION("warmelt-normatch.melt:3017:/ clear"); - /*clear*/ /*_.LOCA_LOCATION__V20*/ meltfptr[19] = 0 ; - /*^clear*/ - /*clear*/ /*_.SLOC__V21*/ meltfptr[20] = 0 ; - /*^clear*/ - /*clear*/ /*_.IFCPP___V22*/ meltfptr[21] = 0 ; - MELT_LOCATION("warmelt-normatch.melt:3010:/ quasiblock"); + MELT_LOCATION("warmelt-normatch.melt:2954:/ quasiblock"); - /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V19*/ meltfptr[17];; - MELT_LOCATION("warmelt-normatch.melt:3010:/ finalreturn"); + /*^getslot*/ + { melt_ptr_t slot=0; + melt_object_get_field(slot,(melt_ptr_t)(/*_.PCLASS__V20*/ meltfptr[19]), 6, "CLASS_FIELDS");/*_.CLASS_FIELDS__V28*/ meltfptr[27] = slot; }; ; - /*finalret*/ goto labend_rout ; - /*epilog*/ - - /*^clear*/ - /*clear*/ /*_.IFCPP___V7*/ meltfptr[6] = 0 ; - /*^clear*/ - /*clear*/ /*_.IFCPP___V9*/ meltfptr[7] = 0 ; - /*^clear*/ - /*clear*/ /*_.IFCPP___V11*/ meltfptr[9] = 0 ; - /*^clear*/ - /*clear*/ /*_.IFCPP___V13*/ meltfptr[11] = 0 ; - /*^clear*/ - /*clear*/ /*_.IFCPP___V15*/ meltfptr[13] = 0 ; - /*^clear*/ - /*clear*/ /*_.IFCPP___V17*/ meltfptr[15] = 0 ; - /*^clear*/ - /*clear*/ /*_.LET___V19*/ meltfptr[17] = 0 ;} - -; - goto labend_rout; -labend_rout: -melt_trace_end("TRANSLPAT_ANDPAT", meltcallcount); melt_topframe = (struct callframe_melt_st*) meltfram__.prev; - return (melt_ptr_t)(/*_.RETVAL___V1*/ meltfptr[0]); -#undef meltcallcount -#undef meltfram__ -#undef MELTFRAM_NBVARNUM -#undef MELTFRAM_NBVARPTR -} /*end meltrout_67_warmelt_normatch_TRANSLPAT_ANDPAT*/ - - - - - -melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_68_warmelt_normatch_TRANSLPAT_ORPAT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, - const char xresdescr_[], union meltparam_un *xrestab_) -{ -#if ENABLE_CHECKING - static long call_counter__; - long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; -#undef meltcallcount -#define meltcallcount thiscallcounter__ -#else -#undef meltcallcount -#define meltcallcount 0L -#endif - - struct frame_meltrout_68_warmelt_normatch_TRANSLPAT_ORPAT_st { unsigned nbvar; -#if ENABLE_CHECKING - const char* flocs; -#endif - struct meltclosure_st *clos; - struct excepth_melt_st *exh; - struct callframe_melt_st *prev; -#define MELTFRAM_NBVARPTR 23 - void* varptr[23]; -#define MELTFRAM_NBVARNUM 6 - long varnum[6]; -/*others*/ - long _spare_; } - *framptr_=0, meltframe; -#define meltfram__ meltframe - if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/ - int ix=0; - framptr_ = (void*)firstargp_; - gt_ggc_mx_melt_un (framptr_->clos); - for(ix=0; ix<23; ix++) - if (framptr_->varptr[ix]) - gt_ggc_mx_melt_un (framptr_->varptr[ix]); - return NULL; - }/*end markggc*/; - memset(&meltfram__, 0, sizeof(meltfram__)); - meltfram__.nbvar = 23; - meltfram__.clos = closp_; - meltfram__.prev = (struct callframe_melt_st *) melt_topframe; - melt_topframe = (struct callframe_melt_st *) &meltfram__; -melt_trace_start("TRANSLPAT_ORPAT", meltcallcount); -/*getargs*/ - - /*getarg#0*/ - MELT_LOCATION("warmelt-normatch.melt:3028:/ getarg"); - /*_.RECV__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; - - /*getarg#1*/ - /*^getarg*/ - if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; - /*_.MDATA__V3*/ meltfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.MDATA__V3*/ meltfptr[2])) != NULL); - - - /*getarg#2*/ - /*^getarg*/ - if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; - /*_.MCASE__V4*/ meltfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.MCASE__V4*/ meltfptr[3])) != NULL); - - - /*getarg#3*/ - /*^getarg*/ - if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs; - /*_.VARMAP__V5*/ meltfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.VARMAP__V5*/ meltfptr[4])) != NULL); - - - /*getarg#4*/ - /*^getarg*/ - if (xargdescr_[3] != BPAR_PTR) goto lab_endgetargs; - /*_.PSLOC__V6*/ meltfptr[5] = (xargtab_[3].bp_aptr) ? (*(xargtab_[3].bp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.PSLOC__V6*/ meltfptr[5])) != NULL); + /*_#NBFIELDS__L8*/ meltfnum[0] = + (melt_multiple_length((melt_ptr_t)(/*_.CLASS_FIELDS__V28*/ meltfptr[27])));; + MELT_LOCATION("warmelt-normatch.melt:2955:/ cond"); + /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.PCLASS__V20*/ meltfptr[19]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[6])))) /*then*/ { + /*^cond.then*/ + /*^getslot*/ + { melt_ptr_t slot=0; + melt_object_get_field(slot,(melt_ptr_t)(/*_.PCLASS__V20*/ meltfptr[19]), 1, "NAMED_NAME");/*_.NAMED_NAME__V29*/ meltfptr[28] = slot; }; + ; + } else {/*^cond.else*/ + /*_.NAMED_NAME__V29*/ meltfptr[28] = NULL;; + } ; - goto lab_endgetargs; -lab_endgetargs:; -/*body*/ -/*^block*/ -/*anyblock*/{ - - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normatch.melt:3029:/ cppif.then"); - /*^block*/ - /*anyblock*/{ - - /*_#THE_MELTCALLCOUNT__L1*/ meltfnum[0] = - meltcallcount;; - MELT_LOCATION("warmelt-normatch.melt:3029:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - /*^apply.arg*/ - argtab[0].bp_cstring = "translpat_orpat recv"; - /*^apply.arg*/ - argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L1*/ meltfnum[0]; - /*^apply.arg*/ - argtab[2].bp_cstring = "warmelt-normatch.melt"; - /*^apply.arg*/ - argtab[3].bp_long = 3029; - /*_.DEBUG_MSG_FUN__V8*/ meltfptr[7] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V7*/ meltfptr[6] = /*_.DEBUG_MSG_FUN__V8*/ meltfptr[7];; - /*epilog*/ + MELT_LOCATION("warmelt-normatch.melt:2955:/ apply"); + /*apply*/{ + union meltparam_un argtab[2]; + memset(&argtab, 0, sizeof(argtab)); + /*^apply.arg*/ + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.MCTXT__V24*/ meltfptr[23]; + /*^apply.arg*/ + argtab[1].bp_aptr = (melt_ptr_t*) &/*_.NAMED_NAME__V29*/ meltfptr[28]; + /*_.MFLAG__V30*/ meltfptr[29] = melt_apply ((meltclosure_ptr_t)((/*!MAKE_MATCH_FLAG*/ meltfrout->tabval[5])), (melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + } + ; + /*citerblock FOREACH_IN_MULTIPLE*/ { + /* start cit1__EACHTUP: */ + long cit1__EACHTUP_ln = melt_multiple_length((melt_ptr_t)/*_.PFIELDS__V21*/ meltfptr[20]); + for (/*_#PIX__L9*/ meltfnum[8] = 0; + (/*_#PIX__L9*/ meltfnum[8] >= 0) && (/*_#PIX__L9*/ meltfnum[8] < cit1__EACHTUP_ln); + /*_#PIX__L9*/ meltfnum[8]++) { + /*_.CURPFLD__V31*/ meltfptr[30] = melt_multiple_nth((melt_ptr_t)(/*_.PFIELDS__V21*/ meltfptr[20]), /*_#PIX__L9*/ meltfnum[8]); - MELT_LOCATION("warmelt-normatch.melt:3029:/ clear"); - /*clear*/ /*_#THE_MELTCALLCOUNT__L1*/ meltfnum[0] = 0 ; - /*^clear*/ - /*clear*/ /*_.DEBUG_MSG_FUN__V8*/ meltfptr[7] = 0 ;} - - #else /*ENABLE_CHECKING*/ - /*^cppif.else*/ - /*_.IFCPP___V7*/ meltfptr[6] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normatch.melt:3030:/ cppif.then"); - /*^block*/ - /*anyblock*/{ - - /*_#IS_A__L2*/ meltfnum[0] = - melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_PATTERN_OR*/ meltfrout->tabval[1])));; - MELT_LOCATION("warmelt-normatch.melt:3030:/ cond"); - /*cond*/ if (/*_#IS_A__L2*/ meltfnum[0]) /*then*/ { - /*^cond.then*/ - /*_.IFELSE___V10*/ meltfptr[9] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normatch.melt:3030:/ cond.else"); - - /*^block*/ - /*anyblock*/{ - - - - - { - /*^locexp*/ - melt_assert_failed(( "check recv"),( "warmelt-normatch.melt")?( "warmelt-normatch.melt"):__FILE__, - (3030)?(3030):__LINE__, __FUNCTION__); + + + #if ENABLE_CHECKING + MELT_LOCATION("warmelt-normatch.melt:2961:/ cppif.then"); + /*^block*/ + /*anyblock*/{ + + /*_#IS_A__L10*/ meltfnum[9] = + melt_is_instance_of((melt_ptr_t)(/*_.CURPFLD__V31*/ meltfptr[30]), (melt_ptr_t)((/*!CLASS_SOURCE_FIELD_PATTERN*/ meltfrout->tabval[7])));; + MELT_LOCATION("warmelt-normatch.melt:2961:/ cond"); + /*cond*/ if (/*_#IS_A__L10*/ meltfnum[9]) /*then*/ { + /*^cond.then*/ + /*_.IFELSE___V33*/ meltfptr[32] = (/*nil*/NULL);; + } else {MELT_LOCATION("warmelt-normatch.melt:2961:/ cond.else"); + + /*^block*/ + /*anyblock*/{ + + + + + { + /*^locexp*/ + melt_assert_failed(( "check curpfld"),( "warmelt-normatch.melt")?( "warmelt-normatch.melt"):__FILE__, + (2961)?(2961):__LINE__, __FUNCTION__); ;} + ; + /*clear*/ /*_.IFELSE___V33*/ meltfptr[32] = 0 ; + /*epilog*/ + } ; - /*clear*/ /*_.IFELSE___V10*/ meltfptr[9] = 0 ; - /*epilog*/ } ; - } - ; - /*^compute*/ + /*^compute*/ - /*_.IFCPP___V9*/ meltfptr[7] = /*_.IFELSE___V10*/ meltfptr[9];; - /*epilog*/ + /*_.IFCPP___V32*/ meltfptr[31] = /*_.IFELSE___V33*/ meltfptr[32];; + /*epilog*/ + + MELT_LOCATION("warmelt-normatch.melt:2961:/ clear"); + /*clear*/ /*_#IS_A__L10*/ meltfnum[9] = 0 ; + /*^clear*/ + /*clear*/ /*_.IFELSE___V33*/ meltfptr[32] = 0 ;} - MELT_LOCATION("warmelt-normatch.melt:3030:/ clear"); - /*clear*/ /*_#IS_A__L2*/ meltfnum[0] = 0 ; - /*^clear*/ - /*clear*/ /*_.IFELSE___V10*/ meltfptr[9] = 0 ;} + #else /*ENABLE_CHECKING*/ + /*^cppif.else*/ + /*_.IFCPP___V32*/ meltfptr[31] = (/*nil*/NULL); + #endif /*ENABLE_CHECKING*/ + ; + MELT_LOCATION("warmelt-normatch.melt:2962:/ quasiblock"); - #else /*ENABLE_CHECKING*/ - /*^cppif.else*/ - /*_.IFCPP___V9*/ meltfptr[7] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ + + /*^getslot*/ + { melt_ptr_t slot=0; + melt_object_get_field(slot,(melt_ptr_t)(/*_.CURPFLD__V31*/ meltfptr[30]), 1, "LOCA_LOCATION");/*_.LOCA_LOCATION__V35*/ meltfptr[34] = slot; }; + ; + /*^cond*/ + /*cond*/ if (/*_.LOCA_LOCATION__V35*/ meltfptr[34]) /*then*/ { + /*^cond.then*/ + /*_.FSLOC__V36*/ meltfptr[35] = /*_.LOCA_LOCATION__V35*/ meltfptr[34];; + } else {MELT_LOCATION("warmelt-normatch.melt:2962:/ cond.else"); + + /*_.FSLOC__V36*/ meltfptr[35] = /*_.SLOC__V23*/ meltfptr[22];; + } + ; + MELT_LOCATION("warmelt-normatch.melt:2963:/ getslot"); + { melt_ptr_t slot=0; + melt_object_get_field(slot,(melt_ptr_t)(/*_.CURPFLD__V31*/ meltfptr[30]), 2, "SPAF_FIELD");/*_.CURFLD__V37*/ meltfptr[36] = slot; }; + ; + MELT_LOCATION("warmelt-normatch.melt:2964:/ cond"); + /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURFLD__V37*/ meltfptr[36]), (melt_ptr_t)((/*!CLASS_FIELD*/ meltfrout->tabval[8])))) /*then*/ { + /*^cond.then*/ + /*^getslot*/ + { melt_ptr_t slot=0; + melt_object_get_field(slot,(melt_ptr_t)(/*_.CURFLD__V37*/ meltfptr[36]), 2, "FLD_OWNCLASS");/*_.FLCLA__V38*/ meltfptr[37] = slot; }; + ; + } else {/*^cond.else*/ + + /*_.FLCLA__V38*/ meltfptr[37] = NULL;; + } + ; + + #if ENABLE_CHECKING + MELT_LOCATION("warmelt-normatch.melt:2966:/ cppif.then"); + /*^block*/ + /*anyblock*/{ + + /*_#IS_A__L11*/ meltfnum[9] = + melt_is_instance_of((melt_ptr_t)(/*_.CURFLD__V37*/ meltfptr[36]), (melt_ptr_t)((/*!CLASS_FIELD*/ meltfrout->tabval[8])));; + MELT_LOCATION("warmelt-normatch.melt:2966:/ cond"); + /*cond*/ if (/*_#IS_A__L11*/ meltfnum[9]) /*then*/ { + /*^cond.then*/ + /*_.IFELSE___V40*/ meltfptr[39] = (/*nil*/NULL);; + } else {MELT_LOCATION("warmelt-normatch.melt:2966:/ cond.else"); + + /*^block*/ + /*anyblock*/{ + + + + + { + /*^locexp*/ + melt_assert_failed(( "check curfld"),( "warmelt-normatch.melt")?( "warmelt-normatch.melt"):__FILE__, + (2966)?(2966):__LINE__, __FUNCTION__); +;} + ; + /*clear*/ /*_.IFELSE___V40*/ meltfptr[39] = 0 ; + /*epilog*/ + } + ; + } + ; + /*^compute*/ + + /*_.IFCPP___V39*/ meltfptr[38] = /*_.IFELSE___V40*/ meltfptr[39];; + /*epilog*/ + + MELT_LOCATION("warmelt-normatch.melt:2966:/ clear"); + /*clear*/ /*_#IS_A__L11*/ meltfnum[9] = 0 ; + /*^clear*/ + /*clear*/ /*_.IFELSE___V40*/ meltfptr[39] = 0 ;} + + #else /*ENABLE_CHECKING*/ + /*^cppif.else*/ + /*_.IFCPP___V39*/ meltfptr[38] = (/*nil*/NULL); + #endif /*ENABLE_CHECKING*/ + ; + /*^compute*/ + + /*_#SUBCLASS_OR_EQ__L12*/ meltfnum[9] = + ((/*_.PCLASS__V20*/ meltfptr[19] == /*_.FLCLA__V38*/ meltfptr[37]) || melt_is_subclass_of((meltobject_ptr_t)(/*_.PCLASS__V20*/ meltfptr[19]), (meltobject_ptr_t)(/*_.FLCLA__V38*/ meltfptr[37])));; + /*^compute*/ + + /*_#NOT__L13*/ meltfnum[12] = + (!(/*_#SUBCLASS_OR_EQ__L12*/ meltfnum[9]));; + MELT_LOCATION("warmelt-normatch.melt:2967:/ cond"); + /*cond*/ if (/*_#NOT__L13*/ meltfnum[12]) /*then*/ { + /*^cond.then*/ + /*^block*/ + /*anyblock*/{ + + MELT_LOCATION("warmelt-normatch.melt:2969:/ getslot"); + { melt_ptr_t slot=0; + melt_object_get_field(slot,(melt_ptr_t)(/*_.CURFLD__V37*/ meltfptr[36]), 1, "NAMED_NAME");/*_.NAMED_NAME__V42*/ meltfptr[41] = slot; }; + ; + + { + MELT_LOCATION("warmelt-normatch.melt:2968:/ locexp"); + melt_error_str((melt_ptr_t)(/*_.SLOC__V23*/ meltfptr[22]), ( "bad field in object pattern"), (melt_ptr_t)(/*_.NAMED_NAME__V42*/ meltfptr[41]));} + ; + MELT_LOCATION("warmelt-normatch.melt:2970:/ cond"); + /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.PCLASS__V20*/ meltfptr[19]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[6])))) /*then*/ { + /*^cond.then*/ + /*^getslot*/ + { melt_ptr_t slot=0; + melt_object_get_field(slot,(melt_ptr_t)(/*_.PCLASS__V20*/ meltfptr[19]), 1, "NAMED_NAME");/*_.NAMED_NAME__V43*/ meltfptr[42] = slot; }; + ; + } else {/*^cond.else*/ + + /*_.NAMED_NAME__V43*/ meltfptr[42] = NULL;; + } + ; + + { + MELT_LOCATION("warmelt-normatch.melt:2970:/ locexp"); + melt_inform_str((melt_ptr_t)(/*_.SLOC__V23*/ meltfptr[22]), ( "class in pattern is"), (melt_ptr_t)(/*_.NAMED_NAME__V43*/ meltfptr[42]));} + ; + MELT_LOCATION("warmelt-normatch.melt:2971:/ cond"); + /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.FLCLA__V38*/ meltfptr[37]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[6])))) /*then*/ { + /*^cond.then*/ + /*^getslot*/ + { melt_ptr_t slot=0; + melt_object_get_field(slot,(melt_ptr_t)(/*_.FLCLA__V38*/ meltfptr[37]), 1, "NAMED_NAME");/*_.NAMED_NAME__V44*/ meltfptr[43] = slot; }; + ; + } else {/*^cond.else*/ + + /*_.NAMED_NAME__V44*/ meltfptr[43] = NULL;; + } + ; + + { + MELT_LOCATION("warmelt-normatch.melt:2971:/ locexp"); + melt_inform_str((melt_ptr_t)(/*_.SLOC__V23*/ meltfptr[22]), ( "class of field is"), (melt_ptr_t)(/*_.NAMED_NAME__V44*/ meltfptr[43]));} + ; + MELT_LOCATION("warmelt-normatch.melt:2972:/ quasiblock"); + + + /*_.RETVAL___V1*/ meltfptr[0] = NULL;; + MELT_LOCATION("warmelt-normatch.melt:2972:/ finalreturn"); + ; + /*finalret*/ goto labend_rout ; + MELT_LOCATION("warmelt-normatch.melt:2967:/ quasiblock"); + + + /*_.PROGN___V46*/ meltfptr[45] = /*_.RETURN___V45*/ meltfptr[44];; + /*^compute*/ + + /*_.IFELSE___V41*/ meltfptr[39] = /*_.PROGN___V46*/ meltfptr[45];; + /*epilog*/ + + MELT_LOCATION("warmelt-normatch.melt:2967:/ clear"); + /*clear*/ /*_.NAMED_NAME__V42*/ meltfptr[41] = 0 ; + /*^clear*/ + /*clear*/ /*_.NAMED_NAME__V43*/ meltfptr[42] = 0 ; + /*^clear*/ + /*clear*/ /*_.NAMED_NAME__V44*/ meltfptr[43] = 0 ; + /*^clear*/ + /*clear*/ /*_.RETURN___V45*/ meltfptr[44] = 0 ; + /*^clear*/ + /*clear*/ /*_.PROGN___V46*/ meltfptr[45] = 0 ;} + ; + } else {/*^cond.else*/ + + /*_.IFELSE___V41*/ meltfptr[39] = NULL;; + } + ; + /*^compute*/ + + /*_.LET___V34*/ meltfptr[32] = /*_.IFELSE___V41*/ meltfptr[39];; + + MELT_LOCATION("warmelt-normatch.melt:2962:/ clear"); + /*clear*/ /*_.LOCA_LOCATION__V35*/ meltfptr[34] = 0 ; + /*^clear*/ + /*clear*/ /*_.FSLOC__V36*/ meltfptr[35] = 0 ; + /*^clear*/ + /*clear*/ /*_.CURFLD__V37*/ meltfptr[36] = 0 ; + /*^clear*/ + /*clear*/ /*_.FLCLA__V38*/ meltfptr[37] = 0 ; + /*^clear*/ + /*clear*/ /*_.IFCPP___V39*/ meltfptr[38] = 0 ; + /*^clear*/ + /*clear*/ /*_#SUBCLASS_OR_EQ__L12*/ meltfnum[9] = 0 ; + /*^clear*/ + /*clear*/ /*_#NOT__L13*/ meltfnum[12] = 0 ; + /*^clear*/ + /*clear*/ /*_.IFELSE___V41*/ meltfptr[39] = 0 ; + if (/*_#PIX__L9*/ meltfnum[8]<0) break; + } /* end cit1__EACHTUP */ + + /*citerepilog*/ + + MELT_LOCATION("warmelt-normatch.melt:2958:/ clear"); + /*clear*/ /*_.CURPFLD__V31*/ meltfptr[30] = 0 ; + /*^clear*/ + /*clear*/ /*_#PIX__L9*/ meltfnum[8] = 0 ; + /*^clear*/ + /*clear*/ /*_.IFCPP___V32*/ meltfptr[31] = 0 ; + /*^clear*/ + /*clear*/ /*_.LET___V34*/ meltfptr[32] = 0 ;} /*endciterblock FOREACH_IN_MULTIPLE*/ + ; + MELT_LOCATION("warmelt-normatch.melt:2976:/ quasiblock"); + + + /*_.ISTEP__V48*/ meltfptr[42] = (/*nil*/NULL);; + /*^compute*/ + + /*_.LASTSTEPTEST__V49*/ meltfptr[43] = (/*nil*/NULL);; + MELT_LOCATION("warmelt-normatch.melt:2978:/ getslot"); + { melt_ptr_t slot=0; + melt_object_get_field(slot,(melt_ptr_t)(/*_.MDATA__V3*/ meltfptr[2]), 4, "MDATA_STEPS");/*_.STEPLIST__V50*/ meltfptr[44] = slot; }; + ; + /*citerblock FOREACH_IN_LIST*/ { + /* start cit2__EACHLIST */ + for (/*_.CURPAIR__V51*/ meltfptr[45] = melt_list_first(/*_.STEPLIST__V50*/ meltfptr[44]); + melt_magic_discr(/*_.CURPAIR__V51*/ meltfptr[45]) == OBMAG_PAIR; + /*_.CURPAIR__V51*/ meltfptr[45] = melt_pair_tail(/*_.CURPAIR__V51*/ meltfptr[45])) { + /*_.CURSTEP__V52*/ meltfptr[34] = melt_pair_head(/*_.CURPAIR__V51*/ meltfptr[45]); + + + /*_#IS_A__L14*/ meltfnum[9] = + melt_is_instance_of((melt_ptr_t)(/*_.CURSTEP__V52*/ meltfptr[34]), (melt_ptr_t)((/*!CLASS_MATCH_STEP_TEST_INSTANCE*/ meltfrout->tabval[9])));; + MELT_LOCATION("warmelt-normatch.melt:2984:/ cond"); + /*cond*/ if (/*_#IS_A__L14*/ meltfnum[9]) /*then*/ { + /*^cond.then*/ + /*^block*/ + /*anyblock*/{ + + MELT_LOCATION("warmelt-normatch.melt:2985:/ getslot"); + { melt_ptr_t slot=0; + melt_object_get_field(slot,(melt_ptr_t)(/*_.CURSTEP__V52*/ meltfptr[34]), 5, "MSTINS_CLASS");/*_.MSTINS_CLASS__V53*/ meltfptr[35] = slot; }; + ; + /*_#__L16*/ meltfnum[15] = + ((/*_.MSTINS_CLASS__V53*/ meltfptr[35]) == (/*_.PCLASS__V20*/ meltfptr[19]));; + /*^compute*/ + + /*_#IF___L15*/ meltfnum[12] = /*_#__L16*/ meltfnum[15];; + /*epilog*/ + + MELT_LOCATION("warmelt-normatch.melt:2984:/ clear"); + /*clear*/ /*_.MSTINS_CLASS__V53*/ meltfptr[35] = 0 ; + /*^clear*/ + /*clear*/ /*_#__L16*/ meltfnum[15] = 0 ;} + ; + } else {/*^cond.else*/ + + /*_#IF___L15*/ meltfnum[12] = 0;; + } + ; + MELT_LOCATION("warmelt-normatch.melt:2984:/ cond"); + /*cond*/ if (/*_#IF___L15*/ meltfnum[12]) /*then*/ { + /*^cond.then*/ + /*^block*/ + /*anyblock*/{ + + MELT_LOCATION("warmelt-normatch.melt:2986:/ compute"); + /*_.CURPAIR__V51*/ meltfptr[45] = /*_.SETQ___V55*/ meltfptr[37] = (/*nil*/NULL);; + MELT_LOCATION("warmelt-normatch.melt:2987:/ compute"); + /*_.ISTEP__V48*/ meltfptr[42] = /*_.SETQ___V56*/ meltfptr[38] = /*_.CURSTEP__V52*/ meltfptr[34];; + MELT_LOCATION("warmelt-normatch.melt:2984:/ quasiblock"); + + + /*_.PROGN___V57*/ meltfptr[39] = /*_.SETQ___V56*/ meltfptr[38];; + /*^compute*/ + + /*_.IFELSE___V54*/ meltfptr[36] = /*_.PROGN___V57*/ meltfptr[39];; + /*epilog*/ + + MELT_LOCATION("warmelt-normatch.melt:2984:/ clear"); + /*clear*/ /*_.SETQ___V55*/ meltfptr[37] = 0 ; + /*^clear*/ + /*clear*/ /*_.SETQ___V56*/ meltfptr[38] = 0 ; + /*^clear*/ + /*clear*/ /*_.PROGN___V57*/ meltfptr[39] = 0 ;} + ; + } else {/*^cond.else*/ + + /*^block*/ + /*anyblock*/{ + + /*_#IS_A__L17*/ meltfnum[15] = + melt_is_instance_of((melt_ptr_t)(/*_.CURSTEP__V52*/ meltfptr[34]), (melt_ptr_t)((/*!CLASS_MATCH_STEP_TEST*/ meltfrout->tabval[10])));; + MELT_LOCATION("warmelt-normatch.melt:2989:/ cond"); + /*cond*/ if (/*_#IS_A__L17*/ meltfnum[15]) /*then*/ { + /*^cond.then*/ + /*^block*/ + /*anyblock*/{ + + MELT_LOCATION("warmelt-normatch.melt:2990:/ compute"); + /*_.LASTSTEPTEST__V49*/ meltfptr[43] = /*_.SETQ___V59*/ meltfptr[37] = /*_.CURSTEP__V52*/ meltfptr[34];; + /*_.IFELSE___V58*/ meltfptr[35] = /*_.SETQ___V59*/ meltfptr[37];; + /*epilog*/ + + MELT_LOCATION("warmelt-normatch.melt:2989:/ clear"); + /*clear*/ /*_.SETQ___V59*/ meltfptr[37] = 0 ;} + ; + } else {/*^cond.else*/ + + /*_.IFELSE___V58*/ meltfptr[35] = NULL;; + } + ; + /*^compute*/ + + /*_.IFELSE___V54*/ meltfptr[36] = /*_.IFELSE___V58*/ meltfptr[35];; + /*epilog*/ + + MELT_LOCATION("warmelt-normatch.melt:2984:/ clear"); + /*clear*/ /*_#IS_A__L17*/ meltfnum[15] = 0 ; + /*^clear*/ + /*clear*/ /*_.IFELSE___V58*/ meltfptr[35] = 0 ;} + ; + } ; + } /* end cit2__EACHLIST */ + + /*citerepilog*/ + + MELT_LOCATION("warmelt-normatch.melt:2980:/ clear"); + /*clear*/ /*_.CURPAIR__V51*/ meltfptr[45] = 0 ; + /*^clear*/ + /*clear*/ /*_.CURSTEP__V52*/ meltfptr[34] = 0 ; + /*^clear*/ + /*clear*/ /*_#IS_A__L14*/ meltfnum[9] = 0 ; + /*^clear*/ + /*clear*/ /*_#IF___L15*/ meltfnum[12] = 0 ; + /*^clear*/ + /*clear*/ /*_.IFELSE___V54*/ meltfptr[36] = 0 ;} /*endciterblock FOREACH_IN_LIST*/ + ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normatch.melt:3031:/ cppif.then"); + MELT_LOCATION("warmelt-normatch.melt:2992:/ cppif.then"); /*^block*/ /*anyblock*/{ - /*_#THE_MELTCALLCOUNT__L3*/ meltfnum[0] = + /*_#THE_MELTCALLCOUNT__L18*/ meltfnum[15] = meltcallcount;; - MELT_LOCATION("warmelt-normatch.melt:3031:/ apply"); + MELT_LOCATION("warmelt-normatch.melt:2992:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_cstring = "translpat_orpat mdata"; + argtab[0].bp_cstring = "translpat_inspat laststeptest"; /*^apply.arg*/ - argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L3*/ meltfnum[0]; + argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L18*/ meltfnum[15]; /*^apply.arg*/ argtab[2].bp_cstring = "warmelt-normatch.melt"; /*^apply.arg*/ - argtab[3].bp_long = 3031; - /*_.DEBUG_MSG_FUN__V12*/ meltfptr[11] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.MDATA__V3*/ meltfptr[2]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + argtab[3].bp_long = 2992; + /*_.DEBUG_MSG_FUN__V61*/ meltfptr[39] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.LASTSTEPTEST__V49*/ meltfptr[43]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; - /*_.IFCPP___V11*/ meltfptr[9] = /*_.DEBUG_MSG_FUN__V12*/ meltfptr[11];; + /*_.IFCPP___V60*/ meltfptr[38] = /*_.DEBUG_MSG_FUN__V61*/ meltfptr[39];; /*epilog*/ - MELT_LOCATION("warmelt-normatch.melt:3031:/ clear"); - /*clear*/ /*_#THE_MELTCALLCOUNT__L3*/ meltfnum[0] = 0 ; + MELT_LOCATION("warmelt-normatch.melt:2992:/ clear"); + /*clear*/ /*_#THE_MELTCALLCOUNT__L18*/ meltfnum[15] = 0 ; /*^clear*/ - /*clear*/ /*_.DEBUG_MSG_FUN__V12*/ meltfptr[11] = 0 ;} + /*clear*/ /*_.DEBUG_MSG_FUN__V61*/ meltfptr[39] = 0 ;} #else /*ENABLE_CHECKING*/ /*^cppif.else*/ - /*_.IFCPP___V11*/ meltfptr[9] = (/*nil*/NULL); + /*_.IFCPP___V60*/ meltfptr[38] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normatch.melt:3032:/ cppif.then"); + /*^compute*/ + + /*_#NULL__L19*/ meltfnum[15] = + ((/*_.ISTEP__V48*/ meltfptr[42]) == NULL);; + MELT_LOCATION("warmelt-normatch.melt:2994:/ cond"); + /*cond*/ if (/*_#NULL__L19*/ meltfnum[15]) /*then*/ { + /*^cond.then*/ /*^block*/ /*anyblock*/{ - /*_#IS_A__L4*/ meltfnum[0] = - melt_is_instance_of((melt_ptr_t)(/*_.MDATA__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_MATCHED_DATA*/ meltfrout->tabval[2])));; - MELT_LOCATION("warmelt-normatch.melt:3032:/ cond"); - /*cond*/ if (/*_#IS_A__L4*/ meltfnum[0]) /*then*/ { - /*^cond.then*/ - /*_.IFELSE___V14*/ meltfptr[13] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normatch.melt:3032:/ cond.else"); + MELT_LOCATION("warmelt-normatch.melt:2995:/ quasiblock"); - /*^block*/ + + /*_.DSLOTS__V64*/ meltfptr[39] = + (meltgc_new_multiple((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ meltfrout->tabval[11])), (/*_#NBFIELDS__L8*/ meltfnum[0])));; + MELT_LOCATION("warmelt-normatch.melt:2998:/ quasiblock"); + + + /*^rawallocobj*/ + /*rawallocobj*/ { melt_ptr_t newobj = 0; + melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_MATCH_STEP_TEST_INSTANCE*/ meltfrout->tabval[9])), (7), "CLASS_MATCH_STEP_TEST_INSTANCE");/*_.INST__V66*/ meltfptr[65] = + newobj; }; + ; + /*^putslot*/ + /*putslot*/ + melt_assertmsg("putslot checkobj @LOCA_LOCATION", melt_magic_discr((melt_ptr_t)(/*_.INST__V66*/ meltfptr[65])) == OBMAG_OBJECT); + melt_putfield_object((/*_.INST__V66*/ meltfptr[65]), (1), (/*_.SLOC__V23*/ meltfptr[22]), "LOCA_LOCATION"); + ; + /*^putslot*/ + /*putslot*/ + melt_assertmsg("putslot checkobj @MSTEP_DATA", melt_magic_discr((melt_ptr_t)(/*_.INST__V66*/ meltfptr[65])) == OBMAG_OBJECT); + melt_putfield_object((/*_.INST__V66*/ meltfptr[65]), (2), (/*_.MDATA__V3*/ meltfptr[2]), "MSTEP_DATA"); + ; + /*^putslot*/ + /*putslot*/ + melt_assertmsg("putslot checkobj @MSTEP_THEN", melt_magic_discr((melt_ptr_t)(/*_.INST__V66*/ meltfptr[65])) == OBMAG_OBJECT); + melt_putfield_object((/*_.INST__V66*/ meltfptr[65]), (3), ((/*nil*/NULL)), "MSTEP_THEN"); + ; + /*^putslot*/ + /*putslot*/ + melt_assertmsg("putslot checkobj @MSTEP_ELSE", melt_magic_discr((melt_ptr_t)(/*_.INST__V66*/ meltfptr[65])) == OBMAG_OBJECT); + melt_putfield_object((/*_.INST__V66*/ meltfptr[65]), (4), ((/*nil*/NULL)), "MSTEP_ELSE"); + ; + /*^putslot*/ + /*putslot*/ + melt_assertmsg("putslot checkobj @MSTINS_CLASS", melt_magic_discr((melt_ptr_t)(/*_.INST__V66*/ meltfptr[65])) == OBMAG_OBJECT); + melt_putfield_object((/*_.INST__V66*/ meltfptr[65]), (5), (/*_.PCLASS__V20*/ meltfptr[19]), "MSTINS_CLASS"); + ; + /*^putslot*/ + /*putslot*/ + melt_assertmsg("putslot checkobj @MSTINS_SLOTS", melt_magic_discr((melt_ptr_t)(/*_.INST__V66*/ meltfptr[65])) == OBMAG_OBJECT); + melt_putfield_object((/*_.INST__V66*/ meltfptr[65]), (6), (/*_.DSLOTS__V64*/ meltfptr[39]), "MSTINS_SLOTS"); + ; + /*_.NEWSTEP__V65*/ meltfptr[64] = /*_.INST__V66*/ meltfptr[65];; + MELT_LOCATION("warmelt-normatch.melt:3007:/ compute"); + /*_.ISTEP__V48*/ meltfptr[42] = /*_.SETQ___V67*/ meltfptr[66] = /*_.NEWSTEP__V65*/ meltfptr[64];; + + #if ENABLE_CHECKING + MELT_LOCATION("warmelt-normatch.melt:3008:/ cppif.then"); + /*^block*/ /*anyblock*/{ - - - - { - /*^locexp*/ - melt_assert_failed(( "check mdata"),( "warmelt-normatch.melt")?( "warmelt-normatch.melt"):__FILE__, - (3032)?(3032):__LINE__, __FUNCTION__); -;} + /*_#THE_MELTCALLCOUNT__L20*/ meltfnum[19] = + meltcallcount;; + MELT_LOCATION("warmelt-normatch.melt:3008:/ apply"); + /*apply*/{ + union meltparam_un argtab[4]; + memset(&argtab, 0, sizeof(argtab)); + /*^apply.arg*/ + argtab[0].bp_cstring = "translpat_inspat newstep"; + /*^apply.arg*/ + argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L20*/ meltfnum[19]; + /*^apply.arg*/ + argtab[2].bp_cstring = "warmelt-normatch.melt"; + /*^apply.arg*/ + argtab[3].bp_long = 3008; + /*_.DEBUG_MSG_FUN__V69*/ meltfptr[68] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.NEWSTEP__V65*/ meltfptr[64]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + } ; - /*clear*/ /*_.IFELSE___V14*/ meltfptr[13] = 0 ; + /*_.IFCPP___V68*/ meltfptr[67] = /*_.DEBUG_MSG_FUN__V69*/ meltfptr[68];; /*epilog*/ - } + + MELT_LOCATION("warmelt-normatch.melt:3008:/ clear"); + /*clear*/ /*_#THE_MELTCALLCOUNT__L20*/ meltfnum[19] = 0 ; + /*^clear*/ + /*clear*/ /*_.DEBUG_MSG_FUN__V69*/ meltfptr[68] = 0 ;} + + #else /*ENABLE_CHECKING*/ + /*^cppif.else*/ + /*_.IFCPP___V68*/ meltfptr[67] = (/*nil*/NULL); + #endif /*ENABLE_CHECKING*/ ; - } - ; - /*^compute*/ - - /*_.IFCPP___V13*/ meltfptr[11] = /*_.IFELSE___V14*/ meltfptr[13];; - /*epilog*/ - - MELT_LOCATION("warmelt-normatch.melt:3032:/ clear"); - /*clear*/ /*_#IS_A__L4*/ meltfnum[0] = 0 ; - /*^clear*/ - /*clear*/ /*_.IFELSE___V14*/ meltfptr[13] = 0 ;} - - #else /*ENABLE_CHECKING*/ - /*^cppif.else*/ - /*_.IFCPP___V13*/ meltfptr[11] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normatch.melt:3033:/ cppif.then"); - /*^block*/ - /*anyblock*/{ - /*_#THE_MELTCALLCOUNT__L5*/ meltfnum[0] = - meltcallcount;; - MELT_LOCATION("warmelt-normatch.melt:3033:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - /*^apply.arg*/ - argtab[0].bp_cstring = "translpat_orpat mcase"; - /*^apply.arg*/ - argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L5*/ meltfnum[0]; - /*^apply.arg*/ - argtab[2].bp_cstring = "warmelt-normatch.melt"; - /*^apply.arg*/ - argtab[3].bp_long = 3033; - /*_.DEBUG_MSG_FUN__V16*/ meltfptr[15] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.MCASE__V4*/ meltfptr[3]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } + { + MELT_LOCATION("warmelt-normatch.melt:3009:/ locexp"); + meltgc_append_list((melt_ptr_t)(/*_.STEPLIST__V50*/ meltfptr[44]), (melt_ptr_t)(/*_.NEWSTEP__V65*/ meltfptr[64]));} ; - /*_.IFCPP___V15*/ meltfptr[13] = /*_.DEBUG_MSG_FUN__V16*/ meltfptr[15];; - /*epilog*/ - - MELT_LOCATION("warmelt-normatch.melt:3033:/ clear"); - /*clear*/ /*_#THE_MELTCALLCOUNT__L5*/ meltfnum[0] = 0 ; - /*^clear*/ - /*clear*/ /*_.DEBUG_MSG_FUN__V16*/ meltfptr[15] = 0 ;} - - #else /*ENABLE_CHECKING*/ - /*^cppif.else*/ - /*_.IFCPP___V15*/ meltfptr[13] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normatch.melt:3034:/ cppif.then"); - /*^block*/ - /*anyblock*/{ - /*_#IS_A__L6*/ meltfnum[0] = - melt_is_instance_of((melt_ptr_t)(/*_.MCASE__V4*/ meltfptr[3]), (melt_ptr_t)((/*!CLASS_MATCH_CASE*/ meltfrout->tabval[3])));; - MELT_LOCATION("warmelt-normatch.melt:3034:/ cond"); - /*cond*/ if (/*_#IS_A__L6*/ meltfnum[0]) /*then*/ { + #if ENABLE_CHECKING + MELT_LOCATION("warmelt-normatch.melt:3010:/ cppif.then"); + /*^block*/ + /*anyblock*/{ + + /*_#THE_MELTCALLCOUNT__L21*/ meltfnum[19] = + meltcallcount;; + MELT_LOCATION("warmelt-normatch.melt:3010:/ apply"); + /*apply*/{ + union meltparam_un argtab[4]; + memset(&argtab, 0, sizeof(argtab)); + /*^apply.arg*/ + argtab[0].bp_cstring = "translpat_inspat updated steplist"; + /*^apply.arg*/ + argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L21*/ meltfnum[19]; + /*^apply.arg*/ + argtab[2].bp_cstring = "warmelt-normatch.melt"; + /*^apply.arg*/ + argtab[3].bp_long = 3010; + /*_.DEBUG_MSG_FUN__V71*/ meltfptr[70] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.STEPLIST__V50*/ meltfptr[44]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + } + ; + /*_.IFCPP___V70*/ meltfptr[68] = /*_.DEBUG_MSG_FUN__V71*/ meltfptr[70];; + /*epilog*/ + + MELT_LOCATION("warmelt-normatch.melt:3010:/ clear"); + /*clear*/ /*_#THE_MELTCALLCOUNT__L21*/ meltfnum[19] = 0 ; + /*^clear*/ + /*clear*/ /*_.DEBUG_MSG_FUN__V71*/ meltfptr[70] = 0 ;} + + #else /*ENABLE_CHECKING*/ + /*^cppif.else*/ + /*_.IFCPP___V70*/ meltfptr[68] = (/*nil*/NULL); + #endif /*ENABLE_CHECKING*/ + ; + MELT_LOCATION("warmelt-normatch.melt:3011:/ cond"); + /*cond*/ if (/*_.LASTSTEPTEST__V49*/ meltfptr[43]) /*then*/ { /*^cond.then*/ - /*_.IFELSE___V18*/ meltfptr[17] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normatch.melt:3034:/ cond.else"); - - /*^block*/ + /*^block*/ /*anyblock*/{ + MELT_LOCATION("warmelt-normatch.melt:3013:/ msend"); + /*msend*/{ + union meltparam_un argtab[1]; + memset(&argtab, 0, sizeof(argtab)); + /*^ojbmsend.arg*/ + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NEWSTEP__V65*/ meltfptr[64]; + /*_.PUT_ELSE_MATCH__V73*/ meltfptr[72] = meltgc_send((melt_ptr_t)(/*_.LASTSTEPTEST__V49*/ meltfptr[43]), (melt_ptr_t)((/*!PUT_ELSE_MATCH*/ meltfrout->tabval[12])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + } + ; + #if ENABLE_CHECKING + MELT_LOCATION("warmelt-normatch.melt:3014:/ cppif.then"); + /*^block*/ + /*anyblock*/{ + + /*_#THE_MELTCALLCOUNT__L22*/ meltfnum[19] = + meltcallcount;; + MELT_LOCATION("warmelt-normatch.melt:3014:/ apply"); + /*apply*/{ + union meltparam_un argtab[4]; + memset(&argtab, 0, sizeof(argtab)); + /*^apply.arg*/ + argtab[0].bp_cstring = "translpat_inspat updated laststeptest"; + /*^apply.arg*/ + argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L22*/ meltfnum[19]; + /*^apply.arg*/ + argtab[2].bp_cstring = "warmelt-normatch.melt"; + /*^apply.arg*/ + argtab[3].bp_long = 3014; + /*_.DEBUG_MSG_FUN__V75*/ meltfptr[74] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.LASTSTEPTEST__V49*/ meltfptr[43]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + } + ; + /*_.IFCPP___V74*/ meltfptr[73] = /*_.DEBUG_MSG_FUN__V75*/ meltfptr[74];; + /*epilog*/ + + MELT_LOCATION("warmelt-normatch.melt:3014:/ clear"); + /*clear*/ /*_#THE_MELTCALLCOUNT__L22*/ meltfnum[19] = 0 ; + /*^clear*/ + /*clear*/ /*_.DEBUG_MSG_FUN__V75*/ meltfptr[74] = 0 ;} + + #else /*ENABLE_CHECKING*/ + /*^cppif.else*/ + /*_.IFCPP___V74*/ meltfptr[73] = (/*nil*/NULL); + #endif /*ENABLE_CHECKING*/ + ; + MELT_LOCATION("warmelt-normatch.melt:3012:/ quasiblock"); - { - /*^locexp*/ - melt_assert_failed(( "check mcase"),( "warmelt-normatch.melt")?( "warmelt-normatch.melt"):__FILE__, - (3034)?(3034):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V18*/ meltfptr[17] = 0 ; + /*_.PROGN___V76*/ meltfptr[74] = /*_.IFCPP___V74*/ meltfptr[73];; + /*^compute*/ + + /*_.IF___V72*/ meltfptr[70] = /*_.PROGN___V76*/ meltfptr[74];; /*epilog*/ - } + + MELT_LOCATION("warmelt-normatch.melt:3011:/ clear"); + /*clear*/ /*_.PUT_ELSE_MATCH__V73*/ meltfptr[72] = 0 ; + /*^clear*/ + /*clear*/ /*_.IFCPP___V74*/ meltfptr[73] = 0 ; + /*^clear*/ + /*clear*/ /*_.PROGN___V76*/ meltfptr[74] = 0 ;} ; + } else {/*^cond.else*/ + + /*_.IF___V72*/ meltfptr[70] = NULL;; } ; /*^compute*/ - /*_.IFCPP___V17*/ meltfptr[15] = /*_.IFELSE___V18*/ meltfptr[17];; - /*epilog*/ + /*_.LET___V63*/ meltfptr[35] = /*_.IF___V72*/ meltfptr[70];; - MELT_LOCATION("warmelt-normatch.melt:3034:/ clear"); - /*clear*/ /*_#IS_A__L6*/ meltfnum[0] = 0 ; + MELT_LOCATION("warmelt-normatch.melt:2995:/ clear"); + /*clear*/ /*_.DSLOTS__V64*/ meltfptr[39] = 0 ; /*^clear*/ - /*clear*/ /*_.IFELSE___V18*/ meltfptr[17] = 0 ;} - - #else /*ENABLE_CHECKING*/ - /*^cppif.else*/ - /*_.IFCPP___V17*/ meltfptr[15] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ + /*clear*/ /*_.NEWSTEP__V65*/ meltfptr[64] = 0 ; + /*^clear*/ + /*clear*/ /*_.SETQ___V67*/ meltfptr[66] = 0 ; + /*^clear*/ + /*clear*/ /*_.IFCPP___V68*/ meltfptr[67] = 0 ; + /*^clear*/ + /*clear*/ /*_.IFCPP___V70*/ meltfptr[68] = 0 ; + /*^clear*/ + /*clear*/ /*_.IF___V72*/ meltfptr[70] = 0 ; + /*_.IF___V62*/ meltfptr[37] = /*_.LET___V63*/ meltfptr[35];; + /*epilog*/ + + MELT_LOCATION("warmelt-normatch.melt:2994:/ clear"); + /*clear*/ /*_.LET___V63*/ meltfptr[35] = 0 ;} ; - MELT_LOCATION("warmelt-normatch.melt:3035:/ quasiblock"); - - - MELT_LOCATION("warmelt-normatch.melt:3036:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), 1, "LOCA_LOCATION");/*_.LOCA_LOCATION__V20*/ meltfptr[19] = slot; }; - ; - /*^cond*/ - /*cond*/ if (/*_.LOCA_LOCATION__V20*/ meltfptr[19]) /*then*/ { - /*^cond.then*/ - /*_.SLOC__V21*/ meltfptr[20] = /*_.LOCA_LOCATION__V20*/ meltfptr[19];; - } else {MELT_LOCATION("warmelt-normatch.melt:3036:/ cond.else"); + } else {/*^cond.else*/ - /*_.SLOC__V21*/ meltfptr[20] = /*_.PSLOC__V6*/ meltfptr[5];; + /*_.IF___V62*/ meltfptr[37] = NULL;; } ; + MELT_LOCATION("warmelt-normatch.melt:3017:/ quasiblock"); - { - MELT_LOCATION("warmelt-normatch.melt:3038:/ locexp"); - melt_error_str((melt_ptr_t)(/*_.SLOC__V21*/ meltfptr[20]), ( "unimplementation translpat_orpat"), (melt_ptr_t)0);} + + /*^getslot*/ + { melt_ptr_t slot=0; + melt_object_get_field(slot,(melt_ptr_t)(/*_.ISTEP__V48*/ meltfptr[42]), 6, "MSTINS_SLOTS");/*_.MSLOTS__V78*/ meltfptr[73] = slot; }; ; + /*_.LASTSTEP__V79*/ meltfptr[74] = /*_.ISTEP__V48*/ meltfptr[42];; + /*^compute*/ + + /*_.FLAGLIST__V80*/ meltfptr[39] = + (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ meltfrout->tabval[13]))));; + /*^compute*/ + + /*_.ELSELIST__V81*/ meltfptr[64] = + (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ meltfrout->tabval[13]))));; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normatch.melt:3039:/ cppif.then"); + MELT_LOCATION("warmelt-normatch.melt:3022:/ cppif.then"); /*^block*/ /*anyblock*/{ - /*^cond*/ - /*cond*/ if ((/*nil*/NULL)) /*then*/ { + /*_#IS_MULTIPLE__L23*/ meltfnum[19] = + (melt_magic_discr((melt_ptr_t)(/*_.MSLOTS__V78*/ meltfptr[73])) == OBMAG_MULTIPLE);; + MELT_LOCATION("warmelt-normatch.melt:3022:/ cond"); + /*cond*/ if (/*_#IS_MULTIPLE__L23*/ meltfnum[19]) /*then*/ { /*^cond.then*/ - /*_.IFELSE___V23*/ meltfptr[22] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normatch.melt:3039:/ cond.else"); + /*_.IFELSE___V83*/ meltfptr[67] = (/*nil*/NULL);; + } else {MELT_LOCATION("warmelt-normatch.melt:3022:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -1288,11 +1616,11 @@ lab_endgetargs:; { /*^locexp*/ - melt_assert_failed(( "@$@unimplemented translpat_orpat"),( "warmelt-normatch.melt")?( "warmelt-normatch.melt"):__FILE__, - (3039)?(3039):__LINE__, __FUNCTION__); + melt_assert_failed(( "check mslots"),( "warmelt-normatch.melt")?( "warmelt-normatch.melt"):__FILE__, + (3022)?(3022):__LINE__, __FUNCTION__); ;} ; - /*clear*/ /*_.IFELSE___V23*/ meltfptr[22] = 0 ; + /*clear*/ /*_.IFELSE___V83*/ meltfptr[67] = 0 ; /*epilog*/ } ; @@ -1300,888 +1628,1202 @@ lab_endgetargs:; ; /*^compute*/ - /*_.IFCPP___V22*/ meltfptr[21] = /*_.IFELSE___V23*/ meltfptr[22];; + /*_.IFCPP___V82*/ meltfptr[66] = /*_.IFELSE___V83*/ meltfptr[67];; /*epilog*/ - MELT_LOCATION("warmelt-normatch.melt:3039:/ clear"); - /*clear*/ /*_.IFELSE___V23*/ meltfptr[22] = 0 ;} + MELT_LOCATION("warmelt-normatch.melt:3022:/ clear"); + /*clear*/ /*_#IS_MULTIPLE__L23*/ meltfnum[19] = 0 ; + /*^clear*/ + /*clear*/ /*_.IFELSE___V83*/ meltfptr[67] = 0 ;} #else /*ENABLE_CHECKING*/ /*^cppif.else*/ - /*_.IFCPP___V22*/ meltfptr[21] = (/*nil*/NULL); + /*_.IFCPP___V82*/ meltfptr[66] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - /*^compute*/ - - /*_.LET___V19*/ meltfptr[17] = /*_.IFCPP___V22*/ meltfptr[21];; - - MELT_LOCATION("warmelt-normatch.melt:3035:/ clear"); - /*clear*/ /*_.LOCA_LOCATION__V20*/ meltfptr[19] = 0 ; - /*^clear*/ - /*clear*/ /*_.SLOC__V21*/ meltfptr[20] = 0 ; - /*^clear*/ - /*clear*/ /*_.IFCPP___V22*/ meltfptr[21] = 0 ; - MELT_LOCATION("warmelt-normatch.melt:3028:/ quasiblock"); - - /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V19*/ meltfptr[17];; - MELT_LOCATION("warmelt-normatch.melt:3028:/ finalreturn"); + { + MELT_LOCATION("warmelt-normatch.melt:3023:/ locexp"); + meltgc_append_list((melt_ptr_t)(/*_.ELSELIST__V81*/ meltfptr[64]), (melt_ptr_t)(/*_.ISTEP__V48*/ meltfptr[42]));} ; - /*finalret*/ goto labend_rout ; - /*epilog*/ + /*citerblock FOREACH_IN_MULTIPLE*/ { + /* start cit3__EACHTUP: */ + long cit3__EACHTUP_ln = melt_multiple_length((melt_ptr_t)/*_.PFIELDS__V21*/ meltfptr[20]); + for (/*_#PIX__L24*/ meltfnum[19] = 0; + (/*_#PIX__L24*/ meltfnum[19] >= 0) && (/*_#PIX__L24*/ meltfnum[19] < cit3__EACHTUP_ln); + /*_#PIX__L24*/ meltfnum[19]++) { + /*_.CURPFLD__V84*/ meltfptr[68] = melt_multiple_nth((melt_ptr_t)(/*_.PFIELDS__V21*/ meltfptr[20]), /*_#PIX__L24*/ meltfnum[19]); + - /*^clear*/ - /*clear*/ /*_.IFCPP___V7*/ meltfptr[6] = 0 ; - /*^clear*/ - /*clear*/ /*_.IFCPP___V9*/ meltfptr[7] = 0 ; - /*^clear*/ - /*clear*/ /*_.IFCPP___V11*/ meltfptr[9] = 0 ; - /*^clear*/ - /*clear*/ /*_.IFCPP___V13*/ meltfptr[11] = 0 ; - /*^clear*/ - /*clear*/ /*_.IFCPP___V15*/ meltfptr[13] = 0 ; - /*^clear*/ - /*clear*/ /*_.IFCPP___V17*/ meltfptr[15] = 0 ; - /*^clear*/ - /*clear*/ /*_.LET___V19*/ meltfptr[17] = 0 ;} - -; - goto labend_rout; -labend_rout: -melt_trace_end("TRANSLPAT_ORPAT", meltcallcount); melt_topframe = (struct callframe_melt_st*) meltfram__.prev; - return (melt_ptr_t)(/*_.RETVAL___V1*/ meltfptr[0]); -#undef meltcallcount -#undef meltfram__ -#undef MELTFRAM_NBVARNUM -#undef MELTFRAM_NBVARPTR -} /*end meltrout_68_warmelt_normatch_TRANSLPAT_ORPAT*/ - - - - - -melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_69_warmelt_normatch_TRANSLPAT_PATMAT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, - const char xresdescr_[], union meltparam_un *xrestab_) -{ -#if ENABLE_CHECKING - static long call_counter__; - long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; -#undef meltcallcount -#define meltcallcount thiscallcounter__ -#else -#undef meltcallcount -#define meltcallcount 0L -#endif + + + #if ENABLE_CHECKING + MELT_LOCATION("warmelt-normatch.melt:3027:/ cppif.then"); + /*^block*/ + /*anyblock*/{ + + /*_#IS_A__L25*/ meltfnum[24] = + melt_is_instance_of((melt_ptr_t)(/*_.CURPFLD__V84*/ meltfptr[68]), (melt_ptr_t)((/*!CLASS_SOURCE_FIELD_PATTERN*/ meltfrout->tabval[7])));; + MELT_LOCATION("warmelt-normatch.melt:3027:/ cond"); + /*cond*/ if (/*_#IS_A__L25*/ meltfnum[24]) /*then*/ { + /*^cond.then*/ + /*_.IFELSE___V86*/ meltfptr[35] = (/*nil*/NULL);; + } else {MELT_LOCATION("warmelt-normatch.melt:3027:/ cond.else"); + + /*^block*/ + /*anyblock*/{ + + + + + { + /*^locexp*/ + melt_assert_failed(( "check curpfld"),( "warmelt-normatch.melt")?( "warmelt-normatch.melt"):__FILE__, + (3027)?(3027):__LINE__, __FUNCTION__); +;} + ; + /*clear*/ /*_.IFELSE___V86*/ meltfptr[35] = 0 ; + /*epilog*/ + } + ; + } + ; + /*^compute*/ - struct frame_meltrout_69_warmelt_normatch_TRANSLPAT_PATMAT_st { unsigned nbvar; -#if ENABLE_CHECKING - const char* flocs; -#endif - struct meltclosure_st *clos; - struct excepth_melt_st *exh; - struct callframe_melt_st *prev; -#define MELTFRAM_NBVARPTR 161 - void* varptr[161]; -#define MELTFRAM_NBVARNUM 61 - long varnum[61]; -/*others*/ - long _spare_; } - *framptr_=0, meltframe; -#define meltfram__ meltframe - if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/ - int ix=0; - framptr_ = (void*)firstargp_; - gt_ggc_mx_melt_un (framptr_->clos); - for(ix=0; ix<161; ix++) - if (framptr_->varptr[ix]) - gt_ggc_mx_melt_un (framptr_->varptr[ix]); - return NULL; - }/*end markggc*/; - memset(&meltfram__, 0, sizeof(meltfram__)); - meltfram__.nbvar = 161; - meltfram__.clos = closp_; - meltfram__.prev = (struct callframe_melt_st *) melt_topframe; - melt_topframe = (struct callframe_melt_st *) &meltfram__; -melt_trace_start("TRANSLPAT_PATMAT", meltcallcount); -/*getargs*/ - - /*getarg#0*/ - MELT_LOCATION("warmelt-normatch.melt:3047:/ getarg"); - /*_.RECV__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; - - /*getarg#1*/ - /*^getarg*/ - if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; - /*_.MDATA__V3*/ meltfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.MDATA__V3*/ meltfptr[2])) != NULL); - - - /*getarg#2*/ - /*^getarg*/ - if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; - /*_.MCASE__V4*/ meltfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.MCASE__V4*/ meltfptr[3])) != NULL); - - - /*getarg#3*/ - /*^getarg*/ - if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs; - /*_.VARMAP__V5*/ meltfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.VARMAP__V5*/ meltfptr[4])) != NULL); - - - /*getarg#4*/ - /*^getarg*/ - if (xargdescr_[3] != BPAR_PTR) goto lab_endgetargs; - /*_.PSLOC__V6*/ meltfptr[5] = (xargtab_[3].bp_aptr) ? (*(xargtab_[3].bp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.PSLOC__V6*/ meltfptr[5])) != NULL); - - ; - goto lab_endgetargs; -lab_endgetargs:; -/*body*/ -/*^block*/ -/*anyblock*/{ - - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normatch.melt:3048:/ cppif.then"); - /*^block*/ - /*anyblock*/{ + /*_.IFCPP___V85*/ meltfptr[70] = /*_.IFELSE___V86*/ meltfptr[35];; + /*epilog*/ + + MELT_LOCATION("warmelt-normatch.melt:3027:/ clear"); + /*clear*/ /*_#IS_A__L25*/ meltfnum[24] = 0 ; + /*^clear*/ + /*clear*/ /*_.IFELSE___V86*/ meltfptr[35] = 0 ;} - /*_#THE_MELTCALLCOUNT__L1*/ meltfnum[0] = - meltcallcount;; - MELT_LOCATION("warmelt-normatch.melt:3048:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - /*^apply.arg*/ - argtab[0].bp_cstring = "translpat_patmat recv"; - /*^apply.arg*/ - argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L1*/ meltfnum[0]; - /*^apply.arg*/ - argtab[2].bp_cstring = "warmelt-normatch.melt"; - /*^apply.arg*/ - argtab[3].bp_long = 3048; - /*_.DEBUG_MSG_FUN__V8*/ meltfptr[7] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } + #else /*ENABLE_CHECKING*/ + /*^cppif.else*/ + /*_.IFCPP___V85*/ meltfptr[70] = (/*nil*/NULL); + #endif /*ENABLE_CHECKING*/ ; - /*_.IFCPP___V7*/ meltfptr[6] = /*_.DEBUG_MSG_FUN__V8*/ meltfptr[7];; - /*epilog*/ - - MELT_LOCATION("warmelt-normatch.melt:3048:/ clear"); - /*clear*/ /*_#THE_MELTCALLCOUNT__L1*/ meltfnum[0] = 0 ; - /*^clear*/ - /*clear*/ /*_.DEBUG_MSG_FUN__V8*/ meltfptr[7] = 0 ;} + MELT_LOCATION("warmelt-normatch.melt:3028:/ quasiblock"); - #else /*ENABLE_CHECKING*/ - /*^cppif.else*/ - /*_.IFCPP___V7*/ meltfptr[6] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normatch.melt:3049:/ cppif.then"); - /*^block*/ - /*anyblock*/{ - - /*_#IS_A__L2*/ meltfnum[0] = - melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_PATTERN_MATCHER*/ meltfrout->tabval[1])));; - MELT_LOCATION("warmelt-normatch.melt:3049:/ cond"); - /*cond*/ if (/*_#IS_A__L2*/ meltfnum[0]) /*then*/ { - /*^cond.then*/ - /*_.IFELSE___V10*/ meltfptr[9] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normatch.melt:3049:/ cond.else"); - - /*^block*/ - /*anyblock*/{ - - - - - { - /*^locexp*/ - melt_assert_failed(( "check recv"),( "warmelt-normatch.melt")?( "warmelt-normatch.melt"):__FILE__, - (3049)?(3049):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V10*/ meltfptr[9] = 0 ; - /*epilog*/ - } - ; - } - ; - /*^compute*/ - - /*_.IFCPP___V9*/ meltfptr[7] = /*_.IFELSE___V10*/ meltfptr[9];; - /*epilog*/ - - MELT_LOCATION("warmelt-normatch.melt:3049:/ clear"); - /*clear*/ /*_#IS_A__L2*/ meltfnum[0] = 0 ; - /*^clear*/ - /*clear*/ /*_.IFELSE___V10*/ meltfptr[9] = 0 ;} - #else /*ENABLE_CHECKING*/ - /*^cppif.else*/ - /*_.IFCPP___V9*/ meltfptr[7] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ + /*^getslot*/ + { melt_ptr_t slot=0; + melt_object_get_field(slot,(melt_ptr_t)(/*_.CURPFLD__V84*/ meltfptr[68]), 1, "LOCA_LOCATION");/*_.LOCA_LOCATION__V87*/ meltfptr[67] = slot; }; ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normatch.melt:3050:/ cppif.then"); - /*^block*/ - /*anyblock*/{ - - /*_#THE_MELTCALLCOUNT__L3*/ meltfnum[0] = - meltcallcount;; - MELT_LOCATION("warmelt-normatch.melt:3050:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - /*^apply.arg*/ - argtab[0].bp_cstring = "translpat_patmat mdata"; - /*^apply.arg*/ - argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L3*/ meltfnum[0]; - /*^apply.arg*/ - argtab[2].bp_cstring = "warmelt-normatch.melt"; - /*^apply.arg*/ - argtab[3].bp_long = 3050; - /*_.DEBUG_MSG_FUN__V12*/ meltfptr[11] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.MDATA__V3*/ meltfptr[2]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V11*/ meltfptr[9] = /*_.DEBUG_MSG_FUN__V12*/ meltfptr[11];; - /*epilog*/ - - MELT_LOCATION("warmelt-normatch.melt:3050:/ clear"); - /*clear*/ /*_#THE_MELTCALLCOUNT__L3*/ meltfnum[0] = 0 ; - /*^clear*/ - /*clear*/ /*_.DEBUG_MSG_FUN__V12*/ meltfptr[11] = 0 ;} + /*^cond*/ + /*cond*/ if (/*_.LOCA_LOCATION__V87*/ meltfptr[67]) /*then*/ { + /*^cond.then*/ + /*_.FSLOC__V88*/ meltfptr[35] = /*_.LOCA_LOCATION__V87*/ meltfptr[67];; + } else {MELT_LOCATION("warmelt-normatch.melt:3028:/ cond.else"); - #else /*ENABLE_CHECKING*/ - /*^cppif.else*/ - /*_.IFCPP___V11*/ meltfptr[9] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ + /*_.FSLOC__V88*/ meltfptr[35] = /*_.SLOC__V23*/ meltfptr[22];; + } ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normatch.melt:3051:/ cppif.then"); - /*^block*/ - /*anyblock*/{ - - /*_#IS_A__L4*/ meltfnum[0] = - melt_is_instance_of((melt_ptr_t)(/*_.MDATA__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_MATCHED_DATA*/ meltfrout->tabval[2])));; - MELT_LOCATION("warmelt-normatch.melt:3051:/ cond"); - /*cond*/ if (/*_#IS_A__L4*/ meltfnum[0]) /*then*/ { - /*^cond.then*/ - /*_.IFELSE___V14*/ meltfptr[13] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normatch.melt:3051:/ cond.else"); - + MELT_LOCATION("warmelt-normatch.melt:3029:/ getslot"); + { melt_ptr_t slot=0; + melt_object_get_field(slot,(melt_ptr_t)(/*_.CURPFLD__V84*/ meltfptr[68]), 2, "SPAF_FIELD");/*_.CURFLD__V89*/ meltfptr[88] = slot; }; + ; + MELT_LOCATION("warmelt-normatch.melt:3030:/ getslot"); + { melt_ptr_t slot=0; + melt_object_get_field(slot,(melt_ptr_t)(/*_.CURPFLD__V84*/ meltfptr[68]), 3, "SPAF_PATTERN");/*_.CURFPAT__V90*/ meltfptr[89] = slot; }; + ; + /*_#IS_NOT_A__L26*/ meltfnum[24] = + !melt_is_instance_of((melt_ptr_t)(/*_.CURFPAT__V90*/ meltfptr[89]), (melt_ptr_t)((/*!CLASS_SOURCE_PATTERN_JOKER_VARIABLE*/ meltfrout->tabval[14])));; + MELT_LOCATION("warmelt-normatch.melt:3032:/ cond"); + /*cond*/ if (/*_#IS_NOT_A__L26*/ meltfnum[24]) /*then*/ { + /*^cond.then*/ + /*^block*/ + /*anyblock*/{ + + MELT_LOCATION("warmelt-normatch.melt:3033:/ quasiblock"); + + + /*_#CURFIX__L27*/ meltfnum[26] = + (melt_get_int((melt_ptr_t)(/*_.CURFLD__V89*/ meltfptr[88])));; + /*^compute*/ + + /*_.CURSLOTDATA__V91*/ meltfptr[90] = + (melt_multiple_nth((melt_ptr_t)(/*_.MSLOTS__V78*/ meltfptr[73]), (/*_#CURFIX__L27*/ meltfnum[26])));; + /*^compute*/ + + /*_#NULL__L28*/ meltfnum[27] = + ((/*_.CURSLOTDATA__V91*/ meltfptr[90]) == NULL);; + MELT_LOCATION("warmelt-normatch.melt:3036:/ cond"); + /*cond*/ if (/*_#NULL__L28*/ meltfnum[27]) /*then*/ { + /*^cond.then*/ /*^block*/ - /*anyblock*/{ - - - - - { - /*^locexp*/ - melt_assert_failed(( "check mdata"),( "warmelt-normatch.melt")?( "warmelt-normatch.melt"):__FILE__, - (3051)?(3051):__LINE__, __FUNCTION__); -;} + /*anyblock*/{ + + MELT_LOCATION("warmelt-normatch.melt:3037:/ quasiblock"); + + + MELT_LOCATION("warmelt-normatch.melt:3038:/ apply"); + /*apply*/{ + /*_.CLONE_SYMBOL__V92*/ meltfptr[91] = melt_apply ((meltclosure_ptr_t)((/*!CLONE_SYMBOL*/ meltfrout->tabval[15])), (melt_ptr_t)(/*_.CURFLD__V89*/ meltfptr[88]), (""), (union meltparam_un*)0, "", (union meltparam_un*)0); + } + ; + /*_.MAKE_LIST__V93*/ meltfptr[92] = + (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ meltfrout->tabval[13]))));; + MELT_LOCATION("warmelt-normatch.melt:3037:/ quasiblock"); + + + /*^rawallocobj*/ + /*rawallocobj*/ { melt_ptr_t newobj = 0; + melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_MATCHED_DATA*/ meltfrout->tabval[2])), (5), "CLASS_MATCHED_DATA");/*_.INST__V95*/ meltfptr[94] = + newobj; }; + ; + /*^putslot*/ + /*putslot*/ + melt_assertmsg("putslot checkobj @MDATA_SYMB", melt_magic_discr((melt_ptr_t)(/*_.INST__V95*/ meltfptr[94])) == OBMAG_OBJECT); + melt_putfield_object((/*_.INST__V95*/ meltfptr[94]), (1), (/*_.CLONE_SYMBOL__V92*/ meltfptr[91]), "MDATA_SYMB"); + ; + /*^putslot*/ + /*putslot*/ + melt_assertmsg("putslot checkobj @MDATA_CTYPE", melt_magic_discr((melt_ptr_t)(/*_.INST__V95*/ meltfptr[94])) == OBMAG_OBJECT); + melt_putfield_object((/*_.INST__V95*/ meltfptr[94]), (2), ((/*!CTYPE_VALUE*/ meltfrout->tabval[16])), "MDATA_CTYPE"); + ; + /*^putslot*/ + /*putslot*/ + melt_assertmsg("putslot checkobj @MDATA_ORIG", melt_magic_discr((melt_ptr_t)(/*_.INST__V95*/ meltfptr[94])) == OBMAG_OBJECT); + melt_putfield_object((/*_.INST__V95*/ meltfptr[94]), (3), (/*_.ISTEP__V48*/ meltfptr[42]), "MDATA_ORIG"); + ; + /*^putslot*/ + /*putslot*/ + melt_assertmsg("putslot checkobj @MDATA_STEPS", melt_magic_discr((melt_ptr_t)(/*_.INST__V95*/ meltfptr[94])) == OBMAG_OBJECT); + melt_putfield_object((/*_.INST__V95*/ meltfptr[94]), (4), (/*_.MAKE_LIST__V93*/ meltfptr[92]), "MDATA_STEPS"); + ; + /*_.NEWSLOT__V94*/ meltfptr[93] = /*_.INST__V95*/ meltfptr[94];; + + #if ENABLE_CHECKING + MELT_LOCATION("warmelt-normatch.melt:3044:/ cppif.then"); + /*^block*/ + /*anyblock*/{ + + /*_#THE_MELTCALLCOUNT__L29*/ meltfnum[28] = + meltcallcount;; + MELT_LOCATION("warmelt-normatch.melt:3044:/ apply"); + /*apply*/{ + union meltparam_un argtab[4]; + memset(&argtab, 0, sizeof(argtab)); + /*^apply.arg*/ + argtab[0].bp_cstring = " translpat_inspat newslot"; + /*^apply.arg*/ + argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L29*/ meltfnum[28]; + /*^apply.arg*/ + argtab[2].bp_cstring = "warmelt-normatch.melt"; + /*^apply.arg*/ + argtab[3].bp_long = 3044; + /*_.DEBUG_MSG_FUN__V97*/ meltfptr[96] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.NEWSLOT__V94*/ meltfptr[93]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + } + ; + /*_.IFCPP___V96*/ meltfptr[95] = /*_.DEBUG_MSG_FUN__V97*/ meltfptr[96];; + /*epilog*/ + + MELT_LOCATION("warmelt-normatch.melt:3044:/ clear"); + /*clear*/ /*_#THE_MELTCALLCOUNT__L29*/ meltfnum[28] = 0 ; + /*^clear*/ + /*clear*/ /*_.DEBUG_MSG_FUN__V97*/ meltfptr[96] = 0 ;} + + #else /*ENABLE_CHECKING*/ + /*^cppif.else*/ + /*_.IFCPP___V96*/ meltfptr[95] = (/*nil*/NULL); + #endif /*ENABLE_CHECKING*/ + ; + MELT_LOCATION("warmelt-normatch.melt:3045:/ compute"); + /*_.CURSLOTDATA__V91*/ meltfptr[90] = /*_.SETQ___V98*/ meltfptr[96] = /*_.NEWSLOT__V94*/ meltfptr[93];; + + { + MELT_LOCATION("warmelt-normatch.melt:3046:/ locexp"); + meltgc_multiple_put_nth((melt_ptr_t)(/*_.MSLOTS__V78*/ meltfptr[73]), (/*_#CURFIX__L27*/ meltfnum[26]), (melt_ptr_t)(/*_.NEWSLOT__V94*/ meltfptr[93]));} + ; + + MELT_LOCATION("warmelt-normatch.melt:3037:/ clear"); + /*clear*/ /*_.CLONE_SYMBOL__V92*/ meltfptr[91] = 0 ; + /*^clear*/ + /*clear*/ /*_.MAKE_LIST__V93*/ meltfptr[92] = 0 ; + /*^clear*/ + /*clear*/ /*_.NEWSLOT__V94*/ meltfptr[93] = 0 ; + /*^clear*/ + /*clear*/ /*_.IFCPP___V96*/ meltfptr[95] = 0 ; + /*^clear*/ + /*clear*/ /*_.SETQ___V98*/ meltfptr[96] = 0 ; + /*epilog*/ + } ; - /*clear*/ /*_.IFELSE___V14*/ meltfptr[13] = 0 ; - /*epilog*/ - } + } /*noelse*/ ; - } - ; - /*^compute*/ - - /*_.IFCPP___V13*/ meltfptr[11] = /*_.IFELSE___V14*/ meltfptr[13];; - /*epilog*/ - - MELT_LOCATION("warmelt-normatch.melt:3051:/ clear"); - /*clear*/ /*_#IS_A__L4*/ meltfnum[0] = 0 ; - /*^clear*/ - /*clear*/ /*_.IFELSE___V14*/ meltfptr[13] = 0 ;} - - #else /*ENABLE_CHECKING*/ - /*^cppif.else*/ - /*_.IFCPP___V13*/ meltfptr[11] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normatch.melt:3052:/ cppif.then"); + + #if ENABLE_CHECKING + MELT_LOCATION("warmelt-normatch.melt:3047:/ cppif.then"); + /*^block*/ + /*anyblock*/{ + + /*_#THE_MELTCALLCOUNT__L30*/ meltfnum[28] = + meltcallcount;; + MELT_LOCATION("warmelt-normatch.melt:3047:/ apply"); + /*apply*/{ + union meltparam_un argtab[4]; + memset(&argtab, 0, sizeof(argtab)); + /*^apply.arg*/ + argtab[0].bp_cstring = "translpat_inspat before translation curfpat"; + /*^apply.arg*/ + argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L30*/ meltfnum[28]; + /*^apply.arg*/ + argtab[2].bp_cstring = "warmelt-normatch.melt"; + /*^apply.arg*/ + argtab[3].bp_long = 3047; + /*_.DEBUG_MSG_FUN__V100*/ meltfptr[92] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.CURFPAT__V90*/ meltfptr[89]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + } + ; + /*_.IFCPP___V99*/ meltfptr[91] = /*_.DEBUG_MSG_FUN__V100*/ meltfptr[92];; + /*epilog*/ + + MELT_LOCATION("warmelt-normatch.melt:3047:/ clear"); + /*clear*/ /*_#THE_MELTCALLCOUNT__L30*/ meltfnum[28] = 0 ; + /*^clear*/ + /*clear*/ /*_.DEBUG_MSG_FUN__V100*/ meltfptr[92] = 0 ;} + + #else /*ENABLE_CHECKING*/ + /*^cppif.else*/ + /*_.IFCPP___V99*/ meltfptr[91] = (/*nil*/NULL); + #endif /*ENABLE_CHECKING*/ + ; + MELT_LOCATION("warmelt-normatch.melt:3048:/ quasiblock"); + + + /*^multimsend*/ + /*multimsend*/{ + union meltparam_un argtab[4]; + union meltparam_un restab[1]; + memset(&argtab, 0, sizeof(argtab)); + memset(&restab, 0, sizeof(restab)); + /*^multimsend.arg*/ + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.CURSLOTDATA__V91*/ meltfptr[90];/*^multimsend.arg*/ + argtab[1].bp_aptr = (melt_ptr_t*) &/*_.MCASE__V4*/ meltfptr[3];/*^multimsend.arg*/ + argtab[2].bp_aptr = (melt_ptr_t*) &/*_.VARMAP__V5*/ meltfptr[4];/*^multimsend.arg*/ + argtab[3].bp_aptr = (melt_ptr_t*) &/*_.PSLOC__V6*/ meltfptr[5]; + /*^multimsend.xres*/ + restab[0].bp_aptr = (melt_ptr_t*) &/*_.FLFLAG__V102*/ meltfptr[95];/*^multimsend.send*/ + /*_.FLSTEP__V101*/ meltfptr[93] = meltgc_send ((melt_ptr_t)(/*_.CURFPAT__V90*/ meltfptr[89]), ((melt_ptr_t)((/*!TRANSLATE_PATTERN*/ meltfrout->tabval[17]))), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, (BPARSTR_PTR ""), restab); + } + ; + /*^quasiblock*/ + + + + #if ENABLE_CHECKING + MELT_LOCATION("warmelt-normatch.melt:3051:/ cppif.then"); + /*^block*/ + /*anyblock*/{ + + /*_#THE_MELTCALLCOUNT__L31*/ meltfnum[28] = + meltcallcount;; + MELT_LOCATION("warmelt-normatch.melt:3051:/ apply"); + /*apply*/{ + union meltparam_un argtab[4]; + memset(&argtab, 0, sizeof(argtab)); + /*^apply.arg*/ + argtab[0].bp_cstring = "translpat_inspat flstep"; + /*^apply.arg*/ + argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L31*/ meltfnum[28]; + /*^apply.arg*/ + argtab[2].bp_cstring = "warmelt-normatch.melt"; + /*^apply.arg*/ + argtab[3].bp_long = 3051; + /*_.DEBUG_MSG_FUN__V104*/ meltfptr[92] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.FLSTEP__V101*/ meltfptr[93]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + } + ; + /*_.IFCPP___V103*/ meltfptr[96] = /*_.DEBUG_MSG_FUN__V104*/ meltfptr[92];; + /*epilog*/ + + MELT_LOCATION("warmelt-normatch.melt:3051:/ clear"); + /*clear*/ /*_#THE_MELTCALLCOUNT__L31*/ meltfnum[28] = 0 ; + /*^clear*/ + /*clear*/ /*_.DEBUG_MSG_FUN__V104*/ meltfptr[92] = 0 ;} + + #else /*ENABLE_CHECKING*/ + /*^cppif.else*/ + /*_.IFCPP___V103*/ meltfptr[96] = (/*nil*/NULL); + #endif /*ENABLE_CHECKING*/ + ; + + #if ENABLE_CHECKING + MELT_LOCATION("warmelt-normatch.melt:3052:/ cppif.then"); + /*^block*/ + /*anyblock*/{ + + /*_#THE_MELTCALLCOUNT__L32*/ meltfnum[28] = + meltcallcount;; + MELT_LOCATION("warmelt-normatch.melt:3052:/ apply"); + /*apply*/{ + union meltparam_un argtab[4]; + memset(&argtab, 0, sizeof(argtab)); + /*^apply.arg*/ + argtab[0].bp_cstring = "translpat_inspat flflag"; + /*^apply.arg*/ + argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L32*/ meltfnum[28]; + /*^apply.arg*/ + argtab[2].bp_cstring = "warmelt-normatch.melt"; + /*^apply.arg*/ + argtab[3].bp_long = 3052; + /*_.DEBUG_MSG_FUN__V106*/ meltfptr[105] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.FLFLAG__V102*/ meltfptr[95]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + } + ; + /*_.IFCPP___V105*/ meltfptr[92] = /*_.DEBUG_MSG_FUN__V106*/ meltfptr[105];; + /*epilog*/ + + MELT_LOCATION("warmelt-normatch.melt:3052:/ clear"); + /*clear*/ /*_#THE_MELTCALLCOUNT__L32*/ meltfnum[28] = 0 ; + /*^clear*/ + /*clear*/ /*_.DEBUG_MSG_FUN__V106*/ meltfptr[105] = 0 ;} + + #else /*ENABLE_CHECKING*/ + /*^cppif.else*/ + /*_.IFCPP___V105*/ meltfptr[92] = (/*nil*/NULL); + #endif /*ENABLE_CHECKING*/ + ; + MELT_LOCATION("warmelt-normatch.melt:3053:/ cond"); + /*cond*/ if (/*_.FLSTEP__V101*/ meltfptr[93]) /*then*/ { + /*^cond.then*/ + /*^block*/ + /*anyblock*/{ + + + #if ENABLE_CHECKING + MELT_LOCATION("warmelt-normatch.melt:3055:/ cppif.then"); + /*^block*/ + /*anyblock*/{ + + /*_#THE_MELTCALLCOUNT__L33*/ meltfnum[28] = + meltcallcount;; + MELT_LOCATION("warmelt-normatch.melt:3055:/ apply"); + /*apply*/{ + union meltparam_un argtab[4]; + memset(&argtab, 0, sizeof(argtab)); + /*^apply.arg*/ + argtab[0].bp_cstring = "translpat_inspat laststep"; + /*^apply.arg*/ + argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L33*/ meltfnum[28]; + /*^apply.arg*/ + argtab[2].bp_cstring = "warmelt-normatch.melt"; + /*^apply.arg*/ + argtab[3].bp_long = 3055; + /*_.DEBUG_MSG_FUN__V109*/ meltfptr[108] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.LASTSTEP__V79*/ meltfptr[74]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + } + ; + /*_.IFCPP___V108*/ meltfptr[107] = /*_.DEBUG_MSG_FUN__V109*/ meltfptr[108];; + /*epilog*/ + + MELT_LOCATION("warmelt-normatch.melt:3055:/ clear"); + /*clear*/ /*_#THE_MELTCALLCOUNT__L33*/ meltfnum[28] = 0 ; + /*^clear*/ + /*clear*/ /*_.DEBUG_MSG_FUN__V109*/ meltfptr[108] = 0 ;} + + #else /*ENABLE_CHECKING*/ + /*^cppif.else*/ + /*_.IFCPP___V108*/ meltfptr[107] = (/*nil*/NULL); + #endif /*ENABLE_CHECKING*/ + ; + MELT_LOCATION("warmelt-normatch.melt:3056:/ msend"); + /*msend*/{ + union meltparam_un argtab[1]; + memset(&argtab, 0, sizeof(argtab)); + /*^ojbmsend.arg*/ + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.FLSTEP__V101*/ meltfptr[93]; + /*_.PUT_THEN_MATCH__V110*/ meltfptr[108] = meltgc_send((melt_ptr_t)(/*_.LASTSTEP__V79*/ meltfptr[74]), (melt_ptr_t)((/*!PUT_THEN_MATCH*/ meltfrout->tabval[18])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + } + ; + + { + MELT_LOCATION("warmelt-normatch.melt:3057:/ locexp"); + meltgc_append_list((melt_ptr_t)(/*_.ELSELIST__V81*/ meltfptr[64]), (melt_ptr_t)(/*_.FLSTEP__V101*/ meltfptr[93]));} + ; + MELT_LOCATION("warmelt-normatch.melt:3058:/ compute"); + /*_.LASTSTEP__V79*/ meltfptr[74] = /*_.SETQ___V111*/ meltfptr[110] = /*_.FLSTEP__V101*/ meltfptr[93];; + MELT_LOCATION("warmelt-normatch.melt:3054:/ quasiblock"); + + + /*_.PROGN___V112*/ meltfptr[111] = /*_.SETQ___V111*/ meltfptr[110];; + /*^compute*/ + + /*_.IF___V107*/ meltfptr[105] = /*_.PROGN___V112*/ meltfptr[111];; + /*epilog*/ + + MELT_LOCATION("warmelt-normatch.melt:3053:/ clear"); + /*clear*/ /*_.IFCPP___V108*/ meltfptr[107] = 0 ; + /*^clear*/ + /*clear*/ /*_.PUT_THEN_MATCH__V110*/ meltfptr[108] = 0 ; + /*^clear*/ + /*clear*/ /*_.SETQ___V111*/ meltfptr[110] = 0 ; + /*^clear*/ + /*clear*/ /*_.PROGN___V112*/ meltfptr[111] = 0 ;} + ; + } else {/*^cond.else*/ + + /*_.IF___V107*/ meltfptr[105] = NULL;; + } + ; + MELT_LOCATION("warmelt-normatch.melt:3060:/ cond"); + /*cond*/ if (/*_.FLFLAG__V102*/ meltfptr[95]) /*then*/ { + /*^cond.then*/ + /*^block*/ + /*anyblock*/{ + + + { + MELT_LOCATION("warmelt-normatch.melt:3061:/ locexp"); + meltgc_append_list((melt_ptr_t)(/*_.FLAGLIST__V80*/ meltfptr[39]), (melt_ptr_t)(/*_.FLFLAG__V102*/ meltfptr[95]));} + ; + /*epilog*/ + } + ; + } /*noelse*/ + ; + + MELT_LOCATION("warmelt-normatch.melt:3048:/ clear"); + /*clear*/ /*_.IFCPP___V103*/ meltfptr[96] = 0 ; + /*^clear*/ + /*clear*/ /*_.IFCPP___V105*/ meltfptr[92] = 0 ; + /*^clear*/ + /*clear*/ /*_.IF___V107*/ meltfptr[105] = 0 ; + + /*^clear*/ + /*clear*/ /*_.FLFLAG__V102*/ meltfptr[95] = 0 ; + + MELT_LOCATION("warmelt-normatch.melt:3033:/ clear"); + /*clear*/ /*_#CURFIX__L27*/ meltfnum[26] = 0 ; + /*^clear*/ + /*clear*/ /*_.CURSLOTDATA__V91*/ meltfptr[90] = 0 ; + /*^clear*/ + /*clear*/ /*_#NULL__L28*/ meltfnum[27] = 0 ; + /*^clear*/ + /*clear*/ /*_.IFCPP___V99*/ meltfptr[91] = 0 ; + /*epilog*/ + } + ; + } /*noelse*/ + ; + + MELT_LOCATION("warmelt-normatch.melt:3028:/ clear"); + /*clear*/ /*_.LOCA_LOCATION__V87*/ meltfptr[67] = 0 ; + /*^clear*/ + /*clear*/ /*_.FSLOC__V88*/ meltfptr[35] = 0 ; + /*^clear*/ + /*clear*/ /*_.CURFLD__V89*/ meltfptr[88] = 0 ; + /*^clear*/ + /*clear*/ /*_.CURFPAT__V90*/ meltfptr[89] = 0 ; + /*^clear*/ + /*clear*/ /*_#IS_NOT_A__L26*/ meltfnum[24] = 0 ; + if (/*_#PIX__L24*/ meltfnum[19]<0) break; + } /* end cit3__EACHTUP */ + + /*citerepilog*/ + + MELT_LOCATION("warmelt-normatch.melt:3024:/ clear"); + /*clear*/ /*_.CURPFLD__V84*/ meltfptr[68] = 0 ; + /*^clear*/ + /*clear*/ /*_#PIX__L24*/ meltfnum[19] = 0 ; + /*^clear*/ + /*clear*/ /*_.IFCPP___V85*/ meltfptr[70] = 0 ;} /*endciterblock FOREACH_IN_MULTIPLE*/ + ; + + #if ENABLE_CHECKING + MELT_LOCATION("warmelt-normatch.melt:3063:/ cppif.then"); /*^block*/ /*anyblock*/{ - /*_#THE_MELTCALLCOUNT__L5*/ meltfnum[0] = + /*_#THE_MELTCALLCOUNT__L34*/ meltfnum[28] = meltcallcount;; - MELT_LOCATION("warmelt-normatch.melt:3052:/ apply"); + MELT_LOCATION("warmelt-normatch.melt:3063:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_cstring = "translpat_patmat mcase"; + argtab[0].bp_cstring = "translpat_inspat elselist"; /*^apply.arg*/ - argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L5*/ meltfnum[0]; + argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L34*/ meltfnum[28]; /*^apply.arg*/ argtab[2].bp_cstring = "warmelt-normatch.melt"; /*^apply.arg*/ - argtab[3].bp_long = 3052; - /*_.DEBUG_MSG_FUN__V16*/ meltfptr[15] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.MCASE__V4*/ meltfptr[3]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + argtab[3].bp_long = 3063; + /*_.DEBUG_MSG_FUN__V114*/ meltfptr[108] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.ELSELIST__V81*/ meltfptr[64]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; - /*_.IFCPP___V15*/ meltfptr[13] = /*_.DEBUG_MSG_FUN__V16*/ meltfptr[15];; + /*_.IFCPP___V113*/ meltfptr[107] = /*_.DEBUG_MSG_FUN__V114*/ meltfptr[108];; /*epilog*/ - MELT_LOCATION("warmelt-normatch.melt:3052:/ clear"); - /*clear*/ /*_#THE_MELTCALLCOUNT__L5*/ meltfnum[0] = 0 ; + MELT_LOCATION("warmelt-normatch.melt:3063:/ clear"); + /*clear*/ /*_#THE_MELTCALLCOUNT__L34*/ meltfnum[28] = 0 ; /*^clear*/ - /*clear*/ /*_.DEBUG_MSG_FUN__V16*/ meltfptr[15] = 0 ;} + /*clear*/ /*_.DEBUG_MSG_FUN__V114*/ meltfptr[108] = 0 ;} #else /*ENABLE_CHECKING*/ /*^cppif.else*/ - /*_.IFCPP___V15*/ meltfptr[13] = (/*nil*/NULL); + /*_.IFCPP___V113*/ meltfptr[107] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; + MELT_LOCATION("warmelt-normatch.melt:3064:/ quasiblock"); - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normatch.melt:3053:/ cppif.then"); + + /*_.LIST_FIRST_ELEMENT__V116*/ meltfptr[111] = + (melt_pair_head (melt_list_first((melt_ptr_t)(/*_.FLAGLIST__V80*/ meltfptr[39]))));; + MELT_LOCATION("warmelt-normatch.melt:3065:/ cond"); + /*cond*/ if (/*_.LIST_FIRST_ELEMENT__V116*/ meltfptr[111]) /*then*/ { + /*^cond.then*/ /*^block*/ /*anyblock*/{ - /*_#IS_A__L6*/ meltfnum[0] = - melt_is_instance_of((melt_ptr_t)(/*_.MCASE__V4*/ meltfptr[3]), (melt_ptr_t)((/*!CLASS_MATCH_CASE*/ meltfrout->tabval[3])));; - MELT_LOCATION("warmelt-normatch.melt:3053:/ cond"); - /*cond*/ if (/*_#IS_A__L6*/ meltfnum[0]) /*then*/ { - /*^cond.then*/ - /*_.IFELSE___V18*/ meltfptr[17] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normatch.melt:3053:/ cond.else"); - - /*^block*/ - /*anyblock*/{ - - - - - { - /*^locexp*/ - melt_assert_failed(( "check mcase"),( "warmelt-normatch.melt")?( "warmelt-normatch.melt"):__FILE__, - (3053)?(3053):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V18*/ meltfptr[17] = 0 ; - /*epilog*/ - } - ; + MELT_LOCATION("warmelt-normatch.melt:3071:/ apply"); + /*apply*/{ + union meltparam_un argtab[1]; + memset(&argtab, 0, sizeof(argtab)); + /*^apply.arg*/ + argtab[0].bp_aptr = (melt_ptr_t*) &(/*!DISCR_MULTIPLE*/ meltfrout->tabval[11]); + /*_.LIST_TO_MULTIPLE__V118*/ meltfptr[92] = melt_apply ((meltclosure_ptr_t)((/*!LIST_TO_MULTIPLE*/ meltfrout->tabval[20])), (melt_ptr_t)(/*_.FLAGLIST__V80*/ meltfptr[39]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; + MELT_LOCATION("warmelt-normatch.melt:3066:/ quasiblock"); + + + /*^rawallocobj*/ + /*rawallocobj*/ { melt_ptr_t newobj = 0; + melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_MATCH_STEP_FLAG_CONJONCTION*/ meltfrout->tabval[19])), (6), "CLASS_MATCH_STEP_FLAG_CONJONCTION");/*_.INST__V120*/ meltfptr[93] = + newobj; }; + ; + /*^putslot*/ + /*putslot*/ + melt_assertmsg("putslot checkobj @LOCA_LOCATION", melt_magic_discr((melt_ptr_t)(/*_.INST__V120*/ meltfptr[93])) == OBMAG_OBJECT); + melt_putfield_object((/*_.INST__V120*/ meltfptr[93]), (1), (/*_.SLOC__V23*/ meltfptr[22]), "LOCA_LOCATION"); + ; + /*^putslot*/ + /*putslot*/ + melt_assertmsg("putslot checkobj @MSTEP_DATA", melt_magic_discr((melt_ptr_t)(/*_.INST__V120*/ meltfptr[93])) == OBMAG_OBJECT); + melt_putfield_object((/*_.INST__V120*/ meltfptr[93]), (2), (/*_.MDATA__V3*/ meltfptr[2]), "MSTEP_DATA"); + ; + /*^putslot*/ + /*putslot*/ + melt_assertmsg("putslot checkobj @MSTEP_THEN", melt_magic_discr((melt_ptr_t)(/*_.INST__V120*/ meltfptr[93])) == OBMAG_OBJECT); + melt_putfield_object((/*_.INST__V120*/ meltfptr[93]), (3), ((/*nil*/NULL)), "MSTEP_THEN"); + ; + /*^putslot*/ + /*putslot*/ + melt_assertmsg("putslot checkobj @MSTEP_FLAG", melt_magic_discr((melt_ptr_t)(/*_.INST__V120*/ meltfptr[93])) == OBMAG_OBJECT); + melt_putfield_object((/*_.INST__V120*/ meltfptr[93]), (4), (/*_.MFLAG__V30*/ meltfptr[29]), "MSTEP_FLAG"); + ; + /*^putslot*/ + /*putslot*/ + melt_assertmsg("putslot checkobj @MSTEP_FLAGARGS", melt_magic_discr((melt_ptr_t)(/*_.INST__V120*/ meltfptr[93])) == OBMAG_OBJECT); + melt_putfield_object((/*_.INST__V120*/ meltfptr[93]), (5), (/*_.LIST_TO_MULTIPLE__V118*/ meltfptr[92]), "MSTEP_FLAGARGS"); + ; + /*_.INST___V119*/ meltfptr[105] = /*_.INST__V120*/ meltfptr[93];; /*^compute*/ - /*_.IFCPP___V17*/ meltfptr[15] = /*_.IFELSE___V18*/ meltfptr[17];; + /*_.STEPSETFLAG__V117*/ meltfptr[96] = /*_.INST___V119*/ meltfptr[105];; /*epilog*/ - MELT_LOCATION("warmelt-normatch.melt:3053:/ clear"); - /*clear*/ /*_#IS_A__L6*/ meltfnum[0] = 0 ; + MELT_LOCATION("warmelt-normatch.melt:3065:/ clear"); + /*clear*/ /*_.LIST_TO_MULTIPLE__V118*/ meltfptr[92] = 0 ; /*^clear*/ - /*clear*/ /*_.IFELSE___V18*/ meltfptr[17] = 0 ;} - - #else /*ENABLE_CHECKING*/ - /*^cppif.else*/ - /*_.IFCPP___V17*/ meltfptr[15] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ + /*clear*/ /*_.INST___V119*/ meltfptr[105] = 0 ;} ; - MELT_LOCATION("warmelt-normatch.melt:3054:/ quasiblock"); - - - MELT_LOCATION("warmelt-normatch.melt:3055:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), 1, "LOCA_LOCATION");/*_.LOCA_LOCATION__V20*/ meltfptr[19] = slot; }; - ; - /*^cond*/ - /*cond*/ if (/*_.LOCA_LOCATION__V20*/ meltfptr[19]) /*then*/ { - /*^cond.then*/ - /*_.SLOC__V21*/ meltfptr[20] = /*_.LOCA_LOCATION__V20*/ meltfptr[19];; - } else {MELT_LOCATION("warmelt-normatch.melt:3055:/ cond.else"); + } else {/*^cond.else*/ - /*_.SLOC__V21*/ meltfptr[20] = /*_.PSLOC__V6*/ meltfptr[5];; + /*^block*/ + /*anyblock*/{ + + MELT_LOCATION("warmelt-normatch.melt:3072:/ quasiblock"); + + + /*^rawallocobj*/ + /*rawallocobj*/ { melt_ptr_t newobj = 0; + melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_MATCH_STEP_FLAG_SET*/ meltfrout->tabval[21])), (5), "CLASS_MATCH_STEP_FLAG_SET");/*_.INST__V122*/ meltfptr[90] = + newobj; }; + ; + /*^putslot*/ + /*putslot*/ + melt_assertmsg("putslot checkobj @LOCA_LOCATION", melt_magic_discr((melt_ptr_t)(/*_.INST__V122*/ meltfptr[90])) == OBMAG_OBJECT); + melt_putfield_object((/*_.INST__V122*/ meltfptr[90]), (1), (/*_.SLOC__V23*/ meltfptr[22]), "LOCA_LOCATION"); + ; + /*^putslot*/ + /*putslot*/ + melt_assertmsg("putslot checkobj @MSTEP_DATA", melt_magic_discr((melt_ptr_t)(/*_.INST__V122*/ meltfptr[90])) == OBMAG_OBJECT); + melt_putfield_object((/*_.INST__V122*/ meltfptr[90]), (2), (/*_.MDATA__V3*/ meltfptr[2]), "MSTEP_DATA"); + ; + /*^putslot*/ + /*putslot*/ + melt_assertmsg("putslot checkobj @MSTEP_THEN", melt_magic_discr((melt_ptr_t)(/*_.INST__V122*/ meltfptr[90])) == OBMAG_OBJECT); + melt_putfield_object((/*_.INST__V122*/ meltfptr[90]), (3), ((/*nil*/NULL)), "MSTEP_THEN"); + ; + /*^putslot*/ + /*putslot*/ + melt_assertmsg("putslot checkobj @MSTEP_FLAG", melt_magic_discr((melt_ptr_t)(/*_.INST__V122*/ meltfptr[90])) == OBMAG_OBJECT); + melt_putfield_object((/*_.INST__V122*/ meltfptr[90]), (4), (/*_.MFLAG__V30*/ meltfptr[29]), "MSTEP_FLAG"); + ; + /*_.INST___V121*/ meltfptr[95] = /*_.INST__V122*/ meltfptr[90];; + /*^compute*/ + + /*_.STEPSETFLAG__V117*/ meltfptr[96] = /*_.INST___V121*/ meltfptr[95];; + /*epilog*/ + + MELT_LOCATION("warmelt-normatch.melt:3065:/ clear"); + /*clear*/ /*_.INST___V121*/ meltfptr[95] = 0 ;} + ; } ; - MELT_LOCATION("warmelt-normatch.melt:3056:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), 5, "SPAC_OPERBIND");/*_.SOPBIND__V22*/ meltfptr[21] = slot; }; - ; - MELT_LOCATION("warmelt-normatch.melt:3057:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), 4, "SPAC_OPERATOR");/*_.SOPER__V23*/ meltfptr[22] = slot; }; + MELT_LOCATION("warmelt-normatch.melt:3084:/ apply"); + /*apply*/{ + union meltparam_un argtab[1]; + memset(&argtab, 0, sizeof(argtab)); + /*^apply.arg*/ + argtab[0].bp_aptr = (melt_ptr_t*) &(/*!DISCR_MULTIPLE*/ meltfrout->tabval[11]); + /*_.LIST_TO_MULTIPLE__V123*/ meltfptr[91] = melt_apply ((meltclosure_ptr_t)((/*!LIST_TO_MULTIPLE*/ meltfrout->tabval[20])), (melt_ptr_t)(/*_.ELSELIST__V81*/ meltfptr[64]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + } ; - MELT_LOCATION("warmelt-normatch.melt:3058:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), 6, "SPAC_INARGS");/*_.SINS__V24*/ meltfptr[23] = slot; }; + MELT_LOCATION("warmelt-normatch.melt:3077:/ quasiblock"); + + + /*^rawallocobj*/ + /*rawallocobj*/ { melt_ptr_t newobj = 0; + melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_MATCH_STEP_TEST_GROUP*/ meltfrout->tabval[22])), (8), "CLASS_MATCH_STEP_TEST_GROUP");/*_.INST__V125*/ meltfptr[35] = + newobj; }; ; - MELT_LOCATION("warmelt-normatch.melt:3059:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), 7, "SPAC_OUTARGS");/*_.SOUTS__V25*/ meltfptr[24] = slot; }; + /*^putslot*/ + /*putslot*/ + melt_assertmsg("putslot checkobj @LOCA_LOCATION", melt_magic_discr((melt_ptr_t)(/*_.INST__V125*/ meltfptr[35])) == OBMAG_OBJECT); + melt_putfield_object((/*_.INST__V125*/ meltfptr[35]), (1), (/*_.SLOC__V23*/ meltfptr[22]), "LOCA_LOCATION"); ; - MELT_LOCATION("warmelt-normatch.melt:3060:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.MCASE__V4*/ meltfptr[3]), 1, "MCASE_MCTXT");/*_.MATCTX__V26*/ meltfptr[25] = slot; }; + /*^putslot*/ + /*putslot*/ + melt_assertmsg("putslot checkobj @MSTEP_DATA", melt_magic_discr((melt_ptr_t)(/*_.INST__V125*/ meltfptr[35])) == OBMAG_OBJECT); + melt_putfield_object((/*_.INST__V125*/ meltfptr[35]), (2), (/*_.MDATA__V3*/ meltfptr[2]), "MSTEP_DATA"); ; - MELT_LOCATION("warmelt-normatch.melt:3061:/ cond"); - /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.MATCTX__V26*/ meltfptr[25]), (melt_ptr_t)((/*!CLASS_MATCHING_CONTEXT*/ meltfrout->tabval[4])))) /*then*/ { - /*^cond.then*/ - /*^getslot*/ - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.MATCTX__V26*/ meltfptr[25]), 4, "MXCT_ENV");/*_.ENV__V27*/ meltfptr[26] = slot; }; - ; - } else {/*^cond.else*/ - - /*_.ENV__V27*/ meltfptr[26] = NULL;; - } + /*^putslot*/ + /*putslot*/ + melt_assertmsg("putslot checkobj @MSTEP_THEN", melt_magic_discr((melt_ptr_t)(/*_.INST__V125*/ meltfptr[35])) == OBMAG_OBJECT); + melt_putfield_object((/*_.INST__V125*/ meltfptr[35]), (3), ((/*nil*/NULL)), "MSTEP_THEN"); ; - MELT_LOCATION("warmelt-normatch.melt:3062:/ cond"); - /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.MATCTX__V26*/ meltfptr[25]), (melt_ptr_t)((/*!CLASS_MATCHING_CONTEXT*/ meltfrout->tabval[4])))) /*then*/ { - /*^cond.then*/ - /*^getslot*/ - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.MATCTX__V26*/ meltfptr[25]), 0, "MXCT_NORMCTXT");/*_.NCX__V28*/ meltfptr[27] = slot; }; - ; - } else {/*^cond.else*/ - - /*_.NCX__V28*/ meltfptr[27] = NULL;; - } + /*^putslot*/ + /*putslot*/ + melt_assertmsg("putslot checkobj @MSTEP_ELSE", melt_magic_discr((melt_ptr_t)(/*_.INST__V125*/ meltfptr[35])) == OBMAG_OBJECT); + melt_putfield_object((/*_.INST__V125*/ meltfptr[35]), (4), ((/*nil*/NULL)), "MSTEP_ELSE"); ; - MELT_LOCATION("warmelt-normatch.melt:3063:/ cond"); - /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.SOPER__V23*/ meltfptr[22]), (melt_ptr_t)((/*!CLASS_ANY_MATCHER*/ meltfrout->tabval[5])))) /*then*/ { - /*^cond.then*/ - /*^getslot*/ - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.SOPER__V23*/ meltfptr[22]), 2, "AMATCH_IN");/*_.OPIN__V29*/ meltfptr[28] = slot; }; - ; - } else {/*^cond.else*/ - - /*_.OPIN__V29*/ meltfptr[28] = NULL;; - } + /*^putslot*/ + /*putslot*/ + melt_assertmsg("putslot checkobj @MSTGROUP_START", melt_magic_discr((melt_ptr_t)(/*_.INST__V125*/ meltfptr[35])) == OBMAG_OBJECT); + melt_putfield_object((/*_.INST__V125*/ meltfptr[35]), (5), (/*_.ISTEP__V48*/ meltfptr[42]), "MSTGROUP_START"); ; - MELT_LOCATION("warmelt-normatch.melt:3064:/ cond"); - /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.SOPER__V23*/ meltfptr[22]), (melt_ptr_t)((/*!CLASS_ANY_MATCHER*/ meltfrout->tabval[5])))) /*then*/ { - /*^cond.then*/ - /*^getslot*/ - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.SOPER__V23*/ meltfptr[22]), 4, "AMATCH_OUT");/*_.OPOUT__V30*/ meltfptr[29] = slot; }; - ; - } else {/*^cond.else*/ - - /*_.OPOUT__V30*/ meltfptr[29] = NULL;; - } + /*^putslot*/ + /*putslot*/ + melt_assertmsg("putslot checkobj @MSTGROUP_THEN", melt_magic_discr((melt_ptr_t)(/*_.INST__V125*/ meltfptr[35])) == OBMAG_OBJECT); + melt_putfield_object((/*_.INST__V125*/ meltfptr[35]), (6), (/*_.LASTSTEP__V79*/ meltfptr[74]), "MSTGROUP_THEN"); ; - /*^compute*/ - - /*_#NBOPOUT__L7*/ meltfnum[0] = - (melt_multiple_length((melt_ptr_t)(/*_.OPOUT__V30*/ meltfptr[29])));; - /*^compute*/ - - /*_.CURSTEP__V31*/ meltfptr[30] = (/*nil*/NULL);; - MELT_LOCATION("warmelt-normatch.melt:3067:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.MDATA__V3*/ meltfptr[2]), 4, "MDATA_STEPS");/*_.MDATASTEPS__V32*/ meltfptr[31] = slot; }; + /*^putslot*/ + /*putslot*/ + melt_assertmsg("putslot checkobj @MSTGROUP_ELSE", melt_magic_discr((melt_ptr_t)(/*_.INST__V125*/ meltfptr[35])) == OBMAG_OBJECT); + melt_putfield_object((/*_.INST__V125*/ meltfptr[35]), (7), (/*_.LIST_TO_MULTIPLE__V123*/ meltfptr[91]), "MSTGROUP_ELSE"); ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normatch.melt:3069:/ cppif.then"); + /*_.STEPGROUP__V124*/ meltfptr[67] = /*_.INST__V125*/ meltfptr[35];; + MELT_LOCATION("warmelt-normatch.melt:3087:/ cond"); + /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.MFLAG__V30*/ meltfptr[29]), (melt_ptr_t)((/*!CLASS_MATCH_FLAG*/ meltfrout->tabval[23])))) /*then*/ { + /*^cond.then*/ /*^block*/ /*anyblock*/{ - /*_#IS_A__L8*/ meltfnum[7] = - melt_is_instance_of((melt_ptr_t)(/*_.MATCTX__V26*/ meltfptr[25]), (melt_ptr_t)((/*!CLASS_MATCHING_CONTEXT*/ meltfrout->tabval[4])));; - MELT_LOCATION("warmelt-normatch.melt:3069:/ cond"); - /*cond*/ if (/*_#IS_A__L8*/ meltfnum[7]) /*then*/ { - /*^cond.then*/ - /*_.IFELSE___V34*/ meltfptr[33] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normatch.melt:3069:/ cond.else"); - - /*^block*/ - /*anyblock*/{ - - - - - { - /*^locexp*/ - melt_assert_failed(( "check matctx"),( "warmelt-normatch.melt")?( "warmelt-normatch.melt"):__FILE__, - (3069)?(3069):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V34*/ meltfptr[33] = 0 ; - /*epilog*/ - } - ; - } + /*^putslot*/ + /*putslot*/ + melt_assertmsg("putslot checkobj @MFLAG_SETSTEP", melt_magic_discr((melt_ptr_t)(/*_.MFLAG__V30*/ meltfptr[29])) == OBMAG_OBJECT); + melt_putfield_object((/*_.MFLAG__V30*/ meltfptr[29]), (5), (/*_.STEPSETFLAG__V117*/ meltfptr[96]), "MFLAG_SETSTEP"); ; - /*^compute*/ - - /*_.IFCPP___V33*/ meltfptr[32] = /*_.IFELSE___V34*/ meltfptr[33];; - /*epilog*/ - - MELT_LOCATION("warmelt-normatch.melt:3069:/ clear"); - /*clear*/ /*_#IS_A__L8*/ meltfnum[7] = 0 ; - /*^clear*/ - /*clear*/ /*_.IFELSE___V34*/ meltfptr[33] = 0 ;} - - #else /*ENABLE_CHECKING*/ - /*^cppif.else*/ - /*_.IFCPP___V33*/ meltfptr[32] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normatch.melt:3070:/ cppif.then"); - /*^block*/ - /*anyblock*/{ - - /*_#IS_A__L9*/ meltfnum[7] = - melt_is_instance_of((melt_ptr_t)(/*_.ENV__V27*/ meltfptr[26]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ meltfrout->tabval[6])));; - MELT_LOCATION("warmelt-normatch.melt:3070:/ cond"); - /*cond*/ if (/*_#IS_A__L9*/ meltfnum[7]) /*then*/ { - /*^cond.then*/ - /*_.IFELSE___V36*/ meltfptr[35] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normatch.melt:3070:/ cond.else"); - - /*^block*/ - /*anyblock*/{ - - - - - { - /*^locexp*/ - melt_assert_failed(( "check env"),( "warmelt-normatch.melt")?( "warmelt-normatch.melt"):__FILE__, - (3070)?(3070):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V36*/ meltfptr[35] = 0 ; - /*epilog*/ - } - ; - } + /*^touch*/ + meltgc_touch(/*_.MFLAG__V30*/ meltfptr[29]); ; - /*^compute*/ - - /*_.IFCPP___V35*/ meltfptr[33] = /*_.IFELSE___V36*/ meltfptr[35];; /*epilog*/ - - MELT_LOCATION("warmelt-normatch.melt:3070:/ clear"); - /*clear*/ /*_#IS_A__L9*/ meltfnum[7] = 0 ; - /*^clear*/ - /*clear*/ /*_.IFELSE___V36*/ meltfptr[35] = 0 ;} - - #else /*ENABLE_CHECKING*/ - /*^cppif.else*/ - /*_.IFCPP___V35*/ meltfptr[33] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ + } ; + } /*noelse*/ + ; + MELT_LOCATION("warmelt-normatch.melt:3088:/ msend"); + /*msend*/{ + union meltparam_un argtab[1]; + memset(&argtab, 0, sizeof(argtab)); + /*^ojbmsend.arg*/ + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.STEPSETFLAG__V117*/ meltfptr[96]; + /*_.PUT_THEN_MATCH__V126*/ meltfptr[88] = meltgc_send((melt_ptr_t)(/*_.LASTSTEP__V79*/ meltfptr[74]), (melt_ptr_t)((/*!PUT_THEN_MATCH*/ meltfrout->tabval[18])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + } + ; + MELT_LOCATION("warmelt-normatch.melt:3089:/ msend"); + /*msend*/{ + union meltparam_un argtab[1]; + memset(&argtab, 0, sizeof(argtab)); + /*^ojbmsend.arg*/ + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.STEPGROUP__V124*/ meltfptr[67]; + /*_.PUT_THEN_MATCH__V127*/ meltfptr[89] = meltgc_send((melt_ptr_t)(/*_.STEPSETFLAG__V117*/ meltfptr[96]), (melt_ptr_t)((/*!PUT_THEN_MATCH*/ meltfrout->tabval[18])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + } + ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normatch.melt:3071:/ cppif.then"); + MELT_LOCATION("warmelt-normatch.melt:3090:/ cppif.then"); /*^block*/ /*anyblock*/{ - /*_#THE_MELTCALLCOUNT__L10*/ meltfnum[7] = + /*_#THE_MELTCALLCOUNT__L35*/ meltfnum[26] = meltcallcount;; - MELT_LOCATION("warmelt-normatch.melt:3071:/ apply"); + MELT_LOCATION("warmelt-normatch.melt:3090:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_cstring = "translpat_patmat soper"; + argtab[0].bp_cstring = "translpat_inspat return stepgroup"; /*^apply.arg*/ - argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L10*/ meltfnum[7]; + argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L35*/ meltfnum[26]; /*^apply.arg*/ argtab[2].bp_cstring = "warmelt-normatch.melt"; /*^apply.arg*/ - argtab[3].bp_long = 3071; - /*_.DEBUG_MSG_FUN__V38*/ meltfptr[37] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.SOPER__V23*/ meltfptr[22]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + argtab[3].bp_long = 3090; + /*_.DEBUG_MSG_FUN__V129*/ meltfptr[92] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.STEPGROUP__V124*/ meltfptr[67]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; - /*_.IFCPP___V37*/ meltfptr[35] = /*_.DEBUG_MSG_FUN__V38*/ meltfptr[37];; + /*_.IFCPP___V128*/ meltfptr[108] = /*_.DEBUG_MSG_FUN__V129*/ meltfptr[92];; /*epilog*/ - MELT_LOCATION("warmelt-normatch.melt:3071:/ clear"); - /*clear*/ /*_#THE_MELTCALLCOUNT__L10*/ meltfnum[7] = 0 ; + MELT_LOCATION("warmelt-normatch.melt:3090:/ clear"); + /*clear*/ /*_#THE_MELTCALLCOUNT__L35*/ meltfnum[26] = 0 ; /*^clear*/ - /*clear*/ /*_.DEBUG_MSG_FUN__V38*/ meltfptr[37] = 0 ;} + /*clear*/ /*_.DEBUG_MSG_FUN__V129*/ meltfptr[92] = 0 ;} #else /*ENABLE_CHECKING*/ /*^cppif.else*/ - /*_.IFCPP___V37*/ meltfptr[35] = (/*nil*/NULL); + /*_.IFCPP___V128*/ meltfptr[108] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; + MELT_LOCATION("warmelt-normatch.melt:3091:/ quasiblock"); - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normatch.melt:3072:/ cppif.then"); - /*^block*/ - /*anyblock*/{ - - /*_#IS_A__L11*/ meltfnum[7] = - melt_is_instance_of((melt_ptr_t)(/*_.SOPER__V23*/ meltfptr[22]), (melt_ptr_t)((/*!CLASS_ANY_MATCHER*/ meltfrout->tabval[5])));; - MELT_LOCATION("warmelt-normatch.melt:3072:/ cond"); - /*cond*/ if (/*_#IS_A__L11*/ meltfnum[7]) /*then*/ { - /*^cond.then*/ - /*_.IFELSE___V40*/ meltfptr[39] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normatch.melt:3072:/ cond.else"); - - /*^block*/ - /*anyblock*/{ - - - - - { - /*^locexp*/ - melt_assert_failed(( "check soper"),( "warmelt-normatch.melt")?( "warmelt-normatch.melt"):__FILE__, - (3072)?(3072):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V40*/ meltfptr[39] = 0 ; - /*epilog*/ - } - ; - } - ; - /*^compute*/ - - /*_.IFCPP___V39*/ meltfptr[37] = /*_.IFELSE___V40*/ meltfptr[39];; - /*epilog*/ - - MELT_LOCATION("warmelt-normatch.melt:3072:/ clear"); - /*clear*/ /*_#IS_A__L11*/ meltfnum[7] = 0 ; - /*^clear*/ - /*clear*/ /*_.IFELSE___V40*/ meltfptr[39] = 0 ;} - - #else /*ENABLE_CHECKING*/ - /*^cppif.else*/ - /*_.IFCPP___V39*/ meltfptr[37] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normatch.melt:3073:/ cppif.then"); - /*^block*/ - /*anyblock*/{ - - /*_#THE_MELTCALLCOUNT__L12*/ meltfnum[7] = - meltcallcount;; - MELT_LOCATION("warmelt-normatch.melt:3073:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - /*^apply.arg*/ - argtab[0].bp_cstring = "translpat_patmat sins"; - /*^apply.arg*/ - argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L12*/ meltfnum[7]; - /*^apply.arg*/ - argtab[2].bp_cstring = "warmelt-normatch.melt"; - /*^apply.arg*/ - argtab[3].bp_long = 3073; - /*_.DEBUG_MSG_FUN__V42*/ meltfptr[41] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.SINS__V24*/ meltfptr[23]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V41*/ meltfptr[39] = /*_.DEBUG_MSG_FUN__V42*/ meltfptr[41];; - /*epilog*/ - - MELT_LOCATION("warmelt-normatch.melt:3073:/ clear"); - /*clear*/ /*_#THE_MELTCALLCOUNT__L12*/ meltfnum[7] = 0 ; - /*^clear*/ - /*clear*/ /*_.DEBUG_MSG_FUN__V42*/ meltfptr[41] = 0 ;} - - #else /*ENABLE_CHECKING*/ - /*^cppif.else*/ - /*_.IFCPP___V41*/ meltfptr[39] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; + /*_.RETVAL___V1*/ meltfptr[0] = /*_.STEPGROUP__V124*/ meltfptr[67];; + MELT_LOCATION("warmelt-normatch.melt:3091:/ putxtraresult"); + if (!xrestab_ || !xresdescr_) goto labend_rout; + if (xresdescr_[0] != BPAR_PTR) goto labend_rout; + if (xrestab_[0].bp_aptr) *(xrestab_[0].bp_aptr) = (melt_ptr_t) (/*_.MFLAG__V30*/ meltfptr[29]); + ; + /*^finalreturn*/ + ; + /*finalret*/ goto labend_rout ; + /*_.LET___V115*/ meltfptr[110] = /*_.RETURN___V130*/ meltfptr[105];; - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normatch.melt:3074:/ cppif.then"); - /*^block*/ - /*anyblock*/{ - - /*_#THE_MELTCALLCOUNT__L13*/ meltfnum[7] = + MELT_LOCATION("warmelt-normatch.melt:3064:/ clear"); + /*clear*/ /*_.LIST_FIRST_ELEMENT__V116*/ meltfptr[111] = 0 ; + /*^clear*/ + /*clear*/ /*_.STEPSETFLAG__V117*/ meltfptr[96] = 0 ; + /*^clear*/ + /*clear*/ /*_.LIST_TO_MULTIPLE__V123*/ meltfptr[91] = 0 ; + /*^clear*/ + /*clear*/ /*_.STEPGROUP__V124*/ meltfptr[67] = 0 ; + /*^clear*/ + /*clear*/ /*_.PUT_THEN_MATCH__V126*/ meltfptr[88] = 0 ; + /*^clear*/ + /*clear*/ /*_.PUT_THEN_MATCH__V127*/ meltfptr[89] = 0 ; + /*^clear*/ + /*clear*/ /*_.IFCPP___V128*/ meltfptr[108] = 0 ; + /*^clear*/ + /*clear*/ /*_.RETURN___V130*/ meltfptr[105] = 0 ; + /*_.LET___V77*/ meltfptr[72] = /*_.LET___V115*/ meltfptr[110];; + + MELT_LOCATION("warmelt-normatch.melt:3017:/ clear"); + /*clear*/ /*_.MSLOTS__V78*/ meltfptr[73] = 0 ; + /*^clear*/ + /*clear*/ /*_.LASTSTEP__V79*/ meltfptr[74] = 0 ; + /*^clear*/ + /*clear*/ /*_.FLAGLIST__V80*/ meltfptr[39] = 0 ; + /*^clear*/ + /*clear*/ /*_.ELSELIST__V81*/ meltfptr[64] = 0 ; + /*^clear*/ + /*clear*/ /*_.IFCPP___V82*/ meltfptr[66] = 0 ; + /*^clear*/ + /*clear*/ /*_.IFCPP___V113*/ meltfptr[107] = 0 ; + /*^clear*/ + /*clear*/ /*_.LET___V115*/ meltfptr[110] = 0 ; + /*_.LET___V47*/ meltfptr[41] = /*_.LET___V77*/ meltfptr[72];; + + MELT_LOCATION("warmelt-normatch.melt:2976:/ clear"); + /*clear*/ /*_.ISTEP__V48*/ meltfptr[42] = 0 ; + /*^clear*/ + /*clear*/ /*_.LASTSTEPTEST__V49*/ meltfptr[43] = 0 ; + /*^clear*/ + /*clear*/ /*_.STEPLIST__V50*/ meltfptr[44] = 0 ; + /*^clear*/ + /*clear*/ /*_.IFCPP___V60*/ meltfptr[38] = 0 ; + /*^clear*/ + /*clear*/ /*_#NULL__L19*/ meltfnum[15] = 0 ; + /*^clear*/ + /*clear*/ /*_.IF___V62*/ meltfptr[37] = 0 ; + /*^clear*/ + /*clear*/ /*_.LET___V77*/ meltfptr[72] = 0 ; + /*_.LET___V27*/ meltfptr[25] = /*_.LET___V47*/ meltfptr[41];; + + MELT_LOCATION("warmelt-normatch.melt:2954:/ clear"); + /*clear*/ /*_.CLASS_FIELDS__V28*/ meltfptr[27] = 0 ; + /*^clear*/ + /*clear*/ /*_#NBFIELDS__L8*/ meltfnum[0] = 0 ; + /*^clear*/ + /*clear*/ /*_.NAMED_NAME__V29*/ meltfptr[28] = 0 ; + /*^clear*/ + /*clear*/ /*_.MFLAG__V30*/ meltfptr[29] = 0 ; + /*^clear*/ + /*clear*/ /*_.LET___V47*/ meltfptr[41] = 0 ; + /*_.LET___V19*/ meltfptr[17] = /*_.LET___V27*/ meltfptr[25];; + + MELT_LOCATION("warmelt-normatch.melt:2947:/ clear"); + /*clear*/ /*_.PCLASS__V20*/ meltfptr[19] = 0 ; + /*^clear*/ + /*clear*/ /*_.PFIELDS__V21*/ meltfptr[20] = 0 ; + /*^clear*/ + /*clear*/ /*_.LOCA_LOCATION__V22*/ meltfptr[21] = 0 ; + /*^clear*/ + /*clear*/ /*_.SLOC__V23*/ meltfptr[22] = 0 ; + /*^clear*/ + /*clear*/ /*_.MCTXT__V24*/ meltfptr[23] = 0 ; + /*^clear*/ + /*clear*/ /*_.IFCPP___V25*/ meltfptr[24] = 0 ; + /*^clear*/ + /*clear*/ /*_.LET___V27*/ meltfptr[25] = 0 ; + MELT_LOCATION("warmelt-normatch.melt:2940:/ quasiblock"); + + + /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V19*/ meltfptr[17];; + MELT_LOCATION("warmelt-normatch.melt:2940:/ finalreturn"); + ; + /*finalret*/ goto labend_rout ; + /*epilog*/ + + /*^clear*/ + /*clear*/ /*_.IFCPP___V7*/ meltfptr[6] = 0 ; + /*^clear*/ + /*clear*/ /*_.IFCPP___V9*/ meltfptr[7] = 0 ; + /*^clear*/ + /*clear*/ /*_.IFCPP___V11*/ meltfptr[9] = 0 ; + /*^clear*/ + /*clear*/ /*_.IFCPP___V13*/ meltfptr[11] = 0 ; + /*^clear*/ + /*clear*/ /*_.IFCPP___V15*/ meltfptr[13] = 0 ; + /*^clear*/ + /*clear*/ /*_.IFCPP___V17*/ meltfptr[15] = 0 ; + /*^clear*/ + /*clear*/ /*_.LET___V19*/ meltfptr[17] = 0 ;} + +; + goto labend_rout; +labend_rout: +melt_trace_end("TRANSLPAT_INSPAT", meltcallcount); melt_topframe = (struct callframe_melt_st*) meltfram__.prev; + return (melt_ptr_t)(/*_.RETVAL___V1*/ meltfptr[0]); +#undef meltcallcount +#undef meltfram__ +#undef MELTFRAM_NBVARNUM +#undef MELTFRAM_NBVARPTR +} /*end meltrout_67_warmelt_normatch_TRANSLPAT_INSPAT*/ + + + + + +melt_ptr_t MELT_MODULE_VISIBILITY +meltrout_68_warmelt_normatch_TRANSLPAT_VARPAT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, + const char xresdescr_[], union meltparam_un *xrestab_) +{ +#if ENABLE_CHECKING + static long call_counter__; + long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; +#undef meltcallcount +#define meltcallcount thiscallcounter__ +#else +#undef meltcallcount +#define meltcallcount 0L +#endif + + struct frame_meltrout_68_warmelt_normatch_TRANSLPAT_VARPAT_st { unsigned nbvar; +#if ENABLE_CHECKING + const char* flocs; +#endif + struct meltclosure_st *clos; + struct excepth_melt_st *exh; + struct callframe_melt_st *prev; +#define MELTFRAM_NBVARPTR 75 + void* varptr[75]; +#define MELTFRAM_NBVARNUM 22 + long varnum[22]; +/*others*/ + long _spare_; } + *framptr_=0, meltframe; +#define meltfram__ meltframe + if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/ + int ix=0; + framptr_ = (void*)firstargp_; + gt_ggc_mx_melt_un (framptr_->clos); + for(ix=0; ix<75; ix++) + if (framptr_->varptr[ix]) + gt_ggc_mx_melt_un (framptr_->varptr[ix]); + return NULL; + }/*end markggc*/; + memset(&meltfram__, 0, sizeof(meltfram__)); + meltfram__.nbvar = 75; + meltfram__.clos = closp_; + meltfram__.prev = (struct callframe_melt_st *) melt_topframe; + melt_topframe = (struct callframe_melt_st *) &meltfram__; +melt_trace_start("TRANSLPAT_VARPAT", meltcallcount); +/*getargs*/ + + /*getarg#0*/ + MELT_LOCATION("warmelt-normatch.melt:3098:/ getarg"); + /*_.RECV__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; + + /*getarg#1*/ + /*^getarg*/ + if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; + /*_.MDATA__V3*/ meltfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; + gcc_assert(melt_discr((melt_ptr_t)(/*_.MDATA__V3*/ meltfptr[2])) != NULL); + + + /*getarg#2*/ + /*^getarg*/ + if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; + /*_.MCASE__V4*/ meltfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; + gcc_assert(melt_discr((melt_ptr_t)(/*_.MCASE__V4*/ meltfptr[3])) != NULL); + + + /*getarg#3*/ + /*^getarg*/ + if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs; + /*_.VARMAP__V5*/ meltfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL; + gcc_assert(melt_discr((melt_ptr_t)(/*_.VARMAP__V5*/ meltfptr[4])) != NULL); + + + /*getarg#4*/ + /*^getarg*/ + if (xargdescr_[3] != BPAR_PTR) goto lab_endgetargs; + /*_.PSLOC__V6*/ meltfptr[5] = (xargtab_[3].bp_aptr) ? (*(xargtab_[3].bp_aptr)) : NULL; + gcc_assert(melt_discr((melt_ptr_t)(/*_.PSLOC__V6*/ meltfptr[5])) != NULL); + + ; + goto lab_endgetargs; +lab_endgetargs:; +/*body*/ +/*^block*/ +/*anyblock*/{ + + + #if ENABLE_CHECKING + MELT_LOCATION("warmelt-normatch.melt:3099:/ cppif.then"); + /*^block*/ + /*anyblock*/{ + + /*_#THE_MELTCALLCOUNT__L1*/ meltfnum[0] = meltcallcount;; - MELT_LOCATION("warmelt-normatch.melt:3074:/ apply"); + MELT_LOCATION("warmelt-normatch.melt:3099:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_cstring = "translpat_patmat souts"; + argtab[0].bp_cstring = "translpat_varpat recv"; /*^apply.arg*/ - argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L13*/ meltfnum[7]; + argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L1*/ meltfnum[0]; /*^apply.arg*/ argtab[2].bp_cstring = "warmelt-normatch.melt"; /*^apply.arg*/ - argtab[3].bp_long = 3074; - /*_.DEBUG_MSG_FUN__V44*/ meltfptr[43] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.SOUTS__V25*/ meltfptr[24]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + argtab[3].bp_long = 3099; + /*_.DEBUG_MSG_FUN__V8*/ meltfptr[7] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; - /*_.IFCPP___V43*/ meltfptr[41] = /*_.DEBUG_MSG_FUN__V44*/ meltfptr[43];; + /*_.IFCPP___V7*/ meltfptr[6] = /*_.DEBUG_MSG_FUN__V8*/ meltfptr[7];; /*epilog*/ - MELT_LOCATION("warmelt-normatch.melt:3074:/ clear"); - /*clear*/ /*_#THE_MELTCALLCOUNT__L13*/ meltfnum[7] = 0 ; + MELT_LOCATION("warmelt-normatch.melt:3099:/ clear"); + /*clear*/ /*_#THE_MELTCALLCOUNT__L1*/ meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_.DEBUG_MSG_FUN__V44*/ meltfptr[43] = 0 ;} + /*clear*/ /*_.DEBUG_MSG_FUN__V8*/ meltfptr[7] = 0 ;} #else /*ENABLE_CHECKING*/ /*^cppif.else*/ - /*_.IFCPP___V43*/ meltfptr[41] = (/*nil*/NULL); + /*_.IFCPP___V7*/ meltfptr[6] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normatch.melt:3075:/ cppif.then"); + MELT_LOCATION("warmelt-normatch.melt:3100:/ cppif.then"); /*^block*/ /*anyblock*/{ - /*_#THE_MELTCALLCOUNT__L14*/ meltfnum[7] = - meltcallcount;; - MELT_LOCATION("warmelt-normatch.melt:3075:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - /*^apply.arg*/ - argtab[0].bp_cstring = "translpat_patmat sopbind"; - /*^apply.arg*/ - argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L14*/ meltfnum[7]; - /*^apply.arg*/ - argtab[2].bp_cstring = "warmelt-normatch.melt"; - /*^apply.arg*/ - argtab[3].bp_long = 3075; - /*_.DEBUG_MSG_FUN__V46*/ meltfptr[45] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.SOPBIND__V22*/ meltfptr[21]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + /*_#IS_A__L2*/ meltfnum[0] = + melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_PATTERN_VARIABLE*/ meltfrout->tabval[1])));; + MELT_LOCATION("warmelt-normatch.melt:3100:/ cond"); + /*cond*/ if (/*_#IS_A__L2*/ meltfnum[0]) /*then*/ { + /*^cond.then*/ + /*_.IFELSE___V10*/ meltfptr[9] = (/*nil*/NULL);; + } else {MELT_LOCATION("warmelt-normatch.melt:3100:/ cond.else"); + + /*^block*/ + /*anyblock*/{ + + + + + { + /*^locexp*/ + melt_assert_failed(( "check recv"),( "warmelt-normatch.melt")?( "warmelt-normatch.melt"):__FILE__, + (3100)?(3100):__LINE__, __FUNCTION__); +;} + ; + /*clear*/ /*_.IFELSE___V10*/ meltfptr[9] = 0 ; + /*epilog*/ + } + ; } ; - /*_.IFCPP___V45*/ meltfptr[43] = /*_.DEBUG_MSG_FUN__V46*/ meltfptr[45];; + /*^compute*/ + + /*_.IFCPP___V9*/ meltfptr[7] = /*_.IFELSE___V10*/ meltfptr[9];; /*epilog*/ - MELT_LOCATION("warmelt-normatch.melt:3075:/ clear"); - /*clear*/ /*_#THE_MELTCALLCOUNT__L14*/ meltfnum[7] = 0 ; + MELT_LOCATION("warmelt-normatch.melt:3100:/ clear"); + /*clear*/ /*_#IS_A__L2*/ meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_.DEBUG_MSG_FUN__V46*/ meltfptr[45] = 0 ;} + /*clear*/ /*_.IFELSE___V10*/ meltfptr[9] = 0 ;} #else /*ENABLE_CHECKING*/ /*^cppif.else*/ - /*_.IFCPP___V45*/ meltfptr[43] = (/*nil*/NULL); + /*_.IFCPP___V9*/ meltfptr[7] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-normatch.melt:3076:/ quasiblock"); - - - /*^multiapply*/ - /*multiapply 4args, 1x.res*/ { - union meltparam_un argtab[3]; - - union meltparam_un restab[1]; - memset(&restab, 0, sizeof(restab)); - memset(&argtab, 0, sizeof(argtab)); - /*^multiapply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.ENV__V27*/ meltfptr[26];/*^multiapply.arg*/ - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.NCX__V28*/ meltfptr[27];/*^multiapply.arg*/ - argtab[2].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V21*/ meltfptr[20]; - /*^multiapply.xres*/ - restab[0].bp_aptr = (melt_ptr_t*) &/*_.INBINDS__V49*/ meltfptr[48]; - /*^multiapply.appl*/ - /*_.NINS__V48*/ meltfptr[47] = melt_apply ((meltclosure_ptr_t)((/*!NORMALIZE_TUPLE*/ meltfrout->tabval[7])), (melt_ptr_t)(/*_.SINS__V24*/ meltfptr[23]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, (BPARSTR_PTR ""), restab); - } - ; - /*^quasiblock*/ - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normatch.melt:3079:/ cppif.then"); + MELT_LOCATION("warmelt-normatch.melt:3101:/ cppif.then"); /*^block*/ /*anyblock*/{ - /*_#THE_MELTCALLCOUNT__L15*/ meltfnum[7] = + /*_#THE_MELTCALLCOUNT__L3*/ meltfnum[0] = meltcallcount;; - MELT_LOCATION("warmelt-normatch.melt:3079:/ apply"); + MELT_LOCATION("warmelt-normatch.melt:3101:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_cstring = "translpat_patmat nins"; + argtab[0].bp_cstring = "translpat_varpat mdata"; /*^apply.arg*/ - argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L15*/ meltfnum[7]; + argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L3*/ meltfnum[0]; /*^apply.arg*/ argtab[2].bp_cstring = "warmelt-normatch.melt"; /*^apply.arg*/ - argtab[3].bp_long = 3079; - /*_.DEBUG_MSG_FUN__V51*/ meltfptr[50] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.NINS__V48*/ meltfptr[47]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + argtab[3].bp_long = 3101; + /*_.DEBUG_MSG_FUN__V12*/ meltfptr[11] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.MDATA__V3*/ meltfptr[2]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; - /*_.IFCPP___V50*/ meltfptr[49] = /*_.DEBUG_MSG_FUN__V51*/ meltfptr[50];; + /*_.IFCPP___V11*/ meltfptr[9] = /*_.DEBUG_MSG_FUN__V12*/ meltfptr[11];; /*epilog*/ - MELT_LOCATION("warmelt-normatch.melt:3079:/ clear"); - /*clear*/ /*_#THE_MELTCALLCOUNT__L15*/ meltfnum[7] = 0 ; + MELT_LOCATION("warmelt-normatch.melt:3101:/ clear"); + /*clear*/ /*_#THE_MELTCALLCOUNT__L3*/ meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_.DEBUG_MSG_FUN__V51*/ meltfptr[50] = 0 ;} + /*clear*/ /*_.DEBUG_MSG_FUN__V12*/ meltfptr[11] = 0 ;} #else /*ENABLE_CHECKING*/ /*^cppif.else*/ - /*_.IFCPP___V50*/ meltfptr[49] = (/*nil*/NULL); + /*_.IFCPP___V11*/ meltfptr[9] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normatch.melt:3080:/ cppif.then"); + MELT_LOCATION("warmelt-normatch.melt:3102:/ cppif.then"); /*^block*/ /*anyblock*/{ - /*_#THE_MELTCALLCOUNT__L16*/ meltfnum[7] = - meltcallcount;; - MELT_LOCATION("warmelt-normatch.melt:3080:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - /*^apply.arg*/ - argtab[0].bp_cstring = "translpat_patmat inbinds"; - /*^apply.arg*/ - argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L16*/ meltfnum[7]; - /*^apply.arg*/ - argtab[2].bp_cstring = "warmelt-normatch.melt"; - /*^apply.arg*/ - argtab[3].bp_long = 3080; - /*_.DEBUG_MSG_FUN__V53*/ meltfptr[52] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.INBINDS__V49*/ meltfptr[48]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V52*/ meltfptr[50] = /*_.DEBUG_MSG_FUN__V53*/ meltfptr[52];; - /*epilog*/ - - MELT_LOCATION("warmelt-normatch.melt:3080:/ clear"); - /*clear*/ /*_#THE_MELTCALLCOUNT__L16*/ meltfnum[7] = 0 ; - /*^clear*/ - /*clear*/ /*_.DEBUG_MSG_FUN__V53*/ meltfptr[52] = 0 ;} + /*_#IS_A__L4*/ meltfnum[0] = + melt_is_instance_of((melt_ptr_t)(/*_.MDATA__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_MATCHED_DATA*/ meltfrout->tabval[2])));; + MELT_LOCATION("warmelt-normatch.melt:3102:/ cond"); + /*cond*/ if (/*_#IS_A__L4*/ meltfnum[0]) /*then*/ { + /*^cond.then*/ + /*_.IFELSE___V14*/ meltfptr[13] = (/*nil*/NULL);; + } else {MELT_LOCATION("warmelt-normatch.melt:3102:/ cond.else"); + + /*^block*/ + /*anyblock*/{ + + + + + { + /*^locexp*/ + melt_assert_failed(( "check mdata"),( "warmelt-normatch.melt")?( "warmelt-normatch.melt"):__FILE__, + (3102)?(3102):__LINE__, __FUNCTION__); +;} + ; + /*clear*/ /*_.IFELSE___V14*/ meltfptr[13] = 0 ; + /*epilog*/ + } + ; + } + ; + /*^compute*/ + + /*_.IFCPP___V13*/ meltfptr[11] = /*_.IFELSE___V14*/ meltfptr[13];; + /*epilog*/ + + MELT_LOCATION("warmelt-normatch.melt:3102:/ clear"); + /*clear*/ /*_#IS_A__L4*/ meltfnum[0] = 0 ; + /*^clear*/ + /*clear*/ /*_.IFELSE___V14*/ meltfptr[13] = 0 ;} #else /*ENABLE_CHECKING*/ /*^cppif.else*/ - /*_.IFCPP___V52*/ meltfptr[50] = (/*nil*/NULL); + /*_.IFCPP___V13*/ meltfptr[11] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normatch.melt:3081:/ cppif.then"); + MELT_LOCATION("warmelt-normatch.melt:3103:/ cppif.then"); /*^block*/ /*anyblock*/{ - /*_#IS_LIST_OR_NULL__L17*/ meltfnum[7] = - ((/*_.INBINDS__V49*/ meltfptr[48]) == NULL - || (melt_unsafe_magic_discr((melt_ptr_t)(/*_.INBINDS__V49*/ meltfptr[48])) == OBMAG_LIST));; - MELT_LOCATION("warmelt-normatch.melt:3081:/ cond"); - /*cond*/ if (/*_#IS_LIST_OR_NULL__L17*/ meltfnum[7]) /*then*/ { + /*_#THE_MELTCALLCOUNT__L5*/ meltfnum[0] = + meltcallcount;; + MELT_LOCATION("warmelt-normatch.melt:3103:/ apply"); + /*apply*/{ + union meltparam_un argtab[4]; + memset(&argtab, 0, sizeof(argtab)); + /*^apply.arg*/ + argtab[0].bp_cstring = "translpat_varpat mcase"; + /*^apply.arg*/ + argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L5*/ meltfnum[0]; + /*^apply.arg*/ + argtab[2].bp_cstring = "warmelt-normatch.melt"; + /*^apply.arg*/ + argtab[3].bp_long = 3103; + /*_.DEBUG_MSG_FUN__V16*/ meltfptr[15] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.MCASE__V4*/ meltfptr[3]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + } + ; + /*_.IFCPP___V15*/ meltfptr[13] = /*_.DEBUG_MSG_FUN__V16*/ meltfptr[15];; + /*epilog*/ + + MELT_LOCATION("warmelt-normatch.melt:3103:/ clear"); + /*clear*/ /*_#THE_MELTCALLCOUNT__L5*/ meltfnum[0] = 0 ; + /*^clear*/ + /*clear*/ /*_.DEBUG_MSG_FUN__V16*/ meltfptr[15] = 0 ;} + + #else /*ENABLE_CHECKING*/ + /*^cppif.else*/ + /*_.IFCPP___V15*/ meltfptr[13] = (/*nil*/NULL); + #endif /*ENABLE_CHECKING*/ + ; + + #if ENABLE_CHECKING + MELT_LOCATION("warmelt-normatch.melt:3104:/ cppif.then"); + /*^block*/ + /*anyblock*/{ + + /*_#IS_A__L6*/ meltfnum[0] = + melt_is_instance_of((melt_ptr_t)(/*_.MCASE__V4*/ meltfptr[3]), (melt_ptr_t)((/*!CLASS_MATCH_CASE*/ meltfrout->tabval[3])));; + MELT_LOCATION("warmelt-normatch.melt:3104:/ cond"); + /*cond*/ if (/*_#IS_A__L6*/ meltfnum[0]) /*then*/ { /*^cond.then*/ - /*_.IFELSE___V55*/ meltfptr[54] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normatch.melt:3081:/ cond.else"); + /*_.IFELSE___V18*/ meltfptr[17] = (/*nil*/NULL);; + } else {MELT_LOCATION("warmelt-normatch.melt:3104:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -2191,11 +2833,11 @@ lab_endgetargs:; { /*^locexp*/ - melt_assert_failed(( "check inbinds"),( "warmelt-normatch.melt")?( "warmelt-normatch.melt"):__FILE__, - (3081)?(3081):__LINE__, __FUNCTION__); + melt_assert_failed(( "check mcase"),( "warmelt-normatch.melt")?( "warmelt-normatch.melt"):__FILE__, + (3104)?(3104):__LINE__, __FUNCTION__); ;} ; - /*clear*/ /*_.IFELSE___V55*/ meltfptr[54] = 0 ; + /*clear*/ /*_.IFELSE___V18*/ meltfptr[17] = 0 ; /*epilog*/ } ; @@ -2203,1358 +2845,1033 @@ lab_endgetargs:; ; /*^compute*/ - /*_.IFCPP___V54*/ meltfptr[52] = /*_.IFELSE___V55*/ meltfptr[54];; + /*_.IFCPP___V17*/ meltfptr[15] = /*_.IFELSE___V18*/ meltfptr[17];; /*epilog*/ - MELT_LOCATION("warmelt-normatch.melt:3081:/ clear"); - /*clear*/ /*_#IS_LIST_OR_NULL__L17*/ meltfnum[7] = 0 ; + MELT_LOCATION("warmelt-normatch.melt:3104:/ clear"); + /*clear*/ /*_#IS_A__L6*/ meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_.IFELSE___V55*/ meltfptr[54] = 0 ;} + /*clear*/ /*_.IFELSE___V18*/ meltfptr[17] = 0 ;} #else /*ENABLE_CHECKING*/ /*^cppif.else*/ - /*_.IFCPP___V54*/ meltfptr[52] = (/*nil*/NULL); + /*_.IFCPP___V17*/ meltfptr[15] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - /*^compute*/ - - /*_#MULTIPLE_LENGTH__L18*/ meltfnum[7] = - (melt_multiple_length((melt_ptr_t)(/*_.NINS__V48*/ meltfptr[47])));; - /*^compute*/ - - /*_#MULTIPLE_LENGTH__L19*/ meltfnum[18] = - (melt_multiple_length((melt_ptr_t)(/*_.OPIN__V29*/ meltfptr[28])));; - /*^compute*/ - - /*_#I__L20*/ meltfnum[19] = - ((/*_#MULTIPLE_LENGTH__L18*/ meltfnum[7]) != (/*_#MULTIPLE_LENGTH__L19*/ meltfnum[18]));; - MELT_LOCATION("warmelt-normatch.melt:3082:/ cond"); - /*cond*/ if (/*_#I__L20*/ meltfnum[19]) /*then*/ { + MELT_LOCATION("warmelt-normatch.melt:3105:/ quasiblock"); + + + MELT_LOCATION("warmelt-normatch.melt:3106:/ getslot"); + { melt_ptr_t slot=0; + melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), 1, "LOCA_LOCATION");/*_.LOCA_LOCATION__V20*/ meltfptr[19] = slot; }; + ; + /*^cond*/ + /*cond*/ if (/*_.LOCA_LOCATION__V20*/ meltfptr[19]) /*then*/ { + /*^cond.then*/ + /*_.SLOC__V21*/ meltfptr[20] = /*_.LOCA_LOCATION__V20*/ meltfptr[19];; + } else {MELT_LOCATION("warmelt-normatch.melt:3106:/ cond.else"); + + /*_.SLOC__V21*/ meltfptr[20] = /*_.PSLOC__V6*/ meltfptr[5];; + } + ; + MELT_LOCATION("warmelt-normatch.melt:3107:/ getslot"); + { melt_ptr_t slot=0; + melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), 2, "SPATVAR_SYMB");/*_.SYMB__V22*/ meltfptr[21] = slot; }; + ; + MELT_LOCATION("warmelt-normatch.melt:3108:/ getslot"); + { melt_ptr_t slot=0; + melt_object_get_field(slot,(melt_ptr_t)(/*_.MCASE__V4*/ meltfptr[3]), 1, "MCASE_MCTXT");/*_.MATCTX__V23*/ meltfptr[22] = slot; }; + ; + /*_.SYMBVAL__V24*/ meltfptr[23] = + melt_get_mapobjects((meltmapobjects_ptr_t)(/*_.VARMAP__V5*/ meltfptr[4]), (meltobject_ptr_t)(/*_.SYMB__V22*/ meltfptr[21]));; + MELT_LOCATION("warmelt-normatch.melt:3110:/ cond"); + /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.MATCTX__V23*/ meltfptr[22]), (melt_ptr_t)((/*!CLASS_MATCHING_CONTEXT*/ meltfrout->tabval[4])))) /*then*/ { + /*^cond.then*/ + /*^getslot*/ + { melt_ptr_t slot=0; + melt_object_get_field(slot,(melt_ptr_t)(/*_.MATCTX__V23*/ meltfptr[22]), 6, "MCTX_VARHANDLERS");/*_.MHANDLERS__V25*/ meltfptr[24] = slot; }; + ; + } else {/*^cond.else*/ + + /*_.MHANDLERS__V25*/ meltfptr[24] = NULL;; + } + ; + MELT_LOCATION("warmelt-normatch.melt:3111:/ getslot"); + { melt_ptr_t slot=0; + melt_object_get_field(slot,(melt_ptr_t)(/*_.MDATA__V3*/ meltfptr[2]), 4, "MDATA_STEPS");/*_.STEPLIST__V26*/ meltfptr[25] = slot; }; + ; + MELT_LOCATION("warmelt-normatch.melt:3112:/ getslot"); + { melt_ptr_t slot=0; + melt_object_get_field(slot,(melt_ptr_t)(/*_.MCASE__V4*/ meltfptr[3]), 1, "MCASE_MCTXT");/*_.MCTXT__V27*/ meltfptr[26] = slot; }; + ; + MELT_LOCATION("warmelt-normatch.melt:3113:/ cond"); + /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.SYMB__V22*/ meltfptr[21]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[6])))) /*then*/ { /*^cond.then*/ + /*^getslot*/ + { melt_ptr_t slot=0; + melt_object_get_field(slot,(melt_ptr_t)(/*_.SYMB__V22*/ meltfptr[21]), 1, "NAMED_NAME");/*_.NAMED_NAME__V28*/ meltfptr[27] = slot; }; + ; + } else {/*^cond.else*/ + + /*_.NAMED_NAME__V28*/ meltfptr[27] = NULL;; + } + ; + MELT_LOCATION("warmelt-normatch.melt:3113:/ apply"); + /*apply*/{ + union meltparam_un argtab[2]; + memset(&argtab, 0, sizeof(argtab)); + /*^apply.arg*/ + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.MCTXT__V27*/ meltfptr[26]; + /*^apply.arg*/ + argtab[1].bp_aptr = (melt_ptr_t*) &/*_.NAMED_NAME__V28*/ meltfptr[27]; + /*_.MFLAG__V29*/ meltfptr[28] = melt_apply ((meltclosure_ptr_t)((/*!MAKE_MATCH_FLAG*/ meltfrout->tabval[5])), (melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + } + ; + MELT_LOCATION("warmelt-normatch.melt:3114:/ quasiblock"); + + + /*^rawallocobj*/ + /*rawallocobj*/ { melt_ptr_t newobj = 0; + melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_MATCH_STEP_FLAG_SET*/ meltfrout->tabval[7])), (5), "CLASS_MATCH_STEP_FLAG_SET");/*_.INST__V31*/ meltfptr[30] = + newobj; }; + ; + /*^putslot*/ + /*putslot*/ + melt_assertmsg("putslot checkobj @LOCA_LOCATION", melt_magic_discr((melt_ptr_t)(/*_.INST__V31*/ meltfptr[30])) == OBMAG_OBJECT); + melt_putfield_object((/*_.INST__V31*/ meltfptr[30]), (1), (/*_.SLOC__V21*/ meltfptr[20]), "LOCA_LOCATION"); + ; + /*^putslot*/ + /*putslot*/ + melt_assertmsg("putslot checkobj @MSTEP_DATA", melt_magic_discr((melt_ptr_t)(/*_.INST__V31*/ meltfptr[30])) == OBMAG_OBJECT); + melt_putfield_object((/*_.INST__V31*/ meltfptr[30]), (2), (/*_.MDATA__V3*/ meltfptr[2]), "MSTEP_DATA"); + ; + /*^putslot*/ + /*putslot*/ + melt_assertmsg("putslot checkobj @MSTEP_THEN", melt_magic_discr((melt_ptr_t)(/*_.INST__V31*/ meltfptr[30])) == OBMAG_OBJECT); + melt_putfield_object((/*_.INST__V31*/ meltfptr[30]), (3), ((/*nil*/NULL)), "MSTEP_THEN"); + ; + /*^putslot*/ + /*putslot*/ + melt_assertmsg("putslot checkobj @MSTEP_FLAG", melt_magic_discr((melt_ptr_t)(/*_.INST__V31*/ meltfptr[30])) == OBMAG_OBJECT); + melt_putfield_object((/*_.INST__V31*/ meltfptr[30]), (4), (/*_.MFLAG__V29*/ meltfptr[28]), "MSTEP_FLAG"); + ; + /*_.FLAGSTEP__V30*/ meltfptr[29] = /*_.INST__V31*/ meltfptr[30];; + + #if ENABLE_CHECKING + MELT_LOCATION("warmelt-normatch.melt:3120:/ cppif.then"); /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-normatch.melt:3084:/ cond"); - /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.SOPER__V23*/ meltfptr[22]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[8])))) /*then*/ { - /*^cond.then*/ - /*^getslot*/ - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.SOPER__V23*/ meltfptr[22]), 1, "NAMED_NAME");/*_.NAMED_NAME__V56*/ meltfptr[54] = slot; }; - ; - } else {/*^cond.else*/ - - /*_.NAMED_NAME__V56*/ meltfptr[54] = NULL;; + /*_#THE_MELTCALLCOUNT__L7*/ meltfnum[0] = + meltcallcount;; + MELT_LOCATION("warmelt-normatch.melt:3120:/ apply"); + /*apply*/{ + union meltparam_un argtab[4]; + memset(&argtab, 0, sizeof(argtab)); + /*^apply.arg*/ + argtab[0].bp_cstring = "translpat_varpat symb"; + /*^apply.arg*/ + argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L7*/ meltfnum[0]; + /*^apply.arg*/ + argtab[2].bp_cstring = "warmelt-normatch.melt"; + /*^apply.arg*/ + argtab[3].bp_long = 3120; + /*_.DEBUG_MSG_FUN__V33*/ meltfptr[32] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.SYMB__V22*/ meltfptr[21]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; + /*_.IFCPP___V32*/ meltfptr[31] = /*_.DEBUG_MSG_FUN__V33*/ meltfptr[32];; + /*epilog*/ - { - MELT_LOCATION("warmelt-normatch.melt:3083:/ locexp"); - melt_error_str((melt_ptr_t)(/*_.SLOC__V21*/ meltfptr[20]), ( "bad input arity of matcher in pattern"), (melt_ptr_t)(/*_.NAMED_NAME__V56*/ meltfptr[54]));} + MELT_LOCATION("warmelt-normatch.melt:3120:/ clear"); + /*clear*/ /*_#THE_MELTCALLCOUNT__L7*/ meltfnum[0] = 0 ; + /*^clear*/ + /*clear*/ /*_.DEBUG_MSG_FUN__V33*/ meltfptr[32] = 0 ;} + + #else /*ENABLE_CHECKING*/ + /*^cppif.else*/ + /*_.IFCPP___V32*/ meltfptr[31] = (/*nil*/NULL); + #endif /*ENABLE_CHECKING*/ + ; + + #if ENABLE_CHECKING + MELT_LOCATION("warmelt-normatch.melt:3121:/ cppif.then"); + /*^block*/ + /*anyblock*/{ + + /*_#THE_MELTCALLCOUNT__L8*/ meltfnum[0] = + meltcallcount;; + MELT_LOCATION("warmelt-normatch.melt:3121:/ apply"); + /*apply*/{ + union meltparam_un argtab[4]; + memset(&argtab, 0, sizeof(argtab)); + /*^apply.arg*/ + argtab[0].bp_cstring = "translpat_varpat symbval"; + /*^apply.arg*/ + argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L8*/ meltfnum[0]; + /*^apply.arg*/ + argtab[2].bp_cstring = "warmelt-normatch.melt"; + /*^apply.arg*/ + argtab[3].bp_long = 3121; + /*_.DEBUG_MSG_FUN__V35*/ meltfptr[34] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.SYMBVAL__V24*/ meltfptr[23]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + } ; + /*_.IFCPP___V34*/ meltfptr[32] = /*_.DEBUG_MSG_FUN__V35*/ meltfptr[34];; /*epilog*/ - MELT_LOCATION("warmelt-normatch.melt:3082:/ clear"); - /*clear*/ /*_.NAMED_NAME__V56*/ meltfptr[54] = 0 ;} + MELT_LOCATION("warmelt-normatch.melt:3121:/ clear"); + /*clear*/ /*_#THE_MELTCALLCOUNT__L8*/ meltfnum[0] = 0 ; + /*^clear*/ + /*clear*/ /*_.DEBUG_MSG_FUN__V35*/ meltfptr[34] = 0 ;} + + #else /*ENABLE_CHECKING*/ + /*^cppif.else*/ + /*_.IFCPP___V34*/ meltfptr[32] = (/*nil*/NULL); + #endif /*ENABLE_CHECKING*/ + ; + MELT_LOCATION("warmelt-normatch.melt:3122:/ cond"); + /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.MFLAG__V29*/ meltfptr[28]), (melt_ptr_t)((/*!CLASS_MATCH_FLAG*/ meltfrout->tabval[8])))) /*then*/ { + /*^cond.then*/ + /*^block*/ + /*anyblock*/{ + + /*^putslot*/ + /*putslot*/ + melt_assertmsg("putslot checkobj @MFLAG_SETSTEP", melt_magic_discr((melt_ptr_t)(/*_.MFLAG__V29*/ meltfptr[28])) == OBMAG_OBJECT); + melt_putfield_object((/*_.MFLAG__V29*/ meltfptr[28]), (5), (/*_.FLAGSTEP__V30*/ meltfptr[29]), "MFLAG_SETSTEP"); + ; + /*^touch*/ + meltgc_touch(/*_.MFLAG__V29*/ meltfptr[28]); + ; + /*epilog*/ + } ; } /*noelse*/ ; - /*citerblock FOREACH_IN_MULTIPLE*/ { - /* start cit1__EACHTUP: */ - long cit1__EACHTUP_ln = melt_multiple_length((melt_ptr_t)/*_.NINS__V48*/ meltfptr[47]); - for (/*_#NIX__L21*/ meltfnum[20] = 0; - (/*_#NIX__L21*/ meltfnum[20] >= 0) && (/*_#NIX__L21*/ meltfnum[20] < cit1__EACHTUP_ln); - /*_#NIX__L21*/ meltfnum[20]++) { - /*_.CURNIN__V57*/ meltfptr[54] = melt_multiple_nth((melt_ptr_t)(/*_.NINS__V48*/ meltfptr[47]), /*_#NIX__L21*/ meltfnum[20]); - + #if ENABLE_CHECKING + MELT_LOCATION("warmelt-normatch.melt:3123:/ cppif.then"); + /*^block*/ + /*anyblock*/{ + + /*_#THE_MELTCALLCOUNT__L9*/ meltfnum[0] = + meltcallcount;; + MELT_LOCATION("warmelt-normatch.melt:3123:/ apply"); + /*apply*/{ + union meltparam_un argtab[4]; + memset(&argtab, 0, sizeof(argtab)); + /*^apply.arg*/ + argtab[0].bp_cstring = "translpat_varpat flagstep"; + /*^apply.arg*/ + argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L9*/ meltfnum[0]; + /*^apply.arg*/ + argtab[2].bp_cstring = "warmelt-normatch.melt"; + /*^apply.arg*/ + argtab[3].bp_long = 3123; + /*_.DEBUG_MSG_FUN__V37*/ meltfptr[36] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.FLAGSTEP__V30*/ meltfptr[29]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + } + ; + /*_.IFCPP___V36*/ meltfptr[34] = /*_.DEBUG_MSG_FUN__V37*/ meltfptr[36];; + /*epilog*/ + + MELT_LOCATION("warmelt-normatch.melt:3123:/ clear"); + /*clear*/ /*_#THE_MELTCALLCOUNT__L9*/ meltfnum[0] = 0 ; + /*^clear*/ + /*clear*/ /*_.DEBUG_MSG_FUN__V37*/ meltfptr[36] = 0 ;} - MELT_LOCATION("warmelt-normatch.melt:3088:/ quasiblock"); - + #else /*ENABLE_CHECKING*/ + /*^cppif.else*/ + /*_.IFCPP___V36*/ meltfptr[34] = (/*nil*/NULL); + #endif /*ENABLE_CHECKING*/ + ; + /*citerblock FOREACH_IN_LIST*/ { + /* start cit1__EACHLIST */ + for (/*_.CURPAIR__V38*/ meltfptr[36] = melt_list_first(/*_.MHANDLERS__V25*/ meltfptr[24]); + melt_magic_discr(/*_.CURPAIR__V38*/ meltfptr[36]) == OBMAG_PAIR; + /*_.CURPAIR__V38*/ meltfptr[36] = melt_pair_tail(/*_.CURPAIR__V38*/ meltfptr[36])) { + /*_.CURHANDLER__V39*/ meltfptr[38] = melt_pair_head(/*_.CURPAIR__V38*/ meltfptr[36]); + - /*_.CUROPIN__V59*/ meltfptr[58] = - (melt_multiple_nth((melt_ptr_t)(/*_.OPIN__V29*/ meltfptr[28]), (/*_#NIX__L21*/ meltfnum[20])));; - MELT_LOCATION("warmelt-normatch.melt:3089:/ msend"); - /*msend*/{ - union meltparam_un argtab[1]; + MELT_LOCATION("warmelt-normatch.melt:3127:/ apply"); + /*apply*/{ + union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - /*^ojbmsend.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.ENV__V27*/ meltfptr[26]; - /*_.CURCTYP__V60*/ meltfptr[59] = meltgc_send((melt_ptr_t)(/*_.CURNIN__V57*/ meltfptr[54]), (melt_ptr_t)((/*!GET_CTYPE*/ meltfrout->tabval[9])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; - MELT_LOCATION("warmelt-normatch.melt:3090:/ cond"); - /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CUROPIN__V59*/ meltfptr[58]), (melt_ptr_t)((/*!CLASS_FORMAL_BINDING*/ meltfrout->tabval[10])))) /*then*/ { - /*^cond.then*/ - /*^getslot*/ - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.CUROPIN__V59*/ meltfptr[58]), 1, "FBIND_TYPE");/*_.INCTYP__V61*/ meltfptr[60] = slot; }; - ; - } else {/*^cond.else*/ - - /*_.INCTYP__V61*/ meltfptr[60] = NULL;; + /*^apply.arg*/ + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.MDATA__V3*/ meltfptr[2]; + /*^apply.arg*/ + argtab[1].bp_aptr = (melt_ptr_t*) &/*_.MCASE__V4*/ meltfptr[3]; + /*^apply.arg*/ + argtab[2].bp_aptr = (melt_ptr_t*) &/*_.SYMBVAL__V24*/ meltfptr[23]; + /*^apply.arg*/ + argtab[3].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V21*/ meltfptr[20]; + /*_.CURHANDLER__V40*/ meltfptr[39] = melt_apply ((meltclosure_ptr_t)(/*_.CURHANDLER__V39*/ meltfptr[38]), (melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; + } /* end cit1__EACHLIST */ + + /*citerepilog*/ - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normatch.melt:3092:/ cppif.then"); - /*^block*/ - /*anyblock*/{ - - /*_#THE_MELTCALLCOUNT__L22*/ meltfnum[21] = - meltcallcount;; - MELT_LOCATION("warmelt-normatch.melt:3092:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - /*^apply.arg*/ - argtab[0].bp_cstring = "translpat_patmat curnin"; - /*^apply.arg*/ - argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L22*/ meltfnum[21]; - /*^apply.arg*/ - argtab[2].bp_cstring = "warmelt-normatch.melt"; - /*^apply.arg*/ - argtab[3].bp_long = 3092; - /*_.DEBUG_MSG_FUN__V63*/ meltfptr[62] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.CURNIN__V57*/ meltfptr[54]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V62*/ meltfptr[61] = /*_.DEBUG_MSG_FUN__V63*/ meltfptr[62];; - /*epilog*/ - - MELT_LOCATION("warmelt-normatch.melt:3092:/ clear"); - /*clear*/ /*_#THE_MELTCALLCOUNT__L22*/ meltfnum[21] = 0 ; - /*^clear*/ - /*clear*/ /*_.DEBUG_MSG_FUN__V63*/ meltfptr[62] = 0 ;} + MELT_LOCATION("warmelt-normatch.melt:3124:/ clear"); + /*clear*/ /*_.CURPAIR__V38*/ meltfptr[36] = 0 ; + /*^clear*/ + /*clear*/ /*_.CURHANDLER__V39*/ meltfptr[38] = 0 ; + /*^clear*/ + /*clear*/ /*_.CURHANDLER__V40*/ meltfptr[39] = 0 ;} /*endciterblock FOREACH_IN_LIST*/ + ; + /*_#NULL__L10*/ meltfnum[0] = + ((/*_.SYMBVAL__V24*/ meltfptr[23]) == NULL);; + MELT_LOCATION("warmelt-normatch.melt:3129:/ cond"); + /*cond*/ if (/*_#NULL__L10*/ meltfnum[0]) /*then*/ { + /*^cond.then*/ + /*^block*/ + /*anyblock*/{ - #else /*ENABLE_CHECKING*/ - /*^cppif.else*/ - /*_.IFCPP___V62*/ meltfptr[61] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ + + { + MELT_LOCATION("warmelt-normatch.melt:3130:/ locexp"); + meltgc_put_mapobjects( (meltmapobjects_ptr_t) (/*_.VARMAP__V5*/ meltfptr[4]), + (meltobject_ptr_t) (/*_.SYMB__V22*/ meltfptr[21]), + (melt_ptr_t)(/*_.MDATA__V3*/ meltfptr[2]));} ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normatch.melt:3093:/ cppif.then"); - /*^block*/ - /*anyblock*/{ + + #if ENABLE_CHECKING + MELT_LOCATION("warmelt-normatch.melt:3131:/ cppif.then"); + /*^block*/ + /*anyblock*/{ + + /*_#THE_MELTCALLCOUNT__L11*/ meltfnum[10] = + meltcallcount;; + MELT_LOCATION("warmelt-normatch.melt:3131:/ apply"); + /*apply*/{ + union meltparam_un argtab[4]; + memset(&argtab, 0, sizeof(argtab)); + /*^apply.arg*/ + argtab[0].bp_cstring = "translpat_varpat updated varmap & return null"; + /*^apply.arg*/ + argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L11*/ meltfnum[10]; + /*^apply.arg*/ + argtab[2].bp_cstring = "warmelt-normatch.melt"; + /*^apply.arg*/ + argtab[3].bp_long = 3131; + /*_.DEBUG_MSG_FUN__V43*/ meltfptr[42] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.VARMAP__V5*/ meltfptr[4]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + } + ; + /*_.IFCPP___V42*/ meltfptr[41] = /*_.DEBUG_MSG_FUN__V43*/ meltfptr[42];; + /*epilog*/ + + MELT_LOCATION("warmelt-normatch.melt:3131:/ clear"); + /*clear*/ /*_#THE_MELTCALLCOUNT__L11*/ meltfnum[10] = 0 ; + /*^clear*/ + /*clear*/ /*_.DEBUG_MSG_FUN__V43*/ meltfptr[42] = 0 ;} - /*_#THE_MELTCALLCOUNT__L23*/ meltfnum[21] = - meltcallcount;; - MELT_LOCATION("warmelt-normatch.melt:3093:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - /*^apply.arg*/ - argtab[0].bp_cstring = "translpat_patmat curopin"; - /*^apply.arg*/ - argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L23*/ meltfnum[21]; - /*^apply.arg*/ - argtab[2].bp_cstring = "warmelt-normatch.melt"; - /*^apply.arg*/ - argtab[3].bp_long = 3093; - /*_.DEBUG_MSG_FUN__V65*/ meltfptr[64] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.CUROPIN__V59*/ meltfptr[58]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } + #else /*ENABLE_CHECKING*/ + /*^cppif.else*/ + /*_.IFCPP___V42*/ meltfptr[41] = (/*nil*/NULL); + #endif /*ENABLE_CHECKING*/ ; - /*_.IFCPP___V64*/ meltfptr[62] = /*_.DEBUG_MSG_FUN__V65*/ meltfptr[64];; - /*epilog*/ - - MELT_LOCATION("warmelt-normatch.melt:3093:/ clear"); - /*clear*/ /*_#THE_MELTCALLCOUNT__L23*/ meltfnum[21] = 0 ; - /*^clear*/ - /*clear*/ /*_.DEBUG_MSG_FUN__V65*/ meltfptr[64] = 0 ;} + MELT_LOCATION("warmelt-normatch.melt:3132:/ quasiblock"); - #else /*ENABLE_CHECKING*/ - /*^cppif.else*/ - /*_.IFCPP___V64*/ meltfptr[62] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ + + /*_.RETVAL___V1*/ meltfptr[0] = /*_.FLAGSTEP__V30*/ meltfptr[29];; + MELT_LOCATION("warmelt-normatch.melt:3132:/ putxtraresult"); + if (!xrestab_ || !xresdescr_) goto labend_rout; + if (xresdescr_[0] != BPAR_PTR) goto labend_rout; + if (xrestab_[0].bp_aptr) *(xrestab_[0].bp_aptr) = (melt_ptr_t) (/*_.MFLAG__V29*/ meltfptr[28]); ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normatch.melt:3094:/ cppif.then"); + /*^finalreturn*/ + ; + /*finalret*/ goto labend_rout ; + MELT_LOCATION("warmelt-normatch.melt:3129:/ quasiblock"); + + + /*_.PROGN___V45*/ meltfptr[44] = /*_.RETURN___V44*/ meltfptr[42];; + /*^compute*/ + + /*_.IFELSE___V41*/ meltfptr[40] = /*_.PROGN___V45*/ meltfptr[44];; + /*epilog*/ + + MELT_LOCATION("warmelt-normatch.melt:3129:/ clear"); + /*clear*/ /*_.IFCPP___V42*/ meltfptr[41] = 0 ; + /*^clear*/ + /*clear*/ /*_.RETURN___V44*/ meltfptr[42] = 0 ; + /*^clear*/ + /*clear*/ /*_.PROGN___V45*/ meltfptr[44] = 0 ;} + ; + } else {/*^cond.else*/ + /*^block*/ - /*anyblock*/{ + /*anyblock*/{ + + + #if ENABLE_CHECKING + MELT_LOCATION("warmelt-normatch.melt:3135:/ cppif.then"); + /*^block*/ + /*anyblock*/{ + + /*_#IS_A__L12*/ meltfnum[10] = + melt_is_instance_of((melt_ptr_t)(/*_.SYMBVAL__V24*/ meltfptr[23]), (melt_ptr_t)((/*!CLASS_MATCHED_DATA*/ meltfrout->tabval[2])));; + MELT_LOCATION("warmelt-normatch.melt:3135:/ cond"); + /*cond*/ if (/*_#IS_A__L12*/ meltfnum[10]) /*then*/ { + /*^cond.then*/ + /*_.IFELSE___V47*/ meltfptr[42] = (/*nil*/NULL);; + } else {MELT_LOCATION("warmelt-normatch.melt:3135:/ cond.else"); + + /*^block*/ + /*anyblock*/{ + + + + + { + /*^locexp*/ + melt_assert_failed(( "check symbval"),( "warmelt-normatch.melt")?( "warmelt-normatch.melt"):__FILE__, + (3135)?(3135):__LINE__, __FUNCTION__); +;} + ; + /*clear*/ /*_.IFELSE___V47*/ meltfptr[42] = 0 ; + /*epilog*/ + } + ; + } + ; + /*^compute*/ + + /*_.IFCPP___V46*/ meltfptr[41] = /*_.IFELSE___V47*/ meltfptr[42];; + /*epilog*/ + + MELT_LOCATION("warmelt-normatch.melt:3135:/ clear"); + /*clear*/ /*_#IS_A__L12*/ meltfnum[10] = 0 ; + /*^clear*/ + /*clear*/ /*_.IFELSE___V47*/ meltfptr[42] = 0 ;} - /*_#THE_MELTCALLCOUNT__L24*/ meltfnum[21] = - meltcallcount;; - MELT_LOCATION("warmelt-normatch.melt:3094:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - /*^apply.arg*/ - argtab[0].bp_cstring = "translpat_patmat curctyp"; - /*^apply.arg*/ - argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L24*/ meltfnum[21]; - /*^apply.arg*/ - argtab[2].bp_cstring = "warmelt-normatch.melt"; - /*^apply.arg*/ - argtab[3].bp_long = 3094; - /*_.DEBUG_MSG_FUN__V67*/ meltfptr[66] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.CURCTYP__V60*/ meltfptr[59]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } + #else /*ENABLE_CHECKING*/ + /*^cppif.else*/ + /*_.IFCPP___V46*/ meltfptr[41] = (/*nil*/NULL); + #endif /*ENABLE_CHECKING*/ ; - /*_.IFCPP___V66*/ meltfptr[64] = /*_.DEBUG_MSG_FUN__V67*/ meltfptr[66];; - /*epilog*/ - - MELT_LOCATION("warmelt-normatch.melt:3094:/ clear"); - /*clear*/ /*_#THE_MELTCALLCOUNT__L24*/ meltfnum[21] = 0 ; - /*^clear*/ - /*clear*/ /*_.DEBUG_MSG_FUN__V67*/ meltfptr[66] = 0 ;} + MELT_LOCATION("warmelt-normatch.melt:3136:/ quasiblock"); + + + /*_.LASTSTEPTEST__V49*/ meltfptr[42] = (/*nil*/NULL);; + /*citerblock FOREACH_IN_LIST*/ { + /* start cit2__EACHLIST */ + for (/*_.CURPAIR__V50*/ meltfptr[49] = melt_list_first(/*_.STEPLIST__V26*/ meltfptr[25]); + melt_magic_discr(/*_.CURPAIR__V50*/ meltfptr[49]) == OBMAG_PAIR; + /*_.CURPAIR__V50*/ meltfptr[49] = melt_pair_tail(/*_.CURPAIR__V50*/ meltfptr[49])) { + /*_.CURTESTSTEP__V51*/ meltfptr[50] = melt_pair_head(/*_.CURPAIR__V50*/ meltfptr[49]); - #else /*ENABLE_CHECKING*/ - /*^cppif.else*/ - /*_.IFCPP___V66*/ meltfptr[64] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normatch.melt:3095:/ cppif.then"); - /*^block*/ - /*anyblock*/{ - /*_#IS_A__L25*/ meltfnum[21] = - melt_is_instance_of((melt_ptr_t)(/*_.CUROPIN__V59*/ meltfptr[58]), (melt_ptr_t)((/*!CLASS_FORMAL_BINDING*/ meltfrout->tabval[10])));; - MELT_LOCATION("warmelt-normatch.melt:3095:/ cond"); - /*cond*/ if (/*_#IS_A__L25*/ meltfnum[21]) /*then*/ { + /*_#IS_A__L13*/ meltfnum[10] = + melt_is_instance_of((melt_ptr_t)(/*_.CURTESTSTEP__V51*/ meltfptr[50]), (melt_ptr_t)((/*!CLASS_MATCH_STEP_TEST_VARIABLE*/ meltfrout->tabval[9])));; + MELT_LOCATION("warmelt-normatch.melt:3142:/ cond"); + /*cond*/ if (/*_#IS_A__L13*/ meltfnum[10]) /*then*/ { /*^cond.then*/ - /*_.IFELSE___V69*/ meltfptr[68] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normatch.melt:3095:/ cond.else"); - - /*^block*/ + /*^block*/ /*anyblock*/{ + MELT_LOCATION("warmelt-normatch.melt:3143:/ getslot"); + { melt_ptr_t slot=0; + melt_object_get_field(slot,(melt_ptr_t)(/*_.CURTESTSTEP__V51*/ meltfptr[50]), 5, "MSTEPTESTVAR_SYMB");/*_.MSTEPTESTVAR_SYMB__V52*/ meltfptr[51] = slot; }; + ; + /*_#__L15*/ meltfnum[14] = + ((/*_.MSTEPTESTVAR_SYMB__V52*/ meltfptr[51]) == (/*_.SYMB__V22*/ meltfptr[21]));; + MELT_LOCATION("warmelt-normatch.melt:3142:/ cond"); + /*cond*/ if (/*_#__L15*/ meltfnum[14]) /*then*/ { + /*^cond.then*/ + /*^block*/ + /*anyblock*/{ + + MELT_LOCATION("warmelt-normatch.melt:3144:/ getslot"); + { melt_ptr_t slot=0; + melt_object_get_field(slot,(melt_ptr_t)(/*_.CURTESTSTEP__V51*/ meltfptr[50]), 2, "MSTEP_DATA");/*_.MSTEP_DATA__V53*/ meltfptr[52] = slot; }; + ; + /*_#__L17*/ meltfnum[16] = + ((/*_.MSTEP_DATA__V53*/ meltfptr[52]) == (/*_.MDATA__V3*/ meltfptr[2]));; + /*^compute*/ + + /*_#IF___L16*/ meltfnum[15] = /*_#__L17*/ meltfnum[16];; + /*epilog*/ + + MELT_LOCATION("warmelt-normatch.melt:3142:/ clear"); + /*clear*/ /*_.MSTEP_DATA__V53*/ meltfptr[52] = 0 ; + /*^clear*/ + /*clear*/ /*_#__L17*/ meltfnum[16] = 0 ;} + ; + } else {/*^cond.else*/ - - - { - /*^locexp*/ - melt_assert_failed(( "check curopin"),( "warmelt-normatch.melt")?( "warmelt-normatch.melt"):__FILE__, - (3095)?(3095):__LINE__, __FUNCTION__); -;} + /*_#IF___L16*/ meltfnum[15] = 0;; + } ; - /*clear*/ /*_.IFELSE___V69*/ meltfptr[68] = 0 ; + /*^compute*/ + + /*_#IF___L14*/ meltfnum[13] = /*_#IF___L16*/ meltfnum[15];; /*epilog*/ - } + + MELT_LOCATION("warmelt-normatch.melt:3142:/ clear"); + /*clear*/ /*_.MSTEPTESTVAR_SYMB__V52*/ meltfptr[51] = 0 ; + /*^clear*/ + /*clear*/ /*_#__L15*/ meltfnum[14] = 0 ; + /*^clear*/ + /*clear*/ /*_#IF___L16*/ meltfnum[15] = 0 ;} ; + } else {/*^cond.else*/ + + /*_#IF___L14*/ meltfnum[13] = 0;; } ; - /*^compute*/ - - /*_.IFCPP___V68*/ meltfptr[66] = /*_.IFELSE___V69*/ meltfptr[68];; - /*epilog*/ - - MELT_LOCATION("warmelt-normatch.melt:3095:/ clear"); - /*clear*/ /*_#IS_A__L25*/ meltfnum[21] = 0 ; - /*^clear*/ - /*clear*/ /*_.IFELSE___V69*/ meltfptr[68] = 0 ;} - - #else /*ENABLE_CHECKING*/ - /*^cppif.else*/ - /*_.IFCPP___V68*/ meltfptr[66] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normatch.melt:3096:/ cppif.then"); - /*^block*/ - /*anyblock*/{ - - /*_#IS_A__L26*/ meltfnum[21] = - melt_is_instance_of((melt_ptr_t)(/*_.CURCTYP__V60*/ meltfptr[59]), (melt_ptr_t)((/*!CLASS_CTYPE*/ meltfrout->tabval[11])));; - MELT_LOCATION("warmelt-normatch.melt:3096:/ cond"); - /*cond*/ if (/*_#IS_A__L26*/ meltfnum[21]) /*then*/ { + MELT_LOCATION("warmelt-normatch.melt:3142:/ cond"); + /*cond*/ if (/*_#IF___L14*/ meltfnum[13]) /*then*/ { /*^cond.then*/ - /*_.IFELSE___V71*/ meltfptr[70] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normatch.melt:3096:/ cond.else"); - - /*^block*/ + /*^block*/ /*anyblock*/{ + #if ENABLE_CHECKING + MELT_LOCATION("warmelt-normatch.melt:3146:/ cppif.then"); + /*^block*/ + /*anyblock*/{ + + /*_#THE_MELTCALLCOUNT__L18*/ meltfnum[16] = + meltcallcount;; + MELT_LOCATION("warmelt-normatch.melt:3146:/ apply"); + /*apply*/{ + union meltparam_un argtab[4]; + memset(&argtab, 0, sizeof(argtab)); + /*^apply.arg*/ + argtab[0].bp_cstring = "translpat_varpat found curteststep"; + /*^apply.arg*/ + argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L18*/ meltfnum[16]; + /*^apply.arg*/ + argtab[2].bp_cstring = "warmelt-normatch.melt"; + /*^apply.arg*/ + argtab[3].bp_long = 3146; + /*_.DEBUG_MSG_FUN__V56*/ meltfptr[55] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.CURTESTSTEP__V51*/ meltfptr[50]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + } + ; + /*_.IFCPP___V55*/ meltfptr[51] = /*_.DEBUG_MSG_FUN__V56*/ meltfptr[55];; + /*epilog*/ + + MELT_LOCATION("warmelt-normatch.melt:3146:/ clear"); + /*clear*/ /*_#THE_MELTCALLCOUNT__L18*/ meltfnum[16] = 0 ; + /*^clear*/ + /*clear*/ /*_.DEBUG_MSG_FUN__V56*/ meltfptr[55] = 0 ;} + + #else /*ENABLE_CHECKING*/ + /*^cppif.else*/ + /*_.IFCPP___V55*/ meltfptr[51] = (/*nil*/NULL); + #endif /*ENABLE_CHECKING*/ + ; + MELT_LOCATION("warmelt-normatch.melt:3147:/ msend"); + /*msend*/{ + union meltparam_un argtab[1]; + memset(&argtab, 0, sizeof(argtab)); + /*^ojbmsend.arg*/ + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.FLAGSTEP__V30*/ meltfptr[29]; + /*_.PUT_THEN_MATCH__V57*/ meltfptr[55] = meltgc_send((melt_ptr_t)(/*_.CURTESTSTEP__V51*/ meltfptr[50]), (melt_ptr_t)((/*!PUT_THEN_MATCH*/ meltfrout->tabval[10])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + } + ; + MELT_LOCATION("warmelt-normatch.melt:3148:/ quasiblock"); - { - /*^locexp*/ - melt_assert_failed(( "check curctyp"),( "warmelt-normatch.melt")?( "warmelt-normatch.melt"):__FILE__, - (3096)?(3096):__LINE__, __FUNCTION__); -;} + /*_.RETVAL___V1*/ meltfptr[0] = /*_.CURTESTSTEP__V51*/ meltfptr[50];; + MELT_LOCATION("warmelt-normatch.melt:3148:/ putxtraresult"); + if (!xrestab_ || !xresdescr_) goto labend_rout; + if (xresdescr_[0] != BPAR_PTR) goto labend_rout; + if (xrestab_[0].bp_aptr) *(xrestab_[0].bp_aptr) = (melt_ptr_t) (/*_.MFLAG__V29*/ meltfptr[28]); ; - /*clear*/ /*_.IFELSE___V71*/ meltfptr[70] = 0 ; + /*^finalreturn*/ + ; + /*finalret*/ goto labend_rout ; + MELT_LOCATION("warmelt-normatch.melt:3145:/ quasiblock"); + + + /*_.PROGN___V59*/ meltfptr[58] = /*_.RETURN___V58*/ meltfptr[57];; + /*^compute*/ + + /*_.IFELSE___V54*/ meltfptr[52] = /*_.PROGN___V59*/ meltfptr[58];; /*epilog*/ - } - ; - } - ; - /*^compute*/ - - /*_.IFCPP___V70*/ meltfptr[68] = /*_.IFELSE___V71*/ meltfptr[70];; - /*epilog*/ - - MELT_LOCATION("warmelt-normatch.melt:3096:/ clear"); - /*clear*/ /*_#IS_A__L26*/ meltfnum[21] = 0 ; - /*^clear*/ - /*clear*/ /*_.IFELSE___V71*/ meltfptr[70] = 0 ;} - - #else /*ENABLE_CHECKING*/ - /*^cppif.else*/ - /*_.IFCPP___V70*/ meltfptr[68] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - /*^compute*/ - - /*_#__L27*/ meltfnum[21] = - ((/*_.CURCTYP__V60*/ meltfptr[59]) != (/*_.INCTYP__V61*/ meltfptr[60]));; - MELT_LOCATION("warmelt-normatch.melt:3097:/ cond"); - /*cond*/ if (/*_#__L27*/ meltfnum[21]) /*then*/ { - /*^cond.then*/ - /*^block*/ - /*anyblock*/{ - - MELT_LOCATION("warmelt-normatch.melt:3100:/ cond"); - /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.INCTYP__V61*/ meltfptr[60]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[8])))) /*then*/ { - /*^cond.then*/ - /*^getslot*/ - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.INCTYP__V61*/ meltfptr[60]), 1, "NAMED_NAME");/*_.NAMED_NAME__V73*/ meltfptr[72] = slot; }; - ; - } else {/*^cond.else*/ - - /*_.NAMED_NAME__V73*/ meltfptr[72] = NULL;; - } - ; - - { - MELT_LOCATION("warmelt-normatch.melt:3099:/ locexp"); - melt_error_str((melt_ptr_t)(/*_.SLOC__V21*/ meltfptr[20]), ( "bad input type in matcher, expecting"), (melt_ptr_t)(/*_.NAMED_NAME__V73*/ meltfptr[72]));} - ; - MELT_LOCATION("warmelt-normatch.melt:3103:/ cond"); - /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CUROPIN__V59*/ meltfptr[58]), (melt_ptr_t)((/*!CLASS_ANY_BINDING*/ meltfrout->tabval[12])))) /*then*/ { - /*^cond.then*/ - /*^getslot*/ - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.CUROPIN__V59*/ meltfptr[58]), 0, "BINDER");/*_.BINDER__V74*/ meltfptr[73] = slot; }; - ; - } else {/*^cond.else*/ - - /*_.BINDER__V74*/ meltfptr[73] = NULL;; - } - ; - MELT_LOCATION("warmelt-normatch.melt:3103:/ cond"); - /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.BINDER__V74*/ meltfptr[73]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[8])))) /*then*/ { - /*^cond.then*/ - /*^getslot*/ - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.BINDER__V74*/ meltfptr[73]), 1, "NAMED_NAME");/*_.NAMED_NAME__V75*/ meltfptr[74] = slot; }; - ; - } else {/*^cond.else*/ - - /*_.NAMED_NAME__V75*/ meltfptr[74] = NULL;; - } - ; - - { - MELT_LOCATION("warmelt-normatch.melt:3101:/ locexp"); - melt_error_str((melt_ptr_t)(/*_.SLOC__V21*/ meltfptr[20]), ( "mistyped formal name in matcher is"), (melt_ptr_t)(/*_.NAMED_NAME__V75*/ meltfptr[74]));} - ; - MELT_LOCATION("warmelt-normatch.melt:3105:/ cond"); - /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURCTYP__V60*/ meltfptr[59]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[8])))) /*then*/ { - /*^cond.then*/ - /*^getslot*/ - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.CURCTYP__V60*/ meltfptr[59]), 1, "NAMED_NAME");/*_.NAMED_NAME__V76*/ meltfptr[75] = slot; }; + + MELT_LOCATION("warmelt-normatch.melt:3142:/ clear"); + /*clear*/ /*_.IFCPP___V55*/ meltfptr[51] = 0 ; + /*^clear*/ + /*clear*/ /*_.PUT_THEN_MATCH__V57*/ meltfptr[55] = 0 ; + /*^clear*/ + /*clear*/ /*_.RETURN___V58*/ meltfptr[57] = 0 ; + /*^clear*/ + /*clear*/ /*_.PROGN___V59*/ meltfptr[58] = 0 ;} ; } else {/*^cond.else*/ - /*_.NAMED_NAME__V76*/ meltfptr[75] = NULL;; - } - ; - - { - MELT_LOCATION("warmelt-normatch.melt:3104:/ locexp"); - melt_error_str((melt_ptr_t)(/*_.SLOC__V21*/ meltfptr[20]), ( "got input type in matcher"), (melt_ptr_t)(/*_.NAMED_NAME__V76*/ meltfptr[75]));} - ; - MELT_LOCATION("warmelt-normatch.melt:3106:/ quasiblock"); - - - /*_.RETVAL___V1*/ meltfptr[0] = NULL;; - MELT_LOCATION("warmelt-normatch.melt:3106:/ finalreturn"); - ; - /*finalret*/ goto labend_rout ; - MELT_LOCATION("warmelt-normatch.melt:3098:/ quasiblock"); - - - /*_.PROGN___V78*/ meltfptr[77] = /*_.RETURN___V77*/ meltfptr[76];; - /*^compute*/ - - /*_.IF___V72*/ meltfptr[70] = /*_.PROGN___V78*/ meltfptr[77];; - /*epilog*/ - - MELT_LOCATION("warmelt-normatch.melt:3097:/ clear"); - /*clear*/ /*_.NAMED_NAME__V73*/ meltfptr[72] = 0 ; - /*^clear*/ - /*clear*/ /*_.BINDER__V74*/ meltfptr[73] = 0 ; - /*^clear*/ - /*clear*/ /*_.NAMED_NAME__V75*/ meltfptr[74] = 0 ; - /*^clear*/ - /*clear*/ /*_.NAMED_NAME__V76*/ meltfptr[75] = 0 ; - /*^clear*/ - /*clear*/ /*_.RETURN___V77*/ meltfptr[76] = 0 ; - /*^clear*/ - /*clear*/ /*_.PROGN___V78*/ meltfptr[77] = 0 ;} - ; - } else {/*^cond.else*/ - - /*_.IF___V72*/ meltfptr[70] = NULL;; - } - ; - /*^compute*/ - - /*_.LET___V58*/ meltfptr[57] = /*_.IF___V72*/ meltfptr[70];; - - MELT_LOCATION("warmelt-normatch.melt:3088:/ clear"); - /*clear*/ /*_.CUROPIN__V59*/ meltfptr[58] = 0 ; - /*^clear*/ - /*clear*/ /*_.CURCTYP__V60*/ meltfptr[59] = 0 ; - /*^clear*/ - /*clear*/ /*_.INCTYP__V61*/ meltfptr[60] = 0 ; - /*^clear*/ - /*clear*/ /*_.IFCPP___V62*/ meltfptr[61] = 0 ; - /*^clear*/ - /*clear*/ /*_.IFCPP___V64*/ meltfptr[62] = 0 ; - /*^clear*/ - /*clear*/ /*_.IFCPP___V66*/ meltfptr[64] = 0 ; - /*^clear*/ - /*clear*/ /*_.IFCPP___V68*/ meltfptr[66] = 0 ; - /*^clear*/ - /*clear*/ /*_.IFCPP___V70*/ meltfptr[68] = 0 ; - /*^clear*/ - /*clear*/ /*_#__L27*/ meltfnum[21] = 0 ; - /*^clear*/ - /*clear*/ /*_.IF___V72*/ meltfptr[70] = 0 ; - if (/*_#NIX__L21*/ meltfnum[20]<0) break; - } /* end cit1__EACHTUP */ - - /*citerepilog*/ - - MELT_LOCATION("warmelt-normatch.melt:3085:/ clear"); - /*clear*/ /*_.CURNIN__V57*/ meltfptr[54] = 0 ; - /*^clear*/ - /*clear*/ /*_#NIX__L21*/ meltfnum[20] = 0 ; - /*^clear*/ - /*clear*/ /*_.LET___V58*/ meltfptr[57] = 0 ;} /*endciterblock FOREACH_IN_MULTIPLE*/ - ; - /*citerblock FOREACH_IN_LIST*/ { - /* start cit2__EACHLIST */ - for (/*_.CURPAIRSTEP__V79*/ meltfptr[72] = melt_list_first(/*_.MDATASTEPS__V32*/ meltfptr[31]); - melt_magic_discr(/*_.CURPAIRSTEP__V79*/ meltfptr[72]) == OBMAG_PAIR; - /*_.CURPAIRSTEP__V79*/ meltfptr[72] = melt_pair_tail(/*_.CURPAIRSTEP__V79*/ meltfptr[72])) { - /*_.CURDATASTEP__V80*/ meltfptr[73] = melt_pair_head(/*_.CURPAIRSTEP__V79*/ meltfptr[72]); - - - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normatch.melt:3112:/ cppif.then"); - /*^block*/ - /*anyblock*/{ - - /*_#IS_A__L28*/ meltfnum[21] = - melt_is_instance_of((melt_ptr_t)(/*_.CURDATASTEP__V80*/ meltfptr[73]), (melt_ptr_t)((/*!CLASS_MATCH_STEP*/ meltfrout->tabval[13])));; - MELT_LOCATION("warmelt-normatch.melt:3112:/ cond"); - /*cond*/ if (/*_#IS_A__L28*/ meltfnum[21]) /*then*/ { - /*^cond.then*/ - /*_.IFELSE___V82*/ meltfptr[75] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normatch.melt:3112:/ cond.else"); - /*^block*/ /*anyblock*/{ - - - - { - /*^locexp*/ - melt_assert_failed(( "check curdatastep"),( "warmelt-normatch.melt")?( "warmelt-normatch.melt"):__FILE__, - (3112)?(3112):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V82*/ meltfptr[75] = 0 ; - /*epilog*/ - } - ; - } - ; - /*^compute*/ - - /*_.IFCPP___V81*/ meltfptr[74] = /*_.IFELSE___V82*/ meltfptr[75];; - /*epilog*/ - - MELT_LOCATION("warmelt-normatch.melt:3112:/ clear"); - /*clear*/ /*_#IS_A__L28*/ meltfnum[21] = 0 ; - /*^clear*/ - /*clear*/ /*_.IFELSE___V82*/ meltfptr[75] = 0 ;} - - #else /*ENABLE_CHECKING*/ - /*^cppif.else*/ - /*_.IFCPP___V81*/ meltfptr[74] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - /*^compute*/ - - /*_#IS_A__L29*/ meltfnum[21] = - melt_is_instance_of((melt_ptr_t)(/*_.CURDATASTEP__V80*/ meltfptr[73]), (melt_ptr_t)((/*!CLASS_MATCH_STEP_TEST_MATCHER*/ meltfrout->tabval[14])));; - MELT_LOCATION("warmelt-normatch.melt:3113:/ cond"); - /*cond*/ if (/*_#IS_A__L29*/ meltfnum[21]) /*then*/ { - /*^cond.then*/ - /*^block*/ - /*anyblock*/{ - - MELT_LOCATION("warmelt-normatch.melt:3115:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.CURDATASTEP__V80*/ meltfptr[73]), 2, "MSTEP_DATA");/*_.MSTEP_DATA__V83*/ meltfptr[76] = slot; }; - ; - /*_#__L31*/ meltfnum[30] = - ((/*_.MSTEP_DATA__V83*/ meltfptr[76]) == (/*_.MDATA__V3*/ meltfptr[2]));; - MELT_LOCATION("warmelt-normatch.melt:3113:/ cond"); - /*cond*/ if (/*_#__L31*/ meltfnum[30]) /*then*/ { - /*^cond.then*/ - /*^block*/ - /*anyblock*/{ - - MELT_LOCATION("warmelt-normatch.melt:3116:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.CURDATASTEP__V80*/ meltfptr[73]), 5, "MSTMA_MATCHER");/*_.MSTMA_MATCHER__V84*/ meltfptr[77] = slot; }; - ; - /*_#__L33*/ meltfnum[32] = - ((/*_.MSTMA_MATCHER__V84*/ meltfptr[77]) == (/*_.SOPER__V23*/ meltfptr[22]));; - MELT_LOCATION("warmelt-normatch.melt:3113:/ cond"); - /*cond*/ if (/*_#__L33*/ meltfnum[32]) /*then*/ { + /*_#IS_A__L19*/ meltfnum[14] = + melt_is_instance_of((melt_ptr_t)(/*_.CURTESTSTEP__V51*/ meltfptr[50]), (melt_ptr_t)((/*!CLASS_MATCH_STEP_TEST*/ meltfrout->tabval[11])));; + MELT_LOCATION("warmelt-normatch.melt:3149:/ cond"); + /*cond*/ if (/*_#IS_A__L19*/ meltfnum[14]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/{ - /*_#LIST_LENGTH__L35*/ meltfnum[34] = - (melt_list_length((melt_ptr_t)(/*_.INBINDS__V49*/ meltfptr[48])));; - /*^compute*/ - - /*_#I__L36*/ meltfnum[35] = - ((/*_#LIST_LENGTH__L35*/ meltfnum[34]) == (0));; - MELT_LOCATION("warmelt-normatch.melt:3113:/ cond"); - /*cond*/ if (/*_#I__L36*/ meltfnum[35]) /*then*/ { - /*^cond.then*/ - /*^block*/ - /*anyblock*/{ - - MELT_LOCATION("warmelt-normatch.melt:3118:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.CURDATASTEP__V80*/ meltfptr[73]), 6, "MSTMA_BINDS");/*_.MSTMA_BINDS__V85*/ meltfptr[58] = slot; }; - ; - /*_#LIST_LENGTH__L38*/ meltfnum[37] = - (melt_list_length((melt_ptr_t)(/*_.MSTMA_BINDS__V85*/ meltfptr[58])));; - /*^compute*/ - - /*_#I__L39*/ meltfnum[38] = - ((/*_#LIST_LENGTH__L38*/ meltfnum[37]) == (0));; - /*^compute*/ - - /*_#IF___L37*/ meltfnum[36] = /*_#I__L39*/ meltfnum[38];; - /*epilog*/ - - MELT_LOCATION("warmelt-normatch.melt:3113:/ clear"); - /*clear*/ /*_.MSTMA_BINDS__V85*/ meltfptr[58] = 0 ; - /*^clear*/ - /*clear*/ /*_#LIST_LENGTH__L38*/ meltfnum[37] = 0 ; - /*^clear*/ - /*clear*/ /*_#I__L39*/ meltfnum[38] = 0 ;} - ; - } else {/*^cond.else*/ - - /*_#IF___L37*/ meltfnum[36] = 0;; - } - ; - /*^compute*/ - - /*_#IF___L34*/ meltfnum[33] = /*_#IF___L37*/ meltfnum[36];; + MELT_LOCATION("warmelt-normatch.melt:3150:/ compute"); + /*_.LASTSTEPTEST__V49*/ meltfptr[42] = /*_.SETQ___V61*/ meltfptr[55] = /*_.CURTESTSTEP__V51*/ meltfptr[50];; + /*_.IFELSE___V60*/ meltfptr[51] = /*_.SETQ___V61*/ meltfptr[55];; /*epilog*/ - MELT_LOCATION("warmelt-normatch.melt:3113:/ clear"); - /*clear*/ /*_#LIST_LENGTH__L35*/ meltfnum[34] = 0 ; - /*^clear*/ - /*clear*/ /*_#I__L36*/ meltfnum[35] = 0 ; - /*^clear*/ - /*clear*/ /*_#IF___L37*/ meltfnum[36] = 0 ;} + MELT_LOCATION("warmelt-normatch.melt:3149:/ clear"); + /*clear*/ /*_.SETQ___V61*/ meltfptr[55] = 0 ;} ; } else {/*^cond.else*/ - /*_#IF___L34*/ meltfnum[33] = 0;; + /*_.IFELSE___V60*/ meltfptr[51] = NULL;; } ; /*^compute*/ - /*_#IF___L32*/ meltfnum[31] = /*_#IF___L34*/ meltfnum[33];; + /*_.IFELSE___V54*/ meltfptr[52] = /*_.IFELSE___V60*/ meltfptr[51];; /*epilog*/ - MELT_LOCATION("warmelt-normatch.melt:3113:/ clear"); - /*clear*/ /*_.MSTMA_MATCHER__V84*/ meltfptr[77] = 0 ; - /*^clear*/ - /*clear*/ /*_#__L33*/ meltfnum[32] = 0 ; + MELT_LOCATION("warmelt-normatch.melt:3142:/ clear"); + /*clear*/ /*_#IS_A__L19*/ meltfnum[14] = 0 ; /*^clear*/ - /*clear*/ /*_#IF___L34*/ meltfnum[33] = 0 ;} + /*clear*/ /*_.IFELSE___V60*/ meltfptr[51] = 0 ;} ; - } else {/*^cond.else*/ - - /*_#IF___L32*/ meltfnum[31] = 0;; } ; - /*^compute*/ - - /*_#IF___L30*/ meltfnum[29] = /*_#IF___L32*/ meltfnum[31];; - /*epilog*/ + } /* end cit2__EACHLIST */ + + /*citerepilog*/ - MELT_LOCATION("warmelt-normatch.melt:3113:/ clear"); - /*clear*/ /*_.MSTEP_DATA__V83*/ meltfptr[76] = 0 ; + MELT_LOCATION("warmelt-normatch.melt:3138:/ clear"); + /*clear*/ /*_.CURPAIR__V50*/ meltfptr[49] = 0 ; + /*^clear*/ + /*clear*/ /*_.CURTESTSTEP__V51*/ meltfptr[50] = 0 ; /*^clear*/ - /*clear*/ /*_#__L31*/ meltfnum[30] = 0 ; + /*clear*/ /*_#IS_A__L13*/ meltfnum[10] = 0 ; /*^clear*/ - /*clear*/ /*_#IF___L32*/ meltfnum[31] = 0 ;} + /*clear*/ /*_#IF___L14*/ meltfnum[13] = 0 ; + /*^clear*/ + /*clear*/ /*_.IFELSE___V54*/ meltfptr[52] = 0 ;} /*endciterblock FOREACH_IN_LIST*/ ; - } else {/*^cond.else*/ - - /*_#IF___L30*/ meltfnum[29] = 0;; - } - ; - MELT_LOCATION("warmelt-normatch.melt:3113:/ cond"); - /*cond*/ if (/*_#IF___L30*/ meltfnum[29]) /*then*/ { - /*^cond.then*/ - /*^block*/ - /*anyblock*/{ - - MELT_LOCATION("warmelt-normatch.melt:3120:/ quasiblock"); - - - /*_.SIMILARSTEP__V88*/ meltfptr[61] = /*_.CURDATASTEP__V80*/ meltfptr[73];; - MELT_LOCATION("warmelt-normatch.melt:3121:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.CURDATASTEP__V80*/ meltfptr[73]), 7, "MSTMA_INS");/*_.CURINS__V89*/ meltfptr[62] = slot; }; - ; - /*citerblock FOREACH_IN_MULTIPLE*/ { - /* start cit3__EACHTUP: */ - long cit3__EACHTUP_ln = melt_multiple_length((melt_ptr_t)/*_.CURINS__V89*/ meltfptr[62]); - for (/*_#SIMIX__L40*/ meltfnum[37] = 0; - (/*_#SIMIX__L40*/ meltfnum[37] >= 0) && (/*_#SIMIX__L40*/ meltfnum[37] < cit3__EACHTUP_ln); - /*_#SIMIX__L40*/ meltfnum[37]++) { - /*_.CURSIMIN__V90*/ meltfptr[64] = melt_multiple_nth((melt_ptr_t)(/*_.CURINS__V89*/ meltfptr[62]), /*_#SIMIX__L40*/ meltfnum[37]); - - - /*_.MULTIPLE_NTH__V91*/ meltfptr[66] = - (melt_multiple_nth((melt_ptr_t)(/*_.NINS__V48*/ meltfptr[47]), (/*_#SIMIX__L40*/ meltfnum[37])));; - /*^compute*/ - - /*_#__L41*/ meltfnum[38] = - ((/*_.MULTIPLE_NTH__V91*/ meltfptr[66]) != (/*_.CURSIMIN__V90*/ meltfptr[64]));; - MELT_LOCATION("warmelt-normatch.melt:3126:/ cond"); - /*cond*/ if (/*_#__L41*/ meltfnum[38]) /*then*/ { - /*^cond.then*/ - /*^block*/ - /*anyblock*/{ - - MELT_LOCATION("warmelt-normatch.melt:3128:/ compute"); - /*_#SIMIX__L40*/ meltfnum[37] = /*_#SETQ___L42*/ meltfnum[34] = -1;; - MELT_LOCATION("warmelt-normatch.melt:3129:/ compute"); - /*_.CURSIMIN__V90*/ meltfptr[64] = /*_.SETQ___V93*/ meltfptr[70] = (/*nil*/NULL);; - MELT_LOCATION("warmelt-normatch.melt:3130:/ compute"); - /*_.SIMILARSTEP__V88*/ meltfptr[61] = /*_.SETQ___V94*/ meltfptr[75] = (/*nil*/NULL);; - MELT_LOCATION("warmelt-normatch.melt:3127:/ quasiblock"); - - - /*_.PROGN___V95*/ meltfptr[58] = /*_.SETQ___V94*/ meltfptr[75];; - /*^compute*/ - - /*_.IF___V92*/ meltfptr[68] = /*_.PROGN___V95*/ meltfptr[58];; - /*epilog*/ - - MELT_LOCATION("warmelt-normatch.melt:3126:/ clear"); - /*clear*/ /*_#SETQ___L42*/ meltfnum[34] = 0 ; - /*^clear*/ - /*clear*/ /*_.SETQ___V93*/ meltfptr[70] = 0 ; - /*^clear*/ - /*clear*/ /*_.SETQ___V94*/ meltfptr[75] = 0 ; - /*^clear*/ - /*clear*/ /*_.PROGN___V95*/ meltfptr[58] = 0 ;} - ; - } else {/*^cond.else*/ + #if ENABLE_CHECKING + MELT_LOCATION("warmelt-normatch.melt:3153:/ cppif.then"); + /*^block*/ + /*anyblock*/{ - /*_.IF___V92*/ meltfptr[68] = NULL;; + /*_#THE_MELTCALLCOUNT__L20*/ meltfnum[15] = + meltcallcount;; + MELT_LOCATION("warmelt-normatch.melt:3153:/ apply"); + /*apply*/{ + union meltparam_un argtab[4]; + memset(&argtab, 0, sizeof(argtab)); + /*^apply.arg*/ + argtab[0].bp_cstring = "translpat_varpat laststeptest"; + /*^apply.arg*/ + argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L20*/ meltfnum[15]; + /*^apply.arg*/ + argtab[2].bp_cstring = "warmelt-normatch.melt"; + /*^apply.arg*/ + argtab[3].bp_long = 3153; + /*_.DEBUG_MSG_FUN__V63*/ meltfptr[58] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.LASTSTEPTEST__V49*/ meltfptr[42]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; - if (/*_#SIMIX__L40*/ meltfnum[37]<0) break; - } /* end cit3__EACHTUP */ - - /*citerepilog*/ + /*_.IFCPP___V62*/ meltfptr[57] = /*_.DEBUG_MSG_FUN__V63*/ meltfptr[58];; + /*epilog*/ - MELT_LOCATION("warmelt-normatch.melt:3123:/ clear"); - /*clear*/ /*_.CURSIMIN__V90*/ meltfptr[64] = 0 ; + MELT_LOCATION("warmelt-normatch.melt:3153:/ clear"); + /*clear*/ /*_#THE_MELTCALLCOUNT__L20*/ meltfnum[15] = 0 ; /*^clear*/ - /*clear*/ /*_#SIMIX__L40*/ meltfnum[37] = 0 ; - /*^clear*/ - /*clear*/ /*_.MULTIPLE_NTH__V91*/ meltfptr[66] = 0 ; - /*^clear*/ - /*clear*/ /*_#__L41*/ meltfnum[38] = 0 ; - /*^clear*/ - /*clear*/ /*_.IF___V92*/ meltfptr[68] = 0 ;} /*endciterblock FOREACH_IN_MULTIPLE*/ - ; + /*clear*/ /*_.DEBUG_MSG_FUN__V63*/ meltfptr[58] = 0 ;} - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normatch.melt:3132:/ cppif.then"); - /*^block*/ - /*anyblock*/{ - - /*_#THE_MELTCALLCOUNT__L43*/ meltfnum[35] = - meltcallcount;; - MELT_LOCATION("warmelt-normatch.melt:3132:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - /*^apply.arg*/ - argtab[0].bp_cstring = "translpat_patmat similiarstep"; - /*^apply.arg*/ - argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L43*/ meltfnum[35]; - /*^apply.arg*/ - argtab[2].bp_cstring = "warmelt-normatch.melt"; - /*^apply.arg*/ - argtab[3].bp_long = 3132; - /*_.DEBUG_MSG_FUN__V97*/ meltfptr[76] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.SIMILARSTEP__V88*/ meltfptr[61]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V96*/ meltfptr[77] = /*_.DEBUG_MSG_FUN__V97*/ meltfptr[76];; - /*epilog*/ - - MELT_LOCATION("warmelt-normatch.melt:3132:/ clear"); - /*clear*/ /*_#THE_MELTCALLCOUNT__L43*/ meltfnum[35] = 0 ; - /*^clear*/ - /*clear*/ /*_.DEBUG_MSG_FUN__V97*/ meltfptr[76] = 0 ;} - - #else /*ENABLE_CHECKING*/ - /*^cppif.else*/ - /*_.IFCPP___V96*/ meltfptr[77] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - MELT_LOCATION("warmelt-normatch.melt:3133:/ cond"); - /*cond*/ if (/*_.SIMILARSTEP__V88*/ meltfptr[61]) /*then*/ { - /*^cond.then*/ - /*^block*/ - /*anyblock*/{ - - MELT_LOCATION("warmelt-normatch.melt:3135:/ compute"); - /*_.CURSTEP__V31*/ meltfptr[30] = /*_.SETQ___V99*/ meltfptr[75] = /*_.SIMILARSTEP__V88*/ meltfptr[61];; - MELT_LOCATION("warmelt-normatch.melt:3136:/ compute"); - /*_.CURPAIRSTEP__V79*/ meltfptr[72] = /*_.SETQ___V100*/ meltfptr[58] = (/*nil*/NULL);; - MELT_LOCATION("warmelt-normatch.melt:3137:/ compute"); - /*_.CURDATASTEP__V80*/ meltfptr[73] = /*_.SETQ___V101*/ meltfptr[76] = (/*nil*/NULL);; - MELT_LOCATION("warmelt-normatch.melt:3134:/ quasiblock"); - - - /*_.PROGN___V102*/ meltfptr[101] = /*_.SETQ___V101*/ meltfptr[76];; - /*^compute*/ - - /*_.IF___V98*/ meltfptr[70] = /*_.PROGN___V102*/ meltfptr[101];; - /*epilog*/ - - MELT_LOCATION("warmelt-normatch.melt:3133:/ clear"); - /*clear*/ /*_.SETQ___V99*/ meltfptr[75] = 0 ; - /*^clear*/ - /*clear*/ /*_.SETQ___V100*/ meltfptr[58] = 0 ; - /*^clear*/ - /*clear*/ /*_.SETQ___V101*/ meltfptr[76] = 0 ; - /*^clear*/ - /*clear*/ /*_.PROGN___V102*/ meltfptr[101] = 0 ;} - ; - } else {/*^cond.else*/ - - /*_.IF___V98*/ meltfptr[70] = NULL;; - } + #else /*ENABLE_CHECKING*/ + /*^cppif.else*/ + /*_.IFCPP___V62*/ meltfptr[57] = (/*nil*/NULL); + #endif /*ENABLE_CHECKING*/ ; - /*^compute*/ - - /*_.LET___V87*/ meltfptr[60] = /*_.IF___V98*/ meltfptr[70];; - - MELT_LOCATION("warmelt-normatch.melt:3120:/ clear"); - /*clear*/ /*_.SIMILARSTEP__V88*/ meltfptr[61] = 0 ; - /*^clear*/ - /*clear*/ /*_.CURINS__V89*/ meltfptr[62] = 0 ; - /*^clear*/ - /*clear*/ /*_.IFCPP___V96*/ meltfptr[77] = 0 ; - /*^clear*/ - /*clear*/ /*_.IF___V98*/ meltfptr[70] = 0 ; - /*_.IF___V86*/ meltfptr[59] = /*_.LET___V87*/ meltfptr[60];; - /*epilog*/ - - MELT_LOCATION("warmelt-normatch.melt:3113:/ clear"); - /*clear*/ /*_.LET___V87*/ meltfptr[60] = 0 ;} - ; - } else {/*^cond.else*/ - - /*_.IF___V86*/ meltfptr[59] = NULL;; - } - ; - } /* end cit2__EACHLIST */ - - /*citerepilog*/ - - MELT_LOCATION("warmelt-normatch.melt:3109:/ clear"); - /*clear*/ /*_.CURPAIRSTEP__V79*/ meltfptr[72] = 0 ; - /*^clear*/ - /*clear*/ /*_.CURDATASTEP__V80*/ meltfptr[73] = 0 ; - /*^clear*/ - /*clear*/ /*_.IFCPP___V81*/ meltfptr[74] = 0 ; - /*^clear*/ - /*clear*/ /*_#IS_A__L29*/ meltfnum[21] = 0 ; - /*^clear*/ - /*clear*/ /*_#IF___L30*/ meltfnum[29] = 0 ; - /*^clear*/ - /*clear*/ /*_.IF___V86*/ meltfptr[59] = 0 ;} /*endciterblock FOREACH_IN_LIST*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normatch.melt:3140:/ cppif.then"); - /*^block*/ - /*anyblock*/{ - - /*_#THE_MELTCALLCOUNT__L44*/ meltfnum[36] = - meltcallcount;; - MELT_LOCATION("warmelt-normatch.melt:3140:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - /*^apply.arg*/ - argtab[0].bp_cstring = "translpat_patmat custep after seeking"; - /*^apply.arg*/ - argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L44*/ meltfnum[36]; - /*^apply.arg*/ - argtab[2].bp_cstring = "warmelt-normatch.melt"; - /*^apply.arg*/ - argtab[3].bp_long = 3140; - /*_.DEBUG_MSG_FUN__V104*/ meltfptr[58] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.CURSTEP__V31*/ meltfptr[30]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V103*/ meltfptr[75] = /*_.DEBUG_MSG_FUN__V104*/ meltfptr[58];; - /*epilog*/ - - MELT_LOCATION("warmelt-normatch.melt:3140:/ clear"); - /*clear*/ /*_#THE_MELTCALLCOUNT__L44*/ meltfnum[36] = 0 ; - /*^clear*/ - /*clear*/ /*_.DEBUG_MSG_FUN__V104*/ meltfptr[58] = 0 ;} - - #else /*ENABLE_CHECKING*/ - /*^cppif.else*/ - /*_.IFCPP___V103*/ meltfptr[75] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - /*^compute*/ - - /*_#NULL__L45*/ meltfnum[32] = - ((/*_.CURSTEP__V31*/ meltfptr[30]) == NULL);; - MELT_LOCATION("warmelt-normatch.melt:3141:/ cond"); - /*cond*/ if (/*_#NULL__L45*/ meltfnum[32]) /*then*/ { - /*^cond.then*/ - /*^block*/ - /*anyblock*/{ - - MELT_LOCATION("warmelt-normatch.melt:3142:/ quasiblock"); + MELT_LOCATION("warmelt-normatch.melt:3154:/ quasiblock"); - /*_.OUTDATATUP__V105*/ meltfptr[76] = - (meltgc_new_multiple((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ meltfrout->tabval[15])), (/*_#NBOPOUT__L7*/ meltfnum[0])));; - MELT_LOCATION("warmelt-normatch.melt:3144:/ quasiblock"); + /*^quasiblock*/ /*^rawallocobj*/ /*rawallocobj*/ { melt_ptr_t newobj = 0; - melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_MATCH_STEP_TEST_MATCHER*/ meltfrout->tabval[14])), (9), "CLASS_MATCH_STEP_TEST_MATCHER");/*_.INST__V107*/ meltfptr[61] = + melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_MATCH_STEP_TEST_VARIABLE*/ meltfrout->tabval[9])), (6), "CLASS_MATCH_STEP_TEST_VARIABLE");/*_.INST__V66*/ meltfptr[58] = newobj; }; ; /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj @LOCA_LOCATION", melt_magic_discr((melt_ptr_t)(/*_.INST__V107*/ meltfptr[61])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V107*/ meltfptr[61]), (1), (/*_.SLOC__V21*/ meltfptr[20]), "LOCA_LOCATION"); - ; - /*^putslot*/ - /*putslot*/ - melt_assertmsg("putslot checkobj @MSTEP_DATA", melt_magic_discr((melt_ptr_t)(/*_.INST__V107*/ meltfptr[61])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V107*/ meltfptr[61]), (2), (/*_.MDATA__V3*/ meltfptr[2]), "MSTEP_DATA"); - ; - /*^putslot*/ - /*putslot*/ - melt_assertmsg("putslot checkobj @MSTEP_THEN", melt_magic_discr((melt_ptr_t)(/*_.INST__V107*/ meltfptr[61])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V107*/ meltfptr[61]), (3), ((/*nil*/NULL)), "MSTEP_THEN"); - ; - /*^putslot*/ - /*putslot*/ - melt_assertmsg("putslot checkobj @MSTEP_ELSE", melt_magic_discr((melt_ptr_t)(/*_.INST__V107*/ meltfptr[61])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V107*/ meltfptr[61]), (4), ((/*nil*/NULL)), "MSTEP_ELSE"); - ; - /*^putslot*/ - /*putslot*/ - melt_assertmsg("putslot checkobj @MSTMA_MATCHER", melt_magic_discr((melt_ptr_t)(/*_.INST__V107*/ meltfptr[61])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V107*/ meltfptr[61]), (5), (/*_.SOPER__V23*/ meltfptr[22]), "MSTMA_MATCHER"); + melt_assertmsg("putslot checkobj @LOCA_LOCATION", melt_magic_discr((melt_ptr_t)(/*_.INST__V66*/ meltfptr[58])) == OBMAG_OBJECT); + melt_putfield_object((/*_.INST__V66*/ meltfptr[58]), (1), (/*_.SLOC__V21*/ meltfptr[20]), "LOCA_LOCATION"); ; /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj @MSTMA_BINDS", melt_magic_discr((melt_ptr_t)(/*_.INST__V107*/ meltfptr[61])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V107*/ meltfptr[61]), (6), (/*_.INBINDS__V49*/ meltfptr[48]), "MSTMA_BINDS"); + melt_assertmsg("putslot checkobj @MSTEP_DATA", melt_magic_discr((melt_ptr_t)(/*_.INST__V66*/ meltfptr[58])) == OBMAG_OBJECT); + melt_putfield_object((/*_.INST__V66*/ meltfptr[58]), (2), (/*_.MDATA__V3*/ meltfptr[2]), "MSTEP_DATA"); ; /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj @MSTMA_INS", melt_magic_discr((melt_ptr_t)(/*_.INST__V107*/ meltfptr[61])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V107*/ meltfptr[61]), (7), (/*_.NINS__V48*/ meltfptr[47]), "MSTMA_INS"); + melt_assertmsg("putslot checkobj @MSTEP_THEN", melt_magic_discr((melt_ptr_t)(/*_.INST__V66*/ meltfptr[58])) == OBMAG_OBJECT); + melt_putfield_object((/*_.INST__V66*/ meltfptr[58]), (3), (/*_.FLAGSTEP__V30*/ meltfptr[29]), "MSTEP_THEN"); ; /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj @MSTMA_OUTS", melt_magic_discr((melt_ptr_t)(/*_.INST__V107*/ meltfptr[61])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V107*/ meltfptr[61]), (8), (/*_.OUTDATATUP__V105*/ meltfptr[76]), "MSTMA_OUTS"); + melt_assertmsg("putslot checkobj @MSTEPTESTVAR_SYMB", melt_magic_discr((melt_ptr_t)(/*_.INST__V66*/ meltfptr[58])) == OBMAG_OBJECT); + melt_putfield_object((/*_.INST__V66*/ meltfptr[58]), (5), (/*_.SYMB__V22*/ meltfptr[21]), "MSTEPTESTVAR_SYMB"); ; - /*_.NEWSTEP__V106*/ meltfptr[101] = /*_.INST__V107*/ meltfptr[61];; - MELT_LOCATION("warmelt-normatch.melt:3154:/ compute"); - /*_.CURSTEP__V31*/ meltfptr[30] = /*_.SETQ___V108*/ meltfptr[62] = /*_.NEWSTEP__V106*/ meltfptr[101];; + /*_.STEPTEST__V65*/ meltfptr[51] = /*_.INST__V66*/ meltfptr[58];; - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normatch.melt:3155:/ cppif.then"); + { + MELT_LOCATION("warmelt-normatch.melt:3161:/ locexp"); + meltgc_append_list((melt_ptr_t)(/*_.STEPLIST__V26*/ meltfptr[25]), (melt_ptr_t)(/*_.STEPTEST__V65*/ meltfptr[51]));} + ; + MELT_LOCATION("warmelt-normatch.melt:3162:/ cond"); + /*cond*/ if (/*_.LASTSTEPTEST__V49*/ meltfptr[42]) /*then*/ { + /*^cond.then*/ /*^block*/ /*anyblock*/{ - /*_#THE_MELTCALLCOUNT__L46*/ meltfnum[33] = - meltcallcount;; - MELT_LOCATION("warmelt-normatch.melt:3155:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; + MELT_LOCATION("warmelt-normatch.melt:3164:/ msend"); + /*msend*/{ + union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); - /*^apply.arg*/ - argtab[0].bp_cstring = "translpat_patmat newstep"; - /*^apply.arg*/ - argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L46*/ meltfnum[33]; - /*^apply.arg*/ - argtab[2].bp_cstring = "warmelt-normatch.melt"; - /*^apply.arg*/ - argtab[3].bp_long = 3155; - /*_.DEBUG_MSG_FUN__V110*/ meltfptr[70] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.NEWSTEP__V106*/ meltfptr[101]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + /*^ojbmsend.arg*/ + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.STEPTEST__V65*/ meltfptr[51]; + /*_.PUT_ELSE_MATCH__V68*/ meltfptr[67] = meltgc_send((melt_ptr_t)(/*_.LASTSTEPTEST__V49*/ meltfptr[42]), (melt_ptr_t)((/*!PUT_ELSE_MATCH*/ meltfrout->tabval[12])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_.IFCPP___V109*/ meltfptr[77] = /*_.DEBUG_MSG_FUN__V110*/ meltfptr[70];; + + #if ENABLE_CHECKING + MELT_LOCATION("warmelt-normatch.melt:3165:/ cppif.then"); + /*^block*/ + /*anyblock*/{ + + /*_#THE_MELTCALLCOUNT__L21*/ meltfnum[16] = + meltcallcount;; + MELT_LOCATION("warmelt-normatch.melt:3165:/ apply"); + /*apply*/{ + union meltparam_un argtab[4]; + memset(&argtab, 0, sizeof(argtab)); + /*^apply.arg*/ + argtab[0].bp_cstring = "translpat_varpat updated laststeptest"; + /*^apply.arg*/ + argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L21*/ meltfnum[16]; + /*^apply.arg*/ + argtab[2].bp_cstring = "warmelt-normatch.melt"; + /*^apply.arg*/ + argtab[3].bp_long = 3165; + /*_.DEBUG_MSG_FUN__V70*/ meltfptr[69] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.LASTSTEPTEST__V49*/ meltfptr[42]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + } + ; + /*_.IFCPP___V69*/ meltfptr[68] = /*_.DEBUG_MSG_FUN__V70*/ meltfptr[69];; + /*epilog*/ + + MELT_LOCATION("warmelt-normatch.melt:3165:/ clear"); + /*clear*/ /*_#THE_MELTCALLCOUNT__L21*/ meltfnum[16] = 0 ; + /*^clear*/ + /*clear*/ /*_.DEBUG_MSG_FUN__V70*/ meltfptr[69] = 0 ;} + + #else /*ENABLE_CHECKING*/ + /*^cppif.else*/ + /*_.IFCPP___V69*/ meltfptr[68] = (/*nil*/NULL); + #endif /*ENABLE_CHECKING*/ + ; + MELT_LOCATION("warmelt-normatch.melt:3163:/ quasiblock"); + + + /*_.PROGN___V71*/ meltfptr[69] = /*_.IFCPP___V69*/ meltfptr[68];; + /*^compute*/ + + /*_.IF___V67*/ meltfptr[66] = /*_.PROGN___V71*/ meltfptr[69];; /*epilog*/ - MELT_LOCATION("warmelt-normatch.melt:3155:/ clear"); - /*clear*/ /*_#THE_MELTCALLCOUNT__L46*/ meltfnum[33] = 0 ; + MELT_LOCATION("warmelt-normatch.melt:3162:/ clear"); + /*clear*/ /*_.PUT_ELSE_MATCH__V68*/ meltfptr[67] = 0 ; /*^clear*/ - /*clear*/ /*_.DEBUG_MSG_FUN__V110*/ meltfptr[70] = 0 ;} - - #else /*ENABLE_CHECKING*/ - /*^cppif.else*/ - /*_.IFCPP___V109*/ meltfptr[77] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ + /*clear*/ /*_.IFCPP___V69*/ meltfptr[68] = 0 ; + /*^clear*/ + /*clear*/ /*_.PROGN___V71*/ meltfptr[69] = 0 ;} ; + } else {/*^cond.else*/ - { - MELT_LOCATION("warmelt-normatch.melt:3156:/ locexp"); - meltgc_append_list((melt_ptr_t)(/*_.MDATASTEPS__V32*/ meltfptr[31]), (melt_ptr_t)(/*_.NEWSTEP__V106*/ meltfptr[101]));} + /*_.IF___V67*/ meltfptr[66] = NULL;; + } ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normatch.melt:3157:/ cppif.then"); + MELT_LOCATION("warmelt-normatch.melt:3166:/ cppif.then"); /*^block*/ /*anyblock*/{ - /*_#THE_MELTCALLCOUNT__L47*/ meltfnum[30] = + /*_#THE_MELTCALLCOUNT__L22*/ meltfnum[14] = meltcallcount;; - MELT_LOCATION("warmelt-normatch.melt:3157:/ apply"); + MELT_LOCATION("warmelt-normatch.melt:3166:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_cstring = "translpat_patmat updated mdatasteps"; + argtab[0].bp_cstring = "translpat_varpat return steptest"; /*^apply.arg*/ - argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L47*/ meltfnum[30]; + argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L22*/ meltfnum[14]; /*^apply.arg*/ argtab[2].bp_cstring = "warmelt-normatch.melt"; /*^apply.arg*/ - argtab[3].bp_long = 3157; - /*_.DEBUG_MSG_FUN__V112*/ meltfptr[58] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.MDATASTEPS__V32*/ meltfptr[31]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + argtab[3].bp_long = 3166; + /*_.DEBUG_MSG_FUN__V73*/ meltfptr[68] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.STEPTEST__V65*/ meltfptr[51]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; - /*_.IFCPP___V111*/ meltfptr[60] = /*_.DEBUG_MSG_FUN__V112*/ meltfptr[58];; + /*_.IFCPP___V72*/ meltfptr[67] = /*_.DEBUG_MSG_FUN__V73*/ meltfptr[68];; /*epilog*/ - MELT_LOCATION("warmelt-normatch.melt:3157:/ clear"); - /*clear*/ /*_#THE_MELTCALLCOUNT__L47*/ meltfnum[30] = 0 ; + MELT_LOCATION("warmelt-normatch.melt:3166:/ clear"); + /*clear*/ /*_#THE_MELTCALLCOUNT__L22*/ meltfnum[14] = 0 ; /*^clear*/ - /*clear*/ /*_.DEBUG_MSG_FUN__V112*/ meltfptr[58] = 0 ;} + /*clear*/ /*_.DEBUG_MSG_FUN__V73*/ meltfptr[68] = 0 ;} #else /*ENABLE_CHECKING*/ /*^cppif.else*/ - /*_.IFCPP___V111*/ meltfptr[60] = (/*nil*/NULL); + /*_.IFCPP___V72*/ meltfptr[67] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - /*citerblock FOREACH_IN_MULTIPLE*/ { - /* start cit4__EACHTUP: */ - long cit4__EACHTUP_ln = melt_multiple_length((melt_ptr_t)/*_.OPOUT__V30*/ meltfptr[29]); - for (/*_#OUTIX__L48*/ meltfnum[31] = 0; - (/*_#OUTIX__L48*/ meltfnum[31] >= 0) && (/*_#OUTIX__L48*/ meltfnum[31] < cit4__EACHTUP_ln); - /*_#OUTIX__L48*/ meltfnum[31]++) { - /*_.CUROUTBIND__V113*/ meltfptr[70] = melt_multiple_nth((melt_ptr_t)(/*_.OPOUT__V30*/ meltfptr[29]), /*_#OUTIX__L48*/ meltfnum[31]); + MELT_LOCATION("warmelt-normatch.melt:3167:/ quasiblock"); - - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normatch.melt:3161:/ cppif.then"); - /*^block*/ - /*anyblock*/{ - - /*_#THE_MELTCALLCOUNT__L49*/ meltfnum[34] = - meltcallcount;; - MELT_LOCATION("warmelt-normatch.melt:3161:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - /*^apply.arg*/ - argtab[0].bp_cstring = "translpat_patmat curoutbind"; - /*^apply.arg*/ - argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L49*/ meltfnum[34]; - /*^apply.arg*/ - argtab[2].bp_cstring = "warmelt-normatch.melt"; - /*^apply.arg*/ - argtab[3].bp_long = 3161; - /*_.DEBUG_MSG_FUN__V115*/ meltfptr[114] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.CUROUTBIND__V113*/ meltfptr[70]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V114*/ meltfptr[58] = /*_.DEBUG_MSG_FUN__V115*/ meltfptr[114];; - /*epilog*/ - - MELT_LOCATION("warmelt-normatch.melt:3161:/ clear"); - /*clear*/ /*_#THE_MELTCALLCOUNT__L49*/ meltfnum[34] = 0 ; - /*^clear*/ - /*clear*/ /*_.DEBUG_MSG_FUN__V115*/ meltfptr[114] = 0 ;} - - #else /*ENABLE_CHECKING*/ - /*^cppif.else*/ - /*_.IFCPP___V114*/ meltfptr[58] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normatch.melt:3162:/ cppif.then"); - /*^block*/ - /*anyblock*/{ - - /*_#IS_A__L50*/ meltfnum[35] = - melt_is_instance_of((melt_ptr_t)(/*_.CUROUTBIND__V113*/ meltfptr[70]), (melt_ptr_t)((/*!CLASS_FORMAL_BINDING*/ meltfrout->tabval[10])));; - MELT_LOCATION("warmelt-normatch.melt:3162:/ cond"); - /*cond*/ if (/*_#IS_A__L50*/ meltfnum[35]) /*then*/ { - /*^cond.then*/ - /*_.IFELSE___V117*/ meltfptr[116] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normatch.melt:3162:/ cond.else"); - - /*^block*/ - /*anyblock*/{ - - - - - { - /*^locexp*/ - melt_assert_failed(( "check curoutbind"),( "warmelt-normatch.melt")?( "warmelt-normatch.melt"):__FILE__, - (3162)?(3162):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V117*/ meltfptr[116] = 0 ; - /*epilog*/ - } - ; - } - ; - /*^compute*/ + /*_.RETVAL___V1*/ meltfptr[0] = /*_.STEPTEST__V65*/ meltfptr[51];; + MELT_LOCATION("warmelt-normatch.melt:3167:/ putxtraresult"); + if (!xrestab_ || !xresdescr_) goto labend_rout; + if (xresdescr_[0] != BPAR_PTR) goto labend_rout; + if (xrestab_[0].bp_aptr) *(xrestab_[0].bp_aptr) = (melt_ptr_t) (/*_.MFLAG__V29*/ meltfptr[28]); + ; + /*^finalreturn*/ + ; + /*finalret*/ goto labend_rout ; + /*_.LET___V64*/ meltfptr[55] = /*_.RETURN___V74*/ meltfptr[69];; + + MELT_LOCATION("warmelt-normatch.melt:3154:/ clear"); + /*clear*/ /*_.STEPTEST__V65*/ meltfptr[51] = 0 ; + /*^clear*/ + /*clear*/ /*_.IF___V67*/ meltfptr[66] = 0 ; + /*^clear*/ + /*clear*/ /*_.IFCPP___V72*/ meltfptr[67] = 0 ; + /*^clear*/ + /*clear*/ /*_.RETURN___V74*/ meltfptr[69] = 0 ; + /*_.LET___V48*/ meltfptr[44] = /*_.LET___V64*/ meltfptr[55];; + + MELT_LOCATION("warmelt-normatch.melt:3136:/ clear"); + /*clear*/ /*_.LASTSTEPTEST__V49*/ meltfptr[42] = 0 ; + /*^clear*/ + /*clear*/ /*_.IFCPP___V62*/ meltfptr[57] = 0 ; + /*^clear*/ + /*clear*/ /*_.LET___V64*/ meltfptr[55] = 0 ; + MELT_LOCATION("warmelt-normatch.melt:3134:/ quasiblock"); + + + /*_.PROGN___V75*/ meltfptr[68] = /*_.LET___V48*/ meltfptr[44];; + /*^compute*/ - /*_.IFCPP___V116*/ meltfptr[114] = /*_.IFELSE___V117*/ meltfptr[116];; - /*epilog*/ - - MELT_LOCATION("warmelt-normatch.melt:3162:/ clear"); - /*clear*/ /*_#IS_A__L50*/ meltfnum[35] = 0 ; - /*^clear*/ - /*clear*/ /*_.IFELSE___V117*/ meltfptr[116] = 0 ;} - - #else /*ENABLE_CHECKING*/ - /*^cppif.else*/ - /*_.IFCPP___V116*/ meltfptr[114] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - MELT_LOCATION("warmelt-normatch.melt:3163:/ quasiblock"); - - - /*^cond*/ - /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CUROUTBIND__V113*/ meltfptr[70]), (melt_ptr_t)((/*!CLASS_ANY_BINDING*/ meltfrout->tabval[12])))) /*then*/ { - /*^cond.then*/ - /*^getslot*/ - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.CUROUTBIND__V113*/ meltfptr[70]), 0, "BINDER");/*_.OUTSYMB__V119*/ meltfptr[118] = slot; }; - ; - } else {/*^cond.else*/ - - /*_.OUTSYMB__V119*/ meltfptr[118] = NULL;; - } - ; - MELT_LOCATION("warmelt-normatch.melt:3164:/ cond"); - /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CUROUTBIND__V113*/ meltfptr[70]), (melt_ptr_t)((/*!CLASS_FORMAL_BINDING*/ meltfrout->tabval[10])))) /*then*/ { - /*^cond.then*/ - /*^getslot*/ - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.CUROUTBIND__V113*/ meltfptr[70]), 1, "FBIND_TYPE");/*_.OUTCTYP__V120*/ meltfptr[119] = slot; }; - ; - } else {/*^cond.else*/ - - /*_.OUTCTYP__V120*/ meltfptr[119] = NULL;; - } - ; - MELT_LOCATION("warmelt-normatch.melt:3166:/ apply"); - /*apply*/{ - /*_.CLONE_SYMBOL__V121*/ meltfptr[120] = melt_apply ((meltclosure_ptr_t)((/*!CLONE_SYMBOL*/ meltfrout->tabval[16])), (melt_ptr_t)(/*_.OUTSYMB__V119*/ meltfptr[118]), (""), (union meltparam_un*)0, "", (union meltparam_un*)0); - } - ; - /*_.MAKE_LIST__V122*/ meltfptr[121] = - (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ meltfrout->tabval[17]))));; - MELT_LOCATION("warmelt-normatch.melt:3165:/ quasiblock"); - - - /*^rawallocobj*/ - /*rawallocobj*/ { melt_ptr_t newobj = 0; - melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_MATCHED_DATA*/ meltfrout->tabval[2])), (5), "CLASS_MATCHED_DATA");/*_.INST__V124*/ meltfptr[123] = - newobj; }; - ; - /*^putslot*/ - /*putslot*/ - melt_assertmsg("putslot checkobj @MDATA_SYMB", melt_magic_discr((melt_ptr_t)(/*_.INST__V124*/ meltfptr[123])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V124*/ meltfptr[123]), (1), (/*_.CLONE_SYMBOL__V121*/ meltfptr[120]), "MDATA_SYMB"); - ; - /*^putslot*/ - /*putslot*/ - melt_assertmsg("putslot checkobj @MDATA_CTYPE", melt_magic_discr((melt_ptr_t)(/*_.INST__V124*/ meltfptr[123])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V124*/ meltfptr[123]), (2), (/*_.OUTCTYP__V120*/ meltfptr[119]), "MDATA_CTYPE"); - ; - /*^putslot*/ - /*putslot*/ - melt_assertmsg("putslot checkobj @MDATA_ORIG", melt_magic_discr((melt_ptr_t)(/*_.INST__V124*/ meltfptr[123])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V124*/ meltfptr[123]), (3), (/*_.NEWSTEP__V106*/ meltfptr[101]), "MDATA_ORIG"); - ; - /*^putslot*/ - /*putslot*/ - melt_assertmsg("putslot checkobj @MDATA_STEPS", melt_magic_discr((melt_ptr_t)(/*_.INST__V124*/ meltfptr[123])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V124*/ meltfptr[123]), (4), (/*_.MAKE_LIST__V122*/ meltfptr[121]), "MDATA_STEPS"); - ; - /*_.NEWSLOT__V123*/ meltfptr[122] = /*_.INST__V124*/ meltfptr[123];; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normatch.melt:3171:/ cppif.then"); - /*^block*/ - /*anyblock*/{ - - /*_#THE_MELTCALLCOUNT__L51*/ meltfnum[36] = - meltcallcount;; - MELT_LOCATION("warmelt-normatch.melt:3171:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - /*^apply.arg*/ - argtab[0].bp_cstring = "translpat_patmat outsymb"; - /*^apply.arg*/ - argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L51*/ meltfnum[36]; - /*^apply.arg*/ - argtab[2].bp_cstring = "warmelt-normatch.melt"; - /*^apply.arg*/ - argtab[3].bp_long = 3171; - /*_.DEBUG_MSG_FUN__V126*/ meltfptr[125] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.OUTSYMB__V119*/ meltfptr[118]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V125*/ meltfptr[124] = /*_.DEBUG_MSG_FUN__V126*/ meltfptr[125];; - /*epilog*/ - - MELT_LOCATION("warmelt-normatch.melt:3171:/ clear"); - /*clear*/ /*_#THE_MELTCALLCOUNT__L51*/ meltfnum[36] = 0 ; - /*^clear*/ - /*clear*/ /*_.DEBUG_MSG_FUN__V126*/ meltfptr[125] = 0 ;} - - #else /*ENABLE_CHECKING*/ - /*^cppif.else*/ - /*_.IFCPP___V125*/ meltfptr[124] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normatch.melt:3172:/ cppif.then"); - /*^block*/ - /*anyblock*/{ - - /*_#THE_MELTCALLCOUNT__L52*/ meltfnum[33] = - meltcallcount;; - MELT_LOCATION("warmelt-normatch.melt:3172:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - /*^apply.arg*/ - argtab[0].bp_cstring = "translpat_patmat newslot"; - /*^apply.arg*/ - argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L52*/ meltfnum[33]; - /*^apply.arg*/ - argtab[2].bp_cstring = "warmelt-normatch.melt"; - /*^apply.arg*/ - argtab[3].bp_long = 3172; - /*_.DEBUG_MSG_FUN__V128*/ meltfptr[127] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.NEWSLOT__V123*/ meltfptr[122]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V127*/ meltfptr[125] = /*_.DEBUG_MSG_FUN__V128*/ meltfptr[127];; - /*epilog*/ - - MELT_LOCATION("warmelt-normatch.melt:3172:/ clear"); - /*clear*/ /*_#THE_MELTCALLCOUNT__L52*/ meltfnum[33] = 0 ; - /*^clear*/ - /*clear*/ /*_.DEBUG_MSG_FUN__V128*/ meltfptr[127] = 0 ;} - - #else /*ENABLE_CHECKING*/ - /*^cppif.else*/ - /*_.IFCPP___V127*/ meltfptr[125] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - { - MELT_LOCATION("warmelt-normatch.melt:3173:/ locexp"); - meltgc_multiple_put_nth((melt_ptr_t)(/*_.OUTDATATUP__V105*/ meltfptr[76]), (/*_#OUTIX__L48*/ meltfnum[31]), (melt_ptr_t)(/*_.NEWSLOT__V123*/ meltfptr[122]));} - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normatch.melt:3174:/ cppif.then"); - /*^block*/ - /*anyblock*/{ - - /*_#IS_A__L53*/ meltfnum[30] = - melt_is_instance_of((melt_ptr_t)(/*_.OUTCTYP__V120*/ meltfptr[119]), (melt_ptr_t)((/*!CLASS_CTYPE*/ meltfrout->tabval[11])));; - MELT_LOCATION("warmelt-normatch.melt:3174:/ cond"); - /*cond*/ if (/*_#IS_A__L53*/ meltfnum[30]) /*then*/ { - /*^cond.then*/ - /*_.IFELSE___V130*/ meltfptr[129] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normatch.melt:3174:/ cond.else"); - - /*^block*/ - /*anyblock*/{ - - - - - { - /*^locexp*/ - melt_assert_failed(( "check outctyp"),( "warmelt-normatch.melt")?( "warmelt-normatch.melt"):__FILE__, - (3174)?(3174):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V130*/ meltfptr[129] = 0 ; - /*epilog*/ - } - ; - } - ; - /*^compute*/ - - /*_.IFCPP___V129*/ meltfptr[127] = /*_.IFELSE___V130*/ meltfptr[129];; - /*epilog*/ - - MELT_LOCATION("warmelt-normatch.melt:3174:/ clear"); - /*clear*/ /*_#IS_A__L53*/ meltfnum[30] = 0 ; - /*^clear*/ - /*clear*/ /*_.IFELSE___V130*/ meltfptr[129] = 0 ;} - - #else /*ENABLE_CHECKING*/ - /*^cppif.else*/ - /*_.IFCPP___V129*/ meltfptr[127] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - /*^compute*/ - - /*_.LET___V118*/ meltfptr[116] = /*_.IFCPP___V129*/ meltfptr[127];; - - MELT_LOCATION("warmelt-normatch.melt:3163:/ clear"); - /*clear*/ /*_.OUTSYMB__V119*/ meltfptr[118] = 0 ; - /*^clear*/ - /*clear*/ /*_.OUTCTYP__V120*/ meltfptr[119] = 0 ; - /*^clear*/ - /*clear*/ /*_.CLONE_SYMBOL__V121*/ meltfptr[120] = 0 ; - /*^clear*/ - /*clear*/ /*_.MAKE_LIST__V122*/ meltfptr[121] = 0 ; - /*^clear*/ - /*clear*/ /*_.NEWSLOT__V123*/ meltfptr[122] = 0 ; - /*^clear*/ - /*clear*/ /*_.IFCPP___V125*/ meltfptr[124] = 0 ; - /*^clear*/ - /*clear*/ /*_.IFCPP___V127*/ meltfptr[125] = 0 ; - /*^clear*/ - /*clear*/ /*_.IFCPP___V129*/ meltfptr[127] = 0 ; - if (/*_#OUTIX__L48*/ meltfnum[31]<0) break; - } /* end cit4__EACHTUP */ - - /*citerepilog*/ - - MELT_LOCATION("warmelt-normatch.melt:3158:/ clear"); - /*clear*/ /*_.CUROUTBIND__V113*/ meltfptr[70] = 0 ; - /*^clear*/ - /*clear*/ /*_#OUTIX__L48*/ meltfnum[31] = 0 ; - /*^clear*/ - /*clear*/ /*_.IFCPP___V114*/ meltfptr[58] = 0 ; - /*^clear*/ - /*clear*/ /*_.IFCPP___V116*/ meltfptr[114] = 0 ; - /*^clear*/ - /*clear*/ /*_.LET___V118*/ meltfptr[116] = 0 ;} /*endciterblock FOREACH_IN_MULTIPLE*/ - ; + /*_.IFELSE___V41*/ meltfptr[40] = /*_.PROGN___V75*/ meltfptr[68];; + /*epilog*/ - MELT_LOCATION("warmelt-normatch.melt:3142:/ clear"); - /*clear*/ /*_.OUTDATATUP__V105*/ meltfptr[76] = 0 ; - /*^clear*/ - /*clear*/ /*_.NEWSTEP__V106*/ meltfptr[101] = 0 ; + MELT_LOCATION("warmelt-normatch.melt:3129:/ clear"); + /*clear*/ /*_.IFCPP___V46*/ meltfptr[41] = 0 ; /*^clear*/ - /*clear*/ /*_.SETQ___V108*/ meltfptr[62] = 0 ; + /*clear*/ /*_.LET___V48*/ meltfptr[44] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V109*/ meltfptr[77] = 0 ; - /*^clear*/ - /*clear*/ /*_.IFCPP___V111*/ meltfptr[60] = 0 ; - /*epilog*/ - } + /*clear*/ /*_.PROGN___V75*/ meltfptr[68] = 0 ;} ; - } /*noelse*/ + } + ; + /*_.LET___V19*/ meltfptr[17] = /*_.IFELSE___V41*/ meltfptr[40];; + + MELT_LOCATION("warmelt-normatch.melt:3105:/ clear"); + /*clear*/ /*_.LOCA_LOCATION__V20*/ meltfptr[19] = 0 ; + /*^clear*/ + /*clear*/ /*_.SLOC__V21*/ meltfptr[20] = 0 ; + /*^clear*/ + /*clear*/ /*_.SYMB__V22*/ meltfptr[21] = 0 ; + /*^clear*/ + /*clear*/ /*_.MATCTX__V23*/ meltfptr[22] = 0 ; + /*^clear*/ + /*clear*/ /*_.SYMBVAL__V24*/ meltfptr[23] = 0 ; + /*^clear*/ + /*clear*/ /*_.MHANDLERS__V25*/ meltfptr[24] = 0 ; + /*^clear*/ + /*clear*/ /*_.STEPLIST__V26*/ meltfptr[25] = 0 ; + /*^clear*/ + /*clear*/ /*_.MCTXT__V27*/ meltfptr[26] = 0 ; + /*^clear*/ + /*clear*/ /*_.NAMED_NAME__V28*/ meltfptr[27] = 0 ; + /*^clear*/ + /*clear*/ /*_.MFLAG__V29*/ meltfptr[28] = 0 ; + /*^clear*/ + /*clear*/ /*_.FLAGSTEP__V30*/ meltfptr[29] = 0 ; + /*^clear*/ + /*clear*/ /*_.IFCPP___V32*/ meltfptr[31] = 0 ; + /*^clear*/ + /*clear*/ /*_.IFCPP___V34*/ meltfptr[32] = 0 ; + /*^clear*/ + /*clear*/ /*_.IFCPP___V36*/ meltfptr[34] = 0 ; + /*^clear*/ + /*clear*/ /*_#NULL__L10*/ meltfnum[0] = 0 ; + /*^clear*/ + /*clear*/ /*_.IFELSE___V41*/ meltfptr[40] = 0 ; + MELT_LOCATION("warmelt-normatch.melt:3098:/ quasiblock"); + + + /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V19*/ meltfptr[17];; + MELT_LOCATION("warmelt-normatch.melt:3098:/ finalreturn"); + ; + /*finalret*/ goto labend_rout ; + /*epilog*/ + + /*^clear*/ + /*clear*/ /*_.IFCPP___V7*/ meltfptr[6] = 0 ; + /*^clear*/ + /*clear*/ /*_.IFCPP___V9*/ meltfptr[7] = 0 ; + /*^clear*/ + /*clear*/ /*_.IFCPP___V11*/ meltfptr[9] = 0 ; + /*^clear*/ + /*clear*/ /*_.IFCPP___V13*/ meltfptr[11] = 0 ; + /*^clear*/ + /*clear*/ /*_.IFCPP___V15*/ meltfptr[13] = 0 ; + /*^clear*/ + /*clear*/ /*_.IFCPP___V17*/ meltfptr[15] = 0 ; + /*^clear*/ + /*clear*/ /*_.LET___V19*/ meltfptr[17] = 0 ;} + +; + goto labend_rout; +labend_rout: +melt_trace_end("TRANSLPAT_VARPAT", meltcallcount); melt_topframe = (struct callframe_melt_st*) meltfram__.prev; + return (melt_ptr_t)(/*_.RETVAL___V1*/ meltfptr[0]); +#undef meltcallcount +#undef meltfram__ +#undef MELTFRAM_NBVARNUM +#undef MELTFRAM_NBVARPTR +} /*end meltrout_68_warmelt_normatch_TRANSLPAT_VARPAT*/ + + + + + +melt_ptr_t MELT_MODULE_VISIBILITY +meltrout_69_warmelt_normatch_TRANSLPAT_ANDPAT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, + const char xresdescr_[], union meltparam_un *xrestab_) +{ +#if ENABLE_CHECKING + static long call_counter__; + long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; +#undef meltcallcount +#define meltcallcount thiscallcounter__ +#else +#undef meltcallcount +#define meltcallcount 0L +#endif + + struct frame_meltrout_69_warmelt_normatch_TRANSLPAT_ANDPAT_st { unsigned nbvar; +#if ENABLE_CHECKING + const char* flocs; +#endif + struct meltclosure_st *clos; + struct excepth_melt_st *exh; + struct callframe_melt_st *prev; +#define MELTFRAM_NBVARPTR 65 + void* varptr[65]; +#define MELTFRAM_NBVARNUM 16 + long varnum[16]; +/*others*/ + long _spare_; } + *framptr_=0, meltframe; +#define meltfram__ meltframe + if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/ + int ix=0; + framptr_ = (void*)firstargp_; + gt_ggc_mx_melt_un (framptr_->clos); + for(ix=0; ix<65; ix++) + if (framptr_->varptr[ix]) + gt_ggc_mx_melt_un (framptr_->varptr[ix]); + return NULL; + }/*end markggc*/; + memset(&meltfram__, 0, sizeof(meltfram__)); + meltfram__.nbvar = 65; + meltfram__.clos = closp_; + meltfram__.prev = (struct callframe_melt_st *) melt_topframe; + melt_topframe = (struct callframe_melt_st *) &meltfram__; +melt_trace_start("TRANSLPAT_ANDPAT", meltcallcount); +/*getargs*/ + + /*getarg#0*/ + MELT_LOCATION("warmelt-normatch.melt:3176:/ getarg"); + /*_.RECV__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; + + /*getarg#1*/ + /*^getarg*/ + if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; + /*_.MDATA__V3*/ meltfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; + gcc_assert(melt_discr((melt_ptr_t)(/*_.MDATA__V3*/ meltfptr[2])) != NULL); + + + /*getarg#2*/ + /*^getarg*/ + if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; + /*_.MCASE__V4*/ meltfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; + gcc_assert(melt_discr((melt_ptr_t)(/*_.MCASE__V4*/ meltfptr[3])) != NULL); + + + /*getarg#3*/ + /*^getarg*/ + if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs; + /*_.VARMAP__V5*/ meltfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL; + gcc_assert(melt_discr((melt_ptr_t)(/*_.VARMAP__V5*/ meltfptr[4])) != NULL); + + + /*getarg#4*/ + /*^getarg*/ + if (xargdescr_[3] != BPAR_PTR) goto lab_endgetargs; + /*_.PSLOC__V6*/ meltfptr[5] = (xargtab_[3].bp_aptr) ? (*(xargtab_[3].bp_aptr)) : NULL; + gcc_assert(melt_discr((melt_ptr_t)(/*_.PSLOC__V6*/ meltfptr[5])) != NULL); + ; + goto lab_endgetargs; +lab_endgetargs:; +/*body*/ +/*^block*/ +/*anyblock*/{ + #if ENABLE_CHECKING MELT_LOCATION("warmelt-normatch.melt:3177:/ cppif.then"); /*^block*/ /*anyblock*/{ - /*_#THE_MELTCALLCOUNT__L54*/ meltfnum[34] = + /*_#THE_MELTCALLCOUNT__L1*/ meltfnum[0] = meltcallcount;; MELT_LOCATION("warmelt-normatch.melt:3177:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_cstring = "translpat_patmat curstep after making it"; + argtab[0].bp_cstring = "translpat_andpat recv"; /*^apply.arg*/ - argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L54*/ meltfnum[34]; + argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L1*/ meltfnum[0]; /*^apply.arg*/ argtab[2].bp_cstring = "warmelt-normatch.melt"; /*^apply.arg*/ argtab[3].bp_long = 3177; - /*_.DEBUG_MSG_FUN__V132*/ meltfptr[118] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.CURSTEP__V31*/ meltfptr[30]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + /*_.DEBUG_MSG_FUN__V8*/ meltfptr[7] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; - /*_.IFCPP___V131*/ meltfptr[129] = /*_.DEBUG_MSG_FUN__V132*/ meltfptr[118];; + /*_.IFCPP___V7*/ meltfptr[6] = /*_.DEBUG_MSG_FUN__V8*/ meltfptr[7];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:3177:/ clear"); - /*clear*/ /*_#THE_MELTCALLCOUNT__L54*/ meltfnum[34] = 0 ; + /*clear*/ /*_#THE_MELTCALLCOUNT__L1*/ meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_.DEBUG_MSG_FUN__V132*/ meltfptr[118] = 0 ;} + /*clear*/ /*_.DEBUG_MSG_FUN__V8*/ meltfptr[7] = 0 ;} #else /*ENABLE_CHECKING*/ /*^cppif.else*/ - /*_.IFCPP___V131*/ meltfptr[129] = (/*nil*/NULL); + /*_.IFCPP___V7*/ meltfptr[6] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; @@ -3563,12 +3880,12 @@ lab_endgetargs:; /*^block*/ /*anyblock*/{ - /*_#IS_A__L55*/ meltfnum[35] = - melt_is_instance_of((melt_ptr_t)(/*_.CURSTEP__V31*/ meltfptr[30]), (melt_ptr_t)((/*!CLASS_MATCH_STEP_TEST_MATCHER*/ meltfrout->tabval[14])));; + /*_#IS_A__L2*/ meltfnum[0] = + melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_PATTERN_AND*/ meltfrout->tabval[1])));; MELT_LOCATION("warmelt-normatch.melt:3178:/ cond"); - /*cond*/ if (/*_#IS_A__L55*/ meltfnum[35]) /*then*/ { + /*cond*/ if (/*_#IS_A__L2*/ meltfnum[0]) /*then*/ { /*^cond.then*/ - /*_.IFELSE___V134*/ meltfptr[120] = (/*nil*/NULL);; + /*_.IFELSE___V10*/ meltfptr[9] = (/*nil*/NULL);; } else {MELT_LOCATION("warmelt-normatch.melt:3178:/ cond.else"); /*^block*/ @@ -3579,11 +3896,11 @@ lab_endgetargs:; { /*^locexp*/ - melt_assert_failed(( "check curstep"),( "warmelt-normatch.melt")?( "warmelt-normatch.melt"):__FILE__, + melt_assert_failed(( "check recv"),( "warmelt-normatch.melt")?( "warmelt-normatch.melt"):__FILE__, (3178)?(3178):__LINE__, __FUNCTION__); ;} ; - /*clear*/ /*_.IFELSE___V134*/ meltfptr[120] = 0 ; + /*clear*/ /*_.IFELSE___V10*/ meltfptr[9] = 0 ; /*epilog*/ } ; @@ -3591,17 +3908,17 @@ lab_endgetargs:; ; /*^compute*/ - /*_.IFCPP___V133*/ meltfptr[119] = /*_.IFELSE___V134*/ meltfptr[120];; + /*_.IFCPP___V9*/ meltfptr[7] = /*_.IFELSE___V10*/ meltfptr[9];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:3178:/ clear"); - /*clear*/ /*_#IS_A__L55*/ meltfnum[35] = 0 ; + /*clear*/ /*_#IS_A__L2*/ meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_.IFELSE___V134*/ meltfptr[120] = 0 ;} + /*clear*/ /*_.IFELSE___V10*/ meltfptr[9] = 0 ;} #else /*ENABLE_CHECKING*/ /*^cppif.else*/ - /*_.IFCPP___V133*/ meltfptr[119] = (/*nil*/NULL); + /*_.IFCPP___V9*/ meltfptr[7] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; @@ -3610,340 +3927,804 @@ lab_endgetargs:; /*^block*/ /*anyblock*/{ - /*_#THE_MELTCALLCOUNT__L56*/ meltfnum[36] = + /*_#THE_MELTCALLCOUNT__L3*/ meltfnum[0] = meltcallcount;; MELT_LOCATION("warmelt-normatch.melt:3179:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_cstring = "translpat_patmat souts again"; + argtab[0].bp_cstring = "translpat_andpat mdata"; /*^apply.arg*/ - argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L56*/ meltfnum[36]; + argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L3*/ meltfnum[0]; /*^apply.arg*/ argtab[2].bp_cstring = "warmelt-normatch.melt"; /*^apply.arg*/ argtab[3].bp_long = 3179; - /*_.DEBUG_MSG_FUN__V136*/ meltfptr[122] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.SOUTS__V25*/ meltfptr[24]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + /*_.DEBUG_MSG_FUN__V12*/ meltfptr[11] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.MDATA__V3*/ meltfptr[2]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; - /*_.IFCPP___V135*/ meltfptr[121] = /*_.DEBUG_MSG_FUN__V136*/ meltfptr[122];; + /*_.IFCPP___V11*/ meltfptr[9] = /*_.DEBUG_MSG_FUN__V12*/ meltfptr[11];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:3179:/ clear"); - /*clear*/ /*_#THE_MELTCALLCOUNT__L56*/ meltfnum[36] = 0 ; + /*clear*/ /*_#THE_MELTCALLCOUNT__L3*/ meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_.DEBUG_MSG_FUN__V136*/ meltfptr[122] = 0 ;} + /*clear*/ /*_.DEBUG_MSG_FUN__V12*/ meltfptr[11] = 0 ;} #else /*ENABLE_CHECKING*/ /*^cppif.else*/ - /*_.IFCPP___V135*/ meltfptr[121] = (/*nil*/NULL); + /*_.IFCPP___V11*/ meltfptr[9] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-normatch.melt:3180:/ quasiblock"); + #if ENABLE_CHECKING + MELT_LOCATION("warmelt-normatch.melt:3180:/ cppif.then"); + /*^block*/ + /*anyblock*/{ + + /*_#IS_A__L4*/ meltfnum[0] = + melt_is_instance_of((melt_ptr_t)(/*_.MDATA__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_MATCHED_DATA*/ meltfrout->tabval[2])));; + MELT_LOCATION("warmelt-normatch.melt:3180:/ cond"); + /*cond*/ if (/*_#IS_A__L4*/ meltfnum[0]) /*then*/ { + /*^cond.then*/ + /*_.IFELSE___V14*/ meltfptr[13] = (/*nil*/NULL);; + } else {MELT_LOCATION("warmelt-normatch.melt:3180:/ cond.else"); + + /*^block*/ + /*anyblock*/{ + + + + + { + /*^locexp*/ + melt_assert_failed(( "check mdata"),( "warmelt-normatch.melt")?( "warmelt-normatch.melt"):__FILE__, + (3180)?(3180):__LINE__, __FUNCTION__); +;} + ; + /*clear*/ /*_.IFELSE___V14*/ meltfptr[13] = 0 ; + /*epilog*/ + } + ; + } + ; + /*^compute*/ + + /*_.IFCPP___V13*/ meltfptr[11] = /*_.IFELSE___V14*/ meltfptr[13];; + /*epilog*/ + + MELT_LOCATION("warmelt-normatch.melt:3180:/ clear"); + /*clear*/ /*_#IS_A__L4*/ meltfnum[0] = 0 ; + /*^clear*/ + /*clear*/ /*_.IFELSE___V14*/ meltfptr[13] = 0 ;} + + #else /*ENABLE_CHECKING*/ + /*^cppif.else*/ + /*_.IFCPP___V13*/ meltfptr[11] = (/*nil*/NULL); + #endif /*ENABLE_CHECKING*/ + ; - MELT_LOCATION("warmelt-normatch.melt:3181:/ cond"); - /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURSTEP__V31*/ meltfptr[30]), (melt_ptr_t)((/*!CLASS_MATCH_STEP_TEST_MATCHER*/ meltfrout->tabval[14])))) /*then*/ { - /*^cond.then*/ - /*^getslot*/ - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.CURSTEP__V31*/ meltfptr[30]), 8, "MSTMA_OUTS");/*_.OUTDATA__V138*/ meltfptr[125] = slot; }; + #if ENABLE_CHECKING + MELT_LOCATION("warmelt-normatch.melt:3181:/ cppif.then"); + /*^block*/ + /*anyblock*/{ + + /*_#THE_MELTCALLCOUNT__L5*/ meltfnum[0] = + meltcallcount;; + MELT_LOCATION("warmelt-normatch.melt:3181:/ apply"); + /*apply*/{ + union meltparam_un argtab[4]; + memset(&argtab, 0, sizeof(argtab)); + /*^apply.arg*/ + argtab[0].bp_cstring = "translpat_andpat mcase"; + /*^apply.arg*/ + argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L5*/ meltfnum[0]; + /*^apply.arg*/ + argtab[2].bp_cstring = "warmelt-normatch.melt"; + /*^apply.arg*/ + argtab[3].bp_long = 3181; + /*_.DEBUG_MSG_FUN__V16*/ meltfptr[15] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.MCASE__V4*/ meltfptr[3]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + } + ; + /*_.IFCPP___V15*/ meltfptr[13] = /*_.DEBUG_MSG_FUN__V16*/ meltfptr[15];; + /*epilog*/ + + MELT_LOCATION("warmelt-normatch.melt:3181:/ clear"); + /*clear*/ /*_#THE_MELTCALLCOUNT__L5*/ meltfnum[0] = 0 ; + /*^clear*/ + /*clear*/ /*_.DEBUG_MSG_FUN__V16*/ meltfptr[15] = 0 ;} + + #else /*ENABLE_CHECKING*/ + /*^cppif.else*/ + /*_.IFCPP___V15*/ meltfptr[13] = (/*nil*/NULL); + #endif /*ENABLE_CHECKING*/ ; - } else {/*^cond.else*/ - /*_.OUTDATA__V138*/ meltfptr[125] = NULL;; + #if ENABLE_CHECKING + MELT_LOCATION("warmelt-normatch.melt:3182:/ cppif.then"); + /*^block*/ + /*anyblock*/{ + + /*_#IS_A__L6*/ meltfnum[0] = + melt_is_instance_of((melt_ptr_t)(/*_.MCASE__V4*/ meltfptr[3]), (melt_ptr_t)((/*!CLASS_MATCH_CASE*/ meltfrout->tabval[3])));; + MELT_LOCATION("warmelt-normatch.melt:3182:/ cond"); + /*cond*/ if (/*_#IS_A__L6*/ meltfnum[0]) /*then*/ { + /*^cond.then*/ + /*_.IFELSE___V18*/ meltfptr[17] = (/*nil*/NULL);; + } else {MELT_LOCATION("warmelt-normatch.melt:3182:/ cond.else"); + + /*^block*/ + /*anyblock*/{ + + + + + { + /*^locexp*/ + melt_assert_failed(( "check mcase"),( "warmelt-normatch.melt")?( "warmelt-normatch.melt"):__FILE__, + (3182)?(3182):__LINE__, __FUNCTION__); +;} + ; + /*clear*/ /*_.IFELSE___V18*/ meltfptr[17] = 0 ; + /*epilog*/ + } + ; + } + ; + /*^compute*/ + + /*_.IFCPP___V17*/ meltfptr[15] = /*_.IFELSE___V18*/ meltfptr[17];; + /*epilog*/ + + MELT_LOCATION("warmelt-normatch.melt:3182:/ clear"); + /*clear*/ /*_#IS_A__L6*/ meltfnum[0] = 0 ; + /*^clear*/ + /*clear*/ /*_.IFELSE___V18*/ meltfptr[17] = 0 ;} + + #else /*ENABLE_CHECKING*/ + /*^cppif.else*/ + /*_.IFCPP___V17*/ meltfptr[15] = (/*nil*/NULL); + #endif /*ENABLE_CHECKING*/ + ; + MELT_LOCATION("warmelt-normatch.melt:3183:/ quasiblock"); + + + MELT_LOCATION("warmelt-normatch.melt:3184:/ getslot"); + { melt_ptr_t slot=0; + melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), 1, "LOCA_LOCATION");/*_.LOCA_LOCATION__V20*/ meltfptr[19] = slot; }; + ; + /*^cond*/ + /*cond*/ if (/*_.LOCA_LOCATION__V20*/ meltfptr[19]) /*then*/ { + /*^cond.then*/ + /*_.SLOC__V21*/ meltfptr[20] = /*_.LOCA_LOCATION__V20*/ meltfptr[19];; + } else {MELT_LOCATION("warmelt-normatch.melt:3184:/ cond.else"); + + /*_.SLOC__V21*/ meltfptr[20] = /*_.PSLOC__V6*/ meltfptr[5];; } ; + MELT_LOCATION("warmelt-normatch.melt:3185:/ getslot"); + { melt_ptr_t slot=0; + melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), 2, "ANDPAT_CONJ");/*_.SCONJ__V22*/ meltfptr[21] = slot; }; + ; + /*_.CURSTEP__V23*/ meltfptr[22] = (/*nil*/NULL);; /*^compute*/ - /*_.THENLIST__V139*/ meltfptr[127] = - (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ meltfrout->tabval[17]))));; + /*_.FIRSTSTEP__V24*/ meltfptr[23] = (/*nil*/NULL);; /*^compute*/ - /*_.ELSELIST__V140*/ meltfptr[76] = - (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ meltfrout->tabval[17]))));; + /*_.THENLIST__V25*/ meltfptr[24] = + (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ meltfrout->tabval[4]))));; /*^compute*/ - /*_.LASTSTEP__V141*/ meltfptr[101] = /*_.CURSTEP__V31*/ meltfptr[30];; - MELT_LOCATION("warmelt-normatch.melt:3185:/ quasiblock"); + /*_.ELSELIST__V26*/ meltfptr[25] = + (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ meltfrout->tabval[4]))));; + /*^compute*/ + + /*_.FLAGLIST__V27*/ meltfptr[26] = + (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ meltfrout->tabval[4]))));; + MELT_LOCATION("warmelt-normatch.melt:3191:/ getslot"); + { melt_ptr_t slot=0; + melt_object_get_field(slot,(melt_ptr_t)(/*_.MCASE__V4*/ meltfptr[3]), 1, "MCASE_MCTXT");/*_.MCTXT__V28*/ meltfptr[27] = slot; }; + ; + MELT_LOCATION("warmelt-normatch.melt:3192:/ quasiblock"); /*^rawallocobj*/ /*rawallocobj*/ { melt_ptr_t newobj = 0; - melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_MATCH_STEP_TEST_GROUP*/ meltfrout->tabval[18])), (8), "CLASS_MATCH_STEP_TEST_GROUP");/*_.INST__V143*/ meltfptr[77] = + melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_MATCH_STEP_TEST_GROUP*/ meltfrout->tabval[5])), (8), "CLASS_MATCH_STEP_TEST_GROUP");/*_.INST__V30*/ meltfptr[29] = newobj; }; ; /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj @LOCA_LOCATION", melt_magic_discr((melt_ptr_t)(/*_.INST__V143*/ meltfptr[77])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V143*/ meltfptr[77]), (1), (/*_.SLOC__V21*/ meltfptr[20]), "LOCA_LOCATION"); + melt_assertmsg("putslot checkobj @LOCA_LOCATION", melt_magic_discr((melt_ptr_t)(/*_.INST__V30*/ meltfptr[29])) == OBMAG_OBJECT); + melt_putfield_object((/*_.INST__V30*/ meltfptr[29]), (1), (/*_.SLOC__V21*/ meltfptr[20]), "LOCA_LOCATION"); ; /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj @MSTEP_DATA", melt_magic_discr((melt_ptr_t)(/*_.INST__V143*/ meltfptr[77])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V143*/ meltfptr[77]), (2), (/*_.MDATA__V3*/ meltfptr[2]), "MSTEP_DATA"); + melt_assertmsg("putslot checkobj @MSTEP_DATA", melt_magic_discr((melt_ptr_t)(/*_.INST__V30*/ meltfptr[29])) == OBMAG_OBJECT); + melt_putfield_object((/*_.INST__V30*/ meltfptr[29]), (2), (/*_.MDATA__V3*/ meltfptr[2]), "MSTEP_DATA"); ; /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj @MSTEP_THEN", melt_magic_discr((melt_ptr_t)(/*_.INST__V143*/ meltfptr[77])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V143*/ meltfptr[77]), (3), ((/*nil*/NULL)), "MSTEP_THEN"); + melt_assertmsg("putslot checkobj @MSTGROUP_START", melt_magic_discr((melt_ptr_t)(/*_.INST__V30*/ meltfptr[29])) == OBMAG_OBJECT); + melt_putfield_object((/*_.INST__V30*/ meltfptr[29]), (5), ((/*nil*/NULL)), "MSTGROUP_START"); + ; + /*^putslot*/ + /*putslot*/ + melt_assertmsg("putslot checkobj @MSTGROUP_THEN", melt_magic_discr((melt_ptr_t)(/*_.INST__V30*/ meltfptr[29])) == OBMAG_OBJECT); + melt_putfield_object((/*_.INST__V30*/ meltfptr[29]), (6), ((/*nil*/NULL)), "MSTGROUP_THEN"); + ; + /*^putslot*/ + /*putslot*/ + melt_assertmsg("putslot checkobj @MSTGROUP_ELSE", melt_magic_discr((melt_ptr_t)(/*_.INST__V30*/ meltfptr[29])) == OBMAG_OBJECT); + melt_putfield_object((/*_.INST__V30*/ meltfptr[29]), (7), ((/*nil*/NULL)), "MSTGROUP_ELSE"); + ; + /*_.STEPGROUP__V29*/ meltfptr[28] = /*_.INST__V30*/ meltfptr[29];; + MELT_LOCATION("warmelt-normatch.melt:3199:/ apply"); + /*apply*/{ + union meltparam_un argtab[2]; + memset(&argtab, 0, sizeof(argtab)); + /*^apply.arg*/ + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.MCTXT__V28*/ meltfptr[27]; + /*^apply.arg*/ + argtab[1].bp_aptr = (melt_ptr_t*) &(/*!konst_7*/ meltfrout->tabval[7]); + /*_.MFLAG__V31*/ meltfptr[30] = melt_apply ((meltclosure_ptr_t)((/*!MAKE_MATCH_FLAG*/ meltfrout->tabval[6])), (melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + } + ; + MELT_LOCATION("warmelt-normatch.melt:3200:/ quasiblock"); + + + /*^rawallocobj*/ + /*rawallocobj*/ { melt_ptr_t newobj = 0; + melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_MATCH_STEP_FLAG_CONJONCTION*/ meltfrout->tabval[8])), (6), "CLASS_MATCH_STEP_FLAG_CONJONCTION");/*_.INST__V33*/ meltfptr[32] = + newobj; }; ; /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj @MSTEP_ELSE", melt_magic_discr((melt_ptr_t)(/*_.INST__V143*/ meltfptr[77])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V143*/ meltfptr[77]), (4), ((/*nil*/NULL)), "MSTEP_ELSE"); + melt_assertmsg("putslot checkobj @LOCA_LOCATION", melt_magic_discr((melt_ptr_t)(/*_.INST__V33*/ meltfptr[32])) == OBMAG_OBJECT); + melt_putfield_object((/*_.INST__V33*/ meltfptr[32]), (1), (/*_.SLOC__V21*/ meltfptr[20]), "LOCA_LOCATION"); ; /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj @MSTGROUP_START", melt_magic_discr((melt_ptr_t)(/*_.INST__V143*/ meltfptr[77])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V143*/ meltfptr[77]), (5), (/*_.CURSTEP__V31*/ meltfptr[30]), "MSTGROUP_START"); + melt_assertmsg("putslot checkobj @MSTEP_DATA", melt_magic_discr((melt_ptr_t)(/*_.INST__V33*/ meltfptr[32])) == OBMAG_OBJECT); + melt_putfield_object((/*_.INST__V33*/ meltfptr[32]), (2), (/*_.MDATA__V3*/ meltfptr[2]), "MSTEP_DATA"); ; /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj @MSTGROUP_THEN", melt_magic_discr((melt_ptr_t)(/*_.INST__V143*/ meltfptr[77])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V143*/ meltfptr[77]), (6), ((/*nil*/NULL)), "MSTGROUP_THEN"); + melt_assertmsg("putslot checkobj @MSTEP_THEN", melt_magic_discr((melt_ptr_t)(/*_.INST__V33*/ meltfptr[32])) == OBMAG_OBJECT); + melt_putfield_object((/*_.INST__V33*/ meltfptr[32]), (3), ((/*nil*/NULL)), "MSTEP_THEN"); ; /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj @MSTGROUP_ELSE", melt_magic_discr((melt_ptr_t)(/*_.INST__V143*/ meltfptr[77])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V143*/ meltfptr[77]), (7), ((/*nil*/NULL)), "MSTGROUP_ELSE"); + melt_assertmsg("putslot checkobj @MSTEP_FLAG", melt_magic_discr((melt_ptr_t)(/*_.INST__V33*/ meltfptr[32])) == OBMAG_OBJECT); + melt_putfield_object((/*_.INST__V33*/ meltfptr[32]), (4), (/*_.MFLAG__V31*/ meltfptr[30]), "MSTEP_FLAG"); + ; + /*_.FLAGSTEP__V32*/ meltfptr[31] = /*_.INST__V33*/ meltfptr[32];; + + #if ENABLE_CHECKING + MELT_LOCATION("warmelt-normatch.melt:3207:/ cppif.then"); + /*^block*/ + /*anyblock*/{ + + /*_#IS_MULTIPLE__L7*/ meltfnum[0] = + (melt_magic_discr((melt_ptr_t)(/*_.SCONJ__V22*/ meltfptr[21])) == OBMAG_MULTIPLE);; + MELT_LOCATION("warmelt-normatch.melt:3207:/ cond"); + /*cond*/ if (/*_#IS_MULTIPLE__L7*/ meltfnum[0]) /*then*/ { + /*^cond.then*/ + /*_.IFELSE___V35*/ meltfptr[34] = (/*nil*/NULL);; + } else {MELT_LOCATION("warmelt-normatch.melt:3207:/ cond.else"); + + /*^block*/ + /*anyblock*/{ + + + + + { + /*^locexp*/ + melt_assert_failed(( "check sconj"),( "warmelt-normatch.melt")?( "warmelt-normatch.melt"):__FILE__, + (3207)?(3207):__LINE__, __FUNCTION__); +;} + ; + /*clear*/ /*_.IFELSE___V35*/ meltfptr[34] = 0 ; + /*epilog*/ + } + ; + } + ; + /*^compute*/ + + /*_.IFCPP___V34*/ meltfptr[33] = /*_.IFELSE___V35*/ meltfptr[34];; + /*epilog*/ + + MELT_LOCATION("warmelt-normatch.melt:3207:/ clear"); + /*clear*/ /*_#IS_MULTIPLE__L7*/ meltfnum[0] = 0 ; + /*^clear*/ + /*clear*/ /*_.IFELSE___V35*/ meltfptr[34] = 0 ;} + + #else /*ENABLE_CHECKING*/ + /*^cppif.else*/ + /*_.IFCPP___V34*/ meltfptr[33] = (/*nil*/NULL); + #endif /*ENABLE_CHECKING*/ + ; + MELT_LOCATION("warmelt-normatch.melt:3208:/ cond"); + /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.MFLAG__V31*/ meltfptr[30]), (melt_ptr_t)((/*!CLASS_MATCH_FLAG*/ meltfrout->tabval[9])))) /*then*/ { + /*^cond.then*/ + /*^block*/ + /*anyblock*/{ + + /*^putslot*/ + /*putslot*/ + melt_assertmsg("putslot checkobj @MFLAG_SETSTEP", melt_magic_discr((melt_ptr_t)(/*_.MFLAG__V31*/ meltfptr[30])) == OBMAG_OBJECT); + melt_putfield_object((/*_.MFLAG__V31*/ meltfptr[30]), (5), (/*_.FLAGSTEP__V32*/ meltfptr[31]), "MFLAG_SETSTEP"); + ; + /*^touch*/ + meltgc_touch(/*_.MFLAG__V31*/ meltfptr[30]); + ; + /*epilog*/ + } + ; + } /*noelse*/ ; - /*_.TESTGROUP__V142*/ meltfptr[62] = /*_.INST__V143*/ meltfptr[77];; /*citerblock FOREACH_IN_MULTIPLE*/ { - /* start cit5__EACHTUP: */ - long cit5__EACHTUP_ln = melt_multiple_length((melt_ptr_t)/*_.OUTDATA__V138*/ meltfptr[125]); - for (/*_#DIX__L57*/ meltfnum[33] = 0; - (/*_#DIX__L57*/ meltfnum[33] >= 0) && (/*_#DIX__L57*/ meltfnum[33] < cit5__EACHTUP_ln); - /*_#DIX__L57*/ meltfnum[33]++) { - /*_.CUROUTDATA__V144*/ meltfptr[60] = melt_multiple_nth((melt_ptr_t)(/*_.OUTDATA__V138*/ meltfptr[125]), /*_#DIX__L57*/ meltfnum[33]); + /* start cit1__EACHTUP: */ + long cit1__EACHTUP_ln = melt_multiple_length((melt_ptr_t)/*_.SCONJ__V22*/ meltfptr[21]); + for (/*_#CONJIX__L8*/ meltfnum[0] = 0; + (/*_#CONJIX__L8*/ meltfnum[0] >= 0) && (/*_#CONJIX__L8*/ meltfnum[0] < cit1__EACHTUP_ln); + /*_#CONJIX__L8*/ meltfnum[0]++) { + /*_.CURCONJ__V36*/ meltfptr[34] = melt_multiple_nth((melt_ptr_t)(/*_.SCONJ__V22*/ meltfptr[21]), /*_#CONJIX__L8*/ meltfnum[0]); - MELT_LOCATION("warmelt-normatch.melt:3198:/ quasiblock"); - - - /*_.OUTPAT__V146*/ meltfptr[120] = - (melt_multiple_nth((melt_ptr_t)(/*_.SOUTS__V25*/ meltfptr[24]), (/*_#DIX__L57*/ meltfnum[33])));; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normatch.melt:3200:/ cppif.then"); + MELT_LOCATION("warmelt-normatch.melt:3212:/ cppif.then"); /*^block*/ /*anyblock*/{ - /*_#THE_MELTCALLCOUNT__L58*/ meltfnum[30] = + /*_#THE_MELTCALLCOUNT__L9*/ meltfnum[8] = meltcallcount;; - MELT_LOCATION("warmelt-normatch.melt:3200:/ apply"); + MELT_LOCATION("warmelt-normatch.melt:3212:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_cstring = "translpat_patmat curoutdata"; + argtab[0].bp_cstring = "translpat_andpat curconj"; /*^apply.arg*/ - argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L58*/ meltfnum[30]; + argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L9*/ meltfnum[8]; /*^apply.arg*/ argtab[2].bp_cstring = "warmelt-normatch.melt"; /*^apply.arg*/ - argtab[3].bp_long = 3200; - /*_.DEBUG_MSG_FUN__V148*/ meltfptr[147] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.CUROUTDATA__V144*/ meltfptr[60]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + argtab[3].bp_long = 3212; + /*_.DEBUG_MSG_FUN__V38*/ meltfptr[37] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.CURCONJ__V36*/ meltfptr[34]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; - /*_.IFCPP___V147*/ meltfptr[122] = /*_.DEBUG_MSG_FUN__V148*/ meltfptr[147];; + /*_.IFCPP___V37*/ meltfptr[36] = /*_.DEBUG_MSG_FUN__V38*/ meltfptr[37];; /*epilog*/ - MELT_LOCATION("warmelt-normatch.melt:3200:/ clear"); - /*clear*/ /*_#THE_MELTCALLCOUNT__L58*/ meltfnum[30] = 0 ; + MELT_LOCATION("warmelt-normatch.melt:3212:/ clear"); + /*clear*/ /*_#THE_MELTCALLCOUNT__L9*/ meltfnum[8] = 0 ; /*^clear*/ - /*clear*/ /*_.DEBUG_MSG_FUN__V148*/ meltfptr[147] = 0 ;} + /*clear*/ /*_.DEBUG_MSG_FUN__V38*/ meltfptr[37] = 0 ;} #else /*ENABLE_CHECKING*/ /*^cppif.else*/ - /*_.IFCPP___V147*/ meltfptr[122] = (/*nil*/NULL); + /*_.IFCPP___V37*/ meltfptr[36] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; + MELT_LOCATION("warmelt-normatch.melt:3213:/ quasiblock"); + + + /*^multimsend*/ + /*multimsend*/{ + union meltparam_un argtab[4]; + union meltparam_un restab[1]; + memset(&argtab, 0, sizeof(argtab)); + memset(&restab, 0, sizeof(restab)); + /*^multimsend.arg*/ + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.MDATA__V3*/ meltfptr[2];/*^multimsend.arg*/ + argtab[1].bp_aptr = (melt_ptr_t*) &/*_.MCASE__V4*/ meltfptr[3];/*^multimsend.arg*/ + argtab[2].bp_aptr = (melt_ptr_t*) &/*_.VARMAP__V5*/ meltfptr[4];/*^multimsend.arg*/ + argtab[3].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V21*/ meltfptr[20]; + /*^multimsend.xres*/ + restab[0].bp_aptr = (melt_ptr_t*) &/*_.CONJFLAG__V40*/ meltfptr[39];/*^multimsend.send*/ + /*_.CONJSTEP__V39*/ meltfptr[37] = meltgc_send ((melt_ptr_t)(/*_.CURCONJ__V36*/ meltfptr[34]), ((melt_ptr_t)((/*!TRANSLATE_PATTERN*/ meltfrout->tabval[10]))), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, (BPARSTR_PTR ""), restab); + } + ; + /*^quasiblock*/ + + #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normatch.melt:3201:/ cppif.then"); + MELT_LOCATION("warmelt-normatch.melt:3216:/ cppif.then"); /*^block*/ /*anyblock*/{ - /*_#THE_MELTCALLCOUNT__L59*/ meltfnum[34] = + /*_#THE_MELTCALLCOUNT__L10*/ meltfnum[8] = meltcallcount;; - MELT_LOCATION("warmelt-normatch.melt:3201:/ apply"); + MELT_LOCATION("warmelt-normatch.melt:3216:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_cstring = "translpat_patmat outpat"; + argtab[0].bp_cstring = "translpat_andpat conjstep"; /*^apply.arg*/ - argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L59*/ meltfnum[34]; + argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L10*/ meltfnum[8]; /*^apply.arg*/ argtab[2].bp_cstring = "warmelt-normatch.melt"; /*^apply.arg*/ - argtab[3].bp_long = 3201; - /*_.DEBUG_MSG_FUN__V150*/ meltfptr[149] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.OUTPAT__V146*/ meltfptr[120]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + argtab[3].bp_long = 3216; + /*_.DEBUG_MSG_FUN__V42*/ meltfptr[41] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.CONJSTEP__V39*/ meltfptr[37]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; - /*_.IFCPP___V149*/ meltfptr[147] = /*_.DEBUG_MSG_FUN__V150*/ meltfptr[149];; + /*_.IFCPP___V41*/ meltfptr[40] = /*_.DEBUG_MSG_FUN__V42*/ meltfptr[41];; /*epilog*/ - MELT_LOCATION("warmelt-normatch.melt:3201:/ clear"); - /*clear*/ /*_#THE_MELTCALLCOUNT__L59*/ meltfnum[34] = 0 ; + MELT_LOCATION("warmelt-normatch.melt:3216:/ clear"); + /*clear*/ /*_#THE_MELTCALLCOUNT__L10*/ meltfnum[8] = 0 ; /*^clear*/ - /*clear*/ /*_.DEBUG_MSG_FUN__V150*/ meltfptr[149] = 0 ;} + /*clear*/ /*_.DEBUG_MSG_FUN__V42*/ meltfptr[41] = 0 ;} #else /*ENABLE_CHECKING*/ /*^cppif.else*/ - /*_.IFCPP___V149*/ meltfptr[147] = (/*nil*/NULL); + /*_.IFCPP___V41*/ meltfptr[40] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-normatch.melt:3202:/ quasiblock"); - - - /*^msend*/ - /*msend*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - /*^ojbmsend.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.CUROUTDATA__V144*/ meltfptr[60]; - /*^ojbmsend.arg*/ - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.MCASE__V4*/ meltfptr[3]; - /*^ojbmsend.arg*/ - argtab[2].bp_aptr = (melt_ptr_t*) &/*_.VARMAP__V5*/ meltfptr[4]; - /*^ojbmsend.arg*/ - argtab[3].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V21*/ meltfptr[20]; - /*_.OUTSTEP__V152*/ meltfptr[151] = meltgc_send((melt_ptr_t)(/*_.OUTPAT__V146*/ meltfptr[120]), (melt_ptr_t)((/*!TRANSLATE_PATTERN*/ meltfrout->tabval[19])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normatch.melt:3204:/ cppif.then"); + MELT_LOCATION("warmelt-normatch.melt:3217:/ cppif.then"); /*^block*/ /*anyblock*/{ - /*_#THE_MELTCALLCOUNT__L60*/ meltfnum[35] = + /*_#THE_MELTCALLCOUNT__L11*/ meltfnum[8] = meltcallcount;; - MELT_LOCATION("warmelt-normatch.melt:3204:/ apply"); + MELT_LOCATION("warmelt-normatch.melt:3217:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_cstring = "translpat_patmat outstep"; + argtab[0].bp_cstring = "translpat_andpat conjflag"; /*^apply.arg*/ - argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L60*/ meltfnum[35]; + argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L11*/ meltfnum[8]; /*^apply.arg*/ argtab[2].bp_cstring = "warmelt-normatch.melt"; /*^apply.arg*/ - argtab[3].bp_long = 3204; - /*_.DEBUG_MSG_FUN__V154*/ meltfptr[153] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.OUTSTEP__V152*/ meltfptr[151]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + argtab[3].bp_long = 3217; + /*_.DEBUG_MSG_FUN__V44*/ meltfptr[43] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.CONJFLAG__V40*/ meltfptr[39]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; - /*_.IFCPP___V153*/ meltfptr[152] = /*_.DEBUG_MSG_FUN__V154*/ meltfptr[153];; + /*_.IFCPP___V43*/ meltfptr[41] = /*_.DEBUG_MSG_FUN__V44*/ meltfptr[43];; /*epilog*/ - MELT_LOCATION("warmelt-normatch.melt:3204:/ clear"); - /*clear*/ /*_#THE_MELTCALLCOUNT__L60*/ meltfnum[35] = 0 ; + MELT_LOCATION("warmelt-normatch.melt:3217:/ clear"); + /*clear*/ /*_#THE_MELTCALLCOUNT__L11*/ meltfnum[8] = 0 ; /*^clear*/ - /*clear*/ /*_.DEBUG_MSG_FUN__V154*/ meltfptr[153] = 0 ;} + /*clear*/ /*_.DEBUG_MSG_FUN__V44*/ meltfptr[43] = 0 ;} #else /*ENABLE_CHECKING*/ /*^cppif.else*/ - /*_.IFCPP___V153*/ meltfptr[152] = (/*nil*/NULL); + /*_.IFCPP___V43*/ meltfptr[41] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-normatch.melt:3205:/ cond"); - /*cond*/ if (/*_.OUTSTEP__V152*/ meltfptr[151]) /*then*/ { + MELT_LOCATION("warmelt-normatch.melt:3218:/ cond"); + /*cond*/ if (/*_.CONJSTEP__V39*/ meltfptr[37]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-normatch.melt:3207:/ msend"); - /*msend*/{ - union meltparam_un argtab[1]; - memset(&argtab, 0, sizeof(argtab)); - /*^ojbmsend.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.OUTSTEP__V152*/ meltfptr[151]; - /*_.PUT_THEN_MATCH__V156*/ meltfptr[155] = meltgc_send((melt_ptr_t)(/*_.LASTSTEP__V141*/ meltfptr[101]), (melt_ptr_t)((/*!PUT_THEN_MATCH*/ meltfrout->tabval[20])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; - - { - MELT_LOCATION("warmelt-normatch.melt:3208:/ locexp"); - meltgc_append_list((melt_ptr_t)(/*_.ELSELIST__V140*/ meltfptr[76]), (melt_ptr_t)(/*_.OUTSTEP__V152*/ meltfptr[151]));} - ; - MELT_LOCATION("warmelt-normatch.melt:3209:/ compute"); - /*_.LASTSTEP__V141*/ meltfptr[101] = /*_.SETQ___V157*/ meltfptr[156] = /*_.OUTSTEP__V152*/ meltfptr[151];; - MELT_LOCATION("warmelt-normatch.melt:3206:/ quasiblock"); - + /*_#NULL__L12*/ meltfnum[8] = + ((/*_.CURSTEP__V23*/ meltfptr[22]) == NULL);; + MELT_LOCATION("warmelt-normatch.melt:3220:/ cond"); + /*cond*/ if (/*_#NULL__L12*/ meltfnum[8]) /*then*/ { + /*^cond.then*/ + /*^block*/ + /*anyblock*/{ + + MELT_LOCATION("warmelt-normatch.melt:3222:/ compute"); + /*_.FIRSTSTEP__V24*/ meltfptr[23] = /*_.SETQ___V47*/ meltfptr[46] = /*_.CONJSTEP__V39*/ meltfptr[37];; + + { + MELT_LOCATION("warmelt-normatch.melt:3223:/ locexp"); + meltgc_append_list((melt_ptr_t)(/*_.THENLIST__V25*/ meltfptr[24]), (melt_ptr_t)(/*_.FIRSTSTEP__V24*/ meltfptr[23]));} + ; + MELT_LOCATION("warmelt-normatch.melt:3221:/ quasiblock"); + + + /*epilog*/ + + MELT_LOCATION("warmelt-normatch.melt:3220:/ clear"); + /*clear*/ /*_.SETQ___V47*/ meltfptr[46] = 0 ;} + ; + } else {/*^cond.else*/ + + /*^block*/ + /*anyblock*/{ + + + #if ENABLE_CHECKING + MELT_LOCATION("warmelt-normatch.melt:3226:/ cppif.then"); + /*^block*/ + /*anyblock*/{ + + /*_#THE_MELTCALLCOUNT__L13*/ meltfnum[12] = + meltcallcount;; + MELT_LOCATION("warmelt-normatch.melt:3226:/ apply"); + /*apply*/{ + union meltparam_un argtab[4]; + memset(&argtab, 0, sizeof(argtab)); + /*^apply.arg*/ + argtab[0].bp_cstring = "translpat_andpat curstep"; + /*^apply.arg*/ + argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L13*/ meltfnum[12]; + /*^apply.arg*/ + argtab[2].bp_cstring = "warmelt-normatch.melt"; + /*^apply.arg*/ + argtab[3].bp_long = 3226; + /*_.DEBUG_MSG_FUN__V49*/ meltfptr[48] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.CURSTEP__V23*/ meltfptr[22]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + } + ; + /*_.IFCPP___V48*/ meltfptr[46] = /*_.DEBUG_MSG_FUN__V49*/ meltfptr[48];; + /*epilog*/ + + MELT_LOCATION("warmelt-normatch.melt:3226:/ clear"); + /*clear*/ /*_#THE_MELTCALLCOUNT__L13*/ meltfnum[12] = 0 ; + /*^clear*/ + /*clear*/ /*_.DEBUG_MSG_FUN__V49*/ meltfptr[48] = 0 ;} + + #else /*ENABLE_CHECKING*/ + /*^cppif.else*/ + /*_.IFCPP___V48*/ meltfptr[46] = (/*nil*/NULL); + #endif /*ENABLE_CHECKING*/ + ; + MELT_LOCATION("warmelt-normatch.melt:3227:/ msend"); + /*msend*/{ + union meltparam_un argtab[1]; + memset(&argtab, 0, sizeof(argtab)); + /*^ojbmsend.arg*/ + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.CONJSTEP__V39*/ meltfptr[37]; + /*_.PUT_THEN_MATCH__V50*/ meltfptr[48] = meltgc_send((melt_ptr_t)(/*_.CURSTEP__V23*/ meltfptr[22]), (melt_ptr_t)((/*!PUT_THEN_MATCH*/ meltfrout->tabval[11])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + } + ; + MELT_LOCATION("warmelt-normatch.melt:3225:/ quasiblock"); + + + /*_.PROGN___V51*/ meltfptr[50] = /*_.PUT_THEN_MATCH__V50*/ meltfptr[48];; + /*^compute*/ + + /*_.IFELSE___V46*/ meltfptr[45] = /*_.PROGN___V51*/ meltfptr[50];; + /*epilog*/ + + MELT_LOCATION("warmelt-normatch.melt:3220:/ clear"); + /*clear*/ /*_.IFCPP___V48*/ meltfptr[46] = 0 ; + /*^clear*/ + /*clear*/ /*_.PUT_THEN_MATCH__V50*/ meltfptr[48] = 0 ; + /*^clear*/ + /*clear*/ /*_.PROGN___V51*/ meltfptr[50] = 0 ;} + ; + } + ; + + { + MELT_LOCATION("warmelt-normatch.melt:3230:/ locexp"); + meltgc_append_list((melt_ptr_t)(/*_.ELSELIST__V26*/ meltfptr[25]), (melt_ptr_t)(/*_.CONJSTEP__V39*/ meltfptr[37]));} + ; + MELT_LOCATION("warmelt-normatch.melt:3231:/ compute"); + /*_.CURSTEP__V23*/ meltfptr[22] = /*_.SETQ___V52*/ meltfptr[46] = /*_.CONJSTEP__V39*/ meltfptr[37];; + MELT_LOCATION("warmelt-normatch.melt:3219:/ quasiblock"); + - /*_.PROGN___V158*/ meltfptr[157] = /*_.SETQ___V157*/ meltfptr[156];; + /*_.PROGN___V53*/ meltfptr[48] = /*_.SETQ___V52*/ meltfptr[46];; /*^compute*/ - /*_.IF___V155*/ meltfptr[153] = /*_.PROGN___V158*/ meltfptr[157];; + /*_.IF___V45*/ meltfptr[43] = /*_.PROGN___V53*/ meltfptr[48];; /*epilog*/ - MELT_LOCATION("warmelt-normatch.melt:3205:/ clear"); - /*clear*/ /*_.PUT_THEN_MATCH__V156*/ meltfptr[155] = 0 ; + MELT_LOCATION("warmelt-normatch.melt:3218:/ clear"); + /*clear*/ /*_#NULL__L12*/ meltfnum[8] = 0 ; /*^clear*/ - /*clear*/ /*_.SETQ___V157*/ meltfptr[156] = 0 ; + /*clear*/ /*_.IFELSE___V46*/ meltfptr[45] = 0 ; /*^clear*/ - /*clear*/ /*_.PROGN___V158*/ meltfptr[157] = 0 ;} + /*clear*/ /*_.SETQ___V52*/ meltfptr[46] = 0 ; + /*^clear*/ + /*clear*/ /*_.PROGN___V53*/ meltfptr[48] = 0 ;} ; } else {/*^cond.else*/ - /*_.IF___V155*/ meltfptr[153] = NULL;; + /*_.IF___V45*/ meltfptr[43] = NULL;; } ; - /*^compute*/ + MELT_LOCATION("warmelt-normatch.melt:3234:/ cond"); + /*cond*/ if (/*_.CONJFLAG__V40*/ meltfptr[39]) /*then*/ { + /*^cond.then*/ + /*^block*/ + /*anyblock*/{ + + + #if ENABLE_CHECKING + MELT_LOCATION("warmelt-normatch.melt:3236:/ cppif.then"); + /*^block*/ + /*anyblock*/{ + + /*_#IS_A__L14*/ meltfnum[12] = + melt_is_instance_of((melt_ptr_t)(/*_.CONJFLAG__V40*/ meltfptr[39]), (melt_ptr_t)((/*!CLASS_MATCH_FLAG*/ meltfrout->tabval[9])));; + MELT_LOCATION("warmelt-normatch.melt:3236:/ cond"); + /*cond*/ if (/*_#IS_A__L14*/ meltfnum[12]) /*then*/ { + /*^cond.then*/ + /*_.IFELSE___V55*/ meltfptr[45] = (/*nil*/NULL);; + } else {MELT_LOCATION("warmelt-normatch.melt:3236:/ cond.else"); + + /*^block*/ + /*anyblock*/{ + + + + + { + /*^locexp*/ + melt_assert_failed(( "check conjflag"),( "warmelt-normatch.melt")?( "warmelt-normatch.melt"):__FILE__, + (3236)?(3236):__LINE__, __FUNCTION__); +;} + ; + /*clear*/ /*_.IFELSE___V55*/ meltfptr[45] = 0 ; + /*epilog*/ + } + ; + } + ; + /*^compute*/ - /*_.LET___V151*/ meltfptr[149] = /*_.IF___V155*/ meltfptr[153];; + /*_.IFCPP___V54*/ meltfptr[50] = /*_.IFELSE___V55*/ meltfptr[45];; + /*epilog*/ + + MELT_LOCATION("warmelt-normatch.melt:3236:/ clear"); + /*clear*/ /*_#IS_A__L14*/ meltfnum[12] = 0 ; + /*^clear*/ + /*clear*/ /*_.IFELSE___V55*/ meltfptr[45] = 0 ;} + + #else /*ENABLE_CHECKING*/ + /*^cppif.else*/ + /*_.IFCPP___V54*/ meltfptr[50] = (/*nil*/NULL); + #endif /*ENABLE_CHECKING*/ + ; + + { + MELT_LOCATION("warmelt-normatch.melt:3237:/ locexp"); + meltgc_append_list((melt_ptr_t)(/*_.FLAGLIST__V27*/ meltfptr[26]), (melt_ptr_t)(/*_.CONJFLAG__V40*/ meltfptr[39]));} + ; + MELT_LOCATION("warmelt-normatch.melt:3235:/ quasiblock"); + + + /*epilog*/ + + MELT_LOCATION("warmelt-normatch.melt:3234:/ clear"); + /*clear*/ /*_.IFCPP___V54*/ meltfptr[50] = 0 ;} + ; + } /*noelse*/ + ; - MELT_LOCATION("warmelt-normatch.melt:3202:/ clear"); - /*clear*/ /*_.OUTSTEP__V152*/ meltfptr[151] = 0 ; + MELT_LOCATION("warmelt-normatch.melt:3213:/ clear"); + /*clear*/ /*_.IFCPP___V41*/ meltfptr[40] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V153*/ meltfptr[152] = 0 ; + /*clear*/ /*_.IFCPP___V43*/ meltfptr[41] = 0 ; /*^clear*/ - /*clear*/ /*_.IF___V155*/ meltfptr[153] = 0 ; - /*_.LET___V145*/ meltfptr[118] = /*_.LET___V151*/ meltfptr[149];; + /*clear*/ /*_.IF___V45*/ meltfptr[43] = 0 ; - MELT_LOCATION("warmelt-normatch.melt:3198:/ clear"); - /*clear*/ /*_.OUTPAT__V146*/ meltfptr[120] = 0 ; - /*^clear*/ - /*clear*/ /*_.IFCPP___V147*/ meltfptr[122] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V149*/ meltfptr[147] = 0 ; - /*^clear*/ - /*clear*/ /*_.LET___V151*/ meltfptr[149] = 0 ; - if (/*_#DIX__L57*/ meltfnum[33]<0) break; - } /* end cit5__EACHTUP */ + /*clear*/ /*_.CONJFLAG__V40*/ meltfptr[39] = 0 ; + if (/*_#CONJIX__L8*/ meltfnum[0]<0) break; + } /* end cit1__EACHTUP */ /*citerepilog*/ - MELT_LOCATION("warmelt-normatch.melt:3195:/ clear"); - /*clear*/ /*_.CUROUTDATA__V144*/ meltfptr[60] = 0 ; + MELT_LOCATION("warmelt-normatch.melt:3209:/ clear"); + /*clear*/ /*_.CURCONJ__V36*/ meltfptr[34] = 0 ; /*^clear*/ - /*clear*/ /*_#DIX__L57*/ meltfnum[33] = 0 ; + /*clear*/ /*_#CONJIX__L8*/ meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V145*/ meltfptr[118] = 0 ;} /*endciterblock FOREACH_IN_MULTIPLE*/ + /*clear*/ /*_.IFCPP___V37*/ meltfptr[36] = 0 ;} /*endciterblock FOREACH_IN_MULTIPLE*/ + ; + MELT_LOCATION("warmelt-normatch.melt:3241:/ apply"); + /*apply*/{ + union meltparam_un argtab[1]; + memset(&argtab, 0, sizeof(argtab)); + /*^apply.arg*/ + argtab[0].bp_aptr = (melt_ptr_t*) &(/*!DISCR_MULTIPLE*/ meltfrout->tabval[13]); + /*_.LIST_TO_MULTIPLE__V56*/ meltfptr[46] = melt_apply ((meltclosure_ptr_t)((/*!LIST_TO_MULTIPLE*/ meltfrout->tabval[12])), (melt_ptr_t)(/*_.THENLIST__V25*/ meltfptr[24]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + } + ; + MELT_LOCATION("warmelt-normatch.melt:3242:/ apply"); + /*apply*/{ + union meltparam_un argtab[1]; + memset(&argtab, 0, sizeof(argtab)); + /*^apply.arg*/ + argtab[0].bp_aptr = (melt_ptr_t*) &(/*!DISCR_MULTIPLE*/ meltfrout->tabval[13]); + /*_.LIST_TO_MULTIPLE__V57*/ meltfptr[48] = melt_apply ((meltclosure_ptr_t)((/*!LIST_TO_MULTIPLE*/ meltfrout->tabval[12])), (melt_ptr_t)(/*_.ELSELIST__V26*/ meltfptr[25]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + } + ; + MELT_LOCATION("warmelt-normatch.melt:3239:/ quasiblock"); + + + /*^putslot*/ + /*putslot*/ + melt_assertmsg("putslot checkobj @MSTGROUP_START", melt_magic_discr((melt_ptr_t)(/*_.STEPGROUP__V29*/ meltfptr[28])) == OBMAG_OBJECT); + melt_putfield_object((/*_.STEPGROUP__V29*/ meltfptr[28]), (5), (/*_.FIRSTSTEP__V24*/ meltfptr[23]), "MSTGROUP_START"); + ; + /*^putslot*/ + /*putslot*/ + melt_assertmsg("putslot checkobj @MSTGROUP_THEN", melt_magic_discr((melt_ptr_t)(/*_.STEPGROUP__V29*/ meltfptr[28])) == OBMAG_OBJECT); + melt_putfield_object((/*_.STEPGROUP__V29*/ meltfptr[28]), (6), (/*_.LIST_TO_MULTIPLE__V56*/ meltfptr[46]), "MSTGROUP_THEN"); + ; + /*^putslot*/ + /*putslot*/ + melt_assertmsg("putslot checkobj @MSTGROUP_ELSE", melt_magic_discr((melt_ptr_t)(/*_.STEPGROUP__V29*/ meltfptr[28])) == OBMAG_OBJECT); + melt_putfield_object((/*_.STEPGROUP__V29*/ meltfptr[28]), (7), (/*_.LIST_TO_MULTIPLE__V57*/ meltfptr[48]), "MSTGROUP_ELSE"); ; - MELT_LOCATION("warmelt-normatch.melt:3212:/ cond"); - /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.TESTGROUP__V142*/ meltfptr[62]), (melt_ptr_t)((/*!CLASS_MATCH_STEP_TEST_GROUP*/ meltfrout->tabval[18])))) /*then*/ { + /*^touch*/ + meltgc_touch(/*_.STEPGROUP__V29*/ meltfptr[28]); + ; + + /*_#NULL__L15*/ meltfnum[8] = + ((/*_.FIRSTSTEP__V24*/ meltfptr[23]) == NULL);; + MELT_LOCATION("warmelt-normatch.melt:3243:/ cond"); + /*cond*/ if (/*_#NULL__L15*/ meltfnum[8]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/{ - /*^putslot*/ - /*putslot*/ - melt_assertmsg("putslot checkobj @MSTGROUP_THEN", melt_magic_discr((melt_ptr_t)(/*_.TESTGROUP__V142*/ meltfptr[62])) == OBMAG_OBJECT); - melt_putfield_object((/*_.TESTGROUP__V142*/ meltfptr[62]), (6), (/*_.CURSTEP__V31*/ meltfptr[30]), "MSTGROUP_THEN"); + + { + MELT_LOCATION("warmelt-normatch.melt:3245:/ locexp"); + melt_warning_str(0, (melt_ptr_t)(/*_.SLOC__V21*/ meltfptr[20]), ( "degenerate ?(AND ...) pattern"), (melt_ptr_t)0);} + ; + MELT_LOCATION("warmelt-normatch.melt:3246:/ quasiblock"); + + + /*_.RETVAL___V1*/ meltfptr[0] = NULL;; + MELT_LOCATION("warmelt-normatch.melt:3246:/ finalreturn"); ; + /*finalret*/ goto labend_rout ; + MELT_LOCATION("warmelt-normatch.melt:3243:/ quasiblock"); + + + /*_.PROGN___V60*/ meltfptr[40] = /*_.RETURN___V59*/ meltfptr[50];; + /*^compute*/ + + /*_.IFELSE___V58*/ meltfptr[45] = /*_.PROGN___V60*/ meltfptr[40];; + /*epilog*/ + + MELT_LOCATION("warmelt-normatch.melt:3243:/ clear"); + /*clear*/ /*_.RETURN___V59*/ meltfptr[50] = 0 ; + /*^clear*/ + /*clear*/ /*_.PROGN___V60*/ meltfptr[40] = 0 ;} + ; + } else {/*^cond.else*/ + + /*_.IFELSE___V58*/ meltfptr[45] = NULL;; + } + ; + MELT_LOCATION("warmelt-normatch.melt:3249:/ apply"); + /*apply*/{ + union meltparam_un argtab[1]; + memset(&argtab, 0, sizeof(argtab)); + /*^apply.arg*/ + argtab[0].bp_aptr = (melt_ptr_t*) &(/*!DISCR_MULTIPLE*/ meltfrout->tabval[13]); + /*_.LIST_TO_MULTIPLE__V61*/ meltfptr[41] = melt_apply ((meltclosure_ptr_t)((/*!LIST_TO_MULTIPLE*/ meltfrout->tabval[12])), (melt_ptr_t)(/*_.FLAGLIST__V27*/ meltfptr[26]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + } + ; + /*^cond*/ + /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.FLAGSTEP__V32*/ meltfptr[31]), (melt_ptr_t)((/*!CLASS_MATCH_STEP_FLAG_OPERATION*/ meltfrout->tabval[14])))) /*then*/ { + /*^cond.then*/ + /*^block*/ + /*anyblock*/{ + /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj @MSTGROUP_ELSE", melt_magic_discr((melt_ptr_t)(/*_.TESTGROUP__V142*/ meltfptr[62])) == OBMAG_OBJECT); - melt_putfield_object((/*_.TESTGROUP__V142*/ meltfptr[62]), (7), (/*_.ELSELIST__V140*/ meltfptr[76]), "MSTGROUP_ELSE"); + melt_assertmsg("putslot checkobj @MSTEP_FLAGARGS", melt_magic_discr((melt_ptr_t)(/*_.FLAGSTEP__V32*/ meltfptr[31])) == OBMAG_OBJECT); + melt_putfield_object((/*_.FLAGSTEP__V32*/ meltfptr[31]), (5), (/*_.LIST_TO_MULTIPLE__V61*/ meltfptr[41]), "MSTEP_FLAGARGS"); ; /*^touch*/ - meltgc_touch(/*_.TESTGROUP__V142*/ meltfptr[62]); + meltgc_touch(/*_.FLAGSTEP__V32*/ meltfptr[31]); ; /*epilog*/ } @@ -3952,143 +4733,110 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normatch.melt:3216:/ cppif.then"); + MELT_LOCATION("warmelt-normatch.melt:3250:/ cppif.then"); /*^block*/ /*anyblock*/{ - /*_#THE_MELTCALLCOUNT__L61*/ meltfnum[36] = + /*_#THE_MELTCALLCOUNT__L16*/ meltfnum[12] = meltcallcount;; - MELT_LOCATION("warmelt-normatch.melt:3216:/ apply"); + MELT_LOCATION("warmelt-normatch.melt:3250:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_cstring = "translpat_patmat return testgroup"; + argtab[0].bp_cstring = "translpat_andpat return stepgroup"; /*^apply.arg*/ - argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L61*/ meltfnum[36]; + argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L16*/ meltfnum[12]; /*^apply.arg*/ argtab[2].bp_cstring = "warmelt-normatch.melt"; /*^apply.arg*/ - argtab[3].bp_long = 3216; - /*_.DEBUG_MSG_FUN__V160*/ meltfptr[156] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.TESTGROUP__V142*/ meltfptr[62]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + argtab[3].bp_long = 3250; + /*_.DEBUG_MSG_FUN__V63*/ meltfptr[37] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.STEPGROUP__V29*/ meltfptr[28]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; - /*_.IFCPP___V159*/ meltfptr[155] = /*_.DEBUG_MSG_FUN__V160*/ meltfptr[156];; + /*_.IFCPP___V62*/ meltfptr[43] = /*_.DEBUG_MSG_FUN__V63*/ meltfptr[37];; /*epilog*/ - MELT_LOCATION("warmelt-normatch.melt:3216:/ clear"); - /*clear*/ /*_#THE_MELTCALLCOUNT__L61*/ meltfnum[36] = 0 ; + MELT_LOCATION("warmelt-normatch.melt:3250:/ clear"); + /*clear*/ /*_#THE_MELTCALLCOUNT__L16*/ meltfnum[12] = 0 ; /*^clear*/ - /*clear*/ /*_.DEBUG_MSG_FUN__V160*/ meltfptr[156] = 0 ;} + /*clear*/ /*_.DEBUG_MSG_FUN__V63*/ meltfptr[37] = 0 ;} #else /*ENABLE_CHECKING*/ /*^cppif.else*/ - /*_.IFCPP___V159*/ meltfptr[155] = (/*nil*/NULL); + /*_.IFCPP___V62*/ meltfptr[43] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-normatch.melt:3217:/ quasiblock"); + MELT_LOCATION("warmelt-normatch.melt:3251:/ msend"); + /*msend*/{ + union meltparam_un argtab[1]; + memset(&argtab, 0, sizeof(argtab)); + /*^ojbmsend.arg*/ + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.FLAGSTEP__V32*/ meltfptr[31]; + /*_.PUT_THEN_MATCH__V64*/ meltfptr[39] = meltgc_send((melt_ptr_t)(/*_.STEPGROUP__V29*/ meltfptr[28]), (melt_ptr_t)((/*!PUT_THEN_MATCH*/ meltfrout->tabval[11])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + } + ; + MELT_LOCATION("warmelt-normatch.melt:3252:/ quasiblock"); - /*_.RETVAL___V1*/ meltfptr[0] = /*_.TESTGROUP__V142*/ meltfptr[62];; - MELT_LOCATION("warmelt-normatch.melt:3217:/ finalreturn"); + /*_.RETVAL___V1*/ meltfptr[0] = /*_.STEPGROUP__V29*/ meltfptr[28];; + MELT_LOCATION("warmelt-normatch.melt:3252:/ putxtraresult"); + if (!xrestab_ || !xresdescr_) goto labend_rout; + if (xresdescr_[0] != BPAR_PTR) goto labend_rout; + if (xrestab_[0].bp_aptr) *(xrestab_[0].bp_aptr) = (melt_ptr_t) (/*_.MFLAG__V31*/ meltfptr[30]); + ; + /*^finalreturn*/ ; /*finalret*/ goto labend_rout ; - /*_.LET___V137*/ meltfptr[124] = /*_.RETURN___V161*/ meltfptr[157];; - - MELT_LOCATION("warmelt-normatch.melt:3180:/ clear"); - /*clear*/ /*_.OUTDATA__V138*/ meltfptr[125] = 0 ; - /*^clear*/ - /*clear*/ /*_.THENLIST__V139*/ meltfptr[127] = 0 ; - /*^clear*/ - /*clear*/ /*_.ELSELIST__V140*/ meltfptr[76] = 0 ; - /*^clear*/ - /*clear*/ /*_.LASTSTEP__V141*/ meltfptr[101] = 0 ; - /*^clear*/ - /*clear*/ /*_.TESTGROUP__V142*/ meltfptr[62] = 0 ; - /*^clear*/ - /*clear*/ /*_.IFCPP___V159*/ meltfptr[155] = 0 ; - /*^clear*/ - /*clear*/ /*_.RETURN___V161*/ meltfptr[157] = 0 ; - /*_.MULTI___V47*/ meltfptr[45] = /*_.LET___V137*/ meltfptr[124];; - - MELT_LOCATION("warmelt-normatch.melt:3076:/ clear"); - /*clear*/ /*_.IFCPP___V50*/ meltfptr[49] = 0 ; - /*^clear*/ - /*clear*/ /*_.IFCPP___V52*/ meltfptr[50] = 0 ; - /*^clear*/ - /*clear*/ /*_.IFCPP___V54*/ meltfptr[52] = 0 ; - /*^clear*/ - /*clear*/ /*_#MULTIPLE_LENGTH__L18*/ meltfnum[7] = 0 ; - /*^clear*/ - /*clear*/ /*_#MULTIPLE_LENGTH__L19*/ meltfnum[18] = 0 ; - /*^clear*/ - /*clear*/ /*_#I__L20*/ meltfnum[19] = 0 ; - /*^clear*/ - /*clear*/ /*_.IFCPP___V103*/ meltfptr[75] = 0 ; - /*^clear*/ - /*clear*/ /*_#NULL__L45*/ meltfnum[32] = 0 ; - /*^clear*/ - /*clear*/ /*_.IFCPP___V131*/ meltfptr[129] = 0 ; - /*^clear*/ - /*clear*/ /*_.IFCPP___V133*/ meltfptr[119] = 0 ; - /*^clear*/ - /*clear*/ /*_.IFCPP___V135*/ meltfptr[121] = 0 ; - /*^clear*/ - /*clear*/ /*_.LET___V137*/ meltfptr[124] = 0 ; - - /*^clear*/ - /*clear*/ /*_.INBINDS__V49*/ meltfptr[48] = 0 ; - /*_.LET___V19*/ meltfptr[17] = /*_.MULTI___V47*/ meltfptr[45];; + /*_.LET___V19*/ meltfptr[17] = /*_.RETURN___V65*/ meltfptr[50];; - MELT_LOCATION("warmelt-normatch.melt:3054:/ clear"); + MELT_LOCATION("warmelt-normatch.melt:3183:/ clear"); /*clear*/ /*_.LOCA_LOCATION__V20*/ meltfptr[19] = 0 ; /*^clear*/ /*clear*/ /*_.SLOC__V21*/ meltfptr[20] = 0 ; /*^clear*/ - /*clear*/ /*_.SOPBIND__V22*/ meltfptr[21] = 0 ; - /*^clear*/ - /*clear*/ /*_.SOPER__V23*/ meltfptr[22] = 0 ; + /*clear*/ /*_.SCONJ__V22*/ meltfptr[21] = 0 ; /*^clear*/ - /*clear*/ /*_.SINS__V24*/ meltfptr[23] = 0 ; + /*clear*/ /*_.CURSTEP__V23*/ meltfptr[22] = 0 ; /*^clear*/ - /*clear*/ /*_.SOUTS__V25*/ meltfptr[24] = 0 ; + /*clear*/ /*_.FIRSTSTEP__V24*/ meltfptr[23] = 0 ; /*^clear*/ - /*clear*/ /*_.MATCTX__V26*/ meltfptr[25] = 0 ; + /*clear*/ /*_.THENLIST__V25*/ meltfptr[24] = 0 ; /*^clear*/ - /*clear*/ /*_.ENV__V27*/ meltfptr[26] = 0 ; + /*clear*/ /*_.ELSELIST__V26*/ meltfptr[25] = 0 ; /*^clear*/ - /*clear*/ /*_.NCX__V28*/ meltfptr[27] = 0 ; + /*clear*/ /*_.FLAGLIST__V27*/ meltfptr[26] = 0 ; /*^clear*/ - /*clear*/ /*_.OPIN__V29*/ meltfptr[28] = 0 ; + /*clear*/ /*_.MCTXT__V28*/ meltfptr[27] = 0 ; /*^clear*/ - /*clear*/ /*_.OPOUT__V30*/ meltfptr[29] = 0 ; + /*clear*/ /*_.STEPGROUP__V29*/ meltfptr[28] = 0 ; /*^clear*/ - /*clear*/ /*_#NBOPOUT__L7*/ meltfnum[0] = 0 ; + /*clear*/ /*_.MFLAG__V31*/ meltfptr[30] = 0 ; /*^clear*/ - /*clear*/ /*_.CURSTEP__V31*/ meltfptr[30] = 0 ; + /*clear*/ /*_.FLAGSTEP__V32*/ meltfptr[31] = 0 ; /*^clear*/ - /*clear*/ /*_.MDATASTEPS__V32*/ meltfptr[31] = 0 ; + /*clear*/ /*_.IFCPP___V34*/ meltfptr[33] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V33*/ meltfptr[32] = 0 ; + /*clear*/ /*_.LIST_TO_MULTIPLE__V56*/ meltfptr[46] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V35*/ meltfptr[33] = 0 ; + /*clear*/ /*_.LIST_TO_MULTIPLE__V57*/ meltfptr[48] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V37*/ meltfptr[35] = 0 ; + /*clear*/ /*_#NULL__L15*/ meltfnum[8] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V39*/ meltfptr[37] = 0 ; + /*clear*/ /*_.IFELSE___V58*/ meltfptr[45] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V41*/ meltfptr[39] = 0 ; + /*clear*/ /*_.LIST_TO_MULTIPLE__V61*/ meltfptr[41] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V43*/ meltfptr[41] = 0 ; + /*clear*/ /*_.IFCPP___V62*/ meltfptr[43] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V45*/ meltfptr[43] = 0 ; + /*clear*/ /*_.PUT_THEN_MATCH__V64*/ meltfptr[39] = 0 ; /*^clear*/ - /*clear*/ /*_.MULTI___V47*/ meltfptr[45] = 0 ; - MELT_LOCATION("warmelt-normatch.melt:3047:/ quasiblock"); + /*clear*/ /*_.RETURN___V65*/ meltfptr[50] = 0 ; + MELT_LOCATION("warmelt-normatch.melt:3176:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V19*/ meltfptr[17];; - MELT_LOCATION("warmelt-normatch.melt:3047:/ finalreturn"); + MELT_LOCATION("warmelt-normatch.melt:3176:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*epilog*/ @@ -4111,20 +4859,20 @@ lab_endgetargs:; ; goto labend_rout; labend_rout: -melt_trace_end("TRANSLPAT_PATMAT", meltcallcount); melt_topframe = (struct callframe_melt_st*) meltfram__.prev; +melt_trace_end("TRANSLPAT_ANDPAT", meltcallcount); melt_topframe = (struct callframe_melt_st*) meltfram__.prev; return (melt_ptr_t)(/*_.RETVAL___V1*/ meltfptr[0]); #undef meltcallcount #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR -} /*end meltrout_69_warmelt_normatch_TRANSLPAT_PATMAT*/ +} /*end meltrout_69_warmelt_normatch_TRANSLPAT_ANDPAT*/ melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_70_warmelt_normatch_MGALTSTEP_STEPSETVAR(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, +meltrout_70_warmelt_normatch_TRANSLPAT_ORPAT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_) { #if ENABLE_CHECKING @@ -4137,17 +4885,17 @@ meltrout_70_warmelt_normatch_MGALTSTEP_STEPSETVAR(meltclosure_ptr_t closp_, melt #define meltcallcount 0L #endif - struct frame_meltrout_70_warmelt_normatch_MGALTSTEP_STEPSETVAR_st { unsigned nbvar; + struct frame_meltrout_70_warmelt_normatch_TRANSLPAT_ORPAT_st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct meltclosure_st *clos; struct excepth_melt_st *exh; struct callframe_melt_st *prev; -#define MELTFRAM_NBVARPTR 23 - void* varptr[23]; -#define MELTFRAM_NBVARNUM 6 - long varnum[6]; +#define MELTFRAM_NBVARPTR 47 + void* varptr[47]; +#define MELTFRAM_NBVARNUM 12 + long varnum[12]; /*others*/ long _spare_; } *framptr_=0, meltframe; @@ -4156,85 +4904,3115 @@ meltrout_70_warmelt_normatch_MGALTSTEP_STEPSETVAR(meltclosure_ptr_t closp_, melt int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_melt_un (framptr_->clos); - for(ix=0; ix<23; ix++) + for(ix=0; ix<47; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_melt_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&meltfram__, 0, sizeof(meltfram__)); - meltfram__.nbvar = 23; + meltfram__.nbvar = 47; meltfram__.clos = closp_; meltfram__.prev = (struct callframe_melt_st *) melt_topframe; melt_topframe = (struct callframe_melt_st *) &meltfram__; -melt_trace_start("MGALTSTEP_STEPSETVAR", meltcallcount); +melt_trace_start("TRANSLPAT_ORPAT", meltcallcount); /*getargs*/ - /*getarg#0*/ - MELT_LOCATION("warmelt-normatch.melt:3231:/ getarg"); - /*_.STEP__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; - - /*getarg#1*/ - /*^getarg*/ - if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; - /*_.MG__V3*/ meltfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.MG__V3*/ meltfptr[2])) != NULL); - + /*getarg#0*/ + MELT_LOCATION("warmelt-normatch.melt:3259:/ getarg"); + /*_.RECV__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; + + /*getarg#1*/ + /*^getarg*/ + if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; + /*_.MDATA__V3*/ meltfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; + gcc_assert(melt_discr((melt_ptr_t)(/*_.MDATA__V3*/ meltfptr[2])) != NULL); + + + /*getarg#2*/ + /*^getarg*/ + if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; + /*_.MCASE__V4*/ meltfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; + gcc_assert(melt_discr((melt_ptr_t)(/*_.MCASE__V4*/ meltfptr[3])) != NULL); + + + /*getarg#3*/ + /*^getarg*/ + if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs; + /*_.VARMAP__V5*/ meltfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL; + gcc_assert(melt_discr((melt_ptr_t)(/*_.VARMAP__V5*/ meltfptr[4])) != NULL); + + + /*getarg#4*/ + /*^getarg*/ + if (xargdescr_[3] != BPAR_PTR) goto lab_endgetargs; + /*_.PSLOC__V6*/ meltfptr[5] = (xargtab_[3].bp_aptr) ? (*(xargtab_[3].bp_aptr)) : NULL; + gcc_assert(melt_discr((melt_ptr_t)(/*_.PSLOC__V6*/ meltfptr[5])) != NULL); + + ; + goto lab_endgetargs; +lab_endgetargs:; +/*body*/ +/*^block*/ +/*anyblock*/{ + + + #if ENABLE_CHECKING + MELT_LOCATION("warmelt-normatch.melt:3260:/ cppif.then"); + /*^block*/ + /*anyblock*/{ + + /*_#THE_MELTCALLCOUNT__L1*/ meltfnum[0] = + meltcallcount;; + MELT_LOCATION("warmelt-normatch.melt:3260:/ apply"); + /*apply*/{ + union meltparam_un argtab[4]; + memset(&argtab, 0, sizeof(argtab)); + /*^apply.arg*/ + argtab[0].bp_cstring = "translpat_orpat recv"; + /*^apply.arg*/ + argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L1*/ meltfnum[0]; + /*^apply.arg*/ + argtab[2].bp_cstring = "warmelt-normatch.melt"; + /*^apply.arg*/ + argtab[3].bp_long = 3260; + /*_.DEBUG_MSG_FUN__V8*/ meltfptr[7] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + } + ; + /*_.IFCPP___V7*/ meltfptr[6] = /*_.DEBUG_MSG_FUN__V8*/ meltfptr[7];; + /*epilog*/ + + MELT_LOCATION("warmelt-normatch.melt:3260:/ clear"); + /*clear*/ /*_#THE_MELTCALLCOUNT__L1*/ meltfnum[0] = 0 ; + /*^clear*/ + /*clear*/ /*_.DEBUG_MSG_FUN__V8*/ meltfptr[7] = 0 ;} + + #else /*ENABLE_CHECKING*/ + /*^cppif.else*/ + /*_.IFCPP___V7*/ meltfptr[6] = (/*nil*/NULL); + #endif /*ENABLE_CHECKING*/ + ; + + #if ENABLE_CHECKING + MELT_LOCATION("warmelt-normatch.melt:3261:/ cppif.then"); + /*^block*/ + /*anyblock*/{ + + /*_#IS_A__L2*/ meltfnum[0] = + melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_PATTERN_OR*/ meltfrout->tabval[1])));; + MELT_LOCATION("warmelt-normatch.melt:3261:/ cond"); + /*cond*/ if (/*_#IS_A__L2*/ meltfnum[0]) /*then*/ { + /*^cond.then*/ + /*_.IFELSE___V10*/ meltfptr[9] = (/*nil*/NULL);; + } else {MELT_LOCATION("warmelt-normatch.melt:3261:/ cond.else"); + + /*^block*/ + /*anyblock*/{ + + + + + { + /*^locexp*/ + melt_assert_failed(( "check recv"),( "warmelt-normatch.melt")?( "warmelt-normatch.melt"):__FILE__, + (3261)?(3261):__LINE__, __FUNCTION__); +;} + ; + /*clear*/ /*_.IFELSE___V10*/ meltfptr[9] = 0 ; + /*epilog*/ + } + ; + } + ; + /*^compute*/ + + /*_.IFCPP___V9*/ meltfptr[7] = /*_.IFELSE___V10*/ meltfptr[9];; + /*epilog*/ + + MELT_LOCATION("warmelt-normatch.melt:3261:/ clear"); + /*clear*/ /*_#IS_A__L2*/ meltfnum[0] = 0 ; + /*^clear*/ + /*clear*/ /*_.IFELSE___V10*/ meltfptr[9] = 0 ;} + + #else /*ENABLE_CHECKING*/ + /*^cppif.else*/ + /*_.IFCPP___V9*/ meltfptr[7] = (/*nil*/NULL); + #endif /*ENABLE_CHECKING*/ + ; + + #if ENABLE_CHECKING + MELT_LOCATION("warmelt-normatch.melt:3262:/ cppif.then"); + /*^block*/ + /*anyblock*/{ + + /*_#THE_MELTCALLCOUNT__L3*/ meltfnum[0] = + meltcallcount;; + MELT_LOCATION("warmelt-normatch.melt:3262:/ apply"); + /*apply*/{ + union meltparam_un argtab[4]; + memset(&argtab, 0, sizeof(argtab)); + /*^apply.arg*/ + argtab[0].bp_cstring = "translpat_orpat mdata"; + /*^apply.arg*/ + argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L3*/ meltfnum[0]; + /*^apply.arg*/ + argtab[2].bp_cstring = "warmelt-normatch.melt"; + /*^apply.arg*/ + argtab[3].bp_long = 3262; + /*_.DEBUG_MSG_FUN__V12*/ meltfptr[11] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.MDATA__V3*/ meltfptr[2]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + } + ; + /*_.IFCPP___V11*/ meltfptr[9] = /*_.DEBUG_MSG_FUN__V12*/ meltfptr[11];; + /*epilog*/ + + MELT_LOCATION("warmelt-normatch.melt:3262:/ clear"); + /*clear*/ /*_#THE_MELTCALLCOUNT__L3*/ meltfnum[0] = 0 ; + /*^clear*/ + /*clear*/ /*_.DEBUG_MSG_FUN__V12*/ meltfptr[11] = 0 ;} + + #else /*ENABLE_CHECKING*/ + /*^cppif.else*/ + /*_.IFCPP___V11*/ meltfptr[9] = (/*nil*/NULL); + #endif /*ENABLE_CHECKING*/ + ; + + #if ENABLE_CHECKING + MELT_LOCATION("warmelt-normatch.melt:3263:/ cppif.then"); + /*^block*/ + /*anyblock*/{ + + /*_#IS_A__L4*/ meltfnum[0] = + melt_is_instance_of((melt_ptr_t)(/*_.MDATA__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_MATCHED_DATA*/ meltfrout->tabval[2])));; + MELT_LOCATION("warmelt-normatch.melt:3263:/ cond"); + /*cond*/ if (/*_#IS_A__L4*/ meltfnum[0]) /*then*/ { + /*^cond.then*/ + /*_.IFELSE___V14*/ meltfptr[13] = (/*nil*/NULL);; + } else {MELT_LOCATION("warmelt-normatch.melt:3263:/ cond.else"); + + /*^block*/ + /*anyblock*/{ + + + + + { + /*^locexp*/ + melt_assert_failed(( "check mdata"),( "warmelt-normatch.melt")?( "warmelt-normatch.melt"):__FILE__, + (3263)?(3263):__LINE__, __FUNCTION__); +;} + ; + /*clear*/ /*_.IFELSE___V14*/ meltfptr[13] = 0 ; + /*epilog*/ + } + ; + } + ; + /*^compute*/ + + /*_.IFCPP___V13*/ meltfptr[11] = /*_.IFELSE___V14*/ meltfptr[13];; + /*epilog*/ + + MELT_LOCATION("warmelt-normatch.melt:3263:/ clear"); + /*clear*/ /*_#IS_A__L4*/ meltfnum[0] = 0 ; + /*^clear*/ + /*clear*/ /*_.IFELSE___V14*/ meltfptr[13] = 0 ;} + + #else /*ENABLE_CHECKING*/ + /*^cppif.else*/ + /*_.IFCPP___V13*/ meltfptr[11] = (/*nil*/NULL); + #endif /*ENABLE_CHECKING*/ + ; + + #if ENABLE_CHECKING + MELT_LOCATION("warmelt-normatch.melt:3264:/ cppif.then"); + /*^block*/ + /*anyblock*/{ + + /*_#THE_MELTCALLCOUNT__L5*/ meltfnum[0] = + meltcallcount;; + MELT_LOCATION("warmelt-normatch.melt:3264:/ apply"); + /*apply*/{ + union meltparam_un argtab[4]; + memset(&argtab, 0, sizeof(argtab)); + /*^apply.arg*/ + argtab[0].bp_cstring = "translpat_orpat mcase"; + /*^apply.arg*/ + argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L5*/ meltfnum[0]; + /*^apply.arg*/ + argtab[2].bp_cstring = "warmelt-normatch.melt"; + /*^apply.arg*/ + argtab[3].bp_long = 3264; + /*_.DEBUG_MSG_FUN__V16*/ meltfptr[15] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.MCASE__V4*/ meltfptr[3]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + } + ; + /*_.IFCPP___V15*/ meltfptr[13] = /*_.DEBUG_MSG_FUN__V16*/ meltfptr[15];; + /*epilog*/ + + MELT_LOCATION("warmelt-normatch.melt:3264:/ clear"); + /*clear*/ /*_#THE_MELTCALLCOUNT__L5*/ meltfnum[0] = 0 ; + /*^clear*/ + /*clear*/ /*_.DEBUG_MSG_FUN__V16*/ meltfptr[15] = 0 ;} + + #else /*ENABLE_CHECKING*/ + /*^cppif.else*/ + /*_.IFCPP___V15*/ meltfptr[13] = (/*nil*/NULL); + #endif /*ENABLE_CHECKING*/ + ; + + #if ENABLE_CHECKING + MELT_LOCATION("warmelt-normatch.melt:3265:/ cppif.then"); + /*^block*/ + /*anyblock*/{ + + /*_#IS_A__L6*/ meltfnum[0] = + melt_is_instance_of((melt_ptr_t)(/*_.MCASE__V4*/ meltfptr[3]), (melt_ptr_t)((/*!CLASS_MATCH_CASE*/ meltfrout->tabval[3])));; + MELT_LOCATION("warmelt-normatch.melt:3265:/ cond"); + /*cond*/ if (/*_#IS_A__L6*/ meltfnum[0]) /*then*/ { + /*^cond.then*/ + /*_.IFELSE___V18*/ meltfptr[17] = (/*nil*/NULL);; + } else {MELT_LOCATION("warmelt-normatch.melt:3265:/ cond.else"); + + /*^block*/ + /*anyblock*/{ + + + + + { + /*^locexp*/ + melt_assert_failed(( "check mcase"),( "warmelt-normatch.melt")?( "warmelt-normatch.melt"):__FILE__, + (3265)?(3265):__LINE__, __FUNCTION__); +;} + ; + /*clear*/ /*_.IFELSE___V18*/ meltfptr[17] = 0 ; + /*epilog*/ + } + ; + } + ; + /*^compute*/ + + /*_.IFCPP___V17*/ meltfptr[15] = /*_.IFELSE___V18*/ meltfptr[17];; + /*epilog*/ + + MELT_LOCATION("warmelt-normatch.melt:3265:/ clear"); + /*clear*/ /*_#IS_A__L6*/ meltfnum[0] = 0 ; + /*^clear*/ + /*clear*/ /*_.IFELSE___V18*/ meltfptr[17] = 0 ;} + + #else /*ENABLE_CHECKING*/ + /*^cppif.else*/ + /*_.IFCPP___V17*/ meltfptr[15] = (/*nil*/NULL); + #endif /*ENABLE_CHECKING*/ + ; + MELT_LOCATION("warmelt-normatch.melt:3266:/ quasiblock"); + + + /*_.FIRSTSTEP__V20*/ meltfptr[19] = (/*nil*/NULL);; + /*^compute*/ + + /*_.LASTSTEP__V21*/ meltfptr[20] = (/*nil*/NULL);; + MELT_LOCATION("warmelt-normatch.melt:3269:/ getslot"); + { melt_ptr_t slot=0; + melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), 1, "LOCA_LOCATION");/*_.LOCA_LOCATION__V22*/ meltfptr[21] = slot; }; + ; + /*^cond*/ + /*cond*/ if (/*_.LOCA_LOCATION__V22*/ meltfptr[21]) /*then*/ { + /*^cond.then*/ + /*_.SLOC__V23*/ meltfptr[22] = /*_.LOCA_LOCATION__V22*/ meltfptr[21];; + } else {MELT_LOCATION("warmelt-normatch.melt:3269:/ cond.else"); + + /*_.SLOC__V23*/ meltfptr[22] = /*_.PSLOC__V6*/ meltfptr[5];; + } + ; + MELT_LOCATION("warmelt-normatch.melt:3270:/ getslot"); + { melt_ptr_t slot=0; + melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), 2, "ORPAT_DISJ");/*_.SDISJ__V24*/ meltfptr[23] = slot; }; + ; + MELT_LOCATION("warmelt-normatch.melt:3271:/ getslot"); + { melt_ptr_t slot=0; + melt_object_get_field(slot,(melt_ptr_t)(/*_.MCASE__V4*/ meltfptr[3]), 1, "MCASE_MCTXT");/*_.MCTXT__V25*/ meltfptr[24] = slot; }; + ; + MELT_LOCATION("warmelt-normatch.melt:3272:/ quasiblock"); + + + /*^rawallocobj*/ + /*rawallocobj*/ { melt_ptr_t newobj = 0; + melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_MATCH_STEP_TEST_GROUP*/ meltfrout->tabval[4])), (8), "CLASS_MATCH_STEP_TEST_GROUP");/*_.INST__V27*/ meltfptr[26] = + newobj; }; + ; + /*^putslot*/ + /*putslot*/ + melt_assertmsg("putslot checkobj @LOCA_LOCATION", melt_magic_discr((melt_ptr_t)(/*_.INST__V27*/ meltfptr[26])) == OBMAG_OBJECT); + melt_putfield_object((/*_.INST__V27*/ meltfptr[26]), (1), (/*_.SLOC__V23*/ meltfptr[22]), "LOCA_LOCATION"); + ; + /*^putslot*/ + /*putslot*/ + melt_assertmsg("putslot checkobj @MSTEP_DATA", melt_magic_discr((melt_ptr_t)(/*_.INST__V27*/ meltfptr[26])) == OBMAG_OBJECT); + melt_putfield_object((/*_.INST__V27*/ meltfptr[26]), (2), (/*_.MDATA__V3*/ meltfptr[2]), "MSTEP_DATA"); + ; + /*^putslot*/ + /*putslot*/ + melt_assertmsg("putslot checkobj @MSTGROUP_START", melt_magic_discr((melt_ptr_t)(/*_.INST__V27*/ meltfptr[26])) == OBMAG_OBJECT); + melt_putfield_object((/*_.INST__V27*/ meltfptr[26]), (5), ((/*nil*/NULL)), "MSTGROUP_START"); + ; + /*^putslot*/ + /*putslot*/ + melt_assertmsg("putslot checkobj @MSTGROUP_THEN", melt_magic_discr((melt_ptr_t)(/*_.INST__V27*/ meltfptr[26])) == OBMAG_OBJECT); + melt_putfield_object((/*_.INST__V27*/ meltfptr[26]), (6), ((/*nil*/NULL)), "MSTGROUP_THEN"); + ; + /*^putslot*/ + /*putslot*/ + melt_assertmsg("putslot checkobj @MSTGROUP_ELSE", melt_magic_discr((melt_ptr_t)(/*_.INST__V27*/ meltfptr[26])) == OBMAG_OBJECT); + melt_putfield_object((/*_.INST__V27*/ meltfptr[26]), (7), ((/*nil*/NULL)), "MSTGROUP_ELSE"); + ; + /*_.STEPGROUP__V26*/ meltfptr[25] = /*_.INST__V27*/ meltfptr[26];; + MELT_LOCATION("warmelt-normatch.melt:3279:/ apply"); + /*apply*/{ + union meltparam_un argtab[2]; + memset(&argtab, 0, sizeof(argtab)); + /*^apply.arg*/ + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.MCTXT__V25*/ meltfptr[24]; + /*^apply.arg*/ + argtab[1].bp_aptr = (melt_ptr_t*) &(/*!konst_6*/ meltfrout->tabval[6]); + /*_.MFLAG__V28*/ meltfptr[27] = melt_apply ((meltclosure_ptr_t)((/*!MAKE_MATCH_FLAG*/ meltfrout->tabval[5])), (melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + } + ; + MELT_LOCATION("warmelt-normatch.melt:3280:/ quasiblock"); + + + /*^rawallocobj*/ + /*rawallocobj*/ { melt_ptr_t newobj = 0; + melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_MATCH_STEP_FLAG_DISJONCTION*/ meltfrout->tabval[7])), (6), "CLASS_MATCH_STEP_FLAG_DISJONCTION");/*_.INST__V30*/ meltfptr[29] = + newobj; }; + ; + /*^putslot*/ + /*putslot*/ + melt_assertmsg("putslot checkobj @LOCA_LOCATION", melt_magic_discr((melt_ptr_t)(/*_.INST__V30*/ meltfptr[29])) == OBMAG_OBJECT); + melt_putfield_object((/*_.INST__V30*/ meltfptr[29]), (1), (/*_.SLOC__V23*/ meltfptr[22]), "LOCA_LOCATION"); + ; + /*^putslot*/ + /*putslot*/ + melt_assertmsg("putslot checkobj @MSTEP_DATA", melt_magic_discr((melt_ptr_t)(/*_.INST__V30*/ meltfptr[29])) == OBMAG_OBJECT); + melt_putfield_object((/*_.INST__V30*/ meltfptr[29]), (2), (/*_.MDATA__V3*/ meltfptr[2]), "MSTEP_DATA"); + ; + /*^putslot*/ + /*putslot*/ + melt_assertmsg("putslot checkobj @MSTEP_THEN", melt_magic_discr((melt_ptr_t)(/*_.INST__V30*/ meltfptr[29])) == OBMAG_OBJECT); + melt_putfield_object((/*_.INST__V30*/ meltfptr[29]), (3), ((/*nil*/NULL)), "MSTEP_THEN"); + ; + /*^putslot*/ + /*putslot*/ + melt_assertmsg("putslot checkobj @MSTEP_FLAG", melt_magic_discr((melt_ptr_t)(/*_.INST__V30*/ meltfptr[29])) == OBMAG_OBJECT); + melt_putfield_object((/*_.INST__V30*/ meltfptr[29]), (4), (/*_.MFLAG__V28*/ meltfptr[27]), "MSTEP_FLAG"); + ; + /*_.FLAGSTEP__V29*/ meltfptr[28] = /*_.INST__V30*/ meltfptr[29];; + /*^compute*/ + + /*_.FLAGLIST__V31*/ meltfptr[30] = + (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ meltfrout->tabval[8]))));; + + #if ENABLE_CHECKING + MELT_LOCATION("warmelt-normatch.melt:3288:/ cppif.then"); + /*^block*/ + /*anyblock*/{ + + /*_#THE_MELTCALLCOUNT__L7*/ meltfnum[0] = + meltcallcount;; + MELT_LOCATION("warmelt-normatch.melt:3288:/ apply"); + /*apply*/{ + union meltparam_un argtab[4]; + memset(&argtab, 0, sizeof(argtab)); + /*^apply.arg*/ + argtab[0].bp_cstring = "translpat_orpat flagstep"; + /*^apply.arg*/ + argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L7*/ meltfnum[0]; + /*^apply.arg*/ + argtab[2].bp_cstring = "warmelt-normatch.melt"; + /*^apply.arg*/ + argtab[3].bp_long = 3288; + /*_.DEBUG_MSG_FUN__V33*/ meltfptr[32] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.FLAGSTEP__V29*/ meltfptr[28]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + } + ; + /*_.IFCPP___V32*/ meltfptr[31] = /*_.DEBUG_MSG_FUN__V33*/ meltfptr[32];; + /*epilog*/ + + MELT_LOCATION("warmelt-normatch.melt:3288:/ clear"); + /*clear*/ /*_#THE_MELTCALLCOUNT__L7*/ meltfnum[0] = 0 ; + /*^clear*/ + /*clear*/ /*_.DEBUG_MSG_FUN__V33*/ meltfptr[32] = 0 ;} + + #else /*ENABLE_CHECKING*/ + /*^cppif.else*/ + /*_.IFCPP___V32*/ meltfptr[31] = (/*nil*/NULL); + #endif /*ENABLE_CHECKING*/ + ; + + #if ENABLE_CHECKING + MELT_LOCATION("warmelt-normatch.melt:3289:/ cppif.then"); + /*^block*/ + /*anyblock*/{ + + /*_#IS_MULTIPLE__L8*/ meltfnum[0] = + (melt_magic_discr((melt_ptr_t)(/*_.SDISJ__V24*/ meltfptr[23])) == OBMAG_MULTIPLE);; + MELT_LOCATION("warmelt-normatch.melt:3289:/ cond"); + /*cond*/ if (/*_#IS_MULTIPLE__L8*/ meltfnum[0]) /*then*/ { + /*^cond.then*/ + /*_.IFELSE___V35*/ meltfptr[34] = (/*nil*/NULL);; + } else {MELT_LOCATION("warmelt-normatch.melt:3289:/ cond.else"); + + /*^block*/ + /*anyblock*/{ + + + + + { + /*^locexp*/ + melt_assert_failed(( "check sdisj"),( "warmelt-normatch.melt")?( "warmelt-normatch.melt"):__FILE__, + (3289)?(3289):__LINE__, __FUNCTION__); +;} + ; + /*clear*/ /*_.IFELSE___V35*/ meltfptr[34] = 0 ; + /*epilog*/ + } + ; + } + ; + /*^compute*/ + + /*_.IFCPP___V34*/ meltfptr[32] = /*_.IFELSE___V35*/ meltfptr[34];; + /*epilog*/ + + MELT_LOCATION("warmelt-normatch.melt:3289:/ clear"); + /*clear*/ /*_#IS_MULTIPLE__L8*/ meltfnum[0] = 0 ; + /*^clear*/ + /*clear*/ /*_.IFELSE___V35*/ meltfptr[34] = 0 ;} + + #else /*ENABLE_CHECKING*/ + /*^cppif.else*/ + /*_.IFCPP___V34*/ meltfptr[32] = (/*nil*/NULL); + #endif /*ENABLE_CHECKING*/ + ; + /*citerblock FOREACH_IN_MULTIPLE*/ { + /* start cit1__EACHTUP: */ + long cit1__EACHTUP_ln = melt_multiple_length((melt_ptr_t)/*_.SDISJ__V24*/ meltfptr[23]); + for (/*_#DISJIX__L9*/ meltfnum[0] = 0; + (/*_#DISJIX__L9*/ meltfnum[0] >= 0) && (/*_#DISJIX__L9*/ meltfnum[0] < cit1__EACHTUP_ln); + /*_#DISJIX__L9*/ meltfnum[0]++) { + /*_.CURDISJ__V36*/ meltfptr[34] = melt_multiple_nth((melt_ptr_t)(/*_.SDISJ__V24*/ meltfptr[23]), /*_#DISJIX__L9*/ meltfnum[0]); + + + + + #if ENABLE_CHECKING + MELT_LOCATION("warmelt-normatch.melt:3294:/ cppif.then"); + /*^block*/ + /*anyblock*/{ + + /*_#THE_MELTCALLCOUNT__L10*/ meltfnum[9] = + meltcallcount;; + MELT_LOCATION("warmelt-normatch.melt:3294:/ apply"); + /*apply*/{ + union meltparam_un argtab[4]; + memset(&argtab, 0, sizeof(argtab)); + /*^apply.arg*/ + argtab[0].bp_cstring = "translpat_orpat curdisj"; + /*^apply.arg*/ + argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L10*/ meltfnum[9]; + /*^apply.arg*/ + argtab[2].bp_cstring = "warmelt-normatch.melt"; + /*^apply.arg*/ + argtab[3].bp_long = 3294; + /*_.DEBUG_MSG_FUN__V38*/ meltfptr[37] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.CURDISJ__V36*/ meltfptr[34]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + } + ; + /*_.IFCPP___V37*/ meltfptr[36] = /*_.DEBUG_MSG_FUN__V38*/ meltfptr[37];; + /*epilog*/ + + MELT_LOCATION("warmelt-normatch.melt:3294:/ clear"); + /*clear*/ /*_#THE_MELTCALLCOUNT__L10*/ meltfnum[9] = 0 ; + /*^clear*/ + /*clear*/ /*_.DEBUG_MSG_FUN__V38*/ meltfptr[37] = 0 ;} + + #else /*ENABLE_CHECKING*/ + /*^cppif.else*/ + /*_.IFCPP___V37*/ meltfptr[36] = (/*nil*/NULL); + #endif /*ENABLE_CHECKING*/ + ; + MELT_LOCATION("warmelt-normatch.melt:3295:/ quasiblock"); + + + /*^multimsend*/ + /*multimsend*/{ + union meltparam_un argtab[4]; + union meltparam_un restab[1]; + memset(&argtab, 0, sizeof(argtab)); + memset(&restab, 0, sizeof(restab)); + /*^multimsend.arg*/ + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.MDATA__V3*/ meltfptr[2];/*^multimsend.arg*/ + argtab[1].bp_aptr = (melt_ptr_t*) &/*_.MCASE__V4*/ meltfptr[3];/*^multimsend.arg*/ + argtab[2].bp_aptr = (melt_ptr_t*) &/*_.VARMAP__V5*/ meltfptr[4];/*^multimsend.arg*/ + argtab[3].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V23*/ meltfptr[22]; + /*^multimsend.xres*/ + restab[0].bp_aptr = (melt_ptr_t*) &/*_.DISJFLAG__V41*/ meltfptr[40];/*^multimsend.send*/ + /*_.DISJSTEP__V40*/ meltfptr[39] = meltgc_send ((melt_ptr_t)(/*_.CURDISJ__V36*/ meltfptr[34]), ((melt_ptr_t)((/*!TRANSLATE_PATTERN*/ meltfrout->tabval[9]))), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, (BPARSTR_PTR ""), restab); + } + ; + /*^quasiblock*/ + + + + #if ENABLE_CHECKING + MELT_LOCATION("warmelt-normatch.melt:3298:/ cppif.then"); + /*^block*/ + /*anyblock*/{ + + /*_#THE_MELTCALLCOUNT__L11*/ meltfnum[9] = + meltcallcount;; + MELT_LOCATION("warmelt-normatch.melt:3298:/ apply"); + /*apply*/{ + union meltparam_un argtab[4]; + memset(&argtab, 0, sizeof(argtab)); + /*^apply.arg*/ + argtab[0].bp_cstring = "translpat_orpat disjstep"; + /*^apply.arg*/ + argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L11*/ meltfnum[9]; + /*^apply.arg*/ + argtab[2].bp_cstring = "warmelt-normatch.melt"; + /*^apply.arg*/ + argtab[3].bp_long = 3298; + /*_.DEBUG_MSG_FUN__V43*/ meltfptr[42] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.DISJSTEP__V40*/ meltfptr[39]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + } + ; + /*_.IFCPP___V42*/ meltfptr[41] = /*_.DEBUG_MSG_FUN__V43*/ meltfptr[42];; + /*epilog*/ + + MELT_LOCATION("warmelt-normatch.melt:3298:/ clear"); + /*clear*/ /*_#THE_MELTCALLCOUNT__L11*/ meltfnum[9] = 0 ; + /*^clear*/ + /*clear*/ /*_.DEBUG_MSG_FUN__V43*/ meltfptr[42] = 0 ;} + + #else /*ENABLE_CHECKING*/ + /*^cppif.else*/ + /*_.IFCPP___V42*/ meltfptr[41] = (/*nil*/NULL); + #endif /*ENABLE_CHECKING*/ + ; + + #if ENABLE_CHECKING + MELT_LOCATION("warmelt-normatch.melt:3299:/ cppif.then"); + /*^block*/ + /*anyblock*/{ + + /*_#THE_MELTCALLCOUNT__L12*/ meltfnum[9] = + meltcallcount;; + MELT_LOCATION("warmelt-normatch.melt:3299:/ apply"); + /*apply*/{ + union meltparam_un argtab[4]; + memset(&argtab, 0, sizeof(argtab)); + /*^apply.arg*/ + argtab[0].bp_cstring = "translpat_orpat disjflag"; + /*^apply.arg*/ + argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L12*/ meltfnum[9]; + /*^apply.arg*/ + argtab[2].bp_cstring = "warmelt-normatch.melt"; + /*^apply.arg*/ + argtab[3].bp_long = 3299; + /*_.DEBUG_MSG_FUN__V45*/ meltfptr[44] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.DISJFLAG__V41*/ meltfptr[40]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + } + ; + /*_.IFCPP___V44*/ meltfptr[42] = /*_.DEBUG_MSG_FUN__V45*/ meltfptr[44];; + /*epilog*/ + + MELT_LOCATION("warmelt-normatch.melt:3299:/ clear"); + /*clear*/ /*_#THE_MELTCALLCOUNT__L12*/ meltfnum[9] = 0 ; + /*^clear*/ + /*clear*/ /*_.DEBUG_MSG_FUN__V45*/ meltfptr[44] = 0 ;} + + #else /*ENABLE_CHECKING*/ + /*^cppif.else*/ + /*_.IFCPP___V44*/ meltfptr[42] = (/*nil*/NULL); + #endif /*ENABLE_CHECKING*/ + ; + /*^compute*/ + + /*_.MULTI___V39*/ meltfptr[37] = /*_.IFCPP___V44*/ meltfptr[42];; + + MELT_LOCATION("warmelt-normatch.melt:3295:/ clear"); + /*clear*/ /*_.IFCPP___V42*/ meltfptr[41] = 0 ; + /*^clear*/ + /*clear*/ /*_.IFCPP___V44*/ meltfptr[42] = 0 ; + + /*^clear*/ + /*clear*/ /*_.DISJFLAG__V41*/ meltfptr[40] = 0 ; + if (/*_#DISJIX__L9*/ meltfnum[0]<0) break; + } /* end cit1__EACHTUP */ + + /*citerepilog*/ + + MELT_LOCATION("warmelt-normatch.melt:3291:/ clear"); + /*clear*/ /*_.CURDISJ__V36*/ meltfptr[34] = 0 ; + /*^clear*/ + /*clear*/ /*_#DISJIX__L9*/ meltfnum[0] = 0 ; + /*^clear*/ + /*clear*/ /*_.IFCPP___V37*/ meltfptr[36] = 0 ; + /*^clear*/ + /*clear*/ /*_.MULTI___V39*/ meltfptr[37] = 0 ;} /*endciterblock FOREACH_IN_MULTIPLE*/ + ; + + { + MELT_LOCATION("warmelt-normatch.melt:3301:/ locexp"); + melt_error_str((melt_ptr_t)(/*_.SLOC__V23*/ meltfptr[22]), ( "unimplemented translpat_orpat"), (melt_ptr_t)0);} + ; + + #if ENABLE_CHECKING + MELT_LOCATION("warmelt-normatch.melt:3302:/ cppif.then"); + /*^block*/ + /*anyblock*/{ + + /*^cond*/ + /*cond*/ if ((/*nil*/NULL)) /*then*/ { + /*^cond.then*/ + /*_.IFELSE___V47*/ meltfptr[41] = (/*nil*/NULL);; + } else {MELT_LOCATION("warmelt-normatch.melt:3302:/ cond.else"); + + /*^block*/ + /*anyblock*/{ + + + + + { + /*^locexp*/ + melt_assert_failed(( "@$@unimplemented translpat_orpat"),( "warmelt-normatch.melt")?( "warmelt-normatch.melt"):__FILE__, + (3302)?(3302):__LINE__, __FUNCTION__); +;} + ; + /*clear*/ /*_.IFELSE___V47*/ meltfptr[41] = 0 ; + /*epilog*/ + } + ; + } + ; + /*^compute*/ + + /*_.IFCPP___V46*/ meltfptr[44] = /*_.IFELSE___V47*/ meltfptr[41];; + /*epilog*/ + + MELT_LOCATION("warmelt-normatch.melt:3302:/ clear"); + /*clear*/ /*_.IFELSE___V47*/ meltfptr[41] = 0 ;} + + #else /*ENABLE_CHECKING*/ + /*^cppif.else*/ + /*_.IFCPP___V46*/ meltfptr[44] = (/*nil*/NULL); + #endif /*ENABLE_CHECKING*/ + ; + /*^compute*/ + + /*_.LET___V19*/ meltfptr[17] = /*_.IFCPP___V46*/ meltfptr[44];; + + MELT_LOCATION("warmelt-normatch.melt:3266:/ clear"); + /*clear*/ /*_.FIRSTSTEP__V20*/ meltfptr[19] = 0 ; + /*^clear*/ + /*clear*/ /*_.LASTSTEP__V21*/ meltfptr[20] = 0 ; + /*^clear*/ + /*clear*/ /*_.LOCA_LOCATION__V22*/ meltfptr[21] = 0 ; + /*^clear*/ + /*clear*/ /*_.SLOC__V23*/ meltfptr[22] = 0 ; + /*^clear*/ + /*clear*/ /*_.SDISJ__V24*/ meltfptr[23] = 0 ; + /*^clear*/ + /*clear*/ /*_.MCTXT__V25*/ meltfptr[24] = 0 ; + /*^clear*/ + /*clear*/ /*_.STEPGROUP__V26*/ meltfptr[25] = 0 ; + /*^clear*/ + /*clear*/ /*_.MFLAG__V28*/ meltfptr[27] = 0 ; + /*^clear*/ + /*clear*/ /*_.FLAGSTEP__V29*/ meltfptr[28] = 0 ; + /*^clear*/ + /*clear*/ /*_.FLAGLIST__V31*/ meltfptr[30] = 0 ; + /*^clear*/ + /*clear*/ /*_.IFCPP___V32*/ meltfptr[31] = 0 ; + /*^clear*/ + /*clear*/ /*_.IFCPP___V34*/ meltfptr[32] = 0 ; + /*^clear*/ + /*clear*/ /*_.IFCPP___V46*/ meltfptr[44] = 0 ; + MELT_LOCATION("warmelt-normatch.melt:3259:/ quasiblock"); + + + /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V19*/ meltfptr[17];; + MELT_LOCATION("warmelt-normatch.melt:3259:/ finalreturn"); + ; + /*finalret*/ goto labend_rout ; + /*epilog*/ + + /*^clear*/ + /*clear*/ /*_.IFCPP___V7*/ meltfptr[6] = 0 ; + /*^clear*/ + /*clear*/ /*_.IFCPP___V9*/ meltfptr[7] = 0 ; + /*^clear*/ + /*clear*/ /*_.IFCPP___V11*/ meltfptr[9] = 0 ; + /*^clear*/ + /*clear*/ /*_.IFCPP___V13*/ meltfptr[11] = 0 ; + /*^clear*/ + /*clear*/ /*_.IFCPP___V15*/ meltfptr[13] = 0 ; + /*^clear*/ + /*clear*/ /*_.IFCPP___V17*/ meltfptr[15] = 0 ; + /*^clear*/ + /*clear*/ /*_.LET___V19*/ meltfptr[17] = 0 ;} + +; + goto labend_rout; +labend_rout: +melt_trace_end("TRANSLPAT_ORPAT", meltcallcount); melt_topframe = (struct callframe_melt_st*) meltfram__.prev; + return (melt_ptr_t)(/*_.RETVAL___V1*/ meltfptr[0]); +#undef meltcallcount +#undef meltfram__ +#undef MELTFRAM_NBVARNUM +#undef MELTFRAM_NBVARPTR +} /*end meltrout_70_warmelt_normatch_TRANSLPAT_ORPAT*/ + + + + + +melt_ptr_t MELT_MODULE_VISIBILITY +meltrout_71_warmelt_normatch_TRANSLPAT_PATMAT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, + const char xresdescr_[], union meltparam_un *xrestab_) +{ +#if ENABLE_CHECKING + static long call_counter__; + long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; +#undef meltcallcount +#define meltcallcount thiscallcounter__ +#else +#undef meltcallcount +#define meltcallcount 0L +#endif + + struct frame_meltrout_71_warmelt_normatch_TRANSLPAT_PATMAT_st { unsigned nbvar; +#if ENABLE_CHECKING + const char* flocs; +#endif + struct meltclosure_st *clos; + struct excepth_melt_st *exh; + struct callframe_melt_st *prev; +#define MELTFRAM_NBVARPTR 188 + void* varptr[188]; +#define MELTFRAM_NBVARNUM 66 + long varnum[66]; +/*others*/ + long _spare_; } + *framptr_=0, meltframe; +#define meltfram__ meltframe + if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/ + int ix=0; + framptr_ = (void*)firstargp_; + gt_ggc_mx_melt_un (framptr_->clos); + for(ix=0; ix<188; ix++) + if (framptr_->varptr[ix]) + gt_ggc_mx_melt_un (framptr_->varptr[ix]); + return NULL; + }/*end markggc*/; + memset(&meltfram__, 0, sizeof(meltfram__)); + meltfram__.nbvar = 188; + meltfram__.clos = closp_; + meltfram__.prev = (struct callframe_melt_st *) melt_topframe; + melt_topframe = (struct callframe_melt_st *) &meltfram__; +melt_trace_start("TRANSLPAT_PATMAT", meltcallcount); +/*getargs*/ + + /*getarg#0*/ + MELT_LOCATION("warmelt-normatch.melt:3310:/ getarg"); + /*_.RECV__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; + + /*getarg#1*/ + /*^getarg*/ + if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; + /*_.MDATA__V3*/ meltfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; + gcc_assert(melt_discr((melt_ptr_t)(/*_.MDATA__V3*/ meltfptr[2])) != NULL); + + + /*getarg#2*/ + /*^getarg*/ + if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; + /*_.MCASE__V4*/ meltfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; + gcc_assert(melt_discr((melt_ptr_t)(/*_.MCASE__V4*/ meltfptr[3])) != NULL); + + + /*getarg#3*/ + /*^getarg*/ + if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs; + /*_.VARMAP__V5*/ meltfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL; + gcc_assert(melt_discr((melt_ptr_t)(/*_.VARMAP__V5*/ meltfptr[4])) != NULL); + + + /*getarg#4*/ + /*^getarg*/ + if (xargdescr_[3] != BPAR_PTR) goto lab_endgetargs; + /*_.PSLOC__V6*/ meltfptr[5] = (xargtab_[3].bp_aptr) ? (*(xargtab_[3].bp_aptr)) : NULL; + gcc_assert(melt_discr((melt_ptr_t)(/*_.PSLOC__V6*/ meltfptr[5])) != NULL); + + ; + goto lab_endgetargs; +lab_endgetargs:; +/*body*/ +/*^block*/ +/*anyblock*/{ + + + #if ENABLE_CHECKING + MELT_LOCATION("warmelt-normatch.melt:3311:/ cppif.then"); + /*^block*/ + /*anyblock*/{ + + /*_#THE_MELTCALLCOUNT__L1*/ meltfnum[0] = + meltcallcount;; + MELT_LOCATION("warmelt-normatch.melt:3311:/ apply"); + /*apply*/{ + union meltparam_un argtab[4]; + memset(&argtab, 0, sizeof(argtab)); + /*^apply.arg*/ + argtab[0].bp_cstring = "translpat_patmat recv"; + /*^apply.arg*/ + argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L1*/ meltfnum[0]; + /*^apply.arg*/ + argtab[2].bp_cstring = "warmelt-normatch.melt"; + /*^apply.arg*/ + argtab[3].bp_long = 3311; + /*_.DEBUG_MSG_FUN__V8*/ meltfptr[7] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + } + ; + /*_.IFCPP___V7*/ meltfptr[6] = /*_.DEBUG_MSG_FUN__V8*/ meltfptr[7];; + /*epilog*/ + + MELT_LOCATION("warmelt-normatch.melt:3311:/ clear"); + /*clear*/ /*_#THE_MELTCALLCOUNT__L1*/ meltfnum[0] = 0 ; + /*^clear*/ + /*clear*/ /*_.DEBUG_MSG_FUN__V8*/ meltfptr[7] = 0 ;} + + #else /*ENABLE_CHECKING*/ + /*^cppif.else*/ + /*_.IFCPP___V7*/ meltfptr[6] = (/*nil*/NULL); + #endif /*ENABLE_CHECKING*/ + ; + + #if ENABLE_CHECKING + MELT_LOCATION("warmelt-normatch.melt:3312:/ cppif.then"); + /*^block*/ + /*anyblock*/{ + + /*_#IS_A__L2*/ meltfnum[0] = + melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_PATTERN_MATCHER*/ meltfrout->tabval[1])));; + MELT_LOCATION("warmelt-normatch.melt:3312:/ cond"); + /*cond*/ if (/*_#IS_A__L2*/ meltfnum[0]) /*then*/ { + /*^cond.then*/ + /*_.IFELSE___V10*/ meltfptr[9] = (/*nil*/NULL);; + } else {MELT_LOCATION("warmelt-normatch.melt:3312:/ cond.else"); + + /*^block*/ + /*anyblock*/{ + + + + + { + /*^locexp*/ + melt_assert_failed(( "check recv"),( "warmelt-normatch.melt")?( "warmelt-normatch.melt"):__FILE__, + (3312)?(3312):__LINE__, __FUNCTION__); +;} + ; + /*clear*/ /*_.IFELSE___V10*/ meltfptr[9] = 0 ; + /*epilog*/ + } + ; + } + ; + /*^compute*/ + + /*_.IFCPP___V9*/ meltfptr[7] = /*_.IFELSE___V10*/ meltfptr[9];; + /*epilog*/ + + MELT_LOCATION("warmelt-normatch.melt:3312:/ clear"); + /*clear*/ /*_#IS_A__L2*/ meltfnum[0] = 0 ; + /*^clear*/ + /*clear*/ /*_.IFELSE___V10*/ meltfptr[9] = 0 ;} + + #else /*ENABLE_CHECKING*/ + /*^cppif.else*/ + /*_.IFCPP___V9*/ meltfptr[7] = (/*nil*/NULL); + #endif /*ENABLE_CHECKING*/ + ; + + #if ENABLE_CHECKING + MELT_LOCATION("warmelt-normatch.melt:3313:/ cppif.then"); + /*^block*/ + /*anyblock*/{ + + /*_#THE_MELTCALLCOUNT__L3*/ meltfnum[0] = + meltcallcount;; + MELT_LOCATION("warmelt-normatch.melt:3313:/ apply"); + /*apply*/{ + union meltparam_un argtab[4]; + memset(&argtab, 0, sizeof(argtab)); + /*^apply.arg*/ + argtab[0].bp_cstring = "translpat_patmat mdata"; + /*^apply.arg*/ + argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L3*/ meltfnum[0]; + /*^apply.arg*/ + argtab[2].bp_cstring = "warmelt-normatch.melt"; + /*^apply.arg*/ + argtab[3].bp_long = 3313; + /*_.DEBUG_MSG_FUN__V12*/ meltfptr[11] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.MDATA__V3*/ meltfptr[2]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + } + ; + /*_.IFCPP___V11*/ meltfptr[9] = /*_.DEBUG_MSG_FUN__V12*/ meltfptr[11];; + /*epilog*/ + + MELT_LOCATION("warmelt-normatch.melt:3313:/ clear"); + /*clear*/ /*_#THE_MELTCALLCOUNT__L3*/ meltfnum[0] = 0 ; + /*^clear*/ + /*clear*/ /*_.DEBUG_MSG_FUN__V12*/ meltfptr[11] = 0 ;} + + #else /*ENABLE_CHECKING*/ + /*^cppif.else*/ + /*_.IFCPP___V11*/ meltfptr[9] = (/*nil*/NULL); + #endif /*ENABLE_CHECKING*/ + ; + + #if ENABLE_CHECKING + MELT_LOCATION("warmelt-normatch.melt:3314:/ cppif.then"); + /*^block*/ + /*anyblock*/{ + + /*_#IS_A__L4*/ meltfnum[0] = + melt_is_instance_of((melt_ptr_t)(/*_.MDATA__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_MATCHED_DATA*/ meltfrout->tabval[2])));; + MELT_LOCATION("warmelt-normatch.melt:3314:/ cond"); + /*cond*/ if (/*_#IS_A__L4*/ meltfnum[0]) /*then*/ { + /*^cond.then*/ + /*_.IFELSE___V14*/ meltfptr[13] = (/*nil*/NULL);; + } else {MELT_LOCATION("warmelt-normatch.melt:3314:/ cond.else"); + + /*^block*/ + /*anyblock*/{ + + + + + { + /*^locexp*/ + melt_assert_failed(( "check mdata"),( "warmelt-normatch.melt")?( "warmelt-normatch.melt"):__FILE__, + (3314)?(3314):__LINE__, __FUNCTION__); +;} + ; + /*clear*/ /*_.IFELSE___V14*/ meltfptr[13] = 0 ; + /*epilog*/ + } + ; + } + ; + /*^compute*/ + + /*_.IFCPP___V13*/ meltfptr[11] = /*_.IFELSE___V14*/ meltfptr[13];; + /*epilog*/ + + MELT_LOCATION("warmelt-normatch.melt:3314:/ clear"); + /*clear*/ /*_#IS_A__L4*/ meltfnum[0] = 0 ; + /*^clear*/ + /*clear*/ /*_.IFELSE___V14*/ meltfptr[13] = 0 ;} + + #else /*ENABLE_CHECKING*/ + /*^cppif.else*/ + /*_.IFCPP___V13*/ meltfptr[11] = (/*nil*/NULL); + #endif /*ENABLE_CHECKING*/ + ; + + #if ENABLE_CHECKING + MELT_LOCATION("warmelt-normatch.melt:3315:/ cppif.then"); + /*^block*/ + /*anyblock*/{ + + /*_#THE_MELTCALLCOUNT__L5*/ meltfnum[0] = + meltcallcount;; + MELT_LOCATION("warmelt-normatch.melt:3315:/ apply"); + /*apply*/{ + union meltparam_un argtab[4]; + memset(&argtab, 0, sizeof(argtab)); + /*^apply.arg*/ + argtab[0].bp_cstring = "translpat_patmat mcase"; + /*^apply.arg*/ + argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L5*/ meltfnum[0]; + /*^apply.arg*/ + argtab[2].bp_cstring = "warmelt-normatch.melt"; + /*^apply.arg*/ + argtab[3].bp_long = 3315; + /*_.DEBUG_MSG_FUN__V16*/ meltfptr[15] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.MCASE__V4*/ meltfptr[3]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + } + ; + /*_.IFCPP___V15*/ meltfptr[13] = /*_.DEBUG_MSG_FUN__V16*/ meltfptr[15];; + /*epilog*/ + + MELT_LOCATION("warmelt-normatch.melt:3315:/ clear"); + /*clear*/ /*_#THE_MELTCALLCOUNT__L5*/ meltfnum[0] = 0 ; + /*^clear*/ + /*clear*/ /*_.DEBUG_MSG_FUN__V16*/ meltfptr[15] = 0 ;} + + #else /*ENABLE_CHECKING*/ + /*^cppif.else*/ + /*_.IFCPP___V15*/ meltfptr[13] = (/*nil*/NULL); + #endif /*ENABLE_CHECKING*/ + ; + + #if ENABLE_CHECKING + MELT_LOCATION("warmelt-normatch.melt:3316:/ cppif.then"); + /*^block*/ + /*anyblock*/{ + + /*_#IS_A__L6*/ meltfnum[0] = + melt_is_instance_of((melt_ptr_t)(/*_.MCASE__V4*/ meltfptr[3]), (melt_ptr_t)((/*!CLASS_MATCH_CASE*/ meltfrout->tabval[3])));; + MELT_LOCATION("warmelt-normatch.melt:3316:/ cond"); + /*cond*/ if (/*_#IS_A__L6*/ meltfnum[0]) /*then*/ { + /*^cond.then*/ + /*_.IFELSE___V18*/ meltfptr[17] = (/*nil*/NULL);; + } else {MELT_LOCATION("warmelt-normatch.melt:3316:/ cond.else"); + + /*^block*/ + /*anyblock*/{ + + + + + { + /*^locexp*/ + melt_assert_failed(( "check mcase"),( "warmelt-normatch.melt")?( "warmelt-normatch.melt"):__FILE__, + (3316)?(3316):__LINE__, __FUNCTION__); +;} + ; + /*clear*/ /*_.IFELSE___V18*/ meltfptr[17] = 0 ; + /*epilog*/ + } + ; + } + ; + /*^compute*/ + + /*_.IFCPP___V17*/ meltfptr[15] = /*_.IFELSE___V18*/ meltfptr[17];; + /*epilog*/ + + MELT_LOCATION("warmelt-normatch.melt:3316:/ clear"); + /*clear*/ /*_#IS_A__L6*/ meltfnum[0] = 0 ; + /*^clear*/ + /*clear*/ /*_.IFELSE___V18*/ meltfptr[17] = 0 ;} + + #else /*ENABLE_CHECKING*/ + /*^cppif.else*/ + /*_.IFCPP___V17*/ meltfptr[15] = (/*nil*/NULL); + #endif /*ENABLE_CHECKING*/ + ; + MELT_LOCATION("warmelt-normatch.melt:3317:/ quasiblock"); + + + MELT_LOCATION("warmelt-normatch.melt:3318:/ getslot"); + { melt_ptr_t slot=0; + melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), 1, "LOCA_LOCATION");/*_.LOCA_LOCATION__V20*/ meltfptr[19] = slot; }; + ; + /*^cond*/ + /*cond*/ if (/*_.LOCA_LOCATION__V20*/ meltfptr[19]) /*then*/ { + /*^cond.then*/ + /*_.SLOC__V21*/ meltfptr[20] = /*_.LOCA_LOCATION__V20*/ meltfptr[19];; + } else {MELT_LOCATION("warmelt-normatch.melt:3318:/ cond.else"); + + /*_.SLOC__V21*/ meltfptr[20] = /*_.PSLOC__V6*/ meltfptr[5];; + } + ; + MELT_LOCATION("warmelt-normatch.melt:3319:/ getslot"); + { melt_ptr_t slot=0; + melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), 5, "SPAC_OPERBIND");/*_.SOPBIND__V22*/ meltfptr[21] = slot; }; + ; + MELT_LOCATION("warmelt-normatch.melt:3320:/ getslot"); + { melt_ptr_t slot=0; + melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), 4, "SPAC_OPERATOR");/*_.SOPER__V23*/ meltfptr[22] = slot; }; + ; + MELT_LOCATION("warmelt-normatch.melt:3321:/ getslot"); + { melt_ptr_t slot=0; + melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), 6, "SPAC_INARGS");/*_.SINS__V24*/ meltfptr[23] = slot; }; + ; + MELT_LOCATION("warmelt-normatch.melt:3322:/ getslot"); + { melt_ptr_t slot=0; + melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), 7, "SPAC_OUTARGS");/*_.SOUTS__V25*/ meltfptr[24] = slot; }; + ; + MELT_LOCATION("warmelt-normatch.melt:3323:/ getslot"); + { melt_ptr_t slot=0; + melt_object_get_field(slot,(melt_ptr_t)(/*_.MCASE__V4*/ meltfptr[3]), 1, "MCASE_MCTXT");/*_.MATCTX__V26*/ meltfptr[25] = slot; }; + ; + MELT_LOCATION("warmelt-normatch.melt:3324:/ cond"); + /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.MATCTX__V26*/ meltfptr[25]), (melt_ptr_t)((/*!CLASS_MATCHING_CONTEXT*/ meltfrout->tabval[4])))) /*then*/ { + /*^cond.then*/ + /*^getslot*/ + { melt_ptr_t slot=0; + melt_object_get_field(slot,(melt_ptr_t)(/*_.MATCTX__V26*/ meltfptr[25]), 4, "MCTX_ENV");/*_.ENV__V27*/ meltfptr[26] = slot; }; + ; + } else {/*^cond.else*/ + + /*_.ENV__V27*/ meltfptr[26] = NULL;; + } + ; + MELT_LOCATION("warmelt-normatch.melt:3325:/ cond"); + /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.MATCTX__V26*/ meltfptr[25]), (melt_ptr_t)((/*!CLASS_MATCHING_CONTEXT*/ meltfrout->tabval[4])))) /*then*/ { + /*^cond.then*/ + /*^getslot*/ + { melt_ptr_t slot=0; + melt_object_get_field(slot,(melt_ptr_t)(/*_.MATCTX__V26*/ meltfptr[25]), 0, "MCTX_NORMCTXT");/*_.NCX__V28*/ meltfptr[27] = slot; }; + ; + } else {/*^cond.else*/ + + /*_.NCX__V28*/ meltfptr[27] = NULL;; + } + ; + MELT_LOCATION("warmelt-normatch.melt:3326:/ cond"); + /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.SOPER__V23*/ meltfptr[22]), (melt_ptr_t)((/*!CLASS_ANY_MATCHER*/ meltfrout->tabval[5])))) /*then*/ { + /*^cond.then*/ + /*^getslot*/ + { melt_ptr_t slot=0; + melt_object_get_field(slot,(melt_ptr_t)(/*_.SOPER__V23*/ meltfptr[22]), 2, "AMATCH_IN");/*_.OPIN__V29*/ meltfptr[28] = slot; }; + ; + } else {/*^cond.else*/ + + /*_.OPIN__V29*/ meltfptr[28] = NULL;; + } + ; + MELT_LOCATION("warmelt-normatch.melt:3327:/ cond"); + /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.SOPER__V23*/ meltfptr[22]), (melt_ptr_t)((/*!CLASS_ANY_MATCHER*/ meltfrout->tabval[5])))) /*then*/ { + /*^cond.then*/ + /*^getslot*/ + { melt_ptr_t slot=0; + melt_object_get_field(slot,(melt_ptr_t)(/*_.SOPER__V23*/ meltfptr[22]), 4, "AMATCH_OUT");/*_.OPOUT__V30*/ meltfptr[29] = slot; }; + ; + } else {/*^cond.else*/ + + /*_.OPOUT__V30*/ meltfptr[29] = NULL;; + } + ; + /*^compute*/ + + /*_#NBOPOUT__L7*/ meltfnum[0] = + (melt_multiple_length((melt_ptr_t)(/*_.OPOUT__V30*/ meltfptr[29])));; + /*^compute*/ + + /*_.CURSTEP__V31*/ meltfptr[30] = (/*nil*/NULL);; + MELT_LOCATION("warmelt-normatch.melt:3330:/ getslot"); + { melt_ptr_t slot=0; + melt_object_get_field(slot,(melt_ptr_t)(/*_.MDATA__V3*/ meltfptr[2]), 4, "MDATA_STEPS");/*_.MDATASTEPS__V32*/ meltfptr[31] = slot; }; + ; + MELT_LOCATION("warmelt-normatch.melt:3331:/ cond"); + /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.SOPER__V23*/ meltfptr[22]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[7])))) /*then*/ { + /*^cond.then*/ + /*^getslot*/ + { melt_ptr_t slot=0; + melt_object_get_field(slot,(melt_ptr_t)(/*_.SOPER__V23*/ meltfptr[22]), 1, "NAMED_NAME");/*_.NAMED_NAME__V33*/ meltfptr[32] = slot; }; + ; + } else {/*^cond.else*/ + + /*_.NAMED_NAME__V33*/ meltfptr[32] = NULL;; + } + ; + MELT_LOCATION("warmelt-normatch.melt:3331:/ apply"); + /*apply*/{ + union meltparam_un argtab[2]; + memset(&argtab, 0, sizeof(argtab)); + /*^apply.arg*/ + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.MATCTX__V26*/ meltfptr[25]; + /*^apply.arg*/ + argtab[1].bp_aptr = (melt_ptr_t*) &/*_.NAMED_NAME__V33*/ meltfptr[32]; + /*_.MFLAG__V34*/ meltfptr[33] = melt_apply ((meltclosure_ptr_t)((/*!MAKE_MATCH_FLAG*/ meltfrout->tabval[6])), (melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + } + ; + + #if ENABLE_CHECKING + MELT_LOCATION("warmelt-normatch.melt:3333:/ cppif.then"); + /*^block*/ + /*anyblock*/{ + + /*_#IS_A__L8*/ meltfnum[7] = + melt_is_instance_of((melt_ptr_t)(/*_.MATCTX__V26*/ meltfptr[25]), (melt_ptr_t)((/*!CLASS_MATCHING_CONTEXT*/ meltfrout->tabval[4])));; + MELT_LOCATION("warmelt-normatch.melt:3333:/ cond"); + /*cond*/ if (/*_#IS_A__L8*/ meltfnum[7]) /*then*/ { + /*^cond.then*/ + /*_.IFELSE___V36*/ meltfptr[35] = (/*nil*/NULL);; + } else {MELT_LOCATION("warmelt-normatch.melt:3333:/ cond.else"); + + /*^block*/ + /*anyblock*/{ + + + + + { + /*^locexp*/ + melt_assert_failed(( "check matctx"),( "warmelt-normatch.melt")?( "warmelt-normatch.melt"):__FILE__, + (3333)?(3333):__LINE__, __FUNCTION__); +;} + ; + /*clear*/ /*_.IFELSE___V36*/ meltfptr[35] = 0 ; + /*epilog*/ + } + ; + } + ; + /*^compute*/ + + /*_.IFCPP___V35*/ meltfptr[34] = /*_.IFELSE___V36*/ meltfptr[35];; + /*epilog*/ + + MELT_LOCATION("warmelt-normatch.melt:3333:/ clear"); + /*clear*/ /*_#IS_A__L8*/ meltfnum[7] = 0 ; + /*^clear*/ + /*clear*/ /*_.IFELSE___V36*/ meltfptr[35] = 0 ;} + + #else /*ENABLE_CHECKING*/ + /*^cppif.else*/ + /*_.IFCPP___V35*/ meltfptr[34] = (/*nil*/NULL); + #endif /*ENABLE_CHECKING*/ + ; + + #if ENABLE_CHECKING + MELT_LOCATION("warmelt-normatch.melt:3334:/ cppif.then"); + /*^block*/ + /*anyblock*/{ + + /*_#IS_A__L9*/ meltfnum[7] = + melt_is_instance_of((melt_ptr_t)(/*_.ENV__V27*/ meltfptr[26]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ meltfrout->tabval[8])));; + MELT_LOCATION("warmelt-normatch.melt:3334:/ cond"); + /*cond*/ if (/*_#IS_A__L9*/ meltfnum[7]) /*then*/ { + /*^cond.then*/ + /*_.IFELSE___V38*/ meltfptr[37] = (/*nil*/NULL);; + } else {MELT_LOCATION("warmelt-normatch.melt:3334:/ cond.else"); + + /*^block*/ + /*anyblock*/{ + + + + + { + /*^locexp*/ + melt_assert_failed(( "check env"),( "warmelt-normatch.melt")?( "warmelt-normatch.melt"):__FILE__, + (3334)?(3334):__LINE__, __FUNCTION__); +;} + ; + /*clear*/ /*_.IFELSE___V38*/ meltfptr[37] = 0 ; + /*epilog*/ + } + ; + } + ; + /*^compute*/ + + /*_.IFCPP___V37*/ meltfptr[35] = /*_.IFELSE___V38*/ meltfptr[37];; + /*epilog*/ + + MELT_LOCATION("warmelt-normatch.melt:3334:/ clear"); + /*clear*/ /*_#IS_A__L9*/ meltfnum[7] = 0 ; + /*^clear*/ + /*clear*/ /*_.IFELSE___V38*/ meltfptr[37] = 0 ;} + + #else /*ENABLE_CHECKING*/ + /*^cppif.else*/ + /*_.IFCPP___V37*/ meltfptr[35] = (/*nil*/NULL); + #endif /*ENABLE_CHECKING*/ + ; + + #if ENABLE_CHECKING + MELT_LOCATION("warmelt-normatch.melt:3335:/ cppif.then"); + /*^block*/ + /*anyblock*/{ + + /*_#THE_MELTCALLCOUNT__L10*/ meltfnum[7] = + meltcallcount;; + MELT_LOCATION("warmelt-normatch.melt:3335:/ apply"); + /*apply*/{ + union meltparam_un argtab[4]; + memset(&argtab, 0, sizeof(argtab)); + /*^apply.arg*/ + argtab[0].bp_cstring = "translpat_patmat soper"; + /*^apply.arg*/ + argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L10*/ meltfnum[7]; + /*^apply.arg*/ + argtab[2].bp_cstring = "warmelt-normatch.melt"; + /*^apply.arg*/ + argtab[3].bp_long = 3335; + /*_.DEBUG_MSG_FUN__V40*/ meltfptr[39] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.SOPER__V23*/ meltfptr[22]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + } + ; + /*_.IFCPP___V39*/ meltfptr[37] = /*_.DEBUG_MSG_FUN__V40*/ meltfptr[39];; + /*epilog*/ + + MELT_LOCATION("warmelt-normatch.melt:3335:/ clear"); + /*clear*/ /*_#THE_MELTCALLCOUNT__L10*/ meltfnum[7] = 0 ; + /*^clear*/ + /*clear*/ /*_.DEBUG_MSG_FUN__V40*/ meltfptr[39] = 0 ;} + + #else /*ENABLE_CHECKING*/ + /*^cppif.else*/ + /*_.IFCPP___V39*/ meltfptr[37] = (/*nil*/NULL); + #endif /*ENABLE_CHECKING*/ + ; + + #if ENABLE_CHECKING + MELT_LOCATION("warmelt-normatch.melt:3336:/ cppif.then"); + /*^block*/ + /*anyblock*/{ + + /*_#IS_A__L11*/ meltfnum[7] = + melt_is_instance_of((melt_ptr_t)(/*_.SOPER__V23*/ meltfptr[22]), (melt_ptr_t)((/*!CLASS_ANY_MATCHER*/ meltfrout->tabval[5])));; + MELT_LOCATION("warmelt-normatch.melt:3336:/ cond"); + /*cond*/ if (/*_#IS_A__L11*/ meltfnum[7]) /*then*/ { + /*^cond.then*/ + /*_.IFELSE___V42*/ meltfptr[41] = (/*nil*/NULL);; + } else {MELT_LOCATION("warmelt-normatch.melt:3336:/ cond.else"); + + /*^block*/ + /*anyblock*/{ + + + + + { + /*^locexp*/ + melt_assert_failed(( "check soper"),( "warmelt-normatch.melt")?( "warmelt-normatch.melt"):__FILE__, + (3336)?(3336):__LINE__, __FUNCTION__); +;} + ; + /*clear*/ /*_.IFELSE___V42*/ meltfptr[41] = 0 ; + /*epilog*/ + } + ; + } + ; + /*^compute*/ + + /*_.IFCPP___V41*/ meltfptr[39] = /*_.IFELSE___V42*/ meltfptr[41];; + /*epilog*/ + + MELT_LOCATION("warmelt-normatch.melt:3336:/ clear"); + /*clear*/ /*_#IS_A__L11*/ meltfnum[7] = 0 ; + /*^clear*/ + /*clear*/ /*_.IFELSE___V42*/ meltfptr[41] = 0 ;} + + #else /*ENABLE_CHECKING*/ + /*^cppif.else*/ + /*_.IFCPP___V41*/ meltfptr[39] = (/*nil*/NULL); + #endif /*ENABLE_CHECKING*/ + ; + + #if ENABLE_CHECKING + MELT_LOCATION("warmelt-normatch.melt:3337:/ cppif.then"); + /*^block*/ + /*anyblock*/{ + + /*_#THE_MELTCALLCOUNT__L12*/ meltfnum[7] = + meltcallcount;; + MELT_LOCATION("warmelt-normatch.melt:3337:/ apply"); + /*apply*/{ + union meltparam_un argtab[4]; + memset(&argtab, 0, sizeof(argtab)); + /*^apply.arg*/ + argtab[0].bp_cstring = "translpat_patmat sins"; + /*^apply.arg*/ + argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L12*/ meltfnum[7]; + /*^apply.arg*/ + argtab[2].bp_cstring = "warmelt-normatch.melt"; + /*^apply.arg*/ + argtab[3].bp_long = 3337; + /*_.DEBUG_MSG_FUN__V44*/ meltfptr[43] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.SINS__V24*/ meltfptr[23]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + } + ; + /*_.IFCPP___V43*/ meltfptr[41] = /*_.DEBUG_MSG_FUN__V44*/ meltfptr[43];; + /*epilog*/ + + MELT_LOCATION("warmelt-normatch.melt:3337:/ clear"); + /*clear*/ /*_#THE_MELTCALLCOUNT__L12*/ meltfnum[7] = 0 ; + /*^clear*/ + /*clear*/ /*_.DEBUG_MSG_FUN__V44*/ meltfptr[43] = 0 ;} + + #else /*ENABLE_CHECKING*/ + /*^cppif.else*/ + /*_.IFCPP___V43*/ meltfptr[41] = (/*nil*/NULL); + #endif /*ENABLE_CHECKING*/ + ; + + #if ENABLE_CHECKING + MELT_LOCATION("warmelt-normatch.melt:3338:/ cppif.then"); + /*^block*/ + /*anyblock*/{ + + /*_#THE_MELTCALLCOUNT__L13*/ meltfnum[7] = + meltcallcount;; + MELT_LOCATION("warmelt-normatch.melt:3338:/ apply"); + /*apply*/{ + union meltparam_un argtab[4]; + memset(&argtab, 0, sizeof(argtab)); + /*^apply.arg*/ + argtab[0].bp_cstring = "translpat_patmat souts"; + /*^apply.arg*/ + argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L13*/ meltfnum[7]; + /*^apply.arg*/ + argtab[2].bp_cstring = "warmelt-normatch.melt"; + /*^apply.arg*/ + argtab[3].bp_long = 3338; + /*_.DEBUG_MSG_FUN__V46*/ meltfptr[45] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.SOUTS__V25*/ meltfptr[24]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + } + ; + /*_.IFCPP___V45*/ meltfptr[43] = /*_.DEBUG_MSG_FUN__V46*/ meltfptr[45];; + /*epilog*/ + + MELT_LOCATION("warmelt-normatch.melt:3338:/ clear"); + /*clear*/ /*_#THE_MELTCALLCOUNT__L13*/ meltfnum[7] = 0 ; + /*^clear*/ + /*clear*/ /*_.DEBUG_MSG_FUN__V46*/ meltfptr[45] = 0 ;} + + #else /*ENABLE_CHECKING*/ + /*^cppif.else*/ + /*_.IFCPP___V45*/ meltfptr[43] = (/*nil*/NULL); + #endif /*ENABLE_CHECKING*/ + ; + + #if ENABLE_CHECKING + MELT_LOCATION("warmelt-normatch.melt:3339:/ cppif.then"); + /*^block*/ + /*anyblock*/{ + + /*_#THE_MELTCALLCOUNT__L14*/ meltfnum[7] = + meltcallcount;; + MELT_LOCATION("warmelt-normatch.melt:3339:/ apply"); + /*apply*/{ + union meltparam_un argtab[4]; + memset(&argtab, 0, sizeof(argtab)); + /*^apply.arg*/ + argtab[0].bp_cstring = "translpat_patmat sopbind"; + /*^apply.arg*/ + argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L14*/ meltfnum[7]; + /*^apply.arg*/ + argtab[2].bp_cstring = "warmelt-normatch.melt"; + /*^apply.arg*/ + argtab[3].bp_long = 3339; + /*_.DEBUG_MSG_FUN__V48*/ meltfptr[47] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.SOPBIND__V22*/ meltfptr[21]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + } + ; + /*_.IFCPP___V47*/ meltfptr[45] = /*_.DEBUG_MSG_FUN__V48*/ meltfptr[47];; + /*epilog*/ + + MELT_LOCATION("warmelt-normatch.melt:3339:/ clear"); + /*clear*/ /*_#THE_MELTCALLCOUNT__L14*/ meltfnum[7] = 0 ; + /*^clear*/ + /*clear*/ /*_.DEBUG_MSG_FUN__V48*/ meltfptr[47] = 0 ;} + + #else /*ENABLE_CHECKING*/ + /*^cppif.else*/ + /*_.IFCPP___V47*/ meltfptr[45] = (/*nil*/NULL); + #endif /*ENABLE_CHECKING*/ + ; + MELT_LOCATION("warmelt-normatch.melt:3340:/ quasiblock"); + + + /*^multiapply*/ + /*multiapply 4args, 1x.res*/ { + union meltparam_un argtab[3]; + + union meltparam_un restab[1]; + memset(&restab, 0, sizeof(restab)); + memset(&argtab, 0, sizeof(argtab)); + /*^multiapply.arg*/ + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.ENV__V27*/ meltfptr[26];/*^multiapply.arg*/ + argtab[1].bp_aptr = (melt_ptr_t*) &/*_.NCX__V28*/ meltfptr[27];/*^multiapply.arg*/ + argtab[2].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V21*/ meltfptr[20]; + /*^multiapply.xres*/ + restab[0].bp_aptr = (melt_ptr_t*) &/*_.INBINDS__V51*/ meltfptr[50]; + /*^multiapply.appl*/ + /*_.NINS__V50*/ meltfptr[49] = melt_apply ((meltclosure_ptr_t)((/*!NORMALIZE_TUPLE*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.SINS__V24*/ meltfptr[23]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, (BPARSTR_PTR ""), restab); + } + ; + /*^quasiblock*/ + + + + #if ENABLE_CHECKING + MELT_LOCATION("warmelt-normatch.melt:3343:/ cppif.then"); + /*^block*/ + /*anyblock*/{ + + /*_#THE_MELTCALLCOUNT__L15*/ meltfnum[7] = + meltcallcount;; + MELT_LOCATION("warmelt-normatch.melt:3343:/ apply"); + /*apply*/{ + union meltparam_un argtab[4]; + memset(&argtab, 0, sizeof(argtab)); + /*^apply.arg*/ + argtab[0].bp_cstring = "translpat_patmat nins"; + /*^apply.arg*/ + argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L15*/ meltfnum[7]; + /*^apply.arg*/ + argtab[2].bp_cstring = "warmelt-normatch.melt"; + /*^apply.arg*/ + argtab[3].bp_long = 3343; + /*_.DEBUG_MSG_FUN__V53*/ meltfptr[52] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.NINS__V50*/ meltfptr[49]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + } + ; + /*_.IFCPP___V52*/ meltfptr[51] = /*_.DEBUG_MSG_FUN__V53*/ meltfptr[52];; + /*epilog*/ + + MELT_LOCATION("warmelt-normatch.melt:3343:/ clear"); + /*clear*/ /*_#THE_MELTCALLCOUNT__L15*/ meltfnum[7] = 0 ; + /*^clear*/ + /*clear*/ /*_.DEBUG_MSG_FUN__V53*/ meltfptr[52] = 0 ;} + + #else /*ENABLE_CHECKING*/ + /*^cppif.else*/ + /*_.IFCPP___V52*/ meltfptr[51] = (/*nil*/NULL); + #endif /*ENABLE_CHECKING*/ + ; + + #if ENABLE_CHECKING + MELT_LOCATION("warmelt-normatch.melt:3344:/ cppif.then"); + /*^block*/ + /*anyblock*/{ + + /*_#THE_MELTCALLCOUNT__L16*/ meltfnum[7] = + meltcallcount;; + MELT_LOCATION("warmelt-normatch.melt:3344:/ apply"); + /*apply*/{ + union meltparam_un argtab[4]; + memset(&argtab, 0, sizeof(argtab)); + /*^apply.arg*/ + argtab[0].bp_cstring = "translpat_patmat inbinds"; + /*^apply.arg*/ + argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L16*/ meltfnum[7]; + /*^apply.arg*/ + argtab[2].bp_cstring = "warmelt-normatch.melt"; + /*^apply.arg*/ + argtab[3].bp_long = 3344; + /*_.DEBUG_MSG_FUN__V55*/ meltfptr[54] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.INBINDS__V51*/ meltfptr[50]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + } + ; + /*_.IFCPP___V54*/ meltfptr[52] = /*_.DEBUG_MSG_FUN__V55*/ meltfptr[54];; + /*epilog*/ + + MELT_LOCATION("warmelt-normatch.melt:3344:/ clear"); + /*clear*/ /*_#THE_MELTCALLCOUNT__L16*/ meltfnum[7] = 0 ; + /*^clear*/ + /*clear*/ /*_.DEBUG_MSG_FUN__V55*/ meltfptr[54] = 0 ;} + + #else /*ENABLE_CHECKING*/ + /*^cppif.else*/ + /*_.IFCPP___V54*/ meltfptr[52] = (/*nil*/NULL); + #endif /*ENABLE_CHECKING*/ + ; + + #if ENABLE_CHECKING + MELT_LOCATION("warmelt-normatch.melt:3345:/ cppif.then"); + /*^block*/ + /*anyblock*/{ + + /*_#IS_LIST_OR_NULL__L17*/ meltfnum[7] = + ((/*_.INBINDS__V51*/ meltfptr[50]) == NULL + || (melt_unsafe_magic_discr((melt_ptr_t)(/*_.INBINDS__V51*/ meltfptr[50])) == OBMAG_LIST));; + MELT_LOCATION("warmelt-normatch.melt:3345:/ cond"); + /*cond*/ if (/*_#IS_LIST_OR_NULL__L17*/ meltfnum[7]) /*then*/ { + /*^cond.then*/ + /*_.IFELSE___V57*/ meltfptr[56] = (/*nil*/NULL);; + } else {MELT_LOCATION("warmelt-normatch.melt:3345:/ cond.else"); + + /*^block*/ + /*anyblock*/{ + + + + + { + /*^locexp*/ + melt_assert_failed(( "check inbinds"),( "warmelt-normatch.melt")?( "warmelt-normatch.melt"):__FILE__, + (3345)?(3345):__LINE__, __FUNCTION__); +;} + ; + /*clear*/ /*_.IFELSE___V57*/ meltfptr[56] = 0 ; + /*epilog*/ + } + ; + } + ; + /*^compute*/ + + /*_.IFCPP___V56*/ meltfptr[54] = /*_.IFELSE___V57*/ meltfptr[56];; + /*epilog*/ + + MELT_LOCATION("warmelt-normatch.melt:3345:/ clear"); + /*clear*/ /*_#IS_LIST_OR_NULL__L17*/ meltfnum[7] = 0 ; + /*^clear*/ + /*clear*/ /*_.IFELSE___V57*/ meltfptr[56] = 0 ;} + + #else /*ENABLE_CHECKING*/ + /*^cppif.else*/ + /*_.IFCPP___V56*/ meltfptr[54] = (/*nil*/NULL); + #endif /*ENABLE_CHECKING*/ + ; + /*^compute*/ + + /*_#MULTIPLE_LENGTH__L18*/ meltfnum[7] = + (melt_multiple_length((melt_ptr_t)(/*_.NINS__V50*/ meltfptr[49])));; + /*^compute*/ + + /*_#MULTIPLE_LENGTH__L19*/ meltfnum[18] = + (melt_multiple_length((melt_ptr_t)(/*_.OPIN__V29*/ meltfptr[28])));; + /*^compute*/ + + /*_#I__L20*/ meltfnum[19] = + ((/*_#MULTIPLE_LENGTH__L18*/ meltfnum[7]) != (/*_#MULTIPLE_LENGTH__L19*/ meltfnum[18]));; + MELT_LOCATION("warmelt-normatch.melt:3346:/ cond"); + /*cond*/ if (/*_#I__L20*/ meltfnum[19]) /*then*/ { + /*^cond.then*/ + /*^block*/ + /*anyblock*/{ + + MELT_LOCATION("warmelt-normatch.melt:3348:/ cond"); + /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.SOPER__V23*/ meltfptr[22]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[7])))) /*then*/ { + /*^cond.then*/ + /*^getslot*/ + { melt_ptr_t slot=0; + melt_object_get_field(slot,(melt_ptr_t)(/*_.SOPER__V23*/ meltfptr[22]), 1, "NAMED_NAME");/*_.NAMED_NAME__V58*/ meltfptr[56] = slot; }; + ; + } else {/*^cond.else*/ + + /*_.NAMED_NAME__V58*/ meltfptr[56] = NULL;; + } + ; + + { + MELT_LOCATION("warmelt-normatch.melt:3347:/ locexp"); + melt_error_str((melt_ptr_t)(/*_.SLOC__V21*/ meltfptr[20]), ( "bad input arity of matcher in pattern"), (melt_ptr_t)(/*_.NAMED_NAME__V58*/ meltfptr[56]));} + ; + /*epilog*/ + + MELT_LOCATION("warmelt-normatch.melt:3346:/ clear"); + /*clear*/ /*_.NAMED_NAME__V58*/ meltfptr[56] = 0 ;} + ; + } /*noelse*/ + ; + /*citerblock FOREACH_IN_MULTIPLE*/ { + /* start cit1__EACHTUP: */ + long cit1__EACHTUP_ln = melt_multiple_length((melt_ptr_t)/*_.NINS__V50*/ meltfptr[49]); + for (/*_#NIX__L21*/ meltfnum[20] = 0; + (/*_#NIX__L21*/ meltfnum[20] >= 0) && (/*_#NIX__L21*/ meltfnum[20] < cit1__EACHTUP_ln); + /*_#NIX__L21*/ meltfnum[20]++) { + /*_.CURNIN__V59*/ meltfptr[56] = melt_multiple_nth((melt_ptr_t)(/*_.NINS__V50*/ meltfptr[49]), /*_#NIX__L21*/ meltfnum[20]); + + + + MELT_LOCATION("warmelt-normatch.melt:3352:/ quasiblock"); + + + /*_.CUROPIN__V61*/ meltfptr[60] = + (melt_multiple_nth((melt_ptr_t)(/*_.OPIN__V29*/ meltfptr[28]), (/*_#NIX__L21*/ meltfnum[20])));; + MELT_LOCATION("warmelt-normatch.melt:3353:/ msend"); + /*msend*/{ + union meltparam_un argtab[1]; + memset(&argtab, 0, sizeof(argtab)); + /*^ojbmsend.arg*/ + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.ENV__V27*/ meltfptr[26]; + /*_.CURCTYP__V62*/ meltfptr[61] = meltgc_send((melt_ptr_t)(/*_.CURNIN__V59*/ meltfptr[56]), (melt_ptr_t)((/*!GET_CTYPE*/ meltfrout->tabval[10])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + } + ; + MELT_LOCATION("warmelt-normatch.melt:3354:/ cond"); + /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CUROPIN__V61*/ meltfptr[60]), (melt_ptr_t)((/*!CLASS_FORMAL_BINDING*/ meltfrout->tabval[11])))) /*then*/ { + /*^cond.then*/ + /*^getslot*/ + { melt_ptr_t slot=0; + melt_object_get_field(slot,(melt_ptr_t)(/*_.CUROPIN__V61*/ meltfptr[60]), 1, "FBIND_TYPE");/*_.INCTYP__V63*/ meltfptr[62] = slot; }; + ; + } else {/*^cond.else*/ + + /*_.INCTYP__V63*/ meltfptr[62] = NULL;; + } + ; + + #if ENABLE_CHECKING + MELT_LOCATION("warmelt-normatch.melt:3356:/ cppif.then"); + /*^block*/ + /*anyblock*/{ + + /*_#THE_MELTCALLCOUNT__L22*/ meltfnum[21] = + meltcallcount;; + MELT_LOCATION("warmelt-normatch.melt:3356:/ apply"); + /*apply*/{ + union meltparam_un argtab[4]; + memset(&argtab, 0, sizeof(argtab)); + /*^apply.arg*/ + argtab[0].bp_cstring = "translpat_patmat curnin"; + /*^apply.arg*/ + argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L22*/ meltfnum[21]; + /*^apply.arg*/ + argtab[2].bp_cstring = "warmelt-normatch.melt"; + /*^apply.arg*/ + argtab[3].bp_long = 3356; + /*_.DEBUG_MSG_FUN__V65*/ meltfptr[64] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.CURNIN__V59*/ meltfptr[56]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + } + ; + /*_.IFCPP___V64*/ meltfptr[63] = /*_.DEBUG_MSG_FUN__V65*/ meltfptr[64];; + /*epilog*/ + + MELT_LOCATION("warmelt-normatch.melt:3356:/ clear"); + /*clear*/ /*_#THE_MELTCALLCOUNT__L22*/ meltfnum[21] = 0 ; + /*^clear*/ + /*clear*/ /*_.DEBUG_MSG_FUN__V65*/ meltfptr[64] = 0 ;} + + #else /*ENABLE_CHECKING*/ + /*^cppif.else*/ + /*_.IFCPP___V64*/ meltfptr[63] = (/*nil*/NULL); + #endif /*ENABLE_CHECKING*/ + ; + + #if ENABLE_CHECKING + MELT_LOCATION("warmelt-normatch.melt:3357:/ cppif.then"); + /*^block*/ + /*anyblock*/{ + + /*_#THE_MELTCALLCOUNT__L23*/ meltfnum[21] = + meltcallcount;; + MELT_LOCATION("warmelt-normatch.melt:3357:/ apply"); + /*apply*/{ + union meltparam_un argtab[4]; + memset(&argtab, 0, sizeof(argtab)); + /*^apply.arg*/ + argtab[0].bp_cstring = "translpat_patmat curopin"; + /*^apply.arg*/ + argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L23*/ meltfnum[21]; + /*^apply.arg*/ + argtab[2].bp_cstring = "warmelt-normatch.melt"; + /*^apply.arg*/ + argtab[3].bp_long = 3357; + /*_.DEBUG_MSG_FUN__V67*/ meltfptr[66] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.CUROPIN__V61*/ meltfptr[60]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + } + ; + /*_.IFCPP___V66*/ meltfptr[64] = /*_.DEBUG_MSG_FUN__V67*/ meltfptr[66];; + /*epilog*/ + + MELT_LOCATION("warmelt-normatch.melt:3357:/ clear"); + /*clear*/ /*_#THE_MELTCALLCOUNT__L23*/ meltfnum[21] = 0 ; + /*^clear*/ + /*clear*/ /*_.DEBUG_MSG_FUN__V67*/ meltfptr[66] = 0 ;} + + #else /*ENABLE_CHECKING*/ + /*^cppif.else*/ + /*_.IFCPP___V66*/ meltfptr[64] = (/*nil*/NULL); + #endif /*ENABLE_CHECKING*/ + ; + + #if ENABLE_CHECKING + MELT_LOCATION("warmelt-normatch.melt:3358:/ cppif.then"); + /*^block*/ + /*anyblock*/{ + + /*_#THE_MELTCALLCOUNT__L24*/ meltfnum[21] = + meltcallcount;; + MELT_LOCATION("warmelt-normatch.melt:3358:/ apply"); + /*apply*/{ + union meltparam_un argtab[4]; + memset(&argtab, 0, sizeof(argtab)); + /*^apply.arg*/ + argtab[0].bp_cstring = "translpat_patmat curctyp"; + /*^apply.arg*/ + argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L24*/ meltfnum[21]; + /*^apply.arg*/ + argtab[2].bp_cstring = "warmelt-normatch.melt"; + /*^apply.arg*/ + argtab[3].bp_long = 3358; + /*_.DEBUG_MSG_FUN__V69*/ meltfptr[68] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.CURCTYP__V62*/ meltfptr[61]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + } + ; + /*_.IFCPP___V68*/ meltfptr[66] = /*_.DEBUG_MSG_FUN__V69*/ meltfptr[68];; + /*epilog*/ + + MELT_LOCATION("warmelt-normatch.melt:3358:/ clear"); + /*clear*/ /*_#THE_MELTCALLCOUNT__L24*/ meltfnum[21] = 0 ; + /*^clear*/ + /*clear*/ /*_.DEBUG_MSG_FUN__V69*/ meltfptr[68] = 0 ;} + + #else /*ENABLE_CHECKING*/ + /*^cppif.else*/ + /*_.IFCPP___V68*/ meltfptr[66] = (/*nil*/NULL); + #endif /*ENABLE_CHECKING*/ + ; + + #if ENABLE_CHECKING + MELT_LOCATION("warmelt-normatch.melt:3359:/ cppif.then"); + /*^block*/ + /*anyblock*/{ + + /*_#IS_A__L25*/ meltfnum[21] = + melt_is_instance_of((melt_ptr_t)(/*_.CUROPIN__V61*/ meltfptr[60]), (melt_ptr_t)((/*!CLASS_FORMAL_BINDING*/ meltfrout->tabval[11])));; + MELT_LOCATION("warmelt-normatch.melt:3359:/ cond"); + /*cond*/ if (/*_#IS_A__L25*/ meltfnum[21]) /*then*/ { + /*^cond.then*/ + /*_.IFELSE___V71*/ meltfptr[70] = (/*nil*/NULL);; + } else {MELT_LOCATION("warmelt-normatch.melt:3359:/ cond.else"); + + /*^block*/ + /*anyblock*/{ + + + + + { + /*^locexp*/ + melt_assert_failed(( "check curopin"),( "warmelt-normatch.melt")?( "warmelt-normatch.melt"):__FILE__, + (3359)?(3359):__LINE__, __FUNCTION__); +;} + ; + /*clear*/ /*_.IFELSE___V71*/ meltfptr[70] = 0 ; + /*epilog*/ + } + ; + } + ; + /*^compute*/ + + /*_.IFCPP___V70*/ meltfptr[68] = /*_.IFELSE___V71*/ meltfptr[70];; + /*epilog*/ + + MELT_LOCATION("warmelt-normatch.melt:3359:/ clear"); + /*clear*/ /*_#IS_A__L25*/ meltfnum[21] = 0 ; + /*^clear*/ + /*clear*/ /*_.IFELSE___V71*/ meltfptr[70] = 0 ;} + + #else /*ENABLE_CHECKING*/ + /*^cppif.else*/ + /*_.IFCPP___V70*/ meltfptr[68] = (/*nil*/NULL); + #endif /*ENABLE_CHECKING*/ + ; + + #if ENABLE_CHECKING + MELT_LOCATION("warmelt-normatch.melt:3360:/ cppif.then"); + /*^block*/ + /*anyblock*/{ + + /*_#IS_A__L26*/ meltfnum[21] = + melt_is_instance_of((melt_ptr_t)(/*_.CURCTYP__V62*/ meltfptr[61]), (melt_ptr_t)((/*!CLASS_CTYPE*/ meltfrout->tabval[12])));; + MELT_LOCATION("warmelt-normatch.melt:3360:/ cond"); + /*cond*/ if (/*_#IS_A__L26*/ meltfnum[21]) /*then*/ { + /*^cond.then*/ + /*_.IFELSE___V73*/ meltfptr[72] = (/*nil*/NULL);; + } else {MELT_LOCATION("warmelt-normatch.melt:3360:/ cond.else"); + + /*^block*/ + /*anyblock*/{ + + + + + { + /*^locexp*/ + melt_assert_failed(( "check curctyp"),( "warmelt-normatch.melt")?( "warmelt-normatch.melt"):__FILE__, + (3360)?(3360):__LINE__, __FUNCTION__); +;} + ; + /*clear*/ /*_.IFELSE___V73*/ meltfptr[72] = 0 ; + /*epilog*/ + } + ; + } + ; + /*^compute*/ + + /*_.IFCPP___V72*/ meltfptr[70] = /*_.IFELSE___V73*/ meltfptr[72];; + /*epilog*/ + + MELT_LOCATION("warmelt-normatch.melt:3360:/ clear"); + /*clear*/ /*_#IS_A__L26*/ meltfnum[21] = 0 ; + /*^clear*/ + /*clear*/ /*_.IFELSE___V73*/ meltfptr[72] = 0 ;} + + #else /*ENABLE_CHECKING*/ + /*^cppif.else*/ + /*_.IFCPP___V72*/ meltfptr[70] = (/*nil*/NULL); + #endif /*ENABLE_CHECKING*/ + ; + /*^compute*/ + + /*_#__L27*/ meltfnum[21] = + ((/*_.CURCTYP__V62*/ meltfptr[61]) != (/*_.INCTYP__V63*/ meltfptr[62]));; + MELT_LOCATION("warmelt-normatch.melt:3361:/ cond"); + /*cond*/ if (/*_#__L27*/ meltfnum[21]) /*then*/ { + /*^cond.then*/ + /*^block*/ + /*anyblock*/{ + + MELT_LOCATION("warmelt-normatch.melt:3364:/ cond"); + /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.INCTYP__V63*/ meltfptr[62]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[7])))) /*then*/ { + /*^cond.then*/ + /*^getslot*/ + { melt_ptr_t slot=0; + melt_object_get_field(slot,(melt_ptr_t)(/*_.INCTYP__V63*/ meltfptr[62]), 1, "NAMED_NAME");/*_.NAMED_NAME__V75*/ meltfptr[74] = slot; }; + ; + } else {/*^cond.else*/ + + /*_.NAMED_NAME__V75*/ meltfptr[74] = NULL;; + } + ; + + { + MELT_LOCATION("warmelt-normatch.melt:3363:/ locexp"); + melt_error_str((melt_ptr_t)(/*_.SLOC__V21*/ meltfptr[20]), ( "bad input type in matcher, expecting"), (melt_ptr_t)(/*_.NAMED_NAME__V75*/ meltfptr[74]));} + ; + MELT_LOCATION("warmelt-normatch.melt:3367:/ cond"); + /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CUROPIN__V61*/ meltfptr[60]), (melt_ptr_t)((/*!CLASS_ANY_BINDING*/ meltfrout->tabval[13])))) /*then*/ { + /*^cond.then*/ + /*^getslot*/ + { melt_ptr_t slot=0; + melt_object_get_field(slot,(melt_ptr_t)(/*_.CUROPIN__V61*/ meltfptr[60]), 0, "BINDER");/*_.BINDER__V76*/ meltfptr[75] = slot; }; + ; + } else {/*^cond.else*/ + + /*_.BINDER__V76*/ meltfptr[75] = NULL;; + } + ; + MELT_LOCATION("warmelt-normatch.melt:3367:/ cond"); + /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.BINDER__V76*/ meltfptr[75]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[7])))) /*then*/ { + /*^cond.then*/ + /*^getslot*/ + { melt_ptr_t slot=0; + melt_object_get_field(slot,(melt_ptr_t)(/*_.BINDER__V76*/ meltfptr[75]), 1, "NAMED_NAME");/*_.NAMED_NAME__V77*/ meltfptr[76] = slot; }; + ; + } else {/*^cond.else*/ + + /*_.NAMED_NAME__V77*/ meltfptr[76] = NULL;; + } + ; + + { + MELT_LOCATION("warmelt-normatch.melt:3365:/ locexp"); + melt_error_str((melt_ptr_t)(/*_.SLOC__V21*/ meltfptr[20]), ( "mistyped formal name in matcher is"), (melt_ptr_t)(/*_.NAMED_NAME__V77*/ meltfptr[76]));} + ; + MELT_LOCATION("warmelt-normatch.melt:3369:/ cond"); + /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURCTYP__V62*/ meltfptr[61]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[7])))) /*then*/ { + /*^cond.then*/ + /*^getslot*/ + { melt_ptr_t slot=0; + melt_object_get_field(slot,(melt_ptr_t)(/*_.CURCTYP__V62*/ meltfptr[61]), 1, "NAMED_NAME");/*_.NAMED_NAME__V78*/ meltfptr[77] = slot; }; + ; + } else {/*^cond.else*/ + + /*_.NAMED_NAME__V78*/ meltfptr[77] = NULL;; + } + ; + + { + MELT_LOCATION("warmelt-normatch.melt:3368:/ locexp"); + melt_error_str((melt_ptr_t)(/*_.SLOC__V21*/ meltfptr[20]), ( "got input type in matcher"), (melt_ptr_t)(/*_.NAMED_NAME__V78*/ meltfptr[77]));} + ; + MELT_LOCATION("warmelt-normatch.melt:3370:/ quasiblock"); + + + /*_.RETVAL___V1*/ meltfptr[0] = NULL;; + MELT_LOCATION("warmelt-normatch.melt:3370:/ finalreturn"); + ; + /*finalret*/ goto labend_rout ; + MELT_LOCATION("warmelt-normatch.melt:3362:/ quasiblock"); + + + /*_.PROGN___V80*/ meltfptr[79] = /*_.RETURN___V79*/ meltfptr[78];; + /*^compute*/ + + /*_.IF___V74*/ meltfptr[72] = /*_.PROGN___V80*/ meltfptr[79];; + /*epilog*/ + + MELT_LOCATION("warmelt-normatch.melt:3361:/ clear"); + /*clear*/ /*_.NAMED_NAME__V75*/ meltfptr[74] = 0 ; + /*^clear*/ + /*clear*/ /*_.BINDER__V76*/ meltfptr[75] = 0 ; + /*^clear*/ + /*clear*/ /*_.NAMED_NAME__V77*/ meltfptr[76] = 0 ; + /*^clear*/ + /*clear*/ /*_.NAMED_NAME__V78*/ meltfptr[77] = 0 ; + /*^clear*/ + /*clear*/ /*_.RETURN___V79*/ meltfptr[78] = 0 ; + /*^clear*/ + /*clear*/ /*_.PROGN___V80*/ meltfptr[79] = 0 ;} + ; + } else {/*^cond.else*/ + + /*_.IF___V74*/ meltfptr[72] = NULL;; + } + ; + /*^compute*/ + + /*_.LET___V60*/ meltfptr[59] = /*_.IF___V74*/ meltfptr[72];; + + MELT_LOCATION("warmelt-normatch.melt:3352:/ clear"); + /*clear*/ /*_.CUROPIN__V61*/ meltfptr[60] = 0 ; + /*^clear*/ + /*clear*/ /*_.CURCTYP__V62*/ meltfptr[61] = 0 ; + /*^clear*/ + /*clear*/ /*_.INCTYP__V63*/ meltfptr[62] = 0 ; + /*^clear*/ + /*clear*/ /*_.IFCPP___V64*/ meltfptr[63] = 0 ; + /*^clear*/ + /*clear*/ /*_.IFCPP___V66*/ meltfptr[64] = 0 ; + /*^clear*/ + /*clear*/ /*_.IFCPP___V68*/ meltfptr[66] = 0 ; + /*^clear*/ + /*clear*/ /*_.IFCPP___V70*/ meltfptr[68] = 0 ; + /*^clear*/ + /*clear*/ /*_.IFCPP___V72*/ meltfptr[70] = 0 ; + /*^clear*/ + /*clear*/ /*_#__L27*/ meltfnum[21] = 0 ; + /*^clear*/ + /*clear*/ /*_.IF___V74*/ meltfptr[72] = 0 ; + if (/*_#NIX__L21*/ meltfnum[20]<0) break; + } /* end cit1__EACHTUP */ + + /*citerepilog*/ + + MELT_LOCATION("warmelt-normatch.melt:3349:/ clear"); + /*clear*/ /*_.CURNIN__V59*/ meltfptr[56] = 0 ; + /*^clear*/ + /*clear*/ /*_#NIX__L21*/ meltfnum[20] = 0 ; + /*^clear*/ + /*clear*/ /*_.LET___V60*/ meltfptr[59] = 0 ;} /*endciterblock FOREACH_IN_MULTIPLE*/ + ; + MELT_LOCATION("warmelt-normatch.melt:3373:/ quasiblock"); + + + /*_.LASTSTEPTEST__V82*/ meltfptr[75] = (/*nil*/NULL);; + /*citerblock FOREACH_IN_LIST*/ { + /* start cit2__EACHLIST */ + for (/*_.CURPAIRSTEP__V83*/ meltfptr[76] = melt_list_first(/*_.MDATASTEPS__V32*/ meltfptr[31]); + melt_magic_discr(/*_.CURPAIRSTEP__V83*/ meltfptr[76]) == OBMAG_PAIR; + /*_.CURPAIRSTEP__V83*/ meltfptr[76] = melt_pair_tail(/*_.CURPAIRSTEP__V83*/ meltfptr[76])) { + /*_.CURDATASTEP__V84*/ meltfptr[77] = melt_pair_head(/*_.CURPAIRSTEP__V83*/ meltfptr[76]); + + + + #if ENABLE_CHECKING + MELT_LOCATION("warmelt-normatch.melt:3379:/ cppif.then"); + /*^block*/ + /*anyblock*/{ + + /*_#IS_A__L28*/ meltfnum[21] = + melt_is_instance_of((melt_ptr_t)(/*_.CURDATASTEP__V84*/ meltfptr[77]), (melt_ptr_t)((/*!CLASS_MATCH_STEP*/ meltfrout->tabval[14])));; + MELT_LOCATION("warmelt-normatch.melt:3379:/ cond"); + /*cond*/ if (/*_#IS_A__L28*/ meltfnum[21]) /*then*/ { + /*^cond.then*/ + /*_.IFELSE___V86*/ meltfptr[79] = (/*nil*/NULL);; + } else {MELT_LOCATION("warmelt-normatch.melt:3379:/ cond.else"); + + /*^block*/ + /*anyblock*/{ + + + + + { + /*^locexp*/ + melt_assert_failed(( "check curdatastep"),( "warmelt-normatch.melt")?( "warmelt-normatch.melt"):__FILE__, + (3379)?(3379):__LINE__, __FUNCTION__); +;} + ; + /*clear*/ /*_.IFELSE___V86*/ meltfptr[79] = 0 ; + /*epilog*/ + } + ; + } + ; + /*^compute*/ + + /*_.IFCPP___V85*/ meltfptr[78] = /*_.IFELSE___V86*/ meltfptr[79];; + /*epilog*/ + + MELT_LOCATION("warmelt-normatch.melt:3379:/ clear"); + /*clear*/ /*_#IS_A__L28*/ meltfnum[21] = 0 ; + /*^clear*/ + /*clear*/ /*_.IFELSE___V86*/ meltfptr[79] = 0 ;} + + #else /*ENABLE_CHECKING*/ + /*^cppif.else*/ + /*_.IFCPP___V85*/ meltfptr[78] = (/*nil*/NULL); + #endif /*ENABLE_CHECKING*/ + ; + /*^compute*/ + + /*_#IS_A__L29*/ meltfnum[21] = + melt_is_instance_of((melt_ptr_t)(/*_.CURDATASTEP__V84*/ meltfptr[77]), (melt_ptr_t)((/*!CLASS_MATCH_STEP_TEST*/ meltfrout->tabval[15])));; + MELT_LOCATION("warmelt-normatch.melt:3380:/ cond"); + /*cond*/ if (/*_#IS_A__L29*/ meltfnum[21]) /*then*/ { + /*^cond.then*/ + /*^block*/ + /*anyblock*/{ + + MELT_LOCATION("warmelt-normatch.melt:3381:/ compute"); + /*_.LASTSTEPTEST__V82*/ meltfptr[75] = /*_.SETQ___V88*/ meltfptr[61] = /*_.CURDATASTEP__V84*/ meltfptr[77];; + /*_.IF___V87*/ meltfptr[60] = /*_.SETQ___V88*/ meltfptr[61];; + /*epilog*/ + + MELT_LOCATION("warmelt-normatch.melt:3380:/ clear"); + /*clear*/ /*_.SETQ___V88*/ meltfptr[61] = 0 ;} + ; + } else {/*^cond.else*/ + + /*_.IF___V87*/ meltfptr[60] = NULL;; + } + ; + /*^compute*/ + + /*_#IS_A__L30*/ meltfnum[29] = + melt_is_instance_of((melt_ptr_t)(/*_.CURDATASTEP__V84*/ meltfptr[77]), (melt_ptr_t)((/*!CLASS_MATCH_STEP_TEST_MATCHER*/ meltfrout->tabval[16])));; + MELT_LOCATION("warmelt-normatch.melt:3382:/ cond"); + /*cond*/ if (/*_#IS_A__L30*/ meltfnum[29]) /*then*/ { + /*^cond.then*/ + /*^block*/ + /*anyblock*/{ + + MELT_LOCATION("warmelt-normatch.melt:3384:/ getslot"); + { melt_ptr_t slot=0; + melt_object_get_field(slot,(melt_ptr_t)(/*_.CURDATASTEP__V84*/ meltfptr[77]), 2, "MSTEP_DATA");/*_.MSTEP_DATA__V89*/ meltfptr[62] = slot; }; + ; + /*_#__L32*/ meltfnum[31] = + ((/*_.MSTEP_DATA__V89*/ meltfptr[62]) == (/*_.MDATA__V3*/ meltfptr[2]));; + MELT_LOCATION("warmelt-normatch.melt:3382:/ cond"); + /*cond*/ if (/*_#__L32*/ meltfnum[31]) /*then*/ { + /*^cond.then*/ + /*^block*/ + /*anyblock*/{ + + MELT_LOCATION("warmelt-normatch.melt:3385:/ getslot"); + { melt_ptr_t slot=0; + melt_object_get_field(slot,(melt_ptr_t)(/*_.CURDATASTEP__V84*/ meltfptr[77]), 5, "MSTMA_MATCHER");/*_.MSTMA_MATCHER__V90*/ meltfptr[63] = slot; }; + ; + /*_#__L34*/ meltfnum[33] = + ((/*_.MSTMA_MATCHER__V90*/ meltfptr[63]) == (/*_.SOPER__V23*/ meltfptr[22]));; + MELT_LOCATION("warmelt-normatch.melt:3382:/ cond"); + /*cond*/ if (/*_#__L34*/ meltfnum[33]) /*then*/ { + /*^cond.then*/ + /*^block*/ + /*anyblock*/{ + + /*_#LIST_LENGTH__L36*/ meltfnum[35] = + (melt_list_length((melt_ptr_t)(/*_.INBINDS__V51*/ meltfptr[50])));; + /*^compute*/ + + /*_#I__L37*/ meltfnum[36] = + ((/*_#LIST_LENGTH__L36*/ meltfnum[35]) == (0));; + MELT_LOCATION("warmelt-normatch.melt:3382:/ cond"); + /*cond*/ if (/*_#I__L37*/ meltfnum[36]) /*then*/ { + /*^cond.then*/ + /*^block*/ + /*anyblock*/{ + + MELT_LOCATION("warmelt-normatch.melt:3387:/ getslot"); + { melt_ptr_t slot=0; + melt_object_get_field(slot,(melt_ptr_t)(/*_.CURDATASTEP__V84*/ meltfptr[77]), 6, "MSTMA_BINDS");/*_.MSTMA_BINDS__V91*/ meltfptr[64] = slot; }; + ; + /*_#LIST_LENGTH__L39*/ meltfnum[38] = + (melt_list_length((melt_ptr_t)(/*_.MSTMA_BINDS__V91*/ meltfptr[64])));; + /*^compute*/ + + /*_#I__L40*/ meltfnum[39] = + ((/*_#LIST_LENGTH__L39*/ meltfnum[38]) == (0));; + /*^compute*/ + + /*_#IF___L38*/ meltfnum[37] = /*_#I__L40*/ meltfnum[39];; + /*epilog*/ + + MELT_LOCATION("warmelt-normatch.melt:3382:/ clear"); + /*clear*/ /*_.MSTMA_BINDS__V91*/ meltfptr[64] = 0 ; + /*^clear*/ + /*clear*/ /*_#LIST_LENGTH__L39*/ meltfnum[38] = 0 ; + /*^clear*/ + /*clear*/ /*_#I__L40*/ meltfnum[39] = 0 ;} + ; + } else {/*^cond.else*/ + + /*_#IF___L38*/ meltfnum[37] = 0;; + } + ; + /*^compute*/ + + /*_#IF___L35*/ meltfnum[34] = /*_#IF___L38*/ meltfnum[37];; + /*epilog*/ + + MELT_LOCATION("warmelt-normatch.melt:3382:/ clear"); + /*clear*/ /*_#LIST_LENGTH__L36*/ meltfnum[35] = 0 ; + /*^clear*/ + /*clear*/ /*_#I__L37*/ meltfnum[36] = 0 ; + /*^clear*/ + /*clear*/ /*_#IF___L38*/ meltfnum[37] = 0 ;} + ; + } else {/*^cond.else*/ + + /*_#IF___L35*/ meltfnum[34] = 0;; + } + ; + /*^compute*/ + + /*_#IF___L33*/ meltfnum[32] = /*_#IF___L35*/ meltfnum[34];; + /*epilog*/ + + MELT_LOCATION("warmelt-normatch.melt:3382:/ clear"); + /*clear*/ /*_.MSTMA_MATCHER__V90*/ meltfptr[63] = 0 ; + /*^clear*/ + /*clear*/ /*_#__L34*/ meltfnum[33] = 0 ; + /*^clear*/ + /*clear*/ /*_#IF___L35*/ meltfnum[34] = 0 ;} + ; + } else {/*^cond.else*/ + + /*_#IF___L33*/ meltfnum[32] = 0;; + } + ; + /*^compute*/ + + /*_#IF___L31*/ meltfnum[30] = /*_#IF___L33*/ meltfnum[32];; + /*epilog*/ + + MELT_LOCATION("warmelt-normatch.melt:3382:/ clear"); + /*clear*/ /*_.MSTEP_DATA__V89*/ meltfptr[62] = 0 ; + /*^clear*/ + /*clear*/ /*_#__L32*/ meltfnum[31] = 0 ; + /*^clear*/ + /*clear*/ /*_#IF___L33*/ meltfnum[32] = 0 ;} + ; + } else {/*^cond.else*/ + + /*_#IF___L31*/ meltfnum[30] = 0;; + } + ; + MELT_LOCATION("warmelt-normatch.melt:3382:/ cond"); + /*cond*/ if (/*_#IF___L31*/ meltfnum[30]) /*then*/ { + /*^cond.then*/ + /*^block*/ + /*anyblock*/{ + + MELT_LOCATION("warmelt-normatch.melt:3389:/ quasiblock"); + + + /*_.SIMILARSTEP__V94*/ meltfptr[70] = /*_.CURDATASTEP__V84*/ meltfptr[77];; + MELT_LOCATION("warmelt-normatch.melt:3390:/ getslot"); + { melt_ptr_t slot=0; + melt_object_get_field(slot,(melt_ptr_t)(/*_.CURDATASTEP__V84*/ meltfptr[77]), 7, "MSTMA_INS");/*_.CURINS__V95*/ meltfptr[72] = slot; }; + ; + /*citerblock FOREACH_IN_MULTIPLE*/ { + /* start cit3__EACHTUP: */ + long cit3__EACHTUP_ln = melt_multiple_length((melt_ptr_t)/*_.CURINS__V95*/ meltfptr[72]); + for (/*_#SIMIX__L41*/ meltfnum[38] = 0; + (/*_#SIMIX__L41*/ meltfnum[38] >= 0) && (/*_#SIMIX__L41*/ meltfnum[38] < cit3__EACHTUP_ln); + /*_#SIMIX__L41*/ meltfnum[38]++) { + /*_.CURSIMIN__V96*/ meltfptr[79] = melt_multiple_nth((melt_ptr_t)(/*_.CURINS__V95*/ meltfptr[72]), /*_#SIMIX__L41*/ meltfnum[38]); + + + + /*_.MULTIPLE_NTH__V97*/ meltfptr[61] = + (melt_multiple_nth((melt_ptr_t)(/*_.NINS__V50*/ meltfptr[49]), (/*_#SIMIX__L41*/ meltfnum[38])));; + /*^compute*/ + + /*_#__L42*/ meltfnum[39] = + ((/*_.MULTIPLE_NTH__V97*/ meltfptr[61]) != (/*_.CURSIMIN__V96*/ meltfptr[79]));; + MELT_LOCATION("warmelt-normatch.melt:3395:/ cond"); + /*cond*/ if (/*_#__L42*/ meltfnum[39]) /*then*/ { + /*^cond.then*/ + /*^block*/ + /*anyblock*/{ + + MELT_LOCATION("warmelt-normatch.melt:3397:/ compute"); + /*_#SIMIX__L41*/ meltfnum[38] = /*_#SETQ___L43*/ meltfnum[35] = -1;; + MELT_LOCATION("warmelt-normatch.melt:3398:/ compute"); + /*_.CURSIMIN__V96*/ meltfptr[79] = /*_.SETQ___V99*/ meltfptr[63] = (/*nil*/NULL);; + MELT_LOCATION("warmelt-normatch.melt:3399:/ compute"); + /*_.SIMILARSTEP__V94*/ meltfptr[70] = /*_.SETQ___V100*/ meltfptr[62] = (/*nil*/NULL);; + MELT_LOCATION("warmelt-normatch.melt:3396:/ quasiblock"); + + + /*_.PROGN___V101*/ meltfptr[100] = /*_.SETQ___V100*/ meltfptr[62];; + /*^compute*/ + + /*_.IF___V98*/ meltfptr[64] = /*_.PROGN___V101*/ meltfptr[100];; + /*epilog*/ + + MELT_LOCATION("warmelt-normatch.melt:3395:/ clear"); + /*clear*/ /*_#SETQ___L43*/ meltfnum[35] = 0 ; + /*^clear*/ + /*clear*/ /*_.SETQ___V99*/ meltfptr[63] = 0 ; + /*^clear*/ + /*clear*/ /*_.SETQ___V100*/ meltfptr[62] = 0 ; + /*^clear*/ + /*clear*/ /*_.PROGN___V101*/ meltfptr[100] = 0 ;} + ; + } else {/*^cond.else*/ + + /*_.IF___V98*/ meltfptr[64] = NULL;; + } + ; + if (/*_#SIMIX__L41*/ meltfnum[38]<0) break; + } /* end cit3__EACHTUP */ + + /*citerepilog*/ + + MELT_LOCATION("warmelt-normatch.melt:3392:/ clear"); + /*clear*/ /*_.CURSIMIN__V96*/ meltfptr[79] = 0 ; + /*^clear*/ + /*clear*/ /*_#SIMIX__L41*/ meltfnum[38] = 0 ; + /*^clear*/ + /*clear*/ /*_.MULTIPLE_NTH__V97*/ meltfptr[61] = 0 ; + /*^clear*/ + /*clear*/ /*_#__L42*/ meltfnum[39] = 0 ; + /*^clear*/ + /*clear*/ /*_.IF___V98*/ meltfptr[64] = 0 ;} /*endciterblock FOREACH_IN_MULTIPLE*/ + ; + + #if ENABLE_CHECKING + MELT_LOCATION("warmelt-normatch.melt:3401:/ cppif.then"); + /*^block*/ + /*anyblock*/{ + + /*_#THE_MELTCALLCOUNT__L44*/ meltfnum[36] = + meltcallcount;; + MELT_LOCATION("warmelt-normatch.melt:3401:/ apply"); + /*apply*/{ + union meltparam_un argtab[4]; + memset(&argtab, 0, sizeof(argtab)); + /*^apply.arg*/ + argtab[0].bp_cstring = "translpat_patmat similiarstep"; + /*^apply.arg*/ + argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L44*/ meltfnum[36]; + /*^apply.arg*/ + argtab[2].bp_cstring = "warmelt-normatch.melt"; + /*^apply.arg*/ + argtab[3].bp_long = 3401; + /*_.DEBUG_MSG_FUN__V103*/ meltfptr[62] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.SIMILARSTEP__V94*/ meltfptr[70]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + } + ; + /*_.IFCPP___V102*/ meltfptr[63] = /*_.DEBUG_MSG_FUN__V103*/ meltfptr[62];; + /*epilog*/ + + MELT_LOCATION("warmelt-normatch.melt:3401:/ clear"); + /*clear*/ /*_#THE_MELTCALLCOUNT__L44*/ meltfnum[36] = 0 ; + /*^clear*/ + /*clear*/ /*_.DEBUG_MSG_FUN__V103*/ meltfptr[62] = 0 ;} + + #else /*ENABLE_CHECKING*/ + /*^cppif.else*/ + /*_.IFCPP___V102*/ meltfptr[63] = (/*nil*/NULL); + #endif /*ENABLE_CHECKING*/ + ; + MELT_LOCATION("warmelt-normatch.melt:3402:/ cond"); + /*cond*/ if (/*_.SIMILARSTEP__V94*/ meltfptr[70]) /*then*/ { + /*^cond.then*/ + /*^block*/ + /*anyblock*/{ + + MELT_LOCATION("warmelt-normatch.melt:3404:/ compute"); + /*_.CURSTEP__V31*/ meltfptr[30] = /*_.SETQ___V105*/ meltfptr[62] = /*_.SIMILARSTEP__V94*/ meltfptr[70];; + MELT_LOCATION("warmelt-normatch.melt:3405:/ compute"); + /*_.CURPAIRSTEP__V83*/ meltfptr[76] = /*_.SETQ___V106*/ meltfptr[105] = (/*nil*/NULL);; + MELT_LOCATION("warmelt-normatch.melt:3406:/ compute"); + /*_.CURDATASTEP__V84*/ meltfptr[77] = /*_.SETQ___V107*/ meltfptr[106] = (/*nil*/NULL);; + MELT_LOCATION("warmelt-normatch.melt:3403:/ quasiblock"); + + + /*_.PROGN___V108*/ meltfptr[107] = /*_.SETQ___V107*/ meltfptr[106];; + /*^compute*/ + + /*_.IF___V104*/ meltfptr[100] = /*_.PROGN___V108*/ meltfptr[107];; + /*epilog*/ + + MELT_LOCATION("warmelt-normatch.melt:3402:/ clear"); + /*clear*/ /*_.SETQ___V105*/ meltfptr[62] = 0 ; + /*^clear*/ + /*clear*/ /*_.SETQ___V106*/ meltfptr[105] = 0 ; + /*^clear*/ + /*clear*/ /*_.SETQ___V107*/ meltfptr[106] = 0 ; + /*^clear*/ + /*clear*/ /*_.PROGN___V108*/ meltfptr[107] = 0 ;} + ; + } else {/*^cond.else*/ + + /*_.IF___V104*/ meltfptr[100] = NULL;; + } + ; + /*^compute*/ + + /*_.LET___V93*/ meltfptr[68] = /*_.IF___V104*/ meltfptr[100];; + + MELT_LOCATION("warmelt-normatch.melt:3389:/ clear"); + /*clear*/ /*_.SIMILARSTEP__V94*/ meltfptr[70] = 0 ; + /*^clear*/ + /*clear*/ /*_.CURINS__V95*/ meltfptr[72] = 0 ; + /*^clear*/ + /*clear*/ /*_.IFCPP___V102*/ meltfptr[63] = 0 ; + /*^clear*/ + /*clear*/ /*_.IF___V104*/ meltfptr[100] = 0 ; + /*_.IF___V92*/ meltfptr[66] = /*_.LET___V93*/ meltfptr[68];; + /*epilog*/ + + MELT_LOCATION("warmelt-normatch.melt:3382:/ clear"); + /*clear*/ /*_.LET___V93*/ meltfptr[68] = 0 ;} + ; + } else {/*^cond.else*/ + + /*_.IF___V92*/ meltfptr[66] = NULL;; + } + ; + } /* end cit2__EACHLIST */ + + /*citerepilog*/ + + MELT_LOCATION("warmelt-normatch.melt:3376:/ clear"); + /*clear*/ /*_.CURPAIRSTEP__V83*/ meltfptr[76] = 0 ; + /*^clear*/ + /*clear*/ /*_.CURDATASTEP__V84*/ meltfptr[77] = 0 ; + /*^clear*/ + /*clear*/ /*_.IFCPP___V85*/ meltfptr[78] = 0 ; + /*^clear*/ + /*clear*/ /*_#IS_A__L29*/ meltfnum[21] = 0 ; + /*^clear*/ + /*clear*/ /*_.IF___V87*/ meltfptr[60] = 0 ; + /*^clear*/ + /*clear*/ /*_#IS_A__L30*/ meltfnum[29] = 0 ; + /*^clear*/ + /*clear*/ /*_#IF___L31*/ meltfnum[30] = 0 ; + /*^clear*/ + /*clear*/ /*_.IF___V92*/ meltfptr[66] = 0 ;} /*endciterblock FOREACH_IN_LIST*/ + ; + + #if ENABLE_CHECKING + MELT_LOCATION("warmelt-normatch.melt:3409:/ cppif.then"); + /*^block*/ + /*anyblock*/{ + + /*_#THE_MELTCALLCOUNT__L45*/ meltfnum[37] = + meltcallcount;; + MELT_LOCATION("warmelt-normatch.melt:3409:/ apply"); + /*apply*/{ + union meltparam_un argtab[4]; + memset(&argtab, 0, sizeof(argtab)); + /*^apply.arg*/ + argtab[0].bp_cstring = "translpat_patmat custep after seeking"; + /*^apply.arg*/ + argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L45*/ meltfnum[37]; + /*^apply.arg*/ + argtab[2].bp_cstring = "warmelt-normatch.melt"; + /*^apply.arg*/ + argtab[3].bp_long = 3409; + /*_.DEBUG_MSG_FUN__V110*/ meltfptr[105] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.CURSTEP__V31*/ meltfptr[30]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + } + ; + /*_.IFCPP___V109*/ meltfptr[62] = /*_.DEBUG_MSG_FUN__V110*/ meltfptr[105];; + /*epilog*/ + + MELT_LOCATION("warmelt-normatch.melt:3409:/ clear"); + /*clear*/ /*_#THE_MELTCALLCOUNT__L45*/ meltfnum[37] = 0 ; + /*^clear*/ + /*clear*/ /*_.DEBUG_MSG_FUN__V110*/ meltfptr[105] = 0 ;} + + #else /*ENABLE_CHECKING*/ + /*^cppif.else*/ + /*_.IFCPP___V109*/ meltfptr[62] = (/*nil*/NULL); + #endif /*ENABLE_CHECKING*/ + ; + /*^compute*/ + + /*_#NULL__L46*/ meltfnum[33] = + ((/*_.CURSTEP__V31*/ meltfptr[30]) == NULL);; + MELT_LOCATION("warmelt-normatch.melt:3410:/ cond"); + /*cond*/ if (/*_#NULL__L46*/ meltfnum[33]) /*then*/ { + /*^cond.then*/ + /*^block*/ + /*anyblock*/{ + + MELT_LOCATION("warmelt-normatch.melt:3411:/ quasiblock"); + + + /*_.OUTDATATUP__V111*/ meltfptr[106] = + (meltgc_new_multiple((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ meltfrout->tabval[17])), (/*_#NBOPOUT__L7*/ meltfnum[0])));; + MELT_LOCATION("warmelt-normatch.melt:3413:/ quasiblock"); + + + /*^rawallocobj*/ + /*rawallocobj*/ { melt_ptr_t newobj = 0; + melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_MATCH_STEP_TEST_MATCHER*/ meltfrout->tabval[16])), (9), "CLASS_MATCH_STEP_TEST_MATCHER");/*_.INST__V113*/ meltfptr[70] = + newobj; }; + ; + /*^putslot*/ + /*putslot*/ + melt_assertmsg("putslot checkobj @LOCA_LOCATION", melt_magic_discr((melt_ptr_t)(/*_.INST__V113*/ meltfptr[70])) == OBMAG_OBJECT); + melt_putfield_object((/*_.INST__V113*/ meltfptr[70]), (1), (/*_.SLOC__V21*/ meltfptr[20]), "LOCA_LOCATION"); + ; + /*^putslot*/ + /*putslot*/ + melt_assertmsg("putslot checkobj @MSTEP_DATA", melt_magic_discr((melt_ptr_t)(/*_.INST__V113*/ meltfptr[70])) == OBMAG_OBJECT); + melt_putfield_object((/*_.INST__V113*/ meltfptr[70]), (2), (/*_.MDATA__V3*/ meltfptr[2]), "MSTEP_DATA"); + ; + /*^putslot*/ + /*putslot*/ + melt_assertmsg("putslot checkobj @MSTEP_THEN", melt_magic_discr((melt_ptr_t)(/*_.INST__V113*/ meltfptr[70])) == OBMAG_OBJECT); + melt_putfield_object((/*_.INST__V113*/ meltfptr[70]), (3), ((/*nil*/NULL)), "MSTEP_THEN"); + ; + /*^putslot*/ + /*putslot*/ + melt_assertmsg("putslot checkobj @MSTEP_ELSE", melt_magic_discr((melt_ptr_t)(/*_.INST__V113*/ meltfptr[70])) == OBMAG_OBJECT); + melt_putfield_object((/*_.INST__V113*/ meltfptr[70]), (4), ((/*nil*/NULL)), "MSTEP_ELSE"); + ; + /*^putslot*/ + /*putslot*/ + melt_assertmsg("putslot checkobj @MSTMA_MATCHER", melt_magic_discr((melt_ptr_t)(/*_.INST__V113*/ meltfptr[70])) == OBMAG_OBJECT); + melt_putfield_object((/*_.INST__V113*/ meltfptr[70]), (5), (/*_.SOPER__V23*/ meltfptr[22]), "MSTMA_MATCHER"); + ; + /*^putslot*/ + /*putslot*/ + melt_assertmsg("putslot checkobj @MSTMA_BINDS", melt_magic_discr((melt_ptr_t)(/*_.INST__V113*/ meltfptr[70])) == OBMAG_OBJECT); + melt_putfield_object((/*_.INST__V113*/ meltfptr[70]), (6), (/*_.INBINDS__V51*/ meltfptr[50]), "MSTMA_BINDS"); + ; + /*^putslot*/ + /*putslot*/ + melt_assertmsg("putslot checkobj @MSTMA_INS", melt_magic_discr((melt_ptr_t)(/*_.INST__V113*/ meltfptr[70])) == OBMAG_OBJECT); + melt_putfield_object((/*_.INST__V113*/ meltfptr[70]), (7), (/*_.NINS__V50*/ meltfptr[49]), "MSTMA_INS"); + ; + /*^putslot*/ + /*putslot*/ + melt_assertmsg("putslot checkobj @MSTMA_OUTS", melt_magic_discr((melt_ptr_t)(/*_.INST__V113*/ meltfptr[70])) == OBMAG_OBJECT); + melt_putfield_object((/*_.INST__V113*/ meltfptr[70]), (8), (/*_.OUTDATATUP__V111*/ meltfptr[106]), "MSTMA_OUTS"); + ; + /*_.NEWSTEP__V112*/ meltfptr[107] = /*_.INST__V113*/ meltfptr[70];; + MELT_LOCATION("warmelt-normatch.melt:3423:/ compute"); + /*_.CURSTEP__V31*/ meltfptr[30] = /*_.SETQ___V114*/ meltfptr[72] = /*_.NEWSTEP__V112*/ meltfptr[107];; + + #if ENABLE_CHECKING + MELT_LOCATION("warmelt-normatch.melt:3424:/ cppif.then"); + /*^block*/ + /*anyblock*/{ + + /*_#THE_MELTCALLCOUNT__L47*/ meltfnum[34] = + meltcallcount;; + MELT_LOCATION("warmelt-normatch.melt:3424:/ apply"); + /*apply*/{ + union meltparam_un argtab[4]; + memset(&argtab, 0, sizeof(argtab)); + /*^apply.arg*/ + argtab[0].bp_cstring = "translpat_patmat newstep"; + /*^apply.arg*/ + argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L47*/ meltfnum[34]; + /*^apply.arg*/ + argtab[2].bp_cstring = "warmelt-normatch.melt"; + /*^apply.arg*/ + argtab[3].bp_long = 3424; + /*_.DEBUG_MSG_FUN__V116*/ meltfptr[100] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.NEWSTEP__V112*/ meltfptr[107]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + } + ; + /*_.IFCPP___V115*/ meltfptr[63] = /*_.DEBUG_MSG_FUN__V116*/ meltfptr[100];; + /*epilog*/ + + MELT_LOCATION("warmelt-normatch.melt:3424:/ clear"); + /*clear*/ /*_#THE_MELTCALLCOUNT__L47*/ meltfnum[34] = 0 ; + /*^clear*/ + /*clear*/ /*_.DEBUG_MSG_FUN__V116*/ meltfptr[100] = 0 ;} + + #else /*ENABLE_CHECKING*/ + /*^cppif.else*/ + /*_.IFCPP___V115*/ meltfptr[63] = (/*nil*/NULL); + #endif /*ENABLE_CHECKING*/ + ; + + { + MELT_LOCATION("warmelt-normatch.melt:3425:/ locexp"); + meltgc_append_list((melt_ptr_t)(/*_.MDATASTEPS__V32*/ meltfptr[31]), (melt_ptr_t)(/*_.NEWSTEP__V112*/ meltfptr[107]));} + ; + + #if ENABLE_CHECKING + MELT_LOCATION("warmelt-normatch.melt:3426:/ cppif.then"); + /*^block*/ + /*anyblock*/{ + + /*_#THE_MELTCALLCOUNT__L48*/ meltfnum[31] = + meltcallcount;; + MELT_LOCATION("warmelt-normatch.melt:3426:/ apply"); + /*apply*/{ + union meltparam_un argtab[4]; + memset(&argtab, 0, sizeof(argtab)); + /*^apply.arg*/ + argtab[0].bp_cstring = "translpat_patmat updated mdatasteps"; + /*^apply.arg*/ + argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L48*/ meltfnum[31]; + /*^apply.arg*/ + argtab[2].bp_cstring = "warmelt-normatch.melt"; + /*^apply.arg*/ + argtab[3].bp_long = 3426; + /*_.DEBUG_MSG_FUN__V118*/ meltfptr[105] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.MDATASTEPS__V32*/ meltfptr[31]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + } + ; + /*_.IFCPP___V117*/ meltfptr[68] = /*_.DEBUG_MSG_FUN__V118*/ meltfptr[105];; + /*epilog*/ + + MELT_LOCATION("warmelt-normatch.melt:3426:/ clear"); + /*clear*/ /*_#THE_MELTCALLCOUNT__L48*/ meltfnum[31] = 0 ; + /*^clear*/ + /*clear*/ /*_.DEBUG_MSG_FUN__V118*/ meltfptr[105] = 0 ;} + + #else /*ENABLE_CHECKING*/ + /*^cppif.else*/ + /*_.IFCPP___V117*/ meltfptr[68] = (/*nil*/NULL); + #endif /*ENABLE_CHECKING*/ + ; + MELT_LOCATION("warmelt-normatch.melt:3427:/ cond"); + /*cond*/ if (/*_.LASTSTEPTEST__V82*/ meltfptr[75]) /*then*/ { + /*^cond.then*/ + /*^block*/ + /*anyblock*/{ + + MELT_LOCATION("warmelt-normatch.melt:3429:/ msend"); + /*msend*/{ + union meltparam_un argtab[1]; + memset(&argtab, 0, sizeof(argtab)); + /*^ojbmsend.arg*/ + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NEWSTEP__V112*/ meltfptr[107]; + /*_.PUT_ELSE_MATCH__V120*/ meltfptr[105] = meltgc_send((melt_ptr_t)(/*_.LASTSTEPTEST__V82*/ meltfptr[75]), (melt_ptr_t)((/*!PUT_ELSE_MATCH*/ meltfrout->tabval[18])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + } + ; + + #if ENABLE_CHECKING + MELT_LOCATION("warmelt-normatch.melt:3430:/ cppif.then"); + /*^block*/ + /*anyblock*/{ + + /*_#THE_MELTCALLCOUNT__L49*/ meltfnum[32] = + meltcallcount;; + MELT_LOCATION("warmelt-normatch.melt:3430:/ apply"); + /*apply*/{ + union meltparam_un argtab[4]; + memset(&argtab, 0, sizeof(argtab)); + /*^apply.arg*/ + argtab[0].bp_cstring = "translpat_patmat updated laststeptest"; + /*^apply.arg*/ + argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L49*/ meltfnum[32]; + /*^apply.arg*/ + argtab[2].bp_cstring = "warmelt-normatch.melt"; + /*^apply.arg*/ + argtab[3].bp_long = 3430; + /*_.DEBUG_MSG_FUN__V122*/ meltfptr[121] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.LASTSTEPTEST__V82*/ meltfptr[75]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + } + ; + /*_.IFCPP___V121*/ meltfptr[120] = /*_.DEBUG_MSG_FUN__V122*/ meltfptr[121];; + /*epilog*/ + + MELT_LOCATION("warmelt-normatch.melt:3430:/ clear"); + /*clear*/ /*_#THE_MELTCALLCOUNT__L49*/ meltfnum[32] = 0 ; + /*^clear*/ + /*clear*/ /*_.DEBUG_MSG_FUN__V122*/ meltfptr[121] = 0 ;} + + #else /*ENABLE_CHECKING*/ + /*^cppif.else*/ + /*_.IFCPP___V121*/ meltfptr[120] = (/*nil*/NULL); + #endif /*ENABLE_CHECKING*/ + ; + MELT_LOCATION("warmelt-normatch.melt:3428:/ quasiblock"); + + + /*_.PROGN___V123*/ meltfptr[121] = /*_.IFCPP___V121*/ meltfptr[120];; + /*^compute*/ + + /*_.IF___V119*/ meltfptr[100] = /*_.PROGN___V123*/ meltfptr[121];; + /*epilog*/ + + MELT_LOCATION("warmelt-normatch.melt:3427:/ clear"); + /*clear*/ /*_.PUT_ELSE_MATCH__V120*/ meltfptr[105] = 0 ; + /*^clear*/ + /*clear*/ /*_.IFCPP___V121*/ meltfptr[120] = 0 ; + /*^clear*/ + /*clear*/ /*_.PROGN___V123*/ meltfptr[121] = 0 ;} + ; + } else {/*^cond.else*/ + + /*_.IF___V119*/ meltfptr[100] = NULL;; + } + ; + /*citerblock FOREACH_IN_MULTIPLE*/ { + /* start cit4__EACHTUP: */ + long cit4__EACHTUP_ln = melt_multiple_length((melt_ptr_t)/*_.OPOUT__V30*/ meltfptr[29]); + for (/*_#OUTIX__L50*/ meltfnum[35] = 0; + (/*_#OUTIX__L50*/ meltfnum[35] >= 0) && (/*_#OUTIX__L50*/ meltfnum[35] < cit4__EACHTUP_ln); + /*_#OUTIX__L50*/ meltfnum[35]++) { + /*_.CUROUTBIND__V124*/ meltfptr[105] = melt_multiple_nth((melt_ptr_t)(/*_.OPOUT__V30*/ meltfptr[29]), /*_#OUTIX__L50*/ meltfnum[35]); + + + + + #if ENABLE_CHECKING + MELT_LOCATION("warmelt-normatch.melt:3434:/ cppif.then"); + /*^block*/ + /*anyblock*/{ + + /*_#THE_MELTCALLCOUNT__L51*/ meltfnum[36] = + meltcallcount;; + MELT_LOCATION("warmelt-normatch.melt:3434:/ apply"); + /*apply*/{ + union meltparam_un argtab[4]; + memset(&argtab, 0, sizeof(argtab)); + /*^apply.arg*/ + argtab[0].bp_cstring = "translpat_patmat curoutbind"; + /*^apply.arg*/ + argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L51*/ meltfnum[36]; + /*^apply.arg*/ + argtab[2].bp_cstring = "warmelt-normatch.melt"; + /*^apply.arg*/ + argtab[3].bp_long = 3434; + /*_.DEBUG_MSG_FUN__V126*/ meltfptr[121] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.CUROUTBIND__V124*/ meltfptr[105]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + } + ; + /*_.IFCPP___V125*/ meltfptr[120] = /*_.DEBUG_MSG_FUN__V126*/ meltfptr[121];; + /*epilog*/ + + MELT_LOCATION("warmelt-normatch.melt:3434:/ clear"); + /*clear*/ /*_#THE_MELTCALLCOUNT__L51*/ meltfnum[36] = 0 ; + /*^clear*/ + /*clear*/ /*_.DEBUG_MSG_FUN__V126*/ meltfptr[121] = 0 ;} + + #else /*ENABLE_CHECKING*/ + /*^cppif.else*/ + /*_.IFCPP___V125*/ meltfptr[120] = (/*nil*/NULL); + #endif /*ENABLE_CHECKING*/ + ; + + #if ENABLE_CHECKING + MELT_LOCATION("warmelt-normatch.melt:3435:/ cppif.then"); + /*^block*/ + /*anyblock*/{ + + /*_#IS_A__L52*/ meltfnum[37] = + melt_is_instance_of((melt_ptr_t)(/*_.CUROUTBIND__V124*/ meltfptr[105]), (melt_ptr_t)((/*!CLASS_FORMAL_BINDING*/ meltfrout->tabval[11])));; + MELT_LOCATION("warmelt-normatch.melt:3435:/ cond"); + /*cond*/ if (/*_#IS_A__L52*/ meltfnum[37]) /*then*/ { + /*^cond.then*/ + /*_.IFELSE___V128*/ meltfptr[127] = (/*nil*/NULL);; + } else {MELT_LOCATION("warmelt-normatch.melt:3435:/ cond.else"); + + /*^block*/ + /*anyblock*/{ + + + + + { + /*^locexp*/ + melt_assert_failed(( "check curoutbind"),( "warmelt-normatch.melt")?( "warmelt-normatch.melt"):__FILE__, + (3435)?(3435):__LINE__, __FUNCTION__); +;} + ; + /*clear*/ /*_.IFELSE___V128*/ meltfptr[127] = 0 ; + /*epilog*/ + } + ; + } + ; + /*^compute*/ + + /*_.IFCPP___V127*/ meltfptr[121] = /*_.IFELSE___V128*/ meltfptr[127];; + /*epilog*/ + + MELT_LOCATION("warmelt-normatch.melt:3435:/ clear"); + /*clear*/ /*_#IS_A__L52*/ meltfnum[37] = 0 ; + /*^clear*/ + /*clear*/ /*_.IFELSE___V128*/ meltfptr[127] = 0 ;} + + #else /*ENABLE_CHECKING*/ + /*^cppif.else*/ + /*_.IFCPP___V127*/ meltfptr[121] = (/*nil*/NULL); + #endif /*ENABLE_CHECKING*/ + ; + MELT_LOCATION("warmelt-normatch.melt:3436:/ quasiblock"); + + + /*^cond*/ + /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CUROUTBIND__V124*/ meltfptr[105]), (melt_ptr_t)((/*!CLASS_ANY_BINDING*/ meltfrout->tabval[13])))) /*then*/ { + /*^cond.then*/ + /*^getslot*/ + { melt_ptr_t slot=0; + melt_object_get_field(slot,(melt_ptr_t)(/*_.CUROUTBIND__V124*/ meltfptr[105]), 0, "BINDER");/*_.OUTSYMB__V130*/ meltfptr[129] = slot; }; + ; + } else {/*^cond.else*/ + + /*_.OUTSYMB__V130*/ meltfptr[129] = NULL;; + } + ; + MELT_LOCATION("warmelt-normatch.melt:3437:/ cond"); + /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CUROUTBIND__V124*/ meltfptr[105]), (melt_ptr_t)((/*!CLASS_FORMAL_BINDING*/ meltfrout->tabval[11])))) /*then*/ { + /*^cond.then*/ + /*^getslot*/ + { melt_ptr_t slot=0; + melt_object_get_field(slot,(melt_ptr_t)(/*_.CUROUTBIND__V124*/ meltfptr[105]), 1, "FBIND_TYPE");/*_.OUTCTYP__V131*/ meltfptr[130] = slot; }; + ; + } else {/*^cond.else*/ + + /*_.OUTCTYP__V131*/ meltfptr[130] = NULL;; + } + ; + MELT_LOCATION("warmelt-normatch.melt:3439:/ apply"); + /*apply*/{ + /*_.CLONE_SYMBOL__V132*/ meltfptr[131] = melt_apply ((meltclosure_ptr_t)((/*!CLONE_SYMBOL*/ meltfrout->tabval[19])), (melt_ptr_t)(/*_.OUTSYMB__V130*/ meltfptr[129]), (""), (union meltparam_un*)0, "", (union meltparam_un*)0); + } + ; + /*_.MAKE_LIST__V133*/ meltfptr[132] = + (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ meltfrout->tabval[20]))));; + MELT_LOCATION("warmelt-normatch.melt:3438:/ quasiblock"); + + + /*^rawallocobj*/ + /*rawallocobj*/ { melt_ptr_t newobj = 0; + melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_MATCHED_DATA*/ meltfrout->tabval[2])), (5), "CLASS_MATCHED_DATA");/*_.INST__V135*/ meltfptr[134] = + newobj; }; + ; + /*^putslot*/ + /*putslot*/ + melt_assertmsg("putslot checkobj @MDATA_SYMB", melt_magic_discr((melt_ptr_t)(/*_.INST__V135*/ meltfptr[134])) == OBMAG_OBJECT); + melt_putfield_object((/*_.INST__V135*/ meltfptr[134]), (1), (/*_.CLONE_SYMBOL__V132*/ meltfptr[131]), "MDATA_SYMB"); + ; + /*^putslot*/ + /*putslot*/ + melt_assertmsg("putslot checkobj @MDATA_CTYPE", melt_magic_discr((melt_ptr_t)(/*_.INST__V135*/ meltfptr[134])) == OBMAG_OBJECT); + melt_putfield_object((/*_.INST__V135*/ meltfptr[134]), (2), (/*_.OUTCTYP__V131*/ meltfptr[130]), "MDATA_CTYPE"); + ; + /*^putslot*/ + /*putslot*/ + melt_assertmsg("putslot checkobj @MDATA_ORIG", melt_magic_discr((melt_ptr_t)(/*_.INST__V135*/ meltfptr[134])) == OBMAG_OBJECT); + melt_putfield_object((/*_.INST__V135*/ meltfptr[134]), (3), (/*_.NEWSTEP__V112*/ meltfptr[107]), "MDATA_ORIG"); + ; + /*^putslot*/ + /*putslot*/ + melt_assertmsg("putslot checkobj @MDATA_STEPS", melt_magic_discr((melt_ptr_t)(/*_.INST__V135*/ meltfptr[134])) == OBMAG_OBJECT); + melt_putfield_object((/*_.INST__V135*/ meltfptr[134]), (4), (/*_.MAKE_LIST__V133*/ meltfptr[132]), "MDATA_STEPS"); + ; + /*_.NEWSLOT__V134*/ meltfptr[133] = /*_.INST__V135*/ meltfptr[134];; + + #if ENABLE_CHECKING + MELT_LOCATION("warmelt-normatch.melt:3444:/ cppif.then"); + /*^block*/ + /*anyblock*/{ + + /*_#THE_MELTCALLCOUNT__L53*/ meltfnum[34] = + meltcallcount;; + MELT_LOCATION("warmelt-normatch.melt:3444:/ apply"); + /*apply*/{ + union meltparam_un argtab[4]; + memset(&argtab, 0, sizeof(argtab)); + /*^apply.arg*/ + argtab[0].bp_cstring = "translpat_patmat outsymb"; + /*^apply.arg*/ + argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L53*/ meltfnum[34]; + /*^apply.arg*/ + argtab[2].bp_cstring = "warmelt-normatch.melt"; + /*^apply.arg*/ + argtab[3].bp_long = 3444; + /*_.DEBUG_MSG_FUN__V137*/ meltfptr[136] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.OUTSYMB__V130*/ meltfptr[129]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + } + ; + /*_.IFCPP___V136*/ meltfptr[135] = /*_.DEBUG_MSG_FUN__V137*/ meltfptr[136];; + /*epilog*/ + + MELT_LOCATION("warmelt-normatch.melt:3444:/ clear"); + /*clear*/ /*_#THE_MELTCALLCOUNT__L53*/ meltfnum[34] = 0 ; + /*^clear*/ + /*clear*/ /*_.DEBUG_MSG_FUN__V137*/ meltfptr[136] = 0 ;} + + #else /*ENABLE_CHECKING*/ + /*^cppif.else*/ + /*_.IFCPP___V136*/ meltfptr[135] = (/*nil*/NULL); + #endif /*ENABLE_CHECKING*/ + ; + + #if ENABLE_CHECKING + MELT_LOCATION("warmelt-normatch.melt:3445:/ cppif.then"); + /*^block*/ + /*anyblock*/{ + + /*_#THE_MELTCALLCOUNT__L54*/ meltfnum[31] = + meltcallcount;; + MELT_LOCATION("warmelt-normatch.melt:3445:/ apply"); + /*apply*/{ + union meltparam_un argtab[4]; + memset(&argtab, 0, sizeof(argtab)); + /*^apply.arg*/ + argtab[0].bp_cstring = "translpat_patmat newslot"; + /*^apply.arg*/ + argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L54*/ meltfnum[31]; + /*^apply.arg*/ + argtab[2].bp_cstring = "warmelt-normatch.melt"; + /*^apply.arg*/ + argtab[3].bp_long = 3445; + /*_.DEBUG_MSG_FUN__V139*/ meltfptr[138] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.NEWSLOT__V134*/ meltfptr[133]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + } + ; + /*_.IFCPP___V138*/ meltfptr[136] = /*_.DEBUG_MSG_FUN__V139*/ meltfptr[138];; + /*epilog*/ + + MELT_LOCATION("warmelt-normatch.melt:3445:/ clear"); + /*clear*/ /*_#THE_MELTCALLCOUNT__L54*/ meltfnum[31] = 0 ; + /*^clear*/ + /*clear*/ /*_.DEBUG_MSG_FUN__V139*/ meltfptr[138] = 0 ;} + + #else /*ENABLE_CHECKING*/ + /*^cppif.else*/ + /*_.IFCPP___V138*/ meltfptr[136] = (/*nil*/NULL); + #endif /*ENABLE_CHECKING*/ + ; + + { + MELT_LOCATION("warmelt-normatch.melt:3446:/ locexp"); + meltgc_multiple_put_nth((melt_ptr_t)(/*_.OUTDATATUP__V111*/ meltfptr[106]), (/*_#OUTIX__L50*/ meltfnum[35]), (melt_ptr_t)(/*_.NEWSLOT__V134*/ meltfptr[133]));} + ; + + #if ENABLE_CHECKING + MELT_LOCATION("warmelt-normatch.melt:3447:/ cppif.then"); + /*^block*/ + /*anyblock*/{ + + /*_#IS_A__L55*/ meltfnum[32] = + melt_is_instance_of((melt_ptr_t)(/*_.OUTCTYP__V131*/ meltfptr[130]), (melt_ptr_t)((/*!CLASS_CTYPE*/ meltfrout->tabval[12])));; + MELT_LOCATION("warmelt-normatch.melt:3447:/ cond"); + /*cond*/ if (/*_#IS_A__L55*/ meltfnum[32]) /*then*/ { + /*^cond.then*/ + /*_.IFELSE___V141*/ meltfptr[140] = (/*nil*/NULL);; + } else {MELT_LOCATION("warmelt-normatch.melt:3447:/ cond.else"); + + /*^block*/ + /*anyblock*/{ + + + + + { + /*^locexp*/ + melt_assert_failed(( "check outctyp"),( "warmelt-normatch.melt")?( "warmelt-normatch.melt"):__FILE__, + (3447)?(3447):__LINE__, __FUNCTION__); +;} + ; + /*clear*/ /*_.IFELSE___V141*/ meltfptr[140] = 0 ; + /*epilog*/ + } + ; + } + ; + /*^compute*/ + + /*_.IFCPP___V140*/ meltfptr[138] = /*_.IFELSE___V141*/ meltfptr[140];; + /*epilog*/ + + MELT_LOCATION("warmelt-normatch.melt:3447:/ clear"); + /*clear*/ /*_#IS_A__L55*/ meltfnum[32] = 0 ; + /*^clear*/ + /*clear*/ /*_.IFELSE___V141*/ meltfptr[140] = 0 ;} + + #else /*ENABLE_CHECKING*/ + /*^cppif.else*/ + /*_.IFCPP___V140*/ meltfptr[138] = (/*nil*/NULL); + #endif /*ENABLE_CHECKING*/ + ; + /*^compute*/ + + /*_.LET___V129*/ meltfptr[127] = /*_.IFCPP___V140*/ meltfptr[138];; + + MELT_LOCATION("warmelt-normatch.melt:3436:/ clear"); + /*clear*/ /*_.OUTSYMB__V130*/ meltfptr[129] = 0 ; + /*^clear*/ + /*clear*/ /*_.OUTCTYP__V131*/ meltfptr[130] = 0 ; + /*^clear*/ + /*clear*/ /*_.CLONE_SYMBOL__V132*/ meltfptr[131] = 0 ; + /*^clear*/ + /*clear*/ /*_.MAKE_LIST__V133*/ meltfptr[132] = 0 ; + /*^clear*/ + /*clear*/ /*_.NEWSLOT__V134*/ meltfptr[133] = 0 ; + /*^clear*/ + /*clear*/ /*_.IFCPP___V136*/ meltfptr[135] = 0 ; + /*^clear*/ + /*clear*/ /*_.IFCPP___V138*/ meltfptr[136] = 0 ; + /*^clear*/ + /*clear*/ /*_.IFCPP___V140*/ meltfptr[138] = 0 ; + if (/*_#OUTIX__L50*/ meltfnum[35]<0) break; + } /* end cit4__EACHTUP */ + + /*citerepilog*/ + + MELT_LOCATION("warmelt-normatch.melt:3431:/ clear"); + /*clear*/ /*_.CUROUTBIND__V124*/ meltfptr[105] = 0 ; + /*^clear*/ + /*clear*/ /*_#OUTIX__L50*/ meltfnum[35] = 0 ; + /*^clear*/ + /*clear*/ /*_.IFCPP___V125*/ meltfptr[120] = 0 ; + /*^clear*/ + /*clear*/ /*_.IFCPP___V127*/ meltfptr[121] = 0 ; + /*^clear*/ + /*clear*/ /*_.LET___V129*/ meltfptr[127] = 0 ;} /*endciterblock FOREACH_IN_MULTIPLE*/ + ; + + MELT_LOCATION("warmelt-normatch.melt:3411:/ clear"); + /*clear*/ /*_.OUTDATATUP__V111*/ meltfptr[106] = 0 ; + /*^clear*/ + /*clear*/ /*_.NEWSTEP__V112*/ meltfptr[107] = 0 ; + /*^clear*/ + /*clear*/ /*_.SETQ___V114*/ meltfptr[72] = 0 ; + /*^clear*/ + /*clear*/ /*_.IFCPP___V115*/ meltfptr[63] = 0 ; + /*^clear*/ + /*clear*/ /*_.IFCPP___V117*/ meltfptr[68] = 0 ; + /*^clear*/ + /*clear*/ /*_.IF___V119*/ meltfptr[100] = 0 ; + /*epilog*/ + } + ; + } /*noelse*/ ; - goto lab_endgetargs; -lab_endgetargs:; -/*body*/ -/*^block*/ -/*anyblock*/{ - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normatch.melt:3232:/ cppif.then"); + MELT_LOCATION("warmelt-normatch.melt:3450:/ cppif.then"); /*^block*/ /*anyblock*/{ - /*_#THE_MELTCALLCOUNT__L1*/ meltfnum[0] = + /*_#THE_MELTCALLCOUNT__L56*/ meltfnum[36] = meltcallcount;; - MELT_LOCATION("warmelt-normatch.melt:3232:/ apply"); + MELT_LOCATION("warmelt-normatch.melt:3450:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_cstring = "mgaltstep_stepsetvar step"; + argtab[0].bp_cstring = "translpat_patmat curstep after making it"; /*^apply.arg*/ - argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L1*/ meltfnum[0]; + argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L56*/ meltfnum[36]; /*^apply.arg*/ argtab[2].bp_cstring = "warmelt-normatch.melt"; /*^apply.arg*/ - argtab[3].bp_long = 3232; - /*_.DEBUG_MSG_FUN__V5*/ meltfptr[4] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.STEP__V2*/ meltfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + argtab[3].bp_long = 3450; + /*_.DEBUG_MSG_FUN__V143*/ meltfptr[129] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.CURSTEP__V31*/ meltfptr[30]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; - /*_.IFCPP___V4*/ meltfptr[3] = /*_.DEBUG_MSG_FUN__V5*/ meltfptr[4];; + /*_.IFCPP___V142*/ meltfptr[140] = /*_.DEBUG_MSG_FUN__V143*/ meltfptr[129];; /*epilog*/ - MELT_LOCATION("warmelt-normatch.melt:3232:/ clear"); - /*clear*/ /*_#THE_MELTCALLCOUNT__L1*/ meltfnum[0] = 0 ; + MELT_LOCATION("warmelt-normatch.melt:3450:/ clear"); + /*clear*/ /*_#THE_MELTCALLCOUNT__L56*/ meltfnum[36] = 0 ; /*^clear*/ - /*clear*/ /*_.DEBUG_MSG_FUN__V5*/ meltfptr[4] = 0 ;} + /*clear*/ /*_.DEBUG_MSG_FUN__V143*/ meltfptr[129] = 0 ;} #else /*ENABLE_CHECKING*/ /*^cppif.else*/ - /*_.IFCPP___V4*/ meltfptr[3] = (/*nil*/NULL); + /*_.IFCPP___V142*/ meltfptr[140] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normatch.melt:3233:/ cppif.then"); + MELT_LOCATION("warmelt-normatch.melt:3451:/ cppif.then"); /*^block*/ /*anyblock*/{ - /*_#IS_A__L2*/ meltfnum[0] = - melt_is_instance_of((melt_ptr_t)(/*_.STEP__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_MATCH_STEP_SET_VARIABLE*/ meltfrout->tabval[1])));; - MELT_LOCATION("warmelt-normatch.melt:3233:/ cond"); - /*cond*/ if (/*_#IS_A__L2*/ meltfnum[0]) /*then*/ { + /*_#IS_A__L57*/ meltfnum[37] = + melt_is_instance_of((melt_ptr_t)(/*_.CURSTEP__V31*/ meltfptr[30]), (melt_ptr_t)((/*!CLASS_MATCH_STEP_TEST_MATCHER*/ meltfrout->tabval[16])));; + MELT_LOCATION("warmelt-normatch.melt:3451:/ cond"); + /*cond*/ if (/*_#IS_A__L57*/ meltfnum[37]) /*then*/ { /*^cond.then*/ - /*_.IFELSE___V7*/ meltfptr[6] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normatch.melt:3233:/ cond.else"); + /*_.IFELSE___V145*/ meltfptr[131] = (/*nil*/NULL);; + } else {MELT_LOCATION("warmelt-normatch.melt:3451:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -4244,368 +8022,877 @@ lab_endgetargs:; { /*^locexp*/ - melt_assert_failed(( "check step"),( "warmelt-normatch.melt")?( "warmelt-normatch.melt"):__FILE__, - (3233)?(3233):__LINE__, __FUNCTION__); + melt_assert_failed(( "check curstep"),( "warmelt-normatch.melt")?( "warmelt-normatch.melt"):__FILE__, + (3451)?(3451):__LINE__, __FUNCTION__); ;} ; - /*clear*/ /*_.IFELSE___V7*/ meltfptr[6] = 0 ; + /*clear*/ /*_.IFELSE___V145*/ meltfptr[131] = 0 ; /*epilog*/ } ; - } + } + ; + /*^compute*/ + + /*_.IFCPP___V144*/ meltfptr[130] = /*_.IFELSE___V145*/ meltfptr[131];; + /*epilog*/ + + MELT_LOCATION("warmelt-normatch.melt:3451:/ clear"); + /*clear*/ /*_#IS_A__L57*/ meltfnum[37] = 0 ; + /*^clear*/ + /*clear*/ /*_.IFELSE___V145*/ meltfptr[131] = 0 ;} + + #else /*ENABLE_CHECKING*/ + /*^cppif.else*/ + /*_.IFCPP___V144*/ meltfptr[130] = (/*nil*/NULL); + #endif /*ENABLE_CHECKING*/ + ; + + #if ENABLE_CHECKING + MELT_LOCATION("warmelt-normatch.melt:3452:/ cppif.then"); + /*^block*/ + /*anyblock*/{ + + /*_#THE_MELTCALLCOUNT__L58*/ meltfnum[34] = + meltcallcount;; + MELT_LOCATION("warmelt-normatch.melt:3452:/ apply"); + /*apply*/{ + union meltparam_un argtab[4]; + memset(&argtab, 0, sizeof(argtab)); + /*^apply.arg*/ + argtab[0].bp_cstring = "translpat_patmat souts again"; + /*^apply.arg*/ + argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L58*/ meltfnum[34]; + /*^apply.arg*/ + argtab[2].bp_cstring = "warmelt-normatch.melt"; + /*^apply.arg*/ + argtab[3].bp_long = 3452; + /*_.DEBUG_MSG_FUN__V147*/ meltfptr[133] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.SOUTS__V25*/ meltfptr[24]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + } + ; + /*_.IFCPP___V146*/ meltfptr[132] = /*_.DEBUG_MSG_FUN__V147*/ meltfptr[133];; + /*epilog*/ + + MELT_LOCATION("warmelt-normatch.melt:3452:/ clear"); + /*clear*/ /*_#THE_MELTCALLCOUNT__L58*/ meltfnum[34] = 0 ; + /*^clear*/ + /*clear*/ /*_.DEBUG_MSG_FUN__V147*/ meltfptr[133] = 0 ;} + + #else /*ENABLE_CHECKING*/ + /*^cppif.else*/ + /*_.IFCPP___V146*/ meltfptr[132] = (/*nil*/NULL); + #endif /*ENABLE_CHECKING*/ + ; + MELT_LOCATION("warmelt-normatch.melt:3453:/ quasiblock"); + + + MELT_LOCATION("warmelt-normatch.melt:3454:/ cond"); + /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURSTEP__V31*/ meltfptr[30]), (melt_ptr_t)((/*!CLASS_MATCH_STEP_TEST_MATCHER*/ meltfrout->tabval[16])))) /*then*/ { + /*^cond.then*/ + /*^getslot*/ + { melt_ptr_t slot=0; + melt_object_get_field(slot,(melt_ptr_t)(/*_.CURSTEP__V31*/ meltfptr[30]), 8, "MSTMA_OUTS");/*_.OUTDATA__V149*/ meltfptr[136] = slot; }; + ; + } else {/*^cond.else*/ + + /*_.OUTDATA__V149*/ meltfptr[136] = NULL;; + } + ; + /*^compute*/ + + /*_.THENLIST__V150*/ meltfptr[138] = + (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ meltfrout->tabval[20]))));; + /*^compute*/ + + /*_.ELSELIST__V151*/ meltfptr[106] = + (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ meltfrout->tabval[20]))));; + /*^compute*/ + + /*_.FLAGLIST__V152*/ meltfptr[107] = + (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ meltfrout->tabval[20]))));; + /*^compute*/ + + /*_.LASTSTEP__V153*/ meltfptr[72] = /*_.CURSTEP__V31*/ meltfptr[30];; + MELT_LOCATION("warmelt-normatch.melt:3459:/ quasiblock"); + + + /*^rawallocobj*/ + /*rawallocobj*/ { melt_ptr_t newobj = 0; + melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_MATCH_STEP_TEST_GROUP*/ meltfrout->tabval[21])), (8), "CLASS_MATCH_STEP_TEST_GROUP");/*_.INST__V155*/ meltfptr[68] = + newobj; }; + ; + /*^putslot*/ + /*putslot*/ + melt_assertmsg("putslot checkobj @LOCA_LOCATION", melt_magic_discr((melt_ptr_t)(/*_.INST__V155*/ meltfptr[68])) == OBMAG_OBJECT); + melt_putfield_object((/*_.INST__V155*/ meltfptr[68]), (1), (/*_.SLOC__V21*/ meltfptr[20]), "LOCA_LOCATION"); + ; + /*^putslot*/ + /*putslot*/ + melt_assertmsg("putslot checkobj @MSTEP_DATA", melt_magic_discr((melt_ptr_t)(/*_.INST__V155*/ meltfptr[68])) == OBMAG_OBJECT); + melt_putfield_object((/*_.INST__V155*/ meltfptr[68]), (2), (/*_.MDATA__V3*/ meltfptr[2]), "MSTEP_DATA"); + ; + /*^putslot*/ + /*putslot*/ + melt_assertmsg("putslot checkobj @MSTEP_THEN", melt_magic_discr((melt_ptr_t)(/*_.INST__V155*/ meltfptr[68])) == OBMAG_OBJECT); + melt_putfield_object((/*_.INST__V155*/ meltfptr[68]), (3), ((/*nil*/NULL)), "MSTEP_THEN"); + ; + /*^putslot*/ + /*putslot*/ + melt_assertmsg("putslot checkobj @MSTEP_ELSE", melt_magic_discr((melt_ptr_t)(/*_.INST__V155*/ meltfptr[68])) == OBMAG_OBJECT); + melt_putfield_object((/*_.INST__V155*/ meltfptr[68]), (4), ((/*nil*/NULL)), "MSTEP_ELSE"); + ; + /*^putslot*/ + /*putslot*/ + melt_assertmsg("putslot checkobj @MSTGROUP_START", melt_magic_discr((melt_ptr_t)(/*_.INST__V155*/ meltfptr[68])) == OBMAG_OBJECT); + melt_putfield_object((/*_.INST__V155*/ meltfptr[68]), (5), (/*_.CURSTEP__V31*/ meltfptr[30]), "MSTGROUP_START"); + ; + /*^putslot*/ + /*putslot*/ + melt_assertmsg("putslot checkobj @MSTGROUP_THEN", melt_magic_discr((melt_ptr_t)(/*_.INST__V155*/ meltfptr[68])) == OBMAG_OBJECT); + melt_putfield_object((/*_.INST__V155*/ meltfptr[68]), (6), ((/*nil*/NULL)), "MSTGROUP_THEN"); + ; + /*^putslot*/ + /*putslot*/ + melt_assertmsg("putslot checkobj @MSTGROUP_ELSE", melt_magic_discr((melt_ptr_t)(/*_.INST__V155*/ meltfptr[68])) == OBMAG_OBJECT); + melt_putfield_object((/*_.INST__V155*/ meltfptr[68]), (7), ((/*nil*/NULL)), "MSTGROUP_ELSE"); + ; + /*_.TESTGROUP__V154*/ meltfptr[63] = /*_.INST__V155*/ meltfptr[68];; + /*citerblock FOREACH_IN_MULTIPLE*/ { + /* start cit5__EACHTUP: */ + long cit5__EACHTUP_ln = melt_multiple_length((melt_ptr_t)/*_.OUTDATA__V149*/ meltfptr[136]); + for (/*_#DIX__L59*/ meltfnum[31] = 0; + (/*_#DIX__L59*/ meltfnum[31] >= 0) && (/*_#DIX__L59*/ meltfnum[31] < cit5__EACHTUP_ln); + /*_#DIX__L59*/ meltfnum[31]++) { + /*_.CUROUTDATA__V156*/ meltfptr[100] = melt_multiple_nth((melt_ptr_t)(/*_.OUTDATA__V149*/ meltfptr[136]), /*_#DIX__L59*/ meltfnum[31]); + + + + MELT_LOCATION("warmelt-normatch.melt:3472:/ quasiblock"); + + + /*_.OUTPAT__V157*/ meltfptr[129] = + (melt_multiple_nth((melt_ptr_t)(/*_.SOUTS__V25*/ meltfptr[24]), (/*_#DIX__L59*/ meltfnum[31])));; + + #if ENABLE_CHECKING + MELT_LOCATION("warmelt-normatch.melt:3474:/ cppif.then"); + /*^block*/ + /*anyblock*/{ + + /*_#THE_MELTCALLCOUNT__L60*/ meltfnum[32] = + meltcallcount;; + MELT_LOCATION("warmelt-normatch.melt:3474:/ apply"); + /*apply*/{ + union meltparam_un argtab[4]; + memset(&argtab, 0, sizeof(argtab)); + /*^apply.arg*/ + argtab[0].bp_cstring = "translpat_patmat curoutdata"; + /*^apply.arg*/ + argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L60*/ meltfnum[32]; + /*^apply.arg*/ + argtab[2].bp_cstring = "warmelt-normatch.melt"; + /*^apply.arg*/ + argtab[3].bp_long = 3474; + /*_.DEBUG_MSG_FUN__V159*/ meltfptr[133] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.CUROUTDATA__V156*/ meltfptr[100]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + } + ; + /*_.IFCPP___V158*/ meltfptr[131] = /*_.DEBUG_MSG_FUN__V159*/ meltfptr[133];; + /*epilog*/ + + MELT_LOCATION("warmelt-normatch.melt:3474:/ clear"); + /*clear*/ /*_#THE_MELTCALLCOUNT__L60*/ meltfnum[32] = 0 ; + /*^clear*/ + /*clear*/ /*_.DEBUG_MSG_FUN__V159*/ meltfptr[133] = 0 ;} + + #else /*ENABLE_CHECKING*/ + /*^cppif.else*/ + /*_.IFCPP___V158*/ meltfptr[131] = (/*nil*/NULL); + #endif /*ENABLE_CHECKING*/ + ; + + #if ENABLE_CHECKING + MELT_LOCATION("warmelt-normatch.melt:3475:/ cppif.then"); + /*^block*/ + /*anyblock*/{ + + /*_#THE_MELTCALLCOUNT__L61*/ meltfnum[36] = + meltcallcount;; + MELT_LOCATION("warmelt-normatch.melt:3475:/ apply"); + /*apply*/{ + union meltparam_un argtab[4]; + memset(&argtab, 0, sizeof(argtab)); + /*^apply.arg*/ + argtab[0].bp_cstring = "translpat_patmat outpat"; + /*^apply.arg*/ + argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L61*/ meltfnum[36]; + /*^apply.arg*/ + argtab[2].bp_cstring = "warmelt-normatch.melt"; + /*^apply.arg*/ + argtab[3].bp_long = 3475; + /*_.DEBUG_MSG_FUN__V161*/ meltfptr[160] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.OUTPAT__V157*/ meltfptr[129]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + } + ; + /*_.IFCPP___V160*/ meltfptr[133] = /*_.DEBUG_MSG_FUN__V161*/ meltfptr[160];; + /*epilog*/ + + MELT_LOCATION("warmelt-normatch.melt:3475:/ clear"); + /*clear*/ /*_#THE_MELTCALLCOUNT__L61*/ meltfnum[36] = 0 ; + /*^clear*/ + /*clear*/ /*_.DEBUG_MSG_FUN__V161*/ meltfptr[160] = 0 ;} + + #else /*ENABLE_CHECKING*/ + /*^cppif.else*/ + /*_.IFCPP___V160*/ meltfptr[133] = (/*nil*/NULL); + #endif /*ENABLE_CHECKING*/ + ; + MELT_LOCATION("warmelt-normatch.melt:3476:/ quasiblock"); + + + /*^multimsend*/ + /*multimsend*/{ + union meltparam_un argtab[4]; + union meltparam_un restab[1]; + memset(&argtab, 0, sizeof(argtab)); + memset(&restab, 0, sizeof(restab)); + /*^multimsend.arg*/ + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.CUROUTDATA__V156*/ meltfptr[100];/*^multimsend.arg*/ + argtab[1].bp_aptr = (melt_ptr_t*) &/*_.MCASE__V4*/ meltfptr[3];/*^multimsend.arg*/ + argtab[2].bp_aptr = (melt_ptr_t*) &/*_.VARMAP__V5*/ meltfptr[4];/*^multimsend.arg*/ + argtab[3].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V21*/ meltfptr[20]; + /*^multimsend.xres*/ + restab[0].bp_aptr = (melt_ptr_t*) &/*_.OUTFLAG__V163*/ meltfptr[162];/*^multimsend.send*/ + /*_.OUTSTEP__V162*/ meltfptr[160] = meltgc_send ((melt_ptr_t)(/*_.OUTPAT__V157*/ meltfptr[129]), ((melt_ptr_t)((/*!TRANSLATE_PATTERN*/ meltfrout->tabval[22]))), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, (BPARSTR_PTR ""), restab); + } + ; + /*^quasiblock*/ + + + + #if ENABLE_CHECKING + MELT_LOCATION("warmelt-normatch.melt:3479:/ cppif.then"); + /*^block*/ + /*anyblock*/{ + + /*_#THE_MELTCALLCOUNT__L62*/ meltfnum[37] = + meltcallcount;; + MELT_LOCATION("warmelt-normatch.melt:3479:/ apply"); + /*apply*/{ + union meltparam_un argtab[4]; + memset(&argtab, 0, sizeof(argtab)); + /*^apply.arg*/ + argtab[0].bp_cstring = "translpat_patmat outstep"; + /*^apply.arg*/ + argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L62*/ meltfnum[37]; + /*^apply.arg*/ + argtab[2].bp_cstring = "warmelt-normatch.melt"; + /*^apply.arg*/ + argtab[3].bp_long = 3479; + /*_.DEBUG_MSG_FUN__V165*/ meltfptr[164] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.OUTSTEP__V162*/ meltfptr[160]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + } + ; + /*_.IFCPP___V164*/ meltfptr[163] = /*_.DEBUG_MSG_FUN__V165*/ meltfptr[164];; + /*epilog*/ + + MELT_LOCATION("warmelt-normatch.melt:3479:/ clear"); + /*clear*/ /*_#THE_MELTCALLCOUNT__L62*/ meltfnum[37] = 0 ; + /*^clear*/ + /*clear*/ /*_.DEBUG_MSG_FUN__V165*/ meltfptr[164] = 0 ;} + + #else /*ENABLE_CHECKING*/ + /*^cppif.else*/ + /*_.IFCPP___V164*/ meltfptr[163] = (/*nil*/NULL); + #endif /*ENABLE_CHECKING*/ + ; + + #if ENABLE_CHECKING + MELT_LOCATION("warmelt-normatch.melt:3480:/ cppif.then"); + /*^block*/ + /*anyblock*/{ + + /*_#THE_MELTCALLCOUNT__L63*/ meltfnum[34] = + meltcallcount;; + MELT_LOCATION("warmelt-normatch.melt:3480:/ apply"); + /*apply*/{ + union meltparam_un argtab[4]; + memset(&argtab, 0, sizeof(argtab)); + /*^apply.arg*/ + argtab[0].bp_cstring = "translpat_patmat outflag"; + /*^apply.arg*/ + argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L63*/ meltfnum[34]; + /*^apply.arg*/ + argtab[2].bp_cstring = "warmelt-normatch.melt"; + /*^apply.arg*/ + argtab[3].bp_long = 3480; + /*_.DEBUG_MSG_FUN__V167*/ meltfptr[166] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.OUTFLAG__V163*/ meltfptr[162]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + } + ; + /*_.IFCPP___V166*/ meltfptr[164] = /*_.DEBUG_MSG_FUN__V167*/ meltfptr[166];; + /*epilog*/ + + MELT_LOCATION("warmelt-normatch.melt:3480:/ clear"); + /*clear*/ /*_#THE_MELTCALLCOUNT__L63*/ meltfnum[34] = 0 ; + /*^clear*/ + /*clear*/ /*_.DEBUG_MSG_FUN__V167*/ meltfptr[166] = 0 ;} + + #else /*ENABLE_CHECKING*/ + /*^cppif.else*/ + /*_.IFCPP___V166*/ meltfptr[164] = (/*nil*/NULL); + #endif /*ENABLE_CHECKING*/ ; - /*^compute*/ + MELT_LOCATION("warmelt-normatch.melt:3481:/ cond"); + /*cond*/ if (/*_.OUTSTEP__V162*/ meltfptr[160]) /*then*/ { + /*^cond.then*/ + /*^block*/ + /*anyblock*/{ + + MELT_LOCATION("warmelt-normatch.melt:3483:/ msend"); + /*msend*/{ + union meltparam_un argtab[1]; + memset(&argtab, 0, sizeof(argtab)); + /*^ojbmsend.arg*/ + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.OUTSTEP__V162*/ meltfptr[160]; + /*_.PUT_THEN_MATCH__V169*/ meltfptr[168] = meltgc_send((melt_ptr_t)(/*_.LASTSTEP__V153*/ meltfptr[72]), (melt_ptr_t)((/*!PUT_THEN_MATCH*/ meltfrout->tabval[23])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + } + ; + + { + MELT_LOCATION("warmelt-normatch.melt:3484:/ locexp"); + meltgc_append_list((melt_ptr_t)(/*_.ELSELIST__V151*/ meltfptr[106]), (melt_ptr_t)(/*_.OUTSTEP__V162*/ meltfptr[160]));} + ; + MELT_LOCATION("warmelt-normatch.melt:3485:/ compute"); + /*_.LASTSTEP__V153*/ meltfptr[72] = /*_.SETQ___V170*/ meltfptr[169] = /*_.OUTSTEP__V162*/ meltfptr[160];; + MELT_LOCATION("warmelt-normatch.melt:3482:/ quasiblock"); + + + /*_.PROGN___V171*/ meltfptr[170] = /*_.SETQ___V170*/ meltfptr[169];; + /*^compute*/ - /*_.IFCPP___V6*/ meltfptr[4] = /*_.IFELSE___V7*/ meltfptr[6];; - /*epilog*/ - - MELT_LOCATION("warmelt-normatch.melt:3233:/ clear"); - /*clear*/ /*_#IS_A__L2*/ meltfnum[0] = 0 ; - /*^clear*/ - /*clear*/ /*_.IFELSE___V7*/ meltfptr[6] = 0 ;} + /*_.IF___V168*/ meltfptr[166] = /*_.PROGN___V171*/ meltfptr[170];; + /*epilog*/ + + MELT_LOCATION("warmelt-normatch.melt:3481:/ clear"); + /*clear*/ /*_.PUT_THEN_MATCH__V169*/ meltfptr[168] = 0 ; + /*^clear*/ + /*clear*/ /*_.SETQ___V170*/ meltfptr[169] = 0 ; + /*^clear*/ + /*clear*/ /*_.PROGN___V171*/ meltfptr[170] = 0 ;} + ; + } else {/*^cond.else*/ - #else /*ENABLE_CHECKING*/ - /*^cppif.else*/ - /*_.IFCPP___V6*/ meltfptr[4] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ + /*_.IF___V168*/ meltfptr[166] = NULL;; + } ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normatch.melt:3234:/ cppif.then"); - /*^block*/ - /*anyblock*/{ - - /*_#IS_A__L3*/ meltfnum[0] = - melt_is_instance_of((melt_ptr_t)(/*_.MG__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_MATCH_GRAPHIC*/ meltfrout->tabval[2])));; - MELT_LOCATION("warmelt-normatch.melt:3234:/ cond"); - /*cond*/ if (/*_#IS_A__L3*/ meltfnum[0]) /*then*/ { - /*^cond.then*/ - /*_.IFELSE___V9*/ meltfptr[8] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normatch.melt:3234:/ cond.else"); - + MELT_LOCATION("warmelt-normatch.melt:3487:/ cond"); + /*cond*/ if (/*_.OUTFLAG__V163*/ meltfptr[162]) /*then*/ { + /*^cond.then*/ + /*^block*/ + /*anyblock*/{ + + + #if ENABLE_CHECKING + MELT_LOCATION("warmelt-normatch.melt:3489:/ cppif.then"); /*^block*/ - /*anyblock*/{ - - - - - { - /*^locexp*/ - melt_assert_failed(( "check mg"),( "warmelt-normatch.melt")?( "warmelt-normatch.melt"):__FILE__, - (3234)?(3234):__LINE__, __FUNCTION__); + /*anyblock*/{ + + /*_#IS_A__L64*/ meltfnum[32] = + melt_is_instance_of((melt_ptr_t)(/*_.OUTFLAG__V163*/ meltfptr[162]), (melt_ptr_t)((/*!CLASS_MATCH_FLAG*/ meltfrout->tabval[24])));; + MELT_LOCATION("warmelt-normatch.melt:3489:/ cond"); + /*cond*/ if (/*_#IS_A__L64*/ meltfnum[32]) /*then*/ { + /*^cond.then*/ + /*_.IFELSE___V173*/ meltfptr[169] = (/*nil*/NULL);; + } else {MELT_LOCATION("warmelt-normatch.melt:3489:/ cond.else"); + + /*^block*/ + /*anyblock*/{ + + + + + { + /*^locexp*/ + melt_assert_failed(( "check outflag"),( "warmelt-normatch.melt")?( "warmelt-normatch.melt"):__FILE__, + (3489)?(3489):__LINE__, __FUNCTION__); ;} + ; + /*clear*/ /*_.IFELSE___V173*/ meltfptr[169] = 0 ; + /*epilog*/ + } + ; + } + ; + /*^compute*/ + + /*_.IFCPP___V172*/ meltfptr[168] = /*_.IFELSE___V173*/ meltfptr[169];; + /*epilog*/ + + MELT_LOCATION("warmelt-normatch.melt:3489:/ clear"); + /*clear*/ /*_#IS_A__L64*/ meltfnum[32] = 0 ; + /*^clear*/ + /*clear*/ /*_.IFELSE___V173*/ meltfptr[169] = 0 ;} + + #else /*ENABLE_CHECKING*/ + /*^cppif.else*/ + /*_.IFCPP___V172*/ meltfptr[168] = (/*nil*/NULL); + #endif /*ENABLE_CHECKING*/ ; - /*clear*/ /*_.IFELSE___V9*/ meltfptr[8] = 0 ; - /*epilog*/ - } + + { + MELT_LOCATION("warmelt-normatch.melt:3490:/ locexp"); + meltgc_append_list((melt_ptr_t)(/*_.FLAGLIST__V152*/ meltfptr[107]), (melt_ptr_t)(/*_.OUTFLAG__V163*/ meltfptr[162]));} ; - } + MELT_LOCATION("warmelt-normatch.melt:3488:/ quasiblock"); + + + /*epilog*/ + + MELT_LOCATION("warmelt-normatch.melt:3487:/ clear"); + /*clear*/ /*_.IFCPP___V172*/ meltfptr[168] = 0 ;} ; - /*^compute*/ - - /*_.IFCPP___V8*/ meltfptr[6] = /*_.IFELSE___V9*/ meltfptr[8];; - /*epilog*/ - - MELT_LOCATION("warmelt-normatch.melt:3234:/ clear"); - /*clear*/ /*_#IS_A__L3*/ meltfnum[0] = 0 ; - /*^clear*/ - /*clear*/ /*_.IFELSE___V9*/ meltfptr[8] = 0 ;} - - #else /*ENABLE_CHECKING*/ - /*^cppif.else*/ - /*_.IFCPP___V8*/ meltfptr[6] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - MELT_LOCATION("warmelt-normatch.melt:3235:/ quasiblock"); - - - /*^getslot*/ - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.STEP__V2*/ meltfptr[1]), 1, "LOCA_LOCATION");/*_.LOCA__V10*/ meltfptr[8] = slot; }; - ; - MELT_LOCATION("warmelt-normatch.melt:3236:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.STEP__V2*/ meltfptr[1]), 3, "MSTEP_THEN");/*_.STHEN__V11*/ meltfptr[10] = slot; }; - ; - MELT_LOCATION("warmelt-normatch.melt:3237:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.STEP__V2*/ meltfptr[1]), 4, "MSTEPSETVAR_SYMB");/*_.SETSYMB__V12*/ meltfptr[11] = slot; }; - ; - MELT_LOCATION("warmelt-normatch.melt:3238:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.MG__V3*/ meltfptr[2]), 2, "MCHGX_NODOUT");/*_.NODEBUF__V13*/ meltfptr[12] = slot; }; - ; - MELT_LOCATION("warmelt-normatch.melt:3239:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.MG__V3*/ meltfptr[2]), 3, "MCHGX_EDGOUT");/*_.EDGEBUF__V14*/ meltfptr[13] = slot; }; - ; - MELT_LOCATION("warmelt-normatch.melt:3240:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.MG__V3*/ meltfptr[2]), 4, "MCHGX_DATANAMEMAP");/*_.DATAMAP__V15*/ meltfptr[14] = slot; }; - ; - MELT_LOCATION("warmelt-normatch.melt:3241:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.MG__V3*/ meltfptr[2]), 5, "MCHGX_STEPNAMEMAP");/*_.STEPMAP__V16*/ meltfptr[15] = slot; }; - ; - /*_.STEPNAME__V17*/ meltfptr[16] = - melt_get_mapobjects((meltmapobjects_ptr_t)(/*_.STEPMAP__V16*/ meltfptr[15]), (meltobject_ptr_t)(/*_.STEP__V2*/ meltfptr[1]));; - MELT_LOCATION("warmelt-normatch.melt:3243:/ cond"); - /*cond*/ if (/*_.STHEN__V11*/ meltfptr[10]) /*then*/ { - /*^cond.then*/ - /*^block*/ - /*anyblock*/{ - - /*_.MAPOBJECT_GET__V19*/ meltfptr[18] = - melt_get_mapobjects((meltmapobjects_ptr_t)(/*_.STEPMAP__V16*/ meltfptr[15]), (meltobject_ptr_t)(/*_.STHEN__V11*/ meltfptr[10]));; - /*^compute*/ - - /*_.THENNAME__V18*/ meltfptr[17] = /*_.MAPOBJECT_GET__V19*/ meltfptr[18];; - /*epilog*/ - - MELT_LOCATION("warmelt-normatch.melt:3243:/ clear"); - /*clear*/ /*_.MAPOBJECT_GET__V19*/ meltfptr[18] = 0 ;} - ; - } else {/*^cond.else*/ - - /*_.THENNAME__V18*/ meltfptr[17] = NULL;; - } - ; - /*^compute*/ - - /*_#STEPHASH__L4*/ meltfnum[0] = - (melt_obj_hash((melt_ptr_t)(/*_.STEP__V2*/ meltfptr[1])));; - /*^compute*/ - - /*_.DIS__V20*/ meltfptr[18] = - (melt_discr((melt_ptr_t)(/*_.STEP__V2*/ meltfptr[1])));; - MELT_LOCATION("warmelt-normatch.melt:3246:/ cond"); - /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.DIS__V20*/ meltfptr[18]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[3])))) /*then*/ { - /*^cond.then*/ - /*^getslot*/ - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.DIS__V20*/ meltfptr[18]), 1, "NAMED_NAME");/*_.CLANAM__V21*/ meltfptr[20] = slot; }; + } /*noelse*/ ; - } else {/*^cond.else*/ - - /*_.CLANAM__V21*/ meltfptr[20] = NULL;; - } - ; - - { - MELT_LOCATION("warmelt-normatch.melt:3248:/ locexp"); - meltgc_add_out((melt_ptr_t)(/*_.NODEBUF__V13*/ meltfptr[12]), ( ""));} - ; - - { - MELT_LOCATION("warmelt-normatch.melt:3251:/ locexp"); - /* OUTCLANAM__1 */ - meltgc_add_out ((melt_ptr_t) /*_.NODEBUF__V13*/ meltfptr[12], - melt_string_str ((melt_ptr_t) /*_.CLANAM__V21*/ meltfptr[20]) +6) ; - ;} - ; - - { - MELT_LOCATION("warmelt-normatch.melt:3255:/ locexp"); - meltgc_add_out((melt_ptr_t)(/*_.NODEBUF__V13*/ meltfptr[12]), ( ""));} - ; - - { - MELT_LOCATION("warmelt-normatch.melt:3256:/ locexp"); - meltgc_add_out((melt_ptr_t)(/*_.NODEBUF__V13*/ meltfptr[12]), ( ""));} - ; - - { - MELT_LOCATION("warmelt-normatch.melt:3257:/ locexp"); - /*add2sbufshortmixloc*/ if (melt_magic_discr((melt_ptr_t)(/*_.LOCA__V10*/ meltfptr[8])) == OBMAG_MIXLOC) { - location_t loc = melt_location_mixloc((melt_ptr_t)/*_.LOCA__V10*/ meltfptr[8]); - meltgc_strbuf_printf((melt_ptr_t)(/*_.NODEBUF__V13*/ meltfptr[12]), "{%s:%d:%d}", - lbasename(LOCATION_FILE (loc)), - LOCATION_LINE (loc), LOCATION_COLUMN (loc)); - } /*end add2sbufshortmixloc*/;} - ; - - { - MELT_LOCATION("warmelt-normatch.melt:3258:/ locexp"); - meltgc_add_out((melt_ptr_t)(/*_.NODEBUF__V13*/ meltfptr[12]), ( ""));} - ; - - { - MELT_LOCATION("warmelt-normatch.melt:3259:/ locexp"); - meltgc_out_add_indent((melt_ptr_t)(/*_.NODEBUF__V13*/ meltfptr[12]), (0), 0);;} - ; + + MELT_LOCATION("warmelt-normatch.melt:3476:/ clear"); + /*clear*/ /*_.IFCPP___V164*/ meltfptr[163] = 0 ; + /*^clear*/ + /*clear*/ /*_.IFCPP___V166*/ meltfptr[164] = 0 ; + /*^clear*/ + /*clear*/ /*_.IF___V168*/ meltfptr[166] = 0 ; + + /*^clear*/ + /*clear*/ /*_.OUTFLAG__V163*/ meltfptr[162] = 0 ; + + MELT_LOCATION("warmelt-normatch.melt:3472:/ clear"); + /*clear*/ /*_.OUTPAT__V157*/ meltfptr[129] = 0 ; + /*^clear*/ + /*clear*/ /*_.IFCPP___V158*/ meltfptr[131] = 0 ; + /*^clear*/ + /*clear*/ /*_.IFCPP___V160*/ meltfptr[133] = 0 ; + if (/*_#DIX__L59*/ meltfnum[31]<0) break; + } /* end cit5__EACHTUP */ - { - MELT_LOCATION("warmelt-normatch.melt:3260:/ locexp"); - meltgc_add_out((melt_ptr_t)(/*_.NODEBUF__V13*/ meltfptr[12]), ( ""));} + /*citerepilog*/ + + MELT_LOCATION("warmelt-normatch.melt:3469:/ clear"); + /*clear*/ /*_.CUROUTDATA__V156*/ meltfptr[100] = 0 ; + /*^clear*/ + /*clear*/ /*_#DIX__L59*/ meltfnum[31] = 0 ;} /*endciterblock FOREACH_IN_MULTIPLE*/ ; - MELT_LOCATION("warmelt-normatch.melt:3261:/ cond"); - /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.SETSYMB__V12*/ meltfptr[11]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[3])))) /*then*/ { - /*^cond.then*/ - /*^getslot*/ - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.SETSYMB__V12*/ meltfptr[11]), 1, "NAMED_NAME");/*_.NAMED_NAME__V22*/ meltfptr[21] = slot; }; - ; - } else {/*^cond.else*/ + MELT_LOCATION("warmelt-normatch.melt:3492:/ quasiblock"); - /*_.NAMED_NAME__V22*/ meltfptr[21] = NULL;; - } - ; - { - MELT_LOCATION("warmelt-normatch.melt:3261:/ locexp"); - meltgc_add_out((melt_ptr_t)(/*_.NODEBUF__V13*/ meltfptr[12]), melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V22*/ meltfptr[21])));} - ; - /*_#IS_A__L5*/ meltfnum[4] = - melt_is_instance_of((melt_ptr_t)(/*_.SETSYMB__V12*/ meltfptr[11]), (melt_ptr_t)((/*!CLASS_CLONED_SYMBOL*/ meltfrout->tabval[4])));; - MELT_LOCATION("warmelt-normatch.melt:3262:/ cond"); - /*cond*/ if (/*_#IS_A__L5*/ meltfnum[4]) /*then*/ { + /*_.LIST_FIRST_ELEMENT__V175*/ meltfptr[169] = + (melt_pair_head (melt_list_first((melt_ptr_t)(/*_.FLAGLIST__V152*/ meltfptr[107]))));; + MELT_LOCATION("warmelt-normatch.melt:3493:/ cond"); + /*cond*/ if (/*_.LIST_FIRST_ELEMENT__V175*/ meltfptr[169]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-normatch.melt:3263:/ quasiblock"); - + MELT_LOCATION("warmelt-normatch.melt:3499:/ apply"); + /*apply*/{ + union meltparam_un argtab[1]; + memset(&argtab, 0, sizeof(argtab)); + /*^apply.arg*/ + argtab[0].bp_aptr = (melt_ptr_t*) &(/*!DISCR_MULTIPLE*/ meltfrout->tabval[17]); + /*_.LIST_TO_MULTIPLE__V177*/ meltfptr[163] = melt_apply ((meltclosure_ptr_t)((/*!LIST_TO_MULTIPLE*/ meltfrout->tabval[26])), (melt_ptr_t)(/*_.FLAGLIST__V152*/ meltfptr[107]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + } + ; + MELT_LOCATION("warmelt-normatch.melt:3494:/ quasiblock"); - /*^cond*/ - /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.SETSYMB__V12*/ meltfptr[11]), (melt_ptr_t)((/*!CLASS_CLONED_SYMBOL*/ meltfrout->tabval[4])))) /*then*/ { - /*^cond.then*/ - /*^getslot*/ - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.SETSYMB__V12*/ meltfptr[11]), 3, "CSYM_URANK");/*_.CSYM_URANK__V23*/ meltfptr[22] = slot; }; - ; - } else {/*^cond.else*/ - /*_.CSYM_URANK__V23*/ meltfptr[22] = NULL;; - } + /*^rawallocobj*/ + /*rawallocobj*/ { melt_ptr_t newobj = 0; + melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_MATCH_STEP_FLAG_CONJONCTION*/ meltfrout->tabval[25])), (6), "CLASS_MATCH_STEP_FLAG_CONJONCTION");/*_.INST__V179*/ meltfptr[166] = + newobj; }; ; + /*^putslot*/ + /*putslot*/ + melt_assertmsg("putslot checkobj @LOCA_LOCATION", melt_magic_discr((melt_ptr_t)(/*_.INST__V179*/ meltfptr[166])) == OBMAG_OBJECT); + melt_putfield_object((/*_.INST__V179*/ meltfptr[166]), (1), (/*_.SLOC__V21*/ meltfptr[20]), "LOCA_LOCATION"); + ; + /*^putslot*/ + /*putslot*/ + melt_assertmsg("putslot checkobj @MSTEP_DATA", melt_magic_discr((melt_ptr_t)(/*_.INST__V179*/ meltfptr[166])) == OBMAG_OBJECT); + melt_putfield_object((/*_.INST__V179*/ meltfptr[166]), (2), (/*_.MDATA__V3*/ meltfptr[2]), "MSTEP_DATA"); + ; + /*^putslot*/ + /*putslot*/ + melt_assertmsg("putslot checkobj @MSTEP_THEN", melt_magic_discr((melt_ptr_t)(/*_.INST__V179*/ meltfptr[166])) == OBMAG_OBJECT); + melt_putfield_object((/*_.INST__V179*/ meltfptr[166]), (3), ((/*nil*/NULL)), "MSTEP_THEN"); + ; + /*^putslot*/ + /*putslot*/ + melt_assertmsg("putslot checkobj @MSTEP_FLAG", melt_magic_discr((melt_ptr_t)(/*_.INST__V179*/ meltfptr[166])) == OBMAG_OBJECT); + melt_putfield_object((/*_.INST__V179*/ meltfptr[166]), (4), (/*_.MFLAG__V34*/ meltfptr[33]), "MSTEP_FLAG"); + ; + /*^putslot*/ + /*putslot*/ + melt_assertmsg("putslot checkobj @MSTEP_FLAGARGS", melt_magic_discr((melt_ptr_t)(/*_.INST__V179*/ meltfptr[166])) == OBMAG_OBJECT); + melt_putfield_object((/*_.INST__V179*/ meltfptr[166]), (5), (/*_.LIST_TO_MULTIPLE__V177*/ meltfptr[163]), "MSTEP_FLAGARGS"); + ; + /*_.INST___V178*/ meltfptr[164] = /*_.INST__V179*/ meltfptr[166];; /*^compute*/ - /*_#SYRANK__L6*/ meltfnum[5] = - (melt_get_int((melt_ptr_t)(/*_.CSYM_URANK__V23*/ meltfptr[22])));; + /*_.FLAGSTEP__V176*/ meltfptr[168] = /*_.INST___V178*/ meltfptr[164];; + /*epilog*/ - { - MELT_LOCATION("warmelt-normatch.melt:3265:/ locexp"); - meltgc_add_out((melt_ptr_t)(/*_.NODEBUF__V13*/ meltfptr[12]), ( "$"));} + MELT_LOCATION("warmelt-normatch.melt:3493:/ clear"); + /*clear*/ /*_.LIST_TO_MULTIPLE__V177*/ meltfptr[163] = 0 ; + /*^clear*/ + /*clear*/ /*_.INST___V178*/ meltfptr[164] = 0 ;} + ; + } else {/*^cond.else*/ + + /*^block*/ + /*anyblock*/{ + + MELT_LOCATION("warmelt-normatch.melt:3501:/ quasiblock"); + + + /*^rawallocobj*/ + /*rawallocobj*/ { melt_ptr_t newobj = 0; + melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_MATCH_STEP_FLAG_SET*/ meltfrout->tabval[27])), (5), "CLASS_MATCH_STEP_FLAG_SET");/*_.INST__V181*/ meltfptr[162] = + newobj; }; + ; + /*^putslot*/ + /*putslot*/ + melt_assertmsg("putslot checkobj @LOCA_LOCATION", melt_magic_discr((melt_ptr_t)(/*_.INST__V181*/ meltfptr[162])) == OBMAG_OBJECT); + melt_putfield_object((/*_.INST__V181*/ meltfptr[162]), (1), (/*_.SLOC__V21*/ meltfptr[20]), "LOCA_LOCATION"); + ; + /*^putslot*/ + /*putslot*/ + melt_assertmsg("putslot checkobj @MSTEP_DATA", melt_magic_discr((melt_ptr_t)(/*_.INST__V181*/ meltfptr[162])) == OBMAG_OBJECT); + melt_putfield_object((/*_.INST__V181*/ meltfptr[162]), (2), (/*_.MDATA__V3*/ meltfptr[2]), "MSTEP_DATA"); + ; + /*^putslot*/ + /*putslot*/ + melt_assertmsg("putslot checkobj @MSTEP_THEN", melt_magic_discr((melt_ptr_t)(/*_.INST__V181*/ meltfptr[162])) == OBMAG_OBJECT); + melt_putfield_object((/*_.INST__V181*/ meltfptr[162]), (3), ((/*nil*/NULL)), "MSTEP_THEN"); + ; + /*^putslot*/ + /*putslot*/ + melt_assertmsg("putslot checkobj @MSTEP_FLAG", melt_magic_discr((melt_ptr_t)(/*_.INST__V181*/ meltfptr[162])) == OBMAG_OBJECT); + melt_putfield_object((/*_.INST__V181*/ meltfptr[162]), (4), (/*_.MFLAG__V34*/ meltfptr[33]), "MSTEP_FLAG"); ; + /*_.INST___V180*/ meltfptr[160] = /*_.INST__V181*/ meltfptr[162];; + /*^compute*/ + + /*_.FLAGSTEP__V176*/ meltfptr[168] = /*_.INST___V180*/ meltfptr[160];; + /*epilog*/ - { - MELT_LOCATION("warmelt-normatch.melt:3266:/ locexp"); - meltgc_add_out_dec((melt_ptr_t)(/*_.NODEBUF__V13*/ meltfptr[12]), (/*_#SYRANK__L6*/ meltfnum[5]));} + MELT_LOCATION("warmelt-normatch.melt:3493:/ clear"); + /*clear*/ /*_.INST___V180*/ meltfptr[160] = 0 ;} + ; + } + ; + + #if ENABLE_CHECKING + MELT_LOCATION("warmelt-normatch.melt:3510:/ cppif.then"); + /*^block*/ + /*anyblock*/{ + + /*_#THE_MELTCALLCOUNT__L65*/ meltfnum[36] = + meltcallcount;; + MELT_LOCATION("warmelt-normatch.melt:3510:/ apply"); + /*apply*/{ + union meltparam_un argtab[4]; + memset(&argtab, 0, sizeof(argtab)); + /*^apply.arg*/ + argtab[0].bp_cstring = "translpat_patmat flagstep"; + /*^apply.arg*/ + argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L65*/ meltfnum[36]; + /*^apply.arg*/ + argtab[2].bp_cstring = "warmelt-normatch.melt"; + /*^apply.arg*/ + argtab[3].bp_long = 3510; + /*_.DEBUG_MSG_FUN__V183*/ meltfptr[131] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.FLAGSTEP__V176*/ meltfptr[168]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + } ; + /*_.IFCPP___V182*/ meltfptr[129] = /*_.DEBUG_MSG_FUN__V183*/ meltfptr[131];; + /*epilog*/ - MELT_LOCATION("warmelt-normatch.melt:3263:/ clear"); - /*clear*/ /*_.CSYM_URANK__V23*/ meltfptr[22] = 0 ; + MELT_LOCATION("warmelt-normatch.melt:3510:/ clear"); + /*clear*/ /*_#THE_MELTCALLCOUNT__L65*/ meltfnum[36] = 0 ; /*^clear*/ - /*clear*/ /*_#SYRANK__L6*/ meltfnum[5] = 0 ; + /*clear*/ /*_.DEBUG_MSG_FUN__V183*/ meltfptr[131] = 0 ;} + + #else /*ENABLE_CHECKING*/ + /*^cppif.else*/ + /*_.IFCPP___V182*/ meltfptr[129] = (/*nil*/NULL); + #endif /*ENABLE_CHECKING*/ + ; + MELT_LOCATION("warmelt-normatch.melt:3511:/ cond"); + /*cond*/ if (/*_.LASTSTEP__V153*/ meltfptr[72]) /*then*/ { + /*^cond.then*/ + /*^block*/ + /*anyblock*/{ + + /*^msend*/ + /*msend*/{ + union meltparam_un argtab[1]; + memset(&argtab, 0, sizeof(argtab)); + /*^ojbmsend.arg*/ + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.FLAGSTEP__V176*/ meltfptr[168]; + /*_.PUT_THEN_MATCH__V185*/ meltfptr[163] = meltgc_send((melt_ptr_t)(/*_.LASTSTEP__V153*/ meltfptr[72]), (melt_ptr_t)((/*!PUT_THEN_MATCH*/ meltfrout->tabval[23])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + } + ; + /*_.IF___V184*/ meltfptr[133] = /*_.PUT_THEN_MATCH__V185*/ meltfptr[163];; /*epilog*/ - } + + MELT_LOCATION("warmelt-normatch.melt:3511:/ clear"); + /*clear*/ /*_.PUT_THEN_MATCH__V185*/ meltfptr[163] = 0 ;} ; - } /*noelse*/ - ; - - { - MELT_LOCATION("warmelt-normatch.melt:3268:/ locexp"); - meltgc_add_out((melt_ptr_t)(/*_.NODEBUF__V13*/ meltfptr[12]), ( ""));} - ; + } else {/*^cond.else*/ - { - MELT_LOCATION("warmelt-normatch.melt:3269:/ locexp"); - meltgc_out_add_indent((melt_ptr_t)(/*_.NODEBUF__V13*/ meltfptr[12]), (0), 0);;} + /*_.IF___V184*/ meltfptr[133] = NULL;; + } ; - MELT_LOCATION("warmelt-normatch.melt:3270:/ cond"); - /*cond*/ if (/*_.THENNAME__V18*/ meltfptr[17]) /*then*/ { + MELT_LOCATION("warmelt-normatch.melt:3512:/ cond"); + /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.MFLAG__V34*/ meltfptr[33]), (melt_ptr_t)((/*!CLASS_MATCH_FLAG*/ meltfrout->tabval[24])))) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/{ - - { - MELT_LOCATION("warmelt-normatch.melt:3272:/ locexp"); - meltgc_out_add_indent((melt_ptr_t)(/*_.EDGEBUF__V14*/ meltfptr[13]), (0), 0);;} + /*^putslot*/ + /*putslot*/ + melt_assertmsg("putslot checkobj @MFLAG_SETSTEP", melt_magic_discr((melt_ptr_t)(/*_.MFLAG__V34*/ meltfptr[33])) == OBMAG_OBJECT); + melt_putfield_object((/*_.MFLAG__V34*/ meltfptr[33]), (5), (/*_.FLAGSTEP__V176*/ meltfptr[168]), "MFLAG_SETSTEP"); ; - - { - MELT_LOCATION("warmelt-normatch.melt:3273:/ locexp"); - meltgc_add_out((melt_ptr_t)(/*_.EDGEBUF__V14*/ meltfptr[13]), melt_string_str((melt_ptr_t)(/*_.STEPNAME__V17*/ meltfptr[16])));} + /*^touch*/ + meltgc_touch(/*_.MFLAG__V34*/ meltfptr[33]); ; + /*epilog*/ + } + ; + } /*noelse*/ + ; + MELT_LOCATION("warmelt-normatch.melt:3513:/ cond"); + /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.TESTGROUP__V154*/ meltfptr[63]), (melt_ptr_t)((/*!CLASS_MATCH_STEP_TEST_GROUP*/ meltfrout->tabval[21])))) /*then*/ { + /*^cond.then*/ + /*^block*/ + /*anyblock*/{ - { - MELT_LOCATION("warmelt-normatch.melt:3274:/ locexp"); - meltgc_add_out((melt_ptr_t)(/*_.EDGEBUF__V14*/ meltfptr[13]), ( " /*then*/ -> "));} + /*^putslot*/ + /*putslot*/ + melt_assertmsg("putslot checkobj @MSTGROUP_THEN", melt_magic_discr((melt_ptr_t)(/*_.TESTGROUP__V154*/ meltfptr[63])) == OBMAG_OBJECT); + melt_putfield_object((/*_.TESTGROUP__V154*/ meltfptr[63]), (6), (/*_.CURSTEP__V31*/ meltfptr[30]), "MSTGROUP_THEN"); ; - - { - MELT_LOCATION("warmelt-normatch.melt:3275:/ locexp"); - meltgc_add_out((melt_ptr_t)(/*_.EDGEBUF__V14*/ meltfptr[13]), melt_string_str((melt_ptr_t)(/*_.THENNAME__V18*/ meltfptr[17])));} + /*^putslot*/ + /*putslot*/ + melt_assertmsg("putslot checkobj @MSTGROUP_ELSE", melt_magic_discr((melt_ptr_t)(/*_.TESTGROUP__V154*/ meltfptr[63])) == OBMAG_OBJECT); + melt_putfield_object((/*_.TESTGROUP__V154*/ meltfptr[63]), (7), (/*_.ELSELIST__V151*/ meltfptr[106]), "MSTGROUP_ELSE"); ; - - { - MELT_LOCATION("warmelt-normatch.melt:3276:/ locexp"); - meltgc_add_out((melt_ptr_t)(/*_.EDGEBUF__V14*/ meltfptr[13]), ( " [ arrowhead=normal, color=green ];"));} + /*^touch*/ + meltgc_touch(/*_.TESTGROUP__V154*/ meltfptr[63]); ; - MELT_LOCATION("warmelt-normatch.melt:3271:/ quasiblock"); - - /*epilog*/ } ; } /*noelse*/ ; - MELT_LOCATION("warmelt-normatch.melt:3235:/ clear"); - /*clear*/ /*_.LOCA__V10*/ meltfptr[8] = 0 ; + #if ENABLE_CHECKING + MELT_LOCATION("warmelt-normatch.melt:3517:/ cppif.then"); + /*^block*/ + /*anyblock*/{ + + /*_#THE_MELTCALLCOUNT__L66*/ meltfnum[37] = + meltcallcount;; + MELT_LOCATION("warmelt-normatch.melt:3517:/ apply"); + /*apply*/{ + union meltparam_un argtab[4]; + memset(&argtab, 0, sizeof(argtab)); + /*^apply.arg*/ + argtab[0].bp_cstring = "translpat_patmat return testgroup"; + /*^apply.arg*/ + argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L66*/ meltfnum[37]; + /*^apply.arg*/ + argtab[2].bp_cstring = "warmelt-normatch.melt"; + /*^apply.arg*/ + argtab[3].bp_long = 3517; + /*_.DEBUG_MSG_FUN__V187*/ meltfptr[160] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.TESTGROUP__V154*/ meltfptr[63]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + } + ; + /*_.IFCPP___V186*/ meltfptr[164] = /*_.DEBUG_MSG_FUN__V187*/ meltfptr[160];; + /*epilog*/ + + MELT_LOCATION("warmelt-normatch.melt:3517:/ clear"); + /*clear*/ /*_#THE_MELTCALLCOUNT__L66*/ meltfnum[37] = 0 ; + /*^clear*/ + /*clear*/ /*_.DEBUG_MSG_FUN__V187*/ meltfptr[160] = 0 ;} + + #else /*ENABLE_CHECKING*/ + /*^cppif.else*/ + /*_.IFCPP___V186*/ meltfptr[164] = (/*nil*/NULL); + #endif /*ENABLE_CHECKING*/ + ; + MELT_LOCATION("warmelt-normatch.melt:3518:/ quasiblock"); + + + /*_.RETVAL___V1*/ meltfptr[0] = /*_.TESTGROUP__V154*/ meltfptr[63];; + MELT_LOCATION("warmelt-normatch.melt:3518:/ putxtraresult"); + if (!xrestab_ || !xresdescr_) goto labend_rout; + if (xresdescr_[0] != BPAR_PTR) goto labend_rout; + if (xrestab_[0].bp_aptr) *(xrestab_[0].bp_aptr) = (melt_ptr_t) (/*_.MFLAG__V34*/ meltfptr[33]); + ; + /*^finalreturn*/ + ; + /*finalret*/ goto labend_rout ; + /*_.LET___V174*/ meltfptr[170] = /*_.RETURN___V188*/ meltfptr[131];; + + MELT_LOCATION("warmelt-normatch.melt:3492:/ clear"); + /*clear*/ /*_.LIST_FIRST_ELEMENT__V175*/ meltfptr[169] = 0 ; /*^clear*/ - /*clear*/ /*_.STHEN__V11*/ meltfptr[10] = 0 ; + /*clear*/ /*_.FLAGSTEP__V176*/ meltfptr[168] = 0 ; /*^clear*/ - /*clear*/ /*_.SETSYMB__V12*/ meltfptr[11] = 0 ; + /*clear*/ /*_.IFCPP___V182*/ meltfptr[129] = 0 ; /*^clear*/ - /*clear*/ /*_.NODEBUF__V13*/ meltfptr[12] = 0 ; + /*clear*/ /*_.IF___V184*/ meltfptr[133] = 0 ; /*^clear*/ - /*clear*/ /*_.EDGEBUF__V14*/ meltfptr[13] = 0 ; + /*clear*/ /*_.IFCPP___V186*/ meltfptr[164] = 0 ; /*^clear*/ - /*clear*/ /*_.DATAMAP__V15*/ meltfptr[14] = 0 ; + /*clear*/ /*_.RETURN___V188*/ meltfptr[131] = 0 ; + /*_.LET___V148*/ meltfptr[135] = /*_.LET___V174*/ meltfptr[170];; + + MELT_LOCATION("warmelt-normatch.melt:3453:/ clear"); + /*clear*/ /*_.OUTDATA__V149*/ meltfptr[136] = 0 ; /*^clear*/ - /*clear*/ /*_.STEPMAP__V16*/ meltfptr[15] = 0 ; + /*clear*/ /*_.THENLIST__V150*/ meltfptr[138] = 0 ; /*^clear*/ - /*clear*/ /*_.STEPNAME__V17*/ meltfptr[16] = 0 ; + /*clear*/ /*_.ELSELIST__V151*/ meltfptr[106] = 0 ; /*^clear*/ - /*clear*/ /*_.THENNAME__V18*/ meltfptr[17] = 0 ; + /*clear*/ /*_.FLAGLIST__V152*/ meltfptr[107] = 0 ; /*^clear*/ - /*clear*/ /*_#STEPHASH__L4*/ meltfnum[0] = 0 ; + /*clear*/ /*_.LASTSTEP__V153*/ meltfptr[72] = 0 ; /*^clear*/ - /*clear*/ /*_.DIS__V20*/ meltfptr[18] = 0 ; + /*clear*/ /*_.TESTGROUP__V154*/ meltfptr[63] = 0 ; /*^clear*/ - /*clear*/ /*_.CLANAM__V21*/ meltfptr[20] = 0 ; + /*clear*/ /*_.LET___V174*/ meltfptr[170] = 0 ; + /*_.LET___V81*/ meltfptr[74] = /*_.LET___V148*/ meltfptr[135];; + + MELT_LOCATION("warmelt-normatch.melt:3373:/ clear"); + /*clear*/ /*_.LASTSTEPTEST__V82*/ meltfptr[75] = 0 ; /*^clear*/ - /*clear*/ /*_.NAMED_NAME__V22*/ meltfptr[21] = 0 ; + /*clear*/ /*_.IFCPP___V109*/ meltfptr[62] = 0 ; /*^clear*/ - /*clear*/ /*_#IS_A__L5*/ meltfnum[4] = 0 ; + /*clear*/ /*_#NULL__L46*/ meltfnum[33] = 0 ; + /*^clear*/ + /*clear*/ /*_.IFCPP___V142*/ meltfptr[140] = 0 ; + /*^clear*/ + /*clear*/ /*_.IFCPP___V144*/ meltfptr[130] = 0 ; + /*^clear*/ + /*clear*/ /*_.IFCPP___V146*/ meltfptr[132] = 0 ; + /*^clear*/ + /*clear*/ /*_.LET___V148*/ meltfptr[135] = 0 ; + /*_.MULTI___V49*/ meltfptr[47] = /*_.LET___V81*/ meltfptr[74];; + + MELT_LOCATION("warmelt-normatch.melt:3340:/ clear"); + /*clear*/ /*_.IFCPP___V52*/ meltfptr[51] = 0 ; + /*^clear*/ + /*clear*/ /*_.IFCPP___V54*/ meltfptr[52] = 0 ; + /*^clear*/ + /*clear*/ /*_.IFCPP___V56*/ meltfptr[54] = 0 ; + /*^clear*/ + /*clear*/ /*_#MULTIPLE_LENGTH__L18*/ meltfnum[7] = 0 ; + /*^clear*/ + /*clear*/ /*_#MULTIPLE_LENGTH__L19*/ meltfnum[18] = 0 ; + /*^clear*/ + /*clear*/ /*_#I__L20*/ meltfnum[19] = 0 ; + /*^clear*/ + /*clear*/ /*_.LET___V81*/ meltfptr[74] = 0 ; + + /*^clear*/ + /*clear*/ /*_.INBINDS__V51*/ meltfptr[50] = 0 ; + /*_.LET___V19*/ meltfptr[17] = /*_.MULTI___V49*/ meltfptr[47];; + + MELT_LOCATION("warmelt-normatch.melt:3317:/ clear"); + /*clear*/ /*_.LOCA_LOCATION__V20*/ meltfptr[19] = 0 ; + /*^clear*/ + /*clear*/ /*_.SLOC__V21*/ meltfptr[20] = 0 ; + /*^clear*/ + /*clear*/ /*_.SOPBIND__V22*/ meltfptr[21] = 0 ; + /*^clear*/ + /*clear*/ /*_.SOPER__V23*/ meltfptr[22] = 0 ; + /*^clear*/ + /*clear*/ /*_.SINS__V24*/ meltfptr[23] = 0 ; + /*^clear*/ + /*clear*/ /*_.SOUTS__V25*/ meltfptr[24] = 0 ; + /*^clear*/ + /*clear*/ /*_.MATCTX__V26*/ meltfptr[25] = 0 ; + /*^clear*/ + /*clear*/ /*_.ENV__V27*/ meltfptr[26] = 0 ; + /*^clear*/ + /*clear*/ /*_.NCX__V28*/ meltfptr[27] = 0 ; + /*^clear*/ + /*clear*/ /*_.OPIN__V29*/ meltfptr[28] = 0 ; + /*^clear*/ + /*clear*/ /*_.OPOUT__V30*/ meltfptr[29] = 0 ; + /*^clear*/ + /*clear*/ /*_#NBOPOUT__L7*/ meltfnum[0] = 0 ; + /*^clear*/ + /*clear*/ /*_.CURSTEP__V31*/ meltfptr[30] = 0 ; + /*^clear*/ + /*clear*/ /*_.MDATASTEPS__V32*/ meltfptr[31] = 0 ; + /*^clear*/ + /*clear*/ /*_.NAMED_NAME__V33*/ meltfptr[32] = 0 ; + /*^clear*/ + /*clear*/ /*_.MFLAG__V34*/ meltfptr[33] = 0 ; + /*^clear*/ + /*clear*/ /*_.IFCPP___V35*/ meltfptr[34] = 0 ; + /*^clear*/ + /*clear*/ /*_.IFCPP___V37*/ meltfptr[35] = 0 ; + /*^clear*/ + /*clear*/ /*_.IFCPP___V39*/ meltfptr[37] = 0 ; + /*^clear*/ + /*clear*/ /*_.IFCPP___V41*/ meltfptr[39] = 0 ; + /*^clear*/ + /*clear*/ /*_.IFCPP___V43*/ meltfptr[41] = 0 ; + /*^clear*/ + /*clear*/ /*_.IFCPP___V45*/ meltfptr[43] = 0 ; + /*^clear*/ + /*clear*/ /*_.IFCPP___V47*/ meltfptr[45] = 0 ; + /*^clear*/ + /*clear*/ /*_.MULTI___V49*/ meltfptr[47] = 0 ; + MELT_LOCATION("warmelt-normatch.melt:3310:/ quasiblock"); + + + /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V19*/ meltfptr[17];; + MELT_LOCATION("warmelt-normatch.melt:3310:/ finalreturn"); + ; + /*finalret*/ goto labend_rout ; /*epilog*/ - MELT_LOCATION("warmelt-normatch.melt:3231:/ clear"); - /*clear*/ /*_.IFCPP___V4*/ meltfptr[3] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V6*/ meltfptr[4] = 0 ; + /*clear*/ /*_.IFCPP___V7*/ meltfptr[6] = 0 ; + /*^clear*/ + /*clear*/ /*_.IFCPP___V9*/ meltfptr[7] = 0 ; + /*^clear*/ + /*clear*/ /*_.IFCPP___V11*/ meltfptr[9] = 0 ; + /*^clear*/ + /*clear*/ /*_.IFCPP___V13*/ meltfptr[11] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V8*/ meltfptr[6] = 0 ;} + /*clear*/ /*_.IFCPP___V15*/ meltfptr[13] = 0 ; + /*^clear*/ + /*clear*/ /*_.IFCPP___V17*/ meltfptr[15] = 0 ; + /*^clear*/ + /*clear*/ /*_.LET___V19*/ meltfptr[17] = 0 ;} ; goto labend_rout; labend_rout: -melt_trace_end("MGALTSTEP_STEPSETVAR", meltcallcount); melt_topframe = (struct callframe_melt_st*) meltfram__.prev; - return (melt_ptr_t)(/*noretval*/ NULL); +melt_trace_end("TRANSLPAT_PATMAT", meltcallcount); melt_topframe = (struct callframe_melt_st*) meltfram__.prev; + return (melt_ptr_t)(/*_.RETVAL___V1*/ meltfptr[0]); #undef meltcallcount #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR -} /*end meltrout_70_warmelt_normatch_MGALTSTEP_STEPSETVAR*/ +} /*end meltrout_71_warmelt_normatch_TRANSLPAT_PATMAT*/ melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_71_warmelt_normatch_MGALTSTEP_STEPTESTVAR(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, +meltrout_72_warmelt_normatch_MGALTSTEP_STEPTESTVAR(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_) { #if ENABLE_CHECKING @@ -4618,7 +8905,7 @@ meltrout_71_warmelt_normatch_MGALTSTEP_STEPTESTVAR(meltclosure_ptr_t closp_, mel #define meltcallcount 0L #endif - struct frame_meltrout_71_warmelt_normatch_MGALTSTEP_STEPTESTVAR_st { unsigned nbvar; + struct frame_meltrout_72_warmelt_normatch_MGALTSTEP_STEPTESTVAR_st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif @@ -4651,7 +8938,7 @@ melt_trace_start("MGALTSTEP_STEPTESTVAR", meltcallcount); /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-normatch.melt:3283:/ getarg"); + MELT_LOCATION("warmelt-normatch.melt:3538:/ getarg"); /*_.STEP__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; /*getarg#1*/ @@ -4669,13 +8956,13 @@ lab_endgetargs:; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normatch.melt:3284:/ cppif.then"); + MELT_LOCATION("warmelt-normatch.melt:3539:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L1*/ meltfnum[0] = meltcallcount;; - MELT_LOCATION("warmelt-normatch.melt:3284:/ apply"); + MELT_LOCATION("warmelt-normatch.melt:3539:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -4686,14 +8973,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].bp_cstring = "warmelt-normatch.melt"; /*^apply.arg*/ - argtab[3].bp_long = 3284; + argtab[3].bp_long = 3539; /*_.DEBUG_MSG_FUN__V5*/ meltfptr[4] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.STEP__V2*/ meltfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V4*/ meltfptr[3] = /*_.DEBUG_MSG_FUN__V5*/ meltfptr[4];; /*epilog*/ - MELT_LOCATION("warmelt-normatch.melt:3284:/ clear"); + MELT_LOCATION("warmelt-normatch.melt:3539:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L1*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V5*/ meltfptr[4] = 0 ;} @@ -4705,17 +8992,17 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normatch.melt:3285:/ cppif.then"); + MELT_LOCATION("warmelt-normatch.melt:3540:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L2*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.STEP__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_MATCH_STEP_TEST_VARIABLE*/ meltfrout->tabval[1])));; - MELT_LOCATION("warmelt-normatch.melt:3285:/ cond"); + MELT_LOCATION("warmelt-normatch.melt:3540:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V7*/ meltfptr[6] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normatch.melt:3285:/ cond.else"); + } else {MELT_LOCATION("warmelt-normatch.melt:3540:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -4726,7 +9013,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check step"),( "warmelt-normatch.melt")?( "warmelt-normatch.melt"):__FILE__, - (3285)?(3285):__LINE__, __FUNCTION__); + (3540)?(3540):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V7*/ meltfptr[6] = 0 ; @@ -4740,7 +9027,7 @@ lab_endgetargs:; /*_.IFCPP___V6*/ meltfptr[4] = /*_.IFELSE___V7*/ meltfptr[6];; /*epilog*/ - MELT_LOCATION("warmelt-normatch.melt:3285:/ clear"); + MELT_LOCATION("warmelt-normatch.melt:3540:/ clear"); /*clear*/ /*_#IS_A__L2*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V7*/ meltfptr[6] = 0 ;} @@ -4752,17 +9039,17 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normatch.melt:3286:/ cppif.then"); + MELT_LOCATION("warmelt-normatch.melt:3541:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L3*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.MG__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_MATCH_GRAPHIC*/ meltfrout->tabval[2])));; - MELT_LOCATION("warmelt-normatch.melt:3286:/ cond"); + MELT_LOCATION("warmelt-normatch.melt:3541:/ cond"); /*cond*/ if (/*_#IS_A__L3*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V9*/ meltfptr[8] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normatch.melt:3286:/ cond.else"); + } else {MELT_LOCATION("warmelt-normatch.melt:3541:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -4773,7 +9060,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check mg"),( "warmelt-normatch.melt")?( "warmelt-normatch.melt"):__FILE__, - (3286)?(3286):__LINE__, __FUNCTION__); + (3541)?(3541):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V9*/ meltfptr[8] = 0 ; @@ -4787,7 +9074,7 @@ lab_endgetargs:; /*_.IFCPP___V8*/ meltfptr[6] = /*_.IFELSE___V9*/ meltfptr[8];; /*epilog*/ - MELT_LOCATION("warmelt-normatch.melt:3286:/ clear"); + MELT_LOCATION("warmelt-normatch.melt:3541:/ clear"); /*clear*/ /*_#IS_A__L3*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V9*/ meltfptr[8] = 0 ;} @@ -4797,44 +9084,44 @@ lab_endgetargs:; /*_.IFCPP___V8*/ meltfptr[6] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-normatch.melt:3287:/ quasiblock"); + MELT_LOCATION("warmelt-normatch.melt:3542:/ quasiblock"); /*^getslot*/ { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.STEP__V2*/ meltfptr[1]), 1, "LOCA_LOCATION");/*_.LOCA__V10*/ meltfptr[8] = slot; }; ; - MELT_LOCATION("warmelt-normatch.melt:3288:/ getslot"); + MELT_LOCATION("warmelt-normatch.melt:3543:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.STEP__V2*/ meltfptr[1]), 3, "MSTEP_THEN");/*_.STHEN__V11*/ meltfptr[10] = slot; }; ; - MELT_LOCATION("warmelt-normatch.melt:3289:/ getslot"); + MELT_LOCATION("warmelt-normatch.melt:3544:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.STEP__V2*/ meltfptr[1]), 4, "MSTEP_ELSE");/*_.SELSE__V12*/ meltfptr[11] = slot; }; ; - MELT_LOCATION("warmelt-normatch.melt:3290:/ getslot"); + MELT_LOCATION("warmelt-normatch.melt:3545:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.STEP__V2*/ meltfptr[1]), 5, "MSTEPTESTVAR_SYMB");/*_.TESTSYMB__V13*/ meltfptr[12] = slot; }; ; - MELT_LOCATION("warmelt-normatch.melt:3291:/ getslot"); + MELT_LOCATION("warmelt-normatch.melt:3546:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.MG__V3*/ meltfptr[2]), 2, "MCHGX_NODOUT");/*_.NODEBUF__V14*/ meltfptr[13] = slot; }; ; - MELT_LOCATION("warmelt-normatch.melt:3292:/ getslot"); + MELT_LOCATION("warmelt-normatch.melt:3547:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.MG__V3*/ meltfptr[2]), 3, "MCHGX_EDGOUT");/*_.EDGEBUF__V15*/ meltfptr[14] = slot; }; ; - MELT_LOCATION("warmelt-normatch.melt:3293:/ getslot"); + MELT_LOCATION("warmelt-normatch.melt:3548:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.MG__V3*/ meltfptr[2]), 4, "MCHGX_DATANAMEMAP");/*_.DATAMAP__V16*/ meltfptr[15] = slot; }; ; - MELT_LOCATION("warmelt-normatch.melt:3294:/ getslot"); + MELT_LOCATION("warmelt-normatch.melt:3549:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.MG__V3*/ meltfptr[2]), 5, "MCHGX_STEPNAMEMAP");/*_.STEPMAP__V17*/ meltfptr[16] = slot; }; ; /*_.STEPNAME__V18*/ meltfptr[17] = melt_get_mapobjects((meltmapobjects_ptr_t)(/*_.STEPMAP__V17*/ meltfptr[16]), (meltobject_ptr_t)(/*_.STEP__V2*/ meltfptr[1]));; - MELT_LOCATION("warmelt-normatch.melt:3296:/ cond"); + MELT_LOCATION("warmelt-normatch.melt:3551:/ cond"); /*cond*/ if (/*_.STHEN__V11*/ meltfptr[10]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -4847,7 +9134,7 @@ lab_endgetargs:; /*_.THENNAME__V19*/ meltfptr[18] = /*_.MAPOBJECT_GET__V20*/ meltfptr[19];; /*epilog*/ - MELT_LOCATION("warmelt-normatch.melt:3296:/ clear"); + MELT_LOCATION("warmelt-normatch.melt:3551:/ clear"); /*clear*/ /*_.MAPOBJECT_GET__V20*/ meltfptr[19] = 0 ;} ; } else {/*^cond.else*/ @@ -4855,7 +9142,7 @@ lab_endgetargs:; /*_.THENNAME__V19*/ meltfptr[18] = NULL;; } ; - MELT_LOCATION("warmelt-normatch.melt:3297:/ cond"); + MELT_LOCATION("warmelt-normatch.melt:3552:/ cond"); /*cond*/ if (/*_.SELSE__V12*/ meltfptr[11]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -4868,7 +9155,7 @@ lab_endgetargs:; /*_.ELSENAME__V21*/ meltfptr[19] = /*_.MAPOBJECT_GET__V22*/ meltfptr[21];; /*epilog*/ - MELT_LOCATION("warmelt-normatch.melt:3297:/ clear"); + MELT_LOCATION("warmelt-normatch.melt:3552:/ clear"); /*clear*/ /*_.MAPOBJECT_GET__V22*/ meltfptr[21] = 0 ;} ; } else {/*^cond.else*/ @@ -4884,7 +9171,7 @@ lab_endgetargs:; /*_.DIS__V23*/ meltfptr[21] = (melt_discr((melt_ptr_t)(/*_.STEP__V2*/ meltfptr[1])));; - MELT_LOCATION("warmelt-normatch.melt:3300:/ cond"); + MELT_LOCATION("warmelt-normatch.melt:3555:/ cond"); /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.DIS__V23*/ meltfptr[21]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[3])))) /*then*/ { /*^cond.then*/ /*^getslot*/ @@ -4898,30 +9185,30 @@ lab_endgetargs:; ; { - MELT_LOCATION("warmelt-normatch.melt:3302:/ locexp"); + MELT_LOCATION("warmelt-normatch.melt:3557:/ locexp"); meltgc_add_out((melt_ptr_t)(/*_.NODEBUF__V14*/ meltfptr[13]), ( ""));} ; { - MELT_LOCATION("warmelt-normatch.melt:3305:/ locexp"); - /* OUTCLANAM__2 */ + MELT_LOCATION("warmelt-normatch.melt:3560:/ locexp"); + /* OUTCLANAM__1 */ meltgc_add_out ((melt_ptr_t) /*_.NODEBUF__V14*/ meltfptr[13], melt_string_str ((melt_ptr_t) /*_.CLANAM__V24*/ meltfptr[23]) +6) ; ;} ; { - MELT_LOCATION("warmelt-normatch.melt:3309:/ locexp"); + MELT_LOCATION("warmelt-normatch.melt:3564:/ locexp"); meltgc_add_out((melt_ptr_t)(/*_.NODEBUF__V14*/ meltfptr[13]), ( ""));} ; { - MELT_LOCATION("warmelt-normatch.melt:3310:/ locexp"); + MELT_LOCATION("warmelt-normatch.melt:3565:/ locexp"); meltgc_add_out((melt_ptr_t)(/*_.NODEBUF__V14*/ meltfptr[13]), ( ""));} ; { - MELT_LOCATION("warmelt-normatch.melt:3311:/ locexp"); + MELT_LOCATION("warmelt-normatch.melt:3566:/ locexp"); /*add2sbufshortmixloc*/ if (melt_magic_discr((melt_ptr_t)(/*_.LOCA__V10*/ meltfptr[8])) == OBMAG_MIXLOC) { location_t loc = melt_location_mixloc((melt_ptr_t)/*_.LOCA__V10*/ meltfptr[8]); meltgc_strbuf_printf((melt_ptr_t)(/*_.NODEBUF__V14*/ meltfptr[13]), "{%s:%d:%d}", @@ -4931,20 +9218,20 @@ lab_endgetargs:; ; { - MELT_LOCATION("warmelt-normatch.melt:3312:/ locexp"); + MELT_LOCATION("warmelt-normatch.melt:3567:/ locexp"); meltgc_add_out((melt_ptr_t)(/*_.NODEBUF__V14*/ meltfptr[13]), ( ""));} ; { - MELT_LOCATION("warmelt-normatch.melt:3313:/ locexp"); + MELT_LOCATION("warmelt-normatch.melt:3568:/ locexp"); meltgc_out_add_indent((melt_ptr_t)(/*_.NODEBUF__V14*/ meltfptr[13]), (0), 0);;} ; { - MELT_LOCATION("warmelt-normatch.melt:3314:/ locexp"); + MELT_LOCATION("warmelt-normatch.melt:3569:/ locexp"); meltgc_add_out((melt_ptr_t)(/*_.NODEBUF__V14*/ meltfptr[13]), ( ""));} ; - MELT_LOCATION("warmelt-normatch.melt:3315:/ cond"); + MELT_LOCATION("warmelt-normatch.melt:3570:/ cond"); /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.TESTSYMB__V13*/ meltfptr[12]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[3])))) /*then*/ { /*^cond.then*/ /*^getslot*/ @@ -4958,18 +9245,18 @@ lab_endgetargs:; ; { - MELT_LOCATION("warmelt-normatch.melt:3315:/ locexp"); + MELT_LOCATION("warmelt-normatch.melt:3570:/ locexp"); meltgc_add_out((melt_ptr_t)(/*_.NODEBUF__V14*/ meltfptr[13]), melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V25*/ meltfptr[24])));} ; /*_#IS_A__L5*/ meltfnum[4] = melt_is_instance_of((melt_ptr_t)(/*_.TESTSYMB__V13*/ meltfptr[12]), (melt_ptr_t)((/*!CLASS_CLONED_SYMBOL*/ meltfrout->tabval[4])));; - MELT_LOCATION("warmelt-normatch.melt:3316:/ cond"); + MELT_LOCATION("warmelt-normatch.melt:3571:/ cond"); /*cond*/ if (/*_#IS_A__L5*/ meltfnum[4]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-normatch.melt:3317:/ quasiblock"); + MELT_LOCATION("warmelt-normatch.melt:3572:/ quasiblock"); /*^cond*/ @@ -4990,16 +9277,16 @@ lab_endgetargs:; (melt_get_int((melt_ptr_t)(/*_.CSYM_URANK__V26*/ meltfptr[25])));; { - MELT_LOCATION("warmelt-normatch.melt:3319:/ locexp"); + MELT_LOCATION("warmelt-normatch.melt:3574:/ locexp"); meltgc_add_out((melt_ptr_t)(/*_.NODEBUF__V14*/ meltfptr[13]), ( "$"));} ; { - MELT_LOCATION("warmelt-normatch.melt:3320:/ locexp"); + MELT_LOCATION("warmelt-normatch.melt:3575:/ locexp"); meltgc_add_out_dec((melt_ptr_t)(/*_.NODEBUF__V14*/ meltfptr[13]), (/*_#SYRANK__L6*/ meltfnum[5]));} ; - MELT_LOCATION("warmelt-normatch.melt:3317:/ clear"); + MELT_LOCATION("warmelt-normatch.melt:3572:/ clear"); /*clear*/ /*_.CSYM_URANK__V26*/ meltfptr[25] = 0 ; /*^clear*/ /*clear*/ /*_#SYRANK__L6*/ meltfnum[5] = 0 ; @@ -5010,15 +9297,15 @@ lab_endgetargs:; ; { - MELT_LOCATION("warmelt-normatch.melt:3322:/ locexp"); + MELT_LOCATION("warmelt-normatch.melt:3577:/ locexp"); meltgc_add_out((melt_ptr_t)(/*_.NODEBUF__V14*/ meltfptr[13]), ( ""));} ; { - MELT_LOCATION("warmelt-normatch.melt:3323:/ locexp"); + MELT_LOCATION("warmelt-normatch.melt:3578:/ locexp"); meltgc_out_add_indent((melt_ptr_t)(/*_.NODEBUF__V14*/ meltfptr[13]), (0), 0);;} ; - MELT_LOCATION("warmelt-normatch.melt:3324:/ cond"); + MELT_LOCATION("warmelt-normatch.melt:3579:/ cond"); /*cond*/ if (/*_.THENNAME__V19*/ meltfptr[18]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -5026,30 +9313,30 @@ lab_endgetargs:; { - MELT_LOCATION("warmelt-normatch.melt:3326:/ locexp"); + MELT_LOCATION("warmelt-normatch.melt:3581:/ locexp"); meltgc_out_add_indent((melt_ptr_t)(/*_.EDGEBUF__V15*/ meltfptr[14]), (0), 0);;} ; { - MELT_LOCATION("warmelt-normatch.melt:3327:/ locexp"); + MELT_LOCATION("warmelt-normatch.melt:3582:/ locexp"); meltgc_add_out((melt_ptr_t)(/*_.EDGEBUF__V15*/ meltfptr[14]), melt_string_str((melt_ptr_t)(/*_.STEPNAME__V18*/ meltfptr[17])));} ; { - MELT_LOCATION("warmelt-normatch.melt:3328:/ locexp"); + MELT_LOCATION("warmelt-normatch.melt:3583:/ locexp"); meltgc_add_out((melt_ptr_t)(/*_.EDGEBUF__V15*/ meltfptr[14]), ( " /*then*/ -> "));} ; { - MELT_LOCATION("warmelt-normatch.melt:3329:/ locexp"); + MELT_LOCATION("warmelt-normatch.melt:3584:/ locexp"); meltgc_add_out((melt_ptr_t)(/*_.EDGEBUF__V15*/ meltfptr[14]), melt_string_str((melt_ptr_t)(/*_.THENNAME__V19*/ meltfptr[18])));} ; { - MELT_LOCATION("warmelt-normatch.melt:3330:/ locexp"); + MELT_LOCATION("warmelt-normatch.melt:3585:/ locexp"); meltgc_add_out((melt_ptr_t)(/*_.EDGEBUF__V15*/ meltfptr[14]), ( " [ arrowhead=normal, color=green ];"));} ; - MELT_LOCATION("warmelt-normatch.melt:3325:/ quasiblock"); + MELT_LOCATION("warmelt-normatch.melt:3580:/ quasiblock"); /*epilog*/ @@ -5057,7 +9344,7 @@ lab_endgetargs:; ; } /*noelse*/ ; - MELT_LOCATION("warmelt-normatch.melt:3332:/ cond"); + MELT_LOCATION("warmelt-normatch.melt:3587:/ cond"); /*cond*/ if (/*_.ELSENAME__V21*/ meltfptr[19]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -5065,30 +9352,30 @@ lab_endgetargs:; { - MELT_LOCATION("warmelt-normatch.melt:3334:/ locexp"); + MELT_LOCATION("warmelt-normatch.melt:3589:/ locexp"); meltgc_out_add_indent((melt_ptr_t)(/*_.EDGEBUF__V15*/ meltfptr[14]), (0), 0);;} ; { - MELT_LOCATION("warmelt-normatch.melt:3335:/ locexp"); + MELT_LOCATION("warmelt-normatch.melt:3590:/ locexp"); meltgc_add_out((melt_ptr_t)(/*_.EDGEBUF__V15*/ meltfptr[14]), melt_string_str((melt_ptr_t)(/*_.STEPNAME__V18*/ meltfptr[17])));} ; { - MELT_LOCATION("warmelt-normatch.melt:3336:/ locexp"); + MELT_LOCATION("warmelt-normatch.melt:3591:/ locexp"); meltgc_add_out((melt_ptr_t)(/*_.EDGEBUF__V15*/ meltfptr[14]), ( " /*else*/ -> "));} ; { - MELT_LOCATION("warmelt-normatch.melt:3337:/ locexp"); + MELT_LOCATION("warmelt-normatch.melt:3592:/ locexp"); meltgc_add_out((melt_ptr_t)(/*_.EDGEBUF__V15*/ meltfptr[14]), melt_string_str((melt_ptr_t)(/*_.ELSENAME__V21*/ meltfptr[19])));} ; { - MELT_LOCATION("warmelt-normatch.melt:3338:/ locexp"); + MELT_LOCATION("warmelt-normatch.melt:3593:/ locexp"); meltgc_add_out((melt_ptr_t)(/*_.EDGEBUF__V15*/ meltfptr[14]), ( " [ arrowhead=diamond, color=red ];"));} ; - MELT_LOCATION("warmelt-normatch.melt:3333:/ quasiblock"); + MELT_LOCATION("warmelt-normatch.melt:3588:/ quasiblock"); /*epilog*/ @@ -5097,7 +9384,7 @@ lab_endgetargs:; } /*noelse*/ ; - MELT_LOCATION("warmelt-normatch.melt:3287:/ clear"); + MELT_LOCATION("warmelt-normatch.melt:3542:/ clear"); /*clear*/ /*_.LOCA__V10*/ meltfptr[8] = 0 ; /*^clear*/ /*clear*/ /*_.STHEN__V11*/ meltfptr[10] = 0 ; @@ -5131,7 +9418,7 @@ lab_endgetargs:; /*clear*/ /*_#IS_A__L5*/ meltfnum[4] = 0 ; /*epilog*/ - MELT_LOCATION("warmelt-normatch.melt:3283:/ clear"); + MELT_LOCATION("warmelt-normatch.melt:3538:/ clear"); /*clear*/ /*_.IFCPP___V4*/ meltfptr[3] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V6*/ meltfptr[4] = 0 ; @@ -5147,14 +9434,14 @@ melt_trace_end("MGALTSTEP_STEPTESTVAR", meltcallcount); melt_topframe = (struct #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR -} /*end meltrout_71_warmelt_normatch_MGALTSTEP_STEPTESTVAR*/ +} /*end meltrout_72_warmelt_normatch_MGALTSTEP_STEPTESTVAR*/ melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_72_warmelt_normatch_MGALTSTEP_STEPTESTINST(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, +meltrout_73_warmelt_normatch_MGALTSTEP_STEPTESTINST(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_) { #if ENABLE_CHECKING @@ -5167,7 +9454,7 @@ meltrout_72_warmelt_normatch_MGALTSTEP_STEPTESTINST(meltclosure_ptr_t closp_, me #define meltcallcount 0L #endif - struct frame_meltrout_72_warmelt_normatch_MGALTSTEP_STEPTESTINST_st { unsigned nbvar; + struct frame_meltrout_73_warmelt_normatch_MGALTSTEP_STEPTESTINST_st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif @@ -5200,7 +9487,7 @@ melt_trace_start("MGALTSTEP_STEPTESTINST", meltcallcount); /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-normatch.melt:3345:/ getarg"); + MELT_LOCATION("warmelt-normatch.melt:3600:/ getarg"); /*_.STEP__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; /*getarg#1*/ @@ -5218,13 +9505,13 @@ lab_endgetargs:; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normatch.melt:3346:/ cppif.then"); + MELT_LOCATION("warmelt-normatch.melt:3601:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L1*/ meltfnum[0] = meltcallcount;; - MELT_LOCATION("warmelt-normatch.melt:3346:/ apply"); + MELT_LOCATION("warmelt-normatch.melt:3601:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -5235,14 +9522,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].bp_cstring = "warmelt-normatch.melt"; /*^apply.arg*/ - argtab[3].bp_long = 3346; + argtab[3].bp_long = 3601; /*_.DEBUG_MSG_FUN__V5*/ meltfptr[4] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.STEP__V2*/ meltfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V4*/ meltfptr[3] = /*_.DEBUG_MSG_FUN__V5*/ meltfptr[4];; /*epilog*/ - MELT_LOCATION("warmelt-normatch.melt:3346:/ clear"); + MELT_LOCATION("warmelt-normatch.melt:3601:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L1*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V5*/ meltfptr[4] = 0 ;} @@ -5254,527 +9541,993 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normatch.melt:3347:/ cppif.then"); + MELT_LOCATION("warmelt-normatch.melt:3602:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L2*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.STEP__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_MATCH_STEP_TEST_INSTANCE*/ meltfrout->tabval[1])));; - MELT_LOCATION("warmelt-normatch.melt:3347:/ cond"); + MELT_LOCATION("warmelt-normatch.melt:3602:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V7*/ meltfptr[6] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normatch.melt:3347:/ cond.else"); + } else {MELT_LOCATION("warmelt-normatch.melt:3602:/ cond.else"); + + /*^block*/ + /*anyblock*/{ + + + + + { + /*^locexp*/ + melt_assert_failed(( "check step"),( "warmelt-normatch.melt")?( "warmelt-normatch.melt"):__FILE__, + (3602)?(3602):__LINE__, __FUNCTION__); +;} + ; + /*clear*/ /*_.IFELSE___V7*/ meltfptr[6] = 0 ; + /*epilog*/ + } + ; + } + ; + /*^compute*/ + + /*_.IFCPP___V6*/ meltfptr[4] = /*_.IFELSE___V7*/ meltfptr[6];; + /*epilog*/ + + MELT_LOCATION("warmelt-normatch.melt:3602:/ clear"); + /*clear*/ /*_#IS_A__L2*/ meltfnum[0] = 0 ; + /*^clear*/ + /*clear*/ /*_.IFELSE___V7*/ meltfptr[6] = 0 ;} + + #else /*ENABLE_CHECKING*/ + /*^cppif.else*/ + /*_.IFCPP___V6*/ meltfptr[4] = (/*nil*/NULL); + #endif /*ENABLE_CHECKING*/ + ; + + #if ENABLE_CHECKING + MELT_LOCATION("warmelt-normatch.melt:3603:/ cppif.then"); + /*^block*/ + /*anyblock*/{ + + /*_#IS_A__L3*/ meltfnum[0] = + melt_is_instance_of((melt_ptr_t)(/*_.MG__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_MATCH_GRAPHIC*/ meltfrout->tabval[2])));; + MELT_LOCATION("warmelt-normatch.melt:3603:/ cond"); + /*cond*/ if (/*_#IS_A__L3*/ meltfnum[0]) /*then*/ { + /*^cond.then*/ + /*_.IFELSE___V9*/ meltfptr[8] = (/*nil*/NULL);; + } else {MELT_LOCATION("warmelt-normatch.melt:3603:/ cond.else"); + + /*^block*/ + /*anyblock*/{ + + + + + { + /*^locexp*/ + melt_assert_failed(( "check mg"),( "warmelt-normatch.melt")?( "warmelt-normatch.melt"):__FILE__, + (3603)?(3603):__LINE__, __FUNCTION__); +;} + ; + /*clear*/ /*_.IFELSE___V9*/ meltfptr[8] = 0 ; + /*epilog*/ + } + ; + } + ; + /*^compute*/ + + /*_.IFCPP___V8*/ meltfptr[6] = /*_.IFELSE___V9*/ meltfptr[8];; + /*epilog*/ + + MELT_LOCATION("warmelt-normatch.melt:3603:/ clear"); + /*clear*/ /*_#IS_A__L3*/ meltfnum[0] = 0 ; + /*^clear*/ + /*clear*/ /*_.IFELSE___V9*/ meltfptr[8] = 0 ;} + + #else /*ENABLE_CHECKING*/ + /*^cppif.else*/ + /*_.IFCPP___V8*/ meltfptr[6] = (/*nil*/NULL); + #endif /*ENABLE_CHECKING*/ + ; + MELT_LOCATION("warmelt-normatch.melt:3604:/ quasiblock"); + + + /*^getslot*/ + { melt_ptr_t slot=0; + melt_object_get_field(slot,(melt_ptr_t)(/*_.STEP__V2*/ meltfptr[1]), 1, "LOCA_LOCATION");/*_.LOCA__V10*/ meltfptr[8] = slot; }; + ; + MELT_LOCATION("warmelt-normatch.melt:3605:/ getslot"); + { melt_ptr_t slot=0; + melt_object_get_field(slot,(melt_ptr_t)(/*_.STEP__V2*/ meltfptr[1]), 3, "MSTEP_THEN");/*_.STHEN__V11*/ meltfptr[10] = slot; }; + ; + MELT_LOCATION("warmelt-normatch.melt:3606:/ getslot"); + { melt_ptr_t slot=0; + melt_object_get_field(slot,(melt_ptr_t)(/*_.STEP__V2*/ meltfptr[1]), 4, "MSTEP_ELSE");/*_.SELSE__V12*/ meltfptr[11] = slot; }; + ; + MELT_LOCATION("warmelt-normatch.melt:3607:/ getslot"); + { melt_ptr_t slot=0; + melt_object_get_field(slot,(melt_ptr_t)(/*_.STEP__V2*/ meltfptr[1]), 5, "MSTINS_CLASS");/*_.TESTCLASS__V13*/ meltfptr[12] = slot; }; + ; + MELT_LOCATION("warmelt-normatch.melt:3608:/ getslot"); + { melt_ptr_t slot=0; + melt_object_get_field(slot,(melt_ptr_t)(/*_.STEP__V2*/ meltfptr[1]), 6, "MSTINS_SLOTS");/*_.TESTSLOTS__V14*/ meltfptr[13] = slot; }; + ; + MELT_LOCATION("warmelt-normatch.melt:3609:/ getslot"); + { melt_ptr_t slot=0; + melt_object_get_field(slot,(melt_ptr_t)(/*_.MG__V3*/ meltfptr[2]), 2, "MCHGX_NODOUT");/*_.NODEBUF__V15*/ meltfptr[14] = slot; }; + ; + MELT_LOCATION("warmelt-normatch.melt:3610:/ getslot"); + { melt_ptr_t slot=0; + melt_object_get_field(slot,(melt_ptr_t)(/*_.MG__V3*/ meltfptr[2]), 3, "MCHGX_EDGOUT");/*_.EDGEBUF__V16*/ meltfptr[15] = slot; }; + ; + MELT_LOCATION("warmelt-normatch.melt:3611:/ getslot"); + { melt_ptr_t slot=0; + melt_object_get_field(slot,(melt_ptr_t)(/*_.MG__V3*/ meltfptr[2]), 4, "MCHGX_DATANAMEMAP");/*_.DATAMAP__V17*/ meltfptr[16] = slot; }; + ; + MELT_LOCATION("warmelt-normatch.melt:3612:/ getslot"); + { melt_ptr_t slot=0; + melt_object_get_field(slot,(melt_ptr_t)(/*_.MG__V3*/ meltfptr[2]), 5, "MCHGX_STEPNAMEMAP");/*_.STEPMAP__V18*/ meltfptr[17] = slot; }; + ; + /*_.STEPNAME__V19*/ meltfptr[18] = + melt_get_mapobjects((meltmapobjects_ptr_t)(/*_.STEPMAP__V18*/ meltfptr[17]), (meltobject_ptr_t)(/*_.STEP__V2*/ meltfptr[1]));; + MELT_LOCATION("warmelt-normatch.melt:3614:/ cond"); + /*cond*/ if (/*_.STHEN__V11*/ meltfptr[10]) /*then*/ { + /*^cond.then*/ + /*^block*/ + /*anyblock*/{ + + /*_.MAPOBJECT_GET__V21*/ meltfptr[20] = + melt_get_mapobjects((meltmapobjects_ptr_t)(/*_.STEPMAP__V18*/ meltfptr[17]), (meltobject_ptr_t)(/*_.STHEN__V11*/ meltfptr[10]));; + /*^compute*/ + + /*_.THENNAME__V20*/ meltfptr[19] = /*_.MAPOBJECT_GET__V21*/ meltfptr[20];; + /*epilog*/ + + MELT_LOCATION("warmelt-normatch.melt:3614:/ clear"); + /*clear*/ /*_.MAPOBJECT_GET__V21*/ meltfptr[20] = 0 ;} + ; + } else {/*^cond.else*/ + + /*_.THENNAME__V20*/ meltfptr[19] = NULL;; + } + ; + MELT_LOCATION("warmelt-normatch.melt:3615:/ cond"); + /*cond*/ if (/*_.SELSE__V12*/ meltfptr[11]) /*then*/ { + /*^cond.then*/ + /*^block*/ + /*anyblock*/{ + + /*_.MAPOBJECT_GET__V23*/ meltfptr[22] = + melt_get_mapobjects((meltmapobjects_ptr_t)(/*_.STEPMAP__V18*/ meltfptr[17]), (meltobject_ptr_t)(/*_.SELSE__V12*/ meltfptr[11]));; + /*^compute*/ + + /*_.ELSENAME__V22*/ meltfptr[20] = /*_.MAPOBJECT_GET__V23*/ meltfptr[22];; + /*epilog*/ + + MELT_LOCATION("warmelt-normatch.melt:3615:/ clear"); + /*clear*/ /*_.MAPOBJECT_GET__V23*/ meltfptr[22] = 0 ;} + ; + } else {/*^cond.else*/ + + /*_.ELSENAME__V22*/ meltfptr[20] = NULL;; + } + ; + /*^compute*/ + + /*_#STEPHASH__L4*/ meltfnum[0] = + (melt_obj_hash((melt_ptr_t)(/*_.STEP__V2*/ meltfptr[1])));; + /*^compute*/ + + /*_.DIS__V24*/ meltfptr[22] = + (melt_discr((melt_ptr_t)(/*_.STEP__V2*/ meltfptr[1])));; + MELT_LOCATION("warmelt-normatch.melt:3618:/ cond"); + /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.DIS__V24*/ meltfptr[22]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[3])))) /*then*/ { + /*^cond.then*/ + /*^getslot*/ + { melt_ptr_t slot=0; + melt_object_get_field(slot,(melt_ptr_t)(/*_.DIS__V24*/ meltfptr[22]), 1, "NAMED_NAME");/*_.CLANAM__V25*/ meltfptr[24] = slot; }; + ; + } else {/*^cond.else*/ + + /*_.CLANAM__V25*/ meltfptr[24] = NULL;; + } + ; + + { + MELT_LOCATION("warmelt-normatch.melt:3620:/ locexp"); + meltgc_add_out((melt_ptr_t)(/*_.NODEBUF__V15*/ meltfptr[14]), ( ""));} + ; + + { + MELT_LOCATION("warmelt-normatch.melt:3623:/ locexp"); + /* OUTCLANAM__2 */ + meltgc_add_out ((melt_ptr_t) /*_.NODEBUF__V15*/ meltfptr[14], + melt_string_str ((melt_ptr_t) /*_.CLANAM__V25*/ meltfptr[24]) +6) ; + ;} + ; + + { + MELT_LOCATION("warmelt-normatch.melt:3627:/ locexp"); + meltgc_add_out((melt_ptr_t)(/*_.NODEBUF__V15*/ meltfptr[14]), ( ""));} + ; + + { + MELT_LOCATION("warmelt-normatch.melt:3628:/ locexp"); + meltgc_add_out((melt_ptr_t)(/*_.NODEBUF__V15*/ meltfptr[14]), ( ""));} + ; + + { + MELT_LOCATION("warmelt-normatch.melt:3629:/ locexp"); + /*add2sbufshortmixloc*/ if (melt_magic_discr((melt_ptr_t)(/*_.LOCA__V10*/ meltfptr[8])) == OBMAG_MIXLOC) { + location_t loc = melt_location_mixloc((melt_ptr_t)/*_.LOCA__V10*/ meltfptr[8]); + meltgc_strbuf_printf((melt_ptr_t)(/*_.NODEBUF__V15*/ meltfptr[14]), "{%s:%d:%d}", + lbasename(LOCATION_FILE (loc)), + LOCATION_LINE (loc), LOCATION_COLUMN (loc)); + } /*end add2sbufshortmixloc*/;} + ; + + { + MELT_LOCATION("warmelt-normatch.melt:3630:/ locexp"); + meltgc_add_out((melt_ptr_t)(/*_.NODEBUF__V15*/ meltfptr[14]), ( ""));} + ; + + { + MELT_LOCATION("warmelt-normatch.melt:3631:/ locexp"); + meltgc_out_add_indent((melt_ptr_t)(/*_.NODEBUF__V15*/ meltfptr[14]), (0), 0);;} + ; + + { + MELT_LOCATION("warmelt-normatch.melt:3632:/ locexp"); + meltgc_add_out((melt_ptr_t)(/*_.NODEBUF__V15*/ meltfptr[14]), ( ""));} + ; + MELT_LOCATION("warmelt-normatch.melt:3633:/ cond"); + /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.TESTCLASS__V13*/ meltfptr[12]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[3])))) /*then*/ { + /*^cond.then*/ + /*^getslot*/ + { melt_ptr_t slot=0; + melt_object_get_field(slot,(melt_ptr_t)(/*_.TESTCLASS__V13*/ meltfptr[12]), 1, "NAMED_NAME");/*_.NAMED_NAME__V26*/ meltfptr[25] = slot; }; + ; + } else {/*^cond.else*/ + + /*_.NAMED_NAME__V26*/ meltfptr[25] = NULL;; + } + ; + + { + MELT_LOCATION("warmelt-normatch.melt:3633:/ locexp"); + meltgc_add_out((melt_ptr_t)(/*_.NODEBUF__V15*/ meltfptr[14]), melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V26*/ meltfptr[25])));} + ; + + { + MELT_LOCATION("warmelt-normatch.melt:3634:/ locexp"); + meltgc_add_out((melt_ptr_t)(/*_.NODEBUF__V15*/ meltfptr[14]), ( ""));} + ; + + { + MELT_LOCATION("warmelt-normatch.melt:3635:/ locexp"); + meltgc_out_add_indent((melt_ptr_t)(/*_.NODEBUF__V15*/ meltfptr[14]), (0), 0);;} + ; + /*citerblock FOREACH_IN_MULTIPLE*/ { + /* start cit1__EACHTUP: */ + long cit1__EACHTUP_ln = melt_multiple_length((melt_ptr_t)/*_.TESTSLOTS__V14*/ meltfptr[13]); + for (/*_#SLIX__L5*/ meltfnum[4] = 0; + (/*_#SLIX__L5*/ meltfnum[4] >= 0) && (/*_#SLIX__L5*/ meltfnum[4] < cit1__EACHTUP_ln); + /*_#SLIX__L5*/ meltfnum[4]++) { + /*_.CURSLOT__V27*/ meltfptr[26] = melt_multiple_nth((melt_ptr_t)(/*_.TESTSLOTS__V14*/ meltfptr[13]), /*_#SLIX__L5*/ meltfnum[4]); + + + MELT_LOCATION("warmelt-normatch.melt:3639:/ cond"); + /*cond*/ if (/*_.CURSLOT__V27*/ meltfptr[26]) /*then*/ { + /*^cond.then*/ + /*^block*/ + /*anyblock*/{ + + + #if ENABLE_CHECKING + MELT_LOCATION("warmelt-normatch.melt:3641:/ cppif.then"); /*^block*/ - /*anyblock*/{ - - - - - { - /*^locexp*/ - melt_assert_failed(( "check step"),( "warmelt-normatch.melt")?( "warmelt-normatch.melt"):__FILE__, - (3347)?(3347):__LINE__, __FUNCTION__); + /*anyblock*/{ + + /*_#IS_A__L6*/ meltfnum[5] = + melt_is_instance_of((melt_ptr_t)(/*_.CURSLOT__V27*/ meltfptr[26]), (melt_ptr_t)((/*!CLASS_MATCHED_DATA*/ meltfrout->tabval[4])));; + MELT_LOCATION("warmelt-normatch.melt:3641:/ cond"); + /*cond*/ if (/*_#IS_A__L6*/ meltfnum[5]) /*then*/ { + /*^cond.then*/ + /*_.IFELSE___V29*/ meltfptr[28] = (/*nil*/NULL);; + } else {MELT_LOCATION("warmelt-normatch.melt:3641:/ cond.else"); + + /*^block*/ + /*anyblock*/{ + + + + + { + /*^locexp*/ + melt_assert_failed(( "check curslot"),( "warmelt-normatch.melt")?( "warmelt-normatch.melt"):__FILE__, + (3641)?(3641):__LINE__, __FUNCTION__); ;} + ; + /*clear*/ /*_.IFELSE___V29*/ meltfptr[28] = 0 ; + /*epilog*/ + } + ; + } + ; + /*^compute*/ + + /*_.IFCPP___V28*/ meltfptr[27] = /*_.IFELSE___V29*/ meltfptr[28];; + /*epilog*/ + + MELT_LOCATION("warmelt-normatch.melt:3641:/ clear"); + /*clear*/ /*_#IS_A__L6*/ meltfnum[5] = 0 ; + /*^clear*/ + /*clear*/ /*_.IFELSE___V29*/ meltfptr[28] = 0 ;} + + #else /*ENABLE_CHECKING*/ + /*^cppif.else*/ + /*_.IFCPP___V28*/ meltfptr[27] = (/*nil*/NULL); + #endif /*ENABLE_CHECKING*/ ; - /*clear*/ /*_.IFELSE___V7*/ meltfptr[6] = 0 ; - /*epilog*/ + + { + MELT_LOCATION("warmelt-normatch.melt:3642:/ locexp"); + meltgc_out_add_indent((melt_ptr_t)(/*_.EDGEBUF__V16*/ meltfptr[15]), (0), 0);;} + ; + + { + MELT_LOCATION("warmelt-normatch.melt:3643:/ locexp"); + meltgc_add_out((melt_ptr_t)(/*_.EDGEBUF__V16*/ meltfptr[15]), melt_string_str((melt_ptr_t)(/*_.STEPNAME__V19*/ meltfptr[18])));} + ; + + { + MELT_LOCATION("warmelt-normatch.melt:3644:/ locexp"); + meltgc_add_out((melt_ptr_t)(/*_.EDGEBUF__V16*/ meltfptr[15]), ( " /*testinslot*/ -> /*data*/"));} + ; + /*_.MAPOBJECT_GET__V30*/ meltfptr[28] = + melt_get_mapobjects((meltmapobjects_ptr_t)(/*_.DATAMAP__V17*/ meltfptr[16]), (meltobject_ptr_t)(/*_.CURSLOT__V27*/ meltfptr[26]));; + + { + MELT_LOCATION("warmelt-normatch.melt:3645:/ locexp"); + meltgc_add_out((melt_ptr_t)(/*_.EDGEBUF__V16*/ meltfptr[15]), melt_string_str((melt_ptr_t)(/*_.MAPOBJECT_GET__V30*/ meltfptr[28])));} + ; + + { + MELT_LOCATION("warmelt-normatch.melt:3646:/ locexp"); + meltgc_add_out((melt_ptr_t)(/*_.EDGEBUF__V16*/ meltfptr[15]), ( " [ arrowhead=open,"));} + ; + MELT_LOCATION("warmelt-normatch.melt:3647:/ quasiblock"); + + + /*^cond*/ + /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.TESTCLASS__V13*/ meltfptr[12]), (melt_ptr_t)((/*!CLASS_CLASS*/ meltfrout->tabval[5])))) /*then*/ { + /*^cond.then*/ + /*^getslot*/ + { melt_ptr_t slot=0; + melt_object_get_field(slot,(melt_ptr_t)(/*_.TESTCLASS__V13*/ meltfptr[12]), 6, "CLASS_FIELDS");/*_.CLASS_FIELDS__V31*/ meltfptr[30] = slot; }; + ; + } else {/*^cond.else*/ + + /*_.CLASS_FIELDS__V31*/ meltfptr[30] = NULL;; } ; - } - ; - /*^compute*/ + /*^compute*/ - /*_.IFCPP___V6*/ meltfptr[4] = /*_.IFELSE___V7*/ meltfptr[6];; - /*epilog*/ - - MELT_LOCATION("warmelt-normatch.melt:3347:/ clear"); - /*clear*/ /*_#IS_A__L2*/ meltfnum[0] = 0 ; - /*^clear*/ - /*clear*/ /*_.IFELSE___V7*/ meltfptr[6] = 0 ;} - - #else /*ENABLE_CHECKING*/ - /*^cppif.else*/ - /*_.IFCPP___V6*/ meltfptr[4] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normatch.melt:3348:/ cppif.then"); - /*^block*/ - /*anyblock*/{ - - /*_#IS_A__L3*/ meltfnum[0] = - melt_is_instance_of((melt_ptr_t)(/*_.MG__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_MATCH_GRAPHIC*/ meltfrout->tabval[2])));; - MELT_LOCATION("warmelt-normatch.melt:3348:/ cond"); - /*cond*/ if (/*_#IS_A__L3*/ meltfnum[0]) /*then*/ { - /*^cond.then*/ - /*_.IFELSE___V9*/ meltfptr[8] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normatch.melt:3348:/ cond.else"); - + /*_.FLD__V32*/ meltfptr[31] = + (melt_multiple_nth((melt_ptr_t)(/*_.CLASS_FIELDS__V31*/ meltfptr[30]), (/*_#SLIX__L5*/ meltfnum[4])));; + + #if ENABLE_CHECKING + MELT_LOCATION("warmelt-normatch.melt:3648:/ cppif.then"); /*^block*/ - /*anyblock*/{ - - - - - { - /*^locexp*/ - melt_assert_failed(( "check mg"),( "warmelt-normatch.melt")?( "warmelt-normatch.melt"):__FILE__, - (3348)?(3348):__LINE__, __FUNCTION__); + /*anyblock*/{ + + /*_#IS_A__L7*/ meltfnum[5] = + melt_is_instance_of((melt_ptr_t)(/*_.FLD__V32*/ meltfptr[31]), (melt_ptr_t)((/*!CLASS_FIELD*/ meltfrout->tabval[6])));; + MELT_LOCATION("warmelt-normatch.melt:3648:/ cond"); + /*cond*/ if (/*_#IS_A__L7*/ meltfnum[5]) /*then*/ { + /*^cond.then*/ + /*_.IFELSE___V34*/ meltfptr[33] = (/*nil*/NULL);; + } else {MELT_LOCATION("warmelt-normatch.melt:3648:/ cond.else"); + + /*^block*/ + /*anyblock*/{ + + + + + { + /*^locexp*/ + melt_assert_failed(( "check fld"),( "warmelt-normatch.melt")?( "warmelt-normatch.melt"):__FILE__, + (3648)?(3648):__LINE__, __FUNCTION__); ;} + ; + /*clear*/ /*_.IFELSE___V34*/ meltfptr[33] = 0 ; + /*epilog*/ + } + ; + } + ; + /*^compute*/ + + /*_.IFCPP___V33*/ meltfptr[32] = /*_.IFELSE___V34*/ meltfptr[33];; + /*epilog*/ + + MELT_LOCATION("warmelt-normatch.melt:3648:/ clear"); + /*clear*/ /*_#IS_A__L7*/ meltfnum[5] = 0 ; + /*^clear*/ + /*clear*/ /*_.IFELSE___V34*/ meltfptr[33] = 0 ;} + + #else /*ENABLE_CHECKING*/ + /*^cppif.else*/ + /*_.IFCPP___V33*/ meltfptr[32] = (/*nil*/NULL); + #endif /*ENABLE_CHECKING*/ ; - /*clear*/ /*_.IFELSE___V9*/ meltfptr[8] = 0 ; - /*epilog*/ + + { + MELT_LOCATION("warmelt-normatch.melt:3649:/ locexp"); + meltgc_add_out((melt_ptr_t)(/*_.EDGEBUF__V16*/ meltfptr[15]), ( " label=<"));} + ; + MELT_LOCATION("warmelt-normatch.melt:3650:/ cond"); + /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.FLD__V32*/ meltfptr[31]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[3])))) /*then*/ { + /*^cond.then*/ + /*^getslot*/ + { melt_ptr_t slot=0; + melt_object_get_field(slot,(melt_ptr_t)(/*_.FLD__V32*/ meltfptr[31]), 1, "NAMED_NAME");/*_.NAMED_NAME__V35*/ meltfptr[33] = slot; }; + ; + } else {/*^cond.else*/ + + /*_.NAMED_NAME__V35*/ meltfptr[33] = NULL;; } ; - } + + { + MELT_LOCATION("warmelt-normatch.melt:3650:/ locexp"); + meltgc_add_out((melt_ptr_t)(/*_.EDGEBUF__V16*/ meltfptr[15]), melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V35*/ meltfptr[33])));} + ; + + { + MELT_LOCATION("warmelt-normatch.melt:3651:/ locexp"); + meltgc_add_out((melt_ptr_t)(/*_.EDGEBUF__V16*/ meltfptr[15]), ( ">, "));} + ; + + MELT_LOCATION("warmelt-normatch.melt:3647:/ clear"); + /*clear*/ /*_.CLASS_FIELDS__V31*/ meltfptr[30] = 0 ; + /*^clear*/ + /*clear*/ /*_.FLD__V32*/ meltfptr[31] = 0 ; + /*^clear*/ + /*clear*/ /*_.IFCPP___V33*/ meltfptr[32] = 0 ; + /*^clear*/ + /*clear*/ /*_.NAMED_NAME__V35*/ meltfptr[33] = 0 ; + + { + MELT_LOCATION("warmelt-normatch.melt:3652:/ locexp"); + meltgc_add_out((melt_ptr_t)(/*_.EDGEBUF__V16*/ meltfptr[15]), ( " color=violet, style=dotted ];"));} + ; + MELT_LOCATION("warmelt-normatch.melt:3640:/ quasiblock"); + + + /*epilog*/ + + MELT_LOCATION("warmelt-normatch.melt:3639:/ clear"); + /*clear*/ /*_.IFCPP___V28*/ meltfptr[27] = 0 ; + /*^clear*/ + /*clear*/ /*_.MAPOBJECT_GET__V30*/ meltfptr[28] = 0 ;} ; - /*^compute*/ - - /*_.IFCPP___V8*/ meltfptr[6] = /*_.IFELSE___V9*/ meltfptr[8];; - /*epilog*/ - - MELT_LOCATION("warmelt-normatch.melt:3348:/ clear"); - /*clear*/ /*_#IS_A__L3*/ meltfnum[0] = 0 ; - /*^clear*/ - /*clear*/ /*_.IFELSE___V9*/ meltfptr[8] = 0 ;} - - #else /*ENABLE_CHECKING*/ - /*^cppif.else*/ - /*_.IFCPP___V8*/ meltfptr[6] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - MELT_LOCATION("warmelt-normatch.melt:3349:/ quasiblock"); - - - /*^getslot*/ - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.STEP__V2*/ meltfptr[1]), 1, "LOCA_LOCATION");/*_.LOCA__V10*/ meltfptr[8] = slot; }; - ; - MELT_LOCATION("warmelt-normatch.melt:3350:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.STEP__V2*/ meltfptr[1]), 3, "MSTEP_THEN");/*_.STHEN__V11*/ meltfptr[10] = slot; }; - ; - MELT_LOCATION("warmelt-normatch.melt:3351:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.STEP__V2*/ meltfptr[1]), 4, "MSTEP_ELSE");/*_.SELSE__V12*/ meltfptr[11] = slot; }; - ; - MELT_LOCATION("warmelt-normatch.melt:3352:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.STEP__V2*/ meltfptr[1]), 5, "MSTINS_CLASS");/*_.TESTCLASS__V13*/ meltfptr[12] = slot; }; - ; - MELT_LOCATION("warmelt-normatch.melt:3353:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.STEP__V2*/ meltfptr[1]), 6, "MSTINS_SLOTS");/*_.TESTSLOTS__V14*/ meltfptr[13] = slot; }; - ; - MELT_LOCATION("warmelt-normatch.melt:3354:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.MG__V3*/ meltfptr[2]), 2, "MCHGX_NODOUT");/*_.NODEBUF__V15*/ meltfptr[14] = slot; }; - ; - MELT_LOCATION("warmelt-normatch.melt:3355:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.MG__V3*/ meltfptr[2]), 3, "MCHGX_EDGOUT");/*_.EDGEBUF__V16*/ meltfptr[15] = slot; }; - ; - MELT_LOCATION("warmelt-normatch.melt:3356:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.MG__V3*/ meltfptr[2]), 4, "MCHGX_DATANAMEMAP");/*_.DATAMAP__V17*/ meltfptr[16] = slot; }; - ; - MELT_LOCATION("warmelt-normatch.melt:3357:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.MG__V3*/ meltfptr[2]), 5, "MCHGX_STEPNAMEMAP");/*_.STEPMAP__V18*/ meltfptr[17] = slot; }; + } /*noelse*/ + ; + if (/*_#SLIX__L5*/ meltfnum[4]<0) break; + } /* end cit1__EACHTUP */ + + /*citerepilog*/ + + MELT_LOCATION("warmelt-normatch.melt:3636:/ clear"); + /*clear*/ /*_.CURSLOT__V27*/ meltfptr[26] = 0 ; + /*^clear*/ + /*clear*/ /*_#SLIX__L5*/ meltfnum[4] = 0 ;} /*endciterblock FOREACH_IN_MULTIPLE*/ ; - /*_.STEPNAME__V19*/ meltfptr[18] = - melt_get_mapobjects((meltmapobjects_ptr_t)(/*_.STEPMAP__V18*/ meltfptr[17]), (meltobject_ptr_t)(/*_.STEP__V2*/ meltfptr[1]));; - MELT_LOCATION("warmelt-normatch.melt:3359:/ cond"); - /*cond*/ if (/*_.STHEN__V11*/ meltfptr[10]) /*then*/ { + MELT_LOCATION("warmelt-normatch.melt:3655:/ cond"); + /*cond*/ if (/*_.THENNAME__V20*/ meltfptr[19]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/{ - /*_.MAPOBJECT_GET__V21*/ meltfptr[20] = - melt_get_mapobjects((meltmapobjects_ptr_t)(/*_.STEPMAP__V18*/ meltfptr[17]), (meltobject_ptr_t)(/*_.STHEN__V11*/ meltfptr[10]));; - /*^compute*/ - - /*_.THENNAME__V20*/ meltfptr[19] = /*_.MAPOBJECT_GET__V21*/ meltfptr[20];; - /*epilog*/ - MELT_LOCATION("warmelt-normatch.melt:3359:/ clear"); - /*clear*/ /*_.MAPOBJECT_GET__V21*/ meltfptr[20] = 0 ;} + { + MELT_LOCATION("warmelt-normatch.melt:3657:/ locexp"); + meltgc_out_add_indent((melt_ptr_t)(/*_.EDGEBUF__V16*/ meltfptr[15]), (0), 0);;} + ; + + { + MELT_LOCATION("warmelt-normatch.melt:3658:/ locexp"); + meltgc_add_out((melt_ptr_t)(/*_.EDGEBUF__V16*/ meltfptr[15]), melt_string_str((melt_ptr_t)(/*_.STEPNAME__V19*/ meltfptr[18])));} + ; + + { + MELT_LOCATION("warmelt-normatch.melt:3659:/ locexp"); + meltgc_add_out((melt_ptr_t)(/*_.EDGEBUF__V16*/ meltfptr[15]), ( " /*then*/ -> "));} + ; + + { + MELT_LOCATION("warmelt-normatch.melt:3660:/ locexp"); + meltgc_add_out((melt_ptr_t)(/*_.EDGEBUF__V16*/ meltfptr[15]), melt_string_str((melt_ptr_t)(/*_.THENNAME__V20*/ meltfptr[19])));} + ; + + { + MELT_LOCATION("warmelt-normatch.melt:3661:/ locexp"); + meltgc_add_out((melt_ptr_t)(/*_.EDGEBUF__V16*/ meltfptr[15]), ( " [ arrowhead=normal, color=green ];"));} + ; + MELT_LOCATION("warmelt-normatch.melt:3656:/ quasiblock"); + + + /*epilog*/ + } ; - } else {/*^cond.else*/ - - /*_.THENNAME__V20*/ meltfptr[19] = NULL;; - } + } /*noelse*/ ; - MELT_LOCATION("warmelt-normatch.melt:3360:/ cond"); - /*cond*/ if (/*_.SELSE__V12*/ meltfptr[11]) /*then*/ { + MELT_LOCATION("warmelt-normatch.melt:3663:/ cond"); + /*cond*/ if (/*_.ELSENAME__V22*/ meltfptr[20]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/{ - /*_.MAPOBJECT_GET__V23*/ meltfptr[22] = - melt_get_mapobjects((meltmapobjects_ptr_t)(/*_.STEPMAP__V18*/ meltfptr[17]), (meltobject_ptr_t)(/*_.SELSE__V12*/ meltfptr[11]));; - /*^compute*/ - - /*_.ELSENAME__V22*/ meltfptr[20] = /*_.MAPOBJECT_GET__V23*/ meltfptr[22];; - /*epilog*/ - MELT_LOCATION("warmelt-normatch.melt:3360:/ clear"); - /*clear*/ /*_.MAPOBJECT_GET__V23*/ meltfptr[22] = 0 ;} - ; - } else {/*^cond.else*/ - - /*_.ELSENAME__V22*/ meltfptr[20] = NULL;; - } - ; - /*^compute*/ - - /*_#STEPHASH__L4*/ meltfnum[0] = - (melt_obj_hash((melt_ptr_t)(/*_.STEP__V2*/ meltfptr[1])));; - /*^compute*/ - - /*_.DIS__V24*/ meltfptr[22] = - (melt_discr((melt_ptr_t)(/*_.STEP__V2*/ meltfptr[1])));; - MELT_LOCATION("warmelt-normatch.melt:3363:/ cond"); - /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.DIS__V24*/ meltfptr[22]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[3])))) /*then*/ { - /*^cond.then*/ - /*^getslot*/ - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.DIS__V24*/ meltfptr[22]), 1, "NAMED_NAME");/*_.CLANAM__V25*/ meltfptr[24] = slot; }; + { + MELT_LOCATION("warmelt-normatch.melt:3665:/ locexp"); + meltgc_out_add_indent((melt_ptr_t)(/*_.EDGEBUF__V16*/ meltfptr[15]), (0), 0);;} + ; + + { + MELT_LOCATION("warmelt-normatch.melt:3666:/ locexp"); + meltgc_add_out((melt_ptr_t)(/*_.EDGEBUF__V16*/ meltfptr[15]), melt_string_str((melt_ptr_t)(/*_.STEPNAME__V19*/ meltfptr[18])));} + ; + + { + MELT_LOCATION("warmelt-normatch.melt:3667:/ locexp"); + meltgc_add_out((melt_ptr_t)(/*_.EDGEBUF__V16*/ meltfptr[15]), ( " /*else*/ -> "));} + ; + + { + MELT_LOCATION("warmelt-normatch.melt:3668:/ locexp"); + meltgc_add_out((melt_ptr_t)(/*_.EDGEBUF__V16*/ meltfptr[15]), melt_string_str((melt_ptr_t)(/*_.ELSENAME__V22*/ meltfptr[20])));} + ; + + { + MELT_LOCATION("warmelt-normatch.melt:3669:/ locexp"); + meltgc_add_out((melt_ptr_t)(/*_.EDGEBUF__V16*/ meltfptr[15]), ( " [ arrowhead=diamond, color=red ];"));} + ; + MELT_LOCATION("warmelt-normatch.melt:3664:/ quasiblock"); + + + /*epilog*/ + } ; - } else {/*^cond.else*/ - - /*_.CLANAM__V25*/ meltfptr[24] = NULL;; - } - ; - - { - MELT_LOCATION("warmelt-normatch.melt:3365:/ locexp"); - meltgc_add_out((melt_ptr_t)(/*_.NODEBUF__V15*/ meltfptr[14]), ( ""));} - ; - - { - MELT_LOCATION("warmelt-normatch.melt:3368:/ locexp"); - /* OUTCLANAM__3 */ - meltgc_add_out ((melt_ptr_t) /*_.NODEBUF__V15*/ meltfptr[14], - melt_string_str ((melt_ptr_t) /*_.CLANAM__V25*/ meltfptr[24]) +6) ; - ;} - ; - - { - MELT_LOCATION("warmelt-normatch.melt:3372:/ locexp"); - meltgc_add_out((melt_ptr_t)(/*_.NODEBUF__V15*/ meltfptr[14]), ( ""));} - ; - - { - MELT_LOCATION("warmelt-normatch.melt:3373:/ locexp"); - meltgc_add_out((melt_ptr_t)(/*_.NODEBUF__V15*/ meltfptr[14]), ( ""));} - ; - - { - MELT_LOCATION("warmelt-normatch.melt:3374:/ locexp"); - /*add2sbufshortmixloc*/ if (melt_magic_discr((melt_ptr_t)(/*_.LOCA__V10*/ meltfptr[8])) == OBMAG_MIXLOC) { - location_t loc = melt_location_mixloc((melt_ptr_t)/*_.LOCA__V10*/ meltfptr[8]); - meltgc_strbuf_printf((melt_ptr_t)(/*_.NODEBUF__V15*/ meltfptr[14]), "{%s:%d:%d}", - lbasename(LOCATION_FILE (loc)), - LOCATION_LINE (loc), LOCATION_COLUMN (loc)); - } /*end add2sbufshortmixloc*/;} - ; - - { - MELT_LOCATION("warmelt-normatch.melt:3375:/ locexp"); - meltgc_add_out((melt_ptr_t)(/*_.NODEBUF__V15*/ meltfptr[14]), ( ""));} + } /*noelse*/ ; - { - MELT_LOCATION("warmelt-normatch.melt:3376:/ locexp"); - meltgc_out_add_indent((melt_ptr_t)(/*_.NODEBUF__V15*/ meltfptr[14]), (0), 0);;} - ; + MELT_LOCATION("warmelt-normatch.melt:3604:/ clear"); + /*clear*/ /*_.LOCA__V10*/ meltfptr[8] = 0 ; + /*^clear*/ + /*clear*/ /*_.STHEN__V11*/ meltfptr[10] = 0 ; + /*^clear*/ + /*clear*/ /*_.SELSE__V12*/ meltfptr[11] = 0 ; + /*^clear*/ + /*clear*/ /*_.TESTCLASS__V13*/ meltfptr[12] = 0 ; + /*^clear*/ + /*clear*/ /*_.TESTSLOTS__V14*/ meltfptr[13] = 0 ; + /*^clear*/ + /*clear*/ /*_.NODEBUF__V15*/ meltfptr[14] = 0 ; + /*^clear*/ + /*clear*/ /*_.EDGEBUF__V16*/ meltfptr[15] = 0 ; + /*^clear*/ + /*clear*/ /*_.DATAMAP__V17*/ meltfptr[16] = 0 ; + /*^clear*/ + /*clear*/ /*_.STEPMAP__V18*/ meltfptr[17] = 0 ; + /*^clear*/ + /*clear*/ /*_.STEPNAME__V19*/ meltfptr[18] = 0 ; + /*^clear*/ + /*clear*/ /*_.THENNAME__V20*/ meltfptr[19] = 0 ; + /*^clear*/ + /*clear*/ /*_.ELSENAME__V22*/ meltfptr[20] = 0 ; + /*^clear*/ + /*clear*/ /*_#STEPHASH__L4*/ meltfnum[0] = 0 ; + /*^clear*/ + /*clear*/ /*_.DIS__V24*/ meltfptr[22] = 0 ; + /*^clear*/ + /*clear*/ /*_.CLANAM__V25*/ meltfptr[24] = 0 ; + /*^clear*/ + /*clear*/ /*_.NAMED_NAME__V26*/ meltfptr[25] = 0 ; + /*epilog*/ - { - MELT_LOCATION("warmelt-normatch.melt:3377:/ locexp"); - meltgc_add_out((melt_ptr_t)(/*_.NODEBUF__V15*/ meltfptr[14]), ( ""));} - ; - MELT_LOCATION("warmelt-normatch.melt:3378:/ cond"); - /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.TESTCLASS__V13*/ meltfptr[12]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[3])))) /*then*/ { - /*^cond.then*/ - /*^getslot*/ - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.TESTCLASS__V13*/ meltfptr[12]), 1, "NAMED_NAME");/*_.NAMED_NAME__V26*/ meltfptr[25] = slot; }; - ; - } else {/*^cond.else*/ + MELT_LOCATION("warmelt-normatch.melt:3600:/ clear"); + /*clear*/ /*_.IFCPP___V4*/ meltfptr[3] = 0 ; + /*^clear*/ + /*clear*/ /*_.IFCPP___V6*/ meltfptr[4] = 0 ; + /*^clear*/ + /*clear*/ /*_.IFCPP___V8*/ meltfptr[6] = 0 ;} + +; + goto labend_rout; +labend_rout: +melt_trace_end("MGALTSTEP_STEPTESTINST", meltcallcount); melt_topframe = (struct callframe_melt_st*) meltfram__.prev; + return (melt_ptr_t)(/*noretval*/ NULL); +#undef meltcallcount +#undef meltfram__ +#undef MELTFRAM_NBVARNUM +#undef MELTFRAM_NBVARPTR +} /*end meltrout_73_warmelt_normatch_MGALTSTEP_STEPTESTINST*/ + + + + + +melt_ptr_t MELT_MODULE_VISIBILITY +meltrout_74_warmelt_normatch_MGALTSTEP_STEPTESTGROUP(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, + const char xresdescr_[], union meltparam_un *xrestab_) +{ +#if ENABLE_CHECKING + static long call_counter__; + long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; +#undef meltcallcount +#define meltcallcount thiscallcounter__ +#else +#undef meltcallcount +#define meltcallcount 0L +#endif + + struct frame_meltrout_74_warmelt_normatch_MGALTSTEP_STEPTESTGROUP_st { unsigned nbvar; +#if ENABLE_CHECKING + const char* flocs; +#endif + struct meltclosure_st *clos; + struct excepth_melt_st *exh; + struct callframe_melt_st *prev; +#define MELTFRAM_NBVARPTR 23 + void* varptr[23]; +#define MELTFRAM_NBVARNUM 4 + long varnum[4]; +/*others*/ + long _spare_; } + *framptr_=0, meltframe; +#define meltfram__ meltframe + if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/ + int ix=0; + framptr_ = (void*)firstargp_; + gt_ggc_mx_melt_un (framptr_->clos); + for(ix=0; ix<23; ix++) + if (framptr_->varptr[ix]) + gt_ggc_mx_melt_un (framptr_->varptr[ix]); + return NULL; + }/*end markggc*/; + memset(&meltfram__, 0, sizeof(meltfram__)); + meltfram__.nbvar = 23; + meltfram__.clos = closp_; + meltfram__.prev = (struct callframe_melt_st *) melt_topframe; + melt_topframe = (struct callframe_melt_st *) &meltfram__; +melt_trace_start("MGALTSTEP_STEPTESTGROUP", meltcallcount); +/*getargs*/ + + /*getarg#0*/ + MELT_LOCATION("warmelt-normatch.melt:3675:/ getarg"); + /*_.STEP__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; - /*_.NAMED_NAME__V26*/ meltfptr[25] = NULL;; - } - ; + /*getarg#1*/ + /*^getarg*/ + if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; + /*_.MG__V3*/ meltfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; + gcc_assert(melt_discr((melt_ptr_t)(/*_.MG__V3*/ meltfptr[2])) != NULL); - { - MELT_LOCATION("warmelt-normatch.melt:3378:/ locexp"); - meltgc_add_out((melt_ptr_t)(/*_.NODEBUF__V15*/ meltfptr[14]), melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V26*/ meltfptr[25])));} ; + goto lab_endgetargs; +lab_endgetargs:; +/*body*/ +/*^block*/ +/*anyblock*/{ - { - MELT_LOCATION("warmelt-normatch.melt:3379:/ locexp"); - meltgc_add_out((melt_ptr_t)(/*_.NODEBUF__V15*/ meltfptr[14]), ( ""));} - ; - { - MELT_LOCATION("warmelt-normatch.melt:3380:/ locexp"); - meltgc_out_add_indent((melt_ptr_t)(/*_.NODEBUF__V15*/ meltfptr[14]), (0), 0);;} - ; - /*citerblock FOREACH_IN_MULTIPLE*/ { - /* start cit1__EACHTUP: */ - long cit1__EACHTUP_ln = melt_multiple_length((melt_ptr_t)/*_.TESTSLOTS__V14*/ meltfptr[13]); - for (/*_#SLIX__L5*/ meltfnum[4] = 0; - (/*_#SLIX__L5*/ meltfnum[4] >= 0) && (/*_#SLIX__L5*/ meltfnum[4] < cit1__EACHTUP_ln); - /*_#SLIX__L5*/ meltfnum[4]++) { - /*_.CURSLOT__V27*/ meltfptr[26] = melt_multiple_nth((melt_ptr_t)(/*_.TESTSLOTS__V14*/ meltfptr[13]), /*_#SLIX__L5*/ meltfnum[4]); + #if ENABLE_CHECKING + MELT_LOCATION("warmelt-normatch.melt:3676:/ cppif.then"); + /*^block*/ + /*anyblock*/{ - + /*_#THE_MELTCALLCOUNT__L1*/ meltfnum[0] = + meltcallcount;; + MELT_LOCATION("warmelt-normatch.melt:3676:/ apply"); + /*apply*/{ + union meltparam_un argtab[4]; + memset(&argtab, 0, sizeof(argtab)); + /*^apply.arg*/ + argtab[0].bp_cstring = "mgaltstep_steptestgroup step"; + /*^apply.arg*/ + argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L1*/ meltfnum[0]; + /*^apply.arg*/ + argtab[2].bp_cstring = "warmelt-normatch.melt"; + /*^apply.arg*/ + argtab[3].bp_long = 3676; + /*_.DEBUG_MSG_FUN__V5*/ meltfptr[4] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.STEP__V2*/ meltfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + } + ; + /*_.IFCPP___V4*/ meltfptr[3] = /*_.DEBUG_MSG_FUN__V5*/ meltfptr[4];; + /*epilog*/ + + MELT_LOCATION("warmelt-normatch.melt:3676:/ clear"); + /*clear*/ /*_#THE_MELTCALLCOUNT__L1*/ meltfnum[0] = 0 ; + /*^clear*/ + /*clear*/ /*_.DEBUG_MSG_FUN__V5*/ meltfptr[4] = 0 ;} - MELT_LOCATION("warmelt-normatch.melt:3384:/ cond"); - /*cond*/ if (/*_.CURSLOT__V27*/ meltfptr[26]) /*then*/ { - /*^cond.then*/ - /*^block*/ - /*anyblock*/{ - - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normatch.melt:3386:/ cppif.then"); + #else /*ENABLE_CHECKING*/ + /*^cppif.else*/ + /*_.IFCPP___V4*/ meltfptr[3] = (/*nil*/NULL); + #endif /*ENABLE_CHECKING*/ + ; + + #if ENABLE_CHECKING + MELT_LOCATION("warmelt-normatch.melt:3677:/ cppif.then"); + /*^block*/ + /*anyblock*/{ + + /*_#IS_A__L2*/ meltfnum[0] = + melt_is_instance_of((melt_ptr_t)(/*_.STEP__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_MATCH_STEP_TEST_GROUP*/ meltfrout->tabval[1])));; + MELT_LOCATION("warmelt-normatch.melt:3677:/ cond"); + /*cond*/ if (/*_#IS_A__L2*/ meltfnum[0]) /*then*/ { + /*^cond.then*/ + /*_.IFELSE___V7*/ meltfptr[6] = (/*nil*/NULL);; + } else {MELT_LOCATION("warmelt-normatch.melt:3677:/ cond.else"); + /*^block*/ - /*anyblock*/{ - - /*_#IS_A__L6*/ meltfnum[5] = - melt_is_instance_of((melt_ptr_t)(/*_.CURSLOT__V27*/ meltfptr[26]), (melt_ptr_t)((/*!CLASS_MATCHED_DATA*/ meltfrout->tabval[4])));; - MELT_LOCATION("warmelt-normatch.melt:3386:/ cond"); - /*cond*/ if (/*_#IS_A__L6*/ meltfnum[5]) /*then*/ { - /*^cond.then*/ - /*_.IFELSE___V29*/ meltfptr[28] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normatch.melt:3386:/ cond.else"); - - /*^block*/ - /*anyblock*/{ - - - - - { - /*^locexp*/ - melt_assert_failed(( "check curslot"),( "warmelt-normatch.melt")?( "warmelt-normatch.melt"):__FILE__, - (3386)?(3386):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V29*/ meltfptr[28] = 0 ; - /*epilog*/ - } - ; - } - ; - /*^compute*/ - - /*_.IFCPP___V28*/ meltfptr[27] = /*_.IFELSE___V29*/ meltfptr[28];; - /*epilog*/ - - MELT_LOCATION("warmelt-normatch.melt:3386:/ clear"); - /*clear*/ /*_#IS_A__L6*/ meltfnum[5] = 0 ; - /*^clear*/ - /*clear*/ /*_.IFELSE___V29*/ meltfptr[28] = 0 ;} + /*anyblock*/{ - #else /*ENABLE_CHECKING*/ - /*^cppif.else*/ - /*_.IFCPP___V28*/ meltfptr[27] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - { - MELT_LOCATION("warmelt-normatch.melt:3387:/ locexp"); - meltgc_out_add_indent((melt_ptr_t)(/*_.EDGEBUF__V16*/ meltfptr[15]), (0), 0);;} - ; - - { - MELT_LOCATION("warmelt-normatch.melt:3388:/ locexp"); - meltgc_add_out((melt_ptr_t)(/*_.EDGEBUF__V16*/ meltfptr[15]), melt_string_str((melt_ptr_t)(/*_.STEPNAME__V19*/ meltfptr[18])));} - ; - - { - MELT_LOCATION("warmelt-normatch.melt:3389:/ locexp"); - meltgc_add_out((melt_ptr_t)(/*_.EDGEBUF__V16*/ meltfptr[15]), ( " /*testinslot*/ -> /*data*/"));} - ; - /*_.MAPOBJECT_GET__V30*/ meltfptr[28] = - melt_get_mapobjects((meltmapobjects_ptr_t)(/*_.DATAMAP__V17*/ meltfptr[16]), (meltobject_ptr_t)(/*_.CURSLOT__V27*/ meltfptr[26]));; - - { - MELT_LOCATION("warmelt-normatch.melt:3390:/ locexp"); - meltgc_add_out((melt_ptr_t)(/*_.EDGEBUF__V16*/ meltfptr[15]), melt_string_str((melt_ptr_t)(/*_.MAPOBJECT_GET__V30*/ meltfptr[28])));} - ; - - { - MELT_LOCATION("warmelt-normatch.melt:3391:/ locexp"); - meltgc_add_out((melt_ptr_t)(/*_.EDGEBUF__V16*/ meltfptr[15]), ( " [ arrowhead=open,"));} - ; - MELT_LOCATION("warmelt-normatch.melt:3392:/ quasiblock"); - - - /*^cond*/ - /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.TESTCLASS__V13*/ meltfptr[12]), (melt_ptr_t)((/*!CLASS_CLASS*/ meltfrout->tabval[5])))) /*then*/ { - /*^cond.then*/ - /*^getslot*/ - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.TESTCLASS__V13*/ meltfptr[12]), 6, "CLASS_FIELDS");/*_.CLASS_FIELDS__V31*/ meltfptr[30] = slot; }; + + + + { + /*^locexp*/ + melt_assert_failed(( "check step"),( "warmelt-normatch.melt")?( "warmelt-normatch.melt"):__FILE__, + (3677)?(3677):__LINE__, __FUNCTION__); +;} ; - } else {/*^cond.else*/ - - /*_.CLASS_FIELDS__V31*/ meltfptr[30] = NULL;; + /*clear*/ /*_.IFELSE___V7*/ meltfptr[6] = 0 ; + /*epilog*/ } ; - /*^compute*/ + } + ; + /*^compute*/ - /*_.FLD__V32*/ meltfptr[31] = - (melt_multiple_nth((melt_ptr_t)(/*_.CLASS_FIELDS__V31*/ meltfptr[30]), (/*_#SLIX__L5*/ meltfnum[4])));; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normatch.melt:3393:/ cppif.then"); + /*_.IFCPP___V6*/ meltfptr[4] = /*_.IFELSE___V7*/ meltfptr[6];; + /*epilog*/ + + MELT_LOCATION("warmelt-normatch.melt:3677:/ clear"); + /*clear*/ /*_#IS_A__L2*/ meltfnum[0] = 0 ; + /*^clear*/ + /*clear*/ /*_.IFELSE___V7*/ meltfptr[6] = 0 ;} + + #else /*ENABLE_CHECKING*/ + /*^cppif.else*/ + /*_.IFCPP___V6*/ meltfptr[4] = (/*nil*/NULL); + #endif /*ENABLE_CHECKING*/ + ; + + #if ENABLE_CHECKING + MELT_LOCATION("warmelt-normatch.melt:3678:/ cppif.then"); + /*^block*/ + /*anyblock*/{ + + /*_#IS_A__L3*/ meltfnum[0] = + melt_is_instance_of((melt_ptr_t)(/*_.MG__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_MATCH_GRAPHIC*/ meltfrout->tabval[2])));; + MELT_LOCATION("warmelt-normatch.melt:3678:/ cond"); + /*cond*/ if (/*_#IS_A__L3*/ meltfnum[0]) /*then*/ { + /*^cond.then*/ + /*_.IFELSE___V9*/ meltfptr[8] = (/*nil*/NULL);; + } else {MELT_LOCATION("warmelt-normatch.melt:3678:/ cond.else"); + /*^block*/ - /*anyblock*/{ - - /*_#IS_A__L7*/ meltfnum[5] = - melt_is_instance_of((melt_ptr_t)(/*_.FLD__V32*/ meltfptr[31]), (melt_ptr_t)((/*!CLASS_FIELD*/ meltfrout->tabval[6])));; - MELT_LOCATION("warmelt-normatch.melt:3393:/ cond"); - /*cond*/ if (/*_#IS_A__L7*/ meltfnum[5]) /*then*/ { - /*^cond.then*/ - /*_.IFELSE___V34*/ meltfptr[33] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normatch.melt:3393:/ cond.else"); - - /*^block*/ - /*anyblock*/{ - - - - - { - /*^locexp*/ - melt_assert_failed(( "check fld"),( "warmelt-normatch.melt")?( "warmelt-normatch.melt"):__FILE__, - (3393)?(3393):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V34*/ meltfptr[33] = 0 ; - /*epilog*/ - } - ; - } - ; - /*^compute*/ - - /*_.IFCPP___V33*/ meltfptr[32] = /*_.IFELSE___V34*/ meltfptr[33];; - /*epilog*/ - - MELT_LOCATION("warmelt-normatch.melt:3393:/ clear"); - /*clear*/ /*_#IS_A__L7*/ meltfnum[5] = 0 ; - /*^clear*/ - /*clear*/ /*_.IFELSE___V34*/ meltfptr[33] = 0 ;} + /*anyblock*/{ - #else /*ENABLE_CHECKING*/ - /*^cppif.else*/ - /*_.IFCPP___V33*/ meltfptr[32] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - { - MELT_LOCATION("warmelt-normatch.melt:3394:/ locexp"); - meltgc_add_out((melt_ptr_t)(/*_.EDGEBUF__V16*/ meltfptr[15]), ( " label=<"));} - ; - MELT_LOCATION("warmelt-normatch.melt:3395:/ cond"); - /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.FLD__V32*/ meltfptr[31]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[3])))) /*then*/ { - /*^cond.then*/ - /*^getslot*/ - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.FLD__V32*/ meltfptr[31]), 1, "NAMED_NAME");/*_.NAMED_NAME__V35*/ meltfptr[33] = slot; }; - ; - } else {/*^cond.else*/ - - /*_.NAMED_NAME__V35*/ meltfptr[33] = NULL;; - } - ; - - { - MELT_LOCATION("warmelt-normatch.melt:3395:/ locexp"); - meltgc_add_out((melt_ptr_t)(/*_.EDGEBUF__V16*/ meltfptr[15]), melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V35*/ meltfptr[33])));} - ; - - { - MELT_LOCATION("warmelt-normatch.melt:3396:/ locexp"); - meltgc_add_out((melt_ptr_t)(/*_.EDGEBUF__V16*/ meltfptr[15]), ( ">, "));} - ; - - MELT_LOCATION("warmelt-normatch.melt:3392:/ clear"); - /*clear*/ /*_.CLASS_FIELDS__V31*/ meltfptr[30] = 0 ; - /*^clear*/ - /*clear*/ /*_.FLD__V32*/ meltfptr[31] = 0 ; - /*^clear*/ - /*clear*/ /*_.IFCPP___V33*/ meltfptr[32] = 0 ; - /*^clear*/ - /*clear*/ /*_.NAMED_NAME__V35*/ meltfptr[33] = 0 ; - - { - MELT_LOCATION("warmelt-normatch.melt:3397:/ locexp"); - meltgc_add_out((melt_ptr_t)(/*_.EDGEBUF__V16*/ meltfptr[15]), ( " color=violet, style=dotted ];"));} + + + + { + /*^locexp*/ + melt_assert_failed(( "check mg"),( "warmelt-normatch.melt")?( "warmelt-normatch.melt"):__FILE__, + (3678)?(3678):__LINE__, __FUNCTION__); +;} + ; + /*clear*/ /*_.IFELSE___V9*/ meltfptr[8] = 0 ; + /*epilog*/ + } ; - MELT_LOCATION("warmelt-normatch.melt:3385:/ quasiblock"); - - - /*epilog*/ - - MELT_LOCATION("warmelt-normatch.melt:3384:/ clear"); - /*clear*/ /*_.IFCPP___V28*/ meltfptr[27] = 0 ; - /*^clear*/ - /*clear*/ /*_.MAPOBJECT_GET__V30*/ meltfptr[28] = 0 ;} + } ; - } /*noelse*/ + /*^compute*/ + + /*_.IFCPP___V8*/ meltfptr[6] = /*_.IFELSE___V9*/ meltfptr[8];; + /*epilog*/ + + MELT_LOCATION("warmelt-normatch.melt:3678:/ clear"); + /*clear*/ /*_#IS_A__L3*/ meltfnum[0] = 0 ; + /*^clear*/ + /*clear*/ /*_.IFELSE___V9*/ meltfptr[8] = 0 ;} + + #else /*ENABLE_CHECKING*/ + /*^cppif.else*/ + /*_.IFCPP___V8*/ meltfptr[6] = (/*nil*/NULL); + #endif /*ENABLE_CHECKING*/ ; - if (/*_#SLIX__L5*/ meltfnum[4]<0) break; - } /* end cit1__EACHTUP */ + MELT_LOCATION("warmelt-normatch.melt:3679:/ quasiblock"); - /*citerepilog*/ - - MELT_LOCATION("warmelt-normatch.melt:3381:/ clear"); - /*clear*/ /*_.CURSLOT__V27*/ meltfptr[26] = 0 ; - /*^clear*/ - /*clear*/ /*_#SLIX__L5*/ meltfnum[4] = 0 ;} /*endciterblock FOREACH_IN_MULTIPLE*/ + + /*^getslot*/ + { melt_ptr_t slot=0; + melt_object_get_field(slot,(melt_ptr_t)(/*_.STEP__V2*/ meltfptr[1]), 1, "LOCA_LOCATION");/*_.LOCA__V10*/ meltfptr[8] = slot; }; ; - MELT_LOCATION("warmelt-normatch.melt:3400:/ cond"); - /*cond*/ if (/*_.THENNAME__V20*/ meltfptr[19]) /*then*/ { + MELT_LOCATION("warmelt-normatch.melt:3680:/ getslot"); + { melt_ptr_t slot=0; + melt_object_get_field(slot,(melt_ptr_t)(/*_.STEP__V2*/ meltfptr[1]), 3, "MSTEP_THEN");/*_.STHEN__V11*/ meltfptr[10] = slot; }; + ; + MELT_LOCATION("warmelt-normatch.melt:3681:/ getslot"); + { melt_ptr_t slot=0; + melt_object_get_field(slot,(melt_ptr_t)(/*_.STEP__V2*/ meltfptr[1]), 4, "MSTEP_ELSE");/*_.SELSE__V12*/ meltfptr[11] = slot; }; + ; + MELT_LOCATION("warmelt-normatch.melt:3682:/ getslot"); + { melt_ptr_t slot=0; + melt_object_get_field(slot,(melt_ptr_t)(/*_.MG__V3*/ meltfptr[2]), 2, "MCHGX_NODOUT");/*_.NODEBUF__V13*/ meltfptr[12] = slot; }; + ; + MELT_LOCATION("warmelt-normatch.melt:3683:/ getslot"); + { melt_ptr_t slot=0; + melt_object_get_field(slot,(melt_ptr_t)(/*_.MG__V3*/ meltfptr[2]), 3, "MCHGX_EDGOUT");/*_.EDGEBUF__V14*/ meltfptr[13] = slot; }; + ; + MELT_LOCATION("warmelt-normatch.melt:3684:/ getslot"); + { melt_ptr_t slot=0; + melt_object_get_field(slot,(melt_ptr_t)(/*_.MG__V3*/ meltfptr[2]), 4, "MCHGX_DATANAMEMAP");/*_.DATAMAP__V15*/ meltfptr[14] = slot; }; + ; + MELT_LOCATION("warmelt-normatch.melt:3685:/ getslot"); + { melt_ptr_t slot=0; + melt_object_get_field(slot,(melt_ptr_t)(/*_.MG__V3*/ meltfptr[2]), 5, "MCHGX_STEPNAMEMAP");/*_.STEPMAP__V16*/ meltfptr[15] = slot; }; + ; + /*_.STEPNAME__V17*/ meltfptr[16] = + melt_get_mapobjects((meltmapobjects_ptr_t)(/*_.STEPMAP__V16*/ meltfptr[15]), (meltobject_ptr_t)(/*_.STEP__V2*/ meltfptr[1]));; + MELT_LOCATION("warmelt-normatch.melt:3687:/ cond"); + /*cond*/ if (/*_.STHEN__V11*/ meltfptr[10]) /*then*/ { + /*^cond.then*/ + /*^block*/ + /*anyblock*/{ + + /*_.MAPOBJECT_GET__V19*/ meltfptr[18] = + melt_get_mapobjects((meltmapobjects_ptr_t)(/*_.STEPMAP__V16*/ meltfptr[15]), (meltobject_ptr_t)(/*_.STHEN__V11*/ meltfptr[10]));; + /*^compute*/ + + /*_.THENNAME__V18*/ meltfptr[17] = /*_.MAPOBJECT_GET__V19*/ meltfptr[18];; + /*epilog*/ + + MELT_LOCATION("warmelt-normatch.melt:3687:/ clear"); + /*clear*/ /*_.MAPOBJECT_GET__V19*/ meltfptr[18] = 0 ;} + ; + } else {/*^cond.else*/ + + /*_.THENNAME__V18*/ meltfptr[17] = NULL;; + } + ; + MELT_LOCATION("warmelt-normatch.melt:3688:/ cond"); + /*cond*/ if (/*_.SELSE__V12*/ meltfptr[11]) /*then*/ { + /*^cond.then*/ + /*^block*/ + /*anyblock*/{ + + /*_.MAPOBJECT_GET__V21*/ meltfptr[20] = + melt_get_mapobjects((meltmapobjects_ptr_t)(/*_.STEPMAP__V16*/ meltfptr[15]), (meltobject_ptr_t)(/*_.SELSE__V12*/ meltfptr[11]));; + /*^compute*/ + + /*_.ELSENAME__V20*/ meltfptr[18] = /*_.MAPOBJECT_GET__V21*/ meltfptr[20];; + /*epilog*/ + + MELT_LOCATION("warmelt-normatch.melt:3688:/ clear"); + /*clear*/ /*_.MAPOBJECT_GET__V21*/ meltfptr[20] = 0 ;} + ; + } else {/*^cond.else*/ + + /*_.ELSENAME__V20*/ meltfptr[18] = NULL;; + } + ; + /*^compute*/ + + /*_#STEPHASH__L4*/ meltfnum[0] = + (melt_obj_hash((melt_ptr_t)(/*_.STEP__V2*/ meltfptr[1])));; + /*^compute*/ + + /*_.DIS__V22*/ meltfptr[20] = + (melt_discr((melt_ptr_t)(/*_.STEP__V2*/ meltfptr[1])));; + MELT_LOCATION("warmelt-normatch.melt:3691:/ cond"); + /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.DIS__V22*/ meltfptr[20]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[3])))) /*then*/ { + /*^cond.then*/ + /*^getslot*/ + { melt_ptr_t slot=0; + melt_object_get_field(slot,(melt_ptr_t)(/*_.DIS__V22*/ meltfptr[20]), 1, "NAMED_NAME");/*_.CLANAM__V23*/ meltfptr[22] = slot; }; + ; + } else {/*^cond.else*/ + + /*_.CLANAM__V23*/ meltfptr[22] = NULL;; + } + ; + + { + MELT_LOCATION("warmelt-normatch.melt:3693:/ locexp"); + meltgc_add_out((melt_ptr_t)(/*_.NODEBUF__V13*/ meltfptr[12]), ( ""));} + ; + + { + MELT_LOCATION("warmelt-normatch.melt:3696:/ locexp"); + /* OUTCLANAM__3 */ + meltgc_add_out ((melt_ptr_t) /*_.NODEBUF__V13*/ meltfptr[12], + melt_string_str ((melt_ptr_t) /*_.CLANAM__V23*/ meltfptr[22]) +6) ; + ;} + ; + + { + MELT_LOCATION("warmelt-normatch.melt:3700:/ locexp"); + meltgc_add_out((melt_ptr_t)(/*_.NODEBUF__V13*/ meltfptr[12]), ( ""));} + ; + + { + MELT_LOCATION("warmelt-normatch.melt:3701:/ locexp"); + meltgc_add_out((melt_ptr_t)(/*_.NODEBUF__V13*/ meltfptr[12]), ( ""));} + ; + + { + MELT_LOCATION("warmelt-normatch.melt:3702:/ locexp"); + /*add2sbufshortmixloc*/ if (melt_magic_discr((melt_ptr_t)(/*_.LOCA__V10*/ meltfptr[8])) == OBMAG_MIXLOC) { + location_t loc = melt_location_mixloc((melt_ptr_t)/*_.LOCA__V10*/ meltfptr[8]); + meltgc_strbuf_printf((melt_ptr_t)(/*_.NODEBUF__V13*/ meltfptr[12]), "{%s:%d:%d}", + lbasename(LOCATION_FILE (loc)), + LOCATION_LINE (loc), LOCATION_COLUMN (loc)); + } /*end add2sbufshortmixloc*/;} + ; + + { + MELT_LOCATION("warmelt-normatch.melt:3703:/ locexp"); + meltgc_add_out((melt_ptr_t)(/*_.NODEBUF__V13*/ meltfptr[12]), ( ""));} + ; + + { + MELT_LOCATION("warmelt-normatch.melt:3704:/ locexp"); + meltgc_out_add_indent((melt_ptr_t)(/*_.NODEBUF__V13*/ meltfptr[12]), (0), 0);;} + ; + MELT_LOCATION("warmelt-normatch.melt:3705:/ cond"); + /*cond*/ if (/*_.THENNAME__V18*/ meltfptr[17]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/{ { - MELT_LOCATION("warmelt-normatch.melt:3402:/ locexp"); - meltgc_out_add_indent((melt_ptr_t)(/*_.EDGEBUF__V16*/ meltfptr[15]), (0), 0);;} + MELT_LOCATION("warmelt-normatch.melt:3707:/ locexp"); + meltgc_out_add_indent((melt_ptr_t)(/*_.EDGEBUF__V14*/ meltfptr[13]), (0), 0);;} ; { - MELT_LOCATION("warmelt-normatch.melt:3403:/ locexp"); - meltgc_add_out((melt_ptr_t)(/*_.EDGEBUF__V16*/ meltfptr[15]), melt_string_str((melt_ptr_t)(/*_.STEPNAME__V19*/ meltfptr[18])));} + MELT_LOCATION("warmelt-normatch.melt:3708:/ locexp"); + meltgc_add_out((melt_ptr_t)(/*_.EDGEBUF__V14*/ meltfptr[13]), melt_string_str((melt_ptr_t)(/*_.STEPNAME__V17*/ meltfptr[16])));} ; { - MELT_LOCATION("warmelt-normatch.melt:3404:/ locexp"); - meltgc_add_out((melt_ptr_t)(/*_.EDGEBUF__V16*/ meltfptr[15]), ( " /*then*/ -> "));} + MELT_LOCATION("warmelt-normatch.melt:3709:/ locexp"); + meltgc_add_out((melt_ptr_t)(/*_.EDGEBUF__V14*/ meltfptr[13]), ( " /*then*/ -> "));} ; { - MELT_LOCATION("warmelt-normatch.melt:3405:/ locexp"); - meltgc_add_out((melt_ptr_t)(/*_.EDGEBUF__V16*/ meltfptr[15]), melt_string_str((melt_ptr_t)(/*_.THENNAME__V20*/ meltfptr[19])));} + MELT_LOCATION("warmelt-normatch.melt:3710:/ locexp"); + meltgc_add_out((melt_ptr_t)(/*_.EDGEBUF__V14*/ meltfptr[13]), melt_string_str((melt_ptr_t)(/*_.THENNAME__V18*/ meltfptr[17])));} ; { - MELT_LOCATION("warmelt-normatch.melt:3406:/ locexp"); - meltgc_add_out((melt_ptr_t)(/*_.EDGEBUF__V16*/ meltfptr[15]), ( " [ arrowhead=normal, color=green ];"));} + MELT_LOCATION("warmelt-normatch.melt:3711:/ locexp"); + meltgc_add_out((melt_ptr_t)(/*_.EDGEBUF__V14*/ meltfptr[13]), ( " [ arrowhead=normal, color=green ];"));} ; - MELT_LOCATION("warmelt-normatch.melt:3401:/ quasiblock"); + MELT_LOCATION("warmelt-normatch.melt:3706:/ quasiblock"); /*epilog*/ @@ -5782,38 +10535,38 @@ lab_endgetargs:; ; } /*noelse*/ ; - MELT_LOCATION("warmelt-normatch.melt:3408:/ cond"); - /*cond*/ if (/*_.ELSENAME__V22*/ meltfptr[20]) /*then*/ { + MELT_LOCATION("warmelt-normatch.melt:3713:/ cond"); + /*cond*/ if (/*_.ELSENAME__V20*/ meltfptr[18]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/{ { - MELT_LOCATION("warmelt-normatch.melt:3410:/ locexp"); - meltgc_out_add_indent((melt_ptr_t)(/*_.EDGEBUF__V16*/ meltfptr[15]), (0), 0);;} + MELT_LOCATION("warmelt-normatch.melt:3715:/ locexp"); + meltgc_out_add_indent((melt_ptr_t)(/*_.EDGEBUF__V14*/ meltfptr[13]), (0), 0);;} ; { - MELT_LOCATION("warmelt-normatch.melt:3411:/ locexp"); - meltgc_add_out((melt_ptr_t)(/*_.EDGEBUF__V16*/ meltfptr[15]), melt_string_str((melt_ptr_t)(/*_.STEPNAME__V19*/ meltfptr[18])));} + MELT_LOCATION("warmelt-normatch.melt:3716:/ locexp"); + meltgc_add_out((melt_ptr_t)(/*_.EDGEBUF__V14*/ meltfptr[13]), melt_string_str((melt_ptr_t)(/*_.STEPNAME__V17*/ meltfptr[16])));} ; { - MELT_LOCATION("warmelt-normatch.melt:3412:/ locexp"); - meltgc_add_out((melt_ptr_t)(/*_.EDGEBUF__V16*/ meltfptr[15]), ( " /*else*/ -> "));} + MELT_LOCATION("warmelt-normatch.melt:3717:/ locexp"); + meltgc_add_out((melt_ptr_t)(/*_.EDGEBUF__V14*/ meltfptr[13]), ( " /*else*/ -> "));} ; { - MELT_LOCATION("warmelt-normatch.melt:3413:/ locexp"); - meltgc_add_out((melt_ptr_t)(/*_.EDGEBUF__V16*/ meltfptr[15]), melt_string_str((melt_ptr_t)(/*_.ELSENAME__V22*/ meltfptr[20])));} + MELT_LOCATION("warmelt-normatch.melt:3718:/ locexp"); + meltgc_add_out((melt_ptr_t)(/*_.EDGEBUF__V14*/ meltfptr[13]), melt_string_str((melt_ptr_t)(/*_.ELSENAME__V20*/ meltfptr[18])));} ; { - MELT_LOCATION("warmelt-normatch.melt:3414:/ locexp"); - meltgc_add_out((melt_ptr_t)(/*_.EDGEBUF__V16*/ meltfptr[15]), ( " [ arrowhead=diamond, color=red ];"));} + MELT_LOCATION("warmelt-normatch.melt:3719:/ locexp"); + meltgc_add_out((melt_ptr_t)(/*_.EDGEBUF__V14*/ meltfptr[13]), ( " [ arrowhead=diamond, color=red ];"));} ; - MELT_LOCATION("warmelt-normatch.melt:3409:/ quasiblock"); + MELT_LOCATION("warmelt-normatch.melt:3714:/ quasiblock"); /*epilog*/ @@ -5822,41 +10575,35 @@ lab_endgetargs:; } /*noelse*/ ; - MELT_LOCATION("warmelt-normatch.melt:3349:/ clear"); + MELT_LOCATION("warmelt-normatch.melt:3679:/ clear"); /*clear*/ /*_.LOCA__V10*/ meltfptr[8] = 0 ; /*^clear*/ /*clear*/ /*_.STHEN__V11*/ meltfptr[10] = 0 ; /*^clear*/ /*clear*/ /*_.SELSE__V12*/ meltfptr[11] = 0 ; /*^clear*/ - /*clear*/ /*_.TESTCLASS__V13*/ meltfptr[12] = 0 ; - /*^clear*/ - /*clear*/ /*_.TESTSLOTS__V14*/ meltfptr[13] = 0 ; - /*^clear*/ - /*clear*/ /*_.NODEBUF__V15*/ meltfptr[14] = 0 ; + /*clear*/ /*_.NODEBUF__V13*/ meltfptr[12] = 0 ; /*^clear*/ - /*clear*/ /*_.EDGEBUF__V16*/ meltfptr[15] = 0 ; + /*clear*/ /*_.EDGEBUF__V14*/ meltfptr[13] = 0 ; /*^clear*/ - /*clear*/ /*_.DATAMAP__V17*/ meltfptr[16] = 0 ; + /*clear*/ /*_.DATAMAP__V15*/ meltfptr[14] = 0 ; /*^clear*/ - /*clear*/ /*_.STEPMAP__V18*/ meltfptr[17] = 0 ; + /*clear*/ /*_.STEPMAP__V16*/ meltfptr[15] = 0 ; /*^clear*/ - /*clear*/ /*_.STEPNAME__V19*/ meltfptr[18] = 0 ; + /*clear*/ /*_.STEPNAME__V17*/ meltfptr[16] = 0 ; /*^clear*/ - /*clear*/ /*_.THENNAME__V20*/ meltfptr[19] = 0 ; + /*clear*/ /*_.THENNAME__V18*/ meltfptr[17] = 0 ; /*^clear*/ - /*clear*/ /*_.ELSENAME__V22*/ meltfptr[20] = 0 ; + /*clear*/ /*_.ELSENAME__V20*/ meltfptr[18] = 0 ; /*^clear*/ /*clear*/ /*_#STEPHASH__L4*/ meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_.DIS__V24*/ meltfptr[22] = 0 ; - /*^clear*/ - /*clear*/ /*_.CLANAM__V25*/ meltfptr[24] = 0 ; + /*clear*/ /*_.DIS__V22*/ meltfptr[20] = 0 ; /*^clear*/ - /*clear*/ /*_.NAMED_NAME__V26*/ meltfptr[25] = 0 ; + /*clear*/ /*_.CLANAM__V23*/ meltfptr[22] = 0 ; /*epilog*/ - MELT_LOCATION("warmelt-normatch.melt:3345:/ clear"); + MELT_LOCATION("warmelt-normatch.melt:3675:/ clear"); /*clear*/ /*_.IFCPP___V4*/ meltfptr[3] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V6*/ meltfptr[4] = 0 ; @@ -5866,20 +10613,20 @@ lab_endgetargs:; ; goto labend_rout; labend_rout: -melt_trace_end("MGALTSTEP_STEPTESTINST", meltcallcount); melt_topframe = (struct callframe_melt_st*) meltfram__.prev; +melt_trace_end("MGALTSTEP_STEPTESTGROUP", meltcallcount); melt_topframe = (struct callframe_melt_st*) meltfram__.prev; return (melt_ptr_t)(/*noretval*/ NULL); #undef meltcallcount #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR -} /*end meltrout_72_warmelt_normatch_MGALTSTEP_STEPTESTINST*/ +} /*end meltrout_74_warmelt_normatch_MGALTSTEP_STEPTESTGROUP*/ melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_73_warmelt_normatch_MGALTSTEP_STEPTESTGROUP(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, +meltrout_75_warmelt_normatch_MGALTSTEP_STEPTESTMATCHER(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_) { #if ENABLE_CHECKING @@ -5892,17 +10639,17 @@ meltrout_73_warmelt_normatch_MGALTSTEP_STEPTESTGROUP(meltclosure_ptr_t closp_, m #define meltcallcount 0L #endif - struct frame_meltrout_73_warmelt_normatch_MGALTSTEP_STEPTESTGROUP_st { unsigned nbvar; + struct frame_meltrout_75_warmelt_normatch_MGALTSTEP_STEPTESTMATCHER_st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct meltclosure_st *clos; struct excepth_melt_st *exh; struct callframe_melt_st *prev; -#define MELTFRAM_NBVARPTR 23 - void* varptr[23]; -#define MELTFRAM_NBVARNUM 4 - long varnum[4]; +#define MELTFRAM_NBVARPTR 36 + void* varptr[36]; +#define MELTFRAM_NBVARNUM 8 + long varnum[8]; /*others*/ long _spare_; } *framptr_=0, meltframe; @@ -5911,21 +10658,21 @@ meltrout_73_warmelt_normatch_MGALTSTEP_STEPTESTGROUP(meltclosure_ptr_t closp_, m int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_melt_un (framptr_->clos); - for(ix=0; ix<23; ix++) + for(ix=0; ix<36; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_melt_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&meltfram__, 0, sizeof(meltfram__)); - meltfram__.nbvar = 23; + meltfram__.nbvar = 36; meltfram__.clos = closp_; meltfram__.prev = (struct callframe_melt_st *) melt_topframe; melt_topframe = (struct callframe_melt_st *) &meltfram__; -melt_trace_start("MGALTSTEP_STEPTESTGROUP", meltcallcount); +melt_trace_start("MGALTSTEP_STEPTESTMATCHER", meltcallcount); /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-normatch.melt:3420:/ getarg"); + MELT_LOCATION("warmelt-normatch.melt:3725:/ getarg"); /*_.STEP__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; /*getarg#1*/ @@ -5943,31 +10690,31 @@ lab_endgetargs:; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normatch.melt:3421:/ cppif.then"); + MELT_LOCATION("warmelt-normatch.melt:3726:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L1*/ meltfnum[0] = meltcallcount;; - MELT_LOCATION("warmelt-normatch.melt:3421:/ apply"); + MELT_LOCATION("warmelt-normatch.melt:3726:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_cstring = "mgaltstep_steptestgroup step"; + argtab[0].bp_cstring = "mgaltstep_steptestmatcher step"; /*^apply.arg*/ argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L1*/ meltfnum[0]; /*^apply.arg*/ argtab[2].bp_cstring = "warmelt-normatch.melt"; /*^apply.arg*/ - argtab[3].bp_long = 3421; + argtab[3].bp_long = 3726; /*_.DEBUG_MSG_FUN__V5*/ meltfptr[4] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.STEP__V2*/ meltfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V4*/ meltfptr[3] = /*_.DEBUG_MSG_FUN__V5*/ meltfptr[4];; /*epilog*/ - MELT_LOCATION("warmelt-normatch.melt:3421:/ clear"); + MELT_LOCATION("warmelt-normatch.melt:3726:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L1*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V5*/ meltfptr[4] = 0 ;} @@ -5979,17 +10726,17 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normatch.melt:3422:/ cppif.then"); + MELT_LOCATION("warmelt-normatch.melt:3727:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L2*/ meltfnum[0] = - melt_is_instance_of((melt_ptr_t)(/*_.STEP__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_MATCH_STEP_TEST_GROUP*/ meltfrout->tabval[1])));; - MELT_LOCATION("warmelt-normatch.melt:3422:/ cond"); + melt_is_instance_of((melt_ptr_t)(/*_.STEP__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_MATCH_STEP_TEST_MATCHER*/ meltfrout->tabval[1])));; + MELT_LOCATION("warmelt-normatch.melt:3727:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V7*/ meltfptr[6] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normatch.melt:3422:/ cond.else"); + } else {MELT_LOCATION("warmelt-normatch.melt:3727:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -6000,7 +10747,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check step"),( "warmelt-normatch.melt")?( "warmelt-normatch.melt"):__FILE__, - (3422)?(3422):__LINE__, __FUNCTION__); + (3727)?(3727):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V7*/ meltfptr[6] = 0 ; @@ -6014,7 +10761,7 @@ lab_endgetargs:; /*_.IFCPP___V6*/ meltfptr[4] = /*_.IFELSE___V7*/ meltfptr[6];; /*epilog*/ - MELT_LOCATION("warmelt-normatch.melt:3422:/ clear"); + MELT_LOCATION("warmelt-normatch.melt:3727:/ clear"); /*clear*/ /*_#IS_A__L2*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V7*/ meltfptr[6] = 0 ;} @@ -6026,17 +10773,17 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normatch.melt:3423:/ cppif.then"); + MELT_LOCATION("warmelt-normatch.melt:3728:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L3*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.MG__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_MATCH_GRAPHIC*/ meltfrout->tabval[2])));; - MELT_LOCATION("warmelt-normatch.melt:3423:/ cond"); + MELT_LOCATION("warmelt-normatch.melt:3728:/ cond"); /*cond*/ if (/*_#IS_A__L3*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V9*/ meltfptr[8] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normatch.melt:3423:/ cond.else"); + } else {MELT_LOCATION("warmelt-normatch.melt:3728:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -6047,7 +10794,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check mg"),( "warmelt-normatch.melt")?( "warmelt-normatch.melt"):__FILE__, - (3423)?(3423):__LINE__, __FUNCTION__); + (3728)?(3728):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V9*/ meltfptr[8] = 0 ; @@ -6061,7 +10808,7 @@ lab_endgetargs:; /*_.IFCPP___V8*/ meltfptr[6] = /*_.IFELSE___V9*/ meltfptr[8];; /*epilog*/ - MELT_LOCATION("warmelt-normatch.melt:3423:/ clear"); + MELT_LOCATION("warmelt-normatch.melt:3728:/ clear"); /*clear*/ /*_#IS_A__L3*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V9*/ meltfptr[8] = 0 ;} @@ -6071,79 +10818,87 @@ lab_endgetargs:; /*_.IFCPP___V8*/ meltfptr[6] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-normatch.melt:3424:/ quasiblock"); + MELT_LOCATION("warmelt-normatch.melt:3729:/ quasiblock"); /*^getslot*/ { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.STEP__V2*/ meltfptr[1]), 1, "LOCA_LOCATION");/*_.LOCA__V10*/ meltfptr[8] = slot; }; ; - MELT_LOCATION("warmelt-normatch.melt:3425:/ getslot"); + MELT_LOCATION("warmelt-normatch.melt:3730:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.STEP__V2*/ meltfptr[1]), 3, "MSTEP_THEN");/*_.STHEN__V11*/ meltfptr[10] = slot; }; ; - MELT_LOCATION("warmelt-normatch.melt:3426:/ getslot"); + MELT_LOCATION("warmelt-normatch.melt:3731:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.STEP__V2*/ meltfptr[1]), 4, "MSTEP_ELSE");/*_.SELSE__V12*/ meltfptr[11] = slot; }; ; - MELT_LOCATION("warmelt-normatch.melt:3427:/ getslot"); + MELT_LOCATION("warmelt-normatch.melt:3732:/ getslot"); { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.MG__V3*/ meltfptr[2]), 2, "MCHGX_NODOUT");/*_.NODEBUF__V13*/ meltfptr[12] = slot; }; + melt_object_get_field(slot,(melt_ptr_t)(/*_.STEP__V2*/ meltfptr[1]), 5, "MSTMA_MATCHER");/*_.SMATCHER__V13*/ meltfptr[12] = slot; }; ; - MELT_LOCATION("warmelt-normatch.melt:3428:/ getslot"); + MELT_LOCATION("warmelt-normatch.melt:3733:/ getslot"); { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.MG__V3*/ meltfptr[2]), 3, "MCHGX_EDGOUT");/*_.EDGEBUF__V14*/ meltfptr[13] = slot; }; + melt_object_get_field(slot,(melt_ptr_t)(/*_.STEP__V2*/ meltfptr[1]), 8, "MSTMA_OUTS");/*_.SOUTS__V14*/ meltfptr[13] = slot; }; ; - MELT_LOCATION("warmelt-normatch.melt:3429:/ getslot"); + MELT_LOCATION("warmelt-normatch.melt:3734:/ getslot"); { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.MG__V3*/ meltfptr[2]), 4, "MCHGX_DATANAMEMAP");/*_.DATAMAP__V15*/ meltfptr[14] = slot; }; + melt_object_get_field(slot,(melt_ptr_t)(/*_.MG__V3*/ meltfptr[2]), 2, "MCHGX_NODOUT");/*_.NODEBUF__V15*/ meltfptr[14] = slot; }; ; - MELT_LOCATION("warmelt-normatch.melt:3430:/ getslot"); + MELT_LOCATION("warmelt-normatch.melt:3735:/ getslot"); { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.MG__V3*/ meltfptr[2]), 5, "MCHGX_STEPNAMEMAP");/*_.STEPMAP__V16*/ meltfptr[15] = slot; }; + melt_object_get_field(slot,(melt_ptr_t)(/*_.MG__V3*/ meltfptr[2]), 3, "MCHGX_EDGOUT");/*_.EDGEBUF__V16*/ meltfptr[15] = slot; }; ; - /*_.STEPNAME__V17*/ meltfptr[16] = - melt_get_mapobjects((meltmapobjects_ptr_t)(/*_.STEPMAP__V16*/ meltfptr[15]), (meltobject_ptr_t)(/*_.STEP__V2*/ meltfptr[1]));; - MELT_LOCATION("warmelt-normatch.melt:3432:/ cond"); + MELT_LOCATION("warmelt-normatch.melt:3736:/ getslot"); + { melt_ptr_t slot=0; + melt_object_get_field(slot,(melt_ptr_t)(/*_.MG__V3*/ meltfptr[2]), 4, "MCHGX_DATANAMEMAP");/*_.DATAMAP__V17*/ meltfptr[16] = slot; }; + ; + MELT_LOCATION("warmelt-normatch.melt:3737:/ getslot"); + { melt_ptr_t slot=0; + melt_object_get_field(slot,(melt_ptr_t)(/*_.MG__V3*/ meltfptr[2]), 5, "MCHGX_STEPNAMEMAP");/*_.STEPMAP__V18*/ meltfptr[17] = slot; }; + ; + /*_.STEPNAME__V19*/ meltfptr[18] = + melt_get_mapobjects((meltmapobjects_ptr_t)(/*_.STEPMAP__V18*/ meltfptr[17]), (meltobject_ptr_t)(/*_.STEP__V2*/ meltfptr[1]));; + MELT_LOCATION("warmelt-normatch.melt:3739:/ cond"); /*cond*/ if (/*_.STHEN__V11*/ meltfptr[10]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/{ - /*_.MAPOBJECT_GET__V19*/ meltfptr[18] = - melt_get_mapobjects((meltmapobjects_ptr_t)(/*_.STEPMAP__V16*/ meltfptr[15]), (meltobject_ptr_t)(/*_.STHEN__V11*/ meltfptr[10]));; + /*_.MAPOBJECT_GET__V21*/ meltfptr[20] = + melt_get_mapobjects((meltmapobjects_ptr_t)(/*_.STEPMAP__V18*/ meltfptr[17]), (meltobject_ptr_t)(/*_.STHEN__V11*/ meltfptr[10]));; /*^compute*/ - /*_.THENNAME__V18*/ meltfptr[17] = /*_.MAPOBJECT_GET__V19*/ meltfptr[18];; + /*_.THENNAME__V20*/ meltfptr[19] = /*_.MAPOBJECT_GET__V21*/ meltfptr[20];; /*epilog*/ - MELT_LOCATION("warmelt-normatch.melt:3432:/ clear"); - /*clear*/ /*_.MAPOBJECT_GET__V19*/ meltfptr[18] = 0 ;} + MELT_LOCATION("warmelt-normatch.melt:3739:/ clear"); + /*clear*/ /*_.MAPOBJECT_GET__V21*/ meltfptr[20] = 0 ;} ; } else {/*^cond.else*/ - /*_.THENNAME__V18*/ meltfptr[17] = NULL;; + /*_.THENNAME__V20*/ meltfptr[19] = NULL;; } ; - MELT_LOCATION("warmelt-normatch.melt:3433:/ cond"); + MELT_LOCATION("warmelt-normatch.melt:3740:/ cond"); /*cond*/ if (/*_.SELSE__V12*/ meltfptr[11]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/{ - /*_.MAPOBJECT_GET__V21*/ meltfptr[20] = - melt_get_mapobjects((meltmapobjects_ptr_t)(/*_.STEPMAP__V16*/ meltfptr[15]), (meltobject_ptr_t)(/*_.SELSE__V12*/ meltfptr[11]));; + /*_.MAPOBJECT_GET__V23*/ meltfptr[22] = + melt_get_mapobjects((meltmapobjects_ptr_t)(/*_.STEPMAP__V18*/ meltfptr[17]), (meltobject_ptr_t)(/*_.SELSE__V12*/ meltfptr[11]));; /*^compute*/ - /*_.ELSENAME__V20*/ meltfptr[18] = /*_.MAPOBJECT_GET__V21*/ meltfptr[20];; + /*_.ELSENAME__V22*/ meltfptr[20] = /*_.MAPOBJECT_GET__V23*/ meltfptr[22];; /*epilog*/ - MELT_LOCATION("warmelt-normatch.melt:3433:/ clear"); - /*clear*/ /*_.MAPOBJECT_GET__V21*/ meltfptr[20] = 0 ;} + MELT_LOCATION("warmelt-normatch.melt:3740:/ clear"); + /*clear*/ /*_.MAPOBJECT_GET__V23*/ meltfptr[22] = 0 ;} ; } else {/*^cond.else*/ - /*_.ELSENAME__V20*/ meltfptr[18] = NULL;; + /*_.ELSENAME__V22*/ meltfptr[20] = NULL;; } ; /*^compute*/ @@ -6152,95 +10907,355 @@ lab_endgetargs:; (melt_obj_hash((melt_ptr_t)(/*_.STEP__V2*/ meltfptr[1])));; /*^compute*/ - /*_.DIS__V22*/ meltfptr[20] = + /*_.DIS__V24*/ meltfptr[22] = (melt_discr((melt_ptr_t)(/*_.STEP__V2*/ meltfptr[1])));; - MELT_LOCATION("warmelt-normatch.melt:3436:/ cond"); - /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.DIS__V22*/ meltfptr[20]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[3])))) /*then*/ { + MELT_LOCATION("warmelt-normatch.melt:3743:/ cond"); + /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.DIS__V24*/ meltfptr[22]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[3])))) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.DIS__V22*/ meltfptr[20]), 1, "NAMED_NAME");/*_.CLANAM__V23*/ meltfptr[22] = slot; }; + melt_object_get_field(slot,(melt_ptr_t)(/*_.DIS__V24*/ meltfptr[22]), 1, "NAMED_NAME");/*_.CLANAM__V25*/ meltfptr[24] = slot; }; ; } else {/*^cond.else*/ - /*_.CLANAM__V23*/ meltfptr[22] = NULL;; + /*_.CLANAM__V25*/ meltfptr[24] = NULL;; } ; { - MELT_LOCATION("warmelt-normatch.melt:3438:/ locexp"); - meltgc_add_out((melt_ptr_t)(/*_.NODEBUF__V13*/ meltfptr[12]), ( ""));} + MELT_LOCATION("warmelt-normatch.melt:3745:/ locexp"); + meltgc_add_out((melt_ptr_t)(/*_.NODEBUF__V15*/ meltfptr[14]), ( ""));} ; { - MELT_LOCATION("warmelt-normatch.melt:3441:/ locexp"); + MELT_LOCATION("warmelt-normatch.melt:3748:/ locexp"); /* OUTCLANAM__4 */ - meltgc_add_out ((melt_ptr_t) /*_.NODEBUF__V13*/ meltfptr[12], - melt_string_str ((melt_ptr_t) /*_.CLANAM__V23*/ meltfptr[22]) +6) ; + meltgc_add_out ((melt_ptr_t) /*_.NODEBUF__V15*/ meltfptr[14], + melt_string_str ((melt_ptr_t) /*_.CLANAM__V25*/ meltfptr[24]) +6) ; ;} ; { - MELT_LOCATION("warmelt-normatch.melt:3445:/ locexp"); - meltgc_add_out((melt_ptr_t)(/*_.NODEBUF__V13*/ meltfptr[12]), ( ""));} + MELT_LOCATION("warmelt-normatch.melt:3752:/ locexp"); + meltgc_add_out((melt_ptr_t)(/*_.NODEBUF__V15*/ meltfptr[14]), ( ""));} ; { - MELT_LOCATION("warmelt-normatch.melt:3446:/ locexp"); - meltgc_add_out((melt_ptr_t)(/*_.NODEBUF__V13*/ meltfptr[12]), ( ""));} + MELT_LOCATION("warmelt-normatch.melt:3753:/ locexp"); + meltgc_add_out((melt_ptr_t)(/*_.NODEBUF__V15*/ meltfptr[14]), ( ""));} ; { - MELT_LOCATION("warmelt-normatch.melt:3447:/ locexp"); + MELT_LOCATION("warmelt-normatch.melt:3754:/ locexp"); /*add2sbufshortmixloc*/ if (melt_magic_discr((melt_ptr_t)(/*_.LOCA__V10*/ meltfptr[8])) == OBMAG_MIXLOC) { location_t loc = melt_location_mixloc((melt_ptr_t)/*_.LOCA__V10*/ meltfptr[8]); - meltgc_strbuf_printf((melt_ptr_t)(/*_.NODEBUF__V13*/ meltfptr[12]), "{%s:%d:%d}", + meltgc_strbuf_printf((melt_ptr_t)(/*_.NODEBUF__V15*/ meltfptr[14]), "{%s:%d:%d}", lbasename(LOCATION_FILE (loc)), LOCATION_LINE (loc), LOCATION_COLUMN (loc)); } /*end add2sbufshortmixloc*/;} ; { - MELT_LOCATION("warmelt-normatch.melt:3448:/ locexp"); - meltgc_add_out((melt_ptr_t)(/*_.NODEBUF__V13*/ meltfptr[12]), ( ""));} + MELT_LOCATION("warmelt-normatch.melt:3755:/ locexp"); + meltgc_add_out((melt_ptr_t)(/*_.NODEBUF__V15*/ meltfptr[14]), ( ""));} ; { - MELT_LOCATION("warmelt-normatch.melt:3449:/ locexp"); - meltgc_out_add_indent((melt_ptr_t)(/*_.NODEBUF__V13*/ meltfptr[12]), (0), 0);;} + MELT_LOCATION("warmelt-normatch.melt:3756:/ locexp"); + meltgc_out_add_indent((melt_ptr_t)(/*_.NODEBUF__V15*/ meltfptr[14]), (0), 0);;} + ; + + { + MELT_LOCATION("warmelt-normatch.melt:3757:/ locexp"); + meltgc_add_out((melt_ptr_t)(/*_.NODEBUF__V15*/ meltfptr[14]), ( ""));} + ; + MELT_LOCATION("warmelt-normatch.melt:3758:/ cond"); + /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.SMATCHER__V13*/ meltfptr[12]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[3])))) /*then*/ { + /*^cond.then*/ + /*^getslot*/ + { melt_ptr_t slot=0; + melt_object_get_field(slot,(melt_ptr_t)(/*_.SMATCHER__V13*/ meltfptr[12]), 1, "NAMED_NAME");/*_.NAMED_NAME__V26*/ meltfptr[25] = slot; }; + ; + } else {/*^cond.else*/ + + /*_.NAMED_NAME__V26*/ meltfptr[25] = NULL;; + } + ; + + { + MELT_LOCATION("warmelt-normatch.melt:3758:/ locexp"); + meltgc_add_out((melt_ptr_t)(/*_.NODEBUF__V15*/ meltfptr[14]), melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V26*/ meltfptr[25])));} + ; + + { + MELT_LOCATION("warmelt-normatch.melt:3759:/ locexp"); + meltgc_add_out((melt_ptr_t)(/*_.NODEBUF__V15*/ meltfptr[14]), ( ""));} + ; + + { + MELT_LOCATION("warmelt-normatch.melt:3760:/ locexp"); + meltgc_out_add_indent((melt_ptr_t)(/*_.NODEBUF__V15*/ meltfptr[14]), (0), 0);;} + ; + /*citerblock FOREACH_IN_MULTIPLE*/ { + /* start cit1__EACHTUP: */ + long cit1__EACHTUP_ln = melt_multiple_length((melt_ptr_t)/*_.SOUTS__V14*/ meltfptr[13]); + for (/*_#OUTIX__L5*/ meltfnum[4] = 0; + (/*_#OUTIX__L5*/ meltfnum[4] >= 0) && (/*_#OUTIX__L5*/ meltfnum[4] < cit1__EACHTUP_ln); + /*_#OUTIX__L5*/ meltfnum[4]++) { + /*_.CUROUT__V27*/ meltfptr[26] = melt_multiple_nth((melt_ptr_t)(/*_.SOUTS__V14*/ meltfptr[13]), /*_#OUTIX__L5*/ meltfnum[4]); + + + + + #if ENABLE_CHECKING + MELT_LOCATION("warmelt-normatch.melt:3764:/ cppif.then"); + /*^block*/ + /*anyblock*/{ + + /*_#THE_MELTCALLCOUNT__L6*/ meltfnum[5] = + meltcallcount;; + MELT_LOCATION("warmelt-normatch.melt:3764:/ apply"); + /*apply*/{ + union meltparam_un argtab[4]; + memset(&argtab, 0, sizeof(argtab)); + /*^apply.arg*/ + argtab[0].bp_cstring = "mgaltstep_steptestmatcher curout"; + /*^apply.arg*/ + argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L6*/ meltfnum[5]; + /*^apply.arg*/ + argtab[2].bp_cstring = "warmelt-normatch.melt"; + /*^apply.arg*/ + argtab[3].bp_long = 3764; + /*_.DEBUG_MSG_FUN__V29*/ meltfptr[28] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.CUROUT__V27*/ meltfptr[26]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + } + ; + /*_.IFCPP___V28*/ meltfptr[27] = /*_.DEBUG_MSG_FUN__V29*/ meltfptr[28];; + /*epilog*/ + + MELT_LOCATION("warmelt-normatch.melt:3764:/ clear"); + /*clear*/ /*_#THE_MELTCALLCOUNT__L6*/ meltfnum[5] = 0 ; + /*^clear*/ + /*clear*/ /*_.DEBUG_MSG_FUN__V29*/ meltfptr[28] = 0 ;} + + #else /*ENABLE_CHECKING*/ + /*^cppif.else*/ + /*_.IFCPP___V28*/ meltfptr[27] = (/*nil*/NULL); + #endif /*ENABLE_CHECKING*/ + ; + + #if ENABLE_CHECKING + MELT_LOCATION("warmelt-normatch.melt:3765:/ cppif.then"); + /*^block*/ + /*anyblock*/{ + + /*_#IS_A__L7*/ meltfnum[5] = + melt_is_instance_of((melt_ptr_t)(/*_.CUROUT__V27*/ meltfptr[26]), (melt_ptr_t)((/*!CLASS_MATCHED_DATA*/ meltfrout->tabval[4])));; + MELT_LOCATION("warmelt-normatch.melt:3765:/ cond"); + /*cond*/ if (/*_#IS_A__L7*/ meltfnum[5]) /*then*/ { + /*^cond.then*/ + /*_.IFELSE___V31*/ meltfptr[30] = (/*nil*/NULL);; + } else {MELT_LOCATION("warmelt-normatch.melt:3765:/ cond.else"); + + /*^block*/ + /*anyblock*/{ + + + + + { + /*^locexp*/ + melt_assert_failed(( "check curout"),( "warmelt-normatch.melt")?( "warmelt-normatch.melt"):__FILE__, + (3765)?(3765):__LINE__, __FUNCTION__); +;} + ; + /*clear*/ /*_.IFELSE___V31*/ meltfptr[30] = 0 ; + /*epilog*/ + } + ; + } + ; + /*^compute*/ + + /*_.IFCPP___V30*/ meltfptr[28] = /*_.IFELSE___V31*/ meltfptr[30];; + /*epilog*/ + + MELT_LOCATION("warmelt-normatch.melt:3765:/ clear"); + /*clear*/ /*_#IS_A__L7*/ meltfnum[5] = 0 ; + /*^clear*/ + /*clear*/ /*_.IFELSE___V31*/ meltfptr[30] = 0 ;} + + #else /*ENABLE_CHECKING*/ + /*^cppif.else*/ + /*_.IFCPP___V30*/ meltfptr[28] = (/*nil*/NULL); + #endif /*ENABLE_CHECKING*/ + ; + + { + MELT_LOCATION("warmelt-normatch.melt:3766:/ locexp"); + meltgc_out_add_indent((melt_ptr_t)(/*_.EDGEBUF__V16*/ meltfptr[15]), (0), 0);;} + ; + + { + MELT_LOCATION("warmelt-normatch.melt:3767:/ locexp"); + meltgc_add_out((melt_ptr_t)(/*_.EDGEBUF__V16*/ meltfptr[15]), melt_string_str((melt_ptr_t)(/*_.STEPNAME__V19*/ meltfptr[18])));} + ; + + { + MELT_LOCATION("warmelt-normatch.melt:3768:/ locexp"); + meltgc_add_out((melt_ptr_t)(/*_.EDGEBUF__V16*/ meltfptr[15]), ( " /*matchstep*/ -> /*data*/ "));} + ; + /*_.MAPOBJECT_GET__V32*/ meltfptr[30] = + melt_get_mapobjects((meltmapobjects_ptr_t)(/*_.DATAMAP__V17*/ meltfptr[16]), (meltobject_ptr_t)(/*_.CUROUT__V27*/ meltfptr[26]));; + + { + MELT_LOCATION("warmelt-normatch.melt:3769:/ locexp"); + meltgc_add_out((melt_ptr_t)(/*_.EDGEBUF__V16*/ meltfptr[15]), melt_string_str((melt_ptr_t)(/*_.MAPOBJECT_GET__V32*/ meltfptr[30])));} + ; + + { + MELT_LOCATION("warmelt-normatch.melt:3770:/ locexp"); + meltgc_add_out((melt_ptr_t)(/*_.EDGEBUF__V16*/ meltfptr[15]), ( " [ arrowhead=open, "));} + ; + MELT_LOCATION("warmelt-normatch.melt:3771:/ quasiblock"); + + + /*^cond*/ + /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.SMATCHER__V13*/ meltfptr[12]), (melt_ptr_t)((/*!CLASS_ANY_MATCHER*/ meltfrout->tabval[5])))) /*then*/ { + /*^cond.then*/ + /*^getslot*/ + { melt_ptr_t slot=0; + melt_object_get_field(slot,(melt_ptr_t)(/*_.SMATCHER__V13*/ meltfptr[12]), 4, "AMATCH_OUT");/*_.AMATCH_OUT__V33*/ meltfptr[32] = slot; }; + ; + } else {/*^cond.else*/ + + /*_.AMATCH_OUT__V33*/ meltfptr[32] = NULL;; + } + ; + /*^compute*/ + + /*_.OUTBIND__V34*/ meltfptr[33] = + (melt_multiple_nth((melt_ptr_t)(/*_.AMATCH_OUT__V33*/ meltfptr[32]), (/*_#OUTIX__L5*/ meltfnum[4])));; + MELT_LOCATION("warmelt-normatch.melt:3772:/ cond"); + /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.OUTBIND__V34*/ meltfptr[33]), (melt_ptr_t)((/*!CLASS_ANY_BINDING*/ meltfrout->tabval[6])))) /*then*/ { + /*^cond.then*/ + /*^getslot*/ + { melt_ptr_t slot=0; + melt_object_get_field(slot,(melt_ptr_t)(/*_.OUTBIND__V34*/ meltfptr[33]), 0, "BINDER");/*_.OUTSYMB__V35*/ meltfptr[34] = slot; }; + ; + } else {/*^cond.else*/ + + /*_.OUTSYMB__V35*/ meltfptr[34] = NULL;; + } + ; + /*^compute*/ + + /*_#IS_A__L8*/ meltfnum[5] = + melt_is_instance_of((melt_ptr_t)(/*_.OUTSYMB__V35*/ meltfptr[34]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ meltfrout->tabval[7])));; + MELT_LOCATION("warmelt-normatch.melt:3774:/ cond"); + /*cond*/ if (/*_#IS_A__L8*/ meltfnum[5]) /*then*/ { + /*^cond.then*/ + /*^block*/ + /*anyblock*/{ + + + { + MELT_LOCATION("warmelt-normatch.melt:3776:/ locexp"); + meltgc_add_out((melt_ptr_t)(/*_.EDGEBUF__V16*/ meltfptr[15]), ( " label=<"));} + ; + MELT_LOCATION("warmelt-normatch.melt:3777:/ cond"); + /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.OUTSYMB__V35*/ meltfptr[34]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[3])))) /*then*/ { + /*^cond.then*/ + /*^getslot*/ + { melt_ptr_t slot=0; + melt_object_get_field(slot,(melt_ptr_t)(/*_.OUTSYMB__V35*/ meltfptr[34]), 1, "NAMED_NAME");/*_.NAMED_NAME__V36*/ meltfptr[35] = slot; }; + ; + } else {/*^cond.else*/ + + /*_.NAMED_NAME__V36*/ meltfptr[35] = NULL;; + } + ; + + { + MELT_LOCATION("warmelt-normatch.melt:3777:/ locexp"); + meltgc_add_out((melt_ptr_t)(/*_.EDGEBUF__V16*/ meltfptr[15]), melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V36*/ meltfptr[35])));} + ; + + { + MELT_LOCATION("warmelt-normatch.melt:3778:/ locexp"); + meltgc_add_out((melt_ptr_t)(/*_.EDGEBUF__V16*/ meltfptr[15]), ( ">, "));} + ; + MELT_LOCATION("warmelt-normatch.melt:3775:/ quasiblock"); + + + /*epilog*/ + + MELT_LOCATION("warmelt-normatch.melt:3774:/ clear"); + /*clear*/ /*_.NAMED_NAME__V36*/ meltfptr[35] = 0 ;} + ; + } /*noelse*/ + ; + + MELT_LOCATION("warmelt-normatch.melt:3771:/ clear"); + /*clear*/ /*_.AMATCH_OUT__V33*/ meltfptr[32] = 0 ; + /*^clear*/ + /*clear*/ /*_.OUTBIND__V34*/ meltfptr[33] = 0 ; + /*^clear*/ + /*clear*/ /*_.OUTSYMB__V35*/ meltfptr[34] = 0 ; + /*^clear*/ + /*clear*/ /*_#IS_A__L8*/ meltfnum[5] = 0 ; + + { + MELT_LOCATION("warmelt-normatch.melt:3779:/ locexp"); + meltgc_add_out((melt_ptr_t)(/*_.EDGEBUF__V16*/ meltfptr[15]), ( " color=violet, style=dotted ];"));} + ; + if (/*_#OUTIX__L5*/ meltfnum[4]<0) break; + } /* end cit1__EACHTUP */ + + /*citerepilog*/ + + MELT_LOCATION("warmelt-normatch.melt:3761:/ clear"); + /*clear*/ /*_.CUROUT__V27*/ meltfptr[26] = 0 ; + /*^clear*/ + /*clear*/ /*_#OUTIX__L5*/ meltfnum[4] = 0 ; + /*^clear*/ + /*clear*/ /*_.IFCPP___V28*/ meltfptr[27] = 0 ; + /*^clear*/ + /*clear*/ /*_.IFCPP___V30*/ meltfptr[28] = 0 ; + /*^clear*/ + /*clear*/ /*_.MAPOBJECT_GET__V32*/ meltfptr[30] = 0 ;} /*endciterblock FOREACH_IN_MULTIPLE*/ ; - MELT_LOCATION("warmelt-normatch.melt:3450:/ cond"); - /*cond*/ if (/*_.THENNAME__V18*/ meltfptr[17]) /*then*/ { + MELT_LOCATION("warmelt-normatch.melt:3781:/ cond"); + /*cond*/ if (/*_.THENNAME__V20*/ meltfptr[19]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/{ { - MELT_LOCATION("warmelt-normatch.melt:3452:/ locexp"); - meltgc_out_add_indent((melt_ptr_t)(/*_.EDGEBUF__V14*/ meltfptr[13]), (0), 0);;} + MELT_LOCATION("warmelt-normatch.melt:3783:/ locexp"); + meltgc_out_add_indent((melt_ptr_t)(/*_.EDGEBUF__V16*/ meltfptr[15]), (0), 0);;} ; { - MELT_LOCATION("warmelt-normatch.melt:3453:/ locexp"); - meltgc_add_out((melt_ptr_t)(/*_.EDGEBUF__V14*/ meltfptr[13]), melt_string_str((melt_ptr_t)(/*_.STEPNAME__V17*/ meltfptr[16])));} + MELT_LOCATION("warmelt-normatch.melt:3784:/ locexp"); + meltgc_add_out((melt_ptr_t)(/*_.EDGEBUF__V16*/ meltfptr[15]), melt_string_str((melt_ptr_t)(/*_.STEPNAME__V19*/ meltfptr[18])));} ; { - MELT_LOCATION("warmelt-normatch.melt:3454:/ locexp"); - meltgc_add_out((melt_ptr_t)(/*_.EDGEBUF__V14*/ meltfptr[13]), ( " /*then*/ -> "));} + MELT_LOCATION("warmelt-normatch.melt:3785:/ locexp"); + meltgc_add_out((melt_ptr_t)(/*_.EDGEBUF__V16*/ meltfptr[15]), ( " /*then*/ -> "));} ; { - MELT_LOCATION("warmelt-normatch.melt:3455:/ locexp"); - meltgc_add_out((melt_ptr_t)(/*_.EDGEBUF__V14*/ meltfptr[13]), melt_string_str((melt_ptr_t)(/*_.THENNAME__V18*/ meltfptr[17])));} + MELT_LOCATION("warmelt-normatch.melt:3786:/ locexp"); + meltgc_add_out((melt_ptr_t)(/*_.EDGEBUF__V16*/ meltfptr[15]), melt_string_str((melt_ptr_t)(/*_.THENNAME__V20*/ meltfptr[19])));} ; { - MELT_LOCATION("warmelt-normatch.melt:3456:/ locexp"); - meltgc_add_out((melt_ptr_t)(/*_.EDGEBUF__V14*/ meltfptr[13]), ( " [ arrowhead=normal, color=green ];"));} + MELT_LOCATION("warmelt-normatch.melt:3787:/ locexp"); + meltgc_add_out((melt_ptr_t)(/*_.EDGEBUF__V16*/ meltfptr[15]), ( " [ arrowhead=normal, color=green ];"));} ; - MELT_LOCATION("warmelt-normatch.melt:3451:/ quasiblock"); + MELT_LOCATION("warmelt-normatch.melt:3782:/ quasiblock"); /*epilog*/ @@ -6248,38 +11263,38 @@ lab_endgetargs:; ; } /*noelse*/ ; - MELT_LOCATION("warmelt-normatch.melt:3458:/ cond"); - /*cond*/ if (/*_.ELSENAME__V20*/ meltfptr[18]) /*then*/ { + MELT_LOCATION("warmelt-normatch.melt:3789:/ cond"); + /*cond*/ if (/*_.ELSENAME__V22*/ meltfptr[20]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/{ { - MELT_LOCATION("warmelt-normatch.melt:3460:/ locexp"); - meltgc_out_add_indent((melt_ptr_t)(/*_.EDGEBUF__V14*/ meltfptr[13]), (0), 0);;} + MELT_LOCATION("warmelt-normatch.melt:3791:/ locexp"); + meltgc_out_add_indent((melt_ptr_t)(/*_.EDGEBUF__V16*/ meltfptr[15]), (0), 0);;} ; { - MELT_LOCATION("warmelt-normatch.melt:3461:/ locexp"); - meltgc_add_out((melt_ptr_t)(/*_.EDGEBUF__V14*/ meltfptr[13]), melt_string_str((melt_ptr_t)(/*_.STEPNAME__V17*/ meltfptr[16])));} + MELT_LOCATION("warmelt-normatch.melt:3792:/ locexp"); + meltgc_add_out((melt_ptr_t)(/*_.EDGEBUF__V16*/ meltfptr[15]), melt_string_str((melt_ptr_t)(/*_.STEPNAME__V19*/ meltfptr[18])));} ; { - MELT_LOCATION("warmelt-normatch.melt:3462:/ locexp"); - meltgc_add_out((melt_ptr_t)(/*_.EDGEBUF__V14*/ meltfptr[13]), ( " /*else*/ -> "));} + MELT_LOCATION("warmelt-normatch.melt:3793:/ locexp"); + meltgc_add_out((melt_ptr_t)(/*_.EDGEBUF__V16*/ meltfptr[15]), ( " /*else*/ -> "));} ; { - MELT_LOCATION("warmelt-normatch.melt:3463:/ locexp"); - meltgc_add_out((melt_ptr_t)(/*_.EDGEBUF__V14*/ meltfptr[13]), melt_string_str((melt_ptr_t)(/*_.ELSENAME__V20*/ meltfptr[18])));} + MELT_LOCATION("warmelt-normatch.melt:3794:/ locexp"); + meltgc_add_out((melt_ptr_t)(/*_.EDGEBUF__V16*/ meltfptr[15]), melt_string_str((melt_ptr_t)(/*_.ELSENAME__V22*/ meltfptr[20])));} ; { - MELT_LOCATION("warmelt-normatch.melt:3464:/ locexp"); - meltgc_add_out((melt_ptr_t)(/*_.EDGEBUF__V14*/ meltfptr[13]), ( " [ arrowhead=diamond, color=red ];"));} + MELT_LOCATION("warmelt-normatch.melt:3795:/ locexp"); + meltgc_add_out((melt_ptr_t)(/*_.EDGEBUF__V16*/ meltfptr[15]), ( " [ arrowhead=diamond, color=red ];"));} ; - MELT_LOCATION("warmelt-normatch.melt:3459:/ quasiblock"); + MELT_LOCATION("warmelt-normatch.melt:3790:/ quasiblock"); /*epilog*/ @@ -6288,35 +11303,41 @@ lab_endgetargs:; } /*noelse*/ ; - MELT_LOCATION("warmelt-normatch.melt:3424:/ clear"); + MELT_LOCATION("warmelt-normatch.melt:3729:/ clear"); /*clear*/ /*_.LOCA__V10*/ meltfptr[8] = 0 ; /*^clear*/ /*clear*/ /*_.STHEN__V11*/ meltfptr[10] = 0 ; /*^clear*/ /*clear*/ /*_.SELSE__V12*/ meltfptr[11] = 0 ; /*^clear*/ - /*clear*/ /*_.NODEBUF__V13*/ meltfptr[12] = 0 ; + /*clear*/ /*_.SMATCHER__V13*/ meltfptr[12] = 0 ; /*^clear*/ - /*clear*/ /*_.EDGEBUF__V14*/ meltfptr[13] = 0 ; + /*clear*/ /*_.SOUTS__V14*/ meltfptr[13] = 0 ; /*^clear*/ - /*clear*/ /*_.DATAMAP__V15*/ meltfptr[14] = 0 ; + /*clear*/ /*_.NODEBUF__V15*/ meltfptr[14] = 0 ; /*^clear*/ - /*clear*/ /*_.STEPMAP__V16*/ meltfptr[15] = 0 ; + /*clear*/ /*_.EDGEBUF__V16*/ meltfptr[15] = 0 ; /*^clear*/ - /*clear*/ /*_.STEPNAME__V17*/ meltfptr[16] = 0 ; + /*clear*/ /*_.DATAMAP__V17*/ meltfptr[16] = 0 ; /*^clear*/ - /*clear*/ /*_.THENNAME__V18*/ meltfptr[17] = 0 ; + /*clear*/ /*_.STEPMAP__V18*/ meltfptr[17] = 0 ; /*^clear*/ - /*clear*/ /*_.ELSENAME__V20*/ meltfptr[18] = 0 ; + /*clear*/ /*_.STEPNAME__V19*/ meltfptr[18] = 0 ; + /*^clear*/ + /*clear*/ /*_.THENNAME__V20*/ meltfptr[19] = 0 ; + /*^clear*/ + /*clear*/ /*_.ELSENAME__V22*/ meltfptr[20] = 0 ; /*^clear*/ /*clear*/ /*_#STEPHASH__L4*/ meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_.DIS__V22*/ meltfptr[20] = 0 ; + /*clear*/ /*_.DIS__V24*/ meltfptr[22] = 0 ; /*^clear*/ - /*clear*/ /*_.CLANAM__V23*/ meltfptr[22] = 0 ; + /*clear*/ /*_.CLANAM__V25*/ meltfptr[24] = 0 ; + /*^clear*/ + /*clear*/ /*_.NAMED_NAME__V26*/ meltfptr[25] = 0 ; /*epilog*/ - MELT_LOCATION("warmelt-normatch.melt:3420:/ clear"); + MELT_LOCATION("warmelt-normatch.melt:3725:/ clear"); /*clear*/ /*_.IFCPP___V4*/ meltfptr[3] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V6*/ meltfptr[4] = 0 ; @@ -6326,20 +11347,20 @@ lab_endgetargs:; ; goto labend_rout; labend_rout: -melt_trace_end("MGALTSTEP_STEPTESTGROUP", meltcallcount); melt_topframe = (struct callframe_melt_st*) meltfram__.prev; +melt_trace_end("MGALTSTEP_STEPTESTMATCHER", meltcallcount); melt_topframe = (struct callframe_melt_st*) meltfram__.prev; return (melt_ptr_t)(/*noretval*/ NULL); #undef meltcallcount #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR -} /*end meltrout_73_warmelt_normatch_MGALTSTEP_STEPTESTGROUP*/ +} /*end meltrout_75_warmelt_normatch_MGALTSTEP_STEPTESTMATCHER*/ melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_74_warmelt_normatch_MGALTSTEP_STEPTESTMATCHER(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, +meltrout_76_warmelt_normatch_MGALTSTEP_STEPSUCCESS(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_) { #if ENABLE_CHECKING @@ -6352,17 +11373,17 @@ meltrout_74_warmelt_normatch_MGALTSTEP_STEPTESTMATCHER(meltclosure_ptr_t closp_, #define meltcallcount 0L #endif - struct frame_meltrout_74_warmelt_normatch_MGALTSTEP_STEPTESTMATCHER_st { unsigned nbvar; + struct frame_meltrout_76_warmelt_normatch_MGALTSTEP_STEPSUCCESS_st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct meltclosure_st *clos; struct excepth_melt_st *exh; struct callframe_melt_st *prev; -#define MELTFRAM_NBVARPTR 36 - void* varptr[36]; -#define MELTFRAM_NBVARNUM 8 - long varnum[8]; +#define MELTFRAM_NBVARPTR 20 + void* varptr[20]; +#define MELTFRAM_NBVARNUM 4 + long varnum[4]; /*others*/ long _spare_; } *framptr_=0, meltframe; @@ -6371,21 +11392,21 @@ meltrout_74_warmelt_normatch_MGALTSTEP_STEPTESTMATCHER(meltclosure_ptr_t closp_, int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_melt_un (framptr_->clos); - for(ix=0; ix<36; ix++) + for(ix=0; ix<20; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_melt_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&meltfram__, 0, sizeof(meltfram__)); - meltfram__.nbvar = 36; + meltfram__.nbvar = 20; meltfram__.clos = closp_; meltfram__.prev = (struct callframe_melt_st *) melt_topframe; melt_topframe = (struct callframe_melt_st *) &meltfram__; -melt_trace_start("MGALTSTEP_STEPTESTMATCHER", meltcallcount); +melt_trace_start("MGALTSTEP_STEPSUCCESS", meltcallcount); /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-normatch.melt:3470:/ getarg"); + MELT_LOCATION("warmelt-normatch.melt:3802:/ getarg"); /*_.STEP__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; /*getarg#1*/ @@ -6403,31 +11424,31 @@ lab_endgetargs:; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normatch.melt:3471:/ cppif.then"); + MELT_LOCATION("warmelt-normatch.melt:3803:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L1*/ meltfnum[0] = meltcallcount;; - MELT_LOCATION("warmelt-normatch.melt:3471:/ apply"); + MELT_LOCATION("warmelt-normatch.melt:3803:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_cstring = "mgaltstep_steptestmatcher step"; + argtab[0].bp_cstring = "mgaltstep_stepsuccess step"; /*^apply.arg*/ argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L1*/ meltfnum[0]; /*^apply.arg*/ argtab[2].bp_cstring = "warmelt-normatch.melt"; /*^apply.arg*/ - argtab[3].bp_long = 3471; + argtab[3].bp_long = 3803; /*_.DEBUG_MSG_FUN__V5*/ meltfptr[4] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.STEP__V2*/ meltfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V4*/ meltfptr[3] = /*_.DEBUG_MSG_FUN__V5*/ meltfptr[4];; /*epilog*/ - MELT_LOCATION("warmelt-normatch.melt:3471:/ clear"); + MELT_LOCATION("warmelt-normatch.melt:3803:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L1*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V5*/ meltfptr[4] = 0 ;} @@ -6439,17 +11460,17 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normatch.melt:3472:/ cppif.then"); + MELT_LOCATION("warmelt-normatch.melt:3804:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L2*/ meltfnum[0] = - melt_is_instance_of((melt_ptr_t)(/*_.STEP__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_MATCH_STEP_TEST_MATCHER*/ meltfrout->tabval[1])));; - MELT_LOCATION("warmelt-normatch.melt:3472:/ cond"); + melt_is_instance_of((melt_ptr_t)(/*_.STEP__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_MATCH_STEP_SUCCESS*/ meltfrout->tabval[1])));; + MELT_LOCATION("warmelt-normatch.melt:3804:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V7*/ meltfptr[6] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normatch.melt:3472:/ cond.else"); + } else {MELT_LOCATION("warmelt-normatch.melt:3804:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -6460,7 +11481,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check step"),( "warmelt-normatch.melt")?( "warmelt-normatch.melt"):__FILE__, - (3472)?(3472):__LINE__, __FUNCTION__); + (3804)?(3804):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V7*/ meltfptr[6] = 0 ; @@ -6474,7 +11495,7 @@ lab_endgetargs:; /*_.IFCPP___V6*/ meltfptr[4] = /*_.IFELSE___V7*/ meltfptr[6];; /*epilog*/ - MELT_LOCATION("warmelt-normatch.melt:3472:/ clear"); + MELT_LOCATION("warmelt-normatch.melt:3804:/ clear"); /*clear*/ /*_#IS_A__L2*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V7*/ meltfptr[6] = 0 ;} @@ -6486,17 +11507,17 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normatch.melt:3473:/ cppif.then"); + MELT_LOCATION("warmelt-normatch.melt:3805:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L3*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.MG__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_MATCH_GRAPHIC*/ meltfrout->tabval[2])));; - MELT_LOCATION("warmelt-normatch.melt:3473:/ cond"); + MELT_LOCATION("warmelt-normatch.melt:3805:/ cond"); /*cond*/ if (/*_#IS_A__L3*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V9*/ meltfptr[8] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normatch.melt:3473:/ cond.else"); + } else {MELT_LOCATION("warmelt-normatch.melt:3805:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -6507,7 +11528,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check mg"),( "warmelt-normatch.melt")?( "warmelt-normatch.melt"):__FILE__, - (3473)?(3473):__LINE__, __FUNCTION__); + (3805)?(3805):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V9*/ meltfptr[8] = 0 ; @@ -6521,7 +11542,7 @@ lab_endgetargs:; /*_.IFCPP___V8*/ meltfptr[6] = /*_.IFELSE___V9*/ meltfptr[8];; /*epilog*/ - MELT_LOCATION("warmelt-normatch.melt:3473:/ clear"); + MELT_LOCATION("warmelt-normatch.melt:3805:/ clear"); /*clear*/ /*_#IS_A__L3*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V9*/ meltfptr[8] = 0 ;} @@ -6531,87 +11552,54 @@ lab_endgetargs:; /*_.IFCPP___V8*/ meltfptr[6] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-normatch.melt:3474:/ quasiblock"); + MELT_LOCATION("warmelt-normatch.melt:3806:/ quasiblock"); /*^getslot*/ { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.STEP__V2*/ meltfptr[1]), 1, "LOCA_LOCATION");/*_.LOCA__V10*/ meltfptr[8] = slot; }; ; - MELT_LOCATION("warmelt-normatch.melt:3475:/ getslot"); + MELT_LOCATION("warmelt-normatch.melt:3807:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.STEP__V2*/ meltfptr[1]), 3, "MSTEP_THEN");/*_.STHEN__V11*/ meltfptr[10] = slot; }; ; - MELT_LOCATION("warmelt-normatch.melt:3476:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.STEP__V2*/ meltfptr[1]), 4, "MSTEP_ELSE");/*_.SELSE__V12*/ meltfptr[11] = slot; }; - ; - MELT_LOCATION("warmelt-normatch.melt:3477:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.STEP__V2*/ meltfptr[1]), 5, "MSTMA_MATCHER");/*_.SMATCHER__V13*/ meltfptr[12] = slot; }; - ; - MELT_LOCATION("warmelt-normatch.melt:3478:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.STEP__V2*/ meltfptr[1]), 8, "MSTMA_OUTS");/*_.SOUTS__V14*/ meltfptr[13] = slot; }; - ; - MELT_LOCATION("warmelt-normatch.melt:3479:/ getslot"); + MELT_LOCATION("warmelt-normatch.melt:3808:/ getslot"); { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.MG__V3*/ meltfptr[2]), 2, "MCHGX_NODOUT");/*_.NODEBUF__V15*/ meltfptr[14] = slot; }; + melt_object_get_field(slot,(melt_ptr_t)(/*_.MG__V3*/ meltfptr[2]), 2, "MCHGX_NODOUT");/*_.NODEBUF__V12*/ meltfptr[11] = slot; }; ; - MELT_LOCATION("warmelt-normatch.melt:3480:/ getslot"); + MELT_LOCATION("warmelt-normatch.melt:3809:/ getslot"); { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.MG__V3*/ meltfptr[2]), 3, "MCHGX_EDGOUT");/*_.EDGEBUF__V16*/ meltfptr[15] = slot; }; + melt_object_get_field(slot,(melt_ptr_t)(/*_.MG__V3*/ meltfptr[2]), 3, "MCHGX_EDGOUT");/*_.EDGEBUF__V13*/ meltfptr[12] = slot; }; ; - MELT_LOCATION("warmelt-normatch.melt:3481:/ getslot"); + MELT_LOCATION("warmelt-normatch.melt:3810:/ getslot"); { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.MG__V3*/ meltfptr[2]), 4, "MCHGX_DATANAMEMAP");/*_.DATAMAP__V17*/ meltfptr[16] = slot; }; + melt_object_get_field(slot,(melt_ptr_t)(/*_.MG__V3*/ meltfptr[2]), 4, "MCHGX_DATANAMEMAP");/*_.DATAMAP__V14*/ meltfptr[13] = slot; }; ; - MELT_LOCATION("warmelt-normatch.melt:3482:/ getslot"); + MELT_LOCATION("warmelt-normatch.melt:3811:/ getslot"); { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.MG__V3*/ meltfptr[2]), 5, "MCHGX_STEPNAMEMAP");/*_.STEPMAP__V18*/ meltfptr[17] = slot; }; + melt_object_get_field(slot,(melt_ptr_t)(/*_.MG__V3*/ meltfptr[2]), 5, "MCHGX_STEPNAMEMAP");/*_.STEPMAP__V15*/ meltfptr[14] = slot; }; ; - /*_.STEPNAME__V19*/ meltfptr[18] = - melt_get_mapobjects((meltmapobjects_ptr_t)(/*_.STEPMAP__V18*/ meltfptr[17]), (meltobject_ptr_t)(/*_.STEP__V2*/ meltfptr[1]));; - MELT_LOCATION("warmelt-normatch.melt:3484:/ cond"); + /*_.STEPNAME__V16*/ meltfptr[15] = + melt_get_mapobjects((meltmapobjects_ptr_t)(/*_.STEPMAP__V15*/ meltfptr[14]), (meltobject_ptr_t)(/*_.STEP__V2*/ meltfptr[1]));; + MELT_LOCATION("warmelt-normatch.melt:3813:/ cond"); /*cond*/ if (/*_.STHEN__V11*/ meltfptr[10]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/{ - /*_.MAPOBJECT_GET__V21*/ meltfptr[20] = - melt_get_mapobjects((meltmapobjects_ptr_t)(/*_.STEPMAP__V18*/ meltfptr[17]), (meltobject_ptr_t)(/*_.STHEN__V11*/ meltfptr[10]));; - /*^compute*/ - - /*_.THENNAME__V20*/ meltfptr[19] = /*_.MAPOBJECT_GET__V21*/ meltfptr[20];; - /*epilog*/ - - MELT_LOCATION("warmelt-normatch.melt:3484:/ clear"); - /*clear*/ /*_.MAPOBJECT_GET__V21*/ meltfptr[20] = 0 ;} - ; - } else {/*^cond.else*/ - - /*_.THENNAME__V20*/ meltfptr[19] = NULL;; - } - ; - MELT_LOCATION("warmelt-normatch.melt:3485:/ cond"); - /*cond*/ if (/*_.SELSE__V12*/ meltfptr[11]) /*then*/ { - /*^cond.then*/ - /*^block*/ - /*anyblock*/{ - - /*_.MAPOBJECT_GET__V23*/ meltfptr[22] = - melt_get_mapobjects((meltmapobjects_ptr_t)(/*_.STEPMAP__V18*/ meltfptr[17]), (meltobject_ptr_t)(/*_.SELSE__V12*/ meltfptr[11]));; + /*_.MAPOBJECT_GET__V18*/ meltfptr[17] = + melt_get_mapobjects((meltmapobjects_ptr_t)(/*_.STEPMAP__V15*/ meltfptr[14]), (meltobject_ptr_t)(/*_.STHEN__V11*/ meltfptr[10]));; /*^compute*/ - /*_.ELSENAME__V22*/ meltfptr[20] = /*_.MAPOBJECT_GET__V23*/ meltfptr[22];; + /*_.THENNAME__V17*/ meltfptr[16] = /*_.MAPOBJECT_GET__V18*/ meltfptr[17];; /*epilog*/ - MELT_LOCATION("warmelt-normatch.melt:3485:/ clear"); - /*clear*/ /*_.MAPOBJECT_GET__V23*/ meltfptr[22] = 0 ;} + MELT_LOCATION("warmelt-normatch.melt:3813:/ clear"); + /*clear*/ /*_.MAPOBJECT_GET__V18*/ meltfptr[17] = 0 ;} ; } else {/*^cond.else*/ - /*_.ELSENAME__V22*/ meltfptr[20] = NULL;; + /*_.THENNAME__V17*/ meltfptr[16] = NULL;; } ; /*^compute*/ @@ -6620,394 +11608,574 @@ lab_endgetargs:; (melt_obj_hash((melt_ptr_t)(/*_.STEP__V2*/ meltfptr[1])));; /*^compute*/ - /*_.DIS__V24*/ meltfptr[22] = + /*_.DIS__V19*/ meltfptr[17] = (melt_discr((melt_ptr_t)(/*_.STEP__V2*/ meltfptr[1])));; - MELT_LOCATION("warmelt-normatch.melt:3488:/ cond"); - /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.DIS__V24*/ meltfptr[22]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[3])))) /*then*/ { + MELT_LOCATION("warmelt-normatch.melt:3816:/ cond"); + /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.DIS__V19*/ meltfptr[17]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[3])))) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.DIS__V24*/ meltfptr[22]), 1, "NAMED_NAME");/*_.CLANAM__V25*/ meltfptr[24] = slot; }; + melt_object_get_field(slot,(melt_ptr_t)(/*_.DIS__V19*/ meltfptr[17]), 1, "NAMED_NAME");/*_.CLANAM__V20*/ meltfptr[19] = slot; }; ; } else {/*^cond.else*/ - /*_.CLANAM__V25*/ meltfptr[24] = NULL;; + /*_.CLANAM__V20*/ meltfptr[19] = NULL;; } ; { - MELT_LOCATION("warmelt-normatch.melt:3490:/ locexp"); - meltgc_add_out((melt_ptr_t)(/*_.NODEBUF__V15*/ meltfptr[14]), ( ""));} + MELT_LOCATION("warmelt-normatch.melt:3818:/ locexp"); + meltgc_add_out((melt_ptr_t)(/*_.NODEBUF__V12*/ meltfptr[11]), ( ""));} ; { - MELT_LOCATION("warmelt-normatch.melt:3493:/ locexp"); + MELT_LOCATION("warmelt-normatch.melt:3821:/ locexp"); /* OUTCLANAM__5 */ - meltgc_add_out ((melt_ptr_t) /*_.NODEBUF__V15*/ meltfptr[14], - melt_string_str ((melt_ptr_t) /*_.CLANAM__V25*/ meltfptr[24]) +6) ; + meltgc_add_out ((melt_ptr_t) /*_.NODEBUF__V12*/ meltfptr[11], + melt_string_str ((melt_ptr_t) /*_.CLANAM__V20*/ meltfptr[19]) +6) ; ;} ; { - MELT_LOCATION("warmelt-normatch.melt:3497:/ locexp"); - meltgc_add_out((melt_ptr_t)(/*_.NODEBUF__V15*/ meltfptr[14]), ( ""));} + MELT_LOCATION("warmelt-normatch.melt:3825:/ locexp"); + meltgc_add_out((melt_ptr_t)(/*_.NODEBUF__V12*/ meltfptr[11]), ( ""));} ; { - MELT_LOCATION("warmelt-normatch.melt:3498:/ locexp"); - meltgc_add_out((melt_ptr_t)(/*_.NODEBUF__V15*/ meltfptr[14]), ( ""));} + MELT_LOCATION("warmelt-normatch.melt:3826:/ locexp"); + meltgc_add_out((melt_ptr_t)(/*_.NODEBUF__V12*/ meltfptr[11]), ( ""));} ; { - MELT_LOCATION("warmelt-normatch.melt:3499:/ locexp"); + MELT_LOCATION("warmelt-normatch.melt:3827:/ locexp"); /*add2sbufshortmixloc*/ if (melt_magic_discr((melt_ptr_t)(/*_.LOCA__V10*/ meltfptr[8])) == OBMAG_MIXLOC) { location_t loc = melt_location_mixloc((melt_ptr_t)/*_.LOCA__V10*/ meltfptr[8]); - meltgc_strbuf_printf((melt_ptr_t)(/*_.NODEBUF__V15*/ meltfptr[14]), "{%s:%d:%d}", + meltgc_strbuf_printf((melt_ptr_t)(/*_.NODEBUF__V12*/ meltfptr[11]), "{%s:%d:%d}", lbasename(LOCATION_FILE (loc)), LOCATION_LINE (loc), LOCATION_COLUMN (loc)); } /*end add2sbufshortmixloc*/;} ; { - MELT_LOCATION("warmelt-normatch.melt:3500:/ locexp"); - meltgc_add_out((melt_ptr_t)(/*_.NODEBUF__V15*/ meltfptr[14]), ( ""));} - ; - - { - MELT_LOCATION("warmelt-normatch.melt:3501:/ locexp"); - meltgc_out_add_indent((melt_ptr_t)(/*_.NODEBUF__V15*/ meltfptr[14]), (0), 0);;} + MELT_LOCATION("warmelt-normatch.melt:3828:/ locexp"); + meltgc_add_out((melt_ptr_t)(/*_.NODEBUF__V12*/ meltfptr[11]), ( ""));} ; { - MELT_LOCATION("warmelt-normatch.melt:3502:/ locexp"); - meltgc_add_out((melt_ptr_t)(/*_.NODEBUF__V15*/ meltfptr[14]), ( ""));} + MELT_LOCATION("warmelt-normatch.melt:3829:/ locexp"); + meltgc_out_add_indent((melt_ptr_t)(/*_.NODEBUF__V12*/ meltfptr[11]), (0), 0);;} ; - MELT_LOCATION("warmelt-normatch.melt:3503:/ cond"); - /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.SMATCHER__V13*/ meltfptr[12]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[3])))) /*then*/ { + MELT_LOCATION("warmelt-normatch.melt:3830:/ cond"); + /*cond*/ if (/*_.THENNAME__V17*/ meltfptr[16]) /*then*/ { /*^cond.then*/ - /*^getslot*/ - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.SMATCHER__V13*/ meltfptr[12]), 1, "NAMED_NAME");/*_.NAMED_NAME__V26*/ meltfptr[25] = slot; }; + /*^block*/ + /*anyblock*/{ + + + { + MELT_LOCATION("warmelt-normatch.melt:3832:/ locexp"); + meltgc_out_add_indent((melt_ptr_t)(/*_.EDGEBUF__V13*/ meltfptr[12]), (0), 0);;} + ; + + { + MELT_LOCATION("warmelt-normatch.melt:3833:/ locexp"); + meltgc_add_out((melt_ptr_t)(/*_.EDGEBUF__V13*/ meltfptr[12]), melt_string_str((melt_ptr_t)(/*_.STEPNAME__V16*/ meltfptr[15])));} + ; + + { + MELT_LOCATION("warmelt-normatch.melt:3834:/ locexp"); + meltgc_add_out((melt_ptr_t)(/*_.EDGEBUF__V13*/ meltfptr[12]), ( " /*then*/ -> "));} + ; + + { + MELT_LOCATION("warmelt-normatch.melt:3835:/ locexp"); + meltgc_add_out((melt_ptr_t)(/*_.EDGEBUF__V13*/ meltfptr[12]), melt_string_str((melt_ptr_t)(/*_.THENNAME__V17*/ meltfptr[16])));} + ; + + { + MELT_LOCATION("warmelt-normatch.melt:3836:/ locexp"); + meltgc_add_out((melt_ptr_t)(/*_.EDGEBUF__V13*/ meltfptr[12]), ( " [ arrowhead=normal, color=green ];"));} + ; + MELT_LOCATION("warmelt-normatch.melt:3831:/ quasiblock"); + + + /*epilog*/ + } ; - } else {/*^cond.else*/ - - /*_.NAMED_NAME__V26*/ meltfptr[25] = NULL;; - } + } /*noelse*/ ; - { - MELT_LOCATION("warmelt-normatch.melt:3503:/ locexp"); - meltgc_add_out((melt_ptr_t)(/*_.NODEBUF__V15*/ meltfptr[14]), melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V26*/ meltfptr[25])));} - ; + MELT_LOCATION("warmelt-normatch.melt:3806:/ clear"); + /*clear*/ /*_.LOCA__V10*/ meltfptr[8] = 0 ; + /*^clear*/ + /*clear*/ /*_.STHEN__V11*/ meltfptr[10] = 0 ; + /*^clear*/ + /*clear*/ /*_.NODEBUF__V12*/ meltfptr[11] = 0 ; + /*^clear*/ + /*clear*/ /*_.EDGEBUF__V13*/ meltfptr[12] = 0 ; + /*^clear*/ + /*clear*/ /*_.DATAMAP__V14*/ meltfptr[13] = 0 ; + /*^clear*/ + /*clear*/ /*_.STEPMAP__V15*/ meltfptr[14] = 0 ; + /*^clear*/ + /*clear*/ /*_.STEPNAME__V16*/ meltfptr[15] = 0 ; + /*^clear*/ + /*clear*/ /*_.THENNAME__V17*/ meltfptr[16] = 0 ; + /*^clear*/ + /*clear*/ /*_#STEPHASH__L4*/ meltfnum[0] = 0 ; + /*^clear*/ + /*clear*/ /*_.DIS__V19*/ meltfptr[17] = 0 ; + /*^clear*/ + /*clear*/ /*_.CLANAM__V20*/ meltfptr[19] = 0 ; + /*epilog*/ + + MELT_LOCATION("warmelt-normatch.melt:3802:/ clear"); + /*clear*/ /*_.IFCPP___V4*/ meltfptr[3] = 0 ; + /*^clear*/ + /*clear*/ /*_.IFCPP___V6*/ meltfptr[4] = 0 ; + /*^clear*/ + /*clear*/ /*_.IFCPP___V8*/ meltfptr[6] = 0 ;} + +; + goto labend_rout; +labend_rout: +melt_trace_end("MGALTSTEP_STEPSUCCESS", meltcallcount); melt_topframe = (struct callframe_melt_st*) meltfram__.prev; + return (melt_ptr_t)(/*noretval*/ NULL); +#undef meltcallcount +#undef meltfram__ +#undef MELTFRAM_NBVARNUM +#undef MELTFRAM_NBVARPTR +} /*end meltrout_76_warmelt_normatch_MGALTSTEP_STEPSUCCESS*/ + + + + + +melt_ptr_t MELT_MODULE_VISIBILITY +meltrout_77_warmelt_normatch_MGALTSTEP_STEPFLAGSET(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, + const char xresdescr_[], union meltparam_un *xrestab_) +{ +#if ENABLE_CHECKING + static long call_counter__; + long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; +#undef meltcallcount +#define meltcallcount thiscallcounter__ +#else +#undef meltcallcount +#define meltcallcount 0L +#endif + + struct frame_meltrout_77_warmelt_normatch_MGALTSTEP_STEPFLAGSET_st { unsigned nbvar; +#if ENABLE_CHECKING + const char* flocs; +#endif + struct meltclosure_st *clos; + struct excepth_melt_st *exh; + struct callframe_melt_st *prev; +#define MELTFRAM_NBVARPTR 24 + void* varptr[24]; +#define MELTFRAM_NBVARNUM 5 + long varnum[5]; +/*others*/ + long _spare_; } + *framptr_=0, meltframe; +#define meltfram__ meltframe + if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/ + int ix=0; + framptr_ = (void*)firstargp_; + gt_ggc_mx_melt_un (framptr_->clos); + for(ix=0; ix<24; ix++) + if (framptr_->varptr[ix]) + gt_ggc_mx_melt_un (framptr_->varptr[ix]); + return NULL; + }/*end markggc*/; + memset(&meltfram__, 0, sizeof(meltfram__)); + meltfram__.nbvar = 24; + meltfram__.clos = closp_; + meltfram__.prev = (struct callframe_melt_st *) melt_topframe; + melt_topframe = (struct callframe_melt_st *) &meltfram__; +melt_trace_start("MGALTSTEP_STEPFLAGSET", meltcallcount); +/*getargs*/ + + /*getarg#0*/ + MELT_LOCATION("warmelt-normatch.melt:3843:/ getarg"); + /*_.STEP__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; + + /*getarg#1*/ + /*^getarg*/ + if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; + /*_.MG__V3*/ meltfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; + gcc_assert(melt_discr((melt_ptr_t)(/*_.MG__V3*/ meltfptr[2])) != NULL); - { - MELT_LOCATION("warmelt-normatch.melt:3504:/ locexp"); - meltgc_add_out((melt_ptr_t)(/*_.NODEBUF__V15*/ meltfptr[14]), ( ""));} ; + goto lab_endgetargs; +lab_endgetargs:; +/*body*/ +/*^block*/ +/*anyblock*/{ - { - MELT_LOCATION("warmelt-normatch.melt:3505:/ locexp"); - meltgc_out_add_indent((melt_ptr_t)(/*_.NODEBUF__V15*/ meltfptr[14]), (0), 0);;} - ; - /*citerblock FOREACH_IN_MULTIPLE*/ { - /* start cit1__EACHTUP: */ - long cit1__EACHTUP_ln = melt_multiple_length((melt_ptr_t)/*_.SOUTS__V14*/ meltfptr[13]); - for (/*_#OUTIX__L5*/ meltfnum[4] = 0; - (/*_#OUTIX__L5*/ meltfnum[4] >= 0) && (/*_#OUTIX__L5*/ meltfnum[4] < cit1__EACHTUP_ln); - /*_#OUTIX__L5*/ meltfnum[4]++) { - /*_.CUROUT__V27*/ meltfptr[26] = melt_multiple_nth((melt_ptr_t)(/*_.SOUTS__V14*/ meltfptr[13]), /*_#OUTIX__L5*/ meltfnum[4]); - - - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normatch.melt:3509:/ cppif.then"); - /*^block*/ - /*anyblock*/{ - - /*_#THE_MELTCALLCOUNT__L6*/ meltfnum[5] = - meltcallcount;; - MELT_LOCATION("warmelt-normatch.melt:3509:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - /*^apply.arg*/ - argtab[0].bp_cstring = "mgaltstep_steptestmatcher curout"; - /*^apply.arg*/ - argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L6*/ meltfnum[5]; - /*^apply.arg*/ - argtab[2].bp_cstring = "warmelt-normatch.melt"; - /*^apply.arg*/ - argtab[3].bp_long = 3509; - /*_.DEBUG_MSG_FUN__V29*/ meltfptr[28] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.CUROUT__V27*/ meltfptr[26]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V28*/ meltfptr[27] = /*_.DEBUG_MSG_FUN__V29*/ meltfptr[28];; - /*epilog*/ - - MELT_LOCATION("warmelt-normatch.melt:3509:/ clear"); - /*clear*/ /*_#THE_MELTCALLCOUNT__L6*/ meltfnum[5] = 0 ; - /*^clear*/ - /*clear*/ /*_.DEBUG_MSG_FUN__V29*/ meltfptr[28] = 0 ;} + #if ENABLE_CHECKING + MELT_LOCATION("warmelt-normatch.melt:3844:/ cppif.then"); + /*^block*/ + /*anyblock*/{ - #else /*ENABLE_CHECKING*/ - /*^cppif.else*/ - /*_.IFCPP___V28*/ meltfptr[27] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ + /*_#THE_MELTCALLCOUNT__L1*/ meltfnum[0] = + meltcallcount;; + MELT_LOCATION("warmelt-normatch.melt:3844:/ apply"); + /*apply*/{ + union meltparam_un argtab[4]; + memset(&argtab, 0, sizeof(argtab)); + /*^apply.arg*/ + argtab[0].bp_cstring = "mgaltstep_stepflagset step"; + /*^apply.arg*/ + argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L1*/ meltfnum[0]; + /*^apply.arg*/ + argtab[2].bp_cstring = "warmelt-normatch.melt"; + /*^apply.arg*/ + argtab[3].bp_long = 3844; + /*_.DEBUG_MSG_FUN__V5*/ meltfptr[4] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.STEP__V2*/ meltfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + } ; + /*_.IFCPP___V4*/ meltfptr[3] = /*_.DEBUG_MSG_FUN__V5*/ meltfptr[4];; + /*epilog*/ + + MELT_LOCATION("warmelt-normatch.melt:3844:/ clear"); + /*clear*/ /*_#THE_MELTCALLCOUNT__L1*/ meltfnum[0] = 0 ; + /*^clear*/ + /*clear*/ /*_.DEBUG_MSG_FUN__V5*/ meltfptr[4] = 0 ;} - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normatch.melt:3510:/ cppif.then"); - /*^block*/ - /*anyblock*/{ - - /*_#IS_A__L7*/ meltfnum[5] = - melt_is_instance_of((melt_ptr_t)(/*_.CUROUT__V27*/ meltfptr[26]), (melt_ptr_t)((/*!CLASS_MATCHED_DATA*/ meltfrout->tabval[4])));; - MELT_LOCATION("warmelt-normatch.melt:3510:/ cond"); - /*cond*/ if (/*_#IS_A__L7*/ meltfnum[5]) /*then*/ { - /*^cond.then*/ - /*_.IFELSE___V31*/ meltfptr[30] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normatch.melt:3510:/ cond.else"); - - /*^block*/ - /*anyblock*/{ - - - - - { - /*^locexp*/ - melt_assert_failed(( "check curout"),( "warmelt-normatch.melt")?( "warmelt-normatch.melt"):__FILE__, - (3510)?(3510):__LINE__, __FUNCTION__); + #else /*ENABLE_CHECKING*/ + /*^cppif.else*/ + /*_.IFCPP___V4*/ meltfptr[3] = (/*nil*/NULL); + #endif /*ENABLE_CHECKING*/ + ; + + #if ENABLE_CHECKING + MELT_LOCATION("warmelt-normatch.melt:3845:/ cppif.then"); + /*^block*/ + /*anyblock*/{ + + /*_#IS_A__L2*/ meltfnum[0] = + melt_is_instance_of((melt_ptr_t)(/*_.STEP__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_MATCH_STEP_FLAG_SET*/ meltfrout->tabval[1])));; + MELT_LOCATION("warmelt-normatch.melt:3845:/ cond"); + /*cond*/ if (/*_#IS_A__L2*/ meltfnum[0]) /*then*/ { + /*^cond.then*/ + /*_.IFELSE___V7*/ meltfptr[6] = (/*nil*/NULL);; + } else {MELT_LOCATION("warmelt-normatch.melt:3845:/ cond.else"); + + /*^block*/ + /*anyblock*/{ + + + + + { + /*^locexp*/ + melt_assert_failed(( "check step"),( "warmelt-normatch.melt")?( "warmelt-normatch.melt"):__FILE__, + (3845)?(3845):__LINE__, __FUNCTION__); ;} - ; - /*clear*/ /*_.IFELSE___V31*/ meltfptr[30] = 0 ; - /*epilog*/ - } ; + /*clear*/ /*_.IFELSE___V7*/ meltfptr[6] = 0 ; + /*epilog*/ } ; - /*^compute*/ - - /*_.IFCPP___V30*/ meltfptr[28] = /*_.IFELSE___V31*/ meltfptr[30];; - /*epilog*/ - - MELT_LOCATION("warmelt-normatch.melt:3510:/ clear"); - /*clear*/ /*_#IS_A__L7*/ meltfnum[5] = 0 ; - /*^clear*/ - /*clear*/ /*_.IFELSE___V31*/ meltfptr[30] = 0 ;} - - #else /*ENABLE_CHECKING*/ - /*^cppif.else*/ - /*_.IFCPP___V30*/ meltfptr[28] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - { - MELT_LOCATION("warmelt-normatch.melt:3511:/ locexp"); - meltgc_out_add_indent((melt_ptr_t)(/*_.EDGEBUF__V16*/ meltfptr[15]), (0), 0);;} - ; - - { - MELT_LOCATION("warmelt-normatch.melt:3512:/ locexp"); - meltgc_add_out((melt_ptr_t)(/*_.EDGEBUF__V16*/ meltfptr[15]), melt_string_str((melt_ptr_t)(/*_.STEPNAME__V19*/ meltfptr[18])));} - ; - - { - MELT_LOCATION("warmelt-normatch.melt:3513:/ locexp"); - meltgc_add_out((melt_ptr_t)(/*_.EDGEBUF__V16*/ meltfptr[15]), ( " /*matchstep*/ -> /*data*/ "));} - ; - /*_.MAPOBJECT_GET__V32*/ meltfptr[30] = - melt_get_mapobjects((meltmapobjects_ptr_t)(/*_.DATAMAP__V17*/ meltfptr[16]), (meltobject_ptr_t)(/*_.CUROUT__V27*/ meltfptr[26]));; - - { - MELT_LOCATION("warmelt-normatch.melt:3514:/ locexp"); - meltgc_add_out((melt_ptr_t)(/*_.EDGEBUF__V16*/ meltfptr[15]), melt_string_str((melt_ptr_t)(/*_.MAPOBJECT_GET__V32*/ meltfptr[30])));} - ; - - { - MELT_LOCATION("warmelt-normatch.melt:3515:/ locexp"); - meltgc_add_out((melt_ptr_t)(/*_.EDGEBUF__V16*/ meltfptr[15]), ( " [ arrowhead=open, "));} - ; - MELT_LOCATION("warmelt-normatch.melt:3516:/ quasiblock"); - - - /*^cond*/ - /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.SMATCHER__V13*/ meltfptr[12]), (melt_ptr_t)((/*!CLASS_ANY_MATCHER*/ meltfrout->tabval[5])))) /*then*/ { - /*^cond.then*/ - /*^getslot*/ - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.SMATCHER__V13*/ meltfptr[12]), 4, "AMATCH_OUT");/*_.AMATCH_OUT__V33*/ meltfptr[32] = slot; }; + } ; - } else {/*^cond.else*/ - - /*_.AMATCH_OUT__V33*/ meltfptr[32] = NULL;; - } - ; - /*^compute*/ + /*^compute*/ - /*_.OUTBIND__V34*/ meltfptr[33] = - (melt_multiple_nth((melt_ptr_t)(/*_.AMATCH_OUT__V33*/ meltfptr[32]), (/*_#OUTIX__L5*/ meltfnum[4])));; - MELT_LOCATION("warmelt-normatch.melt:3517:/ cond"); - /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.OUTBIND__V34*/ meltfptr[33]), (melt_ptr_t)((/*!CLASS_ANY_BINDING*/ meltfrout->tabval[6])))) /*then*/ { - /*^cond.then*/ - /*^getslot*/ - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.OUTBIND__V34*/ meltfptr[33]), 0, "BINDER");/*_.OUTSYMB__V35*/ meltfptr[34] = slot; }; - ; - } else {/*^cond.else*/ + /*_.IFCPP___V6*/ meltfptr[4] = /*_.IFELSE___V7*/ meltfptr[6];; + /*epilog*/ + + MELT_LOCATION("warmelt-normatch.melt:3845:/ clear"); + /*clear*/ /*_#IS_A__L2*/ meltfnum[0] = 0 ; + /*^clear*/ + /*clear*/ /*_.IFELSE___V7*/ meltfptr[6] = 0 ;} - /*_.OUTSYMB__V35*/ meltfptr[34] = NULL;; - } + #else /*ENABLE_CHECKING*/ + /*^cppif.else*/ + /*_.IFCPP___V6*/ meltfptr[4] = (/*nil*/NULL); + #endif /*ENABLE_CHECKING*/ ; - /*^compute*/ - - /*_#IS_A__L8*/ meltfnum[5] = - melt_is_instance_of((melt_ptr_t)(/*_.OUTSYMB__V35*/ meltfptr[34]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ meltfrout->tabval[7])));; - MELT_LOCATION("warmelt-normatch.melt:3519:/ cond"); - /*cond*/ if (/*_#IS_A__L8*/ meltfnum[5]) /*then*/ { - /*^cond.then*/ - /*^block*/ - /*anyblock*/{ - - - { - MELT_LOCATION("warmelt-normatch.melt:3521:/ locexp"); - meltgc_add_out((melt_ptr_t)(/*_.EDGEBUF__V16*/ meltfptr[15]), ( " label=<"));} - ; - MELT_LOCATION("warmelt-normatch.melt:3522:/ cond"); - /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.OUTSYMB__V35*/ meltfptr[34]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[3])))) /*then*/ { - /*^cond.then*/ - /*^getslot*/ - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.OUTSYMB__V35*/ meltfptr[34]), 1, "NAMED_NAME");/*_.NAMED_NAME__V36*/ meltfptr[35] = slot; }; + + #if ENABLE_CHECKING + MELT_LOCATION("warmelt-normatch.melt:3846:/ cppif.then"); + /*^block*/ + /*anyblock*/{ + + /*_#IS_A__L3*/ meltfnum[0] = + melt_is_instance_of((melt_ptr_t)(/*_.MG__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_MATCH_GRAPHIC*/ meltfrout->tabval[2])));; + MELT_LOCATION("warmelt-normatch.melt:3846:/ cond"); + /*cond*/ if (/*_#IS_A__L3*/ meltfnum[0]) /*then*/ { + /*^cond.then*/ + /*_.IFELSE___V9*/ meltfptr[8] = (/*nil*/NULL);; + } else {MELT_LOCATION("warmelt-normatch.melt:3846:/ cond.else"); + + /*^block*/ + /*anyblock*/{ + + + + + { + /*^locexp*/ + melt_assert_failed(( "check mg"),( "warmelt-normatch.melt")?( "warmelt-normatch.melt"):__FILE__, + (3846)?(3846):__LINE__, __FUNCTION__); +;} ; - } else {/*^cond.else*/ - - /*_.NAMED_NAME__V36*/ meltfptr[35] = NULL;; + /*clear*/ /*_.IFELSE___V9*/ meltfptr[8] = 0 ; + /*epilog*/ } ; - - { - MELT_LOCATION("warmelt-normatch.melt:3522:/ locexp"); - meltgc_add_out((melt_ptr_t)(/*_.EDGEBUF__V16*/ meltfptr[15]), melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V36*/ meltfptr[35])));} - ; - - { - MELT_LOCATION("warmelt-normatch.melt:3523:/ locexp"); - meltgc_add_out((melt_ptr_t)(/*_.EDGEBUF__V16*/ meltfptr[15]), ( ">, "));} - ; - MELT_LOCATION("warmelt-normatch.melt:3520:/ quasiblock"); - - - /*epilog*/ - - MELT_LOCATION("warmelt-normatch.melt:3519:/ clear"); - /*clear*/ /*_.NAMED_NAME__V36*/ meltfptr[35] = 0 ;} + } ; - } /*noelse*/ - ; - - MELT_LOCATION("warmelt-normatch.melt:3516:/ clear"); - /*clear*/ /*_.AMATCH_OUT__V33*/ meltfptr[32] = 0 ; - /*^clear*/ - /*clear*/ /*_.OUTBIND__V34*/ meltfptr[33] = 0 ; - /*^clear*/ - /*clear*/ /*_.OUTSYMB__V35*/ meltfptr[34] = 0 ; - /*^clear*/ - /*clear*/ /*_#IS_A__L8*/ meltfnum[5] = 0 ; + /*^compute*/ + + /*_.IFCPP___V8*/ meltfptr[6] = /*_.IFELSE___V9*/ meltfptr[8];; + /*epilog*/ + + MELT_LOCATION("warmelt-normatch.melt:3846:/ clear"); + /*clear*/ /*_#IS_A__L3*/ meltfnum[0] = 0 ; + /*^clear*/ + /*clear*/ /*_.IFELSE___V9*/ meltfptr[8] = 0 ;} - { - MELT_LOCATION("warmelt-normatch.melt:3524:/ locexp"); - meltgc_add_out((melt_ptr_t)(/*_.EDGEBUF__V16*/ meltfptr[15]), ( " color=violet, style=dotted ];"));} + #else /*ENABLE_CHECKING*/ + /*^cppif.else*/ + /*_.IFCPP___V8*/ meltfptr[6] = (/*nil*/NULL); + #endif /*ENABLE_CHECKING*/ ; - if (/*_#OUTIX__L5*/ meltfnum[4]<0) break; - } /* end cit1__EACHTUP */ + MELT_LOCATION("warmelt-normatch.melt:3847:/ quasiblock"); - /*citerepilog*/ - - MELT_LOCATION("warmelt-normatch.melt:3506:/ clear"); - /*clear*/ /*_.CUROUT__V27*/ meltfptr[26] = 0 ; - /*^clear*/ - /*clear*/ /*_#OUTIX__L5*/ meltfnum[4] = 0 ; - /*^clear*/ - /*clear*/ /*_.IFCPP___V28*/ meltfptr[27] = 0 ; - /*^clear*/ - /*clear*/ /*_.IFCPP___V30*/ meltfptr[28] = 0 ; - /*^clear*/ - /*clear*/ /*_.MAPOBJECT_GET__V32*/ meltfptr[30] = 0 ;} /*endciterblock FOREACH_IN_MULTIPLE*/ + + /*^getslot*/ + { melt_ptr_t slot=0; + melt_object_get_field(slot,(melt_ptr_t)(/*_.STEP__V2*/ meltfptr[1]), 1, "LOCA_LOCATION");/*_.LOCA__V10*/ meltfptr[8] = slot; }; ; - MELT_LOCATION("warmelt-normatch.melt:3526:/ cond"); - /*cond*/ if (/*_.THENNAME__V20*/ meltfptr[19]) /*then*/ { + MELT_LOCATION("warmelt-normatch.melt:3848:/ getslot"); + { melt_ptr_t slot=0; + melt_object_get_field(slot,(melt_ptr_t)(/*_.STEP__V2*/ meltfptr[1]), 3, "MSTEP_THEN");/*_.STHEN__V11*/ meltfptr[10] = slot; }; + ; + MELT_LOCATION("warmelt-normatch.melt:3849:/ getslot"); + { melt_ptr_t slot=0; + melt_object_get_field(slot,(melt_ptr_t)(/*_.STEP__V2*/ meltfptr[1]), 4, "MSTEP_FLAG");/*_.SFLAG__V12*/ meltfptr[11] = slot; }; + ; + MELT_LOCATION("warmelt-normatch.melt:3850:/ getslot"); + { melt_ptr_t slot=0; + melt_object_get_field(slot,(melt_ptr_t)(/*_.MG__V3*/ meltfptr[2]), 2, "MCHGX_NODOUT");/*_.NODEBUF__V13*/ meltfptr[12] = slot; }; + ; + MELT_LOCATION("warmelt-normatch.melt:3851:/ getslot"); + { melt_ptr_t slot=0; + melt_object_get_field(slot,(melt_ptr_t)(/*_.MG__V3*/ meltfptr[2]), 3, "MCHGX_EDGOUT");/*_.EDGEBUF__V14*/ meltfptr[13] = slot; }; + ; + MELT_LOCATION("warmelt-normatch.melt:3852:/ getslot"); + { melt_ptr_t slot=0; + melt_object_get_field(slot,(melt_ptr_t)(/*_.MG__V3*/ meltfptr[2]), 4, "MCHGX_DATANAMEMAP");/*_.DATAMAP__V15*/ meltfptr[14] = slot; }; + ; + MELT_LOCATION("warmelt-normatch.melt:3853:/ getslot"); + { melt_ptr_t slot=0; + melt_object_get_field(slot,(melt_ptr_t)(/*_.MG__V3*/ meltfptr[2]), 5, "MCHGX_STEPNAMEMAP");/*_.STEPMAP__V16*/ meltfptr[15] = slot; }; + ; + /*_.STEPNAME__V17*/ meltfptr[16] = + melt_get_mapobjects((meltmapobjects_ptr_t)(/*_.STEPMAP__V16*/ meltfptr[15]), (meltobject_ptr_t)(/*_.STEP__V2*/ meltfptr[1]));; + MELT_LOCATION("warmelt-normatch.melt:3855:/ cond"); + /*cond*/ if (/*_.STHEN__V11*/ meltfptr[10]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/{ - - { - MELT_LOCATION("warmelt-normatch.melt:3528:/ locexp"); - meltgc_out_add_indent((melt_ptr_t)(/*_.EDGEBUF__V16*/ meltfptr[15]), (0), 0);;} - ; - - { - MELT_LOCATION("warmelt-normatch.melt:3529:/ locexp"); - meltgc_add_out((melt_ptr_t)(/*_.EDGEBUF__V16*/ meltfptr[15]), melt_string_str((melt_ptr_t)(/*_.STEPNAME__V19*/ meltfptr[18])));} - ; - - { - MELT_LOCATION("warmelt-normatch.melt:3530:/ locexp"); - meltgc_add_out((melt_ptr_t)(/*_.EDGEBUF__V16*/ meltfptr[15]), ( " /*then*/ -> "));} - ; - - { - MELT_LOCATION("warmelt-normatch.melt:3531:/ locexp"); - meltgc_add_out((melt_ptr_t)(/*_.EDGEBUF__V16*/ meltfptr[15]), melt_string_str((melt_ptr_t)(/*_.THENNAME__V20*/ meltfptr[19])));} - ; - - { - MELT_LOCATION("warmelt-normatch.melt:3532:/ locexp"); - meltgc_add_out((melt_ptr_t)(/*_.EDGEBUF__V16*/ meltfptr[15]), ( " [ arrowhead=normal, color=green ];"));} - ; - MELT_LOCATION("warmelt-normatch.melt:3527:/ quasiblock"); - - + /*_.MAPOBJECT_GET__V19*/ meltfptr[18] = + melt_get_mapobjects((meltmapobjects_ptr_t)(/*_.STEPMAP__V16*/ meltfptr[15]), (meltobject_ptr_t)(/*_.STHEN__V11*/ meltfptr[10]));; + /*^compute*/ + + /*_.THENNAME__V18*/ meltfptr[17] = /*_.MAPOBJECT_GET__V19*/ meltfptr[18];; /*epilog*/ - } + + MELT_LOCATION("warmelt-normatch.melt:3855:/ clear"); + /*clear*/ /*_.MAPOBJECT_GET__V19*/ meltfptr[18] = 0 ;} ; - } /*noelse*/ + } else {/*^cond.else*/ + + /*_.THENNAME__V18*/ meltfptr[17] = NULL;; + } ; - MELT_LOCATION("warmelt-normatch.melt:3534:/ cond"); - /*cond*/ if (/*_.ELSENAME__V22*/ meltfptr[20]) /*then*/ { + /*^compute*/ + + /*_#STEPHASH__L4*/ meltfnum[0] = + (melt_obj_hash((melt_ptr_t)(/*_.STEP__V2*/ meltfptr[1])));; + /*^compute*/ + + /*_.DIS__V20*/ meltfptr[18] = + (melt_discr((melt_ptr_t)(/*_.STEP__V2*/ meltfptr[1])));; + MELT_LOCATION("warmelt-normatch.melt:3858:/ cond"); + /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.DIS__V20*/ meltfptr[18]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[3])))) /*then*/ { + /*^cond.then*/ + /*^getslot*/ + { melt_ptr_t slot=0; + melt_object_get_field(slot,(melt_ptr_t)(/*_.DIS__V20*/ meltfptr[18]), 1, "NAMED_NAME");/*_.CLANAM__V21*/ meltfptr[20] = slot; }; + ; + } else {/*^cond.else*/ + + /*_.CLANAM__V21*/ meltfptr[20] = NULL;; + } + ; + MELT_LOCATION("warmelt-normatch.melt:3859:/ cond"); + /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.SFLAG__V12*/ meltfptr[11]), (melt_ptr_t)((/*!CLASS_MATCH_FLAG*/ meltfrout->tabval[4])))) /*then*/ { + /*^cond.then*/ + /*^getslot*/ + { melt_ptr_t slot=0; + melt_object_get_field(slot,(melt_ptr_t)(/*_.SFLAG__V12*/ meltfptr[11]), 3, "MFLAG_RANK");/*_.FLAGRANK__V22*/ meltfptr[21] = slot; }; + ; + } else {/*^cond.else*/ + + /*_.FLAGRANK__V22*/ meltfptr[21] = NULL;; + } + ; + MELT_LOCATION("warmelt-normatch.melt:3860:/ cond"); + /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.SFLAG__V12*/ meltfptr[11]), (melt_ptr_t)((/*!CLASS_MATCH_FLAG*/ meltfrout->tabval[4])))) /*then*/ { + /*^cond.then*/ + /*^getslot*/ + { melt_ptr_t slot=0; + melt_object_get_field(slot,(melt_ptr_t)(/*_.SFLAG__V12*/ meltfptr[11]), 4, "MFLAG_STRING");/*_.FLAGSTRING__V23*/ meltfptr[22] = slot; }; + ; + } else {/*^cond.else*/ + + /*_.FLAGSTRING__V23*/ meltfptr[22] = NULL;; + } + ; + MELT_LOCATION("warmelt-normatch.melt:3861:/ cond"); + /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.SFLAG__V12*/ meltfptr[11]), (melt_ptr_t)((/*!CLASS_LOCATED*/ meltfrout->tabval[5])))) /*then*/ { + /*^cond.then*/ + /*^getslot*/ + { melt_ptr_t slot=0; + melt_object_get_field(slot,(melt_ptr_t)(/*_.SFLAG__V12*/ meltfptr[11]), 1, "LOCA_LOCATION");/*_.FLAGLOC__V24*/ meltfptr[23] = slot; }; + ; + } else {/*^cond.else*/ + + /*_.FLAGLOC__V24*/ meltfptr[23] = NULL;; + } + ; + + { + MELT_LOCATION("warmelt-normatch.melt:3863:/ locexp"); + meltgc_add_out((melt_ptr_t)(/*_.NODEBUF__V13*/ meltfptr[12]), ( ""));} + ; + + { + MELT_LOCATION("warmelt-normatch.melt:3866:/ locexp"); + /* OUTCLANAM__6 */ + meltgc_add_out ((melt_ptr_t) /*_.NODEBUF__V13*/ meltfptr[12], + melt_string_str ((melt_ptr_t) /*_.CLANAM__V21*/ meltfptr[20]) +6) ; + ;} + ; + + { + MELT_LOCATION("warmelt-normatch.melt:3870:/ locexp"); + meltgc_add_out((melt_ptr_t)(/*_.NODEBUF__V13*/ meltfptr[12]), ( ""));} + ; + + { + MELT_LOCATION("warmelt-normatch.melt:3871:/ locexp"); + meltgc_add_out((melt_ptr_t)(/*_.NODEBUF__V13*/ meltfptr[12]), ( ""));} + ; + + { + MELT_LOCATION("warmelt-normatch.melt:3872:/ locexp"); + /*add2sbufshortmixloc*/ if (melt_magic_discr((melt_ptr_t)(/*_.LOCA__V10*/ meltfptr[8])) == OBMAG_MIXLOC) { + location_t loc = melt_location_mixloc((melt_ptr_t)/*_.LOCA__V10*/ meltfptr[8]); + meltgc_strbuf_printf((melt_ptr_t)(/*_.NODEBUF__V13*/ meltfptr[12]), "{%s:%d:%d}", + lbasename(LOCATION_FILE (loc)), + LOCATION_LINE (loc), LOCATION_COLUMN (loc)); + } /*end add2sbufshortmixloc*/;} + ; + + { + MELT_LOCATION("warmelt-normatch.melt:3873:/ locexp"); + meltgc_add_out((melt_ptr_t)(/*_.NODEBUF__V13*/ meltfptr[12]), ( ""));} + ; + + { + MELT_LOCATION("warmelt-normatch.melt:3874:/ locexp"); + meltgc_out_add_indent((melt_ptr_t)(/*_.NODEBUF__V13*/ meltfptr[12]), (0), 0);;} + ; + + { + MELT_LOCATION("warmelt-normatch.melt:3875:/ locexp"); + meltgc_add_out((melt_ptr_t)(/*_.NODEBUF__V13*/ meltfptr[12]), ( "flag#"));} + ; + /*_#GET_INT__L5*/ meltfnum[4] = + (melt_get_int((melt_ptr_t)(/*_.FLAGRANK__V22*/ meltfptr[21])));; + + { + MELT_LOCATION("warmelt-normatch.melt:3876:/ locexp"); + meltgc_add_out_dec((melt_ptr_t)(/*_.NODEBUF__V13*/ meltfptr[12]), (/*_#GET_INT__L5*/ meltfnum[4]));} + ; + + { + MELT_LOCATION("warmelt-normatch.melt:3877:/ locexp"); + meltgc_add_out((melt_ptr_t)(/*_.NODEBUF__V13*/ meltfptr[12]), ( " "));} + ; + + { + MELT_LOCATION("warmelt-normatch.melt:3878:/ locexp"); + meltgc_add_out((melt_ptr_t)(/*_.NODEBUF__V13*/ meltfptr[12]), melt_string_str((melt_ptr_t)(/*_.FLAGSTRING__V23*/ meltfptr[22])));} + ; + + { + MELT_LOCATION("warmelt-normatch.melt:3879:/ locexp"); + meltgc_add_out((melt_ptr_t)(/*_.NODEBUF__V13*/ meltfptr[12]), ( ""));} + ; + + { + MELT_LOCATION("warmelt-normatch.melt:3880:/ locexp"); + /*add2sbufshortmixloc*/ if (melt_magic_discr((melt_ptr_t)(/*_.LOCA__V10*/ meltfptr[8])) == OBMAG_MIXLOC) { + location_t loc = melt_location_mixloc((melt_ptr_t)/*_.LOCA__V10*/ meltfptr[8]); + meltgc_strbuf_printf((melt_ptr_t)(/*_.NODEBUF__V13*/ meltfptr[12]), "{%s:%d:%d}", + lbasename(LOCATION_FILE (loc)), + LOCATION_LINE (loc), LOCATION_COLUMN (loc)); + } /*end add2sbufshortmixloc*/;} + ; + + { + MELT_LOCATION("warmelt-normatch.melt:3881:/ locexp"); + meltgc_add_strbuf((melt_ptr_t)(/*_.NODEBUF__V13*/ meltfptr[12]), ( ""));} + ; + + { + MELT_LOCATION("warmelt-normatch.melt:3882:/ locexp"); + meltgc_out_add_indent((melt_ptr_t)(/*_.NODEBUF__V13*/ meltfptr[12]), (0), 0);;} + ; + MELT_LOCATION("warmelt-normatch.melt:3883:/ cond"); + /*cond*/ if (/*_.THENNAME__V18*/ meltfptr[17]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/{ { - MELT_LOCATION("warmelt-normatch.melt:3536:/ locexp"); - meltgc_out_add_indent((melt_ptr_t)(/*_.EDGEBUF__V16*/ meltfptr[15]), (0), 0);;} + MELT_LOCATION("warmelt-normatch.melt:3885:/ locexp"); + meltgc_out_add_indent((melt_ptr_t)(/*_.EDGEBUF__V14*/ meltfptr[13]), (0), 0);;} ; { - MELT_LOCATION("warmelt-normatch.melt:3537:/ locexp"); - meltgc_add_out((melt_ptr_t)(/*_.EDGEBUF__V16*/ meltfptr[15]), melt_string_str((melt_ptr_t)(/*_.STEPNAME__V19*/ meltfptr[18])));} + MELT_LOCATION("warmelt-normatch.melt:3886:/ locexp"); + meltgc_add_out((melt_ptr_t)(/*_.EDGEBUF__V14*/ meltfptr[13]), melt_string_str((melt_ptr_t)(/*_.STEPNAME__V17*/ meltfptr[16])));} ; { - MELT_LOCATION("warmelt-normatch.melt:3538:/ locexp"); - meltgc_add_out((melt_ptr_t)(/*_.EDGEBUF__V16*/ meltfptr[15]), ( " /*else*/ -> "));} + MELT_LOCATION("warmelt-normatch.melt:3887:/ locexp"); + meltgc_add_out((melt_ptr_t)(/*_.EDGEBUF__V14*/ meltfptr[13]), ( " /*then*/ -> "));} ; { - MELT_LOCATION("warmelt-normatch.melt:3539:/ locexp"); - meltgc_add_out((melt_ptr_t)(/*_.EDGEBUF__V16*/ meltfptr[15]), melt_string_str((melt_ptr_t)(/*_.ELSENAME__V22*/ meltfptr[20])));} + MELT_LOCATION("warmelt-normatch.melt:3888:/ locexp"); + meltgc_add_out((melt_ptr_t)(/*_.EDGEBUF__V14*/ meltfptr[13]), melt_string_str((melt_ptr_t)(/*_.THENNAME__V18*/ meltfptr[17])));} ; { - MELT_LOCATION("warmelt-normatch.melt:3540:/ locexp"); - meltgc_add_out((melt_ptr_t)(/*_.EDGEBUF__V16*/ meltfptr[15]), ( " [ arrowhead=diamond, color=red ];"));} + MELT_LOCATION("warmelt-normatch.melt:3889:/ locexp"); + meltgc_add_out((melt_ptr_t)(/*_.EDGEBUF__V14*/ meltfptr[13]), ( " [ arrowhead=normal, color=green ];"));} ; - MELT_LOCATION("warmelt-normatch.melt:3535:/ quasiblock"); + MELT_LOCATION("warmelt-normatch.melt:3884:/ quasiblock"); /*epilog*/ @@ -7016,41 +12184,41 @@ lab_endgetargs:; } /*noelse*/ ; - MELT_LOCATION("warmelt-normatch.melt:3474:/ clear"); + MELT_LOCATION("warmelt-normatch.melt:3847:/ clear"); /*clear*/ /*_.LOCA__V10*/ meltfptr[8] = 0 ; /*^clear*/ /*clear*/ /*_.STHEN__V11*/ meltfptr[10] = 0 ; /*^clear*/ - /*clear*/ /*_.SELSE__V12*/ meltfptr[11] = 0 ; + /*clear*/ /*_.SFLAG__V12*/ meltfptr[11] = 0 ; /*^clear*/ - /*clear*/ /*_.SMATCHER__V13*/ meltfptr[12] = 0 ; + /*clear*/ /*_.NODEBUF__V13*/ meltfptr[12] = 0 ; /*^clear*/ - /*clear*/ /*_.SOUTS__V14*/ meltfptr[13] = 0 ; + /*clear*/ /*_.EDGEBUF__V14*/ meltfptr[13] = 0 ; /*^clear*/ - /*clear*/ /*_.NODEBUF__V15*/ meltfptr[14] = 0 ; + /*clear*/ /*_.DATAMAP__V15*/ meltfptr[14] = 0 ; /*^clear*/ - /*clear*/ /*_.EDGEBUF__V16*/ meltfptr[15] = 0 ; + /*clear*/ /*_.STEPMAP__V16*/ meltfptr[15] = 0 ; /*^clear*/ - /*clear*/ /*_.DATAMAP__V17*/ meltfptr[16] = 0 ; + /*clear*/ /*_.STEPNAME__V17*/ meltfptr[16] = 0 ; /*^clear*/ - /*clear*/ /*_.STEPMAP__V18*/ meltfptr[17] = 0 ; + /*clear*/ /*_.THENNAME__V18*/ meltfptr[17] = 0 ; /*^clear*/ - /*clear*/ /*_.STEPNAME__V19*/ meltfptr[18] = 0 ; + /*clear*/ /*_#STEPHASH__L4*/ meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_.THENNAME__V20*/ meltfptr[19] = 0 ; + /*clear*/ /*_.DIS__V20*/ meltfptr[18] = 0 ; /*^clear*/ - /*clear*/ /*_.ELSENAME__V22*/ meltfptr[20] = 0 ; + /*clear*/ /*_.CLANAM__V21*/ meltfptr[20] = 0 ; /*^clear*/ - /*clear*/ /*_#STEPHASH__L4*/ meltfnum[0] = 0 ; + /*clear*/ /*_.FLAGRANK__V22*/ meltfptr[21] = 0 ; /*^clear*/ - /*clear*/ /*_.DIS__V24*/ meltfptr[22] = 0 ; + /*clear*/ /*_.FLAGSTRING__V23*/ meltfptr[22] = 0 ; /*^clear*/ - /*clear*/ /*_.CLANAM__V25*/ meltfptr[24] = 0 ; + /*clear*/ /*_.FLAGLOC__V24*/ meltfptr[23] = 0 ; /*^clear*/ - /*clear*/ /*_.NAMED_NAME__V26*/ meltfptr[25] = 0 ; + /*clear*/ /*_#GET_INT__L5*/ meltfnum[4] = 0 ; /*epilog*/ - MELT_LOCATION("warmelt-normatch.melt:3470:/ clear"); + MELT_LOCATION("warmelt-normatch.melt:3843:/ clear"); /*clear*/ /*_.IFCPP___V4*/ meltfptr[3] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V6*/ meltfptr[4] = 0 ; @@ -7060,20 +12228,20 @@ lab_endgetargs:; ; goto labend_rout; labend_rout: -melt_trace_end("MGALTSTEP_STEPTESTMATCHER", meltcallcount); melt_topframe = (struct callframe_melt_st*) meltfram__.prev; +melt_trace_end("MGALTSTEP_STEPFLAGSET", meltcallcount); melt_topframe = (struct callframe_melt_st*) meltfram__.prev; return (melt_ptr_t)(/*noretval*/ NULL); #undef meltcallcount #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR -} /*end meltrout_74_warmelt_normatch_MGALTSTEP_STEPTESTMATCHER*/ +} /*end meltrout_77_warmelt_normatch_MGALTSTEP_STEPFLAGSET*/ melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_75_warmelt_normatch_MGALTSTEP_STEPSUCCESS(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, +meltrout_78_warmelt_normatch_MGALTSTEP_STEPFLAGOPER(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_) { #if ENABLE_CHECKING @@ -7086,17 +12254,17 @@ meltrout_75_warmelt_normatch_MGALTSTEP_STEPSUCCESS(meltclosure_ptr_t closp_, mel #define meltcallcount 0L #endif - struct frame_meltrout_75_warmelt_normatch_MGALTSTEP_STEPSUCCESS_st { unsigned nbvar; + struct frame_meltrout_78_warmelt_normatch_MGALTSTEP_STEPFLAGOPER_st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct meltclosure_st *clos; struct excepth_melt_st *exh; struct callframe_melt_st *prev; -#define MELTFRAM_NBVARPTR 20 - void* varptr[20]; -#define MELTFRAM_NBVARNUM 4 - long varnum[4]; +#define MELTFRAM_NBVARPTR 30 + void* varptr[30]; +#define MELTFRAM_NBVARNUM 11 + long varnum[11]; /*others*/ long _spare_; } *framptr_=0, meltframe; @@ -7105,21 +12273,21 @@ meltrout_75_warmelt_normatch_MGALTSTEP_STEPSUCCESS(meltclosure_ptr_t closp_, mel int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_melt_un (framptr_->clos); - for(ix=0; ix<20; ix++) + for(ix=0; ix<30; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_melt_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&meltfram__, 0, sizeof(meltfram__)); - meltfram__.nbvar = 20; + meltfram__.nbvar = 30; meltfram__.clos = closp_; meltfram__.prev = (struct callframe_melt_st *) melt_topframe; melt_topframe = (struct callframe_melt_st *) &meltfram__; -melt_trace_start("MGALTSTEP_STEPSUCCESS", meltcallcount); +melt_trace_start("MGALTSTEP_STEPFLAGOPER", meltcallcount); /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-normatch.melt:3547:/ getarg"); + MELT_LOCATION("warmelt-normatch.melt:3895:/ getarg"); /*_.STEP__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; /*getarg#1*/ @@ -7137,31 +12305,31 @@ lab_endgetargs:; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normatch.melt:3548:/ cppif.then"); + MELT_LOCATION("warmelt-normatch.melt:3896:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L1*/ meltfnum[0] = meltcallcount;; - MELT_LOCATION("warmelt-normatch.melt:3548:/ apply"); + MELT_LOCATION("warmelt-normatch.melt:3896:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_cstring = "mgaltstep_stepsuccess step"; + argtab[0].bp_cstring = "mgaltstep_stepflagoper step"; /*^apply.arg*/ argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L1*/ meltfnum[0]; /*^apply.arg*/ argtab[2].bp_cstring = "warmelt-normatch.melt"; /*^apply.arg*/ - argtab[3].bp_long = 3548; + argtab[3].bp_long = 3896; /*_.DEBUG_MSG_FUN__V5*/ meltfptr[4] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.STEP__V2*/ meltfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V4*/ meltfptr[3] = /*_.DEBUG_MSG_FUN__V5*/ meltfptr[4];; /*epilog*/ - MELT_LOCATION("warmelt-normatch.melt:3548:/ clear"); + MELT_LOCATION("warmelt-normatch.melt:3896:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L1*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V5*/ meltfptr[4] = 0 ;} @@ -7173,17 +12341,17 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normatch.melt:3549:/ cppif.then"); + MELT_LOCATION("warmelt-normatch.melt:3897:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L2*/ meltfnum[0] = - melt_is_instance_of((melt_ptr_t)(/*_.STEP__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_MATCH_STEP_SUCCESS*/ meltfrout->tabval[1])));; - MELT_LOCATION("warmelt-normatch.melt:3549:/ cond"); + melt_is_instance_of((melt_ptr_t)(/*_.STEP__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_MATCH_STEP_FLAG_OPERATION*/ meltfrout->tabval[1])));; + MELT_LOCATION("warmelt-normatch.melt:3897:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V7*/ meltfptr[6] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normatch.melt:3549:/ cond.else"); + } else {MELT_LOCATION("warmelt-normatch.melt:3897:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -7194,7 +12362,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check step"),( "warmelt-normatch.melt")?( "warmelt-normatch.melt"):__FILE__, - (3549)?(3549):__LINE__, __FUNCTION__); + (3897)?(3897):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V7*/ meltfptr[6] = 0 ; @@ -7208,7 +12376,7 @@ lab_endgetargs:; /*_.IFCPP___V6*/ meltfptr[4] = /*_.IFELSE___V7*/ meltfptr[6];; /*epilog*/ - MELT_LOCATION("warmelt-normatch.melt:3549:/ clear"); + MELT_LOCATION("warmelt-normatch.melt:3897:/ clear"); /*clear*/ /*_#IS_A__L2*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V7*/ meltfptr[6] = 0 ;} @@ -7220,17 +12388,17 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normatch.melt:3550:/ cppif.then"); + MELT_LOCATION("warmelt-normatch.melt:3898:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L3*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.MG__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_MATCH_GRAPHIC*/ meltfrout->tabval[2])));; - MELT_LOCATION("warmelt-normatch.melt:3550:/ cond"); + MELT_LOCATION("warmelt-normatch.melt:3898:/ cond"); /*cond*/ if (/*_#IS_A__L3*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V9*/ meltfptr[8] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normatch.melt:3550:/ cond.else"); + } else {MELT_LOCATION("warmelt-normatch.melt:3898:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -7241,7 +12409,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check mg"),( "warmelt-normatch.melt")?( "warmelt-normatch.melt"):__FILE__, - (3550)?(3550):__LINE__, __FUNCTION__); + (3898)?(3898):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V9*/ meltfptr[8] = 0 ; @@ -7255,7 +12423,7 @@ lab_endgetargs:; /*_.IFCPP___V8*/ meltfptr[6] = /*_.IFELSE___V9*/ meltfptr[8];; /*epilog*/ - MELT_LOCATION("warmelt-normatch.melt:3550:/ clear"); + MELT_LOCATION("warmelt-normatch.melt:3898:/ clear"); /*clear*/ /*_#IS_A__L3*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V9*/ meltfptr[8] = 0 ;} @@ -7265,151 +12433,431 @@ lab_endgetargs:; /*_.IFCPP___V8*/ meltfptr[6] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-normatch.melt:3551:/ quasiblock"); + MELT_LOCATION("warmelt-normatch.melt:3899:/ quasiblock"); /*^getslot*/ { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.STEP__V2*/ meltfptr[1]), 1, "LOCA_LOCATION");/*_.LOCA__V10*/ meltfptr[8] = slot; }; ; - MELT_LOCATION("warmelt-normatch.melt:3552:/ getslot"); + MELT_LOCATION("warmelt-normatch.melt:3900:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.STEP__V2*/ meltfptr[1]), 3, "MSTEP_THEN");/*_.STHEN__V11*/ meltfptr[10] = slot; }; ; - MELT_LOCATION("warmelt-normatch.melt:3553:/ getslot"); + MELT_LOCATION("warmelt-normatch.melt:3901:/ getslot"); { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.MG__V3*/ meltfptr[2]), 2, "MCHGX_NODOUT");/*_.NODEBUF__V12*/ meltfptr[11] = slot; }; + melt_object_get_field(slot,(melt_ptr_t)(/*_.STEP__V2*/ meltfptr[1]), 4, "MSTEP_FLAG");/*_.SFLAG__V12*/ meltfptr[11] = slot; }; ; - MELT_LOCATION("warmelt-normatch.melt:3554:/ getslot"); + MELT_LOCATION("warmelt-normatch.melt:3902:/ getslot"); { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.MG__V3*/ meltfptr[2]), 3, "MCHGX_EDGOUT");/*_.EDGEBUF__V13*/ meltfptr[12] = slot; }; + melt_object_get_field(slot,(melt_ptr_t)(/*_.STEP__V2*/ meltfptr[1]), 5, "MSTEP_FLAGARGS");/*_.SFLAGARGS__V13*/ meltfptr[12] = slot; }; ; - MELT_LOCATION("warmelt-normatch.melt:3555:/ getslot"); + MELT_LOCATION("warmelt-normatch.melt:3903:/ getslot"); { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.MG__V3*/ meltfptr[2]), 4, "MCHGX_DATANAMEMAP");/*_.DATAMAP__V14*/ meltfptr[13] = slot; }; + melt_object_get_field(slot,(melt_ptr_t)(/*_.MG__V3*/ meltfptr[2]), 2, "MCHGX_NODOUT");/*_.NODEBUF__V14*/ meltfptr[13] = slot; }; ; - MELT_LOCATION("warmelt-normatch.melt:3556:/ getslot"); + MELT_LOCATION("warmelt-normatch.melt:3904:/ getslot"); { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.MG__V3*/ meltfptr[2]), 5, "MCHGX_STEPNAMEMAP");/*_.STEPMAP__V15*/ meltfptr[14] = slot; }; + melt_object_get_field(slot,(melt_ptr_t)(/*_.MG__V3*/ meltfptr[2]), 3, "MCHGX_EDGOUT");/*_.EDGEBUF__V15*/ meltfptr[14] = slot; }; ; - /*_.STEPNAME__V16*/ meltfptr[15] = - melt_get_mapobjects((meltmapobjects_ptr_t)(/*_.STEPMAP__V15*/ meltfptr[14]), (meltobject_ptr_t)(/*_.STEP__V2*/ meltfptr[1]));; - MELT_LOCATION("warmelt-normatch.melt:3558:/ cond"); + MELT_LOCATION("warmelt-normatch.melt:3905:/ getslot"); + { melt_ptr_t slot=0; + melt_object_get_field(slot,(melt_ptr_t)(/*_.MG__V3*/ meltfptr[2]), 4, "MCHGX_DATANAMEMAP");/*_.DATAMAP__V16*/ meltfptr[15] = slot; }; + ; + MELT_LOCATION("warmelt-normatch.melt:3906:/ getslot"); + { melt_ptr_t slot=0; + melt_object_get_field(slot,(melt_ptr_t)(/*_.MG__V3*/ meltfptr[2]), 5, "MCHGX_STEPNAMEMAP");/*_.STEPMAP__V17*/ meltfptr[16] = slot; }; + ; + /*_.STEPNAME__V18*/ meltfptr[17] = + melt_get_mapobjects((meltmapobjects_ptr_t)(/*_.STEPMAP__V17*/ meltfptr[16]), (meltobject_ptr_t)(/*_.STEP__V2*/ meltfptr[1]));; + MELT_LOCATION("warmelt-normatch.melt:3908:/ cond"); /*cond*/ if (/*_.STHEN__V11*/ meltfptr[10]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/{ - /*_.MAPOBJECT_GET__V18*/ meltfptr[17] = - melt_get_mapobjects((meltmapobjects_ptr_t)(/*_.STEPMAP__V15*/ meltfptr[14]), (meltobject_ptr_t)(/*_.STHEN__V11*/ meltfptr[10]));; - /*^compute*/ - - /*_.THENNAME__V17*/ meltfptr[16] = /*_.MAPOBJECT_GET__V18*/ meltfptr[17];; - /*epilog*/ + /*_.MAPOBJECT_GET__V20*/ meltfptr[19] = + melt_get_mapobjects((meltmapobjects_ptr_t)(/*_.STEPMAP__V17*/ meltfptr[16]), (meltobject_ptr_t)(/*_.STHEN__V11*/ meltfptr[10]));; + /*^compute*/ + + /*_.THENNAME__V19*/ meltfptr[18] = /*_.MAPOBJECT_GET__V20*/ meltfptr[19];; + /*epilog*/ + + MELT_LOCATION("warmelt-normatch.melt:3908:/ clear"); + /*clear*/ /*_.MAPOBJECT_GET__V20*/ meltfptr[19] = 0 ;} + ; + } else {/*^cond.else*/ + + /*_.THENNAME__V19*/ meltfptr[18] = NULL;; + } + ; + /*^compute*/ + + /*_#STEPHASH__L4*/ meltfnum[0] = + (melt_obj_hash((melt_ptr_t)(/*_.STEP__V2*/ meltfptr[1])));; + /*^compute*/ + + /*_.DIS__V21*/ meltfptr[19] = + (melt_discr((melt_ptr_t)(/*_.STEP__V2*/ meltfptr[1])));; + MELT_LOCATION("warmelt-normatch.melt:3911:/ cond"); + /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.DIS__V21*/ meltfptr[19]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[3])))) /*then*/ { + /*^cond.then*/ + /*^getslot*/ + { melt_ptr_t slot=0; + melt_object_get_field(slot,(melt_ptr_t)(/*_.DIS__V21*/ meltfptr[19]), 1, "NAMED_NAME");/*_.CLANAM__V22*/ meltfptr[21] = slot; }; + ; + } else {/*^cond.else*/ + + /*_.CLANAM__V22*/ meltfptr[21] = NULL;; + } + ; + MELT_LOCATION("warmelt-normatch.melt:3912:/ cond"); + /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.SFLAG__V12*/ meltfptr[11]), (melt_ptr_t)((/*!CLASS_MATCH_FLAG*/ meltfrout->tabval[4])))) /*then*/ { + /*^cond.then*/ + /*^getslot*/ + { melt_ptr_t slot=0; + melt_object_get_field(slot,(melt_ptr_t)(/*_.SFLAG__V12*/ meltfptr[11]), 3, "MFLAG_RANK");/*_.FLAGRANK__V23*/ meltfptr[22] = slot; }; + ; + } else {/*^cond.else*/ + + /*_.FLAGRANK__V23*/ meltfptr[22] = NULL;; + } + ; + MELT_LOCATION("warmelt-normatch.melt:3913:/ cond"); + /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.SFLAG__V12*/ meltfptr[11]), (melt_ptr_t)((/*!CLASS_LOCATED*/ meltfrout->tabval[5])))) /*then*/ { + /*^cond.then*/ + /*^getslot*/ + { melt_ptr_t slot=0; + melt_object_get_field(slot,(melt_ptr_t)(/*_.SFLAG__V12*/ meltfptr[11]), 1, "LOCA_LOCATION");/*_.FLAGLOC__V24*/ meltfptr[23] = slot; }; + ; + } else {/*^cond.else*/ + + /*_.FLAGLOC__V24*/ meltfptr[23] = NULL;; + } + ; + + { + MELT_LOCATION("warmelt-normatch.melt:3915:/ locexp"); + meltgc_add_out((melt_ptr_t)(/*_.NODEBUF__V14*/ meltfptr[13]), ( ""));} + ; + + { + MELT_LOCATION("warmelt-normatch.melt:3918:/ locexp"); + /* OUTCLANAM__7 */ + meltgc_add_out ((melt_ptr_t) /*_.NODEBUF__V14*/ meltfptr[13], + melt_string_str ((melt_ptr_t) /*_.CLANAM__V22*/ meltfptr[21]) +6) ; + ;} + ; + + { + MELT_LOCATION("warmelt-normatch.melt:3922:/ locexp"); + meltgc_add_out((melt_ptr_t)(/*_.NODEBUF__V14*/ meltfptr[13]), ( ""));} + ; + + { + MELT_LOCATION("warmelt-normatch.melt:3923:/ locexp"); + meltgc_add_out((melt_ptr_t)(/*_.NODEBUF__V14*/ meltfptr[13]), ( ""));} + ; + + { + MELT_LOCATION("warmelt-normatch.melt:3924:/ locexp"); + /*add2sbufshortmixloc*/ if (melt_magic_discr((melt_ptr_t)(/*_.LOCA__V10*/ meltfptr[8])) == OBMAG_MIXLOC) { + location_t loc = melt_location_mixloc((melt_ptr_t)/*_.LOCA__V10*/ meltfptr[8]); + meltgc_strbuf_printf((melt_ptr_t)(/*_.NODEBUF__V14*/ meltfptr[13]), "{%s:%d:%d}", + lbasename(LOCATION_FILE (loc)), + LOCATION_LINE (loc), LOCATION_COLUMN (loc)); + } /*end add2sbufshortmixloc*/;} + ; + + { + MELT_LOCATION("warmelt-normatch.melt:3925:/ locexp"); + meltgc_add_out((melt_ptr_t)(/*_.NODEBUF__V14*/ meltfptr[13]), ( ""));} + ; + + { + MELT_LOCATION("warmelt-normatch.melt:3926:/ locexp"); + meltgc_out_add_indent((melt_ptr_t)(/*_.NODEBUF__V14*/ meltfptr[13]), (0), 0);;} + ; + + { + MELT_LOCATION("warmelt-normatch.melt:3927:/ locexp"); + meltgc_add_out((melt_ptr_t)(/*_.NODEBUF__V14*/ meltfptr[13]), ( "flag#"));} + ; + /*_#GET_INT__L5*/ meltfnum[4] = + (melt_get_int((melt_ptr_t)(/*_.FLAGRANK__V23*/ meltfptr[22])));; + + { + MELT_LOCATION("warmelt-normatch.melt:3928:/ locexp"); + meltgc_add_out_dec((melt_ptr_t)(/*_.NODEBUF__V14*/ meltfptr[13]), (/*_#GET_INT__L5*/ meltfnum[4]));} + ; + + { + MELT_LOCATION("warmelt-normatch.melt:3929:/ locexp"); + meltgc_add_out((melt_ptr_t)(/*_.NODEBUF__V14*/ meltfptr[13]), ( ""));} + ; + + { + MELT_LOCATION("warmelt-normatch.melt:3930:/ locexp"); + /*add2sbufshortmixloc*/ if (melt_magic_discr((melt_ptr_t)(/*_.LOCA__V10*/ meltfptr[8])) == OBMAG_MIXLOC) { + location_t loc = melt_location_mixloc((melt_ptr_t)/*_.LOCA__V10*/ meltfptr[8]); + meltgc_strbuf_printf((melt_ptr_t)(/*_.NODEBUF__V14*/ meltfptr[13]), "{%s:%d:%d}", + lbasename(LOCATION_FILE (loc)), + LOCATION_LINE (loc), LOCATION_COLUMN (loc)); + } /*end add2sbufshortmixloc*/;} + ; + + { + MELT_LOCATION("warmelt-normatch.melt:3931:/ locexp"); + meltgc_add_strbuf((melt_ptr_t)(/*_.NODEBUF__V14*/ meltfptr[13]), ( ""));} + ; + /*_#IS_MULTIPLE__L6*/ meltfnum[5] = + (melt_magic_discr((melt_ptr_t)(/*_.SFLAGARGS__V13*/ meltfptr[12])) == OBMAG_MULTIPLE);; + MELT_LOCATION("warmelt-normatch.melt:3932:/ cond"); + /*cond*/ if (/*_#IS_MULTIPLE__L6*/ meltfnum[5]) /*then*/ { + /*^cond.then*/ + /*^block*/ + /*anyblock*/{ + + + { + MELT_LOCATION("warmelt-normatch.melt:3934:/ locexp"); + meltgc_out_add_indent((melt_ptr_t)(/*_.NODEBUF__V14*/ meltfptr[13]), (0), 0);;} + ; + + { + MELT_LOCATION("warmelt-normatch.melt:3935:/ locexp"); + meltgc_add_out((melt_ptr_t)(/*_.NODEBUF__V14*/ meltfptr[13]), ( "flags{"));} + ; + /*citerblock FOREACH_IN_MULTIPLE*/ { + /* start cit1__EACHTUP: */ + long cit1__EACHTUP_ln = melt_multiple_length((melt_ptr_t)/*_.SFLAGARGS__V13*/ meltfptr[12]); + for (/*_#ARGIX__L7*/ meltfnum[6] = 0; + (/*_#ARGIX__L7*/ meltfnum[6] >= 0) && (/*_#ARGIX__L7*/ meltfnum[6] < cit1__EACHTUP_ln); + /*_#ARGIX__L7*/ meltfnum[6]++) { + /*_.ARGFLAG__V25*/ meltfptr[24] = melt_multiple_nth((melt_ptr_t)(/*_.SFLAGARGS__V13*/ meltfptr[12]), /*_#ARGIX__L7*/ meltfnum[6]); + + + + + #if ENABLE_CHECKING + MELT_LOCATION("warmelt-normatch.melt:3939:/ cppif.then"); + /*^block*/ + /*anyblock*/{ + + /*_#IS_A__L8*/ meltfnum[7] = + melt_is_instance_of((melt_ptr_t)(/*_.ARGFLAG__V25*/ meltfptr[24]), (melt_ptr_t)((/*!CLASS_MATCH_FLAG*/ meltfrout->tabval[4])));; + MELT_LOCATION("warmelt-normatch.melt:3939:/ cond"); + /*cond*/ if (/*_#IS_A__L8*/ meltfnum[7]) /*then*/ { + /*^cond.then*/ + /*_.IFELSE___V27*/ meltfptr[26] = (/*nil*/NULL);; + } else {MELT_LOCATION("warmelt-normatch.melt:3939:/ cond.else"); + + /*^block*/ + /*anyblock*/{ + + + + + { + /*^locexp*/ + melt_assert_failed(( "check argflag"),( "warmelt-normatch.melt")?( "warmelt-normatch.melt"):__FILE__, + (3939)?(3939):__LINE__, __FUNCTION__); +;} + ; + /*clear*/ /*_.IFELSE___V27*/ meltfptr[26] = 0 ; + /*epilog*/ + } + ; + } + ; + /*^compute*/ + + /*_.IFCPP___V26*/ meltfptr[25] = /*_.IFELSE___V27*/ meltfptr[26];; + /*epilog*/ + + MELT_LOCATION("warmelt-normatch.melt:3939:/ clear"); + /*clear*/ /*_#IS_A__L8*/ meltfnum[7] = 0 ; + /*^clear*/ + /*clear*/ /*_.IFELSE___V27*/ meltfptr[26] = 0 ;} + + #else /*ENABLE_CHECKING*/ + /*^cppif.else*/ + /*_.IFCPP___V26*/ meltfptr[25] = (/*nil*/NULL); + #endif /*ENABLE_CHECKING*/ + ; + MELT_LOCATION("warmelt-normatch.melt:3940:/ quasiblock"); + + + /*^cond*/ + /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.ARGFLAG__V25*/ meltfptr[24]), (melt_ptr_t)((/*!CLASS_MATCH_FLAG*/ meltfrout->tabval[4])))) /*then*/ { + /*^cond.then*/ + /*^getslot*/ + { melt_ptr_t slot=0; + melt_object_get_field(slot,(melt_ptr_t)(/*_.ARGFLAG__V25*/ meltfptr[24]), 3, "MFLAG_RANK");/*_.MFLAG_RANK__V28*/ meltfptr[26] = slot; }; + ; + } else {/*^cond.else*/ + + /*_.MFLAG_RANK__V28*/ meltfptr[26] = NULL;; + } + ; + /*^compute*/ + + /*_#ARGRANK__L9*/ meltfnum[7] = + (melt_get_int((melt_ptr_t)(/*_.MFLAG_RANK__V28*/ meltfptr[26])));; + MELT_LOCATION("warmelt-normatch.melt:3941:/ cond"); + /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.ARGFLAG__V25*/ meltfptr[24]), (melt_ptr_t)((/*!CLASS_MATCH_FLAG*/ meltfrout->tabval[4])))) /*then*/ { + /*^cond.then*/ + /*^getslot*/ + { melt_ptr_t slot=0; + melt_object_get_field(slot,(melt_ptr_t)(/*_.ARGFLAG__V25*/ meltfptr[24]), 5, "MFLAG_SETSTEP");/*_.ARGFSTEP__V29*/ meltfptr[28] = slot; }; + ; + } else {/*^cond.else*/ + + /*_.ARGFSTEP__V29*/ meltfptr[28] = NULL;; + } + ; + /*^compute*/ + + /*_#I__L10*/ meltfnum[9] = + ((/*_#ARGRANK__L9*/ meltfnum[7]) > (0));; + MELT_LOCATION("warmelt-normatch.melt:3943:/ cond"); + /*cond*/ if (/*_#I__L10*/ meltfnum[9]) /*then*/ { + /*^cond.then*/ + /*^block*/ + /*anyblock*/{ + + + { + MELT_LOCATION("warmelt-normatch.melt:3945:/ locexp"); + meltgc_add_strbuf((melt_ptr_t)(/*_.NODEBUF__V14*/ meltfptr[13]), ( " "));} + ; + + { + MELT_LOCATION("warmelt-normatch.melt:3946:/ locexp"); + meltgc_add_strbuf_dec((melt_ptr_t)(/*_.NODEBUF__V14*/ meltfptr[13]), (/*_#ARGRANK__L9*/ meltfnum[7]));} + ; + MELT_LOCATION("warmelt-normatch.melt:3944:/ quasiblock"); + + + /*epilog*/ + } + ; + } /*noelse*/ + ; + /*_#IS_A__L11*/ meltfnum[10] = + melt_is_instance_of((melt_ptr_t)(/*_.ARGFSTEP__V29*/ meltfptr[28]), (melt_ptr_t)((/*!CLASS_MATCH_STEP_ASSIGN_FLAG*/ meltfrout->tabval[6])));; + MELT_LOCATION("warmelt-normatch.melt:3948:/ cond"); + /*cond*/ if (/*_#IS_A__L11*/ meltfnum[10]) /*then*/ { + /*^cond.then*/ + /*^block*/ + /*anyblock*/{ + + MELT_LOCATION("warmelt-normatch.melt:3949:/ quasiblock"); + + + /*_.ARGFSTEPNAME__V30*/ meltfptr[29] = + melt_get_mapobjects((meltmapobjects_ptr_t)(/*_.STEPMAP__V17*/ meltfptr[16]), (meltobject_ptr_t)(/*_.ARGFSTEP__V29*/ meltfptr[28]));; + + { + MELT_LOCATION("warmelt-normatch.melt:3951:/ locexp"); + meltgc_out_add_indent((melt_ptr_t)(/*_.EDGEBUF__V15*/ meltfptr[14]), (0), 0);;} + ; + + { + MELT_LOCATION("warmelt-normatch.melt:3952:/ locexp"); + meltgc_add_out((melt_ptr_t)(/*_.EDGEBUF__V15*/ meltfptr[14]), melt_string_str((melt_ptr_t)(/*_.ARGFSTEPNAME__V30*/ meltfptr[29])));} + ; + + { + MELT_LOCATION("warmelt-normatch.melt:3953:/ locexp"); + meltgc_add_out((melt_ptr_t)(/*_.EDGEBUF__V15*/ meltfptr[14]), ( " /*argflag*/ -> "));} + ; + + { + MELT_LOCATION("warmelt-normatch.melt:3954:/ locexp"); + meltgc_add_out((melt_ptr_t)(/*_.EDGEBUF__V15*/ meltfptr[14]), melt_string_str((melt_ptr_t)(/*_.STEPNAME__V18*/ meltfptr[17])));} + ; + + { + MELT_LOCATION("warmelt-normatch.melt:3955:/ locexp"); + meltgc_add_out((melt_ptr_t)(/*_.EDGEBUF__V15*/ meltfptr[14]), ( " [ arrowhead=olnormal, color=chartreuse2, style=dotted ];"));} + ; + + MELT_LOCATION("warmelt-normatch.melt:3949:/ clear"); + /*clear*/ /*_.ARGFSTEPNAME__V30*/ meltfptr[29] = 0 ; + /*epilog*/ + } + ; + } /*noelse*/ + ; + + MELT_LOCATION("warmelt-normatch.melt:3940:/ clear"); + /*clear*/ /*_.MFLAG_RANK__V28*/ meltfptr[26] = 0 ; + /*^clear*/ + /*clear*/ /*_#ARGRANK__L9*/ meltfnum[7] = 0 ; + /*^clear*/ + /*clear*/ /*_.ARGFSTEP__V29*/ meltfptr[28] = 0 ; + /*^clear*/ + /*clear*/ /*_#I__L10*/ meltfnum[9] = 0 ; + /*^clear*/ + /*clear*/ /*_#IS_A__L11*/ meltfnum[10] = 0 ; + if (/*_#ARGIX__L7*/ meltfnum[6]<0) break; + } /* end cit1__EACHTUP */ + + /*citerepilog*/ + + MELT_LOCATION("warmelt-normatch.melt:3936:/ clear"); + /*clear*/ /*_.ARGFLAG__V25*/ meltfptr[24] = 0 ; + /*^clear*/ + /*clear*/ /*_#ARGIX__L7*/ meltfnum[6] = 0 ; + /*^clear*/ + /*clear*/ /*_.IFCPP___V26*/ meltfptr[25] = 0 ;} /*endciterblock FOREACH_IN_MULTIPLE*/ + ; - MELT_LOCATION("warmelt-normatch.melt:3558:/ clear"); - /*clear*/ /*_.MAPOBJECT_GET__V18*/ meltfptr[17] = 0 ;} - ; - } else {/*^cond.else*/ - - /*_.THENNAME__V17*/ meltfptr[16] = NULL;; - } - ; - /*^compute*/ - - /*_#STEPHASH__L4*/ meltfnum[0] = - (melt_obj_hash((melt_ptr_t)(/*_.STEP__V2*/ meltfptr[1])));; - /*^compute*/ - - /*_.DIS__V19*/ meltfptr[17] = - (melt_discr((melt_ptr_t)(/*_.STEP__V2*/ meltfptr[1])));; - MELT_LOCATION("warmelt-normatch.melt:3561:/ cond"); - /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.DIS__V19*/ meltfptr[17]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[3])))) /*then*/ { - /*^cond.then*/ - /*^getslot*/ - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.DIS__V19*/ meltfptr[17]), 1, "NAMED_NAME");/*_.CLANAM__V20*/ meltfptr[19] = slot; }; + { + MELT_LOCATION("warmelt-normatch.melt:3958:/ locexp"); + meltgc_add_strbuf((melt_ptr_t)(/*_.NODEBUF__V14*/ meltfptr[13]), ( " }"));} + ; + MELT_LOCATION("warmelt-normatch.melt:3933:/ quasiblock"); + + + /*epilog*/ + } ; - } else {/*^cond.else*/ - - /*_.CLANAM__V20*/ meltfptr[19] = NULL;; - } - ; - - { - MELT_LOCATION("warmelt-normatch.melt:3563:/ locexp"); - meltgc_add_out((melt_ptr_t)(/*_.NODEBUF__V12*/ meltfptr[11]), ( ""));} - ; - - { - MELT_LOCATION("warmelt-normatch.melt:3566:/ locexp"); - /* OUTCLANAM__6 */ - meltgc_add_out ((melt_ptr_t) /*_.NODEBUF__V12*/ meltfptr[11], - melt_string_str ((melt_ptr_t) /*_.CLANAM__V20*/ meltfptr[19]) +6) ; - ;} - ; - - { - MELT_LOCATION("warmelt-normatch.melt:3570:/ locexp"); - meltgc_add_out((melt_ptr_t)(/*_.NODEBUF__V12*/ meltfptr[11]), ( ""));} - ; - - { - MELT_LOCATION("warmelt-normatch.melt:3571:/ locexp"); - meltgc_add_out((melt_ptr_t)(/*_.NODEBUF__V12*/ meltfptr[11]), ( ""));} - ; - - { - MELT_LOCATION("warmelt-normatch.melt:3572:/ locexp"); - /*add2sbufshortmixloc*/ if (melt_magic_discr((melt_ptr_t)(/*_.LOCA__V10*/ meltfptr[8])) == OBMAG_MIXLOC) { - location_t loc = melt_location_mixloc((melt_ptr_t)/*_.LOCA__V10*/ meltfptr[8]); - meltgc_strbuf_printf((melt_ptr_t)(/*_.NODEBUF__V12*/ meltfptr[11]), "{%s:%d:%d}", - lbasename(LOCATION_FILE (loc)), - LOCATION_LINE (loc), LOCATION_COLUMN (loc)); - } /*end add2sbufshortmixloc*/;} - ; - - { - MELT_LOCATION("warmelt-normatch.melt:3573:/ locexp"); - meltgc_add_out((melt_ptr_t)(/*_.NODEBUF__V12*/ meltfptr[11]), ( ""));} - ; - - { - MELT_LOCATION("warmelt-normatch.melt:3574:/ locexp"); - meltgc_out_add_indent((melt_ptr_t)(/*_.NODEBUF__V12*/ meltfptr[11]), (0), 0);;} + } /*noelse*/ ; - MELT_LOCATION("warmelt-normatch.melt:3575:/ cond"); - /*cond*/ if (/*_.THENNAME__V17*/ meltfptr[16]) /*then*/ { + MELT_LOCATION("warmelt-normatch.melt:3960:/ cond"); + /*cond*/ if (/*_.THENNAME__V19*/ meltfptr[18]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/{ { - MELT_LOCATION("warmelt-normatch.melt:3577:/ locexp"); - meltgc_out_add_indent((melt_ptr_t)(/*_.EDGEBUF__V13*/ meltfptr[12]), (0), 0);;} + MELT_LOCATION("warmelt-normatch.melt:3962:/ locexp"); + meltgc_out_add_indent((melt_ptr_t)(/*_.EDGEBUF__V15*/ meltfptr[14]), (0), 0);;} ; { - MELT_LOCATION("warmelt-normatch.melt:3578:/ locexp"); - meltgc_add_out((melt_ptr_t)(/*_.EDGEBUF__V13*/ meltfptr[12]), melt_string_str((melt_ptr_t)(/*_.STEPNAME__V16*/ meltfptr[15])));} + MELT_LOCATION("warmelt-normatch.melt:3963:/ locexp"); + meltgc_add_out((melt_ptr_t)(/*_.EDGEBUF__V15*/ meltfptr[14]), melt_string_str((melt_ptr_t)(/*_.STEPNAME__V18*/ meltfptr[17])));} ; { - MELT_LOCATION("warmelt-normatch.melt:3579:/ locexp"); - meltgc_add_out((melt_ptr_t)(/*_.EDGEBUF__V13*/ meltfptr[12]), ( " /*then*/ -> "));} + MELT_LOCATION("warmelt-normatch.melt:3964:/ locexp"); + meltgc_add_out((melt_ptr_t)(/*_.EDGEBUF__V15*/ meltfptr[14]), ( " /*then*/ -> "));} ; { - MELT_LOCATION("warmelt-normatch.melt:3580:/ locexp"); - meltgc_add_out((melt_ptr_t)(/*_.EDGEBUF__V13*/ meltfptr[12]), melt_string_str((melt_ptr_t)(/*_.THENNAME__V17*/ meltfptr[16])));} + MELT_LOCATION("warmelt-normatch.melt:3965:/ locexp"); + meltgc_add_out((melt_ptr_t)(/*_.EDGEBUF__V15*/ meltfptr[14]), melt_string_str((melt_ptr_t)(/*_.THENNAME__V19*/ meltfptr[18])));} ; { - MELT_LOCATION("warmelt-normatch.melt:3581:/ locexp"); - meltgc_add_out((melt_ptr_t)(/*_.EDGEBUF__V13*/ meltfptr[12]), ( " [ arrowhead=normal, color=green ];"));} + MELT_LOCATION("warmelt-normatch.melt:3966:/ locexp"); + meltgc_add_out((melt_ptr_t)(/*_.EDGEBUF__V15*/ meltfptr[14]), ( " [ arrowhead=normal, color=green ];"));} ; - MELT_LOCATION("warmelt-normatch.melt:3576:/ quasiblock"); + MELT_LOCATION("warmelt-normatch.melt:3961:/ quasiblock"); /*epilog*/ @@ -7418,31 +12866,43 @@ lab_endgetargs:; } /*noelse*/ ; - MELT_LOCATION("warmelt-normatch.melt:3551:/ clear"); + MELT_LOCATION("warmelt-normatch.melt:3899:/ clear"); /*clear*/ /*_.LOCA__V10*/ meltfptr[8] = 0 ; /*^clear*/ /*clear*/ /*_.STHEN__V11*/ meltfptr[10] = 0 ; /*^clear*/ - /*clear*/ /*_.NODEBUF__V12*/ meltfptr[11] = 0 ; + /*clear*/ /*_.SFLAG__V12*/ meltfptr[11] = 0 ; /*^clear*/ - /*clear*/ /*_.EDGEBUF__V13*/ meltfptr[12] = 0 ; + /*clear*/ /*_.SFLAGARGS__V13*/ meltfptr[12] = 0 ; /*^clear*/ - /*clear*/ /*_.DATAMAP__V14*/ meltfptr[13] = 0 ; + /*clear*/ /*_.NODEBUF__V14*/ meltfptr[13] = 0 ; /*^clear*/ - /*clear*/ /*_.STEPMAP__V15*/ meltfptr[14] = 0 ; + /*clear*/ /*_.EDGEBUF__V15*/ meltfptr[14] = 0 ; /*^clear*/ - /*clear*/ /*_.STEPNAME__V16*/ meltfptr[15] = 0 ; + /*clear*/ /*_.DATAMAP__V16*/ meltfptr[15] = 0 ; /*^clear*/ - /*clear*/ /*_.THENNAME__V17*/ meltfptr[16] = 0 ; + /*clear*/ /*_.STEPMAP__V17*/ meltfptr[16] = 0 ; + /*^clear*/ + /*clear*/ /*_.STEPNAME__V18*/ meltfptr[17] = 0 ; + /*^clear*/ + /*clear*/ /*_.THENNAME__V19*/ meltfptr[18] = 0 ; /*^clear*/ /*clear*/ /*_#STEPHASH__L4*/ meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_.DIS__V19*/ meltfptr[17] = 0 ; + /*clear*/ /*_.DIS__V21*/ meltfptr[19] = 0 ; /*^clear*/ - /*clear*/ /*_.CLANAM__V20*/ meltfptr[19] = 0 ; + /*clear*/ /*_.CLANAM__V22*/ meltfptr[21] = 0 ; + /*^clear*/ + /*clear*/ /*_.FLAGRANK__V23*/ meltfptr[22] = 0 ; + /*^clear*/ + /*clear*/ /*_.FLAGLOC__V24*/ meltfptr[23] = 0 ; + /*^clear*/ + /*clear*/ /*_#GET_INT__L5*/ meltfnum[4] = 0 ; + /*^clear*/ + /*clear*/ /*_#IS_MULTIPLE__L6*/ meltfnum[5] = 0 ; /*epilog*/ - MELT_LOCATION("warmelt-normatch.melt:3547:/ clear"); + MELT_LOCATION("warmelt-normatch.melt:3895:/ clear"); /*clear*/ /*_.IFCPP___V4*/ meltfptr[3] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V6*/ meltfptr[4] = 0 ; @@ -7452,20 +12912,20 @@ lab_endgetargs:; ; goto labend_rout; labend_rout: -melt_trace_end("MGALTSTEP_STEPSUCCESS", meltcallcount); melt_topframe = (struct callframe_melt_st*) meltfram__.prev; +melt_trace_end("MGALTSTEP_STEPFLAGOPER", meltcallcount); melt_topframe = (struct callframe_melt_st*) meltfram__.prev; return (melt_ptr_t)(/*noretval*/ NULL); #undef meltcallcount #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR -} /*end meltrout_75_warmelt_normatch_MGALTSTEP_STEPSUCCESS*/ +} /*end meltrout_78_warmelt_normatch_MGALTSTEP_STEPFLAGOPER*/ melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_76_warmelt_normatch_TRANSLATE_MATCHCASE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, +meltrout_79_warmelt_normatch_TRANSLATE_MATCHCASE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_) { #if ENABLE_CHECKING @@ -7478,17 +12938,17 @@ meltrout_76_warmelt_normatch_TRANSLATE_MATCHCASE(meltclosure_ptr_t closp_, melt_ #define meltcallcount 0L #endif - struct frame_meltrout_76_warmelt_normatch_TRANSLATE_MATCHCASE_st { unsigned nbvar; + struct frame_meltrout_79_warmelt_normatch_TRANSLATE_MATCHCASE_st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct meltclosure_st *clos; struct excepth_melt_st *exh; struct callframe_melt_st *prev; -#define MELTFRAM_NBVARPTR 101 - void* varptr[101]; -#define MELTFRAM_NBVARNUM 34 - long varnum[34]; +#define MELTFRAM_NBVARPTR 115 + void* varptr[115]; +#define MELTFRAM_NBVARNUM 39 + long varnum[39]; /*others*/ long _spare_; } *framptr_=0, meltframe; @@ -7497,13 +12957,13 @@ meltrout_76_warmelt_normatch_TRANSLATE_MATCHCASE(meltclosure_ptr_t closp_, melt_ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_melt_un (framptr_->clos); - for(ix=0; ix<101; ix++) + for(ix=0; ix<115; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_melt_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&meltfram__, 0, sizeof(meltfram__)); - meltfram__.nbvar = 101; + meltfram__.nbvar = 115; meltfram__.clos = closp_; meltfram__.prev = (struct callframe_melt_st *) melt_topframe; melt_topframe = (struct callframe_melt_st *) &meltfram__; @@ -7511,7 +12971,7 @@ melt_trace_start("TRANSLATE_MATCHCASE", meltcallcount); /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-normatch.melt:3591:/ getarg"); + MELT_LOCATION("warmelt-normatch.melt:3977:/ getarg"); /*_.CURMCASE__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; /*getarg#1*/ @@ -7520,6 +12980,13 @@ melt_trace_start("TRANSLATE_MATCHCASE", meltcallcount); /*_.SLOC__V3*/ meltfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.SLOC__V3*/ meltfptr[2])) != NULL); + + /*getarg#2*/ + /*^getarg*/ + if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; + /*_.PREVSTEP__V4*/ meltfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; + gcc_assert(melt_discr((melt_ptr_t)(/*_.PREVSTEP__V4*/ meltfptr[3])) != NULL); + ; goto lab_endgetargs; lab_endgetargs:; @@ -7529,13 +12996,13 @@ lab_endgetargs:; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normatch.melt:3592:/ cppif.then"); + MELT_LOCATION("warmelt-normatch.melt:3978:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L1*/ meltfnum[0] = meltcallcount;; - MELT_LOCATION("warmelt-normatch.melt:3592:/ apply"); + MELT_LOCATION("warmelt-normatch.melt:3978:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -7546,36 +13013,36 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].bp_cstring = "warmelt-normatch.melt"; /*^apply.arg*/ - argtab[3].bp_long = 3592; - /*_.DEBUG_MSG_FUN__V5*/ meltfptr[4] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.CURMCASE__V2*/ meltfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + argtab[3].bp_long = 3978; + /*_.DEBUG_MSG_FUN__V6*/ meltfptr[5] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.CURMCASE__V2*/ meltfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; - /*_.IFCPP___V4*/ meltfptr[3] = /*_.DEBUG_MSG_FUN__V5*/ meltfptr[4];; + /*_.IFCPP___V5*/ meltfptr[4] = /*_.DEBUG_MSG_FUN__V6*/ meltfptr[5];; /*epilog*/ - MELT_LOCATION("warmelt-normatch.melt:3592:/ clear"); + MELT_LOCATION("warmelt-normatch.melt:3978:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L1*/ meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_.DEBUG_MSG_FUN__V5*/ meltfptr[4] = 0 ;} + /*clear*/ /*_.DEBUG_MSG_FUN__V6*/ meltfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ /*^cppif.else*/ - /*_.IFCPP___V4*/ meltfptr[3] = (/*nil*/NULL); + /*_.IFCPP___V5*/ meltfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normatch.melt:3593:/ cppif.then"); + MELT_LOCATION("warmelt-normatch.melt:3979:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L2*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.CURMCASE__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_MATCH_CASE*/ meltfrout->tabval[1])));; - MELT_LOCATION("warmelt-normatch.melt:3593:/ cond"); + MELT_LOCATION("warmelt-normatch.melt:3979:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ meltfnum[0]) /*then*/ { /*^cond.then*/ - /*_.IFELSE___V7*/ meltfptr[6] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normatch.melt:3593:/ cond.else"); + /*_.IFELSE___V8*/ meltfptr[7] = (/*nil*/NULL);; + } else {MELT_LOCATION("warmelt-normatch.melt:3979:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -7586,10 +13053,10 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check curmcase"),( "warmelt-normatch.melt")?( "warmelt-normatch.melt"):__FILE__, - (3593)?(3593):__LINE__, __FUNCTION__); + (3979)?(3979):__LINE__, __FUNCTION__); ;} ; - /*clear*/ /*_.IFELSE___V7*/ meltfptr[6] = 0 ; + /*clear*/ /*_.IFELSE___V8*/ meltfptr[7] = 0 ; /*epilog*/ } ; @@ -7597,47 +13064,47 @@ lab_endgetargs:; ; /*^compute*/ - /*_.IFCPP___V6*/ meltfptr[4] = /*_.IFELSE___V7*/ meltfptr[6];; + /*_.IFCPP___V7*/ meltfptr[5] = /*_.IFELSE___V8*/ meltfptr[7];; /*epilog*/ - MELT_LOCATION("warmelt-normatch.melt:3593:/ clear"); + MELT_LOCATION("warmelt-normatch.melt:3979:/ clear"); /*clear*/ /*_#IS_A__L2*/ meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_.IFELSE___V7*/ meltfptr[6] = 0 ;} + /*clear*/ /*_.IFELSE___V8*/ meltfptr[7] = 0 ;} #else /*ENABLE_CHECKING*/ /*^cppif.else*/ - /*_.IFCPP___V6*/ meltfptr[4] = (/*nil*/NULL); + /*_.IFCPP___V7*/ meltfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-normatch.melt:3594:/ quasiblock"); + MELT_LOCATION("warmelt-normatch.melt:3980:/ quasiblock"); /*^getslot*/ { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.CURMCASE__V2*/ meltfptr[1]), 1, "MCASE_MCTXT");/*_.MATCTX__V9*/ meltfptr[8] = slot; }; + melt_object_get_field(slot,(melt_ptr_t)(/*_.CURMCASE__V2*/ meltfptr[1]), 1, "MCASE_MCTXT");/*_.MATCTX__V10*/ meltfptr[9] = slot; }; ; - MELT_LOCATION("warmelt-normatch.melt:3595:/ getslot"); + MELT_LOCATION("warmelt-normatch.melt:3981:/ getslot"); { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.CURMCASE__V2*/ meltfptr[1]), 2, "MCASE_SOURCE");/*_.CURSCAS__V10*/ meltfptr[9] = slot; }; + melt_object_get_field(slot,(melt_ptr_t)(/*_.CURMCASE__V2*/ meltfptr[1]), 2, "MCASE_SOURCE");/*_.CURSCAS__V11*/ meltfptr[10] = slot; }; ; - MELT_LOCATION("warmelt-normatch.melt:3596:/ getslot"); + MELT_LOCATION("warmelt-normatch.melt:3982:/ getslot"); { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.CURSCAS__V10*/ meltfptr[9]), 1, "LOCA_LOCATION");/*_.MLOC__V11*/ meltfptr[10] = slot; }; + melt_object_get_field(slot,(melt_ptr_t)(/*_.CURSCAS__V11*/ meltfptr[10]), 1, "LOCA_LOCATION");/*_.MLOC__V12*/ meltfptr[11] = slot; }; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normatch.melt:3598:/ cppif.then"); + MELT_LOCATION("warmelt-normatch.melt:3984:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L3*/ meltfnum[0] = - melt_is_instance_of((melt_ptr_t)(/*_.MATCTX__V9*/ meltfptr[8]), (melt_ptr_t)((/*!CLASS_MATCHING_CONTEXT*/ meltfrout->tabval[2])));; - MELT_LOCATION("warmelt-normatch.melt:3598:/ cond"); + melt_is_instance_of((melt_ptr_t)(/*_.MATCTX__V10*/ meltfptr[9]), (melt_ptr_t)((/*!CLASS_MATCHING_CONTEXT*/ meltfrout->tabval[2])));; + MELT_LOCATION("warmelt-normatch.melt:3984:/ cond"); /*cond*/ if (/*_#IS_A__L3*/ meltfnum[0]) /*then*/ { /*^cond.then*/ - /*_.IFELSE___V13*/ meltfptr[12] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normatch.melt:3598:/ cond.else"); + /*_.IFELSE___V14*/ meltfptr[13] = (/*nil*/NULL);; + } else {MELT_LOCATION("warmelt-normatch.melt:3984:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -7648,10 +13115,10 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check matctx"),( "warmelt-normatch.melt")?( "warmelt-normatch.melt"):__FILE__, - (3598)?(3598):__LINE__, __FUNCTION__); + (3984)?(3984):__LINE__, __FUNCTION__); ;} ; - /*clear*/ /*_.IFELSE___V13*/ meltfptr[12] = 0 ; + /*clear*/ /*_.IFELSE___V14*/ meltfptr[13] = 0 ; /*epilog*/ } ; @@ -7659,28 +13126,28 @@ lab_endgetargs:; ; /*^compute*/ - /*_.IFCPP___V12*/ meltfptr[11] = /*_.IFELSE___V13*/ meltfptr[12];; + /*_.IFCPP___V13*/ meltfptr[12] = /*_.IFELSE___V14*/ meltfptr[13];; /*epilog*/ - MELT_LOCATION("warmelt-normatch.melt:3598:/ clear"); + MELT_LOCATION("warmelt-normatch.melt:3984:/ clear"); /*clear*/ /*_#IS_A__L3*/ meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_.IFELSE___V13*/ meltfptr[12] = 0 ;} + /*clear*/ /*_.IFELSE___V14*/ meltfptr[13] = 0 ;} #else /*ENABLE_CHECKING*/ /*^cppif.else*/ - /*_.IFCPP___V12*/ meltfptr[11] = (/*nil*/NULL); + /*_.IFCPP___V13*/ meltfptr[12] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normatch.melt:3599:/ cppif.then"); + MELT_LOCATION("warmelt-normatch.melt:3985:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L4*/ meltfnum[0] = meltcallcount;; - MELT_LOCATION("warmelt-normatch.melt:3599:/ apply"); + MELT_LOCATION("warmelt-normatch.melt:3985:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -7691,36 +13158,72 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].bp_cstring = "warmelt-normatch.melt"; /*^apply.arg*/ - argtab[3].bp_long = 3599; - /*_.DEBUG_MSG_FUN__V15*/ meltfptr[14] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.CURSCAS__V10*/ meltfptr[9]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + argtab[3].bp_long = 3985; + /*_.DEBUG_MSG_FUN__V16*/ meltfptr[15] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.CURSCAS__V11*/ meltfptr[10]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; - /*_.IFCPP___V14*/ meltfptr[12] = /*_.DEBUG_MSG_FUN__V15*/ meltfptr[14];; + /*_.IFCPP___V15*/ meltfptr[13] = /*_.DEBUG_MSG_FUN__V16*/ meltfptr[15];; /*epilog*/ - MELT_LOCATION("warmelt-normatch.melt:3599:/ clear"); + MELT_LOCATION("warmelt-normatch.melt:3985:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L4*/ meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_.DEBUG_MSG_FUN__V15*/ meltfptr[14] = 0 ;} + /*clear*/ /*_.DEBUG_MSG_FUN__V16*/ meltfptr[15] = 0 ;} + + #else /*ENABLE_CHECKING*/ + /*^cppif.else*/ + /*_.IFCPP___V15*/ meltfptr[13] = (/*nil*/NULL); + #endif /*ENABLE_CHECKING*/ + ; + + #if ENABLE_CHECKING + MELT_LOCATION("warmelt-normatch.melt:3986:/ cppif.then"); + /*^block*/ + /*anyblock*/{ + + /*_#THE_MELTCALLCOUNT__L5*/ meltfnum[0] = + meltcallcount;; + MELT_LOCATION("warmelt-normatch.melt:3986:/ apply"); + /*apply*/{ + union meltparam_un argtab[4]; + memset(&argtab, 0, sizeof(argtab)); + /*^apply.arg*/ + argtab[0].bp_cstring = "translate_matchcase prevstep"; + /*^apply.arg*/ + argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L5*/ meltfnum[0]; + /*^apply.arg*/ + argtab[2].bp_cstring = "warmelt-normatch.melt"; + /*^apply.arg*/ + argtab[3].bp_long = 3986; + /*_.DEBUG_MSG_FUN__V18*/ meltfptr[17] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.PREVSTEP__V4*/ meltfptr[3]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + } + ; + /*_.IFCPP___V17*/ meltfptr[15] = /*_.DEBUG_MSG_FUN__V18*/ meltfptr[17];; + /*epilog*/ + + MELT_LOCATION("warmelt-normatch.melt:3986:/ clear"); + /*clear*/ /*_#THE_MELTCALLCOUNT__L5*/ meltfnum[0] = 0 ; + /*^clear*/ + /*clear*/ /*_.DEBUG_MSG_FUN__V18*/ meltfptr[17] = 0 ;} #else /*ENABLE_CHECKING*/ /*^cppif.else*/ - /*_.IFCPP___V14*/ meltfptr[12] = (/*nil*/NULL); + /*_.IFCPP___V17*/ meltfptr[15] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normatch.melt:3600:/ cppif.then"); + MELT_LOCATION("warmelt-normatch.melt:3987:/ cppif.then"); /*^block*/ /*anyblock*/{ - /*_#IS_A__L5*/ meltfnum[0] = - melt_is_instance_of((melt_ptr_t)(/*_.CURSCAS__V10*/ meltfptr[9]), (melt_ptr_t)((/*!CLASS_SOURCE_MATCH_CASE*/ meltfrout->tabval[3])));; - MELT_LOCATION("warmelt-normatch.melt:3600:/ cond"); - /*cond*/ if (/*_#IS_A__L5*/ meltfnum[0]) /*then*/ { + /*_#IS_A__L6*/ meltfnum[0] = + melt_is_instance_of((melt_ptr_t)(/*_.CURSCAS__V11*/ meltfptr[10]), (melt_ptr_t)((/*!CLASS_SOURCE_MATCH_CASE*/ meltfrout->tabval[3])));; + MELT_LOCATION("warmelt-normatch.melt:3987:/ cond"); + /*cond*/ if (/*_#IS_A__L6*/ meltfnum[0]) /*then*/ { /*^cond.then*/ - /*_.IFELSE___V17*/ meltfptr[16] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normatch.melt:3600:/ cond.else"); + /*_.IFELSE___V20*/ meltfptr[19] = (/*nil*/NULL);; + } else {MELT_LOCATION("warmelt-normatch.melt:3987:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -7731,10 +13234,10 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check curscas"),( "warmelt-normatch.melt")?( "warmelt-normatch.melt"):__FILE__, - (3600)?(3600):__LINE__, __FUNCTION__); + (3987)?(3987):__LINE__, __FUNCTION__); ;} ; - /*clear*/ /*_.IFELSE___V17*/ meltfptr[16] = 0 ; + /*clear*/ /*_.IFELSE___V20*/ meltfptr[19] = 0 ; /*epilog*/ } ; @@ -7742,193 +13245,198 @@ lab_endgetargs:; ; /*^compute*/ - /*_.IFCPP___V16*/ meltfptr[14] = /*_.IFELSE___V17*/ meltfptr[16];; + /*_.IFCPP___V19*/ meltfptr[17] = /*_.IFELSE___V20*/ meltfptr[19];; /*epilog*/ - MELT_LOCATION("warmelt-normatch.melt:3600:/ clear"); - /*clear*/ /*_#IS_A__L5*/ meltfnum[0] = 0 ; + MELT_LOCATION("warmelt-normatch.melt:3987:/ clear"); + /*clear*/ /*_#IS_A__L6*/ meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_.IFELSE___V17*/ meltfptr[16] = 0 ;} + /*clear*/ /*_.IFELSE___V20*/ meltfptr[19] = 0 ;} #else /*ENABLE_CHECKING*/ /*^cppif.else*/ - /*_.IFCPP___V16*/ meltfptr[14] = (/*nil*/NULL); + /*_.IFCPP___V19*/ meltfptr[17] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-normatch.melt:3601:/ quasiblock"); + MELT_LOCATION("warmelt-normatch.melt:3988:/ quasiblock"); - MELT_LOCATION("warmelt-normatch.melt:3602:/ getslot"); + MELT_LOCATION("warmelt-normatch.melt:3989:/ getslot"); { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.CURSCAS__V10*/ meltfptr[9]), 1, "LOCA_LOCATION");/*_.CURLOC__V19*/ meltfptr[18] = slot; }; + melt_object_get_field(slot,(melt_ptr_t)(/*_.CURSCAS__V11*/ meltfptr[10]), 1, "LOCA_LOCATION");/*_.CURLOC__V22*/ meltfptr[21] = slot; }; ; - MELT_LOCATION("warmelt-normatch.melt:3603:/ getslot"); + MELT_LOCATION("warmelt-normatch.melt:3990:/ getslot"); { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.CURSCAS__V10*/ meltfptr[9]), 2, "SCAM_PATT");/*_.CURPAT__V20*/ meltfptr[19] = slot; }; + melt_object_get_field(slot,(melt_ptr_t)(/*_.CURSCAS__V11*/ meltfptr[10]), 2, "SCAM_PATT");/*_.CURPAT__V23*/ meltfptr[22] = slot; }; ; - MELT_LOCATION("warmelt-normatch.melt:3604:/ getslot"); + MELT_LOCATION("warmelt-normatch.melt:3991:/ getslot"); { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.CURSCAS__V10*/ meltfptr[9]), 3, "SCAM_BODY");/*_.CURBODY__V21*/ meltfptr[20] = slot; }; + melt_object_get_field(slot,(melt_ptr_t)(/*_.CURSCAS__V11*/ meltfptr[10]), 3, "SCAM_BODY");/*_.CURBODY__V24*/ meltfptr[23] = slot; }; ; - MELT_LOCATION("warmelt-normatch.melt:3605:/ getslot"); + MELT_LOCATION("warmelt-normatch.melt:3992:/ getslot"); { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.MATCTX__V9*/ meltfptr[8]), 2, "MXCT_NMATCHED");/*_.NMATX__V22*/ meltfptr[21] = slot; }; + melt_object_get_field(slot,(melt_ptr_t)(/*_.MATCTX__V10*/ meltfptr[9]), 2, "MCTX_NMATCHED");/*_.NMATX__V25*/ meltfptr[24] = slot; }; ; - MELT_LOCATION("warmelt-normatch.melt:3606:/ getslot"); + MELT_LOCATION("warmelt-normatch.melt:3993:/ getslot"); { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.MATCTX__V9*/ meltfptr[8]), 5, "MXCT_MDATA");/*_.MDATA__V23*/ meltfptr[22] = slot; }; + melt_object_get_field(slot,(melt_ptr_t)(/*_.MATCTX__V10*/ meltfptr[9]), 5, "MCTX_MDATA");/*_.MDATA__V26*/ meltfptr[25] = slot; }; ; - MELT_LOCATION("warmelt-normatch.melt:3607:/ getslot"); + MELT_LOCATION("warmelt-normatch.melt:3994:/ getslot"); { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.MATCTX__V9*/ meltfptr[8]), 0, "MXCT_NORMCTXT");/*_.NCX__V24*/ meltfptr[23] = slot; }; + melt_object_get_field(slot,(melt_ptr_t)(/*_.MATCTX__V10*/ meltfptr[9]), 0, "MCTX_NORMCTXT");/*_.NCX__V27*/ meltfptr[26] = slot; }; ; - MELT_LOCATION("warmelt-normatch.melt:3608:/ getslot"); + MELT_LOCATION("warmelt-normatch.melt:3995:/ getslot"); { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.MATCTX__V9*/ meltfptr[8]), 4, "MXCT_ENV");/*_.ENV__V25*/ meltfptr[24] = slot; }; + melt_object_get_field(slot,(melt_ptr_t)(/*_.MATCTX__V10*/ meltfptr[9]), 4, "MCTX_ENV");/*_.ENV__V28*/ meltfptr[27] = slot; }; ; - MELT_LOCATION("warmelt-normatch.melt:3610:/ getslot"); + MELT_LOCATION("warmelt-normatch.melt:3997:/ getslot"); { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.CURSCAS__V10*/ meltfptr[9]), 4, "MCASE_VARMAP");/*_.MCASE_VARMAP__V26*/ meltfptr[25] = slot; }; + melt_object_get_field(slot,(melt_ptr_t)(/*_.CURSCAS__V11*/ meltfptr[10]), 4, "MCASE_VARMAP");/*_.MCASE_VARMAP__V29*/ meltfptr[28] = slot; }; ; - /*_#MAPOBJECT_COUNT__L6*/ meltfnum[0] = - (melt_count_mapobjects((meltmapobjects_ptr_t)(/*_.MCASE_VARMAP__V26*/ meltfptr[25])));; + /*_#MAPOBJECT_COUNT__L7*/ meltfnum[0] = + (melt_count_mapobjects((meltmapobjects_ptr_t)(/*_.MCASE_VARMAP__V29*/ meltfptr[28])));; /*^compute*/ - /*_#I__L7*/ meltfnum[6] = - ((2) * (/*_#MAPOBJECT_COUNT__L6*/ meltfnum[0]));; + /*_#I__L8*/ meltfnum[7] = + ((2) * (/*_#MAPOBJECT_COUNT__L7*/ meltfnum[0]));; /*^compute*/ - /*_#I__L8*/ meltfnum[7] = - ((12) + (/*_#I__L7*/ meltfnum[6]));; + /*_#I__L9*/ meltfnum[8] = + ((12) + (/*_#I__L8*/ meltfnum[7]));; /*^compute*/ - /*_.VARMAP__V27*/ meltfptr[26] = - (meltgc_new_mapobjects( (meltobject_ptr_t) ((/*!DISCR_MAP_OBJECTS*/ meltfrout->tabval[4])), (/*_#I__L8*/ meltfnum[7])));; - MELT_LOCATION("warmelt-normatch.melt:3611:/ getslot"); + /*_.VARMAP__V30*/ meltfptr[29] = + (meltgc_new_mapobjects( (meltobject_ptr_t) ((/*!DISCR_MAP_OBJECTS*/ meltfrout->tabval[4])), (/*_#I__L9*/ meltfnum[8])));; + MELT_LOCATION("warmelt-normatch.melt:3998:/ getslot"); { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.NCX__V24*/ meltfptr[23]), 6, "NCTX_SYMBCACHEMAP");/*_.SYCMAP__V28*/ meltfptr[27] = slot; }; + melt_object_get_field(slot,(melt_ptr_t)(/*_.NCX__V27*/ meltfptr[26]), 6, "NCTX_SYMBCACHEMAP");/*_.SYCMAP__V31*/ meltfptr[30] = slot; }; + ; + MELT_LOCATION("warmelt-normatch.melt:3999:/ apply"); + /*apply*/{ + /*_.NEWENV__V32*/ meltfptr[31] = melt_apply ((meltclosure_ptr_t)((/*!FRESH_ENV*/ meltfrout->tabval[5])), (melt_ptr_t)(/*_.ENV__V28*/ meltfptr[27]), (""), (union meltparam_un*)0, "", (union meltparam_un*)0); + } ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normatch.melt:3613:/ cppif.then"); + MELT_LOCATION("warmelt-normatch.melt:4001:/ cppif.then"); /*^block*/ /*anyblock*/{ - /*_#THE_MELTCALLCOUNT__L9*/ meltfnum[8] = + /*_#THE_MELTCALLCOUNT__L10*/ meltfnum[9] = meltcallcount;; - MELT_LOCATION("warmelt-normatch.melt:3613:/ apply"); + MELT_LOCATION("warmelt-normatch.melt:4001:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].bp_cstring = "translate_matchcase nmatx"; /*^apply.arg*/ - argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L9*/ meltfnum[8]; + argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L10*/ meltfnum[9]; /*^apply.arg*/ argtab[2].bp_cstring = "warmelt-normatch.melt"; /*^apply.arg*/ - argtab[3].bp_long = 3613; - /*_.DEBUG_MSG_FUN__V30*/ meltfptr[29] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.NMATX__V22*/ meltfptr[21]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + argtab[3].bp_long = 4001; + /*_.DEBUG_MSG_FUN__V34*/ meltfptr[33] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.NMATX__V25*/ meltfptr[24]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; - /*_.IFCPP___V29*/ meltfptr[28] = /*_.DEBUG_MSG_FUN__V30*/ meltfptr[29];; + /*_.IFCPP___V33*/ meltfptr[32] = /*_.DEBUG_MSG_FUN__V34*/ meltfptr[33];; /*epilog*/ - MELT_LOCATION("warmelt-normatch.melt:3613:/ clear"); - /*clear*/ /*_#THE_MELTCALLCOUNT__L9*/ meltfnum[8] = 0 ; + MELT_LOCATION("warmelt-normatch.melt:4001:/ clear"); + /*clear*/ /*_#THE_MELTCALLCOUNT__L10*/ meltfnum[9] = 0 ; /*^clear*/ - /*clear*/ /*_.DEBUG_MSG_FUN__V30*/ meltfptr[29] = 0 ;} + /*clear*/ /*_.DEBUG_MSG_FUN__V34*/ meltfptr[33] = 0 ;} #else /*ENABLE_CHECKING*/ /*^cppif.else*/ - /*_.IFCPP___V29*/ meltfptr[28] = (/*nil*/NULL); + /*_.IFCPP___V33*/ meltfptr[32] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normatch.melt:3614:/ cppif.then"); + MELT_LOCATION("warmelt-normatch.melt:4002:/ cppif.then"); /*^block*/ /*anyblock*/{ - /*_#THE_MELTCALLCOUNT__L10*/ meltfnum[8] = + /*_#THE_MELTCALLCOUNT__L11*/ meltfnum[9] = meltcallcount;; - MELT_LOCATION("warmelt-normatch.melt:3614:/ apply"); + MELT_LOCATION("warmelt-normatch.melt:4002:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].bp_cstring = "translate_matchcase curpat"; /*^apply.arg*/ - argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L10*/ meltfnum[8]; + argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L11*/ meltfnum[9]; /*^apply.arg*/ argtab[2].bp_cstring = "warmelt-normatch.melt"; /*^apply.arg*/ - argtab[3].bp_long = 3614; - /*_.DEBUG_MSG_FUN__V32*/ meltfptr[31] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.CURPAT__V20*/ meltfptr[19]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + argtab[3].bp_long = 4002; + /*_.DEBUG_MSG_FUN__V36*/ meltfptr[35] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.CURPAT__V23*/ meltfptr[22]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; - /*_.IFCPP___V31*/ meltfptr[29] = /*_.DEBUG_MSG_FUN__V32*/ meltfptr[31];; + /*_.IFCPP___V35*/ meltfptr[33] = /*_.DEBUG_MSG_FUN__V36*/ meltfptr[35];; /*epilog*/ - MELT_LOCATION("warmelt-normatch.melt:3614:/ clear"); - /*clear*/ /*_#THE_MELTCALLCOUNT__L10*/ meltfnum[8] = 0 ; + MELT_LOCATION("warmelt-normatch.melt:4002:/ clear"); + /*clear*/ /*_#THE_MELTCALLCOUNT__L11*/ meltfnum[9] = 0 ; /*^clear*/ - /*clear*/ /*_.DEBUG_MSG_FUN__V32*/ meltfptr[31] = 0 ;} + /*clear*/ /*_.DEBUG_MSG_FUN__V36*/ meltfptr[35] = 0 ;} #else /*ENABLE_CHECKING*/ /*^cppif.else*/ - /*_.IFCPP___V31*/ meltfptr[29] = (/*nil*/NULL); + /*_.IFCPP___V35*/ meltfptr[33] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normatch.melt:3615:/ cppif.then"); + MELT_LOCATION("warmelt-normatch.melt:4003:/ cppif.then"); /*^block*/ /*anyblock*/{ - /*_#THE_MELTCALLCOUNT__L11*/ meltfnum[8] = + /*_#THE_MELTCALLCOUNT__L12*/ meltfnum[9] = meltcallcount;; - MELT_LOCATION("warmelt-normatch.melt:3615:/ apply"); + MELT_LOCATION("warmelt-normatch.melt:4003:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].bp_cstring = "translate_matchcase mdata"; /*^apply.arg*/ - argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L11*/ meltfnum[8]; + argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L12*/ meltfnum[9]; /*^apply.arg*/ argtab[2].bp_cstring = "warmelt-normatch.melt"; /*^apply.arg*/ - argtab[3].bp_long = 3615; - /*_.DEBUG_MSG_FUN__V34*/ meltfptr[33] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.MDATA__V23*/ meltfptr[22]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + argtab[3].bp_long = 4003; + /*_.DEBUG_MSG_FUN__V38*/ meltfptr[37] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.MDATA__V26*/ meltfptr[25]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; - /*_.IFCPP___V33*/ meltfptr[31] = /*_.DEBUG_MSG_FUN__V34*/ meltfptr[33];; + /*_.IFCPP___V37*/ meltfptr[35] = /*_.DEBUG_MSG_FUN__V38*/ meltfptr[37];; /*epilog*/ - MELT_LOCATION("warmelt-normatch.melt:3615:/ clear"); - /*clear*/ /*_#THE_MELTCALLCOUNT__L11*/ meltfnum[8] = 0 ; + MELT_LOCATION("warmelt-normatch.melt:4003:/ clear"); + /*clear*/ /*_#THE_MELTCALLCOUNT__L12*/ meltfnum[9] = 0 ; /*^clear*/ - /*clear*/ /*_.DEBUG_MSG_FUN__V34*/ meltfptr[33] = 0 ;} + /*clear*/ /*_.DEBUG_MSG_FUN__V38*/ meltfptr[37] = 0 ;} #else /*ENABLE_CHECKING*/ /*^cppif.else*/ - /*_.IFCPP___V33*/ meltfptr[31] = (/*nil*/NULL); + /*_.IFCPP___V37*/ meltfptr[35] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normatch.melt:3616:/ cppif.then"); + MELT_LOCATION("warmelt-normatch.melt:4004:/ cppif.then"); /*^block*/ /*anyblock*/{ - /*_#IS_A__L12*/ meltfnum[8] = - melt_is_instance_of((melt_ptr_t)(/*_.NCX__V24*/ meltfptr[23]), (melt_ptr_t)((/*!CLASS_NORMALIZATION_CONTEXT*/ meltfrout->tabval[5])));; - MELT_LOCATION("warmelt-normatch.melt:3616:/ cond"); - /*cond*/ if (/*_#IS_A__L12*/ meltfnum[8]) /*then*/ { + /*_#IS_A__L13*/ meltfnum[9] = + melt_is_instance_of((melt_ptr_t)(/*_.NCX__V27*/ meltfptr[26]), (melt_ptr_t)((/*!CLASS_NORMALIZATION_CONTEXT*/ meltfrout->tabval[6])));; + MELT_LOCATION("warmelt-normatch.melt:4004:/ cond"); + /*cond*/ if (/*_#IS_A__L13*/ meltfnum[9]) /*then*/ { /*^cond.then*/ - /*_.IFELSE___V36*/ meltfptr[35] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normatch.melt:3616:/ cond.else"); + /*_.IFELSE___V40*/ meltfptr[39] = (/*nil*/NULL);; + } else {MELT_LOCATION("warmelt-normatch.melt:4004:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -7939,10 +13447,10 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check ncx"),( "warmelt-normatch.melt")?( "warmelt-normatch.melt"):__FILE__, - (3616)?(3616):__LINE__, __FUNCTION__); + (4004)?(4004):__LINE__, __FUNCTION__); ;} ; - /*clear*/ /*_.IFELSE___V36*/ meltfptr[35] = 0 ; + /*clear*/ /*_.IFELSE___V40*/ meltfptr[39] = 0 ; /*epilog*/ } ; @@ -7950,32 +13458,32 @@ lab_endgetargs:; ; /*^compute*/ - /*_.IFCPP___V35*/ meltfptr[33] = /*_.IFELSE___V36*/ meltfptr[35];; + /*_.IFCPP___V39*/ meltfptr[37] = /*_.IFELSE___V40*/ meltfptr[39];; /*epilog*/ - MELT_LOCATION("warmelt-normatch.melt:3616:/ clear"); - /*clear*/ /*_#IS_A__L12*/ meltfnum[8] = 0 ; + MELT_LOCATION("warmelt-normatch.melt:4004:/ clear"); + /*clear*/ /*_#IS_A__L13*/ meltfnum[9] = 0 ; /*^clear*/ - /*clear*/ /*_.IFELSE___V36*/ meltfptr[35] = 0 ;} + /*clear*/ /*_.IFELSE___V40*/ meltfptr[39] = 0 ;} #else /*ENABLE_CHECKING*/ /*^cppif.else*/ - /*_.IFCPP___V35*/ meltfptr[33] = (/*nil*/NULL); + /*_.IFCPP___V39*/ meltfptr[37] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normatch.melt:3617:/ cppif.then"); + MELT_LOCATION("warmelt-normatch.melt:4005:/ cppif.then"); /*^block*/ /*anyblock*/{ - /*_#IS_A__L13*/ meltfnum[8] = - melt_is_instance_of((melt_ptr_t)(/*_.ENV__V25*/ meltfptr[24]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ meltfrout->tabval[6])));; - MELT_LOCATION("warmelt-normatch.melt:3617:/ cond"); - /*cond*/ if (/*_#IS_A__L13*/ meltfnum[8]) /*then*/ { + /*_#IS_A__L14*/ meltfnum[9] = + melt_is_instance_of((melt_ptr_t)(/*_.ENV__V28*/ meltfptr[27]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ meltfrout->tabval[7])));; + MELT_LOCATION("warmelt-normatch.melt:4005:/ cond"); + /*cond*/ if (/*_#IS_A__L14*/ meltfnum[9]) /*then*/ { /*^cond.then*/ - /*_.IFELSE___V38*/ meltfptr[37] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normatch.melt:3617:/ cond.else"); + /*_.IFELSE___V42*/ meltfptr[41] = (/*nil*/NULL);; + } else {MELT_LOCATION("warmelt-normatch.melt:4005:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -7986,10 +13494,10 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check env"),( "warmelt-normatch.melt")?( "warmelt-normatch.melt"):__FILE__, - (3617)?(3617):__LINE__, __FUNCTION__); + (4005)?(4005):__LINE__, __FUNCTION__); ;} ; - /*clear*/ /*_.IFELSE___V38*/ meltfptr[37] = 0 ; + /*clear*/ /*_.IFELSE___V42*/ meltfptr[41] = 0 ; /*epilog*/ } ; @@ -7997,148 +13505,183 @@ lab_endgetargs:; ; /*^compute*/ - /*_.IFCPP___V37*/ meltfptr[35] = /*_.IFELSE___V38*/ meltfptr[37];; + /*_.IFCPP___V41*/ meltfptr[39] = /*_.IFELSE___V42*/ meltfptr[41];; /*epilog*/ - MELT_LOCATION("warmelt-normatch.melt:3617:/ clear"); - /*clear*/ /*_#IS_A__L13*/ meltfnum[8] = 0 ; + MELT_LOCATION("warmelt-normatch.melt:4005:/ clear"); + /*clear*/ /*_#IS_A__L14*/ meltfnum[9] = 0 ; /*^clear*/ - /*clear*/ /*_.IFELSE___V38*/ meltfptr[37] = 0 ;} + /*clear*/ /*_.IFELSE___V42*/ meltfptr[41] = 0 ;} #else /*ENABLE_CHECKING*/ /*^cppif.else*/ - /*_.IFCPP___V37*/ meltfptr[35] = (/*nil*/NULL); + /*_.IFCPP___V41*/ meltfptr[39] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-normatch.melt:3618:/ quasiblock"); + MELT_LOCATION("warmelt-normatch.melt:4006:/ quasiblock"); - /*^msend*/ - /*msend*/{ + /*^multimsend*/ + /*multimsend*/{ union meltparam_un argtab[4]; + union meltparam_un restab[1]; memset(&argtab, 0, sizeof(argtab)); - /*^ojbmsend.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.MDATA__V23*/ meltfptr[22]; - /*^ojbmsend.arg*/ - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.CURMCASE__V2*/ meltfptr[1]; - /*^ojbmsend.arg*/ - argtab[2].bp_aptr = (melt_ptr_t*) &/*_.VARMAP__V27*/ meltfptr[26]; - /*^ojbmsend.arg*/ + memset(&restab, 0, sizeof(restab)); + /*^multimsend.arg*/ + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.MDATA__V26*/ meltfptr[25];/*^multimsend.arg*/ + argtab[1].bp_aptr = (melt_ptr_t*) &/*_.CURMCASE__V2*/ meltfptr[1];/*^multimsend.arg*/ + argtab[2].bp_aptr = (melt_ptr_t*) &/*_.VARMAP__V30*/ meltfptr[29];/*^multimsend.arg*/ argtab[3].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V3*/ meltfptr[2]; - /*_.MSTEP__V40*/ meltfptr[39] = meltgc_send((melt_ptr_t)(/*_.CURPAT__V20*/ meltfptr[19]), (melt_ptr_t)((/*!TRANSLATE_PATTERN*/ meltfrout->tabval[7])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; - MELT_LOCATION("warmelt-normatch.melt:3619:/ apply"); - /*apply*/{ - /*_.NEWENV__V41*/ meltfptr[40] = melt_apply ((meltclosure_ptr_t)((/*!FRESH_ENV*/ meltfrout->tabval[8])), (melt_ptr_t)(/*_.ENV__V25*/ meltfptr[24]), (""), (union meltparam_un*)0, "", (union meltparam_un*)0); + /*^multimsend.xres*/ + restab[0].bp_aptr = (melt_ptr_t*) &/*_.MFLAG__V45*/ meltfptr[44];/*^multimsend.send*/ + /*_.MSTEP__V44*/ meltfptr[43] = meltgc_send ((melt_ptr_t)(/*_.CURPAT__V23*/ meltfptr[22]), ((melt_ptr_t)((/*!TRANSLATE_PATTERN*/ meltfrout->tabval[8]))), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, (BPARSTR_PTR ""), restab); } ; + /*^quasiblock*/ + + #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normatch.melt:3621:/ cppif.then"); + MELT_LOCATION("warmelt-normatch.melt:4009:/ cppif.then"); /*^block*/ /*anyblock*/{ - /*_#THE_MELTCALLCOUNT__L14*/ meltfnum[8] = + /*_#THE_MELTCALLCOUNT__L15*/ meltfnum[9] = meltcallcount;; - MELT_LOCATION("warmelt-normatch.melt:3621:/ apply"); + MELT_LOCATION("warmelt-normatch.melt:4009:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].bp_cstring = "translate_matchcase got mstep"; /*^apply.arg*/ - argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L14*/ meltfnum[8]; + argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L15*/ meltfnum[9]; + /*^apply.arg*/ + argtab[2].bp_cstring = "warmelt-normatch.melt"; + /*^apply.arg*/ + argtab[3].bp_long = 4009; + /*_.DEBUG_MSG_FUN__V47*/ meltfptr[46] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.MSTEP__V44*/ meltfptr[43]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + } + ; + /*_.IFCPP___V46*/ meltfptr[45] = /*_.DEBUG_MSG_FUN__V47*/ meltfptr[46];; + /*epilog*/ + + MELT_LOCATION("warmelt-normatch.melt:4009:/ clear"); + /*clear*/ /*_#THE_MELTCALLCOUNT__L15*/ meltfnum[9] = 0 ; + /*^clear*/ + /*clear*/ /*_.DEBUG_MSG_FUN__V47*/ meltfptr[46] = 0 ;} + + #else /*ENABLE_CHECKING*/ + /*^cppif.else*/ + /*_.IFCPP___V46*/ meltfptr[45] = (/*nil*/NULL); + #endif /*ENABLE_CHECKING*/ + ; + + #if ENABLE_CHECKING + MELT_LOCATION("warmelt-normatch.melt:4010:/ cppif.then"); + /*^block*/ + /*anyblock*/{ + + /*_#THE_MELTCALLCOUNT__L16*/ meltfnum[9] = + meltcallcount;; + MELT_LOCATION("warmelt-normatch.melt:4010:/ apply"); + /*apply*/{ + union meltparam_un argtab[4]; + memset(&argtab, 0, sizeof(argtab)); + /*^apply.arg*/ + argtab[0].bp_cstring = "translate_matchcase got mflag"; + /*^apply.arg*/ + argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L16*/ meltfnum[9]; /*^apply.arg*/ argtab[2].bp_cstring = "warmelt-normatch.melt"; /*^apply.arg*/ - argtab[3].bp_long = 3621; - /*_.DEBUG_MSG_FUN__V43*/ meltfptr[42] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.MSTEP__V40*/ meltfptr[39]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + argtab[3].bp_long = 4010; + /*_.DEBUG_MSG_FUN__V49*/ meltfptr[48] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.MFLAG__V45*/ meltfptr[44]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; - /*_.IFCPP___V42*/ meltfptr[41] = /*_.DEBUG_MSG_FUN__V43*/ meltfptr[42];; + /*_.IFCPP___V48*/ meltfptr[46] = /*_.DEBUG_MSG_FUN__V49*/ meltfptr[48];; /*epilog*/ - MELT_LOCATION("warmelt-normatch.melt:3621:/ clear"); - /*clear*/ /*_#THE_MELTCALLCOUNT__L14*/ meltfnum[8] = 0 ; + MELT_LOCATION("warmelt-normatch.melt:4010:/ clear"); + /*clear*/ /*_#THE_MELTCALLCOUNT__L16*/ meltfnum[9] = 0 ; /*^clear*/ - /*clear*/ /*_.DEBUG_MSG_FUN__V43*/ meltfptr[42] = 0 ;} + /*clear*/ /*_.DEBUG_MSG_FUN__V49*/ meltfptr[48] = 0 ;} #else /*ENABLE_CHECKING*/ /*^cppif.else*/ - /*_.IFCPP___V42*/ meltfptr[41] = (/*nil*/NULL); + /*_.IFCPP___V48*/ meltfptr[46] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normatch.melt:3622:/ cppif.then"); + MELT_LOCATION("warmelt-normatch.melt:4011:/ cppif.then"); /*^block*/ /*anyblock*/{ - /*_#THE_MELTCALLCOUNT__L15*/ meltfnum[8] = + /*_#THE_MELTCALLCOUNT__L17*/ meltfnum[9] = meltcallcount;; - MELT_LOCATION("warmelt-normatch.melt:3622:/ apply"); + MELT_LOCATION("warmelt-normatch.melt:4011:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].bp_cstring = "translate_matchcase got curbody"; /*^apply.arg*/ - argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L15*/ meltfnum[8]; + argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L17*/ meltfnum[9]; /*^apply.arg*/ argtab[2].bp_cstring = "warmelt-normatch.melt"; /*^apply.arg*/ - argtab[3].bp_long = 3622; - /*_.DEBUG_MSG_FUN__V45*/ meltfptr[44] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.CURBODY__V21*/ meltfptr[20]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + argtab[3].bp_long = 4011; + /*_.DEBUG_MSG_FUN__V51*/ meltfptr[50] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.CURBODY__V24*/ meltfptr[23]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; - /*_.IFCPP___V44*/ meltfptr[42] = /*_.DEBUG_MSG_FUN__V45*/ meltfptr[44];; + /*_.IFCPP___V50*/ meltfptr[48] = /*_.DEBUG_MSG_FUN__V51*/ meltfptr[50];; /*epilog*/ - MELT_LOCATION("warmelt-normatch.melt:3622:/ clear"); - /*clear*/ /*_#THE_MELTCALLCOUNT__L15*/ meltfnum[8] = 0 ; + MELT_LOCATION("warmelt-normatch.melt:4011:/ clear"); + /*clear*/ /*_#THE_MELTCALLCOUNT__L17*/ meltfnum[9] = 0 ; /*^clear*/ - /*clear*/ /*_.DEBUG_MSG_FUN__V45*/ meltfptr[44] = 0 ;} + /*clear*/ /*_.DEBUG_MSG_FUN__V51*/ meltfptr[50] = 0 ;} #else /*ENABLE_CHECKING*/ /*^cppif.else*/ - /*_.IFCPP___V44*/ meltfptr[42] = (/*nil*/NULL); + /*_.IFCPP___V50*/ meltfptr[48] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normatch.melt:3623:/ cppif.then"); + MELT_LOCATION("warmelt-normatch.melt:4012:/ cppif.then"); /*^block*/ /*anyblock*/{ - /*_#THE_MELTCALLCOUNT__L16*/ meltfnum[8] = + /*_#THE_MELTCALLCOUNT__L18*/ meltfnum[9] = meltcallcount;; - MELT_LOCATION("warmelt-normatch.melt:3623:/ apply"); + MELT_LOCATION("warmelt-normatch.melt:4012:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].bp_cstring = "translate_matchcase got varmap"; /*^apply.arg*/ - argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L16*/ meltfnum[8]; + argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L18*/ meltfnum[9]; /*^apply.arg*/ argtab[2].bp_cstring = "warmelt-normatch.melt"; /*^apply.arg*/ - argtab[3].bp_long = 3623; - /*_.DEBUG_MSG_FUN__V47*/ meltfptr[46] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.VARMAP__V27*/ meltfptr[26]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + argtab[3].bp_long = 4012; + /*_.DEBUG_MSG_FUN__V53*/ meltfptr[52] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.VARMAP__V30*/ meltfptr[29]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; - /*_.IFCPP___V46*/ meltfptr[44] = /*_.DEBUG_MSG_FUN__V47*/ meltfptr[46];; + /*_.IFCPP___V52*/ meltfptr[50] = /*_.DEBUG_MSG_FUN__V53*/ meltfptr[52];; /*epilog*/ - MELT_LOCATION("warmelt-normatch.melt:3623:/ clear"); - /*clear*/ /*_#THE_MELTCALLCOUNT__L16*/ meltfnum[8] = 0 ; + MELT_LOCATION("warmelt-normatch.melt:4012:/ clear"); + /*clear*/ /*_#THE_MELTCALLCOUNT__L18*/ meltfnum[9] = 0 ; /*^clear*/ - /*clear*/ /*_.DEBUG_MSG_FUN__V47*/ meltfptr[46] = 0 ;} + /*clear*/ /*_.DEBUG_MSG_FUN__V53*/ meltfptr[52] = 0 ;} #else /*ENABLE_CHECKING*/ /*^cppif.else*/ - /*_.IFCPP___V46*/ meltfptr[44] = (/*nil*/NULL); + /*_.IFCPP___V52*/ meltfptr[50] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; /*citerblock FOREACH_IN_MAPOBJECT*/ { @@ -8147,32 +13690,32 @@ lab_endgetargs:; /* we retrieve in cit1__EACHOBMAP_siz the size at each iteration since it could change. */ cit1__EACHOBMAP_ix>=0 && (cit1__EACHOBMAP_siz= - melt_size_mapobjects((meltmapobjects_ptr_t)/*_.VARMAP__V27*/ meltfptr[26]))>0 + melt_size_mapobjects((meltmapobjects_ptr_t)/*_.VARMAP__V30*/ meltfptr[29]))>0 && cit1__EACHOBMAP_ix < cit1__EACHOBMAP_siz; cit1__EACHOBMAP_ix++) { - /*_.CURSYM__V48*/ meltfptr[46] = NULL; - /*_.CURMDATA__V49*/ meltfptr[48] = NULL; - /*_.CURSYM__V48*/ meltfptr[46] = ((meltmapobjects_ptr_t)/*_.VARMAP__V27*/ meltfptr[26])->entab[cit1__EACHOBMAP_ix].e_at; - if (/*_.CURSYM__V48*/ meltfptr[46] == HTAB_DELETED_ENTRY) { /*_.CURSYM__V48*/ meltfptr[46] = NULL; continue; }; - if (!/*_.CURSYM__V48*/ meltfptr[46]) continue; - /*_.CURMDATA__V49*/ meltfptr[48] = ((meltmapobjects_ptr_t)/*_.VARMAP__V27*/ meltfptr[26])->entab[cit1__EACHOBMAP_ix].e_va; - if (!/*_.CURMDATA__V49*/ meltfptr[48]) continue; + /*_.CURSYM__V54*/ meltfptr[52] = NULL; + /*_.CURMDATA__V55*/ meltfptr[54] = NULL; + /*_.CURSYM__V54*/ meltfptr[52] = ((meltmapobjects_ptr_t)/*_.VARMAP__V30*/ meltfptr[29])->entab[cit1__EACHOBMAP_ix].e_at; + if (/*_.CURSYM__V54*/ meltfptr[52] == HTAB_DELETED_ENTRY) { /*_.CURSYM__V54*/ meltfptr[52] = NULL; continue; }; + if (!/*_.CURSYM__V54*/ meltfptr[52]) continue; + /*_.CURMDATA__V55*/ meltfptr[54] = ((meltmapobjects_ptr_t)/*_.VARMAP__V30*/ meltfptr[29])->entab[cit1__EACHOBMAP_ix].e_va; + if (!/*_.CURMDATA__V55*/ meltfptr[54]) continue; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normatch.melt:3627:/ cppif.then"); + MELT_LOCATION("warmelt-normatch.melt:4016:/ cppif.then"); /*^block*/ /*anyblock*/{ - /*_#IS_A__L17*/ meltfnum[8] = - melt_is_instance_of((melt_ptr_t)(/*_.CURSYM__V48*/ meltfptr[46]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ meltfrout->tabval[9])));; - MELT_LOCATION("warmelt-normatch.melt:3627:/ cond"); - /*cond*/ if (/*_#IS_A__L17*/ meltfnum[8]) /*then*/ { + /*_#IS_A__L19*/ meltfnum[9] = + melt_is_instance_of((melt_ptr_t)(/*_.CURSYM__V54*/ meltfptr[52]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ meltfrout->tabval[9])));; + MELT_LOCATION("warmelt-normatch.melt:4016:/ cond"); + /*cond*/ if (/*_#IS_A__L19*/ meltfnum[9]) /*then*/ { /*^cond.then*/ - /*_.IFELSE___V51*/ meltfptr[50] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normatch.melt:3627:/ cond.else"); + /*_.IFELSE___V57*/ meltfptr[56] = (/*nil*/NULL);; + } else {MELT_LOCATION("warmelt-normatch.melt:4016:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -8183,10 +13726,10 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check cursym"),( "warmelt-normatch.melt")?( "warmelt-normatch.melt"):__FILE__, - (3627)?(3627):__LINE__, __FUNCTION__); + (4016)?(4016):__LINE__, __FUNCTION__); ;} ; - /*clear*/ /*_.IFELSE___V51*/ meltfptr[50] = 0 ; + /*clear*/ /*_.IFELSE___V57*/ meltfptr[56] = 0 ; /*epilog*/ } ; @@ -8194,32 +13737,32 @@ lab_endgetargs:; ; /*^compute*/ - /*_.IFCPP___V50*/ meltfptr[49] = /*_.IFELSE___V51*/ meltfptr[50];; + /*_.IFCPP___V56*/ meltfptr[55] = /*_.IFELSE___V57*/ meltfptr[56];; /*epilog*/ - MELT_LOCATION("warmelt-normatch.melt:3627:/ clear"); - /*clear*/ /*_#IS_A__L17*/ meltfnum[8] = 0 ; + MELT_LOCATION("warmelt-normatch.melt:4016:/ clear"); + /*clear*/ /*_#IS_A__L19*/ meltfnum[9] = 0 ; /*^clear*/ - /*clear*/ /*_.IFELSE___V51*/ meltfptr[50] = 0 ;} + /*clear*/ /*_.IFELSE___V57*/ meltfptr[56] = 0 ;} #else /*ENABLE_CHECKING*/ /*^cppif.else*/ - /*_.IFCPP___V50*/ meltfptr[49] = (/*nil*/NULL); + /*_.IFCPP___V56*/ meltfptr[55] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normatch.melt:3628:/ cppif.then"); + MELT_LOCATION("warmelt-normatch.melt:4017:/ cppif.then"); /*^block*/ /*anyblock*/{ - /*_#IS_A__L18*/ meltfnum[8] = - melt_is_instance_of((melt_ptr_t)(/*_.CURMDATA__V49*/ meltfptr[48]), (melt_ptr_t)((/*!CLASS_MATCHED_DATA*/ meltfrout->tabval[10])));; - MELT_LOCATION("warmelt-normatch.melt:3628:/ cond"); - /*cond*/ if (/*_#IS_A__L18*/ meltfnum[8]) /*then*/ { + /*_#IS_A__L20*/ meltfnum[9] = + melt_is_instance_of((melt_ptr_t)(/*_.CURMDATA__V55*/ meltfptr[54]), (melt_ptr_t)((/*!CLASS_MATCHED_DATA*/ meltfrout->tabval[10])));; + MELT_LOCATION("warmelt-normatch.melt:4017:/ cond"); + /*cond*/ if (/*_#IS_A__L20*/ meltfnum[9]) /*then*/ { /*^cond.then*/ - /*_.IFELSE___V53*/ meltfptr[52] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normatch.melt:3628:/ cond.else"); + /*_.IFELSE___V59*/ meltfptr[58] = (/*nil*/NULL);; + } else {MELT_LOCATION("warmelt-normatch.melt:4017:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -8230,10 +13773,10 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check curmdata"),( "warmelt-normatch.melt")?( "warmelt-normatch.melt"):__FILE__, - (3628)?(3628):__LINE__, __FUNCTION__); + (4017)?(4017):__LINE__, __FUNCTION__); ;} ; - /*clear*/ /*_.IFELSE___V53*/ meltfptr[52] = 0 ; + /*clear*/ /*_.IFELSE___V59*/ meltfptr[58] = 0 ; /*epilog*/ } ; @@ -8241,194 +13784,194 @@ lab_endgetargs:; ; /*^compute*/ - /*_.IFCPP___V52*/ meltfptr[50] = /*_.IFELSE___V53*/ meltfptr[52];; + /*_.IFCPP___V58*/ meltfptr[56] = /*_.IFELSE___V59*/ meltfptr[58];; /*epilog*/ - MELT_LOCATION("warmelt-normatch.melt:3628:/ clear"); - /*clear*/ /*_#IS_A__L18*/ meltfnum[8] = 0 ; + MELT_LOCATION("warmelt-normatch.melt:4017:/ clear"); + /*clear*/ /*_#IS_A__L20*/ meltfnum[9] = 0 ; /*^clear*/ - /*clear*/ /*_.IFELSE___V53*/ meltfptr[52] = 0 ;} + /*clear*/ /*_.IFELSE___V59*/ meltfptr[58] = 0 ;} #else /*ENABLE_CHECKING*/ /*^cppif.else*/ - /*_.IFCPP___V52*/ meltfptr[50] = (/*nil*/NULL); + /*_.IFCPP___V58*/ meltfptr[56] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-normatch.melt:3629:/ quasiblock"); + MELT_LOCATION("warmelt-normatch.melt:4018:/ quasiblock"); - /*_.MAKE_INTEGERBOX__V55*/ meltfptr[54] = + /*_.MAKE_INTEGERBOX__V61*/ meltfptr[60] = (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ meltfrout->tabval[12])), (0)));; - MELT_LOCATION("warmelt-normatch.melt:3629:/ quasiblock"); + MELT_LOCATION("warmelt-normatch.melt:4018:/ quasiblock"); /*^rawallocobj*/ /*rawallocobj*/ { melt_ptr_t newobj = 0; - melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_MATCHED_BINDING*/ meltfrout->tabval[11])), (3), "CLASS_MATCHED_BINDING");/*_.INST__V57*/ meltfptr[56] = + melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_MATCHED_BINDING*/ meltfrout->tabval[11])), (3), "CLASS_MATCHED_BINDING");/*_.INST__V63*/ meltfptr[62] = newobj; }; ; /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj @BINDER", melt_magic_discr((melt_ptr_t)(/*_.INST__V57*/ meltfptr[56])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V57*/ meltfptr[56]), (0), (/*_.CURSYM__V48*/ meltfptr[46]), "BINDER"); + melt_assertmsg("putslot checkobj @BINDER", melt_magic_discr((melt_ptr_t)(/*_.INST__V63*/ meltfptr[62])) == OBMAG_OBJECT); + melt_putfield_object((/*_.INST__V63*/ meltfptr[62]), (0), (/*_.CURSYM__V54*/ meltfptr[52]), "BINDER"); ; /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj @MATCHBIND_DATA", melt_magic_discr((melt_ptr_t)(/*_.INST__V57*/ meltfptr[56])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V57*/ meltfptr[56]), (1), (/*_.CURMDATA__V49*/ meltfptr[48]), "MATCHBIND_DATA"); + melt_assertmsg("putslot checkobj @MATCHBIND_DATA", melt_magic_discr((melt_ptr_t)(/*_.INST__V63*/ meltfptr[62])) == OBMAG_OBJECT); + melt_putfield_object((/*_.INST__V63*/ meltfptr[62]), (1), (/*_.CURMDATA__V55*/ meltfptr[54]), "MATCHBIND_DATA"); ; /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj @MATCHBIND_NBOCC", melt_magic_discr((melt_ptr_t)(/*_.INST__V57*/ meltfptr[56])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V57*/ meltfptr[56]), (2), (/*_.MAKE_INTEGERBOX__V55*/ meltfptr[54]), "MATCHBIND_NBOCC"); + melt_assertmsg("putslot checkobj @MATCHBIND_NBOCC", melt_magic_discr((melt_ptr_t)(/*_.INST__V63*/ meltfptr[62])) == OBMAG_OBJECT); + melt_putfield_object((/*_.INST__V63*/ meltfptr[62]), (2), (/*_.MAKE_INTEGERBOX__V61*/ meltfptr[60]), "MATCHBIND_NBOCC"); ; - /*_.MATCHBIND__V56*/ meltfptr[55] = /*_.INST__V57*/ meltfptr[56];; + /*_.MATCHBIND__V62*/ meltfptr[61] = /*_.INST__V63*/ meltfptr[62];; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normatch.melt:3635:/ cppif.then"); + MELT_LOCATION("warmelt-normatch.melt:4024:/ cppif.then"); /*^block*/ /*anyblock*/{ - /*_#THE_MELTCALLCOUNT__L19*/ meltfnum[8] = + /*_#THE_MELTCALLCOUNT__L21*/ meltfnum[9] = meltcallcount;; - MELT_LOCATION("warmelt-normatch.melt:3635:/ apply"); + MELT_LOCATION("warmelt-normatch.melt:4024:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].bp_cstring = "translate_matchcase matchbind"; /*^apply.arg*/ - argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L19*/ meltfnum[8]; + argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L21*/ meltfnum[9]; /*^apply.arg*/ argtab[2].bp_cstring = "warmelt-normatch.melt"; /*^apply.arg*/ - argtab[3].bp_long = 3635; - /*_.DEBUG_MSG_FUN__V59*/ meltfptr[58] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.MATCHBIND__V56*/ meltfptr[55]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + argtab[3].bp_long = 4024; + /*_.DEBUG_MSG_FUN__V65*/ meltfptr[64] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.MATCHBIND__V62*/ meltfptr[61]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; - /*_.IFCPP___V58*/ meltfptr[57] = /*_.DEBUG_MSG_FUN__V59*/ meltfptr[58];; + /*_.IFCPP___V64*/ meltfptr[63] = /*_.DEBUG_MSG_FUN__V65*/ meltfptr[64];; /*epilog*/ - MELT_LOCATION("warmelt-normatch.melt:3635:/ clear"); - /*clear*/ /*_#THE_MELTCALLCOUNT__L19*/ meltfnum[8] = 0 ; + MELT_LOCATION("warmelt-normatch.melt:4024:/ clear"); + /*clear*/ /*_#THE_MELTCALLCOUNT__L21*/ meltfnum[9] = 0 ; /*^clear*/ - /*clear*/ /*_.DEBUG_MSG_FUN__V59*/ meltfptr[58] = 0 ;} + /*clear*/ /*_.DEBUG_MSG_FUN__V65*/ meltfptr[64] = 0 ;} #else /*ENABLE_CHECKING*/ /*^cppif.else*/ - /*_.IFCPP___V58*/ meltfptr[57] = (/*nil*/NULL); + /*_.IFCPP___V64*/ meltfptr[63] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-normatch.melt:3636:/ apply"); + MELT_LOCATION("warmelt-normatch.melt:4025:/ apply"); /*apply*/{ union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.MATCHBIND__V56*/ meltfptr[55]; - /*_.PUT_ENV__V60*/ meltfptr[58] = melt_apply ((meltclosure_ptr_t)((/*!PUT_ENV*/ meltfrout->tabval[13])), (melt_ptr_t)(/*_.NEWENV__V41*/ meltfptr[40]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.MATCHBIND__V62*/ meltfptr[61]; + /*_.PUT_ENV__V66*/ meltfptr[64] = melt_apply ((meltclosure_ptr_t)((/*!PUT_ENV*/ meltfrout->tabval[13])), (melt_ptr_t)(/*_.NEWENV__V32*/ meltfptr[31]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_.LET___V54*/ meltfptr[52] = /*_.PUT_ENV__V60*/ meltfptr[58];; + /*_.LET___V60*/ meltfptr[58] = /*_.PUT_ENV__V66*/ meltfptr[64];; - MELT_LOCATION("warmelt-normatch.melt:3629:/ clear"); - /*clear*/ /*_.MAKE_INTEGERBOX__V55*/ meltfptr[54] = 0 ; + MELT_LOCATION("warmelt-normatch.melt:4018:/ clear"); + /*clear*/ /*_.MAKE_INTEGERBOX__V61*/ meltfptr[60] = 0 ; /*^clear*/ - /*clear*/ /*_.MATCHBIND__V56*/ meltfptr[55] = 0 ; + /*clear*/ /*_.MATCHBIND__V62*/ meltfptr[61] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V58*/ meltfptr[57] = 0 ; + /*clear*/ /*_.IFCPP___V64*/ meltfptr[63] = 0 ; /*^clear*/ - /*clear*/ /*_.PUT_ENV__V60*/ meltfptr[58] = 0 ; + /*clear*/ /*_.PUT_ENV__V66*/ meltfptr[64] = 0 ; /* end cit1__EACHOBMAP */ - /*_.CURSYM__V48*/ meltfptr[46] = NULL; - /*_.CURMDATA__V49*/ meltfptr[48] = NULL; } + /*_.CURSYM__V54*/ meltfptr[52] = NULL; + /*_.CURMDATA__V55*/ meltfptr[54] = NULL; } /*citerepilog*/ - MELT_LOCATION("warmelt-normatch.melt:3624:/ clear"); - /*clear*/ /*_.CURSYM__V48*/ meltfptr[46] = 0 ; + MELT_LOCATION("warmelt-normatch.melt:4013:/ clear"); + /*clear*/ /*_.CURSYM__V54*/ meltfptr[52] = 0 ; /*^clear*/ - /*clear*/ /*_.CURMDATA__V49*/ meltfptr[48] = 0 ; + /*clear*/ /*_.CURMDATA__V55*/ meltfptr[54] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V50*/ meltfptr[49] = 0 ; + /*clear*/ /*_.IFCPP___V56*/ meltfptr[55] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V52*/ meltfptr[50] = 0 ; + /*clear*/ /*_.IFCPP___V58*/ meltfptr[56] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V54*/ meltfptr[52] = 0 ;} /*endciterblock FOREACH_IN_MAPOBJECT*/ + /*clear*/ /*_.LET___V60*/ meltfptr[58] = 0 ;} /*endciterblock FOREACH_IN_MAPOBJECT*/ ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normatch.melt:3638:/ cppif.then"); + MELT_LOCATION("warmelt-normatch.melt:4027:/ cppif.then"); /*^block*/ /*anyblock*/{ - /*_#THE_MELTCALLCOUNT__L20*/ meltfnum[8] = + /*_#THE_MELTCALLCOUNT__L22*/ meltfnum[9] = meltcallcount;; - MELT_LOCATION("warmelt-normatch.melt:3638:/ apply"); + MELT_LOCATION("warmelt-normatch.melt:4027:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].bp_cstring = "translate_matchcase updated newenv"; /*^apply.arg*/ - argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L20*/ meltfnum[8]; + argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L22*/ meltfnum[9]; /*^apply.arg*/ argtab[2].bp_cstring = "warmelt-normatch.melt"; /*^apply.arg*/ - argtab[3].bp_long = 3638; - /*_.DEBUG_MSG_FUN__V62*/ meltfptr[55] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.NEWENV__V41*/ meltfptr[40]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + argtab[3].bp_long = 4027; + /*_.DEBUG_MSG_FUN__V68*/ meltfptr[61] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.NEWENV__V32*/ meltfptr[31]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; - /*_.IFCPP___V61*/ meltfptr[54] = /*_.DEBUG_MSG_FUN__V62*/ meltfptr[55];; + /*_.IFCPP___V67*/ meltfptr[60] = /*_.DEBUG_MSG_FUN__V68*/ meltfptr[61];; /*epilog*/ - MELT_LOCATION("warmelt-normatch.melt:3638:/ clear"); - /*clear*/ /*_#THE_MELTCALLCOUNT__L20*/ meltfnum[8] = 0 ; + MELT_LOCATION("warmelt-normatch.melt:4027:/ clear"); + /*clear*/ /*_#THE_MELTCALLCOUNT__L22*/ meltfnum[9] = 0 ; /*^clear*/ - /*clear*/ /*_.DEBUG_MSG_FUN__V62*/ meltfptr[55] = 0 ;} + /*clear*/ /*_.DEBUG_MSG_FUN__V68*/ meltfptr[61] = 0 ;} #else /*ENABLE_CHECKING*/ /*^cppif.else*/ - /*_.IFCPP___V61*/ meltfptr[54] = (/*nil*/NULL); + /*_.IFCPP___V67*/ meltfptr[60] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normatch.melt:3639:/ cppif.then"); + MELT_LOCATION("warmelt-normatch.melt:4028:/ cppif.then"); /*^block*/ /*anyblock*/{ - /*_#THE_MELTCALLCOUNT__L21*/ meltfnum[8] = + /*_#THE_MELTCALLCOUNT__L23*/ meltfnum[9] = meltcallcount;; - MELT_LOCATION("warmelt-normatch.melt:3639:/ apply"); + MELT_LOCATION("warmelt-normatch.melt:4028:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].bp_cstring = "translate_matchcase before normalizing curbody"; /*^apply.arg*/ - argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L21*/ meltfnum[8]; + argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L23*/ meltfnum[9]; /*^apply.arg*/ argtab[2].bp_cstring = "warmelt-normatch.melt"; /*^apply.arg*/ - argtab[3].bp_long = 3639; - /*_.DEBUG_MSG_FUN__V64*/ meltfptr[58] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.CURBODY__V21*/ meltfptr[20]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + argtab[3].bp_long = 4028; + /*_.DEBUG_MSG_FUN__V70*/ meltfptr[64] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.CURBODY__V24*/ meltfptr[23]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; - /*_.IFCPP___V63*/ meltfptr[57] = /*_.DEBUG_MSG_FUN__V64*/ meltfptr[58];; + /*_.IFCPP___V69*/ meltfptr[63] = /*_.DEBUG_MSG_FUN__V70*/ meltfptr[64];; /*epilog*/ - MELT_LOCATION("warmelt-normatch.melt:3639:/ clear"); - /*clear*/ /*_#THE_MELTCALLCOUNT__L21*/ meltfnum[8] = 0 ; + MELT_LOCATION("warmelt-normatch.melt:4028:/ clear"); + /*clear*/ /*_#THE_MELTCALLCOUNT__L23*/ meltfnum[9] = 0 ; /*^clear*/ - /*clear*/ /*_.DEBUG_MSG_FUN__V64*/ meltfptr[58] = 0 ;} + /*clear*/ /*_.DEBUG_MSG_FUN__V70*/ meltfptr[64] = 0 ;} #else /*ENABLE_CHECKING*/ /*^cppif.else*/ - /*_.IFCPP___V63*/ meltfptr[57] = (/*nil*/NULL); + /*_.IFCPP___V69*/ meltfptr[63] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-normatch.melt:3640:/ quasiblock"); + MELT_LOCATION("warmelt-normatch.melt:4029:/ quasiblock"); /*^multiapply*/ @@ -8439,13 +13982,13 @@ lab_endgetargs:; memset(&restab, 0, sizeof(restab)); memset(&argtab, 0, sizeof(argtab)); /*^multiapply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NEWENV__V41*/ meltfptr[40];/*^multiapply.arg*/ - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.NCX__V24*/ meltfptr[23];/*^multiapply.arg*/ + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NEWENV__V32*/ meltfptr[31];/*^multiapply.arg*/ + argtab[1].bp_aptr = (melt_ptr_t*) &/*_.NCX__V27*/ meltfptr[26];/*^multiapply.arg*/ argtab[2].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V3*/ meltfptr[2]; /*^multiapply.xres*/ - restab[0].bp_aptr = (melt_ptr_t*) &/*_.NBINDS__V67*/ meltfptr[66]; + restab[0].bp_aptr = (melt_ptr_t*) &/*_.NBINDS__V73*/ meltfptr[72]; /*^multiapply.appl*/ - /*_.NBODY__V66*/ meltfptr[58] = melt_apply ((meltclosure_ptr_t)((/*!NORMALIZE_TUPLE*/ meltfrout->tabval[14])), (melt_ptr_t)(/*_.CURBODY__V21*/ meltfptr[20]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, (BPARSTR_PTR ""), restab); + /*_.NBODY__V72*/ meltfptr[64] = melt_apply ((meltclosure_ptr_t)((/*!NORMALIZE_TUPLE*/ meltfrout->tabval[14])), (melt_ptr_t)(/*_.CURBODY__V24*/ meltfptr[23]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, (BPARSTR_PTR ""), restab); } ; /*^quasiblock*/ @@ -8453,246 +13996,251 @@ lab_endgetargs:; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normatch.melt:3643:/ cppif.then"); + MELT_LOCATION("warmelt-normatch.melt:4032:/ cppif.then"); /*^block*/ /*anyblock*/{ - /*_#THE_MELTCALLCOUNT__L22*/ meltfnum[8] = + /*_#THE_MELTCALLCOUNT__L24*/ meltfnum[9] = meltcallcount;; - MELT_LOCATION("warmelt-normatch.melt:3643:/ apply"); + MELT_LOCATION("warmelt-normatch.melt:4032:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].bp_cstring = "translate_matchcase nbody after body normalization"; /*^apply.arg*/ - argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L22*/ meltfnum[8]; + argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L24*/ meltfnum[9]; /*^apply.arg*/ argtab[2].bp_cstring = "warmelt-normatch.melt"; /*^apply.arg*/ - argtab[3].bp_long = 3643; - /*_.DEBUG_MSG_FUN__V69*/ meltfptr[68] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.NBODY__V66*/ meltfptr[58]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + argtab[3].bp_long = 4032; + /*_.DEBUG_MSG_FUN__V75*/ meltfptr[74] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.NBODY__V72*/ meltfptr[64]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; - /*_.IFCPP___V68*/ meltfptr[67] = /*_.DEBUG_MSG_FUN__V69*/ meltfptr[68];; + /*_.IFCPP___V74*/ meltfptr[73] = /*_.DEBUG_MSG_FUN__V75*/ meltfptr[74];; /*epilog*/ - MELT_LOCATION("warmelt-normatch.melt:3643:/ clear"); - /*clear*/ /*_#THE_MELTCALLCOUNT__L22*/ meltfnum[8] = 0 ; + MELT_LOCATION("warmelt-normatch.melt:4032:/ clear"); + /*clear*/ /*_#THE_MELTCALLCOUNT__L24*/ meltfnum[9] = 0 ; /*^clear*/ - /*clear*/ /*_.DEBUG_MSG_FUN__V69*/ meltfptr[68] = 0 ;} + /*clear*/ /*_.DEBUG_MSG_FUN__V75*/ meltfptr[74] = 0 ;} #else /*ENABLE_CHECKING*/ /*^cppif.else*/ - /*_.IFCPP___V68*/ meltfptr[67] = (/*nil*/NULL); + /*_.IFCPP___V74*/ meltfptr[73] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normatch.melt:3644:/ cppif.then"); + MELT_LOCATION("warmelt-normatch.melt:4033:/ cppif.then"); /*^block*/ /*anyblock*/{ - /*_#THE_MELTCALLCOUNT__L23*/ meltfnum[8] = + /*_#THE_MELTCALLCOUNT__L25*/ meltfnum[9] = meltcallcount;; - MELT_LOCATION("warmelt-normatch.melt:3644:/ apply"); + MELT_LOCATION("warmelt-normatch.melt:4033:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].bp_cstring = "translate_matchcase nbinds after body normalization"; /*^apply.arg*/ - argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L23*/ meltfnum[8]; + argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L25*/ meltfnum[9]; /*^apply.arg*/ argtab[2].bp_cstring = "warmelt-normatch.melt"; /*^apply.arg*/ - argtab[3].bp_long = 3644; - /*_.DEBUG_MSG_FUN__V71*/ meltfptr[70] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.NBINDS__V67*/ meltfptr[66]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + argtab[3].bp_long = 4033; + /*_.DEBUG_MSG_FUN__V77*/ meltfptr[76] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.NBINDS__V73*/ meltfptr[72]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; - /*_.IFCPP___V70*/ meltfptr[68] = /*_.DEBUG_MSG_FUN__V71*/ meltfptr[70];; + /*_.IFCPP___V76*/ meltfptr[74] = /*_.DEBUG_MSG_FUN__V77*/ meltfptr[76];; /*epilog*/ - MELT_LOCATION("warmelt-normatch.melt:3644:/ clear"); - /*clear*/ /*_#THE_MELTCALLCOUNT__L23*/ meltfnum[8] = 0 ; + MELT_LOCATION("warmelt-normatch.melt:4033:/ clear"); + /*clear*/ /*_#THE_MELTCALLCOUNT__L25*/ meltfnum[9] = 0 ; /*^clear*/ - /*clear*/ /*_.DEBUG_MSG_FUN__V71*/ meltfptr[70] = 0 ;} + /*clear*/ /*_.DEBUG_MSG_FUN__V77*/ meltfptr[76] = 0 ;} #else /*ENABLE_CHECKING*/ /*^cppif.else*/ - /*_.IFCPP___V70*/ meltfptr[68] = (/*nil*/NULL); + /*_.IFCPP___V76*/ meltfptr[74] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-normatch.melt:3645:/ quasiblock"); + MELT_LOCATION("warmelt-normatch.melt:4034:/ quasiblock"); - /*_.LISTVAROCC__V73*/ meltfptr[72] = + /*_.LISTVAROCC__V79*/ meltfptr[78] = (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ meltfrout->tabval[15]))));; - MELT_LOCATION("warmelt-normatch.melt:3647:/ cond"); - /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.NEWENV__V41*/ meltfptr[40]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ meltfrout->tabval[6])))) /*then*/ { + MELT_LOCATION("warmelt-normatch.melt:4036:/ cond"); + /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.NEWENV__V32*/ meltfptr[31]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ meltfrout->tabval[7])))) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.NEWENV__V41*/ meltfptr[40]), 0, "ENV_BIND");/*_.NEWBINDMAP__V74*/ meltfptr[73] = slot; }; + melt_object_get_field(slot,(melt_ptr_t)(/*_.NEWENV__V32*/ meltfptr[31]), 0, "ENV_BIND");/*_.NEWBINDMAP__V80*/ meltfptr[79] = slot; }; ; } else {/*^cond.else*/ - /*_.NEWBINDMAP__V74*/ meltfptr[73] = NULL;; + /*_.NEWBINDMAP__V80*/ meltfptr[79] = NULL;; } ; - MELT_LOCATION("warmelt-normatch.melt:3648:/ quasiblock"); + MELT_LOCATION("warmelt-normatch.melt:4037:/ quasiblock"); /*^rawallocobj*/ /*rawallocobj*/ { melt_ptr_t newobj = 0; - melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_MATCH_STEP_SUCCESS*/ meltfrout->tabval[16])), (7), "CLASS_MATCH_STEP_SUCCESS");/*_.INST__V76*/ meltfptr[75] = + melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_MATCH_STEP_SUCCESS*/ meltfrout->tabval[16])), (8), "CLASS_MATCH_STEP_SUCCESS");/*_.INST__V82*/ meltfptr[81] = newobj; }; ; /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj @LOCA_LOCATION", melt_magic_discr((melt_ptr_t)(/*_.INST__V76*/ meltfptr[75])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V76*/ meltfptr[75]), (1), (/*_.SLOC__V3*/ meltfptr[2]), "LOCA_LOCATION"); + melt_assertmsg("putslot checkobj @LOCA_LOCATION", melt_magic_discr((melt_ptr_t)(/*_.INST__V82*/ meltfptr[81])) == OBMAG_OBJECT); + melt_putfield_object((/*_.INST__V82*/ meltfptr[81]), (1), (/*_.SLOC__V3*/ meltfptr[2]), "LOCA_LOCATION"); + ; + /*^putslot*/ + /*putslot*/ + melt_assertmsg("putslot checkobj @MSTEP_DATA", melt_magic_discr((melt_ptr_t)(/*_.INST__V82*/ meltfptr[81])) == OBMAG_OBJECT); + melt_putfield_object((/*_.INST__V82*/ meltfptr[81]), (2), (/*_.MDATA__V26*/ meltfptr[25]), "MSTEP_DATA"); ; /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj @MSTEP_DATA", melt_magic_discr((melt_ptr_t)(/*_.INST__V76*/ meltfptr[75])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V76*/ meltfptr[75]), (2), (/*_.MDATA__V23*/ meltfptr[22]), "MSTEP_DATA"); + melt_assertmsg("putslot checkobj @MSTEP_THEN", melt_magic_discr((melt_ptr_t)(/*_.INST__V82*/ meltfptr[81])) == OBMAG_OBJECT); + melt_putfield_object((/*_.INST__V82*/ meltfptr[81]), (3), ((/*nil*/NULL)), "MSTEP_THEN"); ; /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj @MSTEP_THEN", melt_magic_discr((melt_ptr_t)(/*_.INST__V76*/ meltfptr[75])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V76*/ meltfptr[75]), (3), ((/*nil*/NULL)), "MSTEP_THEN"); + melt_assertmsg("putslot checkobj @MSTEPSUCCESS_FLAG", melt_magic_discr((melt_ptr_t)(/*_.INST__V82*/ meltfptr[81])) == OBMAG_OBJECT); + melt_putfield_object((/*_.INST__V82*/ meltfptr[81]), (4), (/*_.MFLAG__V45*/ meltfptr[44]), "MSTEPSUCCESS_FLAG"); ; /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj @MSTEPSUCCESS_VAROCC", melt_magic_discr((melt_ptr_t)(/*_.INST__V76*/ meltfptr[75])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V76*/ meltfptr[75]), (4), ((/*nil*/NULL)), "MSTEPSUCCESS_VAROCC"); + melt_assertmsg("putslot checkobj @MSTEPSUCCESS_VAROCC", melt_magic_discr((melt_ptr_t)(/*_.INST__V82*/ meltfptr[81])) == OBMAG_OBJECT); + melt_putfield_object((/*_.INST__V82*/ meltfptr[81]), (5), ((/*nil*/NULL)), "MSTEPSUCCESS_VAROCC"); ; /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj @MSTEPSUCCESS_BINDS", melt_magic_discr((melt_ptr_t)(/*_.INST__V76*/ meltfptr[75])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V76*/ meltfptr[75]), (5), (/*_.NBINDS__V67*/ meltfptr[66]), "MSTEPSUCCESS_BINDS"); + melt_assertmsg("putslot checkobj @MSTEPSUCCESS_BINDS", melt_magic_discr((melt_ptr_t)(/*_.INST__V82*/ meltfptr[81])) == OBMAG_OBJECT); + melt_putfield_object((/*_.INST__V82*/ meltfptr[81]), (6), (/*_.NBINDS__V73*/ meltfptr[72]), "MSTEPSUCCESS_BINDS"); ; /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj @MSTEPSUCCESS_BODY", melt_magic_discr((melt_ptr_t)(/*_.INST__V76*/ meltfptr[75])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V76*/ meltfptr[75]), (6), (/*_.NBODY__V66*/ meltfptr[58]), "MSTEPSUCCESS_BODY"); + melt_assertmsg("putslot checkobj @MSTEPSUCCESS_BODY", melt_magic_discr((melt_ptr_t)(/*_.INST__V82*/ meltfptr[81])) == OBMAG_OBJECT); + melt_putfield_object((/*_.INST__V82*/ meltfptr[81]), (7), (/*_.NBODY__V72*/ meltfptr[64]), "MSTEPSUCCESS_BODY"); ; - /*_.STEPSUCC__V75*/ meltfptr[74] = /*_.INST__V76*/ meltfptr[75];; + /*_.STEPSUCC__V81*/ meltfptr[80] = /*_.INST__V82*/ meltfptr[81];; /*citerblock FOREACH_IN_MAPOBJECT*/ { /*cit2__EACHOBMAP :*/ int cit2__EACHOBMAP_ix=0, cit2__EACHOBMAP_siz=0; for (cit2__EACHOBMAP_ix=0; /* we retrieve in cit2__EACHOBMAP_siz the size at each iteration since it could change. */ cit2__EACHOBMAP_ix>=0 && (cit2__EACHOBMAP_siz= - melt_size_mapobjects((meltmapobjects_ptr_t)/*_.NEWBINDMAP__V74*/ meltfptr[73]))>0 + melt_size_mapobjects((meltmapobjects_ptr_t)/*_.NEWBINDMAP__V80*/ meltfptr[79]))>0 && cit2__EACHOBMAP_ix < cit2__EACHOBMAP_siz; cit2__EACHOBMAP_ix++) { - /*_.BSYMB__V77*/ meltfptr[76] = NULL; - /*_.BINDING__V78*/ meltfptr[77] = NULL; - /*_.BSYMB__V77*/ meltfptr[76] = ((meltmapobjects_ptr_t)/*_.NEWBINDMAP__V74*/ meltfptr[73])->entab[cit2__EACHOBMAP_ix].e_at; - if (/*_.BSYMB__V77*/ meltfptr[76] == HTAB_DELETED_ENTRY) { /*_.BSYMB__V77*/ meltfptr[76] = NULL; continue; }; - if (!/*_.BSYMB__V77*/ meltfptr[76]) continue; - /*_.BINDING__V78*/ meltfptr[77] = ((meltmapobjects_ptr_t)/*_.NEWBINDMAP__V74*/ meltfptr[73])->entab[cit2__EACHOBMAP_ix].e_va; - if (!/*_.BINDING__V78*/ meltfptr[77]) continue; + /*_.BSYMB__V83*/ meltfptr[82] = NULL; + /*_.BINDING__V84*/ meltfptr[83] = NULL; + /*_.BSYMB__V83*/ meltfptr[82] = ((meltmapobjects_ptr_t)/*_.NEWBINDMAP__V80*/ meltfptr[79])->entab[cit2__EACHOBMAP_ix].e_at; + if (/*_.BSYMB__V83*/ meltfptr[82] == HTAB_DELETED_ENTRY) { /*_.BSYMB__V83*/ meltfptr[82] = NULL; continue; }; + if (!/*_.BSYMB__V83*/ meltfptr[82]) continue; + /*_.BINDING__V84*/ meltfptr[83] = ((meltmapobjects_ptr_t)/*_.NEWBINDMAP__V80*/ meltfptr[79])->entab[cit2__EACHOBMAP_ix].e_va; + if (!/*_.BINDING__V84*/ meltfptr[83]) continue; - /*_#IS_A__L24*/ meltfnum[8] = - melt_is_instance_of((melt_ptr_t)(/*_.BINDING__V78*/ meltfptr[77]), (melt_ptr_t)((/*!CLASS_MATCHED_BINDING*/ meltfrout->tabval[11])));; - MELT_LOCATION("warmelt-normatch.melt:3660:/ cond"); - /*cond*/ if (/*_#IS_A__L24*/ meltfnum[8]) /*then*/ { + /*_#IS_A__L26*/ meltfnum[9] = + melt_is_instance_of((melt_ptr_t)(/*_.BINDING__V84*/ meltfptr[83]), (melt_ptr_t)((/*!CLASS_MATCHED_BINDING*/ meltfrout->tabval[11])));; + MELT_LOCATION("warmelt-normatch.melt:4050:/ cond"); + /*cond*/ if (/*_#IS_A__L26*/ meltfnum[9]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-normatch.melt:3661:/ getslot"); + MELT_LOCATION("warmelt-normatch.melt:4051:/ getslot"); { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.BINDING__V78*/ meltfptr[77]), 2, "MATCHBIND_NBOCC");/*_.MATCHBIND_NBOCC__V79*/ meltfptr[78] = slot; }; + melt_object_get_field(slot,(melt_ptr_t)(/*_.BINDING__V84*/ meltfptr[83]), 2, "MATCHBIND_NBOCC");/*_.MATCHBIND_NBOCC__V85*/ meltfptr[84] = slot; }; ; - /*_#GET_INT__L26*/ meltfnum[25] = - (melt_get_int((melt_ptr_t)(/*_.MATCHBIND_NBOCC__V79*/ meltfptr[78])));; + /*_#GET_INT__L28*/ meltfnum[27] = + (melt_get_int((melt_ptr_t)(/*_.MATCHBIND_NBOCC__V85*/ meltfptr[84])));; /*^compute*/ - /*_#I__L27*/ meltfnum[26] = - ((/*_#GET_INT__L26*/ meltfnum[25]) > (0));; + /*_#I__L29*/ meltfnum[28] = + ((/*_#GET_INT__L28*/ meltfnum[27]) > (0));; /*^compute*/ - /*_#IF___L25*/ meltfnum[24] = /*_#I__L27*/ meltfnum[26];; + /*_#IF___L27*/ meltfnum[26] = /*_#I__L29*/ meltfnum[28];; /*epilog*/ - MELT_LOCATION("warmelt-normatch.melt:3660:/ clear"); - /*clear*/ /*_.MATCHBIND_NBOCC__V79*/ meltfptr[78] = 0 ; + MELT_LOCATION("warmelt-normatch.melt:4050:/ clear"); + /*clear*/ /*_.MATCHBIND_NBOCC__V85*/ meltfptr[84] = 0 ; /*^clear*/ - /*clear*/ /*_#GET_INT__L26*/ meltfnum[25] = 0 ; + /*clear*/ /*_#GET_INT__L28*/ meltfnum[27] = 0 ; /*^clear*/ - /*clear*/ /*_#I__L27*/ meltfnum[26] = 0 ;} + /*clear*/ /*_#I__L29*/ meltfnum[28] = 0 ;} ; } else {/*^cond.else*/ - /*_#IF___L25*/ meltfnum[24] = 0;; + /*_#IF___L27*/ meltfnum[26] = 0;; } ; - MELT_LOCATION("warmelt-normatch.melt:3660:/ cond"); - /*cond*/ if (/*_#IF___L25*/ meltfnum[24]) /*then*/ { + MELT_LOCATION("warmelt-normatch.melt:4050:/ cond"); + /*cond*/ if (/*_#IF___L27*/ meltfnum[26]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-normatch.melt:3662:/ quasiblock"); + MELT_LOCATION("warmelt-normatch.melt:4052:/ quasiblock"); - /*_.SYOCC__V80*/ meltfptr[78] = - melt_get_mapobjects((meltmapobjects_ptr_t)(/*_.SYCMAP__V28*/ meltfptr[27]), (meltobject_ptr_t)(/*_.BSYMB__V77*/ meltfptr[76]));; + /*_.SYOCC__V86*/ meltfptr[84] = + melt_get_mapobjects((meltmapobjects_ptr_t)(/*_.SYCMAP__V31*/ meltfptr[30]), (meltobject_ptr_t)(/*_.BSYMB__V83*/ meltfptr[82]));; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normatch.melt:3664:/ cppif.then"); + MELT_LOCATION("warmelt-normatch.melt:4054:/ cppif.then"); /*^block*/ /*anyblock*/{ - /*_#THE_MELTCALLCOUNT__L28*/ meltfnum[25] = + /*_#THE_MELTCALLCOUNT__L30*/ meltfnum[27] = meltcallcount;; - MELT_LOCATION("warmelt-normatch.melt:3664:/ apply"); + MELT_LOCATION("warmelt-normatch.melt:4054:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].bp_cstring = "translate_matchcase found syocc"; /*^apply.arg*/ - argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L28*/ meltfnum[25]; + argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L30*/ meltfnum[27]; /*^apply.arg*/ argtab[2].bp_cstring = "warmelt-normatch.melt"; /*^apply.arg*/ - argtab[3].bp_long = 3664; - /*_.DEBUG_MSG_FUN__V82*/ meltfptr[81] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.SYOCC__V80*/ meltfptr[78]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + argtab[3].bp_long = 4054; + /*_.DEBUG_MSG_FUN__V88*/ meltfptr[87] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.SYOCC__V86*/ meltfptr[84]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; - /*_.IFCPP___V81*/ meltfptr[80] = /*_.DEBUG_MSG_FUN__V82*/ meltfptr[81];; + /*_.IFCPP___V87*/ meltfptr[86] = /*_.DEBUG_MSG_FUN__V88*/ meltfptr[87];; /*epilog*/ - MELT_LOCATION("warmelt-normatch.melt:3664:/ clear"); - /*clear*/ /*_#THE_MELTCALLCOUNT__L28*/ meltfnum[25] = 0 ; + MELT_LOCATION("warmelt-normatch.melt:4054:/ clear"); + /*clear*/ /*_#THE_MELTCALLCOUNT__L30*/ meltfnum[27] = 0 ; /*^clear*/ - /*clear*/ /*_.DEBUG_MSG_FUN__V82*/ meltfptr[81] = 0 ;} + /*clear*/ /*_.DEBUG_MSG_FUN__V88*/ meltfptr[87] = 0 ;} #else /*ENABLE_CHECKING*/ /*^cppif.else*/ - /*_.IFCPP___V81*/ meltfptr[80] = (/*nil*/NULL); + /*_.IFCPP___V87*/ meltfptr[86] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normatch.melt:3665:/ cppif.then"); + MELT_LOCATION("warmelt-normatch.melt:4055:/ cppif.then"); /*^block*/ /*anyblock*/{ - /*_#IS_A__L29*/ meltfnum[26] = - melt_is_instance_of((melt_ptr_t)(/*_.SYOCC__V80*/ meltfptr[78]), (melt_ptr_t)((/*!CLASS_NREP_LOCSYMOCC*/ meltfrout->tabval[17])));; - MELT_LOCATION("warmelt-normatch.melt:3665:/ cond"); - /*cond*/ if (/*_#IS_A__L29*/ meltfnum[26]) /*then*/ { + /*_#IS_A__L31*/ meltfnum[28] = + melt_is_instance_of((melt_ptr_t)(/*_.SYOCC__V86*/ meltfptr[84]), (melt_ptr_t)((/*!CLASS_NREP_LOCSYMOCC*/ meltfrout->tabval[17])));; + MELT_LOCATION("warmelt-normatch.melt:4055:/ cond"); + /*cond*/ if (/*_#IS_A__L31*/ meltfnum[28]) /*then*/ { /*^cond.then*/ - /*_.IFELSE___V84*/ meltfptr[83] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normatch.melt:3665:/ cond.else"); + /*_.IFELSE___V90*/ meltfptr[89] = (/*nil*/NULL);; + } else {MELT_LOCATION("warmelt-normatch.melt:4055:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -8703,10 +14251,10 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check syocc"),( "warmelt-normatch.melt")?( "warmelt-normatch.melt"):__FILE__, - (3665)?(3665):__LINE__, __FUNCTION__); + (4055)?(4055):__LINE__, __FUNCTION__); ;} ; - /*clear*/ /*_.IFELSE___V84*/ meltfptr[83] = 0 ; + /*clear*/ /*_.IFELSE___V90*/ meltfptr[89] = 0 ; /*epilog*/ } ; @@ -8714,46 +14262,46 @@ lab_endgetargs:; ; /*^compute*/ - /*_.IFCPP___V83*/ meltfptr[81] = /*_.IFELSE___V84*/ meltfptr[83];; + /*_.IFCPP___V89*/ meltfptr[87] = /*_.IFELSE___V90*/ meltfptr[89];; /*epilog*/ - MELT_LOCATION("warmelt-normatch.melt:3665:/ clear"); - /*clear*/ /*_#IS_A__L29*/ meltfnum[26] = 0 ; + MELT_LOCATION("warmelt-normatch.melt:4055:/ clear"); + /*clear*/ /*_#IS_A__L31*/ meltfnum[28] = 0 ; /*^clear*/ - /*clear*/ /*_.IFELSE___V84*/ meltfptr[83] = 0 ;} + /*clear*/ /*_.IFELSE___V90*/ meltfptr[89] = 0 ;} #else /*ENABLE_CHECKING*/ /*^cppif.else*/ - /*_.IFCPP___V83*/ meltfptr[81] = (/*nil*/NULL); + /*_.IFCPP___V89*/ meltfptr[87] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normatch.melt:3666:/ cppif.then"); + MELT_LOCATION("warmelt-normatch.melt:4056:/ cppif.then"); /*^block*/ /*anyblock*/{ /*^cond*/ - /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.SYOCC__V80*/ meltfptr[78]), (melt_ptr_t)((/*!CLASS_NREP_SYMOCC*/ meltfrout->tabval[18])))) /*then*/ { + /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.SYOCC__V86*/ meltfptr[84]), (melt_ptr_t)((/*!CLASS_NREP_SYMOCC*/ meltfrout->tabval[18])))) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.SYOCC__V80*/ meltfptr[78]), 3, "NOCC_BIND");/*_.NOCC_BIND__V86*/ meltfptr[85] = slot; }; + melt_object_get_field(slot,(melt_ptr_t)(/*_.SYOCC__V86*/ meltfptr[84]), 3, "NOCC_BIND");/*_.NOCC_BIND__V92*/ meltfptr[91] = slot; }; ; } else {/*^cond.else*/ - /*_.NOCC_BIND__V86*/ meltfptr[85] = NULL;; + /*_.NOCC_BIND__V92*/ meltfptr[91] = NULL;; } ; /*^compute*/ - /*_#__L30*/ meltfnum[25] = - ((/*_.NOCC_BIND__V86*/ meltfptr[85]) == (/*_.BINDING__V78*/ meltfptr[77]));; - MELT_LOCATION("warmelt-normatch.melt:3666:/ cond"); - /*cond*/ if (/*_#__L30*/ meltfnum[25]) /*then*/ { + /*_#__L32*/ meltfnum[27] = + ((/*_.NOCC_BIND__V92*/ meltfptr[91]) == (/*_.BINDING__V84*/ meltfptr[83]));; + MELT_LOCATION("warmelt-normatch.melt:4056:/ cond"); + /*cond*/ if (/*_#__L32*/ meltfnum[27]) /*then*/ { /*^cond.then*/ - /*_.IFELSE___V87*/ meltfptr[86] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normatch.melt:3666:/ cond.else"); + /*_.IFELSE___V93*/ meltfptr[92] = (/*nil*/NULL);; + } else {MELT_LOCATION("warmelt-normatch.melt:4056:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -8764,10 +14312,10 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check syocc binding"),( "warmelt-normatch.melt")?( "warmelt-normatch.melt"):__FILE__, - (3666)?(3666):__LINE__, __FUNCTION__); + (4056)?(4056):__LINE__, __FUNCTION__); ;} ; - /*clear*/ /*_.IFELSE___V87*/ meltfptr[86] = 0 ; + /*clear*/ /*_.IFELSE___V93*/ meltfptr[92] = 0 ; /*epilog*/ } ; @@ -8775,165 +14323,201 @@ lab_endgetargs:; ; /*^compute*/ - /*_.IFCPP___V85*/ meltfptr[83] = /*_.IFELSE___V87*/ meltfptr[86];; + /*_.IFCPP___V91*/ meltfptr[89] = /*_.IFELSE___V93*/ meltfptr[92];; /*epilog*/ - MELT_LOCATION("warmelt-normatch.melt:3666:/ clear"); - /*clear*/ /*_.NOCC_BIND__V86*/ meltfptr[85] = 0 ; + MELT_LOCATION("warmelt-normatch.melt:4056:/ clear"); + /*clear*/ /*_.NOCC_BIND__V92*/ meltfptr[91] = 0 ; /*^clear*/ - /*clear*/ /*_#__L30*/ meltfnum[25] = 0 ; + /*clear*/ /*_#__L32*/ meltfnum[27] = 0 ; /*^clear*/ - /*clear*/ /*_.IFELSE___V87*/ meltfptr[86] = 0 ;} + /*clear*/ /*_.IFELSE___V93*/ meltfptr[92] = 0 ;} #else /*ENABLE_CHECKING*/ /*^cppif.else*/ - /*_.IFCPP___V85*/ meltfptr[83] = (/*nil*/NULL); + /*_.IFCPP___V91*/ meltfptr[89] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; { - MELT_LOCATION("warmelt-normatch.melt:3667:/ locexp"); - meltgc_append_list((melt_ptr_t)(/*_.LISTVAROCC__V73*/ meltfptr[72]), (melt_ptr_t)(/*_.SYOCC__V80*/ meltfptr[78]));} + MELT_LOCATION("warmelt-normatch.melt:4057:/ locexp"); + meltgc_append_list((melt_ptr_t)(/*_.LISTVAROCC__V79*/ meltfptr[78]), (melt_ptr_t)(/*_.SYOCC__V86*/ meltfptr[84]));} ; - MELT_LOCATION("warmelt-normatch.melt:3662:/ clear"); - /*clear*/ /*_.SYOCC__V80*/ meltfptr[78] = 0 ; + MELT_LOCATION("warmelt-normatch.melt:4052:/ clear"); + /*clear*/ /*_.SYOCC__V86*/ meltfptr[84] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V81*/ meltfptr[80] = 0 ; + /*clear*/ /*_.IFCPP___V87*/ meltfptr[86] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V83*/ meltfptr[81] = 0 ; + /*clear*/ /*_.IFCPP___V89*/ meltfptr[87] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V85*/ meltfptr[83] = 0 ; + /*clear*/ /*_.IFCPP___V91*/ meltfptr[89] = 0 ; /*epilog*/ } ; } /*noelse*/ ; /* end cit2__EACHOBMAP */ - /*_.BSYMB__V77*/ meltfptr[76] = NULL; - /*_.BINDING__V78*/ meltfptr[77] = NULL; } + /*_.BSYMB__V83*/ meltfptr[82] = NULL; + /*_.BINDING__V84*/ meltfptr[83] = NULL; } /*citerepilog*/ - MELT_LOCATION("warmelt-normatch.melt:3657:/ clear"); - /*clear*/ /*_.BSYMB__V77*/ meltfptr[76] = 0 ; + MELT_LOCATION("warmelt-normatch.melt:4047:/ clear"); + /*clear*/ /*_.BSYMB__V83*/ meltfptr[82] = 0 ; /*^clear*/ - /*clear*/ /*_.BINDING__V78*/ meltfptr[77] = 0 ; + /*clear*/ /*_.BINDING__V84*/ meltfptr[83] = 0 ; /*^clear*/ - /*clear*/ /*_#IS_A__L24*/ meltfnum[8] = 0 ; + /*clear*/ /*_#IS_A__L26*/ meltfnum[9] = 0 ; /*^clear*/ - /*clear*/ /*_#IF___L25*/ meltfnum[24] = 0 ;} /*endciterblock FOREACH_IN_MAPOBJECT*/ + /*clear*/ /*_#IF___L27*/ meltfnum[26] = 0 ;} /*endciterblock FOREACH_IN_MAPOBJECT*/ ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normatch.melt:3670:/ cppif.then"); + MELT_LOCATION("warmelt-normatch.melt:4060:/ cppif.then"); /*^block*/ /*anyblock*/{ - /*_#THE_MELTCALLCOUNT__L31*/ meltfnum[26] = + /*_#THE_MELTCALLCOUNT__L33*/ meltfnum[28] = meltcallcount;; - MELT_LOCATION("warmelt-normatch.melt:3670:/ apply"); + MELT_LOCATION("warmelt-normatch.melt:4060:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].bp_cstring = "translate_matchcase listvarocc"; /*^apply.arg*/ - argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L31*/ meltfnum[26]; + argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L33*/ meltfnum[28]; + /*^apply.arg*/ + argtab[2].bp_cstring = "warmelt-normatch.melt"; + /*^apply.arg*/ + argtab[3].bp_long = 4060; + /*_.DEBUG_MSG_FUN__V95*/ meltfptr[92] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.LISTVAROCC__V79*/ meltfptr[78]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + } + ; + /*_.IFCPP___V94*/ meltfptr[91] = /*_.DEBUG_MSG_FUN__V95*/ meltfptr[92];; + /*epilog*/ + + MELT_LOCATION("warmelt-normatch.melt:4060:/ clear"); + /*clear*/ /*_#THE_MELTCALLCOUNT__L33*/ meltfnum[28] = 0 ; + /*^clear*/ + /*clear*/ /*_.DEBUG_MSG_FUN__V95*/ meltfptr[92] = 0 ;} + + #else /*ENABLE_CHECKING*/ + /*^cppif.else*/ + /*_.IFCPP___V94*/ meltfptr[91] = (/*nil*/NULL); + #endif /*ENABLE_CHECKING*/ + ; + + #if ENABLE_CHECKING + MELT_LOCATION("warmelt-normatch.melt:4061:/ cppif.then"); + /*^block*/ + /*anyblock*/{ + + /*_#THE_MELTCALLCOUNT__L34*/ meltfnum[27] = + meltcallcount;; + MELT_LOCATION("warmelt-normatch.melt:4061:/ apply"); + /*apply*/{ + union meltparam_un argtab[4]; + memset(&argtab, 0, sizeof(argtab)); + /*^apply.arg*/ + argtab[0].bp_cstring = "translate_matchcase have mstep"; + /*^apply.arg*/ + argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L34*/ meltfnum[27]; /*^apply.arg*/ argtab[2].bp_cstring = "warmelt-normatch.melt"; /*^apply.arg*/ - argtab[3].bp_long = 3670; - /*_.DEBUG_MSG_FUN__V89*/ meltfptr[86] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.LISTVAROCC__V73*/ meltfptr[72]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + argtab[3].bp_long = 4061; + /*_.DEBUG_MSG_FUN__V97*/ meltfptr[86] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.MSTEP__V44*/ meltfptr[43]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; - /*_.IFCPP___V88*/ meltfptr[85] = /*_.DEBUG_MSG_FUN__V89*/ meltfptr[86];; + /*_.IFCPP___V96*/ meltfptr[84] = /*_.DEBUG_MSG_FUN__V97*/ meltfptr[86];; /*epilog*/ - MELT_LOCATION("warmelt-normatch.melt:3670:/ clear"); - /*clear*/ /*_#THE_MELTCALLCOUNT__L31*/ meltfnum[26] = 0 ; + MELT_LOCATION("warmelt-normatch.melt:4061:/ clear"); + /*clear*/ /*_#THE_MELTCALLCOUNT__L34*/ meltfnum[27] = 0 ; /*^clear*/ - /*clear*/ /*_.DEBUG_MSG_FUN__V89*/ meltfptr[86] = 0 ;} + /*clear*/ /*_.DEBUG_MSG_FUN__V97*/ meltfptr[86] = 0 ;} #else /*ENABLE_CHECKING*/ /*^cppif.else*/ - /*_.IFCPP___V88*/ meltfptr[85] = (/*nil*/NULL); + /*_.IFCPP___V96*/ meltfptr[84] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-normatch.melt:3671:/ quasiblock"); + MELT_LOCATION("warmelt-normatch.melt:4062:/ quasiblock"); - MELT_LOCATION("warmelt-normatch.melt:3673:/ apply"); + MELT_LOCATION("warmelt-normatch.melt:4064:/ apply"); /*apply*/{ union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].bp_aptr = (melt_ptr_t*) &(/*!DISCR_MULTIPLE*/ meltfrout->tabval[20]); - /*_.LIST_TO_MULTIPLE__V90*/ meltfptr[78] = melt_apply ((meltclosure_ptr_t)((/*!LIST_TO_MULTIPLE*/ meltfrout->tabval[19])), (melt_ptr_t)(/*_.LISTVAROCC__V73*/ meltfptr[72]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.LIST_TO_MULTIPLE__V98*/ meltfptr[87] = melt_apply ((meltclosure_ptr_t)((/*!LIST_TO_MULTIPLE*/ meltfrout->tabval[19])), (melt_ptr_t)(/*_.LISTVAROCC__V79*/ meltfptr[78]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - MELT_LOCATION("warmelt-normatch.melt:3674:/ quasiblock"); + MELT_LOCATION("warmelt-normatch.melt:4065:/ quasiblock"); /*^newclosure*/ - /*newclosure*/ /*_.LAMBDA___V92*/ meltfptr[81] = + /*newclosure*/ /*_.LAMBDA___V100*/ meltfptr[92] = meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_23*/ meltfrout->tabval[23])), (0)); ; - /*_.LAMBDA___V91*/ meltfptr[80] = /*_.LAMBDA___V92*/ meltfptr[81];; + /*_.LAMBDA___V99*/ meltfptr[89] = /*_.LAMBDA___V100*/ meltfptr[92];; /*^compute*/ - /*_.SORTEDVAROCC__V93*/ meltfptr[83] = - meltgc_sort_multiple((melt_ptr_t)(/*_.LIST_TO_MULTIPLE__V90*/ meltfptr[78]), (melt_ptr_t)(/*_.LAMBDA___V91*/ meltfptr[80]), (melt_ptr_t)((/*!DISCR_MULTIPLE*/ meltfrout->tabval[20])));; + /*_.SORTEDVAROCC__V101*/ meltfptr[86] = + meltgc_sort_multiple((melt_ptr_t)(/*_.LIST_TO_MULTIPLE__V98*/ meltfptr[87]), (melt_ptr_t)(/*_.LAMBDA___V99*/ meltfptr[89]), (melt_ptr_t)((/*!DISCR_MULTIPLE*/ meltfrout->tabval[20])));; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normatch.melt:3678:/ cppif.then"); + MELT_LOCATION("warmelt-normatch.melt:4069:/ cppif.then"); /*^block*/ /*anyblock*/{ - /*_#THE_MELTCALLCOUNT__L32*/ meltfnum[25] = + /*_#THE_MELTCALLCOUNT__L35*/ meltfnum[28] = meltcallcount;; - MELT_LOCATION("warmelt-normatch.melt:3678:/ apply"); + MELT_LOCATION("warmelt-normatch.melt:4069:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].bp_cstring = "translate_matchcase sortedvarocc"; /*^apply.arg*/ - argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L32*/ meltfnum[25]; + argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L35*/ meltfnum[28]; /*^apply.arg*/ argtab[2].bp_cstring = "warmelt-normatch.melt"; /*^apply.arg*/ - argtab[3].bp_long = 3678; - /*_.DEBUG_MSG_FUN__V95*/ meltfptr[94] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.SORTEDVAROCC__V93*/ meltfptr[83]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + argtab[3].bp_long = 4069; + /*_.DEBUG_MSG_FUN__V103*/ meltfptr[102] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.SORTEDVAROCC__V101*/ meltfptr[86]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; - /*_.IFCPP___V94*/ meltfptr[86] = /*_.DEBUG_MSG_FUN__V95*/ meltfptr[94];; + /*_.IFCPP___V102*/ meltfptr[101] = /*_.DEBUG_MSG_FUN__V103*/ meltfptr[102];; /*epilog*/ - MELT_LOCATION("warmelt-normatch.melt:3678:/ clear"); - /*clear*/ /*_#THE_MELTCALLCOUNT__L32*/ meltfnum[25] = 0 ; + MELT_LOCATION("warmelt-normatch.melt:4069:/ clear"); + /*clear*/ /*_#THE_MELTCALLCOUNT__L35*/ meltfnum[28] = 0 ; /*^clear*/ - /*clear*/ /*_.DEBUG_MSG_FUN__V95*/ meltfptr[94] = 0 ;} + /*clear*/ /*_.DEBUG_MSG_FUN__V103*/ meltfptr[102] = 0 ;} #else /*ENABLE_CHECKING*/ /*^cppif.else*/ - /*_.IFCPP___V94*/ meltfptr[86] = (/*nil*/NULL); + /*_.IFCPP___V102*/ meltfptr[101] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-normatch.melt:3679:/ cond"); - /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.STEPSUCC__V75*/ meltfptr[74]), (melt_ptr_t)((/*!CLASS_MATCH_STEP_SUCCESS*/ meltfrout->tabval[16])))) /*then*/ { + MELT_LOCATION("warmelt-normatch.melt:4070:/ cond"); + /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.STEPSUCC__V81*/ meltfptr[80]), (melt_ptr_t)((/*!CLASS_MATCH_STEP_SUCCESS*/ meltfrout->tabval[16])))) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/{ /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj @MSTEPSUCCESS_VAROCC", melt_magic_discr((melt_ptr_t)(/*_.STEPSUCC__V75*/ meltfptr[74])) == OBMAG_OBJECT); - melt_putfield_object((/*_.STEPSUCC__V75*/ meltfptr[74]), (4), (/*_.SORTEDVAROCC__V93*/ meltfptr[83]), "MSTEPSUCCESS_VAROCC"); + melt_assertmsg("putslot checkobj @MSTEPSUCCESS_VAROCC", melt_magic_discr((melt_ptr_t)(/*_.STEPSUCC__V81*/ meltfptr[80])) == OBMAG_OBJECT); + melt_putfield_object((/*_.STEPSUCC__V81*/ meltfptr[80]), (5), (/*_.SORTEDVAROCC__V101*/ meltfptr[86]), "MSTEPSUCCESS_VAROCC"); ; /*^touch*/ - meltgc_touch(/*_.STEPSUCC__V75*/ meltfptr[74]); + meltgc_touch(/*_.STEPSUCC__V81*/ meltfptr[80]); ; /*epilog*/ } @@ -8941,220 +14525,328 @@ lab_endgetargs:; } /*noelse*/ ; - MELT_LOCATION("warmelt-normatch.melt:3671:/ clear"); - /*clear*/ /*_.LIST_TO_MULTIPLE__V90*/ meltfptr[78] = 0 ; + MELT_LOCATION("warmelt-normatch.melt:4062:/ clear"); + /*clear*/ /*_.LIST_TO_MULTIPLE__V98*/ meltfptr[87] = 0 ; /*^clear*/ - /*clear*/ /*_.LAMBDA___V91*/ meltfptr[80] = 0 ; + /*clear*/ /*_.LAMBDA___V99*/ meltfptr[89] = 0 ; /*^clear*/ - /*clear*/ /*_.SORTEDVAROCC__V93*/ meltfptr[83] = 0 ; + /*clear*/ /*_.SORTEDVAROCC__V101*/ meltfptr[86] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V94*/ meltfptr[86] = 0 ; - MELT_LOCATION("warmelt-normatch.melt:3681:/ msend"); + /*clear*/ /*_.IFCPP___V102*/ meltfptr[101] = 0 ; + MELT_LOCATION("warmelt-normatch.melt:4072:/ msend"); /*msend*/{ union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^ojbmsend.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.STEPSUCC__V75*/ meltfptr[74]; - /*_.PUT_THEN_MATCH__V96*/ meltfptr[94] = meltgc_send((melt_ptr_t)(/*_.MSTEP__V40*/ meltfptr[39]), (melt_ptr_t)((/*!PUT_THEN_MATCH*/ meltfrout->tabval[24])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.STEPSUCC__V81*/ meltfptr[80]; + /*_.PUT_THEN_MATCH__V104*/ meltfptr[102] = meltgc_send((melt_ptr_t)(/*_.MSTEP__V44*/ meltfptr[43]), (melt_ptr_t)((/*!PUT_THEN_MATCH*/ meltfrout->tabval[24])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normatch.melt:3682:/ cppif.then"); + MELT_LOCATION("warmelt-normatch.melt:4073:/ cppif.then"); /*^block*/ /*anyblock*/{ - /*_#THE_MELTCALLCOUNT__L33*/ meltfnum[26] = + /*_#THE_MELTCALLCOUNT__L36*/ meltfnum[27] = meltcallcount;; - MELT_LOCATION("warmelt-normatch.melt:3682:/ apply"); + MELT_LOCATION("warmelt-normatch.melt:4073:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].bp_cstring = "translate_matchcase updated mstep"; /*^apply.arg*/ - argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L33*/ meltfnum[26]; + argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L36*/ meltfnum[27]; + /*^apply.arg*/ + argtab[2].bp_cstring = "warmelt-normatch.melt"; + /*^apply.arg*/ + argtab[3].bp_long = 4073; + /*_.DEBUG_MSG_FUN__V106*/ meltfptr[89] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.MSTEP__V44*/ meltfptr[43]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + } + ; + /*_.IFCPP___V105*/ meltfptr[87] = /*_.DEBUG_MSG_FUN__V106*/ meltfptr[89];; + /*epilog*/ + + MELT_LOCATION("warmelt-normatch.melt:4073:/ clear"); + /*clear*/ /*_#THE_MELTCALLCOUNT__L36*/ meltfnum[27] = 0 ; + /*^clear*/ + /*clear*/ /*_.DEBUG_MSG_FUN__V106*/ meltfptr[89] = 0 ;} + + #else /*ENABLE_CHECKING*/ + /*^cppif.else*/ + /*_.IFCPP___V105*/ meltfptr[87] = (/*nil*/NULL); + #endif /*ENABLE_CHECKING*/ + ; + MELT_LOCATION("warmelt-normatch.melt:4074:/ cond"); + /*cond*/ if (/*_.PREVSTEP__V4*/ meltfptr[3]) /*then*/ { + /*^cond.then*/ + /*^block*/ + /*anyblock*/{ + + + #if ENABLE_CHECKING + MELT_LOCATION("warmelt-normatch.melt:4076:/ cppif.then"); + /*^block*/ + /*anyblock*/{ + + /*_#THE_MELTCALLCOUNT__L37*/ meltfnum[28] = + meltcallcount;; + MELT_LOCATION("warmelt-normatch.melt:4076:/ apply"); + /*apply*/{ + union meltparam_un argtab[4]; + memset(&argtab, 0, sizeof(argtab)); + /*^apply.arg*/ + argtab[0].bp_cstring = "translate_matchcase got prevstep"; + /*^apply.arg*/ + argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L37*/ meltfnum[28]; + /*^apply.arg*/ + argtab[2].bp_cstring = "warmelt-normatch.melt"; + /*^apply.arg*/ + argtab[3].bp_long = 4076; + /*_.DEBUG_MSG_FUN__V109*/ meltfptr[89] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.PREVSTEP__V4*/ meltfptr[3]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + } + ; + /*_.IFCPP___V108*/ meltfptr[101] = /*_.DEBUG_MSG_FUN__V109*/ meltfptr[89];; + /*epilog*/ + + MELT_LOCATION("warmelt-normatch.melt:4076:/ clear"); + /*clear*/ /*_#THE_MELTCALLCOUNT__L37*/ meltfnum[28] = 0 ; + /*^clear*/ + /*clear*/ /*_.DEBUG_MSG_FUN__V109*/ meltfptr[89] = 0 ;} + + #else /*ENABLE_CHECKING*/ + /*^cppif.else*/ + /*_.IFCPP___V108*/ meltfptr[101] = (/*nil*/NULL); + #endif /*ENABLE_CHECKING*/ + ; + MELT_LOCATION("warmelt-normatch.melt:4075:/ quasiblock"); + + + /*_.PROGN___V110*/ meltfptr[89] = (/*nil*/NULL);; + /*^compute*/ + + /*_.IF___V107*/ meltfptr[86] = /*_.PROGN___V110*/ meltfptr[89];; + /*epilog*/ + + MELT_LOCATION("warmelt-normatch.melt:4074:/ clear"); + /*clear*/ /*_.IFCPP___V108*/ meltfptr[101] = 0 ; + /*^clear*/ + /*clear*/ /*_.PROGN___V110*/ meltfptr[89] = 0 ;} + ; + } else {/*^cond.else*/ + + /*_.IF___V107*/ meltfptr[86] = NULL;; + } + ; + + #if ENABLE_CHECKING + MELT_LOCATION("warmelt-normatch.melt:4081:/ cppif.then"); + /*^block*/ + /*anyblock*/{ + + /*_#THE_MELTCALLCOUNT__L38*/ meltfnum[27] = + meltcallcount;; + MELT_LOCATION("warmelt-normatch.melt:4081:/ apply"); + /*apply*/{ + union meltparam_un argtab[4]; + memset(&argtab, 0, sizeof(argtab)); + /*^apply.arg*/ + argtab[0].bp_cstring = "translate_matchcase updated prevstep"; + /*^apply.arg*/ + argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L38*/ meltfnum[27]; /*^apply.arg*/ argtab[2].bp_cstring = "warmelt-normatch.melt"; /*^apply.arg*/ - argtab[3].bp_long = 3682; - /*_.DEBUG_MSG_FUN__V98*/ meltfptr[80] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.MSTEP__V40*/ meltfptr[39]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + argtab[3].bp_long = 4081; + /*_.DEBUG_MSG_FUN__V112*/ meltfptr[89] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.PREVSTEP__V4*/ meltfptr[3]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; - /*_.IFCPP___V97*/ meltfptr[78] = /*_.DEBUG_MSG_FUN__V98*/ meltfptr[80];; + /*_.IFCPP___V111*/ meltfptr[101] = /*_.DEBUG_MSG_FUN__V112*/ meltfptr[89];; /*epilog*/ - MELT_LOCATION("warmelt-normatch.melt:3682:/ clear"); - /*clear*/ /*_#THE_MELTCALLCOUNT__L33*/ meltfnum[26] = 0 ; + MELT_LOCATION("warmelt-normatch.melt:4081:/ clear"); + /*clear*/ /*_#THE_MELTCALLCOUNT__L38*/ meltfnum[27] = 0 ; /*^clear*/ - /*clear*/ /*_.DEBUG_MSG_FUN__V98*/ meltfptr[80] = 0 ;} + /*clear*/ /*_.DEBUG_MSG_FUN__V112*/ meltfptr[89] = 0 ;} #else /*ENABLE_CHECKING*/ /*^cppif.else*/ - /*_.IFCPP___V97*/ meltfptr[78] = (/*nil*/NULL); + /*_.IFCPP___V111*/ meltfptr[101] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normatch.melt:3683:/ cppif.then"); + MELT_LOCATION("warmelt-normatch.melt:4082:/ cppif.then"); /*^block*/ /*anyblock*/{ - /*_#THE_MELTCALLCOUNT__L34*/ meltfnum[25] = + /*_#THE_MELTCALLCOUNT__L39*/ meltfnum[28] = meltcallcount;; - MELT_LOCATION("warmelt-normatch.melt:3683:/ apply"); + MELT_LOCATION("warmelt-normatch.melt:4082:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].bp_cstring = "translate_matchcase stepsucc"; /*^apply.arg*/ - argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L34*/ meltfnum[25]; + argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L39*/ meltfnum[28]; /*^apply.arg*/ argtab[2].bp_cstring = "warmelt-normatch.melt"; /*^apply.arg*/ - argtab[3].bp_long = 3683; - /*_.DEBUG_MSG_FUN__V100*/ meltfptr[86] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.STEPSUCC__V75*/ meltfptr[74]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + argtab[3].bp_long = 4082; + /*_.DEBUG_MSG_FUN__V114*/ meltfptr[113] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.STEPSUCC__V81*/ meltfptr[80]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; - /*_.IFCPP___V99*/ meltfptr[83] = /*_.DEBUG_MSG_FUN__V100*/ meltfptr[86];; + /*_.IFCPP___V113*/ meltfptr[89] = /*_.DEBUG_MSG_FUN__V114*/ meltfptr[113];; /*epilog*/ - MELT_LOCATION("warmelt-normatch.melt:3683:/ clear"); - /*clear*/ /*_#THE_MELTCALLCOUNT__L34*/ meltfnum[25] = 0 ; + MELT_LOCATION("warmelt-normatch.melt:4082:/ clear"); + /*clear*/ /*_#THE_MELTCALLCOUNT__L39*/ meltfnum[28] = 0 ; /*^clear*/ - /*clear*/ /*_.DEBUG_MSG_FUN__V100*/ meltfptr[86] = 0 ;} + /*clear*/ /*_.DEBUG_MSG_FUN__V114*/ meltfptr[113] = 0 ;} #else /*ENABLE_CHECKING*/ /*^cppif.else*/ - /*_.IFCPP___V99*/ meltfptr[83] = (/*nil*/NULL); + /*_.IFCPP___V113*/ meltfptr[89] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-normatch.melt:3684:/ quasiblock"); + MELT_LOCATION("warmelt-normatch.melt:4083:/ quasiblock"); - /*_.RETVAL___V1*/ meltfptr[0] = NULL;; - MELT_LOCATION("warmelt-normatch.melt:3684:/ finalreturn"); + /*_.RETVAL___V1*/ meltfptr[0] = /*_.MSTEP__V44*/ meltfptr[43];; + MELT_LOCATION("warmelt-normatch.melt:4083:/ finalreturn"); ; /*finalret*/ goto labend_rout ; - /*_.LET___V72*/ meltfptr[70] = /*_.RETURN___V101*/ meltfptr[80];; + /*_.LET___V78*/ meltfptr[76] = /*_.RETURN___V115*/ meltfptr[113];; - MELT_LOCATION("warmelt-normatch.melt:3645:/ clear"); - /*clear*/ /*_.LISTVAROCC__V73*/ meltfptr[72] = 0 ; + MELT_LOCATION("warmelt-normatch.melt:4034:/ clear"); + /*clear*/ /*_.LISTVAROCC__V79*/ meltfptr[78] = 0 ; /*^clear*/ - /*clear*/ /*_.NEWBINDMAP__V74*/ meltfptr[73] = 0 ; + /*clear*/ /*_.NEWBINDMAP__V80*/ meltfptr[79] = 0 ; /*^clear*/ - /*clear*/ /*_.STEPSUCC__V75*/ meltfptr[74] = 0 ; + /*clear*/ /*_.STEPSUCC__V81*/ meltfptr[80] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V88*/ meltfptr[85] = 0 ; + /*clear*/ /*_.IFCPP___V94*/ meltfptr[91] = 0 ; /*^clear*/ - /*clear*/ /*_.PUT_THEN_MATCH__V96*/ meltfptr[94] = 0 ; + /*clear*/ /*_.IFCPP___V96*/ meltfptr[84] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V97*/ meltfptr[78] = 0 ; + /*clear*/ /*_.PUT_THEN_MATCH__V104*/ meltfptr[102] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V99*/ meltfptr[83] = 0 ; + /*clear*/ /*_.IFCPP___V105*/ meltfptr[87] = 0 ; /*^clear*/ - /*clear*/ /*_.RETURN___V101*/ meltfptr[80] = 0 ; - /*_.MULTI___V65*/ meltfptr[55] = /*_.LET___V72*/ meltfptr[70];; - - MELT_LOCATION("warmelt-normatch.melt:3640:/ clear"); - /*clear*/ /*_.IFCPP___V68*/ meltfptr[67] = 0 ; + /*clear*/ /*_.IF___V107*/ meltfptr[86] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V70*/ meltfptr[68] = 0 ; + /*clear*/ /*_.IFCPP___V111*/ meltfptr[101] = 0 ; + /*^clear*/ + /*clear*/ /*_.IFCPP___V113*/ meltfptr[89] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V72*/ meltfptr[70] = 0 ; + /*clear*/ /*_.RETURN___V115*/ meltfptr[113] = 0 ; + /*_.MULTI___V71*/ meltfptr[61] = /*_.LET___V78*/ meltfptr[76];; + MELT_LOCATION("warmelt-normatch.melt:4029:/ clear"); + /*clear*/ /*_.IFCPP___V74*/ meltfptr[73] = 0 ; /*^clear*/ - /*clear*/ /*_.NBINDS__V67*/ meltfptr[66] = 0 ; - /*_.LET___V39*/ meltfptr[37] = /*_.MULTI___V65*/ meltfptr[55];; + /*clear*/ /*_.IFCPP___V76*/ meltfptr[74] = 0 ; + /*^clear*/ + /*clear*/ /*_.LET___V78*/ meltfptr[76] = 0 ; - MELT_LOCATION("warmelt-normatch.melt:3618:/ clear"); - /*clear*/ /*_.MSTEP__V40*/ meltfptr[39] = 0 ; /*^clear*/ - /*clear*/ /*_.NEWENV__V41*/ meltfptr[40] = 0 ; + /*clear*/ /*_.NBINDS__V73*/ meltfptr[72] = 0 ; + /*_.MULTI___V43*/ meltfptr[41] = /*_.MULTI___V71*/ meltfptr[61];; + + MELT_LOCATION("warmelt-normatch.melt:4006:/ clear"); + /*clear*/ /*_.IFCPP___V46*/ meltfptr[45] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V42*/ meltfptr[41] = 0 ; + /*clear*/ /*_.IFCPP___V48*/ meltfptr[46] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V44*/ meltfptr[42] = 0 ; + /*clear*/ /*_.IFCPP___V50*/ meltfptr[48] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V46*/ meltfptr[44] = 0 ; + /*clear*/ /*_.IFCPP___V52*/ meltfptr[50] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V61*/ meltfptr[54] = 0 ; + /*clear*/ /*_.IFCPP___V67*/ meltfptr[60] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V63*/ meltfptr[57] = 0 ; + /*clear*/ /*_.IFCPP___V69*/ meltfptr[63] = 0 ; /*^clear*/ - /*clear*/ /*_.MULTI___V65*/ meltfptr[55] = 0 ; - /*_.LET___V18*/ meltfptr[16] = /*_.LET___V39*/ meltfptr[37];; + /*clear*/ /*_.MULTI___V71*/ meltfptr[61] = 0 ; - MELT_LOCATION("warmelt-normatch.melt:3601:/ clear"); - /*clear*/ /*_.CURLOC__V19*/ meltfptr[18] = 0 ; /*^clear*/ - /*clear*/ /*_.CURPAT__V20*/ meltfptr[19] = 0 ; + /*clear*/ /*_.MFLAG__V45*/ meltfptr[44] = 0 ; + /*_.LET___V21*/ meltfptr[19] = /*_.MULTI___V43*/ meltfptr[41];; + + MELT_LOCATION("warmelt-normatch.melt:3988:/ clear"); + /*clear*/ /*_.CURLOC__V22*/ meltfptr[21] = 0 ; /*^clear*/ - /*clear*/ /*_.CURBODY__V21*/ meltfptr[20] = 0 ; + /*clear*/ /*_.CURPAT__V23*/ meltfptr[22] = 0 ; /*^clear*/ - /*clear*/ /*_.NMATX__V22*/ meltfptr[21] = 0 ; + /*clear*/ /*_.CURBODY__V24*/ meltfptr[23] = 0 ; /*^clear*/ - /*clear*/ /*_.MDATA__V23*/ meltfptr[22] = 0 ; + /*clear*/ /*_.NMATX__V25*/ meltfptr[24] = 0 ; /*^clear*/ - /*clear*/ /*_.NCX__V24*/ meltfptr[23] = 0 ; + /*clear*/ /*_.MDATA__V26*/ meltfptr[25] = 0 ; /*^clear*/ - /*clear*/ /*_.ENV__V25*/ meltfptr[24] = 0 ; + /*clear*/ /*_.NCX__V27*/ meltfptr[26] = 0 ; /*^clear*/ - /*clear*/ /*_.MCASE_VARMAP__V26*/ meltfptr[25] = 0 ; + /*clear*/ /*_.ENV__V28*/ meltfptr[27] = 0 ; /*^clear*/ - /*clear*/ /*_#MAPOBJECT_COUNT__L6*/ meltfnum[0] = 0 ; + /*clear*/ /*_.MCASE_VARMAP__V29*/ meltfptr[28] = 0 ; /*^clear*/ - /*clear*/ /*_#I__L7*/ meltfnum[6] = 0 ; + /*clear*/ /*_#MAPOBJECT_COUNT__L7*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_#I__L8*/ meltfnum[7] = 0 ; /*^clear*/ - /*clear*/ /*_.VARMAP__V27*/ meltfptr[26] = 0 ; + /*clear*/ /*_#I__L9*/ meltfnum[8] = 0 ; /*^clear*/ - /*clear*/ /*_.SYCMAP__V28*/ meltfptr[27] = 0 ; + /*clear*/ /*_.VARMAP__V30*/ meltfptr[29] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V29*/ meltfptr[28] = 0 ; + /*clear*/ /*_.SYCMAP__V31*/ meltfptr[30] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V31*/ meltfptr[29] = 0 ; + /*clear*/ /*_.NEWENV__V32*/ meltfptr[31] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V33*/ meltfptr[31] = 0 ; + /*clear*/ /*_.IFCPP___V33*/ meltfptr[32] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V35*/ meltfptr[33] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V37*/ meltfptr[35] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V39*/ meltfptr[37] = 0 ; - /*_.LET___V8*/ meltfptr[6] = /*_.LET___V18*/ meltfptr[16];; + /*clear*/ /*_.IFCPP___V39*/ meltfptr[37] = 0 ; + /*^clear*/ + /*clear*/ /*_.IFCPP___V41*/ meltfptr[39] = 0 ; + /*^clear*/ + /*clear*/ /*_.MULTI___V43*/ meltfptr[41] = 0 ; + /*_.LET___V9*/ meltfptr[7] = /*_.LET___V21*/ meltfptr[19];; - MELT_LOCATION("warmelt-normatch.melt:3594:/ clear"); - /*clear*/ /*_.MATCTX__V9*/ meltfptr[8] = 0 ; + MELT_LOCATION("warmelt-normatch.melt:3980:/ clear"); + /*clear*/ /*_.MATCTX__V10*/ meltfptr[9] = 0 ; /*^clear*/ - /*clear*/ /*_.CURSCAS__V10*/ meltfptr[9] = 0 ; + /*clear*/ /*_.CURSCAS__V11*/ meltfptr[10] = 0 ; /*^clear*/ - /*clear*/ /*_.MLOC__V11*/ meltfptr[10] = 0 ; + /*clear*/ /*_.MLOC__V12*/ meltfptr[11] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V12*/ meltfptr[11] = 0 ; + /*clear*/ /*_.IFCPP___V13*/ meltfptr[12] = 0 ; + /*^clear*/ + /*clear*/ /*_.IFCPP___V15*/ meltfptr[13] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V14*/ meltfptr[12] = 0 ; + /*clear*/ /*_.IFCPP___V17*/ meltfptr[15] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V16*/ meltfptr[14] = 0 ; + /*clear*/ /*_.IFCPP___V19*/ meltfptr[17] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V18*/ meltfptr[16] = 0 ; - MELT_LOCATION("warmelt-normatch.melt:3591:/ quasiblock"); + /*clear*/ /*_.LET___V21*/ meltfptr[19] = 0 ; + MELT_LOCATION("warmelt-normatch.melt:3977:/ quasiblock"); - /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V8*/ meltfptr[6];; - MELT_LOCATION("warmelt-normatch.melt:3591:/ finalreturn"); + /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V9*/ meltfptr[7];; + MELT_LOCATION("warmelt-normatch.melt:3977:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.IFCPP___V4*/ meltfptr[3] = 0 ; + /*clear*/ /*_.IFCPP___V5*/ meltfptr[4] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V6*/ meltfptr[4] = 0 ; + /*clear*/ /*_.IFCPP___V7*/ meltfptr[5] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V8*/ meltfptr[6] = 0 ;} + /*clear*/ /*_.LET___V9*/ meltfptr[7] = 0 ;} ; goto labend_rout; @@ -9165,14 +14857,14 @@ melt_trace_end("TRANSLATE_MATCHCASE", meltcallcount); melt_topframe = (struct c #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR -} /*end meltrout_76_warmelt_normatch_TRANSLATE_MATCHCASE*/ +} /*end meltrout_79_warmelt_normatch_TRANSLATE_MATCHCASE*/ melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_77_warmelt_normatch_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, +meltrout_80_warmelt_normatch_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_) { #if ENABLE_CHECKING @@ -9185,7 +14877,7 @@ meltrout_77_warmelt_normatch_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firsta #define meltcallcount 0L #endif - struct frame_meltrout_77_warmelt_normatch_LAMBDA__st { unsigned nbvar; + struct frame_meltrout_80_warmelt_normatch_LAMBDA__st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif @@ -9218,7 +14910,7 @@ melt_trace_start("LAMBDA_", meltcallcount); /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-normatch.melt:3674:/ getarg"); + MELT_LOCATION("warmelt-normatch.melt:4065:/ getarg"); /*_.O1__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; /*getarg#1*/ @@ -9234,7 +14926,7 @@ lab_endgetargs:; /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-normatch.melt:3675:/ cond"); + MELT_LOCATION("warmelt-normatch.melt:4066:/ cond"); /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.O1__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_NREP_SYMOCC*/ meltfrout->tabval[1])))) /*then*/ { /*^cond.then*/ /*^getslot*/ @@ -9246,7 +14938,7 @@ lab_endgetargs:; /*_.NOCC_SYMB__V4*/ meltfptr[3] = NULL;; } ; - MELT_LOCATION("warmelt-normatch.melt:3675:/ cond"); + MELT_LOCATION("warmelt-normatch.melt:4066:/ cond"); /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.O2__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_NREP_SYMOCC*/ meltfrout->tabval[1])))) /*then*/ { /*^cond.then*/ /*^getslot*/ @@ -9258,7 +14950,7 @@ lab_endgetargs:; /*_.NOCC_SYMB__V5*/ meltfptr[4] = NULL;; } ; - MELT_LOCATION("warmelt-normatch.melt:3675:/ apply"); + MELT_LOCATION("warmelt-normatch.melt:4066:/ apply"); /*apply*/{ union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); @@ -9267,11 +14959,11 @@ lab_endgetargs:; /*_.COMPARE_NAMED_ALPHA__V6*/ meltfptr[5] = melt_apply ((meltclosure_ptr_t)((/*!COMPARE_NAMED_ALPHA*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.NOCC_SYMB__V4*/ meltfptr[3]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - MELT_LOCATION("warmelt-normatch.melt:3674:/ quasiblock"); + MELT_LOCATION("warmelt-normatch.melt:4065:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.COMPARE_NAMED_ALPHA__V6*/ meltfptr[5];; - MELT_LOCATION("warmelt-normatch.melt:3674:/ finalreturn"); + MELT_LOCATION("warmelt-normatch.melt:4065:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*epilog*/ @@ -9292,14 +14984,14 @@ melt_trace_end("LAMBDA_", meltcallcount); melt_topframe = (struct callframe_mel #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR -} /*end meltrout_77_warmelt_normatch_LAMBDA_*/ +} /*end meltrout_80_warmelt_normatch_LAMBDA_*/ melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_78_warmelt_normatch_NORMEXP_ALTMATCH(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, +meltrout_81_warmelt_normatch_NORMEXP_ALTMATCH(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_) { #if ENABLE_CHECKING @@ -9312,17 +15004,17 @@ meltrout_78_warmelt_normatch_NORMEXP_ALTMATCH(meltclosure_ptr_t closp_, melt_ptr #define meltcallcount 0L #endif - struct frame_meltrout_78_warmelt_normatch_NORMEXP_ALTMATCH_st { unsigned nbvar; + struct frame_meltrout_81_warmelt_normatch_NORMEXP_ALTMATCH_st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct meltclosure_st *clos; struct excepth_melt_st *exh; struct callframe_melt_st *prev; -#define MELTFRAM_NBVARPTR 70 - void* varptr[70]; -#define MELTFRAM_NBVARNUM 20 - long varnum[20]; +#define MELTFRAM_NBVARPTR 81 + void* varptr[81]; +#define MELTFRAM_NBVARNUM 23 + long varnum[23]; /*others*/ long _spare_; } *framptr_=0, meltframe; @@ -9331,13 +15023,13 @@ meltrout_78_warmelt_normatch_NORMEXP_ALTMATCH(meltclosure_ptr_t closp_, melt_ptr int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_melt_un (framptr_->clos); - for(ix=0; ix<70; ix++) + for(ix=0; ix<81; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_melt_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&meltfram__, 0, sizeof(meltfram__)); - meltfram__.nbvar = 70; + meltfram__.nbvar = 81; meltfram__.clos = closp_; meltfram__.prev = (struct callframe_melt_st *) melt_topframe; melt_topframe = (struct callframe_melt_st *) &meltfram__; @@ -9345,7 +15037,7 @@ melt_trace_start("NORMEXP_ALTMATCH", meltcallcount); /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-normatch.melt:3689:/ getarg"); + MELT_LOCATION("warmelt-normatch.melt:4088:/ getarg"); /*_.RECV__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; /*getarg#1*/ @@ -9377,17 +15069,17 @@ lab_endgetargs:; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normatch.melt:3690:/ cppif.then"); + MELT_LOCATION("warmelt-normatch.melt:4089:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L1*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_MATCH*/ meltfrout->tabval[0])));; - MELT_LOCATION("warmelt-normatch.melt:3690:/ cond"); + MELT_LOCATION("warmelt-normatch.melt:4089:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V7*/ meltfptr[6] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normatch.melt:3690:/ cond.else"); + } else {MELT_LOCATION("warmelt-normatch.melt:4089:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -9398,7 +15090,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check match recv"),( "warmelt-normatch.melt")?( "warmelt-normatch.melt"):__FILE__, - (3690)?(3690):__LINE__, __FUNCTION__); + (4089)?(4089):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V7*/ meltfptr[6] = 0 ; @@ -9412,7 +15104,7 @@ lab_endgetargs:; /*_.IFCPP___V6*/ meltfptr[5] = /*_.IFELSE___V7*/ meltfptr[6];; /*epilog*/ - MELT_LOCATION("warmelt-normatch.melt:3690:/ clear"); + MELT_LOCATION("warmelt-normatch.melt:4089:/ clear"); /*clear*/ /*_#IS_A__L1*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V7*/ meltfptr[6] = 0 ;} @@ -9424,17 +15116,17 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normatch.melt:3691:/ cppif.then"); + MELT_LOCATION("warmelt-normatch.melt:4090:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L2*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ meltfrout->tabval[1])));; - MELT_LOCATION("warmelt-normatch.melt:3691:/ cond"); + MELT_LOCATION("warmelt-normatch.melt:4090:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V9*/ meltfptr[8] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normatch.melt:3691:/ cond.else"); + } else {MELT_LOCATION("warmelt-normatch.melt:4090:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -9445,7 +15137,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check env"),( "warmelt-normatch.melt")?( "warmelt-normatch.melt"):__FILE__, - (3691)?(3691):__LINE__, __FUNCTION__); + (4090)?(4090):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V9*/ meltfptr[8] = 0 ; @@ -9459,7 +15151,7 @@ lab_endgetargs:; /*_.IFCPP___V8*/ meltfptr[6] = /*_.IFELSE___V9*/ meltfptr[8];; /*epilog*/ - MELT_LOCATION("warmelt-normatch.melt:3691:/ clear"); + MELT_LOCATION("warmelt-normatch.melt:4090:/ clear"); /*clear*/ /*_#IS_A__L2*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V9*/ meltfptr[8] = 0 ;} @@ -9471,17 +15163,17 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normatch.melt:3692:/ cppif.then"); + MELT_LOCATION("warmelt-normatch.melt:4091:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L3*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.NCX__V4*/ meltfptr[3]), (melt_ptr_t)((/*!CLASS_NORMALIZATION_CONTEXT*/ meltfrout->tabval[2])));; - MELT_LOCATION("warmelt-normatch.melt:3692:/ cond"); + MELT_LOCATION("warmelt-normatch.melt:4091:/ cond"); /*cond*/ if (/*_#IS_A__L3*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V11*/ meltfptr[10] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normatch.melt:3692:/ cond.else"); + } else {MELT_LOCATION("warmelt-normatch.melt:4091:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -9492,7 +15184,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check nctxt"),( "warmelt-normatch.melt")?( "warmelt-normatch.melt"):__FILE__, - (3692)?(3692):__LINE__, __FUNCTION__); + (4091)?(4091):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V11*/ meltfptr[10] = 0 ; @@ -9506,7 +15198,7 @@ lab_endgetargs:; /*_.IFCPP___V10*/ meltfptr[8] = /*_.IFELSE___V11*/ meltfptr[10];; /*epilog*/ - MELT_LOCATION("warmelt-normatch.melt:3692:/ clear"); + MELT_LOCATION("warmelt-normatch.melt:4091:/ clear"); /*clear*/ /*_#IS_A__L3*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V11*/ meltfptr[10] = 0 ;} @@ -9518,13 +15210,13 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normatch.melt:3693:/ cppif.then"); + MELT_LOCATION("warmelt-normatch.melt:4092:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L4*/ meltfnum[0] = meltcallcount;; - MELT_LOCATION("warmelt-normatch.melt:3693:/ apply"); + MELT_LOCATION("warmelt-normatch.melt:4092:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -9535,14 +15227,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].bp_cstring = "warmelt-normatch.melt"; /*^apply.arg*/ - argtab[3].bp_long = 3693; + argtab[3].bp_long = 4092; /*_.DEBUG_MSG_FUN__V13*/ meltfptr[12] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V12*/ meltfptr[10] = /*_.DEBUG_MSG_FUN__V13*/ meltfptr[12];; /*epilog*/ - MELT_LOCATION("warmelt-normatch.melt:3693:/ clear"); + MELT_LOCATION("warmelt-normatch.melt:4092:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L4*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V13*/ meltfptr[12] = 0 ;} @@ -9552,7 +15244,7 @@ lab_endgetargs:; /*_.IFCPP___V12*/ meltfptr[10] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-normatch.melt:3694:/ quasiblock"); + MELT_LOCATION("warmelt-normatch.melt:4093:/ quasiblock"); /*^getslot*/ @@ -9563,16 +15255,16 @@ lab_endgetargs:; /*cond*/ if (/*_.LOCA_LOCATION__V15*/ meltfptr[14]) /*then*/ { /*^cond.then*/ /*_.SLOC__V16*/ meltfptr[15] = /*_.LOCA_LOCATION__V15*/ meltfptr[14];; - } else {MELT_LOCATION("warmelt-normatch.melt:3694:/ cond.else"); + } else {MELT_LOCATION("warmelt-normatch.melt:4093:/ cond.else"); /*_.SLOC__V16*/ meltfptr[15] = /*_.PSLOC__V5*/ meltfptr[4];; } ; - MELT_LOCATION("warmelt-normatch.melt:3695:/ getslot"); + MELT_LOCATION("warmelt-normatch.melt:4094:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), 2, "SMAT_MATCHEDX");/*_.SMATSX__V17*/ meltfptr[16] = slot; }; ; - MELT_LOCATION("warmelt-normatch.melt:3696:/ getslot"); + MELT_LOCATION("warmelt-normatch.melt:4095:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), 3, "SMAT_CASES");/*_.SCASES__V18*/ meltfptr[17] = slot; }; ; @@ -9580,13 +15272,13 @@ lab_endgetargs:; (melt_multiple_length((melt_ptr_t)(/*_.SCASES__V18*/ meltfptr[17])));; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normatch.melt:3699:/ cppif.then"); + MELT_LOCATION("warmelt-normatch.melt:4098:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L6*/ meltfnum[5] = meltcallcount;; - MELT_LOCATION("warmelt-normatch.melt:3699:/ apply"); + MELT_LOCATION("warmelt-normatch.melt:4098:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -9597,14 +15289,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].bp_cstring = "warmelt-normatch.melt"; /*^apply.arg*/ - argtab[3].bp_long = 3699; + argtab[3].bp_long = 4098; /*_.DEBUG_MSG_FUN__V20*/ meltfptr[19] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.SMATSX__V17*/ meltfptr[16]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V19*/ meltfptr[18] = /*_.DEBUG_MSG_FUN__V20*/ meltfptr[19];; /*epilog*/ - MELT_LOCATION("warmelt-normatch.melt:3699:/ clear"); + MELT_LOCATION("warmelt-normatch.melt:4098:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L6*/ meltfnum[5] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V20*/ meltfptr[19] = 0 ;} @@ -9614,7 +15306,7 @@ lab_endgetargs:; /*_.IFCPP___V19*/ meltfptr[18] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-normatch.melt:3700:/ quasiblock"); + MELT_LOCATION("warmelt-normatch.melt:4099:/ quasiblock"); /*^multimsend*/ @@ -9637,13 +15329,13 @@ lab_endgetargs:; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normatch.melt:3703:/ cppif.then"); + MELT_LOCATION("warmelt-normatch.melt:4102:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L7*/ meltfnum[5] = meltcallcount;; - MELT_LOCATION("warmelt-normatch.melt:3703:/ apply"); + MELT_LOCATION("warmelt-normatch.melt:4102:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -9654,14 +15346,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].bp_cstring = "warmelt-normatch.melt"; /*^apply.arg*/ - argtab[3].bp_long = 3703; + argtab[3].bp_long = 4102; /*_.DEBUG_MSG_FUN__V25*/ meltfptr[24] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.NMATX__V22*/ meltfptr[21]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V24*/ meltfptr[23] = /*_.DEBUG_MSG_FUN__V25*/ meltfptr[24];; /*epilog*/ - MELT_LOCATION("warmelt-normatch.melt:3703:/ clear"); + MELT_LOCATION("warmelt-normatch.melt:4102:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L7*/ meltfnum[5] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V25*/ meltfptr[24] = 0 ;} @@ -9673,13 +15365,13 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normatch.melt:3704:/ cppif.then"); + MELT_LOCATION("warmelt-normatch.melt:4103:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L8*/ meltfnum[5] = meltcallcount;; - MELT_LOCATION("warmelt-normatch.melt:3704:/ apply"); + MELT_LOCATION("warmelt-normatch.melt:4103:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -9690,14 +15382,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].bp_cstring = "warmelt-normatch.melt"; /*^apply.arg*/ - argtab[3].bp_long = 3704; + argtab[3].bp_long = 4103; /*_.DEBUG_MSG_FUN__V27*/ meltfptr[26] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.NBINDMATX__V23*/ meltfptr[22]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V26*/ meltfptr[24] = /*_.DEBUG_MSG_FUN__V27*/ meltfptr[26];; /*epilog*/ - MELT_LOCATION("warmelt-normatch.melt:3704:/ clear"); + MELT_LOCATION("warmelt-normatch.melt:4103:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L8*/ meltfnum[5] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V27*/ meltfptr[26] = 0 ;} @@ -9707,7 +15399,7 @@ lab_endgetargs:; /*_.IFCPP___V26*/ meltfptr[24] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-normatch.melt:3705:/ quasiblock"); + MELT_LOCATION("warmelt-normatch.melt:4104:/ quasiblock"); /*^msend*/ @@ -9725,7 +15417,7 @@ lab_endgetargs:; /*_.MSTEPLIST__V31*/ meltfptr[30] = (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ meltfrout->tabval[7]))));; - MELT_LOCATION("warmelt-normatch.melt:3708:/ cond"); + MELT_LOCATION("warmelt-normatch.melt:4107:/ cond"); /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.NMATX__V22*/ meltfptr[21]), (melt_ptr_t)((/*!CLASS_NREP_SYMOCC*/ meltfrout->tabval[11])))) /*then*/ { /*^cond.then*/ /*^getslot*/ @@ -9737,16 +15429,16 @@ lab_endgetargs:; /*_.NOCC_SYMB__V32*/ meltfptr[31] = NULL;; } ; - MELT_LOCATION("warmelt-normatch.melt:3708:/ cond"); + MELT_LOCATION("warmelt-normatch.melt:4107:/ cond"); /*cond*/ if (/*_.NOCC_SYMB__V32*/ meltfptr[31]) /*then*/ { /*^cond.then*/ /*_.MSYMB__V33*/ meltfptr[32] = /*_.NOCC_SYMB__V32*/ meltfptr[31];; - } else {MELT_LOCATION("warmelt-normatch.melt:3708:/ cond.else"); + } else {MELT_LOCATION("warmelt-normatch.melt:4107:/ cond.else"); /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-normatch.melt:3709:/ cond"); + MELT_LOCATION("warmelt-normatch.melt:4108:/ cond"); /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.NMATX__V22*/ meltfptr[21]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[10])))) /*then*/ { /*^cond.then*/ /*^getslot*/ @@ -9758,16 +15450,16 @@ lab_endgetargs:; /*_.NAMED_NAME__V34*/ meltfptr[33] = NULL;; } ; - MELT_LOCATION("warmelt-normatch.melt:3709:/ cond"); + MELT_LOCATION("warmelt-normatch.melt:4108:/ cond"); /*cond*/ if (/*_.NAMED_NAME__V34*/ meltfptr[33]) /*then*/ { /*^cond.then*/ /*_.OR___V35*/ meltfptr[34] = /*_.NAMED_NAME__V34*/ meltfptr[33];; - } else {MELT_LOCATION("warmelt-normatch.melt:3709:/ cond.else"); + } else {MELT_LOCATION("warmelt-normatch.melt:4108:/ cond.else"); /*_.OR___V35*/ meltfptr[34] = (/*!konst_9_MATCHED_DATA*/ meltfrout->tabval[9]);; } ; - MELT_LOCATION("warmelt-normatch.melt:3709:/ apply"); + MELT_LOCATION("warmelt-normatch.melt:4108:/ apply"); /*apply*/{ /*_.CLONE_SYMBOL__V36*/ meltfptr[35] = melt_apply ((meltclosure_ptr_t)((/*!CLONE_SYMBOL*/ meltfrout->tabval[8])), (melt_ptr_t)(/*_.OR___V35*/ meltfptr[34]), (""), (union meltparam_un*)0, "", (union meltparam_un*)0); } @@ -9775,7 +15467,7 @@ lab_endgetargs:; /*_.MSYMB__V33*/ meltfptr[32] = /*_.CLONE_SYMBOL__V36*/ meltfptr[35];; /*epilog*/ - MELT_LOCATION("warmelt-normatch.melt:3708:/ clear"); + MELT_LOCATION("warmelt-normatch.melt:4107:/ clear"); /*clear*/ /*_.NAMED_NAME__V34*/ meltfptr[33] = 0 ; /*^clear*/ /*clear*/ /*_.OR___V35*/ meltfptr[34] = 0 ; @@ -9784,7 +15476,7 @@ lab_endgetargs:; ; } ; - MELT_LOCATION("warmelt-normatch.melt:3711:/ quasiblock"); + MELT_LOCATION("warmelt-normatch.melt:4110:/ quasiblock"); /*^rawallocobj*/ @@ -9817,59 +15509,68 @@ lab_endgetargs:; /*_.MAKE_LIST__V39*/ meltfptr[35] = (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ meltfrout->tabval[7]))));; - MELT_LOCATION("warmelt-normatch.melt:3717:/ quasiblock"); + /*^compute*/ + + /*_.MAKE_LIST__V40*/ meltfptr[39] = + (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ meltfrout->tabval[7]))));; + MELT_LOCATION("warmelt-normatch.melt:4116:/ quasiblock"); /*^rawallocobj*/ /*rawallocobj*/ { melt_ptr_t newobj = 0; - melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_MATCHING_CONTEXT*/ meltfrout->tabval[13])), (7), "CLASS_MATCHING_CONTEXT");/*_.INST__V41*/ meltfptr[40] = + melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_MATCHING_CONTEXT*/ meltfrout->tabval[13])), (8), "CLASS_MATCHING_CONTEXT");/*_.INST__V42*/ meltfptr[41] = newobj; }; ; /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj @MXCT_NORMCTXT", melt_magic_discr((melt_ptr_t)(/*_.INST__V41*/ meltfptr[40])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V41*/ meltfptr[40]), (0), (/*_.NCX__V4*/ meltfptr[3]), "MXCT_NORMCTXT"); + melt_assertmsg("putslot checkobj @MCTX_NORMCTXT", melt_magic_discr((melt_ptr_t)(/*_.INST__V42*/ meltfptr[41])) == OBMAG_OBJECT); + melt_putfield_object((/*_.INST__V42*/ meltfptr[41]), (0), (/*_.NCX__V4*/ meltfptr[3]), "MCTX_NORMCTXT"); + ; + /*^putslot*/ + /*putslot*/ + melt_assertmsg("putslot checkobj @MCTX_SOURCE", melt_magic_discr((melt_ptr_t)(/*_.INST__V42*/ meltfptr[41])) == OBMAG_OBJECT); + melt_putfield_object((/*_.INST__V42*/ meltfptr[41]), (1), (/*_.RECV__V2*/ meltfptr[1]), "MCTX_SOURCE"); ; /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj @MXCT_SOURCE", melt_magic_discr((melt_ptr_t)(/*_.INST__V41*/ meltfptr[40])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V41*/ meltfptr[40]), (1), (/*_.RECV__V2*/ meltfptr[1]), "MXCT_SOURCE"); + melt_assertmsg("putslot checkobj @MCTX_NMATCHED", melt_magic_discr((melt_ptr_t)(/*_.INST__V42*/ meltfptr[41])) == OBMAG_OBJECT); + melt_putfield_object((/*_.INST__V42*/ meltfptr[41]), (2), (/*_.NMATX__V22*/ meltfptr[21]), "MCTX_NMATCHED"); ; /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj @MXCT_NMATCHED", melt_magic_discr((melt_ptr_t)(/*_.INST__V41*/ meltfptr[40])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V41*/ meltfptr[40]), (2), (/*_.NMATX__V22*/ meltfptr[21]), "MXCT_NMATCHED"); + melt_assertmsg("putslot checkobj @MCTX_CASES", melt_magic_discr((melt_ptr_t)(/*_.INST__V42*/ meltfptr[41])) == OBMAG_OBJECT); + melt_putfield_object((/*_.INST__V42*/ meltfptr[41]), (3), (/*_.MCASETUP__V30*/ meltfptr[29]), "MCTX_CASES"); ; /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj @MXCT_CASES", melt_magic_discr((melt_ptr_t)(/*_.INST__V41*/ meltfptr[40])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V41*/ meltfptr[40]), (3), (/*_.MCASETUP__V30*/ meltfptr[29]), "MXCT_CASES"); + melt_assertmsg("putslot checkobj @MCTX_ENV", melt_magic_discr((melt_ptr_t)(/*_.INST__V42*/ meltfptr[41])) == OBMAG_OBJECT); + melt_putfield_object((/*_.INST__V42*/ meltfptr[41]), (4), (/*_.ENV__V3*/ meltfptr[2]), "MCTX_ENV"); ; /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj @MXCT_ENV", melt_magic_discr((melt_ptr_t)(/*_.INST__V41*/ meltfptr[40])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V41*/ meltfptr[40]), (4), (/*_.ENV__V3*/ meltfptr[2]), "MXCT_ENV"); + melt_assertmsg("putslot checkobj @MCTX_MDATA", melt_magic_discr((melt_ptr_t)(/*_.INST__V42*/ meltfptr[41])) == OBMAG_OBJECT); + melt_putfield_object((/*_.INST__V42*/ meltfptr[41]), (5), (/*_.MDATA__V37*/ meltfptr[33]), "MCTX_MDATA"); ; /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj @MXCT_MDATA", melt_magic_discr((melt_ptr_t)(/*_.INST__V41*/ meltfptr[40])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V41*/ meltfptr[40]), (5), (/*_.MDATA__V37*/ meltfptr[33]), "MXCT_MDATA"); + melt_assertmsg("putslot checkobj @MCTX_VARHANDLERS", melt_magic_discr((melt_ptr_t)(/*_.INST__V42*/ meltfptr[41])) == OBMAG_OBJECT); + melt_putfield_object((/*_.INST__V42*/ meltfptr[41]), (6), (/*_.MAKE_LIST__V39*/ meltfptr[35]), "MCTX_VARHANDLERS"); ; /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj @MXCT_VARHANDLERS", melt_magic_discr((melt_ptr_t)(/*_.INST__V41*/ meltfptr[40])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V41*/ meltfptr[40]), (6), (/*_.MAKE_LIST__V39*/ meltfptr[35]), "MXCT_VARHANDLERS"); + melt_assertmsg("putslot checkobj @MCTX_FLAGS", melt_magic_discr((melt_ptr_t)(/*_.INST__V42*/ meltfptr[41])) == OBMAG_OBJECT); + melt_putfield_object((/*_.INST__V42*/ meltfptr[41]), (7), (/*_.MAKE_LIST__V40*/ meltfptr[39]), "MCTX_FLAGS"); ; - /*_.MATCTX__V40*/ meltfptr[39] = /*_.INST__V41*/ meltfptr[40];; + /*_.MATCTX__V41*/ meltfptr[40] = /*_.INST__V42*/ meltfptr[41];; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normatch.melt:3727:/ cppif.then"); + MELT_LOCATION("warmelt-normatch.melt:4127:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L9*/ meltfnum[5] = meltcallcount;; - MELT_LOCATION("warmelt-normatch.melt:3727:/ apply"); + MELT_LOCATION("warmelt-normatch.melt:4127:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -9880,32 +15581,32 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].bp_cstring = "warmelt-normatch.melt"; /*^apply.arg*/ - argtab[3].bp_long = 3727; - /*_.DEBUG_MSG_FUN__V43*/ meltfptr[42] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.MATCTYP__V29*/ meltfptr[28]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + argtab[3].bp_long = 4127; + /*_.DEBUG_MSG_FUN__V44*/ meltfptr[43] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.MATCTYP__V29*/ meltfptr[28]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; - /*_.IFCPP___V42*/ meltfptr[41] = /*_.DEBUG_MSG_FUN__V43*/ meltfptr[42];; + /*_.IFCPP___V43*/ meltfptr[42] = /*_.DEBUG_MSG_FUN__V44*/ meltfptr[43];; /*epilog*/ - MELT_LOCATION("warmelt-normatch.melt:3727:/ clear"); + MELT_LOCATION("warmelt-normatch.melt:4127:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L9*/ meltfnum[5] = 0 ; /*^clear*/ - /*clear*/ /*_.DEBUG_MSG_FUN__V43*/ meltfptr[42] = 0 ;} + /*clear*/ /*_.DEBUG_MSG_FUN__V44*/ meltfptr[43] = 0 ;} #else /*ENABLE_CHECKING*/ /*^cppif.else*/ - /*_.IFCPP___V42*/ meltfptr[41] = (/*nil*/NULL); + /*_.IFCPP___V43*/ meltfptr[42] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normatch.melt:3728:/ cppif.then"); + MELT_LOCATION("warmelt-normatch.melt:4128:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L10*/ meltfnum[5] = meltcallcount;; - MELT_LOCATION("warmelt-normatch.melt:3728:/ apply"); + MELT_LOCATION("warmelt-normatch.melt:4128:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -9916,21 +15617,21 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].bp_cstring = "warmelt-normatch.melt"; /*^apply.arg*/ - argtab[3].bp_long = 3728; - /*_.DEBUG_MSG_FUN__V45*/ meltfptr[44] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.MATCTX__V40*/ meltfptr[39]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + argtab[3].bp_long = 4128; + /*_.DEBUG_MSG_FUN__V46*/ meltfptr[45] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.MATCTX__V41*/ meltfptr[40]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; - /*_.IFCPP___V44*/ meltfptr[42] = /*_.DEBUG_MSG_FUN__V45*/ meltfptr[44];; + /*_.IFCPP___V45*/ meltfptr[43] = /*_.DEBUG_MSG_FUN__V46*/ meltfptr[45];; /*epilog*/ - MELT_LOCATION("warmelt-normatch.melt:3728:/ clear"); + MELT_LOCATION("warmelt-normatch.melt:4128:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L10*/ meltfnum[5] = 0 ; /*^clear*/ - /*clear*/ /*_.DEBUG_MSG_FUN__V45*/ meltfptr[44] = 0 ;} + /*clear*/ /*_.DEBUG_MSG_FUN__V46*/ meltfptr[45] = 0 ;} #else /*ENABLE_CHECKING*/ /*^cppif.else*/ - /*_.IFCPP___V44*/ meltfptr[42] = (/*nil*/NULL); + /*_.IFCPP___V45*/ meltfptr[43] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; /*citerblock FOREACH_IN_MULTIPLE*/ { @@ -9939,19 +15640,19 @@ lab_endgetargs:; for (/*_#CURIX__L11*/ meltfnum[5] = 0; (/*_#CURIX__L11*/ meltfnum[5] >= 0) && (/*_#CURIX__L11*/ meltfnum[5] < cit1__EACHTUP_ln); /*_#CURIX__L11*/ meltfnum[5]++) { - /*_.CURSCAS__V46*/ meltfptr[44] = melt_multiple_nth((melt_ptr_t)(/*_.SCASES__V18*/ meltfptr[17]), /*_#CURIX__L11*/ meltfnum[5]); + /*_.CURSCAS__V47*/ meltfptr[45] = melt_multiple_nth((melt_ptr_t)(/*_.SCASES__V18*/ meltfptr[17]), /*_#CURIX__L11*/ meltfnum[5]); #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normatch.melt:3733:/ cppif.then"); + MELT_LOCATION("warmelt-normatch.melt:4133:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L12*/ meltfnum[11] = meltcallcount;; - MELT_LOCATION("warmelt-normatch.melt:3733:/ apply"); + MELT_LOCATION("warmelt-normatch.melt:4133:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -9962,36 +15663,36 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].bp_cstring = "warmelt-normatch.melt"; /*^apply.arg*/ - argtab[3].bp_long = 3733; - /*_.DEBUG_MSG_FUN__V48*/ meltfptr[47] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.CURSCAS__V46*/ meltfptr[44]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + argtab[3].bp_long = 4133; + /*_.DEBUG_MSG_FUN__V49*/ meltfptr[48] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.CURSCAS__V47*/ meltfptr[45]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; - /*_.IFCPP___V47*/ meltfptr[46] = /*_.DEBUG_MSG_FUN__V48*/ meltfptr[47];; + /*_.IFCPP___V48*/ meltfptr[47] = /*_.DEBUG_MSG_FUN__V49*/ meltfptr[48];; /*epilog*/ - MELT_LOCATION("warmelt-normatch.melt:3733:/ clear"); + MELT_LOCATION("warmelt-normatch.melt:4133:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L12*/ meltfnum[11] = 0 ; /*^clear*/ - /*clear*/ /*_.DEBUG_MSG_FUN__V48*/ meltfptr[47] = 0 ;} + /*clear*/ /*_.DEBUG_MSG_FUN__V49*/ meltfptr[48] = 0 ;} #else /*ENABLE_CHECKING*/ /*^cppif.else*/ - /*_.IFCPP___V47*/ meltfptr[46] = (/*nil*/NULL); + /*_.IFCPP___V48*/ meltfptr[47] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normatch.melt:3734:/ cppif.then"); + MELT_LOCATION("warmelt-normatch.melt:4134:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L13*/ meltfnum[11] = - melt_is_instance_of((melt_ptr_t)(/*_.CURSCAS__V46*/ meltfptr[44]), (melt_ptr_t)((/*!CLASS_SOURCE_MATCH_CASE*/ meltfrout->tabval[14])));; - MELT_LOCATION("warmelt-normatch.melt:3734:/ cond"); + melt_is_instance_of((melt_ptr_t)(/*_.CURSCAS__V47*/ meltfptr[45]), (melt_ptr_t)((/*!CLASS_SOURCE_MATCH_CASE*/ meltfrout->tabval[14])));; + MELT_LOCATION("warmelt-normatch.melt:4134:/ cond"); /*cond*/ if (/*_#IS_A__L13*/ meltfnum[11]) /*then*/ { /*^cond.then*/ - /*_.IFELSE___V50*/ meltfptr[49] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normatch.melt:3734:/ cond.else"); + /*_.IFELSE___V51*/ meltfptr[50] = (/*nil*/NULL);; + } else {MELT_LOCATION("warmelt-normatch.melt:4134:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -10002,10 +15703,10 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check curscas"),( "warmelt-normatch.melt")?( "warmelt-normatch.melt"):__FILE__, - (3734)?(3734):__LINE__, __FUNCTION__); + (4134)?(4134):__LINE__, __FUNCTION__); ;} ; - /*clear*/ /*_.IFELSE___V50*/ meltfptr[49] = 0 ; + /*clear*/ /*_.IFELSE___V51*/ meltfptr[50] = 0 ; /*epilog*/ } ; @@ -10013,92 +15714,92 @@ lab_endgetargs:; ; /*^compute*/ - /*_.IFCPP___V49*/ meltfptr[47] = /*_.IFELSE___V50*/ meltfptr[49];; + /*_.IFCPP___V50*/ meltfptr[48] = /*_.IFELSE___V51*/ meltfptr[50];; /*epilog*/ - MELT_LOCATION("warmelt-normatch.melt:3734:/ clear"); + MELT_LOCATION("warmelt-normatch.melt:4134:/ clear"); /*clear*/ /*_#IS_A__L13*/ meltfnum[11] = 0 ; /*^clear*/ - /*clear*/ /*_.IFELSE___V50*/ meltfptr[49] = 0 ;} + /*clear*/ /*_.IFELSE___V51*/ meltfptr[50] = 0 ;} #else /*ENABLE_CHECKING*/ /*^cppif.else*/ - /*_.IFCPP___V49*/ meltfptr[47] = (/*nil*/NULL); + /*_.IFCPP___V50*/ meltfptr[48] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-normatch.melt:3735:/ quasiblock"); + MELT_LOCATION("warmelt-normatch.melt:4135:/ quasiblock"); - /*_.MAKE_INTEGERBOX__V51*/ meltfptr[49] = + /*_.MAKE_INTEGERBOX__V52*/ meltfptr[50] = (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ meltfrout->tabval[16])), (/*_#CURIX__L11*/ meltfnum[5])));; - MELT_LOCATION("warmelt-normatch.melt:3735:/ quasiblock"); + MELT_LOCATION("warmelt-normatch.melt:4135:/ quasiblock"); /*^rawallocobj*/ /*rawallocobj*/ { melt_ptr_t newobj = 0; - melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_MATCH_CASE*/ meltfrout->tabval[15])), (5), "CLASS_MATCH_CASE");/*_.INST__V53*/ meltfptr[52] = + melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_MATCH_CASE*/ meltfrout->tabval[15])), (5), "CLASS_MATCH_CASE");/*_.INST__V54*/ meltfptr[53] = newobj; }; ; /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj @MCASE_MCTXT", melt_magic_discr((melt_ptr_t)(/*_.INST__V53*/ meltfptr[52])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V53*/ meltfptr[52]), (1), (/*_.MATCTX__V40*/ meltfptr[39]), "MCASE_MCTXT"); + melt_assertmsg("putslot checkobj @MCASE_MCTXT", melt_magic_discr((melt_ptr_t)(/*_.INST__V54*/ meltfptr[53])) == OBMAG_OBJECT); + melt_putfield_object((/*_.INST__V54*/ meltfptr[53]), (1), (/*_.MATCTX__V41*/ meltfptr[40]), "MCASE_MCTXT"); ; /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj @MCASE_SOURCE", melt_magic_discr((melt_ptr_t)(/*_.INST__V53*/ meltfptr[52])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V53*/ meltfptr[52]), (2), (/*_.CURSCAS__V46*/ meltfptr[44]), "MCASE_SOURCE"); + melt_assertmsg("putslot checkobj @MCASE_SOURCE", melt_magic_discr((melt_ptr_t)(/*_.INST__V54*/ meltfptr[53])) == OBMAG_OBJECT); + melt_putfield_object((/*_.INST__V54*/ meltfptr[53]), (2), (/*_.CURSCAS__V47*/ meltfptr[45]), "MCASE_SOURCE"); ; /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj @MCASE_INDEX", melt_magic_discr((melt_ptr_t)(/*_.INST__V53*/ meltfptr[52])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V53*/ meltfptr[52]), (3), (/*_.MAKE_INTEGERBOX__V51*/ meltfptr[49]), "MCASE_INDEX"); + melt_assertmsg("putslot checkobj @MCASE_INDEX", melt_magic_discr((melt_ptr_t)(/*_.INST__V54*/ meltfptr[53])) == OBMAG_OBJECT); + melt_putfield_object((/*_.INST__V54*/ meltfptr[53]), (3), (/*_.MAKE_INTEGERBOX__V52*/ meltfptr[50]), "MCASE_INDEX"); ; - /*_.CURMCASE__V52*/ meltfptr[51] = /*_.INST__V53*/ meltfptr[52];; - MELT_LOCATION("warmelt-normatch.melt:3743:/ apply"); + /*_.CURMCASE__V53*/ meltfptr[52] = /*_.INST__V54*/ meltfptr[53];; + MELT_LOCATION("warmelt-normatch.melt:4143:/ apply"); /*apply*/{ union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V16*/ meltfptr[15]; - /*_.FILL_MATCHCASE__V54*/ meltfptr[53] = melt_apply ((meltclosure_ptr_t)((/*!FILL_MATCHCASE*/ meltfrout->tabval[17])), (melt_ptr_t)(/*_.CURMCASE__V52*/ meltfptr[51]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.FILL_MATCHCASE__V55*/ meltfptr[54] = melt_apply ((meltclosure_ptr_t)((/*!FILL_MATCHCASE*/ meltfrout->tabval[17])), (melt_ptr_t)(/*_.CURMCASE__V53*/ meltfptr[52]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; { - MELT_LOCATION("warmelt-normatch.melt:3744:/ locexp"); - meltgc_multiple_put_nth((melt_ptr_t)(/*_.MCASETUP__V30*/ meltfptr[29]), (/*_#CURIX__L11*/ meltfnum[5]), (melt_ptr_t)(/*_.CURMCASE__V52*/ meltfptr[51]));} + MELT_LOCATION("warmelt-normatch.melt:4144:/ locexp"); + meltgc_multiple_put_nth((melt_ptr_t)(/*_.MCASETUP__V30*/ meltfptr[29]), (/*_#CURIX__L11*/ meltfnum[5]), (melt_ptr_t)(/*_.CURMCASE__V53*/ meltfptr[52]));} ; - MELT_LOCATION("warmelt-normatch.melt:3735:/ clear"); - /*clear*/ /*_.MAKE_INTEGERBOX__V51*/ meltfptr[49] = 0 ; + MELT_LOCATION("warmelt-normatch.melt:4135:/ clear"); + /*clear*/ /*_.MAKE_INTEGERBOX__V52*/ meltfptr[50] = 0 ; /*^clear*/ - /*clear*/ /*_.CURMCASE__V52*/ meltfptr[51] = 0 ; + /*clear*/ /*_.CURMCASE__V53*/ meltfptr[52] = 0 ; /*^clear*/ - /*clear*/ /*_.FILL_MATCHCASE__V54*/ meltfptr[53] = 0 ; + /*clear*/ /*_.FILL_MATCHCASE__V55*/ meltfptr[54] = 0 ; if (/*_#CURIX__L11*/ meltfnum[5]<0) break; } /* end cit1__EACHTUP */ /*citerepilog*/ - MELT_LOCATION("warmelt-normatch.melt:3730:/ clear"); - /*clear*/ /*_.CURSCAS__V46*/ meltfptr[44] = 0 ; + MELT_LOCATION("warmelt-normatch.melt:4130:/ clear"); + /*clear*/ /*_.CURSCAS__V47*/ meltfptr[45] = 0 ; /*^clear*/ /*clear*/ /*_#CURIX__L11*/ meltfnum[5] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V47*/ meltfptr[46] = 0 ; + /*clear*/ /*_.IFCPP___V48*/ meltfptr[47] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V49*/ meltfptr[47] = 0 ;} /*endciterblock FOREACH_IN_MULTIPLE*/ + /*clear*/ /*_.IFCPP___V50*/ meltfptr[48] = 0 ;} /*endciterblock FOREACH_IN_MULTIPLE*/ ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normatch.melt:3746:/ cppif.then"); + MELT_LOCATION("warmelt-normatch.melt:4146:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L14*/ meltfnum[11] = meltcallcount;; - MELT_LOCATION("warmelt-normatch.melt:3746:/ apply"); + MELT_LOCATION("warmelt-normatch.melt:4146:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -10109,101 +15810,254 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].bp_cstring = "warmelt-normatch.melt"; /*^apply.arg*/ - argtab[3].bp_long = 3746; - /*_.DEBUG_MSG_FUN__V56*/ meltfptr[51] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.MCASETUP__V30*/ meltfptr[29]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + argtab[3].bp_long = 4146; + /*_.DEBUG_MSG_FUN__V57*/ meltfptr[52] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.MCASETUP__V30*/ meltfptr[29]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; - /*_.IFCPP___V55*/ meltfptr[49] = /*_.DEBUG_MSG_FUN__V56*/ meltfptr[51];; + /*_.IFCPP___V56*/ meltfptr[50] = /*_.DEBUG_MSG_FUN__V57*/ meltfptr[52];; /*epilog*/ - MELT_LOCATION("warmelt-normatch.melt:3746:/ clear"); + MELT_LOCATION("warmelt-normatch.melt:4146:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L14*/ meltfnum[11] = 0 ; /*^clear*/ - /*clear*/ /*_.DEBUG_MSG_FUN__V56*/ meltfptr[51] = 0 ;} + /*clear*/ /*_.DEBUG_MSG_FUN__V57*/ meltfptr[52] = 0 ;} #else /*ENABLE_CHECKING*/ /*^cppif.else*/ - /*_.IFCPP___V55*/ meltfptr[49] = (/*nil*/NULL); + /*_.IFCPP___V56*/ meltfptr[50] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; + MELT_LOCATION("warmelt-normatch.melt:4148:/ quasiblock"); + + + /*_.PREVSTEP__V58*/ meltfptr[54] = (/*nil*/NULL);; /*citerblock FOREACH_IN_MULTIPLE*/ { /* start cit2__EACHTUP: */ long cit2__EACHTUP_ln = melt_multiple_length((melt_ptr_t)/*_.MCASETUP__V30*/ meltfptr[29]); for (/*_#MIX__L15*/ meltfnum[11] = 0; (/*_#MIX__L15*/ meltfnum[11] >= 0) && (/*_#MIX__L15*/ meltfnum[11] < cit2__EACHTUP_ln); /*_#MIX__L15*/ meltfnum[11]++) { - /*_.CURMCASE__V57*/ meltfptr[53] = melt_multiple_nth((melt_ptr_t)(/*_.MCASETUP__V30*/ meltfptr[29]), /*_#MIX__L15*/ meltfnum[11]); + /*_.CURMCASE__V59*/ meltfptr[52] = melt_multiple_nth((melt_ptr_t)(/*_.MCASETUP__V30*/ meltfptr[29]), /*_#MIX__L15*/ meltfnum[11]); - MELT_LOCATION("warmelt-normatch.melt:3751:/ apply"); + + #if ENABLE_CHECKING + MELT_LOCATION("warmelt-normatch.melt:4153:/ cppif.then"); + /*^block*/ + /*anyblock*/{ + + /*_#THE_MELTCALLCOUNT__L16*/ meltfnum[15] = + meltcallcount;; + MELT_LOCATION("warmelt-normatch.melt:4153:/ apply"); + /*apply*/{ + union meltparam_un argtab[4]; + memset(&argtab, 0, sizeof(argtab)); + /*^apply.arg*/ + argtab[0].bp_cstring = "normexp_altmatch before translate_matchcase curmcase"; + /*^apply.arg*/ + argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L16*/ meltfnum[15]; + /*^apply.arg*/ + argtab[2].bp_cstring = "warmelt-normatch.melt"; + /*^apply.arg*/ + argtab[3].bp_long = 4153; + /*_.DEBUG_MSG_FUN__V61*/ meltfptr[60] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.CURMCASE__V59*/ meltfptr[52]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + } + ; + /*_.IFCPP___V60*/ meltfptr[59] = /*_.DEBUG_MSG_FUN__V61*/ meltfptr[60];; + /*epilog*/ + + MELT_LOCATION("warmelt-normatch.melt:4153:/ clear"); + /*clear*/ /*_#THE_MELTCALLCOUNT__L16*/ meltfnum[15] = 0 ; + /*^clear*/ + /*clear*/ /*_.DEBUG_MSG_FUN__V61*/ meltfptr[60] = 0 ;} + + #else /*ENABLE_CHECKING*/ + /*^cppif.else*/ + /*_.IFCPP___V60*/ meltfptr[59] = (/*nil*/NULL); + #endif /*ENABLE_CHECKING*/ + ; + + #if ENABLE_CHECKING + MELT_LOCATION("warmelt-normatch.melt:4154:/ cppif.then"); + /*^block*/ + /*anyblock*/{ + + /*_#THE_MELTCALLCOUNT__L17*/ meltfnum[15] = + meltcallcount;; + MELT_LOCATION("warmelt-normatch.melt:4154:/ apply"); + /*apply*/{ + union meltparam_un argtab[4]; + memset(&argtab, 0, sizeof(argtab)); + /*^apply.arg*/ + argtab[0].bp_cstring = "normexp_altmatch before translate_matchcase prevstep"; + /*^apply.arg*/ + argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L17*/ meltfnum[15]; + /*^apply.arg*/ + argtab[2].bp_cstring = "warmelt-normatch.melt"; + /*^apply.arg*/ + argtab[3].bp_long = 4154; + /*_.DEBUG_MSG_FUN__V63*/ meltfptr[62] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.PREVSTEP__V58*/ meltfptr[54]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + } + ; + /*_.IFCPP___V62*/ meltfptr[60] = /*_.DEBUG_MSG_FUN__V63*/ meltfptr[62];; + /*epilog*/ + + MELT_LOCATION("warmelt-normatch.melt:4154:/ clear"); + /*clear*/ /*_#THE_MELTCALLCOUNT__L17*/ meltfnum[15] = 0 ; + /*^clear*/ + /*clear*/ /*_.DEBUG_MSG_FUN__V63*/ meltfptr[62] = 0 ;} + + #else /*ENABLE_CHECKING*/ + /*^cppif.else*/ + /*_.IFCPP___V62*/ meltfptr[60] = (/*nil*/NULL); + #endif /*ENABLE_CHECKING*/ + ; + MELT_LOCATION("warmelt-normatch.melt:4155:/ quasiblock"); + + + /*^apply*/ /*apply*/{ - union meltparam_un argtab[1]; + union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V16*/ meltfptr[15]; - /*_.TRANSLATE_MATCHCASE__V58*/ meltfptr[51] = melt_apply ((meltclosure_ptr_t)((/*!TRANSLATE_MATCHCASE*/ meltfrout->tabval[18])), (melt_ptr_t)(/*_.CURMCASE__V57*/ meltfptr[53]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*^apply.arg*/ + argtab[1].bp_aptr = (melt_ptr_t*) &/*_.PREVSTEP__V58*/ meltfptr[54]; + /*_.CURSTEP__V65*/ meltfptr[64] = melt_apply ((meltclosure_ptr_t)((/*!TRANSLATE_MATCHCASE*/ meltfrout->tabval[18])), (melt_ptr_t)(/*_.CURMCASE__V59*/ meltfptr[52]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + } + ; + + #if ENABLE_CHECKING + MELT_LOCATION("warmelt-normatch.melt:4157:/ cppif.then"); + /*^block*/ + /*anyblock*/{ + + /*_#THE_MELTCALLCOUNT__L18*/ meltfnum[15] = + meltcallcount;; + MELT_LOCATION("warmelt-normatch.melt:4157:/ apply"); + /*apply*/{ + union meltparam_un argtab[4]; + memset(&argtab, 0, sizeof(argtab)); + /*^apply.arg*/ + argtab[0].bp_cstring = "normexp_altmatch after translate_matchcase curstep"; + /*^apply.arg*/ + argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L18*/ meltfnum[15]; + /*^apply.arg*/ + argtab[2].bp_cstring = "warmelt-normatch.melt"; + /*^apply.arg*/ + argtab[3].bp_long = 4157; + /*_.DEBUG_MSG_FUN__V67*/ meltfptr[66] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.CURSTEP__V65*/ meltfptr[64]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + } + ; + /*_.IFCPP___V66*/ meltfptr[65] = /*_.DEBUG_MSG_FUN__V67*/ meltfptr[66];; + /*epilog*/ + + MELT_LOCATION("warmelt-normatch.melt:4157:/ clear"); + /*clear*/ /*_#THE_MELTCALLCOUNT__L18*/ meltfnum[15] = 0 ; + /*^clear*/ + /*clear*/ /*_.DEBUG_MSG_FUN__V67*/ meltfptr[66] = 0 ;} + + #else /*ENABLE_CHECKING*/ + /*^cppif.else*/ + /*_.IFCPP___V66*/ meltfptr[65] = (/*nil*/NULL); + #endif /*ENABLE_CHECKING*/ + ; + MELT_LOCATION("warmelt-normatch.melt:4158:/ cond"); + /*cond*/ if (/*_.CURSTEP__V65*/ meltfptr[64]) /*then*/ { + /*^cond.then*/ + /*^block*/ + /*anyblock*/{ + + /*^compute*/ + /*_.PREVSTEP__V58*/ meltfptr[54] = /*_.SETQ___V69*/ meltfptr[68] = /*_.CURSTEP__V65*/ meltfptr[64];; + /*_.IF___V68*/ meltfptr[66] = /*_.SETQ___V69*/ meltfptr[68];; + /*epilog*/ + + MELT_LOCATION("warmelt-normatch.melt:4158:/ clear"); + /*clear*/ /*_.SETQ___V69*/ meltfptr[68] = 0 ;} + ; + } else {/*^cond.else*/ + + /*_.IF___V68*/ meltfptr[66] = NULL;; } ; + /*^compute*/ + + /*_.LET___V64*/ meltfptr[62] = /*_.IF___V68*/ meltfptr[66];; + + MELT_LOCATION("warmelt-normatch.melt:4155:/ clear"); + /*clear*/ /*_.CURSTEP__V65*/ meltfptr[64] = 0 ; + /*^clear*/ + /*clear*/ /*_.IFCPP___V66*/ meltfptr[65] = 0 ; + /*^clear*/ + /*clear*/ /*_.IF___V68*/ meltfptr[66] = 0 ; if (/*_#MIX__L15*/ meltfnum[11]<0) break; } /* end cit2__EACHTUP */ /*citerepilog*/ - MELT_LOCATION("warmelt-normatch.melt:3748:/ clear"); - /*clear*/ /*_.CURMCASE__V57*/ meltfptr[53] = 0 ; + MELT_LOCATION("warmelt-normatch.melt:4150:/ clear"); + /*clear*/ /*_.CURMCASE__V59*/ meltfptr[52] = 0 ; /*^clear*/ /*clear*/ /*_#MIX__L15*/ meltfnum[11] = 0 ; /*^clear*/ - /*clear*/ /*_.TRANSLATE_MATCHCASE__V58*/ meltfptr[51] = 0 ;} /*endciterblock FOREACH_IN_MULTIPLE*/ + /*clear*/ /*_.IFCPP___V60*/ meltfptr[59] = 0 ; + /*^clear*/ + /*clear*/ /*_.IFCPP___V62*/ meltfptr[60] = 0 ; + /*^clear*/ + /*clear*/ /*_.LET___V64*/ meltfptr[62] = 0 ;} /*endciterblock FOREACH_IN_MULTIPLE*/ ; + MELT_LOCATION("warmelt-normatch.melt:4148:/ clear"); + /*clear*/ /*_.PREVSTEP__V58*/ meltfptr[54] = 0 ; + #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normatch.melt:3754:/ cppif.then"); + MELT_LOCATION("warmelt-normatch.melt:4161:/ cppif.then"); /*^block*/ /*anyblock*/{ - /*_#THE_MELTCALLCOUNT__L16*/ meltfnum[15] = + /*_#THE_MELTCALLCOUNT__L19*/ meltfnum[15] = meltcallcount;; - MELT_LOCATION("warmelt-normatch.melt:3754:/ apply"); + MELT_LOCATION("warmelt-normatch.melt:4161:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].bp_cstring = "normexp_altmatch updated mdata"; /*^apply.arg*/ - argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L16*/ meltfnum[15]; + argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L19*/ meltfnum[15]; /*^apply.arg*/ argtab[2].bp_cstring = "warmelt-normatch.melt"; /*^apply.arg*/ - argtab[3].bp_long = 3754; - /*_.DEBUG_MSG_FUN__V60*/ meltfptr[59] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.MDATA__V37*/ meltfptr[33]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + argtab[3].bp_long = 4161; + /*_.DEBUG_MSG_FUN__V71*/ meltfptr[64] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.MDATA__V37*/ meltfptr[33]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; - /*_.IFCPP___V59*/ meltfptr[58] = /*_.DEBUG_MSG_FUN__V60*/ meltfptr[59];; + /*_.IFCPP___V70*/ meltfptr[68] = /*_.DEBUG_MSG_FUN__V71*/ meltfptr[64];; /*epilog*/ - MELT_LOCATION("warmelt-normatch.melt:3754:/ clear"); - /*clear*/ /*_#THE_MELTCALLCOUNT__L16*/ meltfnum[15] = 0 ; + MELT_LOCATION("warmelt-normatch.melt:4161:/ clear"); + /*clear*/ /*_#THE_MELTCALLCOUNT__L19*/ meltfnum[15] = 0 ; /*^clear*/ - /*clear*/ /*_.DEBUG_MSG_FUN__V60*/ meltfptr[59] = 0 ;} + /*clear*/ /*_.DEBUG_MSG_FUN__V71*/ meltfptr[64] = 0 ;} #else /*ENABLE_CHECKING*/ /*^cppif.else*/ - /*_.IFCPP___V59*/ meltfptr[58] = (/*nil*/NULL); + /*_.IFCPP___V70*/ meltfptr[68] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; /*^compute*/ - /*_#NEED_DBG__L17*/ meltfnum[15] = + /*_#NEED_DBG__L20*/ meltfnum[15] = (flag_melt_debug && melt_dbgcounter>=melt_debugskipcount && (1)>=0 && (1) <= MELTDBG_MAXDEPTH);; - MELT_LOCATION("warmelt-normatch.melt:3755:/ cond"); - /*cond*/ if (/*_#NEED_DBG__L17*/ meltfnum[15]) /*then*/ { + MELT_LOCATION("warmelt-normatch.melt:4162:/ cond"); + /*cond*/ if (/*_#NEED_DBG__L20*/ meltfnum[15]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-normatch.melt:3756:/ quasiblock"); + MELT_LOCATION("warmelt-normatch.melt:4163:/ quasiblock"); /*^cond*/ @@ -10211,155 +16065,155 @@ lab_endgetargs:; /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)((/*!MATCH_GRAPHIC_DOT_PREFIX*/ meltfrout->tabval[19])), 0, "CONTAINER_VALUE");/*_.DOTPREFIX__V63*/ meltfptr[62] = slot; }; + melt_object_get_field(slot,(melt_ptr_t)((/*!MATCH_GRAPHIC_DOT_PREFIX*/ meltfrout->tabval[19])), 0, "CONTAINER_VALUE");/*_.DOTPREFIX__V74*/ meltfptr[54] = slot; }; ; } else {/*^cond.else*/ - /*_.DOTPREFIX__V63*/ meltfptr[62] = NULL;; + /*_.DOTPREFIX__V74*/ meltfptr[54] = NULL;; } ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normatch.melt:3757:/ cppif.then"); + MELT_LOCATION("warmelt-normatch.melt:4164:/ cppif.then"); /*^block*/ /*anyblock*/{ - /*_#THE_MELTCALLCOUNT__L18*/ meltfnum[17] = + /*_#THE_MELTCALLCOUNT__L21*/ meltfnum[20] = meltcallcount;; - MELT_LOCATION("warmelt-normatch.melt:3757:/ apply"); + MELT_LOCATION("warmelt-normatch.melt:4164:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].bp_cstring = "normexp_atmatch match_graphic_dot_prefix"; /*^apply.arg*/ - argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L18*/ meltfnum[17]; + argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L21*/ meltfnum[20]; /*^apply.arg*/ argtab[2].bp_cstring = "warmelt-normatch.melt"; /*^apply.arg*/ - argtab[3].bp_long = 3757; - /*_.DEBUG_MSG_FUN__V65*/ meltfptr[64] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)((/*!MATCH_GRAPHIC_DOT_PREFIX*/ meltfrout->tabval[19])), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + argtab[3].bp_long = 4164; + /*_.DEBUG_MSG_FUN__V76*/ meltfptr[75] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)((/*!MATCH_GRAPHIC_DOT_PREFIX*/ meltfrout->tabval[19])), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; - /*_.IFCPP___V64*/ meltfptr[63] = /*_.DEBUG_MSG_FUN__V65*/ meltfptr[64];; + /*_.IFCPP___V75*/ meltfptr[64] = /*_.DEBUG_MSG_FUN__V76*/ meltfptr[75];; /*epilog*/ - MELT_LOCATION("warmelt-normatch.melt:3757:/ clear"); - /*clear*/ /*_#THE_MELTCALLCOUNT__L18*/ meltfnum[17] = 0 ; + MELT_LOCATION("warmelt-normatch.melt:4164:/ clear"); + /*clear*/ /*_#THE_MELTCALLCOUNT__L21*/ meltfnum[20] = 0 ; /*^clear*/ - /*clear*/ /*_.DEBUG_MSG_FUN__V65*/ meltfptr[64] = 0 ;} + /*clear*/ /*_.DEBUG_MSG_FUN__V76*/ meltfptr[75] = 0 ;} #else /*ENABLE_CHECKING*/ /*^cppif.else*/ - /*_.IFCPP___V64*/ meltfptr[63] = (/*nil*/NULL); + /*_.IFCPP___V75*/ meltfptr[64] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normatch.melt:3758:/ cppif.then"); + MELT_LOCATION("warmelt-normatch.melt:4165:/ cppif.then"); /*^block*/ /*anyblock*/{ - /*_#THE_MELTCALLCOUNT__L19*/ meltfnum[17] = + /*_#THE_MELTCALLCOUNT__L22*/ meltfnum[20] = meltcallcount;; - MELT_LOCATION("warmelt-normatch.melt:3758:/ apply"); + MELT_LOCATION("warmelt-normatch.melt:4165:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].bp_cstring = "normexp_match dotprefix"; /*^apply.arg*/ - argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L19*/ meltfnum[17]; + argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L22*/ meltfnum[20]; /*^apply.arg*/ argtab[2].bp_cstring = "warmelt-normatch.melt"; /*^apply.arg*/ - argtab[3].bp_long = 3758; - /*_.DEBUG_MSG_FUN__V67*/ meltfptr[66] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.DOTPREFIX__V63*/ meltfptr[62]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + argtab[3].bp_long = 4165; + /*_.DEBUG_MSG_FUN__V78*/ meltfptr[77] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.DOTPREFIX__V74*/ meltfptr[54]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; - /*_.IFCPP___V66*/ meltfptr[64] = /*_.DEBUG_MSG_FUN__V67*/ meltfptr[66];; + /*_.IFCPP___V77*/ meltfptr[75] = /*_.DEBUG_MSG_FUN__V78*/ meltfptr[77];; /*epilog*/ - MELT_LOCATION("warmelt-normatch.melt:3758:/ clear"); - /*clear*/ /*_#THE_MELTCALLCOUNT__L19*/ meltfnum[17] = 0 ; + MELT_LOCATION("warmelt-normatch.melt:4165:/ clear"); + /*clear*/ /*_#THE_MELTCALLCOUNT__L22*/ meltfnum[20] = 0 ; /*^clear*/ - /*clear*/ /*_.DEBUG_MSG_FUN__V67*/ meltfptr[66] = 0 ;} + /*clear*/ /*_.DEBUG_MSG_FUN__V78*/ meltfptr[77] = 0 ;} #else /*ENABLE_CHECKING*/ /*^cppif.else*/ - /*_.IFCPP___V66*/ meltfptr[64] = (/*nil*/NULL); + /*_.IFCPP___V77*/ meltfptr[75] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; /*^compute*/ - /*_#IS_STRING__L20*/ meltfnum[17] = - (melt_magic_discr((melt_ptr_t)(/*_.DOTPREFIX__V63*/ meltfptr[62])) == OBMAG_STRING);; - MELT_LOCATION("warmelt-normatch.melt:3759:/ cond"); - /*cond*/ if (/*_#IS_STRING__L20*/ meltfnum[17]) /*then*/ { + /*_#IS_STRING__L23*/ meltfnum[20] = + (melt_magic_discr((melt_ptr_t)(/*_.DOTPREFIX__V74*/ meltfptr[54])) == OBMAG_STRING);; + MELT_LOCATION("warmelt-normatch.melt:4166:/ cond"); + /*cond*/ if (/*_#IS_STRING__L23*/ meltfnum[20]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-normatch.melt:3760:/ apply"); + MELT_LOCATION("warmelt-normatch.melt:4167:/ apply"); /*apply*/{ union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DOTPREFIX__V63*/ meltfptr[62]; - /*_.MG_ALTDRAW_GRAPHVIZ__V69*/ meltfptr[68] = melt_apply ((meltclosure_ptr_t)((/*!MG_ALTDRAW_GRAPHVIZ*/ meltfrout->tabval[21])), (melt_ptr_t)(/*_.MDATA__V37*/ meltfptr[33]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DOTPREFIX__V74*/ meltfptr[54]; + /*_.MG_ALTDRAW_GRAPHVIZ__V80*/ meltfptr[79] = melt_apply ((meltclosure_ptr_t)((/*!MG_ALTDRAW_GRAPHVIZ*/ meltfrout->tabval[21])), (melt_ptr_t)(/*_.MDATA__V37*/ meltfptr[33]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_.IF___V68*/ meltfptr[66] = /*_.MG_ALTDRAW_GRAPHVIZ__V69*/ meltfptr[68];; + /*_.IF___V79*/ meltfptr[77] = /*_.MG_ALTDRAW_GRAPHVIZ__V80*/ meltfptr[79];; /*epilog*/ - MELT_LOCATION("warmelt-normatch.melt:3759:/ clear"); - /*clear*/ /*_.MG_ALTDRAW_GRAPHVIZ__V69*/ meltfptr[68] = 0 ;} + MELT_LOCATION("warmelt-normatch.melt:4166:/ clear"); + /*clear*/ /*_.MG_ALTDRAW_GRAPHVIZ__V80*/ meltfptr[79] = 0 ;} ; } else {/*^cond.else*/ - /*_.IF___V68*/ meltfptr[66] = NULL;; + /*_.IF___V79*/ meltfptr[77] = NULL;; } ; /*^compute*/ - /*_.LET___V62*/ meltfptr[61] = /*_.IF___V68*/ meltfptr[66];; + /*_.LET___V73*/ meltfptr[66] = /*_.IF___V79*/ meltfptr[77];; - MELT_LOCATION("warmelt-normatch.melt:3756:/ clear"); - /*clear*/ /*_.DOTPREFIX__V63*/ meltfptr[62] = 0 ; + MELT_LOCATION("warmelt-normatch.melt:4163:/ clear"); + /*clear*/ /*_.DOTPREFIX__V74*/ meltfptr[54] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V64*/ meltfptr[63] = 0 ; + /*clear*/ /*_.IFCPP___V75*/ meltfptr[64] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V66*/ meltfptr[64] = 0 ; + /*clear*/ /*_.IFCPP___V77*/ meltfptr[75] = 0 ; /*^clear*/ - /*clear*/ /*_#IS_STRING__L20*/ meltfnum[17] = 0 ; + /*clear*/ /*_#IS_STRING__L23*/ meltfnum[20] = 0 ; /*^clear*/ - /*clear*/ /*_.IF___V68*/ meltfptr[66] = 0 ; - /*_.IF___V61*/ meltfptr[59] = /*_.LET___V62*/ meltfptr[61];; + /*clear*/ /*_.IF___V79*/ meltfptr[77] = 0 ; + /*_.IF___V72*/ meltfptr[65] = /*_.LET___V73*/ meltfptr[66];; /*epilog*/ - MELT_LOCATION("warmelt-normatch.melt:3755:/ clear"); - /*clear*/ /*_.LET___V62*/ meltfptr[61] = 0 ;} + MELT_LOCATION("warmelt-normatch.melt:4162:/ clear"); + /*clear*/ /*_.LET___V73*/ meltfptr[66] = 0 ;} ; } else {/*^cond.else*/ - /*_.IF___V61*/ meltfptr[59] = NULL;; + /*_.IF___V72*/ meltfptr[65] = NULL;; } ; { - MELT_LOCATION("warmelt-normatch.melt:3761:/ locexp"); + MELT_LOCATION("warmelt-normatch.melt:4168:/ locexp"); melt_error_str((melt_ptr_t)(/*_.SLOC__V16*/ meltfptr[15]), ( "@@unimplemented normexp_altmatch"), (melt_ptr_t)0);} ; - MELT_LOCATION("warmelt-normatch.melt:3763:/ quasiblock"); + MELT_LOCATION("warmelt-normatch.melt:4170:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = NULL;; - MELT_LOCATION("warmelt-normatch.melt:3763:/ finalreturn"); + MELT_LOCATION("warmelt-normatch.melt:4170:/ finalreturn"); ; /*finalret*/ goto labend_rout ; - /*_.LET___V28*/ meltfptr[26] = /*_.RETURN___V70*/ meltfptr[68];; + /*_.LET___V28*/ meltfptr[26] = /*_.RETURN___V81*/ meltfptr[79];; - MELT_LOCATION("warmelt-normatch.melt:3705:/ clear"); + MELT_LOCATION("warmelt-normatch.melt:4104:/ clear"); /*clear*/ /*_.MATCTYP__V29*/ meltfptr[28] = 0 ; /*^clear*/ /*clear*/ /*_.MCASETUP__V30*/ meltfptr[29] = 0 ; @@ -10374,24 +16228,26 @@ lab_endgetargs:; /*^clear*/ /*clear*/ /*_.MAKE_LIST__V39*/ meltfptr[35] = 0 ; /*^clear*/ - /*clear*/ /*_.MATCTX__V40*/ meltfptr[39] = 0 ; + /*clear*/ /*_.MAKE_LIST__V40*/ meltfptr[39] = 0 ; + /*^clear*/ + /*clear*/ /*_.MATCTX__V41*/ meltfptr[40] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V42*/ meltfptr[41] = 0 ; + /*clear*/ /*_.IFCPP___V43*/ meltfptr[42] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V44*/ meltfptr[42] = 0 ; + /*clear*/ /*_.IFCPP___V45*/ meltfptr[43] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V55*/ meltfptr[49] = 0 ; + /*clear*/ /*_.IFCPP___V56*/ meltfptr[50] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V59*/ meltfptr[58] = 0 ; + /*clear*/ /*_.IFCPP___V70*/ meltfptr[68] = 0 ; /*^clear*/ - /*clear*/ /*_#NEED_DBG__L17*/ meltfnum[15] = 0 ; + /*clear*/ /*_#NEED_DBG__L20*/ meltfnum[15] = 0 ; /*^clear*/ - /*clear*/ /*_.IF___V61*/ meltfptr[59] = 0 ; + /*clear*/ /*_.IF___V72*/ meltfptr[65] = 0 ; /*^clear*/ - /*clear*/ /*_.RETURN___V70*/ meltfptr[68] = 0 ; + /*clear*/ /*_.RETURN___V81*/ meltfptr[79] = 0 ; /*_.MULTI___V21*/ meltfptr[19] = /*_.LET___V28*/ meltfptr[26];; - MELT_LOCATION("warmelt-normatch.melt:3700:/ clear"); + MELT_LOCATION("warmelt-normatch.melt:4099:/ clear"); /*clear*/ /*_.IFCPP___V24*/ meltfptr[23] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V26*/ meltfptr[24] = 0 ; @@ -10402,7 +16258,7 @@ lab_endgetargs:; /*clear*/ /*_.NBINDMATX__V23*/ meltfptr[22] = 0 ; /*_.LET___V14*/ meltfptr[12] = /*_.MULTI___V21*/ meltfptr[19];; - MELT_LOCATION("warmelt-normatch.melt:3694:/ clear"); + MELT_LOCATION("warmelt-normatch.melt:4093:/ clear"); /*clear*/ /*_.LOCA_LOCATION__V15*/ meltfptr[14] = 0 ; /*^clear*/ /*clear*/ /*_.SLOC__V16*/ meltfptr[15] = 0 ; @@ -10416,11 +16272,11 @@ lab_endgetargs:; /*clear*/ /*_.IFCPP___V19*/ meltfptr[18] = 0 ; /*^clear*/ /*clear*/ /*_.MULTI___V21*/ meltfptr[19] = 0 ; - MELT_LOCATION("warmelt-normatch.melt:3689:/ quasiblock"); + MELT_LOCATION("warmelt-normatch.melt:4088:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V14*/ meltfptr[12];; - MELT_LOCATION("warmelt-normatch.melt:3689:/ finalreturn"); + MELT_LOCATION("warmelt-normatch.melt:4088:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*epilog*/ @@ -10445,14 +16301,14 @@ melt_trace_end("NORMEXP_ALTMATCH", meltcallcount); melt_topframe = (struct call #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR -} /*end meltrout_78_warmelt_normatch_NORMEXP_ALTMATCH*/ +} /*end meltrout_81_warmelt_normatch_NORMEXP_ALTMATCH*/ melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_79_warmelt_normatch_ALTERNATE_MATCH_OPTSET(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, +meltrout_82_warmelt_normatch_ALTERNATE_MATCH_OPTSET(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_) { #if ENABLE_CHECKING @@ -10465,7 +16321,7 @@ meltrout_79_warmelt_normatch_ALTERNATE_MATCH_OPTSET(meltclosure_ptr_t closp_, me #define meltcallcount 0L #endif - struct frame_meltrout_79_warmelt_normatch_ALTERNATE_MATCH_OPTSET_st { unsigned nbvar; + struct frame_meltrout_82_warmelt_normatch_ALTERNATE_MATCH_OPTSET_st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif @@ -10499,7 +16355,7 @@ melt_trace_start("ALTERNATE_MATCH_OPTSET", meltcallcount); /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-normatch.melt:3766:/ getarg"); + MELT_LOCATION("warmelt-normatch.melt:4173:/ getarg"); /*_.OPTSYMB__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; /*getarg#1*/ @@ -10515,13 +16371,13 @@ lab_endgetargs:; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normatch.melt:3767:/ cppif.then"); + MELT_LOCATION("warmelt-normatch.melt:4174:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L1*/ meltfnum[0] = meltcallcount;; - MELT_LOCATION("warmelt-normatch.melt:3767:/ apply"); + MELT_LOCATION("warmelt-normatch.melt:4174:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -10532,14 +16388,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].bp_cstring = "warmelt-normatch.melt"; /*^apply.arg*/ - argtab[3].bp_long = 3767; + argtab[3].bp_long = 4174; /*_.DEBUG_MSG_FUN__V4*/ meltfptr[3] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.OPTSYMB__V2*/ meltfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V3*/ meltfptr[2] = /*_.DEBUG_MSG_FUN__V4*/ meltfptr[3];; /*epilog*/ - MELT_LOCATION("warmelt-normatch.melt:3767:/ clear"); + MELT_LOCATION("warmelt-normatch.melt:4174:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L1*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V4*/ meltfptr[3] = 0 ;} @@ -10551,10 +16407,10 @@ lab_endgetargs:; ; { - MELT_LOCATION("warmelt-normatch.melt:3768:/ locexp"); + MELT_LOCATION("warmelt-normatch.melt:4175:/ locexp"); inform(UNKNOWN_LOCATION, "MELT INFORM [#%ld]: %s", melt_dbgcounter, ( "enabling alternate matching implementation"));} ; - MELT_LOCATION("warmelt-normatch.melt:3769:/ apply"); + MELT_LOCATION("warmelt-normatch.melt:4176:/ apply"); /*apply*/{ union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); @@ -10565,11 +16421,11 @@ lab_endgetargs:; /*_.INSTALL_METHOD__V5*/ meltfptr[3] = melt_apply ((meltclosure_ptr_t)((/*!INSTALL_METHOD*/ meltfrout->tabval[1])), (melt_ptr_t)((/*!CLASS_SOURCE_MATCH*/ meltfrout->tabval[2])), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - MELT_LOCATION("warmelt-normatch.melt:3766:/ quasiblock"); + MELT_LOCATION("warmelt-normatch.melt:4173:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.INSTALL_METHOD__V5*/ meltfptr[3];; - MELT_LOCATION("warmelt-normatch.melt:3766:/ finalreturn"); + MELT_LOCATION("warmelt-normatch.melt:4173:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*epilog*/ @@ -10588,14 +16444,14 @@ melt_trace_end("ALTERNATE_MATCH_OPTSET", meltcallcount); melt_topframe = (struc #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR -} /*end meltrout_79_warmelt_normatch_ALTERNATE_MATCH_OPTSET*/ +} /*end meltrout_82_warmelt_normatch_ALTERNATE_MATCH_OPTSET*/ melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_80_warmelt_normatch_MG_ALTDRAW_GRAPHVIZ(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, +meltrout_83_warmelt_normatch_MG_ALTDRAW_GRAPHVIZ(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_) { #if ENABLE_CHECKING @@ -10608,7 +16464,7 @@ meltrout_80_warmelt_normatch_MG_ALTDRAW_GRAPHVIZ(meltclosure_ptr_t closp_, melt_ #define meltcallcount 0L #endif - struct frame_meltrout_80_warmelt_normatch_MG_ALTDRAW_GRAPHVIZ_st { unsigned nbvar; + struct frame_meltrout_83_warmelt_normatch_MG_ALTDRAW_GRAPHVIZ_st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif @@ -10641,7 +16497,7 @@ melt_trace_start("MG_ALTDRAW_GRAPHVIZ", meltcallcount); /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-normatch.melt:3781:/ getarg"); + MELT_LOCATION("warmelt-normatch.melt:4188:/ getarg"); /*_.MDATA__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; /*getarg#1*/ @@ -10657,7 +16513,7 @@ lab_endgetargs:; /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-normatch.melt:3782:/ quasiblock"); + MELT_LOCATION("warmelt-normatch.melt:4189:/ quasiblock"); /*_.MAPDATA__V4*/ meltfptr[3] = @@ -10687,7 +16543,7 @@ lab_endgetargs:; meltgc_new_strbuf((meltobject_ptr_t)((/*!DISCR_STRBUF*/ meltfrout->tabval[1])), (char*)0);; { - MELT_LOCATION("warmelt-normatch.melt:3793:/ locexp"); + MELT_LOCATION("warmelt-normatch.melt:4200:/ locexp"); /* mg_draw_match_graphviz_file UNIQCNT__2 */ static long uniqcounter ; uniqcounter ++ ; @@ -10696,17 +16552,17 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normatch.melt:3798:/ cppif.then"); + MELT_LOCATION("warmelt-normatch.melt:4205:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_STRBUF__L3*/ meltfnum[2] = (melt_magic_discr((melt_ptr_t)(/*_.PATHSBUF__V8*/ meltfptr[7])) == OBMAG_STRBUF);; - MELT_LOCATION("warmelt-normatch.melt:3798:/ cond"); + MELT_LOCATION("warmelt-normatch.melt:4205:/ cond"); /*cond*/ if (/*_#IS_STRBUF__L3*/ meltfnum[2]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V10*/ meltfptr[9] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normatch.melt:3798:/ cond.else"); + } else {MELT_LOCATION("warmelt-normatch.melt:4205:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -10717,7 +16573,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check pathsbuf"),( "warmelt-normatch.melt")?( "warmelt-normatch.melt"):__FILE__, - (3798)?(3798):__LINE__, __FUNCTION__); + (4205)?(4205):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V10*/ meltfptr[9] = 0 ; @@ -10731,7 +16587,7 @@ lab_endgetargs:; /*_.IFCPP___V9*/ meltfptr[8] = /*_.IFELSE___V10*/ meltfptr[9];; /*epilog*/ - MELT_LOCATION("warmelt-normatch.melt:3798:/ clear"); + MELT_LOCATION("warmelt-normatch.melt:4205:/ clear"); /*clear*/ /*_#IS_STRBUF__L3*/ meltfnum[2] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V10*/ meltfptr[9] = 0 ;} @@ -10743,33 +16599,33 @@ lab_endgetargs:; ; { - MELT_LOCATION("warmelt-normatch.melt:3799:/ locexp"); + MELT_LOCATION("warmelt-normatch.melt:4206:/ locexp"); meltgc_add_strbuf((melt_ptr_t)(/*_.PATHSBUF__V8*/ meltfptr[7]), melt_string_str((melt_ptr_t)(/*_.DOTPREFIX__V3*/ meltfptr[2])));} ; { - MELT_LOCATION("warmelt-normatch.melt:3800:/ locexp"); + MELT_LOCATION("warmelt-normatch.melt:4207:/ locexp"); meltgc_add_strbuf((melt_ptr_t)(/*_.PATHSBUF__V8*/ meltfptr[7]), ( "+"));} ; { - MELT_LOCATION("warmelt-normatch.melt:3801:/ locexp"); + MELT_LOCATION("warmelt-normatch.melt:4208:/ locexp"); meltgc_add_strbuf_dec((melt_ptr_t)(/*_.PATHSBUF__V8*/ meltfptr[7]), (/*_#CNT__L1*/ meltfnum[0]));} ; { - MELT_LOCATION("warmelt-normatch.melt:3802:/ locexp"); + MELT_LOCATION("warmelt-normatch.melt:4209:/ locexp"); meltgc_add_strbuf((melt_ptr_t)(/*_.PATHSBUF__V8*/ meltfptr[7]), ( ".dot"));} ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normatch.melt:3803:/ cppif.then"); + MELT_LOCATION("warmelt-normatch.melt:4210:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L4*/ meltfnum[2] = meltcallcount;; - MELT_LOCATION("warmelt-normatch.melt:3803:/ apply"); + MELT_LOCATION("warmelt-normatch.melt:4210:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -10780,14 +16636,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].bp_cstring = "warmelt-normatch.melt"; /*^apply.arg*/ - argtab[3].bp_long = 3803; + argtab[3].bp_long = 4210; /*_.DEBUG_MSG_FUN__V12*/ meltfptr[11] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.PATHSBUF__V8*/ meltfptr[7]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V11*/ meltfptr[9] = /*_.DEBUG_MSG_FUN__V12*/ meltfptr[11];; /*epilog*/ - MELT_LOCATION("warmelt-normatch.melt:3803:/ clear"); + MELT_LOCATION("warmelt-normatch.melt:4210:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L4*/ meltfnum[2] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V12*/ meltfptr[11] = 0 ;} @@ -10801,11 +16657,11 @@ lab_endgetargs:; /*_.STRBUF2STRING__V13*/ meltfptr[11] = (meltgc_new_stringdup((meltobject_ptr_t)((/*!DISCR_STRING*/ meltfrout->tabval[3])), melt_strbuf_str((melt_ptr_t)(/*_.PATHSBUF__V8*/ meltfptr[7]))));; - MELT_LOCATION("warmelt-normatch.melt:3790:/ quasiblock"); + MELT_LOCATION("warmelt-normatch.melt:4197:/ quasiblock"); /*_.DOTFILENAME__V14*/ meltfptr[13] = /*_.STRBUF2STRING__V13*/ meltfptr[11];; - MELT_LOCATION("warmelt-normatch.melt:3805:/ quasiblock"); + MELT_LOCATION("warmelt-normatch.melt:4212:/ quasiblock"); /*^rawallocobj*/ @@ -10839,7 +16695,7 @@ lab_endgetargs:; melt_putfield_object((/*_.INST__V16*/ meltfptr[15]), (5), (/*_.MAPSTEP__V5*/ meltfptr[4]), "MCHGX_STEPNAMEMAP"); ; /*_.MG__V15*/ meltfptr[14] = /*_.INST__V16*/ meltfptr[15];; - MELT_LOCATION("warmelt-normatch.melt:3816:/ blockmultialloc"); + MELT_LOCATION("warmelt-normatch.melt:4223:/ blockmultialloc"); /*multiallocblock*/{ struct meltletrec_1_st { struct MELT_CLOSURE_STRUCT(2) rclo_0__SCANDATA; @@ -10860,7 +16716,7 @@ lab_endgetargs:; - MELT_LOCATION("warmelt-normatch.melt:3818:/ putclosurout"); + MELT_LOCATION("warmelt-normatch.melt:4225:/ putclosurout"); /*putclosurout*/ melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.SCANDATA__V18*/ meltfptr[17])) == OBMAG_CLOSURE); melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)((/*!konst_11*/ meltfrout->tabval[11]))) == OBMAG_ROUTINE); @@ -10881,7 +16737,7 @@ lab_endgetargs:; /*^touch*/ meltgc_touch(/*_.SCANDATA__V18*/ meltfptr[17]); ; - MELT_LOCATION("warmelt-normatch.melt:3848:/ putclosurout"); + MELT_LOCATION("warmelt-normatch.melt:4255:/ putclosurout"); /*putclosurout*/ melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.SCANSTEP__V19*/ meltfptr[18])) == OBMAG_CLOSURE); melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)((/*!konst_20*/ meltfrout->tabval[20]))) == OBMAG_ROUTINE); @@ -10910,13 +16766,13 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normatch.melt:3879:/ cppif.then"); + MELT_LOCATION("warmelt-normatch.melt:4286:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L5*/ meltfnum[2] = meltcallcount;; - MELT_LOCATION("warmelt-normatch.melt:3879:/ apply"); + MELT_LOCATION("warmelt-normatch.melt:4286:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -10927,14 +16783,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].bp_cstring = "warmelt-normatch.melt"; /*^apply.arg*/ - argtab[3].bp_long = 3879; + argtab[3].bp_long = 4286; /*_.DEBUG_MSG_FUN__V21*/ meltfptr[20] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.MDATA__V2*/ meltfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V20*/ meltfptr[19] = /*_.DEBUG_MSG_FUN__V21*/ meltfptr[20];; /*epilog*/ - MELT_LOCATION("warmelt-normatch.melt:3879:/ clear"); + MELT_LOCATION("warmelt-normatch.melt:4286:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L5*/ meltfnum[2] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V21*/ meltfptr[20] = 0 ;} @@ -10946,13 +16802,13 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normatch.melt:3880:/ cppif.then"); + MELT_LOCATION("warmelt-normatch.melt:4287:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L6*/ meltfnum[2] = meltcallcount;; - MELT_LOCATION("warmelt-normatch.melt:3880:/ apply"); + MELT_LOCATION("warmelt-normatch.melt:4287:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -10963,14 +16819,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].bp_cstring = "warmelt-normatch.melt"; /*^apply.arg*/ - argtab[3].bp_long = 3880; + argtab[3].bp_long = 4287; /*_.DEBUG_MSG_FUN__V23*/ meltfptr[22] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.SCANDATA__V18*/ meltfptr[17]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V22*/ meltfptr[20] = /*_.DEBUG_MSG_FUN__V23*/ meltfptr[22];; /*epilog*/ - MELT_LOCATION("warmelt-normatch.melt:3880:/ clear"); + MELT_LOCATION("warmelt-normatch.melt:4287:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L6*/ meltfnum[2] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V23*/ meltfptr[22] = 0 ;} @@ -10980,20 +16836,20 @@ lab_endgetargs:; /*_.IFCPP___V22*/ meltfptr[20] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-normatch.melt:3881:/ apply"); + MELT_LOCATION("warmelt-normatch.melt:4288:/ apply"); /*apply*/{ /*_.SCANDATA__V24*/ meltfptr[22] = melt_apply ((meltclosure_ptr_t)(/*_.SCANDATA__V18*/ meltfptr[17]), (melt_ptr_t)(/*_.MDATA__V2*/ meltfptr[1]), (""), (union meltparam_un*)0, "", (union meltparam_un*)0); } ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normatch.melt:3882:/ cppif.then"); + MELT_LOCATION("warmelt-normatch.melt:4289:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L7*/ meltfnum[2] = meltcallcount;; - MELT_LOCATION("warmelt-normatch.melt:3882:/ apply"); + MELT_LOCATION("warmelt-normatch.melt:4289:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -11004,14 +16860,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].bp_cstring = "warmelt-normatch.melt"; /*^apply.arg*/ - argtab[3].bp_long = 3882; + argtab[3].bp_long = 4289; /*_.DEBUG_MSG_FUN__V26*/ meltfptr[25] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.MDATA__V2*/ meltfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V25*/ meltfptr[24] = /*_.DEBUG_MSG_FUN__V26*/ meltfptr[25];; /*epilog*/ - MELT_LOCATION("warmelt-normatch.melt:3882:/ clear"); + MELT_LOCATION("warmelt-normatch.melt:4289:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L7*/ meltfnum[2] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V26*/ meltfptr[25] = 0 ;} @@ -11023,13 +16879,13 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normatch.melt:3883:/ cppif.then"); + MELT_LOCATION("warmelt-normatch.melt:4290:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L8*/ meltfnum[2] = meltcallcount;; - MELT_LOCATION("warmelt-normatch.melt:3883:/ apply"); + MELT_LOCATION("warmelt-normatch.melt:4290:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -11040,14 +16896,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].bp_cstring = "warmelt-normatch.melt"; /*^apply.arg*/ - argtab[3].bp_long = 3883; + argtab[3].bp_long = 4290; /*_.DEBUG_MSG_FUN__V28*/ meltfptr[27] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.MAPDATA__V4*/ meltfptr[3]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V27*/ meltfptr[25] = /*_.DEBUG_MSG_FUN__V28*/ meltfptr[27];; /*epilog*/ - MELT_LOCATION("warmelt-normatch.melt:3883:/ clear"); + MELT_LOCATION("warmelt-normatch.melt:4290:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L8*/ meltfnum[2] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V28*/ meltfptr[27] = 0 ;} @@ -11059,13 +16915,13 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normatch.melt:3884:/ cppif.then"); + MELT_LOCATION("warmelt-normatch.melt:4291:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L9*/ meltfnum[2] = meltcallcount;; - MELT_LOCATION("warmelt-normatch.melt:3884:/ apply"); + MELT_LOCATION("warmelt-normatch.melt:4291:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -11076,14 +16932,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].bp_cstring = "warmelt-normatch.melt"; /*^apply.arg*/ - argtab[3].bp_long = 3884; + argtab[3].bp_long = 4291; /*_.DEBUG_MSG_FUN__V30*/ meltfptr[29] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.MAPSTEP__V5*/ meltfptr[4]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V29*/ meltfptr[27] = /*_.DEBUG_MSG_FUN__V30*/ meltfptr[29];; /*epilog*/ - MELT_LOCATION("warmelt-normatch.melt:3884:/ clear"); + MELT_LOCATION("warmelt-normatch.melt:4291:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L9*/ meltfnum[2] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V30*/ meltfptr[29] = 0 ;} @@ -11098,7 +16954,7 @@ lab_endgetargs:; /*_.LETREC___V17*/ meltfptr[16] = /*_.IFCPP___V29*/ meltfptr[27];; /*epilog*/ - MELT_LOCATION("warmelt-normatch.melt:3816:/ clear"); + MELT_LOCATION("warmelt-normatch.melt:4223:/ clear"); /*clear*/ /*_.SCANDATA__V18*/ meltfptr[17] = 0 ; /*^clear*/ /*clear*/ /*_.SCANSTEP__V19*/ meltfptr[18] = 0 ; @@ -11119,7 +16975,7 @@ lab_endgetargs:; /*^clear*/ /*clear*/ /*_.IFCPP___V29*/ meltfptr[27] = 0 ;} /*end multiallocblock*/ ; - MELT_LOCATION("warmelt-normatch.melt:3887:/ quasiblock"); + MELT_LOCATION("warmelt-normatch.melt:4294:/ quasiblock"); /*_#DATACOUNT__L10*/ meltfnum[2] = 0;; @@ -11163,12 +17019,12 @@ lab_endgetargs:; { - MELT_LOCATION("warmelt-normatch.melt:3896:/ locexp"); + MELT_LOCATION("warmelt-normatch.melt:4303:/ locexp"); meltgc_multiple_put_nth((melt_ptr_t)(/*_.TUPDATA__V31*/ meltfptr[29]), (/*_#DATACOUNT__L10*/ meltfnum[2]), (melt_ptr_t)(/*_.CURDATA__V33*/ meltfptr[18]));} ; /*_#I__L14*/ meltfnum[13] = ((1) + (/*_#DATACOUNT__L10*/ meltfnum[2]));; - MELT_LOCATION("warmelt-normatch.melt:3897:/ compute"); + MELT_LOCATION("warmelt-normatch.melt:4304:/ compute"); /*_#DATACOUNT__L10*/ meltfnum[2] = /*_#SETQ___L15*/ meltfnum[14] = /*_#I__L14*/ meltfnum[13];; /* end cit1__EACHOBMAP */ /*_.CURDATA__V33*/ meltfptr[18] = NULL; @@ -11177,7 +17033,7 @@ lab_endgetargs:; /*citerepilog*/ - MELT_LOCATION("warmelt-normatch.melt:3893:/ clear"); + MELT_LOCATION("warmelt-normatch.melt:4300:/ clear"); /*clear*/ /*_.CURDATA__V33*/ meltfptr[18] = 0 ; /*^clear*/ /*clear*/ /*_.DATANAME__V34*/ meltfptr[19] = 0 ; @@ -11207,12 +17063,12 @@ lab_endgetargs:; { - MELT_LOCATION("warmelt-normatch.melt:3902:/ locexp"); + MELT_LOCATION("warmelt-normatch.melt:4309:/ locexp"); meltgc_multiple_put_nth((melt_ptr_t)(/*_.TUPSTEP__V32*/ meltfptr[17]), (/*_#STEPCOUNT__L11*/ meltfnum[10]), (melt_ptr_t)(/*_.CURSTEP__V35*/ meltfptr[20]));} ; /*_#I__L16*/ meltfnum[15] = ((1) + (/*_#STEPCOUNT__L11*/ meltfnum[10]));; - MELT_LOCATION("warmelt-normatch.melt:3903:/ compute"); + MELT_LOCATION("warmelt-normatch.melt:4310:/ compute"); /*_#STEPCOUNT__L11*/ meltfnum[10] = /*_#SETQ___L17*/ meltfnum[16] = /*_#I__L16*/ meltfnum[15];; /* end cit2__EACHOBMAP */ /*_.CURSTEP__V35*/ meltfptr[20] = NULL; @@ -11221,7 +17077,7 @@ lab_endgetargs:; /*citerepilog*/ - MELT_LOCATION("warmelt-normatch.melt:3899:/ clear"); + MELT_LOCATION("warmelt-normatch.melt:4306:/ clear"); /*clear*/ /*_.CURSTEP__V35*/ meltfptr[20] = 0 ; /*^clear*/ /*clear*/ /*_.STEPNAME__V36*/ meltfptr[22] = 0 ; @@ -11230,10 +17086,10 @@ lab_endgetargs:; /*^clear*/ /*clear*/ /*_#SETQ___L17*/ meltfnum[16] = 0 ;} /*endciterblock FOREACH_IN_MAPOBJECT*/ ; - MELT_LOCATION("warmelt-normatch.melt:3905:/ quasiblock"); + MELT_LOCATION("warmelt-normatch.melt:4312:/ quasiblock"); - MELT_LOCATION("warmelt-normatch.melt:3909:/ quasiblock"); + MELT_LOCATION("warmelt-normatch.melt:4316:/ quasiblock"); /*^newclosure*/ @@ -11251,7 +17107,7 @@ lab_endgetargs:; /*_.SORTUPDATA__V39*/ meltfptr[27] = meltgc_sort_multiple((melt_ptr_t)(/*_.TUPDATA__V31*/ meltfptr[29]), (melt_ptr_t)(/*_.LAMBDA___V37*/ meltfptr[24]), (melt_ptr_t)((/*!DISCR_MULTIPLE*/ meltfrout->tabval[21])));; - MELT_LOCATION("warmelt-normatch.melt:3928:/ quasiblock"); + MELT_LOCATION("warmelt-normatch.melt:4335:/ quasiblock"); /*^newclosure*/ @@ -11271,13 +17127,13 @@ lab_endgetargs:; meltgc_sort_multiple((melt_ptr_t)(/*_.TUPSTEP__V32*/ meltfptr[17]), (melt_ptr_t)(/*_.LAMBDA___V40*/ meltfptr[39]), (melt_ptr_t)((/*!DISCR_MULTIPLE*/ meltfrout->tabval[21])));; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normatch.melt:3946:/ cppif.then"); + MELT_LOCATION("warmelt-normatch.melt:4353:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L18*/ meltfnum[17] = meltcallcount;; - MELT_LOCATION("warmelt-normatch.melt:3946:/ apply"); + MELT_LOCATION("warmelt-normatch.melt:4353:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -11288,14 +17144,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].bp_cstring = "warmelt-normatch.melt"; /*^apply.arg*/ - argtab[3].bp_long = 3946; + argtab[3].bp_long = 4353; /*_.DEBUG_MSG_FUN__V44*/ meltfptr[43] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.SORTUPDATA__V39*/ meltfptr[27]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V43*/ meltfptr[42] = /*_.DEBUG_MSG_FUN__V44*/ meltfptr[43];; /*epilog*/ - MELT_LOCATION("warmelt-normatch.melt:3946:/ clear"); + MELT_LOCATION("warmelt-normatch.melt:4353:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L18*/ meltfnum[17] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V44*/ meltfptr[43] = 0 ;} @@ -11317,13 +17173,13 @@ lab_endgetargs:; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normatch.melt:3950:/ cppif.then"); + MELT_LOCATION("warmelt-normatch.melt:4357:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L20*/ meltfnum[19] = meltcallcount;; - MELT_LOCATION("warmelt-normatch.melt:3950:/ apply"); + MELT_LOCATION("warmelt-normatch.melt:4357:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -11334,14 +17190,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].bp_cstring = "warmelt-normatch.melt"; /*^apply.arg*/ - argtab[3].bp_long = 3950; + argtab[3].bp_long = 4357; /*_.DEBUG_MSG_FUN__V47*/ meltfptr[46] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.CURDATA__V45*/ meltfptr[43]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V46*/ meltfptr[45] = /*_.DEBUG_MSG_FUN__V47*/ meltfptr[46];; /*epilog*/ - MELT_LOCATION("warmelt-normatch.melt:3950:/ clear"); + MELT_LOCATION("warmelt-normatch.melt:4357:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L20*/ meltfnum[19] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V47*/ meltfptr[46] = 0 ;} @@ -11353,17 +17209,17 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normatch.melt:3951:/ cppif.then"); + MELT_LOCATION("warmelt-normatch.melt:4358:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L21*/ meltfnum[19] = melt_is_instance_of((melt_ptr_t)(/*_.CURDATA__V45*/ meltfptr[43]), (melt_ptr_t)((/*!CLASS_MATCHED_DATA*/ meltfrout->tabval[24])));; - MELT_LOCATION("warmelt-normatch.melt:3951:/ cond"); + MELT_LOCATION("warmelt-normatch.melt:4358:/ cond"); /*cond*/ if (/*_#IS_A__L21*/ meltfnum[19]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V49*/ meltfptr[48] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normatch.melt:3951:/ cond.else"); + } else {MELT_LOCATION("warmelt-normatch.melt:4358:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -11374,7 +17230,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "mg_altdraw_graphviz check curdata"),( "warmelt-normatch.melt")?( "warmelt-normatch.melt"):__FILE__, - (3951)?(3951):__LINE__, __FUNCTION__); + (4358)?(4358):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V49*/ meltfptr[48] = 0 ; @@ -11388,7 +17244,7 @@ lab_endgetargs:; /*_.IFCPP___V48*/ meltfptr[46] = /*_.IFELSE___V49*/ meltfptr[48];; /*epilog*/ - MELT_LOCATION("warmelt-normatch.melt:3951:/ clear"); + MELT_LOCATION("warmelt-normatch.melt:4358:/ clear"); /*clear*/ /*_#IS_A__L21*/ meltfnum[19] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V49*/ meltfptr[48] = 0 ;} @@ -11398,41 +17254,41 @@ lab_endgetargs:; /*_.IFCPP___V48*/ meltfptr[46] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-normatch.melt:3952:/ quasiblock"); + MELT_LOCATION("warmelt-normatch.melt:4359:/ quasiblock"); /*_.CURDATANAME__V50*/ meltfptr[48] = melt_get_mapobjects((meltmapobjects_ptr_t)(/*_.MAPDATA__V4*/ meltfptr[3]), (meltobject_ptr_t)(/*_.CURDATA__V45*/ meltfptr[43]));; - MELT_LOCATION("warmelt-normatch.melt:3954:/ getslot"); + MELT_LOCATION("warmelt-normatch.melt:4361:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.CURDATA__V45*/ meltfptr[43]), 2, "MDATA_CTYPE");/*_.DATACTYPE__V51*/ meltfptr[50] = slot; }; ; - MELT_LOCATION("warmelt-normatch.melt:3955:/ getslot"); + MELT_LOCATION("warmelt-normatch.melt:4362:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.CURDATA__V45*/ meltfptr[43]), 1, "MDATA_SYMB");/*_.DATASYMB__V52*/ meltfptr[51] = slot; }; ; - MELT_LOCATION("warmelt-normatch.melt:3956:/ getslot"); + MELT_LOCATION("warmelt-normatch.melt:4363:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.CURDATA__V45*/ meltfptr[43]), 4, "MDATA_STEPS");/*_.DATASTEPS__V53*/ meltfptr[52] = slot; }; ; { - MELT_LOCATION("warmelt-normatch.melt:3958:/ locexp"); + MELT_LOCATION("warmelt-normatch.melt:4365:/ locexp"); meltgc_out_add_indent((melt_ptr_t)(/*_.NODEBUF__V6*/ meltfptr[5]), (0), 0);;} ; { - MELT_LOCATION("warmelt-normatch.melt:3959:/ locexp"); + MELT_LOCATION("warmelt-normatch.melt:4366:/ locexp"); meltgc_add_out((melt_ptr_t)(/*_.NODEBUF__V6*/ meltfptr[5]), melt_string_str((melt_ptr_t)(/*_.CURDATANAME__V50*/ meltfptr[48])));} ; { - MELT_LOCATION("warmelt-normatch.melt:3960:/ locexp"); + MELT_LOCATION("warmelt-normatch.melt:4367:/ locexp"); meltgc_add_out((melt_ptr_t)(/*_.NODEBUF__V6*/ meltfptr[5]), ( " [ margin=0, "));} ; /*_#__L22*/ meltfnum[19] = ((/*_.CURDATA__V45*/ meltfptr[43]) == (/*_.MDATA__V2*/ meltfptr[1]));; - MELT_LOCATION("warmelt-normatch.melt:3961:/ cond"); + MELT_LOCATION("warmelt-normatch.melt:4368:/ cond"); /*cond*/ if (/*_#__L22*/ meltfnum[19]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -11440,20 +17296,20 @@ lab_endgetargs:; { - MELT_LOCATION("warmelt-normatch.melt:3962:/ locexp"); + MELT_LOCATION("warmelt-normatch.melt:4369:/ locexp"); meltgc_add_out((melt_ptr_t)(/*_.NODEBUF__V6*/ meltfptr[5]), ( " style=\"bold,dashed,filled,rounded\", fillcolor=\"lightyellow\", "));} ; /*epilog*/ } ; - } else {MELT_LOCATION("warmelt-normatch.melt:3961:/ cond.else"); + } else {MELT_LOCATION("warmelt-normatch.melt:4368:/ cond.else"); /*^block*/ /*anyblock*/{ { - MELT_LOCATION("warmelt-normatch.melt:3963:/ locexp"); + MELT_LOCATION("warmelt-normatch.melt:4370:/ locexp"); meltgc_add_out((melt_ptr_t)(/*_.NODEBUF__V6*/ meltfptr[5]), ( " style=\"dashed,rounded\", "));} ; /*epilog*/ @@ -11463,57 +17319,57 @@ lab_endgetargs:; ; { - MELT_LOCATION("warmelt-normatch.melt:3964:/ locexp"); + MELT_LOCATION("warmelt-normatch.melt:4371:/ locexp"); meltgc_add_out((melt_ptr_t)(/*_.NODEBUF__V6*/ meltfptr[5]), ( "label=<"));} ; { - MELT_LOCATION("warmelt-normatch.melt:3966:/ locexp"); + MELT_LOCATION("warmelt-normatch.melt:4373:/ locexp"); meltgc_out_add_indent((melt_ptr_t)(/*_.NODEBUF__V6*/ meltfptr[5]), (0), 0);;} ; { - MELT_LOCATION("warmelt-normatch.melt:3967:/ locexp"); + MELT_LOCATION("warmelt-normatch.melt:4374:/ locexp"); meltgc_add_out((melt_ptr_t)(/*_.NODEBUF__V6*/ meltfptr[5]), ( ""));} ; { - MELT_LOCATION("warmelt-normatch.melt:3972:/ locexp"); + MELT_LOCATION("warmelt-normatch.melt:4379:/ locexp"); meltgc_out_add_indent((melt_ptr_t)(/*_.NODEBUF__V6*/ meltfptr[5]), (0), 0);;} ; { - MELT_LOCATION("warmelt-normatch.melt:3973:/ locexp"); + MELT_LOCATION("warmelt-normatch.melt:4380:/ locexp"); meltgc_add_out((melt_ptr_t)(/*_.NODEBUF__V6*/ meltfptr[5]), ( ""));} ; { - MELT_LOCATION("warmelt-normatch.melt:3986:/ locexp"); + MELT_LOCATION("warmelt-normatch.melt:4393:/ locexp"); meltgc_add_out((melt_ptr_t)(/*_.NODEBUF__V6*/ meltfptr[5]), ( "
"));} ; { - MELT_LOCATION("warmelt-normatch.melt:3968:/ locexp"); + MELT_LOCATION("warmelt-normatch.melt:4375:/ locexp"); meltgc_add_out((melt_ptr_t)(/*_.NODEBUF__V6*/ meltfptr[5]), melt_string_str((melt_ptr_t)(/*_.CURDATANAME__V50*/ meltfptr[48])));} ; { - MELT_LOCATION("warmelt-normatch.melt:3969:/ locexp"); + MELT_LOCATION("warmelt-normatch.melt:4376:/ locexp"); meltgc_add_out((melt_ptr_t)(/*_.NODEBUF__V6*/ meltfptr[5]), ( "#"));} ; /*_#OBJ_HASH__L23*/ meltfnum[22] = (melt_obj_hash((melt_ptr_t)(/*_.CURDATA__V45*/ meltfptr[43])));; { - MELT_LOCATION("warmelt-normatch.melt:3970:/ locexp"); + MELT_LOCATION("warmelt-normatch.melt:4377:/ locexp"); meltgc_add_out_hex((melt_ptr_t)(/*_.NODEBUF__V6*/ meltfptr[5]), (/*_#OBJ_HASH__L23*/ meltfnum[22]));} ; { - MELT_LOCATION("warmelt-normatch.melt:3971:/ locexp"); + MELT_LOCATION("warmelt-normatch.melt:4378:/ locexp"); meltgc_add_out((melt_ptr_t)(/*_.NODEBUF__V6*/ meltfptr[5]), ( "
"));} ; - MELT_LOCATION("warmelt-normatch.melt:3974:/ cond"); + MELT_LOCATION("warmelt-normatch.melt:4381:/ cond"); /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.DATASYMB__V52*/ meltfptr[51]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[25])))) /*then*/ { /*^cond.then*/ /*^getslot*/ @@ -11527,18 +17383,18 @@ lab_endgetargs:; ; { - MELT_LOCATION("warmelt-normatch.melt:3974:/ locexp"); + MELT_LOCATION("warmelt-normatch.melt:4381:/ locexp"); meltgc_add_out((melt_ptr_t)(/*_.NODEBUF__V6*/ meltfptr[5]), melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V54*/ meltfptr[53])));} ; /*_#IS_A__L24*/ meltfnum[23] = melt_is_instance_of((melt_ptr_t)(/*_.DATASYMB__V52*/ meltfptr[51]), (melt_ptr_t)((/*!CLASS_CLONED_SYMBOL*/ meltfrout->tabval[26])));; - MELT_LOCATION("warmelt-normatch.melt:3975:/ cond"); + MELT_LOCATION("warmelt-normatch.melt:4382:/ cond"); /*cond*/ if (/*_#IS_A__L24*/ meltfnum[23]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-normatch.melt:3976:/ quasiblock"); + MELT_LOCATION("warmelt-normatch.melt:4383:/ quasiblock"); /*^getslot*/ @@ -11549,21 +17405,21 @@ lab_endgetargs:; (melt_get_int((melt_ptr_t)(/*_.CSYM_URANK__V55*/ meltfptr[54])));; { - MELT_LOCATION("warmelt-normatch.melt:3978:/ locexp"); + MELT_LOCATION("warmelt-normatch.melt:4385:/ locexp"); meltgc_add_out((melt_ptr_t)(/*_.NODEBUF__V6*/ meltfptr[5]), ( "$"));} ; { - MELT_LOCATION("warmelt-normatch.melt:3979:/ locexp"); + MELT_LOCATION("warmelt-normatch.melt:4386:/ locexp"); meltgc_add_out_dec((melt_ptr_t)(/*_.NODEBUF__V6*/ meltfptr[5]), (/*_#CLONUM__L25*/ meltfnum[24]));} ; { - MELT_LOCATION("warmelt-normatch.melt:3980:/ locexp"); + MELT_LOCATION("warmelt-normatch.melt:4387:/ locexp"); meltgc_add_out((melt_ptr_t)(/*_.NODEBUF__V6*/ meltfptr[5]), ( ""));} ; - MELT_LOCATION("warmelt-normatch.melt:3976:/ clear"); + MELT_LOCATION("warmelt-normatch.melt:4383:/ clear"); /*clear*/ /*_.CSYM_URANK__V55*/ meltfptr[54] = 0 ; /*^clear*/ /*clear*/ /*_#CLONUM__L25*/ meltfnum[24] = 0 ; @@ -11574,10 +17430,10 @@ lab_endgetargs:; ; { - MELT_LOCATION("warmelt-normatch.melt:3982:/ locexp"); + MELT_LOCATION("warmelt-normatch.melt:4389:/ locexp"); meltgc_add_out((melt_ptr_t)(/*_.NODEBUF__V6*/ meltfptr[5]), ( ""));} ; - MELT_LOCATION("warmelt-normatch.melt:3983:/ cond"); + MELT_LOCATION("warmelt-normatch.melt:4390:/ cond"); /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.DATACTYPE__V51*/ meltfptr[50]), (melt_ptr_t)((/*!CLASS_CTYPE*/ meltfrout->tabval[27])))) /*then*/ { /*^cond.then*/ /*^getslot*/ @@ -11589,7 +17445,7 @@ lab_endgetargs:; /*_.CTYPE_KEYWORD__V56*/ meltfptr[54] = NULL;; } ; - MELT_LOCATION("warmelt-normatch.melt:3983:/ cond"); + MELT_LOCATION("warmelt-normatch.melt:4390:/ cond"); /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CTYPE_KEYWORD__V56*/ meltfptr[54]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[25])))) /*then*/ { /*^cond.then*/ /*^getslot*/ @@ -11603,22 +17459,22 @@ lab_endgetargs:; ; { - MELT_LOCATION("warmelt-normatch.melt:3983:/ locexp"); + MELT_LOCATION("warmelt-normatch.melt:4390:/ locexp"); meltgc_add_out((melt_ptr_t)(/*_.NODEBUF__V6*/ meltfptr[5]), melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V57*/ meltfptr[56])));} ; { - MELT_LOCATION("warmelt-normatch.melt:3985:/ locexp"); + MELT_LOCATION("warmelt-normatch.melt:4392:/ locexp"); meltgc_add_out((melt_ptr_t)(/*_.NODEBUF__V6*/ meltfptr[5]), ( "
> ];"));} ; { - MELT_LOCATION("warmelt-normatch.melt:3987:/ locexp"); + MELT_LOCATION("warmelt-normatch.melt:4394:/ locexp"); meltgc_out_add_indent((melt_ptr_t)(/*_.NODEBUF__V6*/ meltfptr[5]), (0), 0);;} ; /*citerblock FOREACH_IN_LIST*/ { @@ -11631,36 +17487,36 @@ lab_endgetargs:; { - MELT_LOCATION("warmelt-normatch.melt:3992:/ locexp"); + MELT_LOCATION("warmelt-normatch.melt:4399:/ locexp"); meltgc_out_add_indent((melt_ptr_t)(/*_.EDGEBUF__V7*/ meltfptr[6]), (0), 0);;} ; { - MELT_LOCATION("warmelt-normatch.melt:3993:/ locexp"); + MELT_LOCATION("warmelt-normatch.melt:4400:/ locexp"); meltgc_add_out((melt_ptr_t)(/*_.EDGEBUF__V7*/ meltfptr[6]), melt_string_str((melt_ptr_t)(/*_.CURDATANAME__V50*/ meltfptr[48])));} ; { - MELT_LOCATION("warmelt-normatch.melt:3994:/ locexp"); + MELT_LOCATION("warmelt-normatch.melt:4401:/ locexp"); meltgc_add_out((melt_ptr_t)(/*_.EDGEBUF__V7*/ meltfptr[6]), ( " /*data*/ -> /*step*/ "));} ; /*_.MAPOBJECT_GET__V60*/ meltfptr[59] = melt_get_mapobjects((meltmapobjects_ptr_t)(/*_.MAPSTEP__V5*/ meltfptr[4]), (meltobject_ptr_t)(/*_.CURSTEP__V59*/ meltfptr[58]));; { - MELT_LOCATION("warmelt-normatch.melt:3995:/ locexp"); + MELT_LOCATION("warmelt-normatch.melt:4402:/ locexp"); meltgc_add_out((melt_ptr_t)(/*_.EDGEBUF__V7*/ meltfptr[6]), melt_string_str((melt_ptr_t)(/*_.MAPOBJECT_GET__V60*/ meltfptr[59])));} ; { - MELT_LOCATION("warmelt-normatch.melt:3996:/ locexp"); + MELT_LOCATION("warmelt-normatch.melt:4403:/ locexp"); meltgc_add_out((melt_ptr_t)(/*_.EDGEBUF__V7*/ meltfptr[6]), ( " [ arrowhead=open, color=blueviolet, style=dotted ];"));} ; } /* end cit4__EACHLIST */ /*citerepilog*/ - MELT_LOCATION("warmelt-normatch.melt:3989:/ clear"); + MELT_LOCATION("warmelt-normatch.melt:4396:/ clear"); /*clear*/ /*_.PAIRSTEP__V58*/ meltfptr[57] = 0 ; /*^clear*/ /*clear*/ /*_.CURSTEP__V59*/ meltfptr[58] = 0 ; @@ -11668,7 +17524,7 @@ lab_endgetargs:; /*clear*/ /*_.MAPOBJECT_GET__V60*/ meltfptr[59] = 0 ;} /*endciterblock FOREACH_IN_LIST*/ ; - MELT_LOCATION("warmelt-normatch.melt:3952:/ clear"); + MELT_LOCATION("warmelt-normatch.melt:4359:/ clear"); /*clear*/ /*_.CURDATANAME__V50*/ meltfptr[48] = 0 ; /*^clear*/ /*clear*/ /*_.DATACTYPE__V51*/ meltfptr[50] = 0 ; @@ -11693,7 +17549,7 @@ lab_endgetargs:; /*citerepilog*/ - MELT_LOCATION("warmelt-normatch.melt:3947:/ clear"); + MELT_LOCATION("warmelt-normatch.melt:4354:/ clear"); /*clear*/ /*_.CURDATA__V45*/ meltfptr[43] = 0 ; /*^clear*/ /*clear*/ /*_#DIX__L19*/ meltfnum[17] = 0 ; @@ -11704,13 +17560,13 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normatch.melt:4001:/ cppif.then"); + MELT_LOCATION("warmelt-normatch.melt:4408:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L26*/ meltfnum[24] = meltcallcount;; - MELT_LOCATION("warmelt-normatch.melt:4001:/ apply"); + MELT_LOCATION("warmelt-normatch.melt:4408:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -11721,14 +17577,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].bp_cstring = "warmelt-normatch.melt"; /*^apply.arg*/ - argtab[3].bp_long = 4001; + argtab[3].bp_long = 4408; /*_.DEBUG_MSG_FUN__V62*/ meltfptr[50] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.SORTUPSTEP__V42*/ meltfptr[41]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V61*/ meltfptr[48] = /*_.DEBUG_MSG_FUN__V62*/ meltfptr[50];; /*epilog*/ - MELT_LOCATION("warmelt-normatch.melt:4001:/ clear"); + MELT_LOCATION("warmelt-normatch.melt:4408:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L26*/ meltfnum[24] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V62*/ meltfptr[50] = 0 ;} @@ -11750,13 +17606,13 @@ lab_endgetargs:; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normatch.melt:4005:/ cppif.then"); + MELT_LOCATION("warmelt-normatch.melt:4412:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L28*/ meltfnum[22] = meltcallcount;; - MELT_LOCATION("warmelt-normatch.melt:4005:/ apply"); + MELT_LOCATION("warmelt-normatch.melt:4412:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -11767,14 +17623,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].bp_cstring = "warmelt-normatch.melt"; /*^apply.arg*/ - argtab[3].bp_long = 4005; + argtab[3].bp_long = 4412; /*_.DEBUG_MSG_FUN__V65*/ meltfptr[53] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.CURSTEP__V63*/ meltfptr[51]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V64*/ meltfptr[52] = /*_.DEBUG_MSG_FUN__V65*/ meltfptr[53];; /*epilog*/ - MELT_LOCATION("warmelt-normatch.melt:4005:/ clear"); + MELT_LOCATION("warmelt-normatch.melt:4412:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L28*/ meltfnum[22] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V65*/ meltfptr[53] = 0 ;} @@ -11786,17 +17642,17 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normatch.melt:4006:/ cppif.then"); + MELT_LOCATION("warmelt-normatch.melt:4413:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L29*/ meltfnum[23] = melt_is_instance_of((melt_ptr_t)(/*_.CURSTEP__V63*/ meltfptr[51]), (melt_ptr_t)((/*!CLASS_MATCH_STEP*/ meltfrout->tabval[28])));; - MELT_LOCATION("warmelt-normatch.melt:4006:/ cond"); + MELT_LOCATION("warmelt-normatch.melt:4413:/ cond"); /*cond*/ if (/*_#IS_A__L29*/ meltfnum[23]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V67*/ meltfptr[56] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normatch.melt:4006:/ cond.else"); + } else {MELT_LOCATION("warmelt-normatch.melt:4413:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -11807,7 +17663,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "mg_altdraw_graphviz check curstep"),( "warmelt-normatch.melt")?( "warmelt-normatch.melt"):__FILE__, - (4006)?(4006):__LINE__, __FUNCTION__); + (4413)?(4413):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V67*/ meltfptr[56] = 0 ; @@ -11821,7 +17677,7 @@ lab_endgetargs:; /*_.IFCPP___V66*/ meltfptr[54] = /*_.IFELSE___V67*/ meltfptr[56];; /*epilog*/ - MELT_LOCATION("warmelt-normatch.melt:4006:/ clear"); + MELT_LOCATION("warmelt-normatch.melt:4413:/ clear"); /*clear*/ /*_#IS_A__L29*/ meltfnum[23] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V67*/ meltfptr[56] = 0 ;} @@ -11831,29 +17687,29 @@ lab_endgetargs:; /*_.IFCPP___V66*/ meltfptr[54] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-normatch.melt:4007:/ quasiblock"); + MELT_LOCATION("warmelt-normatch.melt:4414:/ quasiblock"); /*_.CURSTEPNAME__V68*/ meltfptr[50] = melt_get_mapobjects((meltmapobjects_ptr_t)(/*_.MAPSTEP__V5*/ meltfptr[4]), (meltobject_ptr_t)(/*_.CURSTEP__V63*/ meltfptr[51]));; { - MELT_LOCATION("warmelt-normatch.melt:4010:/ locexp"); + MELT_LOCATION("warmelt-normatch.melt:4417:/ locexp"); meltgc_out_add_indent((melt_ptr_t)(/*_.NODEBUF__V6*/ meltfptr[5]), (0), 0);;} ; { - MELT_LOCATION("warmelt-normatch.melt:4011:/ locexp"); + MELT_LOCATION("warmelt-normatch.melt:4418:/ locexp"); meltgc_add_out((melt_ptr_t)(/*_.NODEBUF__V6*/ meltfptr[5]), melt_string_str((melt_ptr_t)(/*_.CURSTEPNAME__V68*/ meltfptr[50])));} ; { - MELT_LOCATION("warmelt-normatch.melt:4012:/ locexp"); + MELT_LOCATION("warmelt-normatch.melt:4419:/ locexp"); meltgc_add_out((melt_ptr_t)(/*_.NODEBUF__V6*/ meltfptr[5]), ( " [ margin=0, "));} ; /*_#IS_A__L30*/ meltfnum[24] = melt_is_instance_of((melt_ptr_t)(/*_.CURSTEP__V63*/ meltfptr[51]), (melt_ptr_t)((/*!CLASS_MATCH_STEP_SUCCESS*/ meltfrout->tabval[29])));; - MELT_LOCATION("warmelt-normatch.melt:4013:/ cond"); + MELT_LOCATION("warmelt-normatch.melt:4420:/ cond"); /*cond*/ if (/*_#IS_A__L30*/ meltfnum[24]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -11861,7 +17717,7 @@ lab_endgetargs:; { - MELT_LOCATION("warmelt-normatch.melt:4014:/ locexp"); + MELT_LOCATION("warmelt-normatch.melt:4421:/ locexp"); meltgc_add_out((melt_ptr_t)(/*_.NODEBUF__V6*/ meltfptr[5]), ( " style=\"filled\", bgcolor=\"palegreen\", "));} ; /*epilog*/ @@ -11871,52 +17727,52 @@ lab_endgetargs:; ; { - MELT_LOCATION("warmelt-normatch.melt:4016:/ locexp"); + MELT_LOCATION("warmelt-normatch.melt:4423:/ locexp"); meltgc_add_out((melt_ptr_t)(/*_.NODEBUF__V6*/ meltfptr[5]), ( "label=<"));} ; { - MELT_LOCATION("warmelt-normatch.melt:4018:/ locexp"); + MELT_LOCATION("warmelt-normatch.melt:4425:/ locexp"); meltgc_out_add_indent((melt_ptr_t)(/*_.NODEBUF__V6*/ meltfptr[5]), (0), 0);;} ; { - MELT_LOCATION("warmelt-normatch.melt:4019:/ locexp"); + MELT_LOCATION("warmelt-normatch.melt:4426:/ locexp"); meltgc_add_out((melt_ptr_t)(/*_.NODEBUF__V6*/ meltfptr[5]), ( ""));} ; { - MELT_LOCATION("warmelt-normatch.melt:4024:/ locexp"); + MELT_LOCATION("warmelt-normatch.melt:4431:/ locexp"); meltgc_out_add_indent((melt_ptr_t)(/*_.NODEBUF__V6*/ meltfptr[5]), (0), 0);;} ; - MELT_LOCATION("warmelt-normatch.melt:4025:/ msend"); + MELT_LOCATION("warmelt-normatch.melt:4432:/ msend"); /*msend*/{ union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); @@ -11927,16 +17783,16 @@ lab_endgetargs:; ; { - MELT_LOCATION("warmelt-normatch.melt:4026:/ locexp"); + MELT_LOCATION("warmelt-normatch.melt:4433:/ locexp"); meltgc_add_out((melt_ptr_t)(/*_.NODEBUF__V6*/ meltfptr[5]), ( "
"));} ; { - MELT_LOCATION("warmelt-normatch.melt:4020:/ locexp"); + MELT_LOCATION("warmelt-normatch.melt:4427:/ locexp"); meltgc_add_out((melt_ptr_t)(/*_.NODEBUF__V6*/ meltfptr[5]), melt_string_str((melt_ptr_t)(/*_.CURSTEPNAME__V68*/ meltfptr[50])));} ; { - MELT_LOCATION("warmelt-normatch.melt:4021:/ locexp"); + MELT_LOCATION("warmelt-normatch.melt:4428:/ locexp"); meltgc_add_out((melt_ptr_t)(/*_.NODEBUF__V6*/ meltfptr[5]), ( "#"));} ; /*_#OBJ_HASH__L31*/ meltfnum[22] = (melt_obj_hash((melt_ptr_t)(/*_.CURSTEP__V63*/ meltfptr[51])));; { - MELT_LOCATION("warmelt-normatch.melt:4022:/ locexp"); + MELT_LOCATION("warmelt-normatch.melt:4429:/ locexp"); meltgc_add_out_hex((melt_ptr_t)(/*_.NODEBUF__V6*/ meltfptr[5]), (/*_#OBJ_HASH__L31*/ meltfnum[22]));} ; { - MELT_LOCATION("warmelt-normatch.melt:4023:/ locexp"); + MELT_LOCATION("warmelt-normatch.melt:4430:/ locexp"); meltgc_add_out((melt_ptr_t)(/*_.NODEBUF__V6*/ meltfptr[5]), ( "
> ];"));} ; { - MELT_LOCATION("warmelt-normatch.melt:4027:/ locexp"); + MELT_LOCATION("warmelt-normatch.melt:4434:/ locexp"); meltgc_out_add_indent((melt_ptr_t)(/*_.NODEBUF__V6*/ meltfptr[5]), (0), 0);;} ; - MELT_LOCATION("warmelt-normatch.melt:4007:/ clear"); + MELT_LOCATION("warmelt-normatch.melt:4414:/ clear"); /*clear*/ /*_.CURSTEPNAME__V68*/ meltfptr[50] = 0 ; /*^clear*/ /*clear*/ /*_#IS_A__L30*/ meltfnum[24] = 0 ; @@ -11949,7 +17805,7 @@ lab_endgetargs:; /*citerepilog*/ - MELT_LOCATION("warmelt-normatch.melt:4002:/ clear"); + MELT_LOCATION("warmelt-normatch.melt:4409:/ clear"); /*clear*/ /*_.CURSTEP__V63*/ meltfptr[51] = 0 ; /*^clear*/ /*clear*/ /*_#DIX__L27*/ meltfnum[19] = 0 ; @@ -11958,12 +17814,12 @@ lab_endgetargs:; /*^clear*/ /*clear*/ /*_.IFCPP___V66*/ meltfptr[54] = 0 ;} /*endciterblock FOREACH_IN_MULTIPLE*/ ; - MELT_LOCATION("warmelt-normatch.melt:4031:/ quasiblock"); + MELT_LOCATION("warmelt-normatch.melt:4438:/ quasiblock"); { - MELT_LOCATION("warmelt-normatch.melt:4035:/ locexp"); + MELT_LOCATION("warmelt-normatch.melt:4442:/ locexp"); /* OUTPUTMGFILE__1 start */ time_t nowt = 0; char nowbuf[60]; @@ -11981,8 +17837,8 @@ lab_endgetargs:; localtime (&nowt)); fprintf (dotfil, "// generated %s\n", nowbuf); fprintf (dotfil, "digraph meltaltmatch_%lx {", /*_#MDATAHASH__L2*/ meltfnum[1]); - fprintf (dotfil, " graph [ label=\"Melt Alt Match %s %s\",", - melt_string_str ((melt_ptr_t) /*_.DOTFILENAME__V14*/ meltfptr[13]), + fprintf (dotfil, " graph [ label=<Melt Alt Match %s ** %s>,", + lbasename (melt_string_str ((melt_ptr_t) /*_.DOTFILENAME__V14*/ meltfptr[13])), nowbuf); fprintf (dotfil," pad=\"0.5\", margin=\"0.3\" ];\n"); fprintf (dotfil, " node [ shape=\"box\", fontsize=\"9\" ];\n"); @@ -11996,7 +17852,7 @@ lab_endgetargs:; ; - MELT_LOCATION("warmelt-normatch.melt:3905:/ clear"); + MELT_LOCATION("warmelt-normatch.melt:4312:/ clear"); /*clear*/ /*_.LAMBDA___V37*/ meltfptr[24] = 0 ; /*^clear*/ /*clear*/ /*_.SORTUPDATA__V39*/ meltfptr[27] = 0 ; @@ -12009,7 +17865,7 @@ lab_endgetargs:; /*^clear*/ /*clear*/ /*_.IFCPP___V61*/ meltfptr[48] = 0 ; - MELT_LOCATION("warmelt-normatch.melt:3887:/ clear"); + MELT_LOCATION("warmelt-normatch.melt:4294:/ clear"); /*clear*/ /*_#DATACOUNT__L10*/ meltfnum[2] = 0 ; /*^clear*/ /*clear*/ /*_#STEPCOUNT__L11*/ meltfnum[10] = 0 ; @@ -12022,7 +17878,7 @@ lab_endgetargs:; /*^clear*/ /*clear*/ /*_.TUPSTEP__V32*/ meltfptr[17] = 0 ; - MELT_LOCATION("warmelt-normatch.melt:3782:/ clear"); + MELT_LOCATION("warmelt-normatch.melt:4189:/ clear"); /*clear*/ /*_.MAPDATA__V4*/ meltfptr[3] = 0 ; /*^clear*/ /*clear*/ /*_.MAPSTEP__V5*/ meltfptr[4] = 0 ; @@ -12060,14 +17916,14 @@ melt_trace_end("MG_ALTDRAW_GRAPHVIZ", meltcallcount); melt_topframe = (struct c #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR -} /*end meltrout_80_warmelt_normatch_MG_ALTDRAW_GRAPHVIZ*/ +} /*end meltrout_83_warmelt_normatch_MG_ALTDRAW_GRAPHVIZ*/ melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_81_warmelt_normatch_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, +meltrout_84_warmelt_normatch_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_) { #if ENABLE_CHECKING @@ -12080,7 +17936,7 @@ meltrout_81_warmelt_normatch_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firsta #define meltcallcount 0L #endif - struct frame_meltrout_81_warmelt_normatch_LAMBDA__st { unsigned nbvar; + struct frame_meltrout_84_warmelt_normatch_LAMBDA__st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif @@ -12113,7 +17969,7 @@ melt_trace_start("LAMBDA_", meltcallcount); /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-normatch.melt:3818:/ getarg"); + MELT_LOCATION("warmelt-normatch.melt:4225:/ getarg"); /*_.DATA__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; ; goto lab_endgetargs; @@ -12124,13 +17980,13 @@ lab_endgetargs:; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normatch.melt:3819:/ cppif.then"); + MELT_LOCATION("warmelt-normatch.melt:4226:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L1*/ meltfnum[0] = meltcallcount;; - MELT_LOCATION("warmelt-normatch.melt:3819:/ apply"); + MELT_LOCATION("warmelt-normatch.melt:4226:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -12141,14 +17997,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].bp_cstring = "warmelt-normatch.melt"; /*^apply.arg*/ - argtab[3].bp_long = 3819; + argtab[3].bp_long = 4226; /*_.DEBUG_MSG_FUN__V4*/ meltfptr[3] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.DATA__V2*/ meltfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V3*/ meltfptr[2] = /*_.DEBUG_MSG_FUN__V4*/ meltfptr[3];; /*epilog*/ - MELT_LOCATION("warmelt-normatch.melt:3819:/ clear"); + MELT_LOCATION("warmelt-normatch.melt:4226:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L1*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V4*/ meltfptr[3] = 0 ;} @@ -12160,17 +18016,17 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normatch.melt:3820:/ cppif.then"); + MELT_LOCATION("warmelt-normatch.melt:4227:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L2*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.DATA__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_MATCHED_DATA*/ meltfrout->tabval[1])));; - MELT_LOCATION("warmelt-normatch.melt:3820:/ cond"); + MELT_LOCATION("warmelt-normatch.melt:4227:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V6*/ meltfptr[5] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normatch.melt:3820:/ cond.else"); + } else {MELT_LOCATION("warmelt-normatch.melt:4227:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -12181,7 +18037,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "mg_altdraw_graphviz.scandata check data"),( "warmelt-normatch.melt")?( "warmelt-normatch.melt"):__FILE__, - (3820)?(3820):__LINE__, __FUNCTION__); + (4227)?(4227):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V6*/ meltfptr[5] = 0 ; @@ -12195,7 +18051,7 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[3] = /*_.IFELSE___V6*/ meltfptr[5];; /*epilog*/ - MELT_LOCATION("warmelt-normatch.melt:3820:/ clear"); + MELT_LOCATION("warmelt-normatch.melt:4227:/ clear"); /*clear*/ /*_#IS_A__L2*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V6*/ meltfptr[5] = 0 ;} @@ -12205,17 +18061,17 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[3] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-normatch.melt:3821:/ quasiblock"); + MELT_LOCATION("warmelt-normatch.melt:4228:/ quasiblock"); /*_.MAPOBJECT_GET__V8*/ meltfptr[7] = melt_get_mapobjects((meltmapobjects_ptr_t)((/*~MAPDATA*/ meltfclos->tabval[0])), (meltobject_ptr_t)(/*_.DATA__V2*/ meltfptr[1]));; - MELT_LOCATION("warmelt-normatch.melt:3821:/ apply"); + MELT_LOCATION("warmelt-normatch.melt:4228:/ apply"); /*apply*/{ /*_.OLDNAME__V9*/ meltfptr[8] = melt_apply ((meltclosure_ptr_t)(/*_.MAPOBJECT_GET__V8*/ meltfptr[7]), (melt_ptr_t)(NULL), (""), (union meltparam_un*)0, "", (union meltparam_un*)0); } ; - MELT_LOCATION("warmelt-normatch.melt:3823:/ cond"); + MELT_LOCATION("warmelt-normatch.melt:4230:/ cond"); /*cond*/ if (/*_.OLDNAME__V9*/ meltfptr[8]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -12223,13 +18079,13 @@ lab_endgetargs:; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normatch.melt:3825:/ cppif.then"); + MELT_LOCATION("warmelt-normatch.melt:4232:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L3*/ meltfnum[0] = meltcallcount;; - MELT_LOCATION("warmelt-normatch.melt:3825:/ apply"); + MELT_LOCATION("warmelt-normatch.melt:4232:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -12240,14 +18096,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].bp_cstring = "warmelt-normatch.melt"; /*^apply.arg*/ - argtab[3].bp_long = 3825; + argtab[3].bp_long = 4232; /*_.DEBUG_MSG_FUN__V12*/ meltfptr[11] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.OLDNAME__V9*/ meltfptr[8]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V11*/ meltfptr[10] = /*_.DEBUG_MSG_FUN__V12*/ meltfptr[11];; /*epilog*/ - MELT_LOCATION("warmelt-normatch.melt:3825:/ clear"); + MELT_LOCATION("warmelt-normatch.melt:4232:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L3*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V12*/ meltfptr[11] = 0 ;} @@ -12257,14 +18113,14 @@ lab_endgetargs:; /*_.IFCPP___V11*/ meltfptr[10] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-normatch.melt:3826:/ quasiblock"); + MELT_LOCATION("warmelt-normatch.melt:4233:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.OLDNAME__V9*/ meltfptr[8];; - MELT_LOCATION("warmelt-normatch.melt:3826:/ finalreturn"); + MELT_LOCATION("warmelt-normatch.melt:4233:/ finalreturn"); ; /*finalret*/ goto labend_rout ; - MELT_LOCATION("warmelt-normatch.melt:3824:/ quasiblock"); + MELT_LOCATION("warmelt-normatch.melt:4231:/ quasiblock"); /*_.PROGN___V14*/ meltfptr[13] = /*_.RETURN___V13*/ meltfptr[11];; @@ -12273,7 +18129,7 @@ lab_endgetargs:; /*_.IF___V10*/ meltfptr[9] = /*_.PROGN___V14*/ meltfptr[13];; /*epilog*/ - MELT_LOCATION("warmelt-normatch.melt:3823:/ clear"); + MELT_LOCATION("warmelt-normatch.melt:4230:/ clear"); /*clear*/ /*_.IFCPP___V11*/ meltfptr[10] = 0 ; /*^clear*/ /*clear*/ /*_.RETURN___V13*/ meltfptr[11] = 0 ; @@ -12289,45 +18145,45 @@ lab_endgetargs:; /*_.LET___V7*/ meltfptr[5] = /*_.IF___V10*/ meltfptr[9];; - MELT_LOCATION("warmelt-normatch.melt:3821:/ clear"); + MELT_LOCATION("warmelt-normatch.melt:4228:/ clear"); /*clear*/ /*_.MAPOBJECT_GET__V8*/ meltfptr[7] = 0 ; /*^clear*/ /*clear*/ /*_.OLDNAME__V9*/ meltfptr[8] = 0 ; /*^clear*/ /*clear*/ /*_.IF___V10*/ meltfptr[9] = 0 ; - MELT_LOCATION("warmelt-normatch.melt:3827:/ quasiblock"); + MELT_LOCATION("warmelt-normatch.melt:4234:/ quasiblock"); /*_.NAMBUF__V15*/ meltfptr[10] = meltgc_new_strbuf((meltobject_ptr_t)((/*!DISCR_STRBUF*/ meltfrout->tabval[2])), (char*)0);; - MELT_LOCATION("warmelt-normatch.melt:3828:/ getslot"); + MELT_LOCATION("warmelt-normatch.melt:4235:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.DATA__V2*/ meltfptr[1]), 1, "MDATA_SYMB");/*_.MSYMB__V16*/ meltfptr[11] = slot; }; ; /*_#MAPCNT__L4*/ meltfnum[0] = (melt_count_mapobjects((meltmapobjects_ptr_t)((/*~MAPDATA*/ meltfclos->tabval[0]))));; - MELT_LOCATION("warmelt-normatch.melt:3830:/ getslot"); + MELT_LOCATION("warmelt-normatch.melt:4237:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.DATA__V2*/ meltfptr[1]), 4, "MDATA_STEPS");/*_.MSTEPS__V17*/ meltfptr[13] = slot; }; ; { - MELT_LOCATION("warmelt-normatch.melt:3832:/ locexp"); + MELT_LOCATION("warmelt-normatch.melt:4239:/ locexp"); meltgc_add_strbuf((melt_ptr_t)(/*_.NAMBUF__V15*/ meltfptr[10]), ( "mdata_"));} ; /*_#I__L5*/ meltfnum[4] = ((/*_#MAPCNT__L4*/ meltfnum[0]) + (1));; { - MELT_LOCATION("warmelt-normatch.melt:3833:/ locexp"); + MELT_LOCATION("warmelt-normatch.melt:4240:/ locexp"); meltgc_add_strbuf_dec((melt_ptr_t)(/*_.NAMBUF__V15*/ meltfptr[10]), (/*_#I__L5*/ meltfnum[4]));} ; { - MELT_LOCATION("warmelt-normatch.melt:3834:/ locexp"); + MELT_LOCATION("warmelt-normatch.melt:4241:/ locexp"); meltgc_add_strbuf((melt_ptr_t)(/*_.NAMBUF__V15*/ meltfptr[10]), ( "_"));} ; - MELT_LOCATION("warmelt-normatch.melt:3835:/ cond"); + MELT_LOCATION("warmelt-normatch.melt:4242:/ cond"); /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.MSYMB__V16*/ meltfptr[11]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[3])))) /*then*/ { /*^cond.then*/ /*^getslot*/ @@ -12341,13 +18197,13 @@ lab_endgetargs:; ; { - MELT_LOCATION("warmelt-normatch.melt:3835:/ locexp"); + MELT_LOCATION("warmelt-normatch.melt:4242:/ locexp"); meltgc_add_strbuf_cident((melt_ptr_t)(/*_.NAMBUF__V15*/ meltfptr[10]), melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V18*/ meltfptr[7])));} ; /*_#IS_A__L6*/ meltfnum[5] = melt_is_instance_of((melt_ptr_t)(/*_.MSYMB__V16*/ meltfptr[11]), (melt_ptr_t)((/*!CLASS_CLONED_SYMBOL*/ meltfrout->tabval[4])));; - MELT_LOCATION("warmelt-normatch.melt:3836:/ cond"); + MELT_LOCATION("warmelt-normatch.melt:4243:/ cond"); /*cond*/ if (/*_#IS_A__L6*/ meltfnum[5]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -12355,10 +18211,10 @@ lab_endgetargs:; { - MELT_LOCATION("warmelt-normatch.melt:3838:/ locexp"); + MELT_LOCATION("warmelt-normatch.melt:4245:/ locexp"); meltgc_add_strbuf((melt_ptr_t)(/*_.NAMBUF__V15*/ meltfptr[10]), ( "__"));} ; - MELT_LOCATION("warmelt-normatch.melt:3839:/ getslot"); + MELT_LOCATION("warmelt-normatch.melt:4246:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.MSYMB__V16*/ meltfptr[11]), 3, "CSYM_URANK");/*_.CSYM_URANK__V19*/ meltfptr[8] = slot; }; ; @@ -12366,15 +18222,15 @@ lab_endgetargs:; (melt_get_int((melt_ptr_t)(/*_.CSYM_URANK__V19*/ meltfptr[8])));; { - MELT_LOCATION("warmelt-normatch.melt:3839:/ locexp"); + MELT_LOCATION("warmelt-normatch.melt:4246:/ locexp"); meltgc_add_strbuf_dec((melt_ptr_t)(/*_.NAMBUF__V15*/ meltfptr[10]), (/*_#GET_INT__L7*/ meltfnum[6]));} ; - MELT_LOCATION("warmelt-normatch.melt:3837:/ quasiblock"); + MELT_LOCATION("warmelt-normatch.melt:4244:/ quasiblock"); /*epilog*/ - MELT_LOCATION("warmelt-normatch.melt:3836:/ clear"); + MELT_LOCATION("warmelt-normatch.melt:4243:/ clear"); /*clear*/ /*_.CSYM_URANK__V19*/ meltfptr[8] = 0 ; /*^clear*/ /*clear*/ /*_#GET_INT__L7*/ meltfnum[6] = 0 ;} @@ -12385,7 +18241,7 @@ lab_endgetargs:; (meltgc_new_stringdup((meltobject_ptr_t)((/*!DISCR_STRING*/ meltfrout->tabval[5])), melt_strbuf_str((melt_ptr_t)(/*_.NAMBUF__V15*/ meltfptr[10]))));; { - MELT_LOCATION("warmelt-normatch.melt:3840:/ locexp"); + MELT_LOCATION("warmelt-normatch.melt:4247:/ locexp"); meltgc_put_mapobjects( (meltmapobjects_ptr_t) ((/*~MAPDATA*/ meltfclos->tabval[0])), (meltobject_ptr_t) (/*_.DATA__V2*/ meltfptr[1]), (melt_ptr_t)(/*_.STRBUF2STRING__V20*/ meltfptr[9]));} @@ -12398,7 +18254,7 @@ lab_endgetargs:; /*_.CURSTEP__V22*/ meltfptr[21] = melt_pair_head(/*_.CURPAIR__V21*/ meltfptr[8]); - MELT_LOCATION("warmelt-normatch.melt:3844:/ apply"); + MELT_LOCATION("warmelt-normatch.melt:4251:/ apply"); /*apply*/{ /*_.SCANSTEP__V23*/ meltfptr[22] = melt_apply ((meltclosure_ptr_t)((/*~SCANSTEP*/ meltfclos->tabval[1])), (melt_ptr_t)(/*_.CURSTEP__V22*/ meltfptr[21]), (""), (union meltparam_un*)0, "", (union meltparam_un*)0); } @@ -12407,7 +18263,7 @@ lab_endgetargs:; /*citerepilog*/ - MELT_LOCATION("warmelt-normatch.melt:3841:/ clear"); + MELT_LOCATION("warmelt-normatch.melt:4248:/ clear"); /*clear*/ /*_.CURPAIR__V21*/ meltfptr[8] = 0 ; /*^clear*/ /*clear*/ /*_.CURSTEP__V22*/ meltfptr[21] = 0 ; @@ -12415,7 +18271,7 @@ lab_endgetargs:; /*clear*/ /*_.SCANSTEP__V23*/ meltfptr[22] = 0 ;} /*endciterblock FOREACH_IN_LIST*/ ; - MELT_LOCATION("warmelt-normatch.melt:3827:/ clear"); + MELT_LOCATION("warmelt-normatch.melt:4234:/ clear"); /*clear*/ /*_.NAMBUF__V15*/ meltfptr[10] = 0 ; /*^clear*/ /*clear*/ /*_.MSYMB__V16*/ meltfptr[11] = 0 ; @@ -12433,7 +18289,7 @@ lab_endgetargs:; /*clear*/ /*_.STRBUF2STRING__V20*/ meltfptr[9] = 0 ; /*epilog*/ - MELT_LOCATION("warmelt-normatch.melt:3818:/ clear"); + MELT_LOCATION("warmelt-normatch.melt:4225:/ clear"); /*clear*/ /*_.IFCPP___V3*/ meltfptr[2] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V5*/ meltfptr[3] = 0 ; @@ -12449,14 +18305,14 @@ melt_trace_end("LAMBDA_", meltcallcount); melt_topframe = (struct callframe_mel #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR -} /*end meltrout_81_warmelt_normatch_LAMBDA_*/ +} /*end meltrout_84_warmelt_normatch_LAMBDA_*/ melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_82_warmelt_normatch_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, +meltrout_85_warmelt_normatch_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_) { #if ENABLE_CHECKING @@ -12469,7 +18325,7 @@ meltrout_82_warmelt_normatch_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firsta #define meltcallcount 0L #endif - struct frame_meltrout_82_warmelt_normatch_LAMBDA__st { unsigned nbvar; + struct frame_meltrout_85_warmelt_normatch_LAMBDA__st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif @@ -12502,7 +18358,7 @@ melt_trace_start("LAMBDA_", meltcallcount); /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-normatch.melt:3848:/ getarg"); + MELT_LOCATION("warmelt-normatch.melt:4255:/ getarg"); /*_.STEP__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; ; goto lab_endgetargs; @@ -12513,13 +18369,13 @@ lab_endgetargs:; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normatch.melt:3849:/ cppif.then"); + MELT_LOCATION("warmelt-normatch.melt:4256:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L1*/ meltfnum[0] = meltcallcount;; - MELT_LOCATION("warmelt-normatch.melt:3849:/ apply"); + MELT_LOCATION("warmelt-normatch.melt:4256:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -12530,14 +18386,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].bp_cstring = "warmelt-normatch.melt"; /*^apply.arg*/ - argtab[3].bp_long = 3849; + argtab[3].bp_long = 4256; /*_.DEBUG_MSG_FUN__V4*/ meltfptr[3] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.STEP__V2*/ meltfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V3*/ meltfptr[2] = /*_.DEBUG_MSG_FUN__V4*/ meltfptr[3];; /*epilog*/ - MELT_LOCATION("warmelt-normatch.melt:3849:/ clear"); + MELT_LOCATION("warmelt-normatch.melt:4256:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L1*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V4*/ meltfptr[3] = 0 ;} @@ -12549,17 +18405,17 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normatch.melt:3850:/ cppif.then"); + MELT_LOCATION("warmelt-normatch.melt:4257:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L2*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.STEP__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_MATCH_STEP*/ meltfrout->tabval[1])));; - MELT_LOCATION("warmelt-normatch.melt:3850:/ cond"); + MELT_LOCATION("warmelt-normatch.melt:4257:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V6*/ meltfptr[5] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normatch.melt:3850:/ cond.else"); + } else {MELT_LOCATION("warmelt-normatch.melt:4257:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -12570,7 +18426,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "mg_altdraw_graphviz.scanstep check step"),( "warmelt-normatch.melt")?( "warmelt-normatch.melt"):__FILE__, - (3850)?(3850):__LINE__, __FUNCTION__); + (4257)?(4257):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V6*/ meltfptr[5] = 0 ; @@ -12584,7 +18440,7 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[3] = /*_.IFELSE___V6*/ meltfptr[5];; /*epilog*/ - MELT_LOCATION("warmelt-normatch.melt:3850:/ clear"); + MELT_LOCATION("warmelt-normatch.melt:4257:/ clear"); /*clear*/ /*_#IS_A__L2*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V6*/ meltfptr[5] = 0 ;} @@ -12594,12 +18450,12 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[3] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-normatch.melt:3851:/ quasiblock"); + MELT_LOCATION("warmelt-normatch.melt:4258:/ quasiblock"); /*_.OLDNAME__V8*/ meltfptr[7] = melt_get_mapobjects((meltmapobjects_ptr_t)((/*~MAPSTEP*/ meltfclos->tabval[0])), (meltobject_ptr_t)(/*_.STEP__V2*/ meltfptr[1]));; - MELT_LOCATION("warmelt-normatch.melt:3853:/ cond"); + MELT_LOCATION("warmelt-normatch.melt:4260:/ cond"); /*cond*/ if (/*_.OLDNAME__V8*/ meltfptr[7]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -12607,13 +18463,13 @@ lab_endgetargs:; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normatch.melt:3855:/ cppif.then"); + MELT_LOCATION("warmelt-normatch.melt:4262:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L3*/ meltfnum[0] = meltcallcount;; - MELT_LOCATION("warmelt-normatch.melt:3855:/ apply"); + MELT_LOCATION("warmelt-normatch.melt:4262:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -12624,14 +18480,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].bp_cstring = "warmelt-normatch.melt"; /*^apply.arg*/ - argtab[3].bp_long = 3855; + argtab[3].bp_long = 4262; /*_.DEBUG_MSG_FUN__V11*/ meltfptr[10] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.OLDNAME__V8*/ meltfptr[7]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V10*/ meltfptr[9] = /*_.DEBUG_MSG_FUN__V11*/ meltfptr[10];; /*epilog*/ - MELT_LOCATION("warmelt-normatch.melt:3855:/ clear"); + MELT_LOCATION("warmelt-normatch.melt:4262:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L3*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V11*/ meltfptr[10] = 0 ;} @@ -12641,14 +18497,14 @@ lab_endgetargs:; /*_.IFCPP___V10*/ meltfptr[9] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-normatch.melt:3856:/ quasiblock"); + MELT_LOCATION("warmelt-normatch.melt:4263:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.OLDNAME__V8*/ meltfptr[7];; - MELT_LOCATION("warmelt-normatch.melt:3856:/ finalreturn"); + MELT_LOCATION("warmelt-normatch.melt:4263:/ finalreturn"); ; /*finalret*/ goto labend_rout ; - MELT_LOCATION("warmelt-normatch.melt:3854:/ quasiblock"); + MELT_LOCATION("warmelt-normatch.melt:4261:/ quasiblock"); /*_.PROGN___V13*/ meltfptr[12] = /*_.RETURN___V12*/ meltfptr[10];; @@ -12657,7 +18513,7 @@ lab_endgetargs:; /*_.IF___V9*/ meltfptr[8] = /*_.PROGN___V13*/ meltfptr[12];; /*epilog*/ - MELT_LOCATION("warmelt-normatch.melt:3853:/ clear"); + MELT_LOCATION("warmelt-normatch.melt:4260:/ clear"); /*clear*/ /*_.IFCPP___V10*/ meltfptr[9] = 0 ; /*^clear*/ /*clear*/ /*_.RETURN___V12*/ meltfptr[10] = 0 ; @@ -12673,11 +18529,11 @@ lab_endgetargs:; /*_.LET___V7*/ meltfptr[5] = /*_.IF___V9*/ meltfptr[8];; - MELT_LOCATION("warmelt-normatch.melt:3851:/ clear"); + MELT_LOCATION("warmelt-normatch.melt:4258:/ clear"); /*clear*/ /*_.OLDNAME__V8*/ meltfptr[7] = 0 ; /*^clear*/ /*clear*/ /*_.IF___V9*/ meltfptr[8] = 0 ; - MELT_LOCATION("warmelt-normatch.melt:3857:/ quasiblock"); + MELT_LOCATION("warmelt-normatch.melt:4264:/ quasiblock"); /*_.NAMBUF__V15*/ meltfptr[10] = @@ -12690,7 +18546,7 @@ lab_endgetargs:; /*_.DISCRIM__V16*/ meltfptr[12] = (melt_discr((melt_ptr_t)(/*_.STEP__V2*/ meltfptr[1])));; - MELT_LOCATION("warmelt-normatch.melt:3859:/ cond"); + MELT_LOCATION("warmelt-normatch.melt:4266:/ cond"); /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.DISCRIM__V16*/ meltfptr[12]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[3])))) /*then*/ { /*^cond.then*/ /*^getslot*/ @@ -12702,38 +18558,38 @@ lab_endgetargs:; /*_.DISNAM__V17*/ meltfptr[7] = NULL;; } ; - MELT_LOCATION("warmelt-normatch.melt:3860:/ getslot"); + MELT_LOCATION("warmelt-normatch.melt:4267:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.STEP__V2*/ meltfptr[1]), 2, "MSTEP_DATA");/*_.SDATA__V18*/ meltfptr[8] = slot; }; ; { - MELT_LOCATION("warmelt-normatch.melt:3863:/ locexp"); + MELT_LOCATION("warmelt-normatch.melt:4270:/ locexp"); meltgc_add_strbuf ((melt_ptr_t)/*_.NAMBUF__V15*/ meltfptr[10], melt_string_str((melt_ptr_t)/*_.DISNAM__V17*/ meltfptr[7])+strlen("CLASS_")) ;} ; { - MELT_LOCATION("warmelt-normatch.melt:3865:/ locexp"); + MELT_LOCATION("warmelt-normatch.melt:4272:/ locexp"); meltgc_add_strbuf((melt_ptr_t)(/*_.NAMBUF__V15*/ meltfptr[10]), ( "__"));} ; /*_#I__L5*/ meltfnum[4] = ((/*_#MAPCNT__L4*/ meltfnum[0]) + (1));; { - MELT_LOCATION("warmelt-normatch.melt:3866:/ locexp"); + MELT_LOCATION("warmelt-normatch.melt:4273:/ locexp"); meltgc_add_strbuf_dec((melt_ptr_t)(/*_.NAMBUF__V15*/ meltfptr[10]), (/*_#I__L5*/ meltfnum[4]));} ; /*_.STRBUF2STRING__V19*/ meltfptr[18] = (meltgc_new_stringdup((meltobject_ptr_t)((/*!DISCR_STRING*/ meltfrout->tabval[4])), melt_strbuf_str((melt_ptr_t)(/*_.NAMBUF__V15*/ meltfptr[10]))));; { - MELT_LOCATION("warmelt-normatch.melt:3867:/ locexp"); + MELT_LOCATION("warmelt-normatch.melt:4274:/ locexp"); meltgc_put_mapobjects( (meltmapobjects_ptr_t) ((/*~MAPSTEP*/ meltfclos->tabval[0])), (meltobject_ptr_t) (/*_.STEP__V2*/ meltfptr[1]), (melt_ptr_t)(/*_.STRBUF2STRING__V19*/ meltfptr[18]));} ; - MELT_LOCATION("warmelt-normatch.melt:3868:/ cond"); + MELT_LOCATION("warmelt-normatch.melt:4275:/ cond"); /*cond*/ if (/*_.SDATA__V18*/ meltfptr[8]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -12747,7 +18603,7 @@ lab_endgetargs:; /*_.IF___V20*/ meltfptr[19] = /*_.SCANDATA__V21*/ meltfptr[20];; /*epilog*/ - MELT_LOCATION("warmelt-normatch.melt:3868:/ clear"); + MELT_LOCATION("warmelt-normatch.melt:4275:/ clear"); /*clear*/ /*_.SCANDATA__V21*/ meltfptr[20] = 0 ;} ; } else {/*^cond.else*/ @@ -12755,7 +18611,7 @@ lab_endgetargs:; /*_.IF___V20*/ meltfptr[19] = NULL;; } ; - MELT_LOCATION("warmelt-normatch.melt:3869:/ msend"); + MELT_LOCATION("warmelt-normatch.melt:4276:/ msend"); /*msend*/{ union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); @@ -12766,10 +18622,10 @@ lab_endgetargs:; /*_.SCAN_STEP_DATA__V22*/ meltfptr[20] = meltgc_send((melt_ptr_t)(/*_.STEP__V2*/ meltfptr[1]), (melt_ptr_t)((/*!SCAN_STEP_DATA*/ meltfrout->tabval[5])), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - MELT_LOCATION("warmelt-normatch.melt:3870:/ quasiblock"); + MELT_LOCATION("warmelt-normatch.melt:4277:/ quasiblock"); - MELT_LOCATION("warmelt-normatch.melt:3872:/ cond"); + MELT_LOCATION("warmelt-normatch.melt:4279:/ cond"); /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.STEP__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_MATCH_STEP_THEN*/ meltfrout->tabval[6])))) /*then*/ { /*^cond.then*/ /*^getslot*/ @@ -12781,7 +18637,7 @@ lab_endgetargs:; /*_.STHEN__V24*/ meltfptr[23] = NULL;; } ; - MELT_LOCATION("warmelt-normatch.melt:3873:/ cond"); + MELT_LOCATION("warmelt-normatch.melt:4280:/ cond"); /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.STEP__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_MATCH_STEP_TEST*/ meltfrout->tabval[7])))) /*then*/ { /*^cond.then*/ /*^getslot*/ @@ -12793,7 +18649,7 @@ lab_endgetargs:; /*_.SELSE__V25*/ meltfptr[24] = NULL;; } ; - MELT_LOCATION("warmelt-normatch.melt:3875:/ cond"); + MELT_LOCATION("warmelt-normatch.melt:4282:/ cond"); /*cond*/ if (/*_.STHEN__V24*/ meltfptr[23]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -12807,7 +18663,7 @@ lab_endgetargs:; /*_.IF___V26*/ meltfptr[25] = /*_.SCANSTEP__V27*/ meltfptr[26];; /*epilog*/ - MELT_LOCATION("warmelt-normatch.melt:3875:/ clear"); + MELT_LOCATION("warmelt-normatch.melt:4282:/ clear"); /*clear*/ /*_.SCANSTEP__V27*/ meltfptr[26] = 0 ;} ; } else {/*^cond.else*/ @@ -12815,7 +18671,7 @@ lab_endgetargs:; /*_.IF___V26*/ meltfptr[25] = NULL;; } ; - MELT_LOCATION("warmelt-normatch.melt:3876:/ cond"); + MELT_LOCATION("warmelt-normatch.melt:4283:/ cond"); /*cond*/ if (/*_.SELSE__V25*/ meltfptr[24]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -12829,7 +18685,7 @@ lab_endgetargs:; /*_.IF___V28*/ meltfptr[26] = /*_.SCANSTEP__V29*/ meltfptr[28];; /*epilog*/ - MELT_LOCATION("warmelt-normatch.melt:3876:/ clear"); + MELT_LOCATION("warmelt-normatch.melt:4283:/ clear"); /*clear*/ /*_.SCANSTEP__V29*/ meltfptr[28] = 0 ;} ; } else {/*^cond.else*/ @@ -12841,7 +18697,7 @@ lab_endgetargs:; /*_.LET___V23*/ meltfptr[22] = /*_.IF___V28*/ meltfptr[26];; - MELT_LOCATION("warmelt-normatch.melt:3870:/ clear"); + MELT_LOCATION("warmelt-normatch.melt:4277:/ clear"); /*clear*/ /*_.STHEN__V24*/ meltfptr[23] = 0 ; /*^clear*/ /*clear*/ /*_.SELSE__V25*/ meltfptr[24] = 0 ; @@ -12851,7 +18707,7 @@ lab_endgetargs:; /*clear*/ /*_.IF___V28*/ meltfptr[26] = 0 ; /*_.LET___V14*/ meltfptr[9] = /*_.LET___V23*/ meltfptr[22];; - MELT_LOCATION("warmelt-normatch.melt:3857:/ clear"); + MELT_LOCATION("warmelt-normatch.melt:4264:/ clear"); /*clear*/ /*_.NAMBUF__V15*/ meltfptr[10] = 0 ; /*^clear*/ /*clear*/ /*_#MAPCNT__L4*/ meltfnum[0] = 0 ; @@ -12871,11 +18727,11 @@ lab_endgetargs:; /*clear*/ /*_.SCAN_STEP_DATA__V22*/ meltfptr[20] = 0 ; /*^clear*/ /*clear*/ /*_.LET___V23*/ meltfptr[22] = 0 ; - MELT_LOCATION("warmelt-normatch.melt:3848:/ quasiblock"); + MELT_LOCATION("warmelt-normatch.melt:4255:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V14*/ meltfptr[9];; - MELT_LOCATION("warmelt-normatch.melt:3848:/ finalreturn"); + MELT_LOCATION("warmelt-normatch.melt:4255:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*epilog*/ @@ -12898,14 +18754,14 @@ melt_trace_end("LAMBDA_", meltcallcount); melt_topframe = (struct callframe_mel #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR -} /*end meltrout_82_warmelt_normatch_LAMBDA_*/ +} /*end meltrout_85_warmelt_normatch_LAMBDA_*/ melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_83_warmelt_normatch_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, +meltrout_86_warmelt_normatch_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_) { #if ENABLE_CHECKING @@ -12918,7 +18774,7 @@ meltrout_83_warmelt_normatch_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firsta #define meltcallcount 0L #endif - struct frame_meltrout_83_warmelt_normatch_LAMBDA__st { unsigned nbvar; + struct frame_meltrout_86_warmelt_normatch_LAMBDA__st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif @@ -12951,7 +18807,7 @@ melt_trace_start("LAMBDA_", meltcallcount); /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-normatch.melt:3909:/ getarg"); + MELT_LOCATION("warmelt-normatch.melt:4316:/ getarg"); /*_.D1__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; /*getarg#1*/ @@ -12967,7 +18823,7 @@ lab_endgetargs:; /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-normatch.melt:3910:/ quasiblock"); + MELT_LOCATION("warmelt-normatch.melt:4317:/ quasiblock"); /*_.SN1__V5*/ meltfptr[4] = @@ -12980,27 +18836,27 @@ lab_endgetargs:; /*_#STRING___L1*/ meltfnum[0] = melt_string_less((melt_ptr_t)(/*_.SN1__V5*/ meltfptr[4]), (melt_ptr_t)(/*_.SN2__V6*/ meltfptr[5]));; - MELT_LOCATION("warmelt-normatch.melt:3915:/ cond"); + MELT_LOCATION("warmelt-normatch.melt:4322:/ cond"); /*cond*/ if (/*_#STRING___L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V7*/ meltfptr[6] = (/*!konst_0*/ meltfrout->tabval[0]);; - } else {MELT_LOCATION("warmelt-normatch.melt:3915:/ cond.else"); + } else {MELT_LOCATION("warmelt-normatch.melt:4322:/ cond.else"); /*^block*/ /*anyblock*/{ /*_#STRING___L2*/ meltfnum[1] = melt_string_less((melt_ptr_t)(/*_.SN2__V6*/ meltfptr[5]), (melt_ptr_t)(/*_.SN1__V5*/ meltfptr[4]));; - MELT_LOCATION("warmelt-normatch.melt:3917:/ cond"); + MELT_LOCATION("warmelt-normatch.melt:4324:/ cond"); /*cond*/ if (/*_#STRING___L2*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V8*/ meltfptr[7] = (/*!konst_1*/ meltfrout->tabval[1]);; - } else {MELT_LOCATION("warmelt-normatch.melt:3917:/ cond.else"); + } else {MELT_LOCATION("warmelt-normatch.melt:4324:/ cond.else"); /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-normatch.melt:3919:/ quasiblock"); + MELT_LOCATION("warmelt-normatch.melt:4326:/ quasiblock"); /*_.PROGN___V9*/ meltfptr[8] = (/*!konst_2*/ meltfrout->tabval[2]);; @@ -13009,7 +18865,7 @@ lab_endgetargs:; /*_.IFELSE___V8*/ meltfptr[7] = /*_.PROGN___V9*/ meltfptr[8];; /*epilog*/ - MELT_LOCATION("warmelt-normatch.melt:3917:/ clear"); + MELT_LOCATION("warmelt-normatch.melt:4324:/ clear"); /*clear*/ /*_.PROGN___V9*/ meltfptr[8] = 0 ;} ; } @@ -13017,7 +18873,7 @@ lab_endgetargs:; /*_.IFELSE___V7*/ meltfptr[6] = /*_.IFELSE___V8*/ meltfptr[7];; /*epilog*/ - MELT_LOCATION("warmelt-normatch.melt:3915:/ clear"); + MELT_LOCATION("warmelt-normatch.melt:4322:/ clear"); /*clear*/ /*_#STRING___L2*/ meltfnum[1] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V8*/ meltfptr[7] = 0 ;} @@ -13026,7 +18882,7 @@ lab_endgetargs:; ; /*_.LET___V4*/ meltfptr[3] = /*_.IFELSE___V7*/ meltfptr[6];; - MELT_LOCATION("warmelt-normatch.melt:3910:/ clear"); + MELT_LOCATION("warmelt-normatch.melt:4317:/ clear"); /*clear*/ /*_.SN1__V5*/ meltfptr[4] = 0 ; /*^clear*/ /*clear*/ /*_.SN2__V6*/ meltfptr[5] = 0 ; @@ -13034,11 +18890,11 @@ lab_endgetargs:; /*clear*/ /*_#STRING___L1*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V7*/ meltfptr[6] = 0 ; - MELT_LOCATION("warmelt-normatch.melt:3909:/ quasiblock"); + MELT_LOCATION("warmelt-normatch.melt:4316:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V4*/ meltfptr[3];; - MELT_LOCATION("warmelt-normatch.melt:3909:/ finalreturn"); + MELT_LOCATION("warmelt-normatch.melt:4316:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*epilog*/ @@ -13055,14 +18911,14 @@ melt_trace_end("LAMBDA_", meltcallcount); melt_topframe = (struct callframe_mel #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR -} /*end meltrout_83_warmelt_normatch_LAMBDA_*/ +} /*end meltrout_86_warmelt_normatch_LAMBDA_*/ melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_84_warmelt_normatch_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, +meltrout_87_warmelt_normatch_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_) { #if ENABLE_CHECKING @@ -13075,7 +18931,7 @@ meltrout_84_warmelt_normatch_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firsta #define meltcallcount 0L #endif - struct frame_meltrout_84_warmelt_normatch_LAMBDA__st { unsigned nbvar; + struct frame_meltrout_87_warmelt_normatch_LAMBDA__st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif @@ -13108,7 +18964,7 @@ melt_trace_start("LAMBDA_", meltcallcount); /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-normatch.melt:3928:/ getarg"); + MELT_LOCATION("warmelt-normatch.melt:4335:/ getarg"); /*_.S1__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; /*getarg#1*/ @@ -13124,7 +18980,7 @@ lab_endgetargs:; /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-normatch.melt:3929:/ quasiblock"); + MELT_LOCATION("warmelt-normatch.melt:4336:/ quasiblock"); /*_.SN1__V5*/ meltfptr[4] = @@ -13137,27 +18993,27 @@ lab_endgetargs:; /*_#STRING___L1*/ meltfnum[0] = melt_string_less((melt_ptr_t)(/*_.SN1__V5*/ meltfptr[4]), (melt_ptr_t)(/*_.SN2__V6*/ meltfptr[5]));; - MELT_LOCATION("warmelt-normatch.melt:3934:/ cond"); + MELT_LOCATION("warmelt-normatch.melt:4341:/ cond"); /*cond*/ if (/*_#STRING___L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V7*/ meltfptr[6] = (/*!konst_0*/ meltfrout->tabval[0]);; - } else {MELT_LOCATION("warmelt-normatch.melt:3934:/ cond.else"); + } else {MELT_LOCATION("warmelt-normatch.melt:4341:/ cond.else"); /*^block*/ /*anyblock*/{ /*_#STRING___L2*/ meltfnum[1] = melt_string_less((melt_ptr_t)(/*_.SN2__V6*/ meltfptr[5]), (melt_ptr_t)(/*_.SN1__V5*/ meltfptr[4]));; - MELT_LOCATION("warmelt-normatch.melt:3936:/ cond"); + MELT_LOCATION("warmelt-normatch.melt:4343:/ cond"); /*cond*/ if (/*_#STRING___L2*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V8*/ meltfptr[7] = (/*!konst_1*/ meltfrout->tabval[1]);; - } else {MELT_LOCATION("warmelt-normatch.melt:3936:/ cond.else"); + } else {MELT_LOCATION("warmelt-normatch.melt:4343:/ cond.else"); /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-normatch.melt:3938:/ quasiblock"); + MELT_LOCATION("warmelt-normatch.melt:4345:/ quasiblock"); /*_.PROGN___V9*/ meltfptr[8] = (/*!konst_2*/ meltfrout->tabval[2]);; @@ -13166,7 +19022,7 @@ lab_endgetargs:; /*_.IFELSE___V8*/ meltfptr[7] = /*_.PROGN___V9*/ meltfptr[8];; /*epilog*/ - MELT_LOCATION("warmelt-normatch.melt:3936:/ clear"); + MELT_LOCATION("warmelt-normatch.melt:4343:/ clear"); /*clear*/ /*_.PROGN___V9*/ meltfptr[8] = 0 ;} ; } @@ -13174,7 +19030,7 @@ lab_endgetargs:; /*_.IFELSE___V7*/ meltfptr[6] = /*_.IFELSE___V8*/ meltfptr[7];; /*epilog*/ - MELT_LOCATION("warmelt-normatch.melt:3934:/ clear"); + MELT_LOCATION("warmelt-normatch.melt:4341:/ clear"); /*clear*/ /*_#STRING___L2*/ meltfnum[1] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V8*/ meltfptr[7] = 0 ;} @@ -13183,7 +19039,7 @@ lab_endgetargs:; ; /*_.LET___V4*/ meltfptr[3] = /*_.IFELSE___V7*/ meltfptr[6];; - MELT_LOCATION("warmelt-normatch.melt:3929:/ clear"); + MELT_LOCATION("warmelt-normatch.melt:4336:/ clear"); /*clear*/ /*_.SN1__V5*/ meltfptr[4] = 0 ; /*^clear*/ /*clear*/ /*_.SN2__V6*/ meltfptr[5] = 0 ; @@ -13191,11 +19047,11 @@ lab_endgetargs:; /*clear*/ /*_#STRING___L1*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V7*/ meltfptr[6] = 0 ; - MELT_LOCATION("warmelt-normatch.melt:3928:/ quasiblock"); + MELT_LOCATION("warmelt-normatch.melt:4335:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V4*/ meltfptr[3];; - MELT_LOCATION("warmelt-normatch.melt:3928:/ finalreturn"); + MELT_LOCATION("warmelt-normatch.melt:4335:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*epilog*/ @@ -13212,7 +19068,7 @@ melt_trace_end("LAMBDA_", meltcallcount); melt_topframe = (struct callframe_mel #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR -} /*end meltrout_84_warmelt_normatch_LAMBDA_*/ +} /*end meltrout_87_warmelt_normatch_LAMBDA_*/ diff --git a/gcc/melt/generated/warmelt-normatch.0.c b/gcc/melt/generated/warmelt-normatch.0.c index ac7999f1e01..2fbec952bd3 100644 --- a/gcc/melt/generated/warmelt-normatch.0.c +++ b/gcc/melt/generated/warmelt-normatch.0.c @@ -3,7 +3,7 @@ #ifndef MELTGCC_DYNAMIC_OBJSTRUCT /* version string of the gcc executable generating this file: */ const char genversionstr_melt[]= - "4.5.0 20100223 (experimental) [melt-branch revision 157055]"; + "4.5.0 20100310 (experimental) [melt-branch revision 157367]"; #endif #include "run-melt.h" @@ -265,187 +265,187 @@ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_46_warmelt_normatch_NORMBIND_MATCHBIN -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_47_warmelt_normatch_SCANSUBPAT_ANYRECV(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_47_warmelt_normatch_MAKE_MATCH_FLAG(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_48_warmelt_normatch_SCANSUBPAT_NOOP(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_48_warmelt_normatch_SCANSUBPAT_ANYRECV(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_49_warmelt_normatch_SCANSUBPAT_OR(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_49_warmelt_normatch_SCANSUBPAT_NOOP(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_50_warmelt_normatch_SCANSUBPAT_AND(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_50_warmelt_normatch_SCANSUBPAT_OR(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_51_warmelt_normatch_SCANSUBPAT_CONSTRUCT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_51_warmelt_normatch_SCANSUBPAT_AND(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_52_warmelt_normatch_SCANSUBPAT_OBJECT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_52_warmelt_normatch_SCANSUBPAT_CONSTRUCT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_53_warmelt_normatch_SCANSUBPAT_COMPOSITE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_53_warmelt_normatch_SCANSUBPAT_OBJECT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_54_warmelt_normatch_FILL_MATCHCASE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_54_warmelt_normatch_SCANSUBPAT_COMPOSITE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_55_warmelt_normatch_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_55_warmelt_normatch_FILL_MATCHCASE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_56_warmelt_normatch_START_STEP(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_56_warmelt_normatch_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_57_warmelt_normatch_PUTTHEN_MATCHTHEN(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_57_warmelt_normatch_START_STEP(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_58_warmelt_normatch_PUTTHEN_MATCHGROUP(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_58_warmelt_normatch_PUTTHEN_MATCHTHEN(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_59_warmelt_normatch_PUTELSE_MATCHTEST(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_59_warmelt_normatch_PUTTHEN_MATCHGROUP(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_60_warmelt_normatch_PUTELSE_MATCHGROUP(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_60_warmelt_normatch_PUTELSE_MATCHSTEPTHEN(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_61_warmelt_normatch_SCANSTEP_TESTINS(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_61_warmelt_normatch_PUTELSE_MATCHTEST(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_62_warmelt_normatch_SCANSTEP_TESTMATCHER(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_62_warmelt_normatch_PUTELSE_MATCHGROUP(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_63_warmelt_normatch_TRANSLPAT_ANYRECV(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_63_warmelt_normatch_SCANSTEP_TESTINS(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_64_warmelt_normatch_TRANSLPAT_JOKERPAT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_64_warmelt_normatch_SCANSTEP_TESTMATCHER(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_65_warmelt_normatch_TRANSLPAT_INSPAT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_65_warmelt_normatch_TRANSLPAT_ANYRECV(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_66_warmelt_normatch_TRANSLPAT_VARPAT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_66_warmelt_normatch_TRANSLPAT_JOKERPAT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_67_warmelt_normatch_TRANSLPAT_ANDPAT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_67_warmelt_normatch_TRANSLPAT_INSPAT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_68_warmelt_normatch_TRANSLPAT_ORPAT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_68_warmelt_normatch_TRANSLPAT_VARPAT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_69_warmelt_normatch_TRANSLPAT_PATMAT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_69_warmelt_normatch_TRANSLPAT_ANDPAT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_70_warmelt_normatch_MGALTSTEP_STEPSETVAR(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_70_warmelt_normatch_TRANSLPAT_ORPAT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_71_warmelt_normatch_MGALTSTEP_STEPTESTVAR(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_71_warmelt_normatch_TRANSLPAT_PATMAT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_72_warmelt_normatch_MGALTSTEP_STEPTESTINST(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_72_warmelt_normatch_MGALTSTEP_STEPTESTVAR(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_73_warmelt_normatch_MGALTSTEP_STEPTESTGROUP(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_73_warmelt_normatch_MGALTSTEP_STEPTESTINST(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_74_warmelt_normatch_MGALTSTEP_STEPTESTMATCHER(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_74_warmelt_normatch_MGALTSTEP_STEPTESTGROUP(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_75_warmelt_normatch_MGALTSTEP_STEPSUCCESS(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_75_warmelt_normatch_MGALTSTEP_STEPTESTMATCHER(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_76_warmelt_normatch_TRANSLATE_MATCHCASE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_76_warmelt_normatch_MGALTSTEP_STEPSUCCESS(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_77_warmelt_normatch_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_77_warmelt_normatch_MGALTSTEP_STEPFLAGSET(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_78_warmelt_normatch_NORMEXP_ALTMATCH(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_78_warmelt_normatch_MGALTSTEP_STEPFLAGOPER(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_79_warmelt_normatch_ALTERNATE_MATCH_OPTSET(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_79_warmelt_normatch_TRANSLATE_MATCHCASE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_80_warmelt_normatch_MG_ALTDRAW_GRAPHVIZ(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_80_warmelt_normatch_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_81_warmelt_normatch_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_81_warmelt_normatch_NORMEXP_ALTMATCH(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_82_warmelt_normatch_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_82_warmelt_normatch_ALTERNATE_MATCH_OPTSET(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_83_warmelt_normatch_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_83_warmelt_normatch_MG_ALTDRAW_GRAPHVIZ(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); @@ -453,6 +453,21 @@ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_83_warmelt_normatch_LAMBDA_(meltclosu melt_ptr_t MELT_MODULE_VISIBILITY meltrout_84_warmelt_normatch_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); + + +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_85_warmelt_normatch_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); + + + + +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_86_warmelt_normatch_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); + + + + +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_87_warmelt_normatch_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); + + void* start_module_melt(void*); void mark_module_melt(void*); void* initial_frame_melt; @@ -467,6 +482,7 @@ void MELT_MODULE_VISIBILITY warmelt_normatch_initialmeltchunk_5 (struct frame_st void MELT_MODULE_VISIBILITY warmelt_normatch_initialmeltchunk_6 (struct frame_start_module_melt_st*, char*); void MELT_MODULE_VISIBILITY warmelt_normatch_initialmeltchunk_7 (struct frame_start_module_melt_st*, char*); void MELT_MODULE_VISIBILITY warmelt_normatch_initialmeltchunk_8 (struct frame_start_module_melt_st*, char*); +void MELT_MODULE_VISIBILITY warmelt_normatch_initialmeltchunk_9 (struct frame_start_module_melt_st*, char*); /**** warmelt-normatch.0.c implementations ****/ @@ -15048,8 +15064,8 @@ typedef struct meltclosure_st *noinitialclos; struct excepth_melt_st *exh; struct callframe_melt_st *prev; -#define MELTFRAM_NBVARPTR 976 - void* varptr[976]; +#define MELTFRAM_NBVARPTR 1047 + void* varptr[1047]; /*no varnum*/ #define MELTFRAM_NBVARNUM /*none*/0 /*others*/ @@ -15427,7 +15443,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef struct MELT_ROUTINE_STRUCT(11) drout_363__NORMPAT_ANDPAT; struct MELT_CLOSURE_STRUCT(0) dclo_364__NORMPAT_ANDPAT; struct MELT_ROUTINE_STRUCT(4) drout_365__LAMBDA_; - struct MELT_ROUTINE_STRUCT(32) drout_366__NORMPAT_ORPAT; + struct MELT_ROUTINE_STRUCT(33) drout_366__NORMPAT_ORPAT; struct MELT_CLOSURE_STRUCT(0) dclo_367__NORMPAT_ORPAT; struct MELT_OBJECT_STRUCT(3) dsym_368__MAPOBJECT_SORTED_ATTRIBUTE_TUPLE; struct MELT_STRING_STRUCT(32) dstr_369__MAPOBJECT_SORTED; @@ -15545,370 +15561,438 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef struct MELT_OBJECT_STRUCT(8) dobj_481__CLASS_MATCHING_CONTEXT; struct MELT_STRING_STRUCT(22) dstr_482__CLASS_MATCHING_C; struct MELT_MULTIPLE_STRUCT(1) dtup_483__CLASS_MATCHING_CONTEXT; - struct MELT_MULTIPLE_STRUCT(7) dtup_484__CLASS_MATCHING_CONTEXT; - struct MELT_OBJECT_STRUCT(3) dsym_485__MXCT_NORMCTXT; - struct MELT_STRING_STRUCT(13) dstr_486__MXCT_NORMCTXT; - struct MELT_OBJECT_STRUCT(4) dobj_487__MXCT_NORMCTXT; - struct MELT_STRING_STRUCT(13) dstr_488__MXCT_NORMCTXT; - struct MELT_OBJECT_STRUCT(3) dsym_489__MXCT_SOURCE; - struct MELT_STRING_STRUCT(11) dstr_490__MXCT_SOURCE; - struct MELT_OBJECT_STRUCT(4) dobj_491__MXCT_SOURCE; - struct MELT_STRING_STRUCT(11) dstr_492__MXCT_SOURCE; - struct MELT_OBJECT_STRUCT(3) dsym_493__MXCT_NMATCHED; - struct MELT_STRING_STRUCT(13) dstr_494__MXCT_NMATCHED; - struct MELT_OBJECT_STRUCT(4) dobj_495__MXCT_NMATCHED; - struct MELT_STRING_STRUCT(13) dstr_496__MXCT_NMATCHED; - struct MELT_OBJECT_STRUCT(3) dsym_497__MXCT_CASES; - struct MELT_STRING_STRUCT(10) dstr_498__MXCT_CASES; - struct MELT_OBJECT_STRUCT(4) dobj_499__MXCT_CASES; - struct MELT_STRING_STRUCT(10) dstr_500__MXCT_CASES; - struct MELT_OBJECT_STRUCT(3) dsym_501__MXCT_ENV; - struct MELT_STRING_STRUCT(8) dstr_502__MXCT_ENV; - struct MELT_OBJECT_STRUCT(4) dobj_503__MXCT_ENV; - struct MELT_STRING_STRUCT(8) dstr_504__MXCT_ENV; - struct MELT_OBJECT_STRUCT(3) dsym_505__MXCT_MDATA; - struct MELT_STRING_STRUCT(10) dstr_506__MXCT_MDATA; - struct MELT_OBJECT_STRUCT(4) dobj_507__MXCT_MDATA; - struct MELT_STRING_STRUCT(10) dstr_508__MXCT_MDATA; - struct MELT_OBJECT_STRUCT(3) dsym_509__MXCT_VARHANDLERS; - struct MELT_STRING_STRUCT(16) dstr_510__MXCT_VARHANDLERS; - struct MELT_OBJECT_STRUCT(4) dobj_511__MXCT_VARHANDLERS; - struct MELT_STRING_STRUCT(16) dstr_512__MXCT_VARHANDLERS; - struct MELT_OBJECT_STRUCT(3) dsym_513__CLASS_MATCH_CASE; - struct MELT_STRING_STRUCT(16) dstr_514__CLASS_MATCH_CASE; - struct MELT_OBJECT_STRUCT(8) dobj_515__CLASS_MATCH_CASE; - struct MELT_STRING_STRUCT(16) dstr_516__CLASS_MATCH_CASE; - struct MELT_MULTIPLE_STRUCT(2) dtup_517__CLASS_MATCH_CASE; - struct MELT_MULTIPLE_STRUCT(5) dtup_518__CLASS_MATCH_CASE; - struct MELT_OBJECT_STRUCT(3) dsym_519__MCASE_MCTXT; - struct MELT_STRING_STRUCT(11) dstr_520__MCASE_MCTXT; - struct MELT_OBJECT_STRUCT(4) dobj_521__MCASE_MCTXT; - struct MELT_STRING_STRUCT(11) dstr_522__MCASE_MCTXT; - struct MELT_OBJECT_STRUCT(3) dsym_523__MCASE_SOURCE; - struct MELT_STRING_STRUCT(12) dstr_524__MCASE_SOURCE; - struct MELT_OBJECT_STRUCT(4) dobj_525__MCASE_SOURCE; - struct MELT_STRING_STRUCT(12) dstr_526__MCASE_SOURCE; - struct MELT_OBJECT_STRUCT(3) dsym_527__MCASE_INDEX; - struct MELT_STRING_STRUCT(11) dstr_528__MCASE_INDEX; - struct MELT_OBJECT_STRUCT(4) dobj_529__MCASE_INDEX; - struct MELT_STRING_STRUCT(11) dstr_530__MCASE_INDEX; - struct MELT_OBJECT_STRUCT(3) dsym_531__MCASE_VARMAP; - struct MELT_STRING_STRUCT(12) dstr_532__MCASE_VARMAP; - struct MELT_OBJECT_STRUCT(4) dobj_533__MCASE_VARMAP; - struct MELT_STRING_STRUCT(12) dstr_534__MCASE_VARMAP; - struct MELT_OBJECT_STRUCT(3) dsym_535__CLASS_MATCHED_DATA; - struct MELT_STRING_STRUCT(18) dstr_536__CLASS_MATCHED_DA; - struct MELT_OBJECT_STRUCT(8) dobj_537__CLASS_MATCHED_DATA; - struct MELT_STRING_STRUCT(18) dstr_538__CLASS_MATCHED_DA; - struct MELT_MULTIPLE_STRUCT(2) dtup_539__CLASS_MATCHED_DATA; - struct MELT_MULTIPLE_STRUCT(5) dtup_540__CLASS_MATCHED_DATA; - struct MELT_OBJECT_STRUCT(3) dsym_541__MDATA_SYMB; - struct MELT_STRING_STRUCT(10) dstr_542__MDATA_SYMB; - struct MELT_OBJECT_STRUCT(4) dobj_543__MDATA_SYMB; - struct MELT_STRING_STRUCT(10) dstr_544__MDATA_SYMB; - struct MELT_OBJECT_STRUCT(3) dsym_545__MDATA_CTYPE; - struct MELT_STRING_STRUCT(11) dstr_546__MDATA_CTYPE; - struct MELT_OBJECT_STRUCT(4) dobj_547__MDATA_CTYPE; - struct MELT_STRING_STRUCT(11) dstr_548__MDATA_CTYPE; - struct MELT_OBJECT_STRUCT(3) dsym_549__MDATA_ORIG; - struct MELT_STRING_STRUCT(10) dstr_550__MDATA_ORIG; - struct MELT_OBJECT_STRUCT(4) dobj_551__MDATA_ORIG; - struct MELT_STRING_STRUCT(10) dstr_552__MDATA_ORIG; - struct MELT_OBJECT_STRUCT(3) dsym_553__MDATA_STEPS; - struct MELT_STRING_STRUCT(11) dstr_554__MDATA_STEPS; - struct MELT_OBJECT_STRUCT(4) dobj_555__MDATA_STEPS; - struct MELT_STRING_STRUCT(11) dstr_556__MDATA_STEPS; - struct MELT_OBJECT_STRUCT(3) dsym_557__CLASS_MATCHED_BINDING; - struct MELT_STRING_STRUCT(21) dstr_558__CLASS_MATCHED_BI; - struct MELT_OBJECT_STRUCT(8) dobj_559__CLASS_MATCHED_BINDING; - struct MELT_STRING_STRUCT(21) dstr_560__CLASS_MATCHED_BI; - struct MELT_MULTIPLE_STRUCT(2) dtup_561__CLASS_MATCHED_BINDING; - struct MELT_MULTIPLE_STRUCT(3) dtup_562__CLASS_MATCHED_BINDING; - struct MELT_OBJECT_STRUCT(3) dsym_563__MATCHBIND_DATA; - struct MELT_STRING_STRUCT(14) dstr_564__MATCHBIND_DATA; - struct MELT_OBJECT_STRUCT(4) dobj_565__MATCHBIND_DATA; - struct MELT_STRING_STRUCT(14) dstr_566__MATCHBIND_DATA; - struct MELT_OBJECT_STRUCT(3) dsym_567__MATCHBIND_NBOCC; - struct MELT_STRING_STRUCT(15) dstr_568__MATCHBIND_NBOCC; - struct MELT_OBJECT_STRUCT(4) dobj_569__MATCHBIND_NBOCC; - struct MELT_STRING_STRUCT(15) dstr_570__MATCHBIND_NBOCC; - struct MELT_ROUTINE_STRUCT(5) drout_571__NORMBIND_MATCHBIND; - struct MELT_CLOSURE_STRUCT(0) dclo_572__NORMBIND_MATCHBIND; - struct MELT_OBJECT_STRUCT(3) dsym_573__NORMALIZE_BINDING; - struct MELT_STRING_STRUCT(17) dstr_574__NORMALIZE_BINDIN; - struct MELT_OBJECT_STRUCT(3) dsym_575__CLASS_MATCH_STEP; - struct MELT_STRING_STRUCT(16) dstr_576__CLASS_MATCH_STEP; - struct MELT_OBJECT_STRUCT(8) dobj_577__CLASS_MATCH_STEP; - struct MELT_STRING_STRUCT(16) dstr_578__CLASS_MATCH_STEP; - struct MELT_MULTIPLE_STRUCT(3) dtup_579__CLASS_MATCH_STEP; - struct MELT_MULTIPLE_STRUCT(3) dtup_580__CLASS_MATCH_STEP; - struct MELT_OBJECT_STRUCT(3) dsym_581__MSTEP_DATA; - struct MELT_STRING_STRUCT(10) dstr_582__MSTEP_DATA; - struct MELT_OBJECT_STRUCT(4) dobj_583__MSTEP_DATA; - struct MELT_STRING_STRUCT(10) dstr_584__MSTEP_DATA; - struct MELT_OBJECT_STRUCT(3) dsym_585__CLASS_MATCH_STEP_THEN; - struct MELT_STRING_STRUCT(21) dstr_586__CLASS_MATCH_STEP; - struct MELT_OBJECT_STRUCT(8) dobj_587__CLASS_MATCH_STEP_THEN; - struct MELT_STRING_STRUCT(21) dstr_588__CLASS_MATCH_STEP; - struct MELT_MULTIPLE_STRUCT(4) dtup_589__CLASS_MATCH_STEP_THEN; - struct MELT_MULTIPLE_STRUCT(4) dtup_590__CLASS_MATCH_STEP_THEN; - struct MELT_OBJECT_STRUCT(3) dsym_591__MSTEP_THEN; - struct MELT_STRING_STRUCT(10) dstr_592__MSTEP_THEN; - struct MELT_OBJECT_STRUCT(4) dobj_593__MSTEP_THEN; - struct MELT_STRING_STRUCT(10) dstr_594__MSTEP_THEN; - struct MELT_OBJECT_STRUCT(3) dsym_595__CLASS_MATCH_STEP_SET_VARIABLE; - struct MELT_STRING_STRUCT(29) dstr_596__CLASS_MATCH_STEP; - struct MELT_OBJECT_STRUCT(8) dobj_597__CLASS_MATCH_STEP_SET_VARIABLE; - struct MELT_STRING_STRUCT(29) dstr_598__CLASS_MATCH_STEP; - struct MELT_MULTIPLE_STRUCT(5) dtup_599__CLASS_MATCH_STEP_SET_VARIABLE; - struct MELT_MULTIPLE_STRUCT(5) dtup_600__CLASS_MATCH_STEP_SET_VARIABLE; - struct MELT_OBJECT_STRUCT(3) dsym_601__MSTEPSETVAR_SYMB; - struct MELT_STRING_STRUCT(16) dstr_602__MSTEPSETVAR_SYMB; - struct MELT_OBJECT_STRUCT(4) dobj_603__MSTEPSETVAR_SYMB; - struct MELT_STRING_STRUCT(16) dstr_604__MSTEPSETVAR_SYMB; - struct MELT_OBJECT_STRUCT(3) dsym_605__CLASS_MATCH_STEP_SUCCESS; - struct MELT_STRING_STRUCT(24) dstr_606__CLASS_MATCH_STEP; - struct MELT_OBJECT_STRUCT(8) dobj_607__CLASS_MATCH_STEP_SUCCESS; - struct MELT_STRING_STRUCT(24) dstr_608__CLASS_MATCH_STEP; - struct MELT_MULTIPLE_STRUCT(5) dtup_609__CLASS_MATCH_STEP_SUCCESS; - struct MELT_MULTIPLE_STRUCT(7) dtup_610__CLASS_MATCH_STEP_SUCCESS; - struct MELT_OBJECT_STRUCT(3) dsym_611__MSTEPSUCCESS_VAROCC; - struct MELT_STRING_STRUCT(19) dstr_612__MSTEPSUCCESS_VAR; - struct MELT_OBJECT_STRUCT(4) dobj_613__MSTEPSUCCESS_VAROCC; - struct MELT_STRING_STRUCT(19) dstr_614__MSTEPSUCCESS_VAR; - struct MELT_OBJECT_STRUCT(3) dsym_615__MSTEPSUCCESS_BINDS; - struct MELT_STRING_STRUCT(18) dstr_616__MSTEPSUCCESS_BIN; - struct MELT_OBJECT_STRUCT(4) dobj_617__MSTEPSUCCESS_BINDS; - struct MELT_STRING_STRUCT(18) dstr_618__MSTEPSUCCESS_BIN; - struct MELT_OBJECT_STRUCT(3) dsym_619__MSTEPSUCCESS_BODY; - struct MELT_STRING_STRUCT(17) dstr_620__MSTEPSUCCESS_BOD; - struct MELT_OBJECT_STRUCT(4) dobj_621__MSTEPSUCCESS_BODY; - struct MELT_STRING_STRUCT(17) dstr_622__MSTEPSUCCESS_BOD; - struct MELT_OBJECT_STRUCT(3) dsym_623__CLASS_MATCH_STEP_TEST; - struct MELT_STRING_STRUCT(21) dstr_624__CLASS_MATCH_STEP; - struct MELT_OBJECT_STRUCT(8) dobj_625__CLASS_MATCH_STEP_TEST; - struct MELT_STRING_STRUCT(21) dstr_626__CLASS_MATCH_STEP; - struct MELT_MULTIPLE_STRUCT(5) dtup_627__CLASS_MATCH_STEP_TEST; - struct MELT_MULTIPLE_STRUCT(5) dtup_628__CLASS_MATCH_STEP_TEST; - struct MELT_OBJECT_STRUCT(3) dsym_629__MSTEP_ELSE; - struct MELT_STRING_STRUCT(10) dstr_630__MSTEP_ELSE; - struct MELT_OBJECT_STRUCT(4) dobj_631__MSTEP_ELSE; - struct MELT_STRING_STRUCT(10) dstr_632__MSTEP_ELSE; - struct MELT_OBJECT_STRUCT(3) dsym_633__CLASS_MATCH_STEP_TEST_VARIABLE; - struct MELT_STRING_STRUCT(30) dstr_634__CLASS_MATCH_STEP; - struct MELT_OBJECT_STRUCT(8) dobj_635__CLASS_MATCH_STEP_TEST_VARIABLE; - struct MELT_STRING_STRUCT(30) dstr_636__CLASS_MATCH_STEP; - struct MELT_MULTIPLE_STRUCT(6) dtup_637__CLASS_MATCH_STEP_TEST_VARIABLE; - struct MELT_MULTIPLE_STRUCT(6) dtup_638__CLASS_MATCH_STEP_TEST_VARIABLE; - struct MELT_OBJECT_STRUCT(3) dsym_639__MSTEPTESTVAR_SYMB; - struct MELT_STRING_STRUCT(17) dstr_640__MSTEPTESTVAR_SYM; - struct MELT_OBJECT_STRUCT(4) dobj_641__MSTEPTESTVAR_SYMB; - struct MELT_STRING_STRUCT(17) dstr_642__MSTEPTESTVAR_SYM; - struct MELT_OBJECT_STRUCT(3) dsym_643__CLASS_MATCH_STEP_TEST_GROUP; - struct MELT_STRING_STRUCT(27) dstr_644__CLASS_MATCH_STEP; - struct MELT_OBJECT_STRUCT(8) dobj_645__CLASS_MATCH_STEP_TEST_GROUP; - struct MELT_STRING_STRUCT(27) dstr_646__CLASS_MATCH_STEP; - struct MELT_MULTIPLE_STRUCT(6) dtup_647__CLASS_MATCH_STEP_TEST_GROUP; - struct MELT_MULTIPLE_STRUCT(8) dtup_648__CLASS_MATCH_STEP_TEST_GROUP; - struct MELT_OBJECT_STRUCT(3) dsym_649__MSTGROUP_START; - struct MELT_STRING_STRUCT(14) dstr_650__MSTGROUP_START; - struct MELT_OBJECT_STRUCT(4) dobj_651__MSTGROUP_START; - struct MELT_STRING_STRUCT(14) dstr_652__MSTGROUP_START; - struct MELT_OBJECT_STRUCT(3) dsym_653__MSTGROUP_THEN; - struct MELT_STRING_STRUCT(13) dstr_654__MSTGROUP_THEN; - struct MELT_OBJECT_STRUCT(4) dobj_655__MSTGROUP_THEN; - struct MELT_STRING_STRUCT(13) dstr_656__MSTGROUP_THEN; - struct MELT_OBJECT_STRUCT(3) dsym_657__MSTGROUP_ELSE; - struct MELT_STRING_STRUCT(13) dstr_658__MSTGROUP_ELSE; - struct MELT_OBJECT_STRUCT(4) dobj_659__MSTGROUP_ELSE; - struct MELT_STRING_STRUCT(13) dstr_660__MSTGROUP_ELSE; - struct MELT_OBJECT_STRUCT(3) dsym_661__CLASS_MATCH_STEP_TEST_INSTANCE; - struct MELT_STRING_STRUCT(30) dstr_662__CLASS_MATCH_STEP; - struct MELT_OBJECT_STRUCT(8) dobj_663__CLASS_MATCH_STEP_TEST_INSTANCE; - struct MELT_STRING_STRUCT(30) dstr_664__CLASS_MATCH_STEP; - struct MELT_MULTIPLE_STRUCT(6) dtup_665__CLASS_MATCH_STEP_TEST_INSTANCE; - struct MELT_MULTIPLE_STRUCT(7) dtup_666__CLASS_MATCH_STEP_TEST_INSTANCE; - struct MELT_OBJECT_STRUCT(3) dsym_667__MSTINS_CLASS; - struct MELT_STRING_STRUCT(12) dstr_668__MSTINS_CLASS; - struct MELT_OBJECT_STRUCT(4) dobj_669__MSTINS_CLASS; - struct MELT_STRING_STRUCT(12) dstr_670__MSTINS_CLASS; - struct MELT_OBJECT_STRUCT(3) dsym_671__MSTINS_SLOTS; - struct MELT_STRING_STRUCT(12) dstr_672__MSTINS_SLOTS; - struct MELT_OBJECT_STRUCT(4) dobj_673__MSTINS_SLOTS; - struct MELT_STRING_STRUCT(12) dstr_674__MSTINS_SLOTS; - struct MELT_OBJECT_STRUCT(3) dsym_675__CLASS_MATCH_STEP_TEST_MATCHER; - struct MELT_STRING_STRUCT(29) dstr_676__CLASS_MATCH_STEP; - struct MELT_OBJECT_STRUCT(8) dobj_677__CLASS_MATCH_STEP_TEST_MATCHER; - struct MELT_STRING_STRUCT(29) dstr_678__CLASS_MATCH_STEP; - struct MELT_MULTIPLE_STRUCT(6) dtup_679__CLASS_MATCH_STEP_TEST_MATCHER; - struct MELT_MULTIPLE_STRUCT(9) dtup_680__CLASS_MATCH_STEP_TEST_MATCHER; - struct MELT_OBJECT_STRUCT(3) dsym_681__MSTMA_MATCHER; - struct MELT_STRING_STRUCT(13) dstr_682__MSTMA_MATCHER; - struct MELT_OBJECT_STRUCT(4) dobj_683__MSTMA_MATCHER; - struct MELT_STRING_STRUCT(13) dstr_684__MSTMA_MATCHER; - struct MELT_OBJECT_STRUCT(3) dsym_685__MSTMA_BINDS; - struct MELT_STRING_STRUCT(11) dstr_686__MSTMA_BINDS; - struct MELT_OBJECT_STRUCT(4) dobj_687__MSTMA_BINDS; - struct MELT_STRING_STRUCT(11) dstr_688__MSTMA_BINDS; - struct MELT_OBJECT_STRUCT(3) dsym_689__MSTMA_INS; - struct MELT_STRING_STRUCT(9) dstr_690__MSTMA_INS; - struct MELT_OBJECT_STRUCT(4) dobj_691__MSTMA_INS; - struct MELT_STRING_STRUCT(9) dstr_692__MSTMA_INS; - struct MELT_OBJECT_STRUCT(3) dsym_693__MSTMA_OUTS; - struct MELT_STRING_STRUCT(10) dstr_694__MSTMA_OUTS; - struct MELT_OBJECT_STRUCT(4) dobj_695__MSTMA_OUTS; - struct MELT_STRING_STRUCT(10) dstr_696__MSTMA_OUTS; - struct MELT_OBJECT_STRUCT(3) dsym_697__SCAN_SUBPATTERNS; - struct MELT_STRING_STRUCT(16) dstr_698__SCAN_SUBPATTERNS; - struct MELT_OBJECT_STRUCT(3) dsym_699__RECV; - struct MELT_STRING_STRUCT(4) dstr_700__RECV; - struct MELT_OBJECT_STRUCT(2) dobj_701; - struct MELT_OBJECT_STRUCT(3) dsym_702__FUN; - struct MELT_STRING_STRUCT(3) dstr_703__FUN; - struct MELT_OBJECT_STRUCT(2) dobj_704; - struct MELT_OBJECT_STRUCT(3) dsym_705__CTX; - struct MELT_STRING_STRUCT(3) dstr_706__CTX; - struct MELT_OBJECT_STRUCT(2) dobj_707; - struct MELT_MULTIPLE_STRUCT(3) dtup_708__SCAN_SUBPATTERNS; - struct MELT_OBJECT_STRUCT(4) dobj_709__SCAN_SUBPATTERNS; - struct MELT_STRING_STRUCT(16) dstr_710__SCAN_SUBPATTERNS; - struct MELT_OBJECT_STRUCT(3) dsym_711__SCAN_STEP_DATA; - struct MELT_STRING_STRUCT(14) dstr_712__SCAN_STEP_DATA; - struct MELT_OBJECT_STRUCT(3) dsym_713__STEP; - struct MELT_STRING_STRUCT(4) dstr_714__STEP; - struct MELT_OBJECT_STRUCT(2) dobj_715; - struct MELT_OBJECT_STRUCT(2) dobj_716; - struct MELT_OBJECT_STRUCT(2) dobj_717; - struct MELT_MULTIPLE_STRUCT(3) dtup_718__SCAN_STEP_DATA; - struct MELT_OBJECT_STRUCT(4) dobj_719__SCAN_STEP_DATA; - struct MELT_STRING_STRUCT(14) dstr_720__SCAN_STEP_DATA; - struct MELT_ROUTINE_STRUCT(1) drout_721__SCANSUBPAT_ANYRECV; - struct MELT_CLOSURE_STRUCT(0) dclo_722__SCANSUBPAT_ANYRECV; - struct MELT_ROUTINE_STRUCT(0) drout_723__SCANSUBPAT_NOOP; - struct MELT_CLOSURE_STRUCT(0) dclo_724__SCANSUBPAT_NOOP; - struct MELT_ROUTINE_STRUCT(0) drout_725__SCANSUBPAT_OR; - struct MELT_CLOSURE_STRUCT(0) dclo_726__SCANSUBPAT_OR; - struct MELT_ROUTINE_STRUCT(0) drout_727__SCANSUBPAT_AND; - struct MELT_CLOSURE_STRUCT(0) dclo_728__SCANSUBPAT_AND; - struct MELT_ROUTINE_STRUCT(0) drout_729__SCANSUBPAT_CONSTRUCT; - struct MELT_CLOSURE_STRUCT(0) dclo_730__SCANSUBPAT_CONSTRUCT; - struct MELT_OBJECT_STRUCT(3) dsym_731__CLASS_SOURCE_PATTERN_CONSTRUCT; - struct MELT_STRING_STRUCT(30) dstr_732__CLASS_SOURCE_PAT; - struct MELT_ROUTINE_STRUCT(1) drout_733__SCANSUBPAT_OBJECT; - struct MELT_CLOSURE_STRUCT(0) dclo_734__SCANSUBPAT_OBJECT; - struct MELT_ROUTINE_STRUCT(0) drout_735__SCANSUBPAT_COMPOSITE; - struct MELT_CLOSURE_STRUCT(0) dclo_736__SCANSUBPAT_COMPOSITE; - struct MELT_ROUTINE_STRUCT(8) drout_737__FILL_MATCHCASE; - struct MELT_CLOSURE_STRUCT(0) dclo_738__FILL_MATCHCASE; - struct MELT_ROUTINE_STRUCT(3) drout_739__LAMBDA_; - struct MELT_OBJECT_STRUCT(3) dsym_740__PUT_THEN_MATCH; - struct MELT_STRING_STRUCT(14) dstr_741__PUT_THEN_MATCH; - struct MELT_OBJECT_STRUCT(2) dobj_742; - struct MELT_OBJECT_STRUCT(3) dsym_743__THENSTEP; - struct MELT_STRING_STRUCT(8) dstr_744__THENSTEP; - struct MELT_OBJECT_STRUCT(2) dobj_745; - struct MELT_MULTIPLE_STRUCT(2) dtup_746__PUT_THEN_MATCH; - struct MELT_OBJECT_STRUCT(4) dobj_747__PUT_THEN_MATCH; - struct MELT_STRING_STRUCT(14) dstr_748__PUT_THEN_MATCH; - struct MELT_ROUTINE_STRUCT(3) drout_749__START_STEP; - struct MELT_CLOSURE_STRUCT(0) dclo_750__START_STEP; - struct MELT_ROUTINE_STRUCT(5) drout_751__PUTTHEN_MATCHTHEN; - struct MELT_CLOSURE_STRUCT(0) dclo_752__PUTTHEN_MATCHTHEN; - struct MELT_ROUTINE_STRUCT(5) drout_753__PUTTHEN_MATCHGROUP; - struct MELT_CLOSURE_STRUCT(0) dclo_754__PUTTHEN_MATCHGROUP; - struct MELT_OBJECT_STRUCT(3) dsym_755__PUT_ELSE_MATCH; - struct MELT_STRING_STRUCT(14) dstr_756__PUT_ELSE_MATCH; - struct MELT_OBJECT_STRUCT(2) dobj_757; - struct MELT_OBJECT_STRUCT(3) dsym_758__ELSESTEP; - struct MELT_STRING_STRUCT(8) dstr_759__ELSESTEP; - struct MELT_OBJECT_STRUCT(2) dobj_760; - struct MELT_MULTIPLE_STRUCT(2) dtup_761__PUT_ELSE_MATCH; - struct MELT_OBJECT_STRUCT(4) dobj_762__PUT_ELSE_MATCH; - struct MELT_STRING_STRUCT(14) dstr_763__PUT_ELSE_MATCH; - struct MELT_ROUTINE_STRUCT(4) drout_764__PUTELSE_MATCHTEST; - struct MELT_CLOSURE_STRUCT(0) dclo_765__PUTELSE_MATCHTEST; - struct MELT_ROUTINE_STRUCT(5) drout_766__PUTELSE_MATCHGROUP; - struct MELT_CLOSURE_STRUCT(0) dclo_767__PUTELSE_MATCHGROUP; - struct MELT_ROUTINE_STRUCT(1) drout_768__SCANSTEP_TESTINS; - struct MELT_CLOSURE_STRUCT(0) dclo_769__SCANSTEP_TESTINS; - struct MELT_ROUTINE_STRUCT(1) drout_770__SCANSTEP_TESTMATCHER; - struct MELT_CLOSURE_STRUCT(0) dclo_771__SCANSTEP_TESTMATCHER; - struct MELT_OBJECT_STRUCT(3) dsym_772__TRANSLATE_PATTERN; - struct MELT_STRING_STRUCT(17) dstr_773__TRANSLATE_PATTER; - struct MELT_OBJECT_STRUCT(2) dobj_774; - struct MELT_OBJECT_STRUCT(3) dsym_775__MDATA; - struct MELT_STRING_STRUCT(5) dstr_776__MDATA; + struct MELT_MULTIPLE_STRUCT(8) dtup_484__CLASS_MATCHING_CONTEXT; + struct MELT_OBJECT_STRUCT(3) dsym_485__MCTX_NORMCTXT; + struct MELT_STRING_STRUCT(13) dstr_486__MCTX_NORMCTXT; + struct MELT_OBJECT_STRUCT(4) dobj_487__MCTX_NORMCTXT; + struct MELT_STRING_STRUCT(13) dstr_488__MCTX_NORMCTXT; + struct MELT_OBJECT_STRUCT(3) dsym_489__MCTX_SOURCE; + struct MELT_STRING_STRUCT(11) dstr_490__MCTX_SOURCE; + struct MELT_OBJECT_STRUCT(4) dobj_491__MCTX_SOURCE; + struct MELT_STRING_STRUCT(11) dstr_492__MCTX_SOURCE; + struct MELT_OBJECT_STRUCT(3) dsym_493__MCTX_NMATCHED; + struct MELT_STRING_STRUCT(13) dstr_494__MCTX_NMATCHED; + struct MELT_OBJECT_STRUCT(4) dobj_495__MCTX_NMATCHED; + struct MELT_STRING_STRUCT(13) dstr_496__MCTX_NMATCHED; + struct MELT_OBJECT_STRUCT(3) dsym_497__MCTX_CASES; + struct MELT_STRING_STRUCT(10) dstr_498__MCTX_CASES; + struct MELT_OBJECT_STRUCT(4) dobj_499__MCTX_CASES; + struct MELT_STRING_STRUCT(10) dstr_500__MCTX_CASES; + struct MELT_OBJECT_STRUCT(3) dsym_501__MCTX_ENV; + struct MELT_STRING_STRUCT(8) dstr_502__MCTX_ENV; + struct MELT_OBJECT_STRUCT(4) dobj_503__MCTX_ENV; + struct MELT_STRING_STRUCT(8) dstr_504__MCTX_ENV; + struct MELT_OBJECT_STRUCT(3) dsym_505__MCTX_MDATA; + struct MELT_STRING_STRUCT(10) dstr_506__MCTX_MDATA; + struct MELT_OBJECT_STRUCT(4) dobj_507__MCTX_MDATA; + struct MELT_STRING_STRUCT(10) dstr_508__MCTX_MDATA; + struct MELT_OBJECT_STRUCT(3) dsym_509__MCTX_VARHANDLERS; + struct MELT_STRING_STRUCT(16) dstr_510__MCTX_VARHANDLERS; + struct MELT_OBJECT_STRUCT(4) dobj_511__MCTX_VARHANDLERS; + struct MELT_STRING_STRUCT(16) dstr_512__MCTX_VARHANDLERS; + struct MELT_OBJECT_STRUCT(3) dsym_513__MCTX_FLAGS; + struct MELT_STRING_STRUCT(10) dstr_514__MCTX_FLAGS; + struct MELT_OBJECT_STRUCT(4) dobj_515__MCTX_FLAGS; + struct MELT_STRING_STRUCT(10) dstr_516__MCTX_FLAGS; + struct MELT_OBJECT_STRUCT(3) dsym_517__CLASS_MATCH_CASE; + struct MELT_STRING_STRUCT(16) dstr_518__CLASS_MATCH_CASE; + struct MELT_OBJECT_STRUCT(8) dobj_519__CLASS_MATCH_CASE; + struct MELT_STRING_STRUCT(16) dstr_520__CLASS_MATCH_CASE; + struct MELT_MULTIPLE_STRUCT(2) dtup_521__CLASS_MATCH_CASE; + struct MELT_MULTIPLE_STRUCT(5) dtup_522__CLASS_MATCH_CASE; + struct MELT_OBJECT_STRUCT(3) dsym_523__MCASE_MCTXT; + struct MELT_STRING_STRUCT(11) dstr_524__MCASE_MCTXT; + struct MELT_OBJECT_STRUCT(4) dobj_525__MCASE_MCTXT; + struct MELT_STRING_STRUCT(11) dstr_526__MCASE_MCTXT; + struct MELT_OBJECT_STRUCT(3) dsym_527__MCASE_SOURCE; + struct MELT_STRING_STRUCT(12) dstr_528__MCASE_SOURCE; + struct MELT_OBJECT_STRUCT(4) dobj_529__MCASE_SOURCE; + struct MELT_STRING_STRUCT(12) dstr_530__MCASE_SOURCE; + struct MELT_OBJECT_STRUCT(3) dsym_531__MCASE_INDEX; + struct MELT_STRING_STRUCT(11) dstr_532__MCASE_INDEX; + struct MELT_OBJECT_STRUCT(4) dobj_533__MCASE_INDEX; + struct MELT_STRING_STRUCT(11) dstr_534__MCASE_INDEX; + struct MELT_OBJECT_STRUCT(3) dsym_535__MCASE_VARMAP; + struct MELT_STRING_STRUCT(12) dstr_536__MCASE_VARMAP; + struct MELT_OBJECT_STRUCT(4) dobj_537__MCASE_VARMAP; + struct MELT_STRING_STRUCT(12) dstr_538__MCASE_VARMAP; + struct MELT_OBJECT_STRUCT(3) dsym_539__CLASS_MATCHED_DATA; + struct MELT_STRING_STRUCT(18) dstr_540__CLASS_MATCHED_DA; + struct MELT_OBJECT_STRUCT(8) dobj_541__CLASS_MATCHED_DATA; + struct MELT_STRING_STRUCT(18) dstr_542__CLASS_MATCHED_DA; + struct MELT_MULTIPLE_STRUCT(2) dtup_543__CLASS_MATCHED_DATA; + struct MELT_MULTIPLE_STRUCT(5) dtup_544__CLASS_MATCHED_DATA; + struct MELT_OBJECT_STRUCT(3) dsym_545__MDATA_SYMB; + struct MELT_STRING_STRUCT(10) dstr_546__MDATA_SYMB; + struct MELT_OBJECT_STRUCT(4) dobj_547__MDATA_SYMB; + struct MELT_STRING_STRUCT(10) dstr_548__MDATA_SYMB; + struct MELT_OBJECT_STRUCT(3) dsym_549__MDATA_CTYPE; + struct MELT_STRING_STRUCT(11) dstr_550__MDATA_CTYPE; + struct MELT_OBJECT_STRUCT(4) dobj_551__MDATA_CTYPE; + struct MELT_STRING_STRUCT(11) dstr_552__MDATA_CTYPE; + struct MELT_OBJECT_STRUCT(3) dsym_553__MDATA_ORIG; + struct MELT_STRING_STRUCT(10) dstr_554__MDATA_ORIG; + struct MELT_OBJECT_STRUCT(4) dobj_555__MDATA_ORIG; + struct MELT_STRING_STRUCT(10) dstr_556__MDATA_ORIG; + struct MELT_OBJECT_STRUCT(3) dsym_557__MDATA_STEPS; + struct MELT_STRING_STRUCT(11) dstr_558__MDATA_STEPS; + struct MELT_OBJECT_STRUCT(4) dobj_559__MDATA_STEPS; + struct MELT_STRING_STRUCT(11) dstr_560__MDATA_STEPS; + struct MELT_OBJECT_STRUCT(3) dsym_561__CLASS_MATCHED_BINDING; + struct MELT_STRING_STRUCT(21) dstr_562__CLASS_MATCHED_BI; + struct MELT_OBJECT_STRUCT(8) dobj_563__CLASS_MATCHED_BINDING; + struct MELT_STRING_STRUCT(21) dstr_564__CLASS_MATCHED_BI; + struct MELT_MULTIPLE_STRUCT(2) dtup_565__CLASS_MATCHED_BINDING; + struct MELT_MULTIPLE_STRUCT(3) dtup_566__CLASS_MATCHED_BINDING; + struct MELT_OBJECT_STRUCT(3) dsym_567__MATCHBIND_DATA; + struct MELT_STRING_STRUCT(14) dstr_568__MATCHBIND_DATA; + struct MELT_OBJECT_STRUCT(4) dobj_569__MATCHBIND_DATA; + struct MELT_STRING_STRUCT(14) dstr_570__MATCHBIND_DATA; + struct MELT_OBJECT_STRUCT(3) dsym_571__MATCHBIND_NBOCC; + struct MELT_STRING_STRUCT(15) dstr_572__MATCHBIND_NBOCC; + struct MELT_OBJECT_STRUCT(4) dobj_573__MATCHBIND_NBOCC; + struct MELT_STRING_STRUCT(15) dstr_574__MATCHBIND_NBOCC; + struct MELT_ROUTINE_STRUCT(5) drout_575__NORMBIND_MATCHBIND; + struct MELT_CLOSURE_STRUCT(0) dclo_576__NORMBIND_MATCHBIND; + struct MELT_OBJECT_STRUCT(3) dsym_577__NORMALIZE_BINDING; + struct MELT_STRING_STRUCT(17) dstr_578__NORMALIZE_BINDIN; + struct MELT_OBJECT_STRUCT(3) dsym_579__CLASS_MATCH_STEP; + struct MELT_STRING_STRUCT(16) dstr_580__CLASS_MATCH_STEP; + struct MELT_OBJECT_STRUCT(8) dobj_581__CLASS_MATCH_STEP; + struct MELT_STRING_STRUCT(16) dstr_582__CLASS_MATCH_STEP; + struct MELT_MULTIPLE_STRUCT(3) dtup_583__CLASS_MATCH_STEP; + struct MELT_MULTIPLE_STRUCT(3) dtup_584__CLASS_MATCH_STEP; + struct MELT_OBJECT_STRUCT(3) dsym_585__MSTEP_DATA; + struct MELT_STRING_STRUCT(10) dstr_586__MSTEP_DATA; + struct MELT_OBJECT_STRUCT(4) dobj_587__MSTEP_DATA; + struct MELT_STRING_STRUCT(10) dstr_588__MSTEP_DATA; + struct MELT_OBJECT_STRUCT(3) dsym_589__CLASS_MATCH_FLAG; + struct MELT_STRING_STRUCT(16) dstr_590__CLASS_MATCH_FLAG; + struct MELT_OBJECT_STRUCT(8) dobj_591__CLASS_MATCH_FLAG; + struct MELT_STRING_STRUCT(16) dstr_592__CLASS_MATCH_FLAG; + struct MELT_MULTIPLE_STRUCT(3) dtup_593__CLASS_MATCH_FLAG; + struct MELT_MULTIPLE_STRUCT(6) dtup_594__CLASS_MATCH_FLAG; + struct MELT_OBJECT_STRUCT(3) dsym_595__MFLAG_SPAT; + struct MELT_STRING_STRUCT(10) dstr_596__MFLAG_SPAT; + struct MELT_OBJECT_STRUCT(4) dobj_597__MFLAG_SPAT; + struct MELT_STRING_STRUCT(10) dstr_598__MFLAG_SPAT; + struct MELT_OBJECT_STRUCT(3) dsym_599__MFLAG_RANK; + struct MELT_STRING_STRUCT(10) dstr_600__MFLAG_RANK; + struct MELT_OBJECT_STRUCT(4) dobj_601__MFLAG_RANK; + struct MELT_STRING_STRUCT(10) dstr_602__MFLAG_RANK; + struct MELT_OBJECT_STRUCT(3) dsym_603__MFLAG_STRING; + struct MELT_STRING_STRUCT(12) dstr_604__MFLAG_STRING; + struct MELT_OBJECT_STRUCT(4) dobj_605__MFLAG_STRING; + struct MELT_STRING_STRUCT(12) dstr_606__MFLAG_STRING; + struct MELT_OBJECT_STRUCT(3) dsym_607__MFLAG_SETSTEP; + struct MELT_STRING_STRUCT(13) dstr_608__MFLAG_SETSTEP; + struct MELT_OBJECT_STRUCT(4) dobj_609__MFLAG_SETSTEP; + struct MELT_STRING_STRUCT(13) dstr_610__MFLAG_SETSTEP; + struct MELT_OBJECT_STRUCT(3) dsym_611__CLASS_MATCH_STEP_THEN; + struct MELT_STRING_STRUCT(21) dstr_612__CLASS_MATCH_STEP; + struct MELT_OBJECT_STRUCT(8) dobj_613__CLASS_MATCH_STEP_THEN; + struct MELT_STRING_STRUCT(21) dstr_614__CLASS_MATCH_STEP; + struct MELT_MULTIPLE_STRUCT(4) dtup_615__CLASS_MATCH_STEP_THEN; + struct MELT_MULTIPLE_STRUCT(4) dtup_616__CLASS_MATCH_STEP_THEN; + struct MELT_OBJECT_STRUCT(3) dsym_617__MSTEP_THEN; + struct MELT_STRING_STRUCT(10) dstr_618__MSTEP_THEN; + struct MELT_OBJECT_STRUCT(4) dobj_619__MSTEP_THEN; + struct MELT_STRING_STRUCT(10) dstr_620__MSTEP_THEN; + struct MELT_OBJECT_STRUCT(3) dsym_621__CLASS_MATCH_STEP_ASSIGN_FLAG; + struct MELT_STRING_STRUCT(28) dstr_622__CLASS_MATCH_STEP; + struct MELT_OBJECT_STRUCT(8) dobj_623__CLASS_MATCH_STEP_ASSIGN_FLAG; + struct MELT_STRING_STRUCT(28) dstr_624__CLASS_MATCH_STEP; + struct MELT_MULTIPLE_STRUCT(5) dtup_625__CLASS_MATCH_STEP_ASSIGN_FLAG; + struct MELT_MULTIPLE_STRUCT(5) dtup_626__CLASS_MATCH_STEP_ASSIGN_FLAG; + struct MELT_OBJECT_STRUCT(3) dsym_627__MSTEP_FLAG; + struct MELT_STRING_STRUCT(10) dstr_628__MSTEP_FLAG; + struct MELT_OBJECT_STRUCT(4) dobj_629__MSTEP_FLAG; + struct MELT_STRING_STRUCT(10) dstr_630__MSTEP_FLAG; + struct MELT_OBJECT_STRUCT(3) dsym_631__CLASS_MATCH_STEP_FLAG_SET; + struct MELT_STRING_STRUCT(25) dstr_632__CLASS_MATCH_STEP; + struct MELT_OBJECT_STRUCT(8) dobj_633__CLASS_MATCH_STEP_FLAG_SET; + struct MELT_STRING_STRUCT(25) dstr_634__CLASS_MATCH_STEP; + struct MELT_MULTIPLE_STRUCT(6) dtup_635__CLASS_MATCH_STEP_FLAG_SET; + struct MELT_MULTIPLE_STRUCT(5) dtup_636__CLASS_MATCH_STEP_FLAG_SET; + struct MELT_OBJECT_STRUCT(3) dsym_637__CLASS_MATCH_STEP_FLAG_OPERATION; + struct MELT_STRING_STRUCT(31) dstr_638__CLASS_MATCH_STEP; + struct MELT_OBJECT_STRUCT(8) dobj_639__CLASS_MATCH_STEP_FLAG_OPERATION; + struct MELT_STRING_STRUCT(31) dstr_640__CLASS_MATCH_STEP; + struct MELT_MULTIPLE_STRUCT(6) dtup_641__CLASS_MATCH_STEP_FLAG_OPERATION; + struct MELT_MULTIPLE_STRUCT(6) dtup_642__CLASS_MATCH_STEP_FLAG_OPERATION; + struct MELT_OBJECT_STRUCT(3) dsym_643__MSTEP_FLAGARGS; + struct MELT_STRING_STRUCT(14) dstr_644__MSTEP_FLAGARGS; + struct MELT_OBJECT_STRUCT(4) dobj_645__MSTEP_FLAGARGS; + struct MELT_STRING_STRUCT(14) dstr_646__MSTEP_FLAGARGS; + struct MELT_OBJECT_STRUCT(3) dsym_647__CLASS_MATCH_STEP_FLAG_CONJONCTION; + struct MELT_STRING_STRUCT(33) dstr_648__CLASS_MATCH_STEP; + struct MELT_OBJECT_STRUCT(8) dobj_649__CLASS_MATCH_STEP_FLAG_CONJONCTION; + struct MELT_STRING_STRUCT(33) dstr_650__CLASS_MATCH_STEP; + struct MELT_MULTIPLE_STRUCT(7) dtup_651__CLASS_MATCH_STEP_FLAG_CONJONCTION; + struct MELT_MULTIPLE_STRUCT(6) dtup_652__CLASS_MATCH_STEP_FLAG_CONJONCTION; + struct MELT_OBJECT_STRUCT(3) dsym_653__CLASS_MATCH_STEP_FLAG_DISJONCTION; + struct MELT_STRING_STRUCT(33) dstr_654__CLASS_MATCH_STEP; + struct MELT_OBJECT_STRUCT(8) dobj_655__CLASS_MATCH_STEP_FLAG_DISJONCTION; + struct MELT_STRING_STRUCT(33) dstr_656__CLASS_MATCH_STEP; + struct MELT_MULTIPLE_STRUCT(7) dtup_657__CLASS_MATCH_STEP_FLAG_DISJONCTION; + struct MELT_MULTIPLE_STRUCT(6) dtup_658__CLASS_MATCH_STEP_FLAG_DISJONCTION; + struct MELT_OBJECT_STRUCT(3) dsym_659__CLASS_MATCH_STEP_SUCCESS; + struct MELT_STRING_STRUCT(24) dstr_660__CLASS_MATCH_STEP; + struct MELT_OBJECT_STRUCT(8) dobj_661__CLASS_MATCH_STEP_SUCCESS; + struct MELT_STRING_STRUCT(24) dstr_662__CLASS_MATCH_STEP; + struct MELT_MULTIPLE_STRUCT(5) dtup_663__CLASS_MATCH_STEP_SUCCESS; + struct MELT_MULTIPLE_STRUCT(8) dtup_664__CLASS_MATCH_STEP_SUCCESS; + struct MELT_OBJECT_STRUCT(3) dsym_665__MSTEPSUCCESS_FLAG; + struct MELT_STRING_STRUCT(17) dstr_666__MSTEPSUCCESS_FLA; + struct MELT_OBJECT_STRUCT(4) dobj_667__MSTEPSUCCESS_FLAG; + struct MELT_STRING_STRUCT(17) dstr_668__MSTEPSUCCESS_FLA; + struct MELT_OBJECT_STRUCT(3) dsym_669__MSTEPSUCCESS_VAROCC; + struct MELT_STRING_STRUCT(19) dstr_670__MSTEPSUCCESS_VAR; + struct MELT_OBJECT_STRUCT(4) dobj_671__MSTEPSUCCESS_VAROCC; + struct MELT_STRING_STRUCT(19) dstr_672__MSTEPSUCCESS_VAR; + struct MELT_OBJECT_STRUCT(3) dsym_673__MSTEPSUCCESS_BINDS; + struct MELT_STRING_STRUCT(18) dstr_674__MSTEPSUCCESS_BIN; + struct MELT_OBJECT_STRUCT(4) dobj_675__MSTEPSUCCESS_BINDS; + struct MELT_STRING_STRUCT(18) dstr_676__MSTEPSUCCESS_BIN; + struct MELT_OBJECT_STRUCT(3) dsym_677__MSTEPSUCCESS_BODY; + struct MELT_STRING_STRUCT(17) dstr_678__MSTEPSUCCESS_BOD; + struct MELT_OBJECT_STRUCT(4) dobj_679__MSTEPSUCCESS_BODY; + struct MELT_STRING_STRUCT(17) dstr_680__MSTEPSUCCESS_BOD; + struct MELT_OBJECT_STRUCT(3) dsym_681__CLASS_MATCH_STEP_TEST; + struct MELT_STRING_STRUCT(21) dstr_682__CLASS_MATCH_STEP; + struct MELT_OBJECT_STRUCT(8) dobj_683__CLASS_MATCH_STEP_TEST; + struct MELT_STRING_STRUCT(21) dstr_684__CLASS_MATCH_STEP; + struct MELT_MULTIPLE_STRUCT(5) dtup_685__CLASS_MATCH_STEP_TEST; + struct MELT_MULTIPLE_STRUCT(5) dtup_686__CLASS_MATCH_STEP_TEST; + struct MELT_OBJECT_STRUCT(3) dsym_687__MSTEP_ELSE; + struct MELT_STRING_STRUCT(10) dstr_688__MSTEP_ELSE; + struct MELT_OBJECT_STRUCT(4) dobj_689__MSTEP_ELSE; + struct MELT_STRING_STRUCT(10) dstr_690__MSTEP_ELSE; + struct MELT_OBJECT_STRUCT(3) dsym_691__CLASS_MATCH_STEP_TEST_VARIABLE; + struct MELT_STRING_STRUCT(30) dstr_692__CLASS_MATCH_STEP; + struct MELT_OBJECT_STRUCT(8) dobj_693__CLASS_MATCH_STEP_TEST_VARIABLE; + struct MELT_STRING_STRUCT(30) dstr_694__CLASS_MATCH_STEP; + struct MELT_MULTIPLE_STRUCT(6) dtup_695__CLASS_MATCH_STEP_TEST_VARIABLE; + struct MELT_MULTIPLE_STRUCT(6) dtup_696__CLASS_MATCH_STEP_TEST_VARIABLE; + struct MELT_OBJECT_STRUCT(3) dsym_697__MSTEPTESTVAR_SYMB; + struct MELT_STRING_STRUCT(17) dstr_698__MSTEPTESTVAR_SYM; + struct MELT_OBJECT_STRUCT(4) dobj_699__MSTEPTESTVAR_SYMB; + struct MELT_STRING_STRUCT(17) dstr_700__MSTEPTESTVAR_SYM; + struct MELT_OBJECT_STRUCT(3) dsym_701__CLASS_MATCH_STEP_TEST_GROUP; + struct MELT_STRING_STRUCT(27) dstr_702__CLASS_MATCH_STEP; + struct MELT_OBJECT_STRUCT(8) dobj_703__CLASS_MATCH_STEP_TEST_GROUP; + struct MELT_STRING_STRUCT(27) dstr_704__CLASS_MATCH_STEP; + struct MELT_MULTIPLE_STRUCT(6) dtup_705__CLASS_MATCH_STEP_TEST_GROUP; + struct MELT_MULTIPLE_STRUCT(8) dtup_706__CLASS_MATCH_STEP_TEST_GROUP; + struct MELT_OBJECT_STRUCT(3) dsym_707__MSTGROUP_START; + struct MELT_STRING_STRUCT(14) dstr_708__MSTGROUP_START; + struct MELT_OBJECT_STRUCT(4) dobj_709__MSTGROUP_START; + struct MELT_STRING_STRUCT(14) dstr_710__MSTGROUP_START; + struct MELT_OBJECT_STRUCT(3) dsym_711__MSTGROUP_THEN; + struct MELT_STRING_STRUCT(13) dstr_712__MSTGROUP_THEN; + struct MELT_OBJECT_STRUCT(4) dobj_713__MSTGROUP_THEN; + struct MELT_STRING_STRUCT(13) dstr_714__MSTGROUP_THEN; + struct MELT_OBJECT_STRUCT(3) dsym_715__MSTGROUP_ELSE; + struct MELT_STRING_STRUCT(13) dstr_716__MSTGROUP_ELSE; + struct MELT_OBJECT_STRUCT(4) dobj_717__MSTGROUP_ELSE; + struct MELT_STRING_STRUCT(13) dstr_718__MSTGROUP_ELSE; + struct MELT_OBJECT_STRUCT(3) dsym_719__CLASS_MATCH_STEP_TEST_INSTANCE; + struct MELT_STRING_STRUCT(30) dstr_720__CLASS_MATCH_STEP; + struct MELT_OBJECT_STRUCT(8) dobj_721__CLASS_MATCH_STEP_TEST_INSTANCE; + struct MELT_STRING_STRUCT(30) dstr_722__CLASS_MATCH_STEP; + struct MELT_MULTIPLE_STRUCT(6) dtup_723__CLASS_MATCH_STEP_TEST_INSTANCE; + struct MELT_MULTIPLE_STRUCT(7) dtup_724__CLASS_MATCH_STEP_TEST_INSTANCE; + struct MELT_OBJECT_STRUCT(3) dsym_725__MSTINS_CLASS; + struct MELT_STRING_STRUCT(12) dstr_726__MSTINS_CLASS; + struct MELT_OBJECT_STRUCT(4) dobj_727__MSTINS_CLASS; + struct MELT_STRING_STRUCT(12) dstr_728__MSTINS_CLASS; + struct MELT_OBJECT_STRUCT(3) dsym_729__MSTINS_SLOTS; + struct MELT_STRING_STRUCT(12) dstr_730__MSTINS_SLOTS; + struct MELT_OBJECT_STRUCT(4) dobj_731__MSTINS_SLOTS; + struct MELT_STRING_STRUCT(12) dstr_732__MSTINS_SLOTS; + struct MELT_OBJECT_STRUCT(3) dsym_733__CLASS_MATCH_STEP_TEST_MATCHER; + struct MELT_STRING_STRUCT(29) dstr_734__CLASS_MATCH_STEP; + struct MELT_OBJECT_STRUCT(8) dobj_735__CLASS_MATCH_STEP_TEST_MATCHER; + struct MELT_STRING_STRUCT(29) dstr_736__CLASS_MATCH_STEP; + struct MELT_MULTIPLE_STRUCT(6) dtup_737__CLASS_MATCH_STEP_TEST_MATCHER; + struct MELT_MULTIPLE_STRUCT(9) dtup_738__CLASS_MATCH_STEP_TEST_MATCHER; + struct MELT_OBJECT_STRUCT(3) dsym_739__MSTMA_MATCHER; + struct MELT_STRING_STRUCT(13) dstr_740__MSTMA_MATCHER; + struct MELT_OBJECT_STRUCT(4) dobj_741__MSTMA_MATCHER; + struct MELT_STRING_STRUCT(13) dstr_742__MSTMA_MATCHER; + struct MELT_OBJECT_STRUCT(3) dsym_743__MSTMA_BINDS; + struct MELT_STRING_STRUCT(11) dstr_744__MSTMA_BINDS; + struct MELT_OBJECT_STRUCT(4) dobj_745__MSTMA_BINDS; + struct MELT_STRING_STRUCT(11) dstr_746__MSTMA_BINDS; + struct MELT_OBJECT_STRUCT(3) dsym_747__MSTMA_INS; + struct MELT_STRING_STRUCT(9) dstr_748__MSTMA_INS; + struct MELT_OBJECT_STRUCT(4) dobj_749__MSTMA_INS; + struct MELT_STRING_STRUCT(9) dstr_750__MSTMA_INS; + struct MELT_OBJECT_STRUCT(3) dsym_751__MSTMA_OUTS; + struct MELT_STRING_STRUCT(10) dstr_752__MSTMA_OUTS; + struct MELT_OBJECT_STRUCT(4) dobj_753__MSTMA_OUTS; + struct MELT_STRING_STRUCT(10) dstr_754__MSTMA_OUTS; + struct MELT_ROUTINE_STRUCT(5) drout_755__MAKE_MATCH_FLAG; + struct MELT_CLOSURE_STRUCT(0) dclo_756__MAKE_MATCH_FLAG; + struct MELT_OBJECT_STRUCT(3) dsym_757__DISCR_CONSTANT_INTEGER; + struct MELT_STRING_STRUCT(22) dstr_758__DISCR_CONSTANT_I; + struct MELT_OBJECT_STRUCT(3) dsym_759__SCAN_SUBPATTERNS; + struct MELT_STRING_STRUCT(16) dstr_760__SCAN_SUBPATTERNS; + struct MELT_OBJECT_STRUCT(3) dsym_761__RECV; + struct MELT_STRING_STRUCT(4) dstr_762__RECV; + struct MELT_OBJECT_STRUCT(2) dobj_763; + struct MELT_OBJECT_STRUCT(3) dsym_764__FUN; + struct MELT_STRING_STRUCT(3) dstr_765__FUN; + struct MELT_OBJECT_STRUCT(2) dobj_766; + struct MELT_OBJECT_STRUCT(3) dsym_767__CTX; + struct MELT_STRING_STRUCT(3) dstr_768__CTX; + struct MELT_OBJECT_STRUCT(2) dobj_769; + struct MELT_MULTIPLE_STRUCT(3) dtup_770__SCAN_SUBPATTERNS; + struct MELT_OBJECT_STRUCT(4) dobj_771__SCAN_SUBPATTERNS; + struct MELT_STRING_STRUCT(16) dstr_772__SCAN_SUBPATTERNS; + struct MELT_OBJECT_STRUCT(3) dsym_773__SCAN_STEP_DATA; + struct MELT_STRING_STRUCT(14) dstr_774__SCAN_STEP_DATA; + struct MELT_OBJECT_STRUCT(3) dsym_775__STEP; + struct MELT_STRING_STRUCT(4) dstr_776__STEP; struct MELT_OBJECT_STRUCT(2) dobj_777; - struct MELT_OBJECT_STRUCT(3) dsym_778__MCASE; - struct MELT_STRING_STRUCT(5) dstr_779__MCASE; - struct MELT_OBJECT_STRUCT(2) dobj_780; - struct MELT_OBJECT_STRUCT(3) dsym_781__VARMAP; - struct MELT_STRING_STRUCT(6) dstr_782__VARMAP; - struct MELT_OBJECT_STRUCT(2) dobj_783; - struct MELT_OBJECT_STRUCT(3) dsym_784__SLOC; - struct MELT_STRING_STRUCT(4) dstr_785__SLOC; - struct MELT_OBJECT_STRUCT(2) dobj_786; - struct MELT_MULTIPLE_STRUCT(5) dtup_787__TRANSLATE_PATTERN; - struct MELT_OBJECT_STRUCT(4) dobj_788__TRANSLATE_PATTERN; - struct MELT_STRING_STRUCT(17) dstr_789__TRANSLATE_PATTER; - struct MELT_ROUTINE_STRUCT(1) drout_790__TRANSLPAT_ANYRECV; - struct MELT_CLOSURE_STRUCT(0) dclo_791__TRANSLPAT_ANYRECV; - struct MELT_ROUTINE_STRUCT(2) drout_792__TRANSLPAT_JOKERPAT; - struct MELT_CLOSURE_STRUCT(0) dclo_793__TRANSLPAT_JOKERPAT; - struct MELT_ROUTINE_STRUCT(18) drout_794__TRANSLPAT_INSPAT; - struct MELT_CLOSURE_STRUCT(0) dclo_795__TRANSLPAT_INSPAT; - struct MELT_ROUTINE_STRUCT(7) drout_796__TRANSLPAT_VARPAT; - struct MELT_CLOSURE_STRUCT(0) dclo_797__TRANSLPAT_VARPAT; - struct MELT_ROUTINE_STRUCT(4) drout_798__TRANSLPAT_ANDPAT; - struct MELT_CLOSURE_STRUCT(0) dclo_799__TRANSLPAT_ANDPAT; - struct MELT_ROUTINE_STRUCT(4) drout_800__TRANSLPAT_ORPAT; - struct MELT_CLOSURE_STRUCT(0) dclo_801__TRANSLPAT_ORPAT; - struct MELT_ROUTINE_STRUCT(21) drout_802__TRANSLPAT_PATMAT; - struct MELT_CLOSURE_STRUCT(0) dclo_803__TRANSLPAT_PATMAT; - struct MELT_OBJECT_STRUCT(3) dsym_804__MATCHGRAPHIC_ALTSTEP; - struct MELT_STRING_STRUCT(20) dstr_805__MATCHGRAPHIC_ALT; - struct MELT_OBJECT_STRUCT(4) dobj_806__MATCHGRAPHIC_ALTSTEP; - struct MELT_STRING_STRUCT(20) dstr_807__MATCHGRAPHIC_ALT; - struct MELT_ROUTINE_STRUCT(5) drout_808__MGALTSTEP_STEPSETVAR; - struct MELT_CLOSURE_STRUCT(0) dclo_809__MGALTSTEP_STEPSETVAR; - struct MELT_ROUTINE_STRUCT(5) drout_810__MGALTSTEP_STEPTESTVAR; - struct MELT_CLOSURE_STRUCT(0) dclo_811__MGALTSTEP_STEPTESTVAR; - struct MELT_ROUTINE_STRUCT(7) drout_812__MGALTSTEP_STEPTESTINST; - struct MELT_CLOSURE_STRUCT(0) dclo_813__MGALTSTEP_STEPTESTINST; - struct MELT_ROUTINE_STRUCT(4) drout_814__MGALTSTEP_STEPTESTGROUP; - struct MELT_CLOSURE_STRUCT(0) dclo_815__MGALTSTEP_STEPTESTGROUP; - struct MELT_ROUTINE_STRUCT(8) drout_816__MGALTSTEP_STEPTESTMATCHER; - struct MELT_CLOSURE_STRUCT(0) dclo_817__MGALTSTEP_STEPTESTMATCHER; - struct MELT_ROUTINE_STRUCT(4) drout_818__MGALTSTEP_STEPSUCCESS; - struct MELT_CLOSURE_STRUCT(0) dclo_819__MGALTSTEP_STEPSUCCESS; - struct MELT_ROUTINE_STRUCT(25) drout_820__TRANSLATE_MATCHCASE; - struct MELT_CLOSURE_STRUCT(0) dclo_821__TRANSLATE_MATCHCASE; - struct MELT_OBJECT_STRUCT(3) dsym_822__DISCR_INTEGER; - struct MELT_STRING_STRUCT(13) dstr_823__DISCR_INTEGER; - struct MELT_ROUTINE_STRUCT(2) drout_824__LAMBDA_; - struct MELT_OBJECT_STRUCT(3) dsym_825__COMPARE_NAMED_ALPHA; - struct MELT_STRING_STRUCT(19) dstr_826__COMPARE_NAMED_AL; - struct MELT_ROUTINE_STRUCT(22) drout_827__NORMEXP_ALTMATCH; - struct MELT_CLOSURE_STRUCT(0) dclo_828__NORMEXP_ALTMATCH; - struct MELT_OBJECT_STRUCT(3) dsym_829__MATCHED_DATA; - struct MELT_STRING_STRUCT(13) dstr_830__MATCHED_DATA; - struct MELT_ROUTINE_STRUCT(5) drout_831__ALTERNATE_MATCH_OPTSET; - struct MELT_CLOSURE_STRUCT(0) dclo_832__ALTERNATE_MATCH_OPTSET; - struct MELT_OBJECT_STRUCT(3) dsym_833__ALTERNATE_MATCH; - struct MELT_STRING_STRUCT(15) dstr_834__ALTERNATE_MATCH; - struct MELT_STRING_STRUCT(48) dstr_835__Enable_alternate; - struct MELT_ROUTINE_STRUCT(31) drout_836__MG_ALTDRAW_GRAPHVIZ; - struct MELT_CLOSURE_STRUCT(0) dclo_837__MG_ALTDRAW_GRAPHVIZ; - struct MELT_ROUTINE_STRUCT(6) drout_838__LAMBDA_; - struct MELT_ROUTINE_STRUCT(8) drout_839__LAMBDA_; - struct MELT_ROUTINE_STRUCT(3) drout_840__LAMBDA_; - struct meltint_st dint_841__; - struct meltint_st dint_842__; - struct meltint_st dint_843__; - struct MELT_ROUTINE_STRUCT(3) drout_844__LAMBDA_; - struct meltint_st dint_845__; - struct meltint_st dint_846__; - struct meltint_st dint_847__; + struct MELT_OBJECT_STRUCT(2) dobj_778; + struct MELT_OBJECT_STRUCT(2) dobj_779; + struct MELT_MULTIPLE_STRUCT(3) dtup_780__SCAN_STEP_DATA; + struct MELT_OBJECT_STRUCT(4) dobj_781__SCAN_STEP_DATA; + struct MELT_STRING_STRUCT(14) dstr_782__SCAN_STEP_DATA; + struct MELT_ROUTINE_STRUCT(1) drout_783__SCANSUBPAT_ANYRECV; + struct MELT_CLOSURE_STRUCT(0) dclo_784__SCANSUBPAT_ANYRECV; + struct MELT_ROUTINE_STRUCT(0) drout_785__SCANSUBPAT_NOOP; + struct MELT_CLOSURE_STRUCT(0) dclo_786__SCANSUBPAT_NOOP; + struct MELT_ROUTINE_STRUCT(0) drout_787__SCANSUBPAT_OR; + struct MELT_CLOSURE_STRUCT(0) dclo_788__SCANSUBPAT_OR; + struct MELT_ROUTINE_STRUCT(0) drout_789__SCANSUBPAT_AND; + struct MELT_CLOSURE_STRUCT(0) dclo_790__SCANSUBPAT_AND; + struct MELT_ROUTINE_STRUCT(0) drout_791__SCANSUBPAT_CONSTRUCT; + struct MELT_CLOSURE_STRUCT(0) dclo_792__SCANSUBPAT_CONSTRUCT; + struct MELT_OBJECT_STRUCT(3) dsym_793__CLASS_SOURCE_PATTERN_CONSTRUCT; + struct MELT_STRING_STRUCT(30) dstr_794__CLASS_SOURCE_PAT; + struct MELT_ROUTINE_STRUCT(1) drout_795__SCANSUBPAT_OBJECT; + struct MELT_CLOSURE_STRUCT(0) dclo_796__SCANSUBPAT_OBJECT; + struct MELT_ROUTINE_STRUCT(0) drout_797__SCANSUBPAT_COMPOSITE; + struct MELT_CLOSURE_STRUCT(0) dclo_798__SCANSUBPAT_COMPOSITE; + struct MELT_ROUTINE_STRUCT(8) drout_799__FILL_MATCHCASE; + struct MELT_CLOSURE_STRUCT(0) dclo_800__FILL_MATCHCASE; + struct MELT_ROUTINE_STRUCT(3) drout_801__LAMBDA_; + struct MELT_OBJECT_STRUCT(3) dsym_802__PUT_THEN_MATCH; + struct MELT_STRING_STRUCT(14) dstr_803__PUT_THEN_MATCH; + struct MELT_OBJECT_STRUCT(2) dobj_804; + struct MELT_OBJECT_STRUCT(3) dsym_805__THENSTEP; + struct MELT_STRING_STRUCT(8) dstr_806__THENSTEP; + struct MELT_OBJECT_STRUCT(2) dobj_807; + struct MELT_MULTIPLE_STRUCT(2) dtup_808__PUT_THEN_MATCH; + struct MELT_OBJECT_STRUCT(4) dobj_809__PUT_THEN_MATCH; + struct MELT_STRING_STRUCT(14) dstr_810__PUT_THEN_MATCH; + struct MELT_ROUTINE_STRUCT(3) drout_811__START_STEP; + struct MELT_CLOSURE_STRUCT(0) dclo_812__START_STEP; + struct MELT_ROUTINE_STRUCT(5) drout_813__PUTTHEN_MATCHTHEN; + struct MELT_CLOSURE_STRUCT(0) dclo_814__PUTTHEN_MATCHTHEN; + struct MELT_ROUTINE_STRUCT(5) drout_815__PUTTHEN_MATCHGROUP; + struct MELT_CLOSURE_STRUCT(0) dclo_816__PUTTHEN_MATCHGROUP; + struct MELT_OBJECT_STRUCT(3) dsym_817__PUT_ELSE_MATCH; + struct MELT_STRING_STRUCT(14) dstr_818__PUT_ELSE_MATCH; + struct MELT_OBJECT_STRUCT(2) dobj_819; + struct MELT_OBJECT_STRUCT(3) dsym_820__ELSESTEP; + struct MELT_STRING_STRUCT(8) dstr_821__ELSESTEP; + struct MELT_OBJECT_STRUCT(2) dobj_822; + struct MELT_MULTIPLE_STRUCT(2) dtup_823__PUT_ELSE_MATCH; + struct MELT_OBJECT_STRUCT(4) dobj_824__PUT_ELSE_MATCH; + struct MELT_STRING_STRUCT(14) dstr_825__PUT_ELSE_MATCH; + struct MELT_ROUTINE_STRUCT(4) drout_826__PUTELSE_MATCHSTEPTHEN; + struct MELT_CLOSURE_STRUCT(0) dclo_827__PUTELSE_MATCHSTEPTHEN; + struct MELT_ROUTINE_STRUCT(6) drout_828__PUTELSE_MATCHTEST; + struct MELT_CLOSURE_STRUCT(0) dclo_829__PUTELSE_MATCHTEST; + struct MELT_ROUTINE_STRUCT(5) drout_830__PUTELSE_MATCHGROUP; + struct MELT_CLOSURE_STRUCT(0) dclo_831__PUTELSE_MATCHGROUP; + struct MELT_ROUTINE_STRUCT(1) drout_832__SCANSTEP_TESTINS; + struct MELT_CLOSURE_STRUCT(0) dclo_833__SCANSTEP_TESTINS; + struct MELT_ROUTINE_STRUCT(1) drout_834__SCANSTEP_TESTMATCHER; + struct MELT_CLOSURE_STRUCT(0) dclo_835__SCANSTEP_TESTMATCHER; + struct MELT_OBJECT_STRUCT(3) dsym_836__TRANSLATE_PATTERN; + struct MELT_STRING_STRUCT(17) dstr_837__TRANSLATE_PATTER; + struct MELT_OBJECT_STRUCT(2) dobj_838; + struct MELT_OBJECT_STRUCT(3) dsym_839__MDATA; + struct MELT_STRING_STRUCT(5) dstr_840__MDATA; + struct MELT_OBJECT_STRUCT(2) dobj_841; + struct MELT_OBJECT_STRUCT(3) dsym_842__MCASE; + struct MELT_STRING_STRUCT(5) dstr_843__MCASE; + struct MELT_OBJECT_STRUCT(2) dobj_844; + struct MELT_OBJECT_STRUCT(3) dsym_845__VARMAP; + struct MELT_STRING_STRUCT(6) dstr_846__VARMAP; + struct MELT_OBJECT_STRUCT(2) dobj_847; + struct MELT_OBJECT_STRUCT(3) dsym_848__SLOC; + struct MELT_STRING_STRUCT(4) dstr_849__SLOC; + struct MELT_OBJECT_STRUCT(2) dobj_850; + struct MELT_MULTIPLE_STRUCT(5) dtup_851__TRANSLATE_PATTERN; + struct MELT_OBJECT_STRUCT(4) dobj_852__TRANSLATE_PATTERN; + struct MELT_STRING_STRUCT(17) dstr_853__TRANSLATE_PATTER; + struct MELT_ROUTINE_STRUCT(1) drout_854__TRANSLPAT_ANYRECV; + struct MELT_CLOSURE_STRUCT(0) dclo_855__TRANSLPAT_ANYRECV; + struct MELT_ROUTINE_STRUCT(2) drout_856__TRANSLPAT_JOKERPAT; + struct MELT_CLOSURE_STRUCT(0) dclo_857__TRANSLPAT_JOKERPAT; + struct MELT_ROUTINE_STRUCT(24) drout_858__TRANSLPAT_INSPAT; + struct MELT_CLOSURE_STRUCT(0) dclo_859__TRANSLPAT_INSPAT; + struct MELT_ROUTINE_STRUCT(13) drout_860__TRANSLPAT_VARPAT; + struct MELT_CLOSURE_STRUCT(0) dclo_861__TRANSLPAT_VARPAT; + struct MELT_ROUTINE_STRUCT(15) drout_862__TRANSLPAT_ANDPAT; + struct MELT_CLOSURE_STRUCT(0) dclo_863__TRANSLPAT_ANDPAT; + struct MELT_STRING_STRUCT(3) dstr_864__and; + struct MELT_ROUTINE_STRUCT(10) drout_865__TRANSLPAT_ORPAT; + struct MELT_CLOSURE_STRUCT(0) dclo_866__TRANSLPAT_ORPAT; + struct MELT_STRING_STRUCT(2) dstr_867__or; + struct MELT_ROUTINE_STRUCT(28) drout_868__TRANSLPAT_PATMAT; + struct MELT_CLOSURE_STRUCT(0) dclo_869__TRANSLPAT_PATMAT; + struct MELT_OBJECT_STRUCT(3) dsym_870__MATCHGRAPHIC_ALTSTEP; + struct MELT_STRING_STRUCT(20) dstr_871__MATCHGRAPHIC_ALT; + struct MELT_OBJECT_STRUCT(4) dobj_872__MATCHGRAPHIC_ALTSTEP; + struct MELT_STRING_STRUCT(20) dstr_873__MATCHGRAPHIC_ALT; + struct MELT_ROUTINE_STRUCT(5) drout_874__MGALTSTEP_STEPTESTVAR; + struct MELT_CLOSURE_STRUCT(0) dclo_875__MGALTSTEP_STEPTESTVAR; + struct MELT_ROUTINE_STRUCT(7) drout_876__MGALTSTEP_STEPTESTINST; + struct MELT_CLOSURE_STRUCT(0) dclo_877__MGALTSTEP_STEPTESTINST; + struct MELT_ROUTINE_STRUCT(4) drout_878__MGALTSTEP_STEPTESTGROUP; + struct MELT_CLOSURE_STRUCT(0) dclo_879__MGALTSTEP_STEPTESTGROUP; + struct MELT_ROUTINE_STRUCT(8) drout_880__MGALTSTEP_STEPTESTMATCHER; + struct MELT_CLOSURE_STRUCT(0) dclo_881__MGALTSTEP_STEPTESTMATCHER; + struct MELT_ROUTINE_STRUCT(4) drout_882__MGALTSTEP_STEPSUCCESS; + struct MELT_CLOSURE_STRUCT(0) dclo_883__MGALTSTEP_STEPSUCCESS; + struct MELT_ROUTINE_STRUCT(6) drout_884__MGALTSTEP_STEPFLAGSET; + struct MELT_CLOSURE_STRUCT(0) dclo_885__MGALTSTEP_STEPFLAGSET; + struct MELT_ROUTINE_STRUCT(7) drout_886__MGALTSTEP_STEPFLAGOPER; + struct MELT_CLOSURE_STRUCT(0) dclo_887__MGALTSTEP_STEPFLAGOPER; + struct MELT_ROUTINE_STRUCT(25) drout_888__TRANSLATE_MATCHCASE; + struct MELT_CLOSURE_STRUCT(0) dclo_889__TRANSLATE_MATCHCASE; + struct MELT_OBJECT_STRUCT(3) dsym_890__DISCR_INTEGER; + struct MELT_STRING_STRUCT(13) dstr_891__DISCR_INTEGER; + struct MELT_ROUTINE_STRUCT(2) drout_892__LAMBDA_; + struct MELT_OBJECT_STRUCT(3) dsym_893__COMPARE_NAMED_ALPHA; + struct MELT_STRING_STRUCT(19) dstr_894__COMPARE_NAMED_AL; + struct MELT_ROUTINE_STRUCT(22) drout_895__NORMEXP_ALTMATCH; + struct MELT_CLOSURE_STRUCT(0) dclo_896__NORMEXP_ALTMATCH; + struct MELT_OBJECT_STRUCT(3) dsym_897__MATCHED_DATA; + struct MELT_STRING_STRUCT(13) dstr_898__MATCHED_DATA; + struct MELT_ROUTINE_STRUCT(5) drout_899__ALTERNATE_MATCH_OPTSET; + struct MELT_CLOSURE_STRUCT(0) dclo_900__ALTERNATE_MATCH_OPTSET; + struct MELT_OBJECT_STRUCT(3) dsym_901__ALTERNATE_MATCH; + struct MELT_STRING_STRUCT(15) dstr_902__ALTERNATE_MATCH; + struct MELT_STRING_STRUCT(48) dstr_903__Enable_alternate; + struct MELT_ROUTINE_STRUCT(31) drout_904__MG_ALTDRAW_GRAPHVIZ; + struct MELT_CLOSURE_STRUCT(0) dclo_905__MG_ALTDRAW_GRAPHVIZ; + struct MELT_ROUTINE_STRUCT(6) drout_906__LAMBDA_; + struct MELT_ROUTINE_STRUCT(8) drout_907__LAMBDA_; + struct MELT_ROUTINE_STRUCT(3) drout_908__LAMBDA_; + struct meltint_st dint_909__; + struct meltint_st dint_910__; + struct meltint_st dint_911__; + struct MELT_ROUTINE_STRUCT(3) drout_912__LAMBDA_; + struct meltint_st dint_913__; + struct meltint_st dint_914__; + struct meltint_st dint_915__; long spare_; } *cdat = NULL; cdat = (struct cdata_st*) meltgc_allocate(sizeof(*cdat),0); @@ -15917,7 +16001,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef /*initial routine fill*/ /*iniobj dsym_1__CLASS_PATTERN_CONTEXT*/ -/*uniqueobj*/ if (!/*_.VALDATA___V73*/ meltfptr[72]) /*_.VALDATA___V73*/ meltfptr[72] = (void*)&cdat->dsym_1__CLASS_PATTERN_CONTEXT; +/*uniqueobj*/ if (!/*_.VALDATA___V74*/ meltfptr[73]) /*_.VALDATA___V74*/ meltfptr[73] = (void*)&cdat->dsym_1__CLASS_PATTERN_CONTEXT; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1__CLASS_PATTERN_CONTEXT", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_1__CLASS_PATTERN_CONTEXT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); cdat->dsym_1__CLASS_PATTERN_CONTEXT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); @@ -15925,12 +16009,12 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef cdat->dsym_1__CLASS_PATTERN_CONTEXT.obj_len = 3; /*inistring dstr_2__CLASS_PATTERN_CO*/ - /*_.VALSTR___V74*/ meltfptr[73] = (void*)&cdat->dstr_2__CLASS_PATTERN_CO; + /*_.VALSTR___V75*/ meltfptr[74] = (void*)&cdat->dstr_2__CLASS_PATTERN_CO; cdat->dstr_2__CLASS_PATTERN_CO.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); strncpy(cdat->dstr_2__CLASS_PATTERN_CO.val, "CLASS_PATTERN_CONTEXT", sizeof (cdat->dstr_2__CLASS_PATTERN_CO.val)-1); /*iniobj dsym_3__CLASS_ROOT*/ -/*uniqueobj*/ if (!/*_.VALDATA___V75*/ meltfptr[74]) /*_.VALDATA___V75*/ meltfptr[74] = (void*)&cdat->dsym_3__CLASS_ROOT; +/*uniqueobj*/ if (!/*_.VALDATA___V76*/ meltfptr[75]) /*_.VALDATA___V76*/ meltfptr[75] = (void*)&cdat->dsym_3__CLASS_ROOT; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_3__CLASS_ROOT", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_3__CLASS_ROOT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); cdat->dsym_3__CLASS_ROOT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); @@ -15938,35 +16022,35 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef cdat->dsym_3__CLASS_ROOT.obj_len = 3; /*inistring dstr_4__CLASS_ROOT*/ - /*_.VALSTR___V76*/ meltfptr[75] = (void*)&cdat->dstr_4__CLASS_ROOT; + /*_.VALSTR___V77*/ meltfptr[76] = (void*)&cdat->dstr_4__CLASS_ROOT; cdat->dstr_4__CLASS_ROOT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); strncpy(cdat->dstr_4__CLASS_ROOT.val, "CLASS_ROOT", sizeof (cdat->dstr_4__CLASS_ROOT.val)-1); MELT_LOCATION("warmelt-normatch.melt:33:/ iniobj"); /*iniobj dobj_5__CLASS_PATTERN_CONTEXT*/ -/*_.VALDATA___V77*/ meltfptr[76] = (void*)&cdat->dobj_5__CLASS_PATTERN_CONTEXT; +/*_.VALDATA___V78*/ meltfptr[77] = (void*)&cdat->dobj_5__CLASS_PATTERN_CONTEXT; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_5__CLASS_PATTERN_CONTEXT", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_CLASS)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_5__CLASS_PATTERN_CONTEXT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_5__CLASS_PATTERN_CONTEXT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_5__CLASS_PATTERN_CONTEXT.obj_num = OBMAG_OBJECT; - cdat->dobj_5__CLASS_PATTERN_CONTEXT.obj_hash = 228889376; + cdat->dobj_5__CLASS_PATTERN_CONTEXT.obj_hash = 41191232; cdat->dobj_5__CLASS_PATTERN_CONTEXT.obj_len = 8; /*inistring dstr_6__CLASS_PATTERN_CO*/ - /*_.VALSTR___V78*/ meltfptr[77] = (void*)&cdat->dstr_6__CLASS_PATTERN_CO; + /*_.VALSTR___V79*/ meltfptr[78] = (void*)&cdat->dstr_6__CLASS_PATTERN_CO; cdat->dstr_6__CLASS_PATTERN_CO.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); strncpy(cdat->dstr_6__CLASS_PATTERN_CO.val, "CLASS_PATTERN_CONTEXT", sizeof (cdat->dstr_6__CLASS_PATTERN_CO.val)-1); /*inimult dtup_7__CLASS_PATTERN_CONTEXT*/ - /*_.VALTUP___V79*/ meltfptr[78] = (void*)&cdat->dtup_7__CLASS_PATTERN_CONTEXT; + /*_.VALTUP___V80*/ meltfptr[79] = (void*)&cdat->dtup_7__CLASS_PATTERN_CONTEXT; cdat->dtup_7__CLASS_PATTERN_CONTEXT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); cdat->dtup_7__CLASS_PATTERN_CONTEXT.nbval = 1; /*inimult dtup_8__CLASS_PATTERN_CONTEXT*/ - /*_.VALTUP___V102*/ meltfptr[101] = (void*)&cdat->dtup_8__CLASS_PATTERN_CONTEXT; + /*_.VALTUP___V103*/ meltfptr[102] = (void*)&cdat->dtup_8__CLASS_PATTERN_CONTEXT; cdat->dtup_8__CLASS_PATTERN_CONTEXT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); cdat->dtup_8__CLASS_PATTERN_CONTEXT.nbval = 11; /*iniobj dsym_9__PCTN_NORMCTXT*/ -/*uniqueobj*/ if (!/*_.VALDATA___V103*/ meltfptr[102]) /*_.VALDATA___V103*/ meltfptr[102] = (void*)&cdat->dsym_9__PCTN_NORMCTXT; +/*uniqueobj*/ if (!/*_.VALDATA___V104*/ meltfptr[103]) /*_.VALDATA___V104*/ meltfptr[103] = (void*)&cdat->dsym_9__PCTN_NORMCTXT; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_9__PCTN_NORMCTXT", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_9__PCTN_NORMCTXT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); cdat->dsym_9__PCTN_NORMCTXT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); @@ -15974,27 +16058,27 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef cdat->dsym_9__PCTN_NORMCTXT.obj_len = 3; /*inistring dstr_10__PCTN_NORMCTXT*/ - /*_.VALSTR___V104*/ meltfptr[103] = (void*)&cdat->dstr_10__PCTN_NORMCTXT; + /*_.VALSTR___V105*/ meltfptr[104] = (void*)&cdat->dstr_10__PCTN_NORMCTXT; cdat->dstr_10__PCTN_NORMCTXT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); strncpy(cdat->dstr_10__PCTN_NORMCTXT.val, "PCTN_NORMCTXT", sizeof (cdat->dstr_10__PCTN_NORMCTXT.val)-1); /*^iniobj*/ /*iniobj dobj_11__PCTN_NORMCTXT*/ -/*_.VALDATA___V80*/ meltfptr[79] = (void*)&cdat->dobj_11__PCTN_NORMCTXT; +/*_.VALDATA___V81*/ meltfptr[80] = (void*)&cdat->dobj_11__PCTN_NORMCTXT; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_11__PCTN_NORMCTXT", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_11__PCTN_NORMCTXT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_11__PCTN_NORMCTXT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_11__PCTN_NORMCTXT.obj_num = 0; - cdat->dobj_11__PCTN_NORMCTXT.obj_hash = 876500635; + cdat->dobj_11__PCTN_NORMCTXT.obj_hash = 625792658; cdat->dobj_11__PCTN_NORMCTXT.obj_len = 4; /*inistring dstr_12__PCTN_NORMCTXT*/ - /*_.VALSTR___V81*/ meltfptr[80] = (void*)&cdat->dstr_12__PCTN_NORMCTXT; + /*_.VALSTR___V82*/ meltfptr[81] = (void*)&cdat->dstr_12__PCTN_NORMCTXT; cdat->dstr_12__PCTN_NORMCTXT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); strncpy(cdat->dstr_12__PCTN_NORMCTXT.val, "PCTN_NORMCTXT", sizeof (cdat->dstr_12__PCTN_NORMCTXT.val)-1); /*iniobj dsym_13__PCTN_SRC*/ -/*uniqueobj*/ if (!/*_.VALDATA___V105*/ meltfptr[104]) /*_.VALDATA___V105*/ meltfptr[104] = (void*)&cdat->dsym_13__PCTN_SRC; +/*uniqueobj*/ if (!/*_.VALDATA___V106*/ meltfptr[105]) /*_.VALDATA___V106*/ meltfptr[105] = (void*)&cdat->dsym_13__PCTN_SRC; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_13__PCTN_SRC", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_13__PCTN_SRC", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); cdat->dsym_13__PCTN_SRC.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); @@ -16002,27 +16086,27 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef cdat->dsym_13__PCTN_SRC.obj_len = 3; /*inistring dstr_14__PCTN_SRC*/ - /*_.VALSTR___V106*/ meltfptr[105] = (void*)&cdat->dstr_14__PCTN_SRC; + /*_.VALSTR___V107*/ meltfptr[106] = (void*)&cdat->dstr_14__PCTN_SRC; cdat->dstr_14__PCTN_SRC.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); strncpy(cdat->dstr_14__PCTN_SRC.val, "PCTN_SRC", sizeof (cdat->dstr_14__PCTN_SRC.val)-1); /*^iniobj*/ /*iniobj dobj_15__PCTN_SRC*/ -/*_.VALDATA___V82*/ meltfptr[81] = (void*)&cdat->dobj_15__PCTN_SRC; +/*_.VALDATA___V83*/ meltfptr[82] = (void*)&cdat->dobj_15__PCTN_SRC; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_15__PCTN_SRC", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_15__PCTN_SRC", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_15__PCTN_SRC.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_15__PCTN_SRC.obj_num = 1; - cdat->dobj_15__PCTN_SRC.obj_hash = 169051643; + cdat->dobj_15__PCTN_SRC.obj_hash = 755368165; cdat->dobj_15__PCTN_SRC.obj_len = 4; /*inistring dstr_16__PCTN_SRC*/ - /*_.VALSTR___V83*/ meltfptr[82] = (void*)&cdat->dstr_16__PCTN_SRC; + /*_.VALSTR___V84*/ meltfptr[83] = (void*)&cdat->dstr_16__PCTN_SRC; cdat->dstr_16__PCTN_SRC.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); strncpy(cdat->dstr_16__PCTN_SRC.val, "PCTN_SRC", sizeof (cdat->dstr_16__PCTN_SRC.val)-1); /*iniobj dsym_17__PCTN_ENV*/ -/*uniqueobj*/ if (!/*_.VALDATA___V107*/ meltfptr[106]) /*_.VALDATA___V107*/ meltfptr[106] = (void*)&cdat->dsym_17__PCTN_ENV; +/*uniqueobj*/ if (!/*_.VALDATA___V108*/ meltfptr[107]) /*_.VALDATA___V108*/ meltfptr[107] = (void*)&cdat->dsym_17__PCTN_ENV; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_17__PCTN_ENV", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_17__PCTN_ENV", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); cdat->dsym_17__PCTN_ENV.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); @@ -16030,27 +16114,27 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef cdat->dsym_17__PCTN_ENV.obj_len = 3; /*inistring dstr_18__PCTN_ENV*/ - /*_.VALSTR___V108*/ meltfptr[107] = (void*)&cdat->dstr_18__PCTN_ENV; + /*_.VALSTR___V109*/ meltfptr[108] = (void*)&cdat->dstr_18__PCTN_ENV; cdat->dstr_18__PCTN_ENV.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); strncpy(cdat->dstr_18__PCTN_ENV.val, "PCTN_ENV", sizeof (cdat->dstr_18__PCTN_ENV.val)-1); /*^iniobj*/ /*iniobj dobj_19__PCTN_ENV*/ -/*_.VALDATA___V84*/ meltfptr[83] = (void*)&cdat->dobj_19__PCTN_ENV; +/*_.VALDATA___V85*/ meltfptr[84] = (void*)&cdat->dobj_19__PCTN_ENV; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_19__PCTN_ENV", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_19__PCTN_ENV", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_19__PCTN_ENV.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_19__PCTN_ENV.obj_num = 2; - cdat->dobj_19__PCTN_ENV.obj_hash = 118642484; + cdat->dobj_19__PCTN_ENV.obj_hash = 570430081; cdat->dobj_19__PCTN_ENV.obj_len = 4; /*inistring dstr_20__PCTN_ENV*/ - /*_.VALSTR___V85*/ meltfptr[84] = (void*)&cdat->dstr_20__PCTN_ENV; + /*_.VALSTR___V86*/ meltfptr[85] = (void*)&cdat->dstr_20__PCTN_ENV; cdat->dstr_20__PCTN_ENV.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); strncpy(cdat->dstr_20__PCTN_ENV.val, "PCTN_ENV", sizeof (cdat->dstr_20__PCTN_ENV.val)-1); /*iniobj dsym_21__PCTN_MAPATVAR*/ -/*uniqueobj*/ if (!/*_.VALDATA___V109*/ meltfptr[108]) /*_.VALDATA___V109*/ meltfptr[108] = (void*)&cdat->dsym_21__PCTN_MAPATVAR; +/*uniqueobj*/ if (!/*_.VALDATA___V110*/ meltfptr[109]) /*_.VALDATA___V110*/ meltfptr[109] = (void*)&cdat->dsym_21__PCTN_MAPATVAR; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_21__PCTN_MAPATVAR", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_21__PCTN_MAPATVAR", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); cdat->dsym_21__PCTN_MAPATVAR.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); @@ -16058,27 +16142,27 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef cdat->dsym_21__PCTN_MAPATVAR.obj_len = 3; /*inistring dstr_22__PCTN_MAPATVAR*/ - /*_.VALSTR___V110*/ meltfptr[109] = (void*)&cdat->dstr_22__PCTN_MAPATVAR; + /*_.VALSTR___V111*/ meltfptr[110] = (void*)&cdat->dstr_22__PCTN_MAPATVAR; cdat->dstr_22__PCTN_MAPATVAR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); strncpy(cdat->dstr_22__PCTN_MAPATVAR.val, "PCTN_MAPATVAR", sizeof (cdat->dstr_22__PCTN_MAPATVAR.val)-1); /*^iniobj*/ /*iniobj dobj_23__PCTN_MAPATVAR*/ -/*_.VALDATA___V86*/ meltfptr[85] = (void*)&cdat->dobj_23__PCTN_MAPATVAR; +/*_.VALDATA___V87*/ meltfptr[86] = (void*)&cdat->dobj_23__PCTN_MAPATVAR; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_23__PCTN_MAPATVAR", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_23__PCTN_MAPATVAR", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_23__PCTN_MAPATVAR.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_23__PCTN_MAPATVAR.obj_num = 3; - cdat->dobj_23__PCTN_MAPATVAR.obj_hash = 272995284; + cdat->dobj_23__PCTN_MAPATVAR.obj_hash = 526520915; cdat->dobj_23__PCTN_MAPATVAR.obj_len = 4; /*inistring dstr_24__PCTN_MAPATVAR*/ - /*_.VALSTR___V87*/ meltfptr[86] = (void*)&cdat->dstr_24__PCTN_MAPATVAR; + /*_.VALSTR___V88*/ meltfptr[87] = (void*)&cdat->dstr_24__PCTN_MAPATVAR; cdat->dstr_24__PCTN_MAPATVAR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); strncpy(cdat->dstr_24__PCTN_MAPATVAR.val, "PCTN_MAPATVAR", sizeof (cdat->dstr_24__PCTN_MAPATVAR.val)-1); /*iniobj dsym_25__PCTN_MAPATCST*/ -/*uniqueobj*/ if (!/*_.VALDATA___V111*/ meltfptr[110]) /*_.VALDATA___V111*/ meltfptr[110] = (void*)&cdat->dsym_25__PCTN_MAPATCST; +/*uniqueobj*/ if (!/*_.VALDATA___V112*/ meltfptr[111]) /*_.VALDATA___V112*/ meltfptr[111] = (void*)&cdat->dsym_25__PCTN_MAPATCST; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_25__PCTN_MAPATCST", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_25__PCTN_MAPATCST", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); cdat->dsym_25__PCTN_MAPATCST.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); @@ -16086,27 +16170,27 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef cdat->dsym_25__PCTN_MAPATCST.obj_len = 3; /*inistring dstr_26__PCTN_MAPATCST*/ - /*_.VALSTR___V112*/ meltfptr[111] = (void*)&cdat->dstr_26__PCTN_MAPATCST; + /*_.VALSTR___V113*/ meltfptr[112] = (void*)&cdat->dstr_26__PCTN_MAPATCST; cdat->dstr_26__PCTN_MAPATCST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); strncpy(cdat->dstr_26__PCTN_MAPATCST.val, "PCTN_MAPATCST", sizeof (cdat->dstr_26__PCTN_MAPATCST.val)-1); /*^iniobj*/ /*iniobj dobj_27__PCTN_MAPATCST*/ -/*_.VALDATA___V88*/ meltfptr[87] = (void*)&cdat->dobj_27__PCTN_MAPATCST; +/*_.VALDATA___V89*/ meltfptr[88] = (void*)&cdat->dobj_27__PCTN_MAPATCST; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_27__PCTN_MAPATCST", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_27__PCTN_MAPATCST", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_27__PCTN_MAPATCST.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_27__PCTN_MAPATCST.obj_num = 4; - cdat->dobj_27__PCTN_MAPATCST.obj_hash = 2504034; + cdat->dobj_27__PCTN_MAPATCST.obj_hash = 383326030; cdat->dobj_27__PCTN_MAPATCST.obj_len = 4; /*inistring dstr_28__PCTN_MAPATCST*/ - /*_.VALSTR___V89*/ meltfptr[88] = (void*)&cdat->dstr_28__PCTN_MAPATCST; + /*_.VALSTR___V90*/ meltfptr[89] = (void*)&cdat->dstr_28__PCTN_MAPATCST; cdat->dstr_28__PCTN_MAPATCST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); strncpy(cdat->dstr_28__PCTN_MAPATCST.val, "PCTN_MAPATCST", sizeof (cdat->dstr_28__PCTN_MAPATCST.val)-1); /*iniobj dsym_29__PCTN_MAPOR*/ -/*uniqueobj*/ if (!/*_.VALDATA___V113*/ meltfptr[112]) /*_.VALDATA___V113*/ meltfptr[112] = (void*)&cdat->dsym_29__PCTN_MAPOR; +/*uniqueobj*/ if (!/*_.VALDATA___V114*/ meltfptr[113]) /*_.VALDATA___V114*/ meltfptr[113] = (void*)&cdat->dsym_29__PCTN_MAPOR; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_29__PCTN_MAPOR", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_29__PCTN_MAPOR", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); cdat->dsym_29__PCTN_MAPOR.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); @@ -16114,27 +16198,27 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef cdat->dsym_29__PCTN_MAPOR.obj_len = 3; /*inistring dstr_30__PCTN_MAPOR*/ - /*_.VALSTR___V114*/ meltfptr[113] = (void*)&cdat->dstr_30__PCTN_MAPOR; + /*_.VALSTR___V115*/ meltfptr[114] = (void*)&cdat->dstr_30__PCTN_MAPOR; cdat->dstr_30__PCTN_MAPOR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); strncpy(cdat->dstr_30__PCTN_MAPOR.val, "PCTN_MAPOR", sizeof (cdat->dstr_30__PCTN_MAPOR.val)-1); /*^iniobj*/ /*iniobj dobj_31__PCTN_MAPOR*/ -/*_.VALDATA___V90*/ meltfptr[89] = (void*)&cdat->dobj_31__PCTN_MAPOR; +/*_.VALDATA___V91*/ meltfptr[90] = (void*)&cdat->dobj_31__PCTN_MAPOR; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_31__PCTN_MAPOR", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_31__PCTN_MAPOR", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_31__PCTN_MAPOR.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_31__PCTN_MAPOR.obj_num = 5; - cdat->dobj_31__PCTN_MAPOR.obj_hash = 65441049; + cdat->dobj_31__PCTN_MAPOR.obj_hash = 416007589; cdat->dobj_31__PCTN_MAPOR.obj_len = 4; /*inistring dstr_32__PCTN_MAPOR*/ - /*_.VALSTR___V91*/ meltfptr[90] = (void*)&cdat->dstr_32__PCTN_MAPOR; + /*_.VALSTR___V92*/ meltfptr[91] = (void*)&cdat->dstr_32__PCTN_MAPOR; cdat->dstr_32__PCTN_MAPOR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); strncpy(cdat->dstr_32__PCTN_MAPOR.val, "PCTN_MAPOR", sizeof (cdat->dstr_32__PCTN_MAPOR.val)-1); /*iniobj dsym_33__PCTN_BINDLIST*/ -/*uniqueobj*/ if (!/*_.VALDATA___V115*/ meltfptr[114]) /*_.VALDATA___V115*/ meltfptr[114] = (void*)&cdat->dsym_33__PCTN_BINDLIST; +/*uniqueobj*/ if (!/*_.VALDATA___V116*/ meltfptr[115]) /*_.VALDATA___V116*/ meltfptr[115] = (void*)&cdat->dsym_33__PCTN_BINDLIST; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_33__PCTN_BINDLIST", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_33__PCTN_BINDLIST", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); cdat->dsym_33__PCTN_BINDLIST.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); @@ -16142,27 +16226,27 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef cdat->dsym_33__PCTN_BINDLIST.obj_len = 3; /*inistring dstr_34__PCTN_BINDLIST*/ - /*_.VALSTR___V116*/ meltfptr[115] = (void*)&cdat->dstr_34__PCTN_BINDLIST; + /*_.VALSTR___V117*/ meltfptr[116] = (void*)&cdat->dstr_34__PCTN_BINDLIST; cdat->dstr_34__PCTN_BINDLIST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); strncpy(cdat->dstr_34__PCTN_BINDLIST.val, "PCTN_BINDLIST", sizeof (cdat->dstr_34__PCTN_BINDLIST.val)-1); /*^iniobj*/ /*iniobj dobj_35__PCTN_BINDLIST*/ -/*_.VALDATA___V92*/ meltfptr[91] = (void*)&cdat->dobj_35__PCTN_BINDLIST; +/*_.VALDATA___V93*/ meltfptr[92] = (void*)&cdat->dobj_35__PCTN_BINDLIST; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_35__PCTN_BINDLIST", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_35__PCTN_BINDLIST", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_35__PCTN_BINDLIST.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_35__PCTN_BINDLIST.obj_num = 6; - cdat->dobj_35__PCTN_BINDLIST.obj_hash = 813200925; + cdat->dobj_35__PCTN_BINDLIST.obj_hash = 663410889; cdat->dobj_35__PCTN_BINDLIST.obj_len = 4; /*inistring dstr_36__PCTN_BINDLIST*/ - /*_.VALSTR___V93*/ meltfptr[92] = (void*)&cdat->dstr_36__PCTN_BINDLIST; + /*_.VALSTR___V94*/ meltfptr[93] = (void*)&cdat->dstr_36__PCTN_BINDLIST; cdat->dstr_36__PCTN_BINDLIST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); strncpy(cdat->dstr_36__PCTN_BINDLIST.val, "PCTN_BINDLIST", sizeof (cdat->dstr_36__PCTN_BINDLIST.val)-1); /*iniobj dsym_37__PCTN_STUFFMAP*/ -/*uniqueobj*/ if (!/*_.VALDATA___V117*/ meltfptr[116]) /*_.VALDATA___V117*/ meltfptr[116] = (void*)&cdat->dsym_37__PCTN_STUFFMAP; +/*uniqueobj*/ if (!/*_.VALDATA___V118*/ meltfptr[117]) /*_.VALDATA___V118*/ meltfptr[117] = (void*)&cdat->dsym_37__PCTN_STUFFMAP; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_37__PCTN_STUFFMAP", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_37__PCTN_STUFFMAP", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); cdat->dsym_37__PCTN_STUFFMAP.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); @@ -16170,27 +16254,27 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef cdat->dsym_37__PCTN_STUFFMAP.obj_len = 3; /*inistring dstr_38__PCTN_STUFFMAP*/ - /*_.VALSTR___V118*/ meltfptr[117] = (void*)&cdat->dstr_38__PCTN_STUFFMAP; + /*_.VALSTR___V119*/ meltfptr[118] = (void*)&cdat->dstr_38__PCTN_STUFFMAP; cdat->dstr_38__PCTN_STUFFMAP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); strncpy(cdat->dstr_38__PCTN_STUFFMAP.val, "PCTN_STUFFMAP", sizeof (cdat->dstr_38__PCTN_STUFFMAP.val)-1); /*^iniobj*/ /*iniobj dobj_39__PCTN_STUFFMAP*/ -/*_.VALDATA___V94*/ meltfptr[93] = (void*)&cdat->dobj_39__PCTN_STUFFMAP; +/*_.VALDATA___V95*/ meltfptr[94] = (void*)&cdat->dobj_39__PCTN_STUFFMAP; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_39__PCTN_STUFFMAP", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_39__PCTN_STUFFMAP", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_39__PCTN_STUFFMAP.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_39__PCTN_STUFFMAP.obj_num = 7; - cdat->dobj_39__PCTN_STUFFMAP.obj_hash = 690253111; + cdat->dobj_39__PCTN_STUFFMAP.obj_hash = 92006998; cdat->dobj_39__PCTN_STUFFMAP.obj_len = 4; /*inistring dstr_40__PCTN_STUFFMAP*/ - /*_.VALSTR___V95*/ meltfptr[94] = (void*)&cdat->dstr_40__PCTN_STUFFMAP; + /*_.VALSTR___V96*/ meltfptr[95] = (void*)&cdat->dstr_40__PCTN_STUFFMAP; cdat->dstr_40__PCTN_STUFFMAP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); strncpy(cdat->dstr_40__PCTN_STUFFMAP.val, "PCTN_STUFFMAP", sizeof (cdat->dstr_40__PCTN_STUFFMAP.val)-1); /*iniobj dsym_41__PCTN_PVARLOCMAP*/ -/*uniqueobj*/ if (!/*_.VALDATA___V119*/ meltfptr[118]) /*_.VALDATA___V119*/ meltfptr[118] = (void*)&cdat->dsym_41__PCTN_PVARLOCMAP; +/*uniqueobj*/ if (!/*_.VALDATA___V120*/ meltfptr[119]) /*_.VALDATA___V120*/ meltfptr[119] = (void*)&cdat->dsym_41__PCTN_PVARLOCMAP; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_41__PCTN_PVARLOCMAP", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_41__PCTN_PVARLOCMAP", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); cdat->dsym_41__PCTN_PVARLOCMAP.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); @@ -16198,27 +16282,27 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef cdat->dsym_41__PCTN_PVARLOCMAP.obj_len = 3; /*inistring dstr_42__PCTN_PVARLOCMAP*/ - /*_.VALSTR___V120*/ meltfptr[119] = (void*)&cdat->dstr_42__PCTN_PVARLOCMAP; + /*_.VALSTR___V121*/ meltfptr[120] = (void*)&cdat->dstr_42__PCTN_PVARLOCMAP; cdat->dstr_42__PCTN_PVARLOCMAP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); strncpy(cdat->dstr_42__PCTN_PVARLOCMAP.val, "PCTN_PVARLOCMAP", sizeof (cdat->dstr_42__PCTN_PVARLOCMAP.val)-1); /*^iniobj*/ /*iniobj dobj_43__PCTN_PVARLOCMAP*/ -/*_.VALDATA___V96*/ meltfptr[95] = (void*)&cdat->dobj_43__PCTN_PVARLOCMAP; +/*_.VALDATA___V97*/ meltfptr[96] = (void*)&cdat->dobj_43__PCTN_PVARLOCMAP; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_43__PCTN_PVARLOCMAP", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_43__PCTN_PVARLOCMAP", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_43__PCTN_PVARLOCMAP.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_43__PCTN_PVARLOCMAP.obj_num = 8; - cdat->dobj_43__PCTN_PVARLOCMAP.obj_hash = 812989813; + cdat->dobj_43__PCTN_PVARLOCMAP.obj_hash = 678950404; cdat->dobj_43__PCTN_PVARLOCMAP.obj_len = 4; /*inistring dstr_44__PCTN_PVARLOCMAP*/ - /*_.VALSTR___V97*/ meltfptr[96] = (void*)&cdat->dstr_44__PCTN_PVARLOCMAP; + /*_.VALSTR___V98*/ meltfptr[97] = (void*)&cdat->dstr_44__PCTN_PVARLOCMAP; cdat->dstr_44__PCTN_PVARLOCMAP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); strncpy(cdat->dstr_44__PCTN_PVARLOCMAP.val, "PCTN_PVARLOCMAP", sizeof (cdat->dstr_44__PCTN_PVARLOCMAP.val)-1); /*iniobj dsym_45__PCTN_TESTS*/ -/*uniqueobj*/ if (!/*_.VALDATA___V121*/ meltfptr[120]) /*_.VALDATA___V121*/ meltfptr[120] = (void*)&cdat->dsym_45__PCTN_TESTS; +/*uniqueobj*/ if (!/*_.VALDATA___V122*/ meltfptr[121]) /*_.VALDATA___V122*/ meltfptr[121] = (void*)&cdat->dsym_45__PCTN_TESTS; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_45__PCTN_TESTS", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_45__PCTN_TESTS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); cdat->dsym_45__PCTN_TESTS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); @@ -16226,27 +16310,27 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef cdat->dsym_45__PCTN_TESTS.obj_len = 3; /*inistring dstr_46__PCTN_TESTS*/ - /*_.VALSTR___V122*/ meltfptr[121] = (void*)&cdat->dstr_46__PCTN_TESTS; + /*_.VALSTR___V123*/ meltfptr[122] = (void*)&cdat->dstr_46__PCTN_TESTS; cdat->dstr_46__PCTN_TESTS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); strncpy(cdat->dstr_46__PCTN_TESTS.val, "PCTN_TESTS", sizeof (cdat->dstr_46__PCTN_TESTS.val)-1); /*^iniobj*/ /*iniobj dobj_47__PCTN_TESTS*/ -/*_.VALDATA___V98*/ meltfptr[97] = (void*)&cdat->dobj_47__PCTN_TESTS; +/*_.VALDATA___V99*/ meltfptr[98] = (void*)&cdat->dobj_47__PCTN_TESTS; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_47__PCTN_TESTS", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_47__PCTN_TESTS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_47__PCTN_TESTS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_47__PCTN_TESTS.obj_num = 9; - cdat->dobj_47__PCTN_TESTS.obj_hash = 303458037; + cdat->dobj_47__PCTN_TESTS.obj_hash = 108345360; cdat->dobj_47__PCTN_TESTS.obj_len = 4; /*inistring dstr_48__PCTN_TESTS*/ - /*_.VALSTR___V99*/ meltfptr[98] = (void*)&cdat->dstr_48__PCTN_TESTS; + /*_.VALSTR___V100*/ meltfptr[99] = (void*)&cdat->dstr_48__PCTN_TESTS; cdat->dstr_48__PCTN_TESTS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); strncpy(cdat->dstr_48__PCTN_TESTS.val, "PCTN_TESTS", sizeof (cdat->dstr_48__PCTN_TESTS.val)-1); /*iniobj dsym_49__PCTN_VARHANDLERS*/ -/*uniqueobj*/ if (!/*_.VALDATA___V123*/ meltfptr[122]) /*_.VALDATA___V123*/ meltfptr[122] = (void*)&cdat->dsym_49__PCTN_VARHANDLERS; +/*uniqueobj*/ if (!/*_.VALDATA___V124*/ meltfptr[123]) /*_.VALDATA___V124*/ meltfptr[123] = (void*)&cdat->dsym_49__PCTN_VARHANDLERS; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_49__PCTN_VARHANDLERS", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_49__PCTN_VARHANDLERS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); cdat->dsym_49__PCTN_VARHANDLERS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); @@ -16254,27 +16338,27 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef cdat->dsym_49__PCTN_VARHANDLERS.obj_len = 3; /*inistring dstr_50__PCTN_VARHANDLERS*/ - /*_.VALSTR___V124*/ meltfptr[123] = (void*)&cdat->dstr_50__PCTN_VARHANDLERS; + /*_.VALSTR___V125*/ meltfptr[124] = (void*)&cdat->dstr_50__PCTN_VARHANDLERS; cdat->dstr_50__PCTN_VARHANDLERS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); strncpy(cdat->dstr_50__PCTN_VARHANDLERS.val, "PCTN_VARHANDLERS", sizeof (cdat->dstr_50__PCTN_VARHANDLERS.val)-1); /*^iniobj*/ /*iniobj dobj_51__PCTN_VARHANDLERS*/ -/*_.VALDATA___V100*/ meltfptr[99] = (void*)&cdat->dobj_51__PCTN_VARHANDLERS; +/*_.VALDATA___V101*/ meltfptr[100] = (void*)&cdat->dobj_51__PCTN_VARHANDLERS; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_51__PCTN_VARHANDLERS", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_51__PCTN_VARHANDLERS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_51__PCTN_VARHANDLERS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_51__PCTN_VARHANDLERS.obj_num = 10; - cdat->dobj_51__PCTN_VARHANDLERS.obj_hash = 796255103; + cdat->dobj_51__PCTN_VARHANDLERS.obj_hash = 349255030; cdat->dobj_51__PCTN_VARHANDLERS.obj_len = 4; /*inistring dstr_52__PCTN_VARHANDLERS*/ - /*_.VALSTR___V101*/ meltfptr[100] = (void*)&cdat->dstr_52__PCTN_VARHANDLERS; + /*_.VALSTR___V102*/ meltfptr[101] = (void*)&cdat->dstr_52__PCTN_VARHANDLERS; cdat->dstr_52__PCTN_VARHANDLERS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); strncpy(cdat->dstr_52__PCTN_VARHANDLERS.val, "PCTN_VARHANDLERS", sizeof (cdat->dstr_52__PCTN_VARHANDLERS.val)-1); /*iniobj dsym_53__SCAN_PATTERN*/ -/*uniqueobj*/ if (!/*_.VALDATA___V125*/ meltfptr[124]) /*_.VALDATA___V125*/ meltfptr[124] = (void*)&cdat->dsym_53__SCAN_PATTERN; +/*uniqueobj*/ if (!/*_.VALDATA___V126*/ meltfptr[125]) /*_.VALDATA___V126*/ meltfptr[125] = (void*)&cdat->dsym_53__SCAN_PATTERN; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_53__SCAN_PATTERN", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_53__SCAN_PATTERN", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); cdat->dsym_53__SCAN_PATTERN.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); @@ -16282,12 +16366,12 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef cdat->dsym_53__SCAN_PATTERN.obj_len = 3; /*inistring dstr_54__SCAN_PATTERN*/ - /*_.VALSTR___V126*/ meltfptr[125] = (void*)&cdat->dstr_54__SCAN_PATTERN; + /*_.VALSTR___V127*/ meltfptr[126] = (void*)&cdat->dstr_54__SCAN_PATTERN; cdat->dstr_54__SCAN_PATTERN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); strncpy(cdat->dstr_54__SCAN_PATTERN.val, "SCAN_PATTERN", sizeof (cdat->dstr_54__SCAN_PATTERN.val)-1); /*iniobj dsym_55__CLASS_SELECTOR*/ -/*uniqueobj*/ if (!/*_.VALDATA___V127*/ meltfptr[126]) /*_.VALDATA___V127*/ meltfptr[126] = (void*)&cdat->dsym_55__CLASS_SELECTOR; +/*uniqueobj*/ if (!/*_.VALDATA___V128*/ meltfptr[127]) /*_.VALDATA___V128*/ meltfptr[127] = (void*)&cdat->dsym_55__CLASS_SELECTOR; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_55__CLASS_SELECTOR", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_55__CLASS_SELECTOR", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); cdat->dsym_55__CLASS_SELECTOR.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); @@ -16295,38 +16379,38 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef cdat->dsym_55__CLASS_SELECTOR.obj_len = 3; /*inistring dstr_56__CLASS_SELECTOR*/ - /*_.VALSTR___V128*/ meltfptr[127] = (void*)&cdat->dstr_56__CLASS_SELECTOR; + /*_.VALSTR___V129*/ meltfptr[128] = (void*)&cdat->dstr_56__CLASS_SELECTOR; cdat->dstr_56__CLASS_SELECTOR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); strncpy(cdat->dstr_56__CLASS_SELECTOR.val, "CLASS_SELECTOR", sizeof (cdat->dstr_56__CLASS_SELECTOR.val)-1); MELT_LOCATION("warmelt-normatch.melt:77:/ iniobj"); /*iniobj dobj_57__SCAN_PATTERN*/ -/*_.VALDATA___V129*/ meltfptr[128] = (void*)&cdat->dobj_57__SCAN_PATTERN; +/*_.VALDATA___V130*/ meltfptr[129] = (void*)&cdat->dobj_57__SCAN_PATTERN; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_57__SCAN_PATTERN", melt_magic_discr (/*_.CLASS_SELECTOR__V8*/ meltfptr[7]) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_57__SCAN_PATTERN", ((meltobject_ptr_t) (/*_.CLASS_SELECTOR__V8*/ meltfptr[7]))->object_magic == OBMAG_OBJECT); cdat->dobj_57__SCAN_PATTERN.obj_class = (meltobject_ptr_t)(/*_.CLASS_SELECTOR__V8*/ meltfptr[7]); - cdat->dobj_57__SCAN_PATTERN.obj_hash = 449856424; + cdat->dobj_57__SCAN_PATTERN.obj_hash = 866565806; cdat->dobj_57__SCAN_PATTERN.obj_len = 4; /*inistring dstr_58__SCAN_PATTERN*/ - /*_.VALSTR___V130*/ meltfptr[129] = (void*)&cdat->dstr_58__SCAN_PATTERN; + /*_.VALSTR___V131*/ meltfptr[130] = (void*)&cdat->dstr_58__SCAN_PATTERN; cdat->dstr_58__SCAN_PATTERN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); strncpy(cdat->dstr_58__SCAN_PATTERN.val, "SCAN_PATTERN", sizeof (cdat->dstr_58__SCAN_PATTERN.val)-1); /*inirout drout_59__SCANPAT_ANYRECV*/ - /*_.VALROUT___V131*/ meltfptr[130] = (void*)&cdat->drout_59__SCANPAT_ANYRECV; + /*_.VALROUT___V132*/ meltfptr[131] = (void*)&cdat->drout_59__SCANPAT_ANYRECV; cdat->drout_59__SCANPAT_ANYRECV.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy(cdat->drout_59__SCANPAT_ANYRECV.routdescr, "SCANPAT_ANYRECV @warmelt-normatch.melt:85", MELT_ROUTDESCR_LEN - 1); cdat->drout_59__SCANPAT_ANYRECV.nbval = 3; MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_59__SCANPAT_ANYRECV, meltrout_1_warmelt_normatch_SCANPAT_ANYRECV); /*iniclos dclo_60__SCANPAT_ANYRECV*/ - /*_.VALCLO___V132*/ meltfptr[131] = (void*)&cdat->dclo_60__SCANPAT_ANYRECV; + /*_.VALCLO___V133*/ meltfptr[132] = (void*)&cdat->dclo_60__SCANPAT_ANYRECV; cdat->dclo_60__SCANPAT_ANYRECV.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); cdat->dclo_60__SCANPAT_ANYRECV.nbval = 0; /*iniobj dsym_61__DEBUG_MSG_FUN*/ -/*uniqueobj*/ if (!/*_.VALDATA___V133*/ meltfptr[132]) /*_.VALDATA___V133*/ meltfptr[132] = (void*)&cdat->dsym_61__DEBUG_MSG_FUN; +/*uniqueobj*/ if (!/*_.VALDATA___V134*/ meltfptr[133]) /*_.VALDATA___V134*/ meltfptr[133] = (void*)&cdat->dsym_61__DEBUG_MSG_FUN; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_61__DEBUG_MSG_FUN", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_61__DEBUG_MSG_FUN", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); cdat->dsym_61__DEBUG_MSG_FUN.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); @@ -16334,12 +16418,12 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef cdat->dsym_61__DEBUG_MSG_FUN.obj_len = 3; /*inistring dstr_62__DEBUG_MSG_FUN*/ - /*_.VALSTR___V134*/ meltfptr[133] = (void*)&cdat->dstr_62__DEBUG_MSG_FUN; + /*_.VALSTR___V135*/ meltfptr[134] = (void*)&cdat->dstr_62__DEBUG_MSG_FUN; cdat->dstr_62__DEBUG_MSG_FUN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); strncpy(cdat->dstr_62__DEBUG_MSG_FUN.val, "DEBUG_MSG_FUN", sizeof (cdat->dstr_62__DEBUG_MSG_FUN.val)-1); /*iniobj dsym_63__CLASS_NAMED*/ -/*uniqueobj*/ if (!/*_.VALDATA___V135*/ meltfptr[134]) /*_.VALDATA___V135*/ meltfptr[134] = (void*)&cdat->dsym_63__CLASS_NAMED; +/*uniqueobj*/ if (!/*_.VALDATA___V136*/ meltfptr[135]) /*_.VALDATA___V136*/ meltfptr[135] = (void*)&cdat->dsym_63__CLASS_NAMED; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_63__CLASS_NAMED", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_63__CLASS_NAMED", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); cdat->dsym_63__CLASS_NAMED.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); @@ -16347,12 +16431,12 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef cdat->dsym_63__CLASS_NAMED.obj_len = 3; /*inistring dstr_64__CLASS_NAMED*/ - /*_.VALSTR___V136*/ meltfptr[135] = (void*)&cdat->dstr_64__CLASS_NAMED; + /*_.VALSTR___V137*/ meltfptr[136] = (void*)&cdat->dstr_64__CLASS_NAMED; cdat->dstr_64__CLASS_NAMED.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); strncpy(cdat->dstr_64__CLASS_NAMED.val, "CLASS_NAMED", sizeof (cdat->dstr_64__CLASS_NAMED.val)-1); /*iniobj dsym_65__INSTALL_METHOD*/ -/*uniqueobj*/ if (!/*_.VALDATA___V137*/ meltfptr[136]) /*_.VALDATA___V137*/ meltfptr[136] = (void*)&cdat->dsym_65__INSTALL_METHOD; +/*uniqueobj*/ if (!/*_.VALDATA___V138*/ meltfptr[137]) /*_.VALDATA___V138*/ meltfptr[137] = (void*)&cdat->dsym_65__INSTALL_METHOD; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_65__INSTALL_METHOD", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_65__INSTALL_METHOD", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); cdat->dsym_65__INSTALL_METHOD.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); @@ -16360,12 +16444,12 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef cdat->dsym_65__INSTALL_METHOD.obj_len = 3; /*inistring dstr_66__INSTALL_METHOD*/ - /*_.VALSTR___V138*/ meltfptr[137] = (void*)&cdat->dstr_66__INSTALL_METHOD; + /*_.VALSTR___V139*/ meltfptr[138] = (void*)&cdat->dstr_66__INSTALL_METHOD; cdat->dstr_66__INSTALL_METHOD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); strncpy(cdat->dstr_66__INSTALL_METHOD.val, "INSTALL_METHOD", sizeof (cdat->dstr_66__INSTALL_METHOD.val)-1); /*iniobj dsym_67__DISCR_ANY_RECEIVER*/ -/*uniqueobj*/ if (!/*_.VALDATA___V139*/ meltfptr[138]) /*_.VALDATA___V139*/ meltfptr[138] = (void*)&cdat->dsym_67__DISCR_ANY_RECEIVER; +/*uniqueobj*/ if (!/*_.VALDATA___V140*/ meltfptr[139]) /*_.VALDATA___V140*/ meltfptr[139] = (void*)&cdat->dsym_67__DISCR_ANY_RECEIVER; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_67__DISCR_ANY_RECEIVER", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_67__DISCR_ANY_RECEIVER", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); cdat->dsym_67__DISCR_ANY_RECEIVER.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); @@ -16373,24 +16457,24 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef cdat->dsym_67__DISCR_ANY_RECEIVER.obj_len = 3; /*inistring dstr_68__DISCR_ANY_RECEIV*/ - /*_.VALSTR___V140*/ meltfptr[139] = (void*)&cdat->dstr_68__DISCR_ANY_RECEIV; + /*_.VALSTR___V141*/ meltfptr[140] = (void*)&cdat->dstr_68__DISCR_ANY_RECEIV; cdat->dstr_68__DISCR_ANY_RECEIV.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); strncpy(cdat->dstr_68__DISCR_ANY_RECEIV.val, "DISCR_ANY_RECEIVER", sizeof (cdat->dstr_68__DISCR_ANY_RECEIV.val)-1); /*inirout drout_69__SCANPAT_ANYPATTERN*/ - /*_.VALROUT___V141*/ meltfptr[140] = (void*)&cdat->drout_69__SCANPAT_ANYPATTERN; + /*_.VALROUT___V142*/ meltfptr[141] = (void*)&cdat->drout_69__SCANPAT_ANYPATTERN; cdat->drout_69__SCANPAT_ANYPATTERN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy(cdat->drout_69__SCANPAT_ANYPATTERN.routdescr, "SCANPAT_ANYPATTERN @warmelt-normatch.melt:100", MELT_ROUTDESCR_LEN - 1); cdat->drout_69__SCANPAT_ANYPATTERN.nbval = 4; MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_69__SCANPAT_ANYPATTERN, meltrout_2_warmelt_normatch_SCANPAT_ANYPATTERN); /*iniclos dclo_70__SCANPAT_ANYPATTERN*/ - /*_.VALCLO___V142*/ meltfptr[141] = (void*)&cdat->dclo_70__SCANPAT_ANYPATTERN; + /*_.VALCLO___V143*/ meltfptr[142] = (void*)&cdat->dclo_70__SCANPAT_ANYPATTERN; cdat->dclo_70__SCANPAT_ANYPATTERN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); cdat->dclo_70__SCANPAT_ANYPATTERN.nbval = 0; /*iniobj dsym_71__CLASS_SOURCE_PATTERN*/ -/*uniqueobj*/ if (!/*_.VALDATA___V143*/ meltfptr[142]) /*_.VALDATA___V143*/ meltfptr[142] = (void*)&cdat->dsym_71__CLASS_SOURCE_PATTERN; +/*uniqueobj*/ if (!/*_.VALDATA___V144*/ meltfptr[143]) /*_.VALDATA___V144*/ meltfptr[143] = (void*)&cdat->dsym_71__CLASS_SOURCE_PATTERN; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_71__CLASS_SOURCE_PATTERN", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_71__CLASS_SOURCE_PATTERN", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); cdat->dsym_71__CLASS_SOURCE_PATTERN.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); @@ -16398,24 +16482,24 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef cdat->dsym_71__CLASS_SOURCE_PATTERN.obj_len = 3; /*inistring dstr_72__CLASS_SOURCE_PAT*/ - /*_.VALSTR___V144*/ meltfptr[143] = (void*)&cdat->dstr_72__CLASS_SOURCE_PAT; + /*_.VALSTR___V145*/ meltfptr[144] = (void*)&cdat->dstr_72__CLASS_SOURCE_PAT; cdat->dstr_72__CLASS_SOURCE_PAT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); strncpy(cdat->dstr_72__CLASS_SOURCE_PAT.val, "CLASS_SOURCE_PATTERN", sizeof (cdat->dstr_72__CLASS_SOURCE_PAT.val)-1); /*inirout drout_73__SCANPAT_SRCPATVAR*/ - /*_.VALROUT___V145*/ meltfptr[144] = (void*)&cdat->drout_73__SCANPAT_SRCPATVAR; + /*_.VALROUT___V146*/ meltfptr[145] = (void*)&cdat->drout_73__SCANPAT_SRCPATVAR; cdat->drout_73__SCANPAT_SRCPATVAR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy(cdat->drout_73__SCANPAT_SRCPATVAR.routdescr, "SCANPAT_SRCPATVAR @warmelt-normatch.melt:116", MELT_ROUTDESCR_LEN - 1); cdat->drout_73__SCANPAT_SRCPATVAR.nbval = 3; MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_73__SCANPAT_SRCPATVAR, meltrout_3_warmelt_normatch_SCANPAT_SRCPATVAR); /*iniclos dclo_74__SCANPAT_SRCPATVAR*/ - /*_.VALCLO___V146*/ meltfptr[145] = (void*)&cdat->dclo_74__SCANPAT_SRCPATVAR; + /*_.VALCLO___V147*/ meltfptr[146] = (void*)&cdat->dclo_74__SCANPAT_SRCPATVAR; cdat->dclo_74__SCANPAT_SRCPATVAR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); cdat->dclo_74__SCANPAT_SRCPATVAR.nbval = 0; /*iniobj dsym_75__CLASS_SOURCE_PATTERN_VARIABLE*/ -/*uniqueobj*/ if (!/*_.VALDATA___V147*/ meltfptr[146]) /*_.VALDATA___V147*/ meltfptr[146] = (void*)&cdat->dsym_75__CLASS_SOURCE_PATTERN_VARIABLE; +/*uniqueobj*/ if (!/*_.VALDATA___V148*/ meltfptr[147]) /*_.VALDATA___V148*/ meltfptr[147] = (void*)&cdat->dsym_75__CLASS_SOURCE_PATTERN_VARIABLE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_75__CLASS_SOURCE_PATTERN_VARIABLE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_75__CLASS_SOURCE_PATTERN_VARIABLE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); cdat->dsym_75__CLASS_SOURCE_PATTERN_VARIABLE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); @@ -16423,24 +16507,24 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef cdat->dsym_75__CLASS_SOURCE_PATTERN_VARIABLE.obj_len = 3; /*inistring dstr_76__CLASS_SOURCE_PAT*/ - /*_.VALSTR___V148*/ meltfptr[147] = (void*)&cdat->dstr_76__CLASS_SOURCE_PAT; + /*_.VALSTR___V149*/ meltfptr[148] = (void*)&cdat->dstr_76__CLASS_SOURCE_PAT; cdat->dstr_76__CLASS_SOURCE_PAT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); strncpy(cdat->dstr_76__CLASS_SOURCE_PAT.val, "CLASS_SOURCE_PATTERN_VARIABLE", sizeof (cdat->dstr_76__CLASS_SOURCE_PAT.val)-1); /*inirout drout_77__SCANPAT_SRCPATJOKER*/ - /*_.VALROUT___V149*/ meltfptr[148] = (void*)&cdat->drout_77__SCANPAT_SRCPATJOKER; + /*_.VALROUT___V150*/ meltfptr[149] = (void*)&cdat->drout_77__SCANPAT_SRCPATJOKER; cdat->drout_77__SCANPAT_SRCPATJOKER.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy(cdat->drout_77__SCANPAT_SRCPATJOKER.routdescr, "SCANPAT_SRCPATJOKER @warmelt-normatch.melt:150", MELT_ROUTDESCR_LEN - 1); cdat->drout_77__SCANPAT_SRCPATJOKER.nbval = 3; MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_77__SCANPAT_SRCPATJOKER, meltrout_4_warmelt_normatch_SCANPAT_SRCPATJOKER); /*iniclos dclo_78__SCANPAT_SRCPATJOKER*/ - /*_.VALCLO___V150*/ meltfptr[149] = (void*)&cdat->dclo_78__SCANPAT_SRCPATJOKER; + /*_.VALCLO___V151*/ meltfptr[150] = (void*)&cdat->dclo_78__SCANPAT_SRCPATJOKER; cdat->dclo_78__SCANPAT_SRCPATJOKER.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); cdat->dclo_78__SCANPAT_SRCPATJOKER.nbval = 0; /*iniobj dsym_79__CLASS_SOURCE_PATTERN_JOKER_VARIABLE*/ -/*uniqueobj*/ if (!/*_.VALDATA___V151*/ meltfptr[150]) /*_.VALDATA___V151*/ meltfptr[150] = (void*)&cdat->dsym_79__CLASS_SOURCE_PATTERN_JOKER_VARIABLE; +/*uniqueobj*/ if (!/*_.VALDATA___V152*/ meltfptr[151]) /*_.VALDATA___V152*/ meltfptr[151] = (void*)&cdat->dsym_79__CLASS_SOURCE_PATTERN_JOKER_VARIABLE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_79__CLASS_SOURCE_PATTERN_JOKER_VARIABLE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_79__CLASS_SOURCE_PATTERN_JOKER_VARIABLE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); cdat->dsym_79__CLASS_SOURCE_PATTERN_JOKER_VARIABLE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); @@ -16448,24 +16532,24 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef cdat->dsym_79__CLASS_SOURCE_PATTERN_JOKER_VARIABLE.obj_len = 3; /*inistring dstr_80__CLASS_SOURCE_PAT*/ - /*_.VALSTR___V152*/ meltfptr[151] = (void*)&cdat->dstr_80__CLASS_SOURCE_PAT; + /*_.VALSTR___V153*/ meltfptr[152] = (void*)&cdat->dstr_80__CLASS_SOURCE_PAT; cdat->dstr_80__CLASS_SOURCE_PAT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); strncpy(cdat->dstr_80__CLASS_SOURCE_PAT.val, "CLASS_SOURCE_PATTERN_JOKER_VARIABLE", sizeof (cdat->dstr_80__CLASS_SOURCE_PAT.val)-1); /*inirout drout_81__SCANPAT_SRCPATCONST*/ - /*_.VALROUT___V153*/ meltfptr[152] = (void*)&cdat->drout_81__SCANPAT_SRCPATCONST; + /*_.VALROUT___V154*/ meltfptr[153] = (void*)&cdat->drout_81__SCANPAT_SRCPATCONST; cdat->drout_81__SCANPAT_SRCPATCONST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy(cdat->drout_81__SCANPAT_SRCPATCONST.routdescr, "SCANPAT_SRCPATCONST @warmelt-normatch.melt:164", MELT_ROUTDESCR_LEN - 1); cdat->drout_81__SCANPAT_SRCPATCONST.nbval = 7; MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_81__SCANPAT_SRCPATCONST, meltrout_5_warmelt_normatch_SCANPAT_SRCPATCONST); /*iniclos dclo_82__SCANPAT_SRCPATCONST*/ - /*_.VALCLO___V154*/ meltfptr[153] = (void*)&cdat->dclo_82__SCANPAT_SRCPATCONST; + /*_.VALCLO___V155*/ meltfptr[154] = (void*)&cdat->dclo_82__SCANPAT_SRCPATCONST; cdat->dclo_82__SCANPAT_SRCPATCONST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); cdat->dclo_82__SCANPAT_SRCPATCONST.nbval = 0; /*iniobj dsym_83__CLASS_SOURCE_PATTERN_CONSTANT*/ -/*uniqueobj*/ if (!/*_.VALDATA___V155*/ meltfptr[154]) /*_.VALDATA___V155*/ meltfptr[154] = (void*)&cdat->dsym_83__CLASS_SOURCE_PATTERN_CONSTANT; +/*uniqueobj*/ if (!/*_.VALDATA___V156*/ meltfptr[155]) /*_.VALDATA___V156*/ meltfptr[155] = (void*)&cdat->dsym_83__CLASS_SOURCE_PATTERN_CONSTANT; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_83__CLASS_SOURCE_PATTERN_CONSTANT", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_83__CLASS_SOURCE_PATTERN_CONSTANT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); cdat->dsym_83__CLASS_SOURCE_PATTERN_CONSTANT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); @@ -16473,12 +16557,12 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef cdat->dsym_83__CLASS_SOURCE_PATTERN_CONSTANT.obj_len = 3; /*inistring dstr_84__CLASS_SOURCE_PAT*/ - /*_.VALSTR___V156*/ meltfptr[155] = (void*)&cdat->dstr_84__CLASS_SOURCE_PAT; + /*_.VALSTR___V157*/ meltfptr[156] = (void*)&cdat->dstr_84__CLASS_SOURCE_PAT; cdat->dstr_84__CLASS_SOURCE_PAT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); strncpy(cdat->dstr_84__CLASS_SOURCE_PAT.val, "CLASS_SOURCE_PATTERN_CONSTANT", sizeof (cdat->dstr_84__CLASS_SOURCE_PAT.val)-1); /*iniobj dsym_85__NORMAL_EXP*/ -/*uniqueobj*/ if (!/*_.VALDATA___V157*/ meltfptr[156]) /*_.VALDATA___V157*/ meltfptr[156] = (void*)&cdat->dsym_85__NORMAL_EXP; +/*uniqueobj*/ if (!/*_.VALDATA___V158*/ meltfptr[157]) /*_.VALDATA___V158*/ meltfptr[157] = (void*)&cdat->dsym_85__NORMAL_EXP; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_85__NORMAL_EXP", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_85__NORMAL_EXP", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); cdat->dsym_85__NORMAL_EXP.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); @@ -16486,12 +16570,12 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef cdat->dsym_85__NORMAL_EXP.obj_len = 3; /*inistring dstr_86__NORMAL_EXP*/ - /*_.VALSTR___V158*/ meltfptr[157] = (void*)&cdat->dstr_86__NORMAL_EXP; + /*_.VALSTR___V159*/ meltfptr[158] = (void*)&cdat->dstr_86__NORMAL_EXP; cdat->dstr_86__NORMAL_EXP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); strncpy(cdat->dstr_86__NORMAL_EXP.val, "NORMAL_EXP", sizeof (cdat->dstr_86__NORMAL_EXP.val)-1); /*iniobj dsym_87__LIST_APPEND2LIST*/ -/*uniqueobj*/ if (!/*_.VALDATA___V159*/ meltfptr[158]) /*_.VALDATA___V159*/ meltfptr[158] = (void*)&cdat->dsym_87__LIST_APPEND2LIST; +/*uniqueobj*/ if (!/*_.VALDATA___V160*/ meltfptr[159]) /*_.VALDATA___V160*/ meltfptr[159] = (void*)&cdat->dsym_87__LIST_APPEND2LIST; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_87__LIST_APPEND2LIST", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_87__LIST_APPEND2LIST", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); cdat->dsym_87__LIST_APPEND2LIST.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); @@ -16499,12 +16583,12 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef cdat->dsym_87__LIST_APPEND2LIST.obj_len = 3; /*inistring dstr_88__LIST_APPEND2LIST*/ - /*_.VALSTR___V160*/ meltfptr[159] = (void*)&cdat->dstr_88__LIST_APPEND2LIST; + /*_.VALSTR___V161*/ meltfptr[160] = (void*)&cdat->dstr_88__LIST_APPEND2LIST; cdat->dstr_88__LIST_APPEND2LIST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); strncpy(cdat->dstr_88__LIST_APPEND2LIST.val, "LIST_APPEND2LIST", sizeof (cdat->dstr_88__LIST_APPEND2LIST.val)-1); /*iniobj dsym_89__GET_CTYPE*/ -/*uniqueobj*/ if (!/*_.VALDATA___V161*/ meltfptr[160]) /*_.VALDATA___V161*/ meltfptr[160] = (void*)&cdat->dsym_89__GET_CTYPE; +/*uniqueobj*/ if (!/*_.VALDATA___V162*/ meltfptr[161]) /*_.VALDATA___V162*/ meltfptr[161] = (void*)&cdat->dsym_89__GET_CTYPE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_89__GET_CTYPE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_89__GET_CTYPE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); cdat->dsym_89__GET_CTYPE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); @@ -16512,12 +16596,12 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef cdat->dsym_89__GET_CTYPE.obj_len = 3; /*inistring dstr_90__GET_CTYPE*/ - /*_.VALSTR___V162*/ meltfptr[161] = (void*)&cdat->dstr_90__GET_CTYPE; + /*_.VALSTR___V163*/ meltfptr[162] = (void*)&cdat->dstr_90__GET_CTYPE; cdat->dstr_90__GET_CTYPE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); strncpy(cdat->dstr_90__GET_CTYPE.val, "GET_CTYPE", sizeof (cdat->dstr_90__GET_CTYPE.val)-1); /*iniobj dsym_91__CLASS_CTYPE*/ -/*uniqueobj*/ if (!/*_.VALDATA___V163*/ meltfptr[162]) /*_.VALDATA___V163*/ meltfptr[162] = (void*)&cdat->dsym_91__CLASS_CTYPE; +/*uniqueobj*/ if (!/*_.VALDATA___V164*/ meltfptr[163]) /*_.VALDATA___V164*/ meltfptr[163] = (void*)&cdat->dsym_91__CLASS_CTYPE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_91__CLASS_CTYPE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_91__CLASS_CTYPE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); cdat->dsym_91__CLASS_CTYPE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); @@ -16525,24 +16609,24 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef cdat->dsym_91__CLASS_CTYPE.obj_len = 3; /*inistring dstr_92__CLASS_CTYPE*/ - /*_.VALSTR___V164*/ meltfptr[163] = (void*)&cdat->dstr_92__CLASS_CTYPE; + /*_.VALSTR___V165*/ meltfptr[164] = (void*)&cdat->dstr_92__CLASS_CTYPE; cdat->dstr_92__CLASS_CTYPE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); strncpy(cdat->dstr_92__CLASS_CTYPE.val, "CLASS_CTYPE", sizeof (cdat->dstr_92__CLASS_CTYPE.val)-1); /*inirout drout_93__SCANPAT_SRCPATOBJECT*/ - /*_.VALROUT___V165*/ meltfptr[164] = (void*)&cdat->drout_93__SCANPAT_SRCPATOBJECT; + /*_.VALROUT___V166*/ meltfptr[165] = (void*)&cdat->drout_93__SCANPAT_SRCPATOBJECT; cdat->drout_93__SCANPAT_SRCPATOBJECT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy(cdat->drout_93__SCANPAT_SRCPATOBJECT.routdescr, "SCANPAT_SRCPATOBJECT @warmelt-normatch.melt:211", MELT_ROUTDESCR_LEN - 1); cdat->drout_93__SCANPAT_SRCPATOBJECT.nbval = 9; MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_93__SCANPAT_SRCPATOBJECT, meltrout_6_warmelt_normatch_SCANPAT_SRCPATOBJECT); /*iniclos dclo_94__SCANPAT_SRCPATOBJECT*/ - /*_.VALCLO___V166*/ meltfptr[165] = (void*)&cdat->dclo_94__SCANPAT_SRCPATOBJECT; + /*_.VALCLO___V167*/ meltfptr[166] = (void*)&cdat->dclo_94__SCANPAT_SRCPATOBJECT; cdat->dclo_94__SCANPAT_SRCPATOBJECT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); cdat->dclo_94__SCANPAT_SRCPATOBJECT.nbval = 0; /*iniobj dsym_95__CLASS_SOURCE_PATTERN_OBJECT*/ -/*uniqueobj*/ if (!/*_.VALDATA___V167*/ meltfptr[166]) /*_.VALDATA___V167*/ meltfptr[166] = (void*)&cdat->dsym_95__CLASS_SOURCE_PATTERN_OBJECT; +/*uniqueobj*/ if (!/*_.VALDATA___V168*/ meltfptr[167]) /*_.VALDATA___V168*/ meltfptr[167] = (void*)&cdat->dsym_95__CLASS_SOURCE_PATTERN_OBJECT; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_95__CLASS_SOURCE_PATTERN_OBJECT", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_95__CLASS_SOURCE_PATTERN_OBJECT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); cdat->dsym_95__CLASS_SOURCE_PATTERN_OBJECT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); @@ -16550,12 +16634,12 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef cdat->dsym_95__CLASS_SOURCE_PATTERN_OBJECT.obj_len = 3; /*inistring dstr_96__CLASS_SOURCE_PAT*/ - /*_.VALSTR___V168*/ meltfptr[167] = (void*)&cdat->dstr_96__CLASS_SOURCE_PAT; + /*_.VALSTR___V169*/ meltfptr[168] = (void*)&cdat->dstr_96__CLASS_SOURCE_PAT; cdat->dstr_96__CLASS_SOURCE_PAT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); strncpy(cdat->dstr_96__CLASS_SOURCE_PAT.val, "CLASS_SOURCE_PATTERN_OBJECT", sizeof (cdat->dstr_96__CLASS_SOURCE_PAT.val)-1); /*iniobj dsym_97__CLASS_CLASS*/ -/*uniqueobj*/ if (!/*_.VALDATA___V169*/ meltfptr[168]) /*_.VALDATA___V169*/ meltfptr[168] = (void*)&cdat->dsym_97__CLASS_CLASS; +/*uniqueobj*/ if (!/*_.VALDATA___V170*/ meltfptr[169]) /*_.VALDATA___V170*/ meltfptr[169] = (void*)&cdat->dsym_97__CLASS_CLASS; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_97__CLASS_CLASS", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_97__CLASS_CLASS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); cdat->dsym_97__CLASS_CLASS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); @@ -16563,12 +16647,12 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef cdat->dsym_97__CLASS_CLASS.obj_len = 3; /*inistring dstr_98__CLASS_CLASS*/ - /*_.VALSTR___V170*/ meltfptr[169] = (void*)&cdat->dstr_98__CLASS_CLASS; + /*_.VALSTR___V171*/ meltfptr[170] = (void*)&cdat->dstr_98__CLASS_CLASS; cdat->dstr_98__CLASS_CLASS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); strncpy(cdat->dstr_98__CLASS_CLASS.val, "CLASS_CLASS", sizeof (cdat->dstr_98__CLASS_CLASS.val)-1); /*iniobj dsym_99__CLASS_SOURCE_FIELD_PATTERN*/ -/*uniqueobj*/ if (!/*_.VALDATA___V171*/ meltfptr[170]) /*_.VALDATA___V171*/ meltfptr[170] = (void*)&cdat->dsym_99__CLASS_SOURCE_FIELD_PATTERN; +/*uniqueobj*/ if (!/*_.VALDATA___V172*/ meltfptr[171]) /*_.VALDATA___V172*/ meltfptr[171] = (void*)&cdat->dsym_99__CLASS_SOURCE_FIELD_PATTERN; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_99__CLASS_SOURCE_FIELD_PATTERN", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_99__CLASS_SOURCE_FIELD_PATTERN", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); cdat->dsym_99__CLASS_SOURCE_FIELD_PATTERN.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); @@ -16576,12 +16660,12 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef cdat->dsym_99__CLASS_SOURCE_FIELD_PATTERN.obj_len = 3; /*inistring dstr_100__CLASS_SOURCE_FIE*/ - /*_.VALSTR___V172*/ meltfptr[171] = (void*)&cdat->dstr_100__CLASS_SOURCE_FIE; + /*_.VALSTR___V173*/ meltfptr[172] = (void*)&cdat->dstr_100__CLASS_SOURCE_FIE; cdat->dstr_100__CLASS_SOURCE_FIE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); strncpy(cdat->dstr_100__CLASS_SOURCE_FIE.val, "CLASS_SOURCE_FIELD_PATTERN", sizeof (cdat->dstr_100__CLASS_SOURCE_FIE.val)-1); /*iniobj dsym_101__CLASS_FIELD*/ -/*uniqueobj*/ if (!/*_.VALDATA___V173*/ meltfptr[172]) /*_.VALDATA___V173*/ meltfptr[172] = (void*)&cdat->dsym_101__CLASS_FIELD; +/*uniqueobj*/ if (!/*_.VALDATA___V174*/ meltfptr[173]) /*_.VALDATA___V174*/ meltfptr[173] = (void*)&cdat->dsym_101__CLASS_FIELD; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_101__CLASS_FIELD", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_101__CLASS_FIELD", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); cdat->dsym_101__CLASS_FIELD.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); @@ -16589,12 +16673,12 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef cdat->dsym_101__CLASS_FIELD.obj_len = 3; /*inistring dstr_102__CLASS_FIELD*/ - /*_.VALSTR___V174*/ meltfptr[173] = (void*)&cdat->dstr_102__CLASS_FIELD; + /*_.VALSTR___V175*/ meltfptr[174] = (void*)&cdat->dstr_102__CLASS_FIELD; cdat->dstr_102__CLASS_FIELD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); strncpy(cdat->dstr_102__CLASS_FIELD.val, "CLASS_FIELD", sizeof (cdat->dstr_102__CLASS_FIELD.val)-1); /*iniobj dsym_103__CTYPE_VALUE*/ -/*uniqueobj*/ if (!/*_.VALDATA___V175*/ meltfptr[174]) /*_.VALDATA___V175*/ meltfptr[174] = (void*)&cdat->dsym_103__CTYPE_VALUE; +/*uniqueobj*/ if (!/*_.VALDATA___V176*/ meltfptr[175]) /*_.VALDATA___V176*/ meltfptr[175] = (void*)&cdat->dsym_103__CTYPE_VALUE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_103__CTYPE_VALUE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_103__CTYPE_VALUE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); cdat->dsym_103__CTYPE_VALUE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); @@ -16602,24 +16686,24 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef cdat->dsym_103__CTYPE_VALUE.obj_len = 3; /*inistring dstr_104__CTYPE_VALUE*/ - /*_.VALSTR___V176*/ meltfptr[175] = (void*)&cdat->dstr_104__CTYPE_VALUE; + /*_.VALSTR___V177*/ meltfptr[176] = (void*)&cdat->dstr_104__CTYPE_VALUE; cdat->dstr_104__CTYPE_VALUE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); strncpy(cdat->dstr_104__CTYPE_VALUE.val, "CTYPE_VALUE", sizeof (cdat->dstr_104__CTYPE_VALUE.val)-1); /*inirout drout_105__SCANPAT_SRCPATCOMPOSITE*/ - /*_.VALROUT___V177*/ meltfptr[176] = (void*)&cdat->drout_105__SCANPAT_SRCPATCOMPOSITE; + /*_.VALROUT___V178*/ meltfptr[177] = (void*)&cdat->drout_105__SCANPAT_SRCPATCOMPOSITE; cdat->drout_105__SCANPAT_SRCPATCOMPOSITE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy(cdat->drout_105__SCANPAT_SRCPATCOMPOSITE.routdescr, "SCANPAT_SRCPATCOMPOSITE @warmelt-normatch.melt:249", MELT_ROUTDESCR_LEN - 1); cdat->drout_105__SCANPAT_SRCPATCOMPOSITE.nbval = 9; MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_105__SCANPAT_SRCPATCOMPOSITE, meltrout_7_warmelt_normatch_SCANPAT_SRCPATCOMPOSITE); /*iniclos dclo_106__SCANPAT_SRCPATCOMPOSITE*/ - /*_.VALCLO___V178*/ meltfptr[177] = (void*)&cdat->dclo_106__SCANPAT_SRCPATCOMPOSITE; + /*_.VALCLO___V179*/ meltfptr[178] = (void*)&cdat->dclo_106__SCANPAT_SRCPATCOMPOSITE; cdat->dclo_106__SCANPAT_SRCPATCOMPOSITE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); cdat->dclo_106__SCANPAT_SRCPATCOMPOSITE.nbval = 0; /*iniobj dsym_107__CLASS_SOURCE_PATTERN_COMPOSITE*/ -/*uniqueobj*/ if (!/*_.VALDATA___V179*/ meltfptr[178]) /*_.VALDATA___V179*/ meltfptr[178] = (void*)&cdat->dsym_107__CLASS_SOURCE_PATTERN_COMPOSITE; +/*uniqueobj*/ if (!/*_.VALDATA___V180*/ meltfptr[179]) /*_.VALDATA___V180*/ meltfptr[179] = (void*)&cdat->dsym_107__CLASS_SOURCE_PATTERN_COMPOSITE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_107__CLASS_SOURCE_PATTERN_COMPOSITE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_107__CLASS_SOURCE_PATTERN_COMPOSITE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); cdat->dsym_107__CLASS_SOURCE_PATTERN_COMPOSITE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); @@ -16627,12 +16711,12 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef cdat->dsym_107__CLASS_SOURCE_PATTERN_COMPOSITE.obj_len = 3; /*inistring dstr_108__CLASS_SOURCE_PAT*/ - /*_.VALSTR___V180*/ meltfptr[179] = (void*)&cdat->dstr_108__CLASS_SOURCE_PAT; + /*_.VALSTR___V181*/ meltfptr[180] = (void*)&cdat->dstr_108__CLASS_SOURCE_PAT; cdat->dstr_108__CLASS_SOURCE_PAT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); strncpy(cdat->dstr_108__CLASS_SOURCE_PAT.val, "CLASS_SOURCE_PATTERN_COMPOSITE", sizeof (cdat->dstr_108__CLASS_SOURCE_PAT.val)-1); /*iniobj dsym_109__CLASS_ANY_MATCHER*/ -/*uniqueobj*/ if (!/*_.VALDATA___V181*/ meltfptr[180]) /*_.VALDATA___V181*/ meltfptr[180] = (void*)&cdat->dsym_109__CLASS_ANY_MATCHER; +/*uniqueobj*/ if (!/*_.VALDATA___V182*/ meltfptr[181]) /*_.VALDATA___V182*/ meltfptr[181] = (void*)&cdat->dsym_109__CLASS_ANY_MATCHER; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_109__CLASS_ANY_MATCHER", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_109__CLASS_ANY_MATCHER", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); cdat->dsym_109__CLASS_ANY_MATCHER.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); @@ -16640,12 +16724,12 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef cdat->dsym_109__CLASS_ANY_MATCHER.obj_len = 3; /*inistring dstr_110__CLASS_ANY_MATCHE*/ - /*_.VALSTR___V182*/ meltfptr[181] = (void*)&cdat->dstr_110__CLASS_ANY_MATCHE; + /*_.VALSTR___V183*/ meltfptr[182] = (void*)&cdat->dstr_110__CLASS_ANY_MATCHE; cdat->dstr_110__CLASS_ANY_MATCHE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); strncpy(cdat->dstr_110__CLASS_ANY_MATCHE.val, "CLASS_ANY_MATCHER", sizeof (cdat->dstr_110__CLASS_ANY_MATCHE.val)-1); /*iniobj dsym_111__CLASS_FORMAL_BINDING*/ -/*uniqueobj*/ if (!/*_.VALDATA___V183*/ meltfptr[182]) /*_.VALDATA___V183*/ meltfptr[182] = (void*)&cdat->dsym_111__CLASS_FORMAL_BINDING; +/*uniqueobj*/ if (!/*_.VALDATA___V184*/ meltfptr[183]) /*_.VALDATA___V184*/ meltfptr[183] = (void*)&cdat->dsym_111__CLASS_FORMAL_BINDING; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_111__CLASS_FORMAL_BINDING", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_111__CLASS_FORMAL_BINDING", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); cdat->dsym_111__CLASS_FORMAL_BINDING.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); @@ -16653,12 +16737,12 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef cdat->dsym_111__CLASS_FORMAL_BINDING.obj_len = 3; /*inistring dstr_112__CLASS_FORMAL_BIN*/ - /*_.VALSTR___V184*/ meltfptr[183] = (void*)&cdat->dstr_112__CLASS_FORMAL_BIN; + /*_.VALSTR___V185*/ meltfptr[184] = (void*)&cdat->dstr_112__CLASS_FORMAL_BIN; cdat->dstr_112__CLASS_FORMAL_BIN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); strncpy(cdat->dstr_112__CLASS_FORMAL_BIN.val, "CLASS_FORMAL_BINDING", sizeof (cdat->dstr_112__CLASS_FORMAL_BIN.val)-1); /*iniobj dsym_113__NORMALIZE_TUPLE*/ -/*uniqueobj*/ if (!/*_.VALDATA___V185*/ meltfptr[184]) /*_.VALDATA___V185*/ meltfptr[184] = (void*)&cdat->dsym_113__NORMALIZE_TUPLE; +/*uniqueobj*/ if (!/*_.VALDATA___V186*/ meltfptr[185]) /*_.VALDATA___V186*/ meltfptr[185] = (void*)&cdat->dsym_113__NORMALIZE_TUPLE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_113__NORMALIZE_TUPLE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_113__NORMALIZE_TUPLE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); cdat->dsym_113__NORMALIZE_TUPLE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); @@ -16666,24 +16750,24 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef cdat->dsym_113__NORMALIZE_TUPLE.obj_len = 3; /*inistring dstr_114__NORMALIZE_TUPLE*/ - /*_.VALSTR___V186*/ meltfptr[185] = (void*)&cdat->dstr_114__NORMALIZE_TUPLE; + /*_.VALSTR___V187*/ meltfptr[186] = (void*)&cdat->dstr_114__NORMALIZE_TUPLE; cdat->dstr_114__NORMALIZE_TUPLE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); strncpy(cdat->dstr_114__NORMALIZE_TUPLE.val, "NORMALIZE_TUPLE", sizeof (cdat->dstr_114__NORMALIZE_TUPLE.val)-1); /*inirout drout_115__SCANPAT_SRCPATOR*/ - /*_.VALROUT___V187*/ meltfptr[186] = (void*)&cdat->drout_115__SCANPAT_SRCPATOR; + /*_.VALROUT___V188*/ meltfptr[187] = (void*)&cdat->drout_115__SCANPAT_SRCPATOR; cdat->drout_115__SCANPAT_SRCPATOR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy(cdat->drout_115__SCANPAT_SRCPATOR.routdescr, "SCANPAT_SRCPATOR @warmelt-normatch.melt:315", MELT_ROUTDESCR_LEN - 1); cdat->drout_115__SCANPAT_SRCPATOR.nbval = 10; MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_115__SCANPAT_SRCPATOR, meltrout_8_warmelt_normatch_SCANPAT_SRCPATOR); /*iniclos dclo_116__SCANPAT_SRCPATOR*/ - /*_.VALCLO___V189*/ meltfptr[188] = (void*)&cdat->dclo_116__SCANPAT_SRCPATOR; + /*_.VALCLO___V190*/ meltfptr[189] = (void*)&cdat->dclo_116__SCANPAT_SRCPATOR; cdat->dclo_116__SCANPAT_SRCPATOR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); cdat->dclo_116__SCANPAT_SRCPATOR.nbval = 0; /*iniobj dsym_117__CLASS_SOURCE_PATTERN_OR*/ -/*uniqueobj*/ if (!/*_.VALDATA___V190*/ meltfptr[189]) /*_.VALDATA___V190*/ meltfptr[189] = (void*)&cdat->dsym_117__CLASS_SOURCE_PATTERN_OR; +/*uniqueobj*/ if (!/*_.VALDATA___V191*/ meltfptr[190]) /*_.VALDATA___V191*/ meltfptr[190] = (void*)&cdat->dsym_117__CLASS_SOURCE_PATTERN_OR; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_117__CLASS_SOURCE_PATTERN_OR", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_117__CLASS_SOURCE_PATTERN_OR", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); cdat->dsym_117__CLASS_SOURCE_PATTERN_OR.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); @@ -16691,12 +16775,12 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef cdat->dsym_117__CLASS_SOURCE_PATTERN_OR.obj_len = 3; /*inistring dstr_118__CLASS_SOURCE_PAT*/ - /*_.VALSTR___V191*/ meltfptr[190] = (void*)&cdat->dstr_118__CLASS_SOURCE_PAT; + /*_.VALSTR___V192*/ meltfptr[191] = (void*)&cdat->dstr_118__CLASS_SOURCE_PAT; cdat->dstr_118__CLASS_SOURCE_PAT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); strncpy(cdat->dstr_118__CLASS_SOURCE_PAT.val, "CLASS_SOURCE_PATTERN_OR", sizeof (cdat->dstr_118__CLASS_SOURCE_PAT.val)-1); /*iniobj dsym_119__DISCR_MAP_OBJECTS*/ -/*uniqueobj*/ if (!/*_.VALDATA___V192*/ meltfptr[191]) /*_.VALDATA___V192*/ meltfptr[191] = (void*)&cdat->dsym_119__DISCR_MAP_OBJECTS; +/*uniqueobj*/ if (!/*_.VALDATA___V193*/ meltfptr[192]) /*_.VALDATA___V193*/ meltfptr[192] = (void*)&cdat->dsym_119__DISCR_MAP_OBJECTS; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_119__DISCR_MAP_OBJECTS", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_119__DISCR_MAP_OBJECTS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); cdat->dsym_119__DISCR_MAP_OBJECTS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); @@ -16704,19 +16788,19 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef cdat->dsym_119__DISCR_MAP_OBJECTS.obj_len = 3; /*inistring dstr_120__DISCR_MAP_OBJECT*/ - /*_.VALSTR___V193*/ meltfptr[192] = (void*)&cdat->dstr_120__DISCR_MAP_OBJECT; + /*_.VALSTR___V194*/ meltfptr[193] = (void*)&cdat->dstr_120__DISCR_MAP_OBJECT; cdat->dstr_120__DISCR_MAP_OBJECT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); strncpy(cdat->dstr_120__DISCR_MAP_OBJECT.val, "DISCR_MAP_OBJECTS", sizeof (cdat->dstr_120__DISCR_MAP_OBJECT.val)-1); /*inirout drout_121__LAMBDA_*/ - /*_.VALROUT___V188*/ meltfptr[187] = (void*)&cdat->drout_121__LAMBDA_; + /*_.VALROUT___V189*/ meltfptr[188] = (void*)&cdat->drout_121__LAMBDA_; cdat->drout_121__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy(cdat->drout_121__LAMBDA_.routdescr, "LAMBDA_ @warmelt-normatch.melt:327", MELT_ROUTDESCR_LEN - 1); cdat->drout_121__LAMBDA_.nbval = 2; MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_121__LAMBDA_, meltrout_9_warmelt_normatch_LAMBDA_); /*iniobj dsym_122__CLASS_SYMBOL*/ -/*uniqueobj*/ if (!/*_.VALDATA___V194*/ meltfptr[193]) /*_.VALDATA___V194*/ meltfptr[193] = (void*)&cdat->dsym_122__CLASS_SYMBOL; +/*uniqueobj*/ if (!/*_.VALDATA___V195*/ meltfptr[194]) /*_.VALDATA___V195*/ meltfptr[194] = (void*)&cdat->dsym_122__CLASS_SYMBOL; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_122__CLASS_SYMBOL", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_122__CLASS_SYMBOL", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); cdat->dsym_122__CLASS_SYMBOL.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); @@ -16724,24 +16808,24 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef cdat->dsym_122__CLASS_SYMBOL.obj_len = 3; /*inistring dstr_123__CLASS_SYMBOL*/ - /*_.VALSTR___V195*/ meltfptr[194] = (void*)&cdat->dstr_123__CLASS_SYMBOL; + /*_.VALSTR___V196*/ meltfptr[195] = (void*)&cdat->dstr_123__CLASS_SYMBOL; cdat->dstr_123__CLASS_SYMBOL.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); strncpy(cdat->dstr_123__CLASS_SYMBOL.val, "CLASS_SYMBOL", sizeof (cdat->dstr_123__CLASS_SYMBOL.val)-1); /*inirout drout_124__SCANPAT_SRCPATAND*/ - /*_.VALROUT___V196*/ meltfptr[195] = (void*)&cdat->drout_124__SCANPAT_SRCPATAND; + /*_.VALROUT___V197*/ meltfptr[196] = (void*)&cdat->drout_124__SCANPAT_SRCPATAND; cdat->drout_124__SCANPAT_SRCPATAND.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy(cdat->drout_124__SCANPAT_SRCPATAND.routdescr, "SCANPAT_SRCPATAND @warmelt-normatch.melt:390", MELT_ROUTDESCR_LEN - 1); cdat->drout_124__SCANPAT_SRCPATAND.nbval = 4; MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_124__SCANPAT_SRCPATAND, meltrout_10_warmelt_normatch_SCANPAT_SRCPATAND); /*iniclos dclo_125__SCANPAT_SRCPATAND*/ - /*_.VALCLO___V197*/ meltfptr[196] = (void*)&cdat->dclo_125__SCANPAT_SRCPATAND; + /*_.VALCLO___V198*/ meltfptr[197] = (void*)&cdat->dclo_125__SCANPAT_SRCPATAND; cdat->dclo_125__SCANPAT_SRCPATAND.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); cdat->dclo_125__SCANPAT_SRCPATAND.nbval = 0; /*iniobj dsym_126__CLASS_SOURCE_PATTERN_AND*/ -/*uniqueobj*/ if (!/*_.VALDATA___V198*/ meltfptr[197]) /*_.VALDATA___V198*/ meltfptr[197] = (void*)&cdat->dsym_126__CLASS_SOURCE_PATTERN_AND; +/*uniqueobj*/ if (!/*_.VALDATA___V199*/ meltfptr[198]) /*_.VALDATA___V199*/ meltfptr[198] = (void*)&cdat->dsym_126__CLASS_SOURCE_PATTERN_AND; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_126__CLASS_SOURCE_PATTERN_AND", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_126__CLASS_SOURCE_PATTERN_AND", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); cdat->dsym_126__CLASS_SOURCE_PATTERN_AND.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); @@ -16749,12 +16833,12 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef cdat->dsym_126__CLASS_SOURCE_PATTERN_AND.obj_len = 3; /*inistring dstr_127__CLASS_SOURCE_PAT*/ - /*_.VALSTR___V199*/ meltfptr[198] = (void*)&cdat->dstr_127__CLASS_SOURCE_PAT; + /*_.VALSTR___V200*/ meltfptr[199] = (void*)&cdat->dstr_127__CLASS_SOURCE_PAT; cdat->dstr_127__CLASS_SOURCE_PAT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); strncpy(cdat->dstr_127__CLASS_SOURCE_PAT.val, "CLASS_SOURCE_PATTERN_AND", sizeof (cdat->dstr_127__CLASS_SOURCE_PAT.val)-1); /*iniobj dsym_128__NORMAL_PATTERN*/ -/*uniqueobj*/ if (!/*_.VALDATA___V200*/ meltfptr[199]) /*_.VALDATA___V200*/ meltfptr[199] = (void*)&cdat->dsym_128__NORMAL_PATTERN; +/*uniqueobj*/ if (!/*_.VALDATA___V201*/ meltfptr[200]) /*_.VALDATA___V201*/ meltfptr[200] = (void*)&cdat->dsym_128__NORMAL_PATTERN; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_128__NORMAL_PATTERN", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_128__NORMAL_PATTERN", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); cdat->dsym_128__NORMAL_PATTERN.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); @@ -16762,26 +16846,26 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef cdat->dsym_128__NORMAL_PATTERN.obj_len = 3; /*inistring dstr_129__NORMAL_PATTERN*/ - /*_.VALSTR___V201*/ meltfptr[200] = (void*)&cdat->dstr_129__NORMAL_PATTERN; + /*_.VALSTR___V202*/ meltfptr[201] = (void*)&cdat->dstr_129__NORMAL_PATTERN; cdat->dstr_129__NORMAL_PATTERN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); strncpy(cdat->dstr_129__NORMAL_PATTERN.val, "NORMAL_PATTERN", sizeof (cdat->dstr_129__NORMAL_PATTERN.val)-1); MELT_LOCATION("warmelt-normatch.melt:417:/ iniobj"); /*iniobj dobj_130__NORMAL_PATTERN*/ -/*_.VALDATA___V202*/ meltfptr[201] = (void*)&cdat->dobj_130__NORMAL_PATTERN; +/*_.VALDATA___V203*/ meltfptr[202] = (void*)&cdat->dobj_130__NORMAL_PATTERN; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_130__NORMAL_PATTERN", melt_magic_discr (/*_.CLASS_SELECTOR__V8*/ meltfptr[7]) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_130__NORMAL_PATTERN", ((meltobject_ptr_t) (/*_.CLASS_SELECTOR__V8*/ meltfptr[7]))->object_magic == OBMAG_OBJECT); cdat->dobj_130__NORMAL_PATTERN.obj_class = (meltobject_ptr_t)(/*_.CLASS_SELECTOR__V8*/ meltfptr[7]); - cdat->dobj_130__NORMAL_PATTERN.obj_hash = 335500248; + cdat->dobj_130__NORMAL_PATTERN.obj_hash = 751781877; cdat->dobj_130__NORMAL_PATTERN.obj_len = 4; /*inistring dstr_131__NORMAL_PATTERN*/ - /*_.VALSTR___V203*/ meltfptr[202] = (void*)&cdat->dstr_131__NORMAL_PATTERN; + /*_.VALSTR___V204*/ meltfptr[203] = (void*)&cdat->dstr_131__NORMAL_PATTERN; cdat->dstr_131__NORMAL_PATTERN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); strncpy(cdat->dstr_131__NORMAL_PATTERN.val, "NORMAL_PATTERN", sizeof (cdat->dstr_131__NORMAL_PATTERN.val)-1); /*iniobj dsym_132__CLASS_NORMAL_OR_VARIABLE*/ -/*uniqueobj*/ if (!/*_.VALDATA___V204*/ meltfptr[203]) /*_.VALDATA___V204*/ meltfptr[203] = (void*)&cdat->dsym_132__CLASS_NORMAL_OR_VARIABLE; +/*uniqueobj*/ if (!/*_.VALDATA___V205*/ meltfptr[204]) /*_.VALDATA___V205*/ meltfptr[204] = (void*)&cdat->dsym_132__CLASS_NORMAL_OR_VARIABLE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_132__CLASS_NORMAL_OR_VARIABLE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_132__CLASS_NORMAL_OR_VARIABLE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); cdat->dsym_132__CLASS_NORMAL_OR_VARIABLE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); @@ -16789,35 +16873,35 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef cdat->dsym_132__CLASS_NORMAL_OR_VARIABLE.obj_len = 3; /*inistring dstr_133__CLASS_NORMAL_OR_*/ - /*_.VALSTR___V205*/ meltfptr[204] = (void*)&cdat->dstr_133__CLASS_NORMAL_OR_; + /*_.VALSTR___V206*/ meltfptr[205] = (void*)&cdat->dstr_133__CLASS_NORMAL_OR_; cdat->dstr_133__CLASS_NORMAL_OR_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); strncpy(cdat->dstr_133__CLASS_NORMAL_OR_.val, "CLASS_NORMAL_OR_VARIABLE", sizeof (cdat->dstr_133__CLASS_NORMAL_OR_.val)-1); MELT_LOCATION("warmelt-normatch.melt:422:/ iniobj"); /*iniobj dobj_134__CLASS_NORMAL_OR_VARIABLE*/ -/*_.VALDATA___V206*/ meltfptr[205] = (void*)&cdat->dobj_134__CLASS_NORMAL_OR_VARIABLE; +/*_.VALDATA___V207*/ meltfptr[206] = (void*)&cdat->dobj_134__CLASS_NORMAL_OR_VARIABLE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_134__CLASS_NORMAL_OR_VARIABLE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_CLASS)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_134__CLASS_NORMAL_OR_VARIABLE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_134__CLASS_NORMAL_OR_VARIABLE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_134__CLASS_NORMAL_OR_VARIABLE.obj_num = OBMAG_OBJECT; - cdat->dobj_134__CLASS_NORMAL_OR_VARIABLE.obj_hash = 250551539; + cdat->dobj_134__CLASS_NORMAL_OR_VARIABLE.obj_hash = 487679925; cdat->dobj_134__CLASS_NORMAL_OR_VARIABLE.obj_len = 8; /*inistring dstr_135__CLASS_NORMAL_OR_*/ - /*_.VALSTR___V207*/ meltfptr[206] = (void*)&cdat->dstr_135__CLASS_NORMAL_OR_; + /*_.VALSTR___V208*/ meltfptr[207] = (void*)&cdat->dstr_135__CLASS_NORMAL_OR_; cdat->dstr_135__CLASS_NORMAL_OR_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); strncpy(cdat->dstr_135__CLASS_NORMAL_OR_.val, "CLASS_NORMAL_OR_VARIABLE", sizeof (cdat->dstr_135__CLASS_NORMAL_OR_.val)-1); /*inimult dtup_136__CLASS_NORMAL_OR_VARIABLE*/ - /*_.VALTUP___V208*/ meltfptr[207] = (void*)&cdat->dtup_136__CLASS_NORMAL_OR_VARIABLE; + /*_.VALTUP___V209*/ meltfptr[208] = (void*)&cdat->dtup_136__CLASS_NORMAL_OR_VARIABLE; cdat->dtup_136__CLASS_NORMAL_OR_VARIABLE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); cdat->dtup_136__CLASS_NORMAL_OR_VARIABLE.nbval = 1; /*inimult dtup_137__CLASS_NORMAL_OR_VARIABLE*/ - /*_.VALTUP___V217*/ meltfptr[216] = (void*)&cdat->dtup_137__CLASS_NORMAL_OR_VARIABLE; + /*_.VALTUP___V218*/ meltfptr[217] = (void*)&cdat->dtup_137__CLASS_NORMAL_OR_VARIABLE; cdat->dtup_137__CLASS_NORMAL_OR_VARIABLE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); cdat->dtup_137__CLASS_NORMAL_OR_VARIABLE.nbval = 4; /*iniobj dsym_138__NORVAR_NOREXP*/ -/*uniqueobj*/ if (!/*_.VALDATA___V218*/ meltfptr[217]) /*_.VALDATA___V218*/ meltfptr[217] = (void*)&cdat->dsym_138__NORVAR_NOREXP; +/*uniqueobj*/ if (!/*_.VALDATA___V219*/ meltfptr[218]) /*_.VALDATA___V219*/ meltfptr[218] = (void*)&cdat->dsym_138__NORVAR_NOREXP; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_138__NORVAR_NOREXP", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_138__NORVAR_NOREXP", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); cdat->dsym_138__NORVAR_NOREXP.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); @@ -16825,27 +16909,27 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef cdat->dsym_138__NORVAR_NOREXP.obj_len = 3; /*inistring dstr_139__NORVAR_NOREXP*/ - /*_.VALSTR___V219*/ meltfptr[218] = (void*)&cdat->dstr_139__NORVAR_NOREXP; + /*_.VALSTR___V220*/ meltfptr[219] = (void*)&cdat->dstr_139__NORVAR_NOREXP; cdat->dstr_139__NORVAR_NOREXP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); strncpy(cdat->dstr_139__NORVAR_NOREXP.val, "NORVAR_NOREXP", sizeof (cdat->dstr_139__NORVAR_NOREXP.val)-1); /*^iniobj*/ /*iniobj dobj_140__NORVAR_NOREXP*/ -/*_.VALDATA___V209*/ meltfptr[208] = (void*)&cdat->dobj_140__NORVAR_NOREXP; +/*_.VALDATA___V210*/ meltfptr[209] = (void*)&cdat->dobj_140__NORVAR_NOREXP; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_140__NORVAR_NOREXP", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_140__NORVAR_NOREXP", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_140__NORVAR_NOREXP.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_140__NORVAR_NOREXP.obj_num = 0; - cdat->dobj_140__NORVAR_NOREXP.obj_hash = 82701455; + cdat->dobj_140__NORVAR_NOREXP.obj_hash = 785483983; cdat->dobj_140__NORVAR_NOREXP.obj_len = 4; /*inistring dstr_141__NORVAR_NOREXP*/ - /*_.VALSTR___V210*/ meltfptr[209] = (void*)&cdat->dstr_141__NORVAR_NOREXP; + /*_.VALSTR___V211*/ meltfptr[210] = (void*)&cdat->dstr_141__NORVAR_NOREXP; cdat->dstr_141__NORVAR_NOREXP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); strncpy(cdat->dstr_141__NORVAR_NOREXP.val, "NORVAR_NOREXP", sizeof (cdat->dstr_141__NORVAR_NOREXP.val)-1); /*iniobj dsym_142__NORVAR_LOCSYM*/ -/*uniqueobj*/ if (!/*_.VALDATA___V220*/ meltfptr[219]) /*_.VALDATA___V220*/ meltfptr[219] = (void*)&cdat->dsym_142__NORVAR_LOCSYM; +/*uniqueobj*/ if (!/*_.VALDATA___V221*/ meltfptr[220]) /*_.VALDATA___V221*/ meltfptr[220] = (void*)&cdat->dsym_142__NORVAR_LOCSYM; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_142__NORVAR_LOCSYM", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_142__NORVAR_LOCSYM", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); cdat->dsym_142__NORVAR_LOCSYM.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); @@ -16853,27 +16937,27 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef cdat->dsym_142__NORVAR_LOCSYM.obj_len = 3; /*inistring dstr_143__NORVAR_LOCSYM*/ - /*_.VALSTR___V221*/ meltfptr[220] = (void*)&cdat->dstr_143__NORVAR_LOCSYM; + /*_.VALSTR___V222*/ meltfptr[221] = (void*)&cdat->dstr_143__NORVAR_LOCSYM; cdat->dstr_143__NORVAR_LOCSYM.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); strncpy(cdat->dstr_143__NORVAR_LOCSYM.val, "NORVAR_LOCSYM", sizeof (cdat->dstr_143__NORVAR_LOCSYM.val)-1); /*^iniobj*/ /*iniobj dobj_144__NORVAR_LOCSYM*/ -/*_.VALDATA___V211*/ meltfptr[210] = (void*)&cdat->dobj_144__NORVAR_LOCSYM; +/*_.VALDATA___V212*/ meltfptr[211] = (void*)&cdat->dobj_144__NORVAR_LOCSYM; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_144__NORVAR_LOCSYM", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_144__NORVAR_LOCSYM", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_144__NORVAR_LOCSYM.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_144__NORVAR_LOCSYM.obj_num = 1; - cdat->dobj_144__NORVAR_LOCSYM.obj_hash = 1034109632; + cdat->dobj_144__NORVAR_LOCSYM.obj_hash = 479438592; cdat->dobj_144__NORVAR_LOCSYM.obj_len = 4; /*inistring dstr_145__NORVAR_LOCSYM*/ - /*_.VALSTR___V212*/ meltfptr[211] = (void*)&cdat->dstr_145__NORVAR_LOCSYM; + /*_.VALSTR___V213*/ meltfptr[212] = (void*)&cdat->dstr_145__NORVAR_LOCSYM; cdat->dstr_145__NORVAR_LOCSYM.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); strncpy(cdat->dstr_145__NORVAR_LOCSYM.val, "NORVAR_LOCSYM", sizeof (cdat->dstr_145__NORVAR_LOCSYM.val)-1); /*iniobj dsym_146__NORVAR_PATVAR*/ -/*uniqueobj*/ if (!/*_.VALDATA___V222*/ meltfptr[221]) /*_.VALDATA___V222*/ meltfptr[221] = (void*)&cdat->dsym_146__NORVAR_PATVAR; +/*uniqueobj*/ if (!/*_.VALDATA___V223*/ meltfptr[222]) /*_.VALDATA___V223*/ meltfptr[222] = (void*)&cdat->dsym_146__NORVAR_PATVAR; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_146__NORVAR_PATVAR", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_146__NORVAR_PATVAR", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); cdat->dsym_146__NORVAR_PATVAR.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); @@ -16881,27 +16965,27 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef cdat->dsym_146__NORVAR_PATVAR.obj_len = 3; /*inistring dstr_147__NORVAR_PATVAR*/ - /*_.VALSTR___V223*/ meltfptr[222] = (void*)&cdat->dstr_147__NORVAR_PATVAR; + /*_.VALSTR___V224*/ meltfptr[223] = (void*)&cdat->dstr_147__NORVAR_PATVAR; cdat->dstr_147__NORVAR_PATVAR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); strncpy(cdat->dstr_147__NORVAR_PATVAR.val, "NORVAR_PATVAR", sizeof (cdat->dstr_147__NORVAR_PATVAR.val)-1); /*^iniobj*/ /*iniobj dobj_148__NORVAR_PATVAR*/ -/*_.VALDATA___V213*/ meltfptr[212] = (void*)&cdat->dobj_148__NORVAR_PATVAR; +/*_.VALDATA___V214*/ meltfptr[213] = (void*)&cdat->dobj_148__NORVAR_PATVAR; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_148__NORVAR_PATVAR", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_148__NORVAR_PATVAR", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_148__NORVAR_PATVAR.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_148__NORVAR_PATVAR.obj_num = 2; - cdat->dobj_148__NORVAR_PATVAR.obj_hash = 913290015; + cdat->dobj_148__NORVAR_PATVAR.obj_hash = 321034633; cdat->dobj_148__NORVAR_PATVAR.obj_len = 4; /*inistring dstr_149__NORVAR_PATVAR*/ - /*_.VALSTR___V214*/ meltfptr[213] = (void*)&cdat->dstr_149__NORVAR_PATVAR; + /*_.VALSTR___V215*/ meltfptr[214] = (void*)&cdat->dstr_149__NORVAR_PATVAR; cdat->dstr_149__NORVAR_PATVAR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); strncpy(cdat->dstr_149__NORVAR_PATVAR.val, "NORVAR_PATVAR", sizeof (cdat->dstr_149__NORVAR_PATVAR.val)-1); /*iniobj dsym_150__NORVAR_NREPOR*/ -/*uniqueobj*/ if (!/*_.VALDATA___V224*/ meltfptr[223]) /*_.VALDATA___V224*/ meltfptr[223] = (void*)&cdat->dsym_150__NORVAR_NREPOR; +/*uniqueobj*/ if (!/*_.VALDATA___V225*/ meltfptr[224]) /*_.VALDATA___V225*/ meltfptr[224] = (void*)&cdat->dsym_150__NORVAR_NREPOR; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_150__NORVAR_NREPOR", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_150__NORVAR_NREPOR", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); cdat->dsym_150__NORVAR_NREPOR.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); @@ -16909,27 +16993,27 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef cdat->dsym_150__NORVAR_NREPOR.obj_len = 3; /*inistring dstr_151__NORVAR_NREPOR*/ - /*_.VALSTR___V225*/ meltfptr[224] = (void*)&cdat->dstr_151__NORVAR_NREPOR; + /*_.VALSTR___V226*/ meltfptr[225] = (void*)&cdat->dstr_151__NORVAR_NREPOR; cdat->dstr_151__NORVAR_NREPOR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); strncpy(cdat->dstr_151__NORVAR_NREPOR.val, "NORVAR_NREPOR", sizeof (cdat->dstr_151__NORVAR_NREPOR.val)-1); /*^iniobj*/ /*iniobj dobj_152__NORVAR_NREPOR*/ -/*_.VALDATA___V215*/ meltfptr[214] = (void*)&cdat->dobj_152__NORVAR_NREPOR; +/*_.VALDATA___V216*/ meltfptr[215] = (void*)&cdat->dobj_152__NORVAR_NREPOR; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_152__NORVAR_NREPOR", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_152__NORVAR_NREPOR", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_152__NORVAR_NREPOR.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_152__NORVAR_NREPOR.obj_num = 3; - cdat->dobj_152__NORVAR_NREPOR.obj_hash = 1058001063; + cdat->dobj_152__NORVAR_NREPOR.obj_hash = 61698243; cdat->dobj_152__NORVAR_NREPOR.obj_len = 4; /*inistring dstr_153__NORVAR_NREPOR*/ - /*_.VALSTR___V216*/ meltfptr[215] = (void*)&cdat->dstr_153__NORVAR_NREPOR; + /*_.VALSTR___V217*/ meltfptr[216] = (void*)&cdat->dstr_153__NORVAR_NREPOR; cdat->dstr_153__NORVAR_NREPOR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); strncpy(cdat->dstr_153__NORVAR_NREPOR.val, "NORVAR_NREPOR", sizeof (cdat->dstr_153__NORVAR_NREPOR.val)-1); /*iniobj dsym_154__CLASS_NORMTESTER_ANY*/ -/*uniqueobj*/ if (!/*_.VALDATA___V226*/ meltfptr[225]) /*_.VALDATA___V226*/ meltfptr[225] = (void*)&cdat->dsym_154__CLASS_NORMTESTER_ANY; +/*uniqueobj*/ if (!/*_.VALDATA___V227*/ meltfptr[226]) /*_.VALDATA___V227*/ meltfptr[226] = (void*)&cdat->dsym_154__CLASS_NORMTESTER_ANY; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_154__CLASS_NORMTESTER_ANY", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_154__CLASS_NORMTESTER_ANY", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); cdat->dsym_154__CLASS_NORMTESTER_ANY.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); @@ -16937,12 +17021,12 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef cdat->dsym_154__CLASS_NORMTESTER_ANY.obj_len = 3; /*inistring dstr_155__CLASS_NORMTESTER*/ - /*_.VALSTR___V227*/ meltfptr[226] = (void*)&cdat->dstr_155__CLASS_NORMTESTER; + /*_.VALSTR___V228*/ meltfptr[227] = (void*)&cdat->dstr_155__CLASS_NORMTESTER; cdat->dstr_155__CLASS_NORMTESTER.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); strncpy(cdat->dstr_155__CLASS_NORMTESTER.val, "CLASS_NORMTESTER_ANY", sizeof (cdat->dstr_155__CLASS_NORMTESTER.val)-1); /*iniobj dsym_156__CLASS_NREP_EXPRESSION*/ -/*uniqueobj*/ if (!/*_.VALDATA___V228*/ meltfptr[227]) /*_.VALDATA___V228*/ meltfptr[227] = (void*)&cdat->dsym_156__CLASS_NREP_EXPRESSION; +/*uniqueobj*/ if (!/*_.VALDATA___V229*/ meltfptr[228]) /*_.VALDATA___V229*/ meltfptr[228] = (void*)&cdat->dsym_156__CLASS_NREP_EXPRESSION; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_156__CLASS_NREP_EXPRESSION", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_156__CLASS_NREP_EXPRESSION", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); cdat->dsym_156__CLASS_NREP_EXPRESSION.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); @@ -16950,35 +17034,35 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef cdat->dsym_156__CLASS_NREP_EXPRESSION.obj_len = 3; /*inistring dstr_157__CLASS_NREP_EXPRE*/ - /*_.VALSTR___V229*/ meltfptr[228] = (void*)&cdat->dstr_157__CLASS_NREP_EXPRE; + /*_.VALSTR___V230*/ meltfptr[229] = (void*)&cdat->dstr_157__CLASS_NREP_EXPRE; cdat->dstr_157__CLASS_NREP_EXPRE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); strncpy(cdat->dstr_157__CLASS_NREP_EXPRE.val, "CLASS_NREP_EXPRESSION", sizeof (cdat->dstr_157__CLASS_NREP_EXPRE.val)-1); MELT_LOCATION("warmelt-normatch.melt:441:/ iniobj"); /*iniobj dobj_158__CLASS_NORMTESTER_ANY*/ -/*_.VALDATA___V230*/ meltfptr[229] = (void*)&cdat->dobj_158__CLASS_NORMTESTER_ANY; +/*_.VALDATA___V231*/ meltfptr[230] = (void*)&cdat->dobj_158__CLASS_NORMTESTER_ANY; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_158__CLASS_NORMTESTER_ANY", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_CLASS)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_158__CLASS_NORMTESTER_ANY", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_158__CLASS_NORMTESTER_ANY.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_158__CLASS_NORMTESTER_ANY.obj_num = OBMAG_OBJECT; - cdat->dobj_158__CLASS_NORMTESTER_ANY.obj_hash = 807705551; + cdat->dobj_158__CLASS_NORMTESTER_ANY.obj_hash = 143254663; cdat->dobj_158__CLASS_NORMTESTER_ANY.obj_len = 8; /*inistring dstr_159__CLASS_NORMTESTER*/ - /*_.VALSTR___V231*/ meltfptr[230] = (void*)&cdat->dstr_159__CLASS_NORMTESTER; + /*_.VALSTR___V232*/ meltfptr[231] = (void*)&cdat->dstr_159__CLASS_NORMTESTER; cdat->dstr_159__CLASS_NORMTESTER.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); strncpy(cdat->dstr_159__CLASS_NORMTESTER.val, "CLASS_NORMTESTER_ANY", sizeof (cdat->dstr_159__CLASS_NORMTESTER.val)-1); /*inimult dtup_160__CLASS_NORMTESTER_ANY*/ - /*_.VALTUP___V232*/ meltfptr[231] = (void*)&cdat->dtup_160__CLASS_NORMTESTER_ANY; + /*_.VALTUP___V233*/ meltfptr[232] = (void*)&cdat->dtup_160__CLASS_NORMTESTER_ANY; cdat->dtup_160__CLASS_NORMTESTER_ANY.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); cdat->dtup_160__CLASS_NORMTESTER_ANY.nbval = 3; /*inimult dtup_161__CLASS_NORMTESTER_ANY*/ - /*_.VALTUP___V245*/ meltfptr[244] = (void*)&cdat->dtup_161__CLASS_NORMTESTER_ANY; + /*_.VALTUP___V246*/ meltfptr[245] = (void*)&cdat->dtup_161__CLASS_NORMTESTER_ANY; cdat->dtup_161__CLASS_NORMTESTER_ANY.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); cdat->dtup_161__CLASS_NORMTESTER_ANY.nbval = 7; /*iniobj dsym_162__NTEST_MATCHED*/ -/*uniqueobj*/ if (!/*_.VALDATA___V246*/ meltfptr[245]) /*_.VALDATA___V246*/ meltfptr[245] = (void*)&cdat->dsym_162__NTEST_MATCHED; +/*uniqueobj*/ if (!/*_.VALDATA___V247*/ meltfptr[246]) /*_.VALDATA___V247*/ meltfptr[246] = (void*)&cdat->dsym_162__NTEST_MATCHED; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_162__NTEST_MATCHED", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_162__NTEST_MATCHED", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); cdat->dsym_162__NTEST_MATCHED.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); @@ -16986,27 +17070,27 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef cdat->dsym_162__NTEST_MATCHED.obj_len = 3; /*inistring dstr_163__NTEST_MATCHED*/ - /*_.VALSTR___V247*/ meltfptr[246] = (void*)&cdat->dstr_163__NTEST_MATCHED; + /*_.VALSTR___V248*/ meltfptr[247] = (void*)&cdat->dstr_163__NTEST_MATCHED; cdat->dstr_163__NTEST_MATCHED.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); strncpy(cdat->dstr_163__NTEST_MATCHED.val, "NTEST_MATCHED", sizeof (cdat->dstr_163__NTEST_MATCHED.val)-1); /*^iniobj*/ /*iniobj dobj_164__NTEST_MATCHED*/ -/*_.VALDATA___V233*/ meltfptr[232] = (void*)&cdat->dobj_164__NTEST_MATCHED; +/*_.VALDATA___V234*/ meltfptr[233] = (void*)&cdat->dobj_164__NTEST_MATCHED; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_164__NTEST_MATCHED", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_164__NTEST_MATCHED", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_164__NTEST_MATCHED.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_164__NTEST_MATCHED.obj_num = 1; - cdat->dobj_164__NTEST_MATCHED.obj_hash = 420785484; + cdat->dobj_164__NTEST_MATCHED.obj_hash = 952832298; cdat->dobj_164__NTEST_MATCHED.obj_len = 4; /*inistring dstr_165__NTEST_MATCHED*/ - /*_.VALSTR___V234*/ meltfptr[233] = (void*)&cdat->dstr_165__NTEST_MATCHED; + /*_.VALSTR___V235*/ meltfptr[234] = (void*)&cdat->dstr_165__NTEST_MATCHED; cdat->dstr_165__NTEST_MATCHED.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); strncpy(cdat->dstr_165__NTEST_MATCHED.val, "NTEST_MATCHED", sizeof (cdat->dstr_165__NTEST_MATCHED.val)-1); /*iniobj dsym_166__NTEST_THEN*/ -/*uniqueobj*/ if (!/*_.VALDATA___V248*/ meltfptr[247]) /*_.VALDATA___V248*/ meltfptr[247] = (void*)&cdat->dsym_166__NTEST_THEN; +/*uniqueobj*/ if (!/*_.VALDATA___V249*/ meltfptr[248]) /*_.VALDATA___V249*/ meltfptr[248] = (void*)&cdat->dsym_166__NTEST_THEN; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_166__NTEST_THEN", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_166__NTEST_THEN", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); cdat->dsym_166__NTEST_THEN.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); @@ -17014,27 +17098,27 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef cdat->dsym_166__NTEST_THEN.obj_len = 3; /*inistring dstr_167__NTEST_THEN*/ - /*_.VALSTR___V249*/ meltfptr[248] = (void*)&cdat->dstr_167__NTEST_THEN; + /*_.VALSTR___V250*/ meltfptr[249] = (void*)&cdat->dstr_167__NTEST_THEN; cdat->dstr_167__NTEST_THEN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); strncpy(cdat->dstr_167__NTEST_THEN.val, "NTEST_THEN", sizeof (cdat->dstr_167__NTEST_THEN.val)-1); /*^iniobj*/ /*iniobj dobj_168__NTEST_THEN*/ -/*_.VALDATA___V235*/ meltfptr[234] = (void*)&cdat->dobj_168__NTEST_THEN; +/*_.VALDATA___V236*/ meltfptr[235] = (void*)&cdat->dobj_168__NTEST_THEN; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_168__NTEST_THEN", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_168__NTEST_THEN", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_168__NTEST_THEN.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_168__NTEST_THEN.obj_num = 2; - cdat->dobj_168__NTEST_THEN.obj_hash = 187788433; + cdat->dobj_168__NTEST_THEN.obj_hash = 840528725; cdat->dobj_168__NTEST_THEN.obj_len = 4; /*inistring dstr_169__NTEST_THEN*/ - /*_.VALSTR___V236*/ meltfptr[235] = (void*)&cdat->dstr_169__NTEST_THEN; + /*_.VALSTR___V237*/ meltfptr[236] = (void*)&cdat->dstr_169__NTEST_THEN; cdat->dstr_169__NTEST_THEN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); strncpy(cdat->dstr_169__NTEST_THEN.val, "NTEST_THEN", sizeof (cdat->dstr_169__NTEST_THEN.val)-1); /*iniobj dsym_170__NTEST_ELSE*/ -/*uniqueobj*/ if (!/*_.VALDATA___V250*/ meltfptr[249]) /*_.VALDATA___V250*/ meltfptr[249] = (void*)&cdat->dsym_170__NTEST_ELSE; +/*uniqueobj*/ if (!/*_.VALDATA___V251*/ meltfptr[250]) /*_.VALDATA___V251*/ meltfptr[250] = (void*)&cdat->dsym_170__NTEST_ELSE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_170__NTEST_ELSE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_170__NTEST_ELSE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); cdat->dsym_170__NTEST_ELSE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); @@ -17042,27 +17126,27 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef cdat->dsym_170__NTEST_ELSE.obj_len = 3; /*inistring dstr_171__NTEST_ELSE*/ - /*_.VALSTR___V251*/ meltfptr[250] = (void*)&cdat->dstr_171__NTEST_ELSE; + /*_.VALSTR___V252*/ meltfptr[251] = (void*)&cdat->dstr_171__NTEST_ELSE; cdat->dstr_171__NTEST_ELSE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); strncpy(cdat->dstr_171__NTEST_ELSE.val, "NTEST_ELSE", sizeof (cdat->dstr_171__NTEST_ELSE.val)-1); /*^iniobj*/ /*iniobj dobj_172__NTEST_ELSE*/ -/*_.VALDATA___V237*/ meltfptr[236] = (void*)&cdat->dobj_172__NTEST_ELSE; +/*_.VALDATA___V238*/ meltfptr[237] = (void*)&cdat->dobj_172__NTEST_ELSE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_172__NTEST_ELSE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_172__NTEST_ELSE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_172__NTEST_ELSE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_172__NTEST_ELSE.obj_num = 3; - cdat->dobj_172__NTEST_ELSE.obj_hash = 174209092; + cdat->dobj_172__NTEST_ELSE.obj_hash = 525646055; cdat->dobj_172__NTEST_ELSE.obj_len = 4; /*inistring dstr_173__NTEST_ELSE*/ - /*_.VALSTR___V238*/ meltfptr[237] = (void*)&cdat->dstr_173__NTEST_ELSE; + /*_.VALSTR___V239*/ meltfptr[238] = (void*)&cdat->dstr_173__NTEST_ELSE; cdat->dstr_173__NTEST_ELSE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); strncpy(cdat->dstr_173__NTEST_ELSE.val, "NTEST_ELSE", sizeof (cdat->dstr_173__NTEST_ELSE.val)-1); /*iniobj dsym_174__NTEST_NORMATCH*/ -/*uniqueobj*/ if (!/*_.VALDATA___V252*/ meltfptr[251]) /*_.VALDATA___V252*/ meltfptr[251] = (void*)&cdat->dsym_174__NTEST_NORMATCH; +/*uniqueobj*/ if (!/*_.VALDATA___V253*/ meltfptr[252]) /*_.VALDATA___V253*/ meltfptr[252] = (void*)&cdat->dsym_174__NTEST_NORMATCH; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_174__NTEST_NORMATCH", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_174__NTEST_NORMATCH", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); cdat->dsym_174__NTEST_NORMATCH.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); @@ -17070,27 +17154,27 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef cdat->dsym_174__NTEST_NORMATCH.obj_len = 3; /*inistring dstr_175__NTEST_NORMATCH*/ - /*_.VALSTR___V253*/ meltfptr[252] = (void*)&cdat->dstr_175__NTEST_NORMATCH; + /*_.VALSTR___V254*/ meltfptr[253] = (void*)&cdat->dstr_175__NTEST_NORMATCH; cdat->dstr_175__NTEST_NORMATCH.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); strncpy(cdat->dstr_175__NTEST_NORMATCH.val, "NTEST_NORMATCH", sizeof (cdat->dstr_175__NTEST_NORMATCH.val)-1); /*^iniobj*/ /*iniobj dobj_176__NTEST_NORMATCH*/ -/*_.VALDATA___V239*/ meltfptr[238] = (void*)&cdat->dobj_176__NTEST_NORMATCH; +/*_.VALDATA___V240*/ meltfptr[239] = (void*)&cdat->dobj_176__NTEST_NORMATCH; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_176__NTEST_NORMATCH", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_176__NTEST_NORMATCH", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_176__NTEST_NORMATCH.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_176__NTEST_NORMATCH.obj_num = 4; - cdat->dobj_176__NTEST_NORMATCH.obj_hash = 878927739; + cdat->dobj_176__NTEST_NORMATCH.obj_hash = 814513641; cdat->dobj_176__NTEST_NORMATCH.obj_len = 4; /*inistring dstr_177__NTEST_NORMATCH*/ - /*_.VALSTR___V240*/ meltfptr[239] = (void*)&cdat->dstr_177__NTEST_NORMATCH; + /*_.VALSTR___V241*/ meltfptr[240] = (void*)&cdat->dstr_177__NTEST_NORMATCH; cdat->dstr_177__NTEST_NORMATCH.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); strncpy(cdat->dstr_177__NTEST_NORMATCH.val, "NTEST_NORMATCH", sizeof (cdat->dstr_177__NTEST_NORMATCH.val)-1); /*iniobj dsym_178__NTEST_LOCCLIST*/ -/*uniqueobj*/ if (!/*_.VALDATA___V254*/ meltfptr[253]) /*_.VALDATA___V254*/ meltfptr[253] = (void*)&cdat->dsym_178__NTEST_LOCCLIST; +/*uniqueobj*/ if (!/*_.VALDATA___V255*/ meltfptr[254]) /*_.VALDATA___V255*/ meltfptr[254] = (void*)&cdat->dsym_178__NTEST_LOCCLIST; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_178__NTEST_LOCCLIST", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_178__NTEST_LOCCLIST", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); cdat->dsym_178__NTEST_LOCCLIST.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); @@ -17098,27 +17182,27 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef cdat->dsym_178__NTEST_LOCCLIST.obj_len = 3; /*inistring dstr_179__NTEST_LOCCLIST*/ - /*_.VALSTR___V255*/ meltfptr[254] = (void*)&cdat->dstr_179__NTEST_LOCCLIST; + /*_.VALSTR___V256*/ meltfptr[255] = (void*)&cdat->dstr_179__NTEST_LOCCLIST; cdat->dstr_179__NTEST_LOCCLIST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); strncpy(cdat->dstr_179__NTEST_LOCCLIST.val, "NTEST_LOCCLIST", sizeof (cdat->dstr_179__NTEST_LOCCLIST.val)-1); /*^iniobj*/ /*iniobj dobj_180__NTEST_LOCCLIST*/ -/*_.VALDATA___V241*/ meltfptr[240] = (void*)&cdat->dobj_180__NTEST_LOCCLIST; +/*_.VALDATA___V242*/ meltfptr[241] = (void*)&cdat->dobj_180__NTEST_LOCCLIST; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_180__NTEST_LOCCLIST", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_180__NTEST_LOCCLIST", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_180__NTEST_LOCCLIST.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_180__NTEST_LOCCLIST.obj_num = 5; - cdat->dobj_180__NTEST_LOCCLIST.obj_hash = 385408613; + cdat->dobj_180__NTEST_LOCCLIST.obj_hash = 375682041; cdat->dobj_180__NTEST_LOCCLIST.obj_len = 4; /*inistring dstr_181__NTEST_LOCCLIST*/ - /*_.VALSTR___V242*/ meltfptr[241] = (void*)&cdat->dstr_181__NTEST_LOCCLIST; + /*_.VALSTR___V243*/ meltfptr[242] = (void*)&cdat->dstr_181__NTEST_LOCCLIST; cdat->dstr_181__NTEST_LOCCLIST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); strncpy(cdat->dstr_181__NTEST_LOCCLIST.val, "NTEST_LOCCLIST", sizeof (cdat->dstr_181__NTEST_LOCCLIST.val)-1); /*iniobj dsym_182__NTEST_COMEFROM*/ -/*uniqueobj*/ if (!/*_.VALDATA___V256*/ meltfptr[255]) /*_.VALDATA___V256*/ meltfptr[255] = (void*)&cdat->dsym_182__NTEST_COMEFROM; +/*uniqueobj*/ if (!/*_.VALDATA___V257*/ meltfptr[256]) /*_.VALDATA___V257*/ meltfptr[256] = (void*)&cdat->dsym_182__NTEST_COMEFROM; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_182__NTEST_COMEFROM", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_182__NTEST_COMEFROM", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); cdat->dsym_182__NTEST_COMEFROM.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); @@ -17126,27 +17210,27 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef cdat->dsym_182__NTEST_COMEFROM.obj_len = 3; /*inistring dstr_183__NTEST_COMEFROM*/ - /*_.VALSTR___V257*/ meltfptr[256] = (void*)&cdat->dstr_183__NTEST_COMEFROM; + /*_.VALSTR___V258*/ meltfptr[257] = (void*)&cdat->dstr_183__NTEST_COMEFROM; cdat->dstr_183__NTEST_COMEFROM.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); strncpy(cdat->dstr_183__NTEST_COMEFROM.val, "NTEST_COMEFROM", sizeof (cdat->dstr_183__NTEST_COMEFROM.val)-1); /*^iniobj*/ /*iniobj dobj_184__NTEST_COMEFROM*/ -/*_.VALDATA___V243*/ meltfptr[242] = (void*)&cdat->dobj_184__NTEST_COMEFROM; +/*_.VALDATA___V244*/ meltfptr[243] = (void*)&cdat->dobj_184__NTEST_COMEFROM; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_184__NTEST_COMEFROM", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_184__NTEST_COMEFROM", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_184__NTEST_COMEFROM.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_184__NTEST_COMEFROM.obj_num = 6; - cdat->dobj_184__NTEST_COMEFROM.obj_hash = 348813027; + cdat->dobj_184__NTEST_COMEFROM.obj_hash = 826851594; cdat->dobj_184__NTEST_COMEFROM.obj_len = 4; /*inistring dstr_185__NTEST_COMEFROM*/ - /*_.VALSTR___V244*/ meltfptr[243] = (void*)&cdat->dstr_185__NTEST_COMEFROM; + /*_.VALSTR___V245*/ meltfptr[244] = (void*)&cdat->dstr_185__NTEST_COMEFROM; cdat->dstr_185__NTEST_COMEFROM.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); strncpy(cdat->dstr_185__NTEST_COMEFROM.val, "NTEST_COMEFROM", sizeof (cdat->dstr_185__NTEST_COMEFROM.val)-1); /*iniobj dsym_186__CLASS_NORMTESTER_SUCCESS*/ -/*uniqueobj*/ if (!/*_.VALDATA___V258*/ meltfptr[257]) /*_.VALDATA___V258*/ meltfptr[257] = (void*)&cdat->dsym_186__CLASS_NORMTESTER_SUCCESS; +/*uniqueobj*/ if (!/*_.VALDATA___V259*/ meltfptr[258]) /*_.VALDATA___V259*/ meltfptr[258] = (void*)&cdat->dsym_186__CLASS_NORMTESTER_SUCCESS; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_186__CLASS_NORMTESTER_SUCCESS", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_186__CLASS_NORMTESTER_SUCCESS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); cdat->dsym_186__CLASS_NORMTESTER_SUCCESS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); @@ -17154,35 +17238,35 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef cdat->dsym_186__CLASS_NORMTESTER_SUCCESS.obj_len = 3; /*inistring dstr_187__CLASS_NORMTESTER*/ - /*_.VALSTR___V259*/ meltfptr[258] = (void*)&cdat->dstr_187__CLASS_NORMTESTER; + /*_.VALSTR___V260*/ meltfptr[259] = (void*)&cdat->dstr_187__CLASS_NORMTESTER; cdat->dstr_187__CLASS_NORMTESTER.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); strncpy(cdat->dstr_187__CLASS_NORMTESTER.val, "CLASS_NORMTESTER_SUCCESS", sizeof (cdat->dstr_187__CLASS_NORMTESTER.val)-1); MELT_LOCATION("warmelt-normatch.melt:456:/ iniobj"); /*iniobj dobj_188__CLASS_NORMTESTER_SUCCESS*/ -/*_.VALDATA___V260*/ meltfptr[259] = (void*)&cdat->dobj_188__CLASS_NORMTESTER_SUCCESS; +/*_.VALDATA___V261*/ meltfptr[260] = (void*)&cdat->dobj_188__CLASS_NORMTESTER_SUCCESS; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_188__CLASS_NORMTESTER_SUCCESS", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_CLASS)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_188__CLASS_NORMTESTER_SUCCESS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_188__CLASS_NORMTESTER_SUCCESS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_188__CLASS_NORMTESTER_SUCCESS.obj_num = OBMAG_OBJECT; - cdat->dobj_188__CLASS_NORMTESTER_SUCCESS.obj_hash = 56563294; + cdat->dobj_188__CLASS_NORMTESTER_SUCCESS.obj_hash = 546648299; cdat->dobj_188__CLASS_NORMTESTER_SUCCESS.obj_len = 8; /*inistring dstr_189__CLASS_NORMTESTER*/ - /*_.VALSTR___V261*/ meltfptr[260] = (void*)&cdat->dstr_189__CLASS_NORMTESTER; + /*_.VALSTR___V262*/ meltfptr[261] = (void*)&cdat->dstr_189__CLASS_NORMTESTER; cdat->dstr_189__CLASS_NORMTESTER.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); strncpy(cdat->dstr_189__CLASS_NORMTESTER.val, "CLASS_NORMTESTER_SUCCESS", sizeof (cdat->dstr_189__CLASS_NORMTESTER.val)-1); /*inimult dtup_190__CLASS_NORMTESTER_SUCCESS*/ - /*_.VALTUP___V262*/ meltfptr[261] = (void*)&cdat->dtup_190__CLASS_NORMTESTER_SUCCESS; + /*_.VALTUP___V263*/ meltfptr[262] = (void*)&cdat->dtup_190__CLASS_NORMTESTER_SUCCESS; cdat->dtup_190__CLASS_NORMTESTER_SUCCESS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); cdat->dtup_190__CLASS_NORMTESTER_SUCCESS.nbval = 4; /*inimult dtup_191__CLASS_NORMTESTER_SUCCESS*/ - /*_.VALTUP___V265*/ meltfptr[264] = (void*)&cdat->dtup_191__CLASS_NORMTESTER_SUCCESS; + /*_.VALTUP___V266*/ meltfptr[265] = (void*)&cdat->dtup_191__CLASS_NORMTESTER_SUCCESS; cdat->dtup_191__CLASS_NORMTESTER_SUCCESS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); cdat->dtup_191__CLASS_NORMTESTER_SUCCESS.nbval = 8; /*iniobj dsym_192__NTSUCCESS_DO*/ -/*uniqueobj*/ if (!/*_.VALDATA___V266*/ meltfptr[265]) /*_.VALDATA___V266*/ meltfptr[265] = (void*)&cdat->dsym_192__NTSUCCESS_DO; +/*uniqueobj*/ if (!/*_.VALDATA___V267*/ meltfptr[266]) /*_.VALDATA___V267*/ meltfptr[266] = (void*)&cdat->dsym_192__NTSUCCESS_DO; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_192__NTSUCCESS_DO", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_192__NTSUCCESS_DO", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); cdat->dsym_192__NTSUCCESS_DO.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); @@ -17190,27 +17274,27 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef cdat->dsym_192__NTSUCCESS_DO.obj_len = 3; /*inistring dstr_193__NTSUCCESS_DO*/ - /*_.VALSTR___V267*/ meltfptr[266] = (void*)&cdat->dstr_193__NTSUCCESS_DO; + /*_.VALSTR___V268*/ meltfptr[267] = (void*)&cdat->dstr_193__NTSUCCESS_DO; cdat->dstr_193__NTSUCCESS_DO.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); strncpy(cdat->dstr_193__NTSUCCESS_DO.val, "NTSUCCESS_DO", sizeof (cdat->dstr_193__NTSUCCESS_DO.val)-1); /*^iniobj*/ /*iniobj dobj_194__NTSUCCESS_DO*/ -/*_.VALDATA___V263*/ meltfptr[262] = (void*)&cdat->dobj_194__NTSUCCESS_DO; +/*_.VALDATA___V264*/ meltfptr[263] = (void*)&cdat->dobj_194__NTSUCCESS_DO; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_194__NTSUCCESS_DO", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_194__NTSUCCESS_DO", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_194__NTSUCCESS_DO.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_194__NTSUCCESS_DO.obj_num = 7; - cdat->dobj_194__NTSUCCESS_DO.obj_hash = 206917181; + cdat->dobj_194__NTSUCCESS_DO.obj_hash = 16936581; cdat->dobj_194__NTSUCCESS_DO.obj_len = 4; /*inistring dstr_195__NTSUCCESS_DO*/ - /*_.VALSTR___V264*/ meltfptr[263] = (void*)&cdat->dstr_195__NTSUCCESS_DO; + /*_.VALSTR___V265*/ meltfptr[264] = (void*)&cdat->dstr_195__NTSUCCESS_DO; cdat->dstr_195__NTSUCCESS_DO.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); strncpy(cdat->dstr_195__NTSUCCESS_DO.val, "NTSUCCESS_DO", sizeof (cdat->dstr_195__NTSUCCESS_DO.val)-1); /*iniobj dsym_196__CLASS_NORMTESTER_OR_CLEAR*/ -/*uniqueobj*/ if (!/*_.VALDATA___V268*/ meltfptr[267]) /*_.VALDATA___V268*/ meltfptr[267] = (void*)&cdat->dsym_196__CLASS_NORMTESTER_OR_CLEAR; +/*uniqueobj*/ if (!/*_.VALDATA___V269*/ meltfptr[268]) /*_.VALDATA___V269*/ meltfptr[268] = (void*)&cdat->dsym_196__CLASS_NORMTESTER_OR_CLEAR; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_196__CLASS_NORMTESTER_OR_CLEAR", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_196__CLASS_NORMTESTER_OR_CLEAR", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); cdat->dsym_196__CLASS_NORMTESTER_OR_CLEAR.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); @@ -17218,35 +17302,35 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef cdat->dsym_196__CLASS_NORMTESTER_OR_CLEAR.obj_len = 3; /*inistring dstr_197__CLASS_NORMTESTER*/ - /*_.VALSTR___V269*/ meltfptr[268] = (void*)&cdat->dstr_197__CLASS_NORMTESTER; + /*_.VALSTR___V270*/ meltfptr[269] = (void*)&cdat->dstr_197__CLASS_NORMTESTER; cdat->dstr_197__CLASS_NORMTESTER.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); strncpy(cdat->dstr_197__CLASS_NORMTESTER.val, "CLASS_NORMTESTER_OR_CLEAR", sizeof (cdat->dstr_197__CLASS_NORMTESTER.val)-1); MELT_LOCATION("warmelt-normatch.melt:462:/ iniobj"); /*iniobj dobj_198__CLASS_NORMTESTER_OR_CLEAR*/ -/*_.VALDATA___V270*/ meltfptr[269] = (void*)&cdat->dobj_198__CLASS_NORMTESTER_OR_CLEAR; +/*_.VALDATA___V271*/ meltfptr[270] = (void*)&cdat->dobj_198__CLASS_NORMTESTER_OR_CLEAR; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_198__CLASS_NORMTESTER_OR_CLEAR", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_CLASS)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_198__CLASS_NORMTESTER_OR_CLEAR", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_198__CLASS_NORMTESTER_OR_CLEAR.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_198__CLASS_NORMTESTER_OR_CLEAR.obj_num = OBMAG_OBJECT; - cdat->dobj_198__CLASS_NORMTESTER_OR_CLEAR.obj_hash = 359315882; + cdat->dobj_198__CLASS_NORMTESTER_OR_CLEAR.obj_hash = 332779372; cdat->dobj_198__CLASS_NORMTESTER_OR_CLEAR.obj_len = 8; /*inistring dstr_199__CLASS_NORMTESTER*/ - /*_.VALSTR___V271*/ meltfptr[270] = (void*)&cdat->dstr_199__CLASS_NORMTESTER; + /*_.VALSTR___V272*/ meltfptr[271] = (void*)&cdat->dstr_199__CLASS_NORMTESTER; cdat->dstr_199__CLASS_NORMTESTER.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); strncpy(cdat->dstr_199__CLASS_NORMTESTER.val, "CLASS_NORMTESTER_OR_CLEAR", sizeof (cdat->dstr_199__CLASS_NORMTESTER.val)-1); /*inimult dtup_200__CLASS_NORMTESTER_OR_CLEAR*/ - /*_.VALTUP___V272*/ meltfptr[271] = (void*)&cdat->dtup_200__CLASS_NORMTESTER_OR_CLEAR; + /*_.VALTUP___V273*/ meltfptr[272] = (void*)&cdat->dtup_200__CLASS_NORMTESTER_OR_CLEAR; cdat->dtup_200__CLASS_NORMTESTER_OR_CLEAR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); cdat->dtup_200__CLASS_NORMTESTER_OR_CLEAR.nbval = 4; /*inimult dtup_201__CLASS_NORMTESTER_OR_CLEAR*/ - /*_.VALTUP___V275*/ meltfptr[274] = (void*)&cdat->dtup_201__CLASS_NORMTESTER_OR_CLEAR; + /*_.VALTUP___V276*/ meltfptr[275] = (void*)&cdat->dtup_201__CLASS_NORMTESTER_OR_CLEAR; cdat->dtup_201__CLASS_NORMTESTER_OR_CLEAR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); cdat->dtup_201__CLASS_NORMTESTER_OR_CLEAR.nbval = 8; /*iniobj dsym_202__NTORCLEAR_LOCSYM*/ -/*uniqueobj*/ if (!/*_.VALDATA___V276*/ meltfptr[275]) /*_.VALDATA___V276*/ meltfptr[275] = (void*)&cdat->dsym_202__NTORCLEAR_LOCSYM; +/*uniqueobj*/ if (!/*_.VALDATA___V277*/ meltfptr[276]) /*_.VALDATA___V277*/ meltfptr[276] = (void*)&cdat->dsym_202__NTORCLEAR_LOCSYM; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_202__NTORCLEAR_LOCSYM", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_202__NTORCLEAR_LOCSYM", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); cdat->dsym_202__NTORCLEAR_LOCSYM.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); @@ -17254,27 +17338,27 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef cdat->dsym_202__NTORCLEAR_LOCSYM.obj_len = 3; /*inistring dstr_203__NTORCLEAR_LOCSYM*/ - /*_.VALSTR___V277*/ meltfptr[276] = (void*)&cdat->dstr_203__NTORCLEAR_LOCSYM; + /*_.VALSTR___V278*/ meltfptr[277] = (void*)&cdat->dstr_203__NTORCLEAR_LOCSYM; cdat->dstr_203__NTORCLEAR_LOCSYM.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); strncpy(cdat->dstr_203__NTORCLEAR_LOCSYM.val, "NTORCLEAR_LOCSYM", sizeof (cdat->dstr_203__NTORCLEAR_LOCSYM.val)-1); /*^iniobj*/ /*iniobj dobj_204__NTORCLEAR_LOCSYM*/ -/*_.VALDATA___V273*/ meltfptr[272] = (void*)&cdat->dobj_204__NTORCLEAR_LOCSYM; +/*_.VALDATA___V274*/ meltfptr[273] = (void*)&cdat->dobj_204__NTORCLEAR_LOCSYM; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_204__NTORCLEAR_LOCSYM", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_204__NTORCLEAR_LOCSYM", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_204__NTORCLEAR_LOCSYM.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_204__NTORCLEAR_LOCSYM.obj_num = 7; - cdat->dobj_204__NTORCLEAR_LOCSYM.obj_hash = 109584428; + cdat->dobj_204__NTORCLEAR_LOCSYM.obj_hash = 858721036; cdat->dobj_204__NTORCLEAR_LOCSYM.obj_len = 4; /*inistring dstr_205__NTORCLEAR_LOCSYM*/ - /*_.VALSTR___V274*/ meltfptr[273] = (void*)&cdat->dstr_205__NTORCLEAR_LOCSYM; + /*_.VALSTR___V275*/ meltfptr[274] = (void*)&cdat->dstr_205__NTORCLEAR_LOCSYM; cdat->dstr_205__NTORCLEAR_LOCSYM.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); strncpy(cdat->dstr_205__NTORCLEAR_LOCSYM.val, "NTORCLEAR_LOCSYM", sizeof (cdat->dstr_205__NTORCLEAR_LOCSYM.val)-1); /*iniobj dsym_206__CLASS_NORMTESTER_OR_INITIAL_CLEAR*/ -/*uniqueobj*/ if (!/*_.VALDATA___V278*/ meltfptr[277]) /*_.VALDATA___V278*/ meltfptr[277] = (void*)&cdat->dsym_206__CLASS_NORMTESTER_OR_INITIAL_CLEAR; +/*uniqueobj*/ if (!/*_.VALDATA___V279*/ meltfptr[278]) /*_.VALDATA___V279*/ meltfptr[278] = (void*)&cdat->dsym_206__CLASS_NORMTESTER_OR_INITIAL_CLEAR; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_206__CLASS_NORMTESTER_OR_INITIAL_CLEAR", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_206__CLASS_NORMTESTER_OR_INITIAL_CLEAR", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); cdat->dsym_206__CLASS_NORMTESTER_OR_INITIAL_CLEAR.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); @@ -17282,35 +17366,35 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef cdat->dsym_206__CLASS_NORMTESTER_OR_INITIAL_CLEAR.obj_len = 3; /*inistring dstr_207__CLASS_NORMTESTER*/ - /*_.VALSTR___V279*/ meltfptr[278] = (void*)&cdat->dstr_207__CLASS_NORMTESTER; + /*_.VALSTR___V280*/ meltfptr[279] = (void*)&cdat->dstr_207__CLASS_NORMTESTER; cdat->dstr_207__CLASS_NORMTESTER.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); strncpy(cdat->dstr_207__CLASS_NORMTESTER.val, "CLASS_NORMTESTER_OR_INITIAL_CLEAR", sizeof (cdat->dstr_207__CLASS_NORMTESTER.val)-1); MELT_LOCATION("warmelt-normatch.melt:468:/ iniobj"); /*iniobj dobj_208__CLASS_NORMTESTER_OR_INITIAL_CLEAR*/ -/*_.VALDATA___V280*/ meltfptr[279] = (void*)&cdat->dobj_208__CLASS_NORMTESTER_OR_INITIAL_CLEAR; +/*_.VALDATA___V281*/ meltfptr[280] = (void*)&cdat->dobj_208__CLASS_NORMTESTER_OR_INITIAL_CLEAR; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_208__CLASS_NORMTESTER_OR_INITIAL_CLEAR", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_CLASS)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_208__CLASS_NORMTESTER_OR_INITIAL_CLEAR", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_208__CLASS_NORMTESTER_OR_INITIAL_CLEAR.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_208__CLASS_NORMTESTER_OR_INITIAL_CLEAR.obj_num = OBMAG_OBJECT; - cdat->dobj_208__CLASS_NORMTESTER_OR_INITIAL_CLEAR.obj_hash = 429831041; + cdat->dobj_208__CLASS_NORMTESTER_OR_INITIAL_CLEAR.obj_hash = 872044651; cdat->dobj_208__CLASS_NORMTESTER_OR_INITIAL_CLEAR.obj_len = 8; /*inistring dstr_209__CLASS_NORMTESTER*/ - /*_.VALSTR___V281*/ meltfptr[280] = (void*)&cdat->dstr_209__CLASS_NORMTESTER; + /*_.VALSTR___V282*/ meltfptr[281] = (void*)&cdat->dstr_209__CLASS_NORMTESTER; cdat->dstr_209__CLASS_NORMTESTER.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); strncpy(cdat->dstr_209__CLASS_NORMTESTER.val, "CLASS_NORMTESTER_OR_INITIAL_CLEAR", sizeof (cdat->dstr_209__CLASS_NORMTESTER.val)-1); /*inimult dtup_210__CLASS_NORMTESTER_OR_INITIAL_CLEAR*/ - /*_.VALTUP___V282*/ meltfptr[281] = (void*)&cdat->dtup_210__CLASS_NORMTESTER_OR_INITIAL_CLEAR; + /*_.VALTUP___V283*/ meltfptr[282] = (void*)&cdat->dtup_210__CLASS_NORMTESTER_OR_INITIAL_CLEAR; cdat->dtup_210__CLASS_NORMTESTER_OR_INITIAL_CLEAR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); cdat->dtup_210__CLASS_NORMTESTER_OR_INITIAL_CLEAR.nbval = 5; /*inimult dtup_211__CLASS_NORMTESTER_OR_INITIAL_CLEAR*/ - /*_.VALTUP___V283*/ meltfptr[282] = (void*)&cdat->dtup_211__CLASS_NORMTESTER_OR_INITIAL_CLEAR; + /*_.VALTUP___V284*/ meltfptr[283] = (void*)&cdat->dtup_211__CLASS_NORMTESTER_OR_INITIAL_CLEAR; cdat->dtup_211__CLASS_NORMTESTER_OR_INITIAL_CLEAR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); cdat->dtup_211__CLASS_NORMTESTER_OR_INITIAL_CLEAR.nbval = 8; /*iniobj dsym_212__CLASS_NORMTESTER_OR_TRANSMIT*/ -/*uniqueobj*/ if (!/*_.VALDATA___V284*/ meltfptr[283]) /*_.VALDATA___V284*/ meltfptr[283] = (void*)&cdat->dsym_212__CLASS_NORMTESTER_OR_TRANSMIT; +/*uniqueobj*/ if (!/*_.VALDATA___V285*/ meltfptr[284]) /*_.VALDATA___V285*/ meltfptr[284] = (void*)&cdat->dsym_212__CLASS_NORMTESTER_OR_TRANSMIT; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_212__CLASS_NORMTESTER_OR_TRANSMIT", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_212__CLASS_NORMTESTER_OR_TRANSMIT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); cdat->dsym_212__CLASS_NORMTESTER_OR_TRANSMIT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); @@ -17318,35 +17402,35 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef cdat->dsym_212__CLASS_NORMTESTER_OR_TRANSMIT.obj_len = 3; /*inistring dstr_213__CLASS_NORMTESTER*/ - /*_.VALSTR___V285*/ meltfptr[284] = (void*)&cdat->dstr_213__CLASS_NORMTESTER; + /*_.VALSTR___V286*/ meltfptr[285] = (void*)&cdat->dstr_213__CLASS_NORMTESTER; cdat->dstr_213__CLASS_NORMTESTER.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); strncpy(cdat->dstr_213__CLASS_NORMTESTER.val, "CLASS_NORMTESTER_OR_TRANSMIT", sizeof (cdat->dstr_213__CLASS_NORMTESTER.val)-1); MELT_LOCATION("warmelt-normatch.melt:474:/ iniobj"); /*iniobj dobj_214__CLASS_NORMTESTER_OR_TRANSMIT*/ -/*_.VALDATA___V286*/ meltfptr[285] = (void*)&cdat->dobj_214__CLASS_NORMTESTER_OR_TRANSMIT; +/*_.VALDATA___V287*/ meltfptr[286] = (void*)&cdat->dobj_214__CLASS_NORMTESTER_OR_TRANSMIT; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_214__CLASS_NORMTESTER_OR_TRANSMIT", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_CLASS)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_214__CLASS_NORMTESTER_OR_TRANSMIT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_214__CLASS_NORMTESTER_OR_TRANSMIT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_214__CLASS_NORMTESTER_OR_TRANSMIT.obj_num = OBMAG_OBJECT; - cdat->dobj_214__CLASS_NORMTESTER_OR_TRANSMIT.obj_hash = 146626515; + cdat->dobj_214__CLASS_NORMTESTER_OR_TRANSMIT.obj_hash = 345820180; cdat->dobj_214__CLASS_NORMTESTER_OR_TRANSMIT.obj_len = 8; /*inistring dstr_215__CLASS_NORMTESTER*/ - /*_.VALSTR___V287*/ meltfptr[286] = (void*)&cdat->dstr_215__CLASS_NORMTESTER; + /*_.VALSTR___V288*/ meltfptr[287] = (void*)&cdat->dstr_215__CLASS_NORMTESTER; cdat->dstr_215__CLASS_NORMTESTER.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); strncpy(cdat->dstr_215__CLASS_NORMTESTER.val, "CLASS_NORMTESTER_OR_TRANSMIT", sizeof (cdat->dstr_215__CLASS_NORMTESTER.val)-1); /*inimult dtup_216__CLASS_NORMTESTER_OR_TRANSMIT*/ - /*_.VALTUP___V288*/ meltfptr[287] = (void*)&cdat->dtup_216__CLASS_NORMTESTER_OR_TRANSMIT; + /*_.VALTUP___V289*/ meltfptr[288] = (void*)&cdat->dtup_216__CLASS_NORMTESTER_OR_TRANSMIT; cdat->dtup_216__CLASS_NORMTESTER_OR_TRANSMIT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); cdat->dtup_216__CLASS_NORMTESTER_OR_TRANSMIT.nbval = 4; /*inimult dtup_217__CLASS_NORMTESTER_OR_TRANSMIT*/ - /*_.VALTUP___V293*/ meltfptr[292] = (void*)&cdat->dtup_217__CLASS_NORMTESTER_OR_TRANSMIT; + /*_.VALTUP___V294*/ meltfptr[293] = (void*)&cdat->dtup_217__CLASS_NORMTESTER_OR_TRANSMIT; cdat->dtup_217__CLASS_NORMTESTER_OR_TRANSMIT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); cdat->dtup_217__CLASS_NORMTESTER_OR_TRANSMIT.nbval = 9; /*iniobj dsym_218__NTORTRANSMIT_DST*/ -/*uniqueobj*/ if (!/*_.VALDATA___V294*/ meltfptr[293]) /*_.VALDATA___V294*/ meltfptr[293] = (void*)&cdat->dsym_218__NTORTRANSMIT_DST; +/*uniqueobj*/ if (!/*_.VALDATA___V295*/ meltfptr[294]) /*_.VALDATA___V295*/ meltfptr[294] = (void*)&cdat->dsym_218__NTORTRANSMIT_DST; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_218__NTORTRANSMIT_DST", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_218__NTORTRANSMIT_DST", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); cdat->dsym_218__NTORTRANSMIT_DST.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); @@ -17354,27 +17438,27 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef cdat->dsym_218__NTORTRANSMIT_DST.obj_len = 3; /*inistring dstr_219__NTORTRANSMIT_DST*/ - /*_.VALSTR___V295*/ meltfptr[294] = (void*)&cdat->dstr_219__NTORTRANSMIT_DST; + /*_.VALSTR___V296*/ meltfptr[295] = (void*)&cdat->dstr_219__NTORTRANSMIT_DST; cdat->dstr_219__NTORTRANSMIT_DST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); strncpy(cdat->dstr_219__NTORTRANSMIT_DST.val, "NTORTRANSMIT_DST", sizeof (cdat->dstr_219__NTORTRANSMIT_DST.val)-1); /*^iniobj*/ /*iniobj dobj_220__NTORTRANSMIT_DST*/ -/*_.VALDATA___V289*/ meltfptr[288] = (void*)&cdat->dobj_220__NTORTRANSMIT_DST; +/*_.VALDATA___V290*/ meltfptr[289] = (void*)&cdat->dobj_220__NTORTRANSMIT_DST; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_220__NTORTRANSMIT_DST", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_220__NTORTRANSMIT_DST", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_220__NTORTRANSMIT_DST.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_220__NTORTRANSMIT_DST.obj_num = 7; - cdat->dobj_220__NTORTRANSMIT_DST.obj_hash = 518391146; + cdat->dobj_220__NTORTRANSMIT_DST.obj_hash = 615497104; cdat->dobj_220__NTORTRANSMIT_DST.obj_len = 4; /*inistring dstr_221__NTORTRANSMIT_DST*/ - /*_.VALSTR___V290*/ meltfptr[289] = (void*)&cdat->dstr_221__NTORTRANSMIT_DST; + /*_.VALSTR___V291*/ meltfptr[290] = (void*)&cdat->dstr_221__NTORTRANSMIT_DST; cdat->dstr_221__NTORTRANSMIT_DST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); strncpy(cdat->dstr_221__NTORTRANSMIT_DST.val, "NTORTRANSMIT_DST", sizeof (cdat->dstr_221__NTORTRANSMIT_DST.val)-1); /*iniobj dsym_222__NTORTRANSMIT_SRC*/ -/*uniqueobj*/ if (!/*_.VALDATA___V296*/ meltfptr[295]) /*_.VALDATA___V296*/ meltfptr[295] = (void*)&cdat->dsym_222__NTORTRANSMIT_SRC; +/*uniqueobj*/ if (!/*_.VALDATA___V297*/ meltfptr[296]) /*_.VALDATA___V297*/ meltfptr[296] = (void*)&cdat->dsym_222__NTORTRANSMIT_SRC; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_222__NTORTRANSMIT_SRC", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_222__NTORTRANSMIT_SRC", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); cdat->dsym_222__NTORTRANSMIT_SRC.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); @@ -17382,27 +17466,27 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef cdat->dsym_222__NTORTRANSMIT_SRC.obj_len = 3; /*inistring dstr_223__NTORTRANSMIT_SRC*/ - /*_.VALSTR___V297*/ meltfptr[296] = (void*)&cdat->dstr_223__NTORTRANSMIT_SRC; + /*_.VALSTR___V298*/ meltfptr[297] = (void*)&cdat->dstr_223__NTORTRANSMIT_SRC; cdat->dstr_223__NTORTRANSMIT_SRC.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); strncpy(cdat->dstr_223__NTORTRANSMIT_SRC.val, "NTORTRANSMIT_SRC", sizeof (cdat->dstr_223__NTORTRANSMIT_SRC.val)-1); /*^iniobj*/ /*iniobj dobj_224__NTORTRANSMIT_SRC*/ -/*_.VALDATA___V291*/ meltfptr[290] = (void*)&cdat->dobj_224__NTORTRANSMIT_SRC; +/*_.VALDATA___V292*/ meltfptr[291] = (void*)&cdat->dobj_224__NTORTRANSMIT_SRC; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_224__NTORTRANSMIT_SRC", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_224__NTORTRANSMIT_SRC", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_224__NTORTRANSMIT_SRC.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_224__NTORTRANSMIT_SRC.obj_num = 8; - cdat->dobj_224__NTORTRANSMIT_SRC.obj_hash = 33402618; + cdat->dobj_224__NTORTRANSMIT_SRC.obj_hash = 681053812; cdat->dobj_224__NTORTRANSMIT_SRC.obj_len = 4; /*inistring dstr_225__NTORTRANSMIT_SRC*/ - /*_.VALSTR___V292*/ meltfptr[291] = (void*)&cdat->dstr_225__NTORTRANSMIT_SRC; + /*_.VALSTR___V293*/ meltfptr[292] = (void*)&cdat->dstr_225__NTORTRANSMIT_SRC; cdat->dstr_225__NTORTRANSMIT_SRC.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); strncpy(cdat->dstr_225__NTORTRANSMIT_SRC.val, "NTORTRANSMIT_SRC", sizeof (cdat->dstr_225__NTORTRANSMIT_SRC.val)-1); /*iniobj dsym_226__CLASS_NORMTESTER_ANYTESTER*/ -/*uniqueobj*/ if (!/*_.VALDATA___V298*/ meltfptr[297]) /*_.VALDATA___V298*/ meltfptr[297] = (void*)&cdat->dsym_226__CLASS_NORMTESTER_ANYTESTER; +/*uniqueobj*/ if (!/*_.VALDATA___V299*/ meltfptr[298]) /*_.VALDATA___V299*/ meltfptr[298] = (void*)&cdat->dsym_226__CLASS_NORMTESTER_ANYTESTER; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_226__CLASS_NORMTESTER_ANYTESTER", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_226__CLASS_NORMTESTER_ANYTESTER", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); cdat->dsym_226__CLASS_NORMTESTER_ANYTESTER.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); @@ -17410,35 +17494,35 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef cdat->dsym_226__CLASS_NORMTESTER_ANYTESTER.obj_len = 3; /*inistring dstr_227__CLASS_NORMTESTER*/ - /*_.VALSTR___V299*/ meltfptr[298] = (void*)&cdat->dstr_227__CLASS_NORMTESTER; + /*_.VALSTR___V300*/ meltfptr[299] = (void*)&cdat->dstr_227__CLASS_NORMTESTER; cdat->dstr_227__CLASS_NORMTESTER.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); strncpy(cdat->dstr_227__CLASS_NORMTESTER.val, "CLASS_NORMTESTER_ANYTESTER", sizeof (cdat->dstr_227__CLASS_NORMTESTER.val)-1); MELT_LOCATION("warmelt-normatch.melt:482:/ iniobj"); /*iniobj dobj_228__CLASS_NORMTESTER_ANYTESTER*/ -/*_.VALDATA___V300*/ meltfptr[299] = (void*)&cdat->dobj_228__CLASS_NORMTESTER_ANYTESTER; +/*_.VALDATA___V301*/ meltfptr[300] = (void*)&cdat->dobj_228__CLASS_NORMTESTER_ANYTESTER; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_228__CLASS_NORMTESTER_ANYTESTER", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_CLASS)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_228__CLASS_NORMTESTER_ANYTESTER", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_228__CLASS_NORMTESTER_ANYTESTER.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_228__CLASS_NORMTESTER_ANYTESTER.obj_num = OBMAG_OBJECT; - cdat->dobj_228__CLASS_NORMTESTER_ANYTESTER.obj_hash = 18748559; + cdat->dobj_228__CLASS_NORMTESTER_ANYTESTER.obj_hash = 1014022304; cdat->dobj_228__CLASS_NORMTESTER_ANYTESTER.obj_len = 8; /*inistring dstr_229__CLASS_NORMTESTER*/ - /*_.VALSTR___V301*/ meltfptr[300] = (void*)&cdat->dstr_229__CLASS_NORMTESTER; + /*_.VALSTR___V302*/ meltfptr[301] = (void*)&cdat->dstr_229__CLASS_NORMTESTER; cdat->dstr_229__CLASS_NORMTESTER.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); strncpy(cdat->dstr_229__CLASS_NORMTESTER.val, "CLASS_NORMTESTER_ANYTESTER", sizeof (cdat->dstr_229__CLASS_NORMTESTER.val)-1); /*inimult dtup_230__CLASS_NORMTESTER_ANYTESTER*/ - /*_.VALTUP___V302*/ meltfptr[301] = (void*)&cdat->dtup_230__CLASS_NORMTESTER_ANYTESTER; + /*_.VALTUP___V303*/ meltfptr[302] = (void*)&cdat->dtup_230__CLASS_NORMTESTER_ANYTESTER; cdat->dtup_230__CLASS_NORMTESTER_ANYTESTER.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); cdat->dtup_230__CLASS_NORMTESTER_ANYTESTER.nbval = 4; /*inimult dtup_231__CLASS_NORMTESTER_ANYTESTER*/ - /*_.VALTUP___V303*/ meltfptr[302] = (void*)&cdat->dtup_231__CLASS_NORMTESTER_ANYTESTER; + /*_.VALTUP___V304*/ meltfptr[303] = (void*)&cdat->dtup_231__CLASS_NORMTESTER_ANYTESTER; cdat->dtup_231__CLASS_NORMTESTER_ANYTESTER.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); cdat->dtup_231__CLASS_NORMTESTER_ANYTESTER.nbval = 7; /*iniobj dsym_232__CLASS_NORMTESTER_DISJUNCTION*/ -/*uniqueobj*/ if (!/*_.VALDATA___V304*/ meltfptr[303]) /*_.VALDATA___V304*/ meltfptr[303] = (void*)&cdat->dsym_232__CLASS_NORMTESTER_DISJUNCTION; +/*uniqueobj*/ if (!/*_.VALDATA___V305*/ meltfptr[304]) /*_.VALDATA___V305*/ meltfptr[304] = (void*)&cdat->dsym_232__CLASS_NORMTESTER_DISJUNCTION; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_232__CLASS_NORMTESTER_DISJUNCTION", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_232__CLASS_NORMTESTER_DISJUNCTION", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); cdat->dsym_232__CLASS_NORMTESTER_DISJUNCTION.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); @@ -17446,35 +17530,35 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef cdat->dsym_232__CLASS_NORMTESTER_DISJUNCTION.obj_len = 3; /*inistring dstr_233__CLASS_NORMTESTER*/ - /*_.VALSTR___V305*/ meltfptr[304] = (void*)&cdat->dstr_233__CLASS_NORMTESTER; + /*_.VALSTR___V306*/ meltfptr[305] = (void*)&cdat->dstr_233__CLASS_NORMTESTER; cdat->dstr_233__CLASS_NORMTESTER.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); strncpy(cdat->dstr_233__CLASS_NORMTESTER.val, "CLASS_NORMTESTER_DISJUNCTION", sizeof (cdat->dstr_233__CLASS_NORMTESTER.val)-1); MELT_LOCATION("warmelt-normatch.melt:490:/ iniobj"); /*iniobj dobj_234__CLASS_NORMTESTER_DISJUNCTION*/ -/*_.VALDATA___V306*/ meltfptr[305] = (void*)&cdat->dobj_234__CLASS_NORMTESTER_DISJUNCTION; +/*_.VALDATA___V307*/ meltfptr[306] = (void*)&cdat->dobj_234__CLASS_NORMTESTER_DISJUNCTION; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_234__CLASS_NORMTESTER_DISJUNCTION", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_CLASS)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_234__CLASS_NORMTESTER_DISJUNCTION", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_234__CLASS_NORMTESTER_DISJUNCTION.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_234__CLASS_NORMTESTER_DISJUNCTION.obj_num = OBMAG_OBJECT; - cdat->dobj_234__CLASS_NORMTESTER_DISJUNCTION.obj_hash = 552696330; + cdat->dobj_234__CLASS_NORMTESTER_DISJUNCTION.obj_hash = 378801584; cdat->dobj_234__CLASS_NORMTESTER_DISJUNCTION.obj_len = 8; /*inistring dstr_235__CLASS_NORMTESTER*/ - /*_.VALSTR___V307*/ meltfptr[306] = (void*)&cdat->dstr_235__CLASS_NORMTESTER; + /*_.VALSTR___V308*/ meltfptr[307] = (void*)&cdat->dstr_235__CLASS_NORMTESTER; cdat->dstr_235__CLASS_NORMTESTER.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); strncpy(cdat->dstr_235__CLASS_NORMTESTER.val, "CLASS_NORMTESTER_DISJUNCTION", sizeof (cdat->dstr_235__CLASS_NORMTESTER.val)-1); /*inimult dtup_236__CLASS_NORMTESTER_DISJUNCTION*/ - /*_.VALTUP___V308*/ meltfptr[307] = (void*)&cdat->dtup_236__CLASS_NORMTESTER_DISJUNCTION; + /*_.VALTUP___V309*/ meltfptr[308] = (void*)&cdat->dtup_236__CLASS_NORMTESTER_DISJUNCTION; cdat->dtup_236__CLASS_NORMTESTER_DISJUNCTION.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); cdat->dtup_236__CLASS_NORMTESTER_DISJUNCTION.nbval = 5; /*inimult dtup_237__CLASS_NORMTESTER_DISJUNCTION*/ - /*_.VALTUP___V315*/ meltfptr[314] = (void*)&cdat->dtup_237__CLASS_NORMTESTER_DISJUNCTION; + /*_.VALTUP___V316*/ meltfptr[315] = (void*)&cdat->dtup_237__CLASS_NORMTESTER_DISJUNCTION; cdat->dtup_237__CLASS_NORMTESTER_DISJUNCTION.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); cdat->dtup_237__CLASS_NORMTESTER_DISJUNCTION.nbval = 10; /*iniobj dsym_238__NTDISJUNCTS*/ -/*uniqueobj*/ if (!/*_.VALDATA___V316*/ meltfptr[315]) /*_.VALDATA___V316*/ meltfptr[315] = (void*)&cdat->dsym_238__NTDISJUNCTS; +/*uniqueobj*/ if (!/*_.VALDATA___V317*/ meltfptr[316]) /*_.VALDATA___V317*/ meltfptr[316] = (void*)&cdat->dsym_238__NTDISJUNCTS; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_238__NTDISJUNCTS", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_238__NTDISJUNCTS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); cdat->dsym_238__NTDISJUNCTS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); @@ -17482,27 +17566,27 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef cdat->dsym_238__NTDISJUNCTS.obj_len = 3; /*inistring dstr_239__NTDISJUNCTS*/ - /*_.VALSTR___V317*/ meltfptr[316] = (void*)&cdat->dstr_239__NTDISJUNCTS; + /*_.VALSTR___V318*/ meltfptr[317] = (void*)&cdat->dstr_239__NTDISJUNCTS; cdat->dstr_239__NTDISJUNCTS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); strncpy(cdat->dstr_239__NTDISJUNCTS.val, "NTDISJUNCTS", sizeof (cdat->dstr_239__NTDISJUNCTS.val)-1); /*^iniobj*/ /*iniobj dobj_240__NTDISJUNCTS*/ -/*_.VALDATA___V309*/ meltfptr[308] = (void*)&cdat->dobj_240__NTDISJUNCTS; +/*_.VALDATA___V310*/ meltfptr[309] = (void*)&cdat->dobj_240__NTDISJUNCTS; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_240__NTDISJUNCTS", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_240__NTDISJUNCTS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_240__NTDISJUNCTS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_240__NTDISJUNCTS.obj_num = 7; - cdat->dobj_240__NTDISJUNCTS.obj_hash = 797978732; + cdat->dobj_240__NTDISJUNCTS.obj_hash = 814031442; cdat->dobj_240__NTDISJUNCTS.obj_len = 4; /*inistring dstr_241__NTDISJUNCTS*/ - /*_.VALSTR___V310*/ meltfptr[309] = (void*)&cdat->dstr_241__NTDISJUNCTS; + /*_.VALSTR___V311*/ meltfptr[310] = (void*)&cdat->dstr_241__NTDISJUNCTS; cdat->dstr_241__NTDISJUNCTS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); strncpy(cdat->dstr_241__NTDISJUNCTS.val, "NTDISJUNCTS", sizeof (cdat->dstr_241__NTDISJUNCTS.val)-1); /*iniobj dsym_242__NTDISJ_FRESHORVAR*/ -/*uniqueobj*/ if (!/*_.VALDATA___V318*/ meltfptr[317]) /*_.VALDATA___V318*/ meltfptr[317] = (void*)&cdat->dsym_242__NTDISJ_FRESHORVAR; +/*uniqueobj*/ if (!/*_.VALDATA___V319*/ meltfptr[318]) /*_.VALDATA___V319*/ meltfptr[318] = (void*)&cdat->dsym_242__NTDISJ_FRESHORVAR; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_242__NTDISJ_FRESHORVAR", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_242__NTDISJ_FRESHORVAR", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); cdat->dsym_242__NTDISJ_FRESHORVAR.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); @@ -17510,27 +17594,27 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef cdat->dsym_242__NTDISJ_FRESHORVAR.obj_len = 3; /*inistring dstr_243__NTDISJ_FRESHORVA*/ - /*_.VALSTR___V319*/ meltfptr[318] = (void*)&cdat->dstr_243__NTDISJ_FRESHORVA; + /*_.VALSTR___V320*/ meltfptr[319] = (void*)&cdat->dstr_243__NTDISJ_FRESHORVA; cdat->dstr_243__NTDISJ_FRESHORVA.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); strncpy(cdat->dstr_243__NTDISJ_FRESHORVA.val, "NTDISJ_FRESHORVAR", sizeof (cdat->dstr_243__NTDISJ_FRESHORVA.val)-1); /*^iniobj*/ /*iniobj dobj_244__NTDISJ_FRESHORVAR*/ -/*_.VALDATA___V311*/ meltfptr[310] = (void*)&cdat->dobj_244__NTDISJ_FRESHORVAR; +/*_.VALDATA___V312*/ meltfptr[311] = (void*)&cdat->dobj_244__NTDISJ_FRESHORVAR; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_244__NTDISJ_FRESHORVAR", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_244__NTDISJ_FRESHORVAR", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_244__NTDISJ_FRESHORVAR.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_244__NTDISJ_FRESHORVAR.obj_num = 8; - cdat->dobj_244__NTDISJ_FRESHORVAR.obj_hash = 798589013; + cdat->dobj_244__NTDISJ_FRESHORVAR.obj_hash = 179665130; cdat->dobj_244__NTDISJ_FRESHORVAR.obj_len = 4; /*inistring dstr_245__NTDISJ_FRESHORVA*/ - /*_.VALSTR___V312*/ meltfptr[311] = (void*)&cdat->dstr_245__NTDISJ_FRESHORVA; + /*_.VALSTR___V313*/ meltfptr[312] = (void*)&cdat->dstr_245__NTDISJ_FRESHORVA; cdat->dstr_245__NTDISJ_FRESHORVA.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); strncpy(cdat->dstr_245__NTDISJ_FRESHORVA.val, "NTDISJ_FRESHORVAR", sizeof (cdat->dstr_245__NTDISJ_FRESHORVA.val)-1); /*iniobj dsym_246__NTDISJ_SETORVAR*/ -/*uniqueobj*/ if (!/*_.VALDATA___V320*/ meltfptr[319]) /*_.VALDATA___V320*/ meltfptr[319] = (void*)&cdat->dsym_246__NTDISJ_SETORVAR; +/*uniqueobj*/ if (!/*_.VALDATA___V321*/ meltfptr[320]) /*_.VALDATA___V321*/ meltfptr[320] = (void*)&cdat->dsym_246__NTDISJ_SETORVAR; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_246__NTDISJ_SETORVAR", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_246__NTDISJ_SETORVAR", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); cdat->dsym_246__NTDISJ_SETORVAR.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); @@ -17538,27 +17622,27 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef cdat->dsym_246__NTDISJ_SETORVAR.obj_len = 3; /*inistring dstr_247__NTDISJ_SETORVAR*/ - /*_.VALSTR___V321*/ meltfptr[320] = (void*)&cdat->dstr_247__NTDISJ_SETORVAR; + /*_.VALSTR___V322*/ meltfptr[321] = (void*)&cdat->dstr_247__NTDISJ_SETORVAR; cdat->dstr_247__NTDISJ_SETORVAR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); strncpy(cdat->dstr_247__NTDISJ_SETORVAR.val, "NTDISJ_SETORVAR", sizeof (cdat->dstr_247__NTDISJ_SETORVAR.val)-1); /*^iniobj*/ /*iniobj dobj_248__NTDISJ_SETORVAR*/ -/*_.VALDATA___V313*/ meltfptr[312] = (void*)&cdat->dobj_248__NTDISJ_SETORVAR; +/*_.VALDATA___V314*/ meltfptr[313] = (void*)&cdat->dobj_248__NTDISJ_SETORVAR; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_248__NTDISJ_SETORVAR", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_248__NTDISJ_SETORVAR", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_248__NTDISJ_SETORVAR.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_248__NTDISJ_SETORVAR.obj_num = 9; - cdat->dobj_248__NTDISJ_SETORVAR.obj_hash = 101088573; + cdat->dobj_248__NTDISJ_SETORVAR.obj_hash = 1028594882; cdat->dobj_248__NTDISJ_SETORVAR.obj_len = 4; /*inistring dstr_249__NTDISJ_SETORVAR*/ - /*_.VALSTR___V314*/ meltfptr[313] = (void*)&cdat->dstr_249__NTDISJ_SETORVAR; + /*_.VALSTR___V315*/ meltfptr[314] = (void*)&cdat->dstr_249__NTDISJ_SETORVAR; cdat->dstr_249__NTDISJ_SETORVAR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); strncpy(cdat->dstr_249__NTDISJ_SETORVAR.val, "NTDISJ_SETORVAR", sizeof (cdat->dstr_249__NTDISJ_SETORVAR.val)-1); /*iniobj dsym_250__CLASS_NORMTESTER_SAME*/ -/*uniqueobj*/ if (!/*_.VALDATA___V322*/ meltfptr[321]) /*_.VALDATA___V322*/ meltfptr[321] = (void*)&cdat->dsym_250__CLASS_NORMTESTER_SAME; +/*uniqueobj*/ if (!/*_.VALDATA___V323*/ meltfptr[322]) /*_.VALDATA___V323*/ meltfptr[322] = (void*)&cdat->dsym_250__CLASS_NORMTESTER_SAME; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_250__CLASS_NORMTESTER_SAME", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_250__CLASS_NORMTESTER_SAME", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); cdat->dsym_250__CLASS_NORMTESTER_SAME.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); @@ -17566,35 +17650,35 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef cdat->dsym_250__CLASS_NORMTESTER_SAME.obj_len = 3; /*inistring dstr_251__CLASS_NORMTESTER*/ - /*_.VALSTR___V323*/ meltfptr[322] = (void*)&cdat->dstr_251__CLASS_NORMTESTER; + /*_.VALSTR___V324*/ meltfptr[323] = (void*)&cdat->dstr_251__CLASS_NORMTESTER; cdat->dstr_251__CLASS_NORMTESTER.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); strncpy(cdat->dstr_251__CLASS_NORMTESTER.val, "CLASS_NORMTESTER_SAME", sizeof (cdat->dstr_251__CLASS_NORMTESTER.val)-1); MELT_LOCATION("warmelt-normatch.melt:498:/ iniobj"); /*iniobj dobj_252__CLASS_NORMTESTER_SAME*/ -/*_.VALDATA___V324*/ meltfptr[323] = (void*)&cdat->dobj_252__CLASS_NORMTESTER_SAME; +/*_.VALDATA___V325*/ meltfptr[324] = (void*)&cdat->dobj_252__CLASS_NORMTESTER_SAME; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_252__CLASS_NORMTESTER_SAME", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_CLASS)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_252__CLASS_NORMTESTER_SAME", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_252__CLASS_NORMTESTER_SAME.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_252__CLASS_NORMTESTER_SAME.obj_num = OBMAG_OBJECT; - cdat->dobj_252__CLASS_NORMTESTER_SAME.obj_hash = 86021809; + cdat->dobj_252__CLASS_NORMTESTER_SAME.obj_hash = 891192075; cdat->dobj_252__CLASS_NORMTESTER_SAME.obj_len = 8; /*inistring dstr_253__CLASS_NORMTESTER*/ - /*_.VALSTR___V325*/ meltfptr[324] = (void*)&cdat->dstr_253__CLASS_NORMTESTER; + /*_.VALSTR___V326*/ meltfptr[325] = (void*)&cdat->dstr_253__CLASS_NORMTESTER; cdat->dstr_253__CLASS_NORMTESTER.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); strncpy(cdat->dstr_253__CLASS_NORMTESTER.val, "CLASS_NORMTESTER_SAME", sizeof (cdat->dstr_253__CLASS_NORMTESTER.val)-1); /*inimult dtup_254__CLASS_NORMTESTER_SAME*/ - /*_.VALTUP___V326*/ meltfptr[325] = (void*)&cdat->dtup_254__CLASS_NORMTESTER_SAME; + /*_.VALTUP___V327*/ meltfptr[326] = (void*)&cdat->dtup_254__CLASS_NORMTESTER_SAME; cdat->dtup_254__CLASS_NORMTESTER_SAME.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); cdat->dtup_254__CLASS_NORMTESTER_SAME.nbval = 5; /*inimult dtup_255__CLASS_NORMTESTER_SAME*/ - /*_.VALTUP___V329*/ meltfptr[328] = (void*)&cdat->dtup_255__CLASS_NORMTESTER_SAME; + /*_.VALTUP___V330*/ meltfptr[329] = (void*)&cdat->dtup_255__CLASS_NORMTESTER_SAME; cdat->dtup_255__CLASS_NORMTESTER_SAME.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); cdat->dtup_255__CLASS_NORMTESTER_SAME.nbval = 8; /*iniobj dsym_256__NTSAME_IDENTICAL*/ -/*uniqueobj*/ if (!/*_.VALDATA___V330*/ meltfptr[329]) /*_.VALDATA___V330*/ meltfptr[329] = (void*)&cdat->dsym_256__NTSAME_IDENTICAL; +/*uniqueobj*/ if (!/*_.VALDATA___V331*/ meltfptr[330]) /*_.VALDATA___V331*/ meltfptr[330] = (void*)&cdat->dsym_256__NTSAME_IDENTICAL; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_256__NTSAME_IDENTICAL", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_256__NTSAME_IDENTICAL", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); cdat->dsym_256__NTSAME_IDENTICAL.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); @@ -17602,27 +17686,27 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef cdat->dsym_256__NTSAME_IDENTICAL.obj_len = 3; /*inistring dstr_257__NTSAME_IDENTICAL*/ - /*_.VALSTR___V331*/ meltfptr[330] = (void*)&cdat->dstr_257__NTSAME_IDENTICAL; + /*_.VALSTR___V332*/ meltfptr[331] = (void*)&cdat->dstr_257__NTSAME_IDENTICAL; cdat->dstr_257__NTSAME_IDENTICAL.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); strncpy(cdat->dstr_257__NTSAME_IDENTICAL.val, "NTSAME_IDENTICAL", sizeof (cdat->dstr_257__NTSAME_IDENTICAL.val)-1); /*^iniobj*/ /*iniobj dobj_258__NTSAME_IDENTICAL*/ -/*_.VALDATA___V327*/ meltfptr[326] = (void*)&cdat->dobj_258__NTSAME_IDENTICAL; +/*_.VALDATA___V328*/ meltfptr[327] = (void*)&cdat->dobj_258__NTSAME_IDENTICAL; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_258__NTSAME_IDENTICAL", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_258__NTSAME_IDENTICAL", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_258__NTSAME_IDENTICAL.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_258__NTSAME_IDENTICAL.obj_num = 7; - cdat->dobj_258__NTSAME_IDENTICAL.obj_hash = 804028099; + cdat->dobj_258__NTSAME_IDENTICAL.obj_hash = 256031175; cdat->dobj_258__NTSAME_IDENTICAL.obj_len = 4; /*inistring dstr_259__NTSAME_IDENTICAL*/ - /*_.VALSTR___V328*/ meltfptr[327] = (void*)&cdat->dstr_259__NTSAME_IDENTICAL; + /*_.VALSTR___V329*/ meltfptr[328] = (void*)&cdat->dstr_259__NTSAME_IDENTICAL; cdat->dstr_259__NTSAME_IDENTICAL.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); strncpy(cdat->dstr_259__NTSAME_IDENTICAL.val, "NTSAME_IDENTICAL", sizeof (cdat->dstr_259__NTSAME_IDENTICAL.val)-1); /*iniobj dsym_260__CLASS_NORMTESTER_MATCHER*/ -/*uniqueobj*/ if (!/*_.VALDATA___V332*/ meltfptr[331]) /*_.VALDATA___V332*/ meltfptr[331] = (void*)&cdat->dsym_260__CLASS_NORMTESTER_MATCHER; +/*uniqueobj*/ if (!/*_.VALDATA___V333*/ meltfptr[332]) /*_.VALDATA___V333*/ meltfptr[332] = (void*)&cdat->dsym_260__CLASS_NORMTESTER_MATCHER; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_260__CLASS_NORMTESTER_MATCHER", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_260__CLASS_NORMTESTER_MATCHER", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); cdat->dsym_260__CLASS_NORMTESTER_MATCHER.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); @@ -17630,35 +17714,35 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef cdat->dsym_260__CLASS_NORMTESTER_MATCHER.obj_len = 3; /*inistring dstr_261__CLASS_NORMTESTER*/ - /*_.VALSTR___V333*/ meltfptr[332] = (void*)&cdat->dstr_261__CLASS_NORMTESTER; + /*_.VALSTR___V334*/ meltfptr[333] = (void*)&cdat->dstr_261__CLASS_NORMTESTER; cdat->dstr_261__CLASS_NORMTESTER.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); strncpy(cdat->dstr_261__CLASS_NORMTESTER.val, "CLASS_NORMTESTER_MATCHER", sizeof (cdat->dstr_261__CLASS_NORMTESTER.val)-1); MELT_LOCATION("warmelt-normatch.melt:504:/ iniobj"); /*iniobj dobj_262__CLASS_NORMTESTER_MATCHER*/ -/*_.VALDATA___V334*/ meltfptr[333] = (void*)&cdat->dobj_262__CLASS_NORMTESTER_MATCHER; +/*_.VALDATA___V335*/ meltfptr[334] = (void*)&cdat->dobj_262__CLASS_NORMTESTER_MATCHER; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_262__CLASS_NORMTESTER_MATCHER", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_CLASS)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_262__CLASS_NORMTESTER_MATCHER", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_262__CLASS_NORMTESTER_MATCHER.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_262__CLASS_NORMTESTER_MATCHER.obj_num = OBMAG_OBJECT; - cdat->dobj_262__CLASS_NORMTESTER_MATCHER.obj_hash = 882779609; + cdat->dobj_262__CLASS_NORMTESTER_MATCHER.obj_hash = 1044665389; cdat->dobj_262__CLASS_NORMTESTER_MATCHER.obj_len = 8; /*inistring dstr_263__CLASS_NORMTESTER*/ - /*_.VALSTR___V335*/ meltfptr[334] = (void*)&cdat->dstr_263__CLASS_NORMTESTER; + /*_.VALSTR___V336*/ meltfptr[335] = (void*)&cdat->dstr_263__CLASS_NORMTESTER; cdat->dstr_263__CLASS_NORMTESTER.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); strncpy(cdat->dstr_263__CLASS_NORMTESTER.val, "CLASS_NORMTESTER_MATCHER", sizeof (cdat->dstr_263__CLASS_NORMTESTER.val)-1); /*inimult dtup_264__CLASS_NORMTESTER_MATCHER*/ - /*_.VALTUP___V336*/ meltfptr[335] = (void*)&cdat->dtup_264__CLASS_NORMTESTER_MATCHER; + /*_.VALTUP___V337*/ meltfptr[336] = (void*)&cdat->dtup_264__CLASS_NORMTESTER_MATCHER; cdat->dtup_264__CLASS_NORMTESTER_MATCHER.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); cdat->dtup_264__CLASS_NORMTESTER_MATCHER.nbval = 5; /*inimult dtup_265__CLASS_NORMTESTER_MATCHER*/ - /*_.VALTUP___V345*/ meltfptr[344] = (void*)&cdat->dtup_265__CLASS_NORMTESTER_MATCHER; + /*_.VALTUP___V346*/ meltfptr[345] = (void*)&cdat->dtup_265__CLASS_NORMTESTER_MATCHER; cdat->dtup_265__CLASS_NORMTESTER_MATCHER.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); cdat->dtup_265__CLASS_NORMTESTER_MATCHER.nbval = 11; /*iniobj dsym_266__NTMATCH_MATCHER*/ -/*uniqueobj*/ if (!/*_.VALDATA___V346*/ meltfptr[345]) /*_.VALDATA___V346*/ meltfptr[345] = (void*)&cdat->dsym_266__NTMATCH_MATCHER; +/*uniqueobj*/ if (!/*_.VALDATA___V347*/ meltfptr[346]) /*_.VALDATA___V347*/ meltfptr[346] = (void*)&cdat->dsym_266__NTMATCH_MATCHER; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_266__NTMATCH_MATCHER", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_266__NTMATCH_MATCHER", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); cdat->dsym_266__NTMATCH_MATCHER.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); @@ -17666,27 +17750,27 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef cdat->dsym_266__NTMATCH_MATCHER.obj_len = 3; /*inistring dstr_267__NTMATCH_MATCHER*/ - /*_.VALSTR___V347*/ meltfptr[346] = (void*)&cdat->dstr_267__NTMATCH_MATCHER; + /*_.VALSTR___V348*/ meltfptr[347] = (void*)&cdat->dstr_267__NTMATCH_MATCHER; cdat->dstr_267__NTMATCH_MATCHER.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); strncpy(cdat->dstr_267__NTMATCH_MATCHER.val, "NTMATCH_MATCHER", sizeof (cdat->dstr_267__NTMATCH_MATCHER.val)-1); /*^iniobj*/ /*iniobj dobj_268__NTMATCH_MATCHER*/ -/*_.VALDATA___V337*/ meltfptr[336] = (void*)&cdat->dobj_268__NTMATCH_MATCHER; +/*_.VALDATA___V338*/ meltfptr[337] = (void*)&cdat->dobj_268__NTMATCH_MATCHER; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_268__NTMATCH_MATCHER", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_268__NTMATCH_MATCHER", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_268__NTMATCH_MATCHER.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_268__NTMATCH_MATCHER.obj_num = 7; - cdat->dobj_268__NTMATCH_MATCHER.obj_hash = 328519337; + cdat->dobj_268__NTMATCH_MATCHER.obj_hash = 578602064; cdat->dobj_268__NTMATCH_MATCHER.obj_len = 4; /*inistring dstr_269__NTMATCH_MATCHER*/ - /*_.VALSTR___V338*/ meltfptr[337] = (void*)&cdat->dstr_269__NTMATCH_MATCHER; + /*_.VALSTR___V339*/ meltfptr[338] = (void*)&cdat->dstr_269__NTMATCH_MATCHER; cdat->dstr_269__NTMATCH_MATCHER.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); strncpy(cdat->dstr_269__NTMATCH_MATCHER.val, "NTMATCH_MATCHER", sizeof (cdat->dstr_269__NTMATCH_MATCHER.val)-1); /*iniobj dsym_270__NTMATCH_MATNDATA*/ -/*uniqueobj*/ if (!/*_.VALDATA___V348*/ meltfptr[347]) /*_.VALDATA___V348*/ meltfptr[347] = (void*)&cdat->dsym_270__NTMATCH_MATNDATA; +/*uniqueobj*/ if (!/*_.VALDATA___V349*/ meltfptr[348]) /*_.VALDATA___V349*/ meltfptr[348] = (void*)&cdat->dsym_270__NTMATCH_MATNDATA; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_270__NTMATCH_MATNDATA", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_270__NTMATCH_MATNDATA", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); cdat->dsym_270__NTMATCH_MATNDATA.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); @@ -17694,27 +17778,27 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef cdat->dsym_270__NTMATCH_MATNDATA.obj_len = 3; /*inistring dstr_271__NTMATCH_MATNDATA*/ - /*_.VALSTR___V349*/ meltfptr[348] = (void*)&cdat->dstr_271__NTMATCH_MATNDATA; + /*_.VALSTR___V350*/ meltfptr[349] = (void*)&cdat->dstr_271__NTMATCH_MATNDATA; cdat->dstr_271__NTMATCH_MATNDATA.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); strncpy(cdat->dstr_271__NTMATCH_MATNDATA.val, "NTMATCH_MATNDATA", sizeof (cdat->dstr_271__NTMATCH_MATNDATA.val)-1); /*^iniobj*/ /*iniobj dobj_272__NTMATCH_MATNDATA*/ -/*_.VALDATA___V339*/ meltfptr[338] = (void*)&cdat->dobj_272__NTMATCH_MATNDATA; +/*_.VALDATA___V340*/ meltfptr[339] = (void*)&cdat->dobj_272__NTMATCH_MATNDATA; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_272__NTMATCH_MATNDATA", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_272__NTMATCH_MATNDATA", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_272__NTMATCH_MATNDATA.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_272__NTMATCH_MATNDATA.obj_num = 8; - cdat->dobj_272__NTMATCH_MATNDATA.obj_hash = 370581996; + cdat->dobj_272__NTMATCH_MATNDATA.obj_hash = 47611216; cdat->dobj_272__NTMATCH_MATNDATA.obj_len = 4; /*inistring dstr_273__NTMATCH_MATNDATA*/ - /*_.VALSTR___V340*/ meltfptr[339] = (void*)&cdat->dstr_273__NTMATCH_MATNDATA; + /*_.VALSTR___V341*/ meltfptr[340] = (void*)&cdat->dstr_273__NTMATCH_MATNDATA; cdat->dstr_273__NTMATCH_MATNDATA.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); strncpy(cdat->dstr_273__NTMATCH_MATNDATA.val, "NTMATCH_MATNDATA", sizeof (cdat->dstr_273__NTMATCH_MATNDATA.val)-1); /*iniobj dsym_274__NTMATCH_INARGS*/ -/*uniqueobj*/ if (!/*_.VALDATA___V350*/ meltfptr[349]) /*_.VALDATA___V350*/ meltfptr[349] = (void*)&cdat->dsym_274__NTMATCH_INARGS; +/*uniqueobj*/ if (!/*_.VALDATA___V351*/ meltfptr[350]) /*_.VALDATA___V351*/ meltfptr[350] = (void*)&cdat->dsym_274__NTMATCH_INARGS; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_274__NTMATCH_INARGS", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_274__NTMATCH_INARGS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); cdat->dsym_274__NTMATCH_INARGS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); @@ -17722,27 +17806,27 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef cdat->dsym_274__NTMATCH_INARGS.obj_len = 3; /*inistring dstr_275__NTMATCH_INARGS*/ - /*_.VALSTR___V351*/ meltfptr[350] = (void*)&cdat->dstr_275__NTMATCH_INARGS; + /*_.VALSTR___V352*/ meltfptr[351] = (void*)&cdat->dstr_275__NTMATCH_INARGS; cdat->dstr_275__NTMATCH_INARGS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); strncpy(cdat->dstr_275__NTMATCH_INARGS.val, "NTMATCH_INARGS", sizeof (cdat->dstr_275__NTMATCH_INARGS.val)-1); /*^iniobj*/ /*iniobj dobj_276__NTMATCH_INARGS*/ -/*_.VALDATA___V341*/ meltfptr[340] = (void*)&cdat->dobj_276__NTMATCH_INARGS; +/*_.VALDATA___V342*/ meltfptr[341] = (void*)&cdat->dobj_276__NTMATCH_INARGS; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_276__NTMATCH_INARGS", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_276__NTMATCH_INARGS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_276__NTMATCH_INARGS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_276__NTMATCH_INARGS.obj_num = 9; - cdat->dobj_276__NTMATCH_INARGS.obj_hash = 1047817020; + cdat->dobj_276__NTMATCH_INARGS.obj_hash = 455338036; cdat->dobj_276__NTMATCH_INARGS.obj_len = 4; /*inistring dstr_277__NTMATCH_INARGS*/ - /*_.VALSTR___V342*/ meltfptr[341] = (void*)&cdat->dstr_277__NTMATCH_INARGS; + /*_.VALSTR___V343*/ meltfptr[342] = (void*)&cdat->dstr_277__NTMATCH_INARGS; cdat->dstr_277__NTMATCH_INARGS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); strncpy(cdat->dstr_277__NTMATCH_INARGS.val, "NTMATCH_INARGS", sizeof (cdat->dstr_277__NTMATCH_INARGS.val)-1); /*iniobj dsym_278__NTMATCH_OUTLOCS*/ -/*uniqueobj*/ if (!/*_.VALDATA___V352*/ meltfptr[351]) /*_.VALDATA___V352*/ meltfptr[351] = (void*)&cdat->dsym_278__NTMATCH_OUTLOCS; +/*uniqueobj*/ if (!/*_.VALDATA___V353*/ meltfptr[352]) /*_.VALDATA___V353*/ meltfptr[352] = (void*)&cdat->dsym_278__NTMATCH_OUTLOCS; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_278__NTMATCH_OUTLOCS", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_278__NTMATCH_OUTLOCS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); cdat->dsym_278__NTMATCH_OUTLOCS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); @@ -17750,27 +17834,27 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef cdat->dsym_278__NTMATCH_OUTLOCS.obj_len = 3; /*inistring dstr_279__NTMATCH_OUTLOCS*/ - /*_.VALSTR___V353*/ meltfptr[352] = (void*)&cdat->dstr_279__NTMATCH_OUTLOCS; + /*_.VALSTR___V354*/ meltfptr[353] = (void*)&cdat->dstr_279__NTMATCH_OUTLOCS; cdat->dstr_279__NTMATCH_OUTLOCS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); strncpy(cdat->dstr_279__NTMATCH_OUTLOCS.val, "NTMATCH_OUTLOCS", sizeof (cdat->dstr_279__NTMATCH_OUTLOCS.val)-1); /*^iniobj*/ /*iniobj dobj_280__NTMATCH_OUTLOCS*/ -/*_.VALDATA___V343*/ meltfptr[342] = (void*)&cdat->dobj_280__NTMATCH_OUTLOCS; +/*_.VALDATA___V344*/ meltfptr[343] = (void*)&cdat->dobj_280__NTMATCH_OUTLOCS; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_280__NTMATCH_OUTLOCS", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_280__NTMATCH_OUTLOCS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_280__NTMATCH_OUTLOCS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_280__NTMATCH_OUTLOCS.obj_num = 10; - cdat->dobj_280__NTMATCH_OUTLOCS.obj_hash = 452578560; + cdat->dobj_280__NTMATCH_OUTLOCS.obj_hash = 760779710; cdat->dobj_280__NTMATCH_OUTLOCS.obj_len = 4; /*inistring dstr_281__NTMATCH_OUTLOCS*/ - /*_.VALSTR___V344*/ meltfptr[343] = (void*)&cdat->dstr_281__NTMATCH_OUTLOCS; + /*_.VALSTR___V345*/ meltfptr[344] = (void*)&cdat->dstr_281__NTMATCH_OUTLOCS; cdat->dstr_281__NTMATCH_OUTLOCS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); strncpy(cdat->dstr_281__NTMATCH_OUTLOCS.val, "NTMATCH_OUTLOCS", sizeof (cdat->dstr_281__NTMATCH_OUTLOCS.val)-1); /*iniobj dsym_282__CLASS_NORMTESTER_INSTANCE*/ -/*uniqueobj*/ if (!/*_.VALDATA___V354*/ meltfptr[353]) /*_.VALDATA___V354*/ meltfptr[353] = (void*)&cdat->dsym_282__CLASS_NORMTESTER_INSTANCE; +/*uniqueobj*/ if (!/*_.VALDATA___V355*/ meltfptr[354]) /*_.VALDATA___V355*/ meltfptr[354] = (void*)&cdat->dsym_282__CLASS_NORMTESTER_INSTANCE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_282__CLASS_NORMTESTER_INSTANCE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_282__CLASS_NORMTESTER_INSTANCE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); cdat->dsym_282__CLASS_NORMTESTER_INSTANCE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); @@ -17778,35 +17862,35 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef cdat->dsym_282__CLASS_NORMTESTER_INSTANCE.obj_len = 3; /*inistring dstr_283__CLASS_NORMTESTER*/ - /*_.VALSTR___V355*/ meltfptr[354] = (void*)&cdat->dstr_283__CLASS_NORMTESTER; + /*_.VALSTR___V356*/ meltfptr[355] = (void*)&cdat->dstr_283__CLASS_NORMTESTER; cdat->dstr_283__CLASS_NORMTESTER.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); strncpy(cdat->dstr_283__CLASS_NORMTESTER.val, "CLASS_NORMTESTER_INSTANCE", sizeof (cdat->dstr_283__CLASS_NORMTESTER.val)-1); MELT_LOCATION("warmelt-normatch.melt:516:/ iniobj"); /*iniobj dobj_284__CLASS_NORMTESTER_INSTANCE*/ -/*_.VALDATA___V356*/ meltfptr[355] = (void*)&cdat->dobj_284__CLASS_NORMTESTER_INSTANCE; +/*_.VALDATA___V357*/ meltfptr[356] = (void*)&cdat->dobj_284__CLASS_NORMTESTER_INSTANCE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_284__CLASS_NORMTESTER_INSTANCE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_CLASS)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_284__CLASS_NORMTESTER_INSTANCE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_284__CLASS_NORMTESTER_INSTANCE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_284__CLASS_NORMTESTER_INSTANCE.obj_num = OBMAG_OBJECT; - cdat->dobj_284__CLASS_NORMTESTER_INSTANCE.obj_hash = 1019981551; + cdat->dobj_284__CLASS_NORMTESTER_INSTANCE.obj_hash = 971283162; cdat->dobj_284__CLASS_NORMTESTER_INSTANCE.obj_len = 8; /*inistring dstr_285__CLASS_NORMTESTER*/ - /*_.VALSTR___V357*/ meltfptr[356] = (void*)&cdat->dstr_285__CLASS_NORMTESTER; + /*_.VALSTR___V358*/ meltfptr[357] = (void*)&cdat->dstr_285__CLASS_NORMTESTER; cdat->dstr_285__CLASS_NORMTESTER.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); strncpy(cdat->dstr_285__CLASS_NORMTESTER.val, "CLASS_NORMTESTER_INSTANCE", sizeof (cdat->dstr_285__CLASS_NORMTESTER.val)-1); /*inimult dtup_286__CLASS_NORMTESTER_INSTANCE*/ - /*_.VALTUP___V358*/ meltfptr[357] = (void*)&cdat->dtup_286__CLASS_NORMTESTER_INSTANCE; + /*_.VALTUP___V359*/ meltfptr[358] = (void*)&cdat->dtup_286__CLASS_NORMTESTER_INSTANCE; cdat->dtup_286__CLASS_NORMTESTER_INSTANCE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); cdat->dtup_286__CLASS_NORMTESTER_INSTANCE.nbval = 5; /*inimult dtup_287__CLASS_NORMTESTER_INSTANCE*/ - /*_.VALTUP___V363*/ meltfptr[362] = (void*)&cdat->dtup_287__CLASS_NORMTESTER_INSTANCE; + /*_.VALTUP___V364*/ meltfptr[363] = (void*)&cdat->dtup_287__CLASS_NORMTESTER_INSTANCE; cdat->dtup_287__CLASS_NORMTESTER_INSTANCE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); cdat->dtup_287__CLASS_NORMTESTER_INSTANCE.nbval = 9; /*iniobj dsym_288__NTINST_CLASS*/ -/*uniqueobj*/ if (!/*_.VALDATA___V364*/ meltfptr[363]) /*_.VALDATA___V364*/ meltfptr[363] = (void*)&cdat->dsym_288__NTINST_CLASS; +/*uniqueobj*/ if (!/*_.VALDATA___V365*/ meltfptr[364]) /*_.VALDATA___V365*/ meltfptr[364] = (void*)&cdat->dsym_288__NTINST_CLASS; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_288__NTINST_CLASS", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_288__NTINST_CLASS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); cdat->dsym_288__NTINST_CLASS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); @@ -17814,27 +17898,27 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef cdat->dsym_288__NTINST_CLASS.obj_len = 3; /*inistring dstr_289__NTINST_CLASS*/ - /*_.VALSTR___V365*/ meltfptr[364] = (void*)&cdat->dstr_289__NTINST_CLASS; + /*_.VALSTR___V366*/ meltfptr[365] = (void*)&cdat->dstr_289__NTINST_CLASS; cdat->dstr_289__NTINST_CLASS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); strncpy(cdat->dstr_289__NTINST_CLASS.val, "NTINST_CLASS", sizeof (cdat->dstr_289__NTINST_CLASS.val)-1); /*^iniobj*/ /*iniobj dobj_290__NTINST_CLASS*/ -/*_.VALDATA___V359*/ meltfptr[358] = (void*)&cdat->dobj_290__NTINST_CLASS; +/*_.VALDATA___V360*/ meltfptr[359] = (void*)&cdat->dobj_290__NTINST_CLASS; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_290__NTINST_CLASS", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_290__NTINST_CLASS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_290__NTINST_CLASS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_290__NTINST_CLASS.obj_num = 7; - cdat->dobj_290__NTINST_CLASS.obj_hash = 458602156; + cdat->dobj_290__NTINST_CLASS.obj_hash = 918329144; cdat->dobj_290__NTINST_CLASS.obj_len = 4; /*inistring dstr_291__NTINST_CLASS*/ - /*_.VALSTR___V360*/ meltfptr[359] = (void*)&cdat->dstr_291__NTINST_CLASS; + /*_.VALSTR___V361*/ meltfptr[360] = (void*)&cdat->dstr_291__NTINST_CLASS; cdat->dstr_291__NTINST_CLASS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); strncpy(cdat->dstr_291__NTINST_CLASS.val, "NTINST_CLASS", sizeof (cdat->dstr_291__NTINST_CLASS.val)-1); /*iniobj dsym_292__NTINST_FIELDLOCS*/ -/*uniqueobj*/ if (!/*_.VALDATA___V366*/ meltfptr[365]) /*_.VALDATA___V366*/ meltfptr[365] = (void*)&cdat->dsym_292__NTINST_FIELDLOCS; +/*uniqueobj*/ if (!/*_.VALDATA___V367*/ meltfptr[366]) /*_.VALDATA___V367*/ meltfptr[366] = (void*)&cdat->dsym_292__NTINST_FIELDLOCS; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_292__NTINST_FIELDLOCS", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_292__NTINST_FIELDLOCS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); cdat->dsym_292__NTINST_FIELDLOCS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); @@ -17842,27 +17926,27 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef cdat->dsym_292__NTINST_FIELDLOCS.obj_len = 3; /*inistring dstr_293__NTINST_FIELDLOCS*/ - /*_.VALSTR___V367*/ meltfptr[366] = (void*)&cdat->dstr_293__NTINST_FIELDLOCS; + /*_.VALSTR___V368*/ meltfptr[367] = (void*)&cdat->dstr_293__NTINST_FIELDLOCS; cdat->dstr_293__NTINST_FIELDLOCS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); strncpy(cdat->dstr_293__NTINST_FIELDLOCS.val, "NTINST_FIELDLOCS", sizeof (cdat->dstr_293__NTINST_FIELDLOCS.val)-1); /*^iniobj*/ /*iniobj dobj_294__NTINST_FIELDLOCS*/ -/*_.VALDATA___V361*/ meltfptr[360] = (void*)&cdat->dobj_294__NTINST_FIELDLOCS; +/*_.VALDATA___V362*/ meltfptr[361] = (void*)&cdat->dobj_294__NTINST_FIELDLOCS; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_294__NTINST_FIELDLOCS", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_294__NTINST_FIELDLOCS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_294__NTINST_FIELDLOCS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_294__NTINST_FIELDLOCS.obj_num = 8; - cdat->dobj_294__NTINST_FIELDLOCS.obj_hash = 274649892; + cdat->dobj_294__NTINST_FIELDLOCS.obj_hash = 81122296; cdat->dobj_294__NTINST_FIELDLOCS.obj_len = 4; /*inistring dstr_295__NTINST_FIELDLOCS*/ - /*_.VALSTR___V362*/ meltfptr[361] = (void*)&cdat->dstr_295__NTINST_FIELDLOCS; + /*_.VALSTR___V363*/ meltfptr[362] = (void*)&cdat->dstr_295__NTINST_FIELDLOCS; cdat->dstr_295__NTINST_FIELDLOCS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); strncpy(cdat->dstr_295__NTINST_FIELDLOCS.val, "NTINST_FIELDLOCS", sizeof (cdat->dstr_295__NTINST_FIELDLOCS.val)-1); /*iniobj dsym_296__CLASS_NREP_MATCH*/ -/*uniqueobj*/ if (!/*_.VALDATA___V368*/ meltfptr[367]) /*_.VALDATA___V368*/ meltfptr[367] = (void*)&cdat->dsym_296__CLASS_NREP_MATCH; +/*uniqueobj*/ if (!/*_.VALDATA___V369*/ meltfptr[368]) /*_.VALDATA___V369*/ meltfptr[368] = (void*)&cdat->dsym_296__CLASS_NREP_MATCH; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_296__CLASS_NREP_MATCH", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_296__CLASS_NREP_MATCH", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); cdat->dsym_296__CLASS_NREP_MATCH.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); @@ -17870,12 +17954,12 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef cdat->dsym_296__CLASS_NREP_MATCH.obj_len = 3; /*inistring dstr_297__CLASS_NREP_MATCH*/ - /*_.VALSTR___V369*/ meltfptr[368] = (void*)&cdat->dstr_297__CLASS_NREP_MATCH; + /*_.VALSTR___V370*/ meltfptr[369] = (void*)&cdat->dstr_297__CLASS_NREP_MATCH; cdat->dstr_297__CLASS_NREP_MATCH.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); strncpy(cdat->dstr_297__CLASS_NREP_MATCH.val, "CLASS_NREP_MATCH", sizeof (cdat->dstr_297__CLASS_NREP_MATCH.val)-1); /*iniobj dsym_298__CLASS_NREP_TYPED_EXPRESSION*/ -/*uniqueobj*/ if (!/*_.VALDATA___V370*/ meltfptr[369]) /*_.VALDATA___V370*/ meltfptr[369] = (void*)&cdat->dsym_298__CLASS_NREP_TYPED_EXPRESSION; +/*uniqueobj*/ if (!/*_.VALDATA___V371*/ meltfptr[370]) /*_.VALDATA___V371*/ meltfptr[370] = (void*)&cdat->dsym_298__CLASS_NREP_TYPED_EXPRESSION; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_298__CLASS_NREP_TYPED_EXPRESSION", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_298__CLASS_NREP_TYPED_EXPRESSION", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); cdat->dsym_298__CLASS_NREP_TYPED_EXPRESSION.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); @@ -17883,35 +17967,35 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef cdat->dsym_298__CLASS_NREP_TYPED_EXPRESSION.obj_len = 3; /*inistring dstr_299__CLASS_NREP_TYPED*/ - /*_.VALSTR___V371*/ meltfptr[370] = (void*)&cdat->dstr_299__CLASS_NREP_TYPED; + /*_.VALSTR___V372*/ meltfptr[371] = (void*)&cdat->dstr_299__CLASS_NREP_TYPED; cdat->dstr_299__CLASS_NREP_TYPED.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); strncpy(cdat->dstr_299__CLASS_NREP_TYPED.val, "CLASS_NREP_TYPED_EXPRESSION", sizeof (cdat->dstr_299__CLASS_NREP_TYPED.val)-1); MELT_LOCATION("warmelt-normatch.melt:524:/ iniobj"); /*iniobj dobj_300__CLASS_NREP_MATCH*/ -/*_.VALDATA___V372*/ meltfptr[371] = (void*)&cdat->dobj_300__CLASS_NREP_MATCH; +/*_.VALDATA___V373*/ meltfptr[372] = (void*)&cdat->dobj_300__CLASS_NREP_MATCH; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_300__CLASS_NREP_MATCH", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_CLASS)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_300__CLASS_NREP_MATCH", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_300__CLASS_NREP_MATCH.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_300__CLASS_NREP_MATCH.obj_num = OBMAG_OBJECT; - cdat->dobj_300__CLASS_NREP_MATCH.obj_hash = 435261440; + cdat->dobj_300__CLASS_NREP_MATCH.obj_hash = 441864681; cdat->dobj_300__CLASS_NREP_MATCH.obj_len = 8; /*inistring dstr_301__CLASS_NREP_MATCH*/ - /*_.VALSTR___V373*/ meltfptr[372] = (void*)&cdat->dstr_301__CLASS_NREP_MATCH; + /*_.VALSTR___V374*/ meltfptr[373] = (void*)&cdat->dstr_301__CLASS_NREP_MATCH; cdat->dstr_301__CLASS_NREP_MATCH.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); strncpy(cdat->dstr_301__CLASS_NREP_MATCH.val, "CLASS_NREP_MATCH", sizeof (cdat->dstr_301__CLASS_NREP_MATCH.val)-1); /*inimult dtup_302__CLASS_NREP_MATCH*/ - /*_.VALTUP___V374*/ meltfptr[373] = (void*)&cdat->dtup_302__CLASS_NREP_MATCH; + /*_.VALTUP___V375*/ meltfptr[374] = (void*)&cdat->dtup_302__CLASS_NREP_MATCH; cdat->dtup_302__CLASS_NREP_MATCH.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); cdat->dtup_302__CLASS_NREP_MATCH.nbval = 4; /*inimult dtup_303__CLASS_NREP_MATCH*/ - /*_.VALTUP___V381*/ meltfptr[380] = (void*)&cdat->dtup_303__CLASS_NREP_MATCH; + /*_.VALTUP___V382*/ meltfptr[381] = (void*)&cdat->dtup_303__CLASS_NREP_MATCH; cdat->dtup_303__CLASS_NREP_MATCH.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); cdat->dtup_303__CLASS_NREP_MATCH.nbval = 5; /*iniobj dsym_304__NMATCH_TESTS*/ -/*uniqueobj*/ if (!/*_.VALDATA___V382*/ meltfptr[381]) /*_.VALDATA___V382*/ meltfptr[381] = (void*)&cdat->dsym_304__NMATCH_TESTS; +/*uniqueobj*/ if (!/*_.VALDATA___V383*/ meltfptr[382]) /*_.VALDATA___V383*/ meltfptr[382] = (void*)&cdat->dsym_304__NMATCH_TESTS; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_304__NMATCH_TESTS", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_304__NMATCH_TESTS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); cdat->dsym_304__NMATCH_TESTS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); @@ -17919,27 +18003,27 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef cdat->dsym_304__NMATCH_TESTS.obj_len = 3; /*inistring dstr_305__NMATCH_TESTS*/ - /*_.VALSTR___V383*/ meltfptr[382] = (void*)&cdat->dstr_305__NMATCH_TESTS; + /*_.VALSTR___V384*/ meltfptr[383] = (void*)&cdat->dstr_305__NMATCH_TESTS; cdat->dstr_305__NMATCH_TESTS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); strncpy(cdat->dstr_305__NMATCH_TESTS.val, "NMATCH_TESTS", sizeof (cdat->dstr_305__NMATCH_TESTS.val)-1); /*^iniobj*/ /*iniobj dobj_306__NMATCH_TESTS*/ -/*_.VALDATA___V375*/ meltfptr[374] = (void*)&cdat->dobj_306__NMATCH_TESTS; +/*_.VALDATA___V376*/ meltfptr[375] = (void*)&cdat->dobj_306__NMATCH_TESTS; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_306__NMATCH_TESTS", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_306__NMATCH_TESTS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_306__NMATCH_TESTS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_306__NMATCH_TESTS.obj_num = 2; - cdat->dobj_306__NMATCH_TESTS.obj_hash = 26844979; + cdat->dobj_306__NMATCH_TESTS.obj_hash = 651855109; cdat->dobj_306__NMATCH_TESTS.obj_len = 4; /*inistring dstr_307__NMATCH_TESTS*/ - /*_.VALSTR___V376*/ meltfptr[375] = (void*)&cdat->dstr_307__NMATCH_TESTS; + /*_.VALSTR___V377*/ meltfptr[376] = (void*)&cdat->dstr_307__NMATCH_TESTS; cdat->dstr_307__NMATCH_TESTS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); strncpy(cdat->dstr_307__NMATCH_TESTS.val, "NMATCH_TESTS", sizeof (cdat->dstr_307__NMATCH_TESTS.val)-1); /*iniobj dsym_308__NMATCH_STUFFMAP*/ -/*uniqueobj*/ if (!/*_.VALDATA___V384*/ meltfptr[383]) /*_.VALDATA___V384*/ meltfptr[383] = (void*)&cdat->dsym_308__NMATCH_STUFFMAP; +/*uniqueobj*/ if (!/*_.VALDATA___V385*/ meltfptr[384]) /*_.VALDATA___V385*/ meltfptr[384] = (void*)&cdat->dsym_308__NMATCH_STUFFMAP; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_308__NMATCH_STUFFMAP", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_308__NMATCH_STUFFMAP", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); cdat->dsym_308__NMATCH_STUFFMAP.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); @@ -17947,27 +18031,27 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef cdat->dsym_308__NMATCH_STUFFMAP.obj_len = 3; /*inistring dstr_309__NMATCH_STUFFMAP*/ - /*_.VALSTR___V385*/ meltfptr[384] = (void*)&cdat->dstr_309__NMATCH_STUFFMAP; + /*_.VALSTR___V386*/ meltfptr[385] = (void*)&cdat->dstr_309__NMATCH_STUFFMAP; cdat->dstr_309__NMATCH_STUFFMAP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); strncpy(cdat->dstr_309__NMATCH_STUFFMAP.val, "NMATCH_STUFFMAP", sizeof (cdat->dstr_309__NMATCH_STUFFMAP.val)-1); /*^iniobj*/ /*iniobj dobj_310__NMATCH_STUFFMAP*/ -/*_.VALDATA___V377*/ meltfptr[376] = (void*)&cdat->dobj_310__NMATCH_STUFFMAP; +/*_.VALDATA___V378*/ meltfptr[377] = (void*)&cdat->dobj_310__NMATCH_STUFFMAP; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_310__NMATCH_STUFFMAP", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_310__NMATCH_STUFFMAP", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_310__NMATCH_STUFFMAP.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_310__NMATCH_STUFFMAP.obj_num = 3; - cdat->dobj_310__NMATCH_STUFFMAP.obj_hash = 586167735; + cdat->dobj_310__NMATCH_STUFFMAP.obj_hash = 697112881; cdat->dobj_310__NMATCH_STUFFMAP.obj_len = 4; /*inistring dstr_311__NMATCH_STUFFMAP*/ - /*_.VALSTR___V378*/ meltfptr[377] = (void*)&cdat->dstr_311__NMATCH_STUFFMAP; + /*_.VALSTR___V379*/ meltfptr[378] = (void*)&cdat->dstr_311__NMATCH_STUFFMAP; cdat->dstr_311__NMATCH_STUFFMAP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); strncpy(cdat->dstr_311__NMATCH_STUFFMAP.val, "NMATCH_STUFFMAP", sizeof (cdat->dstr_311__NMATCH_STUFFMAP.val)-1); /*iniobj dsym_312__NMATCH_MATCHED*/ -/*uniqueobj*/ if (!/*_.VALDATA___V386*/ meltfptr[385]) /*_.VALDATA___V386*/ meltfptr[385] = (void*)&cdat->dsym_312__NMATCH_MATCHED; +/*uniqueobj*/ if (!/*_.VALDATA___V387*/ meltfptr[386]) /*_.VALDATA___V387*/ meltfptr[386] = (void*)&cdat->dsym_312__NMATCH_MATCHED; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_312__NMATCH_MATCHED", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_312__NMATCH_MATCHED", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); cdat->dsym_312__NMATCH_MATCHED.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); @@ -17975,39 +18059,39 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef cdat->dsym_312__NMATCH_MATCHED.obj_len = 3; /*inistring dstr_313__NMATCH_MATCHED*/ - /*_.VALSTR___V387*/ meltfptr[386] = (void*)&cdat->dstr_313__NMATCH_MATCHED; + /*_.VALSTR___V388*/ meltfptr[387] = (void*)&cdat->dstr_313__NMATCH_MATCHED; cdat->dstr_313__NMATCH_MATCHED.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); strncpy(cdat->dstr_313__NMATCH_MATCHED.val, "NMATCH_MATCHED", sizeof (cdat->dstr_313__NMATCH_MATCHED.val)-1); /*^iniobj*/ /*iniobj dobj_314__NMATCH_MATCHED*/ -/*_.VALDATA___V379*/ meltfptr[378] = (void*)&cdat->dobj_314__NMATCH_MATCHED; +/*_.VALDATA___V380*/ meltfptr[379] = (void*)&cdat->dobj_314__NMATCH_MATCHED; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_314__NMATCH_MATCHED", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_314__NMATCH_MATCHED", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_314__NMATCH_MATCHED.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_314__NMATCH_MATCHED.obj_num = 4; - cdat->dobj_314__NMATCH_MATCHED.obj_hash = 982541129; + cdat->dobj_314__NMATCH_MATCHED.obj_hash = 870133303; cdat->dobj_314__NMATCH_MATCHED.obj_len = 4; /*inistring dstr_315__NMATCH_MATCHED*/ - /*_.VALSTR___V380*/ meltfptr[379] = (void*)&cdat->dstr_315__NMATCH_MATCHED; + /*_.VALSTR___V381*/ meltfptr[380] = (void*)&cdat->dstr_315__NMATCH_MATCHED; cdat->dstr_315__NMATCH_MATCHED.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); strncpy(cdat->dstr_315__NMATCH_MATCHED.val, "NMATCH_MATCHED", sizeof (cdat->dstr_315__NMATCH_MATCHED.val)-1); /*inirout drout_316__REGISTER_NEW_NORMTESTER*/ - /*_.VALROUT___V388*/ meltfptr[387] = (void*)&cdat->drout_316__REGISTER_NEW_NORMTESTER; + /*_.VALROUT___V389*/ meltfptr[388] = (void*)&cdat->drout_316__REGISTER_NEW_NORMTESTER; cdat->drout_316__REGISTER_NEW_NORMTESTER.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy(cdat->drout_316__REGISTER_NEW_NORMTESTER.routdescr, "REGISTER_NEW_NORMTESTER @warmelt-normatch.melt:533", MELT_ROUTDESCR_LEN - 1); cdat->drout_316__REGISTER_NEW_NORMTESTER.nbval = 4; MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_316__REGISTER_NEW_NORMTESTER, meltrout_11_warmelt_normatch_REGISTER_NEW_NORMTESTER); /*iniclos dclo_317__REGISTER_NEW_NORMTESTER*/ - /*_.VALCLO___V389*/ meltfptr[388] = (void*)&cdat->dclo_317__REGISTER_NEW_NORMTESTER; + /*_.VALCLO___V390*/ meltfptr[389] = (void*)&cdat->dclo_317__REGISTER_NEW_NORMTESTER; cdat->dclo_317__REGISTER_NEW_NORMTESTER.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); cdat->dclo_317__REGISTER_NEW_NORMTESTER.nbval = 0; /*iniobj dsym_318__DISCR_LIST*/ -/*uniqueobj*/ if (!/*_.VALDATA___V390*/ meltfptr[389]) /*_.VALDATA___V390*/ meltfptr[389] = (void*)&cdat->dsym_318__DISCR_LIST; +/*uniqueobj*/ if (!/*_.VALDATA___V391*/ meltfptr[390]) /*_.VALDATA___V391*/ meltfptr[390] = (void*)&cdat->dsym_318__DISCR_LIST; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_318__DISCR_LIST", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_318__DISCR_LIST", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); cdat->dsym_318__DISCR_LIST.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); @@ -18015,24 +18099,24 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef cdat->dsym_318__DISCR_LIST.obj_len = 3; /*inistring dstr_319__DISCR_LIST*/ - /*_.VALSTR___V391*/ meltfptr[390] = (void*)&cdat->dstr_319__DISCR_LIST; + /*_.VALSTR___V392*/ meltfptr[391] = (void*)&cdat->dstr_319__DISCR_LIST; cdat->dstr_319__DISCR_LIST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); strncpy(cdat->dstr_319__DISCR_LIST.val, "DISCR_LIST", sizeof (cdat->dstr_319__DISCR_LIST.val)-1); /*inirout drout_320__PUT_TESTER_THEN*/ - /*_.VALROUT___V392*/ meltfptr[391] = (void*)&cdat->drout_320__PUT_TESTER_THEN; + /*_.VALROUT___V393*/ meltfptr[392] = (void*)&cdat->drout_320__PUT_TESTER_THEN; cdat->drout_320__PUT_TESTER_THEN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy(cdat->drout_320__PUT_TESTER_THEN.routdescr, "PUT_TESTER_THEN @warmelt-normatch.melt:564", MELT_ROUTDESCR_LEN - 1); cdat->drout_320__PUT_TESTER_THEN.nbval = 6; MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_320__PUT_TESTER_THEN, meltrout_12_warmelt_normatch_PUT_TESTER_THEN); /*iniclos dclo_321__PUT_TESTER_THEN*/ - /*_.VALCLO___V395*/ meltfptr[394] = (void*)&cdat->dclo_321__PUT_TESTER_THEN; + /*_.VALCLO___V396*/ meltfptr[395] = (void*)&cdat->dclo_321__PUT_TESTER_THEN; cdat->dclo_321__PUT_TESTER_THEN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); cdat->dclo_321__PUT_TESTER_THEN.nbval = 0; /*iniobj dsym_322__CLASS_CONTAINER*/ -/*uniqueobj*/ if (!/*_.VALDATA___V396*/ meltfptr[395]) /*_.VALDATA___V396*/ meltfptr[395] = (void*)&cdat->dsym_322__CLASS_CONTAINER; +/*uniqueobj*/ if (!/*_.VALDATA___V397*/ meltfptr[396]) /*_.VALDATA___V397*/ meltfptr[396] = (void*)&cdat->dsym_322__CLASS_CONTAINER; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_322__CLASS_CONTAINER", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_322__CLASS_CONTAINER", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); cdat->dsym_322__CLASS_CONTAINER.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); @@ -18040,48 +18124,48 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef cdat->dsym_322__CLASS_CONTAINER.obj_len = 3; /*inistring dstr_323__CLASS_CONTAINER*/ - /*_.VALSTR___V397*/ meltfptr[396] = (void*)&cdat->dstr_323__CLASS_CONTAINER; + /*_.VALSTR___V398*/ meltfptr[397] = (void*)&cdat->dstr_323__CLASS_CONTAINER; cdat->dstr_323__CLASS_CONTAINER.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); strncpy(cdat->dstr_323__CLASS_CONTAINER.val, "CLASS_CONTAINER", sizeof (cdat->dstr_323__CLASS_CONTAINER.val)-1); /*inirout drout_324__SET_NEW_TESTER_LAST_THEN*/ - /*_.VALROUT___V394*/ meltfptr[393] = (void*)&cdat->drout_324__SET_NEW_TESTER_LAST_THEN; + /*_.VALROUT___V395*/ meltfptr[394] = (void*)&cdat->drout_324__SET_NEW_TESTER_LAST_THEN; cdat->drout_324__SET_NEW_TESTER_LAST_THEN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy(cdat->drout_324__SET_NEW_TESTER_LAST_THEN.routdescr, "SET_NEW_TESTER_LAST_THEN @warmelt-normatch.melt:595", MELT_ROUTDESCR_LEN - 1); cdat->drout_324__SET_NEW_TESTER_LAST_THEN.nbval = 4; MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_324__SET_NEW_TESTER_LAST_THEN, meltrout_13_warmelt_normatch_SET_NEW_TESTER_LAST_THEN); /*iniclos dclo_325__SET_NEW_TESTER_LAST_THEN*/ - /*_.VALCLO___V393*/ meltfptr[392] = (void*)&cdat->dclo_325__SET_NEW_TESTER_LAST_THEN; + /*_.VALCLO___V394*/ meltfptr[393] = (void*)&cdat->dclo_325__SET_NEW_TESTER_LAST_THEN; cdat->dclo_325__SET_NEW_TESTER_LAST_THEN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); cdat->dclo_325__SET_NEW_TESTER_LAST_THEN.nbval = 0; /*inirout drout_326__SET_NEW_TESTER_ALL_ELSES*/ - /*_.VALROUT___V398*/ meltfptr[397] = (void*)&cdat->drout_326__SET_NEW_TESTER_ALL_ELSES; + /*_.VALROUT___V399*/ meltfptr[398] = (void*)&cdat->drout_326__SET_NEW_TESTER_ALL_ELSES; cdat->drout_326__SET_NEW_TESTER_ALL_ELSES.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy(cdat->drout_326__SET_NEW_TESTER_ALL_ELSES.routdescr, "SET_NEW_TESTER_ALL_ELSES @warmelt-normatch.melt:621", MELT_ROUTDESCR_LEN - 1); cdat->drout_326__SET_NEW_TESTER_ALL_ELSES.nbval = 5; MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_326__SET_NEW_TESTER_ALL_ELSES, meltrout_14_warmelt_normatch_SET_NEW_TESTER_ALL_ELSES); /*iniclos dclo_327__SET_NEW_TESTER_ALL_ELSES*/ - /*_.VALCLO___V399*/ meltfptr[398] = (void*)&cdat->dclo_327__SET_NEW_TESTER_ALL_ELSES; + /*_.VALCLO___V400*/ meltfptr[399] = (void*)&cdat->dclo_327__SET_NEW_TESTER_ALL_ELSES; cdat->dclo_327__SET_NEW_TESTER_ALL_ELSES.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); cdat->dclo_327__SET_NEW_TESTER_ALL_ELSES.nbval = 0; /*inirout drout_328__NORMPAT_ANYRECV*/ - /*_.VALROUT___V400*/ meltfptr[399] = (void*)&cdat->drout_328__NORMPAT_ANYRECV; + /*_.VALROUT___V401*/ meltfptr[400] = (void*)&cdat->drout_328__NORMPAT_ANYRECV; cdat->drout_328__NORMPAT_ANYRECV.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy(cdat->drout_328__NORMPAT_ANYRECV.routdescr, "NORMPAT_ANYRECV @warmelt-normatch.melt:685", MELT_ROUTDESCR_LEN - 1); cdat->drout_328__NORMPAT_ANYRECV.nbval = 4; MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_328__NORMPAT_ANYRECV, meltrout_15_warmelt_normatch_NORMPAT_ANYRECV); /*iniclos dclo_329__NORMPAT_ANYRECV*/ - /*_.VALCLO___V401*/ meltfptr[400] = (void*)&cdat->dclo_329__NORMPAT_ANYRECV; + /*_.VALCLO___V402*/ meltfptr[401] = (void*)&cdat->dclo_329__NORMPAT_ANYRECV; cdat->dclo_329__NORMPAT_ANYRECV.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); cdat->dclo_329__NORMPAT_ANYRECV.nbval = 0; /*iniobj dsym_330__CLASS_LOCATED*/ -/*uniqueobj*/ if (!/*_.VALDATA___V402*/ meltfptr[401]) /*_.VALDATA___V402*/ meltfptr[401] = (void*)&cdat->dsym_330__CLASS_LOCATED; +/*uniqueobj*/ if (!/*_.VALDATA___V403*/ meltfptr[402]) /*_.VALDATA___V403*/ meltfptr[402] = (void*)&cdat->dsym_330__CLASS_LOCATED; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_330__CLASS_LOCATED", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_330__CLASS_LOCATED", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); cdat->dsym_330__CLASS_LOCATED.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); @@ -18089,36 +18173,36 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef cdat->dsym_330__CLASS_LOCATED.obj_len = 3; /*inistring dstr_331__CLASS_LOCATED*/ - /*_.VALSTR___V403*/ meltfptr[402] = (void*)&cdat->dstr_331__CLASS_LOCATED; + /*_.VALSTR___V404*/ meltfptr[403] = (void*)&cdat->dstr_331__CLASS_LOCATED; cdat->dstr_331__CLASS_LOCATED.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); strncpy(cdat->dstr_331__CLASS_LOCATED.val, "CLASS_LOCATED", sizeof (cdat->dstr_331__CLASS_LOCATED.val)-1); /*inirout drout_332__NORMPAT_ANYPAT*/ - /*_.VALROUT___V404*/ meltfptr[403] = (void*)&cdat->drout_332__NORMPAT_ANYPAT; + /*_.VALROUT___V405*/ meltfptr[404] = (void*)&cdat->drout_332__NORMPAT_ANYPAT; cdat->drout_332__NORMPAT_ANYPAT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy(cdat->drout_332__NORMPAT_ANYPAT.routdescr, "NORMPAT_ANYPAT @warmelt-normatch.melt:701", MELT_ROUTDESCR_LEN - 1); cdat->drout_332__NORMPAT_ANYPAT.nbval = 5; MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_332__NORMPAT_ANYPAT, meltrout_16_warmelt_normatch_NORMPAT_ANYPAT); /*iniclos dclo_333__NORMPAT_ANYPAT*/ - /*_.VALCLO___V405*/ meltfptr[404] = (void*)&cdat->dclo_333__NORMPAT_ANYPAT; + /*_.VALCLO___V406*/ meltfptr[405] = (void*)&cdat->dclo_333__NORMPAT_ANYPAT; cdat->dclo_333__NORMPAT_ANYPAT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); cdat->dclo_333__NORMPAT_ANYPAT.nbval = 0; /*inirout drout_334__NORMVARPAT_GENREUSETEST*/ - /*_.VALROUT___V406*/ meltfptr[405] = (void*)&cdat->drout_334__NORMVARPAT_GENREUSETEST; + /*_.VALROUT___V407*/ meltfptr[406] = (void*)&cdat->drout_334__NORMVARPAT_GENREUSETEST; cdat->drout_334__NORMVARPAT_GENREUSETEST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy(cdat->drout_334__NORMVARPAT_GENREUSETEST.routdescr, "NORMVARPAT_GENREUSETEST @warmelt-normatch.melt:720", MELT_ROUTDESCR_LEN - 1); cdat->drout_334__NORMVARPAT_GENREUSETEST.nbval = 10; MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_334__NORMVARPAT_GENREUSETEST, meltrout_17_warmelt_normatch_NORMVARPAT_GENREUSETEST); /*iniclos dclo_335__NORMVARPAT_GENREUSETEST*/ - /*_.VALCLO___V408*/ meltfptr[407] = (void*)&cdat->dclo_335__NORMVARPAT_GENREUSETEST; + /*_.VALCLO___V409*/ meltfptr[408] = (void*)&cdat->dclo_335__NORMVARPAT_GENREUSETEST; cdat->dclo_335__NORMVARPAT_GENREUSETEST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); cdat->dclo_335__NORMVARPAT_GENREUSETEST.nbval = 0; /*iniobj dsym_336__CLASS_NREP_LOCSYMOCC*/ -/*uniqueobj*/ if (!/*_.VALDATA___V409*/ meltfptr[408]) /*_.VALDATA___V409*/ meltfptr[408] = (void*)&cdat->dsym_336__CLASS_NREP_LOCSYMOCC; +/*uniqueobj*/ if (!/*_.VALDATA___V410*/ meltfptr[409]) /*_.VALDATA___V410*/ meltfptr[409] = (void*)&cdat->dsym_336__CLASS_NREP_LOCSYMOCC; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_336__CLASS_NREP_LOCSYMOCC", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_336__CLASS_NREP_LOCSYMOCC", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); cdat->dsym_336__CLASS_NREP_LOCSYMOCC.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); @@ -18126,31 +18210,31 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef cdat->dsym_336__CLASS_NREP_LOCSYMOCC.obj_len = 3; /*inistring dstr_337__CLASS_NREP_LOCSY*/ - /*_.VALSTR___V410*/ meltfptr[409] = (void*)&cdat->dstr_337__CLASS_NREP_LOCSY; + /*_.VALSTR___V411*/ meltfptr[410] = (void*)&cdat->dstr_337__CLASS_NREP_LOCSY; cdat->dstr_337__CLASS_NREP_LOCSY.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); strncpy(cdat->dstr_337__CLASS_NREP_LOCSY.val, "CLASS_NREP_LOCSYMOCC", sizeof (cdat->dstr_337__CLASS_NREP_LOCSY.val)-1); /*inirout drout_338__LAMBDA_*/ - /*_.VALROUT___V407*/ meltfptr[406] = (void*)&cdat->drout_338__LAMBDA_; + /*_.VALROUT___V408*/ meltfptr[407] = (void*)&cdat->drout_338__LAMBDA_; cdat->drout_338__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy(cdat->drout_338__LAMBDA_.routdescr, "LAMBDA_ @warmelt-normatch.melt:738", MELT_ROUTDESCR_LEN - 1); cdat->drout_338__LAMBDA_.nbval = 2; MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_338__LAMBDA_, meltrout_18_warmelt_normatch_LAMBDA_); /*inirout drout_339__NORMPAT_VARIABLEPAT*/ - /*_.VALROUT___V411*/ meltfptr[410] = (void*)&cdat->drout_339__NORMPAT_VARIABLEPAT; + /*_.VALROUT___V412*/ meltfptr[411] = (void*)&cdat->drout_339__NORMPAT_VARIABLEPAT; cdat->drout_339__NORMPAT_VARIABLEPAT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy(cdat->drout_339__NORMPAT_VARIABLEPAT.routdescr, "NORMPAT_VARIABLEPAT @warmelt-normatch.melt:772", MELT_ROUTDESCR_LEN - 1); cdat->drout_339__NORMPAT_VARIABLEPAT.nbval = 12; MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_339__NORMPAT_VARIABLEPAT, meltrout_19_warmelt_normatch_NORMPAT_VARIABLEPAT); /*iniclos dclo_340__NORMPAT_VARIABLEPAT*/ - /*_.VALCLO___V412*/ meltfptr[411] = (void*)&cdat->dclo_340__NORMPAT_VARIABLEPAT; + /*_.VALCLO___V413*/ meltfptr[412] = (void*)&cdat->dclo_340__NORMPAT_VARIABLEPAT; cdat->dclo_340__NORMPAT_VARIABLEPAT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); cdat->dclo_340__NORMPAT_VARIABLEPAT.nbval = 0; /*iniobj dsym_341__CLASS_NORMAL_LET_BINDING*/ -/*uniqueobj*/ if (!/*_.VALDATA___V413*/ meltfptr[412]) /*_.VALDATA___V413*/ meltfptr[412] = (void*)&cdat->dsym_341__CLASS_NORMAL_LET_BINDING; +/*uniqueobj*/ if (!/*_.VALDATA___V414*/ meltfptr[413]) /*_.VALDATA___V414*/ meltfptr[413] = (void*)&cdat->dsym_341__CLASS_NORMAL_LET_BINDING; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_341__CLASS_NORMAL_LET_BINDING", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_341__CLASS_NORMAL_LET_BINDING", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); cdat->dsym_341__CLASS_NORMAL_LET_BINDING.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); @@ -18158,12 +18242,12 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef cdat->dsym_341__CLASS_NORMAL_LET_BINDING.obj_len = 3; /*inistring dstr_342__CLASS_NORMAL_LET*/ - /*_.VALSTR___V414*/ meltfptr[413] = (void*)&cdat->dstr_342__CLASS_NORMAL_LET; + /*_.VALSTR___V415*/ meltfptr[414] = (void*)&cdat->dstr_342__CLASS_NORMAL_LET; cdat->dstr_342__CLASS_NORMAL_LET.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); strncpy(cdat->dstr_342__CLASS_NORMAL_LET.val, "CLASS_NORMAL_LET_BINDING", sizeof (cdat->dstr_342__CLASS_NORMAL_LET.val)-1); /*iniobj dsym_343__CLASS_NORMALIZATION_CONTEXT*/ -/*uniqueobj*/ if (!/*_.VALDATA___V415*/ meltfptr[414]) /*_.VALDATA___V415*/ meltfptr[414] = (void*)&cdat->dsym_343__CLASS_NORMALIZATION_CONTEXT; +/*uniqueobj*/ if (!/*_.VALDATA___V416*/ meltfptr[415]) /*_.VALDATA___V416*/ meltfptr[415] = (void*)&cdat->dsym_343__CLASS_NORMALIZATION_CONTEXT; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_343__CLASS_NORMALIZATION_CONTEXT", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_343__CLASS_NORMALIZATION_CONTEXT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); cdat->dsym_343__CLASS_NORMALIZATION_CONTEXT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); @@ -18171,36 +18255,36 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef cdat->dsym_343__CLASS_NORMALIZATION_CONTEXT.obj_len = 3; /*inistring dstr_344__CLASS_NORMALIZAT*/ - /*_.VALSTR___V416*/ meltfptr[415] = (void*)&cdat->dstr_344__CLASS_NORMALIZAT; + /*_.VALSTR___V417*/ meltfptr[416] = (void*)&cdat->dstr_344__CLASS_NORMALIZAT; cdat->dstr_344__CLASS_NORMALIZAT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); strncpy(cdat->dstr_344__CLASS_NORMALIZAT.val, "CLASS_NORMALIZATION_CONTEXT", sizeof (cdat->dstr_344__CLASS_NORMALIZAT.val)-1); /*inirout drout_345__NORMPAT_JOKERPAT*/ - /*_.VALROUT___V417*/ meltfptr[416] = (void*)&cdat->drout_345__NORMPAT_JOKERPAT; + /*_.VALROUT___V418*/ meltfptr[417] = (void*)&cdat->drout_345__NORMPAT_JOKERPAT; cdat->drout_345__NORMPAT_JOKERPAT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy(cdat->drout_345__NORMPAT_JOKERPAT.routdescr, "NORMPAT_JOKERPAT @warmelt-normatch.melt:921", MELT_ROUTDESCR_LEN - 1); cdat->drout_345__NORMPAT_JOKERPAT.nbval = 3; MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_345__NORMPAT_JOKERPAT, meltrout_20_warmelt_normatch_NORMPAT_JOKERPAT); /*iniclos dclo_346__NORMPAT_JOKERPAT*/ - /*_.VALCLO___V418*/ meltfptr[417] = (void*)&cdat->dclo_346__NORMPAT_JOKERPAT; + /*_.VALCLO___V419*/ meltfptr[418] = (void*)&cdat->dclo_346__NORMPAT_JOKERPAT; cdat->dclo_346__NORMPAT_JOKERPAT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); cdat->dclo_346__NORMPAT_JOKERPAT.nbval = 0; /*inirout drout_347__NORMPAT_INSTANCEPAT*/ - /*_.VALROUT___V419*/ meltfptr[418] = (void*)&cdat->drout_347__NORMPAT_INSTANCEPAT; + /*_.VALROUT___V420*/ meltfptr[419] = (void*)&cdat->drout_347__NORMPAT_INSTANCEPAT; cdat->drout_347__NORMPAT_INSTANCEPAT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy(cdat->drout_347__NORMPAT_INSTANCEPAT.routdescr, "NORMPAT_INSTANCEPAT @warmelt-normatch.melt:936", MELT_ROUTDESCR_LEN - 1); cdat->drout_347__NORMPAT_INSTANCEPAT.nbval = 33; MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_347__NORMPAT_INSTANCEPAT, meltrout_21_warmelt_normatch_NORMPAT_INSTANCEPAT); /*iniclos dclo_348__NORMPAT_INSTANCEPAT*/ - /*_.VALCLO___V422*/ meltfptr[421] = (void*)&cdat->dclo_348__NORMPAT_INSTANCEPAT; + /*_.VALCLO___V423*/ meltfptr[422] = (void*)&cdat->dclo_348__NORMPAT_INSTANCEPAT; cdat->dclo_348__NORMPAT_INSTANCEPAT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); cdat->dclo_348__NORMPAT_INSTANCEPAT.nbval = 0; /*iniobj dsym_349__CLASS_SOURCE_PATTERN_INSTANCE*/ -/*uniqueobj*/ if (!/*_.VALDATA___V423*/ meltfptr[422]) /*_.VALDATA___V423*/ meltfptr[422] = (void*)&cdat->dsym_349__CLASS_SOURCE_PATTERN_INSTANCE; +/*uniqueobj*/ if (!/*_.VALDATA___V424*/ meltfptr[423]) /*_.VALDATA___V424*/ meltfptr[423] = (void*)&cdat->dsym_349__CLASS_SOURCE_PATTERN_INSTANCE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_349__CLASS_SOURCE_PATTERN_INSTANCE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_349__CLASS_SOURCE_PATTERN_INSTANCE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); cdat->dsym_349__CLASS_SOURCE_PATTERN_INSTANCE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); @@ -18208,19 +18292,19 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef cdat->dsym_349__CLASS_SOURCE_PATTERN_INSTANCE.obj_len = 3; /*inistring dstr_350__CLASS_SOURCE_PAT*/ - /*_.VALSTR___V424*/ meltfptr[423] = (void*)&cdat->dstr_350__CLASS_SOURCE_PAT; + /*_.VALSTR___V425*/ meltfptr[424] = (void*)&cdat->dstr_350__CLASS_SOURCE_PAT; cdat->dstr_350__CLASS_SOURCE_PAT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); strncpy(cdat->dstr_350__CLASS_SOURCE_PAT.val, "CLASS_SOURCE_PATTERN_INSTANCE", sizeof (cdat->dstr_350__CLASS_SOURCE_PAT.val)-1); /*inirout drout_351__LAMBDA_*/ - /*_.VALROUT___V420*/ meltfptr[419] = (void*)&cdat->drout_351__LAMBDA_; + /*_.VALROUT___V421*/ meltfptr[420] = (void*)&cdat->drout_351__LAMBDA_; cdat->drout_351__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy(cdat->drout_351__LAMBDA_.routdescr, "LAMBDA_ @warmelt-normatch.melt:971", MELT_ROUTDESCR_LEN - 1); cdat->drout_351__LAMBDA_.nbval = 2; MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_351__LAMBDA_, meltrout_22_warmelt_normatch_LAMBDA_); /*iniobj dsym_352__DISCR_MULTIPLE*/ -/*uniqueobj*/ if (!/*_.VALDATA___V425*/ meltfptr[424]) /*_.VALDATA___V425*/ meltfptr[424] = (void*)&cdat->dsym_352__DISCR_MULTIPLE; +/*uniqueobj*/ if (!/*_.VALDATA___V426*/ meltfptr[425]) /*_.VALDATA___V426*/ meltfptr[425] = (void*)&cdat->dsym_352__DISCR_MULTIPLE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_352__DISCR_MULTIPLE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_352__DISCR_MULTIPLE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); cdat->dsym_352__DISCR_MULTIPLE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); @@ -18228,19 +18312,19 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef cdat->dsym_352__DISCR_MULTIPLE.obj_len = 3; /*inistring dstr_353__DISCR_MULTIPLE*/ - /*_.VALSTR___V426*/ meltfptr[425] = (void*)&cdat->dstr_353__DISCR_MULTIPLE; + /*_.VALSTR___V427*/ meltfptr[426] = (void*)&cdat->dstr_353__DISCR_MULTIPLE; cdat->dstr_353__DISCR_MULTIPLE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); strncpy(cdat->dstr_353__DISCR_MULTIPLE.val, "DISCR_MULTIPLE", sizeof (cdat->dstr_353__DISCR_MULTIPLE.val)-1); /*inirout drout_354__LAMBDA_*/ - /*_.VALROUT___V421*/ meltfptr[420] = (void*)&cdat->drout_354__LAMBDA_; + /*_.VALROUT___V422*/ meltfptr[421] = (void*)&cdat->drout_354__LAMBDA_; cdat->drout_354__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy(cdat->drout_354__LAMBDA_.routdescr, "LAMBDA_ @warmelt-normatch.melt:1029", MELT_ROUTDESCR_LEN - 1); cdat->drout_354__LAMBDA_.nbval = 4; MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_354__LAMBDA_, meltrout_23_warmelt_normatch_LAMBDA_); /*iniobj dsym_355__CLASS_NREP_SYMOCC*/ -/*uniqueobj*/ if (!/*_.VALDATA___V427*/ meltfptr[426]) /*_.VALDATA___V427*/ meltfptr[426] = (void*)&cdat->dsym_355__CLASS_NREP_SYMOCC; +/*uniqueobj*/ if (!/*_.VALDATA___V428*/ meltfptr[427]) /*_.VALDATA___V428*/ meltfptr[427] = (void*)&cdat->dsym_355__CLASS_NREP_SYMOCC; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_355__CLASS_NREP_SYMOCC", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_355__CLASS_NREP_SYMOCC", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); cdat->dsym_355__CLASS_NREP_SYMOCC.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); @@ -18248,12 +18332,12 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef cdat->dsym_355__CLASS_NREP_SYMOCC.obj_len = 3; /*inistring dstr_356__CLASS_NREP_SYMOC*/ - /*_.VALSTR___V428*/ meltfptr[427] = (void*)&cdat->dstr_356__CLASS_NREP_SYMOC; + /*_.VALSTR___V429*/ meltfptr[428] = (void*)&cdat->dstr_356__CLASS_NREP_SYMOC; cdat->dstr_356__CLASS_NREP_SYMOC.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); strncpy(cdat->dstr_356__CLASS_NREP_SYMOC.val, "CLASS_NREP_SYMOCC", sizeof (cdat->dstr_356__CLASS_NREP_SYMOC.val)-1); /*iniobj dsym_357__CLASS_LET_BINDING*/ -/*uniqueobj*/ if (!/*_.VALDATA___V429*/ meltfptr[428]) /*_.VALDATA___V429*/ meltfptr[428] = (void*)&cdat->dsym_357__CLASS_LET_BINDING; +/*uniqueobj*/ if (!/*_.VALDATA___V430*/ meltfptr[429]) /*_.VALDATA___V430*/ meltfptr[429] = (void*)&cdat->dsym_357__CLASS_LET_BINDING; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_357__CLASS_LET_BINDING", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_357__CLASS_LET_BINDING", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); cdat->dsym_357__CLASS_LET_BINDING.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); @@ -18261,12 +18345,12 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef cdat->dsym_357__CLASS_LET_BINDING.obj_len = 3; /*inistring dstr_358__CLASS_LET_BINDIN*/ - /*_.VALSTR___V430*/ meltfptr[429] = (void*)&cdat->dstr_358__CLASS_LET_BINDIN; + /*_.VALSTR___V431*/ meltfptr[430] = (void*)&cdat->dstr_358__CLASS_LET_BINDIN; cdat->dstr_358__CLASS_LET_BINDIN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); strncpy(cdat->dstr_358__CLASS_LET_BINDIN.val, "CLASS_LET_BINDING", sizeof (cdat->dstr_358__CLASS_LET_BINDIN.val)-1); /*iniobj dsym_359__CLASS_NREP_UNSAFE_GET_FIELD*/ -/*uniqueobj*/ if (!/*_.VALDATA___V431*/ meltfptr[430]) /*_.VALDATA___V431*/ meltfptr[430] = (void*)&cdat->dsym_359__CLASS_NREP_UNSAFE_GET_FIELD; +/*uniqueobj*/ if (!/*_.VALDATA___V432*/ meltfptr[431]) /*_.VALDATA___V432*/ meltfptr[431] = (void*)&cdat->dsym_359__CLASS_NREP_UNSAFE_GET_FIELD; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_359__CLASS_NREP_UNSAFE_GET_FIELD", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_359__CLASS_NREP_UNSAFE_GET_FIELD", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); cdat->dsym_359__CLASS_NREP_UNSAFE_GET_FIELD.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); @@ -18274,12 +18358,12 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef cdat->dsym_359__CLASS_NREP_UNSAFE_GET_FIELD.obj_len = 3; /*inistring dstr_360__CLASS_NREP_UNSAF*/ - /*_.VALSTR___V432*/ meltfptr[431] = (void*)&cdat->dstr_360__CLASS_NREP_UNSAF; + /*_.VALSTR___V433*/ meltfptr[432] = (void*)&cdat->dstr_360__CLASS_NREP_UNSAF; cdat->dstr_360__CLASS_NREP_UNSAF.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); strncpy(cdat->dstr_360__CLASS_NREP_UNSAF.val, "CLASS_NREP_UNSAFE_GET_FIELD", sizeof (cdat->dstr_360__CLASS_NREP_UNSAF.val)-1); /*iniobj dsym_361__CLONE_SYMBOL*/ -/*uniqueobj*/ if (!/*_.VALDATA___V433*/ meltfptr[432]) /*_.VALDATA___V433*/ meltfptr[432] = (void*)&cdat->dsym_361__CLONE_SYMBOL; +/*uniqueobj*/ if (!/*_.VALDATA___V434*/ meltfptr[433]) /*_.VALDATA___V434*/ meltfptr[433] = (void*)&cdat->dsym_361__CLONE_SYMBOL; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_361__CLONE_SYMBOL", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_361__CLONE_SYMBOL", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); cdat->dsym_361__CLONE_SYMBOL.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); @@ -18287,43 +18371,43 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef cdat->dsym_361__CLONE_SYMBOL.obj_len = 3; /*inistring dstr_362__CLONE_SYMBOL*/ - /*_.VALSTR___V434*/ meltfptr[433] = (void*)&cdat->dstr_362__CLONE_SYMBOL; + /*_.VALSTR___V435*/ meltfptr[434] = (void*)&cdat->dstr_362__CLONE_SYMBOL; cdat->dstr_362__CLONE_SYMBOL.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); strncpy(cdat->dstr_362__CLONE_SYMBOL.val, "CLONE_SYMBOL", sizeof (cdat->dstr_362__CLONE_SYMBOL.val)-1); /*inirout drout_363__NORMPAT_ANDPAT*/ - /*_.VALROUT___V435*/ meltfptr[434] = (void*)&cdat->drout_363__NORMPAT_ANDPAT; + /*_.VALROUT___V436*/ meltfptr[435] = (void*)&cdat->drout_363__NORMPAT_ANDPAT; cdat->drout_363__NORMPAT_ANDPAT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy(cdat->drout_363__NORMPAT_ANDPAT.routdescr, "NORMPAT_ANDPAT @warmelt-normatch.melt:1110", MELT_ROUTDESCR_LEN - 1); cdat->drout_363__NORMPAT_ANDPAT.nbval = 11; MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_363__NORMPAT_ANDPAT, meltrout_24_warmelt_normatch_NORMPAT_ANDPAT); /*iniclos dclo_364__NORMPAT_ANDPAT*/ - /*_.VALCLO___V437*/ meltfptr[436] = (void*)&cdat->dclo_364__NORMPAT_ANDPAT; + /*_.VALCLO___V438*/ meltfptr[437] = (void*)&cdat->dclo_364__NORMPAT_ANDPAT; cdat->dclo_364__NORMPAT_ANDPAT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); cdat->dclo_364__NORMPAT_ANDPAT.nbval = 0; /*inirout drout_365__LAMBDA_*/ - /*_.VALROUT___V436*/ meltfptr[435] = (void*)&cdat->drout_365__LAMBDA_; + /*_.VALROUT___V437*/ meltfptr[436] = (void*)&cdat->drout_365__LAMBDA_; cdat->drout_365__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy(cdat->drout_365__LAMBDA_.routdescr, "LAMBDA_ @warmelt-normatch.melt:1121", MELT_ROUTDESCR_LEN - 1); cdat->drout_365__LAMBDA_.nbval = 4; MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_365__LAMBDA_, meltrout_25_warmelt_normatch_LAMBDA_); /*inirout drout_366__NORMPAT_ORPAT*/ - /*_.VALROUT___V438*/ meltfptr[437] = (void*)&cdat->drout_366__NORMPAT_ORPAT; + /*_.VALROUT___V439*/ meltfptr[438] = (void*)&cdat->drout_366__NORMPAT_ORPAT; cdat->drout_366__NORMPAT_ORPAT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy(cdat->drout_366__NORMPAT_ORPAT.routdescr, "NORMPAT_ORPAT @warmelt-normatch.melt:1161", MELT_ROUTDESCR_LEN - 1); - cdat->drout_366__NORMPAT_ORPAT.nbval = 32; + cdat->drout_366__NORMPAT_ORPAT.nbval = 33; MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_366__NORMPAT_ORPAT, meltrout_26_warmelt_normatch_NORMPAT_ORPAT); /*iniclos dclo_367__NORMPAT_ORPAT*/ - /*_.VALCLO___V442*/ meltfptr[441] = (void*)&cdat->dclo_367__NORMPAT_ORPAT; + /*_.VALCLO___V443*/ meltfptr[442] = (void*)&cdat->dclo_367__NORMPAT_ORPAT; cdat->dclo_367__NORMPAT_ORPAT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); cdat->dclo_367__NORMPAT_ORPAT.nbval = 0; /*iniobj dsym_368__MAPOBJECT_SORTED_ATTRIBUTE_TUPLE*/ -/*uniqueobj*/ if (!/*_.VALDATA___V443*/ meltfptr[442]) /*_.VALDATA___V443*/ meltfptr[442] = (void*)&cdat->dsym_368__MAPOBJECT_SORTED_ATTRIBUTE_TUPLE; +/*uniqueobj*/ if (!/*_.VALDATA___V444*/ meltfptr[443]) /*_.VALDATA___V444*/ meltfptr[443] = (void*)&cdat->dsym_368__MAPOBJECT_SORTED_ATTRIBUTE_TUPLE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_368__MAPOBJECT_SORTED_ATTRIBUTE_TUPLE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_368__MAPOBJECT_SORTED_ATTRIBUTE_TUPLE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); cdat->dsym_368__MAPOBJECT_SORTED_ATTRIBUTE_TUPLE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); @@ -18331,12 +18415,12 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef cdat->dsym_368__MAPOBJECT_SORTED_ATTRIBUTE_TUPLE.obj_len = 3; /*inistring dstr_369__MAPOBJECT_SORTED*/ - /*_.VALSTR___V444*/ meltfptr[443] = (void*)&cdat->dstr_369__MAPOBJECT_SORTED; + /*_.VALSTR___V445*/ meltfptr[444] = (void*)&cdat->dstr_369__MAPOBJECT_SORTED; cdat->dstr_369__MAPOBJECT_SORTED.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); strncpy(cdat->dstr_369__MAPOBJECT_SORTED.val, "MAPOBJECT_SORTED_ATTRIBUTE_TUPLE", sizeof (cdat->dstr_369__MAPOBJECT_SORTED.val)-1); /*iniobj dsym_370__MULTIPLE_MAP*/ -/*uniqueobj*/ if (!/*_.VALDATA___V445*/ meltfptr[444]) /*_.VALDATA___V445*/ meltfptr[444] = (void*)&cdat->dsym_370__MULTIPLE_MAP; +/*uniqueobj*/ if (!/*_.VALDATA___V446*/ meltfptr[445]) /*_.VALDATA___V446*/ meltfptr[445] = (void*)&cdat->dsym_370__MULTIPLE_MAP; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_370__MULTIPLE_MAP", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_370__MULTIPLE_MAP", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); cdat->dsym_370__MULTIPLE_MAP.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); @@ -18344,19 +18428,19 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef cdat->dsym_370__MULTIPLE_MAP.obj_len = 3; /*inistring dstr_371__MULTIPLE_MAP*/ - /*_.VALSTR___V446*/ meltfptr[445] = (void*)&cdat->dstr_371__MULTIPLE_MAP; + /*_.VALSTR___V447*/ meltfptr[446] = (void*)&cdat->dstr_371__MULTIPLE_MAP; cdat->dstr_371__MULTIPLE_MAP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); strncpy(cdat->dstr_371__MULTIPLE_MAP.val, "MULTIPLE_MAP", sizeof (cdat->dstr_371__MULTIPLE_MAP.val)-1); /*inirout drout_372__LAMBDA_*/ - /*_.VALROUT___V439*/ meltfptr[438] = (void*)&cdat->drout_372__LAMBDA_; + /*_.VALROUT___V440*/ meltfptr[439] = (void*)&cdat->drout_372__LAMBDA_; cdat->drout_372__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy(cdat->drout_372__LAMBDA_.routdescr, "LAMBDA_ @warmelt-normatch.melt:1192", MELT_ROUTDESCR_LEN - 1); cdat->drout_372__LAMBDA_.nbval = 3; MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_372__LAMBDA_, meltrout_27_warmelt_normatch_LAMBDA_); /*iniobj dsym_373__DISCR_BOX*/ -/*uniqueobj*/ if (!/*_.VALDATA___V447*/ meltfptr[446]) /*_.VALDATA___V447*/ meltfptr[446] = (void*)&cdat->dsym_373__DISCR_BOX; +/*uniqueobj*/ if (!/*_.VALDATA___V448*/ meltfptr[447]) /*_.VALDATA___V448*/ meltfptr[447] = (void*)&cdat->dsym_373__DISCR_BOX; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_373__DISCR_BOX", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_373__DISCR_BOX", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); cdat->dsym_373__DISCR_BOX.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); @@ -18364,12 +18448,12 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef cdat->dsym_373__DISCR_BOX.obj_len = 3; /*inistring dstr_374__DISCR_BOX*/ - /*_.VALSTR___V448*/ meltfptr[447] = (void*)&cdat->dstr_374__DISCR_BOX; + /*_.VALSTR___V449*/ meltfptr[448] = (void*)&cdat->dstr_374__DISCR_BOX; cdat->dstr_374__DISCR_BOX.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); strncpy(cdat->dstr_374__DISCR_BOX.val, "DISCR_BOX", sizeof (cdat->dstr_374__DISCR_BOX.val)-1); /*iniobj dsym_375__LIST_TO_MULTIPLE*/ -/*uniqueobj*/ if (!/*_.VALDATA___V449*/ meltfptr[448]) /*_.VALDATA___V449*/ meltfptr[448] = (void*)&cdat->dsym_375__LIST_TO_MULTIPLE; +/*uniqueobj*/ if (!/*_.VALDATA___V450*/ meltfptr[449]) /*_.VALDATA___V450*/ meltfptr[449] = (void*)&cdat->dsym_375__LIST_TO_MULTIPLE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_375__LIST_TO_MULTIPLE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_375__LIST_TO_MULTIPLE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); cdat->dsym_375__LIST_TO_MULTIPLE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); @@ -18377,12 +18461,12 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef cdat->dsym_375__LIST_TO_MULTIPLE.obj_len = 3; /*inistring dstr_376__LIST_TO_MULTIPLE*/ - /*_.VALSTR___V450*/ meltfptr[449] = (void*)&cdat->dstr_376__LIST_TO_MULTIPLE; + /*_.VALSTR___V451*/ meltfptr[450] = (void*)&cdat->dstr_376__LIST_TO_MULTIPLE; cdat->dstr_376__LIST_TO_MULTIPLE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); strncpy(cdat->dstr_376__LIST_TO_MULTIPLE.val, "LIST_TO_MULTIPLE", sizeof (cdat->dstr_376__LIST_TO_MULTIPLE.val)-1); /*iniobj dsym_377__CLASS_NREP*/ -/*uniqueobj*/ if (!/*_.VALDATA___V451*/ meltfptr[450]) /*_.VALDATA___V451*/ meltfptr[450] = (void*)&cdat->dsym_377__CLASS_NREP; +/*uniqueobj*/ if (!/*_.VALDATA___V452*/ meltfptr[451]) /*_.VALDATA___V452*/ meltfptr[451] = (void*)&cdat->dsym_377__CLASS_NREP; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_377__CLASS_NREP", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_377__CLASS_NREP", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); cdat->dsym_377__CLASS_NREP.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); @@ -18390,38 +18474,38 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef cdat->dsym_377__CLASS_NREP.obj_len = 3; /*inistring dstr_378__CLASS_NREP*/ - /*_.VALSTR___V452*/ meltfptr[451] = (void*)&cdat->dstr_378__CLASS_NREP; + /*_.VALSTR___V453*/ meltfptr[452] = (void*)&cdat->dstr_378__CLASS_NREP; cdat->dstr_378__CLASS_NREP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); strncpy(cdat->dstr_378__CLASS_NREP.val, "CLASS_NREP", sizeof (cdat->dstr_378__CLASS_NREP.val)-1); /*inirout drout_379__LAMBDA_*/ - /*_.VALROUT___V440*/ meltfptr[439] = (void*)&cdat->drout_379__LAMBDA_; + /*_.VALROUT___V441*/ meltfptr[440] = (void*)&cdat->drout_379__LAMBDA_; cdat->drout_379__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy(cdat->drout_379__LAMBDA_.routdescr, "LAMBDA_ @warmelt-normatch.melt:1277", MELT_ROUTDESCR_LEN - 1); cdat->drout_379__LAMBDA_.nbval = 3; MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_379__LAMBDA_, meltrout_28_warmelt_normatch_LAMBDA_); /*inirout drout_380__LAMBDA_*/ - /*_.VALROUT___V441*/ meltfptr[440] = (void*)&cdat->drout_380__LAMBDA_; + /*_.VALROUT___V442*/ meltfptr[441] = (void*)&cdat->drout_380__LAMBDA_; cdat->drout_380__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy(cdat->drout_380__LAMBDA_.routdescr, "LAMBDA_ @warmelt-normatch.melt:1332", MELT_ROUTDESCR_LEN - 1); cdat->drout_380__LAMBDA_.nbval = 3; MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_380__LAMBDA_, meltrout_29_warmelt_normatch_LAMBDA_); /*inirout drout_381__NORMPAT_ANYMATCHPAT*/ - /*_.VALROUT___V453*/ meltfptr[452] = (void*)&cdat->drout_381__NORMPAT_ANYMATCHPAT; + /*_.VALROUT___V454*/ meltfptr[453] = (void*)&cdat->drout_381__NORMPAT_ANYMATCHPAT; cdat->drout_381__NORMPAT_ANYMATCHPAT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy(cdat->drout_381__NORMPAT_ANYMATCHPAT.routdescr, "NORMPAT_ANYMATCHPAT @warmelt-normatch.melt:1366", MELT_ROUTDESCR_LEN - 1); cdat->drout_381__NORMPAT_ANYMATCHPAT.nbval = 42; MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_381__NORMPAT_ANYMATCHPAT, meltrout_30_warmelt_normatch_NORMPAT_ANYMATCHPAT); /*iniclos dclo_382__NORMPAT_ANYMATCHPAT*/ - /*_.VALCLO___V458*/ meltfptr[457] = (void*)&cdat->dclo_382__NORMPAT_ANYMATCHPAT; + /*_.VALCLO___V459*/ meltfptr[458] = (void*)&cdat->dclo_382__NORMPAT_ANYMATCHPAT; cdat->dclo_382__NORMPAT_ANYMATCHPAT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); cdat->dclo_382__NORMPAT_ANYMATCHPAT.nbval = 0; /*iniobj dsym_383__CLASS_SOURCE_PATTERN_MATCHER*/ -/*uniqueobj*/ if (!/*_.VALDATA___V459*/ meltfptr[458]) /*_.VALDATA___V459*/ meltfptr[458] = (void*)&cdat->dsym_383__CLASS_SOURCE_PATTERN_MATCHER; +/*uniqueobj*/ if (!/*_.VALDATA___V460*/ meltfptr[459]) /*_.VALDATA___V460*/ meltfptr[459] = (void*)&cdat->dsym_383__CLASS_SOURCE_PATTERN_MATCHER; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_383__CLASS_SOURCE_PATTERN_MATCHER", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_383__CLASS_SOURCE_PATTERN_MATCHER", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); cdat->dsym_383__CLASS_SOURCE_PATTERN_MATCHER.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); @@ -18429,12 +18513,12 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef cdat->dsym_383__CLASS_SOURCE_PATTERN_MATCHER.obj_len = 3; /*inistring dstr_384__CLASS_SOURCE_PAT*/ - /*_.VALSTR___V460*/ meltfptr[459] = (void*)&cdat->dstr_384__CLASS_SOURCE_PAT; + /*_.VALSTR___V461*/ meltfptr[460] = (void*)&cdat->dstr_384__CLASS_SOURCE_PAT; cdat->dstr_384__CLASS_SOURCE_PAT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); strncpy(cdat->dstr_384__CLASS_SOURCE_PAT.val, "CLASS_SOURCE_PATTERN_MATCHER", sizeof (cdat->dstr_384__CLASS_SOURCE_PAT.val)-1); /*iniobj dsym_385__CLASS_ANY_BINDING*/ -/*uniqueobj*/ if (!/*_.VALDATA___V461*/ meltfptr[460]) /*_.VALDATA___V461*/ meltfptr[460] = (void*)&cdat->dsym_385__CLASS_ANY_BINDING; +/*uniqueobj*/ if (!/*_.VALDATA___V462*/ meltfptr[461]) /*_.VALDATA___V462*/ meltfptr[461] = (void*)&cdat->dsym_385__CLASS_ANY_BINDING; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_385__CLASS_ANY_BINDING", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_385__CLASS_ANY_BINDING", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); cdat->dsym_385__CLASS_ANY_BINDING.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); @@ -18442,12 +18526,12 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef cdat->dsym_385__CLASS_ANY_BINDING.obj_len = 3; /*inistring dstr_386__CLASS_ANY_BINDIN*/ - /*_.VALSTR___V462*/ meltfptr[461] = (void*)&cdat->dstr_386__CLASS_ANY_BINDIN; + /*_.VALSTR___V463*/ meltfptr[462] = (void*)&cdat->dstr_386__CLASS_ANY_BINDIN; cdat->dstr_386__CLASS_ANY_BINDIN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); strncpy(cdat->dstr_386__CLASS_ANY_BINDIN.val, "CLASS_ANY_BINDING", sizeof (cdat->dstr_386__CLASS_ANY_BINDIN.val)-1); /*iniobj dsym_387__FIND_ENV*/ -/*uniqueobj*/ if (!/*_.VALDATA___V463*/ meltfptr[462]) /*_.VALDATA___V463*/ meltfptr[462] = (void*)&cdat->dsym_387__FIND_ENV; +/*uniqueobj*/ if (!/*_.VALDATA___V464*/ meltfptr[463]) /*_.VALDATA___V464*/ meltfptr[463] = (void*)&cdat->dsym_387__FIND_ENV; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_387__FIND_ENV", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_387__FIND_ENV", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); cdat->dsym_387__FIND_ENV.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); @@ -18455,12 +18539,12 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef cdat->dsym_387__FIND_ENV.obj_len = 3; /*inistring dstr_388__FIND_ENV*/ - /*_.VALSTR___V464*/ meltfptr[463] = (void*)&cdat->dstr_388__FIND_ENV; + /*_.VALSTR___V465*/ meltfptr[464] = (void*)&cdat->dstr_388__FIND_ENV; cdat->dstr_388__FIND_ENV.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); strncpy(cdat->dstr_388__FIND_ENV.val, "FIND_ENV", sizeof (cdat->dstr_388__FIND_ENV.val)-1); /*iniobj dsym_389__FRESH_ENV*/ -/*uniqueobj*/ if (!/*_.VALDATA___V465*/ meltfptr[464]) /*_.VALDATA___V465*/ meltfptr[464] = (void*)&cdat->dsym_389__FRESH_ENV; +/*uniqueobj*/ if (!/*_.VALDATA___V466*/ meltfptr[465]) /*_.VALDATA___V466*/ meltfptr[465] = (void*)&cdat->dsym_389__FRESH_ENV; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_389__FRESH_ENV", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_389__FRESH_ENV", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); cdat->dsym_389__FRESH_ENV.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); @@ -18468,12 +18552,12 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef cdat->dsym_389__FRESH_ENV.obj_len = 3; /*inistring dstr_390__FRESH_ENV*/ - /*_.VALSTR___V466*/ meltfptr[465] = (void*)&cdat->dstr_390__FRESH_ENV; + /*_.VALSTR___V467*/ meltfptr[466] = (void*)&cdat->dstr_390__FRESH_ENV; cdat->dstr_390__FRESH_ENV.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); strncpy(cdat->dstr_390__FRESH_ENV.val, "FRESH_ENV", sizeof (cdat->dstr_390__FRESH_ENV.val)-1); /*iniobj dsym_391__PUT_ENV*/ -/*uniqueobj*/ if (!/*_.VALDATA___V467*/ meltfptr[466]) /*_.VALDATA___V467*/ meltfptr[466] = (void*)&cdat->dsym_391__PUT_ENV; +/*uniqueobj*/ if (!/*_.VALDATA___V468*/ meltfptr[467]) /*_.VALDATA___V468*/ meltfptr[467] = (void*)&cdat->dsym_391__PUT_ENV; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_391__PUT_ENV", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_391__PUT_ENV", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); cdat->dsym_391__PUT_ENV.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); @@ -18481,33 +18565,33 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef cdat->dsym_391__PUT_ENV.obj_len = 3; /*inistring dstr_392__PUT_ENV*/ - /*_.VALSTR___V468*/ meltfptr[467] = (void*)&cdat->dstr_392__PUT_ENV; + /*_.VALSTR___V469*/ meltfptr[468] = (void*)&cdat->dstr_392__PUT_ENV; cdat->dstr_392__PUT_ENV.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); strncpy(cdat->dstr_392__PUT_ENV.val, "PUT_ENV", sizeof (cdat->dstr_392__PUT_ENV.val)-1); /*inirout drout_393__LAMBDA_*/ - /*_.VALROUT___V454*/ meltfptr[453] = (void*)&cdat->drout_393__LAMBDA_; + /*_.VALROUT___V455*/ meltfptr[454] = (void*)&cdat->drout_393__LAMBDA_; cdat->drout_393__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy(cdat->drout_393__LAMBDA_.routdescr, "LAMBDA_ @warmelt-normatch.melt:1510", MELT_ROUTDESCR_LEN - 1); cdat->drout_393__LAMBDA_.nbval = 2; MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_393__LAMBDA_, meltrout_31_warmelt_normatch_LAMBDA_); /*inirout drout_394__LAMBDA_*/ - /*_.VALROUT___V455*/ meltfptr[454] = (void*)&cdat->drout_394__LAMBDA_; + /*_.VALROUT___V456*/ meltfptr[455] = (void*)&cdat->drout_394__LAMBDA_; cdat->drout_394__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy(cdat->drout_394__LAMBDA_.routdescr, "LAMBDA_ @warmelt-normatch.melt:1523", MELT_ROUTDESCR_LEN - 1); cdat->drout_394__LAMBDA_.nbval = 2; MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_394__LAMBDA_, meltrout_32_warmelt_normatch_LAMBDA_); /*inirout drout_395__LAMBDA_*/ - /*_.VALROUT___V456*/ meltfptr[455] = (void*)&cdat->drout_395__LAMBDA_; + /*_.VALROUT___V457*/ meltfptr[456] = (void*)&cdat->drout_395__LAMBDA_; cdat->drout_395__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy(cdat->drout_395__LAMBDA_.routdescr, "LAMBDA_ @warmelt-normatch.melt:1535", MELT_ROUTDESCR_LEN - 1); cdat->drout_395__LAMBDA_.nbval = 7; MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_395__LAMBDA_, meltrout_33_warmelt_normatch_LAMBDA_); /*iniobj dsym_396__MULTIPLE_TO_LIST*/ -/*uniqueobj*/ if (!/*_.VALDATA___V469*/ meltfptr[468]) /*_.VALDATA___V469*/ meltfptr[468] = (void*)&cdat->dsym_396__MULTIPLE_TO_LIST; +/*uniqueobj*/ if (!/*_.VALDATA___V470*/ meltfptr[469]) /*_.VALDATA___V470*/ meltfptr[469] = (void*)&cdat->dsym_396__MULTIPLE_TO_LIST; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_396__MULTIPLE_TO_LIST", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_396__MULTIPLE_TO_LIST", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); cdat->dsym_396__MULTIPLE_TO_LIST.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); @@ -18515,38 +18599,38 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef cdat->dsym_396__MULTIPLE_TO_LIST.obj_len = 3; /*inistring dstr_397__MULTIPLE_TO_LIST*/ - /*_.VALSTR___V470*/ meltfptr[469] = (void*)&cdat->dstr_397__MULTIPLE_TO_LIST; + /*_.VALSTR___V471*/ meltfptr[470] = (void*)&cdat->dstr_397__MULTIPLE_TO_LIST; cdat->dstr_397__MULTIPLE_TO_LIST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); strncpy(cdat->dstr_397__MULTIPLE_TO_LIST.val, "MULTIPLE_TO_LIST", sizeof (cdat->dstr_397__MULTIPLE_TO_LIST.val)-1); /*inirout drout_398__LAMBDA_*/ - /*_.VALROUT___V457*/ meltfptr[456] = (void*)&cdat->drout_398__LAMBDA_; + /*_.VALROUT___V458*/ meltfptr[457] = (void*)&cdat->drout_398__LAMBDA_; cdat->drout_398__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy(cdat->drout_398__LAMBDA_.routdescr, "LAMBDA_ @warmelt-normatch.melt:1606", MELT_ROUTDESCR_LEN - 1); cdat->drout_398__LAMBDA_.nbval = 2; MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_398__LAMBDA_, meltrout_34_warmelt_normatch_LAMBDA_); /*inirout drout_399__NORMPAT_CONSTPAT*/ - /*_.VALROUT___V471*/ meltfptr[470] = (void*)&cdat->drout_399__NORMPAT_CONSTPAT; + /*_.VALROUT___V472*/ meltfptr[471] = (void*)&cdat->drout_399__NORMPAT_CONSTPAT; cdat->drout_399__NORMPAT_CONSTPAT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy(cdat->drout_399__NORMPAT_CONSTPAT.routdescr, "NORMPAT_CONSTPAT @warmelt-normatch.melt:1633", MELT_ROUTDESCR_LEN - 1); cdat->drout_399__NORMPAT_CONSTPAT.nbval = 11; MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_399__NORMPAT_CONSTPAT, meltrout_35_warmelt_normatch_NORMPAT_CONSTPAT); /*iniclos dclo_400__NORMPAT_CONSTPAT*/ - /*_.VALCLO___V473*/ meltfptr[472] = (void*)&cdat->dclo_400__NORMPAT_CONSTPAT; + /*_.VALCLO___V474*/ meltfptr[473] = (void*)&cdat->dclo_400__NORMPAT_CONSTPAT; cdat->dclo_400__NORMPAT_CONSTPAT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); cdat->dclo_400__NORMPAT_CONSTPAT.nbval = 0; /*inirout drout_401__LAMBDA_*/ - /*_.VALROUT___V472*/ meltfptr[471] = (void*)&cdat->drout_401__LAMBDA_; + /*_.VALROUT___V473*/ meltfptr[472] = (void*)&cdat->drout_401__LAMBDA_; cdat->drout_401__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy(cdat->drout_401__LAMBDA_.routdescr, "LAMBDA_ @warmelt-normatch.melt:1669", MELT_ROUTDESCR_LEN - 1); cdat->drout_401__LAMBDA_.nbval = 2; MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_401__LAMBDA_, meltrout_36_warmelt_normatch_LAMBDA_); /*iniobj dsym_402__MATCH_GRAPHIC_DOT_PREFIX*/ -/*uniqueobj*/ if (!/*_.VALDATA___V474*/ meltfptr[473]) /*_.VALDATA___V474*/ meltfptr[473] = (void*)&cdat->dsym_402__MATCH_GRAPHIC_DOT_PREFIX; +/*uniqueobj*/ if (!/*_.VALDATA___V475*/ meltfptr[474]) /*_.VALDATA___V475*/ meltfptr[474] = (void*)&cdat->dsym_402__MATCH_GRAPHIC_DOT_PREFIX; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_402__MATCH_GRAPHIC_DOT_PREFIX", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_402__MATCH_GRAPHIC_DOT_PREFIX", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); cdat->dsym_402__MATCH_GRAPHIC_DOT_PREFIX.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); @@ -18554,33 +18638,33 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef cdat->dsym_402__MATCH_GRAPHIC_DOT_PREFIX.obj_len = 3; /*inistring dstr_403__MATCH_GRAPHIC_DO*/ - /*_.VALSTR___V475*/ meltfptr[474] = (void*)&cdat->dstr_403__MATCH_GRAPHIC_DO; + /*_.VALSTR___V476*/ meltfptr[475] = (void*)&cdat->dstr_403__MATCH_GRAPHIC_DO; cdat->dstr_403__MATCH_GRAPHIC_DO.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); strncpy(cdat->dstr_403__MATCH_GRAPHIC_DO.val, "MATCH_GRAPHIC_DOT_PREFIX", sizeof (cdat->dstr_403__MATCH_GRAPHIC_DO.val)-1); MELT_LOCATION("warmelt-normatch.melt:1711:/ iniobj"); /*iniobj dobj_404__MATCH_GRAPHIC_DOT_PREFIX*/ -/*_.VALDATA___V476*/ meltfptr[475] = (void*)&cdat->dobj_404__MATCH_GRAPHIC_DOT_PREFIX; +/*_.VALDATA___V477*/ meltfptr[476] = (void*)&cdat->dobj_404__MATCH_GRAPHIC_DOT_PREFIX; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_404__MATCH_GRAPHIC_DOT_PREFIX", melt_magic_discr (/*_.CLASS_CONTAINER__V37*/ meltfptr[36]) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_404__MATCH_GRAPHIC_DOT_PREFIX", ((meltobject_ptr_t) (/*_.CLASS_CONTAINER__V37*/ meltfptr[36]))->object_magic == OBMAG_OBJECT); cdat->dobj_404__MATCH_GRAPHIC_DOT_PREFIX.obj_class = (meltobject_ptr_t)(/*_.CLASS_CONTAINER__V37*/ meltfptr[36]); - cdat->dobj_404__MATCH_GRAPHIC_DOT_PREFIX.obj_hash = 522921863; + cdat->dobj_404__MATCH_GRAPHIC_DOT_PREFIX.obj_hash = 469923382; cdat->dobj_404__MATCH_GRAPHIC_DOT_PREFIX.obj_len = 1; /*inirout drout_405__MATCH_GRAPHIC_OPTSET*/ - /*_.VALROUT___V477*/ meltfptr[476] = (void*)&cdat->drout_405__MATCH_GRAPHIC_OPTSET; + /*_.VALROUT___V478*/ meltfptr[477] = (void*)&cdat->drout_405__MATCH_GRAPHIC_OPTSET; cdat->drout_405__MATCH_GRAPHIC_OPTSET.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy(cdat->drout_405__MATCH_GRAPHIC_OPTSET.routdescr, "MATCH_GRAPHIC_OPTSET @warmelt-normatch.melt:1714", MELT_ROUTDESCR_LEN - 1); cdat->drout_405__MATCH_GRAPHIC_OPTSET.nbval = 4; MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_405__MATCH_GRAPHIC_OPTSET, meltrout_37_warmelt_normatch_MATCH_GRAPHIC_OPTSET); /*iniclos dclo_406__MATCH_GRAPHIC_OPTSET*/ - /*_.VALCLO___V478*/ meltfptr[477] = (void*)&cdat->dclo_406__MATCH_GRAPHIC_OPTSET; + /*_.VALCLO___V479*/ meltfptr[478] = (void*)&cdat->dclo_406__MATCH_GRAPHIC_OPTSET; cdat->dclo_406__MATCH_GRAPHIC_OPTSET.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); cdat->dclo_406__MATCH_GRAPHIC_OPTSET.nbval = 0; /*iniobj dsym_407__DISCR_STRING*/ -/*uniqueobj*/ if (!/*_.VALDATA___V479*/ meltfptr[478]) /*_.VALDATA___V479*/ meltfptr[478] = (void*)&cdat->dsym_407__DISCR_STRING; +/*uniqueobj*/ if (!/*_.VALDATA___V480*/ meltfptr[479]) /*_.VALDATA___V480*/ meltfptr[479] = (void*)&cdat->dsym_407__DISCR_STRING; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_407__DISCR_STRING", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_407__DISCR_STRING", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); cdat->dsym_407__DISCR_STRING.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); @@ -18588,12 +18672,12 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef cdat->dsym_407__DISCR_STRING.obj_len = 3; /*inistring dstr_408__DISCR_STRING*/ - /*_.VALSTR___V480*/ meltfptr[479] = (void*)&cdat->dstr_408__DISCR_STRING; + /*_.VALSTR___V481*/ meltfptr[480] = (void*)&cdat->dstr_408__DISCR_STRING; cdat->dstr_408__DISCR_STRING.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); strncpy(cdat->dstr_408__DISCR_STRING.val, "DISCR_STRING", sizeof (cdat->dstr_408__DISCR_STRING.val)-1); /*iniobj dsym_409__REGISTER_OPTION*/ -/*uniqueobj*/ if (!/*_.VALDATA___V481*/ meltfptr[480]) /*_.VALDATA___V481*/ meltfptr[480] = (void*)&cdat->dsym_409__REGISTER_OPTION; +/*uniqueobj*/ if (!/*_.VALDATA___V482*/ meltfptr[481]) /*_.VALDATA___V482*/ meltfptr[481] = (void*)&cdat->dsym_409__REGISTER_OPTION; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_409__REGISTER_OPTION", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_409__REGISTER_OPTION", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); cdat->dsym_409__REGISTER_OPTION.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); @@ -18601,12 +18685,12 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef cdat->dsym_409__REGISTER_OPTION.obj_len = 3; /*inistring dstr_410__REGISTER_OPTION*/ - /*_.VALSTR___V482*/ meltfptr[481] = (void*)&cdat->dstr_410__REGISTER_OPTION; + /*_.VALSTR___V483*/ meltfptr[482] = (void*)&cdat->dstr_410__REGISTER_OPTION; cdat->dstr_410__REGISTER_OPTION.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); strncpy(cdat->dstr_410__REGISTER_OPTION.val, "REGISTER_OPTION", sizeof (cdat->dstr_410__REGISTER_OPTION.val)-1); /*iniobj dsym_411__MATCH_GRAPHIC*/ -/*uniqueobj*/ if (!/*_.VALDATA___V483*/ meltfptr[482]) /*_.VALDATA___V483*/ meltfptr[482] = (void*)&cdat->dsym_411__MATCH_GRAPHIC; +/*uniqueobj*/ if (!/*_.VALDATA___V484*/ meltfptr[483]) /*_.VALDATA___V484*/ meltfptr[483] = (void*)&cdat->dsym_411__MATCH_GRAPHIC; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_411__MATCH_GRAPHIC", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_411__MATCH_GRAPHIC", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); cdat->dsym_411__MATCH_GRAPHIC.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); @@ -18614,17 +18698,17 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef cdat->dsym_411__MATCH_GRAPHIC.obj_len = 3; /*inistring dstr_412__MATCH_GRAPHIC*/ - /*_.VALSTR___V484*/ meltfptr[483] = (void*)&cdat->dstr_412__MATCH_GRAPHIC; + /*_.VALSTR___V485*/ meltfptr[484] = (void*)&cdat->dstr_412__MATCH_GRAPHIC; cdat->dstr_412__MATCH_GRAPHIC.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); strncpy(cdat->dstr_412__MATCH_GRAPHIC.val, "MATCH_GRAPHIC", sizeof (cdat->dstr_412__MATCH_GRAPHIC.val)-1); /*inistring dstr_413__Prefix_for_Graph*/ - /*_.VALSTR___V485*/ meltfptr[484] = (void*)&cdat->dstr_413__Prefix_for_Graph; + /*_.VALSTR___V486*/ meltfptr[485] = (void*)&cdat->dstr_413__Prefix_for_Graph; cdat->dstr_413__Prefix_for_Graph.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); strncpy(cdat->dstr_413__Prefix_for_Graph.val, "Prefix for Graphviz .dot files generated about match normalization when debugging", sizeof (cdat->dstr_413__Prefix_for_Graph.val)-1); /*iniobj dsym_414__CLASS_MATCH_GRAPHIC*/ -/*uniqueobj*/ if (!/*_.VALDATA___V486*/ meltfptr[485]) /*_.VALDATA___V486*/ meltfptr[485] = (void*)&cdat->dsym_414__CLASS_MATCH_GRAPHIC; +/*uniqueobj*/ if (!/*_.VALDATA___V487*/ meltfptr[486]) /*_.VALDATA___V487*/ meltfptr[486] = (void*)&cdat->dsym_414__CLASS_MATCH_GRAPHIC; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_414__CLASS_MATCH_GRAPHIC", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_414__CLASS_MATCH_GRAPHIC", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); cdat->dsym_414__CLASS_MATCH_GRAPHIC.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); @@ -18632,12 +18716,12 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef cdat->dsym_414__CLASS_MATCH_GRAPHIC.obj_len = 3; /*inistring dstr_415__CLASS_MATCH_GRAP*/ - /*_.VALSTR___V487*/ meltfptr[486] = (void*)&cdat->dstr_415__CLASS_MATCH_GRAP; + /*_.VALSTR___V488*/ meltfptr[487] = (void*)&cdat->dstr_415__CLASS_MATCH_GRAP; cdat->dstr_415__CLASS_MATCH_GRAP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); strncpy(cdat->dstr_415__CLASS_MATCH_GRAP.val, "CLASS_MATCH_GRAPHIC", sizeof (cdat->dstr_415__CLASS_MATCH_GRAP.val)-1); /*iniobj dsym_416__CLASS_PROPED*/ -/*uniqueobj*/ if (!/*_.VALDATA___V488*/ meltfptr[487]) /*_.VALDATA___V488*/ meltfptr[487] = (void*)&cdat->dsym_416__CLASS_PROPED; +/*uniqueobj*/ if (!/*_.VALDATA___V489*/ meltfptr[488]) /*_.VALDATA___V489*/ meltfptr[488] = (void*)&cdat->dsym_416__CLASS_PROPED; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_416__CLASS_PROPED", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_416__CLASS_PROPED", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); cdat->dsym_416__CLASS_PROPED.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); @@ -18645,35 +18729,35 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef cdat->dsym_416__CLASS_PROPED.obj_len = 3; /*inistring dstr_417__CLASS_PROPED*/ - /*_.VALSTR___V489*/ meltfptr[488] = (void*)&cdat->dstr_417__CLASS_PROPED; + /*_.VALSTR___V490*/ meltfptr[489] = (void*)&cdat->dstr_417__CLASS_PROPED; cdat->dstr_417__CLASS_PROPED.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); strncpy(cdat->dstr_417__CLASS_PROPED.val, "CLASS_PROPED", sizeof (cdat->dstr_417__CLASS_PROPED.val)-1); MELT_LOCATION("warmelt-normatch.melt:1730:/ iniobj"); /*iniobj dobj_418__CLASS_MATCH_GRAPHIC*/ -/*_.VALDATA___V490*/ meltfptr[489] = (void*)&cdat->dobj_418__CLASS_MATCH_GRAPHIC; +/*_.VALDATA___V491*/ meltfptr[490] = (void*)&cdat->dobj_418__CLASS_MATCH_GRAPHIC; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_418__CLASS_MATCH_GRAPHIC", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_CLASS)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_418__CLASS_MATCH_GRAPHIC", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_418__CLASS_MATCH_GRAPHIC.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_418__CLASS_MATCH_GRAPHIC.obj_num = OBMAG_OBJECT; - cdat->dobj_418__CLASS_MATCH_GRAPHIC.obj_hash = 672736192; + cdat->dobj_418__CLASS_MATCH_GRAPHIC.obj_hash = 140103993; cdat->dobj_418__CLASS_MATCH_GRAPHIC.obj_len = 8; /*inistring dstr_419__CLASS_MATCH_GRAP*/ - /*_.VALSTR___V491*/ meltfptr[490] = (void*)&cdat->dstr_419__CLASS_MATCH_GRAP; + /*_.VALSTR___V492*/ meltfptr[491] = (void*)&cdat->dstr_419__CLASS_MATCH_GRAP; cdat->dstr_419__CLASS_MATCH_GRAP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); strncpy(cdat->dstr_419__CLASS_MATCH_GRAP.val, "CLASS_MATCH_GRAPHIC", sizeof (cdat->dstr_419__CLASS_MATCH_GRAP.val)-1); /*inimult dtup_420__CLASS_MATCH_GRAPHIC*/ - /*_.VALTUP___V492*/ meltfptr[491] = (void*)&cdat->dtup_420__CLASS_MATCH_GRAPHIC; + /*_.VALTUP___V493*/ meltfptr[492] = (void*)&cdat->dtup_420__CLASS_MATCH_GRAPHIC; cdat->dtup_420__CLASS_MATCH_GRAPHIC.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); cdat->dtup_420__CLASS_MATCH_GRAPHIC.nbval = 2; /*inimult dtup_421__CLASS_MATCH_GRAPHIC*/ - /*_.VALTUP___V503*/ meltfptr[502] = (void*)&cdat->dtup_421__CLASS_MATCH_GRAPHIC; + /*_.VALTUP___V504*/ meltfptr[503] = (void*)&cdat->dtup_421__CLASS_MATCH_GRAPHIC; cdat->dtup_421__CLASS_MATCH_GRAPHIC.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); cdat->dtup_421__CLASS_MATCH_GRAPHIC.nbval = 6; /*iniobj dsym_422__MCHGX_FILENAME*/ -/*uniqueobj*/ if (!/*_.VALDATA___V504*/ meltfptr[503]) /*_.VALDATA___V504*/ meltfptr[503] = (void*)&cdat->dsym_422__MCHGX_FILENAME; +/*uniqueobj*/ if (!/*_.VALDATA___V505*/ meltfptr[504]) /*_.VALDATA___V505*/ meltfptr[504] = (void*)&cdat->dsym_422__MCHGX_FILENAME; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_422__MCHGX_FILENAME", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_422__MCHGX_FILENAME", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); cdat->dsym_422__MCHGX_FILENAME.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); @@ -18681,27 +18765,27 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef cdat->dsym_422__MCHGX_FILENAME.obj_len = 3; /*inistring dstr_423__MCHGX_FILENAME*/ - /*_.VALSTR___V505*/ meltfptr[504] = (void*)&cdat->dstr_423__MCHGX_FILENAME; + /*_.VALSTR___V506*/ meltfptr[505] = (void*)&cdat->dstr_423__MCHGX_FILENAME; cdat->dstr_423__MCHGX_FILENAME.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); strncpy(cdat->dstr_423__MCHGX_FILENAME.val, "MCHGX_FILENAME", sizeof (cdat->dstr_423__MCHGX_FILENAME.val)-1); /*^iniobj*/ /*iniobj dobj_424__MCHGX_FILENAME*/ -/*_.VALDATA___V493*/ meltfptr[492] = (void*)&cdat->dobj_424__MCHGX_FILENAME; +/*_.VALDATA___V494*/ meltfptr[493] = (void*)&cdat->dobj_424__MCHGX_FILENAME; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_424__MCHGX_FILENAME", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_424__MCHGX_FILENAME", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_424__MCHGX_FILENAME.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_424__MCHGX_FILENAME.obj_num = 1; - cdat->dobj_424__MCHGX_FILENAME.obj_hash = 1008530959; + cdat->dobj_424__MCHGX_FILENAME.obj_hash = 699706200; cdat->dobj_424__MCHGX_FILENAME.obj_len = 4; /*inistring dstr_425__MCHGX_FILENAME*/ - /*_.VALSTR___V494*/ meltfptr[493] = (void*)&cdat->dstr_425__MCHGX_FILENAME; + /*_.VALSTR___V495*/ meltfptr[494] = (void*)&cdat->dstr_425__MCHGX_FILENAME; cdat->dstr_425__MCHGX_FILENAME.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); strncpy(cdat->dstr_425__MCHGX_FILENAME.val, "MCHGX_FILENAME", sizeof (cdat->dstr_425__MCHGX_FILENAME.val)-1); /*iniobj dsym_426__MCHGX_NODOUT*/ -/*uniqueobj*/ if (!/*_.VALDATA___V506*/ meltfptr[505]) /*_.VALDATA___V506*/ meltfptr[505] = (void*)&cdat->dsym_426__MCHGX_NODOUT; +/*uniqueobj*/ if (!/*_.VALDATA___V507*/ meltfptr[506]) /*_.VALDATA___V507*/ meltfptr[506] = (void*)&cdat->dsym_426__MCHGX_NODOUT; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_426__MCHGX_NODOUT", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_426__MCHGX_NODOUT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); cdat->dsym_426__MCHGX_NODOUT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); @@ -18709,27 +18793,27 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef cdat->dsym_426__MCHGX_NODOUT.obj_len = 3; /*inistring dstr_427__MCHGX_NODOUT*/ - /*_.VALSTR___V507*/ meltfptr[506] = (void*)&cdat->dstr_427__MCHGX_NODOUT; + /*_.VALSTR___V508*/ meltfptr[507] = (void*)&cdat->dstr_427__MCHGX_NODOUT; cdat->dstr_427__MCHGX_NODOUT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); strncpy(cdat->dstr_427__MCHGX_NODOUT.val, "MCHGX_NODOUT", sizeof (cdat->dstr_427__MCHGX_NODOUT.val)-1); /*^iniobj*/ /*iniobj dobj_428__MCHGX_NODOUT*/ -/*_.VALDATA___V495*/ meltfptr[494] = (void*)&cdat->dobj_428__MCHGX_NODOUT; +/*_.VALDATA___V496*/ meltfptr[495] = (void*)&cdat->dobj_428__MCHGX_NODOUT; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_428__MCHGX_NODOUT", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_428__MCHGX_NODOUT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_428__MCHGX_NODOUT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_428__MCHGX_NODOUT.obj_num = 2; - cdat->dobj_428__MCHGX_NODOUT.obj_hash = 939384220; + cdat->dobj_428__MCHGX_NODOUT.obj_hash = 591196781; cdat->dobj_428__MCHGX_NODOUT.obj_len = 4; /*inistring dstr_429__MCHGX_NODOUT*/ - /*_.VALSTR___V496*/ meltfptr[495] = (void*)&cdat->dstr_429__MCHGX_NODOUT; + /*_.VALSTR___V497*/ meltfptr[496] = (void*)&cdat->dstr_429__MCHGX_NODOUT; cdat->dstr_429__MCHGX_NODOUT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); strncpy(cdat->dstr_429__MCHGX_NODOUT.val, "MCHGX_NODOUT", sizeof (cdat->dstr_429__MCHGX_NODOUT.val)-1); /*iniobj dsym_430__MCHGX_EDGOUT*/ -/*uniqueobj*/ if (!/*_.VALDATA___V508*/ meltfptr[507]) /*_.VALDATA___V508*/ meltfptr[507] = (void*)&cdat->dsym_430__MCHGX_EDGOUT; +/*uniqueobj*/ if (!/*_.VALDATA___V509*/ meltfptr[508]) /*_.VALDATA___V509*/ meltfptr[508] = (void*)&cdat->dsym_430__MCHGX_EDGOUT; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_430__MCHGX_EDGOUT", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_430__MCHGX_EDGOUT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); cdat->dsym_430__MCHGX_EDGOUT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); @@ -18737,27 +18821,27 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef cdat->dsym_430__MCHGX_EDGOUT.obj_len = 3; /*inistring dstr_431__MCHGX_EDGOUT*/ - /*_.VALSTR___V509*/ meltfptr[508] = (void*)&cdat->dstr_431__MCHGX_EDGOUT; + /*_.VALSTR___V510*/ meltfptr[509] = (void*)&cdat->dstr_431__MCHGX_EDGOUT; cdat->dstr_431__MCHGX_EDGOUT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); strncpy(cdat->dstr_431__MCHGX_EDGOUT.val, "MCHGX_EDGOUT", sizeof (cdat->dstr_431__MCHGX_EDGOUT.val)-1); /*^iniobj*/ /*iniobj dobj_432__MCHGX_EDGOUT*/ -/*_.VALDATA___V497*/ meltfptr[496] = (void*)&cdat->dobj_432__MCHGX_EDGOUT; +/*_.VALDATA___V498*/ meltfptr[497] = (void*)&cdat->dobj_432__MCHGX_EDGOUT; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_432__MCHGX_EDGOUT", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_432__MCHGX_EDGOUT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_432__MCHGX_EDGOUT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_432__MCHGX_EDGOUT.obj_num = 3; - cdat->dobj_432__MCHGX_EDGOUT.obj_hash = 334132559; + cdat->dobj_432__MCHGX_EDGOUT.obj_hash = 459443290; cdat->dobj_432__MCHGX_EDGOUT.obj_len = 4; /*inistring dstr_433__MCHGX_EDGOUT*/ - /*_.VALSTR___V498*/ meltfptr[497] = (void*)&cdat->dstr_433__MCHGX_EDGOUT; + /*_.VALSTR___V499*/ meltfptr[498] = (void*)&cdat->dstr_433__MCHGX_EDGOUT; cdat->dstr_433__MCHGX_EDGOUT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); strncpy(cdat->dstr_433__MCHGX_EDGOUT.val, "MCHGX_EDGOUT", sizeof (cdat->dstr_433__MCHGX_EDGOUT.val)-1); /*iniobj dsym_434__MCHGX_DATANAMEMAP*/ -/*uniqueobj*/ if (!/*_.VALDATA___V510*/ meltfptr[509]) /*_.VALDATA___V510*/ meltfptr[509] = (void*)&cdat->dsym_434__MCHGX_DATANAMEMAP; +/*uniqueobj*/ if (!/*_.VALDATA___V511*/ meltfptr[510]) /*_.VALDATA___V511*/ meltfptr[510] = (void*)&cdat->dsym_434__MCHGX_DATANAMEMAP; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_434__MCHGX_DATANAMEMAP", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_434__MCHGX_DATANAMEMAP", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); cdat->dsym_434__MCHGX_DATANAMEMAP.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); @@ -18765,27 +18849,27 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef cdat->dsym_434__MCHGX_DATANAMEMAP.obj_len = 3; /*inistring dstr_435__MCHGX_DATANAMEMA*/ - /*_.VALSTR___V511*/ meltfptr[510] = (void*)&cdat->dstr_435__MCHGX_DATANAMEMA; + /*_.VALSTR___V512*/ meltfptr[511] = (void*)&cdat->dstr_435__MCHGX_DATANAMEMA; cdat->dstr_435__MCHGX_DATANAMEMA.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); strncpy(cdat->dstr_435__MCHGX_DATANAMEMA.val, "MCHGX_DATANAMEMAP", sizeof (cdat->dstr_435__MCHGX_DATANAMEMA.val)-1); /*^iniobj*/ /*iniobj dobj_436__MCHGX_DATANAMEMAP*/ -/*_.VALDATA___V499*/ meltfptr[498] = (void*)&cdat->dobj_436__MCHGX_DATANAMEMAP; +/*_.VALDATA___V500*/ meltfptr[499] = (void*)&cdat->dobj_436__MCHGX_DATANAMEMAP; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_436__MCHGX_DATANAMEMAP", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_436__MCHGX_DATANAMEMAP", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_436__MCHGX_DATANAMEMAP.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_436__MCHGX_DATANAMEMAP.obj_num = 4; - cdat->dobj_436__MCHGX_DATANAMEMAP.obj_hash = 483968845; + cdat->dobj_436__MCHGX_DATANAMEMAP.obj_hash = 755506397; cdat->dobj_436__MCHGX_DATANAMEMAP.obj_len = 4; /*inistring dstr_437__MCHGX_DATANAMEMA*/ - /*_.VALSTR___V500*/ meltfptr[499] = (void*)&cdat->dstr_437__MCHGX_DATANAMEMA; + /*_.VALSTR___V501*/ meltfptr[500] = (void*)&cdat->dstr_437__MCHGX_DATANAMEMA; cdat->dstr_437__MCHGX_DATANAMEMA.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); strncpy(cdat->dstr_437__MCHGX_DATANAMEMA.val, "MCHGX_DATANAMEMAP", sizeof (cdat->dstr_437__MCHGX_DATANAMEMA.val)-1); /*iniobj dsym_438__MCHGX_STEPNAMEMAP*/ -/*uniqueobj*/ if (!/*_.VALDATA___V512*/ meltfptr[511]) /*_.VALDATA___V512*/ meltfptr[511] = (void*)&cdat->dsym_438__MCHGX_STEPNAMEMAP; +/*uniqueobj*/ if (!/*_.VALDATA___V513*/ meltfptr[512]) /*_.VALDATA___V513*/ meltfptr[512] = (void*)&cdat->dsym_438__MCHGX_STEPNAMEMAP; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_438__MCHGX_STEPNAMEMAP", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_438__MCHGX_STEPNAMEMAP", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); cdat->dsym_438__MCHGX_STEPNAMEMAP.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); @@ -18793,39 +18877,39 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef cdat->dsym_438__MCHGX_STEPNAMEMAP.obj_len = 3; /*inistring dstr_439__MCHGX_STEPNAMEMA*/ - /*_.VALSTR___V513*/ meltfptr[512] = (void*)&cdat->dstr_439__MCHGX_STEPNAMEMA; + /*_.VALSTR___V514*/ meltfptr[513] = (void*)&cdat->dstr_439__MCHGX_STEPNAMEMA; cdat->dstr_439__MCHGX_STEPNAMEMA.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); strncpy(cdat->dstr_439__MCHGX_STEPNAMEMA.val, "MCHGX_STEPNAMEMAP", sizeof (cdat->dstr_439__MCHGX_STEPNAMEMA.val)-1); /*^iniobj*/ /*iniobj dobj_440__MCHGX_STEPNAMEMAP*/ -/*_.VALDATA___V501*/ meltfptr[500] = (void*)&cdat->dobj_440__MCHGX_STEPNAMEMAP; +/*_.VALDATA___V502*/ meltfptr[501] = (void*)&cdat->dobj_440__MCHGX_STEPNAMEMAP; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_440__MCHGX_STEPNAMEMAP", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_440__MCHGX_STEPNAMEMAP", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_440__MCHGX_STEPNAMEMAP.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_440__MCHGX_STEPNAMEMAP.obj_num = 5; - cdat->dobj_440__MCHGX_STEPNAMEMAP.obj_hash = 200240151; + cdat->dobj_440__MCHGX_STEPNAMEMAP.obj_hash = 188439852; cdat->dobj_440__MCHGX_STEPNAMEMAP.obj_len = 4; /*inistring dstr_441__MCHGX_STEPNAMEMA*/ - /*_.VALSTR___V502*/ meltfptr[501] = (void*)&cdat->dstr_441__MCHGX_STEPNAMEMA; + /*_.VALSTR___V503*/ meltfptr[502] = (void*)&cdat->dstr_441__MCHGX_STEPNAMEMA; cdat->dstr_441__MCHGX_STEPNAMEMA.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); strncpy(cdat->dstr_441__MCHGX_STEPNAMEMA.val, "MCHGX_STEPNAMEMAP", sizeof (cdat->dstr_441__MCHGX_STEPNAMEMA.val)-1); /*inirout drout_442__MG_OUT_NODE_NAME*/ - /*_.VALROUT___V514*/ meltfptr[513] = (void*)&cdat->drout_442__MG_OUT_NODE_NAME; + /*_.VALROUT___V515*/ meltfptr[514] = (void*)&cdat->drout_442__MG_OUT_NODE_NAME; cdat->drout_442__MG_OUT_NODE_NAME.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy(cdat->drout_442__MG_OUT_NODE_NAME.routdescr, "MG_OUT_NODE_NAME @warmelt-normatch.melt:1744", MELT_ROUTDESCR_LEN - 1); cdat->drout_442__MG_OUT_NODE_NAME.nbval = 2; MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_442__MG_OUT_NODE_NAME, meltrout_38_warmelt_normatch_MG_OUT_NODE_NAME); /*iniclos dclo_443__MG_OUT_NODE_NAME*/ - /*_.VALCLO___V515*/ meltfptr[514] = (void*)&cdat->dclo_443__MG_OUT_NODE_NAME; + /*_.VALCLO___V516*/ meltfptr[515] = (void*)&cdat->dclo_443__MG_OUT_NODE_NAME; cdat->dclo_443__MG_OUT_NODE_NAME.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); cdat->dclo_443__MG_OUT_NODE_NAME.nbval = 0; /*iniobj dsym_444__MATCHGRAPHIC_LABEL*/ -/*uniqueobj*/ if (!/*_.VALDATA___V516*/ meltfptr[515]) /*_.VALDATA___V516*/ meltfptr[515] = (void*)&cdat->dsym_444__MATCHGRAPHIC_LABEL; +/*uniqueobj*/ if (!/*_.VALDATA___V517*/ meltfptr[516]) /*_.VALDATA___V517*/ meltfptr[516] = (void*)&cdat->dsym_444__MATCHGRAPHIC_LABEL; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_444__MATCHGRAPHIC_LABEL", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_444__MATCHGRAPHIC_LABEL", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); cdat->dsym_444__MATCHGRAPHIC_LABEL.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); @@ -18833,38 +18917,38 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef cdat->dsym_444__MATCHGRAPHIC_LABEL.obj_len = 3; /*inistring dstr_445__MATCHGRAPHIC_LAB*/ - /*_.VALSTR___V517*/ meltfptr[516] = (void*)&cdat->dstr_445__MATCHGRAPHIC_LAB; + /*_.VALSTR___V518*/ meltfptr[517] = (void*)&cdat->dstr_445__MATCHGRAPHIC_LAB; cdat->dstr_445__MATCHGRAPHIC_LAB.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); strncpy(cdat->dstr_445__MATCHGRAPHIC_LAB.val, "MATCHGRAPHIC_LABEL", sizeof (cdat->dstr_445__MATCHGRAPHIC_LAB.val)-1); MELT_LOCATION("warmelt-normatch.melt:1767:/ iniobj"); /*iniobj dobj_446__MATCHGRAPHIC_LABEL*/ -/*_.VALDATA___V518*/ meltfptr[517] = (void*)&cdat->dobj_446__MATCHGRAPHIC_LABEL; +/*_.VALDATA___V519*/ meltfptr[518] = (void*)&cdat->dobj_446__MATCHGRAPHIC_LABEL; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_446__MATCHGRAPHIC_LABEL", melt_magic_discr (/*_.CLASS_SELECTOR__V8*/ meltfptr[7]) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_446__MATCHGRAPHIC_LABEL", ((meltobject_ptr_t) (/*_.CLASS_SELECTOR__V8*/ meltfptr[7]))->object_magic == OBMAG_OBJECT); cdat->dobj_446__MATCHGRAPHIC_LABEL.obj_class = (meltobject_ptr_t)(/*_.CLASS_SELECTOR__V8*/ meltfptr[7]); - cdat->dobj_446__MATCHGRAPHIC_LABEL.obj_hash = 411043873; + cdat->dobj_446__MATCHGRAPHIC_LABEL.obj_hash = 302470770; cdat->dobj_446__MATCHGRAPHIC_LABEL.obj_len = 4; /*inistring dstr_447__MATCHGRAPHIC_LAB*/ - /*_.VALSTR___V519*/ meltfptr[518] = (void*)&cdat->dstr_447__MATCHGRAPHIC_LAB; + /*_.VALSTR___V520*/ meltfptr[519] = (void*)&cdat->dstr_447__MATCHGRAPHIC_LAB; cdat->dstr_447__MATCHGRAPHIC_LAB.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); strncpy(cdat->dstr_447__MATCHGRAPHIC_LAB.val, "MATCHGRAPHIC_LABEL", sizeof (cdat->dstr_447__MATCHGRAPHIC_LAB.val)-1); /*inirout drout_448__MGLABEL_ANY_TEST*/ - /*_.VALROUT___V520*/ meltfptr[519] = (void*)&cdat->drout_448__MGLABEL_ANY_TEST; + /*_.VALROUT___V521*/ meltfptr[520] = (void*)&cdat->drout_448__MGLABEL_ANY_TEST; cdat->drout_448__MGLABEL_ANY_TEST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy(cdat->drout_448__MGLABEL_ANY_TEST.routdescr, "MGLABEL_ANY_TEST @warmelt-normatch.melt:1770", MELT_ROUTDESCR_LEN - 1); cdat->drout_448__MGLABEL_ANY_TEST.nbval = 7; MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_448__MGLABEL_ANY_TEST, meltrout_39_warmelt_normatch_MGLABEL_ANY_TEST); /*iniclos dclo_449__MGLABEL_ANY_TEST*/ - /*_.VALCLO___V521*/ meltfptr[520] = (void*)&cdat->dclo_449__MGLABEL_ANY_TEST; + /*_.VALCLO___V522*/ meltfptr[521] = (void*)&cdat->dclo_449__MGLABEL_ANY_TEST; cdat->dclo_449__MGLABEL_ANY_TEST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); cdat->dclo_449__MGLABEL_ANY_TEST.nbval = 0; /*iniobj dsym_450__CLASS_CLONED_SYMBOL*/ -/*uniqueobj*/ if (!/*_.VALDATA___V522*/ meltfptr[521]) /*_.VALDATA___V522*/ meltfptr[521] = (void*)&cdat->dsym_450__CLASS_CLONED_SYMBOL; +/*uniqueobj*/ if (!/*_.VALDATA___V523*/ meltfptr[522]) /*_.VALDATA___V523*/ meltfptr[522] = (void*)&cdat->dsym_450__CLASS_CLONED_SYMBOL; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_450__CLASS_CLONED_SYMBOL", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_450__CLASS_CLONED_SYMBOL", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); cdat->dsym_450__CLASS_CLONED_SYMBOL.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); @@ -18872,60 +18956,60 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef cdat->dsym_450__CLASS_CLONED_SYMBOL.obj_len = 3; /*inistring dstr_451__CLASS_CLONED_SYM*/ - /*_.VALSTR___V523*/ meltfptr[522] = (void*)&cdat->dstr_451__CLASS_CLONED_SYM; + /*_.VALSTR___V524*/ meltfptr[523] = (void*)&cdat->dstr_451__CLASS_CLONED_SYM; cdat->dstr_451__CLASS_CLONED_SYM.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); strncpy(cdat->dstr_451__CLASS_CLONED_SYM.val, "CLASS_CLONED_SYMBOL", sizeof (cdat->dstr_451__CLASS_CLONED_SYM.val)-1); /*inirout drout_452__MGLABEL_INSTANCE_TEST*/ - /*_.VALROUT___V524*/ meltfptr[523] = (void*)&cdat->drout_452__MGLABEL_INSTANCE_TEST; + /*_.VALROUT___V525*/ meltfptr[524] = (void*)&cdat->drout_452__MGLABEL_INSTANCE_TEST; cdat->drout_452__MGLABEL_INSTANCE_TEST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy(cdat->drout_452__MGLABEL_INSTANCE_TEST.routdescr, "MGLABEL_INSTANCE_TEST @warmelt-normatch.melt:1831", MELT_ROUTDESCR_LEN - 1); cdat->drout_452__MGLABEL_INSTANCE_TEST.nbval = 8; MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_452__MGLABEL_INSTANCE_TEST, meltrout_40_warmelt_normatch_MGLABEL_INSTANCE_TEST); /*iniclos dclo_453__MGLABEL_INSTANCE_TEST*/ - /*_.VALCLO___V525*/ meltfptr[524] = (void*)&cdat->dclo_453__MGLABEL_INSTANCE_TEST; + /*_.VALCLO___V526*/ meltfptr[525] = (void*)&cdat->dclo_453__MGLABEL_INSTANCE_TEST; cdat->dclo_453__MGLABEL_INSTANCE_TEST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); cdat->dclo_453__MGLABEL_INSTANCE_TEST.nbval = 0; /*inirout drout_454__MGLABEL_SUCCESS_TEST*/ - /*_.VALROUT___V526*/ meltfptr[525] = (void*)&cdat->drout_454__MGLABEL_SUCCESS_TEST; + /*_.VALROUT___V527*/ meltfptr[526] = (void*)&cdat->drout_454__MGLABEL_SUCCESS_TEST; cdat->drout_454__MGLABEL_SUCCESS_TEST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy(cdat->drout_454__MGLABEL_SUCCESS_TEST.routdescr, "MGLABEL_SUCCESS_TEST @warmelt-normatch.melt:1897", MELT_ROUTDESCR_LEN - 1); cdat->drout_454__MGLABEL_SUCCESS_TEST.nbval = 4; MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_454__MGLABEL_SUCCESS_TEST, meltrout_41_warmelt_normatch_MGLABEL_SUCCESS_TEST); /*iniclos dclo_455__MGLABEL_SUCCESS_TEST*/ - /*_.VALCLO___V527*/ meltfptr[526] = (void*)&cdat->dclo_455__MGLABEL_SUCCESS_TEST; + /*_.VALCLO___V528*/ meltfptr[527] = (void*)&cdat->dclo_455__MGLABEL_SUCCESS_TEST; cdat->dclo_455__MGLABEL_SUCCESS_TEST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); cdat->dclo_455__MGLABEL_SUCCESS_TEST.nbval = 0; /*inirout drout_456__MATCHGRAPHIC_TESTS*/ - /*_.VALROUT___V528*/ meltfptr[527] = (void*)&cdat->drout_456__MATCHGRAPHIC_TESTS; + /*_.VALROUT___V529*/ meltfptr[528] = (void*)&cdat->drout_456__MATCHGRAPHIC_TESTS; cdat->drout_456__MATCHGRAPHIC_TESTS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy(cdat->drout_456__MATCHGRAPHIC_TESTS.routdescr, "MATCHGRAPHIC_TESTS @warmelt-normatch.melt:1938", MELT_ROUTDESCR_LEN - 1); cdat->drout_456__MATCHGRAPHIC_TESTS.nbval = 5; MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_456__MATCHGRAPHIC_TESTS, meltrout_42_warmelt_normatch_MATCHGRAPHIC_TESTS); /*iniclos dclo_457__MATCHGRAPHIC_TESTS*/ - /*_.VALCLO___V529*/ meltfptr[528] = (void*)&cdat->dclo_457__MATCHGRAPHIC_TESTS; + /*_.VALCLO___V530*/ meltfptr[529] = (void*)&cdat->dclo_457__MATCHGRAPHIC_TESTS; cdat->dclo_457__MATCHGRAPHIC_TESTS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); cdat->dclo_457__MATCHGRAPHIC_TESTS.nbval = 0; /*inirout drout_458__MG_DRAW_MATCH_GRAPHVIZ_FILE*/ - /*_.VALROUT___V530*/ meltfptr[529] = (void*)&cdat->drout_458__MG_DRAW_MATCH_GRAPHVIZ_FILE; + /*_.VALROUT___V531*/ meltfptr[530] = (void*)&cdat->drout_458__MG_DRAW_MATCH_GRAPHVIZ_FILE; cdat->drout_458__MG_DRAW_MATCH_GRAPHVIZ_FILE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy(cdat->drout_458__MG_DRAW_MATCH_GRAPHVIZ_FILE.routdescr, "MG_DRAW_MATCH_GRAPHVIZ_FILE @warmelt-normatch.melt:1992", MELT_ROUTDESCR_LEN - 1); cdat->drout_458__MG_DRAW_MATCH_GRAPHVIZ_FILE.nbval = 5; MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_458__MG_DRAW_MATCH_GRAPHVIZ_FILE, meltrout_43_warmelt_normatch_MG_DRAW_MATCH_GRAPHVIZ_FILE); /*iniclos dclo_459__MG_DRAW_MATCH_GRAPHVIZ_FILE*/ - /*_.VALCLO___V531*/ meltfptr[530] = (void*)&cdat->dclo_459__MG_DRAW_MATCH_GRAPHVIZ_FILE; + /*_.VALCLO___V532*/ meltfptr[531] = (void*)&cdat->dclo_459__MG_DRAW_MATCH_GRAPHVIZ_FILE; cdat->dclo_459__MG_DRAW_MATCH_GRAPHVIZ_FILE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); cdat->dclo_459__MG_DRAW_MATCH_GRAPHVIZ_FILE.nbval = 0; /*iniobj dsym_460__DISCR_STRBUF*/ -/*uniqueobj*/ if (!/*_.VALDATA___V532*/ meltfptr[531]) /*_.VALDATA___V532*/ meltfptr[531] = (void*)&cdat->dsym_460__DISCR_STRBUF; +/*uniqueobj*/ if (!/*_.VALDATA___V533*/ meltfptr[532]) /*_.VALDATA___V533*/ meltfptr[532] = (void*)&cdat->dsym_460__DISCR_STRBUF; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_460__DISCR_STRBUF", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_460__DISCR_STRBUF", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); cdat->dsym_460__DISCR_STRBUF.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); @@ -18933,24 +19017,24 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef cdat->dsym_460__DISCR_STRBUF.obj_len = 3; /*inistring dstr_461__DISCR_STRBUF*/ - /*_.VALSTR___V533*/ meltfptr[532] = (void*)&cdat->dstr_461__DISCR_STRBUF; + /*_.VALSTR___V534*/ meltfptr[533] = (void*)&cdat->dstr_461__DISCR_STRBUF; cdat->dstr_461__DISCR_STRBUF.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); strncpy(cdat->dstr_461__DISCR_STRBUF.val, "DISCR_STRBUF", sizeof (cdat->dstr_461__DISCR_STRBUF.val)-1); /*inirout drout_462__NORMEXP_MATCH*/ - /*_.VALROUT___V534*/ meltfptr[533] = (void*)&cdat->drout_462__NORMEXP_MATCH; + /*_.VALROUT___V535*/ meltfptr[534] = (void*)&cdat->drout_462__NORMEXP_MATCH; cdat->drout_462__NORMEXP_MATCH.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy(cdat->drout_462__NORMEXP_MATCH.routdescr, "NORMEXP_MATCH @warmelt-normatch.melt:2060", MELT_ROUTDESCR_LEN - 1); cdat->drout_462__NORMEXP_MATCH.nbval = 39; MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_462__NORMEXP_MATCH, meltrout_44_warmelt_normatch_NORMEXP_MATCH); /*iniclos dclo_463__NORMEXP_MATCH*/ - /*_.VALCLO___V540*/ meltfptr[539] = (void*)&cdat->dclo_463__NORMEXP_MATCH; + /*_.VALCLO___V541*/ meltfptr[540] = (void*)&cdat->dclo_463__NORMEXP_MATCH; cdat->dclo_463__NORMEXP_MATCH.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); cdat->dclo_463__NORMEXP_MATCH.nbval = 0; /*iniobj dsym_464__CLASS_SOURCE_MATCH*/ -/*uniqueobj*/ if (!/*_.VALDATA___V541*/ meltfptr[540]) /*_.VALDATA___V541*/ meltfptr[540] = (void*)&cdat->dsym_464__CLASS_SOURCE_MATCH; +/*uniqueobj*/ if (!/*_.VALDATA___V542*/ meltfptr[541]) /*_.VALDATA___V542*/ meltfptr[541] = (void*)&cdat->dsym_464__CLASS_SOURCE_MATCH; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_464__CLASS_SOURCE_MATCH", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_464__CLASS_SOURCE_MATCH", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); cdat->dsym_464__CLASS_SOURCE_MATCH.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); @@ -18958,12 +19042,12 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef cdat->dsym_464__CLASS_SOURCE_MATCH.obj_len = 3; /*inistring dstr_465__CLASS_SOURCE_MAT*/ - /*_.VALSTR___V542*/ meltfptr[541] = (void*)&cdat->dstr_465__CLASS_SOURCE_MAT; + /*_.VALSTR___V543*/ meltfptr[542] = (void*)&cdat->dstr_465__CLASS_SOURCE_MAT; cdat->dstr_465__CLASS_SOURCE_MAT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); strncpy(cdat->dstr_465__CLASS_SOURCE_MAT.val, "CLASS_SOURCE_MATCH", sizeof (cdat->dstr_465__CLASS_SOURCE_MAT.val)-1); /*iniobj dsym_466__CLASS_ENVIRONMENT*/ -/*uniqueobj*/ if (!/*_.VALDATA___V543*/ meltfptr[542]) /*_.VALDATA___V543*/ meltfptr[542] = (void*)&cdat->dsym_466__CLASS_ENVIRONMENT; +/*uniqueobj*/ if (!/*_.VALDATA___V544*/ meltfptr[543]) /*_.VALDATA___V544*/ meltfptr[543] = (void*)&cdat->dsym_466__CLASS_ENVIRONMENT; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_466__CLASS_ENVIRONMENT", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_466__CLASS_ENVIRONMENT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); cdat->dsym_466__CLASS_ENVIRONMENT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); @@ -18971,12 +19055,12 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef cdat->dsym_466__CLASS_ENVIRONMENT.obj_len = 3; /*inistring dstr_467__CLASS_ENVIRONMEN*/ - /*_.VALSTR___V544*/ meltfptr[543] = (void*)&cdat->dstr_467__CLASS_ENVIRONMEN; + /*_.VALSTR___V545*/ meltfptr[544] = (void*)&cdat->dstr_467__CLASS_ENVIRONMEN; cdat->dstr_467__CLASS_ENVIRONMEN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); strncpy(cdat->dstr_467__CLASS_ENVIRONMEN.val, "CLASS_ENVIRONMENT", sizeof (cdat->dstr_467__CLASS_ENVIRONMEN.val)-1); /*iniobj dsym_468__MATCHED_*/ -/*uniqueobj*/ if (!/*_.VALDATA___V535*/ meltfptr[534]) /*_.VALDATA___V535*/ meltfptr[534] = (void*)&cdat->dsym_468__MATCHED_; +/*uniqueobj*/ if (!/*_.VALDATA___V536*/ meltfptr[535]) /*_.VALDATA___V536*/ meltfptr[535] = (void*)&cdat->dsym_468__MATCHED_; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_468__MATCHED_", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_468__MATCHED_", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); cdat->dsym_468__MATCHED_.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); @@ -18984,12 +19068,12 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef cdat->dsym_468__MATCHED_.obj_len = 3; /*inistring dstr_469__MATCHED_*/ - /*_.VALSTR___V536*/ meltfptr[535] = (void*)&cdat->dstr_469__MATCHED_; + /*_.VALSTR___V537*/ meltfptr[536] = (void*)&cdat->dstr_469__MATCHED_; cdat->dstr_469__MATCHED_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); strncpy(cdat->dstr_469__MATCHED_.val, "_MATCHED_", sizeof (cdat->dstr_469__MATCHED_.val)-1); /*iniobj dsym_470__CLASS_SOURCE_MATCH_CASE*/ -/*uniqueobj*/ if (!/*_.VALDATA___V545*/ meltfptr[544]) /*_.VALDATA___V545*/ meltfptr[544] = (void*)&cdat->dsym_470__CLASS_SOURCE_MATCH_CASE; +/*uniqueobj*/ if (!/*_.VALDATA___V546*/ meltfptr[545]) /*_.VALDATA___V546*/ meltfptr[545] = (void*)&cdat->dsym_470__CLASS_SOURCE_MATCH_CASE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_470__CLASS_SOURCE_MATCH_CASE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_470__CLASS_SOURCE_MATCH_CASE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); cdat->dsym_470__CLASS_SOURCE_MATCH_CASE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); @@ -18997,19 +19081,19 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef cdat->dsym_470__CLASS_SOURCE_MATCH_CASE.obj_len = 3; /*inistring dstr_471__CLASS_SOURCE_MAT*/ - /*_.VALSTR___V546*/ meltfptr[545] = (void*)&cdat->dstr_471__CLASS_SOURCE_MAT; + /*_.VALSTR___V547*/ meltfptr[546] = (void*)&cdat->dstr_471__CLASS_SOURCE_MAT; cdat->dstr_471__CLASS_SOURCE_MAT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); strncpy(cdat->dstr_471__CLASS_SOURCE_MAT.val, "CLASS_SOURCE_MATCH_CASE", sizeof (cdat->dstr_471__CLASS_SOURCE_MAT.val)-1); /*inirout drout_472__LAMBDA_*/ - /*_.VALROUT___V537*/ meltfptr[536] = (void*)&cdat->drout_472__LAMBDA_; + /*_.VALROUT___V538*/ meltfptr[537] = (void*)&cdat->drout_472__LAMBDA_; cdat->drout_472__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy(cdat->drout_472__LAMBDA_.routdescr, "LAMBDA_ @warmelt-normatch.melt:2159", MELT_ROUTDESCR_LEN - 1); cdat->drout_472__LAMBDA_.nbval = 2; MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_472__LAMBDA_, meltrout_45_warmelt_normatch_LAMBDA_); /*iniobj dsym_473__WRAP_NORMAL_LETSEQ*/ -/*uniqueobj*/ if (!/*_.VALDATA___V547*/ meltfptr[546]) /*_.VALDATA___V547*/ meltfptr[546] = (void*)&cdat->dsym_473__WRAP_NORMAL_LETSEQ; +/*uniqueobj*/ if (!/*_.VALDATA___V548*/ meltfptr[547]) /*_.VALDATA___V548*/ meltfptr[547] = (void*)&cdat->dsym_473__WRAP_NORMAL_LETSEQ; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_473__WRAP_NORMAL_LETSEQ", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_473__WRAP_NORMAL_LETSEQ", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); cdat->dsym_473__WRAP_NORMAL_LETSEQ.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); @@ -19017,12 +19101,12 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef cdat->dsym_473__WRAP_NORMAL_LETSEQ.obj_len = 3; /*inistring dstr_474__WRAP_NORMAL_LETS*/ - /*_.VALSTR___V548*/ meltfptr[547] = (void*)&cdat->dstr_474__WRAP_NORMAL_LETS; + /*_.VALSTR___V549*/ meltfptr[548] = (void*)&cdat->dstr_474__WRAP_NORMAL_LETS; cdat->dstr_474__WRAP_NORMAL_LETS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); strncpy(cdat->dstr_474__WRAP_NORMAL_LETS.val, "WRAP_NORMAL_LETSEQ", sizeof (cdat->dstr_474__WRAP_NORMAL_LETS.val)-1); /*iniobj dsym_475__CTYPE_VOID*/ -/*uniqueobj*/ if (!/*_.VALDATA___V549*/ meltfptr[548]) /*_.VALDATA___V549*/ meltfptr[548] = (void*)&cdat->dsym_475__CTYPE_VOID; +/*uniqueobj*/ if (!/*_.VALDATA___V550*/ meltfptr[549]) /*_.VALDATA___V550*/ meltfptr[549] = (void*)&cdat->dsym_475__CTYPE_VOID; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_475__CTYPE_VOID", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_475__CTYPE_VOID", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); cdat->dsym_475__CTYPE_VOID.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); @@ -19030,12 +19114,12 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef cdat->dsym_475__CTYPE_VOID.obj_len = 3; /*inistring dstr_476__CTYPE_VOID*/ - /*_.VALSTR___V550*/ meltfptr[549] = (void*)&cdat->dstr_476__CTYPE_VOID; + /*_.VALSTR___V551*/ meltfptr[550] = (void*)&cdat->dstr_476__CTYPE_VOID; cdat->dstr_476__CTYPE_VOID.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); strncpy(cdat->dstr_476__CTYPE_VOID.val, "CTYPE_VOID", sizeof (cdat->dstr_476__CTYPE_VOID.val)-1); /*iniobj dsym_477__MATCHRES_*/ -/*uniqueobj*/ if (!/*_.VALDATA___V538*/ meltfptr[537]) /*_.VALDATA___V538*/ meltfptr[537] = (void*)&cdat->dsym_477__MATCHRES_; +/*uniqueobj*/ if (!/*_.VALDATA___V539*/ meltfptr[538]) /*_.VALDATA___V539*/ meltfptr[538] = (void*)&cdat->dsym_477__MATCHRES_; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_477__MATCHRES_", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_477__MATCHRES_", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); cdat->dsym_477__MATCHRES_.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); @@ -19043,12 +19127,12 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef cdat->dsym_477__MATCHRES_.obj_len = 3; /*inistring dstr_478__MATCHRES_*/ - /*_.VALSTR___V539*/ meltfptr[538] = (void*)&cdat->dstr_478__MATCHRES_; + /*_.VALSTR___V540*/ meltfptr[539] = (void*)&cdat->dstr_478__MATCHRES_; cdat->dstr_478__MATCHRES_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); strncpy(cdat->dstr_478__MATCHRES_.val, "MATCHRES_", sizeof (cdat->dstr_478__MATCHRES_.val)-1); /*iniobj dsym_479__CLASS_MATCHING_CONTEXT*/ -/*uniqueobj*/ if (!/*_.VALDATA___V551*/ meltfptr[550]) /*_.VALDATA___V551*/ meltfptr[550] = (void*)&cdat->dsym_479__CLASS_MATCHING_CONTEXT; +/*uniqueobj*/ if (!/*_.VALDATA___V552*/ meltfptr[551]) /*_.VALDATA___V552*/ meltfptr[551] = (void*)&cdat->dsym_479__CLASS_MATCHING_CONTEXT; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_479__CLASS_MATCHING_CONTEXT", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_479__CLASS_MATCHING_CONTEXT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); cdat->dsym_479__CLASS_MATCHING_CONTEXT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); @@ -19056,2429 +19140,2864 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef cdat->dsym_479__CLASS_MATCHING_CONTEXT.obj_len = 3; /*inistring dstr_480__CLASS_MATCHING_C*/ - /*_.VALSTR___V552*/ meltfptr[551] = (void*)&cdat->dstr_480__CLASS_MATCHING_C; + /*_.VALSTR___V553*/ meltfptr[552] = (void*)&cdat->dstr_480__CLASS_MATCHING_C; cdat->dstr_480__CLASS_MATCHING_C.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); strncpy(cdat->dstr_480__CLASS_MATCHING_C.val, "CLASS_MATCHING_CONTEXT", sizeof (cdat->dstr_480__CLASS_MATCHING_C.val)-1); MELT_LOCATION("warmelt-normatch.melt:2390:/ iniobj"); /*iniobj dobj_481__CLASS_MATCHING_CONTEXT*/ -/*_.VALDATA___V553*/ meltfptr[552] = (void*)&cdat->dobj_481__CLASS_MATCHING_CONTEXT; +/*_.VALDATA___V554*/ meltfptr[553] = (void*)&cdat->dobj_481__CLASS_MATCHING_CONTEXT; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_481__CLASS_MATCHING_CONTEXT", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_CLASS)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_481__CLASS_MATCHING_CONTEXT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_481__CLASS_MATCHING_CONTEXT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_481__CLASS_MATCHING_CONTEXT.obj_num = OBMAG_OBJECT; - cdat->dobj_481__CLASS_MATCHING_CONTEXT.obj_hash = 45503997; + cdat->dobj_481__CLASS_MATCHING_CONTEXT.obj_hash = 756284336; cdat->dobj_481__CLASS_MATCHING_CONTEXT.obj_len = 8; /*inistring dstr_482__CLASS_MATCHING_C*/ - /*_.VALSTR___V554*/ meltfptr[553] = (void*)&cdat->dstr_482__CLASS_MATCHING_C; + /*_.VALSTR___V555*/ meltfptr[554] = (void*)&cdat->dstr_482__CLASS_MATCHING_C; cdat->dstr_482__CLASS_MATCHING_C.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); strncpy(cdat->dstr_482__CLASS_MATCHING_C.val, "CLASS_MATCHING_CONTEXT", sizeof (cdat->dstr_482__CLASS_MATCHING_C.val)-1); /*inimult dtup_483__CLASS_MATCHING_CONTEXT*/ - /*_.VALTUP___V555*/ meltfptr[554] = (void*)&cdat->dtup_483__CLASS_MATCHING_CONTEXT; + /*_.VALTUP___V556*/ meltfptr[555] = (void*)&cdat->dtup_483__CLASS_MATCHING_CONTEXT; cdat->dtup_483__CLASS_MATCHING_CONTEXT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); cdat->dtup_483__CLASS_MATCHING_CONTEXT.nbval = 1; /*inimult dtup_484__CLASS_MATCHING_CONTEXT*/ - /*_.VALTUP___V570*/ meltfptr[569] = (void*)&cdat->dtup_484__CLASS_MATCHING_CONTEXT; + /*_.VALTUP___V573*/ meltfptr[572] = (void*)&cdat->dtup_484__CLASS_MATCHING_CONTEXT; cdat->dtup_484__CLASS_MATCHING_CONTEXT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); - cdat->dtup_484__CLASS_MATCHING_CONTEXT.nbval = 7; - /*iniobj dsym_485__MXCT_NORMCTXT*/ -/*uniqueobj*/ if (!/*_.VALDATA___V571*/ meltfptr[570]) /*_.VALDATA___V571*/ meltfptr[570] = (void*)&cdat->dsym_485__MXCT_NORMCTXT; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_485__MXCT_NORMCTXT", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_485__MXCT_NORMCTXT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); - cdat->dsym_485__MXCT_NORMCTXT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_485__MXCT_NORMCTXT.obj_hash = 667730776; - cdat->dsym_485__MXCT_NORMCTXT.obj_len = 3; - - /*inistring dstr_486__MXCT_NORMCTXT*/ - /*_.VALSTR___V572*/ meltfptr[571] = (void*)&cdat->dstr_486__MXCT_NORMCTXT; - cdat->dstr_486__MXCT_NORMCTXT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_486__MXCT_NORMCTXT.val, "MXCT_NORMCTXT", sizeof (cdat->dstr_486__MXCT_NORMCTXT.val)-1); + cdat->dtup_484__CLASS_MATCHING_CONTEXT.nbval = 8; + /*iniobj dsym_485__MCTX_NORMCTXT*/ +/*uniqueobj*/ if (!/*_.VALDATA___V574*/ meltfptr[573]) /*_.VALDATA___V574*/ meltfptr[573] = (void*)&cdat->dsym_485__MCTX_NORMCTXT; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_485__MCTX_NORMCTXT", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_485__MCTX_NORMCTXT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); + cdat->dsym_485__MCTX_NORMCTXT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_485__MCTX_NORMCTXT.obj_hash = 652151548; + cdat->dsym_485__MCTX_NORMCTXT.obj_len = 3; + + /*inistring dstr_486__MCTX_NORMCTXT*/ + /*_.VALSTR___V575*/ meltfptr[574] = (void*)&cdat->dstr_486__MCTX_NORMCTXT; + cdat->dstr_486__MCTX_NORMCTXT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_486__MCTX_NORMCTXT.val, "MCTX_NORMCTXT", sizeof (cdat->dstr_486__MCTX_NORMCTXT.val)-1); /*^iniobj*/ - /*iniobj dobj_487__MXCT_NORMCTXT*/ -/*_.VALDATA___V556*/ meltfptr[555] = (void*)&cdat->dobj_487__MXCT_NORMCTXT; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_487__MXCT_NORMCTXT", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_487__MXCT_NORMCTXT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); - cdat->dobj_487__MXCT_NORMCTXT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); - cdat->dobj_487__MXCT_NORMCTXT.obj_num = 0; - cdat->dobj_487__MXCT_NORMCTXT.obj_hash = 868938448; - cdat->dobj_487__MXCT_NORMCTXT.obj_len = 4; - - /*inistring dstr_488__MXCT_NORMCTXT*/ - /*_.VALSTR___V557*/ meltfptr[556] = (void*)&cdat->dstr_488__MXCT_NORMCTXT; - cdat->dstr_488__MXCT_NORMCTXT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_488__MXCT_NORMCTXT.val, "MXCT_NORMCTXT", sizeof (cdat->dstr_488__MXCT_NORMCTXT.val)-1); - - /*iniobj dsym_489__MXCT_SOURCE*/ -/*uniqueobj*/ if (!/*_.VALDATA___V573*/ meltfptr[572]) /*_.VALDATA___V573*/ meltfptr[572] = (void*)&cdat->dsym_489__MXCT_SOURCE; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_489__MXCT_SOURCE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_489__MXCT_SOURCE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); - cdat->dsym_489__MXCT_SOURCE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_489__MXCT_SOURCE.obj_hash = 264179692; - cdat->dsym_489__MXCT_SOURCE.obj_len = 3; - - /*inistring dstr_490__MXCT_SOURCE*/ - /*_.VALSTR___V574*/ meltfptr[573] = (void*)&cdat->dstr_490__MXCT_SOURCE; - cdat->dstr_490__MXCT_SOURCE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_490__MXCT_SOURCE.val, "MXCT_SOURCE", sizeof (cdat->dstr_490__MXCT_SOURCE.val)-1); + /*iniobj dobj_487__MCTX_NORMCTXT*/ +/*_.VALDATA___V557*/ meltfptr[556] = (void*)&cdat->dobj_487__MCTX_NORMCTXT; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_487__MCTX_NORMCTXT", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_487__MCTX_NORMCTXT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); + cdat->dobj_487__MCTX_NORMCTXT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); + cdat->dobj_487__MCTX_NORMCTXT.obj_num = 0; + cdat->dobj_487__MCTX_NORMCTXT.obj_hash = 522862603; + cdat->dobj_487__MCTX_NORMCTXT.obj_len = 4; + + /*inistring dstr_488__MCTX_NORMCTXT*/ + /*_.VALSTR___V558*/ meltfptr[557] = (void*)&cdat->dstr_488__MCTX_NORMCTXT; + cdat->dstr_488__MCTX_NORMCTXT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_488__MCTX_NORMCTXT.val, "MCTX_NORMCTXT", sizeof (cdat->dstr_488__MCTX_NORMCTXT.val)-1); + + /*iniobj dsym_489__MCTX_SOURCE*/ +/*uniqueobj*/ if (!/*_.VALDATA___V576*/ meltfptr[575]) /*_.VALDATA___V576*/ meltfptr[575] = (void*)&cdat->dsym_489__MCTX_SOURCE; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_489__MCTX_SOURCE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_489__MCTX_SOURCE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); + cdat->dsym_489__MCTX_SOURCE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_489__MCTX_SOURCE.obj_hash = 818664043; + cdat->dsym_489__MCTX_SOURCE.obj_len = 3; + + /*inistring dstr_490__MCTX_SOURCE*/ + /*_.VALSTR___V577*/ meltfptr[576] = (void*)&cdat->dstr_490__MCTX_SOURCE; + cdat->dstr_490__MCTX_SOURCE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_490__MCTX_SOURCE.val, "MCTX_SOURCE", sizeof (cdat->dstr_490__MCTX_SOURCE.val)-1); /*^iniobj*/ - /*iniobj dobj_491__MXCT_SOURCE*/ -/*_.VALDATA___V558*/ meltfptr[557] = (void*)&cdat->dobj_491__MXCT_SOURCE; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_491__MXCT_SOURCE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_491__MXCT_SOURCE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); - cdat->dobj_491__MXCT_SOURCE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); - cdat->dobj_491__MXCT_SOURCE.obj_num = 1; - cdat->dobj_491__MXCT_SOURCE.obj_hash = 47424719; - cdat->dobj_491__MXCT_SOURCE.obj_len = 4; - - /*inistring dstr_492__MXCT_SOURCE*/ - /*_.VALSTR___V559*/ meltfptr[558] = (void*)&cdat->dstr_492__MXCT_SOURCE; - cdat->dstr_492__MXCT_SOURCE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_492__MXCT_SOURCE.val, "MXCT_SOURCE", sizeof (cdat->dstr_492__MXCT_SOURCE.val)-1); - - /*iniobj dsym_493__MXCT_NMATCHED*/ -/*uniqueobj*/ if (!/*_.VALDATA___V575*/ meltfptr[574]) /*_.VALDATA___V575*/ meltfptr[574] = (void*)&cdat->dsym_493__MXCT_NMATCHED; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_493__MXCT_NMATCHED", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_493__MXCT_NMATCHED", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); - cdat->dsym_493__MXCT_NMATCHED.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_493__MXCT_NMATCHED.obj_hash = 547285323; - cdat->dsym_493__MXCT_NMATCHED.obj_len = 3; - - /*inistring dstr_494__MXCT_NMATCHED*/ - /*_.VALSTR___V576*/ meltfptr[575] = (void*)&cdat->dstr_494__MXCT_NMATCHED; - cdat->dstr_494__MXCT_NMATCHED.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_494__MXCT_NMATCHED.val, "MXCT_NMATCHED", sizeof (cdat->dstr_494__MXCT_NMATCHED.val)-1); + /*iniobj dobj_491__MCTX_SOURCE*/ +/*_.VALDATA___V559*/ meltfptr[558] = (void*)&cdat->dobj_491__MCTX_SOURCE; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_491__MCTX_SOURCE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_491__MCTX_SOURCE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); + cdat->dobj_491__MCTX_SOURCE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); + cdat->dobj_491__MCTX_SOURCE.obj_num = 1; + cdat->dobj_491__MCTX_SOURCE.obj_hash = 654417137; + cdat->dobj_491__MCTX_SOURCE.obj_len = 4; + + /*inistring dstr_492__MCTX_SOURCE*/ + /*_.VALSTR___V560*/ meltfptr[559] = (void*)&cdat->dstr_492__MCTX_SOURCE; + cdat->dstr_492__MCTX_SOURCE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_492__MCTX_SOURCE.val, "MCTX_SOURCE", sizeof (cdat->dstr_492__MCTX_SOURCE.val)-1); + + /*iniobj dsym_493__MCTX_NMATCHED*/ +/*uniqueobj*/ if (!/*_.VALDATA___V578*/ meltfptr[577]) /*_.VALDATA___V578*/ meltfptr[577] = (void*)&cdat->dsym_493__MCTX_NMATCHED; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_493__MCTX_NMATCHED", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_493__MCTX_NMATCHED", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); + cdat->dsym_493__MCTX_NMATCHED.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_493__MCTX_NMATCHED.obj_hash = 251741466; + cdat->dsym_493__MCTX_NMATCHED.obj_len = 3; + + /*inistring dstr_494__MCTX_NMATCHED*/ + /*_.VALSTR___V579*/ meltfptr[578] = (void*)&cdat->dstr_494__MCTX_NMATCHED; + cdat->dstr_494__MCTX_NMATCHED.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_494__MCTX_NMATCHED.val, "MCTX_NMATCHED", sizeof (cdat->dstr_494__MCTX_NMATCHED.val)-1); /*^iniobj*/ - /*iniobj dobj_495__MXCT_NMATCHED*/ -/*_.VALDATA___V560*/ meltfptr[559] = (void*)&cdat->dobj_495__MXCT_NMATCHED; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_495__MXCT_NMATCHED", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_495__MXCT_NMATCHED", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); - cdat->dobj_495__MXCT_NMATCHED.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); - cdat->dobj_495__MXCT_NMATCHED.obj_num = 2; - cdat->dobj_495__MXCT_NMATCHED.obj_hash = 676152150; - cdat->dobj_495__MXCT_NMATCHED.obj_len = 4; - - /*inistring dstr_496__MXCT_NMATCHED*/ - /*_.VALSTR___V561*/ meltfptr[560] = (void*)&cdat->dstr_496__MXCT_NMATCHED; - cdat->dstr_496__MXCT_NMATCHED.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_496__MXCT_NMATCHED.val, "MXCT_NMATCHED", sizeof (cdat->dstr_496__MXCT_NMATCHED.val)-1); - - /*iniobj dsym_497__MXCT_CASES*/ -/*uniqueobj*/ if (!/*_.VALDATA___V577*/ meltfptr[576]) /*_.VALDATA___V577*/ meltfptr[576] = (void*)&cdat->dsym_497__MXCT_CASES; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_497__MXCT_CASES", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_497__MXCT_CASES", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); - cdat->dsym_497__MXCT_CASES.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_497__MXCT_CASES.obj_hash = 313321904; - cdat->dsym_497__MXCT_CASES.obj_len = 3; - - /*inistring dstr_498__MXCT_CASES*/ - /*_.VALSTR___V578*/ meltfptr[577] = (void*)&cdat->dstr_498__MXCT_CASES; - cdat->dstr_498__MXCT_CASES.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_498__MXCT_CASES.val, "MXCT_CASES", sizeof (cdat->dstr_498__MXCT_CASES.val)-1); + /*iniobj dobj_495__MCTX_NMATCHED*/ +/*_.VALDATA___V561*/ meltfptr[560] = (void*)&cdat->dobj_495__MCTX_NMATCHED; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_495__MCTX_NMATCHED", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_495__MCTX_NMATCHED", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); + cdat->dobj_495__MCTX_NMATCHED.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); + cdat->dobj_495__MCTX_NMATCHED.obj_num = 2; + cdat->dobj_495__MCTX_NMATCHED.obj_hash = 530907165; + cdat->dobj_495__MCTX_NMATCHED.obj_len = 4; + + /*inistring dstr_496__MCTX_NMATCHED*/ + /*_.VALSTR___V562*/ meltfptr[561] = (void*)&cdat->dstr_496__MCTX_NMATCHED; + cdat->dstr_496__MCTX_NMATCHED.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_496__MCTX_NMATCHED.val, "MCTX_NMATCHED", sizeof (cdat->dstr_496__MCTX_NMATCHED.val)-1); + + /*iniobj dsym_497__MCTX_CASES*/ +/*uniqueobj*/ if (!/*_.VALDATA___V580*/ meltfptr[579]) /*_.VALDATA___V580*/ meltfptr[579] = (void*)&cdat->dsym_497__MCTX_CASES; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_497__MCTX_CASES", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_497__MCTX_CASES", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); + cdat->dsym_497__MCTX_CASES.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_497__MCTX_CASES.obj_hash = 1359414; + cdat->dsym_497__MCTX_CASES.obj_len = 3; + + /*inistring dstr_498__MCTX_CASES*/ + /*_.VALSTR___V581*/ meltfptr[580] = (void*)&cdat->dstr_498__MCTX_CASES; + cdat->dstr_498__MCTX_CASES.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_498__MCTX_CASES.val, "MCTX_CASES", sizeof (cdat->dstr_498__MCTX_CASES.val)-1); /*^iniobj*/ - /*iniobj dobj_499__MXCT_CASES*/ -/*_.VALDATA___V562*/ meltfptr[561] = (void*)&cdat->dobj_499__MXCT_CASES; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_499__MXCT_CASES", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_499__MXCT_CASES", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); - cdat->dobj_499__MXCT_CASES.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); - cdat->dobj_499__MXCT_CASES.obj_num = 3; - cdat->dobj_499__MXCT_CASES.obj_hash = 690547154; - cdat->dobj_499__MXCT_CASES.obj_len = 4; - - /*inistring dstr_500__MXCT_CASES*/ - /*_.VALSTR___V563*/ meltfptr[562] = (void*)&cdat->dstr_500__MXCT_CASES; - cdat->dstr_500__MXCT_CASES.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_500__MXCT_CASES.val, "MXCT_CASES", sizeof (cdat->dstr_500__MXCT_CASES.val)-1); - - /*iniobj dsym_501__MXCT_ENV*/ -/*uniqueobj*/ if (!/*_.VALDATA___V579*/ meltfptr[578]) /*_.VALDATA___V579*/ meltfptr[578] = (void*)&cdat->dsym_501__MXCT_ENV; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_501__MXCT_ENV", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_501__MXCT_ENV", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); - cdat->dsym_501__MXCT_ENV.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_501__MXCT_ENV.obj_hash = 695158265; - cdat->dsym_501__MXCT_ENV.obj_len = 3; - - /*inistring dstr_502__MXCT_ENV*/ - /*_.VALSTR___V580*/ meltfptr[579] = (void*)&cdat->dstr_502__MXCT_ENV; - cdat->dstr_502__MXCT_ENV.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_502__MXCT_ENV.val, "MXCT_ENV", sizeof (cdat->dstr_502__MXCT_ENV.val)-1); + /*iniobj dobj_499__MCTX_CASES*/ +/*_.VALDATA___V563*/ meltfptr[562] = (void*)&cdat->dobj_499__MCTX_CASES; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_499__MCTX_CASES", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_499__MCTX_CASES", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); + cdat->dobj_499__MCTX_CASES.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); + cdat->dobj_499__MCTX_CASES.obj_num = 3; + cdat->dobj_499__MCTX_CASES.obj_hash = 999165380; + cdat->dobj_499__MCTX_CASES.obj_len = 4; + + /*inistring dstr_500__MCTX_CASES*/ + /*_.VALSTR___V564*/ meltfptr[563] = (void*)&cdat->dstr_500__MCTX_CASES; + cdat->dstr_500__MCTX_CASES.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_500__MCTX_CASES.val, "MCTX_CASES", sizeof (cdat->dstr_500__MCTX_CASES.val)-1); + + /*iniobj dsym_501__MCTX_ENV*/ +/*uniqueobj*/ if (!/*_.VALDATA___V582*/ meltfptr[581]) /*_.VALDATA___V582*/ meltfptr[581] = (void*)&cdat->dsym_501__MCTX_ENV; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_501__MCTX_ENV", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_501__MCTX_ENV", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); + cdat->dsym_501__MCTX_ENV.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_501__MCTX_ENV.obj_hash = 845670588; + cdat->dsym_501__MCTX_ENV.obj_len = 3; + + /*inistring dstr_502__MCTX_ENV*/ + /*_.VALSTR___V583*/ meltfptr[582] = (void*)&cdat->dstr_502__MCTX_ENV; + cdat->dstr_502__MCTX_ENV.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_502__MCTX_ENV.val, "MCTX_ENV", sizeof (cdat->dstr_502__MCTX_ENV.val)-1); /*^iniobj*/ - /*iniobj dobj_503__MXCT_ENV*/ -/*_.VALDATA___V564*/ meltfptr[563] = (void*)&cdat->dobj_503__MXCT_ENV; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_503__MXCT_ENV", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_503__MXCT_ENV", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); - cdat->dobj_503__MXCT_ENV.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); - cdat->dobj_503__MXCT_ENV.obj_num = 4; - cdat->dobj_503__MXCT_ENV.obj_hash = 984556398; - cdat->dobj_503__MXCT_ENV.obj_len = 4; - - /*inistring dstr_504__MXCT_ENV*/ - /*_.VALSTR___V565*/ meltfptr[564] = (void*)&cdat->dstr_504__MXCT_ENV; - cdat->dstr_504__MXCT_ENV.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_504__MXCT_ENV.val, "MXCT_ENV", sizeof (cdat->dstr_504__MXCT_ENV.val)-1); - - /*iniobj dsym_505__MXCT_MDATA*/ -/*uniqueobj*/ if (!/*_.VALDATA___V581*/ meltfptr[580]) /*_.VALDATA___V581*/ meltfptr[580] = (void*)&cdat->dsym_505__MXCT_MDATA; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_505__MXCT_MDATA", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_505__MXCT_MDATA", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); - cdat->dsym_505__MXCT_MDATA.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_505__MXCT_MDATA.obj_hash = 696765296; - cdat->dsym_505__MXCT_MDATA.obj_len = 3; - - /*inistring dstr_506__MXCT_MDATA*/ - /*_.VALSTR___V582*/ meltfptr[581] = (void*)&cdat->dstr_506__MXCT_MDATA; - cdat->dstr_506__MXCT_MDATA.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_506__MXCT_MDATA.val, "MXCT_MDATA", sizeof (cdat->dstr_506__MXCT_MDATA.val)-1); + /*iniobj dobj_503__MCTX_ENV*/ +/*_.VALDATA___V565*/ meltfptr[564] = (void*)&cdat->dobj_503__MCTX_ENV; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_503__MCTX_ENV", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_503__MCTX_ENV", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); + cdat->dobj_503__MCTX_ENV.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); + cdat->dobj_503__MCTX_ENV.obj_num = 4; + cdat->dobj_503__MCTX_ENV.obj_hash = 1051187067; + cdat->dobj_503__MCTX_ENV.obj_len = 4; + + /*inistring dstr_504__MCTX_ENV*/ + /*_.VALSTR___V566*/ meltfptr[565] = (void*)&cdat->dstr_504__MCTX_ENV; + cdat->dstr_504__MCTX_ENV.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_504__MCTX_ENV.val, "MCTX_ENV", sizeof (cdat->dstr_504__MCTX_ENV.val)-1); + + /*iniobj dsym_505__MCTX_MDATA*/ +/*uniqueobj*/ if (!/*_.VALDATA___V584*/ meltfptr[583]) /*_.VALDATA___V584*/ meltfptr[583] = (void*)&cdat->dsym_505__MCTX_MDATA; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_505__MCTX_MDATA", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_505__MCTX_MDATA", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); + cdat->dsym_505__MCTX_MDATA.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_505__MCTX_MDATA.obj_hash = 370736409; + cdat->dsym_505__MCTX_MDATA.obj_len = 3; + + /*inistring dstr_506__MCTX_MDATA*/ + /*_.VALSTR___V585*/ meltfptr[584] = (void*)&cdat->dstr_506__MCTX_MDATA; + cdat->dstr_506__MCTX_MDATA.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_506__MCTX_MDATA.val, "MCTX_MDATA", sizeof (cdat->dstr_506__MCTX_MDATA.val)-1); /*^iniobj*/ - /*iniobj dobj_507__MXCT_MDATA*/ -/*_.VALDATA___V566*/ meltfptr[565] = (void*)&cdat->dobj_507__MXCT_MDATA; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_507__MXCT_MDATA", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_507__MXCT_MDATA", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); - cdat->dobj_507__MXCT_MDATA.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); - cdat->dobj_507__MXCT_MDATA.obj_num = 5; - cdat->dobj_507__MXCT_MDATA.obj_hash = 492788686; - cdat->dobj_507__MXCT_MDATA.obj_len = 4; - - /*inistring dstr_508__MXCT_MDATA*/ - /*_.VALSTR___V567*/ meltfptr[566] = (void*)&cdat->dstr_508__MXCT_MDATA; - cdat->dstr_508__MXCT_MDATA.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_508__MXCT_MDATA.val, "MXCT_MDATA", sizeof (cdat->dstr_508__MXCT_MDATA.val)-1); - - /*iniobj dsym_509__MXCT_VARHANDLERS*/ -/*uniqueobj*/ if (!/*_.VALDATA___V583*/ meltfptr[582]) /*_.VALDATA___V583*/ meltfptr[582] = (void*)&cdat->dsym_509__MXCT_VARHANDLERS; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_509__MXCT_VARHANDLERS", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_509__MXCT_VARHANDLERS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); - cdat->dsym_509__MXCT_VARHANDLERS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_509__MXCT_VARHANDLERS.obj_hash = 852004112; - cdat->dsym_509__MXCT_VARHANDLERS.obj_len = 3; - - /*inistring dstr_510__MXCT_VARHANDLERS*/ - /*_.VALSTR___V584*/ meltfptr[583] = (void*)&cdat->dstr_510__MXCT_VARHANDLERS; - cdat->dstr_510__MXCT_VARHANDLERS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_510__MXCT_VARHANDLERS.val, "MXCT_VARHANDLERS", sizeof (cdat->dstr_510__MXCT_VARHANDLERS.val)-1); + /*iniobj dobj_507__MCTX_MDATA*/ +/*_.VALDATA___V567*/ meltfptr[566] = (void*)&cdat->dobj_507__MCTX_MDATA; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_507__MCTX_MDATA", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_507__MCTX_MDATA", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); + cdat->dobj_507__MCTX_MDATA.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); + cdat->dobj_507__MCTX_MDATA.obj_num = 5; + cdat->dobj_507__MCTX_MDATA.obj_hash = 943106337; + cdat->dobj_507__MCTX_MDATA.obj_len = 4; + + /*inistring dstr_508__MCTX_MDATA*/ + /*_.VALSTR___V568*/ meltfptr[567] = (void*)&cdat->dstr_508__MCTX_MDATA; + cdat->dstr_508__MCTX_MDATA.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_508__MCTX_MDATA.val, "MCTX_MDATA", sizeof (cdat->dstr_508__MCTX_MDATA.val)-1); + + /*iniobj dsym_509__MCTX_VARHANDLERS*/ +/*uniqueobj*/ if (!/*_.VALDATA___V586*/ meltfptr[585]) /*_.VALDATA___V586*/ meltfptr[585] = (void*)&cdat->dsym_509__MCTX_VARHANDLERS; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_509__MCTX_VARHANDLERS", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_509__MCTX_VARHANDLERS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); + cdat->dsym_509__MCTX_VARHANDLERS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_509__MCTX_VARHANDLERS.obj_hash = 854846232; + cdat->dsym_509__MCTX_VARHANDLERS.obj_len = 3; + + /*inistring dstr_510__MCTX_VARHANDLERS*/ + /*_.VALSTR___V587*/ meltfptr[586] = (void*)&cdat->dstr_510__MCTX_VARHANDLERS; + cdat->dstr_510__MCTX_VARHANDLERS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_510__MCTX_VARHANDLERS.val, "MCTX_VARHANDLERS", sizeof (cdat->dstr_510__MCTX_VARHANDLERS.val)-1); /*^iniobj*/ - /*iniobj dobj_511__MXCT_VARHANDLERS*/ -/*_.VALDATA___V568*/ meltfptr[567] = (void*)&cdat->dobj_511__MXCT_VARHANDLERS; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_511__MXCT_VARHANDLERS", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_511__MXCT_VARHANDLERS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); - cdat->dobj_511__MXCT_VARHANDLERS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); - cdat->dobj_511__MXCT_VARHANDLERS.obj_num = 6; - cdat->dobj_511__MXCT_VARHANDLERS.obj_hash = 53124061; - cdat->dobj_511__MXCT_VARHANDLERS.obj_len = 4; - - /*inistring dstr_512__MXCT_VARHANDLERS*/ - /*_.VALSTR___V569*/ meltfptr[568] = (void*)&cdat->dstr_512__MXCT_VARHANDLERS; - cdat->dstr_512__MXCT_VARHANDLERS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_512__MXCT_VARHANDLERS.val, "MXCT_VARHANDLERS", sizeof (cdat->dstr_512__MXCT_VARHANDLERS.val)-1); - - /*iniobj dsym_513__CLASS_MATCH_CASE*/ -/*uniqueobj*/ if (!/*_.VALDATA___V585*/ meltfptr[584]) /*_.VALDATA___V585*/ meltfptr[584] = (void*)&cdat->dsym_513__CLASS_MATCH_CASE; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_513__CLASS_MATCH_CASE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_513__CLASS_MATCH_CASE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); - cdat->dsym_513__CLASS_MATCH_CASE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_513__CLASS_MATCH_CASE.obj_hash = 949216192; - cdat->dsym_513__CLASS_MATCH_CASE.obj_len = 3; - - /*inistring dstr_514__CLASS_MATCH_CASE*/ - /*_.VALSTR___V586*/ meltfptr[585] = (void*)&cdat->dstr_514__CLASS_MATCH_CASE; - cdat->dstr_514__CLASS_MATCH_CASE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_514__CLASS_MATCH_CASE.val, "CLASS_MATCH_CASE", sizeof (cdat->dstr_514__CLASS_MATCH_CASE.val)-1); - - MELT_LOCATION("warmelt-normatch.melt:2410:/ iniobj"); - /*iniobj dobj_515__CLASS_MATCH_CASE*/ -/*_.VALDATA___V587*/ meltfptr[586] = (void*)&cdat->dobj_515__CLASS_MATCH_CASE; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_515__CLASS_MATCH_CASE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_CLASS)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_515__CLASS_MATCH_CASE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); - cdat->dobj_515__CLASS_MATCH_CASE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); - cdat->dobj_515__CLASS_MATCH_CASE.obj_num = OBMAG_OBJECT; - cdat->dobj_515__CLASS_MATCH_CASE.obj_hash = 792092863; - cdat->dobj_515__CLASS_MATCH_CASE.obj_len = 8; - - /*inistring dstr_516__CLASS_MATCH_CASE*/ - /*_.VALSTR___V588*/ meltfptr[587] = (void*)&cdat->dstr_516__CLASS_MATCH_CASE; - cdat->dstr_516__CLASS_MATCH_CASE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_516__CLASS_MATCH_CASE.val, "CLASS_MATCH_CASE", sizeof (cdat->dstr_516__CLASS_MATCH_CASE.val)-1); - - /*inimult dtup_517__CLASS_MATCH_CASE*/ - /*_.VALTUP___V589*/ meltfptr[588] = (void*)&cdat->dtup_517__CLASS_MATCH_CASE; - cdat->dtup_517__CLASS_MATCH_CASE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); - cdat->dtup_517__CLASS_MATCH_CASE.nbval = 2; - /*inimult dtup_518__CLASS_MATCH_CASE*/ - /*_.VALTUP___V598*/ meltfptr[597] = (void*)&cdat->dtup_518__CLASS_MATCH_CASE; - cdat->dtup_518__CLASS_MATCH_CASE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); - cdat->dtup_518__CLASS_MATCH_CASE.nbval = 5; - /*iniobj dsym_519__MCASE_MCTXT*/ -/*uniqueobj*/ if (!/*_.VALDATA___V599*/ meltfptr[598]) /*_.VALDATA___V599*/ meltfptr[598] = (void*)&cdat->dsym_519__MCASE_MCTXT; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_519__MCASE_MCTXT", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_519__MCASE_MCTXT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); - cdat->dsym_519__MCASE_MCTXT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_519__MCASE_MCTXT.obj_hash = 149622940; - cdat->dsym_519__MCASE_MCTXT.obj_len = 3; - - /*inistring dstr_520__MCASE_MCTXT*/ - /*_.VALSTR___V600*/ meltfptr[599] = (void*)&cdat->dstr_520__MCASE_MCTXT; - cdat->dstr_520__MCASE_MCTXT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_520__MCASE_MCTXT.val, "MCASE_MCTXT", sizeof (cdat->dstr_520__MCASE_MCTXT.val)-1); + /*iniobj dobj_511__MCTX_VARHANDLERS*/ +/*_.VALDATA___V569*/ meltfptr[568] = (void*)&cdat->dobj_511__MCTX_VARHANDLERS; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_511__MCTX_VARHANDLERS", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_511__MCTX_VARHANDLERS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); + cdat->dobj_511__MCTX_VARHANDLERS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); + cdat->dobj_511__MCTX_VARHANDLERS.obj_num = 6; + cdat->dobj_511__MCTX_VARHANDLERS.obj_hash = 469922498; + cdat->dobj_511__MCTX_VARHANDLERS.obj_len = 4; + + /*inistring dstr_512__MCTX_VARHANDLERS*/ + /*_.VALSTR___V570*/ meltfptr[569] = (void*)&cdat->dstr_512__MCTX_VARHANDLERS; + cdat->dstr_512__MCTX_VARHANDLERS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_512__MCTX_VARHANDLERS.val, "MCTX_VARHANDLERS", sizeof (cdat->dstr_512__MCTX_VARHANDLERS.val)-1); + + /*iniobj dsym_513__MCTX_FLAGS*/ +/*uniqueobj*/ if (!/*_.VALDATA___V588*/ meltfptr[587]) /*_.VALDATA___V588*/ meltfptr[587] = (void*)&cdat->dsym_513__MCTX_FLAGS; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_513__MCTX_FLAGS", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_513__MCTX_FLAGS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); + cdat->dsym_513__MCTX_FLAGS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_513__MCTX_FLAGS.obj_hash = 829770953; + cdat->dsym_513__MCTX_FLAGS.obj_len = 3; + + /*inistring dstr_514__MCTX_FLAGS*/ + /*_.VALSTR___V589*/ meltfptr[588] = (void*)&cdat->dstr_514__MCTX_FLAGS; + cdat->dstr_514__MCTX_FLAGS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_514__MCTX_FLAGS.val, "MCTX_FLAGS", sizeof (cdat->dstr_514__MCTX_FLAGS.val)-1); /*^iniobj*/ - /*iniobj dobj_521__MCASE_MCTXT*/ -/*_.VALDATA___V590*/ meltfptr[589] = (void*)&cdat->dobj_521__MCASE_MCTXT; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_521__MCASE_MCTXT", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_521__MCASE_MCTXT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); - cdat->dobj_521__MCASE_MCTXT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); - cdat->dobj_521__MCASE_MCTXT.obj_num = 1; - cdat->dobj_521__MCASE_MCTXT.obj_hash = 228435124; - cdat->dobj_521__MCASE_MCTXT.obj_len = 4; - - /*inistring dstr_522__MCASE_MCTXT*/ - /*_.VALSTR___V591*/ meltfptr[590] = (void*)&cdat->dstr_522__MCASE_MCTXT; - cdat->dstr_522__MCASE_MCTXT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_522__MCASE_MCTXT.val, "MCASE_MCTXT", sizeof (cdat->dstr_522__MCASE_MCTXT.val)-1); - - /*iniobj dsym_523__MCASE_SOURCE*/ -/*uniqueobj*/ if (!/*_.VALDATA___V601*/ meltfptr[600]) /*_.VALDATA___V601*/ meltfptr[600] = (void*)&cdat->dsym_523__MCASE_SOURCE; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_523__MCASE_SOURCE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_523__MCASE_SOURCE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); - cdat->dsym_523__MCASE_SOURCE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_523__MCASE_SOURCE.obj_hash = 903506654; - cdat->dsym_523__MCASE_SOURCE.obj_len = 3; - - /*inistring dstr_524__MCASE_SOURCE*/ - /*_.VALSTR___V602*/ meltfptr[601] = (void*)&cdat->dstr_524__MCASE_SOURCE; - cdat->dstr_524__MCASE_SOURCE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_524__MCASE_SOURCE.val, "MCASE_SOURCE", sizeof (cdat->dstr_524__MCASE_SOURCE.val)-1); + /*iniobj dobj_515__MCTX_FLAGS*/ +/*_.VALDATA___V571*/ meltfptr[570] = (void*)&cdat->dobj_515__MCTX_FLAGS; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_515__MCTX_FLAGS", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_515__MCTX_FLAGS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); + cdat->dobj_515__MCTX_FLAGS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); + cdat->dobj_515__MCTX_FLAGS.obj_num = 7; + cdat->dobj_515__MCTX_FLAGS.obj_hash = 618990324; + cdat->dobj_515__MCTX_FLAGS.obj_len = 4; + + /*inistring dstr_516__MCTX_FLAGS*/ + /*_.VALSTR___V572*/ meltfptr[571] = (void*)&cdat->dstr_516__MCTX_FLAGS; + cdat->dstr_516__MCTX_FLAGS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_516__MCTX_FLAGS.val, "MCTX_FLAGS", sizeof (cdat->dstr_516__MCTX_FLAGS.val)-1); + + /*iniobj dsym_517__CLASS_MATCH_CASE*/ +/*uniqueobj*/ if (!/*_.VALDATA___V590*/ meltfptr[589]) /*_.VALDATA___V590*/ meltfptr[589] = (void*)&cdat->dsym_517__CLASS_MATCH_CASE; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_517__CLASS_MATCH_CASE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_517__CLASS_MATCH_CASE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); + cdat->dsym_517__CLASS_MATCH_CASE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_517__CLASS_MATCH_CASE.obj_hash = 949216192; + cdat->dsym_517__CLASS_MATCH_CASE.obj_len = 3; + + /*inistring dstr_518__CLASS_MATCH_CASE*/ + /*_.VALSTR___V591*/ meltfptr[590] = (void*)&cdat->dstr_518__CLASS_MATCH_CASE; + cdat->dstr_518__CLASS_MATCH_CASE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_518__CLASS_MATCH_CASE.val, "CLASS_MATCH_CASE", sizeof (cdat->dstr_518__CLASS_MATCH_CASE.val)-1); + + MELT_LOCATION("warmelt-normatch.melt:2411:/ iniobj"); + /*iniobj dobj_519__CLASS_MATCH_CASE*/ +/*_.VALDATA___V592*/ meltfptr[591] = (void*)&cdat->dobj_519__CLASS_MATCH_CASE; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_519__CLASS_MATCH_CASE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_CLASS)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_519__CLASS_MATCH_CASE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); + cdat->dobj_519__CLASS_MATCH_CASE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); + cdat->dobj_519__CLASS_MATCH_CASE.obj_num = OBMAG_OBJECT; + cdat->dobj_519__CLASS_MATCH_CASE.obj_hash = 349149536; + cdat->dobj_519__CLASS_MATCH_CASE.obj_len = 8; + + /*inistring dstr_520__CLASS_MATCH_CASE*/ + /*_.VALSTR___V593*/ meltfptr[592] = (void*)&cdat->dstr_520__CLASS_MATCH_CASE; + cdat->dstr_520__CLASS_MATCH_CASE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_520__CLASS_MATCH_CASE.val, "CLASS_MATCH_CASE", sizeof (cdat->dstr_520__CLASS_MATCH_CASE.val)-1); + + /*inimult dtup_521__CLASS_MATCH_CASE*/ + /*_.VALTUP___V594*/ meltfptr[593] = (void*)&cdat->dtup_521__CLASS_MATCH_CASE; + cdat->dtup_521__CLASS_MATCH_CASE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); + cdat->dtup_521__CLASS_MATCH_CASE.nbval = 2; + /*inimult dtup_522__CLASS_MATCH_CASE*/ + /*_.VALTUP___V603*/ meltfptr[602] = (void*)&cdat->dtup_522__CLASS_MATCH_CASE; + cdat->dtup_522__CLASS_MATCH_CASE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); + cdat->dtup_522__CLASS_MATCH_CASE.nbval = 5; + /*iniobj dsym_523__MCASE_MCTXT*/ +/*uniqueobj*/ if (!/*_.VALDATA___V604*/ meltfptr[603]) /*_.VALDATA___V604*/ meltfptr[603] = (void*)&cdat->dsym_523__MCASE_MCTXT; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_523__MCASE_MCTXT", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_523__MCASE_MCTXT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); + cdat->dsym_523__MCASE_MCTXT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_523__MCASE_MCTXT.obj_hash = 149622940; + cdat->dsym_523__MCASE_MCTXT.obj_len = 3; + + /*inistring dstr_524__MCASE_MCTXT*/ + /*_.VALSTR___V605*/ meltfptr[604] = (void*)&cdat->dstr_524__MCASE_MCTXT; + cdat->dstr_524__MCASE_MCTXT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_524__MCASE_MCTXT.val, "MCASE_MCTXT", sizeof (cdat->dstr_524__MCASE_MCTXT.val)-1); /*^iniobj*/ - /*iniobj dobj_525__MCASE_SOURCE*/ -/*_.VALDATA___V592*/ meltfptr[591] = (void*)&cdat->dobj_525__MCASE_SOURCE; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_525__MCASE_SOURCE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_525__MCASE_SOURCE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); - cdat->dobj_525__MCASE_SOURCE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); - cdat->dobj_525__MCASE_SOURCE.obj_num = 2; - cdat->dobj_525__MCASE_SOURCE.obj_hash = 994416375; - cdat->dobj_525__MCASE_SOURCE.obj_len = 4; - - /*inistring dstr_526__MCASE_SOURCE*/ - /*_.VALSTR___V593*/ meltfptr[592] = (void*)&cdat->dstr_526__MCASE_SOURCE; - cdat->dstr_526__MCASE_SOURCE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_526__MCASE_SOURCE.val, "MCASE_SOURCE", sizeof (cdat->dstr_526__MCASE_SOURCE.val)-1); - - /*iniobj dsym_527__MCASE_INDEX*/ -/*uniqueobj*/ if (!/*_.VALDATA___V603*/ meltfptr[602]) /*_.VALDATA___V603*/ meltfptr[602] = (void*)&cdat->dsym_527__MCASE_INDEX; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_527__MCASE_INDEX", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_527__MCASE_INDEX", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); - cdat->dsym_527__MCASE_INDEX.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_527__MCASE_INDEX.obj_hash = 411250735; - cdat->dsym_527__MCASE_INDEX.obj_len = 3; - - /*inistring dstr_528__MCASE_INDEX*/ - /*_.VALSTR___V604*/ meltfptr[603] = (void*)&cdat->dstr_528__MCASE_INDEX; - cdat->dstr_528__MCASE_INDEX.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_528__MCASE_INDEX.val, "MCASE_INDEX", sizeof (cdat->dstr_528__MCASE_INDEX.val)-1); + /*iniobj dobj_525__MCASE_MCTXT*/ +/*_.VALDATA___V595*/ meltfptr[594] = (void*)&cdat->dobj_525__MCASE_MCTXT; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_525__MCASE_MCTXT", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_525__MCASE_MCTXT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); + cdat->dobj_525__MCASE_MCTXT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); + cdat->dobj_525__MCASE_MCTXT.obj_num = 1; + cdat->dobj_525__MCASE_MCTXT.obj_hash = 312371417; + cdat->dobj_525__MCASE_MCTXT.obj_len = 4; + + /*inistring dstr_526__MCASE_MCTXT*/ + /*_.VALSTR___V596*/ meltfptr[595] = (void*)&cdat->dstr_526__MCASE_MCTXT; + cdat->dstr_526__MCASE_MCTXT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_526__MCASE_MCTXT.val, "MCASE_MCTXT", sizeof (cdat->dstr_526__MCASE_MCTXT.val)-1); + + /*iniobj dsym_527__MCASE_SOURCE*/ +/*uniqueobj*/ if (!/*_.VALDATA___V606*/ meltfptr[605]) /*_.VALDATA___V606*/ meltfptr[605] = (void*)&cdat->dsym_527__MCASE_SOURCE; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_527__MCASE_SOURCE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_527__MCASE_SOURCE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); + cdat->dsym_527__MCASE_SOURCE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_527__MCASE_SOURCE.obj_hash = 903506654; + cdat->dsym_527__MCASE_SOURCE.obj_len = 3; + + /*inistring dstr_528__MCASE_SOURCE*/ + /*_.VALSTR___V607*/ meltfptr[606] = (void*)&cdat->dstr_528__MCASE_SOURCE; + cdat->dstr_528__MCASE_SOURCE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_528__MCASE_SOURCE.val, "MCASE_SOURCE", sizeof (cdat->dstr_528__MCASE_SOURCE.val)-1); /*^iniobj*/ - /*iniobj dobj_529__MCASE_INDEX*/ -/*_.VALDATA___V594*/ meltfptr[593] = (void*)&cdat->dobj_529__MCASE_INDEX; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_529__MCASE_INDEX", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_529__MCASE_INDEX", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); - cdat->dobj_529__MCASE_INDEX.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); - cdat->dobj_529__MCASE_INDEX.obj_num = 3; - cdat->dobj_529__MCASE_INDEX.obj_hash = 799909259; - cdat->dobj_529__MCASE_INDEX.obj_len = 4; - - /*inistring dstr_530__MCASE_INDEX*/ - /*_.VALSTR___V595*/ meltfptr[594] = (void*)&cdat->dstr_530__MCASE_INDEX; - cdat->dstr_530__MCASE_INDEX.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_530__MCASE_INDEX.val, "MCASE_INDEX", sizeof (cdat->dstr_530__MCASE_INDEX.val)-1); - - /*iniobj dsym_531__MCASE_VARMAP*/ -/*uniqueobj*/ if (!/*_.VALDATA___V605*/ meltfptr[604]) /*_.VALDATA___V605*/ meltfptr[604] = (void*)&cdat->dsym_531__MCASE_VARMAP; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_531__MCASE_VARMAP", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_531__MCASE_VARMAP", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); - cdat->dsym_531__MCASE_VARMAP.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_531__MCASE_VARMAP.obj_hash = 75227449; - cdat->dsym_531__MCASE_VARMAP.obj_len = 3; - - /*inistring dstr_532__MCASE_VARMAP*/ - /*_.VALSTR___V606*/ meltfptr[605] = (void*)&cdat->dstr_532__MCASE_VARMAP; - cdat->dstr_532__MCASE_VARMAP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_532__MCASE_VARMAP.val, "MCASE_VARMAP", sizeof (cdat->dstr_532__MCASE_VARMAP.val)-1); + /*iniobj dobj_529__MCASE_SOURCE*/ +/*_.VALDATA___V597*/ meltfptr[596] = (void*)&cdat->dobj_529__MCASE_SOURCE; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_529__MCASE_SOURCE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_529__MCASE_SOURCE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); + cdat->dobj_529__MCASE_SOURCE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); + cdat->dobj_529__MCASE_SOURCE.obj_num = 2; + cdat->dobj_529__MCASE_SOURCE.obj_hash = 403917902; + cdat->dobj_529__MCASE_SOURCE.obj_len = 4; + + /*inistring dstr_530__MCASE_SOURCE*/ + /*_.VALSTR___V598*/ meltfptr[597] = (void*)&cdat->dstr_530__MCASE_SOURCE; + cdat->dstr_530__MCASE_SOURCE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_530__MCASE_SOURCE.val, "MCASE_SOURCE", sizeof (cdat->dstr_530__MCASE_SOURCE.val)-1); + + /*iniobj dsym_531__MCASE_INDEX*/ +/*uniqueobj*/ if (!/*_.VALDATA___V608*/ meltfptr[607]) /*_.VALDATA___V608*/ meltfptr[607] = (void*)&cdat->dsym_531__MCASE_INDEX; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_531__MCASE_INDEX", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_531__MCASE_INDEX", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); + cdat->dsym_531__MCASE_INDEX.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_531__MCASE_INDEX.obj_hash = 411250735; + cdat->dsym_531__MCASE_INDEX.obj_len = 3; + + /*inistring dstr_532__MCASE_INDEX*/ + /*_.VALSTR___V609*/ meltfptr[608] = (void*)&cdat->dstr_532__MCASE_INDEX; + cdat->dstr_532__MCASE_INDEX.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_532__MCASE_INDEX.val, "MCASE_INDEX", sizeof (cdat->dstr_532__MCASE_INDEX.val)-1); /*^iniobj*/ - /*iniobj dobj_533__MCASE_VARMAP*/ -/*_.VALDATA___V596*/ meltfptr[595] = (void*)&cdat->dobj_533__MCASE_VARMAP; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_533__MCASE_VARMAP", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_533__MCASE_VARMAP", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); - cdat->dobj_533__MCASE_VARMAP.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); - cdat->dobj_533__MCASE_VARMAP.obj_num = 4; - cdat->dobj_533__MCASE_VARMAP.obj_hash = 42652304; - cdat->dobj_533__MCASE_VARMAP.obj_len = 4; - - /*inistring dstr_534__MCASE_VARMAP*/ - /*_.VALSTR___V597*/ meltfptr[596] = (void*)&cdat->dstr_534__MCASE_VARMAP; - cdat->dstr_534__MCASE_VARMAP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_534__MCASE_VARMAP.val, "MCASE_VARMAP", sizeof (cdat->dstr_534__MCASE_VARMAP.val)-1); - - /*iniobj dsym_535__CLASS_MATCHED_DATA*/ -/*uniqueobj*/ if (!/*_.VALDATA___V607*/ meltfptr[606]) /*_.VALDATA___V607*/ meltfptr[606] = (void*)&cdat->dsym_535__CLASS_MATCHED_DATA; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_535__CLASS_MATCHED_DATA", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_535__CLASS_MATCHED_DATA", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); - cdat->dsym_535__CLASS_MATCHED_DATA.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_535__CLASS_MATCHED_DATA.obj_hash = 1016753218; - cdat->dsym_535__CLASS_MATCHED_DATA.obj_len = 3; - - /*inistring dstr_536__CLASS_MATCHED_DA*/ - /*_.VALSTR___V608*/ meltfptr[607] = (void*)&cdat->dstr_536__CLASS_MATCHED_DA; - cdat->dstr_536__CLASS_MATCHED_DA.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_536__CLASS_MATCHED_DA.val, "CLASS_MATCHED_DATA", sizeof (cdat->dstr_536__CLASS_MATCHED_DA.val)-1); - - MELT_LOCATION("warmelt-normatch.melt:2422:/ iniobj"); - /*iniobj dobj_537__CLASS_MATCHED_DATA*/ -/*_.VALDATA___V609*/ meltfptr[608] = (void*)&cdat->dobj_537__CLASS_MATCHED_DATA; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_537__CLASS_MATCHED_DATA", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_CLASS)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_537__CLASS_MATCHED_DATA", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); - cdat->dobj_537__CLASS_MATCHED_DATA.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); - cdat->dobj_537__CLASS_MATCHED_DATA.obj_num = OBMAG_OBJECT; - cdat->dobj_537__CLASS_MATCHED_DATA.obj_hash = 611109030; - cdat->dobj_537__CLASS_MATCHED_DATA.obj_len = 8; - - /*inistring dstr_538__CLASS_MATCHED_DA*/ - /*_.VALSTR___V610*/ meltfptr[609] = (void*)&cdat->dstr_538__CLASS_MATCHED_DA; - cdat->dstr_538__CLASS_MATCHED_DA.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_538__CLASS_MATCHED_DA.val, "CLASS_MATCHED_DATA", sizeof (cdat->dstr_538__CLASS_MATCHED_DA.val)-1); - - /*inimult dtup_539__CLASS_MATCHED_DATA*/ - /*_.VALTUP___V611*/ meltfptr[610] = (void*)&cdat->dtup_539__CLASS_MATCHED_DATA; - cdat->dtup_539__CLASS_MATCHED_DATA.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); - cdat->dtup_539__CLASS_MATCHED_DATA.nbval = 2; - /*inimult dtup_540__CLASS_MATCHED_DATA*/ - /*_.VALTUP___V620*/ meltfptr[619] = (void*)&cdat->dtup_540__CLASS_MATCHED_DATA; - cdat->dtup_540__CLASS_MATCHED_DATA.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); - cdat->dtup_540__CLASS_MATCHED_DATA.nbval = 5; - /*iniobj dsym_541__MDATA_SYMB*/ -/*uniqueobj*/ if (!/*_.VALDATA___V621*/ meltfptr[620]) /*_.VALDATA___V621*/ meltfptr[620] = (void*)&cdat->dsym_541__MDATA_SYMB; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_541__MDATA_SYMB", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_541__MDATA_SYMB", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); - cdat->dsym_541__MDATA_SYMB.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_541__MDATA_SYMB.obj_hash = 627287042; - cdat->dsym_541__MDATA_SYMB.obj_len = 3; - - /*inistring dstr_542__MDATA_SYMB*/ - /*_.VALSTR___V622*/ meltfptr[621] = (void*)&cdat->dstr_542__MDATA_SYMB; - cdat->dstr_542__MDATA_SYMB.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_542__MDATA_SYMB.val, "MDATA_SYMB", sizeof (cdat->dstr_542__MDATA_SYMB.val)-1); + /*iniobj dobj_533__MCASE_INDEX*/ +/*_.VALDATA___V599*/ meltfptr[598] = (void*)&cdat->dobj_533__MCASE_INDEX; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_533__MCASE_INDEX", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_533__MCASE_INDEX", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); + cdat->dobj_533__MCASE_INDEX.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); + cdat->dobj_533__MCASE_INDEX.obj_num = 3; + cdat->dobj_533__MCASE_INDEX.obj_hash = 116092457; + cdat->dobj_533__MCASE_INDEX.obj_len = 4; + + /*inistring dstr_534__MCASE_INDEX*/ + /*_.VALSTR___V600*/ meltfptr[599] = (void*)&cdat->dstr_534__MCASE_INDEX; + cdat->dstr_534__MCASE_INDEX.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_534__MCASE_INDEX.val, "MCASE_INDEX", sizeof (cdat->dstr_534__MCASE_INDEX.val)-1); + + /*iniobj dsym_535__MCASE_VARMAP*/ +/*uniqueobj*/ if (!/*_.VALDATA___V610*/ meltfptr[609]) /*_.VALDATA___V610*/ meltfptr[609] = (void*)&cdat->dsym_535__MCASE_VARMAP; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_535__MCASE_VARMAP", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_535__MCASE_VARMAP", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); + cdat->dsym_535__MCASE_VARMAP.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_535__MCASE_VARMAP.obj_hash = 75227449; + cdat->dsym_535__MCASE_VARMAP.obj_len = 3; + + /*inistring dstr_536__MCASE_VARMAP*/ + /*_.VALSTR___V611*/ meltfptr[610] = (void*)&cdat->dstr_536__MCASE_VARMAP; + cdat->dstr_536__MCASE_VARMAP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_536__MCASE_VARMAP.val, "MCASE_VARMAP", sizeof (cdat->dstr_536__MCASE_VARMAP.val)-1); /*^iniobj*/ - /*iniobj dobj_543__MDATA_SYMB*/ -/*_.VALDATA___V612*/ meltfptr[611] = (void*)&cdat->dobj_543__MDATA_SYMB; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_543__MDATA_SYMB", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_543__MDATA_SYMB", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); - cdat->dobj_543__MDATA_SYMB.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); - cdat->dobj_543__MDATA_SYMB.obj_num = 1; - cdat->dobj_543__MDATA_SYMB.obj_hash = 201285159; - cdat->dobj_543__MDATA_SYMB.obj_len = 4; - - /*inistring dstr_544__MDATA_SYMB*/ - /*_.VALSTR___V613*/ meltfptr[612] = (void*)&cdat->dstr_544__MDATA_SYMB; - cdat->dstr_544__MDATA_SYMB.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_544__MDATA_SYMB.val, "MDATA_SYMB", sizeof (cdat->dstr_544__MDATA_SYMB.val)-1); - - /*iniobj dsym_545__MDATA_CTYPE*/ -/*uniqueobj*/ if (!/*_.VALDATA___V623*/ meltfptr[622]) /*_.VALDATA___V623*/ meltfptr[622] = (void*)&cdat->dsym_545__MDATA_CTYPE; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_545__MDATA_CTYPE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_545__MDATA_CTYPE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); - cdat->dsym_545__MDATA_CTYPE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_545__MDATA_CTYPE.obj_hash = 952349489; - cdat->dsym_545__MDATA_CTYPE.obj_len = 3; - - /*inistring dstr_546__MDATA_CTYPE*/ - /*_.VALSTR___V624*/ meltfptr[623] = (void*)&cdat->dstr_546__MDATA_CTYPE; - cdat->dstr_546__MDATA_CTYPE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_546__MDATA_CTYPE.val, "MDATA_CTYPE", sizeof (cdat->dstr_546__MDATA_CTYPE.val)-1); + /*iniobj dobj_537__MCASE_VARMAP*/ +/*_.VALDATA___V601*/ meltfptr[600] = (void*)&cdat->dobj_537__MCASE_VARMAP; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_537__MCASE_VARMAP", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_537__MCASE_VARMAP", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); + cdat->dobj_537__MCASE_VARMAP.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); + cdat->dobj_537__MCASE_VARMAP.obj_num = 4; + cdat->dobj_537__MCASE_VARMAP.obj_hash = 943721627; + cdat->dobj_537__MCASE_VARMAP.obj_len = 4; + + /*inistring dstr_538__MCASE_VARMAP*/ + /*_.VALSTR___V602*/ meltfptr[601] = (void*)&cdat->dstr_538__MCASE_VARMAP; + cdat->dstr_538__MCASE_VARMAP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_538__MCASE_VARMAP.val, "MCASE_VARMAP", sizeof (cdat->dstr_538__MCASE_VARMAP.val)-1); + + /*iniobj dsym_539__CLASS_MATCHED_DATA*/ +/*uniqueobj*/ if (!/*_.VALDATA___V612*/ meltfptr[611]) /*_.VALDATA___V612*/ meltfptr[611] = (void*)&cdat->dsym_539__CLASS_MATCHED_DATA; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_539__CLASS_MATCHED_DATA", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_539__CLASS_MATCHED_DATA", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); + cdat->dsym_539__CLASS_MATCHED_DATA.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_539__CLASS_MATCHED_DATA.obj_hash = 1016753218; + cdat->dsym_539__CLASS_MATCHED_DATA.obj_len = 3; + + /*inistring dstr_540__CLASS_MATCHED_DA*/ + /*_.VALSTR___V613*/ meltfptr[612] = (void*)&cdat->dstr_540__CLASS_MATCHED_DA; + cdat->dstr_540__CLASS_MATCHED_DA.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_540__CLASS_MATCHED_DA.val, "CLASS_MATCHED_DATA", sizeof (cdat->dstr_540__CLASS_MATCHED_DA.val)-1); + + MELT_LOCATION("warmelt-normatch.melt:2423:/ iniobj"); + /*iniobj dobj_541__CLASS_MATCHED_DATA*/ +/*_.VALDATA___V614*/ meltfptr[613] = (void*)&cdat->dobj_541__CLASS_MATCHED_DATA; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_541__CLASS_MATCHED_DATA", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_CLASS)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_541__CLASS_MATCHED_DATA", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); + cdat->dobj_541__CLASS_MATCHED_DATA.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); + cdat->dobj_541__CLASS_MATCHED_DATA.obj_num = OBMAG_OBJECT; + cdat->dobj_541__CLASS_MATCHED_DATA.obj_hash = 845151697; + cdat->dobj_541__CLASS_MATCHED_DATA.obj_len = 8; + + /*inistring dstr_542__CLASS_MATCHED_DA*/ + /*_.VALSTR___V615*/ meltfptr[614] = (void*)&cdat->dstr_542__CLASS_MATCHED_DA; + cdat->dstr_542__CLASS_MATCHED_DA.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_542__CLASS_MATCHED_DA.val, "CLASS_MATCHED_DATA", sizeof (cdat->dstr_542__CLASS_MATCHED_DA.val)-1); + + /*inimult dtup_543__CLASS_MATCHED_DATA*/ + /*_.VALTUP___V616*/ meltfptr[615] = (void*)&cdat->dtup_543__CLASS_MATCHED_DATA; + cdat->dtup_543__CLASS_MATCHED_DATA.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); + cdat->dtup_543__CLASS_MATCHED_DATA.nbval = 2; + /*inimult dtup_544__CLASS_MATCHED_DATA*/ + /*_.VALTUP___V625*/ meltfptr[624] = (void*)&cdat->dtup_544__CLASS_MATCHED_DATA; + cdat->dtup_544__CLASS_MATCHED_DATA.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); + cdat->dtup_544__CLASS_MATCHED_DATA.nbval = 5; + /*iniobj dsym_545__MDATA_SYMB*/ +/*uniqueobj*/ if (!/*_.VALDATA___V626*/ meltfptr[625]) /*_.VALDATA___V626*/ meltfptr[625] = (void*)&cdat->dsym_545__MDATA_SYMB; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_545__MDATA_SYMB", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_545__MDATA_SYMB", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); + cdat->dsym_545__MDATA_SYMB.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_545__MDATA_SYMB.obj_hash = 627287042; + cdat->dsym_545__MDATA_SYMB.obj_len = 3; + + /*inistring dstr_546__MDATA_SYMB*/ + /*_.VALSTR___V627*/ meltfptr[626] = (void*)&cdat->dstr_546__MDATA_SYMB; + cdat->dstr_546__MDATA_SYMB.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_546__MDATA_SYMB.val, "MDATA_SYMB", sizeof (cdat->dstr_546__MDATA_SYMB.val)-1); /*^iniobj*/ - /*iniobj dobj_547__MDATA_CTYPE*/ -/*_.VALDATA___V614*/ meltfptr[613] = (void*)&cdat->dobj_547__MDATA_CTYPE; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_547__MDATA_CTYPE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_547__MDATA_CTYPE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); - cdat->dobj_547__MDATA_CTYPE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); - cdat->dobj_547__MDATA_CTYPE.obj_num = 2; - cdat->dobj_547__MDATA_CTYPE.obj_hash = 491581952; - cdat->dobj_547__MDATA_CTYPE.obj_len = 4; - - /*inistring dstr_548__MDATA_CTYPE*/ - /*_.VALSTR___V615*/ meltfptr[614] = (void*)&cdat->dstr_548__MDATA_CTYPE; - cdat->dstr_548__MDATA_CTYPE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_548__MDATA_CTYPE.val, "MDATA_CTYPE", sizeof (cdat->dstr_548__MDATA_CTYPE.val)-1); - - /*iniobj dsym_549__MDATA_ORIG*/ -/*uniqueobj*/ if (!/*_.VALDATA___V625*/ meltfptr[624]) /*_.VALDATA___V625*/ meltfptr[624] = (void*)&cdat->dsym_549__MDATA_ORIG; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_549__MDATA_ORIG", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_549__MDATA_ORIG", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); - cdat->dsym_549__MDATA_ORIG.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_549__MDATA_ORIG.obj_hash = 608857395; - cdat->dsym_549__MDATA_ORIG.obj_len = 3; - - /*inistring dstr_550__MDATA_ORIG*/ - /*_.VALSTR___V626*/ meltfptr[625] = (void*)&cdat->dstr_550__MDATA_ORIG; - cdat->dstr_550__MDATA_ORIG.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_550__MDATA_ORIG.val, "MDATA_ORIG", sizeof (cdat->dstr_550__MDATA_ORIG.val)-1); + /*iniobj dobj_547__MDATA_SYMB*/ +/*_.VALDATA___V617*/ meltfptr[616] = (void*)&cdat->dobj_547__MDATA_SYMB; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_547__MDATA_SYMB", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_547__MDATA_SYMB", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); + cdat->dobj_547__MDATA_SYMB.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); + cdat->dobj_547__MDATA_SYMB.obj_num = 1; + cdat->dobj_547__MDATA_SYMB.obj_hash = 950138946; + cdat->dobj_547__MDATA_SYMB.obj_len = 4; + + /*inistring dstr_548__MDATA_SYMB*/ + /*_.VALSTR___V618*/ meltfptr[617] = (void*)&cdat->dstr_548__MDATA_SYMB; + cdat->dstr_548__MDATA_SYMB.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_548__MDATA_SYMB.val, "MDATA_SYMB", sizeof (cdat->dstr_548__MDATA_SYMB.val)-1); + + /*iniobj dsym_549__MDATA_CTYPE*/ +/*uniqueobj*/ if (!/*_.VALDATA___V628*/ meltfptr[627]) /*_.VALDATA___V628*/ meltfptr[627] = (void*)&cdat->dsym_549__MDATA_CTYPE; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_549__MDATA_CTYPE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_549__MDATA_CTYPE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); + cdat->dsym_549__MDATA_CTYPE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_549__MDATA_CTYPE.obj_hash = 952349489; + cdat->dsym_549__MDATA_CTYPE.obj_len = 3; + + /*inistring dstr_550__MDATA_CTYPE*/ + /*_.VALSTR___V629*/ meltfptr[628] = (void*)&cdat->dstr_550__MDATA_CTYPE; + cdat->dstr_550__MDATA_CTYPE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_550__MDATA_CTYPE.val, "MDATA_CTYPE", sizeof (cdat->dstr_550__MDATA_CTYPE.val)-1); /*^iniobj*/ - /*iniobj dobj_551__MDATA_ORIG*/ -/*_.VALDATA___V616*/ meltfptr[615] = (void*)&cdat->dobj_551__MDATA_ORIG; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_551__MDATA_ORIG", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_551__MDATA_ORIG", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); - cdat->dobj_551__MDATA_ORIG.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); - cdat->dobj_551__MDATA_ORIG.obj_num = 3; - cdat->dobj_551__MDATA_ORIG.obj_hash = 967839551; - cdat->dobj_551__MDATA_ORIG.obj_len = 4; - - /*inistring dstr_552__MDATA_ORIG*/ - /*_.VALSTR___V617*/ meltfptr[616] = (void*)&cdat->dstr_552__MDATA_ORIG; - cdat->dstr_552__MDATA_ORIG.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_552__MDATA_ORIG.val, "MDATA_ORIG", sizeof (cdat->dstr_552__MDATA_ORIG.val)-1); - - /*iniobj dsym_553__MDATA_STEPS*/ -/*uniqueobj*/ if (!/*_.VALDATA___V627*/ meltfptr[626]) /*_.VALDATA___V627*/ meltfptr[626] = (void*)&cdat->dsym_553__MDATA_STEPS; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_553__MDATA_STEPS", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_553__MDATA_STEPS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); - cdat->dsym_553__MDATA_STEPS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_553__MDATA_STEPS.obj_hash = 383135857; - cdat->dsym_553__MDATA_STEPS.obj_len = 3; - - /*inistring dstr_554__MDATA_STEPS*/ - /*_.VALSTR___V628*/ meltfptr[627] = (void*)&cdat->dstr_554__MDATA_STEPS; - cdat->dstr_554__MDATA_STEPS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_554__MDATA_STEPS.val, "MDATA_STEPS", sizeof (cdat->dstr_554__MDATA_STEPS.val)-1); + /*iniobj dobj_551__MDATA_CTYPE*/ +/*_.VALDATA___V619*/ meltfptr[618] = (void*)&cdat->dobj_551__MDATA_CTYPE; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_551__MDATA_CTYPE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_551__MDATA_CTYPE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); + cdat->dobj_551__MDATA_CTYPE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); + cdat->dobj_551__MDATA_CTYPE.obj_num = 2; + cdat->dobj_551__MDATA_CTYPE.obj_hash = 748266215; + cdat->dobj_551__MDATA_CTYPE.obj_len = 4; + + /*inistring dstr_552__MDATA_CTYPE*/ + /*_.VALSTR___V620*/ meltfptr[619] = (void*)&cdat->dstr_552__MDATA_CTYPE; + cdat->dstr_552__MDATA_CTYPE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_552__MDATA_CTYPE.val, "MDATA_CTYPE", sizeof (cdat->dstr_552__MDATA_CTYPE.val)-1); + + /*iniobj dsym_553__MDATA_ORIG*/ +/*uniqueobj*/ if (!/*_.VALDATA___V630*/ meltfptr[629]) /*_.VALDATA___V630*/ meltfptr[629] = (void*)&cdat->dsym_553__MDATA_ORIG; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_553__MDATA_ORIG", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_553__MDATA_ORIG", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); + cdat->dsym_553__MDATA_ORIG.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_553__MDATA_ORIG.obj_hash = 608857395; + cdat->dsym_553__MDATA_ORIG.obj_len = 3; + + /*inistring dstr_554__MDATA_ORIG*/ + /*_.VALSTR___V631*/ meltfptr[630] = (void*)&cdat->dstr_554__MDATA_ORIG; + cdat->dstr_554__MDATA_ORIG.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_554__MDATA_ORIG.val, "MDATA_ORIG", sizeof (cdat->dstr_554__MDATA_ORIG.val)-1); /*^iniobj*/ - /*iniobj dobj_555__MDATA_STEPS*/ -/*_.VALDATA___V618*/ meltfptr[617] = (void*)&cdat->dobj_555__MDATA_STEPS; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_555__MDATA_STEPS", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_555__MDATA_STEPS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); - cdat->dobj_555__MDATA_STEPS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); - cdat->dobj_555__MDATA_STEPS.obj_num = 4; - cdat->dobj_555__MDATA_STEPS.obj_hash = 101063926; - cdat->dobj_555__MDATA_STEPS.obj_len = 4; - - /*inistring dstr_556__MDATA_STEPS*/ - /*_.VALSTR___V619*/ meltfptr[618] = (void*)&cdat->dstr_556__MDATA_STEPS; - cdat->dstr_556__MDATA_STEPS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_556__MDATA_STEPS.val, "MDATA_STEPS", sizeof (cdat->dstr_556__MDATA_STEPS.val)-1); - - /*iniobj dsym_557__CLASS_MATCHED_BINDING*/ -/*uniqueobj*/ if (!/*_.VALDATA___V629*/ meltfptr[628]) /*_.VALDATA___V629*/ meltfptr[628] = (void*)&cdat->dsym_557__CLASS_MATCHED_BINDING; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_557__CLASS_MATCHED_BINDING", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_557__CLASS_MATCHED_BINDING", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); - cdat->dsym_557__CLASS_MATCHED_BINDING.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_557__CLASS_MATCHED_BINDING.obj_hash = 747450906; - cdat->dsym_557__CLASS_MATCHED_BINDING.obj_len = 3; - - /*inistring dstr_558__CLASS_MATCHED_BI*/ - /*_.VALSTR___V630*/ meltfptr[629] = (void*)&cdat->dstr_558__CLASS_MATCHED_BI; - cdat->dstr_558__CLASS_MATCHED_BI.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_558__CLASS_MATCHED_BI.val, "CLASS_MATCHED_BINDING", sizeof (cdat->dstr_558__CLASS_MATCHED_BI.val)-1); - - MELT_LOCATION("warmelt-normatch.melt:2433:/ iniobj"); - /*iniobj dobj_559__CLASS_MATCHED_BINDING*/ -/*_.VALDATA___V631*/ meltfptr[630] = (void*)&cdat->dobj_559__CLASS_MATCHED_BINDING; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_559__CLASS_MATCHED_BINDING", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_CLASS)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_559__CLASS_MATCHED_BINDING", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); - cdat->dobj_559__CLASS_MATCHED_BINDING.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); - cdat->dobj_559__CLASS_MATCHED_BINDING.obj_num = OBMAG_OBJECT; - cdat->dobj_559__CLASS_MATCHED_BINDING.obj_hash = 509175279; - cdat->dobj_559__CLASS_MATCHED_BINDING.obj_len = 8; - - /*inistring dstr_560__CLASS_MATCHED_BI*/ - /*_.VALSTR___V632*/ meltfptr[631] = (void*)&cdat->dstr_560__CLASS_MATCHED_BI; - cdat->dstr_560__CLASS_MATCHED_BI.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_560__CLASS_MATCHED_BI.val, "CLASS_MATCHED_BINDING", sizeof (cdat->dstr_560__CLASS_MATCHED_BI.val)-1); - - /*inimult dtup_561__CLASS_MATCHED_BINDING*/ - /*_.VALTUP___V633*/ meltfptr[632] = (void*)&cdat->dtup_561__CLASS_MATCHED_BINDING; - cdat->dtup_561__CLASS_MATCHED_BINDING.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); - cdat->dtup_561__CLASS_MATCHED_BINDING.nbval = 2; - /*inimult dtup_562__CLASS_MATCHED_BINDING*/ - /*_.VALTUP___V638*/ meltfptr[637] = (void*)&cdat->dtup_562__CLASS_MATCHED_BINDING; - cdat->dtup_562__CLASS_MATCHED_BINDING.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); - cdat->dtup_562__CLASS_MATCHED_BINDING.nbval = 3; - /*iniobj dsym_563__MATCHBIND_DATA*/ -/*uniqueobj*/ if (!/*_.VALDATA___V639*/ meltfptr[638]) /*_.VALDATA___V639*/ meltfptr[638] = (void*)&cdat->dsym_563__MATCHBIND_DATA; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_563__MATCHBIND_DATA", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_563__MATCHBIND_DATA", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); - cdat->dsym_563__MATCHBIND_DATA.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_563__MATCHBIND_DATA.obj_hash = 644146834; - cdat->dsym_563__MATCHBIND_DATA.obj_len = 3; - - /*inistring dstr_564__MATCHBIND_DATA*/ - /*_.VALSTR___V640*/ meltfptr[639] = (void*)&cdat->dstr_564__MATCHBIND_DATA; - cdat->dstr_564__MATCHBIND_DATA.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_564__MATCHBIND_DATA.val, "MATCHBIND_DATA", sizeof (cdat->dstr_564__MATCHBIND_DATA.val)-1); + /*iniobj dobj_555__MDATA_ORIG*/ +/*_.VALDATA___V621*/ meltfptr[620] = (void*)&cdat->dobj_555__MDATA_ORIG; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_555__MDATA_ORIG", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_555__MDATA_ORIG", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); + cdat->dobj_555__MDATA_ORIG.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); + cdat->dobj_555__MDATA_ORIG.obj_num = 3; + cdat->dobj_555__MDATA_ORIG.obj_hash = 486311523; + cdat->dobj_555__MDATA_ORIG.obj_len = 4; + + /*inistring dstr_556__MDATA_ORIG*/ + /*_.VALSTR___V622*/ meltfptr[621] = (void*)&cdat->dstr_556__MDATA_ORIG; + cdat->dstr_556__MDATA_ORIG.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_556__MDATA_ORIG.val, "MDATA_ORIG", sizeof (cdat->dstr_556__MDATA_ORIG.val)-1); + + /*iniobj dsym_557__MDATA_STEPS*/ +/*uniqueobj*/ if (!/*_.VALDATA___V632*/ meltfptr[631]) /*_.VALDATA___V632*/ meltfptr[631] = (void*)&cdat->dsym_557__MDATA_STEPS; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_557__MDATA_STEPS", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_557__MDATA_STEPS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); + cdat->dsym_557__MDATA_STEPS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_557__MDATA_STEPS.obj_hash = 383135857; + cdat->dsym_557__MDATA_STEPS.obj_len = 3; + + /*inistring dstr_558__MDATA_STEPS*/ + /*_.VALSTR___V633*/ meltfptr[632] = (void*)&cdat->dstr_558__MDATA_STEPS; + cdat->dstr_558__MDATA_STEPS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_558__MDATA_STEPS.val, "MDATA_STEPS", sizeof (cdat->dstr_558__MDATA_STEPS.val)-1); /*^iniobj*/ - /*iniobj dobj_565__MATCHBIND_DATA*/ -/*_.VALDATA___V634*/ meltfptr[633] = (void*)&cdat->dobj_565__MATCHBIND_DATA; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_565__MATCHBIND_DATA", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_565__MATCHBIND_DATA", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); - cdat->dobj_565__MATCHBIND_DATA.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); - cdat->dobj_565__MATCHBIND_DATA.obj_num = 1; - cdat->dobj_565__MATCHBIND_DATA.obj_hash = 925372724; - cdat->dobj_565__MATCHBIND_DATA.obj_len = 4; - - /*inistring dstr_566__MATCHBIND_DATA*/ - /*_.VALSTR___V635*/ meltfptr[634] = (void*)&cdat->dstr_566__MATCHBIND_DATA; - cdat->dstr_566__MATCHBIND_DATA.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_566__MATCHBIND_DATA.val, "MATCHBIND_DATA", sizeof (cdat->dstr_566__MATCHBIND_DATA.val)-1); - - /*iniobj dsym_567__MATCHBIND_NBOCC*/ -/*uniqueobj*/ if (!/*_.VALDATA___V641*/ meltfptr[640]) /*_.VALDATA___V641*/ meltfptr[640] = (void*)&cdat->dsym_567__MATCHBIND_NBOCC; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_567__MATCHBIND_NBOCC", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_567__MATCHBIND_NBOCC", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); - cdat->dsym_567__MATCHBIND_NBOCC.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_567__MATCHBIND_NBOCC.obj_hash = 159965387; - cdat->dsym_567__MATCHBIND_NBOCC.obj_len = 3; - - /*inistring dstr_568__MATCHBIND_NBOCC*/ - /*_.VALSTR___V642*/ meltfptr[641] = (void*)&cdat->dstr_568__MATCHBIND_NBOCC; - cdat->dstr_568__MATCHBIND_NBOCC.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_568__MATCHBIND_NBOCC.val, "MATCHBIND_NBOCC", sizeof (cdat->dstr_568__MATCHBIND_NBOCC.val)-1); + /*iniobj dobj_559__MDATA_STEPS*/ +/*_.VALDATA___V623*/ meltfptr[622] = (void*)&cdat->dobj_559__MDATA_STEPS; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_559__MDATA_STEPS", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_559__MDATA_STEPS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); + cdat->dobj_559__MDATA_STEPS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); + cdat->dobj_559__MDATA_STEPS.obj_num = 4; + cdat->dobj_559__MDATA_STEPS.obj_hash = 310714449; + cdat->dobj_559__MDATA_STEPS.obj_len = 4; + + /*inistring dstr_560__MDATA_STEPS*/ + /*_.VALSTR___V624*/ meltfptr[623] = (void*)&cdat->dstr_560__MDATA_STEPS; + cdat->dstr_560__MDATA_STEPS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_560__MDATA_STEPS.val, "MDATA_STEPS", sizeof (cdat->dstr_560__MDATA_STEPS.val)-1); + + /*iniobj dsym_561__CLASS_MATCHED_BINDING*/ +/*uniqueobj*/ if (!/*_.VALDATA___V634*/ meltfptr[633]) /*_.VALDATA___V634*/ meltfptr[633] = (void*)&cdat->dsym_561__CLASS_MATCHED_BINDING; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_561__CLASS_MATCHED_BINDING", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_561__CLASS_MATCHED_BINDING", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); + cdat->dsym_561__CLASS_MATCHED_BINDING.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_561__CLASS_MATCHED_BINDING.obj_hash = 747450906; + cdat->dsym_561__CLASS_MATCHED_BINDING.obj_len = 3; + + /*inistring dstr_562__CLASS_MATCHED_BI*/ + /*_.VALSTR___V635*/ meltfptr[634] = (void*)&cdat->dstr_562__CLASS_MATCHED_BI; + cdat->dstr_562__CLASS_MATCHED_BI.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_562__CLASS_MATCHED_BI.val, "CLASS_MATCHED_BINDING", sizeof (cdat->dstr_562__CLASS_MATCHED_BI.val)-1); + + MELT_LOCATION("warmelt-normatch.melt:2434:/ iniobj"); + /*iniobj dobj_563__CLASS_MATCHED_BINDING*/ +/*_.VALDATA___V636*/ meltfptr[635] = (void*)&cdat->dobj_563__CLASS_MATCHED_BINDING; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_563__CLASS_MATCHED_BINDING", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_CLASS)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_563__CLASS_MATCHED_BINDING", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); + cdat->dobj_563__CLASS_MATCHED_BINDING.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); + cdat->dobj_563__CLASS_MATCHED_BINDING.obj_num = OBMAG_OBJECT; + cdat->dobj_563__CLASS_MATCHED_BINDING.obj_hash = 533872830; + cdat->dobj_563__CLASS_MATCHED_BINDING.obj_len = 8; + + /*inistring dstr_564__CLASS_MATCHED_BI*/ + /*_.VALSTR___V637*/ meltfptr[636] = (void*)&cdat->dstr_564__CLASS_MATCHED_BI; + cdat->dstr_564__CLASS_MATCHED_BI.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_564__CLASS_MATCHED_BI.val, "CLASS_MATCHED_BINDING", sizeof (cdat->dstr_564__CLASS_MATCHED_BI.val)-1); + + /*inimult dtup_565__CLASS_MATCHED_BINDING*/ + /*_.VALTUP___V638*/ meltfptr[637] = (void*)&cdat->dtup_565__CLASS_MATCHED_BINDING; + cdat->dtup_565__CLASS_MATCHED_BINDING.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); + cdat->dtup_565__CLASS_MATCHED_BINDING.nbval = 2; + /*inimult dtup_566__CLASS_MATCHED_BINDING*/ + /*_.VALTUP___V643*/ meltfptr[642] = (void*)&cdat->dtup_566__CLASS_MATCHED_BINDING; + cdat->dtup_566__CLASS_MATCHED_BINDING.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); + cdat->dtup_566__CLASS_MATCHED_BINDING.nbval = 3; + /*iniobj dsym_567__MATCHBIND_DATA*/ +/*uniqueobj*/ if (!/*_.VALDATA___V644*/ meltfptr[643]) /*_.VALDATA___V644*/ meltfptr[643] = (void*)&cdat->dsym_567__MATCHBIND_DATA; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_567__MATCHBIND_DATA", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_567__MATCHBIND_DATA", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); + cdat->dsym_567__MATCHBIND_DATA.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_567__MATCHBIND_DATA.obj_hash = 644146834; + cdat->dsym_567__MATCHBIND_DATA.obj_len = 3; + + /*inistring dstr_568__MATCHBIND_DATA*/ + /*_.VALSTR___V645*/ meltfptr[644] = (void*)&cdat->dstr_568__MATCHBIND_DATA; + cdat->dstr_568__MATCHBIND_DATA.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_568__MATCHBIND_DATA.val, "MATCHBIND_DATA", sizeof (cdat->dstr_568__MATCHBIND_DATA.val)-1); /*^iniobj*/ - /*iniobj dobj_569__MATCHBIND_NBOCC*/ -/*_.VALDATA___V636*/ meltfptr[635] = (void*)&cdat->dobj_569__MATCHBIND_NBOCC; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_569__MATCHBIND_NBOCC", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_569__MATCHBIND_NBOCC", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); - cdat->dobj_569__MATCHBIND_NBOCC.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); - cdat->dobj_569__MATCHBIND_NBOCC.obj_num = 2; - cdat->dobj_569__MATCHBIND_NBOCC.obj_hash = 984644283; - cdat->dobj_569__MATCHBIND_NBOCC.obj_len = 4; - - /*inistring dstr_570__MATCHBIND_NBOCC*/ - /*_.VALSTR___V637*/ meltfptr[636] = (void*)&cdat->dstr_570__MATCHBIND_NBOCC; - cdat->dstr_570__MATCHBIND_NBOCC.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_570__MATCHBIND_NBOCC.val, "MATCHBIND_NBOCC", sizeof (cdat->dstr_570__MATCHBIND_NBOCC.val)-1); - - /*inirout drout_571__NORMBIND_MATCHBIND*/ - /*_.VALROUT___V643*/ meltfptr[642] = (void*)&cdat->drout_571__NORMBIND_MATCHBIND; - cdat->drout_571__NORMBIND_MATCHBIND.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); - strncpy(cdat->drout_571__NORMBIND_MATCHBIND.routdescr, "NORMBIND_MATCHBIND @warmelt-normatch.melt:2442", MELT_ROUTDESCR_LEN - 1); - cdat->drout_571__NORMBIND_MATCHBIND.nbval = 5; - MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_571__NORMBIND_MATCHBIND, meltrout_46_warmelt_normatch_NORMBIND_MATCHBIND); - - /*iniclos dclo_572__NORMBIND_MATCHBIND*/ - /*_.VALCLO___V644*/ meltfptr[643] = (void*)&cdat->dclo_572__NORMBIND_MATCHBIND; - cdat->dclo_572__NORMBIND_MATCHBIND.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); - cdat->dclo_572__NORMBIND_MATCHBIND.nbval = 0; - - /*iniobj dsym_573__NORMALIZE_BINDING*/ -/*uniqueobj*/ if (!/*_.VALDATA___V645*/ meltfptr[644]) /*_.VALDATA___V645*/ meltfptr[644] = (void*)&cdat->dsym_573__NORMALIZE_BINDING; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_573__NORMALIZE_BINDING", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_573__NORMALIZE_BINDING", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); - cdat->dsym_573__NORMALIZE_BINDING.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_573__NORMALIZE_BINDING.obj_hash = 689313377; - cdat->dsym_573__NORMALIZE_BINDING.obj_len = 3; - - /*inistring dstr_574__NORMALIZE_BINDIN*/ - /*_.VALSTR___V646*/ meltfptr[645] = (void*)&cdat->dstr_574__NORMALIZE_BINDIN; - cdat->dstr_574__NORMALIZE_BINDIN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_574__NORMALIZE_BINDIN.val, "NORMALIZE_BINDING", sizeof (cdat->dstr_574__NORMALIZE_BINDIN.val)-1); - - /*iniobj dsym_575__CLASS_MATCH_STEP*/ -/*uniqueobj*/ if (!/*_.VALDATA___V647*/ meltfptr[646]) /*_.VALDATA___V647*/ meltfptr[646] = (void*)&cdat->dsym_575__CLASS_MATCH_STEP; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_575__CLASS_MATCH_STEP", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_575__CLASS_MATCH_STEP", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); - cdat->dsym_575__CLASS_MATCH_STEP.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_575__CLASS_MATCH_STEP.obj_hash = 881977963; - cdat->dsym_575__CLASS_MATCH_STEP.obj_len = 3; - - /*inistring dstr_576__CLASS_MATCH_STEP*/ - /*_.VALSTR___V648*/ meltfptr[647] = (void*)&cdat->dstr_576__CLASS_MATCH_STEP; - cdat->dstr_576__CLASS_MATCH_STEP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_576__CLASS_MATCH_STEP.val, "CLASS_MATCH_STEP", sizeof (cdat->dstr_576__CLASS_MATCH_STEP.val)-1); - - MELT_LOCATION("warmelt-normatch.melt:2466:/ iniobj"); - /*iniobj dobj_577__CLASS_MATCH_STEP*/ -/*_.VALDATA___V649*/ meltfptr[648] = (void*)&cdat->dobj_577__CLASS_MATCH_STEP; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_577__CLASS_MATCH_STEP", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_CLASS)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_577__CLASS_MATCH_STEP", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); - cdat->dobj_577__CLASS_MATCH_STEP.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); - cdat->dobj_577__CLASS_MATCH_STEP.obj_num = OBMAG_OBJECT; - cdat->dobj_577__CLASS_MATCH_STEP.obj_hash = 531429561; - cdat->dobj_577__CLASS_MATCH_STEP.obj_len = 8; - - /*inistring dstr_578__CLASS_MATCH_STEP*/ - /*_.VALSTR___V650*/ meltfptr[649] = (void*)&cdat->dstr_578__CLASS_MATCH_STEP; - cdat->dstr_578__CLASS_MATCH_STEP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_578__CLASS_MATCH_STEP.val, "CLASS_MATCH_STEP", sizeof (cdat->dstr_578__CLASS_MATCH_STEP.val)-1); - - /*inimult dtup_579__CLASS_MATCH_STEP*/ - /*_.VALTUP___V651*/ meltfptr[650] = (void*)&cdat->dtup_579__CLASS_MATCH_STEP; - cdat->dtup_579__CLASS_MATCH_STEP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); - cdat->dtup_579__CLASS_MATCH_STEP.nbval = 3; - /*inimult dtup_580__CLASS_MATCH_STEP*/ - /*_.VALTUP___V654*/ meltfptr[653] = (void*)&cdat->dtup_580__CLASS_MATCH_STEP; - cdat->dtup_580__CLASS_MATCH_STEP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); - cdat->dtup_580__CLASS_MATCH_STEP.nbval = 3; - /*iniobj dsym_581__MSTEP_DATA*/ -/*uniqueobj*/ if (!/*_.VALDATA___V655*/ meltfptr[654]) /*_.VALDATA___V655*/ meltfptr[654] = (void*)&cdat->dsym_581__MSTEP_DATA; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_581__MSTEP_DATA", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_581__MSTEP_DATA", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); - cdat->dsym_581__MSTEP_DATA.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_581__MSTEP_DATA.obj_hash = 153671690; - cdat->dsym_581__MSTEP_DATA.obj_len = 3; - - /*inistring dstr_582__MSTEP_DATA*/ - /*_.VALSTR___V656*/ meltfptr[655] = (void*)&cdat->dstr_582__MSTEP_DATA; - cdat->dstr_582__MSTEP_DATA.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_582__MSTEP_DATA.val, "MSTEP_DATA", sizeof (cdat->dstr_582__MSTEP_DATA.val)-1); + /*iniobj dobj_569__MATCHBIND_DATA*/ +/*_.VALDATA___V639*/ meltfptr[638] = (void*)&cdat->dobj_569__MATCHBIND_DATA; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_569__MATCHBIND_DATA", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_569__MATCHBIND_DATA", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); + cdat->dobj_569__MATCHBIND_DATA.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); + cdat->dobj_569__MATCHBIND_DATA.obj_num = 1; + cdat->dobj_569__MATCHBIND_DATA.obj_hash = 319453413; + cdat->dobj_569__MATCHBIND_DATA.obj_len = 4; + + /*inistring dstr_570__MATCHBIND_DATA*/ + /*_.VALSTR___V640*/ meltfptr[639] = (void*)&cdat->dstr_570__MATCHBIND_DATA; + cdat->dstr_570__MATCHBIND_DATA.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_570__MATCHBIND_DATA.val, "MATCHBIND_DATA", sizeof (cdat->dstr_570__MATCHBIND_DATA.val)-1); + + /*iniobj dsym_571__MATCHBIND_NBOCC*/ +/*uniqueobj*/ if (!/*_.VALDATA___V646*/ meltfptr[645]) /*_.VALDATA___V646*/ meltfptr[645] = (void*)&cdat->dsym_571__MATCHBIND_NBOCC; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_571__MATCHBIND_NBOCC", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_571__MATCHBIND_NBOCC", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); + cdat->dsym_571__MATCHBIND_NBOCC.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_571__MATCHBIND_NBOCC.obj_hash = 159965387; + cdat->dsym_571__MATCHBIND_NBOCC.obj_len = 3; + + /*inistring dstr_572__MATCHBIND_NBOCC*/ + /*_.VALSTR___V647*/ meltfptr[646] = (void*)&cdat->dstr_572__MATCHBIND_NBOCC; + cdat->dstr_572__MATCHBIND_NBOCC.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_572__MATCHBIND_NBOCC.val, "MATCHBIND_NBOCC", sizeof (cdat->dstr_572__MATCHBIND_NBOCC.val)-1); /*^iniobj*/ - /*iniobj dobj_583__MSTEP_DATA*/ -/*_.VALDATA___V652*/ meltfptr[651] = (void*)&cdat->dobj_583__MSTEP_DATA; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_583__MSTEP_DATA", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_583__MSTEP_DATA", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); - cdat->dobj_583__MSTEP_DATA.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); - cdat->dobj_583__MSTEP_DATA.obj_num = 2; - cdat->dobj_583__MSTEP_DATA.obj_hash = 860684488; - cdat->dobj_583__MSTEP_DATA.obj_len = 4; - - /*inistring dstr_584__MSTEP_DATA*/ - /*_.VALSTR___V653*/ meltfptr[652] = (void*)&cdat->dstr_584__MSTEP_DATA; - cdat->dstr_584__MSTEP_DATA.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_584__MSTEP_DATA.val, "MSTEP_DATA", sizeof (cdat->dstr_584__MSTEP_DATA.val)-1); - - /*iniobj dsym_585__CLASS_MATCH_STEP_THEN*/ -/*uniqueobj*/ if (!/*_.VALDATA___V657*/ meltfptr[656]) /*_.VALDATA___V657*/ meltfptr[656] = (void*)&cdat->dsym_585__CLASS_MATCH_STEP_THEN; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_585__CLASS_MATCH_STEP_THEN", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_585__CLASS_MATCH_STEP_THEN", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); - cdat->dsym_585__CLASS_MATCH_STEP_THEN.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_585__CLASS_MATCH_STEP_THEN.obj_hash = 406042424; - cdat->dsym_585__CLASS_MATCH_STEP_THEN.obj_len = 3; - - /*inistring dstr_586__CLASS_MATCH_STEP*/ - /*_.VALSTR___V658*/ meltfptr[657] = (void*)&cdat->dstr_586__CLASS_MATCH_STEP; - cdat->dstr_586__CLASS_MATCH_STEP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_586__CLASS_MATCH_STEP.val, "CLASS_MATCH_STEP_THEN", sizeof (cdat->dstr_586__CLASS_MATCH_STEP.val)-1); - - MELT_LOCATION("warmelt-normatch.melt:2474:/ iniobj"); - /*iniobj dobj_587__CLASS_MATCH_STEP_THEN*/ -/*_.VALDATA___V659*/ meltfptr[658] = (void*)&cdat->dobj_587__CLASS_MATCH_STEP_THEN; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_587__CLASS_MATCH_STEP_THEN", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_CLASS)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_587__CLASS_MATCH_STEP_THEN", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); - cdat->dobj_587__CLASS_MATCH_STEP_THEN.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); - cdat->dobj_587__CLASS_MATCH_STEP_THEN.obj_num = OBMAG_OBJECT; - cdat->dobj_587__CLASS_MATCH_STEP_THEN.obj_hash = 1021318728; - cdat->dobj_587__CLASS_MATCH_STEP_THEN.obj_len = 8; - - /*inistring dstr_588__CLASS_MATCH_STEP*/ - /*_.VALSTR___V660*/ meltfptr[659] = (void*)&cdat->dstr_588__CLASS_MATCH_STEP; - cdat->dstr_588__CLASS_MATCH_STEP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_588__CLASS_MATCH_STEP.val, "CLASS_MATCH_STEP_THEN", sizeof (cdat->dstr_588__CLASS_MATCH_STEP.val)-1); - - /*inimult dtup_589__CLASS_MATCH_STEP_THEN*/ - /*_.VALTUP___V661*/ meltfptr[660] = (void*)&cdat->dtup_589__CLASS_MATCH_STEP_THEN; - cdat->dtup_589__CLASS_MATCH_STEP_THEN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); - cdat->dtup_589__CLASS_MATCH_STEP_THEN.nbval = 4; - /*inimult dtup_590__CLASS_MATCH_STEP_THEN*/ - /*_.VALTUP___V664*/ meltfptr[663] = (void*)&cdat->dtup_590__CLASS_MATCH_STEP_THEN; - cdat->dtup_590__CLASS_MATCH_STEP_THEN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); - cdat->dtup_590__CLASS_MATCH_STEP_THEN.nbval = 4; - /*iniobj dsym_591__MSTEP_THEN*/ -/*uniqueobj*/ if (!/*_.VALDATA___V665*/ meltfptr[664]) /*_.VALDATA___V665*/ meltfptr[664] = (void*)&cdat->dsym_591__MSTEP_THEN; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_591__MSTEP_THEN", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_591__MSTEP_THEN", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); - cdat->dsym_591__MSTEP_THEN.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_591__MSTEP_THEN.obj_hash = 328175727; - cdat->dsym_591__MSTEP_THEN.obj_len = 3; - - /*inistring dstr_592__MSTEP_THEN*/ - /*_.VALSTR___V666*/ meltfptr[665] = (void*)&cdat->dstr_592__MSTEP_THEN; - cdat->dstr_592__MSTEP_THEN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_592__MSTEP_THEN.val, "MSTEP_THEN", sizeof (cdat->dstr_592__MSTEP_THEN.val)-1); + /*iniobj dobj_573__MATCHBIND_NBOCC*/ +/*_.VALDATA___V641*/ meltfptr[640] = (void*)&cdat->dobj_573__MATCHBIND_NBOCC; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_573__MATCHBIND_NBOCC", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_573__MATCHBIND_NBOCC", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); + cdat->dobj_573__MATCHBIND_NBOCC.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); + cdat->dobj_573__MATCHBIND_NBOCC.obj_num = 2; + cdat->dobj_573__MATCHBIND_NBOCC.obj_hash = 720014478; + cdat->dobj_573__MATCHBIND_NBOCC.obj_len = 4; + + /*inistring dstr_574__MATCHBIND_NBOCC*/ + /*_.VALSTR___V642*/ meltfptr[641] = (void*)&cdat->dstr_574__MATCHBIND_NBOCC; + cdat->dstr_574__MATCHBIND_NBOCC.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_574__MATCHBIND_NBOCC.val, "MATCHBIND_NBOCC", sizeof (cdat->dstr_574__MATCHBIND_NBOCC.val)-1); + + /*inirout drout_575__NORMBIND_MATCHBIND*/ + /*_.VALROUT___V648*/ meltfptr[647] = (void*)&cdat->drout_575__NORMBIND_MATCHBIND; + cdat->drout_575__NORMBIND_MATCHBIND.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); + strncpy(cdat->drout_575__NORMBIND_MATCHBIND.routdescr, "NORMBIND_MATCHBIND @warmelt-normatch.melt:2443", MELT_ROUTDESCR_LEN - 1); + cdat->drout_575__NORMBIND_MATCHBIND.nbval = 5; + MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_575__NORMBIND_MATCHBIND, meltrout_46_warmelt_normatch_NORMBIND_MATCHBIND); + + /*iniclos dclo_576__NORMBIND_MATCHBIND*/ + /*_.VALCLO___V649*/ meltfptr[648] = (void*)&cdat->dclo_576__NORMBIND_MATCHBIND; + cdat->dclo_576__NORMBIND_MATCHBIND.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); + cdat->dclo_576__NORMBIND_MATCHBIND.nbval = 0; + + /*iniobj dsym_577__NORMALIZE_BINDING*/ +/*uniqueobj*/ if (!/*_.VALDATA___V650*/ meltfptr[649]) /*_.VALDATA___V650*/ meltfptr[649] = (void*)&cdat->dsym_577__NORMALIZE_BINDING; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_577__NORMALIZE_BINDING", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_577__NORMALIZE_BINDING", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); + cdat->dsym_577__NORMALIZE_BINDING.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_577__NORMALIZE_BINDING.obj_hash = 689313377; + cdat->dsym_577__NORMALIZE_BINDING.obj_len = 3; + + /*inistring dstr_578__NORMALIZE_BINDIN*/ + /*_.VALSTR___V651*/ meltfptr[650] = (void*)&cdat->dstr_578__NORMALIZE_BINDIN; + cdat->dstr_578__NORMALIZE_BINDIN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_578__NORMALIZE_BINDIN.val, "NORMALIZE_BINDING", sizeof (cdat->dstr_578__NORMALIZE_BINDIN.val)-1); + + /*iniobj dsym_579__CLASS_MATCH_STEP*/ +/*uniqueobj*/ if (!/*_.VALDATA___V652*/ meltfptr[651]) /*_.VALDATA___V652*/ meltfptr[651] = (void*)&cdat->dsym_579__CLASS_MATCH_STEP; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_579__CLASS_MATCH_STEP", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_579__CLASS_MATCH_STEP", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); + cdat->dsym_579__CLASS_MATCH_STEP.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_579__CLASS_MATCH_STEP.obj_hash = 881977963; + cdat->dsym_579__CLASS_MATCH_STEP.obj_len = 3; + + /*inistring dstr_580__CLASS_MATCH_STEP*/ + /*_.VALSTR___V653*/ meltfptr[652] = (void*)&cdat->dstr_580__CLASS_MATCH_STEP; + cdat->dstr_580__CLASS_MATCH_STEP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_580__CLASS_MATCH_STEP.val, "CLASS_MATCH_STEP", sizeof (cdat->dstr_580__CLASS_MATCH_STEP.val)-1); + + MELT_LOCATION("warmelt-normatch.melt:2467:/ iniobj"); + /*iniobj dobj_581__CLASS_MATCH_STEP*/ +/*_.VALDATA___V654*/ meltfptr[653] = (void*)&cdat->dobj_581__CLASS_MATCH_STEP; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_581__CLASS_MATCH_STEP", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_CLASS)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_581__CLASS_MATCH_STEP", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); + cdat->dobj_581__CLASS_MATCH_STEP.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); + cdat->dobj_581__CLASS_MATCH_STEP.obj_num = OBMAG_OBJECT; + cdat->dobj_581__CLASS_MATCH_STEP.obj_hash = 859946026; + cdat->dobj_581__CLASS_MATCH_STEP.obj_len = 8; + + /*inistring dstr_582__CLASS_MATCH_STEP*/ + /*_.VALSTR___V655*/ meltfptr[654] = (void*)&cdat->dstr_582__CLASS_MATCH_STEP; + cdat->dstr_582__CLASS_MATCH_STEP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_582__CLASS_MATCH_STEP.val, "CLASS_MATCH_STEP", sizeof (cdat->dstr_582__CLASS_MATCH_STEP.val)-1); + + /*inimult dtup_583__CLASS_MATCH_STEP*/ + /*_.VALTUP___V656*/ meltfptr[655] = (void*)&cdat->dtup_583__CLASS_MATCH_STEP; + cdat->dtup_583__CLASS_MATCH_STEP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); + cdat->dtup_583__CLASS_MATCH_STEP.nbval = 3; + /*inimult dtup_584__CLASS_MATCH_STEP*/ + /*_.VALTUP___V659*/ meltfptr[658] = (void*)&cdat->dtup_584__CLASS_MATCH_STEP; + cdat->dtup_584__CLASS_MATCH_STEP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); + cdat->dtup_584__CLASS_MATCH_STEP.nbval = 3; + /*iniobj dsym_585__MSTEP_DATA*/ +/*uniqueobj*/ if (!/*_.VALDATA___V660*/ meltfptr[659]) /*_.VALDATA___V660*/ meltfptr[659] = (void*)&cdat->dsym_585__MSTEP_DATA; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_585__MSTEP_DATA", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_585__MSTEP_DATA", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); + cdat->dsym_585__MSTEP_DATA.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_585__MSTEP_DATA.obj_hash = 153671690; + cdat->dsym_585__MSTEP_DATA.obj_len = 3; + + /*inistring dstr_586__MSTEP_DATA*/ + /*_.VALSTR___V661*/ meltfptr[660] = (void*)&cdat->dstr_586__MSTEP_DATA; + cdat->dstr_586__MSTEP_DATA.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_586__MSTEP_DATA.val, "MSTEP_DATA", sizeof (cdat->dstr_586__MSTEP_DATA.val)-1); /*^iniobj*/ - /*iniobj dobj_593__MSTEP_THEN*/ -/*_.VALDATA___V662*/ meltfptr[661] = (void*)&cdat->dobj_593__MSTEP_THEN; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_593__MSTEP_THEN", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_593__MSTEP_THEN", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); - cdat->dobj_593__MSTEP_THEN.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); - cdat->dobj_593__MSTEP_THEN.obj_num = 3; - cdat->dobj_593__MSTEP_THEN.obj_hash = 916779657; - cdat->dobj_593__MSTEP_THEN.obj_len = 4; - - /*inistring dstr_594__MSTEP_THEN*/ - /*_.VALSTR___V663*/ meltfptr[662] = (void*)&cdat->dstr_594__MSTEP_THEN; - cdat->dstr_594__MSTEP_THEN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_594__MSTEP_THEN.val, "MSTEP_THEN", sizeof (cdat->dstr_594__MSTEP_THEN.val)-1); - - /*iniobj dsym_595__CLASS_MATCH_STEP_SET_VARIABLE*/ -/*uniqueobj*/ if (!/*_.VALDATA___V667*/ meltfptr[666]) /*_.VALDATA___V667*/ meltfptr[666] = (void*)&cdat->dsym_595__CLASS_MATCH_STEP_SET_VARIABLE; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_595__CLASS_MATCH_STEP_SET_VARIABLE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_595__CLASS_MATCH_STEP_SET_VARIABLE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); - cdat->dsym_595__CLASS_MATCH_STEP_SET_VARIABLE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_595__CLASS_MATCH_STEP_SET_VARIABLE.obj_hash = 393809741; - cdat->dsym_595__CLASS_MATCH_STEP_SET_VARIABLE.obj_len = 3; - - /*inistring dstr_596__CLASS_MATCH_STEP*/ - /*_.VALSTR___V668*/ meltfptr[667] = (void*)&cdat->dstr_596__CLASS_MATCH_STEP; - cdat->dstr_596__CLASS_MATCH_STEP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_596__CLASS_MATCH_STEP.val, "CLASS_MATCH_STEP_SET_VARIABLE", sizeof (cdat->dstr_596__CLASS_MATCH_STEP.val)-1); - - MELT_LOCATION("warmelt-normatch.melt:2480:/ iniobj"); - /*iniobj dobj_597__CLASS_MATCH_STEP_SET_VARIABLE*/ -/*_.VALDATA___V669*/ meltfptr[668] = (void*)&cdat->dobj_597__CLASS_MATCH_STEP_SET_VARIABLE; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_597__CLASS_MATCH_STEP_SET_VARIABLE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_CLASS)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_597__CLASS_MATCH_STEP_SET_VARIABLE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); - cdat->dobj_597__CLASS_MATCH_STEP_SET_VARIABLE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); - cdat->dobj_597__CLASS_MATCH_STEP_SET_VARIABLE.obj_num = OBMAG_OBJECT; - cdat->dobj_597__CLASS_MATCH_STEP_SET_VARIABLE.obj_hash = 544816562; - cdat->dobj_597__CLASS_MATCH_STEP_SET_VARIABLE.obj_len = 8; - - /*inistring dstr_598__CLASS_MATCH_STEP*/ - /*_.VALSTR___V670*/ meltfptr[669] = (void*)&cdat->dstr_598__CLASS_MATCH_STEP; - cdat->dstr_598__CLASS_MATCH_STEP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_598__CLASS_MATCH_STEP.val, "CLASS_MATCH_STEP_SET_VARIABLE", sizeof (cdat->dstr_598__CLASS_MATCH_STEP.val)-1); - - /*inimult dtup_599__CLASS_MATCH_STEP_SET_VARIABLE*/ - /*_.VALTUP___V671*/ meltfptr[670] = (void*)&cdat->dtup_599__CLASS_MATCH_STEP_SET_VARIABLE; - cdat->dtup_599__CLASS_MATCH_STEP_SET_VARIABLE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); - cdat->dtup_599__CLASS_MATCH_STEP_SET_VARIABLE.nbval = 5; - /*inimult dtup_600__CLASS_MATCH_STEP_SET_VARIABLE*/ - /*_.VALTUP___V674*/ meltfptr[673] = (void*)&cdat->dtup_600__CLASS_MATCH_STEP_SET_VARIABLE; - cdat->dtup_600__CLASS_MATCH_STEP_SET_VARIABLE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); - cdat->dtup_600__CLASS_MATCH_STEP_SET_VARIABLE.nbval = 5; - /*iniobj dsym_601__MSTEPSETVAR_SYMB*/ -/*uniqueobj*/ if (!/*_.VALDATA___V675*/ meltfptr[674]) /*_.VALDATA___V675*/ meltfptr[674] = (void*)&cdat->dsym_601__MSTEPSETVAR_SYMB; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_601__MSTEPSETVAR_SYMB", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_601__MSTEPSETVAR_SYMB", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); - cdat->dsym_601__MSTEPSETVAR_SYMB.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_601__MSTEPSETVAR_SYMB.obj_hash = 16459348; - cdat->dsym_601__MSTEPSETVAR_SYMB.obj_len = 3; - - /*inistring dstr_602__MSTEPSETVAR_SYMB*/ - /*_.VALSTR___V676*/ meltfptr[675] = (void*)&cdat->dstr_602__MSTEPSETVAR_SYMB; - cdat->dstr_602__MSTEPSETVAR_SYMB.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_602__MSTEPSETVAR_SYMB.val, "MSTEPSETVAR_SYMB", sizeof (cdat->dstr_602__MSTEPSETVAR_SYMB.val)-1); + /*iniobj dobj_587__MSTEP_DATA*/ +/*_.VALDATA___V657*/ meltfptr[656] = (void*)&cdat->dobj_587__MSTEP_DATA; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_587__MSTEP_DATA", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_587__MSTEP_DATA", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); + cdat->dobj_587__MSTEP_DATA.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); + cdat->dobj_587__MSTEP_DATA.obj_num = 2; + cdat->dobj_587__MSTEP_DATA.obj_hash = 708481382; + cdat->dobj_587__MSTEP_DATA.obj_len = 4; + + /*inistring dstr_588__MSTEP_DATA*/ + /*_.VALSTR___V658*/ meltfptr[657] = (void*)&cdat->dstr_588__MSTEP_DATA; + cdat->dstr_588__MSTEP_DATA.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_588__MSTEP_DATA.val, "MSTEP_DATA", sizeof (cdat->dstr_588__MSTEP_DATA.val)-1); + + /*iniobj dsym_589__CLASS_MATCH_FLAG*/ +/*uniqueobj*/ if (!/*_.VALDATA___V662*/ meltfptr[661]) /*_.VALDATA___V662*/ meltfptr[661] = (void*)&cdat->dsym_589__CLASS_MATCH_FLAG; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_589__CLASS_MATCH_FLAG", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_589__CLASS_MATCH_FLAG", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); + cdat->dsym_589__CLASS_MATCH_FLAG.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_589__CLASS_MATCH_FLAG.obj_hash = 1656306; + cdat->dsym_589__CLASS_MATCH_FLAG.obj_len = 3; + + /*inistring dstr_590__CLASS_MATCH_FLAG*/ + /*_.VALSTR___V663*/ meltfptr[662] = (void*)&cdat->dstr_590__CLASS_MATCH_FLAG; + cdat->dstr_590__CLASS_MATCH_FLAG.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_590__CLASS_MATCH_FLAG.val, "CLASS_MATCH_FLAG", sizeof (cdat->dstr_590__CLASS_MATCH_FLAG.val)-1); + + MELT_LOCATION("warmelt-normatch.melt:2475:/ iniobj"); + /*iniobj dobj_591__CLASS_MATCH_FLAG*/ +/*_.VALDATA___V664*/ meltfptr[663] = (void*)&cdat->dobj_591__CLASS_MATCH_FLAG; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_591__CLASS_MATCH_FLAG", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_CLASS)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_591__CLASS_MATCH_FLAG", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); + cdat->dobj_591__CLASS_MATCH_FLAG.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); + cdat->dobj_591__CLASS_MATCH_FLAG.obj_num = OBMAG_OBJECT; + cdat->dobj_591__CLASS_MATCH_FLAG.obj_hash = 723556027; + cdat->dobj_591__CLASS_MATCH_FLAG.obj_len = 8; + + /*inistring dstr_592__CLASS_MATCH_FLAG*/ + /*_.VALSTR___V665*/ meltfptr[664] = (void*)&cdat->dstr_592__CLASS_MATCH_FLAG; + cdat->dstr_592__CLASS_MATCH_FLAG.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_592__CLASS_MATCH_FLAG.val, "CLASS_MATCH_FLAG", sizeof (cdat->dstr_592__CLASS_MATCH_FLAG.val)-1); + + /*inimult dtup_593__CLASS_MATCH_FLAG*/ + /*_.VALTUP___V666*/ meltfptr[665] = (void*)&cdat->dtup_593__CLASS_MATCH_FLAG; + cdat->dtup_593__CLASS_MATCH_FLAG.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); + cdat->dtup_593__CLASS_MATCH_FLAG.nbval = 3; + /*inimult dtup_594__CLASS_MATCH_FLAG*/ + /*_.VALTUP___V675*/ meltfptr[674] = (void*)&cdat->dtup_594__CLASS_MATCH_FLAG; + cdat->dtup_594__CLASS_MATCH_FLAG.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); + cdat->dtup_594__CLASS_MATCH_FLAG.nbval = 6; + /*iniobj dsym_595__MFLAG_SPAT*/ +/*uniqueobj*/ if (!/*_.VALDATA___V676*/ meltfptr[675]) /*_.VALDATA___V676*/ meltfptr[675] = (void*)&cdat->dsym_595__MFLAG_SPAT; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_595__MFLAG_SPAT", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_595__MFLAG_SPAT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); + cdat->dsym_595__MFLAG_SPAT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_595__MFLAG_SPAT.obj_hash = 62636525; + cdat->dsym_595__MFLAG_SPAT.obj_len = 3; + + /*inistring dstr_596__MFLAG_SPAT*/ + /*_.VALSTR___V677*/ meltfptr[676] = (void*)&cdat->dstr_596__MFLAG_SPAT; + cdat->dstr_596__MFLAG_SPAT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_596__MFLAG_SPAT.val, "MFLAG_SPAT", sizeof (cdat->dstr_596__MFLAG_SPAT.val)-1); /*^iniobj*/ - /*iniobj dobj_603__MSTEPSETVAR_SYMB*/ -/*_.VALDATA___V672*/ meltfptr[671] = (void*)&cdat->dobj_603__MSTEPSETVAR_SYMB; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_603__MSTEPSETVAR_SYMB", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_603__MSTEPSETVAR_SYMB", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); - cdat->dobj_603__MSTEPSETVAR_SYMB.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); - cdat->dobj_603__MSTEPSETVAR_SYMB.obj_num = 4; - cdat->dobj_603__MSTEPSETVAR_SYMB.obj_hash = 418340971; - cdat->dobj_603__MSTEPSETVAR_SYMB.obj_len = 4; - - /*inistring dstr_604__MSTEPSETVAR_SYMB*/ - /*_.VALSTR___V673*/ meltfptr[672] = (void*)&cdat->dstr_604__MSTEPSETVAR_SYMB; - cdat->dstr_604__MSTEPSETVAR_SYMB.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_604__MSTEPSETVAR_SYMB.val, "MSTEPSETVAR_SYMB", sizeof (cdat->dstr_604__MSTEPSETVAR_SYMB.val)-1); - - /*iniobj dsym_605__CLASS_MATCH_STEP_SUCCESS*/ -/*uniqueobj*/ if (!/*_.VALDATA___V677*/ meltfptr[676]) /*_.VALDATA___V677*/ meltfptr[676] = (void*)&cdat->dsym_605__CLASS_MATCH_STEP_SUCCESS; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_605__CLASS_MATCH_STEP_SUCCESS", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_605__CLASS_MATCH_STEP_SUCCESS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); - cdat->dsym_605__CLASS_MATCH_STEP_SUCCESS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_605__CLASS_MATCH_STEP_SUCCESS.obj_hash = 123107607; - cdat->dsym_605__CLASS_MATCH_STEP_SUCCESS.obj_len = 3; - - /*inistring dstr_606__CLASS_MATCH_STEP*/ - /*_.VALSTR___V678*/ meltfptr[677] = (void*)&cdat->dstr_606__CLASS_MATCH_STEP; - cdat->dstr_606__CLASS_MATCH_STEP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_606__CLASS_MATCH_STEP.val, "CLASS_MATCH_STEP_SUCCESS", sizeof (cdat->dstr_606__CLASS_MATCH_STEP.val)-1); - - MELT_LOCATION("warmelt-normatch.melt:2486:/ iniobj"); - /*iniobj dobj_607__CLASS_MATCH_STEP_SUCCESS*/ -/*_.VALDATA___V679*/ meltfptr[678] = (void*)&cdat->dobj_607__CLASS_MATCH_STEP_SUCCESS; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_607__CLASS_MATCH_STEP_SUCCESS", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_CLASS)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_607__CLASS_MATCH_STEP_SUCCESS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); - cdat->dobj_607__CLASS_MATCH_STEP_SUCCESS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); - cdat->dobj_607__CLASS_MATCH_STEP_SUCCESS.obj_num = OBMAG_OBJECT; - cdat->dobj_607__CLASS_MATCH_STEP_SUCCESS.obj_hash = 605821302; - cdat->dobj_607__CLASS_MATCH_STEP_SUCCESS.obj_len = 8; - - /*inistring dstr_608__CLASS_MATCH_STEP*/ - /*_.VALSTR___V680*/ meltfptr[679] = (void*)&cdat->dstr_608__CLASS_MATCH_STEP; - cdat->dstr_608__CLASS_MATCH_STEP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_608__CLASS_MATCH_STEP.val, "CLASS_MATCH_STEP_SUCCESS", sizeof (cdat->dstr_608__CLASS_MATCH_STEP.val)-1); - - /*inimult dtup_609__CLASS_MATCH_STEP_SUCCESS*/ - /*_.VALTUP___V681*/ meltfptr[680] = (void*)&cdat->dtup_609__CLASS_MATCH_STEP_SUCCESS; - cdat->dtup_609__CLASS_MATCH_STEP_SUCCESS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); - cdat->dtup_609__CLASS_MATCH_STEP_SUCCESS.nbval = 5; - /*inimult dtup_610__CLASS_MATCH_STEP_SUCCESS*/ - /*_.VALTUP___V688*/ meltfptr[687] = (void*)&cdat->dtup_610__CLASS_MATCH_STEP_SUCCESS; - cdat->dtup_610__CLASS_MATCH_STEP_SUCCESS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); - cdat->dtup_610__CLASS_MATCH_STEP_SUCCESS.nbval = 7; - /*iniobj dsym_611__MSTEPSUCCESS_VAROCC*/ -/*uniqueobj*/ if (!/*_.VALDATA___V689*/ meltfptr[688]) /*_.VALDATA___V689*/ meltfptr[688] = (void*)&cdat->dsym_611__MSTEPSUCCESS_VAROCC; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_611__MSTEPSUCCESS_VAROCC", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_611__MSTEPSUCCESS_VAROCC", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); - cdat->dsym_611__MSTEPSUCCESS_VAROCC.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_611__MSTEPSUCCESS_VAROCC.obj_hash = 502553316; - cdat->dsym_611__MSTEPSUCCESS_VAROCC.obj_len = 3; - - /*inistring dstr_612__MSTEPSUCCESS_VAR*/ - /*_.VALSTR___V690*/ meltfptr[689] = (void*)&cdat->dstr_612__MSTEPSUCCESS_VAR; - cdat->dstr_612__MSTEPSUCCESS_VAR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_612__MSTEPSUCCESS_VAR.val, "MSTEPSUCCESS_VAROCC", sizeof (cdat->dstr_612__MSTEPSUCCESS_VAR.val)-1); + /*iniobj dobj_597__MFLAG_SPAT*/ +/*_.VALDATA___V667*/ meltfptr[666] = (void*)&cdat->dobj_597__MFLAG_SPAT; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_597__MFLAG_SPAT", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_597__MFLAG_SPAT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); + cdat->dobj_597__MFLAG_SPAT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); + cdat->dobj_597__MFLAG_SPAT.obj_num = 2; + cdat->dobj_597__MFLAG_SPAT.obj_hash = 69955197; + cdat->dobj_597__MFLAG_SPAT.obj_len = 4; + + /*inistring dstr_598__MFLAG_SPAT*/ + /*_.VALSTR___V668*/ meltfptr[667] = (void*)&cdat->dstr_598__MFLAG_SPAT; + cdat->dstr_598__MFLAG_SPAT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_598__MFLAG_SPAT.val, "MFLAG_SPAT", sizeof (cdat->dstr_598__MFLAG_SPAT.val)-1); + + /*iniobj dsym_599__MFLAG_RANK*/ +/*uniqueobj*/ if (!/*_.VALDATA___V678*/ meltfptr[677]) /*_.VALDATA___V678*/ meltfptr[677] = (void*)&cdat->dsym_599__MFLAG_RANK; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_599__MFLAG_RANK", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_599__MFLAG_RANK", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); + cdat->dsym_599__MFLAG_RANK.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_599__MFLAG_RANK.obj_hash = 707610330; + cdat->dsym_599__MFLAG_RANK.obj_len = 3; + + /*inistring dstr_600__MFLAG_RANK*/ + /*_.VALSTR___V679*/ meltfptr[678] = (void*)&cdat->dstr_600__MFLAG_RANK; + cdat->dstr_600__MFLAG_RANK.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_600__MFLAG_RANK.val, "MFLAG_RANK", sizeof (cdat->dstr_600__MFLAG_RANK.val)-1); /*^iniobj*/ - /*iniobj dobj_613__MSTEPSUCCESS_VAROCC*/ -/*_.VALDATA___V682*/ meltfptr[681] = (void*)&cdat->dobj_613__MSTEPSUCCESS_VAROCC; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_613__MSTEPSUCCESS_VAROCC", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_613__MSTEPSUCCESS_VAROCC", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); - cdat->dobj_613__MSTEPSUCCESS_VAROCC.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); - cdat->dobj_613__MSTEPSUCCESS_VAROCC.obj_num = 4; - cdat->dobj_613__MSTEPSUCCESS_VAROCC.obj_hash = 57166419; - cdat->dobj_613__MSTEPSUCCESS_VAROCC.obj_len = 4; - - /*inistring dstr_614__MSTEPSUCCESS_VAR*/ - /*_.VALSTR___V683*/ meltfptr[682] = (void*)&cdat->dstr_614__MSTEPSUCCESS_VAR; - cdat->dstr_614__MSTEPSUCCESS_VAR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_614__MSTEPSUCCESS_VAR.val, "MSTEPSUCCESS_VAROCC", sizeof (cdat->dstr_614__MSTEPSUCCESS_VAR.val)-1); - - /*iniobj dsym_615__MSTEPSUCCESS_BINDS*/ -/*uniqueobj*/ if (!/*_.VALDATA___V691*/ meltfptr[690]) /*_.VALDATA___V691*/ meltfptr[690] = (void*)&cdat->dsym_615__MSTEPSUCCESS_BINDS; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_615__MSTEPSUCCESS_BINDS", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_615__MSTEPSUCCESS_BINDS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); - cdat->dsym_615__MSTEPSUCCESS_BINDS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_615__MSTEPSUCCESS_BINDS.obj_hash = 862501677; - cdat->dsym_615__MSTEPSUCCESS_BINDS.obj_len = 3; - - /*inistring dstr_616__MSTEPSUCCESS_BIN*/ - /*_.VALSTR___V692*/ meltfptr[691] = (void*)&cdat->dstr_616__MSTEPSUCCESS_BIN; - cdat->dstr_616__MSTEPSUCCESS_BIN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_616__MSTEPSUCCESS_BIN.val, "MSTEPSUCCESS_BINDS", sizeof (cdat->dstr_616__MSTEPSUCCESS_BIN.val)-1); + /*iniobj dobj_601__MFLAG_RANK*/ +/*_.VALDATA___V669*/ meltfptr[668] = (void*)&cdat->dobj_601__MFLAG_RANK; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_601__MFLAG_RANK", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_601__MFLAG_RANK", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); + cdat->dobj_601__MFLAG_RANK.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); + cdat->dobj_601__MFLAG_RANK.obj_num = 3; + cdat->dobj_601__MFLAG_RANK.obj_hash = 109724883; + cdat->dobj_601__MFLAG_RANK.obj_len = 4; + + /*inistring dstr_602__MFLAG_RANK*/ + /*_.VALSTR___V670*/ meltfptr[669] = (void*)&cdat->dstr_602__MFLAG_RANK; + cdat->dstr_602__MFLAG_RANK.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_602__MFLAG_RANK.val, "MFLAG_RANK", sizeof (cdat->dstr_602__MFLAG_RANK.val)-1); + + /*iniobj dsym_603__MFLAG_STRING*/ +/*uniqueobj*/ if (!/*_.VALDATA___V680*/ meltfptr[679]) /*_.VALDATA___V680*/ meltfptr[679] = (void*)&cdat->dsym_603__MFLAG_STRING; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_603__MFLAG_STRING", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_603__MFLAG_STRING", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); + cdat->dsym_603__MFLAG_STRING.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_603__MFLAG_STRING.obj_hash = 984613516; + cdat->dsym_603__MFLAG_STRING.obj_len = 3; + + /*inistring dstr_604__MFLAG_STRING*/ + /*_.VALSTR___V681*/ meltfptr[680] = (void*)&cdat->dstr_604__MFLAG_STRING; + cdat->dstr_604__MFLAG_STRING.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_604__MFLAG_STRING.val, "MFLAG_STRING", sizeof (cdat->dstr_604__MFLAG_STRING.val)-1); /*^iniobj*/ - /*iniobj dobj_617__MSTEPSUCCESS_BINDS*/ -/*_.VALDATA___V684*/ meltfptr[683] = (void*)&cdat->dobj_617__MSTEPSUCCESS_BINDS; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_617__MSTEPSUCCESS_BINDS", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_617__MSTEPSUCCESS_BINDS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); - cdat->dobj_617__MSTEPSUCCESS_BINDS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); - cdat->dobj_617__MSTEPSUCCESS_BINDS.obj_num = 5; - cdat->dobj_617__MSTEPSUCCESS_BINDS.obj_hash = 612602366; - cdat->dobj_617__MSTEPSUCCESS_BINDS.obj_len = 4; - - /*inistring dstr_618__MSTEPSUCCESS_BIN*/ - /*_.VALSTR___V685*/ meltfptr[684] = (void*)&cdat->dstr_618__MSTEPSUCCESS_BIN; - cdat->dstr_618__MSTEPSUCCESS_BIN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_618__MSTEPSUCCESS_BIN.val, "MSTEPSUCCESS_BINDS", sizeof (cdat->dstr_618__MSTEPSUCCESS_BIN.val)-1); - - /*iniobj dsym_619__MSTEPSUCCESS_BODY*/ -/*uniqueobj*/ if (!/*_.VALDATA___V693*/ meltfptr[692]) /*_.VALDATA___V693*/ meltfptr[692] = (void*)&cdat->dsym_619__MSTEPSUCCESS_BODY; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_619__MSTEPSUCCESS_BODY", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_619__MSTEPSUCCESS_BODY", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); - cdat->dsym_619__MSTEPSUCCESS_BODY.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_619__MSTEPSUCCESS_BODY.obj_hash = 270381222; - cdat->dsym_619__MSTEPSUCCESS_BODY.obj_len = 3; - - /*inistring dstr_620__MSTEPSUCCESS_BOD*/ - /*_.VALSTR___V694*/ meltfptr[693] = (void*)&cdat->dstr_620__MSTEPSUCCESS_BOD; - cdat->dstr_620__MSTEPSUCCESS_BOD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_620__MSTEPSUCCESS_BOD.val, "MSTEPSUCCESS_BODY", sizeof (cdat->dstr_620__MSTEPSUCCESS_BOD.val)-1); + /*iniobj dobj_605__MFLAG_STRING*/ +/*_.VALDATA___V671*/ meltfptr[670] = (void*)&cdat->dobj_605__MFLAG_STRING; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_605__MFLAG_STRING", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_605__MFLAG_STRING", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); + cdat->dobj_605__MFLAG_STRING.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); + cdat->dobj_605__MFLAG_STRING.obj_num = 4; + cdat->dobj_605__MFLAG_STRING.obj_hash = 527737683; + cdat->dobj_605__MFLAG_STRING.obj_len = 4; + + /*inistring dstr_606__MFLAG_STRING*/ + /*_.VALSTR___V672*/ meltfptr[671] = (void*)&cdat->dstr_606__MFLAG_STRING; + cdat->dstr_606__MFLAG_STRING.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_606__MFLAG_STRING.val, "MFLAG_STRING", sizeof (cdat->dstr_606__MFLAG_STRING.val)-1); + + /*iniobj dsym_607__MFLAG_SETSTEP*/ +/*uniqueobj*/ if (!/*_.VALDATA___V682*/ meltfptr[681]) /*_.VALDATA___V682*/ meltfptr[681] = (void*)&cdat->dsym_607__MFLAG_SETSTEP; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_607__MFLAG_SETSTEP", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_607__MFLAG_SETSTEP", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); + cdat->dsym_607__MFLAG_SETSTEP.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_607__MFLAG_SETSTEP.obj_hash = 135121117; + cdat->dsym_607__MFLAG_SETSTEP.obj_len = 3; + + /*inistring dstr_608__MFLAG_SETSTEP*/ + /*_.VALSTR___V683*/ meltfptr[682] = (void*)&cdat->dstr_608__MFLAG_SETSTEP; + cdat->dstr_608__MFLAG_SETSTEP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_608__MFLAG_SETSTEP.val, "MFLAG_SETSTEP", sizeof (cdat->dstr_608__MFLAG_SETSTEP.val)-1); /*^iniobj*/ - /*iniobj dobj_621__MSTEPSUCCESS_BODY*/ -/*_.VALDATA___V686*/ meltfptr[685] = (void*)&cdat->dobj_621__MSTEPSUCCESS_BODY; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_621__MSTEPSUCCESS_BODY", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_621__MSTEPSUCCESS_BODY", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); - cdat->dobj_621__MSTEPSUCCESS_BODY.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); - cdat->dobj_621__MSTEPSUCCESS_BODY.obj_num = 6; - cdat->dobj_621__MSTEPSUCCESS_BODY.obj_hash = 991176071; - cdat->dobj_621__MSTEPSUCCESS_BODY.obj_len = 4; - - /*inistring dstr_622__MSTEPSUCCESS_BOD*/ - /*_.VALSTR___V687*/ meltfptr[686] = (void*)&cdat->dstr_622__MSTEPSUCCESS_BOD; - cdat->dstr_622__MSTEPSUCCESS_BOD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_622__MSTEPSUCCESS_BOD.val, "MSTEPSUCCESS_BODY", sizeof (cdat->dstr_622__MSTEPSUCCESS_BOD.val)-1); - - /*iniobj dsym_623__CLASS_MATCH_STEP_TEST*/ -/*uniqueobj*/ if (!/*_.VALDATA___V695*/ meltfptr[694]) /*_.VALDATA___V695*/ meltfptr[694] = (void*)&cdat->dsym_623__CLASS_MATCH_STEP_TEST; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_623__CLASS_MATCH_STEP_TEST", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_623__CLASS_MATCH_STEP_TEST", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); - cdat->dsym_623__CLASS_MATCH_STEP_TEST.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_623__CLASS_MATCH_STEP_TEST.obj_hash = 899758560; - cdat->dsym_623__CLASS_MATCH_STEP_TEST.obj_len = 3; + /*iniobj dobj_609__MFLAG_SETSTEP*/ +/*_.VALDATA___V673*/ meltfptr[672] = (void*)&cdat->dobj_609__MFLAG_SETSTEP; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_609__MFLAG_SETSTEP", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_609__MFLAG_SETSTEP", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); + cdat->dobj_609__MFLAG_SETSTEP.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); + cdat->dobj_609__MFLAG_SETSTEP.obj_num = 5; + cdat->dobj_609__MFLAG_SETSTEP.obj_hash = 752978818; + cdat->dobj_609__MFLAG_SETSTEP.obj_len = 4; + + /*inistring dstr_610__MFLAG_SETSTEP*/ + /*_.VALSTR___V674*/ meltfptr[673] = (void*)&cdat->dstr_610__MFLAG_SETSTEP; + cdat->dstr_610__MFLAG_SETSTEP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_610__MFLAG_SETSTEP.val, "MFLAG_SETSTEP", sizeof (cdat->dstr_610__MFLAG_SETSTEP.val)-1); + + /*iniobj dsym_611__CLASS_MATCH_STEP_THEN*/ +/*uniqueobj*/ if (!/*_.VALDATA___V684*/ meltfptr[683]) /*_.VALDATA___V684*/ meltfptr[683] = (void*)&cdat->dsym_611__CLASS_MATCH_STEP_THEN; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_611__CLASS_MATCH_STEP_THEN", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_611__CLASS_MATCH_STEP_THEN", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); + cdat->dsym_611__CLASS_MATCH_STEP_THEN.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_611__CLASS_MATCH_STEP_THEN.obj_hash = 406042424; + cdat->dsym_611__CLASS_MATCH_STEP_THEN.obj_len = 3; + + /*inistring dstr_612__CLASS_MATCH_STEP*/ + /*_.VALSTR___V685*/ meltfptr[684] = (void*)&cdat->dstr_612__CLASS_MATCH_STEP; + cdat->dstr_612__CLASS_MATCH_STEP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_612__CLASS_MATCH_STEP.val, "CLASS_MATCH_STEP_THEN", sizeof (cdat->dstr_612__CLASS_MATCH_STEP.val)-1); + + MELT_LOCATION("warmelt-normatch.melt:2488:/ iniobj"); + /*iniobj dobj_613__CLASS_MATCH_STEP_THEN*/ +/*_.VALDATA___V686*/ meltfptr[685] = (void*)&cdat->dobj_613__CLASS_MATCH_STEP_THEN; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_613__CLASS_MATCH_STEP_THEN", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_CLASS)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_613__CLASS_MATCH_STEP_THEN", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); + cdat->dobj_613__CLASS_MATCH_STEP_THEN.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); + cdat->dobj_613__CLASS_MATCH_STEP_THEN.obj_num = OBMAG_OBJECT; + cdat->dobj_613__CLASS_MATCH_STEP_THEN.obj_hash = 755640825; + cdat->dobj_613__CLASS_MATCH_STEP_THEN.obj_len = 8; + + /*inistring dstr_614__CLASS_MATCH_STEP*/ + /*_.VALSTR___V687*/ meltfptr[686] = (void*)&cdat->dstr_614__CLASS_MATCH_STEP; + cdat->dstr_614__CLASS_MATCH_STEP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_614__CLASS_MATCH_STEP.val, "CLASS_MATCH_STEP_THEN", sizeof (cdat->dstr_614__CLASS_MATCH_STEP.val)-1); + + /*inimult dtup_615__CLASS_MATCH_STEP_THEN*/ + /*_.VALTUP___V688*/ meltfptr[687] = (void*)&cdat->dtup_615__CLASS_MATCH_STEP_THEN; + cdat->dtup_615__CLASS_MATCH_STEP_THEN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); + cdat->dtup_615__CLASS_MATCH_STEP_THEN.nbval = 4; + /*inimult dtup_616__CLASS_MATCH_STEP_THEN*/ + /*_.VALTUP___V691*/ meltfptr[690] = (void*)&cdat->dtup_616__CLASS_MATCH_STEP_THEN; + cdat->dtup_616__CLASS_MATCH_STEP_THEN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); + cdat->dtup_616__CLASS_MATCH_STEP_THEN.nbval = 4; + /*iniobj dsym_617__MSTEP_THEN*/ +/*uniqueobj*/ if (!/*_.VALDATA___V692*/ meltfptr[691]) /*_.VALDATA___V692*/ meltfptr[691] = (void*)&cdat->dsym_617__MSTEP_THEN; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_617__MSTEP_THEN", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_617__MSTEP_THEN", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); + cdat->dsym_617__MSTEP_THEN.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_617__MSTEP_THEN.obj_hash = 328175727; + cdat->dsym_617__MSTEP_THEN.obj_len = 3; + + /*inistring dstr_618__MSTEP_THEN*/ + /*_.VALSTR___V693*/ meltfptr[692] = (void*)&cdat->dstr_618__MSTEP_THEN; + cdat->dstr_618__MSTEP_THEN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_618__MSTEP_THEN.val, "MSTEP_THEN", sizeof (cdat->dstr_618__MSTEP_THEN.val)-1); + + /*^iniobj*/ + /*iniobj dobj_619__MSTEP_THEN*/ +/*_.VALDATA___V689*/ meltfptr[688] = (void*)&cdat->dobj_619__MSTEP_THEN; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_619__MSTEP_THEN", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_619__MSTEP_THEN", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); + cdat->dobj_619__MSTEP_THEN.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); + cdat->dobj_619__MSTEP_THEN.obj_num = 3; + cdat->dobj_619__MSTEP_THEN.obj_hash = 418750314; + cdat->dobj_619__MSTEP_THEN.obj_len = 4; + + /*inistring dstr_620__MSTEP_THEN*/ + /*_.VALSTR___V690*/ meltfptr[689] = (void*)&cdat->dstr_620__MSTEP_THEN; + cdat->dstr_620__MSTEP_THEN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_620__MSTEP_THEN.val, "MSTEP_THEN", sizeof (cdat->dstr_620__MSTEP_THEN.val)-1); + + /*iniobj dsym_621__CLASS_MATCH_STEP_ASSIGN_FLAG*/ +/*uniqueobj*/ if (!/*_.VALDATA___V694*/ meltfptr[693]) /*_.VALDATA___V694*/ meltfptr[693] = (void*)&cdat->dsym_621__CLASS_MATCH_STEP_ASSIGN_FLAG; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_621__CLASS_MATCH_STEP_ASSIGN_FLAG", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_621__CLASS_MATCH_STEP_ASSIGN_FLAG", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); + cdat->dsym_621__CLASS_MATCH_STEP_ASSIGN_FLAG.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_621__CLASS_MATCH_STEP_ASSIGN_FLAG.obj_hash = 242020341; + cdat->dsym_621__CLASS_MATCH_STEP_ASSIGN_FLAG.obj_len = 3; + + /*inistring dstr_622__CLASS_MATCH_STEP*/ + /*_.VALSTR___V695*/ meltfptr[694] = (void*)&cdat->dstr_622__CLASS_MATCH_STEP; + cdat->dstr_622__CLASS_MATCH_STEP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_622__CLASS_MATCH_STEP.val, "CLASS_MATCH_STEP_ASSIGN_FLAG", sizeof (cdat->dstr_622__CLASS_MATCH_STEP.val)-1); + + MELT_LOCATION("warmelt-normatch.melt:2495:/ iniobj"); + /*iniobj dobj_623__CLASS_MATCH_STEP_ASSIGN_FLAG*/ +/*_.VALDATA___V696*/ meltfptr[695] = (void*)&cdat->dobj_623__CLASS_MATCH_STEP_ASSIGN_FLAG; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_623__CLASS_MATCH_STEP_ASSIGN_FLAG", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_CLASS)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_623__CLASS_MATCH_STEP_ASSIGN_FLAG", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); + cdat->dobj_623__CLASS_MATCH_STEP_ASSIGN_FLAG.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); + cdat->dobj_623__CLASS_MATCH_STEP_ASSIGN_FLAG.obj_num = OBMAG_OBJECT; + cdat->dobj_623__CLASS_MATCH_STEP_ASSIGN_FLAG.obj_hash = 788468110; + cdat->dobj_623__CLASS_MATCH_STEP_ASSIGN_FLAG.obj_len = 8; /*inistring dstr_624__CLASS_MATCH_STEP*/ - /*_.VALSTR___V696*/ meltfptr[695] = (void*)&cdat->dstr_624__CLASS_MATCH_STEP; + /*_.VALSTR___V697*/ meltfptr[696] = (void*)&cdat->dstr_624__CLASS_MATCH_STEP; cdat->dstr_624__CLASS_MATCH_STEP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_624__CLASS_MATCH_STEP.val, "CLASS_MATCH_STEP_TEST", sizeof (cdat->dstr_624__CLASS_MATCH_STEP.val)-1); - - MELT_LOCATION("warmelt-normatch.melt:2496:/ iniobj"); - /*iniobj dobj_625__CLASS_MATCH_STEP_TEST*/ -/*_.VALDATA___V697*/ meltfptr[696] = (void*)&cdat->dobj_625__CLASS_MATCH_STEP_TEST; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_625__CLASS_MATCH_STEP_TEST", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_CLASS)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_625__CLASS_MATCH_STEP_TEST", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); - cdat->dobj_625__CLASS_MATCH_STEP_TEST.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); - cdat->dobj_625__CLASS_MATCH_STEP_TEST.obj_num = OBMAG_OBJECT; - cdat->dobj_625__CLASS_MATCH_STEP_TEST.obj_hash = 932622256; - cdat->dobj_625__CLASS_MATCH_STEP_TEST.obj_len = 8; - - /*inistring dstr_626__CLASS_MATCH_STEP*/ - /*_.VALSTR___V698*/ meltfptr[697] = (void*)&cdat->dstr_626__CLASS_MATCH_STEP; - cdat->dstr_626__CLASS_MATCH_STEP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_626__CLASS_MATCH_STEP.val, "CLASS_MATCH_STEP_TEST", sizeof (cdat->dstr_626__CLASS_MATCH_STEP.val)-1); - - /*inimult dtup_627__CLASS_MATCH_STEP_TEST*/ - /*_.VALTUP___V699*/ meltfptr[698] = (void*)&cdat->dtup_627__CLASS_MATCH_STEP_TEST; - cdat->dtup_627__CLASS_MATCH_STEP_TEST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); - cdat->dtup_627__CLASS_MATCH_STEP_TEST.nbval = 5; - /*inimult dtup_628__CLASS_MATCH_STEP_TEST*/ - /*_.VALTUP___V702*/ meltfptr[701] = (void*)&cdat->dtup_628__CLASS_MATCH_STEP_TEST; - cdat->dtup_628__CLASS_MATCH_STEP_TEST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); - cdat->dtup_628__CLASS_MATCH_STEP_TEST.nbval = 5; - /*iniobj dsym_629__MSTEP_ELSE*/ -/*uniqueobj*/ if (!/*_.VALDATA___V703*/ meltfptr[702]) /*_.VALDATA___V703*/ meltfptr[702] = (void*)&cdat->dsym_629__MSTEP_ELSE; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_629__MSTEP_ELSE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_629__MSTEP_ELSE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); - cdat->dsym_629__MSTEP_ELSE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_629__MSTEP_ELSE.obj_hash = 307203514; - cdat->dsym_629__MSTEP_ELSE.obj_len = 3; - - /*inistring dstr_630__MSTEP_ELSE*/ - /*_.VALSTR___V704*/ meltfptr[703] = (void*)&cdat->dstr_630__MSTEP_ELSE; - cdat->dstr_630__MSTEP_ELSE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_630__MSTEP_ELSE.val, "MSTEP_ELSE", sizeof (cdat->dstr_630__MSTEP_ELSE.val)-1); + strncpy(cdat->dstr_624__CLASS_MATCH_STEP.val, "CLASS_MATCH_STEP_ASSIGN_FLAG", sizeof (cdat->dstr_624__CLASS_MATCH_STEP.val)-1); + + /*inimult dtup_625__CLASS_MATCH_STEP_ASSIGN_FLAG*/ + /*_.VALTUP___V698*/ meltfptr[697] = (void*)&cdat->dtup_625__CLASS_MATCH_STEP_ASSIGN_FLAG; + cdat->dtup_625__CLASS_MATCH_STEP_ASSIGN_FLAG.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); + cdat->dtup_625__CLASS_MATCH_STEP_ASSIGN_FLAG.nbval = 5; + /*inimult dtup_626__CLASS_MATCH_STEP_ASSIGN_FLAG*/ + /*_.VALTUP___V701*/ meltfptr[700] = (void*)&cdat->dtup_626__CLASS_MATCH_STEP_ASSIGN_FLAG; + cdat->dtup_626__CLASS_MATCH_STEP_ASSIGN_FLAG.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); + cdat->dtup_626__CLASS_MATCH_STEP_ASSIGN_FLAG.nbval = 5; + /*iniobj dsym_627__MSTEP_FLAG*/ +/*uniqueobj*/ if (!/*_.VALDATA___V702*/ meltfptr[701]) /*_.VALDATA___V702*/ meltfptr[701] = (void*)&cdat->dsym_627__MSTEP_FLAG; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_627__MSTEP_FLAG", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_627__MSTEP_FLAG", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); + cdat->dsym_627__MSTEP_FLAG.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_627__MSTEP_FLAG.obj_hash = 748215355; + cdat->dsym_627__MSTEP_FLAG.obj_len = 3; + + /*inistring dstr_628__MSTEP_FLAG*/ + /*_.VALSTR___V703*/ meltfptr[702] = (void*)&cdat->dstr_628__MSTEP_FLAG; + cdat->dstr_628__MSTEP_FLAG.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_628__MSTEP_FLAG.val, "MSTEP_FLAG", sizeof (cdat->dstr_628__MSTEP_FLAG.val)-1); /*^iniobj*/ - /*iniobj dobj_631__MSTEP_ELSE*/ -/*_.VALDATA___V700*/ meltfptr[699] = (void*)&cdat->dobj_631__MSTEP_ELSE; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_631__MSTEP_ELSE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_631__MSTEP_ELSE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); - cdat->dobj_631__MSTEP_ELSE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); - cdat->dobj_631__MSTEP_ELSE.obj_num = 4; - cdat->dobj_631__MSTEP_ELSE.obj_hash = 129987867; - cdat->dobj_631__MSTEP_ELSE.obj_len = 4; - - /*inistring dstr_632__MSTEP_ELSE*/ - /*_.VALSTR___V701*/ meltfptr[700] = (void*)&cdat->dstr_632__MSTEP_ELSE; - cdat->dstr_632__MSTEP_ELSE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_632__MSTEP_ELSE.val, "MSTEP_ELSE", sizeof (cdat->dstr_632__MSTEP_ELSE.val)-1); - - /*iniobj dsym_633__CLASS_MATCH_STEP_TEST_VARIABLE*/ -/*uniqueobj*/ if (!/*_.VALDATA___V705*/ meltfptr[704]) /*_.VALDATA___V705*/ meltfptr[704] = (void*)&cdat->dsym_633__CLASS_MATCH_STEP_TEST_VARIABLE; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_633__CLASS_MATCH_STEP_TEST_VARIABLE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_633__CLASS_MATCH_STEP_TEST_VARIABLE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); - cdat->dsym_633__CLASS_MATCH_STEP_TEST_VARIABLE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_633__CLASS_MATCH_STEP_TEST_VARIABLE.obj_hash = 368352993; - cdat->dsym_633__CLASS_MATCH_STEP_TEST_VARIABLE.obj_len = 3; + /*iniobj dobj_629__MSTEP_FLAG*/ +/*_.VALDATA___V699*/ meltfptr[698] = (void*)&cdat->dobj_629__MSTEP_FLAG; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_629__MSTEP_FLAG", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_629__MSTEP_FLAG", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); + cdat->dobj_629__MSTEP_FLAG.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); + cdat->dobj_629__MSTEP_FLAG.obj_num = 4; + cdat->dobj_629__MSTEP_FLAG.obj_hash = 247466062; + cdat->dobj_629__MSTEP_FLAG.obj_len = 4; + + /*inistring dstr_630__MSTEP_FLAG*/ + /*_.VALSTR___V700*/ meltfptr[699] = (void*)&cdat->dstr_630__MSTEP_FLAG; + cdat->dstr_630__MSTEP_FLAG.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_630__MSTEP_FLAG.val, "MSTEP_FLAG", sizeof (cdat->dstr_630__MSTEP_FLAG.val)-1); + + /*iniobj dsym_631__CLASS_MATCH_STEP_FLAG_SET*/ +/*uniqueobj*/ if (!/*_.VALDATA___V704*/ meltfptr[703]) /*_.VALDATA___V704*/ meltfptr[703] = (void*)&cdat->dsym_631__CLASS_MATCH_STEP_FLAG_SET; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_631__CLASS_MATCH_STEP_FLAG_SET", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_631__CLASS_MATCH_STEP_FLAG_SET", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); + cdat->dsym_631__CLASS_MATCH_STEP_FLAG_SET.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_631__CLASS_MATCH_STEP_FLAG_SET.obj_hash = 285733198; + cdat->dsym_631__CLASS_MATCH_STEP_FLAG_SET.obj_len = 3; + + /*inistring dstr_632__CLASS_MATCH_STEP*/ + /*_.VALSTR___V705*/ meltfptr[704] = (void*)&cdat->dstr_632__CLASS_MATCH_STEP; + cdat->dstr_632__CLASS_MATCH_STEP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_632__CLASS_MATCH_STEP.val, "CLASS_MATCH_STEP_FLAG_SET", sizeof (cdat->dstr_632__CLASS_MATCH_STEP.val)-1); + + MELT_LOCATION("warmelt-normatch.melt:2501:/ iniobj"); + /*iniobj dobj_633__CLASS_MATCH_STEP_FLAG_SET*/ +/*_.VALDATA___V706*/ meltfptr[705] = (void*)&cdat->dobj_633__CLASS_MATCH_STEP_FLAG_SET; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_633__CLASS_MATCH_STEP_FLAG_SET", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_CLASS)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_633__CLASS_MATCH_STEP_FLAG_SET", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); + cdat->dobj_633__CLASS_MATCH_STEP_FLAG_SET.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); + cdat->dobj_633__CLASS_MATCH_STEP_FLAG_SET.obj_num = OBMAG_OBJECT; + cdat->dobj_633__CLASS_MATCH_STEP_FLAG_SET.obj_hash = 52512067; + cdat->dobj_633__CLASS_MATCH_STEP_FLAG_SET.obj_len = 8; /*inistring dstr_634__CLASS_MATCH_STEP*/ - /*_.VALSTR___V706*/ meltfptr[705] = (void*)&cdat->dstr_634__CLASS_MATCH_STEP; + /*_.VALSTR___V707*/ meltfptr[706] = (void*)&cdat->dstr_634__CLASS_MATCH_STEP; cdat->dstr_634__CLASS_MATCH_STEP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_634__CLASS_MATCH_STEP.val, "CLASS_MATCH_STEP_TEST_VARIABLE", sizeof (cdat->dstr_634__CLASS_MATCH_STEP.val)-1); - - MELT_LOCATION("warmelt-normatch.melt:2503:/ iniobj"); - /*iniobj dobj_635__CLASS_MATCH_STEP_TEST_VARIABLE*/ -/*_.VALDATA___V707*/ meltfptr[706] = (void*)&cdat->dobj_635__CLASS_MATCH_STEP_TEST_VARIABLE; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_635__CLASS_MATCH_STEP_TEST_VARIABLE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_CLASS)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_635__CLASS_MATCH_STEP_TEST_VARIABLE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); - cdat->dobj_635__CLASS_MATCH_STEP_TEST_VARIABLE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); - cdat->dobj_635__CLASS_MATCH_STEP_TEST_VARIABLE.obj_num = OBMAG_OBJECT; - cdat->dobj_635__CLASS_MATCH_STEP_TEST_VARIABLE.obj_hash = 386084591; - cdat->dobj_635__CLASS_MATCH_STEP_TEST_VARIABLE.obj_len = 8; - - /*inistring dstr_636__CLASS_MATCH_STEP*/ - /*_.VALSTR___V708*/ meltfptr[707] = (void*)&cdat->dstr_636__CLASS_MATCH_STEP; - cdat->dstr_636__CLASS_MATCH_STEP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_636__CLASS_MATCH_STEP.val, "CLASS_MATCH_STEP_TEST_VARIABLE", sizeof (cdat->dstr_636__CLASS_MATCH_STEP.val)-1); - - /*inimult dtup_637__CLASS_MATCH_STEP_TEST_VARIABLE*/ - /*_.VALTUP___V709*/ meltfptr[708] = (void*)&cdat->dtup_637__CLASS_MATCH_STEP_TEST_VARIABLE; - cdat->dtup_637__CLASS_MATCH_STEP_TEST_VARIABLE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); - cdat->dtup_637__CLASS_MATCH_STEP_TEST_VARIABLE.nbval = 6; - /*inimult dtup_638__CLASS_MATCH_STEP_TEST_VARIABLE*/ - /*_.VALTUP___V712*/ meltfptr[711] = (void*)&cdat->dtup_638__CLASS_MATCH_STEP_TEST_VARIABLE; - cdat->dtup_638__CLASS_MATCH_STEP_TEST_VARIABLE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); - cdat->dtup_638__CLASS_MATCH_STEP_TEST_VARIABLE.nbval = 6; - /*iniobj dsym_639__MSTEPTESTVAR_SYMB*/ -/*uniqueobj*/ if (!/*_.VALDATA___V713*/ meltfptr[712]) /*_.VALDATA___V713*/ meltfptr[712] = (void*)&cdat->dsym_639__MSTEPTESTVAR_SYMB; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_639__MSTEPTESTVAR_SYMB", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_639__MSTEPTESTVAR_SYMB", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); - cdat->dsym_639__MSTEPTESTVAR_SYMB.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_639__MSTEPTESTVAR_SYMB.obj_hash = 886812086; - cdat->dsym_639__MSTEPTESTVAR_SYMB.obj_len = 3; - - /*inistring dstr_640__MSTEPTESTVAR_SYM*/ - /*_.VALSTR___V714*/ meltfptr[713] = (void*)&cdat->dstr_640__MSTEPTESTVAR_SYM; - cdat->dstr_640__MSTEPTESTVAR_SYM.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_640__MSTEPTESTVAR_SYM.val, "MSTEPTESTVAR_SYMB", sizeof (cdat->dstr_640__MSTEPTESTVAR_SYM.val)-1); - - /*^iniobj*/ - /*iniobj dobj_641__MSTEPTESTVAR_SYMB*/ -/*_.VALDATA___V710*/ meltfptr[709] = (void*)&cdat->dobj_641__MSTEPTESTVAR_SYMB; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_641__MSTEPTESTVAR_SYMB", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_641__MSTEPTESTVAR_SYMB", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); - cdat->dobj_641__MSTEPTESTVAR_SYMB.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); - cdat->dobj_641__MSTEPTESTVAR_SYMB.obj_num = 5; - cdat->dobj_641__MSTEPTESTVAR_SYMB.obj_hash = 817851084; - cdat->dobj_641__MSTEPTESTVAR_SYMB.obj_len = 4; - - /*inistring dstr_642__MSTEPTESTVAR_SYM*/ - /*_.VALSTR___V711*/ meltfptr[710] = (void*)&cdat->dstr_642__MSTEPTESTVAR_SYM; - cdat->dstr_642__MSTEPTESTVAR_SYM.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_642__MSTEPTESTVAR_SYM.val, "MSTEPTESTVAR_SYMB", sizeof (cdat->dstr_642__MSTEPTESTVAR_SYM.val)-1); - - /*iniobj dsym_643__CLASS_MATCH_STEP_TEST_GROUP*/ -/*uniqueobj*/ if (!/*_.VALDATA___V715*/ meltfptr[714]) /*_.VALDATA___V715*/ meltfptr[714] = (void*)&cdat->dsym_643__CLASS_MATCH_STEP_TEST_GROUP; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_643__CLASS_MATCH_STEP_TEST_GROUP", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_643__CLASS_MATCH_STEP_TEST_GROUP", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); - cdat->dsym_643__CLASS_MATCH_STEP_TEST_GROUP.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_643__CLASS_MATCH_STEP_TEST_GROUP.obj_hash = 536919857; - cdat->dsym_643__CLASS_MATCH_STEP_TEST_GROUP.obj_len = 3; - - /*inistring dstr_644__CLASS_MATCH_STEP*/ - /*_.VALSTR___V716*/ meltfptr[715] = (void*)&cdat->dstr_644__CLASS_MATCH_STEP; - cdat->dstr_644__CLASS_MATCH_STEP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_644__CLASS_MATCH_STEP.val, "CLASS_MATCH_STEP_TEST_GROUP", sizeof (cdat->dstr_644__CLASS_MATCH_STEP.val)-1); - - MELT_LOCATION("warmelt-normatch.melt:2509:/ iniobj"); - /*iniobj dobj_645__CLASS_MATCH_STEP_TEST_GROUP*/ -/*_.VALDATA___V717*/ meltfptr[716] = (void*)&cdat->dobj_645__CLASS_MATCH_STEP_TEST_GROUP; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_645__CLASS_MATCH_STEP_TEST_GROUP", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_CLASS)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_645__CLASS_MATCH_STEP_TEST_GROUP", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); - cdat->dobj_645__CLASS_MATCH_STEP_TEST_GROUP.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); - cdat->dobj_645__CLASS_MATCH_STEP_TEST_GROUP.obj_num = OBMAG_OBJECT; - cdat->dobj_645__CLASS_MATCH_STEP_TEST_GROUP.obj_hash = 590041937; - cdat->dobj_645__CLASS_MATCH_STEP_TEST_GROUP.obj_len = 8; - - /*inistring dstr_646__CLASS_MATCH_STEP*/ - /*_.VALSTR___V718*/ meltfptr[717] = (void*)&cdat->dstr_646__CLASS_MATCH_STEP; - cdat->dstr_646__CLASS_MATCH_STEP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_646__CLASS_MATCH_STEP.val, "CLASS_MATCH_STEP_TEST_GROUP", sizeof (cdat->dstr_646__CLASS_MATCH_STEP.val)-1); - - /*inimult dtup_647__CLASS_MATCH_STEP_TEST_GROUP*/ - /*_.VALTUP___V719*/ meltfptr[718] = (void*)&cdat->dtup_647__CLASS_MATCH_STEP_TEST_GROUP; - cdat->dtup_647__CLASS_MATCH_STEP_TEST_GROUP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); - cdat->dtup_647__CLASS_MATCH_STEP_TEST_GROUP.nbval = 6; - /*inimult dtup_648__CLASS_MATCH_STEP_TEST_GROUP*/ - /*_.VALTUP___V726*/ meltfptr[725] = (void*)&cdat->dtup_648__CLASS_MATCH_STEP_TEST_GROUP; - cdat->dtup_648__CLASS_MATCH_STEP_TEST_GROUP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); - cdat->dtup_648__CLASS_MATCH_STEP_TEST_GROUP.nbval = 8; - /*iniobj dsym_649__MSTGROUP_START*/ -/*uniqueobj*/ if (!/*_.VALDATA___V727*/ meltfptr[726]) /*_.VALDATA___V727*/ meltfptr[726] = (void*)&cdat->dsym_649__MSTGROUP_START; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_649__MSTGROUP_START", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_649__MSTGROUP_START", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); - cdat->dsym_649__MSTGROUP_START.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_649__MSTGROUP_START.obj_hash = 989000551; - cdat->dsym_649__MSTGROUP_START.obj_len = 3; - - /*inistring dstr_650__MSTGROUP_START*/ - /*_.VALSTR___V728*/ meltfptr[727] = (void*)&cdat->dstr_650__MSTGROUP_START; - cdat->dstr_650__MSTGROUP_START.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_650__MSTGROUP_START.val, "MSTGROUP_START", sizeof (cdat->dstr_650__MSTGROUP_START.val)-1); + strncpy(cdat->dstr_634__CLASS_MATCH_STEP.val, "CLASS_MATCH_STEP_FLAG_SET", sizeof (cdat->dstr_634__CLASS_MATCH_STEP.val)-1); + + /*inimult dtup_635__CLASS_MATCH_STEP_FLAG_SET*/ + /*_.VALTUP___V708*/ meltfptr[707] = (void*)&cdat->dtup_635__CLASS_MATCH_STEP_FLAG_SET; + cdat->dtup_635__CLASS_MATCH_STEP_FLAG_SET.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); + cdat->dtup_635__CLASS_MATCH_STEP_FLAG_SET.nbval = 6; + /*inimult dtup_636__CLASS_MATCH_STEP_FLAG_SET*/ + /*_.VALTUP___V709*/ meltfptr[708] = (void*)&cdat->dtup_636__CLASS_MATCH_STEP_FLAG_SET; + cdat->dtup_636__CLASS_MATCH_STEP_FLAG_SET.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); + cdat->dtup_636__CLASS_MATCH_STEP_FLAG_SET.nbval = 5; + /*iniobj dsym_637__CLASS_MATCH_STEP_FLAG_OPERATION*/ +/*uniqueobj*/ if (!/*_.VALDATA___V710*/ meltfptr[709]) /*_.VALDATA___V710*/ meltfptr[709] = (void*)&cdat->dsym_637__CLASS_MATCH_STEP_FLAG_OPERATION; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_637__CLASS_MATCH_STEP_FLAG_OPERATION", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_637__CLASS_MATCH_STEP_FLAG_OPERATION", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); + cdat->dsym_637__CLASS_MATCH_STEP_FLAG_OPERATION.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_637__CLASS_MATCH_STEP_FLAG_OPERATION.obj_hash = 541209628; + cdat->dsym_637__CLASS_MATCH_STEP_FLAG_OPERATION.obj_len = 3; + + /*inistring dstr_638__CLASS_MATCH_STEP*/ + /*_.VALSTR___V711*/ meltfptr[710] = (void*)&cdat->dstr_638__CLASS_MATCH_STEP; + cdat->dstr_638__CLASS_MATCH_STEP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_638__CLASS_MATCH_STEP.val, "CLASS_MATCH_STEP_FLAG_OPERATION", sizeof (cdat->dstr_638__CLASS_MATCH_STEP.val)-1); + + MELT_LOCATION("warmelt-normatch.melt:2507:/ iniobj"); + /*iniobj dobj_639__CLASS_MATCH_STEP_FLAG_OPERATION*/ +/*_.VALDATA___V712*/ meltfptr[711] = (void*)&cdat->dobj_639__CLASS_MATCH_STEP_FLAG_OPERATION; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_639__CLASS_MATCH_STEP_FLAG_OPERATION", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_CLASS)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_639__CLASS_MATCH_STEP_FLAG_OPERATION", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); + cdat->dobj_639__CLASS_MATCH_STEP_FLAG_OPERATION.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); + cdat->dobj_639__CLASS_MATCH_STEP_FLAG_OPERATION.obj_num = OBMAG_OBJECT; + cdat->dobj_639__CLASS_MATCH_STEP_FLAG_OPERATION.obj_hash = 220122849; + cdat->dobj_639__CLASS_MATCH_STEP_FLAG_OPERATION.obj_len = 8; + + /*inistring dstr_640__CLASS_MATCH_STEP*/ + /*_.VALSTR___V713*/ meltfptr[712] = (void*)&cdat->dstr_640__CLASS_MATCH_STEP; + cdat->dstr_640__CLASS_MATCH_STEP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_640__CLASS_MATCH_STEP.val, "CLASS_MATCH_STEP_FLAG_OPERATION", sizeof (cdat->dstr_640__CLASS_MATCH_STEP.val)-1); + + /*inimult dtup_641__CLASS_MATCH_STEP_FLAG_OPERATION*/ + /*_.VALTUP___V714*/ meltfptr[713] = (void*)&cdat->dtup_641__CLASS_MATCH_STEP_FLAG_OPERATION; + cdat->dtup_641__CLASS_MATCH_STEP_FLAG_OPERATION.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); + cdat->dtup_641__CLASS_MATCH_STEP_FLAG_OPERATION.nbval = 6; + /*inimult dtup_642__CLASS_MATCH_STEP_FLAG_OPERATION*/ + /*_.VALTUP___V717*/ meltfptr[716] = (void*)&cdat->dtup_642__CLASS_MATCH_STEP_FLAG_OPERATION; + cdat->dtup_642__CLASS_MATCH_STEP_FLAG_OPERATION.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); + cdat->dtup_642__CLASS_MATCH_STEP_FLAG_OPERATION.nbval = 6; + /*iniobj dsym_643__MSTEP_FLAGARGS*/ +/*uniqueobj*/ if (!/*_.VALDATA___V718*/ meltfptr[717]) /*_.VALDATA___V718*/ meltfptr[717] = (void*)&cdat->dsym_643__MSTEP_FLAGARGS; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_643__MSTEP_FLAGARGS", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_643__MSTEP_FLAGARGS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); + cdat->dsym_643__MSTEP_FLAGARGS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_643__MSTEP_FLAGARGS.obj_hash = 645209889; + cdat->dsym_643__MSTEP_FLAGARGS.obj_len = 3; + + /*inistring dstr_644__MSTEP_FLAGARGS*/ + /*_.VALSTR___V719*/ meltfptr[718] = (void*)&cdat->dstr_644__MSTEP_FLAGARGS; + cdat->dstr_644__MSTEP_FLAGARGS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_644__MSTEP_FLAGARGS.val, "MSTEP_FLAGARGS", sizeof (cdat->dstr_644__MSTEP_FLAGARGS.val)-1); /*^iniobj*/ - /*iniobj dobj_651__MSTGROUP_START*/ -/*_.VALDATA___V720*/ meltfptr[719] = (void*)&cdat->dobj_651__MSTGROUP_START; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_651__MSTGROUP_START", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_651__MSTGROUP_START", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); - cdat->dobj_651__MSTGROUP_START.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); - cdat->dobj_651__MSTGROUP_START.obj_num = 5; - cdat->dobj_651__MSTGROUP_START.obj_hash = 212508333; - cdat->dobj_651__MSTGROUP_START.obj_len = 4; - - /*inistring dstr_652__MSTGROUP_START*/ - /*_.VALSTR___V721*/ meltfptr[720] = (void*)&cdat->dstr_652__MSTGROUP_START; - cdat->dstr_652__MSTGROUP_START.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_652__MSTGROUP_START.val, "MSTGROUP_START", sizeof (cdat->dstr_652__MSTGROUP_START.val)-1); - - /*iniobj dsym_653__MSTGROUP_THEN*/ -/*uniqueobj*/ if (!/*_.VALDATA___V729*/ meltfptr[728]) /*_.VALDATA___V729*/ meltfptr[728] = (void*)&cdat->dsym_653__MSTGROUP_THEN; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_653__MSTGROUP_THEN", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_653__MSTGROUP_THEN", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); - cdat->dsym_653__MSTGROUP_THEN.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_653__MSTGROUP_THEN.obj_hash = 156200532; - cdat->dsym_653__MSTGROUP_THEN.obj_len = 3; - - /*inistring dstr_654__MSTGROUP_THEN*/ - /*_.VALSTR___V730*/ meltfptr[729] = (void*)&cdat->dstr_654__MSTGROUP_THEN; - cdat->dstr_654__MSTGROUP_THEN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_654__MSTGROUP_THEN.val, "MSTGROUP_THEN", sizeof (cdat->dstr_654__MSTGROUP_THEN.val)-1); + /*iniobj dobj_645__MSTEP_FLAGARGS*/ +/*_.VALDATA___V715*/ meltfptr[714] = (void*)&cdat->dobj_645__MSTEP_FLAGARGS; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_645__MSTEP_FLAGARGS", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_645__MSTEP_FLAGARGS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); + cdat->dobj_645__MSTEP_FLAGARGS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); + cdat->dobj_645__MSTEP_FLAGARGS.obj_num = 5; + cdat->dobj_645__MSTEP_FLAGARGS.obj_hash = 147318794; + cdat->dobj_645__MSTEP_FLAGARGS.obj_len = 4; + + /*inistring dstr_646__MSTEP_FLAGARGS*/ + /*_.VALSTR___V716*/ meltfptr[715] = (void*)&cdat->dstr_646__MSTEP_FLAGARGS; + cdat->dstr_646__MSTEP_FLAGARGS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_646__MSTEP_FLAGARGS.val, "MSTEP_FLAGARGS", sizeof (cdat->dstr_646__MSTEP_FLAGARGS.val)-1); + + /*iniobj dsym_647__CLASS_MATCH_STEP_FLAG_CONJONCTION*/ +/*uniqueobj*/ if (!/*_.VALDATA___V720*/ meltfptr[719]) /*_.VALDATA___V720*/ meltfptr[719] = (void*)&cdat->dsym_647__CLASS_MATCH_STEP_FLAG_CONJONCTION; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_647__CLASS_MATCH_STEP_FLAG_CONJONCTION", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_647__CLASS_MATCH_STEP_FLAG_CONJONCTION", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); + cdat->dsym_647__CLASS_MATCH_STEP_FLAG_CONJONCTION.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_647__CLASS_MATCH_STEP_FLAG_CONJONCTION.obj_hash = 769068407; + cdat->dsym_647__CLASS_MATCH_STEP_FLAG_CONJONCTION.obj_len = 3; + + /*inistring dstr_648__CLASS_MATCH_STEP*/ + /*_.VALSTR___V721*/ meltfptr[720] = (void*)&cdat->dstr_648__CLASS_MATCH_STEP; + cdat->dstr_648__CLASS_MATCH_STEP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_648__CLASS_MATCH_STEP.val, "CLASS_MATCH_STEP_FLAG_CONJONCTION", sizeof (cdat->dstr_648__CLASS_MATCH_STEP.val)-1); + + MELT_LOCATION("warmelt-normatch.melt:2512:/ iniobj"); + /*iniobj dobj_649__CLASS_MATCH_STEP_FLAG_CONJONCTION*/ +/*_.VALDATA___V722*/ meltfptr[721] = (void*)&cdat->dobj_649__CLASS_MATCH_STEP_FLAG_CONJONCTION; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_649__CLASS_MATCH_STEP_FLAG_CONJONCTION", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_CLASS)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_649__CLASS_MATCH_STEP_FLAG_CONJONCTION", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); + cdat->dobj_649__CLASS_MATCH_STEP_FLAG_CONJONCTION.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); + cdat->dobj_649__CLASS_MATCH_STEP_FLAG_CONJONCTION.obj_num = OBMAG_OBJECT; + cdat->dobj_649__CLASS_MATCH_STEP_FLAG_CONJONCTION.obj_hash = 719924393; + cdat->dobj_649__CLASS_MATCH_STEP_FLAG_CONJONCTION.obj_len = 8; + + /*inistring dstr_650__CLASS_MATCH_STEP*/ + /*_.VALSTR___V723*/ meltfptr[722] = (void*)&cdat->dstr_650__CLASS_MATCH_STEP; + cdat->dstr_650__CLASS_MATCH_STEP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_650__CLASS_MATCH_STEP.val, "CLASS_MATCH_STEP_FLAG_CONJONCTION", sizeof (cdat->dstr_650__CLASS_MATCH_STEP.val)-1); + + /*inimult dtup_651__CLASS_MATCH_STEP_FLAG_CONJONCTION*/ + /*_.VALTUP___V724*/ meltfptr[723] = (void*)&cdat->dtup_651__CLASS_MATCH_STEP_FLAG_CONJONCTION; + cdat->dtup_651__CLASS_MATCH_STEP_FLAG_CONJONCTION.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); + cdat->dtup_651__CLASS_MATCH_STEP_FLAG_CONJONCTION.nbval = 7; + /*inimult dtup_652__CLASS_MATCH_STEP_FLAG_CONJONCTION*/ + /*_.VALTUP___V725*/ meltfptr[724] = (void*)&cdat->dtup_652__CLASS_MATCH_STEP_FLAG_CONJONCTION; + cdat->dtup_652__CLASS_MATCH_STEP_FLAG_CONJONCTION.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); + cdat->dtup_652__CLASS_MATCH_STEP_FLAG_CONJONCTION.nbval = 6; + /*iniobj dsym_653__CLASS_MATCH_STEP_FLAG_DISJONCTION*/ +/*uniqueobj*/ if (!/*_.VALDATA___V726*/ meltfptr[725]) /*_.VALDATA___V726*/ meltfptr[725] = (void*)&cdat->dsym_653__CLASS_MATCH_STEP_FLAG_DISJONCTION; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_653__CLASS_MATCH_STEP_FLAG_DISJONCTION", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_653__CLASS_MATCH_STEP_FLAG_DISJONCTION", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); + cdat->dsym_653__CLASS_MATCH_STEP_FLAG_DISJONCTION.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_653__CLASS_MATCH_STEP_FLAG_DISJONCTION.obj_hash = 204106973; + cdat->dsym_653__CLASS_MATCH_STEP_FLAG_DISJONCTION.obj_len = 3; + + /*inistring dstr_654__CLASS_MATCH_STEP*/ + /*_.VALSTR___V727*/ meltfptr[726] = (void*)&cdat->dstr_654__CLASS_MATCH_STEP; + cdat->dstr_654__CLASS_MATCH_STEP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_654__CLASS_MATCH_STEP.val, "CLASS_MATCH_STEP_FLAG_DISJONCTION", sizeof (cdat->dstr_654__CLASS_MATCH_STEP.val)-1); - /*^iniobj*/ - /*iniobj dobj_655__MSTGROUP_THEN*/ -/*_.VALDATA___V722*/ meltfptr[721] = (void*)&cdat->dobj_655__MSTGROUP_THEN; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_655__MSTGROUP_THEN", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_655__MSTGROUP_THEN", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); - cdat->dobj_655__MSTGROUP_THEN.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); - cdat->dobj_655__MSTGROUP_THEN.obj_num = 6; - cdat->dobj_655__MSTGROUP_THEN.obj_hash = 781972317; - cdat->dobj_655__MSTGROUP_THEN.obj_len = 4; - - /*inistring dstr_656__MSTGROUP_THEN*/ - /*_.VALSTR___V723*/ meltfptr[722] = (void*)&cdat->dstr_656__MSTGROUP_THEN; - cdat->dstr_656__MSTGROUP_THEN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_656__MSTGROUP_THEN.val, "MSTGROUP_THEN", sizeof (cdat->dstr_656__MSTGROUP_THEN.val)-1); - - /*iniobj dsym_657__MSTGROUP_ELSE*/ -/*uniqueobj*/ if (!/*_.VALDATA___V731*/ meltfptr[730]) /*_.VALDATA___V731*/ meltfptr[730] = (void*)&cdat->dsym_657__MSTGROUP_ELSE; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_657__MSTGROUP_ELSE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_657__MSTGROUP_ELSE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); - cdat->dsym_657__MSTGROUP_ELSE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_657__MSTGROUP_ELSE.obj_hash = 854928951; - cdat->dsym_657__MSTGROUP_ELSE.obj_len = 3; - - /*inistring dstr_658__MSTGROUP_ELSE*/ - /*_.VALSTR___V732*/ meltfptr[731] = (void*)&cdat->dstr_658__MSTGROUP_ELSE; - cdat->dstr_658__MSTGROUP_ELSE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_658__MSTGROUP_ELSE.val, "MSTGROUP_ELSE", sizeof (cdat->dstr_658__MSTGROUP_ELSE.val)-1); + MELT_LOCATION("warmelt-normatch.melt:2519:/ iniobj"); + /*iniobj dobj_655__CLASS_MATCH_STEP_FLAG_DISJONCTION*/ +/*_.VALDATA___V728*/ meltfptr[727] = (void*)&cdat->dobj_655__CLASS_MATCH_STEP_FLAG_DISJONCTION; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_655__CLASS_MATCH_STEP_FLAG_DISJONCTION", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_CLASS)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_655__CLASS_MATCH_STEP_FLAG_DISJONCTION", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); + cdat->dobj_655__CLASS_MATCH_STEP_FLAG_DISJONCTION.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); + cdat->dobj_655__CLASS_MATCH_STEP_FLAG_DISJONCTION.obj_num = OBMAG_OBJECT; + cdat->dobj_655__CLASS_MATCH_STEP_FLAG_DISJONCTION.obj_hash = 550314636; + cdat->dobj_655__CLASS_MATCH_STEP_FLAG_DISJONCTION.obj_len = 8; + + /*inistring dstr_656__CLASS_MATCH_STEP*/ + /*_.VALSTR___V729*/ meltfptr[728] = (void*)&cdat->dstr_656__CLASS_MATCH_STEP; + cdat->dstr_656__CLASS_MATCH_STEP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_656__CLASS_MATCH_STEP.val, "CLASS_MATCH_STEP_FLAG_DISJONCTION", sizeof (cdat->dstr_656__CLASS_MATCH_STEP.val)-1); + + /*inimult dtup_657__CLASS_MATCH_STEP_FLAG_DISJONCTION*/ + /*_.VALTUP___V730*/ meltfptr[729] = (void*)&cdat->dtup_657__CLASS_MATCH_STEP_FLAG_DISJONCTION; + cdat->dtup_657__CLASS_MATCH_STEP_FLAG_DISJONCTION.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); + cdat->dtup_657__CLASS_MATCH_STEP_FLAG_DISJONCTION.nbval = 7; + /*inimult dtup_658__CLASS_MATCH_STEP_FLAG_DISJONCTION*/ + /*_.VALTUP___V731*/ meltfptr[730] = (void*)&cdat->dtup_658__CLASS_MATCH_STEP_FLAG_DISJONCTION; + cdat->dtup_658__CLASS_MATCH_STEP_FLAG_DISJONCTION.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); + cdat->dtup_658__CLASS_MATCH_STEP_FLAG_DISJONCTION.nbval = 6; + /*iniobj dsym_659__CLASS_MATCH_STEP_SUCCESS*/ +/*uniqueobj*/ if (!/*_.VALDATA___V732*/ meltfptr[731]) /*_.VALDATA___V732*/ meltfptr[731] = (void*)&cdat->dsym_659__CLASS_MATCH_STEP_SUCCESS; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_659__CLASS_MATCH_STEP_SUCCESS", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_659__CLASS_MATCH_STEP_SUCCESS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); + cdat->dsym_659__CLASS_MATCH_STEP_SUCCESS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_659__CLASS_MATCH_STEP_SUCCESS.obj_hash = 123107607; + cdat->dsym_659__CLASS_MATCH_STEP_SUCCESS.obj_len = 3; + + /*inistring dstr_660__CLASS_MATCH_STEP*/ + /*_.VALSTR___V733*/ meltfptr[732] = (void*)&cdat->dstr_660__CLASS_MATCH_STEP; + cdat->dstr_660__CLASS_MATCH_STEP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_660__CLASS_MATCH_STEP.val, "CLASS_MATCH_STEP_SUCCESS", sizeof (cdat->dstr_660__CLASS_MATCH_STEP.val)-1); - /*^iniobj*/ - /*iniobj dobj_659__MSTGROUP_ELSE*/ -/*_.VALDATA___V724*/ meltfptr[723] = (void*)&cdat->dobj_659__MSTGROUP_ELSE; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_659__MSTGROUP_ELSE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_659__MSTGROUP_ELSE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); - cdat->dobj_659__MSTGROUP_ELSE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); - cdat->dobj_659__MSTGROUP_ELSE.obj_num = 7; - cdat->dobj_659__MSTGROUP_ELSE.obj_hash = 736807627; - cdat->dobj_659__MSTGROUP_ELSE.obj_len = 4; - - /*inistring dstr_660__MSTGROUP_ELSE*/ - /*_.VALSTR___V725*/ meltfptr[724] = (void*)&cdat->dstr_660__MSTGROUP_ELSE; - cdat->dstr_660__MSTGROUP_ELSE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_660__MSTGROUP_ELSE.val, "MSTGROUP_ELSE", sizeof (cdat->dstr_660__MSTGROUP_ELSE.val)-1); - - /*iniobj dsym_661__CLASS_MATCH_STEP_TEST_INSTANCE*/ -/*uniqueobj*/ if (!/*_.VALDATA___V733*/ meltfptr[732]) /*_.VALDATA___V733*/ meltfptr[732] = (void*)&cdat->dsym_661__CLASS_MATCH_STEP_TEST_INSTANCE; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_661__CLASS_MATCH_STEP_TEST_INSTANCE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_661__CLASS_MATCH_STEP_TEST_INSTANCE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); - cdat->dsym_661__CLASS_MATCH_STEP_TEST_INSTANCE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_661__CLASS_MATCH_STEP_TEST_INSTANCE.obj_hash = 601675634; - cdat->dsym_661__CLASS_MATCH_STEP_TEST_INSTANCE.obj_len = 3; + MELT_LOCATION("warmelt-normatch.melt:2527:/ iniobj"); + /*iniobj dobj_661__CLASS_MATCH_STEP_SUCCESS*/ +/*_.VALDATA___V734*/ meltfptr[733] = (void*)&cdat->dobj_661__CLASS_MATCH_STEP_SUCCESS; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_661__CLASS_MATCH_STEP_SUCCESS", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_CLASS)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_661__CLASS_MATCH_STEP_SUCCESS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); + cdat->dobj_661__CLASS_MATCH_STEP_SUCCESS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); + cdat->dobj_661__CLASS_MATCH_STEP_SUCCESS.obj_num = OBMAG_OBJECT; + cdat->dobj_661__CLASS_MATCH_STEP_SUCCESS.obj_hash = 950078244; + cdat->dobj_661__CLASS_MATCH_STEP_SUCCESS.obj_len = 8; /*inistring dstr_662__CLASS_MATCH_STEP*/ - /*_.VALSTR___V734*/ meltfptr[733] = (void*)&cdat->dstr_662__CLASS_MATCH_STEP; + /*_.VALSTR___V735*/ meltfptr[734] = (void*)&cdat->dstr_662__CLASS_MATCH_STEP; cdat->dstr_662__CLASS_MATCH_STEP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_662__CLASS_MATCH_STEP.val, "CLASS_MATCH_STEP_TEST_INSTANCE", sizeof (cdat->dstr_662__CLASS_MATCH_STEP.val)-1); - - MELT_LOCATION("warmelt-normatch.melt:2519:/ iniobj"); - /*iniobj dobj_663__CLASS_MATCH_STEP_TEST_INSTANCE*/ -/*_.VALDATA___V735*/ meltfptr[734] = (void*)&cdat->dobj_663__CLASS_MATCH_STEP_TEST_INSTANCE; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_663__CLASS_MATCH_STEP_TEST_INSTANCE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_CLASS)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_663__CLASS_MATCH_STEP_TEST_INSTANCE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); - cdat->dobj_663__CLASS_MATCH_STEP_TEST_INSTANCE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); - cdat->dobj_663__CLASS_MATCH_STEP_TEST_INSTANCE.obj_num = OBMAG_OBJECT; - cdat->dobj_663__CLASS_MATCH_STEP_TEST_INSTANCE.obj_hash = 363043637; - cdat->dobj_663__CLASS_MATCH_STEP_TEST_INSTANCE.obj_len = 8; - - /*inistring dstr_664__CLASS_MATCH_STEP*/ - /*_.VALSTR___V736*/ meltfptr[735] = (void*)&cdat->dstr_664__CLASS_MATCH_STEP; - cdat->dstr_664__CLASS_MATCH_STEP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_664__CLASS_MATCH_STEP.val, "CLASS_MATCH_STEP_TEST_INSTANCE", sizeof (cdat->dstr_664__CLASS_MATCH_STEP.val)-1); - - /*inimult dtup_665__CLASS_MATCH_STEP_TEST_INSTANCE*/ - /*_.VALTUP___V737*/ meltfptr[736] = (void*)&cdat->dtup_665__CLASS_MATCH_STEP_TEST_INSTANCE; - cdat->dtup_665__CLASS_MATCH_STEP_TEST_INSTANCE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); - cdat->dtup_665__CLASS_MATCH_STEP_TEST_INSTANCE.nbval = 6; - /*inimult dtup_666__CLASS_MATCH_STEP_TEST_INSTANCE*/ - /*_.VALTUP___V742*/ meltfptr[741] = (void*)&cdat->dtup_666__CLASS_MATCH_STEP_TEST_INSTANCE; - cdat->dtup_666__CLASS_MATCH_STEP_TEST_INSTANCE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); - cdat->dtup_666__CLASS_MATCH_STEP_TEST_INSTANCE.nbval = 7; - /*iniobj dsym_667__MSTINS_CLASS*/ -/*uniqueobj*/ if (!/*_.VALDATA___V743*/ meltfptr[742]) /*_.VALDATA___V743*/ meltfptr[742] = (void*)&cdat->dsym_667__MSTINS_CLASS; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_667__MSTINS_CLASS", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_667__MSTINS_CLASS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); - cdat->dsym_667__MSTINS_CLASS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_667__MSTINS_CLASS.obj_hash = 992180192; - cdat->dsym_667__MSTINS_CLASS.obj_len = 3; - - /*inistring dstr_668__MSTINS_CLASS*/ - /*_.VALSTR___V744*/ meltfptr[743] = (void*)&cdat->dstr_668__MSTINS_CLASS; - cdat->dstr_668__MSTINS_CLASS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_668__MSTINS_CLASS.val, "MSTINS_CLASS", sizeof (cdat->dstr_668__MSTINS_CLASS.val)-1); + strncpy(cdat->dstr_662__CLASS_MATCH_STEP.val, "CLASS_MATCH_STEP_SUCCESS", sizeof (cdat->dstr_662__CLASS_MATCH_STEP.val)-1); + + /*inimult dtup_663__CLASS_MATCH_STEP_SUCCESS*/ + /*_.VALTUP___V736*/ meltfptr[735] = (void*)&cdat->dtup_663__CLASS_MATCH_STEP_SUCCESS; + cdat->dtup_663__CLASS_MATCH_STEP_SUCCESS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); + cdat->dtup_663__CLASS_MATCH_STEP_SUCCESS.nbval = 5; + /*inimult dtup_664__CLASS_MATCH_STEP_SUCCESS*/ + /*_.VALTUP___V745*/ meltfptr[744] = (void*)&cdat->dtup_664__CLASS_MATCH_STEP_SUCCESS; + cdat->dtup_664__CLASS_MATCH_STEP_SUCCESS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); + cdat->dtup_664__CLASS_MATCH_STEP_SUCCESS.nbval = 8; + /*iniobj dsym_665__MSTEPSUCCESS_FLAG*/ +/*uniqueobj*/ if (!/*_.VALDATA___V746*/ meltfptr[745]) /*_.VALDATA___V746*/ meltfptr[745] = (void*)&cdat->dsym_665__MSTEPSUCCESS_FLAG; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_665__MSTEPSUCCESS_FLAG", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_665__MSTEPSUCCESS_FLAG", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); + cdat->dsym_665__MSTEPSUCCESS_FLAG.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_665__MSTEPSUCCESS_FLAG.obj_hash = 869002882; + cdat->dsym_665__MSTEPSUCCESS_FLAG.obj_len = 3; + + /*inistring dstr_666__MSTEPSUCCESS_FLA*/ + /*_.VALSTR___V747*/ meltfptr[746] = (void*)&cdat->dstr_666__MSTEPSUCCESS_FLA; + cdat->dstr_666__MSTEPSUCCESS_FLA.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_666__MSTEPSUCCESS_FLA.val, "MSTEPSUCCESS_FLAG", sizeof (cdat->dstr_666__MSTEPSUCCESS_FLA.val)-1); /*^iniobj*/ - /*iniobj dobj_669__MSTINS_CLASS*/ -/*_.VALDATA___V738*/ meltfptr[737] = (void*)&cdat->dobj_669__MSTINS_CLASS; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_669__MSTINS_CLASS", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_669__MSTINS_CLASS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); - cdat->dobj_669__MSTINS_CLASS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); - cdat->dobj_669__MSTINS_CLASS.obj_num = 5; - cdat->dobj_669__MSTINS_CLASS.obj_hash = 534356051; - cdat->dobj_669__MSTINS_CLASS.obj_len = 4; - - /*inistring dstr_670__MSTINS_CLASS*/ - /*_.VALSTR___V739*/ meltfptr[738] = (void*)&cdat->dstr_670__MSTINS_CLASS; - cdat->dstr_670__MSTINS_CLASS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_670__MSTINS_CLASS.val, "MSTINS_CLASS", sizeof (cdat->dstr_670__MSTINS_CLASS.val)-1); - - /*iniobj dsym_671__MSTINS_SLOTS*/ -/*uniqueobj*/ if (!/*_.VALDATA___V745*/ meltfptr[744]) /*_.VALDATA___V745*/ meltfptr[744] = (void*)&cdat->dsym_671__MSTINS_SLOTS; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_671__MSTINS_SLOTS", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_671__MSTINS_SLOTS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); - cdat->dsym_671__MSTINS_SLOTS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_671__MSTINS_SLOTS.obj_hash = 625280432; - cdat->dsym_671__MSTINS_SLOTS.obj_len = 3; - - /*inistring dstr_672__MSTINS_SLOTS*/ - /*_.VALSTR___V746*/ meltfptr[745] = (void*)&cdat->dstr_672__MSTINS_SLOTS; - cdat->dstr_672__MSTINS_SLOTS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_672__MSTINS_SLOTS.val, "MSTINS_SLOTS", sizeof (cdat->dstr_672__MSTINS_SLOTS.val)-1); + /*iniobj dobj_667__MSTEPSUCCESS_FLAG*/ +/*_.VALDATA___V737*/ meltfptr[736] = (void*)&cdat->dobj_667__MSTEPSUCCESS_FLAG; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_667__MSTEPSUCCESS_FLAG", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_667__MSTEPSUCCESS_FLAG", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); + cdat->dobj_667__MSTEPSUCCESS_FLAG.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); + cdat->dobj_667__MSTEPSUCCESS_FLAG.obj_num = 4; + cdat->dobj_667__MSTEPSUCCESS_FLAG.obj_hash = 727243047; + cdat->dobj_667__MSTEPSUCCESS_FLAG.obj_len = 4; + + /*inistring dstr_668__MSTEPSUCCESS_FLA*/ + /*_.VALSTR___V738*/ meltfptr[737] = (void*)&cdat->dstr_668__MSTEPSUCCESS_FLA; + cdat->dstr_668__MSTEPSUCCESS_FLA.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_668__MSTEPSUCCESS_FLA.val, "MSTEPSUCCESS_FLAG", sizeof (cdat->dstr_668__MSTEPSUCCESS_FLA.val)-1); + + /*iniobj dsym_669__MSTEPSUCCESS_VAROCC*/ +/*uniqueobj*/ if (!/*_.VALDATA___V748*/ meltfptr[747]) /*_.VALDATA___V748*/ meltfptr[747] = (void*)&cdat->dsym_669__MSTEPSUCCESS_VAROCC; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_669__MSTEPSUCCESS_VAROCC", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_669__MSTEPSUCCESS_VAROCC", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); + cdat->dsym_669__MSTEPSUCCESS_VAROCC.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_669__MSTEPSUCCESS_VAROCC.obj_hash = 502553316; + cdat->dsym_669__MSTEPSUCCESS_VAROCC.obj_len = 3; + + /*inistring dstr_670__MSTEPSUCCESS_VAR*/ + /*_.VALSTR___V749*/ meltfptr[748] = (void*)&cdat->dstr_670__MSTEPSUCCESS_VAR; + cdat->dstr_670__MSTEPSUCCESS_VAR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_670__MSTEPSUCCESS_VAR.val, "MSTEPSUCCESS_VAROCC", sizeof (cdat->dstr_670__MSTEPSUCCESS_VAR.val)-1); /*^iniobj*/ - /*iniobj dobj_673__MSTINS_SLOTS*/ -/*_.VALDATA___V740*/ meltfptr[739] = (void*)&cdat->dobj_673__MSTINS_SLOTS; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_673__MSTINS_SLOTS", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_673__MSTINS_SLOTS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); - cdat->dobj_673__MSTINS_SLOTS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); - cdat->dobj_673__MSTINS_SLOTS.obj_num = 6; - cdat->dobj_673__MSTINS_SLOTS.obj_hash = 474789692; - cdat->dobj_673__MSTINS_SLOTS.obj_len = 4; - - /*inistring dstr_674__MSTINS_SLOTS*/ - /*_.VALSTR___V741*/ meltfptr[740] = (void*)&cdat->dstr_674__MSTINS_SLOTS; - cdat->dstr_674__MSTINS_SLOTS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_674__MSTINS_SLOTS.val, "MSTINS_SLOTS", sizeof (cdat->dstr_674__MSTINS_SLOTS.val)-1); - - /*iniobj dsym_675__CLASS_MATCH_STEP_TEST_MATCHER*/ -/*uniqueobj*/ if (!/*_.VALDATA___V747*/ meltfptr[746]) /*_.VALDATA___V747*/ meltfptr[746] = (void*)&cdat->dsym_675__CLASS_MATCH_STEP_TEST_MATCHER; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_675__CLASS_MATCH_STEP_TEST_MATCHER", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_675__CLASS_MATCH_STEP_TEST_MATCHER", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); - cdat->dsym_675__CLASS_MATCH_STEP_TEST_MATCHER.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_675__CLASS_MATCH_STEP_TEST_MATCHER.obj_hash = 930369137; - cdat->dsym_675__CLASS_MATCH_STEP_TEST_MATCHER.obj_len = 3; - - /*inistring dstr_676__CLASS_MATCH_STEP*/ - /*_.VALSTR___V748*/ meltfptr[747] = (void*)&cdat->dstr_676__CLASS_MATCH_STEP; - cdat->dstr_676__CLASS_MATCH_STEP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_676__CLASS_MATCH_STEP.val, "CLASS_MATCH_STEP_TEST_MATCHER", sizeof (cdat->dstr_676__CLASS_MATCH_STEP.val)-1); - - MELT_LOCATION("warmelt-normatch.melt:2527:/ iniobj"); - /*iniobj dobj_677__CLASS_MATCH_STEP_TEST_MATCHER*/ -/*_.VALDATA___V749*/ meltfptr[748] = (void*)&cdat->dobj_677__CLASS_MATCH_STEP_TEST_MATCHER; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_677__CLASS_MATCH_STEP_TEST_MATCHER", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_CLASS)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_677__CLASS_MATCH_STEP_TEST_MATCHER", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); - cdat->dobj_677__CLASS_MATCH_STEP_TEST_MATCHER.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); - cdat->dobj_677__CLASS_MATCH_STEP_TEST_MATCHER.obj_num = OBMAG_OBJECT; - cdat->dobj_677__CLASS_MATCH_STEP_TEST_MATCHER.obj_hash = 240115648; - cdat->dobj_677__CLASS_MATCH_STEP_TEST_MATCHER.obj_len = 8; - - /*inistring dstr_678__CLASS_MATCH_STEP*/ - /*_.VALSTR___V750*/ meltfptr[749] = (void*)&cdat->dstr_678__CLASS_MATCH_STEP; - cdat->dstr_678__CLASS_MATCH_STEP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_678__CLASS_MATCH_STEP.val, "CLASS_MATCH_STEP_TEST_MATCHER", sizeof (cdat->dstr_678__CLASS_MATCH_STEP.val)-1); - - /*inimult dtup_679__CLASS_MATCH_STEP_TEST_MATCHER*/ - /*_.VALTUP___V751*/ meltfptr[750] = (void*)&cdat->dtup_679__CLASS_MATCH_STEP_TEST_MATCHER; - cdat->dtup_679__CLASS_MATCH_STEP_TEST_MATCHER.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); - cdat->dtup_679__CLASS_MATCH_STEP_TEST_MATCHER.nbval = 6; - /*inimult dtup_680__CLASS_MATCH_STEP_TEST_MATCHER*/ - /*_.VALTUP___V760*/ meltfptr[759] = (void*)&cdat->dtup_680__CLASS_MATCH_STEP_TEST_MATCHER; - cdat->dtup_680__CLASS_MATCH_STEP_TEST_MATCHER.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); - cdat->dtup_680__CLASS_MATCH_STEP_TEST_MATCHER.nbval = 9; - /*iniobj dsym_681__MSTMA_MATCHER*/ -/*uniqueobj*/ if (!/*_.VALDATA___V761*/ meltfptr[760]) /*_.VALDATA___V761*/ meltfptr[760] = (void*)&cdat->dsym_681__MSTMA_MATCHER; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_681__MSTMA_MATCHER", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_681__MSTMA_MATCHER", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); - cdat->dsym_681__MSTMA_MATCHER.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_681__MSTMA_MATCHER.obj_hash = 562919191; - cdat->dsym_681__MSTMA_MATCHER.obj_len = 3; - - /*inistring dstr_682__MSTMA_MATCHER*/ - /*_.VALSTR___V762*/ meltfptr[761] = (void*)&cdat->dstr_682__MSTMA_MATCHER; - cdat->dstr_682__MSTMA_MATCHER.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_682__MSTMA_MATCHER.val, "MSTMA_MATCHER", sizeof (cdat->dstr_682__MSTMA_MATCHER.val)-1); + /*iniobj dobj_671__MSTEPSUCCESS_VAROCC*/ +/*_.VALDATA___V739*/ meltfptr[738] = (void*)&cdat->dobj_671__MSTEPSUCCESS_VAROCC; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_671__MSTEPSUCCESS_VAROCC", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_671__MSTEPSUCCESS_VAROCC", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); + cdat->dobj_671__MSTEPSUCCESS_VAROCC.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); + cdat->dobj_671__MSTEPSUCCESS_VAROCC.obj_num = 5; + cdat->dobj_671__MSTEPSUCCESS_VAROCC.obj_hash = 46833810; + cdat->dobj_671__MSTEPSUCCESS_VAROCC.obj_len = 4; + + /*inistring dstr_672__MSTEPSUCCESS_VAR*/ + /*_.VALSTR___V740*/ meltfptr[739] = (void*)&cdat->dstr_672__MSTEPSUCCESS_VAR; + cdat->dstr_672__MSTEPSUCCESS_VAR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_672__MSTEPSUCCESS_VAR.val, "MSTEPSUCCESS_VAROCC", sizeof (cdat->dstr_672__MSTEPSUCCESS_VAR.val)-1); + + /*iniobj dsym_673__MSTEPSUCCESS_BINDS*/ +/*uniqueobj*/ if (!/*_.VALDATA___V750*/ meltfptr[749]) /*_.VALDATA___V750*/ meltfptr[749] = (void*)&cdat->dsym_673__MSTEPSUCCESS_BINDS; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_673__MSTEPSUCCESS_BINDS", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_673__MSTEPSUCCESS_BINDS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); + cdat->dsym_673__MSTEPSUCCESS_BINDS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_673__MSTEPSUCCESS_BINDS.obj_hash = 862501677; + cdat->dsym_673__MSTEPSUCCESS_BINDS.obj_len = 3; + + /*inistring dstr_674__MSTEPSUCCESS_BIN*/ + /*_.VALSTR___V751*/ meltfptr[750] = (void*)&cdat->dstr_674__MSTEPSUCCESS_BIN; + cdat->dstr_674__MSTEPSUCCESS_BIN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_674__MSTEPSUCCESS_BIN.val, "MSTEPSUCCESS_BINDS", sizeof (cdat->dstr_674__MSTEPSUCCESS_BIN.val)-1); /*^iniobj*/ - /*iniobj dobj_683__MSTMA_MATCHER*/ -/*_.VALDATA___V752*/ meltfptr[751] = (void*)&cdat->dobj_683__MSTMA_MATCHER; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_683__MSTMA_MATCHER", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_683__MSTMA_MATCHER", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); - cdat->dobj_683__MSTMA_MATCHER.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); - cdat->dobj_683__MSTMA_MATCHER.obj_num = 5; - cdat->dobj_683__MSTMA_MATCHER.obj_hash = 295541500; - cdat->dobj_683__MSTMA_MATCHER.obj_len = 4; - - /*inistring dstr_684__MSTMA_MATCHER*/ - /*_.VALSTR___V753*/ meltfptr[752] = (void*)&cdat->dstr_684__MSTMA_MATCHER; - cdat->dstr_684__MSTMA_MATCHER.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_684__MSTMA_MATCHER.val, "MSTMA_MATCHER", sizeof (cdat->dstr_684__MSTMA_MATCHER.val)-1); - - /*iniobj dsym_685__MSTMA_BINDS*/ -/*uniqueobj*/ if (!/*_.VALDATA___V763*/ meltfptr[762]) /*_.VALDATA___V763*/ meltfptr[762] = (void*)&cdat->dsym_685__MSTMA_BINDS; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_685__MSTMA_BINDS", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_685__MSTMA_BINDS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); - cdat->dsym_685__MSTMA_BINDS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_685__MSTMA_BINDS.obj_hash = 713095099; - cdat->dsym_685__MSTMA_BINDS.obj_len = 3; - - /*inistring dstr_686__MSTMA_BINDS*/ - /*_.VALSTR___V764*/ meltfptr[763] = (void*)&cdat->dstr_686__MSTMA_BINDS; - cdat->dstr_686__MSTMA_BINDS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_686__MSTMA_BINDS.val, "MSTMA_BINDS", sizeof (cdat->dstr_686__MSTMA_BINDS.val)-1); + /*iniobj dobj_675__MSTEPSUCCESS_BINDS*/ +/*_.VALDATA___V741*/ meltfptr[740] = (void*)&cdat->dobj_675__MSTEPSUCCESS_BINDS; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_675__MSTEPSUCCESS_BINDS", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_675__MSTEPSUCCESS_BINDS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); + cdat->dobj_675__MSTEPSUCCESS_BINDS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); + cdat->dobj_675__MSTEPSUCCESS_BINDS.obj_num = 6; + cdat->dobj_675__MSTEPSUCCESS_BINDS.obj_hash = 686420979; + cdat->dobj_675__MSTEPSUCCESS_BINDS.obj_len = 4; + + /*inistring dstr_676__MSTEPSUCCESS_BIN*/ + /*_.VALSTR___V742*/ meltfptr[741] = (void*)&cdat->dstr_676__MSTEPSUCCESS_BIN; + cdat->dstr_676__MSTEPSUCCESS_BIN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_676__MSTEPSUCCESS_BIN.val, "MSTEPSUCCESS_BINDS", sizeof (cdat->dstr_676__MSTEPSUCCESS_BIN.val)-1); + + /*iniobj dsym_677__MSTEPSUCCESS_BODY*/ +/*uniqueobj*/ if (!/*_.VALDATA___V752*/ meltfptr[751]) /*_.VALDATA___V752*/ meltfptr[751] = (void*)&cdat->dsym_677__MSTEPSUCCESS_BODY; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_677__MSTEPSUCCESS_BODY", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_677__MSTEPSUCCESS_BODY", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); + cdat->dsym_677__MSTEPSUCCESS_BODY.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_677__MSTEPSUCCESS_BODY.obj_hash = 270381222; + cdat->dsym_677__MSTEPSUCCESS_BODY.obj_len = 3; + + /*inistring dstr_678__MSTEPSUCCESS_BOD*/ + /*_.VALSTR___V753*/ meltfptr[752] = (void*)&cdat->dstr_678__MSTEPSUCCESS_BOD; + cdat->dstr_678__MSTEPSUCCESS_BOD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_678__MSTEPSUCCESS_BOD.val, "MSTEPSUCCESS_BODY", sizeof (cdat->dstr_678__MSTEPSUCCESS_BOD.val)-1); /*^iniobj*/ - /*iniobj dobj_687__MSTMA_BINDS*/ -/*_.VALDATA___V754*/ meltfptr[753] = (void*)&cdat->dobj_687__MSTMA_BINDS; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_687__MSTMA_BINDS", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_687__MSTMA_BINDS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); - cdat->dobj_687__MSTMA_BINDS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); - cdat->dobj_687__MSTMA_BINDS.obj_num = 6; - cdat->dobj_687__MSTMA_BINDS.obj_hash = 758384222; - cdat->dobj_687__MSTMA_BINDS.obj_len = 4; - - /*inistring dstr_688__MSTMA_BINDS*/ - /*_.VALSTR___V755*/ meltfptr[754] = (void*)&cdat->dstr_688__MSTMA_BINDS; - cdat->dstr_688__MSTMA_BINDS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_688__MSTMA_BINDS.val, "MSTMA_BINDS", sizeof (cdat->dstr_688__MSTMA_BINDS.val)-1); - - /*iniobj dsym_689__MSTMA_INS*/ -/*uniqueobj*/ if (!/*_.VALDATA___V765*/ meltfptr[764]) /*_.VALDATA___V765*/ meltfptr[764] = (void*)&cdat->dsym_689__MSTMA_INS; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_689__MSTMA_INS", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_689__MSTMA_INS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); - cdat->dsym_689__MSTMA_INS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_689__MSTMA_INS.obj_hash = 508289260; - cdat->dsym_689__MSTMA_INS.obj_len = 3; - - /*inistring dstr_690__MSTMA_INS*/ - /*_.VALSTR___V766*/ meltfptr[765] = (void*)&cdat->dstr_690__MSTMA_INS; - cdat->dstr_690__MSTMA_INS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_690__MSTMA_INS.val, "MSTMA_INS", sizeof (cdat->dstr_690__MSTMA_INS.val)-1); + /*iniobj dobj_679__MSTEPSUCCESS_BODY*/ +/*_.VALDATA___V743*/ meltfptr[742] = (void*)&cdat->dobj_679__MSTEPSUCCESS_BODY; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_679__MSTEPSUCCESS_BODY", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_679__MSTEPSUCCESS_BODY", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); + cdat->dobj_679__MSTEPSUCCESS_BODY.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); + cdat->dobj_679__MSTEPSUCCESS_BODY.obj_num = 7; + cdat->dobj_679__MSTEPSUCCESS_BODY.obj_hash = 478190094; + cdat->dobj_679__MSTEPSUCCESS_BODY.obj_len = 4; + + /*inistring dstr_680__MSTEPSUCCESS_BOD*/ + /*_.VALSTR___V744*/ meltfptr[743] = (void*)&cdat->dstr_680__MSTEPSUCCESS_BOD; + cdat->dstr_680__MSTEPSUCCESS_BOD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_680__MSTEPSUCCESS_BOD.val, "MSTEPSUCCESS_BODY", sizeof (cdat->dstr_680__MSTEPSUCCESS_BOD.val)-1); + + /*iniobj dsym_681__CLASS_MATCH_STEP_TEST*/ +/*uniqueobj*/ if (!/*_.VALDATA___V754*/ meltfptr[753]) /*_.VALDATA___V754*/ meltfptr[753] = (void*)&cdat->dsym_681__CLASS_MATCH_STEP_TEST; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_681__CLASS_MATCH_STEP_TEST", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_681__CLASS_MATCH_STEP_TEST", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); + cdat->dsym_681__CLASS_MATCH_STEP_TEST.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_681__CLASS_MATCH_STEP_TEST.obj_hash = 899758560; + cdat->dsym_681__CLASS_MATCH_STEP_TEST.obj_len = 3; + + /*inistring dstr_682__CLASS_MATCH_STEP*/ + /*_.VALSTR___V755*/ meltfptr[754] = (void*)&cdat->dstr_682__CLASS_MATCH_STEP; + cdat->dstr_682__CLASS_MATCH_STEP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_682__CLASS_MATCH_STEP.val, "CLASS_MATCH_STEP_TEST", sizeof (cdat->dstr_682__CLASS_MATCH_STEP.val)-1); + + MELT_LOCATION("warmelt-normatch.melt:2539:/ iniobj"); + /*iniobj dobj_683__CLASS_MATCH_STEP_TEST*/ +/*_.VALDATA___V756*/ meltfptr[755] = (void*)&cdat->dobj_683__CLASS_MATCH_STEP_TEST; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_683__CLASS_MATCH_STEP_TEST", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_CLASS)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_683__CLASS_MATCH_STEP_TEST", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); + cdat->dobj_683__CLASS_MATCH_STEP_TEST.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); + cdat->dobj_683__CLASS_MATCH_STEP_TEST.obj_num = OBMAG_OBJECT; + cdat->dobj_683__CLASS_MATCH_STEP_TEST.obj_hash = 1031020251; + cdat->dobj_683__CLASS_MATCH_STEP_TEST.obj_len = 8; + + /*inistring dstr_684__CLASS_MATCH_STEP*/ + /*_.VALSTR___V757*/ meltfptr[756] = (void*)&cdat->dstr_684__CLASS_MATCH_STEP; + cdat->dstr_684__CLASS_MATCH_STEP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_684__CLASS_MATCH_STEP.val, "CLASS_MATCH_STEP_TEST", sizeof (cdat->dstr_684__CLASS_MATCH_STEP.val)-1); + + /*inimult dtup_685__CLASS_MATCH_STEP_TEST*/ + /*_.VALTUP___V758*/ meltfptr[757] = (void*)&cdat->dtup_685__CLASS_MATCH_STEP_TEST; + cdat->dtup_685__CLASS_MATCH_STEP_TEST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); + cdat->dtup_685__CLASS_MATCH_STEP_TEST.nbval = 5; + /*inimult dtup_686__CLASS_MATCH_STEP_TEST*/ + /*_.VALTUP___V761*/ meltfptr[760] = (void*)&cdat->dtup_686__CLASS_MATCH_STEP_TEST; + cdat->dtup_686__CLASS_MATCH_STEP_TEST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); + cdat->dtup_686__CLASS_MATCH_STEP_TEST.nbval = 5; + /*iniobj dsym_687__MSTEP_ELSE*/ +/*uniqueobj*/ if (!/*_.VALDATA___V762*/ meltfptr[761]) /*_.VALDATA___V762*/ meltfptr[761] = (void*)&cdat->dsym_687__MSTEP_ELSE; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_687__MSTEP_ELSE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_687__MSTEP_ELSE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); + cdat->dsym_687__MSTEP_ELSE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_687__MSTEP_ELSE.obj_hash = 307203514; + cdat->dsym_687__MSTEP_ELSE.obj_len = 3; + + /*inistring dstr_688__MSTEP_ELSE*/ + /*_.VALSTR___V763*/ meltfptr[762] = (void*)&cdat->dstr_688__MSTEP_ELSE; + cdat->dstr_688__MSTEP_ELSE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_688__MSTEP_ELSE.val, "MSTEP_ELSE", sizeof (cdat->dstr_688__MSTEP_ELSE.val)-1); /*^iniobj*/ - /*iniobj dobj_691__MSTMA_INS*/ -/*_.VALDATA___V756*/ meltfptr[755] = (void*)&cdat->dobj_691__MSTMA_INS; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_691__MSTMA_INS", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_691__MSTMA_INS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); - cdat->dobj_691__MSTMA_INS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); - cdat->dobj_691__MSTMA_INS.obj_num = 7; - cdat->dobj_691__MSTMA_INS.obj_hash = 354901124; - cdat->dobj_691__MSTMA_INS.obj_len = 4; - - /*inistring dstr_692__MSTMA_INS*/ - /*_.VALSTR___V757*/ meltfptr[756] = (void*)&cdat->dstr_692__MSTMA_INS; - cdat->dstr_692__MSTMA_INS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_692__MSTMA_INS.val, "MSTMA_INS", sizeof (cdat->dstr_692__MSTMA_INS.val)-1); - - /*iniobj dsym_693__MSTMA_OUTS*/ -/*uniqueobj*/ if (!/*_.VALDATA___V767*/ meltfptr[766]) /*_.VALDATA___V767*/ meltfptr[766] = (void*)&cdat->dsym_693__MSTMA_OUTS; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_693__MSTMA_OUTS", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_693__MSTMA_OUTS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); - cdat->dsym_693__MSTMA_OUTS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_693__MSTMA_OUTS.obj_hash = 970930840; - cdat->dsym_693__MSTMA_OUTS.obj_len = 3; - - /*inistring dstr_694__MSTMA_OUTS*/ - /*_.VALSTR___V768*/ meltfptr[767] = (void*)&cdat->dstr_694__MSTMA_OUTS; - cdat->dstr_694__MSTMA_OUTS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_694__MSTMA_OUTS.val, "MSTMA_OUTS", sizeof (cdat->dstr_694__MSTMA_OUTS.val)-1); + /*iniobj dobj_689__MSTEP_ELSE*/ +/*_.VALDATA___V759*/ meltfptr[758] = (void*)&cdat->dobj_689__MSTEP_ELSE; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_689__MSTEP_ELSE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_689__MSTEP_ELSE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); + cdat->dobj_689__MSTEP_ELSE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); + cdat->dobj_689__MSTEP_ELSE.obj_num = 4; + cdat->dobj_689__MSTEP_ELSE.obj_hash = 90066964; + cdat->dobj_689__MSTEP_ELSE.obj_len = 4; + + /*inistring dstr_690__MSTEP_ELSE*/ + /*_.VALSTR___V760*/ meltfptr[759] = (void*)&cdat->dstr_690__MSTEP_ELSE; + cdat->dstr_690__MSTEP_ELSE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_690__MSTEP_ELSE.val, "MSTEP_ELSE", sizeof (cdat->dstr_690__MSTEP_ELSE.val)-1); + + /*iniobj dsym_691__CLASS_MATCH_STEP_TEST_VARIABLE*/ +/*uniqueobj*/ if (!/*_.VALDATA___V764*/ meltfptr[763]) /*_.VALDATA___V764*/ meltfptr[763] = (void*)&cdat->dsym_691__CLASS_MATCH_STEP_TEST_VARIABLE; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_691__CLASS_MATCH_STEP_TEST_VARIABLE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_691__CLASS_MATCH_STEP_TEST_VARIABLE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); + cdat->dsym_691__CLASS_MATCH_STEP_TEST_VARIABLE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_691__CLASS_MATCH_STEP_TEST_VARIABLE.obj_hash = 368352993; + cdat->dsym_691__CLASS_MATCH_STEP_TEST_VARIABLE.obj_len = 3; + + /*inistring dstr_692__CLASS_MATCH_STEP*/ + /*_.VALSTR___V765*/ meltfptr[764] = (void*)&cdat->dstr_692__CLASS_MATCH_STEP; + cdat->dstr_692__CLASS_MATCH_STEP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_692__CLASS_MATCH_STEP.val, "CLASS_MATCH_STEP_TEST_VARIABLE", sizeof (cdat->dstr_692__CLASS_MATCH_STEP.val)-1); + + MELT_LOCATION("warmelt-normatch.melt:2546:/ iniobj"); + /*iniobj dobj_693__CLASS_MATCH_STEP_TEST_VARIABLE*/ +/*_.VALDATA___V766*/ meltfptr[765] = (void*)&cdat->dobj_693__CLASS_MATCH_STEP_TEST_VARIABLE; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_693__CLASS_MATCH_STEP_TEST_VARIABLE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_CLASS)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_693__CLASS_MATCH_STEP_TEST_VARIABLE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); + cdat->dobj_693__CLASS_MATCH_STEP_TEST_VARIABLE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); + cdat->dobj_693__CLASS_MATCH_STEP_TEST_VARIABLE.obj_num = OBMAG_OBJECT; + cdat->dobj_693__CLASS_MATCH_STEP_TEST_VARIABLE.obj_hash = 625722402; + cdat->dobj_693__CLASS_MATCH_STEP_TEST_VARIABLE.obj_len = 8; + + /*inistring dstr_694__CLASS_MATCH_STEP*/ + /*_.VALSTR___V767*/ meltfptr[766] = (void*)&cdat->dstr_694__CLASS_MATCH_STEP; + cdat->dstr_694__CLASS_MATCH_STEP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_694__CLASS_MATCH_STEP.val, "CLASS_MATCH_STEP_TEST_VARIABLE", sizeof (cdat->dstr_694__CLASS_MATCH_STEP.val)-1); + + /*inimult dtup_695__CLASS_MATCH_STEP_TEST_VARIABLE*/ + /*_.VALTUP___V768*/ meltfptr[767] = (void*)&cdat->dtup_695__CLASS_MATCH_STEP_TEST_VARIABLE; + cdat->dtup_695__CLASS_MATCH_STEP_TEST_VARIABLE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); + cdat->dtup_695__CLASS_MATCH_STEP_TEST_VARIABLE.nbval = 6; + /*inimult dtup_696__CLASS_MATCH_STEP_TEST_VARIABLE*/ + /*_.VALTUP___V771*/ meltfptr[770] = (void*)&cdat->dtup_696__CLASS_MATCH_STEP_TEST_VARIABLE; + cdat->dtup_696__CLASS_MATCH_STEP_TEST_VARIABLE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); + cdat->dtup_696__CLASS_MATCH_STEP_TEST_VARIABLE.nbval = 6; + /*iniobj dsym_697__MSTEPTESTVAR_SYMB*/ +/*uniqueobj*/ if (!/*_.VALDATA___V772*/ meltfptr[771]) /*_.VALDATA___V772*/ meltfptr[771] = (void*)&cdat->dsym_697__MSTEPTESTVAR_SYMB; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_697__MSTEPTESTVAR_SYMB", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_697__MSTEPTESTVAR_SYMB", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); + cdat->dsym_697__MSTEPTESTVAR_SYMB.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_697__MSTEPTESTVAR_SYMB.obj_hash = 886812086; + cdat->dsym_697__MSTEPTESTVAR_SYMB.obj_len = 3; + + /*inistring dstr_698__MSTEPTESTVAR_SYM*/ + /*_.VALSTR___V773*/ meltfptr[772] = (void*)&cdat->dstr_698__MSTEPTESTVAR_SYM; + cdat->dstr_698__MSTEPTESTVAR_SYM.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_698__MSTEPTESTVAR_SYM.val, "MSTEPTESTVAR_SYMB", sizeof (cdat->dstr_698__MSTEPTESTVAR_SYM.val)-1); /*^iniobj*/ - /*iniobj dobj_695__MSTMA_OUTS*/ -/*_.VALDATA___V758*/ meltfptr[757] = (void*)&cdat->dobj_695__MSTMA_OUTS; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_695__MSTMA_OUTS", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_695__MSTMA_OUTS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); - cdat->dobj_695__MSTMA_OUTS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); - cdat->dobj_695__MSTMA_OUTS.obj_num = 8; - cdat->dobj_695__MSTMA_OUTS.obj_hash = 491079611; - cdat->dobj_695__MSTMA_OUTS.obj_len = 4; - - /*inistring dstr_696__MSTMA_OUTS*/ - /*_.VALSTR___V759*/ meltfptr[758] = (void*)&cdat->dstr_696__MSTMA_OUTS; - cdat->dstr_696__MSTMA_OUTS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_696__MSTMA_OUTS.val, "MSTMA_OUTS", sizeof (cdat->dstr_696__MSTMA_OUTS.val)-1); - - /*iniobj dsym_697__SCAN_SUBPATTERNS*/ -/*uniqueobj*/ if (!/*_.VALDATA___V769*/ meltfptr[768]) /*_.VALDATA___V769*/ meltfptr[768] = (void*)&cdat->dsym_697__SCAN_SUBPATTERNS; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_697__SCAN_SUBPATTERNS", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_697__SCAN_SUBPATTERNS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); - cdat->dsym_697__SCAN_SUBPATTERNS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_697__SCAN_SUBPATTERNS.obj_hash = 648386917; - cdat->dsym_697__SCAN_SUBPATTERNS.obj_len = 3; - - /*inistring dstr_698__SCAN_SUBPATTERNS*/ - /*_.VALSTR___V770*/ meltfptr[769] = (void*)&cdat->dstr_698__SCAN_SUBPATTERNS; - cdat->dstr_698__SCAN_SUBPATTERNS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_698__SCAN_SUBPATTERNS.val, "SCAN_SUBPATTERNS", sizeof (cdat->dstr_698__SCAN_SUBPATTERNS.val)-1); - - /*iniobj dsym_699__RECV*/ -/*uniqueobj*/ if (!/*_.VALDATA___V771*/ meltfptr[770]) /*_.VALDATA___V771*/ meltfptr[770] = (void*)&cdat->dsym_699__RECV; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_699__RECV", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_699__RECV", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); - cdat->dsym_699__RECV.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_699__RECV.obj_hash = 10842790; - cdat->dsym_699__RECV.obj_len = 3; - - /*inistring dstr_700__RECV*/ - /*_.VALSTR___V772*/ meltfptr[771] = (void*)&cdat->dstr_700__RECV; - cdat->dstr_700__RECV.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_700__RECV.val, "RECV", sizeof (cdat->dstr_700__RECV.val)-1); - - MELT_LOCATION("warmelt-normatch.melt:2538:/ iniobj"); - /*iniobj dobj_701*/ -/*_.VALDATA___V773*/ meltfptr[772] = (void*)&cdat->dobj_701; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_701", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_701", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); - cdat->dobj_701.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); - cdat->dobj_701.obj_num = 0; - cdat->dobj_701.obj_hash = 567303272; - cdat->dobj_701.obj_len = 2; - - /*iniobj dsym_702__FUN*/ -/*uniqueobj*/ if (!/*_.VALDATA___V774*/ meltfptr[773]) /*_.VALDATA___V774*/ meltfptr[773] = (void*)&cdat->dsym_702__FUN; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_702__FUN", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_702__FUN", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); - cdat->dsym_702__FUN.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_702__FUN.obj_hash = 46511649; - cdat->dsym_702__FUN.obj_len = 3; - - /*inistring dstr_703__FUN*/ - /*_.VALSTR___V775*/ meltfptr[774] = (void*)&cdat->dstr_703__FUN; - cdat->dstr_703__FUN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_703__FUN.val, "FUN", sizeof (cdat->dstr_703__FUN.val)-1); + /*iniobj dobj_699__MSTEPTESTVAR_SYMB*/ +/*_.VALDATA___V769*/ meltfptr[768] = (void*)&cdat->dobj_699__MSTEPTESTVAR_SYMB; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_699__MSTEPTESTVAR_SYMB", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_699__MSTEPTESTVAR_SYMB", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); + cdat->dobj_699__MSTEPTESTVAR_SYMB.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); + cdat->dobj_699__MSTEPTESTVAR_SYMB.obj_num = 5; + cdat->dobj_699__MSTEPTESTVAR_SYMB.obj_hash = 207024520; + cdat->dobj_699__MSTEPTESTVAR_SYMB.obj_len = 4; + + /*inistring dstr_700__MSTEPTESTVAR_SYM*/ + /*_.VALSTR___V770*/ meltfptr[769] = (void*)&cdat->dstr_700__MSTEPTESTVAR_SYM; + cdat->dstr_700__MSTEPTESTVAR_SYM.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_700__MSTEPTESTVAR_SYM.val, "MSTEPTESTVAR_SYMB", sizeof (cdat->dstr_700__MSTEPTESTVAR_SYM.val)-1); + + /*iniobj dsym_701__CLASS_MATCH_STEP_TEST_GROUP*/ +/*uniqueobj*/ if (!/*_.VALDATA___V774*/ meltfptr[773]) /*_.VALDATA___V774*/ meltfptr[773] = (void*)&cdat->dsym_701__CLASS_MATCH_STEP_TEST_GROUP; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_701__CLASS_MATCH_STEP_TEST_GROUP", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_701__CLASS_MATCH_STEP_TEST_GROUP", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); + cdat->dsym_701__CLASS_MATCH_STEP_TEST_GROUP.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_701__CLASS_MATCH_STEP_TEST_GROUP.obj_hash = 536919857; + cdat->dsym_701__CLASS_MATCH_STEP_TEST_GROUP.obj_len = 3; + + /*inistring dstr_702__CLASS_MATCH_STEP*/ + /*_.VALSTR___V775*/ meltfptr[774] = (void*)&cdat->dstr_702__CLASS_MATCH_STEP; + cdat->dstr_702__CLASS_MATCH_STEP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_702__CLASS_MATCH_STEP.val, "CLASS_MATCH_STEP_TEST_GROUP", sizeof (cdat->dstr_702__CLASS_MATCH_STEP.val)-1); + + MELT_LOCATION("warmelt-normatch.melt:2552:/ iniobj"); + /*iniobj dobj_703__CLASS_MATCH_STEP_TEST_GROUP*/ +/*_.VALDATA___V776*/ meltfptr[775] = (void*)&cdat->dobj_703__CLASS_MATCH_STEP_TEST_GROUP; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_703__CLASS_MATCH_STEP_TEST_GROUP", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_CLASS)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_703__CLASS_MATCH_STEP_TEST_GROUP", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); + cdat->dobj_703__CLASS_MATCH_STEP_TEST_GROUP.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); + cdat->dobj_703__CLASS_MATCH_STEP_TEST_GROUP.obj_num = OBMAG_OBJECT; + cdat->dobj_703__CLASS_MATCH_STEP_TEST_GROUP.obj_hash = 190005169; + cdat->dobj_703__CLASS_MATCH_STEP_TEST_GROUP.obj_len = 8; + + /*inistring dstr_704__CLASS_MATCH_STEP*/ + /*_.VALSTR___V777*/ meltfptr[776] = (void*)&cdat->dstr_704__CLASS_MATCH_STEP; + cdat->dstr_704__CLASS_MATCH_STEP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_704__CLASS_MATCH_STEP.val, "CLASS_MATCH_STEP_TEST_GROUP", sizeof (cdat->dstr_704__CLASS_MATCH_STEP.val)-1); + + /*inimult dtup_705__CLASS_MATCH_STEP_TEST_GROUP*/ + /*_.VALTUP___V778*/ meltfptr[777] = (void*)&cdat->dtup_705__CLASS_MATCH_STEP_TEST_GROUP; + cdat->dtup_705__CLASS_MATCH_STEP_TEST_GROUP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); + cdat->dtup_705__CLASS_MATCH_STEP_TEST_GROUP.nbval = 6; + /*inimult dtup_706__CLASS_MATCH_STEP_TEST_GROUP*/ + /*_.VALTUP___V785*/ meltfptr[784] = (void*)&cdat->dtup_706__CLASS_MATCH_STEP_TEST_GROUP; + cdat->dtup_706__CLASS_MATCH_STEP_TEST_GROUP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); + cdat->dtup_706__CLASS_MATCH_STEP_TEST_GROUP.nbval = 8; + /*iniobj dsym_707__MSTGROUP_START*/ +/*uniqueobj*/ if (!/*_.VALDATA___V786*/ meltfptr[785]) /*_.VALDATA___V786*/ meltfptr[785] = (void*)&cdat->dsym_707__MSTGROUP_START; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_707__MSTGROUP_START", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_707__MSTGROUP_START", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); + cdat->dsym_707__MSTGROUP_START.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_707__MSTGROUP_START.obj_hash = 989000551; + cdat->dsym_707__MSTGROUP_START.obj_len = 3; + + /*inistring dstr_708__MSTGROUP_START*/ + /*_.VALSTR___V787*/ meltfptr[786] = (void*)&cdat->dstr_708__MSTGROUP_START; + cdat->dstr_708__MSTGROUP_START.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_708__MSTGROUP_START.val, "MSTGROUP_START", sizeof (cdat->dstr_708__MSTGROUP_START.val)-1); /*^iniobj*/ - /*iniobj dobj_704*/ -/*_.VALDATA___V776*/ meltfptr[775] = (void*)&cdat->dobj_704; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_704", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_704", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); - cdat->dobj_704.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); - cdat->dobj_704.obj_num = 1; - cdat->dobj_704.obj_hash = 283002009; - cdat->dobj_704.obj_len = 2; - - /*iniobj dsym_705__CTX*/ -/*uniqueobj*/ if (!/*_.VALDATA___V777*/ meltfptr[776]) /*_.VALDATA___V777*/ meltfptr[776] = (void*)&cdat->dsym_705__CTX; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_705__CTX", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_705__CTX", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); - cdat->dsym_705__CTX.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_705__CTX.obj_hash = 80453264; - cdat->dsym_705__CTX.obj_len = 3; - - /*inistring dstr_706__CTX*/ - /*_.VALSTR___V778*/ meltfptr[777] = (void*)&cdat->dstr_706__CTX; - cdat->dstr_706__CTX.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_706__CTX.val, "CTX", sizeof (cdat->dstr_706__CTX.val)-1); + /*iniobj dobj_709__MSTGROUP_START*/ +/*_.VALDATA___V779*/ meltfptr[778] = (void*)&cdat->dobj_709__MSTGROUP_START; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_709__MSTGROUP_START", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_709__MSTGROUP_START", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); + cdat->dobj_709__MSTGROUP_START.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); + cdat->dobj_709__MSTGROUP_START.obj_num = 5; + cdat->dobj_709__MSTGROUP_START.obj_hash = 305739909; + cdat->dobj_709__MSTGROUP_START.obj_len = 4; + + /*inistring dstr_710__MSTGROUP_START*/ + /*_.VALSTR___V780*/ meltfptr[779] = (void*)&cdat->dstr_710__MSTGROUP_START; + cdat->dstr_710__MSTGROUP_START.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_710__MSTGROUP_START.val, "MSTGROUP_START", sizeof (cdat->dstr_710__MSTGROUP_START.val)-1); + + /*iniobj dsym_711__MSTGROUP_THEN*/ +/*uniqueobj*/ if (!/*_.VALDATA___V788*/ meltfptr[787]) /*_.VALDATA___V788*/ meltfptr[787] = (void*)&cdat->dsym_711__MSTGROUP_THEN; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_711__MSTGROUP_THEN", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_711__MSTGROUP_THEN", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); + cdat->dsym_711__MSTGROUP_THEN.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_711__MSTGROUP_THEN.obj_hash = 156200532; + cdat->dsym_711__MSTGROUP_THEN.obj_len = 3; + + /*inistring dstr_712__MSTGROUP_THEN*/ + /*_.VALSTR___V789*/ meltfptr[788] = (void*)&cdat->dstr_712__MSTGROUP_THEN; + cdat->dstr_712__MSTGROUP_THEN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_712__MSTGROUP_THEN.val, "MSTGROUP_THEN", sizeof (cdat->dstr_712__MSTGROUP_THEN.val)-1); /*^iniobj*/ - /*iniobj dobj_707*/ -/*_.VALDATA___V779*/ meltfptr[778] = (void*)&cdat->dobj_707; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_707", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_707", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); - cdat->dobj_707.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); - cdat->dobj_707.obj_num = 2; - cdat->dobj_707.obj_hash = 965876429; - cdat->dobj_707.obj_len = 2; - - /*inimult dtup_708__SCAN_SUBPATTERNS*/ - /*_.VALTUP___V780*/ meltfptr[779] = (void*)&cdat->dtup_708__SCAN_SUBPATTERNS; - cdat->dtup_708__SCAN_SUBPATTERNS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE)))); - cdat->dtup_708__SCAN_SUBPATTERNS.nbval = 3; + /*iniobj dobj_713__MSTGROUP_THEN*/ +/*_.VALDATA___V781*/ meltfptr[780] = (void*)&cdat->dobj_713__MSTGROUP_THEN; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_713__MSTGROUP_THEN", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_713__MSTGROUP_THEN", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); + cdat->dobj_713__MSTGROUP_THEN.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); + cdat->dobj_713__MSTGROUP_THEN.obj_num = 6; + cdat->dobj_713__MSTGROUP_THEN.obj_hash = 428150923; + cdat->dobj_713__MSTGROUP_THEN.obj_len = 4; + + /*inistring dstr_714__MSTGROUP_THEN*/ + /*_.VALSTR___V782*/ meltfptr[781] = (void*)&cdat->dstr_714__MSTGROUP_THEN; + cdat->dstr_714__MSTGROUP_THEN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_714__MSTGROUP_THEN.val, "MSTGROUP_THEN", sizeof (cdat->dstr_714__MSTGROUP_THEN.val)-1); + + /*iniobj dsym_715__MSTGROUP_ELSE*/ +/*uniqueobj*/ if (!/*_.VALDATA___V790*/ meltfptr[789]) /*_.VALDATA___V790*/ meltfptr[789] = (void*)&cdat->dsym_715__MSTGROUP_ELSE; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_715__MSTGROUP_ELSE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_715__MSTGROUP_ELSE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); + cdat->dsym_715__MSTGROUP_ELSE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_715__MSTGROUP_ELSE.obj_hash = 854928951; + cdat->dsym_715__MSTGROUP_ELSE.obj_len = 3; + + /*inistring dstr_716__MSTGROUP_ELSE*/ + /*_.VALSTR___V791*/ meltfptr[790] = (void*)&cdat->dstr_716__MSTGROUP_ELSE; + cdat->dstr_716__MSTGROUP_ELSE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_716__MSTGROUP_ELSE.val, "MSTGROUP_ELSE", sizeof (cdat->dstr_716__MSTGROUP_ELSE.val)-1); + /*^iniobj*/ - /*iniobj dobj_709__SCAN_SUBPATTERNS*/ -/*_.VALDATA___V781*/ meltfptr[780] = (void*)&cdat->dobj_709__SCAN_SUBPATTERNS; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_709__SCAN_SUBPATTERNS", melt_magic_discr (/*_.CLASS_SELECTOR__V8*/ meltfptr[7]) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_709__SCAN_SUBPATTERNS", ((meltobject_ptr_t) (/*_.CLASS_SELECTOR__V8*/ meltfptr[7]))->object_magic == OBMAG_OBJECT); - cdat->dobj_709__SCAN_SUBPATTERNS.obj_class = (meltobject_ptr_t)(/*_.CLASS_SELECTOR__V8*/ meltfptr[7]); - cdat->dobj_709__SCAN_SUBPATTERNS.obj_hash = 918297037; - cdat->dobj_709__SCAN_SUBPATTERNS.obj_len = 4; - - /*inistring dstr_710__SCAN_SUBPATTERNS*/ - /*_.VALSTR___V782*/ meltfptr[781] = (void*)&cdat->dstr_710__SCAN_SUBPATTERNS; - cdat->dstr_710__SCAN_SUBPATTERNS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_710__SCAN_SUBPATTERNS.val, "SCAN_SUBPATTERNS", sizeof (cdat->dstr_710__SCAN_SUBPATTERNS.val)-1); - - /*iniobj dsym_711__SCAN_STEP_DATA*/ -/*uniqueobj*/ if (!/*_.VALDATA___V783*/ meltfptr[782]) /*_.VALDATA___V783*/ meltfptr[782] = (void*)&cdat->dsym_711__SCAN_STEP_DATA; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_711__SCAN_STEP_DATA", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_711__SCAN_STEP_DATA", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); - cdat->dsym_711__SCAN_STEP_DATA.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_711__SCAN_STEP_DATA.obj_hash = 131373921; - cdat->dsym_711__SCAN_STEP_DATA.obj_len = 3; - - /*inistring dstr_712__SCAN_STEP_DATA*/ - /*_.VALSTR___V784*/ meltfptr[783] = (void*)&cdat->dstr_712__SCAN_STEP_DATA; - cdat->dstr_712__SCAN_STEP_DATA.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_712__SCAN_STEP_DATA.val, "SCAN_STEP_DATA", sizeof (cdat->dstr_712__SCAN_STEP_DATA.val)-1); - - /*iniobj dsym_713__STEP*/ -/*uniqueobj*/ if (!/*_.VALDATA___V785*/ meltfptr[784]) /*_.VALDATA___V785*/ meltfptr[784] = (void*)&cdat->dsym_713__STEP; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_713__STEP", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_713__STEP", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); - cdat->dsym_713__STEP.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_713__STEP.obj_hash = 449825866; - cdat->dsym_713__STEP.obj_len = 3; - - /*inistring dstr_714__STEP*/ - /*_.VALSTR___V786*/ meltfptr[785] = (void*)&cdat->dstr_714__STEP; - cdat->dstr_714__STEP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_714__STEP.val, "STEP", sizeof (cdat->dstr_714__STEP.val)-1); - - MELT_LOCATION("warmelt-normatch.melt:2544:/ iniobj"); - /*iniobj dobj_715*/ -/*_.VALDATA___V787*/ meltfptr[786] = (void*)&cdat->dobj_715; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_715", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_715", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); - cdat->dobj_715.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); - cdat->dobj_715.obj_num = 0; - cdat->dobj_715.obj_hash = 334946040; - cdat->dobj_715.obj_len = 2; - + /*iniobj dobj_717__MSTGROUP_ELSE*/ +/*_.VALDATA___V783*/ meltfptr[782] = (void*)&cdat->dobj_717__MSTGROUP_ELSE; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_717__MSTGROUP_ELSE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_717__MSTGROUP_ELSE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); + cdat->dobj_717__MSTGROUP_ELSE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); + cdat->dobj_717__MSTGROUP_ELSE.obj_num = 7; + cdat->dobj_717__MSTGROUP_ELSE.obj_hash = 819422875; + cdat->dobj_717__MSTGROUP_ELSE.obj_len = 4; + + /*inistring dstr_718__MSTGROUP_ELSE*/ + /*_.VALSTR___V784*/ meltfptr[783] = (void*)&cdat->dstr_718__MSTGROUP_ELSE; + cdat->dstr_718__MSTGROUP_ELSE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_718__MSTGROUP_ELSE.val, "MSTGROUP_ELSE", sizeof (cdat->dstr_718__MSTGROUP_ELSE.val)-1); + + /*iniobj dsym_719__CLASS_MATCH_STEP_TEST_INSTANCE*/ +/*uniqueobj*/ if (!/*_.VALDATA___V792*/ meltfptr[791]) /*_.VALDATA___V792*/ meltfptr[791] = (void*)&cdat->dsym_719__CLASS_MATCH_STEP_TEST_INSTANCE; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_719__CLASS_MATCH_STEP_TEST_INSTANCE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_719__CLASS_MATCH_STEP_TEST_INSTANCE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); + cdat->dsym_719__CLASS_MATCH_STEP_TEST_INSTANCE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_719__CLASS_MATCH_STEP_TEST_INSTANCE.obj_hash = 601675634; + cdat->dsym_719__CLASS_MATCH_STEP_TEST_INSTANCE.obj_len = 3; + + /*inistring dstr_720__CLASS_MATCH_STEP*/ + /*_.VALSTR___V793*/ meltfptr[792] = (void*)&cdat->dstr_720__CLASS_MATCH_STEP; + cdat->dstr_720__CLASS_MATCH_STEP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_720__CLASS_MATCH_STEP.val, "CLASS_MATCH_STEP_TEST_INSTANCE", sizeof (cdat->dstr_720__CLASS_MATCH_STEP.val)-1); + + MELT_LOCATION("warmelt-normatch.melt:2563:/ iniobj"); + /*iniobj dobj_721__CLASS_MATCH_STEP_TEST_INSTANCE*/ +/*_.VALDATA___V794*/ meltfptr[793] = (void*)&cdat->dobj_721__CLASS_MATCH_STEP_TEST_INSTANCE; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_721__CLASS_MATCH_STEP_TEST_INSTANCE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_CLASS)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_721__CLASS_MATCH_STEP_TEST_INSTANCE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); + cdat->dobj_721__CLASS_MATCH_STEP_TEST_INSTANCE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); + cdat->dobj_721__CLASS_MATCH_STEP_TEST_INSTANCE.obj_num = OBMAG_OBJECT; + cdat->dobj_721__CLASS_MATCH_STEP_TEST_INSTANCE.obj_hash = 771518769; + cdat->dobj_721__CLASS_MATCH_STEP_TEST_INSTANCE.obj_len = 8; + + /*inistring dstr_722__CLASS_MATCH_STEP*/ + /*_.VALSTR___V795*/ meltfptr[794] = (void*)&cdat->dstr_722__CLASS_MATCH_STEP; + cdat->dstr_722__CLASS_MATCH_STEP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_722__CLASS_MATCH_STEP.val, "CLASS_MATCH_STEP_TEST_INSTANCE", sizeof (cdat->dstr_722__CLASS_MATCH_STEP.val)-1); + + /*inimult dtup_723__CLASS_MATCH_STEP_TEST_INSTANCE*/ + /*_.VALTUP___V796*/ meltfptr[795] = (void*)&cdat->dtup_723__CLASS_MATCH_STEP_TEST_INSTANCE; + cdat->dtup_723__CLASS_MATCH_STEP_TEST_INSTANCE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); + cdat->dtup_723__CLASS_MATCH_STEP_TEST_INSTANCE.nbval = 6; + /*inimult dtup_724__CLASS_MATCH_STEP_TEST_INSTANCE*/ + /*_.VALTUP___V801*/ meltfptr[800] = (void*)&cdat->dtup_724__CLASS_MATCH_STEP_TEST_INSTANCE; + cdat->dtup_724__CLASS_MATCH_STEP_TEST_INSTANCE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); + cdat->dtup_724__CLASS_MATCH_STEP_TEST_INSTANCE.nbval = 7; + /*iniobj dsym_725__MSTINS_CLASS*/ +/*uniqueobj*/ if (!/*_.VALDATA___V802*/ meltfptr[801]) /*_.VALDATA___V802*/ meltfptr[801] = (void*)&cdat->dsym_725__MSTINS_CLASS; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_725__MSTINS_CLASS", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_725__MSTINS_CLASS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); + cdat->dsym_725__MSTINS_CLASS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_725__MSTINS_CLASS.obj_hash = 992180192; + cdat->dsym_725__MSTINS_CLASS.obj_len = 3; + + /*inistring dstr_726__MSTINS_CLASS*/ + /*_.VALSTR___V803*/ meltfptr[802] = (void*)&cdat->dstr_726__MSTINS_CLASS; + cdat->dstr_726__MSTINS_CLASS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_726__MSTINS_CLASS.val, "MSTINS_CLASS", sizeof (cdat->dstr_726__MSTINS_CLASS.val)-1); + /*^iniobj*/ - /*iniobj dobj_716*/ -/*_.VALDATA___V788*/ meltfptr[787] = (void*)&cdat->dobj_716; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_716", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_716", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); - cdat->dobj_716.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); - cdat->dobj_716.obj_num = 1; - cdat->dobj_716.obj_hash = 159069501; - cdat->dobj_716.obj_len = 2; - + /*iniobj dobj_727__MSTINS_CLASS*/ +/*_.VALDATA___V797*/ meltfptr[796] = (void*)&cdat->dobj_727__MSTINS_CLASS; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_727__MSTINS_CLASS", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_727__MSTINS_CLASS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); + cdat->dobj_727__MSTINS_CLASS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); + cdat->dobj_727__MSTINS_CLASS.obj_num = 5; + cdat->dobj_727__MSTINS_CLASS.obj_hash = 663651877; + cdat->dobj_727__MSTINS_CLASS.obj_len = 4; + + /*inistring dstr_728__MSTINS_CLASS*/ + /*_.VALSTR___V798*/ meltfptr[797] = (void*)&cdat->dstr_728__MSTINS_CLASS; + cdat->dstr_728__MSTINS_CLASS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_728__MSTINS_CLASS.val, "MSTINS_CLASS", sizeof (cdat->dstr_728__MSTINS_CLASS.val)-1); + + /*iniobj dsym_729__MSTINS_SLOTS*/ +/*uniqueobj*/ if (!/*_.VALDATA___V804*/ meltfptr[803]) /*_.VALDATA___V804*/ meltfptr[803] = (void*)&cdat->dsym_729__MSTINS_SLOTS; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_729__MSTINS_SLOTS", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_729__MSTINS_SLOTS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); + cdat->dsym_729__MSTINS_SLOTS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_729__MSTINS_SLOTS.obj_hash = 625280432; + cdat->dsym_729__MSTINS_SLOTS.obj_len = 3; + + /*inistring dstr_730__MSTINS_SLOTS*/ + /*_.VALSTR___V805*/ meltfptr[804] = (void*)&cdat->dstr_730__MSTINS_SLOTS; + cdat->dstr_730__MSTINS_SLOTS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_730__MSTINS_SLOTS.val, "MSTINS_SLOTS", sizeof (cdat->dstr_730__MSTINS_SLOTS.val)-1); + /*^iniobj*/ - /*iniobj dobj_717*/ -/*_.VALDATA___V789*/ meltfptr[788] = (void*)&cdat->dobj_717; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_717", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_717", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); - cdat->dobj_717.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); - cdat->dobj_717.obj_num = 2; - cdat->dobj_717.obj_hash = 875658946; - cdat->dobj_717.obj_len = 2; - - /*inimult dtup_718__SCAN_STEP_DATA*/ - /*_.VALTUP___V790*/ meltfptr[789] = (void*)&cdat->dtup_718__SCAN_STEP_DATA; - cdat->dtup_718__SCAN_STEP_DATA.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE)))); - cdat->dtup_718__SCAN_STEP_DATA.nbval = 3; + /*iniobj dobj_731__MSTINS_SLOTS*/ +/*_.VALDATA___V799*/ meltfptr[798] = (void*)&cdat->dobj_731__MSTINS_SLOTS; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_731__MSTINS_SLOTS", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_731__MSTINS_SLOTS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); + cdat->dobj_731__MSTINS_SLOTS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); + cdat->dobj_731__MSTINS_SLOTS.obj_num = 6; + cdat->dobj_731__MSTINS_SLOTS.obj_hash = 826060805; + cdat->dobj_731__MSTINS_SLOTS.obj_len = 4; + + /*inistring dstr_732__MSTINS_SLOTS*/ + /*_.VALSTR___V800*/ meltfptr[799] = (void*)&cdat->dstr_732__MSTINS_SLOTS; + cdat->dstr_732__MSTINS_SLOTS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_732__MSTINS_SLOTS.val, "MSTINS_SLOTS", sizeof (cdat->dstr_732__MSTINS_SLOTS.val)-1); + + /*iniobj dsym_733__CLASS_MATCH_STEP_TEST_MATCHER*/ +/*uniqueobj*/ if (!/*_.VALDATA___V806*/ meltfptr[805]) /*_.VALDATA___V806*/ meltfptr[805] = (void*)&cdat->dsym_733__CLASS_MATCH_STEP_TEST_MATCHER; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_733__CLASS_MATCH_STEP_TEST_MATCHER", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_733__CLASS_MATCH_STEP_TEST_MATCHER", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); + cdat->dsym_733__CLASS_MATCH_STEP_TEST_MATCHER.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_733__CLASS_MATCH_STEP_TEST_MATCHER.obj_hash = 930369137; + cdat->dsym_733__CLASS_MATCH_STEP_TEST_MATCHER.obj_len = 3; + + /*inistring dstr_734__CLASS_MATCH_STEP*/ + /*_.VALSTR___V807*/ meltfptr[806] = (void*)&cdat->dstr_734__CLASS_MATCH_STEP; + cdat->dstr_734__CLASS_MATCH_STEP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_734__CLASS_MATCH_STEP.val, "CLASS_MATCH_STEP_TEST_MATCHER", sizeof (cdat->dstr_734__CLASS_MATCH_STEP.val)-1); + + MELT_LOCATION("warmelt-normatch.melt:2571:/ iniobj"); + /*iniobj dobj_735__CLASS_MATCH_STEP_TEST_MATCHER*/ +/*_.VALDATA___V808*/ meltfptr[807] = (void*)&cdat->dobj_735__CLASS_MATCH_STEP_TEST_MATCHER; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_735__CLASS_MATCH_STEP_TEST_MATCHER", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_CLASS)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_735__CLASS_MATCH_STEP_TEST_MATCHER", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); + cdat->dobj_735__CLASS_MATCH_STEP_TEST_MATCHER.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); + cdat->dobj_735__CLASS_MATCH_STEP_TEST_MATCHER.obj_num = OBMAG_OBJECT; + cdat->dobj_735__CLASS_MATCH_STEP_TEST_MATCHER.obj_hash = 357715492; + cdat->dobj_735__CLASS_MATCH_STEP_TEST_MATCHER.obj_len = 8; + + /*inistring dstr_736__CLASS_MATCH_STEP*/ + /*_.VALSTR___V809*/ meltfptr[808] = (void*)&cdat->dstr_736__CLASS_MATCH_STEP; + cdat->dstr_736__CLASS_MATCH_STEP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_736__CLASS_MATCH_STEP.val, "CLASS_MATCH_STEP_TEST_MATCHER", sizeof (cdat->dstr_736__CLASS_MATCH_STEP.val)-1); + + /*inimult dtup_737__CLASS_MATCH_STEP_TEST_MATCHER*/ + /*_.VALTUP___V810*/ meltfptr[809] = (void*)&cdat->dtup_737__CLASS_MATCH_STEP_TEST_MATCHER; + cdat->dtup_737__CLASS_MATCH_STEP_TEST_MATCHER.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); + cdat->dtup_737__CLASS_MATCH_STEP_TEST_MATCHER.nbval = 6; + /*inimult dtup_738__CLASS_MATCH_STEP_TEST_MATCHER*/ + /*_.VALTUP___V819*/ meltfptr[818] = (void*)&cdat->dtup_738__CLASS_MATCH_STEP_TEST_MATCHER; + cdat->dtup_738__CLASS_MATCH_STEP_TEST_MATCHER.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); + cdat->dtup_738__CLASS_MATCH_STEP_TEST_MATCHER.nbval = 9; + /*iniobj dsym_739__MSTMA_MATCHER*/ +/*uniqueobj*/ if (!/*_.VALDATA___V820*/ meltfptr[819]) /*_.VALDATA___V820*/ meltfptr[819] = (void*)&cdat->dsym_739__MSTMA_MATCHER; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_739__MSTMA_MATCHER", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_739__MSTMA_MATCHER", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); + cdat->dsym_739__MSTMA_MATCHER.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_739__MSTMA_MATCHER.obj_hash = 562919191; + cdat->dsym_739__MSTMA_MATCHER.obj_len = 3; + + /*inistring dstr_740__MSTMA_MATCHER*/ + /*_.VALSTR___V821*/ meltfptr[820] = (void*)&cdat->dstr_740__MSTMA_MATCHER; + cdat->dstr_740__MSTMA_MATCHER.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_740__MSTMA_MATCHER.val, "MSTMA_MATCHER", sizeof (cdat->dstr_740__MSTMA_MATCHER.val)-1); + /*^iniobj*/ - /*iniobj dobj_719__SCAN_STEP_DATA*/ -/*_.VALDATA___V791*/ meltfptr[790] = (void*)&cdat->dobj_719__SCAN_STEP_DATA; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_719__SCAN_STEP_DATA", melt_magic_discr (/*_.CLASS_SELECTOR__V8*/ meltfptr[7]) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_719__SCAN_STEP_DATA", ((meltobject_ptr_t) (/*_.CLASS_SELECTOR__V8*/ meltfptr[7]))->object_magic == OBMAG_OBJECT); - cdat->dobj_719__SCAN_STEP_DATA.obj_class = (meltobject_ptr_t)(/*_.CLASS_SELECTOR__V8*/ meltfptr[7]); - cdat->dobj_719__SCAN_STEP_DATA.obj_hash = 159764759; - cdat->dobj_719__SCAN_STEP_DATA.obj_len = 4; - - /*inistring dstr_720__SCAN_STEP_DATA*/ - /*_.VALSTR___V792*/ meltfptr[791] = (void*)&cdat->dstr_720__SCAN_STEP_DATA; - cdat->dstr_720__SCAN_STEP_DATA.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_720__SCAN_STEP_DATA.val, "SCAN_STEP_DATA", sizeof (cdat->dstr_720__SCAN_STEP_DATA.val)-1); - - /*inirout drout_721__SCANSUBPAT_ANYRECV*/ - /*_.VALROUT___V793*/ meltfptr[792] = (void*)&cdat->drout_721__SCANSUBPAT_ANYRECV; - cdat->drout_721__SCANSUBPAT_ANYRECV.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); - strncpy(cdat->drout_721__SCANSUBPAT_ANYRECV.routdescr, "SCANSUBPAT_ANYRECV @warmelt-normatch.melt:2549", MELT_ROUTDESCR_LEN - 1); - cdat->drout_721__SCANSUBPAT_ANYRECV.nbval = 1; - MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_721__SCANSUBPAT_ANYRECV, meltrout_47_warmelt_normatch_SCANSUBPAT_ANYRECV); - - /*iniclos dclo_722__SCANSUBPAT_ANYRECV*/ - /*_.VALCLO___V794*/ meltfptr[793] = (void*)&cdat->dclo_722__SCANSUBPAT_ANYRECV; - cdat->dclo_722__SCANSUBPAT_ANYRECV.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); - cdat->dclo_722__SCANSUBPAT_ANYRECV.nbval = 0; - - /*inirout drout_723__SCANSUBPAT_NOOP*/ - /*_.VALROUT___V795*/ meltfptr[794] = (void*)&cdat->drout_723__SCANSUBPAT_NOOP; - cdat->drout_723__SCANSUBPAT_NOOP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); - strncpy(cdat->drout_723__SCANSUBPAT_NOOP.routdescr, "SCANSUBPAT_NOOP @warmelt-normatch.melt:2557", MELT_ROUTDESCR_LEN - 1); - cdat->drout_723__SCANSUBPAT_NOOP.nbval = 0; - MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_723__SCANSUBPAT_NOOP, meltrout_48_warmelt_normatch_SCANSUBPAT_NOOP); - - /*iniclos dclo_724__SCANSUBPAT_NOOP*/ - /*_.VALCLO___V796*/ meltfptr[795] = (void*)&cdat->dclo_724__SCANSUBPAT_NOOP; - cdat->dclo_724__SCANSUBPAT_NOOP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); - cdat->dclo_724__SCANSUBPAT_NOOP.nbval = 0; - - /*inirout drout_725__SCANSUBPAT_OR*/ - /*_.VALROUT___V797*/ meltfptr[796] = (void*)&cdat->drout_725__SCANSUBPAT_OR; - cdat->drout_725__SCANSUBPAT_OR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); - strncpy(cdat->drout_725__SCANSUBPAT_OR.routdescr, "SCANSUBPAT_OR @warmelt-normatch.melt:2563", MELT_ROUTDESCR_LEN - 1); - cdat->drout_725__SCANSUBPAT_OR.nbval = 0; - MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_725__SCANSUBPAT_OR, meltrout_49_warmelt_normatch_SCANSUBPAT_OR); - - /*iniclos dclo_726__SCANSUBPAT_OR*/ - /*_.VALCLO___V798*/ meltfptr[797] = (void*)&cdat->dclo_726__SCANSUBPAT_OR; - cdat->dclo_726__SCANSUBPAT_OR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); - cdat->dclo_726__SCANSUBPAT_OR.nbval = 0; - - /*inirout drout_727__SCANSUBPAT_AND*/ - /*_.VALROUT___V799*/ meltfptr[798] = (void*)&cdat->drout_727__SCANSUBPAT_AND; - cdat->drout_727__SCANSUBPAT_AND.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); - strncpy(cdat->drout_727__SCANSUBPAT_AND.routdescr, "SCANSUBPAT_AND @warmelt-normatch.melt:2571", MELT_ROUTDESCR_LEN - 1); - cdat->drout_727__SCANSUBPAT_AND.nbval = 0; - MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_727__SCANSUBPAT_AND, meltrout_50_warmelt_normatch_SCANSUBPAT_AND); - - /*iniclos dclo_728__SCANSUBPAT_AND*/ - /*_.VALCLO___V800*/ meltfptr[799] = (void*)&cdat->dclo_728__SCANSUBPAT_AND; - cdat->dclo_728__SCANSUBPAT_AND.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); - cdat->dclo_728__SCANSUBPAT_AND.nbval = 0; - - /*inirout drout_729__SCANSUBPAT_CONSTRUCT*/ - /*_.VALROUT___V801*/ meltfptr[800] = (void*)&cdat->drout_729__SCANSUBPAT_CONSTRUCT; - cdat->drout_729__SCANSUBPAT_CONSTRUCT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); - strncpy(cdat->drout_729__SCANSUBPAT_CONSTRUCT.routdescr, "SCANSUBPAT_CONSTRUCT @warmelt-normatch.melt:2580", MELT_ROUTDESCR_LEN - 1); - cdat->drout_729__SCANSUBPAT_CONSTRUCT.nbval = 0; - MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_729__SCANSUBPAT_CONSTRUCT, meltrout_51_warmelt_normatch_SCANSUBPAT_CONSTRUCT); - - /*iniclos dclo_730__SCANSUBPAT_CONSTRUCT*/ - /*_.VALCLO___V802*/ meltfptr[801] = (void*)&cdat->dclo_730__SCANSUBPAT_CONSTRUCT; - cdat->dclo_730__SCANSUBPAT_CONSTRUCT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); - cdat->dclo_730__SCANSUBPAT_CONSTRUCT.nbval = 0; - - /*iniobj dsym_731__CLASS_SOURCE_PATTERN_CONSTRUCT*/ -/*uniqueobj*/ if (!/*_.VALDATA___V803*/ meltfptr[802]) /*_.VALDATA___V803*/ meltfptr[802] = (void*)&cdat->dsym_731__CLASS_SOURCE_PATTERN_CONSTRUCT; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_731__CLASS_SOURCE_PATTERN_CONSTRUCT", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_731__CLASS_SOURCE_PATTERN_CONSTRUCT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); - cdat->dsym_731__CLASS_SOURCE_PATTERN_CONSTRUCT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_731__CLASS_SOURCE_PATTERN_CONSTRUCT.obj_hash = 432286397; - cdat->dsym_731__CLASS_SOURCE_PATTERN_CONSTRUCT.obj_len = 3; - - /*inistring dstr_732__CLASS_SOURCE_PAT*/ - /*_.VALSTR___V804*/ meltfptr[803] = (void*)&cdat->dstr_732__CLASS_SOURCE_PAT; - cdat->dstr_732__CLASS_SOURCE_PAT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_732__CLASS_SOURCE_PAT.val, "CLASS_SOURCE_PATTERN_CONSTRUCT", sizeof (cdat->dstr_732__CLASS_SOURCE_PAT.val)-1); - - /*inirout drout_733__SCANSUBPAT_OBJECT*/ - /*_.VALROUT___V805*/ meltfptr[804] = (void*)&cdat->drout_733__SCANSUBPAT_OBJECT; - cdat->drout_733__SCANSUBPAT_OBJECT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); - strncpy(cdat->drout_733__SCANSUBPAT_OBJECT.routdescr, "SCANSUBPAT_OBJECT @warmelt-normatch.melt:2588", MELT_ROUTDESCR_LEN - 1); - cdat->drout_733__SCANSUBPAT_OBJECT.nbval = 1; - MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_733__SCANSUBPAT_OBJECT, meltrout_52_warmelt_normatch_SCANSUBPAT_OBJECT); - - /*iniclos dclo_734__SCANSUBPAT_OBJECT*/ - /*_.VALCLO___V806*/ meltfptr[805] = (void*)&cdat->dclo_734__SCANSUBPAT_OBJECT; - cdat->dclo_734__SCANSUBPAT_OBJECT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); - cdat->dclo_734__SCANSUBPAT_OBJECT.nbval = 0; - - /*inirout drout_735__SCANSUBPAT_COMPOSITE*/ - /*_.VALROUT___V807*/ meltfptr[806] = (void*)&cdat->drout_735__SCANSUBPAT_COMPOSITE; - cdat->drout_735__SCANSUBPAT_COMPOSITE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); - strncpy(cdat->drout_735__SCANSUBPAT_COMPOSITE.routdescr, "SCANSUBPAT_COMPOSITE @warmelt-normatch.melt:2597", MELT_ROUTDESCR_LEN - 1); - cdat->drout_735__SCANSUBPAT_COMPOSITE.nbval = 0; - MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_735__SCANSUBPAT_COMPOSITE, meltrout_53_warmelt_normatch_SCANSUBPAT_COMPOSITE); - - /*iniclos dclo_736__SCANSUBPAT_COMPOSITE*/ - /*_.VALCLO___V808*/ meltfptr[807] = (void*)&cdat->dclo_736__SCANSUBPAT_COMPOSITE; - cdat->dclo_736__SCANSUBPAT_COMPOSITE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); - cdat->dclo_736__SCANSUBPAT_COMPOSITE.nbval = 0; - - /*inirout drout_737__FILL_MATCHCASE*/ - /*_.VALROUT___V809*/ meltfptr[808] = (void*)&cdat->drout_737__FILL_MATCHCASE; - cdat->drout_737__FILL_MATCHCASE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); - strncpy(cdat->drout_737__FILL_MATCHCASE.routdescr, "FILL_MATCHCASE @warmelt-normatch.melt:2606", MELT_ROUTDESCR_LEN - 1); - cdat->drout_737__FILL_MATCHCASE.nbval = 8; - MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_737__FILL_MATCHCASE, meltrout_54_warmelt_normatch_FILL_MATCHCASE); - - /*iniclos dclo_738__FILL_MATCHCASE*/ - /*_.VALCLO___V811*/ meltfptr[810] = (void*)&cdat->dclo_738__FILL_MATCHCASE; - cdat->dclo_738__FILL_MATCHCASE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); - cdat->dclo_738__FILL_MATCHCASE.nbval = 0; - - /*inirout drout_739__LAMBDA_*/ - /*_.VALROUT___V810*/ meltfptr[809] = (void*)&cdat->drout_739__LAMBDA_; - cdat->drout_739__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); - strncpy(cdat->drout_739__LAMBDA_.routdescr, "LAMBDA_ @warmelt-normatch.melt:2616", MELT_ROUTDESCR_LEN - 1); - cdat->drout_739__LAMBDA_.nbval = 3; - MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_739__LAMBDA_, meltrout_55_warmelt_normatch_LAMBDA_); - - /*iniobj dsym_740__PUT_THEN_MATCH*/ -/*uniqueobj*/ if (!/*_.VALDATA___V812*/ meltfptr[811]) /*_.VALDATA___V812*/ meltfptr[811] = (void*)&cdat->dsym_740__PUT_THEN_MATCH; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_740__PUT_THEN_MATCH", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_740__PUT_THEN_MATCH", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); - cdat->dsym_740__PUT_THEN_MATCH.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_740__PUT_THEN_MATCH.obj_hash = 135654960; - cdat->dsym_740__PUT_THEN_MATCH.obj_len = 3; - - /*inistring dstr_741__PUT_THEN_MATCH*/ - /*_.VALSTR___V813*/ meltfptr[812] = (void*)&cdat->dstr_741__PUT_THEN_MATCH; - cdat->dstr_741__PUT_THEN_MATCH.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_741__PUT_THEN_MATCH.val, "PUT_THEN_MATCH", sizeof (cdat->dstr_741__PUT_THEN_MATCH.val)-1); - - MELT_LOCATION("warmelt-normatch.melt:2641:/ iniobj"); - /*iniobj dobj_742*/ -/*_.VALDATA___V814*/ meltfptr[813] = (void*)&cdat->dobj_742; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_742", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_742", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); - cdat->dobj_742.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); - cdat->dobj_742.obj_num = 0; - cdat->dobj_742.obj_hash = 200631523; - cdat->dobj_742.obj_len = 2; - - /*iniobj dsym_743__THENSTEP*/ -/*uniqueobj*/ if (!/*_.VALDATA___V815*/ meltfptr[814]) /*_.VALDATA___V815*/ meltfptr[814] = (void*)&cdat->dsym_743__THENSTEP; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_743__THENSTEP", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_743__THENSTEP", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); - cdat->dsym_743__THENSTEP.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_743__THENSTEP.obj_hash = 296323356; - cdat->dsym_743__THENSTEP.obj_len = 3; - - /*inistring dstr_744__THENSTEP*/ - /*_.VALSTR___V816*/ meltfptr[815] = (void*)&cdat->dstr_744__THENSTEP; - cdat->dstr_744__THENSTEP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_744__THENSTEP.val, "THENSTEP", sizeof (cdat->dstr_744__THENSTEP.val)-1); + /*iniobj dobj_741__MSTMA_MATCHER*/ +/*_.VALDATA___V811*/ meltfptr[810] = (void*)&cdat->dobj_741__MSTMA_MATCHER; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_741__MSTMA_MATCHER", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_741__MSTMA_MATCHER", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); + cdat->dobj_741__MSTMA_MATCHER.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); + cdat->dobj_741__MSTMA_MATCHER.obj_num = 5; + cdat->dobj_741__MSTMA_MATCHER.obj_hash = 752497795; + cdat->dobj_741__MSTMA_MATCHER.obj_len = 4; + + /*inistring dstr_742__MSTMA_MATCHER*/ + /*_.VALSTR___V812*/ meltfptr[811] = (void*)&cdat->dstr_742__MSTMA_MATCHER; + cdat->dstr_742__MSTMA_MATCHER.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_742__MSTMA_MATCHER.val, "MSTMA_MATCHER", sizeof (cdat->dstr_742__MSTMA_MATCHER.val)-1); + + /*iniobj dsym_743__MSTMA_BINDS*/ +/*uniqueobj*/ if (!/*_.VALDATA___V822*/ meltfptr[821]) /*_.VALDATA___V822*/ meltfptr[821] = (void*)&cdat->dsym_743__MSTMA_BINDS; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_743__MSTMA_BINDS", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_743__MSTMA_BINDS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); + cdat->dsym_743__MSTMA_BINDS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_743__MSTMA_BINDS.obj_hash = 713095099; + cdat->dsym_743__MSTMA_BINDS.obj_len = 3; + + /*inistring dstr_744__MSTMA_BINDS*/ + /*_.VALSTR___V823*/ meltfptr[822] = (void*)&cdat->dstr_744__MSTMA_BINDS; + cdat->dstr_744__MSTMA_BINDS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_744__MSTMA_BINDS.val, "MSTMA_BINDS", sizeof (cdat->dstr_744__MSTMA_BINDS.val)-1); /*^iniobj*/ - /*iniobj dobj_745*/ -/*_.VALDATA___V817*/ meltfptr[816] = (void*)&cdat->dobj_745; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_745", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_745", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); - cdat->dobj_745.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); - cdat->dobj_745.obj_num = 1; - cdat->dobj_745.obj_hash = 914522824; - cdat->dobj_745.obj_len = 2; - - /*inimult dtup_746__PUT_THEN_MATCH*/ - /*_.VALTUP___V818*/ meltfptr[817] = (void*)&cdat->dtup_746__PUT_THEN_MATCH; - cdat->dtup_746__PUT_THEN_MATCH.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE)))); - cdat->dtup_746__PUT_THEN_MATCH.nbval = 2; + /*iniobj dobj_745__MSTMA_BINDS*/ +/*_.VALDATA___V813*/ meltfptr[812] = (void*)&cdat->dobj_745__MSTMA_BINDS; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_745__MSTMA_BINDS", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_745__MSTMA_BINDS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); + cdat->dobj_745__MSTMA_BINDS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); + cdat->dobj_745__MSTMA_BINDS.obj_num = 6; + cdat->dobj_745__MSTMA_BINDS.obj_hash = 1015654067; + cdat->dobj_745__MSTMA_BINDS.obj_len = 4; + + /*inistring dstr_746__MSTMA_BINDS*/ + /*_.VALSTR___V814*/ meltfptr[813] = (void*)&cdat->dstr_746__MSTMA_BINDS; + cdat->dstr_746__MSTMA_BINDS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_746__MSTMA_BINDS.val, "MSTMA_BINDS", sizeof (cdat->dstr_746__MSTMA_BINDS.val)-1); + + /*iniobj dsym_747__MSTMA_INS*/ +/*uniqueobj*/ if (!/*_.VALDATA___V824*/ meltfptr[823]) /*_.VALDATA___V824*/ meltfptr[823] = (void*)&cdat->dsym_747__MSTMA_INS; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_747__MSTMA_INS", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_747__MSTMA_INS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); + cdat->dsym_747__MSTMA_INS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_747__MSTMA_INS.obj_hash = 508289260; + cdat->dsym_747__MSTMA_INS.obj_len = 3; + + /*inistring dstr_748__MSTMA_INS*/ + /*_.VALSTR___V825*/ meltfptr[824] = (void*)&cdat->dstr_748__MSTMA_INS; + cdat->dstr_748__MSTMA_INS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_748__MSTMA_INS.val, "MSTMA_INS", sizeof (cdat->dstr_748__MSTMA_INS.val)-1); + /*^iniobj*/ - /*iniobj dobj_747__PUT_THEN_MATCH*/ -/*_.VALDATA___V819*/ meltfptr[818] = (void*)&cdat->dobj_747__PUT_THEN_MATCH; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_747__PUT_THEN_MATCH", melt_magic_discr (/*_.CLASS_SELECTOR__V8*/ meltfptr[7]) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_747__PUT_THEN_MATCH", ((meltobject_ptr_t) (/*_.CLASS_SELECTOR__V8*/ meltfptr[7]))->object_magic == OBMAG_OBJECT); - cdat->dobj_747__PUT_THEN_MATCH.obj_class = (meltobject_ptr_t)(/*_.CLASS_SELECTOR__V8*/ meltfptr[7]); - cdat->dobj_747__PUT_THEN_MATCH.obj_hash = 687154263; - cdat->dobj_747__PUT_THEN_MATCH.obj_len = 4; - - /*inistring dstr_748__PUT_THEN_MATCH*/ - /*_.VALSTR___V820*/ meltfptr[819] = (void*)&cdat->dstr_748__PUT_THEN_MATCH; - cdat->dstr_748__PUT_THEN_MATCH.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_748__PUT_THEN_MATCH.val, "PUT_THEN_MATCH", sizeof (cdat->dstr_748__PUT_THEN_MATCH.val)-1); - - /*inirout drout_749__START_STEP*/ - /*_.VALROUT___V821*/ meltfptr[820] = (void*)&cdat->drout_749__START_STEP; - cdat->drout_749__START_STEP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); - strncpy(cdat->drout_749__START_STEP.routdescr, "START_STEP @warmelt-normatch.melt:2646", MELT_ROUTDESCR_LEN - 1); - cdat->drout_749__START_STEP.nbval = 3; - MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_749__START_STEP, meltrout_56_warmelt_normatch_START_STEP); - - /*iniclos dclo_750__START_STEP*/ - /*_.VALCLO___V822*/ meltfptr[821] = (void*)&cdat->dclo_750__START_STEP; - cdat->dclo_750__START_STEP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); - cdat->dclo_750__START_STEP.nbval = 0; - - /*inirout drout_751__PUTTHEN_MATCHTHEN*/ - /*_.VALROUT___V823*/ meltfptr[822] = (void*)&cdat->drout_751__PUTTHEN_MATCHTHEN; - cdat->drout_751__PUTTHEN_MATCHTHEN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); - strncpy(cdat->drout_751__PUTTHEN_MATCHTHEN.routdescr, "PUTTHEN_MATCHTHEN @warmelt-normatch.melt:2663", MELT_ROUTDESCR_LEN - 1); - cdat->drout_751__PUTTHEN_MATCHTHEN.nbval = 5; - MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_751__PUTTHEN_MATCHTHEN, meltrout_57_warmelt_normatch_PUTTHEN_MATCHTHEN); - - /*iniclos dclo_752__PUTTHEN_MATCHTHEN*/ - /*_.VALCLO___V824*/ meltfptr[823] = (void*)&cdat->dclo_752__PUTTHEN_MATCHTHEN; - cdat->dclo_752__PUTTHEN_MATCHTHEN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); - cdat->dclo_752__PUTTHEN_MATCHTHEN.nbval = 0; - - /*inirout drout_753__PUTTHEN_MATCHGROUP*/ - /*_.VALROUT___V825*/ meltfptr[824] = (void*)&cdat->drout_753__PUTTHEN_MATCHGROUP; - cdat->drout_753__PUTTHEN_MATCHGROUP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); - strncpy(cdat->drout_753__PUTTHEN_MATCHGROUP.routdescr, "PUTTHEN_MATCHGROUP @warmelt-normatch.melt:2681", MELT_ROUTDESCR_LEN - 1); - cdat->drout_753__PUTTHEN_MATCHGROUP.nbval = 5; - MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_753__PUTTHEN_MATCHGROUP, meltrout_58_warmelt_normatch_PUTTHEN_MATCHGROUP); - - /*iniclos dclo_754__PUTTHEN_MATCHGROUP*/ - /*_.VALCLO___V826*/ meltfptr[825] = (void*)&cdat->dclo_754__PUTTHEN_MATCHGROUP; - cdat->dclo_754__PUTTHEN_MATCHGROUP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); - cdat->dclo_754__PUTTHEN_MATCHGROUP.nbval = 0; - - /*iniobj dsym_755__PUT_ELSE_MATCH*/ -/*uniqueobj*/ if (!/*_.VALDATA___V827*/ meltfptr[826]) /*_.VALDATA___V827*/ meltfptr[826] = (void*)&cdat->dsym_755__PUT_ELSE_MATCH; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_755__PUT_ELSE_MATCH", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_755__PUT_ELSE_MATCH", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); - cdat->dsym_755__PUT_ELSE_MATCH.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_755__PUT_ELSE_MATCH.obj_hash = 868738368; - cdat->dsym_755__PUT_ELSE_MATCH.obj_len = 3; - - /*inistring dstr_756__PUT_ELSE_MATCH*/ - /*_.VALSTR___V828*/ meltfptr[827] = (void*)&cdat->dstr_756__PUT_ELSE_MATCH; - cdat->dstr_756__PUT_ELSE_MATCH.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_756__PUT_ELSE_MATCH.val, "PUT_ELSE_MATCH", sizeof (cdat->dstr_756__PUT_ELSE_MATCH.val)-1); - - MELT_LOCATION("warmelt-normatch.melt:2709:/ iniobj"); - /*iniobj dobj_757*/ -/*_.VALDATA___V829*/ meltfptr[828] = (void*)&cdat->dobj_757; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_757", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_757", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); - cdat->dobj_757.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); - cdat->dobj_757.obj_num = 0; - cdat->dobj_757.obj_hash = 711938128; - cdat->dobj_757.obj_len = 2; - - /*iniobj dsym_758__ELSESTEP*/ -/*uniqueobj*/ if (!/*_.VALDATA___V830*/ meltfptr[829]) /*_.VALDATA___V830*/ meltfptr[829] = (void*)&cdat->dsym_758__ELSESTEP; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_758__ELSESTEP", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_758__ELSESTEP", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); - cdat->dsym_758__ELSESTEP.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_758__ELSESTEP.obj_hash = 680058237; - cdat->dsym_758__ELSESTEP.obj_len = 3; - - /*inistring dstr_759__ELSESTEP*/ - /*_.VALSTR___V831*/ meltfptr[830] = (void*)&cdat->dstr_759__ELSESTEP; - cdat->dstr_759__ELSESTEP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_759__ELSESTEP.val, "ELSESTEP", sizeof (cdat->dstr_759__ELSESTEP.val)-1); + /*iniobj dobj_749__MSTMA_INS*/ +/*_.VALDATA___V815*/ meltfptr[814] = (void*)&cdat->dobj_749__MSTMA_INS; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_749__MSTMA_INS", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_749__MSTMA_INS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); + cdat->dobj_749__MSTMA_INS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); + cdat->dobj_749__MSTMA_INS.obj_num = 7; + cdat->dobj_749__MSTMA_INS.obj_hash = 349196073; + cdat->dobj_749__MSTMA_INS.obj_len = 4; + + /*inistring dstr_750__MSTMA_INS*/ + /*_.VALSTR___V816*/ meltfptr[815] = (void*)&cdat->dstr_750__MSTMA_INS; + cdat->dstr_750__MSTMA_INS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_750__MSTMA_INS.val, "MSTMA_INS", sizeof (cdat->dstr_750__MSTMA_INS.val)-1); + + /*iniobj dsym_751__MSTMA_OUTS*/ +/*uniqueobj*/ if (!/*_.VALDATA___V826*/ meltfptr[825]) /*_.VALDATA___V826*/ meltfptr[825] = (void*)&cdat->dsym_751__MSTMA_OUTS; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_751__MSTMA_OUTS", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_751__MSTMA_OUTS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); + cdat->dsym_751__MSTMA_OUTS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_751__MSTMA_OUTS.obj_hash = 970930840; + cdat->dsym_751__MSTMA_OUTS.obj_len = 3; + + /*inistring dstr_752__MSTMA_OUTS*/ + /*_.VALSTR___V827*/ meltfptr[826] = (void*)&cdat->dstr_752__MSTMA_OUTS; + cdat->dstr_752__MSTMA_OUTS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_752__MSTMA_OUTS.val, "MSTMA_OUTS", sizeof (cdat->dstr_752__MSTMA_OUTS.val)-1); /*^iniobj*/ - /*iniobj dobj_760*/ -/*_.VALDATA___V832*/ meltfptr[831] = (void*)&cdat->dobj_760; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_760", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_760", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); - cdat->dobj_760.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); - cdat->dobj_760.obj_num = 1; - cdat->dobj_760.obj_hash = 558444050; - cdat->dobj_760.obj_len = 2; - - /*inimult dtup_761__PUT_ELSE_MATCH*/ - /*_.VALTUP___V833*/ meltfptr[832] = (void*)&cdat->dtup_761__PUT_ELSE_MATCH; - cdat->dtup_761__PUT_ELSE_MATCH.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE)))); - cdat->dtup_761__PUT_ELSE_MATCH.nbval = 2; + /*iniobj dobj_753__MSTMA_OUTS*/ +/*_.VALDATA___V817*/ meltfptr[816] = (void*)&cdat->dobj_753__MSTMA_OUTS; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_753__MSTMA_OUTS", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_753__MSTMA_OUTS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); + cdat->dobj_753__MSTMA_OUTS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); + cdat->dobj_753__MSTMA_OUTS.obj_num = 8; + cdat->dobj_753__MSTMA_OUTS.obj_hash = 95051750; + cdat->dobj_753__MSTMA_OUTS.obj_len = 4; + + /*inistring dstr_754__MSTMA_OUTS*/ + /*_.VALSTR___V818*/ meltfptr[817] = (void*)&cdat->dstr_754__MSTMA_OUTS; + cdat->dstr_754__MSTMA_OUTS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_754__MSTMA_OUTS.val, "MSTMA_OUTS", sizeof (cdat->dstr_754__MSTMA_OUTS.val)-1); + + /*inirout drout_755__MAKE_MATCH_FLAG*/ + /*_.VALROUT___V828*/ meltfptr[827] = (void*)&cdat->drout_755__MAKE_MATCH_FLAG; + cdat->drout_755__MAKE_MATCH_FLAG.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); + strncpy(cdat->drout_755__MAKE_MATCH_FLAG.routdescr, "MAKE_MATCH_FLAG @warmelt-normatch.melt:2586", MELT_ROUTDESCR_LEN - 1); + cdat->drout_755__MAKE_MATCH_FLAG.nbval = 5; + MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_755__MAKE_MATCH_FLAG, meltrout_47_warmelt_normatch_MAKE_MATCH_FLAG); + + /*iniclos dclo_756__MAKE_MATCH_FLAG*/ + /*_.VALCLO___V829*/ meltfptr[828] = (void*)&cdat->dclo_756__MAKE_MATCH_FLAG; + cdat->dclo_756__MAKE_MATCH_FLAG.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); + cdat->dclo_756__MAKE_MATCH_FLAG.nbval = 0; + + /*iniobj dsym_757__DISCR_CONSTANT_INTEGER*/ +/*uniqueobj*/ if (!/*_.VALDATA___V830*/ meltfptr[829]) /*_.VALDATA___V830*/ meltfptr[829] = (void*)&cdat->dsym_757__DISCR_CONSTANT_INTEGER; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_757__DISCR_CONSTANT_INTEGER", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_757__DISCR_CONSTANT_INTEGER", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); + cdat->dsym_757__DISCR_CONSTANT_INTEGER.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_757__DISCR_CONSTANT_INTEGER.obj_hash = 1007078494; + cdat->dsym_757__DISCR_CONSTANT_INTEGER.obj_len = 3; + + /*inistring dstr_758__DISCR_CONSTANT_I*/ + /*_.VALSTR___V831*/ meltfptr[830] = (void*)&cdat->dstr_758__DISCR_CONSTANT_I; + cdat->dstr_758__DISCR_CONSTANT_I.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_758__DISCR_CONSTANT_I.val, "DISCR_CONSTANT_INTEGER", sizeof (cdat->dstr_758__DISCR_CONSTANT_I.val)-1); + + /*iniobj dsym_759__SCAN_SUBPATTERNS*/ +/*uniqueobj*/ if (!/*_.VALDATA___V832*/ meltfptr[831]) /*_.VALDATA___V832*/ meltfptr[831] = (void*)&cdat->dsym_759__SCAN_SUBPATTERNS; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_759__SCAN_SUBPATTERNS", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_759__SCAN_SUBPATTERNS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); + cdat->dsym_759__SCAN_SUBPATTERNS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_759__SCAN_SUBPATTERNS.obj_hash = 648386917; + cdat->dsym_759__SCAN_SUBPATTERNS.obj_len = 3; + + /*inistring dstr_760__SCAN_SUBPATTERNS*/ + /*_.VALSTR___V833*/ meltfptr[832] = (void*)&cdat->dstr_760__SCAN_SUBPATTERNS; + cdat->dstr_760__SCAN_SUBPATTERNS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_760__SCAN_SUBPATTERNS.val, "SCAN_SUBPATTERNS", sizeof (cdat->dstr_760__SCAN_SUBPATTERNS.val)-1); + + /*iniobj dsym_761__RECV*/ +/*uniqueobj*/ if (!/*_.VALDATA___V834*/ meltfptr[833]) /*_.VALDATA___V834*/ meltfptr[833] = (void*)&cdat->dsym_761__RECV; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_761__RECV", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_761__RECV", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); + cdat->dsym_761__RECV.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_761__RECV.obj_hash = 10842790; + cdat->dsym_761__RECV.obj_len = 3; + + /*inistring dstr_762__RECV*/ + /*_.VALSTR___V835*/ meltfptr[834] = (void*)&cdat->dstr_762__RECV; + cdat->dstr_762__RECV.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_762__RECV.val, "RECV", sizeof (cdat->dstr_762__RECV.val)-1); + + MELT_LOCATION("warmelt-normatch.melt:2616:/ iniobj"); + /*iniobj dobj_763*/ +/*_.VALDATA___V836*/ meltfptr[835] = (void*)&cdat->dobj_763; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_763", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_763", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); + cdat->dobj_763.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); + cdat->dobj_763.obj_num = 0; + cdat->dobj_763.obj_hash = 456924277; + cdat->dobj_763.obj_len = 2; + + /*iniobj dsym_764__FUN*/ +/*uniqueobj*/ if (!/*_.VALDATA___V837*/ meltfptr[836]) /*_.VALDATA___V837*/ meltfptr[836] = (void*)&cdat->dsym_764__FUN; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_764__FUN", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_764__FUN", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); + cdat->dsym_764__FUN.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_764__FUN.obj_hash = 46511649; + cdat->dsym_764__FUN.obj_len = 3; + + /*inistring dstr_765__FUN*/ + /*_.VALSTR___V838*/ meltfptr[837] = (void*)&cdat->dstr_765__FUN; + cdat->dstr_765__FUN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_765__FUN.val, "FUN", sizeof (cdat->dstr_765__FUN.val)-1); + /*^iniobj*/ - /*iniobj dobj_762__PUT_ELSE_MATCH*/ -/*_.VALDATA___V834*/ meltfptr[833] = (void*)&cdat->dobj_762__PUT_ELSE_MATCH; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_762__PUT_ELSE_MATCH", melt_magic_discr (/*_.CLASS_SELECTOR__V8*/ meltfptr[7]) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_762__PUT_ELSE_MATCH", ((meltobject_ptr_t) (/*_.CLASS_SELECTOR__V8*/ meltfptr[7]))->object_magic == OBMAG_OBJECT); - cdat->dobj_762__PUT_ELSE_MATCH.obj_class = (meltobject_ptr_t)(/*_.CLASS_SELECTOR__V8*/ meltfptr[7]); - cdat->dobj_762__PUT_ELSE_MATCH.obj_hash = 975077248; - cdat->dobj_762__PUT_ELSE_MATCH.obj_len = 4; - - /*inistring dstr_763__PUT_ELSE_MATCH*/ - /*_.VALSTR___V835*/ meltfptr[834] = (void*)&cdat->dstr_763__PUT_ELSE_MATCH; - cdat->dstr_763__PUT_ELSE_MATCH.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_763__PUT_ELSE_MATCH.val, "PUT_ELSE_MATCH", sizeof (cdat->dstr_763__PUT_ELSE_MATCH.val)-1); - - /*inirout drout_764__PUTELSE_MATCHTEST*/ - /*_.VALROUT___V836*/ meltfptr[835] = (void*)&cdat->drout_764__PUTELSE_MATCHTEST; - cdat->drout_764__PUTELSE_MATCHTEST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); - strncpy(cdat->drout_764__PUTELSE_MATCHTEST.routdescr, "PUTELSE_MATCHTEST @warmelt-normatch.melt:2714", MELT_ROUTDESCR_LEN - 1); - cdat->drout_764__PUTELSE_MATCHTEST.nbval = 4; - MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_764__PUTELSE_MATCHTEST, meltrout_59_warmelt_normatch_PUTELSE_MATCHTEST); - - /*iniclos dclo_765__PUTELSE_MATCHTEST*/ - /*_.VALCLO___V837*/ meltfptr[836] = (void*)&cdat->dclo_765__PUTELSE_MATCHTEST; - cdat->dclo_765__PUTELSE_MATCHTEST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); - cdat->dclo_765__PUTELSE_MATCHTEST.nbval = 0; - - /*inirout drout_766__PUTELSE_MATCHGROUP*/ - /*_.VALROUT___V838*/ meltfptr[837] = (void*)&cdat->drout_766__PUTELSE_MATCHGROUP; - cdat->drout_766__PUTELSE_MATCHGROUP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); - strncpy(cdat->drout_766__PUTELSE_MATCHGROUP.routdescr, "PUTELSE_MATCHGROUP @warmelt-normatch.melt:2732", MELT_ROUTDESCR_LEN - 1); - cdat->drout_766__PUTELSE_MATCHGROUP.nbval = 5; - MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_766__PUTELSE_MATCHGROUP, meltrout_60_warmelt_normatch_PUTELSE_MATCHGROUP); - - /*iniclos dclo_767__PUTELSE_MATCHGROUP*/ - /*_.VALCLO___V839*/ meltfptr[838] = (void*)&cdat->dclo_767__PUTELSE_MATCHGROUP; - cdat->dclo_767__PUTELSE_MATCHGROUP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); - cdat->dclo_767__PUTELSE_MATCHGROUP.nbval = 0; - - /*inirout drout_768__SCANSTEP_TESTINS*/ - /*_.VALROUT___V840*/ meltfptr[839] = (void*)&cdat->drout_768__SCANSTEP_TESTINS; - cdat->drout_768__SCANSTEP_TESTINS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); - strncpy(cdat->drout_768__SCANSTEP_TESTINS.routdescr, "SCANSTEP_TESTINS @warmelt-normatch.melt:2761", MELT_ROUTDESCR_LEN - 1); - cdat->drout_768__SCANSTEP_TESTINS.nbval = 1; - MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_768__SCANSTEP_TESTINS, meltrout_61_warmelt_normatch_SCANSTEP_TESTINS); - - /*iniclos dclo_769__SCANSTEP_TESTINS*/ - /*_.VALCLO___V841*/ meltfptr[840] = (void*)&cdat->dclo_769__SCANSTEP_TESTINS; - cdat->dclo_769__SCANSTEP_TESTINS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); - cdat->dclo_769__SCANSTEP_TESTINS.nbval = 0; - - /*inirout drout_770__SCANSTEP_TESTMATCHER*/ - /*_.VALROUT___V842*/ meltfptr[841] = (void*)&cdat->drout_770__SCANSTEP_TESTMATCHER; - cdat->drout_770__SCANSTEP_TESTMATCHER.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); - strncpy(cdat->drout_770__SCANSTEP_TESTMATCHER.routdescr, "SCANSTEP_TESTMATCHER @warmelt-normatch.melt:2772", MELT_ROUTDESCR_LEN - 1); - cdat->drout_770__SCANSTEP_TESTMATCHER.nbval = 1; - MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_770__SCANSTEP_TESTMATCHER, meltrout_62_warmelt_normatch_SCANSTEP_TESTMATCHER); - - /*iniclos dclo_771__SCANSTEP_TESTMATCHER*/ - /*_.VALCLO___V843*/ meltfptr[842] = (void*)&cdat->dclo_771__SCANSTEP_TESTMATCHER; - cdat->dclo_771__SCANSTEP_TESTMATCHER.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); - cdat->dclo_771__SCANSTEP_TESTMATCHER.nbval = 0; - - /*iniobj dsym_772__TRANSLATE_PATTERN*/ -/*uniqueobj*/ if (!/*_.VALDATA___V844*/ meltfptr[843]) /*_.VALDATA___V844*/ meltfptr[843] = (void*)&cdat->dsym_772__TRANSLATE_PATTERN; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_772__TRANSLATE_PATTERN", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_772__TRANSLATE_PATTERN", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); - cdat->dsym_772__TRANSLATE_PATTERN.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_772__TRANSLATE_PATTERN.obj_hash = 698900025; - cdat->dsym_772__TRANSLATE_PATTERN.obj_len = 3; - - /*inistring dstr_773__TRANSLATE_PATTER*/ - /*_.VALSTR___V845*/ meltfptr[844] = (void*)&cdat->dstr_773__TRANSLATE_PATTER; - cdat->dstr_773__TRANSLATE_PATTER.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_773__TRANSLATE_PATTER.val, "TRANSLATE_PATTERN", sizeof (cdat->dstr_773__TRANSLATE_PATTER.val)-1); - - MELT_LOCATION("warmelt-normatch.melt:2785:/ iniobj"); - /*iniobj dobj_774*/ -/*_.VALDATA___V846*/ meltfptr[845] = (void*)&cdat->dobj_774; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_774", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_774", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); - cdat->dobj_774.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); - cdat->dobj_774.obj_num = 0; - cdat->dobj_774.obj_hash = 595982006; - cdat->dobj_774.obj_len = 2; - - /*iniobj dsym_775__MDATA*/ -/*uniqueobj*/ if (!/*_.VALDATA___V847*/ meltfptr[846]) /*_.VALDATA___V847*/ meltfptr[846] = (void*)&cdat->dsym_775__MDATA; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_775__MDATA", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_775__MDATA", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); - cdat->dsym_775__MDATA.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_775__MDATA.obj_hash = 823479688; - cdat->dsym_775__MDATA.obj_len = 3; - - /*inistring dstr_776__MDATA*/ - /*_.VALSTR___V848*/ meltfptr[847] = (void*)&cdat->dstr_776__MDATA; - cdat->dstr_776__MDATA.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_776__MDATA.val, "MDATA", sizeof (cdat->dstr_776__MDATA.val)-1); + /*iniobj dobj_766*/ +/*_.VALDATA___V839*/ meltfptr[838] = (void*)&cdat->dobj_766; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_766", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_766", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); + cdat->dobj_766.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); + cdat->dobj_766.obj_num = 1; + cdat->dobj_766.obj_hash = 939291286; + cdat->dobj_766.obj_len = 2; + + /*iniobj dsym_767__CTX*/ +/*uniqueobj*/ if (!/*_.VALDATA___V840*/ meltfptr[839]) /*_.VALDATA___V840*/ meltfptr[839] = (void*)&cdat->dsym_767__CTX; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_767__CTX", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_767__CTX", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); + cdat->dsym_767__CTX.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_767__CTX.obj_hash = 80453264; + cdat->dsym_767__CTX.obj_len = 3; + + /*inistring dstr_768__CTX*/ + /*_.VALSTR___V841*/ meltfptr[840] = (void*)&cdat->dstr_768__CTX; + cdat->dstr_768__CTX.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_768__CTX.val, "CTX", sizeof (cdat->dstr_768__CTX.val)-1); /*^iniobj*/ + /*iniobj dobj_769*/ +/*_.VALDATA___V842*/ meltfptr[841] = (void*)&cdat->dobj_769; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_769", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_769", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); + cdat->dobj_769.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); + cdat->dobj_769.obj_num = 2; + cdat->dobj_769.obj_hash = 81655198; + cdat->dobj_769.obj_len = 2; + + /*inimult dtup_770__SCAN_SUBPATTERNS*/ + /*_.VALTUP___V843*/ meltfptr[842] = (void*)&cdat->dtup_770__SCAN_SUBPATTERNS; + cdat->dtup_770__SCAN_SUBPATTERNS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE)))); + cdat->dtup_770__SCAN_SUBPATTERNS.nbval = 3; + /*^iniobj*/ + /*iniobj dobj_771__SCAN_SUBPATTERNS*/ +/*_.VALDATA___V844*/ meltfptr[843] = (void*)&cdat->dobj_771__SCAN_SUBPATTERNS; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_771__SCAN_SUBPATTERNS", melt_magic_discr (/*_.CLASS_SELECTOR__V8*/ meltfptr[7]) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_771__SCAN_SUBPATTERNS", ((meltobject_ptr_t) (/*_.CLASS_SELECTOR__V8*/ meltfptr[7]))->object_magic == OBMAG_OBJECT); + cdat->dobj_771__SCAN_SUBPATTERNS.obj_class = (meltobject_ptr_t)(/*_.CLASS_SELECTOR__V8*/ meltfptr[7]); + cdat->dobj_771__SCAN_SUBPATTERNS.obj_hash = 350405017; + cdat->dobj_771__SCAN_SUBPATTERNS.obj_len = 4; + + /*inistring dstr_772__SCAN_SUBPATTERNS*/ + /*_.VALSTR___V845*/ meltfptr[844] = (void*)&cdat->dstr_772__SCAN_SUBPATTERNS; + cdat->dstr_772__SCAN_SUBPATTERNS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_772__SCAN_SUBPATTERNS.val, "SCAN_SUBPATTERNS", sizeof (cdat->dstr_772__SCAN_SUBPATTERNS.val)-1); + + /*iniobj dsym_773__SCAN_STEP_DATA*/ +/*uniqueobj*/ if (!/*_.VALDATA___V846*/ meltfptr[845]) /*_.VALDATA___V846*/ meltfptr[845] = (void*)&cdat->dsym_773__SCAN_STEP_DATA; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_773__SCAN_STEP_DATA", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_773__SCAN_STEP_DATA", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); + cdat->dsym_773__SCAN_STEP_DATA.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_773__SCAN_STEP_DATA.obj_hash = 131373921; + cdat->dsym_773__SCAN_STEP_DATA.obj_len = 3; + + /*inistring dstr_774__SCAN_STEP_DATA*/ + /*_.VALSTR___V847*/ meltfptr[846] = (void*)&cdat->dstr_774__SCAN_STEP_DATA; + cdat->dstr_774__SCAN_STEP_DATA.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_774__SCAN_STEP_DATA.val, "SCAN_STEP_DATA", sizeof (cdat->dstr_774__SCAN_STEP_DATA.val)-1); + + /*iniobj dsym_775__STEP*/ +/*uniqueobj*/ if (!/*_.VALDATA___V848*/ meltfptr[847]) /*_.VALDATA___V848*/ meltfptr[847] = (void*)&cdat->dsym_775__STEP; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_775__STEP", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_775__STEP", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); + cdat->dsym_775__STEP.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_775__STEP.obj_hash = 449825866; + cdat->dsym_775__STEP.obj_len = 3; + + /*inistring dstr_776__STEP*/ + /*_.VALSTR___V849*/ meltfptr[848] = (void*)&cdat->dstr_776__STEP; + cdat->dstr_776__STEP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_776__STEP.val, "STEP", sizeof (cdat->dstr_776__STEP.val)-1); + + MELT_LOCATION("warmelt-normatch.melt:2622:/ iniobj"); /*iniobj dobj_777*/ -/*_.VALDATA___V849*/ meltfptr[848] = (void*)&cdat->dobj_777; +/*_.VALDATA___V850*/ meltfptr[849] = (void*)&cdat->dobj_777; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_777", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_777", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_777.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); - cdat->dobj_777.obj_num = 1; - cdat->dobj_777.obj_hash = 395104580; + cdat->dobj_777.obj_num = 0; + cdat->dobj_777.obj_hash = 610195881; cdat->dobj_777.obj_len = 2; - /*iniobj dsym_778__MCASE*/ -/*uniqueobj*/ if (!/*_.VALDATA___V850*/ meltfptr[849]) /*_.VALDATA___V850*/ meltfptr[849] = (void*)&cdat->dsym_778__MCASE; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_778__MCASE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_778__MCASE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); - cdat->dsym_778__MCASE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_778__MCASE.obj_hash = 178696645; - cdat->dsym_778__MCASE.obj_len = 3; + /*^iniobj*/ + /*iniobj dobj_778*/ +/*_.VALDATA___V851*/ meltfptr[850] = (void*)&cdat->dobj_778; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_778", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_778", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); + cdat->dobj_778.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); + cdat->dobj_778.obj_num = 1; + cdat->dobj_778.obj_hash = 614745123; + cdat->dobj_778.obj_len = 2; - /*inistring dstr_779__MCASE*/ - /*_.VALSTR___V851*/ meltfptr[850] = (void*)&cdat->dstr_779__MCASE; - cdat->dstr_779__MCASE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_779__MCASE.val, "MCASE", sizeof (cdat->dstr_779__MCASE.val)-1); + /*^iniobj*/ + /*iniobj dobj_779*/ +/*_.VALDATA___V852*/ meltfptr[851] = (void*)&cdat->dobj_779; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_779", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_779", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); + cdat->dobj_779.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); + cdat->dobj_779.obj_num = 2; + cdat->dobj_779.obj_hash = 605184393; + cdat->dobj_779.obj_len = 2; + + /*inimult dtup_780__SCAN_STEP_DATA*/ + /*_.VALTUP___V853*/ meltfptr[852] = (void*)&cdat->dtup_780__SCAN_STEP_DATA; + cdat->dtup_780__SCAN_STEP_DATA.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE)))); + cdat->dtup_780__SCAN_STEP_DATA.nbval = 3; + /*^iniobj*/ + /*iniobj dobj_781__SCAN_STEP_DATA*/ +/*_.VALDATA___V854*/ meltfptr[853] = (void*)&cdat->dobj_781__SCAN_STEP_DATA; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_781__SCAN_STEP_DATA", melt_magic_discr (/*_.CLASS_SELECTOR__V8*/ meltfptr[7]) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_781__SCAN_STEP_DATA", ((meltobject_ptr_t) (/*_.CLASS_SELECTOR__V8*/ meltfptr[7]))->object_magic == OBMAG_OBJECT); + cdat->dobj_781__SCAN_STEP_DATA.obj_class = (meltobject_ptr_t)(/*_.CLASS_SELECTOR__V8*/ meltfptr[7]); + cdat->dobj_781__SCAN_STEP_DATA.obj_hash = 588470305; + cdat->dobj_781__SCAN_STEP_DATA.obj_len = 4; + + /*inistring dstr_782__SCAN_STEP_DATA*/ + /*_.VALSTR___V855*/ meltfptr[854] = (void*)&cdat->dstr_782__SCAN_STEP_DATA; + cdat->dstr_782__SCAN_STEP_DATA.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_782__SCAN_STEP_DATA.val, "SCAN_STEP_DATA", sizeof (cdat->dstr_782__SCAN_STEP_DATA.val)-1); + + /*inirout drout_783__SCANSUBPAT_ANYRECV*/ + /*_.VALROUT___V856*/ meltfptr[855] = (void*)&cdat->drout_783__SCANSUBPAT_ANYRECV; + cdat->drout_783__SCANSUBPAT_ANYRECV.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); + strncpy(cdat->drout_783__SCANSUBPAT_ANYRECV.routdescr, "SCANSUBPAT_ANYRECV @warmelt-normatch.melt:2627", MELT_ROUTDESCR_LEN - 1); + cdat->drout_783__SCANSUBPAT_ANYRECV.nbval = 1; + MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_783__SCANSUBPAT_ANYRECV, meltrout_48_warmelt_normatch_SCANSUBPAT_ANYRECV); + + /*iniclos dclo_784__SCANSUBPAT_ANYRECV*/ + /*_.VALCLO___V857*/ meltfptr[856] = (void*)&cdat->dclo_784__SCANSUBPAT_ANYRECV; + cdat->dclo_784__SCANSUBPAT_ANYRECV.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); + cdat->dclo_784__SCANSUBPAT_ANYRECV.nbval = 0; + + /*inirout drout_785__SCANSUBPAT_NOOP*/ + /*_.VALROUT___V858*/ meltfptr[857] = (void*)&cdat->drout_785__SCANSUBPAT_NOOP; + cdat->drout_785__SCANSUBPAT_NOOP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); + strncpy(cdat->drout_785__SCANSUBPAT_NOOP.routdescr, "SCANSUBPAT_NOOP @warmelt-normatch.melt:2635", MELT_ROUTDESCR_LEN - 1); + cdat->drout_785__SCANSUBPAT_NOOP.nbval = 0; + MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_785__SCANSUBPAT_NOOP, meltrout_49_warmelt_normatch_SCANSUBPAT_NOOP); + + /*iniclos dclo_786__SCANSUBPAT_NOOP*/ + /*_.VALCLO___V859*/ meltfptr[858] = (void*)&cdat->dclo_786__SCANSUBPAT_NOOP; + cdat->dclo_786__SCANSUBPAT_NOOP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); + cdat->dclo_786__SCANSUBPAT_NOOP.nbval = 0; + + /*inirout drout_787__SCANSUBPAT_OR*/ + /*_.VALROUT___V860*/ meltfptr[859] = (void*)&cdat->drout_787__SCANSUBPAT_OR; + cdat->drout_787__SCANSUBPAT_OR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); + strncpy(cdat->drout_787__SCANSUBPAT_OR.routdescr, "SCANSUBPAT_OR @warmelt-normatch.melt:2641", MELT_ROUTDESCR_LEN - 1); + cdat->drout_787__SCANSUBPAT_OR.nbval = 0; + MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_787__SCANSUBPAT_OR, meltrout_50_warmelt_normatch_SCANSUBPAT_OR); + + /*iniclos dclo_788__SCANSUBPAT_OR*/ + /*_.VALCLO___V861*/ meltfptr[860] = (void*)&cdat->dclo_788__SCANSUBPAT_OR; + cdat->dclo_788__SCANSUBPAT_OR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); + cdat->dclo_788__SCANSUBPAT_OR.nbval = 0; + + /*inirout drout_789__SCANSUBPAT_AND*/ + /*_.VALROUT___V862*/ meltfptr[861] = (void*)&cdat->drout_789__SCANSUBPAT_AND; + cdat->drout_789__SCANSUBPAT_AND.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); + strncpy(cdat->drout_789__SCANSUBPAT_AND.routdescr, "SCANSUBPAT_AND @warmelt-normatch.melt:2649", MELT_ROUTDESCR_LEN - 1); + cdat->drout_789__SCANSUBPAT_AND.nbval = 0; + MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_789__SCANSUBPAT_AND, meltrout_51_warmelt_normatch_SCANSUBPAT_AND); + + /*iniclos dclo_790__SCANSUBPAT_AND*/ + /*_.VALCLO___V863*/ meltfptr[862] = (void*)&cdat->dclo_790__SCANSUBPAT_AND; + cdat->dclo_790__SCANSUBPAT_AND.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); + cdat->dclo_790__SCANSUBPAT_AND.nbval = 0; + + /*inirout drout_791__SCANSUBPAT_CONSTRUCT*/ + /*_.VALROUT___V864*/ meltfptr[863] = (void*)&cdat->drout_791__SCANSUBPAT_CONSTRUCT; + cdat->drout_791__SCANSUBPAT_CONSTRUCT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); + strncpy(cdat->drout_791__SCANSUBPAT_CONSTRUCT.routdescr, "SCANSUBPAT_CONSTRUCT @warmelt-normatch.melt:2658", MELT_ROUTDESCR_LEN - 1); + cdat->drout_791__SCANSUBPAT_CONSTRUCT.nbval = 0; + MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_791__SCANSUBPAT_CONSTRUCT, meltrout_52_warmelt_normatch_SCANSUBPAT_CONSTRUCT); + + /*iniclos dclo_792__SCANSUBPAT_CONSTRUCT*/ + /*_.VALCLO___V865*/ meltfptr[864] = (void*)&cdat->dclo_792__SCANSUBPAT_CONSTRUCT; + cdat->dclo_792__SCANSUBPAT_CONSTRUCT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); + cdat->dclo_792__SCANSUBPAT_CONSTRUCT.nbval = 0; + + /*iniobj dsym_793__CLASS_SOURCE_PATTERN_CONSTRUCT*/ +/*uniqueobj*/ if (!/*_.VALDATA___V866*/ meltfptr[865]) /*_.VALDATA___V866*/ meltfptr[865] = (void*)&cdat->dsym_793__CLASS_SOURCE_PATTERN_CONSTRUCT; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_793__CLASS_SOURCE_PATTERN_CONSTRUCT", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_793__CLASS_SOURCE_PATTERN_CONSTRUCT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); + cdat->dsym_793__CLASS_SOURCE_PATTERN_CONSTRUCT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_793__CLASS_SOURCE_PATTERN_CONSTRUCT.obj_hash = 432286397; + cdat->dsym_793__CLASS_SOURCE_PATTERN_CONSTRUCT.obj_len = 3; + + /*inistring dstr_794__CLASS_SOURCE_PAT*/ + /*_.VALSTR___V867*/ meltfptr[866] = (void*)&cdat->dstr_794__CLASS_SOURCE_PAT; + cdat->dstr_794__CLASS_SOURCE_PAT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_794__CLASS_SOURCE_PAT.val, "CLASS_SOURCE_PATTERN_CONSTRUCT", sizeof (cdat->dstr_794__CLASS_SOURCE_PAT.val)-1); + + /*inirout drout_795__SCANSUBPAT_OBJECT*/ + /*_.VALROUT___V868*/ meltfptr[867] = (void*)&cdat->drout_795__SCANSUBPAT_OBJECT; + cdat->drout_795__SCANSUBPAT_OBJECT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); + strncpy(cdat->drout_795__SCANSUBPAT_OBJECT.routdescr, "SCANSUBPAT_OBJECT @warmelt-normatch.melt:2666", MELT_ROUTDESCR_LEN - 1); + cdat->drout_795__SCANSUBPAT_OBJECT.nbval = 1; + MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_795__SCANSUBPAT_OBJECT, meltrout_53_warmelt_normatch_SCANSUBPAT_OBJECT); + + /*iniclos dclo_796__SCANSUBPAT_OBJECT*/ + /*_.VALCLO___V869*/ meltfptr[868] = (void*)&cdat->dclo_796__SCANSUBPAT_OBJECT; + cdat->dclo_796__SCANSUBPAT_OBJECT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); + cdat->dclo_796__SCANSUBPAT_OBJECT.nbval = 0; + + /*inirout drout_797__SCANSUBPAT_COMPOSITE*/ + /*_.VALROUT___V870*/ meltfptr[869] = (void*)&cdat->drout_797__SCANSUBPAT_COMPOSITE; + cdat->drout_797__SCANSUBPAT_COMPOSITE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); + strncpy(cdat->drout_797__SCANSUBPAT_COMPOSITE.routdescr, "SCANSUBPAT_COMPOSITE @warmelt-normatch.melt:2675", MELT_ROUTDESCR_LEN - 1); + cdat->drout_797__SCANSUBPAT_COMPOSITE.nbval = 0; + MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_797__SCANSUBPAT_COMPOSITE, meltrout_54_warmelt_normatch_SCANSUBPAT_COMPOSITE); + + /*iniclos dclo_798__SCANSUBPAT_COMPOSITE*/ + /*_.VALCLO___V871*/ meltfptr[870] = (void*)&cdat->dclo_798__SCANSUBPAT_COMPOSITE; + cdat->dclo_798__SCANSUBPAT_COMPOSITE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); + cdat->dclo_798__SCANSUBPAT_COMPOSITE.nbval = 0; + + /*inirout drout_799__FILL_MATCHCASE*/ + /*_.VALROUT___V872*/ meltfptr[871] = (void*)&cdat->drout_799__FILL_MATCHCASE; + cdat->drout_799__FILL_MATCHCASE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); + strncpy(cdat->drout_799__FILL_MATCHCASE.routdescr, "FILL_MATCHCASE @warmelt-normatch.melt:2684", MELT_ROUTDESCR_LEN - 1); + cdat->drout_799__FILL_MATCHCASE.nbval = 8; + MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_799__FILL_MATCHCASE, meltrout_55_warmelt_normatch_FILL_MATCHCASE); + + /*iniclos dclo_800__FILL_MATCHCASE*/ + /*_.VALCLO___V874*/ meltfptr[873] = (void*)&cdat->dclo_800__FILL_MATCHCASE; + cdat->dclo_800__FILL_MATCHCASE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); + cdat->dclo_800__FILL_MATCHCASE.nbval = 0; + + /*inirout drout_801__LAMBDA_*/ + /*_.VALROUT___V873*/ meltfptr[872] = (void*)&cdat->drout_801__LAMBDA_; + cdat->drout_801__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); + strncpy(cdat->drout_801__LAMBDA_.routdescr, "LAMBDA_ @warmelt-normatch.melt:2694", MELT_ROUTDESCR_LEN - 1); + cdat->drout_801__LAMBDA_.nbval = 3; + MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_801__LAMBDA_, meltrout_56_warmelt_normatch_LAMBDA_); + + /*iniobj dsym_802__PUT_THEN_MATCH*/ +/*uniqueobj*/ if (!/*_.VALDATA___V875*/ meltfptr[874]) /*_.VALDATA___V875*/ meltfptr[874] = (void*)&cdat->dsym_802__PUT_THEN_MATCH; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_802__PUT_THEN_MATCH", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_802__PUT_THEN_MATCH", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); + cdat->dsym_802__PUT_THEN_MATCH.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_802__PUT_THEN_MATCH.obj_hash = 135654960; + cdat->dsym_802__PUT_THEN_MATCH.obj_len = 3; + + /*inistring dstr_803__PUT_THEN_MATCH*/ + /*_.VALSTR___V876*/ meltfptr[875] = (void*)&cdat->dstr_803__PUT_THEN_MATCH; + cdat->dstr_803__PUT_THEN_MATCH.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_803__PUT_THEN_MATCH.val, "PUT_THEN_MATCH", sizeof (cdat->dstr_803__PUT_THEN_MATCH.val)-1); + + MELT_LOCATION("warmelt-normatch.melt:2719:/ iniobj"); + /*iniobj dobj_804*/ +/*_.VALDATA___V877*/ meltfptr[876] = (void*)&cdat->dobj_804; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_804", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_804", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); + cdat->dobj_804.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); + cdat->dobj_804.obj_num = 0; + cdat->dobj_804.obj_hash = 303542979; + cdat->dobj_804.obj_len = 2; + + /*iniobj dsym_805__THENSTEP*/ +/*uniqueobj*/ if (!/*_.VALDATA___V878*/ meltfptr[877]) /*_.VALDATA___V878*/ meltfptr[877] = (void*)&cdat->dsym_805__THENSTEP; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_805__THENSTEP", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_805__THENSTEP", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); + cdat->dsym_805__THENSTEP.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_805__THENSTEP.obj_hash = 296323356; + cdat->dsym_805__THENSTEP.obj_len = 3; + + /*inistring dstr_806__THENSTEP*/ + /*_.VALSTR___V879*/ meltfptr[878] = (void*)&cdat->dstr_806__THENSTEP; + cdat->dstr_806__THENSTEP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_806__THENSTEP.val, "THENSTEP", sizeof (cdat->dstr_806__THENSTEP.val)-1); + + /*^iniobj*/ + /*iniobj dobj_807*/ +/*_.VALDATA___V880*/ meltfptr[879] = (void*)&cdat->dobj_807; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_807", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_807", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); + cdat->dobj_807.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); + cdat->dobj_807.obj_num = 1; + cdat->dobj_807.obj_hash = 726690379; + cdat->dobj_807.obj_len = 2; + + /*inimult dtup_808__PUT_THEN_MATCH*/ + /*_.VALTUP___V881*/ meltfptr[880] = (void*)&cdat->dtup_808__PUT_THEN_MATCH; + cdat->dtup_808__PUT_THEN_MATCH.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE)))); + cdat->dtup_808__PUT_THEN_MATCH.nbval = 2; + /*^iniobj*/ + /*iniobj dobj_809__PUT_THEN_MATCH*/ +/*_.VALDATA___V882*/ meltfptr[881] = (void*)&cdat->dobj_809__PUT_THEN_MATCH; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_809__PUT_THEN_MATCH", melt_magic_discr (/*_.CLASS_SELECTOR__V8*/ meltfptr[7]) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_809__PUT_THEN_MATCH", ((meltobject_ptr_t) (/*_.CLASS_SELECTOR__V8*/ meltfptr[7]))->object_magic == OBMAG_OBJECT); + cdat->dobj_809__PUT_THEN_MATCH.obj_class = (meltobject_ptr_t)(/*_.CLASS_SELECTOR__V8*/ meltfptr[7]); + cdat->dobj_809__PUT_THEN_MATCH.obj_hash = 151887952; + cdat->dobj_809__PUT_THEN_MATCH.obj_len = 4; + + /*inistring dstr_810__PUT_THEN_MATCH*/ + /*_.VALSTR___V883*/ meltfptr[882] = (void*)&cdat->dstr_810__PUT_THEN_MATCH; + cdat->dstr_810__PUT_THEN_MATCH.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_810__PUT_THEN_MATCH.val, "PUT_THEN_MATCH", sizeof (cdat->dstr_810__PUT_THEN_MATCH.val)-1); + + /*inirout drout_811__START_STEP*/ + /*_.VALROUT___V884*/ meltfptr[883] = (void*)&cdat->drout_811__START_STEP; + cdat->drout_811__START_STEP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); + strncpy(cdat->drout_811__START_STEP.routdescr, "START_STEP @warmelt-normatch.melt:2724", MELT_ROUTDESCR_LEN - 1); + cdat->drout_811__START_STEP.nbval = 3; + MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_811__START_STEP, meltrout_57_warmelt_normatch_START_STEP); + + /*iniclos dclo_812__START_STEP*/ + /*_.VALCLO___V885*/ meltfptr[884] = (void*)&cdat->dclo_812__START_STEP; + cdat->dclo_812__START_STEP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); + cdat->dclo_812__START_STEP.nbval = 0; + + /*inirout drout_813__PUTTHEN_MATCHTHEN*/ + /*_.VALROUT___V886*/ meltfptr[885] = (void*)&cdat->drout_813__PUTTHEN_MATCHTHEN; + cdat->drout_813__PUTTHEN_MATCHTHEN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); + strncpy(cdat->drout_813__PUTTHEN_MATCHTHEN.routdescr, "PUTTHEN_MATCHTHEN @warmelt-normatch.melt:2741", MELT_ROUTDESCR_LEN - 1); + cdat->drout_813__PUTTHEN_MATCHTHEN.nbval = 5; + MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_813__PUTTHEN_MATCHTHEN, meltrout_58_warmelt_normatch_PUTTHEN_MATCHTHEN); + + /*iniclos dclo_814__PUTTHEN_MATCHTHEN*/ + /*_.VALCLO___V887*/ meltfptr[886] = (void*)&cdat->dclo_814__PUTTHEN_MATCHTHEN; + cdat->dclo_814__PUTTHEN_MATCHTHEN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); + cdat->dclo_814__PUTTHEN_MATCHTHEN.nbval = 0; + + /*inirout drout_815__PUTTHEN_MATCHGROUP*/ + /*_.VALROUT___V888*/ meltfptr[887] = (void*)&cdat->drout_815__PUTTHEN_MATCHGROUP; + cdat->drout_815__PUTTHEN_MATCHGROUP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); + strncpy(cdat->drout_815__PUTTHEN_MATCHGROUP.routdescr, "PUTTHEN_MATCHGROUP @warmelt-normatch.melt:2759", MELT_ROUTDESCR_LEN - 1); + cdat->drout_815__PUTTHEN_MATCHGROUP.nbval = 5; + MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_815__PUTTHEN_MATCHGROUP, meltrout_59_warmelt_normatch_PUTTHEN_MATCHGROUP); + + /*iniclos dclo_816__PUTTHEN_MATCHGROUP*/ + /*_.VALCLO___V889*/ meltfptr[888] = (void*)&cdat->dclo_816__PUTTHEN_MATCHGROUP; + cdat->dclo_816__PUTTHEN_MATCHGROUP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); + cdat->dclo_816__PUTTHEN_MATCHGROUP.nbval = 0; + + /*iniobj dsym_817__PUT_ELSE_MATCH*/ +/*uniqueobj*/ if (!/*_.VALDATA___V890*/ meltfptr[889]) /*_.VALDATA___V890*/ meltfptr[889] = (void*)&cdat->dsym_817__PUT_ELSE_MATCH; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_817__PUT_ELSE_MATCH", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_817__PUT_ELSE_MATCH", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); + cdat->dsym_817__PUT_ELSE_MATCH.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_817__PUT_ELSE_MATCH.obj_hash = 868738368; + cdat->dsym_817__PUT_ELSE_MATCH.obj_len = 3; + + /*inistring dstr_818__PUT_ELSE_MATCH*/ + /*_.VALSTR___V891*/ meltfptr[890] = (void*)&cdat->dstr_818__PUT_ELSE_MATCH; + cdat->dstr_818__PUT_ELSE_MATCH.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_818__PUT_ELSE_MATCH.val, "PUT_ELSE_MATCH", sizeof (cdat->dstr_818__PUT_ELSE_MATCH.val)-1); + + MELT_LOCATION("warmelt-normatch.melt:2787:/ iniobj"); + /*iniobj dobj_819*/ +/*_.VALDATA___V892*/ meltfptr[891] = (void*)&cdat->dobj_819; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_819", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_819", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); + cdat->dobj_819.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); + cdat->dobj_819.obj_num = 0; + cdat->dobj_819.obj_hash = 415332377; + cdat->dobj_819.obj_len = 2; + + /*iniobj dsym_820__ELSESTEP*/ +/*uniqueobj*/ if (!/*_.VALDATA___V893*/ meltfptr[892]) /*_.VALDATA___V893*/ meltfptr[892] = (void*)&cdat->dsym_820__ELSESTEP; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_820__ELSESTEP", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_820__ELSESTEP", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); + cdat->dsym_820__ELSESTEP.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_820__ELSESTEP.obj_hash = 680058237; + cdat->dsym_820__ELSESTEP.obj_len = 3; + + /*inistring dstr_821__ELSESTEP*/ + /*_.VALSTR___V894*/ meltfptr[893] = (void*)&cdat->dstr_821__ELSESTEP; + cdat->dstr_821__ELSESTEP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_821__ELSESTEP.val, "ELSESTEP", sizeof (cdat->dstr_821__ELSESTEP.val)-1); + + /*^iniobj*/ + /*iniobj dobj_822*/ +/*_.VALDATA___V895*/ meltfptr[894] = (void*)&cdat->dobj_822; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_822", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_822", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); + cdat->dobj_822.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); + cdat->dobj_822.obj_num = 1; + cdat->dobj_822.obj_hash = 402455884; + cdat->dobj_822.obj_len = 2; + + /*inimult dtup_823__PUT_ELSE_MATCH*/ + /*_.VALTUP___V896*/ meltfptr[895] = (void*)&cdat->dtup_823__PUT_ELSE_MATCH; + cdat->dtup_823__PUT_ELSE_MATCH.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE)))); + cdat->dtup_823__PUT_ELSE_MATCH.nbval = 2; + /*^iniobj*/ + /*iniobj dobj_824__PUT_ELSE_MATCH*/ +/*_.VALDATA___V897*/ meltfptr[896] = (void*)&cdat->dobj_824__PUT_ELSE_MATCH; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_824__PUT_ELSE_MATCH", melt_magic_discr (/*_.CLASS_SELECTOR__V8*/ meltfptr[7]) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_824__PUT_ELSE_MATCH", ((meltobject_ptr_t) (/*_.CLASS_SELECTOR__V8*/ meltfptr[7]))->object_magic == OBMAG_OBJECT); + cdat->dobj_824__PUT_ELSE_MATCH.obj_class = (meltobject_ptr_t)(/*_.CLASS_SELECTOR__V8*/ meltfptr[7]); + cdat->dobj_824__PUT_ELSE_MATCH.obj_hash = 23976485; + cdat->dobj_824__PUT_ELSE_MATCH.obj_len = 4; + + /*inistring dstr_825__PUT_ELSE_MATCH*/ + /*_.VALSTR___V898*/ meltfptr[897] = (void*)&cdat->dstr_825__PUT_ELSE_MATCH; + cdat->dstr_825__PUT_ELSE_MATCH.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_825__PUT_ELSE_MATCH.val, "PUT_ELSE_MATCH", sizeof (cdat->dstr_825__PUT_ELSE_MATCH.val)-1); + + /*inirout drout_826__PUTELSE_MATCHSTEPTHEN*/ + /*_.VALROUT___V899*/ meltfptr[898] = (void*)&cdat->drout_826__PUTELSE_MATCHSTEPTHEN; + cdat->drout_826__PUTELSE_MATCHSTEPTHEN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); + strncpy(cdat->drout_826__PUTELSE_MATCHSTEPTHEN.routdescr, "PUTELSE_MATCHSTEPTHEN @warmelt-normatch.melt:2793", MELT_ROUTDESCR_LEN - 1); + cdat->drout_826__PUTELSE_MATCHSTEPTHEN.nbval = 4; + MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_826__PUTELSE_MATCHSTEPTHEN, meltrout_60_warmelt_normatch_PUTELSE_MATCHSTEPTHEN); + + /*iniclos dclo_827__PUTELSE_MATCHSTEPTHEN*/ + /*_.VALCLO___V900*/ meltfptr[899] = (void*)&cdat->dclo_827__PUTELSE_MATCHSTEPTHEN; + cdat->dclo_827__PUTELSE_MATCHSTEPTHEN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); + cdat->dclo_827__PUTELSE_MATCHSTEPTHEN.nbval = 0; + + /*inirout drout_828__PUTELSE_MATCHTEST*/ + /*_.VALROUT___V901*/ meltfptr[900] = (void*)&cdat->drout_828__PUTELSE_MATCHTEST; + cdat->drout_828__PUTELSE_MATCHTEST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); + strncpy(cdat->drout_828__PUTELSE_MATCHTEST.routdescr, "PUTELSE_MATCHTEST @warmelt-normatch.melt:2810", MELT_ROUTDESCR_LEN - 1); + cdat->drout_828__PUTELSE_MATCHTEST.nbval = 6; + MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_828__PUTELSE_MATCHTEST, meltrout_61_warmelt_normatch_PUTELSE_MATCHTEST); + + /*iniclos dclo_829__PUTELSE_MATCHTEST*/ + /*_.VALCLO___V902*/ meltfptr[901] = (void*)&cdat->dclo_829__PUTELSE_MATCHTEST; + cdat->dclo_829__PUTELSE_MATCHTEST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); + cdat->dclo_829__PUTELSE_MATCHTEST.nbval = 0; + + /*inirout drout_830__PUTELSE_MATCHGROUP*/ + /*_.VALROUT___V903*/ meltfptr[902] = (void*)&cdat->drout_830__PUTELSE_MATCHGROUP; + cdat->drout_830__PUTELSE_MATCHGROUP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); + strncpy(cdat->drout_830__PUTELSE_MATCHGROUP.routdescr, "PUTELSE_MATCHGROUP @warmelt-normatch.melt:2846", MELT_ROUTDESCR_LEN - 1); + cdat->drout_830__PUTELSE_MATCHGROUP.nbval = 5; + MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_830__PUTELSE_MATCHGROUP, meltrout_62_warmelt_normatch_PUTELSE_MATCHGROUP); + + /*iniclos dclo_831__PUTELSE_MATCHGROUP*/ + /*_.VALCLO___V904*/ meltfptr[903] = (void*)&cdat->dclo_831__PUTELSE_MATCHGROUP; + cdat->dclo_831__PUTELSE_MATCHGROUP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); + cdat->dclo_831__PUTELSE_MATCHGROUP.nbval = 0; + + /*inirout drout_832__SCANSTEP_TESTINS*/ + /*_.VALROUT___V905*/ meltfptr[904] = (void*)&cdat->drout_832__SCANSTEP_TESTINS; + cdat->drout_832__SCANSTEP_TESTINS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); + strncpy(cdat->drout_832__SCANSTEP_TESTINS.routdescr, "SCANSTEP_TESTINS @warmelt-normatch.melt:2889", MELT_ROUTDESCR_LEN - 1); + cdat->drout_832__SCANSTEP_TESTINS.nbval = 1; + MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_832__SCANSTEP_TESTINS, meltrout_63_warmelt_normatch_SCANSTEP_TESTINS); + + /*iniclos dclo_833__SCANSTEP_TESTINS*/ + /*_.VALCLO___V906*/ meltfptr[905] = (void*)&cdat->dclo_833__SCANSTEP_TESTINS; + cdat->dclo_833__SCANSTEP_TESTINS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); + cdat->dclo_833__SCANSTEP_TESTINS.nbval = 0; + + /*inirout drout_834__SCANSTEP_TESTMATCHER*/ + /*_.VALROUT___V907*/ meltfptr[906] = (void*)&cdat->drout_834__SCANSTEP_TESTMATCHER; + cdat->drout_834__SCANSTEP_TESTMATCHER.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); + strncpy(cdat->drout_834__SCANSTEP_TESTMATCHER.routdescr, "SCANSTEP_TESTMATCHER @warmelt-normatch.melt:2900", MELT_ROUTDESCR_LEN - 1); + cdat->drout_834__SCANSTEP_TESTMATCHER.nbval = 1; + MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_834__SCANSTEP_TESTMATCHER, meltrout_64_warmelt_normatch_SCANSTEP_TESTMATCHER); + + /*iniclos dclo_835__SCANSTEP_TESTMATCHER*/ + /*_.VALCLO___V908*/ meltfptr[907] = (void*)&cdat->dclo_835__SCANSTEP_TESTMATCHER; + cdat->dclo_835__SCANSTEP_TESTMATCHER.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); + cdat->dclo_835__SCANSTEP_TESTMATCHER.nbval = 0; + + /*iniobj dsym_836__TRANSLATE_PATTERN*/ +/*uniqueobj*/ if (!/*_.VALDATA___V909*/ meltfptr[908]) /*_.VALDATA___V909*/ meltfptr[908] = (void*)&cdat->dsym_836__TRANSLATE_PATTERN; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_836__TRANSLATE_PATTERN", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_836__TRANSLATE_PATTERN", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); + cdat->dsym_836__TRANSLATE_PATTERN.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_836__TRANSLATE_PATTERN.obj_hash = 698900025; + cdat->dsym_836__TRANSLATE_PATTERN.obj_len = 3; + + /*inistring dstr_837__TRANSLATE_PATTER*/ + /*_.VALSTR___V910*/ meltfptr[909] = (void*)&cdat->dstr_837__TRANSLATE_PATTER; + cdat->dstr_837__TRANSLATE_PATTER.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_837__TRANSLATE_PATTER.val, "TRANSLATE_PATTERN", sizeof (cdat->dstr_837__TRANSLATE_PATTER.val)-1); + + MELT_LOCATION("warmelt-normatch.melt:2913:/ iniobj"); + /*iniobj dobj_838*/ +/*_.VALDATA___V911*/ meltfptr[910] = (void*)&cdat->dobj_838; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_838", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_838", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); + cdat->dobj_838.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); + cdat->dobj_838.obj_num = 0; + cdat->dobj_838.obj_hash = 73423285; + cdat->dobj_838.obj_len = 2; + + /*iniobj dsym_839__MDATA*/ +/*uniqueobj*/ if (!/*_.VALDATA___V912*/ meltfptr[911]) /*_.VALDATA___V912*/ meltfptr[911] = (void*)&cdat->dsym_839__MDATA; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_839__MDATA", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_839__MDATA", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); + cdat->dsym_839__MDATA.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_839__MDATA.obj_hash = 823479688; + cdat->dsym_839__MDATA.obj_len = 3; + + /*inistring dstr_840__MDATA*/ + /*_.VALSTR___V913*/ meltfptr[912] = (void*)&cdat->dstr_840__MDATA; + cdat->dstr_840__MDATA.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_840__MDATA.val, "MDATA", sizeof (cdat->dstr_840__MDATA.val)-1); + + /*^iniobj*/ + /*iniobj dobj_841*/ +/*_.VALDATA___V914*/ meltfptr[913] = (void*)&cdat->dobj_841; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_841", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_841", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); + cdat->dobj_841.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); + cdat->dobj_841.obj_num = 1; + cdat->dobj_841.obj_hash = 540117016; + cdat->dobj_841.obj_len = 2; + + /*iniobj dsym_842__MCASE*/ +/*uniqueobj*/ if (!/*_.VALDATA___V915*/ meltfptr[914]) /*_.VALDATA___V915*/ meltfptr[914] = (void*)&cdat->dsym_842__MCASE; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_842__MCASE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_842__MCASE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); + cdat->dsym_842__MCASE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_842__MCASE.obj_hash = 178696645; + cdat->dsym_842__MCASE.obj_len = 3; + + /*inistring dstr_843__MCASE*/ + /*_.VALSTR___V916*/ meltfptr[915] = (void*)&cdat->dstr_843__MCASE; + cdat->dstr_843__MCASE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_843__MCASE.val, "MCASE", sizeof (cdat->dstr_843__MCASE.val)-1); /*^iniobj*/ - /*iniobj dobj_780*/ -/*_.VALDATA___V852*/ meltfptr[851] = (void*)&cdat->dobj_780; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_780", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_780", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); - cdat->dobj_780.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); - cdat->dobj_780.obj_num = 2; - cdat->dobj_780.obj_hash = 340846405; - cdat->dobj_780.obj_len = 2; - - /*iniobj dsym_781__VARMAP*/ -/*uniqueobj*/ if (!/*_.VALDATA___V853*/ meltfptr[852]) /*_.VALDATA___V853*/ meltfptr[852] = (void*)&cdat->dsym_781__VARMAP; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_781__VARMAP", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_781__VARMAP", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); - cdat->dsym_781__VARMAP.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_781__VARMAP.obj_hash = 698215800; - cdat->dsym_781__VARMAP.obj_len = 3; - - /*inistring dstr_782__VARMAP*/ - /*_.VALSTR___V854*/ meltfptr[853] = (void*)&cdat->dstr_782__VARMAP; - cdat->dstr_782__VARMAP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_782__VARMAP.val, "VARMAP", sizeof (cdat->dstr_782__VARMAP.val)-1); + /*iniobj dobj_844*/ +/*_.VALDATA___V917*/ meltfptr[916] = (void*)&cdat->dobj_844; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_844", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_844", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); + cdat->dobj_844.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); + cdat->dobj_844.obj_num = 2; + cdat->dobj_844.obj_hash = 394785105; + cdat->dobj_844.obj_len = 2; + + /*iniobj dsym_845__VARMAP*/ +/*uniqueobj*/ if (!/*_.VALDATA___V918*/ meltfptr[917]) /*_.VALDATA___V918*/ meltfptr[917] = (void*)&cdat->dsym_845__VARMAP; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_845__VARMAP", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_845__VARMAP", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); + cdat->dsym_845__VARMAP.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_845__VARMAP.obj_hash = 698215800; + cdat->dsym_845__VARMAP.obj_len = 3; + + /*inistring dstr_846__VARMAP*/ + /*_.VALSTR___V919*/ meltfptr[918] = (void*)&cdat->dstr_846__VARMAP; + cdat->dstr_846__VARMAP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_846__VARMAP.val, "VARMAP", sizeof (cdat->dstr_846__VARMAP.val)-1); /*^iniobj*/ - /*iniobj dobj_783*/ -/*_.VALDATA___V855*/ meltfptr[854] = (void*)&cdat->dobj_783; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_783", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_783", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); - cdat->dobj_783.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); - cdat->dobj_783.obj_num = 3; - cdat->dobj_783.obj_hash = 822876239; - cdat->dobj_783.obj_len = 2; - - /*iniobj dsym_784__SLOC*/ -/*uniqueobj*/ if (!/*_.VALDATA___V856*/ meltfptr[855]) /*_.VALDATA___V856*/ meltfptr[855] = (void*)&cdat->dsym_784__SLOC; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_784__SLOC", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_784__SLOC", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); - cdat->dsym_784__SLOC.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_784__SLOC.obj_hash = 214022047; - cdat->dsym_784__SLOC.obj_len = 3; - - /*inistring dstr_785__SLOC*/ - /*_.VALSTR___V857*/ meltfptr[856] = (void*)&cdat->dstr_785__SLOC; - cdat->dstr_785__SLOC.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_785__SLOC.val, "SLOC", sizeof (cdat->dstr_785__SLOC.val)-1); + /*iniobj dobj_847*/ +/*_.VALDATA___V920*/ meltfptr[919] = (void*)&cdat->dobj_847; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_847", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_847", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); + cdat->dobj_847.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); + cdat->dobj_847.obj_num = 3; + cdat->dobj_847.obj_hash = 321025420; + cdat->dobj_847.obj_len = 2; + + /*iniobj dsym_848__SLOC*/ +/*uniqueobj*/ if (!/*_.VALDATA___V921*/ meltfptr[920]) /*_.VALDATA___V921*/ meltfptr[920] = (void*)&cdat->dsym_848__SLOC; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_848__SLOC", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_848__SLOC", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); + cdat->dsym_848__SLOC.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_848__SLOC.obj_hash = 214022047; + cdat->dsym_848__SLOC.obj_len = 3; + + /*inistring dstr_849__SLOC*/ + /*_.VALSTR___V922*/ meltfptr[921] = (void*)&cdat->dstr_849__SLOC; + cdat->dstr_849__SLOC.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_849__SLOC.val, "SLOC", sizeof (cdat->dstr_849__SLOC.val)-1); /*^iniobj*/ - /*iniobj dobj_786*/ -/*_.VALDATA___V858*/ meltfptr[857] = (void*)&cdat->dobj_786; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_786", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_786", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); - cdat->dobj_786.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); - cdat->dobj_786.obj_num = 4; - cdat->dobj_786.obj_hash = 902254860; - cdat->dobj_786.obj_len = 2; - - /*inimult dtup_787__TRANSLATE_PATTERN*/ - /*_.VALTUP___V859*/ meltfptr[858] = (void*)&cdat->dtup_787__TRANSLATE_PATTERN; - cdat->dtup_787__TRANSLATE_PATTERN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE)))); - cdat->dtup_787__TRANSLATE_PATTERN.nbval = 5; + /*iniobj dobj_850*/ +/*_.VALDATA___V923*/ meltfptr[922] = (void*)&cdat->dobj_850; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_850", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_850", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); + cdat->dobj_850.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); + cdat->dobj_850.obj_num = 4; + cdat->dobj_850.obj_hash = 1037418443; + cdat->dobj_850.obj_len = 2; + + /*inimult dtup_851__TRANSLATE_PATTERN*/ + /*_.VALTUP___V924*/ meltfptr[923] = (void*)&cdat->dtup_851__TRANSLATE_PATTERN; + cdat->dtup_851__TRANSLATE_PATTERN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE)))); + cdat->dtup_851__TRANSLATE_PATTERN.nbval = 5; /*^iniobj*/ - /*iniobj dobj_788__TRANSLATE_PATTERN*/ -/*_.VALDATA___V860*/ meltfptr[859] = (void*)&cdat->dobj_788__TRANSLATE_PATTERN; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_788__TRANSLATE_PATTERN", melt_magic_discr (/*_.CLASS_SELECTOR__V8*/ meltfptr[7]) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_788__TRANSLATE_PATTERN", ((meltobject_ptr_t) (/*_.CLASS_SELECTOR__V8*/ meltfptr[7]))->object_magic == OBMAG_OBJECT); - cdat->dobj_788__TRANSLATE_PATTERN.obj_class = (meltobject_ptr_t)(/*_.CLASS_SELECTOR__V8*/ meltfptr[7]); - cdat->dobj_788__TRANSLATE_PATTERN.obj_hash = 846097258; - cdat->dobj_788__TRANSLATE_PATTERN.obj_len = 4; - - /*inistring dstr_789__TRANSLATE_PATTER*/ - /*_.VALSTR___V861*/ meltfptr[860] = (void*)&cdat->dstr_789__TRANSLATE_PATTER; - cdat->dstr_789__TRANSLATE_PATTER.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_789__TRANSLATE_PATTER.val, "TRANSLATE_PATTERN", sizeof (cdat->dstr_789__TRANSLATE_PATTER.val)-1); - - /*inirout drout_790__TRANSLPAT_ANYRECV*/ - /*_.VALROUT___V862*/ meltfptr[861] = (void*)&cdat->drout_790__TRANSLPAT_ANYRECV; - cdat->drout_790__TRANSLPAT_ANYRECV.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); - strncpy(cdat->drout_790__TRANSLPAT_ANYRECV.routdescr, "TRANSLPAT_ANYRECV @warmelt-normatch.melt:2792", MELT_ROUTDESCR_LEN - 1); - cdat->drout_790__TRANSLPAT_ANYRECV.nbval = 1; - MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_790__TRANSLPAT_ANYRECV, meltrout_63_warmelt_normatch_TRANSLPAT_ANYRECV); - - /*iniclos dclo_791__TRANSLPAT_ANYRECV*/ - /*_.VALCLO___V863*/ meltfptr[862] = (void*)&cdat->dclo_791__TRANSLPAT_ANYRECV; - cdat->dclo_791__TRANSLPAT_ANYRECV.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); - cdat->dclo_791__TRANSLPAT_ANYRECV.nbval = 0; - - /*inirout drout_792__TRANSLPAT_JOKERPAT*/ - /*_.VALROUT___V864*/ meltfptr[863] = (void*)&cdat->drout_792__TRANSLPAT_JOKERPAT; - cdat->drout_792__TRANSLPAT_JOKERPAT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); - strncpy(cdat->drout_792__TRANSLPAT_JOKERPAT.routdescr, "TRANSLPAT_JOKERPAT @warmelt-normatch.melt:2802", MELT_ROUTDESCR_LEN - 1); - cdat->drout_792__TRANSLPAT_JOKERPAT.nbval = 2; - MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_792__TRANSLPAT_JOKERPAT, meltrout_64_warmelt_normatch_TRANSLPAT_JOKERPAT); - - /*iniclos dclo_793__TRANSLPAT_JOKERPAT*/ - /*_.VALCLO___V865*/ meltfptr[864] = (void*)&cdat->dclo_793__TRANSLPAT_JOKERPAT; - cdat->dclo_793__TRANSLPAT_JOKERPAT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); - cdat->dclo_793__TRANSLPAT_JOKERPAT.nbval = 0; - - /*inirout drout_794__TRANSLPAT_INSPAT*/ - /*_.VALROUT___V866*/ meltfptr[865] = (void*)&cdat->drout_794__TRANSLPAT_INSPAT; - cdat->drout_794__TRANSLPAT_INSPAT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); - strncpy(cdat->drout_794__TRANSLPAT_INSPAT.routdescr, "TRANSLPAT_INSPAT @warmelt-normatch.melt:2812", MELT_ROUTDESCR_LEN - 1); - cdat->drout_794__TRANSLPAT_INSPAT.nbval = 18; - MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_794__TRANSLPAT_INSPAT, meltrout_65_warmelt_normatch_TRANSLPAT_INSPAT); - - /*iniclos dclo_795__TRANSLPAT_INSPAT*/ - /*_.VALCLO___V867*/ meltfptr[866] = (void*)&cdat->dclo_795__TRANSLPAT_INSPAT; - cdat->dclo_795__TRANSLPAT_INSPAT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); - cdat->dclo_795__TRANSLPAT_INSPAT.nbval = 0; - - /*inirout drout_796__TRANSLPAT_VARPAT*/ - /*_.VALROUT___V868*/ meltfptr[867] = (void*)&cdat->drout_796__TRANSLPAT_VARPAT; - cdat->drout_796__TRANSLPAT_VARPAT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); - strncpy(cdat->drout_796__TRANSLPAT_VARPAT.routdescr, "TRANSLPAT_VARPAT @warmelt-normatch.melt:2934", MELT_ROUTDESCR_LEN - 1); - cdat->drout_796__TRANSLPAT_VARPAT.nbval = 7; - MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_796__TRANSLPAT_VARPAT, meltrout_66_warmelt_normatch_TRANSLPAT_VARPAT); - - /*iniclos dclo_797__TRANSLPAT_VARPAT*/ - /*_.VALCLO___V869*/ meltfptr[868] = (void*)&cdat->dclo_797__TRANSLPAT_VARPAT; - cdat->dclo_797__TRANSLPAT_VARPAT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); - cdat->dclo_797__TRANSLPAT_VARPAT.nbval = 0; - - /*inirout drout_798__TRANSLPAT_ANDPAT*/ - /*_.VALROUT___V870*/ meltfptr[869] = (void*)&cdat->drout_798__TRANSLPAT_ANDPAT; - cdat->drout_798__TRANSLPAT_ANDPAT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); - strncpy(cdat->drout_798__TRANSLPAT_ANDPAT.routdescr, "TRANSLPAT_ANDPAT @warmelt-normatch.melt:3010", MELT_ROUTDESCR_LEN - 1); - cdat->drout_798__TRANSLPAT_ANDPAT.nbval = 4; - MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_798__TRANSLPAT_ANDPAT, meltrout_67_warmelt_normatch_TRANSLPAT_ANDPAT); - - /*iniclos dclo_799__TRANSLPAT_ANDPAT*/ - /*_.VALCLO___V871*/ meltfptr[870] = (void*)&cdat->dclo_799__TRANSLPAT_ANDPAT; - cdat->dclo_799__TRANSLPAT_ANDPAT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); - cdat->dclo_799__TRANSLPAT_ANDPAT.nbval = 0; - - /*inirout drout_800__TRANSLPAT_ORPAT*/ - /*_.VALROUT___V872*/ meltfptr[871] = (void*)&cdat->drout_800__TRANSLPAT_ORPAT; - cdat->drout_800__TRANSLPAT_ORPAT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); - strncpy(cdat->drout_800__TRANSLPAT_ORPAT.routdescr, "TRANSLPAT_ORPAT @warmelt-normatch.melt:3028", MELT_ROUTDESCR_LEN - 1); - cdat->drout_800__TRANSLPAT_ORPAT.nbval = 4; - MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_800__TRANSLPAT_ORPAT, meltrout_68_warmelt_normatch_TRANSLPAT_ORPAT); - - /*iniclos dclo_801__TRANSLPAT_ORPAT*/ - /*_.VALCLO___V873*/ meltfptr[872] = (void*)&cdat->dclo_801__TRANSLPAT_ORPAT; - cdat->dclo_801__TRANSLPAT_ORPAT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); - cdat->dclo_801__TRANSLPAT_ORPAT.nbval = 0; - - /*inirout drout_802__TRANSLPAT_PATMAT*/ - /*_.VALROUT___V874*/ meltfptr[873] = (void*)&cdat->drout_802__TRANSLPAT_PATMAT; - cdat->drout_802__TRANSLPAT_PATMAT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); - strncpy(cdat->drout_802__TRANSLPAT_PATMAT.routdescr, "TRANSLPAT_PATMAT @warmelt-normatch.melt:3047", MELT_ROUTDESCR_LEN - 1); - cdat->drout_802__TRANSLPAT_PATMAT.nbval = 21; - MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_802__TRANSLPAT_PATMAT, meltrout_69_warmelt_normatch_TRANSLPAT_PATMAT); - - /*iniclos dclo_803__TRANSLPAT_PATMAT*/ - /*_.VALCLO___V875*/ meltfptr[874] = (void*)&cdat->dclo_803__TRANSLPAT_PATMAT; - cdat->dclo_803__TRANSLPAT_PATMAT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); - cdat->dclo_803__TRANSLPAT_PATMAT.nbval = 0; - - /*iniobj dsym_804__MATCHGRAPHIC_ALTSTEP*/ -/*uniqueobj*/ if (!/*_.VALDATA___V876*/ meltfptr[875]) /*_.VALDATA___V876*/ meltfptr[875] = (void*)&cdat->dsym_804__MATCHGRAPHIC_ALTSTEP; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_804__MATCHGRAPHIC_ALTSTEP", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_804__MATCHGRAPHIC_ALTSTEP", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); - cdat->dsym_804__MATCHGRAPHIC_ALTSTEP.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_804__MATCHGRAPHIC_ALTSTEP.obj_hash = 562594089; - cdat->dsym_804__MATCHGRAPHIC_ALTSTEP.obj_len = 3; - - /*inistring dstr_805__MATCHGRAPHIC_ALT*/ - /*_.VALSTR___V877*/ meltfptr[876] = (void*)&cdat->dstr_805__MATCHGRAPHIC_ALT; - cdat->dstr_805__MATCHGRAPHIC_ALT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_805__MATCHGRAPHIC_ALT.val, "MATCHGRAPHIC_ALTSTEP", sizeof (cdat->dstr_805__MATCHGRAPHIC_ALT.val)-1); - - MELT_LOCATION("warmelt-normatch.melt:3228:/ iniobj"); - /*iniobj dobj_806__MATCHGRAPHIC_ALTSTEP*/ -/*_.VALDATA___V878*/ meltfptr[877] = (void*)&cdat->dobj_806__MATCHGRAPHIC_ALTSTEP; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_806__MATCHGRAPHIC_ALTSTEP", melt_magic_discr (/*_.CLASS_SELECTOR__V8*/ meltfptr[7]) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_806__MATCHGRAPHIC_ALTSTEP", ((meltobject_ptr_t) (/*_.CLASS_SELECTOR__V8*/ meltfptr[7]))->object_magic == OBMAG_OBJECT); - cdat->dobj_806__MATCHGRAPHIC_ALTSTEP.obj_class = (meltobject_ptr_t)(/*_.CLASS_SELECTOR__V8*/ meltfptr[7]); - cdat->dobj_806__MATCHGRAPHIC_ALTSTEP.obj_hash = 17787217; - cdat->dobj_806__MATCHGRAPHIC_ALTSTEP.obj_len = 4; - - /*inistring dstr_807__MATCHGRAPHIC_ALT*/ - /*_.VALSTR___V879*/ meltfptr[878] = (void*)&cdat->dstr_807__MATCHGRAPHIC_ALT; - cdat->dstr_807__MATCHGRAPHIC_ALT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_807__MATCHGRAPHIC_ALT.val, "MATCHGRAPHIC_ALTSTEP", sizeof (cdat->dstr_807__MATCHGRAPHIC_ALT.val)-1); - - /*inirout drout_808__MGALTSTEP_STEPSETVAR*/ - /*_.VALROUT___V880*/ meltfptr[879] = (void*)&cdat->drout_808__MGALTSTEP_STEPSETVAR; - cdat->drout_808__MGALTSTEP_STEPSETVAR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); - strncpy(cdat->drout_808__MGALTSTEP_STEPSETVAR.routdescr, "MGALTSTEP_STEPSETVAR @warmelt-normatch.melt:3231", MELT_ROUTDESCR_LEN - 1); - cdat->drout_808__MGALTSTEP_STEPSETVAR.nbval = 5; - MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_808__MGALTSTEP_STEPSETVAR, meltrout_70_warmelt_normatch_MGALTSTEP_STEPSETVAR); - - /*iniclos dclo_809__MGALTSTEP_STEPSETVAR*/ - /*_.VALCLO___V881*/ meltfptr[880] = (void*)&cdat->dclo_809__MGALTSTEP_STEPSETVAR; - cdat->dclo_809__MGALTSTEP_STEPSETVAR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); - cdat->dclo_809__MGALTSTEP_STEPSETVAR.nbval = 0; - - /*inirout drout_810__MGALTSTEP_STEPTESTVAR*/ - /*_.VALROUT___V882*/ meltfptr[881] = (void*)&cdat->drout_810__MGALTSTEP_STEPTESTVAR; - cdat->drout_810__MGALTSTEP_STEPTESTVAR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); - strncpy(cdat->drout_810__MGALTSTEP_STEPTESTVAR.routdescr, "MGALTSTEP_STEPTESTVAR @warmelt-normatch.melt:3283", MELT_ROUTDESCR_LEN - 1); - cdat->drout_810__MGALTSTEP_STEPTESTVAR.nbval = 5; - MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_810__MGALTSTEP_STEPTESTVAR, meltrout_71_warmelt_normatch_MGALTSTEP_STEPTESTVAR); - - /*iniclos dclo_811__MGALTSTEP_STEPTESTVAR*/ - /*_.VALCLO___V883*/ meltfptr[882] = (void*)&cdat->dclo_811__MGALTSTEP_STEPTESTVAR; - cdat->dclo_811__MGALTSTEP_STEPTESTVAR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); - cdat->dclo_811__MGALTSTEP_STEPTESTVAR.nbval = 0; - - /*inirout drout_812__MGALTSTEP_STEPTESTINST*/ - /*_.VALROUT___V884*/ meltfptr[883] = (void*)&cdat->drout_812__MGALTSTEP_STEPTESTINST; - cdat->drout_812__MGALTSTEP_STEPTESTINST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); - strncpy(cdat->drout_812__MGALTSTEP_STEPTESTINST.routdescr, "MGALTSTEP_STEPTESTINST @warmelt-normatch.melt:3345", MELT_ROUTDESCR_LEN - 1); - cdat->drout_812__MGALTSTEP_STEPTESTINST.nbval = 7; - MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_812__MGALTSTEP_STEPTESTINST, meltrout_72_warmelt_normatch_MGALTSTEP_STEPTESTINST); - - /*iniclos dclo_813__MGALTSTEP_STEPTESTINST*/ - /*_.VALCLO___V885*/ meltfptr[884] = (void*)&cdat->dclo_813__MGALTSTEP_STEPTESTINST; - cdat->dclo_813__MGALTSTEP_STEPTESTINST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); - cdat->dclo_813__MGALTSTEP_STEPTESTINST.nbval = 0; - - /*inirout drout_814__MGALTSTEP_STEPTESTGROUP*/ - /*_.VALROUT___V886*/ meltfptr[885] = (void*)&cdat->drout_814__MGALTSTEP_STEPTESTGROUP; - cdat->drout_814__MGALTSTEP_STEPTESTGROUP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); - strncpy(cdat->drout_814__MGALTSTEP_STEPTESTGROUP.routdescr, "MGALTSTEP_STEPTESTGROUP @warmelt-normatch.melt:3420", MELT_ROUTDESCR_LEN - 1); - cdat->drout_814__MGALTSTEP_STEPTESTGROUP.nbval = 4; - MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_814__MGALTSTEP_STEPTESTGROUP, meltrout_73_warmelt_normatch_MGALTSTEP_STEPTESTGROUP); - - /*iniclos dclo_815__MGALTSTEP_STEPTESTGROUP*/ - /*_.VALCLO___V887*/ meltfptr[886] = (void*)&cdat->dclo_815__MGALTSTEP_STEPTESTGROUP; - cdat->dclo_815__MGALTSTEP_STEPTESTGROUP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); - cdat->dclo_815__MGALTSTEP_STEPTESTGROUP.nbval = 0; - - /*inirout drout_816__MGALTSTEP_STEPTESTMATCHER*/ - /*_.VALROUT___V888*/ meltfptr[887] = (void*)&cdat->drout_816__MGALTSTEP_STEPTESTMATCHER; - cdat->drout_816__MGALTSTEP_STEPTESTMATCHER.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); - strncpy(cdat->drout_816__MGALTSTEP_STEPTESTMATCHER.routdescr, "MGALTSTEP_STEPTESTMATCHER @warmelt-normatch.melt:3470", MELT_ROUTDESCR_LEN - 1); - cdat->drout_816__MGALTSTEP_STEPTESTMATCHER.nbval = 8; - MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_816__MGALTSTEP_STEPTESTMATCHER, meltrout_74_warmelt_normatch_MGALTSTEP_STEPTESTMATCHER); - - /*iniclos dclo_817__MGALTSTEP_STEPTESTMATCHER*/ - /*_.VALCLO___V889*/ meltfptr[888] = (void*)&cdat->dclo_817__MGALTSTEP_STEPTESTMATCHER; - cdat->dclo_817__MGALTSTEP_STEPTESTMATCHER.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); - cdat->dclo_817__MGALTSTEP_STEPTESTMATCHER.nbval = 0; - - /*inirout drout_818__MGALTSTEP_STEPSUCCESS*/ - /*_.VALROUT___V890*/ meltfptr[889] = (void*)&cdat->drout_818__MGALTSTEP_STEPSUCCESS; - cdat->drout_818__MGALTSTEP_STEPSUCCESS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); - strncpy(cdat->drout_818__MGALTSTEP_STEPSUCCESS.routdescr, "MGALTSTEP_STEPSUCCESS @warmelt-normatch.melt:3547", MELT_ROUTDESCR_LEN - 1); - cdat->drout_818__MGALTSTEP_STEPSUCCESS.nbval = 4; - MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_818__MGALTSTEP_STEPSUCCESS, meltrout_75_warmelt_normatch_MGALTSTEP_STEPSUCCESS); - - /*iniclos dclo_819__MGALTSTEP_STEPSUCCESS*/ - /*_.VALCLO___V891*/ meltfptr[890] = (void*)&cdat->dclo_819__MGALTSTEP_STEPSUCCESS; - cdat->dclo_819__MGALTSTEP_STEPSUCCESS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); - cdat->dclo_819__MGALTSTEP_STEPSUCCESS.nbval = 0; - - /*inirout drout_820__TRANSLATE_MATCHCASE*/ - /*_.VALROUT___V892*/ meltfptr[891] = (void*)&cdat->drout_820__TRANSLATE_MATCHCASE; - cdat->drout_820__TRANSLATE_MATCHCASE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); - strncpy(cdat->drout_820__TRANSLATE_MATCHCASE.routdescr, "TRANSLATE_MATCHCASE @warmelt-normatch.melt:3591", MELT_ROUTDESCR_LEN - 1); - cdat->drout_820__TRANSLATE_MATCHCASE.nbval = 25; - MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_820__TRANSLATE_MATCHCASE, meltrout_76_warmelt_normatch_TRANSLATE_MATCHCASE); - - /*iniclos dclo_821__TRANSLATE_MATCHCASE*/ - /*_.VALCLO___V894*/ meltfptr[893] = (void*)&cdat->dclo_821__TRANSLATE_MATCHCASE; - cdat->dclo_821__TRANSLATE_MATCHCASE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); - cdat->dclo_821__TRANSLATE_MATCHCASE.nbval = 0; - - /*iniobj dsym_822__DISCR_INTEGER*/ -/*uniqueobj*/ if (!/*_.VALDATA___V895*/ meltfptr[894]) /*_.VALDATA___V895*/ meltfptr[894] = (void*)&cdat->dsym_822__DISCR_INTEGER; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_822__DISCR_INTEGER", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_822__DISCR_INTEGER", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); - cdat->dsym_822__DISCR_INTEGER.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_822__DISCR_INTEGER.obj_hash = 119182103; - cdat->dsym_822__DISCR_INTEGER.obj_len = 3; - - /*inistring dstr_823__DISCR_INTEGER*/ - /*_.VALSTR___V896*/ meltfptr[895] = (void*)&cdat->dstr_823__DISCR_INTEGER; - cdat->dstr_823__DISCR_INTEGER.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_823__DISCR_INTEGER.val, "DISCR_INTEGER", sizeof (cdat->dstr_823__DISCR_INTEGER.val)-1); - - /*inirout drout_824__LAMBDA_*/ - /*_.VALROUT___V893*/ meltfptr[892] = (void*)&cdat->drout_824__LAMBDA_; - cdat->drout_824__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); - strncpy(cdat->drout_824__LAMBDA_.routdescr, "LAMBDA_ @warmelt-normatch.melt:3674", MELT_ROUTDESCR_LEN - 1); - cdat->drout_824__LAMBDA_.nbval = 2; - MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_824__LAMBDA_, meltrout_77_warmelt_normatch_LAMBDA_); - - /*iniobj dsym_825__COMPARE_NAMED_ALPHA*/ -/*uniqueobj*/ if (!/*_.VALDATA___V897*/ meltfptr[896]) /*_.VALDATA___V897*/ meltfptr[896] = (void*)&cdat->dsym_825__COMPARE_NAMED_ALPHA; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_825__COMPARE_NAMED_ALPHA", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_825__COMPARE_NAMED_ALPHA", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); - cdat->dsym_825__COMPARE_NAMED_ALPHA.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_825__COMPARE_NAMED_ALPHA.obj_hash = 155514911; - cdat->dsym_825__COMPARE_NAMED_ALPHA.obj_len = 3; - - /*inistring dstr_826__COMPARE_NAMED_AL*/ - /*_.VALSTR___V898*/ meltfptr[897] = (void*)&cdat->dstr_826__COMPARE_NAMED_AL; - cdat->dstr_826__COMPARE_NAMED_AL.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_826__COMPARE_NAMED_AL.val, "COMPARE_NAMED_ALPHA", sizeof (cdat->dstr_826__COMPARE_NAMED_AL.val)-1); - - /*inirout drout_827__NORMEXP_ALTMATCH*/ - /*_.VALROUT___V899*/ meltfptr[898] = (void*)&cdat->drout_827__NORMEXP_ALTMATCH; - cdat->drout_827__NORMEXP_ALTMATCH.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); - strncpy(cdat->drout_827__NORMEXP_ALTMATCH.routdescr, "NORMEXP_ALTMATCH @warmelt-normatch.melt:3689", MELT_ROUTDESCR_LEN - 1); - cdat->drout_827__NORMEXP_ALTMATCH.nbval = 22; - MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_827__NORMEXP_ALTMATCH, meltrout_78_warmelt_normatch_NORMEXP_ALTMATCH); - - /*iniclos dclo_828__NORMEXP_ALTMATCH*/ - /*_.VALCLO___V914*/ meltfptr[913] = (void*)&cdat->dclo_828__NORMEXP_ALTMATCH; - cdat->dclo_828__NORMEXP_ALTMATCH.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); - cdat->dclo_828__NORMEXP_ALTMATCH.nbval = 0; - - /*iniobj dsym_829__MATCHED_DATA*/ -/*uniqueobj*/ if (!/*_.VALDATA___V900*/ meltfptr[899]) /*_.VALDATA___V900*/ meltfptr[899] = (void*)&cdat->dsym_829__MATCHED_DATA; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_829__MATCHED_DATA", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_829__MATCHED_DATA", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); - cdat->dsym_829__MATCHED_DATA.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_829__MATCHED_DATA.obj_hash = 689390853; - cdat->dsym_829__MATCHED_DATA.obj_len = 3; - - /*inistring dstr_830__MATCHED_DATA*/ - /*_.VALSTR___V901*/ meltfptr[900] = (void*)&cdat->dstr_830__MATCHED_DATA; - cdat->dstr_830__MATCHED_DATA.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_830__MATCHED_DATA.val, "_MATCHED_DATA", sizeof (cdat->dstr_830__MATCHED_DATA.val)-1); - - /*inirout drout_831__ALTERNATE_MATCH_OPTSET*/ - /*_.VALROUT___V915*/ meltfptr[914] = (void*)&cdat->drout_831__ALTERNATE_MATCH_OPTSET; - cdat->drout_831__ALTERNATE_MATCH_OPTSET.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); - strncpy(cdat->drout_831__ALTERNATE_MATCH_OPTSET.routdescr, "ALTERNATE_MATCH_OPTSET @warmelt-normatch.melt:3766", MELT_ROUTDESCR_LEN - 1); - cdat->drout_831__ALTERNATE_MATCH_OPTSET.nbval = 5; - MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_831__ALTERNATE_MATCH_OPTSET, meltrout_79_warmelt_normatch_ALTERNATE_MATCH_OPTSET); - - /*iniclos dclo_832__ALTERNATE_MATCH_OPTSET*/ - /*_.VALCLO___V916*/ meltfptr[915] = (void*)&cdat->dclo_832__ALTERNATE_MATCH_OPTSET; - cdat->dclo_832__ALTERNATE_MATCH_OPTSET.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); - cdat->dclo_832__ALTERNATE_MATCH_OPTSET.nbval = 0; - - /*iniobj dsym_833__ALTERNATE_MATCH*/ -/*uniqueobj*/ if (!/*_.VALDATA___V917*/ meltfptr[916]) /*_.VALDATA___V917*/ meltfptr[916] = (void*)&cdat->dsym_833__ALTERNATE_MATCH; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_833__ALTERNATE_MATCH", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_833__ALTERNATE_MATCH", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); - cdat->dsym_833__ALTERNATE_MATCH.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_833__ALTERNATE_MATCH.obj_hash = 241789071; - cdat->dsym_833__ALTERNATE_MATCH.obj_len = 3; - - /*inistring dstr_834__ALTERNATE_MATCH*/ - /*_.VALSTR___V918*/ meltfptr[917] = (void*)&cdat->dstr_834__ALTERNATE_MATCH; - cdat->dstr_834__ALTERNATE_MATCH.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_834__ALTERNATE_MATCH.val, "ALTERNATE_MATCH", sizeof (cdat->dstr_834__ALTERNATE_MATCH.val)-1); - - /*inistring dstr_835__Enable_alternate*/ - /*_.VALSTR___V919*/ meltfptr[918] = (void*)&cdat->dstr_835__Enable_alternate; - cdat->dstr_835__Enable_alternate.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - strncpy(cdat->dstr_835__Enable_alternate.val, "Enable alternate pattern-matching implementation", sizeof (cdat->dstr_835__Enable_alternate.val)-1); - - /*inirout drout_836__MG_ALTDRAW_GRAPHVIZ*/ - /*_.VALROUT___V903*/ meltfptr[902] = (void*)&cdat->drout_836__MG_ALTDRAW_GRAPHVIZ; - cdat->drout_836__MG_ALTDRAW_GRAPHVIZ.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); - strncpy(cdat->drout_836__MG_ALTDRAW_GRAPHVIZ.routdescr, "MG_ALTDRAW_GRAPHVIZ @warmelt-normatch.melt:3781", MELT_ROUTDESCR_LEN - 1); - cdat->drout_836__MG_ALTDRAW_GRAPHVIZ.nbval = 31; - MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_836__MG_ALTDRAW_GRAPHVIZ, meltrout_80_warmelt_normatch_MG_ALTDRAW_GRAPHVIZ); - - /*iniclos dclo_837__MG_ALTDRAW_GRAPHVIZ*/ - /*_.VALCLO___V902*/ meltfptr[901] = (void*)&cdat->dclo_837__MG_ALTDRAW_GRAPHVIZ; - cdat->dclo_837__MG_ALTDRAW_GRAPHVIZ.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); - cdat->dclo_837__MG_ALTDRAW_GRAPHVIZ.nbval = 0; - - /*inirout drout_838__LAMBDA_*/ - /*_.VALROUT___V904*/ meltfptr[903] = (void*)&cdat->drout_838__LAMBDA_; - cdat->drout_838__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); - strncpy(cdat->drout_838__LAMBDA_.routdescr, "LAMBDA_ @warmelt-normatch.melt:3818", MELT_ROUTDESCR_LEN - 1); - cdat->drout_838__LAMBDA_.nbval = 6; - MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_838__LAMBDA_, meltrout_81_warmelt_normatch_LAMBDA_); - - /*inirout drout_839__LAMBDA_*/ - /*_.VALROUT___V905*/ meltfptr[904] = (void*)&cdat->drout_839__LAMBDA_; - cdat->drout_839__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); - strncpy(cdat->drout_839__LAMBDA_.routdescr, "LAMBDA_ @warmelt-normatch.melt:3848", MELT_ROUTDESCR_LEN - 1); - cdat->drout_839__LAMBDA_.nbval = 8; - MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_839__LAMBDA_, meltrout_82_warmelt_normatch_LAMBDA_); - - /*inirout drout_840__LAMBDA_*/ - /*_.VALROUT___V906*/ meltfptr[905] = (void*)&cdat->drout_840__LAMBDA_; - cdat->drout_840__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); - strncpy(cdat->drout_840__LAMBDA_.routdescr, "LAMBDA_ @warmelt-normatch.melt:3909", MELT_ROUTDESCR_LEN - 1); - cdat->drout_840__LAMBDA_.nbval = 3; - MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_840__LAMBDA_, meltrout_83_warmelt_normatch_LAMBDA_); - - /*iniboxint dint_841__*/ - /*_.VALBXINT___V907*/ meltfptr[906] = (void*)&cdat->dint_841__; - cdat->dint_841__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CONSTANT_INTEGER)))); - cdat->dint_841__.val = -1; - - /*iniboxint dint_842__*/ - /*_.VALBXINT___V908*/ meltfptr[907] = (void*)&cdat->dint_842__; - cdat->dint_842__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CONSTANT_INTEGER)))); - cdat->dint_842__.val = 1; - - /*iniboxint dint_843__*/ - /*_.VALBXINT___V909*/ meltfptr[908] = (void*)&cdat->dint_843__; - cdat->dint_843__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CONSTANT_INTEGER)))); - cdat->dint_843__.val = 0; - - /*inirout drout_844__LAMBDA_*/ - /*_.VALROUT___V910*/ meltfptr[909] = (void*)&cdat->drout_844__LAMBDA_; - cdat->drout_844__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); - strncpy(cdat->drout_844__LAMBDA_.routdescr, "LAMBDA_ @warmelt-normatch.melt:3928", MELT_ROUTDESCR_LEN - 1); - cdat->drout_844__LAMBDA_.nbval = 3; - MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_844__LAMBDA_, meltrout_84_warmelt_normatch_LAMBDA_); - - /*iniboxint dint_845__*/ - /*_.VALBXINT___V911*/ meltfptr[910] = (void*)&cdat->dint_845__; - cdat->dint_845__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CONSTANT_INTEGER)))); - cdat->dint_845__.val = -1; - - /*iniboxint dint_846__*/ - /*_.VALBXINT___V912*/ meltfptr[911] = (void*)&cdat->dint_846__; - cdat->dint_846__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CONSTANT_INTEGER)))); - cdat->dint_846__.val = 1; - - /*iniboxint dint_847__*/ - /*_.VALBXINT___V913*/ meltfptr[912] = (void*)&cdat->dint_847__; - cdat->dint_847__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CONSTANT_INTEGER)))); - cdat->dint_847__.val = 0; + /*iniobj dobj_852__TRANSLATE_PATTERN*/ +/*_.VALDATA___V925*/ meltfptr[924] = (void*)&cdat->dobj_852__TRANSLATE_PATTERN; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_852__TRANSLATE_PATTERN", melt_magic_discr (/*_.CLASS_SELECTOR__V8*/ meltfptr[7]) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_852__TRANSLATE_PATTERN", ((meltobject_ptr_t) (/*_.CLASS_SELECTOR__V8*/ meltfptr[7]))->object_magic == OBMAG_OBJECT); + cdat->dobj_852__TRANSLATE_PATTERN.obj_class = (meltobject_ptr_t)(/*_.CLASS_SELECTOR__V8*/ meltfptr[7]); + cdat->dobj_852__TRANSLATE_PATTERN.obj_hash = 374118111; + cdat->dobj_852__TRANSLATE_PATTERN.obj_len = 4; + + /*inistring dstr_853__TRANSLATE_PATTER*/ + /*_.VALSTR___V926*/ meltfptr[925] = (void*)&cdat->dstr_853__TRANSLATE_PATTER; + cdat->dstr_853__TRANSLATE_PATTER.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_853__TRANSLATE_PATTER.val, "TRANSLATE_PATTERN", sizeof (cdat->dstr_853__TRANSLATE_PATTER.val)-1); + + /*inirout drout_854__TRANSLPAT_ANYRECV*/ + /*_.VALROUT___V927*/ meltfptr[926] = (void*)&cdat->drout_854__TRANSLPAT_ANYRECV; + cdat->drout_854__TRANSLPAT_ANYRECV.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); + strncpy(cdat->drout_854__TRANSLPAT_ANYRECV.routdescr, "TRANSLPAT_ANYRECV @warmelt-normatch.melt:2920", MELT_ROUTDESCR_LEN - 1); + cdat->drout_854__TRANSLPAT_ANYRECV.nbval = 1; + MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_854__TRANSLPAT_ANYRECV, meltrout_65_warmelt_normatch_TRANSLPAT_ANYRECV); + + /*iniclos dclo_855__TRANSLPAT_ANYRECV*/ + /*_.VALCLO___V928*/ meltfptr[927] = (void*)&cdat->dclo_855__TRANSLPAT_ANYRECV; + cdat->dclo_855__TRANSLPAT_ANYRECV.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); + cdat->dclo_855__TRANSLPAT_ANYRECV.nbval = 0; + + /*inirout drout_856__TRANSLPAT_JOKERPAT*/ + /*_.VALROUT___V929*/ meltfptr[928] = (void*)&cdat->drout_856__TRANSLPAT_JOKERPAT; + cdat->drout_856__TRANSLPAT_JOKERPAT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); + strncpy(cdat->drout_856__TRANSLPAT_JOKERPAT.routdescr, "TRANSLPAT_JOKERPAT @warmelt-normatch.melt:2930", MELT_ROUTDESCR_LEN - 1); + cdat->drout_856__TRANSLPAT_JOKERPAT.nbval = 2; + MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_856__TRANSLPAT_JOKERPAT, meltrout_66_warmelt_normatch_TRANSLPAT_JOKERPAT); + + /*iniclos dclo_857__TRANSLPAT_JOKERPAT*/ + /*_.VALCLO___V930*/ meltfptr[929] = (void*)&cdat->dclo_857__TRANSLPAT_JOKERPAT; + cdat->dclo_857__TRANSLPAT_JOKERPAT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); + cdat->dclo_857__TRANSLPAT_JOKERPAT.nbval = 0; + + /*inirout drout_858__TRANSLPAT_INSPAT*/ + /*_.VALROUT___V931*/ meltfptr[930] = (void*)&cdat->drout_858__TRANSLPAT_INSPAT; + cdat->drout_858__TRANSLPAT_INSPAT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); + strncpy(cdat->drout_858__TRANSLPAT_INSPAT.routdescr, "TRANSLPAT_INSPAT @warmelt-normatch.melt:2940", MELT_ROUTDESCR_LEN - 1); + cdat->drout_858__TRANSLPAT_INSPAT.nbval = 24; + MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_858__TRANSLPAT_INSPAT, meltrout_67_warmelt_normatch_TRANSLPAT_INSPAT); + + /*iniclos dclo_859__TRANSLPAT_INSPAT*/ + /*_.VALCLO___V932*/ meltfptr[931] = (void*)&cdat->dclo_859__TRANSLPAT_INSPAT; + cdat->dclo_859__TRANSLPAT_INSPAT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); + cdat->dclo_859__TRANSLPAT_INSPAT.nbval = 0; + + /*inirout drout_860__TRANSLPAT_VARPAT*/ + /*_.VALROUT___V933*/ meltfptr[932] = (void*)&cdat->drout_860__TRANSLPAT_VARPAT; + cdat->drout_860__TRANSLPAT_VARPAT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); + strncpy(cdat->drout_860__TRANSLPAT_VARPAT.routdescr, "TRANSLPAT_VARPAT @warmelt-normatch.melt:3098", MELT_ROUTDESCR_LEN - 1); + cdat->drout_860__TRANSLPAT_VARPAT.nbval = 13; + MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_860__TRANSLPAT_VARPAT, meltrout_68_warmelt_normatch_TRANSLPAT_VARPAT); + + /*iniclos dclo_861__TRANSLPAT_VARPAT*/ + /*_.VALCLO___V934*/ meltfptr[933] = (void*)&cdat->dclo_861__TRANSLPAT_VARPAT; + cdat->dclo_861__TRANSLPAT_VARPAT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); + cdat->dclo_861__TRANSLPAT_VARPAT.nbval = 0; + + /*inirout drout_862__TRANSLPAT_ANDPAT*/ + /*_.VALROUT___V935*/ meltfptr[934] = (void*)&cdat->drout_862__TRANSLPAT_ANDPAT; + cdat->drout_862__TRANSLPAT_ANDPAT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); + strncpy(cdat->drout_862__TRANSLPAT_ANDPAT.routdescr, "TRANSLPAT_ANDPAT @warmelt-normatch.melt:3176", MELT_ROUTDESCR_LEN - 1); + cdat->drout_862__TRANSLPAT_ANDPAT.nbval = 15; + MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_862__TRANSLPAT_ANDPAT, meltrout_69_warmelt_normatch_TRANSLPAT_ANDPAT); + + /*iniclos dclo_863__TRANSLPAT_ANDPAT*/ + /*_.VALCLO___V937*/ meltfptr[936] = (void*)&cdat->dclo_863__TRANSLPAT_ANDPAT; + cdat->dclo_863__TRANSLPAT_ANDPAT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); + cdat->dclo_863__TRANSLPAT_ANDPAT.nbval = 0; + + /*inistring dstr_864__and*/ + /*_.VALSTR___V936*/ meltfptr[935] = (void*)&cdat->dstr_864__and; + cdat->dstr_864__and.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_864__and.val, "and", sizeof (cdat->dstr_864__and.val)-1); + + /*inirout drout_865__TRANSLPAT_ORPAT*/ + /*_.VALROUT___V938*/ meltfptr[937] = (void*)&cdat->drout_865__TRANSLPAT_ORPAT; + cdat->drout_865__TRANSLPAT_ORPAT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); + strncpy(cdat->drout_865__TRANSLPAT_ORPAT.routdescr, "TRANSLPAT_ORPAT @warmelt-normatch.melt:3259", MELT_ROUTDESCR_LEN - 1); + cdat->drout_865__TRANSLPAT_ORPAT.nbval = 10; + MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_865__TRANSLPAT_ORPAT, meltrout_70_warmelt_normatch_TRANSLPAT_ORPAT); + + /*iniclos dclo_866__TRANSLPAT_ORPAT*/ + /*_.VALCLO___V940*/ meltfptr[939] = (void*)&cdat->dclo_866__TRANSLPAT_ORPAT; + cdat->dclo_866__TRANSLPAT_ORPAT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); + cdat->dclo_866__TRANSLPAT_ORPAT.nbval = 0; + + /*inistring dstr_867__or*/ + /*_.VALSTR___V939*/ meltfptr[938] = (void*)&cdat->dstr_867__or; + cdat->dstr_867__or.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_867__or.val, "or", sizeof (cdat->dstr_867__or.val)-1); + + /*inirout drout_868__TRANSLPAT_PATMAT*/ + /*_.VALROUT___V941*/ meltfptr[940] = (void*)&cdat->drout_868__TRANSLPAT_PATMAT; + cdat->drout_868__TRANSLPAT_PATMAT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); + strncpy(cdat->drout_868__TRANSLPAT_PATMAT.routdescr, "TRANSLPAT_PATMAT @warmelt-normatch.melt:3310", MELT_ROUTDESCR_LEN - 1); + cdat->drout_868__TRANSLPAT_PATMAT.nbval = 28; + MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_868__TRANSLPAT_PATMAT, meltrout_71_warmelt_normatch_TRANSLPAT_PATMAT); + + /*iniclos dclo_869__TRANSLPAT_PATMAT*/ + /*_.VALCLO___V942*/ meltfptr[941] = (void*)&cdat->dclo_869__TRANSLPAT_PATMAT; + cdat->dclo_869__TRANSLPAT_PATMAT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); + cdat->dclo_869__TRANSLPAT_PATMAT.nbval = 0; + + /*iniobj dsym_870__MATCHGRAPHIC_ALTSTEP*/ +/*uniqueobj*/ if (!/*_.VALDATA___V943*/ meltfptr[942]) /*_.VALDATA___V943*/ meltfptr[942] = (void*)&cdat->dsym_870__MATCHGRAPHIC_ALTSTEP; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_870__MATCHGRAPHIC_ALTSTEP", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_870__MATCHGRAPHIC_ALTSTEP", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); + cdat->dsym_870__MATCHGRAPHIC_ALTSTEP.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_870__MATCHGRAPHIC_ALTSTEP.obj_hash = 562594089; + cdat->dsym_870__MATCHGRAPHIC_ALTSTEP.obj_len = 3; + + /*inistring dstr_871__MATCHGRAPHIC_ALT*/ + /*_.VALSTR___V944*/ meltfptr[943] = (void*)&cdat->dstr_871__MATCHGRAPHIC_ALT; + cdat->dstr_871__MATCHGRAPHIC_ALT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_871__MATCHGRAPHIC_ALT.val, "MATCHGRAPHIC_ALTSTEP", sizeof (cdat->dstr_871__MATCHGRAPHIC_ALT.val)-1); + + MELT_LOCATION("warmelt-normatch.melt:3531:/ iniobj"); + /*iniobj dobj_872__MATCHGRAPHIC_ALTSTEP*/ +/*_.VALDATA___V945*/ meltfptr[944] = (void*)&cdat->dobj_872__MATCHGRAPHIC_ALTSTEP; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_872__MATCHGRAPHIC_ALTSTEP", melt_magic_discr (/*_.CLASS_SELECTOR__V8*/ meltfptr[7]) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_872__MATCHGRAPHIC_ALTSTEP", ((meltobject_ptr_t) (/*_.CLASS_SELECTOR__V8*/ meltfptr[7]))->object_magic == OBMAG_OBJECT); + cdat->dobj_872__MATCHGRAPHIC_ALTSTEP.obj_class = (meltobject_ptr_t)(/*_.CLASS_SELECTOR__V8*/ meltfptr[7]); + cdat->dobj_872__MATCHGRAPHIC_ALTSTEP.obj_hash = 938863564; + cdat->dobj_872__MATCHGRAPHIC_ALTSTEP.obj_len = 4; + + /*inistring dstr_873__MATCHGRAPHIC_ALT*/ + /*_.VALSTR___V946*/ meltfptr[945] = (void*)&cdat->dstr_873__MATCHGRAPHIC_ALT; + cdat->dstr_873__MATCHGRAPHIC_ALT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_873__MATCHGRAPHIC_ALT.val, "MATCHGRAPHIC_ALTSTEP", sizeof (cdat->dstr_873__MATCHGRAPHIC_ALT.val)-1); + + /*inirout drout_874__MGALTSTEP_STEPTESTVAR*/ + /*_.VALROUT___V947*/ meltfptr[946] = (void*)&cdat->drout_874__MGALTSTEP_STEPTESTVAR; + cdat->drout_874__MGALTSTEP_STEPTESTVAR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); + strncpy(cdat->drout_874__MGALTSTEP_STEPTESTVAR.routdescr, "MGALTSTEP_STEPTESTVAR @warmelt-normatch.melt:3538", MELT_ROUTDESCR_LEN - 1); + cdat->drout_874__MGALTSTEP_STEPTESTVAR.nbval = 5; + MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_874__MGALTSTEP_STEPTESTVAR, meltrout_72_warmelt_normatch_MGALTSTEP_STEPTESTVAR); + + /*iniclos dclo_875__MGALTSTEP_STEPTESTVAR*/ + /*_.VALCLO___V948*/ meltfptr[947] = (void*)&cdat->dclo_875__MGALTSTEP_STEPTESTVAR; + cdat->dclo_875__MGALTSTEP_STEPTESTVAR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); + cdat->dclo_875__MGALTSTEP_STEPTESTVAR.nbval = 0; + + /*inirout drout_876__MGALTSTEP_STEPTESTINST*/ + /*_.VALROUT___V949*/ meltfptr[948] = (void*)&cdat->drout_876__MGALTSTEP_STEPTESTINST; + cdat->drout_876__MGALTSTEP_STEPTESTINST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); + strncpy(cdat->drout_876__MGALTSTEP_STEPTESTINST.routdescr, "MGALTSTEP_STEPTESTINST @warmelt-normatch.melt:3600", MELT_ROUTDESCR_LEN - 1); + cdat->drout_876__MGALTSTEP_STEPTESTINST.nbval = 7; + MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_876__MGALTSTEP_STEPTESTINST, meltrout_73_warmelt_normatch_MGALTSTEP_STEPTESTINST); + + /*iniclos dclo_877__MGALTSTEP_STEPTESTINST*/ + /*_.VALCLO___V950*/ meltfptr[949] = (void*)&cdat->dclo_877__MGALTSTEP_STEPTESTINST; + cdat->dclo_877__MGALTSTEP_STEPTESTINST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); + cdat->dclo_877__MGALTSTEP_STEPTESTINST.nbval = 0; + + /*inirout drout_878__MGALTSTEP_STEPTESTGROUP*/ + /*_.VALROUT___V951*/ meltfptr[950] = (void*)&cdat->drout_878__MGALTSTEP_STEPTESTGROUP; + cdat->drout_878__MGALTSTEP_STEPTESTGROUP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); + strncpy(cdat->drout_878__MGALTSTEP_STEPTESTGROUP.routdescr, "MGALTSTEP_STEPTESTGROUP @warmelt-normatch.melt:3675", MELT_ROUTDESCR_LEN - 1); + cdat->drout_878__MGALTSTEP_STEPTESTGROUP.nbval = 4; + MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_878__MGALTSTEP_STEPTESTGROUP, meltrout_74_warmelt_normatch_MGALTSTEP_STEPTESTGROUP); + + /*iniclos dclo_879__MGALTSTEP_STEPTESTGROUP*/ + /*_.VALCLO___V952*/ meltfptr[951] = (void*)&cdat->dclo_879__MGALTSTEP_STEPTESTGROUP; + cdat->dclo_879__MGALTSTEP_STEPTESTGROUP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); + cdat->dclo_879__MGALTSTEP_STEPTESTGROUP.nbval = 0; + + /*inirout drout_880__MGALTSTEP_STEPTESTMATCHER*/ + /*_.VALROUT___V953*/ meltfptr[952] = (void*)&cdat->drout_880__MGALTSTEP_STEPTESTMATCHER; + cdat->drout_880__MGALTSTEP_STEPTESTMATCHER.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); + strncpy(cdat->drout_880__MGALTSTEP_STEPTESTMATCHER.routdescr, "MGALTSTEP_STEPTESTMATCHER @warmelt-normatch.melt:3725", MELT_ROUTDESCR_LEN - 1); + cdat->drout_880__MGALTSTEP_STEPTESTMATCHER.nbval = 8; + MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_880__MGALTSTEP_STEPTESTMATCHER, meltrout_75_warmelt_normatch_MGALTSTEP_STEPTESTMATCHER); + + /*iniclos dclo_881__MGALTSTEP_STEPTESTMATCHER*/ + /*_.VALCLO___V954*/ meltfptr[953] = (void*)&cdat->dclo_881__MGALTSTEP_STEPTESTMATCHER; + cdat->dclo_881__MGALTSTEP_STEPTESTMATCHER.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); + cdat->dclo_881__MGALTSTEP_STEPTESTMATCHER.nbval = 0; + + /*inirout drout_882__MGALTSTEP_STEPSUCCESS*/ + /*_.VALROUT___V955*/ meltfptr[954] = (void*)&cdat->drout_882__MGALTSTEP_STEPSUCCESS; + cdat->drout_882__MGALTSTEP_STEPSUCCESS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); + strncpy(cdat->drout_882__MGALTSTEP_STEPSUCCESS.routdescr, "MGALTSTEP_STEPSUCCESS @warmelt-normatch.melt:3802", MELT_ROUTDESCR_LEN - 1); + cdat->drout_882__MGALTSTEP_STEPSUCCESS.nbval = 4; + MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_882__MGALTSTEP_STEPSUCCESS, meltrout_76_warmelt_normatch_MGALTSTEP_STEPSUCCESS); + + /*iniclos dclo_883__MGALTSTEP_STEPSUCCESS*/ + /*_.VALCLO___V956*/ meltfptr[955] = (void*)&cdat->dclo_883__MGALTSTEP_STEPSUCCESS; + cdat->dclo_883__MGALTSTEP_STEPSUCCESS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); + cdat->dclo_883__MGALTSTEP_STEPSUCCESS.nbval = 0; + + /*inirout drout_884__MGALTSTEP_STEPFLAGSET*/ + /*_.VALROUT___V957*/ meltfptr[956] = (void*)&cdat->drout_884__MGALTSTEP_STEPFLAGSET; + cdat->drout_884__MGALTSTEP_STEPFLAGSET.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); + strncpy(cdat->drout_884__MGALTSTEP_STEPFLAGSET.routdescr, "MGALTSTEP_STEPFLAGSET @warmelt-normatch.melt:3843", MELT_ROUTDESCR_LEN - 1); + cdat->drout_884__MGALTSTEP_STEPFLAGSET.nbval = 6; + MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_884__MGALTSTEP_STEPFLAGSET, meltrout_77_warmelt_normatch_MGALTSTEP_STEPFLAGSET); + + /*iniclos dclo_885__MGALTSTEP_STEPFLAGSET*/ + /*_.VALCLO___V958*/ meltfptr[957] = (void*)&cdat->dclo_885__MGALTSTEP_STEPFLAGSET; + cdat->dclo_885__MGALTSTEP_STEPFLAGSET.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); + cdat->dclo_885__MGALTSTEP_STEPFLAGSET.nbval = 0; + + /*inirout drout_886__MGALTSTEP_STEPFLAGOPER*/ + /*_.VALROUT___V959*/ meltfptr[958] = (void*)&cdat->drout_886__MGALTSTEP_STEPFLAGOPER; + cdat->drout_886__MGALTSTEP_STEPFLAGOPER.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); + strncpy(cdat->drout_886__MGALTSTEP_STEPFLAGOPER.routdescr, "MGALTSTEP_STEPFLAGOPER @warmelt-normatch.melt:3895", MELT_ROUTDESCR_LEN - 1); + cdat->drout_886__MGALTSTEP_STEPFLAGOPER.nbval = 7; + MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_886__MGALTSTEP_STEPFLAGOPER, meltrout_78_warmelt_normatch_MGALTSTEP_STEPFLAGOPER); + + /*iniclos dclo_887__MGALTSTEP_STEPFLAGOPER*/ + /*_.VALCLO___V960*/ meltfptr[959] = (void*)&cdat->dclo_887__MGALTSTEP_STEPFLAGOPER; + cdat->dclo_887__MGALTSTEP_STEPFLAGOPER.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); + cdat->dclo_887__MGALTSTEP_STEPFLAGOPER.nbval = 0; + + /*inirout drout_888__TRANSLATE_MATCHCASE*/ + /*_.VALROUT___V961*/ meltfptr[960] = (void*)&cdat->drout_888__TRANSLATE_MATCHCASE; + cdat->drout_888__TRANSLATE_MATCHCASE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); + strncpy(cdat->drout_888__TRANSLATE_MATCHCASE.routdescr, "TRANSLATE_MATCHCASE @warmelt-normatch.melt:3977", MELT_ROUTDESCR_LEN - 1); + cdat->drout_888__TRANSLATE_MATCHCASE.nbval = 25; + MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_888__TRANSLATE_MATCHCASE, meltrout_79_warmelt_normatch_TRANSLATE_MATCHCASE); + + /*iniclos dclo_889__TRANSLATE_MATCHCASE*/ + /*_.VALCLO___V963*/ meltfptr[962] = (void*)&cdat->dclo_889__TRANSLATE_MATCHCASE; + cdat->dclo_889__TRANSLATE_MATCHCASE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); + cdat->dclo_889__TRANSLATE_MATCHCASE.nbval = 0; + + /*iniobj dsym_890__DISCR_INTEGER*/ +/*uniqueobj*/ if (!/*_.VALDATA___V964*/ meltfptr[963]) /*_.VALDATA___V964*/ meltfptr[963] = (void*)&cdat->dsym_890__DISCR_INTEGER; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_890__DISCR_INTEGER", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_890__DISCR_INTEGER", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); + cdat->dsym_890__DISCR_INTEGER.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_890__DISCR_INTEGER.obj_hash = 119182103; + cdat->dsym_890__DISCR_INTEGER.obj_len = 3; + + /*inistring dstr_891__DISCR_INTEGER*/ + /*_.VALSTR___V965*/ meltfptr[964] = (void*)&cdat->dstr_891__DISCR_INTEGER; + cdat->dstr_891__DISCR_INTEGER.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_891__DISCR_INTEGER.val, "DISCR_INTEGER", sizeof (cdat->dstr_891__DISCR_INTEGER.val)-1); + + /*inirout drout_892__LAMBDA_*/ + /*_.VALROUT___V962*/ meltfptr[961] = (void*)&cdat->drout_892__LAMBDA_; + cdat->drout_892__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); + strncpy(cdat->drout_892__LAMBDA_.routdescr, "LAMBDA_ @warmelt-normatch.melt:4065", MELT_ROUTDESCR_LEN - 1); + cdat->drout_892__LAMBDA_.nbval = 2; + MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_892__LAMBDA_, meltrout_80_warmelt_normatch_LAMBDA_); + + /*iniobj dsym_893__COMPARE_NAMED_ALPHA*/ +/*uniqueobj*/ if (!/*_.VALDATA___V966*/ meltfptr[965]) /*_.VALDATA___V966*/ meltfptr[965] = (void*)&cdat->dsym_893__COMPARE_NAMED_ALPHA; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_893__COMPARE_NAMED_ALPHA", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_893__COMPARE_NAMED_ALPHA", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); + cdat->dsym_893__COMPARE_NAMED_ALPHA.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_893__COMPARE_NAMED_ALPHA.obj_hash = 155514911; + cdat->dsym_893__COMPARE_NAMED_ALPHA.obj_len = 3; + + /*inistring dstr_894__COMPARE_NAMED_AL*/ + /*_.VALSTR___V967*/ meltfptr[966] = (void*)&cdat->dstr_894__COMPARE_NAMED_AL; + cdat->dstr_894__COMPARE_NAMED_AL.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_894__COMPARE_NAMED_AL.val, "COMPARE_NAMED_ALPHA", sizeof (cdat->dstr_894__COMPARE_NAMED_AL.val)-1); + + /*inirout drout_895__NORMEXP_ALTMATCH*/ + /*_.VALROUT___V968*/ meltfptr[967] = (void*)&cdat->drout_895__NORMEXP_ALTMATCH; + cdat->drout_895__NORMEXP_ALTMATCH.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); + strncpy(cdat->drout_895__NORMEXP_ALTMATCH.routdescr, "NORMEXP_ALTMATCH @warmelt-normatch.melt:4088", MELT_ROUTDESCR_LEN - 1); + cdat->drout_895__NORMEXP_ALTMATCH.nbval = 22; + MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_895__NORMEXP_ALTMATCH, meltrout_81_warmelt_normatch_NORMEXP_ALTMATCH); + + /*iniclos dclo_896__NORMEXP_ALTMATCH*/ + /*_.VALCLO___V983*/ meltfptr[982] = (void*)&cdat->dclo_896__NORMEXP_ALTMATCH; + cdat->dclo_896__NORMEXP_ALTMATCH.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); + cdat->dclo_896__NORMEXP_ALTMATCH.nbval = 0; + + /*iniobj dsym_897__MATCHED_DATA*/ +/*uniqueobj*/ if (!/*_.VALDATA___V969*/ meltfptr[968]) /*_.VALDATA___V969*/ meltfptr[968] = (void*)&cdat->dsym_897__MATCHED_DATA; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_897__MATCHED_DATA", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_897__MATCHED_DATA", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); + cdat->dsym_897__MATCHED_DATA.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_897__MATCHED_DATA.obj_hash = 689390853; + cdat->dsym_897__MATCHED_DATA.obj_len = 3; + + /*inistring dstr_898__MATCHED_DATA*/ + /*_.VALSTR___V970*/ meltfptr[969] = (void*)&cdat->dstr_898__MATCHED_DATA; + cdat->dstr_898__MATCHED_DATA.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_898__MATCHED_DATA.val, "_MATCHED_DATA", sizeof (cdat->dstr_898__MATCHED_DATA.val)-1); + + /*inirout drout_899__ALTERNATE_MATCH_OPTSET*/ + /*_.VALROUT___V984*/ meltfptr[983] = (void*)&cdat->drout_899__ALTERNATE_MATCH_OPTSET; + cdat->drout_899__ALTERNATE_MATCH_OPTSET.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); + strncpy(cdat->drout_899__ALTERNATE_MATCH_OPTSET.routdescr, "ALTERNATE_MATCH_OPTSET @warmelt-normatch.melt:4173", MELT_ROUTDESCR_LEN - 1); + cdat->drout_899__ALTERNATE_MATCH_OPTSET.nbval = 5; + MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_899__ALTERNATE_MATCH_OPTSET, meltrout_82_warmelt_normatch_ALTERNATE_MATCH_OPTSET); + + /*iniclos dclo_900__ALTERNATE_MATCH_OPTSET*/ + /*_.VALCLO___V985*/ meltfptr[984] = (void*)&cdat->dclo_900__ALTERNATE_MATCH_OPTSET; + cdat->dclo_900__ALTERNATE_MATCH_OPTSET.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); + cdat->dclo_900__ALTERNATE_MATCH_OPTSET.nbval = 0; + + /*iniobj dsym_901__ALTERNATE_MATCH*/ +/*uniqueobj*/ if (!/*_.VALDATA___V986*/ meltfptr[985]) /*_.VALDATA___V986*/ meltfptr[985] = (void*)&cdat->dsym_901__ALTERNATE_MATCH; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_901__ALTERNATE_MATCH", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == OBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_901__ALTERNATE_MATCH", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->object_magic == OBMAG_OBJECT); + cdat->dsym_901__ALTERNATE_MATCH.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_901__ALTERNATE_MATCH.obj_hash = 241789071; + cdat->dsym_901__ALTERNATE_MATCH.obj_len = 3; + + /*inistring dstr_902__ALTERNATE_MATCH*/ + /*_.VALSTR___V987*/ meltfptr[986] = (void*)&cdat->dstr_902__ALTERNATE_MATCH; + cdat->dstr_902__ALTERNATE_MATCH.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_902__ALTERNATE_MATCH.val, "ALTERNATE_MATCH", sizeof (cdat->dstr_902__ALTERNATE_MATCH.val)-1); + + /*inistring dstr_903__Enable_alternate*/ + /*_.VALSTR___V988*/ meltfptr[987] = (void*)&cdat->dstr_903__Enable_alternate; + cdat->dstr_903__Enable_alternate.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + strncpy(cdat->dstr_903__Enable_alternate.val, "Enable alternate pattern-matching implementation", sizeof (cdat->dstr_903__Enable_alternate.val)-1); + + /*inirout drout_904__MG_ALTDRAW_GRAPHVIZ*/ + /*_.VALROUT___V972*/ meltfptr[971] = (void*)&cdat->drout_904__MG_ALTDRAW_GRAPHVIZ; + cdat->drout_904__MG_ALTDRAW_GRAPHVIZ.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); + strncpy(cdat->drout_904__MG_ALTDRAW_GRAPHVIZ.routdescr, "MG_ALTDRAW_GRAPHVIZ @warmelt-normatch.melt:4188", MELT_ROUTDESCR_LEN - 1); + cdat->drout_904__MG_ALTDRAW_GRAPHVIZ.nbval = 31; + MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_904__MG_ALTDRAW_GRAPHVIZ, meltrout_83_warmelt_normatch_MG_ALTDRAW_GRAPHVIZ); + + /*iniclos dclo_905__MG_ALTDRAW_GRAPHVIZ*/ + /*_.VALCLO___V971*/ meltfptr[970] = (void*)&cdat->dclo_905__MG_ALTDRAW_GRAPHVIZ; + cdat->dclo_905__MG_ALTDRAW_GRAPHVIZ.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); + cdat->dclo_905__MG_ALTDRAW_GRAPHVIZ.nbval = 0; + + /*inirout drout_906__LAMBDA_*/ + /*_.VALROUT___V973*/ meltfptr[972] = (void*)&cdat->drout_906__LAMBDA_; + cdat->drout_906__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); + strncpy(cdat->drout_906__LAMBDA_.routdescr, "LAMBDA_ @warmelt-normatch.melt:4225", MELT_ROUTDESCR_LEN - 1); + cdat->drout_906__LAMBDA_.nbval = 6; + MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_906__LAMBDA_, meltrout_84_warmelt_normatch_LAMBDA_); + + /*inirout drout_907__LAMBDA_*/ + /*_.VALROUT___V974*/ meltfptr[973] = (void*)&cdat->drout_907__LAMBDA_; + cdat->drout_907__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); + strncpy(cdat->drout_907__LAMBDA_.routdescr, "LAMBDA_ @warmelt-normatch.melt:4255", MELT_ROUTDESCR_LEN - 1); + cdat->drout_907__LAMBDA_.nbval = 8; + MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_907__LAMBDA_, meltrout_85_warmelt_normatch_LAMBDA_); + + /*inirout drout_908__LAMBDA_*/ + /*_.VALROUT___V975*/ meltfptr[974] = (void*)&cdat->drout_908__LAMBDA_; + cdat->drout_908__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); + strncpy(cdat->drout_908__LAMBDA_.routdescr, "LAMBDA_ @warmelt-normatch.melt:4316", MELT_ROUTDESCR_LEN - 1); + cdat->drout_908__LAMBDA_.nbval = 3; + MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_908__LAMBDA_, meltrout_86_warmelt_normatch_LAMBDA_); + + /*iniboxint dint_909__*/ + /*_.VALBXINT___V976*/ meltfptr[975] = (void*)&cdat->dint_909__; + cdat->dint_909__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CONSTANT_INTEGER)))); + cdat->dint_909__.val = -1; + + /*iniboxint dint_910__*/ + /*_.VALBXINT___V977*/ meltfptr[976] = (void*)&cdat->dint_910__; + cdat->dint_910__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CONSTANT_INTEGER)))); + cdat->dint_910__.val = 1; + + /*iniboxint dint_911__*/ + /*_.VALBXINT___V978*/ meltfptr[977] = (void*)&cdat->dint_911__; + cdat->dint_911__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CONSTANT_INTEGER)))); + cdat->dint_911__.val = 0; + + /*inirout drout_912__LAMBDA_*/ + /*_.VALROUT___V979*/ meltfptr[978] = (void*)&cdat->drout_912__LAMBDA_; + cdat->drout_912__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); + strncpy(cdat->drout_912__LAMBDA_.routdescr, "LAMBDA_ @warmelt-normatch.melt:4335", MELT_ROUTDESCR_LEN - 1); + cdat->drout_912__LAMBDA_.nbval = 3; + MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_912__LAMBDA_, meltrout_87_warmelt_normatch_LAMBDA_); + + /*iniboxint dint_913__*/ + /*_.VALBXINT___V980*/ meltfptr[979] = (void*)&cdat->dint_913__; + cdat->dint_913__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CONSTANT_INTEGER)))); + cdat->dint_913__.val = -1; + + /*iniboxint dint_914__*/ + /*_.VALBXINT___V981*/ meltfptr[980] = (void*)&cdat->dint_914__; + cdat->dint_914__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CONSTANT_INTEGER)))); + cdat->dint_914__.val = 1; + + /*iniboxint dint_915__*/ + /*_.VALBXINT___V982*/ meltfptr[981] = (void*)&cdat->dint_915__; + cdat->dint_915__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CONSTANT_INTEGER)))); + cdat->dint_915__.val = 0; cdat = NULL; melt_prohibit_garbcoll = FALSE; @@ -21503,7 +22022,7 @@ void* start_module_melt(void* modargp_) { initial_frame_st meltframe; #define meltfram__ meltframe memset(&meltfram__, 0, sizeof(meltfram__)); - meltfram__.nbvar = 976; + meltfram__.nbvar = 1047; meltfram__.prev = (struct callframe_melt_st *) melt_topframe; melt_topframe = (struct callframe_melt_st *) &meltfram__; /**initial routine prologue**/ @@ -21557,1366 +22076,1457 @@ initial_frame_st meltframe; /*getnamedsym:CLASS_PATTERN_CONTEXT*/ { melt_ptr_t sy_CLASS_PATTERN_CONTEXT = meltgc_named_symbol("CLASS_PATTERN_CONTEXT", MELT_GET); - if (sy_CLASS_PATTERN_CONTEXT && NULL == /*_.VALDATA___V73*/ meltfptr[72]) - /*_.VALDATA___V73*/ meltfptr[72] = (void*) sy_CLASS_PATTERN_CONTEXT; } + if (sy_CLASS_PATTERN_CONTEXT && NULL == /*_.VALDATA___V74*/ meltfptr[73]) + /*_.VALDATA___V74*/ meltfptr[73] = (void*) sy_CLASS_PATTERN_CONTEXT; } /*^getnamedsymbol*/ /*getnamedsym:CLASS_ROOT*/ { melt_ptr_t sy_CLASS_ROOT = meltgc_named_symbol("CLASS_ROOT", MELT_GET); - if (sy_CLASS_ROOT && NULL == /*_.VALDATA___V75*/ meltfptr[74]) - /*_.VALDATA___V75*/ meltfptr[74] = (void*) sy_CLASS_ROOT; } + if (sy_CLASS_ROOT && NULL == /*_.VALDATA___V76*/ meltfptr[75]) + /*_.VALDATA___V76*/ meltfptr[75] = (void*) sy_CLASS_ROOT; } /*^getnamedsymbol*/ /*getnamedsym:PCTN_NORMCTXT*/ { melt_ptr_t sy_PCTN_NORMCTXT = meltgc_named_symbol("PCTN_NORMCTXT", MELT_GET); - if (sy_PCTN_NORMCTXT && NULL == /*_.VALDATA___V103*/ meltfptr[102]) - /*_.VALDATA___V103*/ meltfptr[102] = (void*) sy_PCTN_NORMCTXT; } + if (sy_PCTN_NORMCTXT && NULL == /*_.VALDATA___V104*/ meltfptr[103]) + /*_.VALDATA___V104*/ meltfptr[103] = (void*) sy_PCTN_NORMCTXT; } /*^getnamedsymbol*/ /*getnamedsym:PCTN_SRC*/ { melt_ptr_t sy_PCTN_SRC = meltgc_named_symbol("PCTN_SRC", MELT_GET); - if (sy_PCTN_SRC && NULL == /*_.VALDATA___V105*/ meltfptr[104]) - /*_.VALDATA___V105*/ meltfptr[104] = (void*) sy_PCTN_SRC; } + if (sy_PCTN_SRC && NULL == /*_.VALDATA___V106*/ meltfptr[105]) + /*_.VALDATA___V106*/ meltfptr[105] = (void*) sy_PCTN_SRC; } /*^getnamedsymbol*/ /*getnamedsym:PCTN_ENV*/ { melt_ptr_t sy_PCTN_ENV = meltgc_named_symbol("PCTN_ENV", MELT_GET); - if (sy_PCTN_ENV && NULL == /*_.VALDATA___V107*/ meltfptr[106]) - /*_.VALDATA___V107*/ meltfptr[106] = (void*) sy_PCTN_ENV; } + if (sy_PCTN_ENV && NULL == /*_.VALDATA___V108*/ meltfptr[107]) + /*_.VALDATA___V108*/ meltfptr[107] = (void*) sy_PCTN_ENV; } /*^getnamedsymbol*/ /*getnamedsym:PCTN_MAPATVAR*/ { melt_ptr_t sy_PCTN_MAPATVAR = meltgc_named_symbol("PCTN_MAPATVAR", MELT_GET); - if (sy_PCTN_MAPATVAR && NULL == /*_.VALDATA___V109*/ meltfptr[108]) - /*_.VALDATA___V109*/ meltfptr[108] = (void*) sy_PCTN_MAPATVAR; } + if (sy_PCTN_MAPATVAR && NULL == /*_.VALDATA___V110*/ meltfptr[109]) + /*_.VALDATA___V110*/ meltfptr[109] = (void*) sy_PCTN_MAPATVAR; } /*^getnamedsymbol*/ /*getnamedsym:PCTN_MAPATCST*/ { melt_ptr_t sy_PCTN_MAPATCST = meltgc_named_symbol("PCTN_MAPATCST", MELT_GET); - if (sy_PCTN_MAPATCST && NULL == /*_.VALDATA___V111*/ meltfptr[110]) - /*_.VALDATA___V111*/ meltfptr[110] = (void*) sy_PCTN_MAPATCST; } + if (sy_PCTN_MAPATCST && NULL == /*_.VALDATA___V112*/ meltfptr[111]) + /*_.VALDATA___V112*/ meltfptr[111] = (void*) sy_PCTN_MAPATCST; } /*^getnamedsymbol*/ /*getnamedsym:PCTN_MAPOR*/ { melt_ptr_t sy_PCTN_MAPOR = meltgc_named_symbol("PCTN_MAPOR", MELT_GET); - if (sy_PCTN_MAPOR && NULL == /*_.VALDATA___V113*/ meltfptr[112]) - /*_.VALDATA___V113*/ meltfptr[112] = (void*) sy_PCTN_MAPOR; } + if (sy_PCTN_MAPOR && NULL == /*_.VALDATA___V114*/ meltfptr[113]) + /*_.VALDATA___V114*/ meltfptr[113] = (void*) sy_PCTN_MAPOR; } /*^getnamedsymbol*/ /*getnamedsym:PCTN_BINDLIST*/ { melt_ptr_t sy_PCTN_BINDLIST = meltgc_named_symbol("PCTN_BINDLIST", MELT_GET); - if (sy_PCTN_BINDLIST && NULL == /*_.VALDATA___V115*/ meltfptr[114]) - /*_.VALDATA___V115*/ meltfptr[114] = (void*) sy_PCTN_BINDLIST; } + if (sy_PCTN_BINDLIST && NULL == /*_.VALDATA___V116*/ meltfptr[115]) + /*_.VALDATA___V116*/ meltfptr[115] = (void*) sy_PCTN_BINDLIST; } /*^getnamedsymbol*/ /*getnamedsym:PCTN_STUFFMAP*/ { melt_ptr_t sy_PCTN_STUFFMAP = meltgc_named_symbol("PCTN_STUFFMAP", MELT_GET); - if (sy_PCTN_STUFFMAP && NULL == /*_.VALDATA___V117*/ meltfptr[116]) - /*_.VALDATA___V117*/ meltfptr[116] = (void*) sy_PCTN_STUFFMAP; } + if (sy_PCTN_STUFFMAP && NULL == /*_.VALDATA___V118*/ meltfptr[117]) + /*_.VALDATA___V118*/ meltfptr[117] = (void*) sy_PCTN_STUFFMAP; } /*^getnamedsymbol*/ /*getnamedsym:PCTN_PVARLOCMAP*/ { melt_ptr_t sy_PCTN_PVARLOCMAP = meltgc_named_symbol("PCTN_PVARLOCMAP", MELT_GET); - if (sy_PCTN_PVARLOCMAP && NULL == /*_.VALDATA___V119*/ meltfptr[118]) - /*_.VALDATA___V119*/ meltfptr[118] = (void*) sy_PCTN_PVARLOCMAP; } + if (sy_PCTN_PVARLOCMAP && NULL == /*_.VALDATA___V120*/ meltfptr[119]) + /*_.VALDATA___V120*/ meltfptr[119] = (void*) sy_PCTN_PVARLOCMAP; } /*^getnamedsymbol*/ /*getnamedsym:PCTN_TESTS*/ { melt_ptr_t sy_PCTN_TESTS = meltgc_named_symbol("PCTN_TESTS", MELT_GET); - if (sy_PCTN_TESTS && NULL == /*_.VALDATA___V121*/ meltfptr[120]) - /*_.VALDATA___V121*/ meltfptr[120] = (void*) sy_PCTN_TESTS; } + if (sy_PCTN_TESTS && NULL == /*_.VALDATA___V122*/ meltfptr[121]) + /*_.VALDATA___V122*/ meltfptr[121] = (void*) sy_PCTN_TESTS; } /*^getnamedsymbol*/ /*getnamedsym:PCTN_VARHANDLERS*/ { melt_ptr_t sy_PCTN_VARHANDLERS = meltgc_named_symbol("PCTN_VARHANDLERS", MELT_GET); - if (sy_PCTN_VARHANDLERS && NULL == /*_.VALDATA___V123*/ meltfptr[122]) - /*_.VALDATA___V123*/ meltfptr[122] = (void*) sy_PCTN_VARHANDLERS; } + if (sy_PCTN_VARHANDLERS && NULL == /*_.VALDATA___V124*/ meltfptr[123]) + /*_.VALDATA___V124*/ meltfptr[123] = (void*) sy_PCTN_VARHANDLERS; } /*^getnamedsymbol*/ /*getnamedsym:SCAN_PATTERN*/ { melt_ptr_t sy_SCAN_PATTERN = meltgc_named_symbol("SCAN_PATTERN", MELT_GET); - if (sy_SCAN_PATTERN && NULL == /*_.VALDATA___V125*/ meltfptr[124]) - /*_.VALDATA___V125*/ meltfptr[124] = (void*) sy_SCAN_PATTERN; } + if (sy_SCAN_PATTERN && NULL == /*_.VALDATA___V126*/ meltfptr[125]) + /*_.VALDATA___V126*/ meltfptr[125] = (void*) sy_SCAN_PATTERN; } /*^getnamedsymbol*/ /*getnamedsym:CLASS_SELECTOR*/ { melt_ptr_t sy_CLASS_SELECTOR = meltgc_named_symbol("CLASS_SELECTOR", MELT_GET); - if (sy_CLASS_SELECTOR && NULL == /*_.VALDATA___V127*/ meltfptr[126]) - /*_.VALDATA___V127*/ meltfptr[126] = (void*) sy_CLASS_SELECTOR; } + if (sy_CLASS_SELECTOR && NULL == /*_.VALDATA___V128*/ meltfptr[127]) + /*_.VALDATA___V128*/ meltfptr[127] = (void*) sy_CLASS_SELECTOR; } /*^getnamedsymbol*/ /*getnamedsym:DEBUG_MSG_FUN*/ { melt_ptr_t sy_DEBUG_MSG_FUN = meltgc_named_symbol("DEBUG_MSG_FUN", MELT_GET); - if (sy_DEBUG_MSG_FUN && NULL == /*_.VALDATA___V133*/ meltfptr[132]) - /*_.VALDATA___V133*/ meltfptr[132] = (void*) sy_DEBUG_MSG_FUN; } + if (sy_DEBUG_MSG_FUN && NULL == /*_.VALDATA___V134*/ meltfptr[133]) + /*_.VALDATA___V134*/ meltfptr[133] = (void*) sy_DEBUG_MSG_FUN; } /*^getnamedsymbol*/ /*getnamedsym:CLASS_NAMED*/ { melt_ptr_t sy_CLASS_NAMED = meltgc_named_symbol("CLASS_NAMED", MELT_GET); - if (sy_CLASS_NAMED && NULL == /*_.VALDATA___V135*/ meltfptr[134]) - /*_.VALDATA___V135*/ meltfptr[134] = (void*) sy_CLASS_NAMED; } + if (sy_CLASS_NAMED && NULL == /*_.VALDATA___V136*/ meltfptr[135]) + /*_.VALDATA___V136*/ meltfptr[135] = (void*) sy_CLASS_NAMED; } /*^getnamedsymbol*/ /*getnamedsym:INSTALL_METHOD*/ { melt_ptr_t sy_INSTALL_METHOD = meltgc_named_symbol("INSTALL_METHOD", MELT_GET); - if (sy_INSTALL_METHOD && NULL == /*_.VALDATA___V137*/ meltfptr[136]) - /*_.VALDATA___V137*/ meltfptr[136] = (void*) sy_INSTALL_METHOD; } + if (sy_INSTALL_METHOD && NULL == /*_.VALDATA___V138*/ meltfptr[137]) + /*_.VALDATA___V138*/ meltfptr[137] = (void*) sy_INSTALL_METHOD; } /*^getnamedsymbol*/ /*getnamedsym:DISCR_ANY_RECEIVER*/ { melt_ptr_t sy_DISCR_ANY_RECEIVER = meltgc_named_symbol("DISCR_ANY_RECEIVER", MELT_GET); - if (sy_DISCR_ANY_RECEIVER && NULL == /*_.VALDATA___V139*/ meltfptr[138]) - /*_.VALDATA___V139*/ meltfptr[138] = (void*) sy_DISCR_ANY_RECEIVER; } + if (sy_DISCR_ANY_RECEIVER && NULL == /*_.VALDATA___V140*/ meltfptr[139]) + /*_.VALDATA___V140*/ meltfptr[139] = (void*) sy_DISCR_ANY_RECEIVER; } /*^getnamedsymbol*/ /*getnamedsym:CLASS_SOURCE_PATTERN*/ { melt_ptr_t sy_CLASS_SOURCE_PATTERN = meltgc_named_symbol("CLASS_SOURCE_PATTERN", MELT_GET); - if (sy_CLASS_SOURCE_PATTERN && NULL == /*_.VALDATA___V143*/ meltfptr[142]) - /*_.VALDATA___V143*/ meltfptr[142] = (void*) sy_CLASS_SOURCE_PATTERN; } + if (sy_CLASS_SOURCE_PATTERN && NULL == /*_.VALDATA___V144*/ meltfptr[143]) + /*_.VALDATA___V144*/ meltfptr[143] = (void*) sy_CLASS_SOURCE_PATTERN; } /*^getnamedsymbol*/ /*getnamedsym:CLASS_SOURCE_PATTERN_VARIABLE*/ { melt_ptr_t sy_CLASS_SOURCE_PATTERN_VARIABLE = meltgc_named_symbol("CLASS_SOURCE_PATTERN_VARIABLE", MELT_GET); - if (sy_CLASS_SOURCE_PATTERN_VARIABLE && NULL == /*_.VALDATA___V147*/ meltfptr[146]) - /*_.VALDATA___V147*/ meltfptr[146] = (void*) sy_CLASS_SOURCE_PATTERN_VARIABLE; } + if (sy_CLASS_SOURCE_PATTERN_VARIABLE && NULL == /*_.VALDATA___V148*/ meltfptr[147]) + /*_.VALDATA___V148*/ meltfptr[147] = (void*) sy_CLASS_SOURCE_PATTERN_VARIABLE; } /*^getnamedsymbol*/ /*getnamedsym:CLASS_SOURCE_PATTERN_JOKER_VARIABLE*/ { melt_ptr_t sy_CLASS_SOURCE_PATTERN_JOKER_VARIABLE = meltgc_named_symbol("CLASS_SOURCE_PATTERN_JOKER_VARIABLE", MELT_GET); - if (sy_CLASS_SOURCE_PATTERN_JOKER_VARIABLE && NULL == /*_.VALDATA___V151*/ meltfptr[150]) - /*_.VALDATA___V151*/ meltfptr[150] = (void*) sy_CLASS_SOURCE_PATTERN_JOKER_VARIABLE; } + if (sy_CLASS_SOURCE_PATTERN_JOKER_VARIABLE && NULL == /*_.VALDATA___V152*/ meltfptr[151]) + /*_.VALDATA___V152*/ meltfptr[151] = (void*) sy_CLASS_SOURCE_PATTERN_JOKER_VARIABLE; } /*^getnamedsymbol*/ /*getnamedsym:CLASS_SOURCE_PATTERN_CONSTANT*/ { melt_ptr_t sy_CLASS_SOURCE_PATTERN_CONSTANT = meltgc_named_symbol("CLASS_SOURCE_PATTERN_CONSTANT", MELT_GET); - if (sy_CLASS_SOURCE_PATTERN_CONSTANT && NULL == /*_.VALDATA___V155*/ meltfptr[154]) - /*_.VALDATA___V155*/ meltfptr[154] = (void*) sy_CLASS_SOURCE_PATTERN_CONSTANT; } + if (sy_CLASS_SOURCE_PATTERN_CONSTANT && NULL == /*_.VALDATA___V156*/ meltfptr[155]) + /*_.VALDATA___V156*/ meltfptr[155] = (void*) sy_CLASS_SOURCE_PATTERN_CONSTANT; } /*^getnamedsymbol*/ /*getnamedsym:NORMAL_EXP*/ { melt_ptr_t sy_NORMAL_EXP = meltgc_named_symbol("NORMAL_EXP", MELT_GET); - if (sy_NORMAL_EXP && NULL == /*_.VALDATA___V157*/ meltfptr[156]) - /*_.VALDATA___V157*/ meltfptr[156] = (void*) sy_NORMAL_EXP; } + if (sy_NORMAL_EXP && NULL == /*_.VALDATA___V158*/ meltfptr[157]) + /*_.VALDATA___V158*/ meltfptr[157] = (void*) sy_NORMAL_EXP; } /*^getnamedsymbol*/ /*getnamedsym:LIST_APPEND2LIST*/ { melt_ptr_t sy_LIST_APPEND2LIST = meltgc_named_symbol("LIST_APPEND2LIST", MELT_GET); - if (sy_LIST_APPEND2LIST && NULL == /*_.VALDATA___V159*/ meltfptr[158]) - /*_.VALDATA___V159*/ meltfptr[158] = (void*) sy_LIST_APPEND2LIST; } + if (sy_LIST_APPEND2LIST && NULL == /*_.VALDATA___V160*/ meltfptr[159]) + /*_.VALDATA___V160*/ meltfptr[159] = (void*) sy_LIST_APPEND2LIST; } /*^getnamedsymbol*/ /*getnamedsym:GET_CTYPE*/ { melt_ptr_t sy_GET_CTYPE = meltgc_named_symbol("GET_CTYPE", MELT_GET); - if (sy_GET_CTYPE && NULL == /*_.VALDATA___V161*/ meltfptr[160]) - /*_.VALDATA___V161*/ meltfptr[160] = (void*) sy_GET_CTYPE; } + if (sy_GET_CTYPE && NULL == /*_.VALDATA___V162*/ meltfptr[161]) + /*_.VALDATA___V162*/ meltfptr[161] = (void*) sy_GET_CTYPE; } /*^getnamedsymbol*/ /*getnamedsym:CLASS_CTYPE*/ { melt_ptr_t sy_CLASS_CTYPE = meltgc_named_symbol("CLASS_CTYPE", MELT_GET); - if (sy_CLASS_CTYPE && NULL == /*_.VALDATA___V163*/ meltfptr[162]) - /*_.VALDATA___V163*/ meltfptr[162] = (void*) sy_CLASS_CTYPE; } + if (sy_CLASS_CTYPE && NULL == /*_.VALDATA___V164*/ meltfptr[163]) + /*_.VALDATA___V164*/ meltfptr[163] = (void*) sy_CLASS_CTYPE; } /*^getnamedsymbol*/ /*getnamedsym:CLASS_SOURCE_PATTERN_OBJECT*/ { melt_ptr_t sy_CLASS_SOURCE_PATTERN_OBJECT = meltgc_named_symbol("CLASS_SOURCE_PATTERN_OBJECT", MELT_GET); - if (sy_CLASS_SOURCE_PATTERN_OBJECT && NULL == /*_.VALDATA___V167*/ meltfptr[166]) - /*_.VALDATA___V167*/ meltfptr[166] = (void*) sy_CLASS_SOURCE_PATTERN_OBJECT; } + if (sy_CLASS_SOURCE_PATTERN_OBJECT && NULL == /*_.VALDATA___V168*/ meltfptr[167]) + /*_.VALDATA___V168*/ meltfptr[167] = (void*) sy_CLASS_SOURCE_PATTERN_OBJECT; } /*^getnamedsymbol*/ /*getnamedsym:CLASS_CLASS*/ { melt_ptr_t sy_CLASS_CLASS = meltgc_named_symbol("CLASS_CLASS", MELT_GET); - if (sy_CLASS_CLASS && NULL == /*_.VALDATA___V169*/ meltfptr[168]) - /*_.VALDATA___V169*/ meltfptr[168] = (void*) sy_CLASS_CLASS; } + if (sy_CLASS_CLASS && NULL == /*_.VALDATA___V170*/ meltfptr[169]) + /*_.VALDATA___V170*/ meltfptr[169] = (void*) sy_CLASS_CLASS; } /*^getnamedsymbol*/ /*getnamedsym:CLASS_SOURCE_FIELD_PATTERN*/ { melt_ptr_t sy_CLASS_SOURCE_FIELD_PATTERN = meltgc_named_symbol("CLASS_SOURCE_FIELD_PATTERN", MELT_GET); - if (sy_CLASS_SOURCE_FIELD_PATTERN && NULL == /*_.VALDATA___V171*/ meltfptr[170]) - /*_.VALDATA___V171*/ meltfptr[170] = (void*) sy_CLASS_SOURCE_FIELD_PATTERN; } + if (sy_CLASS_SOURCE_FIELD_PATTERN && NULL == /*_.VALDATA___V172*/ meltfptr[171]) + /*_.VALDATA___V172*/ meltfptr[171] = (void*) sy_CLASS_SOURCE_FIELD_PATTERN; } /*^getnamedsymbol*/ /*getnamedsym:CLASS_FIELD*/ { melt_ptr_t sy_CLASS_FIELD = meltgc_named_symbol("CLASS_FIELD", MELT_GET); - if (sy_CLASS_FIELD && NULL == /*_.VALDATA___V173*/ meltfptr[172]) - /*_.VALDATA___V173*/ meltfptr[172] = (void*) sy_CLASS_FIELD; } + if (sy_CLASS_FIELD && NULL == /*_.VALDATA___V174*/ meltfptr[173]) + /*_.VALDATA___V174*/ meltfptr[173] = (void*) sy_CLASS_FIELD; } /*^getnamedsymbol*/ /*getnamedsym:CTYPE_VALUE*/ { melt_ptr_t sy_CTYPE_VALUE = meltgc_named_symbol("CTYPE_VALUE", MELT_GET); - if (sy_CTYPE_VALUE && NULL == /*_.VALDATA___V175*/ meltfptr[174]) - /*_.VALDATA___V175*/ meltfptr[174] = (void*) sy_CTYPE_VALUE; } + if (sy_CTYPE_VALUE && NULL == /*_.VALDATA___V176*/ meltfptr[175]) + /*_.VALDATA___V176*/ meltfptr[175] = (void*) sy_CTYPE_VALUE; } /*^getnamedsymbol*/ /*getnamedsym:CLASS_SOURCE_PATTERN_COMPOSITE*/ { melt_ptr_t sy_CLASS_SOURCE_PATTERN_COMPOSITE = meltgc_named_symbol("CLASS_SOURCE_PATTERN_COMPOSITE", MELT_GET); - if (sy_CLASS_SOURCE_PATTERN_COMPOSITE && NULL == /*_.VALDATA___V179*/ meltfptr[178]) - /*_.VALDATA___V179*/ meltfptr[178] = (void*) sy_CLASS_SOURCE_PATTERN_COMPOSITE; } + if (sy_CLASS_SOURCE_PATTERN_COMPOSITE && NULL == /*_.VALDATA___V180*/ meltfptr[179]) + /*_.VALDATA___V180*/ meltfptr[179] = (void*) sy_CLASS_SOURCE_PATTERN_COMPOSITE; } /*^getnamedsymbol*/ /*getnamedsym:CLASS_ANY_MATCHER*/ { melt_ptr_t sy_CLASS_ANY_MATCHER = meltgc_named_symbol("CLASS_ANY_MATCHER", MELT_GET); - if (sy_CLASS_ANY_MATCHER && NULL == /*_.VALDATA___V181*/ meltfptr[180]) - /*_.VALDATA___V181*/ meltfptr[180] = (void*) sy_CLASS_ANY_MATCHER; } + if (sy_CLASS_ANY_MATCHER && NULL == /*_.VALDATA___V182*/ meltfptr[181]) + /*_.VALDATA___V182*/ meltfptr[181] = (void*) sy_CLASS_ANY_MATCHER; } /*^getnamedsymbol*/ /*getnamedsym:CLASS_FORMAL_BINDING*/ { melt_ptr_t sy_CLASS_FORMAL_BINDING = meltgc_named_symbol("CLASS_FORMAL_BINDING", MELT_GET); - if (sy_CLASS_FORMAL_BINDING && NULL == /*_.VALDATA___V183*/ meltfptr[182]) - /*_.VALDATA___V183*/ meltfptr[182] = (void*) sy_CLASS_FORMAL_BINDING; } + if (sy_CLASS_FORMAL_BINDING && NULL == /*_.VALDATA___V184*/ meltfptr[183]) + /*_.VALDATA___V184*/ meltfptr[183] = (void*) sy_CLASS_FORMAL_BINDING; } /*^getnamedsymbol*/ /*getnamedsym:NORMALIZE_TUPLE*/ { melt_ptr_t sy_NORMALIZE_TUPLE = meltgc_named_symbol("NORMALIZE_TUPLE", MELT_GET); - if (sy_NORMALIZE_TUPLE && NULL == /*_.VALDATA___V185*/ meltfptr[184]) - /*_.VALDATA___V185*/ meltfptr[184] = (void*) sy_NORMALIZE_TUPLE; } + if (sy_NORMALIZE_TUPLE && NULL == /*_.VALDATA___V186*/ meltfptr[185]) + /*_.VALDATA___V186*/ meltfptr[185] = (void*) sy_NORMALIZE_TUPLE; } /*^getnamedsymbol*/ /*getnamedsym:CLASS_SOURCE_PATTERN_OR*/ { melt_ptr_t sy_CLASS_SOURCE_PATTERN_OR = meltgc_named_symbol("CLASS_SOURCE_PATTERN_OR", MELT_GET); - if (sy_CLASS_SOURCE_PATTERN_OR && NULL == /*_.VALDATA___V190*/ meltfptr[189]) - /*_.VALDATA___V190*/ meltfptr[189] = (void*) sy_CLASS_SOURCE_PATTERN_OR; } + if (sy_CLASS_SOURCE_PATTERN_OR && NULL == /*_.VALDATA___V191*/ meltfptr[190]) + /*_.VALDATA___V191*/ meltfptr[190] = (void*) sy_CLASS_SOURCE_PATTERN_OR; } /*^getnamedsymbol*/ /*getnamedsym:DISCR_MAP_OBJECTS*/ { melt_ptr_t sy_DISCR_MAP_OBJECTS = meltgc_named_symbol("DISCR_MAP_OBJECTS", MELT_GET); - if (sy_DISCR_MAP_OBJECTS && NULL == /*_.VALDATA___V192*/ meltfptr[191]) - /*_.VALDATA___V192*/ meltfptr[191] = (void*) sy_DISCR_MAP_OBJECTS; } + if (sy_DISCR_MAP_OBJECTS && NULL == /*_.VALDATA___V193*/ meltfptr[192]) + /*_.VALDATA___V193*/ meltfptr[192] = (void*) sy_DISCR_MAP_OBJECTS; } /*^getnamedsymbol*/ /*getnamedsym:CLASS_SYMBOL*/ { melt_ptr_t sy_CLASS_SYMBOL = meltgc_named_symbol("CLASS_SYMBOL", MELT_GET); - if (sy_CLASS_SYMBOL && NULL == /*_.VALDATA___V194*/ meltfptr[193]) - /*_.VALDATA___V194*/ meltfptr[193] = (void*) sy_CLASS_SYMBOL; } + if (sy_CLASS_SYMBOL && NULL == /*_.VALDATA___V195*/ meltfptr[194]) + /*_.VALDATA___V195*/ meltfptr[194] = (void*) sy_CLASS_SYMBOL; } /*^getnamedsymbol*/ /*getnamedsym:CLASS_SOURCE_PATTERN_AND*/ { melt_ptr_t sy_CLASS_SOURCE_PATTERN_AND = meltgc_named_symbol("CLASS_SOURCE_PATTERN_AND", MELT_GET); - if (sy_CLASS_SOURCE_PATTERN_AND && NULL == /*_.VALDATA___V198*/ meltfptr[197]) - /*_.VALDATA___V198*/ meltfptr[197] = (void*) sy_CLASS_SOURCE_PATTERN_AND; } + if (sy_CLASS_SOURCE_PATTERN_AND && NULL == /*_.VALDATA___V199*/ meltfptr[198]) + /*_.VALDATA___V199*/ meltfptr[198] = (void*) sy_CLASS_SOURCE_PATTERN_AND; } /*^getnamedsymbol*/ /*getnamedsym:NORMAL_PATTERN*/ { melt_ptr_t sy_NORMAL_PATTERN = meltgc_named_symbol("NORMAL_PATTERN", MELT_GET); - if (sy_NORMAL_PATTERN && NULL == /*_.VALDATA___V200*/ meltfptr[199]) - /*_.VALDATA___V200*/ meltfptr[199] = (void*) sy_NORMAL_PATTERN; } + if (sy_NORMAL_PATTERN && NULL == /*_.VALDATA___V201*/ meltfptr[200]) + /*_.VALDATA___V201*/ meltfptr[200] = (void*) sy_NORMAL_PATTERN; } /*^getnamedsymbol*/ /*getnamedsym:CLASS_NORMAL_OR_VARIABLE*/ { melt_ptr_t sy_CLASS_NORMAL_OR_VARIABLE = meltgc_named_symbol("CLASS_NORMAL_OR_VARIABLE", MELT_GET); - if (sy_CLASS_NORMAL_OR_VARIABLE && NULL == /*_.VALDATA___V204*/ meltfptr[203]) - /*_.VALDATA___V204*/ meltfptr[203] = (void*) sy_CLASS_NORMAL_OR_VARIABLE; } + if (sy_CLASS_NORMAL_OR_VARIABLE && NULL == /*_.VALDATA___V205*/ meltfptr[204]) + /*_.VALDATA___V205*/ meltfptr[204] = (void*) sy_CLASS_NORMAL_OR_VARIABLE; } /*^getnamedsymbol*/ /*getnamedsym:NORVAR_NOREXP*/ { melt_ptr_t sy_NORVAR_NOREXP = meltgc_named_symbol("NORVAR_NOREXP", MELT_GET); - if (sy_NORVAR_NOREXP && NULL == /*_.VALDATA___V218*/ meltfptr[217]) - /*_.VALDATA___V218*/ meltfptr[217] = (void*) sy_NORVAR_NOREXP; } + if (sy_NORVAR_NOREXP && NULL == /*_.VALDATA___V219*/ meltfptr[218]) + /*_.VALDATA___V219*/ meltfptr[218] = (void*) sy_NORVAR_NOREXP; } /*^getnamedsymbol*/ /*getnamedsym:NORVAR_LOCSYM*/ { melt_ptr_t sy_NORVAR_LOCSYM = meltgc_named_symbol("NORVAR_LOCSYM", MELT_GET); - if (sy_NORVAR_LOCSYM && NULL == /*_.VALDATA___V220*/ meltfptr[219]) - /*_.VALDATA___V220*/ meltfptr[219] = (void*) sy_NORVAR_LOCSYM; } + if (sy_NORVAR_LOCSYM && NULL == /*_.VALDATA___V221*/ meltfptr[220]) + /*_.VALDATA___V221*/ meltfptr[220] = (void*) sy_NORVAR_LOCSYM; } /*^getnamedsymbol*/ /*getnamedsym:NORVAR_PATVAR*/ { melt_ptr_t sy_NORVAR_PATVAR = meltgc_named_symbol("NORVAR_PATVAR", MELT_GET); - if (sy_NORVAR_PATVAR && NULL == /*_.VALDATA___V222*/ meltfptr[221]) - /*_.VALDATA___V222*/ meltfptr[221] = (void*) sy_NORVAR_PATVAR; } + if (sy_NORVAR_PATVAR && NULL == /*_.VALDATA___V223*/ meltfptr[222]) + /*_.VALDATA___V223*/ meltfptr[222] = (void*) sy_NORVAR_PATVAR; } /*^getnamedsymbol*/ /*getnamedsym:NORVAR_NREPOR*/ { melt_ptr_t sy_NORVAR_NREPOR = meltgc_named_symbol("NORVAR_NREPOR", MELT_GET); - if (sy_NORVAR_NREPOR && NULL == /*_.VALDATA___V224*/ meltfptr[223]) - /*_.VALDATA___V224*/ meltfptr[223] = (void*) sy_NORVAR_NREPOR; } + if (sy_NORVAR_NREPOR && NULL == /*_.VALDATA___V225*/ meltfptr[224]) + /*_.VALDATA___V225*/ meltfptr[224] = (void*) sy_NORVAR_NREPOR; } /*^getnamedsymbol*/ /*getnamedsym:CLASS_NORMTESTER_ANY*/ { melt_ptr_t sy_CLASS_NORMTESTER_ANY = meltgc_named_symbol("CLASS_NORMTESTER_ANY", MELT_GET); - if (sy_CLASS_NORMTESTER_ANY && NULL == /*_.VALDATA___V226*/ meltfptr[225]) - /*_.VALDATA___V226*/ meltfptr[225] = (void*) sy_CLASS_NORMTESTER_ANY; } + if (sy_CLASS_NORMTESTER_ANY && NULL == /*_.VALDATA___V227*/ meltfptr[226]) + /*_.VALDATA___V227*/ meltfptr[226] = (void*) sy_CLASS_NORMTESTER_ANY; } /*^getnamedsymbol*/ /*getnamedsym:CLASS_NREP_EXPRESSION*/ { melt_ptr_t sy_CLASS_NREP_EXPRESSION = meltgc_named_symbol("CLASS_NREP_EXPRESSION", MELT_GET); - if (sy_CLASS_NREP_EXPRESSION && NULL == /*_.VALDATA___V228*/ meltfptr[227]) - /*_.VALDATA___V228*/ meltfptr[227] = (void*) sy_CLASS_NREP_EXPRESSION; } + if (sy_CLASS_NREP_EXPRESSION && NULL == /*_.VALDATA___V229*/ meltfptr[228]) + /*_.VALDATA___V229*/ meltfptr[228] = (void*) sy_CLASS_NREP_EXPRESSION; } /*^getnamedsymbol*/ /*getnamedsym:NTEST_MATCHED*/ { melt_ptr_t sy_NTEST_MATCHED = meltgc_named_symbol("NTEST_MATCHED", MELT_GET); - if (sy_NTEST_MATCHED && NULL == /*_.VALDATA___V246*/ meltfptr[245]) - /*_.VALDATA___V246*/ meltfptr[245] = (void*) sy_NTEST_MATCHED; } + if (sy_NTEST_MATCHED && NULL == /*_.VALDATA___V247*/ meltfptr[246]) + /*_.VALDATA___V247*/ meltfptr[246] = (void*) sy_NTEST_MATCHED; } /*^getnamedsymbol*/ /*getnamedsym:NTEST_THEN*/ { melt_ptr_t sy_NTEST_THEN = meltgc_named_symbol("NTEST_THEN", MELT_GET); - if (sy_NTEST_THEN && NULL == /*_.VALDATA___V248*/ meltfptr[247]) - /*_.VALDATA___V248*/ meltfptr[247] = (void*) sy_NTEST_THEN; } + if (sy_NTEST_THEN && NULL == /*_.VALDATA___V249*/ meltfptr[248]) + /*_.VALDATA___V249*/ meltfptr[248] = (void*) sy_NTEST_THEN; } /*^getnamedsymbol*/ /*getnamedsym:NTEST_ELSE*/ { melt_ptr_t sy_NTEST_ELSE = meltgc_named_symbol("NTEST_ELSE", MELT_GET); - if (sy_NTEST_ELSE && NULL == /*_.VALDATA___V250*/ meltfptr[249]) - /*_.VALDATA___V250*/ meltfptr[249] = (void*) sy_NTEST_ELSE; } + if (sy_NTEST_ELSE && NULL == /*_.VALDATA___V251*/ meltfptr[250]) + /*_.VALDATA___V251*/ meltfptr[250] = (void*) sy_NTEST_ELSE; } /*^getnamedsymbol*/ /*getnamedsym:NTEST_NORMATCH*/ { melt_ptr_t sy_NTEST_NORMATCH = meltgc_named_symbol("NTEST_NORMATCH", MELT_GET); - if (sy_NTEST_NORMATCH && NULL == /*_.VALDATA___V252*/ meltfptr[251]) - /*_.VALDATA___V252*/ meltfptr[251] = (void*) sy_NTEST_NORMATCH; } + if (sy_NTEST_NORMATCH && NULL == /*_.VALDATA___V253*/ meltfptr[252]) + /*_.VALDATA___V253*/ meltfptr[252] = (void*) sy_NTEST_NORMATCH; } /*^getnamedsymbol*/ /*getnamedsym:NTEST_LOCCLIST*/ { melt_ptr_t sy_NTEST_LOCCLIST = meltgc_named_symbol("NTEST_LOCCLIST", MELT_GET); - if (sy_NTEST_LOCCLIST && NULL == /*_.VALDATA___V254*/ meltfptr[253]) - /*_.VALDATA___V254*/ meltfptr[253] = (void*) sy_NTEST_LOCCLIST; } + if (sy_NTEST_LOCCLIST && NULL == /*_.VALDATA___V255*/ meltfptr[254]) + /*_.VALDATA___V255*/ meltfptr[254] = (void*) sy_NTEST_LOCCLIST; } /*^getnamedsymbol*/ /*getnamedsym:NTEST_COMEFROM*/ { melt_ptr_t sy_NTEST_COMEFROM = meltgc_named_symbol("NTEST_COMEFROM", MELT_GET); - if (sy_NTEST_COMEFROM && NULL == /*_.VALDATA___V256*/ meltfptr[255]) - /*_.VALDATA___V256*/ meltfptr[255] = (void*) sy_NTEST_COMEFROM; } + if (sy_NTEST_COMEFROM && NULL == /*_.VALDATA___V257*/ meltfptr[256]) + /*_.VALDATA___V257*/ meltfptr[256] = (void*) sy_NTEST_COMEFROM; } /*^getnamedsymbol*/ /*getnamedsym:CLASS_NORMTESTER_SUCCESS*/ { melt_ptr_t sy_CLASS_NORMTESTER_SUCCESS = meltgc_named_symbol("CLASS_NORMTESTER_SUCCESS", MELT_GET); - if (sy_CLASS_NORMTESTER_SUCCESS && NULL == /*_.VALDATA___V258*/ meltfptr[257]) - /*_.VALDATA___V258*/ meltfptr[257] = (void*) sy_CLASS_NORMTESTER_SUCCESS; } + if (sy_CLASS_NORMTESTER_SUCCESS && NULL == /*_.VALDATA___V259*/ meltfptr[258]) + /*_.VALDATA___V259*/ meltfptr[258] = (void*) sy_CLASS_NORMTESTER_SUCCESS; } /*^getnamedsymbol*/ /*getnamedsym:NTSUCCESS_DO*/ { melt_ptr_t sy_NTSUCCESS_DO = meltgc_named_symbol("NTSUCCESS_DO", MELT_GET); - if (sy_NTSUCCESS_DO && NULL == /*_.VALDATA___V266*/ meltfptr[265]) - /*_.VALDATA___V266*/ meltfptr[265] = (void*) sy_NTSUCCESS_DO; } + if (sy_NTSUCCESS_DO && NULL == /*_.VALDATA___V267*/ meltfptr[266]) + /*_.VALDATA___V267*/ meltfptr[266] = (void*) sy_NTSUCCESS_DO; } /*^getnamedsymbol*/ /*getnamedsym:CLASS_NORMTESTER_OR_CLEAR*/ { melt_ptr_t sy_CLASS_NORMTESTER_OR_CLEAR = meltgc_named_symbol("CLASS_NORMTESTER_OR_CLEAR", MELT_GET); - if (sy_CLASS_NORMTESTER_OR_CLEAR && NULL == /*_.VALDATA___V268*/ meltfptr[267]) - /*_.VALDATA___V268*/ meltfptr[267] = (void*) sy_CLASS_NORMTESTER_OR_CLEAR; } + if (sy_CLASS_NORMTESTER_OR_CLEAR && NULL == /*_.VALDATA___V269*/ meltfptr[268]) + /*_.VALDATA___V269*/ meltfptr[268] = (void*) sy_CLASS_NORMTESTER_OR_CLEAR; } /*^getnamedsymbol*/ /*getnamedsym:NTORCLEAR_LOCSYM*/ { melt_ptr_t sy_NTORCLEAR_LOCSYM = meltgc_named_symbol("NTORCLEAR_LOCSYM", MELT_GET); - if (sy_NTORCLEAR_LOCSYM && NULL == /*_.VALDATA___V276*/ meltfptr[275]) - /*_.VALDATA___V276*/ meltfptr[275] = (void*) sy_NTORCLEAR_LOCSYM; } + if (sy_NTORCLEAR_LOCSYM && NULL == /*_.VALDATA___V277*/ meltfptr[276]) + /*_.VALDATA___V277*/ meltfptr[276] = (void*) sy_NTORCLEAR_LOCSYM; } /*^getnamedsymbol*/ /*getnamedsym:CLASS_NORMTESTER_OR_INITIAL_CLEAR*/ { melt_ptr_t sy_CLASS_NORMTESTER_OR_INITIAL_CLEAR = meltgc_named_symbol("CLASS_NORMTESTER_OR_INITIAL_CLEAR", MELT_GET); - if (sy_CLASS_NORMTESTER_OR_INITIAL_CLEAR && NULL == /*_.VALDATA___V278*/ meltfptr[277]) - /*_.VALDATA___V278*/ meltfptr[277] = (void*) sy_CLASS_NORMTESTER_OR_INITIAL_CLEAR; } + if (sy_CLASS_NORMTESTER_OR_INITIAL_CLEAR && NULL == /*_.VALDATA___V279*/ meltfptr[278]) + /*_.VALDATA___V279*/ meltfptr[278] = (void*) sy_CLASS_NORMTESTER_OR_INITIAL_CLEAR; } /*^getnamedsymbol*/ /*getnamedsym:CLASS_NORMTESTER_OR_TRANSMIT*/ { melt_ptr_t sy_CLASS_NORMTESTER_OR_TRANSMIT = meltgc_named_symbol("CLASS_NORMTESTER_OR_TRANSMIT", MELT_GET); - if (sy_CLASS_NORMTESTER_OR_TRANSMIT && NULL == /*_.VALDATA___V284*/ meltfptr[283]) - /*_.VALDATA___V284*/ meltfptr[283] = (void*) sy_CLASS_NORMTESTER_OR_TRANSMIT; } + if (sy_CLASS_NORMTESTER_OR_TRANSMIT && NULL == /*_.VALDATA___V285*/ meltfptr[284]) + /*_.VALDATA___V285*/ meltfptr[284] = (void*) sy_CLASS_NORMTESTER_OR_TRANSMIT; } /*^getnamedsymbol*/ /*getnamedsym:NTORTRANSMIT_DST*/ { melt_ptr_t sy_NTORTRANSMIT_DST = meltgc_named_symbol("NTORTRANSMIT_DST", MELT_GET); - if (sy_NTORTRANSMIT_DST && NULL == /*_.VALDATA___V294*/ meltfptr[293]) - /*_.VALDATA___V294*/ meltfptr[293] = (void*) sy_NTORTRANSMIT_DST; } + if (sy_NTORTRANSMIT_DST && NULL == /*_.VALDATA___V295*/ meltfptr[294]) + /*_.VALDATA___V295*/ meltfptr[294] = (void*) sy_NTORTRANSMIT_DST; } /*^getnamedsymbol*/ /*getnamedsym:NTORTRANSMIT_SRC*/ { melt_ptr_t sy_NTORTRANSMIT_SRC = meltgc_named_symbol("NTORTRANSMIT_SRC", MELT_GET); - if (sy_NTORTRANSMIT_SRC && NULL == /*_.VALDATA___V296*/ meltfptr[295]) - /*_.VALDATA___V296*/ meltfptr[295] = (void*) sy_NTORTRANSMIT_SRC; } + if (sy_NTORTRANSMIT_SRC && NULL == /*_.VALDATA___V297*/ meltfptr[296]) + /*_.VALDATA___V297*/ meltfptr[296] = (void*) sy_NTORTRANSMIT_SRC; } /*^getnamedsymbol*/ /*getnamedsym:CLASS_NORMTESTER_ANYTESTER*/ { melt_ptr_t sy_CLASS_NORMTESTER_ANYTESTER = meltgc_named_symbol("CLASS_NORMTESTER_ANYTESTER", MELT_GET); - if (sy_CLASS_NORMTESTER_ANYTESTER && NULL == /*_.VALDATA___V298*/ meltfptr[297]) - /*_.VALDATA___V298*/ meltfptr[297] = (void*) sy_CLASS_NORMTESTER_ANYTESTER; } + if (sy_CLASS_NORMTESTER_ANYTESTER && NULL == /*_.VALDATA___V299*/ meltfptr[298]) + /*_.VALDATA___V299*/ meltfptr[298] = (void*) sy_CLASS_NORMTESTER_ANYTESTER; } /*^getnamedsymbol*/ /*getnamedsym:CLASS_NORMTESTER_DISJUNCTION*/ { melt_ptr_t sy_CLASS_NORMTESTER_DISJUNCTION = meltgc_named_symbol("CLASS_NORMTESTER_DISJUNCTION", MELT_GET); - if (sy_CLASS_NORMTESTER_DISJUNCTION && NULL == /*_.VALDATA___V304*/ meltfptr[303]) - /*_.VALDATA___V304*/ meltfptr[303] = (void*) sy_CLASS_NORMTESTER_DISJUNCTION; } + if (sy_CLASS_NORMTESTER_DISJUNCTION && NULL == /*_.VALDATA___V305*/ meltfptr[304]) + /*_.VALDATA___V305*/ meltfptr[304] = (void*) sy_CLASS_NORMTESTER_DISJUNCTION; } /*^getnamedsymbol*/ /*getnamedsym:NTDISJUNCTS*/ { melt_ptr_t sy_NTDISJUNCTS = meltgc_named_symbol("NTDISJUNCTS", MELT_GET); - if (sy_NTDISJUNCTS && NULL == /*_.VALDATA___V316*/ meltfptr[315]) - /*_.VALDATA___V316*/ meltfptr[315] = (void*) sy_NTDISJUNCTS; } + if (sy_NTDISJUNCTS && NULL == /*_.VALDATA___V317*/ meltfptr[316]) + /*_.VALDATA___V317*/ meltfptr[316] = (void*) sy_NTDISJUNCTS; } /*^getnamedsymbol*/ /*getnamedsym:NTDISJ_FRESHORVAR*/ { melt_ptr_t sy_NTDISJ_FRESHORVAR = meltgc_named_symbol("NTDISJ_FRESHORVAR", MELT_GET); - if (sy_NTDISJ_FRESHORVAR && NULL == /*_.VALDATA___V318*/ meltfptr[317]) - /*_.VALDATA___V318*/ meltfptr[317] = (void*) sy_NTDISJ_FRESHORVAR; } + if (sy_NTDISJ_FRESHORVAR && NULL == /*_.VALDATA___V319*/ meltfptr[318]) + /*_.VALDATA___V319*/ meltfptr[318] = (void*) sy_NTDISJ_FRESHORVAR; } /*^getnamedsymbol*/ /*getnamedsym:NTDISJ_SETORVAR*/ { melt_ptr_t sy_NTDISJ_SETORVAR = meltgc_named_symbol("NTDISJ_SETORVAR", MELT_GET); - if (sy_NTDISJ_SETORVAR && NULL == /*_.VALDATA___V320*/ meltfptr[319]) - /*_.VALDATA___V320*/ meltfptr[319] = (void*) sy_NTDISJ_SETORVAR; } + if (sy_NTDISJ_SETORVAR && NULL == /*_.VALDATA___V321*/ meltfptr[320]) + /*_.VALDATA___V321*/ meltfptr[320] = (void*) sy_NTDISJ_SETORVAR; } /*^getnamedsymbol*/ /*getnamedsym:CLASS_NORMTESTER_SAME*/ { melt_ptr_t sy_CLASS_NORMTESTER_SAME = meltgc_named_symbol("CLASS_NORMTESTER_SAME", MELT_GET); - if (sy_CLASS_NORMTESTER_SAME && NULL == /*_.VALDATA___V322*/ meltfptr[321]) - /*_.VALDATA___V322*/ meltfptr[321] = (void*) sy_CLASS_NORMTESTER_SAME; } + if (sy_CLASS_NORMTESTER_SAME && NULL == /*_.VALDATA___V323*/ meltfptr[322]) + /*_.VALDATA___V323*/ meltfptr[322] = (void*) sy_CLASS_NORMTESTER_SAME; } /*^getnamedsymbol*/ /*getnamedsym:NTSAME_IDENTICAL*/ { melt_ptr_t sy_NTSAME_IDENTICAL = meltgc_named_symbol("NTSAME_IDENTICAL", MELT_GET); - if (sy_NTSAME_IDENTICAL && NULL == /*_.VALDATA___V330*/ meltfptr[329]) - /*_.VALDATA___V330*/ meltfptr[329] = (void*) sy_NTSAME_IDENTICAL; } + if (sy_NTSAME_IDENTICAL && NULL == /*_.VALDATA___V331*/ meltfptr[330]) + /*_.VALDATA___V331*/ meltfptr[330] = (void*) sy_NTSAME_IDENTICAL; } /*^getnamedsymbol*/ /*getnamedsym:CLASS_NORMTESTER_MATCHER*/ { melt_ptr_t sy_CLASS_NORMTESTER_MATCHER = meltgc_named_symbol("CLASS_NORMTESTER_MATCHER", MELT_GET); - if (sy_CLASS_NORMTESTER_MATCHER && NULL == /*_.VALDATA___V332*/ meltfptr[331]) - /*_.VALDATA___V332*/ meltfptr[331] = (void*) sy_CLASS_NORMTESTER_MATCHER; } + if (sy_CLASS_NORMTESTER_MATCHER && NULL == /*_.VALDATA___V333*/ meltfptr[332]) + /*_.VALDATA___V333*/ meltfptr[332] = (void*) sy_CLASS_NORMTESTER_MATCHER; } /*^getnamedsymbol*/ /*getnamedsym:NTMATCH_MATCHER*/ { melt_ptr_t sy_NTMATCH_MATCHER = meltgc_named_symbol("NTMATCH_MATCHER", MELT_GET); - if (sy_NTMATCH_MATCHER && NULL == /*_.VALDATA___V346*/ meltfptr[345]) - /*_.VALDATA___V346*/ meltfptr[345] = (void*) sy_NTMATCH_MATCHER; } + if (sy_NTMATCH_MATCHER && NULL == /*_.VALDATA___V347*/ meltfptr[346]) + /*_.VALDATA___V347*/ meltfptr[346] = (void*) sy_NTMATCH_MATCHER; } /*^getnamedsymbol*/ /*getnamedsym:NTMATCH_MATNDATA*/ { melt_ptr_t sy_NTMATCH_MATNDATA = meltgc_named_symbol("NTMATCH_MATNDATA", MELT_GET); - if (sy_NTMATCH_MATNDATA && NULL == /*_.VALDATA___V348*/ meltfptr[347]) - /*_.VALDATA___V348*/ meltfptr[347] = (void*) sy_NTMATCH_MATNDATA; } + if (sy_NTMATCH_MATNDATA && NULL == /*_.VALDATA___V349*/ meltfptr[348]) + /*_.VALDATA___V349*/ meltfptr[348] = (void*) sy_NTMATCH_MATNDATA; } /*^getnamedsymbol*/ /*getnamedsym:NTMATCH_INARGS*/ { melt_ptr_t sy_NTMATCH_INARGS = meltgc_named_symbol("NTMATCH_INARGS", MELT_GET); - if (sy_NTMATCH_INARGS && NULL == /*_.VALDATA___V350*/ meltfptr[349]) - /*_.VALDATA___V350*/ meltfptr[349] = (void*) sy_NTMATCH_INARGS; } + if (sy_NTMATCH_INARGS && NULL == /*_.VALDATA___V351*/ meltfptr[350]) + /*_.VALDATA___V351*/ meltfptr[350] = (void*) sy_NTMATCH_INARGS; } /*^getnamedsymbol*/ /*getnamedsym:NTMATCH_OUTLOCS*/ { melt_ptr_t sy_NTMATCH_OUTLOCS = meltgc_named_symbol("NTMATCH_OUTLOCS", MELT_GET); - if (sy_NTMATCH_OUTLOCS && NULL == /*_.VALDATA___V352*/ meltfptr[351]) - /*_.VALDATA___V352*/ meltfptr[351] = (void*) sy_NTMATCH_OUTLOCS; } + if (sy_NTMATCH_OUTLOCS && NULL == /*_.VALDATA___V353*/ meltfptr[352]) + /*_.VALDATA___V353*/ meltfptr[352] = (void*) sy_NTMATCH_OUTLOCS; } /*^getnamedsymbol*/ /*getnamedsym:CLASS_NORMTESTER_INSTANCE*/ { melt_ptr_t sy_CLASS_NORMTESTER_INSTANCE = meltgc_named_symbol("CLASS_NORMTESTER_INSTANCE", MELT_GET); - if (sy_CLASS_NORMTESTER_INSTANCE && NULL == /*_.VALDATA___V354*/ meltfptr[353]) - /*_.VALDATA___V354*/ meltfptr[353] = (void*) sy_CLASS_NORMTESTER_INSTANCE; } + if (sy_CLASS_NORMTESTER_INSTANCE && NULL == /*_.VALDATA___V355*/ meltfptr[354]) + /*_.VALDATA___V355*/ meltfptr[354] = (void*) sy_CLASS_NORMTESTER_INSTANCE; } /*^getnamedsymbol*/ /*getnamedsym:NTINST_CLASS*/ { melt_ptr_t sy_NTINST_CLASS = meltgc_named_symbol("NTINST_CLASS", MELT_GET); - if (sy_NTINST_CLASS && NULL == /*_.VALDATA___V364*/ meltfptr[363]) - /*_.VALDATA___V364*/ meltfptr[363] = (void*) sy_NTINST_CLASS; } + if (sy_NTINST_CLASS && NULL == /*_.VALDATA___V365*/ meltfptr[364]) + /*_.VALDATA___V365*/ meltfptr[364] = (void*) sy_NTINST_CLASS; } /*^getnamedsymbol*/ /*getnamedsym:NTINST_FIELDLOCS*/ { melt_ptr_t sy_NTINST_FIELDLOCS = meltgc_named_symbol("NTINST_FIELDLOCS", MELT_GET); - if (sy_NTINST_FIELDLOCS && NULL == /*_.VALDATA___V366*/ meltfptr[365]) - /*_.VALDATA___V366*/ meltfptr[365] = (void*) sy_NTINST_FIELDLOCS; } + if (sy_NTINST_FIELDLOCS && NULL == /*_.VALDATA___V367*/ meltfptr[366]) + /*_.VALDATA___V367*/ meltfptr[366] = (void*) sy_NTINST_FIELDLOCS; } /*^getnamedsymbol*/ /*getnamedsym:CLASS_NREP_MATCH*/ { melt_ptr_t sy_CLASS_NREP_MATCH = meltgc_named_symbol("CLASS_NREP_MATCH", MELT_GET); - if (sy_CLASS_NREP_MATCH && NULL == /*_.VALDATA___V368*/ meltfptr[367]) - /*_.VALDATA___V368*/ meltfptr[367] = (void*) sy_CLASS_NREP_MATCH; } + if (sy_CLASS_NREP_MATCH && NULL == /*_.VALDATA___V369*/ meltfptr[368]) + /*_.VALDATA___V369*/ meltfptr[368] = (void*) sy_CLASS_NREP_MATCH; } /*^getnamedsymbol*/ /*getnamedsym:CLASS_NREP_TYPED_EXPRESSION*/ { melt_ptr_t sy_CLASS_NREP_TYPED_EXPRESSION = meltgc_named_symbol("CLASS_NREP_TYPED_EXPRESSION", MELT_GET); - if (sy_CLASS_NREP_TYPED_EXPRESSION && NULL == /*_.VALDATA___V370*/ meltfptr[369]) - /*_.VALDATA___V370*/ meltfptr[369] = (void*) sy_CLASS_NREP_TYPED_EXPRESSION; } + if (sy_CLASS_NREP_TYPED_EXPRESSION && NULL == /*_.VALDATA___V371*/ meltfptr[370]) + /*_.VALDATA___V371*/ meltfptr[370] = (void*) sy_CLASS_NREP_TYPED_EXPRESSION; } /*^getnamedsymbol*/ /*getnamedsym:NMATCH_TESTS*/ { melt_ptr_t sy_NMATCH_TESTS = meltgc_named_symbol("NMATCH_TESTS", MELT_GET); - if (sy_NMATCH_TESTS && NULL == /*_.VALDATA___V382*/ meltfptr[381]) - /*_.VALDATA___V382*/ meltfptr[381] = (void*) sy_NMATCH_TESTS; } + if (sy_NMATCH_TESTS && NULL == /*_.VALDATA___V383*/ meltfptr[382]) + /*_.VALDATA___V383*/ meltfptr[382] = (void*) sy_NMATCH_TESTS; } /*^getnamedsymbol*/ /*getnamedsym:NMATCH_STUFFMAP*/ { melt_ptr_t sy_NMATCH_STUFFMAP = meltgc_named_symbol("NMATCH_STUFFMAP", MELT_GET); - if (sy_NMATCH_STUFFMAP && NULL == /*_.VALDATA___V384*/ meltfptr[383]) - /*_.VALDATA___V384*/ meltfptr[383] = (void*) sy_NMATCH_STUFFMAP; } + if (sy_NMATCH_STUFFMAP && NULL == /*_.VALDATA___V385*/ meltfptr[384]) + /*_.VALDATA___V385*/ meltfptr[384] = (void*) sy_NMATCH_STUFFMAP; } /*^getnamedsymbol*/ /*getnamedsym:NMATCH_MATCHED*/ { melt_ptr_t sy_NMATCH_MATCHED = meltgc_named_symbol("NMATCH_MATCHED", MELT_GET); - if (sy_NMATCH_MATCHED && NULL == /*_.VALDATA___V386*/ meltfptr[385]) - /*_.VALDATA___V386*/ meltfptr[385] = (void*) sy_NMATCH_MATCHED; } + if (sy_NMATCH_MATCHED && NULL == /*_.VALDATA___V387*/ meltfptr[386]) + /*_.VALDATA___V387*/ meltfptr[386] = (void*) sy_NMATCH_MATCHED; } /*^getnamedsymbol*/ /*getnamedsym:DISCR_LIST*/ { melt_ptr_t sy_DISCR_LIST = meltgc_named_symbol("DISCR_LIST", MELT_GET); - if (sy_DISCR_LIST && NULL == /*_.VALDATA___V390*/ meltfptr[389]) - /*_.VALDATA___V390*/ meltfptr[389] = (void*) sy_DISCR_LIST; } + if (sy_DISCR_LIST && NULL == /*_.VALDATA___V391*/ meltfptr[390]) + /*_.VALDATA___V391*/ meltfptr[390] = (void*) sy_DISCR_LIST; } /*^getnamedsymbol*/ /*getnamedsym:CLASS_CONTAINER*/ { melt_ptr_t sy_CLASS_CONTAINER = meltgc_named_symbol("CLASS_CONTAINER", MELT_GET); - if (sy_CLASS_CONTAINER && NULL == /*_.VALDATA___V396*/ meltfptr[395]) - /*_.VALDATA___V396*/ meltfptr[395] = (void*) sy_CLASS_CONTAINER; } + if (sy_CLASS_CONTAINER && NULL == /*_.VALDATA___V397*/ meltfptr[396]) + /*_.VALDATA___V397*/ meltfptr[396] = (void*) sy_CLASS_CONTAINER; } /*^getnamedsymbol*/ /*getnamedsym:CLASS_LOCATED*/ { melt_ptr_t sy_CLASS_LOCATED = meltgc_named_symbol("CLASS_LOCATED", MELT_GET); - if (sy_CLASS_LOCATED && NULL == /*_.VALDATA___V402*/ meltfptr[401]) - /*_.VALDATA___V402*/ meltfptr[401] = (void*) sy_CLASS_LOCATED; } + if (sy_CLASS_LOCATED && NULL == /*_.VALDATA___V403*/ meltfptr[402]) + /*_.VALDATA___V403*/ meltfptr[402] = (void*) sy_CLASS_LOCATED; } /*^getnamedsymbol*/ /*getnamedsym:CLASS_NREP_LOCSYMOCC*/ { melt_ptr_t sy_CLASS_NREP_LOCSYMOCC = meltgc_named_symbol("CLASS_NREP_LOCSYMOCC", MELT_GET); - if (sy_CLASS_NREP_LOCSYMOCC && NULL == /*_.VALDATA___V409*/ meltfptr[408]) - /*_.VALDATA___V409*/ meltfptr[408] = (void*) sy_CLASS_NREP_LOCSYMOCC; } + if (sy_CLASS_NREP_LOCSYMOCC && NULL == /*_.VALDATA___V410*/ meltfptr[409]) + /*_.VALDATA___V410*/ meltfptr[409] = (void*) sy_CLASS_NREP_LOCSYMOCC; } /*^getnamedsymbol*/ /*getnamedsym:CLASS_NORMAL_LET_BINDING*/ { melt_ptr_t sy_CLASS_NORMAL_LET_BINDING = meltgc_named_symbol("CLASS_NORMAL_LET_BINDING", MELT_GET); - if (sy_CLASS_NORMAL_LET_BINDING && NULL == /*_.VALDATA___V413*/ meltfptr[412]) - /*_.VALDATA___V413*/ meltfptr[412] = (void*) sy_CLASS_NORMAL_LET_BINDING; } + if (sy_CLASS_NORMAL_LET_BINDING && NULL == /*_.VALDATA___V414*/ meltfptr[413]) + /*_.VALDATA___V414*/ meltfptr[413] = (void*) sy_CLASS_NORMAL_LET_BINDING; } /*^getnamedsymbol*/ /*getnamedsym:CLASS_NORMALIZATION_CONTEXT*/ { melt_ptr_t sy_CLASS_NORMALIZATION_CONTEXT = meltgc_named_symbol("CLASS_NORMALIZATION_CONTEXT", MELT_GET); - if (sy_CLASS_NORMALIZATION_CONTEXT && NULL == /*_.VALDATA___V415*/ meltfptr[414]) - /*_.VALDATA___V415*/ meltfptr[414] = (void*) sy_CLASS_NORMALIZATION_CONTEXT; } + if (sy_CLASS_NORMALIZATION_CONTEXT && NULL == /*_.VALDATA___V416*/ meltfptr[415]) + /*_.VALDATA___V416*/ meltfptr[415] = (void*) sy_CLASS_NORMALIZATION_CONTEXT; } /*^getnamedsymbol*/ /*getnamedsym:CLASS_SOURCE_PATTERN_INSTANCE*/ { melt_ptr_t sy_CLASS_SOURCE_PATTERN_INSTANCE = meltgc_named_symbol("CLASS_SOURCE_PATTERN_INSTANCE", MELT_GET); - if (sy_CLASS_SOURCE_PATTERN_INSTANCE && NULL == /*_.VALDATA___V423*/ meltfptr[422]) - /*_.VALDATA___V423*/ meltfptr[422] = (void*) sy_CLASS_SOURCE_PATTERN_INSTANCE; } + if (sy_CLASS_SOURCE_PATTERN_INSTANCE && NULL == /*_.VALDATA___V424*/ meltfptr[423]) + /*_.VALDATA___V424*/ meltfptr[423] = (void*) sy_CLASS_SOURCE_PATTERN_INSTANCE; } /*^getnamedsymbol*/ /*getnamedsym:DISCR_MULTIPLE*/ { melt_ptr_t sy_DISCR_MULTIPLE = meltgc_named_symbol("DISCR_MULTIPLE", MELT_GET); - if (sy_DISCR_MULTIPLE && NULL == /*_.VALDATA___V425*/ meltfptr[424]) - /*_.VALDATA___V425*/ meltfptr[424] = (void*) sy_DISCR_MULTIPLE; } + if (sy_DISCR_MULTIPLE && NULL == /*_.VALDATA___V426*/ meltfptr[425]) + /*_.VALDATA___V426*/ meltfptr[425] = (void*) sy_DISCR_MULTIPLE; } /*^getnamedsymbol*/ /*getnamedsym:CLASS_NREP_SYMOCC*/ { melt_ptr_t sy_CLASS_NREP_SYMOCC = meltgc_named_symbol("CLASS_NREP_SYMOCC", MELT_GET); - if (sy_CLASS_NREP_SYMOCC && NULL == /*_.VALDATA___V427*/ meltfptr[426]) - /*_.VALDATA___V427*/ meltfptr[426] = (void*) sy_CLASS_NREP_SYMOCC; } + if (sy_CLASS_NREP_SYMOCC && NULL == /*_.VALDATA___V428*/ meltfptr[427]) + /*_.VALDATA___V428*/ meltfptr[427] = (void*) sy_CLASS_NREP_SYMOCC; } /*^getnamedsymbol*/ /*getnamedsym:CLASS_LET_BINDING*/ { melt_ptr_t sy_CLASS_LET_BINDING = meltgc_named_symbol("CLASS_LET_BINDING", MELT_GET); - if (sy_CLASS_LET_BINDING && NULL == /*_.VALDATA___V429*/ meltfptr[428]) - /*_.VALDATA___V429*/ meltfptr[428] = (void*) sy_CLASS_LET_BINDING; } + if (sy_CLASS_LET_BINDING && NULL == /*_.VALDATA___V430*/ meltfptr[429]) + /*_.VALDATA___V430*/ meltfptr[429] = (void*) sy_CLASS_LET_BINDING; } /*^getnamedsymbol*/ /*getnamedsym:CLASS_NREP_UNSAFE_GET_FIELD*/ { melt_ptr_t sy_CLASS_NREP_UNSAFE_GET_FIELD = meltgc_named_symbol("CLASS_NREP_UNSAFE_GET_FIELD", MELT_GET); - if (sy_CLASS_NREP_UNSAFE_GET_FIELD && NULL == /*_.VALDATA___V431*/ meltfptr[430]) - /*_.VALDATA___V431*/ meltfptr[430] = (void*) sy_CLASS_NREP_UNSAFE_GET_FIELD; } + if (sy_CLASS_NREP_UNSAFE_GET_FIELD && NULL == /*_.VALDATA___V432*/ meltfptr[431]) + /*_.VALDATA___V432*/ meltfptr[431] = (void*) sy_CLASS_NREP_UNSAFE_GET_FIELD; } /*^getnamedsymbol*/ /*getnamedsym:CLONE_SYMBOL*/ { melt_ptr_t sy_CLONE_SYMBOL = meltgc_named_symbol("CLONE_SYMBOL", MELT_GET); - if (sy_CLONE_SYMBOL && NULL == /*_.VALDATA___V433*/ meltfptr[432]) - /*_.VALDATA___V433*/ meltfptr[432] = (void*) sy_CLONE_SYMBOL; } + if (sy_CLONE_SYMBOL && NULL == /*_.VALDATA___V434*/ meltfptr[433]) + /*_.VALDATA___V434*/ meltfptr[433] = (void*) sy_CLONE_SYMBOL; } /*^getnamedsymbol*/ /*getnamedsym:MAPOBJECT_SORTED_ATTRIBUTE_TUPLE*/ { melt_ptr_t sy_MAPOBJECT_SORTED_ATTRIBUTE_TUPLE = meltgc_named_symbol("MAPOBJECT_SORTED_ATTRIBUTE_TUPLE", MELT_GET); - if (sy_MAPOBJECT_SORTED_ATTRIBUTE_TUPLE && NULL == /*_.VALDATA___V443*/ meltfptr[442]) - /*_.VALDATA___V443*/ meltfptr[442] = (void*) sy_MAPOBJECT_SORTED_ATTRIBUTE_TUPLE; } + if (sy_MAPOBJECT_SORTED_ATTRIBUTE_TUPLE && NULL == /*_.VALDATA___V444*/ meltfptr[443]) + /*_.VALDATA___V444*/ meltfptr[443] = (void*) sy_MAPOBJECT_SORTED_ATTRIBUTE_TUPLE; } /*^getnamedsymbol*/ /*getnamedsym:MULTIPLE_MAP*/ { melt_ptr_t sy_MULTIPLE_MAP = meltgc_named_symbol("MULTIPLE_MAP", MELT_GET); - if (sy_MULTIPLE_MAP && NULL == /*_.VALDATA___V445*/ meltfptr[444]) - /*_.VALDATA___V445*/ meltfptr[444] = (void*) sy_MULTIPLE_MAP; } + if (sy_MULTIPLE_MAP && NULL == /*_.VALDATA___V446*/ meltfptr[445]) + /*_.VALDATA___V446*/ meltfptr[445] = (void*) sy_MULTIPLE_MAP; } /*^getnamedsymbol*/ /*getnamedsym:DISCR_BOX*/ { melt_ptr_t sy_DISCR_BOX = meltgc_named_symbol("DISCR_BOX", MELT_GET); - if (sy_DISCR_BOX && NULL == /*_.VALDATA___V447*/ meltfptr[446]) - /*_.VALDATA___V447*/ meltfptr[446] = (void*) sy_DISCR_BOX; } + if (sy_DISCR_BOX && NULL == /*_.VALDATA___V448*/ meltfptr[447]) + /*_.VALDATA___V448*/ meltfptr[447] = (void*) sy_DISCR_BOX; } /*^getnamedsymbol*/ /*getnamedsym:LIST_TO_MULTIPLE*/ { melt_ptr_t sy_LIST_TO_MULTIPLE = meltgc_named_symbol("LIST_TO_MULTIPLE", MELT_GET); - if (sy_LIST_TO_MULTIPLE && NULL == /*_.VALDATA___V449*/ meltfptr[448]) - /*_.VALDATA___V449*/ meltfptr[448] = (void*) sy_LIST_TO_MULTIPLE; } + if (sy_LIST_TO_MULTIPLE && NULL == /*_.VALDATA___V450*/ meltfptr[449]) + /*_.VALDATA___V450*/ meltfptr[449] = (void*) sy_LIST_TO_MULTIPLE; } /*^getnamedsymbol*/ /*getnamedsym:CLASS_NREP*/ { melt_ptr_t sy_CLASS_NREP = meltgc_named_symbol("CLASS_NREP", MELT_GET); - if (sy_CLASS_NREP && NULL == /*_.VALDATA___V451*/ meltfptr[450]) - /*_.VALDATA___V451*/ meltfptr[450] = (void*) sy_CLASS_NREP; } + if (sy_CLASS_NREP && NULL == /*_.VALDATA___V452*/ meltfptr[451]) + /*_.VALDATA___V452*/ meltfptr[451] = (void*) sy_CLASS_NREP; } /*^getnamedsymbol*/ /*getnamedsym:CLASS_SOURCE_PATTERN_MATCHER*/ { melt_ptr_t sy_CLASS_SOURCE_PATTERN_MATCHER = meltgc_named_symbol("CLASS_SOURCE_PATTERN_MATCHER", MELT_GET); - if (sy_CLASS_SOURCE_PATTERN_MATCHER && NULL == /*_.VALDATA___V459*/ meltfptr[458]) - /*_.VALDATA___V459*/ meltfptr[458] = (void*) sy_CLASS_SOURCE_PATTERN_MATCHER; } + if (sy_CLASS_SOURCE_PATTERN_MATCHER && NULL == /*_.VALDATA___V460*/ meltfptr[459]) + /*_.VALDATA___V460*/ meltfptr[459] = (void*) sy_CLASS_SOURCE_PATTERN_MATCHER; } /*^getnamedsymbol*/ /*getnamedsym:CLASS_ANY_BINDING*/ { melt_ptr_t sy_CLASS_ANY_BINDING = meltgc_named_symbol("CLASS_ANY_BINDING", MELT_GET); - if (sy_CLASS_ANY_BINDING && NULL == /*_.VALDATA___V461*/ meltfptr[460]) - /*_.VALDATA___V461*/ meltfptr[460] = (void*) sy_CLASS_ANY_BINDING; } + if (sy_CLASS_ANY_BINDING && NULL == /*_.VALDATA___V462*/ meltfptr[461]) + /*_.VALDATA___V462*/ meltfptr[461] = (void*) sy_CLASS_ANY_BINDING; } /*^getnamedsymbol*/ /*getnamedsym:FIND_ENV*/ { melt_ptr_t sy_FIND_ENV = meltgc_named_symbol("FIND_ENV", MELT_GET); - if (sy_FIND_ENV && NULL == /*_.VALDATA___V463*/ meltfptr[462]) - /*_.VALDATA___V463*/ meltfptr[462] = (void*) sy_FIND_ENV; } + if (sy_FIND_ENV && NULL == /*_.VALDATA___V464*/ meltfptr[463]) + /*_.VALDATA___V464*/ meltfptr[463] = (void*) sy_FIND_ENV; } /*^getnamedsymbol*/ /*getnamedsym:FRESH_ENV*/ { melt_ptr_t sy_FRESH_ENV = meltgc_named_symbol("FRESH_ENV", MELT_GET); - if (sy_FRESH_ENV && NULL == /*_.VALDATA___V465*/ meltfptr[464]) - /*_.VALDATA___V465*/ meltfptr[464] = (void*) sy_FRESH_ENV; } + if (sy_FRESH_ENV && NULL == /*_.VALDATA___V466*/ meltfptr[465]) + /*_.VALDATA___V466*/ meltfptr[465] = (void*) sy_FRESH_ENV; } /*^getnamedsymbol*/ /*getnamedsym:PUT_ENV*/ { melt_ptr_t sy_PUT_ENV = meltgc_named_symbol("PUT_ENV", MELT_GET); - if (sy_PUT_ENV && NULL == /*_.VALDATA___V467*/ meltfptr[466]) - /*_.VALDATA___V467*/ meltfptr[466] = (void*) sy_PUT_ENV; } + if (sy_PUT_ENV && NULL == /*_.VALDATA___V468*/ meltfptr[467]) + /*_.VALDATA___V468*/ meltfptr[467] = (void*) sy_PUT_ENV; } /*^getnamedsymbol*/ /*getnamedsym:MULTIPLE_TO_LIST*/ { melt_ptr_t sy_MULTIPLE_TO_LIST = meltgc_named_symbol("MULTIPLE_TO_LIST", MELT_GET); - if (sy_MULTIPLE_TO_LIST && NULL == /*_.VALDATA___V469*/ meltfptr[468]) - /*_.VALDATA___V469*/ meltfptr[468] = (void*) sy_MULTIPLE_TO_LIST; } + if (sy_MULTIPLE_TO_LIST && NULL == /*_.VALDATA___V470*/ meltfptr[469]) + /*_.VALDATA___V470*/ meltfptr[469] = (void*) sy_MULTIPLE_TO_LIST; } /*^getnamedsymbol*/ /*getnamedsym:MATCH_GRAPHIC_DOT_PREFIX*/ { melt_ptr_t sy_MATCH_GRAPHIC_DOT_PREFIX = meltgc_named_symbol("MATCH_GRAPHIC_DOT_PREFIX", MELT_GET); - if (sy_MATCH_GRAPHIC_DOT_PREFIX && NULL == /*_.VALDATA___V474*/ meltfptr[473]) - /*_.VALDATA___V474*/ meltfptr[473] = (void*) sy_MATCH_GRAPHIC_DOT_PREFIX; } + if (sy_MATCH_GRAPHIC_DOT_PREFIX && NULL == /*_.VALDATA___V475*/ meltfptr[474]) + /*_.VALDATA___V475*/ meltfptr[474] = (void*) sy_MATCH_GRAPHIC_DOT_PREFIX; } /*^getnamedsymbol*/ /*getnamedsym:DISCR_STRING*/ { melt_ptr_t sy_DISCR_STRING = meltgc_named_symbol("DISCR_STRING", MELT_GET); - if (sy_DISCR_STRING && NULL == /*_.VALDATA___V479*/ meltfptr[478]) - /*_.VALDATA___V479*/ meltfptr[478] = (void*) sy_DISCR_STRING; } + if (sy_DISCR_STRING && NULL == /*_.VALDATA___V480*/ meltfptr[479]) + /*_.VALDATA___V480*/ meltfptr[479] = (void*) sy_DISCR_STRING; } /*^getnamedsymbol*/ /*getnamedsym:REGISTER_OPTION*/ { melt_ptr_t sy_REGISTER_OPTION = meltgc_named_symbol("REGISTER_OPTION", MELT_GET); - if (sy_REGISTER_OPTION && NULL == /*_.VALDATA___V481*/ meltfptr[480]) - /*_.VALDATA___V481*/ meltfptr[480] = (void*) sy_REGISTER_OPTION; } + if (sy_REGISTER_OPTION && NULL == /*_.VALDATA___V482*/ meltfptr[481]) + /*_.VALDATA___V482*/ meltfptr[481] = (void*) sy_REGISTER_OPTION; } /*^getnamedsymbol*/ /*getnamedsym:MATCH_GRAPHIC*/ { melt_ptr_t sy_MATCH_GRAPHIC = meltgc_named_symbol("MATCH_GRAPHIC", MELT_GET); - if (sy_MATCH_GRAPHIC && NULL == /*_.VALDATA___V483*/ meltfptr[482]) - /*_.VALDATA___V483*/ meltfptr[482] = (void*) sy_MATCH_GRAPHIC; } + if (sy_MATCH_GRAPHIC && NULL == /*_.VALDATA___V484*/ meltfptr[483]) + /*_.VALDATA___V484*/ meltfptr[483] = (void*) sy_MATCH_GRAPHIC; } /*^getnamedsymbol*/ /*getnamedsym:CLASS_MATCH_GRAPHIC*/ { melt_ptr_t sy_CLASS_MATCH_GRAPHIC = meltgc_named_symbol("CLASS_MATCH_GRAPHIC", MELT_GET); - if (sy_CLASS_MATCH_GRAPHIC && NULL == /*_.VALDATA___V486*/ meltfptr[485]) - /*_.VALDATA___V486*/ meltfptr[485] = (void*) sy_CLASS_MATCH_GRAPHIC; } + if (sy_CLASS_MATCH_GRAPHIC && NULL == /*_.VALDATA___V487*/ meltfptr[486]) + /*_.VALDATA___V487*/ meltfptr[486] = (void*) sy_CLASS_MATCH_GRAPHIC; } /*^getnamedsymbol*/ /*getnamedsym:CLASS_PROPED*/ { melt_ptr_t sy_CLASS_PROPED = meltgc_named_symbol("CLASS_PROPED", MELT_GET); - if (sy_CLASS_PROPED && NULL == /*_.VALDATA___V488*/ meltfptr[487]) - /*_.VALDATA___V488*/ meltfptr[487] = (void*) sy_CLASS_PROPED; } + if (sy_CLASS_PROPED && NULL == /*_.VALDATA___V489*/ meltfptr[488]) + /*_.VALDATA___V489*/ meltfptr[488] = (void*) sy_CLASS_PROPED; } /*^getnamedsymbol*/ /*getnamedsym:MCHGX_FILENAME*/ { melt_ptr_t sy_MCHGX_FILENAME = meltgc_named_symbol("MCHGX_FILENAME", MELT_GET); - if (sy_MCHGX_FILENAME && NULL == /*_.VALDATA___V504*/ meltfptr[503]) - /*_.VALDATA___V504*/ meltfptr[503] = (void*) sy_MCHGX_FILENAME; } + if (sy_MCHGX_FILENAME && NULL == /*_.VALDATA___V505*/ meltfptr[504]) + /*_.VALDATA___V505*/ meltfptr[504] = (void*) sy_MCHGX_FILENAME; } /*^getnamedsymbol*/ /*getnamedsym:MCHGX_NODOUT*/ { melt_ptr_t sy_MCHGX_NODOUT = meltgc_named_symbol("MCHGX_NODOUT", MELT_GET); - if (sy_MCHGX_NODOUT && NULL == /*_.VALDATA___V506*/ meltfptr[505]) - /*_.VALDATA___V506*/ meltfptr[505] = (void*) sy_MCHGX_NODOUT; } + if (sy_MCHGX_NODOUT && NULL == /*_.VALDATA___V507*/ meltfptr[506]) + /*_.VALDATA___V507*/ meltfptr[506] = (void*) sy_MCHGX_NODOUT; } /*^getnamedsymbol*/ /*getnamedsym:MCHGX_EDGOUT*/ { melt_ptr_t sy_MCHGX_EDGOUT = meltgc_named_symbol("MCHGX_EDGOUT", MELT_GET); - if (sy_MCHGX_EDGOUT && NULL == /*_.VALDATA___V508*/ meltfptr[507]) - /*_.VALDATA___V508*/ meltfptr[507] = (void*) sy_MCHGX_EDGOUT; } + if (sy_MCHGX_EDGOUT && NULL == /*_.VALDATA___V509*/ meltfptr[508]) + /*_.VALDATA___V509*/ meltfptr[508] = (void*) sy_MCHGX_EDGOUT; } /*^getnamedsymbol*/ /*getnamedsym:MCHGX_DATANAMEMAP*/ { melt_ptr_t sy_MCHGX_DATANAMEMAP = meltgc_named_symbol("MCHGX_DATANAMEMAP", MELT_GET); - if (sy_MCHGX_DATANAMEMAP && NULL == /*_.VALDATA___V510*/ meltfptr[509]) - /*_.VALDATA___V510*/ meltfptr[509] = (void*) sy_MCHGX_DATANAMEMAP; } + if (sy_MCHGX_DATANAMEMAP && NULL == /*_.VALDATA___V511*/ meltfptr[510]) + /*_.VALDATA___V511*/ meltfptr[510] = (void*) sy_MCHGX_DATANAMEMAP; } /*^getnamedsymbol*/ /*getnamedsym:MCHGX_STEPNAMEMAP*/ { melt_ptr_t sy_MCHGX_STEPNAMEMAP = meltgc_named_symbol("MCHGX_STEPNAMEMAP", MELT_GET); - if (sy_MCHGX_STEPNAMEMAP && NULL == /*_.VALDATA___V512*/ meltfptr[511]) - /*_.VALDATA___V512*/ meltfptr[511] = (void*) sy_MCHGX_STEPNAMEMAP; } + if (sy_MCHGX_STEPNAMEMAP && NULL == /*_.VALDATA___V513*/ meltfptr[512]) + /*_.VALDATA___V513*/ meltfptr[512] = (void*) sy_MCHGX_STEPNAMEMAP; } /*^getnamedsymbol*/ /*getnamedsym:MATCHGRAPHIC_LABEL*/ { melt_ptr_t sy_MATCHGRAPHIC_LABEL = meltgc_named_symbol("MATCHGRAPHIC_LABEL", MELT_GET); - if (sy_MATCHGRAPHIC_LABEL && NULL == /*_.VALDATA___V516*/ meltfptr[515]) - /*_.VALDATA___V516*/ meltfptr[515] = (void*) sy_MATCHGRAPHIC_LABEL; } + if (sy_MATCHGRAPHIC_LABEL && NULL == /*_.VALDATA___V517*/ meltfptr[516]) + /*_.VALDATA___V517*/ meltfptr[516] = (void*) sy_MATCHGRAPHIC_LABEL; } /*^getnamedsymbol*/ /*getnamedsym:CLASS_CLONED_SYMBOL*/ { melt_ptr_t sy_CLASS_CLONED_SYMBOL = meltgc_named_symbol("CLASS_CLONED_SYMBOL", MELT_GET); - if (sy_CLASS_CLONED_SYMBOL && NULL == /*_.VALDATA___V522*/ meltfptr[521]) - /*_.VALDATA___V522*/ meltfptr[521] = (void*) sy_CLASS_CLONED_SYMBOL; } + if (sy_CLASS_CLONED_SYMBOL && NULL == /*_.VALDATA___V523*/ meltfptr[522]) + /*_.VALDATA___V523*/ meltfptr[522] = (void*) sy_CLASS_CLONED_SYMBOL; } /*^getnamedsymbol*/ /*getnamedsym:DISCR_STRBUF*/ { melt_ptr_t sy_DISCR_STRBUF = meltgc_named_symbol("DISCR_STRBUF", MELT_GET); - if (sy_DISCR_STRBUF && NULL == /*_.VALDATA___V532*/ meltfptr[531]) - /*_.VALDATA___V532*/ meltfptr[531] = (void*) sy_DISCR_STRBUF; } + if (sy_DISCR_STRBUF && NULL == /*_.VALDATA___V533*/ meltfptr[532]) + /*_.VALDATA___V533*/ meltfptr[532] = (void*) sy_DISCR_STRBUF; } /*^getnamedsymbol*/ /*getnamedsym:CLASS_SOURCE_MATCH*/ { melt_ptr_t sy_CLASS_SOURCE_MATCH = meltgc_named_symbol("CLASS_SOURCE_MATCH", MELT_GET); - if (sy_CLASS_SOURCE_MATCH && NULL == /*_.VALDATA___V541*/ meltfptr[540]) - /*_.VALDATA___V541*/ meltfptr[540] = (void*) sy_CLASS_SOURCE_MATCH; } + if (sy_CLASS_SOURCE_MATCH && NULL == /*_.VALDATA___V542*/ meltfptr[541]) + /*_.VALDATA___V542*/ meltfptr[541] = (void*) sy_CLASS_SOURCE_MATCH; } /*^getnamedsymbol*/ /*getnamedsym:CLASS_ENVIRONMENT*/ { melt_ptr_t sy_CLASS_ENVIRONMENT = meltgc_named_symbol("CLASS_ENVIRONMENT", MELT_GET); - if (sy_CLASS_ENVIRONMENT && NULL == /*_.VALDATA___V543*/ meltfptr[542]) - /*_.VALDATA___V543*/ meltfptr[542] = (void*) sy_CLASS_ENVIRONMENT; } + if (sy_CLASS_ENVIRONMENT && NULL == /*_.VALDATA___V544*/ meltfptr[543]) + /*_.VALDATA___V544*/ meltfptr[543] = (void*) sy_CLASS_ENVIRONMENT; } /*^getnamedsymbol*/ /*getnamedsym:_MATCHED_*/ { melt_ptr_t sy_MATCHED_ = meltgc_named_symbol("_MATCHED_", MELT_GET); - if (sy_MATCHED_ && NULL == /*_.VALDATA___V535*/ meltfptr[534]) - /*_.VALDATA___V535*/ meltfptr[534] = (void*) sy_MATCHED_; } + if (sy_MATCHED_ && NULL == /*_.VALDATA___V536*/ meltfptr[535]) + /*_.VALDATA___V536*/ meltfptr[535] = (void*) sy_MATCHED_; } /*^getnamedsymbol*/ /*getnamedsym:CLASS_SOURCE_MATCH_CASE*/ { melt_ptr_t sy_CLASS_SOURCE_MATCH_CASE = meltgc_named_symbol("CLASS_SOURCE_MATCH_CASE", MELT_GET); - if (sy_CLASS_SOURCE_MATCH_CASE && NULL == /*_.VALDATA___V545*/ meltfptr[544]) - /*_.VALDATA___V545*/ meltfptr[544] = (void*) sy_CLASS_SOURCE_MATCH_CASE; } + if (sy_CLASS_SOURCE_MATCH_CASE && NULL == /*_.VALDATA___V546*/ meltfptr[545]) + /*_.VALDATA___V546*/ meltfptr[545] = (void*) sy_CLASS_SOURCE_MATCH_CASE; } /*^getnamedsymbol*/ /*getnamedsym:WRAP_NORMAL_LETSEQ*/ { melt_ptr_t sy_WRAP_NORMAL_LETSEQ = meltgc_named_symbol("WRAP_NORMAL_LETSEQ", MELT_GET); - if (sy_WRAP_NORMAL_LETSEQ && NULL == /*_.VALDATA___V547*/ meltfptr[546]) - /*_.VALDATA___V547*/ meltfptr[546] = (void*) sy_WRAP_NORMAL_LETSEQ; } + if (sy_WRAP_NORMAL_LETSEQ && NULL == /*_.VALDATA___V548*/ meltfptr[547]) + /*_.VALDATA___V548*/ meltfptr[547] = (void*) sy_WRAP_NORMAL_LETSEQ; } /*^getnamedsymbol*/ /*getnamedsym:CTYPE_VOID*/ { melt_ptr_t sy_CTYPE_VOID = meltgc_named_symbol("CTYPE_VOID", MELT_GET); - if (sy_CTYPE_VOID && NULL == /*_.VALDATA___V549*/ meltfptr[548]) - /*_.VALDATA___V549*/ meltfptr[548] = (void*) sy_CTYPE_VOID; } + if (sy_CTYPE_VOID && NULL == /*_.VALDATA___V550*/ meltfptr[549]) + /*_.VALDATA___V550*/ meltfptr[549] = (void*) sy_CTYPE_VOID; } /*^getnamedsymbol*/ /*getnamedsym:MATCHRES_*/ { melt_ptr_t sy_MATCHRES_ = meltgc_named_symbol("MATCHRES_", MELT_GET); - if (sy_MATCHRES_ && NULL == /*_.VALDATA___V538*/ meltfptr[537]) - /*_.VALDATA___V538*/ meltfptr[537] = (void*) sy_MATCHRES_; } + if (sy_MATCHRES_ && NULL == /*_.VALDATA___V539*/ meltfptr[538]) + /*_.VALDATA___V539*/ meltfptr[538] = (void*) sy_MATCHRES_; } /*^getnamedsymbol*/ /*getnamedsym:CLASS_MATCHING_CONTEXT*/ { melt_ptr_t sy_CLASS_MATCHING_CONTEXT = meltgc_named_symbol("CLASS_MATCHING_CONTEXT", MELT_GET); - if (sy_CLASS_MATCHING_CONTEXT && NULL == /*_.VALDATA___V551*/ meltfptr[550]) - /*_.VALDATA___V551*/ meltfptr[550] = (void*) sy_CLASS_MATCHING_CONTEXT; } + if (sy_CLASS_MATCHING_CONTEXT && NULL == /*_.VALDATA___V552*/ meltfptr[551]) + /*_.VALDATA___V552*/ meltfptr[551] = (void*) sy_CLASS_MATCHING_CONTEXT; } /*^getnamedsymbol*/ - /*getnamedsym:MXCT_NORMCTXT*/ - { melt_ptr_t sy_MXCT_NORMCTXT = meltgc_named_symbol("MXCT_NORMCTXT", MELT_GET); - if (sy_MXCT_NORMCTXT && NULL == /*_.VALDATA___V571*/ meltfptr[570]) - /*_.VALDATA___V571*/ meltfptr[570] = (void*) sy_MXCT_NORMCTXT; } + /*getnamedsym:MCTX_NORMCTXT*/ + { melt_ptr_t sy_MCTX_NORMCTXT = meltgc_named_symbol("MCTX_NORMCTXT", MELT_GET); + if (sy_MCTX_NORMCTXT && NULL == /*_.VALDATA___V574*/ meltfptr[573]) + /*_.VALDATA___V574*/ meltfptr[573] = (void*) sy_MCTX_NORMCTXT; } /*^getnamedsymbol*/ - /*getnamedsym:MXCT_SOURCE*/ - { melt_ptr_t sy_MXCT_SOURCE = meltgc_named_symbol("MXCT_SOURCE", MELT_GET); - if (sy_MXCT_SOURCE && NULL == /*_.VALDATA___V573*/ meltfptr[572]) - /*_.VALDATA___V573*/ meltfptr[572] = (void*) sy_MXCT_SOURCE; } + /*getnamedsym:MCTX_SOURCE*/ + { melt_ptr_t sy_MCTX_SOURCE = meltgc_named_symbol("MCTX_SOURCE", MELT_GET); + if (sy_MCTX_SOURCE && NULL == /*_.VALDATA___V576*/ meltfptr[575]) + /*_.VALDATA___V576*/ meltfptr[575] = (void*) sy_MCTX_SOURCE; } /*^getnamedsymbol*/ - /*getnamedsym:MXCT_NMATCHED*/ - { melt_ptr_t sy_MXCT_NMATCHED = meltgc_named_symbol("MXCT_NMATCHED", MELT_GET); - if (sy_MXCT_NMATCHED && NULL == /*_.VALDATA___V575*/ meltfptr[574]) - /*_.VALDATA___V575*/ meltfptr[574] = (void*) sy_MXCT_NMATCHED; } + /*getnamedsym:MCTX_NMATCHED*/ + { melt_ptr_t sy_MCTX_NMATCHED = meltgc_named_symbol("MCTX_NMATCHED", MELT_GET); + if (sy_MCTX_NMATCHED && NULL == /*_.VALDATA___V578*/ meltfptr[577]) + /*_.VALDATA___V578*/ meltfptr[577] = (void*) sy_MCTX_NMATCHED; } /*^getnamedsymbol*/ - /*getnamedsym:MXCT_CASES*/ - { melt_ptr_t sy_MXCT_CASES = meltgc_named_symbol("MXCT_CASES", MELT_GET); - if (sy_MXCT_CASES && NULL == /*_.VALDATA___V577*/ meltfptr[576]) - /*_.VALDATA___V577*/ meltfptr[576] = (void*) sy_MXCT_CASES; } + /*getnamedsym:MCTX_CASES*/ + { melt_ptr_t sy_MCTX_CASES = meltgc_named_symbol("MCTX_CASES", MELT_GET); + if (sy_MCTX_CASES && NULL == /*_.VALDATA___V580*/ meltfptr[579]) + /*_.VALDATA___V580*/ meltfptr[579] = (void*) sy_MCTX_CASES; } /*^getnamedsymbol*/ - /*getnamedsym:MXCT_ENV*/ - { melt_ptr_t sy_MXCT_ENV = meltgc_named_symbol("MXCT_ENV", MELT_GET); - if (sy_MXCT_ENV && NULL == /*_.VALDATA___V579*/ meltfptr[578]) - /*_.VALDATA___V579*/ meltfptr[578] = (void*) sy_MXCT_ENV; } + /*getnamedsym:MCTX_ENV*/ + { melt_ptr_t sy_MCTX_ENV = meltgc_named_symbol("MCTX_ENV", MELT_GET); + if (sy_MCTX_ENV && NULL == /*_.VALDATA___V582*/ meltfptr[581]) + /*_.VALDATA___V582*/ meltfptr[581] = (void*) sy_MCTX_ENV; } /*^getnamedsymbol*/ - /*getnamedsym:MXCT_MDATA*/ - { melt_ptr_t sy_MXCT_MDATA = meltgc_named_symbol("MXCT_MDATA", MELT_GET); - if (sy_MXCT_MDATA && NULL == /*_.VALDATA___V581*/ meltfptr[580]) - /*_.VALDATA___V581*/ meltfptr[580] = (void*) sy_MXCT_MDATA; } + /*getnamedsym:MCTX_MDATA*/ + { melt_ptr_t sy_MCTX_MDATA = meltgc_named_symbol("MCTX_MDATA", MELT_GET); + if (sy_MCTX_MDATA && NULL == /*_.VALDATA___V584*/ meltfptr[583]) + /*_.VALDATA___V584*/ meltfptr[583] = (void*) sy_MCTX_MDATA; } /*^getnamedsymbol*/ - /*getnamedsym:MXCT_VARHANDLERS*/ - { melt_ptr_t sy_MXCT_VARHANDLERS = meltgc_named_symbol("MXCT_VARHANDLERS", MELT_GET); - if (sy_MXCT_VARHANDLERS && NULL == /*_.VALDATA___V583*/ meltfptr[582]) - /*_.VALDATA___V583*/ meltfptr[582] = (void*) sy_MXCT_VARHANDLERS; } + /*getnamedsym:MCTX_VARHANDLERS*/ + { melt_ptr_t sy_MCTX_VARHANDLERS = meltgc_named_symbol("MCTX_VARHANDLERS", MELT_GET); + if (sy_MCTX_VARHANDLERS && NULL == /*_.VALDATA___V586*/ meltfptr[585]) + /*_.VALDATA___V586*/ meltfptr[585] = (void*) sy_MCTX_VARHANDLERS; } + + /*^getnamedsymbol*/ + + /*getnamedsym:MCTX_FLAGS*/ + { melt_ptr_t sy_MCTX_FLAGS = meltgc_named_symbol("MCTX_FLAGS", MELT_GET); + if (sy_MCTX_FLAGS && NULL == /*_.VALDATA___V588*/ meltfptr[587]) + /*_.VALDATA___V588*/ meltfptr[587] = (void*) sy_MCTX_FLAGS; } /*^getnamedsymbol*/ /*getnamedsym:CLASS_MATCH_CASE*/ { melt_ptr_t sy_CLASS_MATCH_CASE = meltgc_named_symbol("CLASS_MATCH_CASE", MELT_GET); - if (sy_CLASS_MATCH_CASE && NULL == /*_.VALDATA___V585*/ meltfptr[584]) - /*_.VALDATA___V585*/ meltfptr[584] = (void*) sy_CLASS_MATCH_CASE; } + if (sy_CLASS_MATCH_CASE && NULL == /*_.VALDATA___V590*/ meltfptr[589]) + /*_.VALDATA___V590*/ meltfptr[589] = (void*) sy_CLASS_MATCH_CASE; } /*^getnamedsymbol*/ /*getnamedsym:MCASE_MCTXT*/ { melt_ptr_t sy_MCASE_MCTXT = meltgc_named_symbol("MCASE_MCTXT", MELT_GET); - if (sy_MCASE_MCTXT && NULL == /*_.VALDATA___V599*/ meltfptr[598]) - /*_.VALDATA___V599*/ meltfptr[598] = (void*) sy_MCASE_MCTXT; } + if (sy_MCASE_MCTXT && NULL == /*_.VALDATA___V604*/ meltfptr[603]) + /*_.VALDATA___V604*/ meltfptr[603] = (void*) sy_MCASE_MCTXT; } /*^getnamedsymbol*/ /*getnamedsym:MCASE_SOURCE*/ { melt_ptr_t sy_MCASE_SOURCE = meltgc_named_symbol("MCASE_SOURCE", MELT_GET); - if (sy_MCASE_SOURCE && NULL == /*_.VALDATA___V601*/ meltfptr[600]) - /*_.VALDATA___V601*/ meltfptr[600] = (void*) sy_MCASE_SOURCE; } + if (sy_MCASE_SOURCE && NULL == /*_.VALDATA___V606*/ meltfptr[605]) + /*_.VALDATA___V606*/ meltfptr[605] = (void*) sy_MCASE_SOURCE; } /*^getnamedsymbol*/ /*getnamedsym:MCASE_INDEX*/ { melt_ptr_t sy_MCASE_INDEX = meltgc_named_symbol("MCASE_INDEX", MELT_GET); - if (sy_MCASE_INDEX && NULL == /*_.VALDATA___V603*/ meltfptr[602]) - /*_.VALDATA___V603*/ meltfptr[602] = (void*) sy_MCASE_INDEX; } + if (sy_MCASE_INDEX && NULL == /*_.VALDATA___V608*/ meltfptr[607]) + /*_.VALDATA___V608*/ meltfptr[607] = (void*) sy_MCASE_INDEX; } /*^getnamedsymbol*/ /*getnamedsym:MCASE_VARMAP*/ { melt_ptr_t sy_MCASE_VARMAP = meltgc_named_symbol("MCASE_VARMAP", MELT_GET); - if (sy_MCASE_VARMAP && NULL == /*_.VALDATA___V605*/ meltfptr[604]) - /*_.VALDATA___V605*/ meltfptr[604] = (void*) sy_MCASE_VARMAP; } + if (sy_MCASE_VARMAP && NULL == /*_.VALDATA___V610*/ meltfptr[609]) + /*_.VALDATA___V610*/ meltfptr[609] = (void*) sy_MCASE_VARMAP; } /*^getnamedsymbol*/ /*getnamedsym:CLASS_MATCHED_DATA*/ { melt_ptr_t sy_CLASS_MATCHED_DATA = meltgc_named_symbol("CLASS_MATCHED_DATA", MELT_GET); - if (sy_CLASS_MATCHED_DATA && NULL == /*_.VALDATA___V607*/ meltfptr[606]) - /*_.VALDATA___V607*/ meltfptr[606] = (void*) sy_CLASS_MATCHED_DATA; } + if (sy_CLASS_MATCHED_DATA && NULL == /*_.VALDATA___V612*/ meltfptr[611]) + /*_.VALDATA___V612*/ meltfptr[611] = (void*) sy_CLASS_MATCHED_DATA; } /*^getnamedsymbol*/ /*getnamedsym:MDATA_SYMB*/ { melt_ptr_t sy_MDATA_SYMB = meltgc_named_symbol("MDATA_SYMB", MELT_GET); - if (sy_MDATA_SYMB && NULL == /*_.VALDATA___V621*/ meltfptr[620]) - /*_.VALDATA___V621*/ meltfptr[620] = (void*) sy_MDATA_SYMB; } + if (sy_MDATA_SYMB && NULL == /*_.VALDATA___V626*/ meltfptr[625]) + /*_.VALDATA___V626*/ meltfptr[625] = (void*) sy_MDATA_SYMB; } /*^getnamedsymbol*/ /*getnamedsym:MDATA_CTYPE*/ { melt_ptr_t sy_MDATA_CTYPE = meltgc_named_symbol("MDATA_CTYPE", MELT_GET); - if (sy_MDATA_CTYPE && NULL == /*_.VALDATA___V623*/ meltfptr[622]) - /*_.VALDATA___V623*/ meltfptr[622] = (void*) sy_MDATA_CTYPE; } + if (sy_MDATA_CTYPE && NULL == /*_.VALDATA___V628*/ meltfptr[627]) + /*_.VALDATA___V628*/ meltfptr[627] = (void*) sy_MDATA_CTYPE; } /*^getnamedsymbol*/ /*getnamedsym:MDATA_ORIG*/ { melt_ptr_t sy_MDATA_ORIG = meltgc_named_symbol("MDATA_ORIG", MELT_GET); - if (sy_MDATA_ORIG && NULL == /*_.VALDATA___V625*/ meltfptr[624]) - /*_.VALDATA___V625*/ meltfptr[624] = (void*) sy_MDATA_ORIG; } + if (sy_MDATA_ORIG && NULL == /*_.VALDATA___V630*/ meltfptr[629]) + /*_.VALDATA___V630*/ meltfptr[629] = (void*) sy_MDATA_ORIG; } /*^getnamedsymbol*/ /*getnamedsym:MDATA_STEPS*/ { melt_ptr_t sy_MDATA_STEPS = meltgc_named_symbol("MDATA_STEPS", MELT_GET); - if (sy_MDATA_STEPS && NULL == /*_.VALDATA___V627*/ meltfptr[626]) - /*_.VALDATA___V627*/ meltfptr[626] = (void*) sy_MDATA_STEPS; } + if (sy_MDATA_STEPS && NULL == /*_.VALDATA___V632*/ meltfptr[631]) + /*_.VALDATA___V632*/ meltfptr[631] = (void*) sy_MDATA_STEPS; } /*^getnamedsymbol*/ /*getnamedsym:CLASS_MATCHED_BINDING*/ { melt_ptr_t sy_CLASS_MATCHED_BINDING = meltgc_named_symbol("CLASS_MATCHED_BINDING", MELT_GET); - if (sy_CLASS_MATCHED_BINDING && NULL == /*_.VALDATA___V629*/ meltfptr[628]) - /*_.VALDATA___V629*/ meltfptr[628] = (void*) sy_CLASS_MATCHED_BINDING; } + if (sy_CLASS_MATCHED_BINDING && NULL == /*_.VALDATA___V634*/ meltfptr[633]) + /*_.VALDATA___V634*/ meltfptr[633] = (void*) sy_CLASS_MATCHED_BINDING; } /*^getnamedsymbol*/ /*getnamedsym:MATCHBIND_DATA*/ { melt_ptr_t sy_MATCHBIND_DATA = meltgc_named_symbol("MATCHBIND_DATA", MELT_GET); - if (sy_MATCHBIND_DATA && NULL == /*_.VALDATA___V639*/ meltfptr[638]) - /*_.VALDATA___V639*/ meltfptr[638] = (void*) sy_MATCHBIND_DATA; } + if (sy_MATCHBIND_DATA && NULL == /*_.VALDATA___V644*/ meltfptr[643]) + /*_.VALDATA___V644*/ meltfptr[643] = (void*) sy_MATCHBIND_DATA; } /*^getnamedsymbol*/ /*getnamedsym:MATCHBIND_NBOCC*/ { melt_ptr_t sy_MATCHBIND_NBOCC = meltgc_named_symbol("MATCHBIND_NBOCC", MELT_GET); - if (sy_MATCHBIND_NBOCC && NULL == /*_.VALDATA___V641*/ meltfptr[640]) - /*_.VALDATA___V641*/ meltfptr[640] = (void*) sy_MATCHBIND_NBOCC; } + if (sy_MATCHBIND_NBOCC && NULL == /*_.VALDATA___V646*/ meltfptr[645]) + /*_.VALDATA___V646*/ meltfptr[645] = (void*) sy_MATCHBIND_NBOCC; } /*^getnamedsymbol*/ /*getnamedsym:NORMALIZE_BINDING*/ { melt_ptr_t sy_NORMALIZE_BINDING = meltgc_named_symbol("NORMALIZE_BINDING", MELT_GET); - if (sy_NORMALIZE_BINDING && NULL == /*_.VALDATA___V645*/ meltfptr[644]) - /*_.VALDATA___V645*/ meltfptr[644] = (void*) sy_NORMALIZE_BINDING; } + if (sy_NORMALIZE_BINDING && NULL == /*_.VALDATA___V650*/ meltfptr[649]) + /*_.VALDATA___V650*/ meltfptr[649] = (void*) sy_NORMALIZE_BINDING; } /*^getnamedsymbol*/ /*getnamedsym:CLASS_MATCH_STEP*/ { melt_ptr_t sy_CLASS_MATCH_STEP = meltgc_named_symbol("CLASS_MATCH_STEP", MELT_GET); - if (sy_CLASS_MATCH_STEP && NULL == /*_.VALDATA___V647*/ meltfptr[646]) - /*_.VALDATA___V647*/ meltfptr[646] = (void*) sy_CLASS_MATCH_STEP; } + if (sy_CLASS_MATCH_STEP && NULL == /*_.VALDATA___V652*/ meltfptr[651]) + /*_.VALDATA___V652*/ meltfptr[651] = (void*) sy_CLASS_MATCH_STEP; } /*^getnamedsymbol*/ /*getnamedsym:MSTEP_DATA*/ { melt_ptr_t sy_MSTEP_DATA = meltgc_named_symbol("MSTEP_DATA", MELT_GET); - if (sy_MSTEP_DATA && NULL == /*_.VALDATA___V655*/ meltfptr[654]) - /*_.VALDATA___V655*/ meltfptr[654] = (void*) sy_MSTEP_DATA; } + if (sy_MSTEP_DATA && NULL == /*_.VALDATA___V660*/ meltfptr[659]) + /*_.VALDATA___V660*/ meltfptr[659] = (void*) sy_MSTEP_DATA; } + + /*^getnamedsymbol*/ + + /*getnamedsym:CLASS_MATCH_FLAG*/ + { melt_ptr_t sy_CLASS_MATCH_FLAG = meltgc_named_symbol("CLASS_MATCH_FLAG", MELT_GET); + if (sy_CLASS_MATCH_FLAG && NULL == /*_.VALDATA___V662*/ meltfptr[661]) + /*_.VALDATA___V662*/ meltfptr[661] = (void*) sy_CLASS_MATCH_FLAG; } + + /*^getnamedsymbol*/ + + /*getnamedsym:MFLAG_SPAT*/ + { melt_ptr_t sy_MFLAG_SPAT = meltgc_named_symbol("MFLAG_SPAT", MELT_GET); + if (sy_MFLAG_SPAT && NULL == /*_.VALDATA___V676*/ meltfptr[675]) + /*_.VALDATA___V676*/ meltfptr[675] = (void*) sy_MFLAG_SPAT; } + + /*^getnamedsymbol*/ + + /*getnamedsym:MFLAG_RANK*/ + { melt_ptr_t sy_MFLAG_RANK = meltgc_named_symbol("MFLAG_RANK", MELT_GET); + if (sy_MFLAG_RANK && NULL == /*_.VALDATA___V678*/ meltfptr[677]) + /*_.VALDATA___V678*/ meltfptr[677] = (void*) sy_MFLAG_RANK; } + + /*^getnamedsymbol*/ + + /*getnamedsym:MFLAG_STRING*/ + { melt_ptr_t sy_MFLAG_STRING = meltgc_named_symbol("MFLAG_STRING", MELT_GET); + if (sy_MFLAG_STRING && NULL == /*_.VALDATA___V680*/ meltfptr[679]) + /*_.VALDATA___V680*/ meltfptr[679] = (void*) sy_MFLAG_STRING; } + + /*^getnamedsymbol*/ + + /*getnamedsym:MFLAG_SETSTEP*/ + { melt_ptr_t sy_MFLAG_SETSTEP = meltgc_named_symbol("MFLAG_SETSTEP", MELT_GET); + if (sy_MFLAG_SETSTEP && NULL == /*_.VALDATA___V682*/ meltfptr[681]) + /*_.VALDATA___V682*/ meltfptr[681] = (void*) sy_MFLAG_SETSTEP; } /*^getnamedsymbol*/ /*getnamedsym:CLASS_MATCH_STEP_THEN*/ { melt_ptr_t sy_CLASS_MATCH_STEP_THEN = meltgc_named_symbol("CLASS_MATCH_STEP_THEN", MELT_GET); - if (sy_CLASS_MATCH_STEP_THEN && NULL == /*_.VALDATA___V657*/ meltfptr[656]) - /*_.VALDATA___V657*/ meltfptr[656] = (void*) sy_CLASS_MATCH_STEP_THEN; } + if (sy_CLASS_MATCH_STEP_THEN && NULL == /*_.VALDATA___V684*/ meltfptr[683]) + /*_.VALDATA___V684*/ meltfptr[683] = (void*) sy_CLASS_MATCH_STEP_THEN; } /*^getnamedsymbol*/ /*getnamedsym:MSTEP_THEN*/ { melt_ptr_t sy_MSTEP_THEN = meltgc_named_symbol("MSTEP_THEN", MELT_GET); - if (sy_MSTEP_THEN && NULL == /*_.VALDATA___V665*/ meltfptr[664]) - /*_.VALDATA___V665*/ meltfptr[664] = (void*) sy_MSTEP_THEN; } + if (sy_MSTEP_THEN && NULL == /*_.VALDATA___V692*/ meltfptr[691]) + /*_.VALDATA___V692*/ meltfptr[691] = (void*) sy_MSTEP_THEN; } + + /*^getnamedsymbol*/ + + /*getnamedsym:CLASS_MATCH_STEP_ASSIGN_FLAG*/ + { melt_ptr_t sy_CLASS_MATCH_STEP_ASSIGN_FLAG = meltgc_named_symbol("CLASS_MATCH_STEP_ASSIGN_FLAG", MELT_GET); + if (sy_CLASS_MATCH_STEP_ASSIGN_FLAG && NULL == /*_.VALDATA___V694*/ meltfptr[693]) + /*_.VALDATA___V694*/ meltfptr[693] = (void*) sy_CLASS_MATCH_STEP_ASSIGN_FLAG; } + + /*^getnamedsymbol*/ + + /*getnamedsym:MSTEP_FLAG*/ + { melt_ptr_t sy_MSTEP_FLAG = meltgc_named_symbol("MSTEP_FLAG", MELT_GET); + if (sy_MSTEP_FLAG && NULL == /*_.VALDATA___V702*/ meltfptr[701]) + /*_.VALDATA___V702*/ meltfptr[701] = (void*) sy_MSTEP_FLAG; } + + /*^getnamedsymbol*/ + + /*getnamedsym:CLASS_MATCH_STEP_FLAG_SET*/ + { melt_ptr_t sy_CLASS_MATCH_STEP_FLAG_SET = meltgc_named_symbol("CLASS_MATCH_STEP_FLAG_SET", MELT_GET); + if (sy_CLASS_MATCH_STEP_FLAG_SET && NULL == /*_.VALDATA___V704*/ meltfptr[703]) + /*_.VALDATA___V704*/ meltfptr[703] = (void*) sy_CLASS_MATCH_STEP_FLAG_SET; } + + /*^getnamedsymbol*/ + + /*getnamedsym:CLASS_MATCH_STEP_FLAG_OPERATION*/ + { melt_ptr_t sy_CLASS_MATCH_STEP_FLAG_OPERATION = meltgc_named_symbol("CLASS_MATCH_STEP_FLAG_OPERATION", MELT_GET); + if (sy_CLASS_MATCH_STEP_FLAG_OPERATION && NULL == /*_.VALDATA___V710*/ meltfptr[709]) + /*_.VALDATA___V710*/ meltfptr[709] = (void*) sy_CLASS_MATCH_STEP_FLAG_OPERATION; } + + /*^getnamedsymbol*/ + + /*getnamedsym:MSTEP_FLAGARGS*/ + { melt_ptr_t sy_MSTEP_FLAGARGS = meltgc_named_symbol("MSTEP_FLAGARGS", MELT_GET); + if (sy_MSTEP_FLAGARGS && NULL == /*_.VALDATA___V718*/ meltfptr[717]) + /*_.VALDATA___V718*/ meltfptr[717] = (void*) sy_MSTEP_FLAGARGS; } /*^getnamedsymbol*/ - /*getnamedsym:CLASS_MATCH_STEP_SET_VARIABLE*/ - { melt_ptr_t sy_CLASS_MATCH_STEP_SET_VARIABLE = meltgc_named_symbol("CLASS_MATCH_STEP_SET_VARIABLE", MELT_GET); - if (sy_CLASS_MATCH_STEP_SET_VARIABLE && NULL == /*_.VALDATA___V667*/ meltfptr[666]) - /*_.VALDATA___V667*/ meltfptr[666] = (void*) sy_CLASS_MATCH_STEP_SET_VARIABLE; } + /*getnamedsym:CLASS_MATCH_STEP_FLAG_CONJONCTION*/ + { melt_ptr_t sy_CLASS_MATCH_STEP_FLAG_CONJONCTION = meltgc_named_symbol("CLASS_MATCH_STEP_FLAG_CONJONCTION", MELT_GET); + if (sy_CLASS_MATCH_STEP_FLAG_CONJONCTION && NULL == /*_.VALDATA___V720*/ meltfptr[719]) + /*_.VALDATA___V720*/ meltfptr[719] = (void*) sy_CLASS_MATCH_STEP_FLAG_CONJONCTION; } /*^getnamedsymbol*/ - /*getnamedsym:MSTEPSETVAR_SYMB*/ - { melt_ptr_t sy_MSTEPSETVAR_SYMB = meltgc_named_symbol("MSTEPSETVAR_SYMB", MELT_GET); - if (sy_MSTEPSETVAR_SYMB && NULL == /*_.VALDATA___V675*/ meltfptr[674]) - /*_.VALDATA___V675*/ meltfptr[674] = (void*) sy_MSTEPSETVAR_SYMB; } + /*getnamedsym:CLASS_MATCH_STEP_FLAG_DISJONCTION*/ + { melt_ptr_t sy_CLASS_MATCH_STEP_FLAG_DISJONCTION = meltgc_named_symbol("CLASS_MATCH_STEP_FLAG_DISJONCTION", MELT_GET); + if (sy_CLASS_MATCH_STEP_FLAG_DISJONCTION && NULL == /*_.VALDATA___V726*/ meltfptr[725]) + /*_.VALDATA___V726*/ meltfptr[725] = (void*) sy_CLASS_MATCH_STEP_FLAG_DISJONCTION; } /*^getnamedsymbol*/ /*getnamedsym:CLASS_MATCH_STEP_SUCCESS*/ { melt_ptr_t sy_CLASS_MATCH_STEP_SUCCESS = meltgc_named_symbol("CLASS_MATCH_STEP_SUCCESS", MELT_GET); - if (sy_CLASS_MATCH_STEP_SUCCESS && NULL == /*_.VALDATA___V677*/ meltfptr[676]) - /*_.VALDATA___V677*/ meltfptr[676] = (void*) sy_CLASS_MATCH_STEP_SUCCESS; } + if (sy_CLASS_MATCH_STEP_SUCCESS && NULL == /*_.VALDATA___V732*/ meltfptr[731]) + /*_.VALDATA___V732*/ meltfptr[731] = (void*) sy_CLASS_MATCH_STEP_SUCCESS; } + + /*^getnamedsymbol*/ + + /*getnamedsym:MSTEPSUCCESS_FLAG*/ + { melt_ptr_t sy_MSTEPSUCCESS_FLAG = meltgc_named_symbol("MSTEPSUCCESS_FLAG", MELT_GET); + if (sy_MSTEPSUCCESS_FLAG && NULL == /*_.VALDATA___V746*/ meltfptr[745]) + /*_.VALDATA___V746*/ meltfptr[745] = (void*) sy_MSTEPSUCCESS_FLAG; } /*^getnamedsymbol*/ /*getnamedsym:MSTEPSUCCESS_VAROCC*/ { melt_ptr_t sy_MSTEPSUCCESS_VAROCC = meltgc_named_symbol("MSTEPSUCCESS_VAROCC", MELT_GET); - if (sy_MSTEPSUCCESS_VAROCC && NULL == /*_.VALDATA___V689*/ meltfptr[688]) - /*_.VALDATA___V689*/ meltfptr[688] = (void*) sy_MSTEPSUCCESS_VAROCC; } + if (sy_MSTEPSUCCESS_VAROCC && NULL == /*_.VALDATA___V748*/ meltfptr[747]) + /*_.VALDATA___V748*/ meltfptr[747] = (void*) sy_MSTEPSUCCESS_VAROCC; } /*^getnamedsymbol*/ /*getnamedsym:MSTEPSUCCESS_BINDS*/ { melt_ptr_t sy_MSTEPSUCCESS_BINDS = meltgc_named_symbol("MSTEPSUCCESS_BINDS", MELT_GET); - if (sy_MSTEPSUCCESS_BINDS && NULL == /*_.VALDATA___V691*/ meltfptr[690]) - /*_.VALDATA___V691*/ meltfptr[690] = (void*) sy_MSTEPSUCCESS_BINDS; } + if (sy_MSTEPSUCCESS_BINDS && NULL == /*_.VALDATA___V750*/ meltfptr[749]) + /*_.VALDATA___V750*/ meltfptr[749] = (void*) sy_MSTEPSUCCESS_BINDS; } /*^getnamedsymbol*/ /*getnamedsym:MSTEPSUCCESS_BODY*/ { melt_ptr_t sy_MSTEPSUCCESS_BODY = meltgc_named_symbol("MSTEPSUCCESS_BODY", MELT_GET); - if (sy_MSTEPSUCCESS_BODY && NULL == /*_.VALDATA___V693*/ meltfptr[692]) - /*_.VALDATA___V693*/ meltfptr[692] = (void*) sy_MSTEPSUCCESS_BODY; } + if (sy_MSTEPSUCCESS_BODY && NULL == /*_.VALDATA___V752*/ meltfptr[751]) + /*_.VALDATA___V752*/ meltfptr[751] = (void*) sy_MSTEPSUCCESS_BODY; } /*^getnamedsymbol*/ /*getnamedsym:CLASS_MATCH_STEP_TEST*/ { melt_ptr_t sy_CLASS_MATCH_STEP_TEST = meltgc_named_symbol("CLASS_MATCH_STEP_TEST", MELT_GET); - if (sy_CLASS_MATCH_STEP_TEST && NULL == /*_.VALDATA___V695*/ meltfptr[694]) - /*_.VALDATA___V695*/ meltfptr[694] = (void*) sy_CLASS_MATCH_STEP_TEST; } + if (sy_CLASS_MATCH_STEP_TEST && NULL == /*_.VALDATA___V754*/ meltfptr[753]) + /*_.VALDATA___V754*/ meltfptr[753] = (void*) sy_CLASS_MATCH_STEP_TEST; } /*^getnamedsymbol*/ /*getnamedsym:MSTEP_ELSE*/ { melt_ptr_t sy_MSTEP_ELSE = meltgc_named_symbol("MSTEP_ELSE", MELT_GET); - if (sy_MSTEP_ELSE && NULL == /*_.VALDATA___V703*/ meltfptr[702]) - /*_.VALDATA___V703*/ meltfptr[702] = (void*) sy_MSTEP_ELSE; } + if (sy_MSTEP_ELSE && NULL == /*_.VALDATA___V762*/ meltfptr[761]) + /*_.VALDATA___V762*/ meltfptr[761] = (void*) sy_MSTEP_ELSE; } /*^getnamedsymbol*/ /*getnamedsym:CLASS_MATCH_STEP_TEST_VARIABLE*/ { melt_ptr_t sy_CLASS_MATCH_STEP_TEST_VARIABLE = meltgc_named_symbol("CLASS_MATCH_STEP_TEST_VARIABLE", MELT_GET); - if (sy_CLASS_MATCH_STEP_TEST_VARIABLE && NULL == /*_.VALDATA___V705*/ meltfptr[704]) - /*_.VALDATA___V705*/ meltfptr[704] = (void*) sy_CLASS_MATCH_STEP_TEST_VARIABLE; } + if (sy_CLASS_MATCH_STEP_TEST_VARIABLE && NULL == /*_.VALDATA___V764*/ meltfptr[763]) + /*_.VALDATA___V764*/ meltfptr[763] = (void*) sy_CLASS_MATCH_STEP_TEST_VARIABLE; } /*^getnamedsymbol*/ /*getnamedsym:MSTEPTESTVAR_SYMB*/ { melt_ptr_t sy_MSTEPTESTVAR_SYMB = meltgc_named_symbol("MSTEPTESTVAR_SYMB", MELT_GET); - if (sy_MSTEPTESTVAR_SYMB && NULL == /*_.VALDATA___V713*/ meltfptr[712]) - /*_.VALDATA___V713*/ meltfptr[712] = (void*) sy_MSTEPTESTVAR_SYMB; } + if (sy_MSTEPTESTVAR_SYMB && NULL == /*_.VALDATA___V772*/ meltfptr[771]) + /*_.VALDATA___V772*/ meltfptr[771] = (void*) sy_MSTEPTESTVAR_SYMB; } /*^getnamedsymbol*/ /*getnamedsym:CLASS_MATCH_STEP_TEST_GROUP*/ { melt_ptr_t sy_CLASS_MATCH_STEP_TEST_GROUP = meltgc_named_symbol("CLASS_MATCH_STEP_TEST_GROUP", MELT_GET); - if (sy_CLASS_MATCH_STEP_TEST_GROUP && NULL == /*_.VALDATA___V715*/ meltfptr[714]) - /*_.VALDATA___V715*/ meltfptr[714] = (void*) sy_CLASS_MATCH_STEP_TEST_GROUP; } + if (sy_CLASS_MATCH_STEP_TEST_GROUP && NULL == /*_.VALDATA___V774*/ meltfptr[773]) + /*_.VALDATA___V774*/ meltfptr[773] = (void*) sy_CLASS_MATCH_STEP_TEST_GROUP; } /*^getnamedsymbol*/ /*getnamedsym:MSTGROUP_START*/ { melt_ptr_t sy_MSTGROUP_START = meltgc_named_symbol("MSTGROUP_START", MELT_GET); - if (sy_MSTGROUP_START && NULL == /*_.VALDATA___V727*/ meltfptr[726]) - /*_.VALDATA___V727*/ meltfptr[726] = (void*) sy_MSTGROUP_START; } + if (sy_MSTGROUP_START && NULL == /*_.VALDATA___V786*/ meltfptr[785]) + /*_.VALDATA___V786*/ meltfptr[785] = (void*) sy_MSTGROUP_START; } /*^getnamedsymbol*/ /*getnamedsym:MSTGROUP_THEN*/ { melt_ptr_t sy_MSTGROUP_THEN = meltgc_named_symbol("MSTGROUP_THEN", MELT_GET); - if (sy_MSTGROUP_THEN && NULL == /*_.VALDATA___V729*/ meltfptr[728]) - /*_.VALDATA___V729*/ meltfptr[728] = (void*) sy_MSTGROUP_THEN; } + if (sy_MSTGROUP_THEN && NULL == /*_.VALDATA___V788*/ meltfptr[787]) + /*_.VALDATA___V788*/ meltfptr[787] = (void*) sy_MSTGROUP_THEN; } /*^getnamedsymbol*/ /*getnamedsym:MSTGROUP_ELSE*/ { melt_ptr_t sy_MSTGROUP_ELSE = meltgc_named_symbol("MSTGROUP_ELSE", MELT_GET); - if (sy_MSTGROUP_ELSE && NULL == /*_.VALDATA___V731*/ meltfptr[730]) - /*_.VALDATA___V731*/ meltfptr[730] = (void*) sy_MSTGROUP_ELSE; } + if (sy_MSTGROUP_ELSE && NULL == /*_.VALDATA___V790*/ meltfptr[789]) + /*_.VALDATA___V790*/ meltfptr[789] = (void*) sy_MSTGROUP_ELSE; } /*^getnamedsymbol*/ /*getnamedsym:CLASS_MATCH_STEP_TEST_INSTANCE*/ { melt_ptr_t sy_CLASS_MATCH_STEP_TEST_INSTANCE = meltgc_named_symbol("CLASS_MATCH_STEP_TEST_INSTANCE", MELT_GET); - if (sy_CLASS_MATCH_STEP_TEST_INSTANCE && NULL == /*_.VALDATA___V733*/ meltfptr[732]) - /*_.VALDATA___V733*/ meltfptr[732] = (void*) sy_CLASS_MATCH_STEP_TEST_INSTANCE; } + if (sy_CLASS_MATCH_STEP_TEST_INSTANCE && NULL == /*_.VALDATA___V792*/ meltfptr[791]) + /*_.VALDATA___V792*/ meltfptr[791] = (void*) sy_CLASS_MATCH_STEP_TEST_INSTANCE; } /*^getnamedsymbol*/ /*getnamedsym:MSTINS_CLASS*/ { melt_ptr_t sy_MSTINS_CLASS = meltgc_named_symbol("MSTINS_CLASS", MELT_GET); - if (sy_MSTINS_CLASS && NULL == /*_.VALDATA___V743*/ meltfptr[742]) - /*_.VALDATA___V743*/ meltfptr[742] = (void*) sy_MSTINS_CLASS; } + if (sy_MSTINS_CLASS && NULL == /*_.VALDATA___V802*/ meltfptr[801]) + /*_.VALDATA___V802*/ meltfptr[801] = (void*) sy_MSTINS_CLASS; } /*^getnamedsymbol*/ /*getnamedsym:MSTINS_SLOTS*/ { melt_ptr_t sy_MSTINS_SLOTS = meltgc_named_symbol("MSTINS_SLOTS", MELT_GET); - if (sy_MSTINS_SLOTS && NULL == /*_.VALDATA___V745*/ meltfptr[744]) - /*_.VALDATA___V745*/ meltfptr[744] = (void*) sy_MSTINS_SLOTS; } + if (sy_MSTINS_SLOTS && NULL == /*_.VALDATA___V804*/ meltfptr[803]) + /*_.VALDATA___V804*/ meltfptr[803] = (void*) sy_MSTINS_SLOTS; } /*^getnamedsymbol*/ /*getnamedsym:CLASS_MATCH_STEP_TEST_MATCHER*/ { melt_ptr_t sy_CLASS_MATCH_STEP_TEST_MATCHER = meltgc_named_symbol("CLASS_MATCH_STEP_TEST_MATCHER", MELT_GET); - if (sy_CLASS_MATCH_STEP_TEST_MATCHER && NULL == /*_.VALDATA___V747*/ meltfptr[746]) - /*_.VALDATA___V747*/ meltfptr[746] = (void*) sy_CLASS_MATCH_STEP_TEST_MATCHER; } + if (sy_CLASS_MATCH_STEP_TEST_MATCHER && NULL == /*_.VALDATA___V806*/ meltfptr[805]) + /*_.VALDATA___V806*/ meltfptr[805] = (void*) sy_CLASS_MATCH_STEP_TEST_MATCHER; } /*^getnamedsymbol*/ /*getnamedsym:MSTMA_MATCHER*/ { melt_ptr_t sy_MSTMA_MATCHER = meltgc_named_symbol("MSTMA_MATCHER", MELT_GET); - if (sy_MSTMA_MATCHER && NULL == /*_.VALDATA___V761*/ meltfptr[760]) - /*_.VALDATA___V761*/ meltfptr[760] = (void*) sy_MSTMA_MATCHER; } + if (sy_MSTMA_MATCHER && NULL == /*_.VALDATA___V820*/ meltfptr[819]) + /*_.VALDATA___V820*/ meltfptr[819] = (void*) sy_MSTMA_MATCHER; } /*^getnamedsymbol*/ /*getnamedsym:MSTMA_BINDS*/ { melt_ptr_t sy_MSTMA_BINDS = meltgc_named_symbol("MSTMA_BINDS", MELT_GET); - if (sy_MSTMA_BINDS && NULL == /*_.VALDATA___V763*/ meltfptr[762]) - /*_.VALDATA___V763*/ meltfptr[762] = (void*) sy_MSTMA_BINDS; } + if (sy_MSTMA_BINDS && NULL == /*_.VALDATA___V822*/ meltfptr[821]) + /*_.VALDATA___V822*/ meltfptr[821] = (void*) sy_MSTMA_BINDS; } /*^getnamedsymbol*/ /*getnamedsym:MSTMA_INS*/ { melt_ptr_t sy_MSTMA_INS = meltgc_named_symbol("MSTMA_INS", MELT_GET); - if (sy_MSTMA_INS && NULL == /*_.VALDATA___V765*/ meltfptr[764]) - /*_.VALDATA___V765*/ meltfptr[764] = (void*) sy_MSTMA_INS; } + if (sy_MSTMA_INS && NULL == /*_.VALDATA___V824*/ meltfptr[823]) + /*_.VALDATA___V824*/ meltfptr[823] = (void*) sy_MSTMA_INS; } /*^getnamedsymbol*/ /*getnamedsym:MSTMA_OUTS*/ { melt_ptr_t sy_MSTMA_OUTS = meltgc_named_symbol("MSTMA_OUTS", MELT_GET); - if (sy_MSTMA_OUTS && NULL == /*_.VALDATA___V767*/ meltfptr[766]) - /*_.VALDATA___V767*/ meltfptr[766] = (void*) sy_MSTMA_OUTS; } + if (sy_MSTMA_OUTS && NULL == /*_.VALDATA___V826*/ meltfptr[825]) + /*_.VALDATA___V826*/ meltfptr[825] = (void*) sy_MSTMA_OUTS; } + + /*^getnamedsymbol*/ + + /*getnamedsym:DISCR_CONSTANT_INTEGER*/ + { melt_ptr_t sy_DISCR_CONSTANT_INTEGER = meltgc_named_symbol("DISCR_CONSTANT_INTEGER", MELT_GET); + if (sy_DISCR_CONSTANT_INTEGER && NULL == /*_.VALDATA___V830*/ meltfptr[829]) + /*_.VALDATA___V830*/ meltfptr[829] = (void*) sy_DISCR_CONSTANT_INTEGER; } /*^getnamedsymbol*/ /*getnamedsym:SCAN_SUBPATTERNS*/ { melt_ptr_t sy_SCAN_SUBPATTERNS = meltgc_named_symbol("SCAN_SUBPATTERNS", MELT_GET); - if (sy_SCAN_SUBPATTERNS && NULL == /*_.VALDATA___V769*/ meltfptr[768]) - /*_.VALDATA___V769*/ meltfptr[768] = (void*) sy_SCAN_SUBPATTERNS; } + if (sy_SCAN_SUBPATTERNS && NULL == /*_.VALDATA___V832*/ meltfptr[831]) + /*_.VALDATA___V832*/ meltfptr[831] = (void*) sy_SCAN_SUBPATTERNS; } /*^getnamedsymbol*/ /*getnamedsym:RECV*/ { melt_ptr_t sy_RECV = meltgc_named_symbol("RECV", MELT_GET); - if (sy_RECV && NULL == /*_.VALDATA___V771*/ meltfptr[770]) - /*_.VALDATA___V771*/ meltfptr[770] = (void*) sy_RECV; } + if (sy_RECV && NULL == /*_.VALDATA___V834*/ meltfptr[833]) + /*_.VALDATA___V834*/ meltfptr[833] = (void*) sy_RECV; } /*^getnamedsymbol*/ /*getnamedsym:FUN*/ { melt_ptr_t sy_FUN = meltgc_named_symbol("FUN", MELT_GET); - if (sy_FUN && NULL == /*_.VALDATA___V774*/ meltfptr[773]) - /*_.VALDATA___V774*/ meltfptr[773] = (void*) sy_FUN; } + if (sy_FUN && NULL == /*_.VALDATA___V837*/ meltfptr[836]) + /*_.VALDATA___V837*/ meltfptr[836] = (void*) sy_FUN; } /*^getnamedsymbol*/ /*getnamedsym:CTX*/ { melt_ptr_t sy_CTX = meltgc_named_symbol("CTX", MELT_GET); - if (sy_CTX && NULL == /*_.VALDATA___V777*/ meltfptr[776]) - /*_.VALDATA___V777*/ meltfptr[776] = (void*) sy_CTX; } + if (sy_CTX && NULL == /*_.VALDATA___V840*/ meltfptr[839]) + /*_.VALDATA___V840*/ meltfptr[839] = (void*) sy_CTX; } /*^getnamedsymbol*/ /*getnamedsym:SCAN_STEP_DATA*/ { melt_ptr_t sy_SCAN_STEP_DATA = meltgc_named_symbol("SCAN_STEP_DATA", MELT_GET); - if (sy_SCAN_STEP_DATA && NULL == /*_.VALDATA___V783*/ meltfptr[782]) - /*_.VALDATA___V783*/ meltfptr[782] = (void*) sy_SCAN_STEP_DATA; } + if (sy_SCAN_STEP_DATA && NULL == /*_.VALDATA___V846*/ meltfptr[845]) + /*_.VALDATA___V846*/ meltfptr[845] = (void*) sy_SCAN_STEP_DATA; } /*^getnamedsymbol*/ /*getnamedsym:STEP*/ { melt_ptr_t sy_STEP = meltgc_named_symbol("STEP", MELT_GET); - if (sy_STEP && NULL == /*_.VALDATA___V785*/ meltfptr[784]) - /*_.VALDATA___V785*/ meltfptr[784] = (void*) sy_STEP; } + if (sy_STEP && NULL == /*_.VALDATA___V848*/ meltfptr[847]) + /*_.VALDATA___V848*/ meltfptr[847] = (void*) sy_STEP; } /*^getnamedsymbol*/ /*getnamedsym:CLASS_SOURCE_PATTERN_CONSTRUCT*/ { melt_ptr_t sy_CLASS_SOURCE_PATTERN_CONSTRUCT = meltgc_named_symbol("CLASS_SOURCE_PATTERN_CONSTRUCT", MELT_GET); - if (sy_CLASS_SOURCE_PATTERN_CONSTRUCT && NULL == /*_.VALDATA___V803*/ meltfptr[802]) - /*_.VALDATA___V803*/ meltfptr[802] = (void*) sy_CLASS_SOURCE_PATTERN_CONSTRUCT; } + if (sy_CLASS_SOURCE_PATTERN_CONSTRUCT && NULL == /*_.VALDATA___V866*/ meltfptr[865]) + /*_.VALDATA___V866*/ meltfptr[865] = (void*) sy_CLASS_SOURCE_PATTERN_CONSTRUCT; } /*^getnamedsymbol*/ /*getnamedsym:PUT_THEN_MATCH*/ { melt_ptr_t sy_PUT_THEN_MATCH = meltgc_named_symbol("PUT_THEN_MATCH", MELT_GET); - if (sy_PUT_THEN_MATCH && NULL == /*_.VALDATA___V812*/ meltfptr[811]) - /*_.VALDATA___V812*/ meltfptr[811] = (void*) sy_PUT_THEN_MATCH; } + if (sy_PUT_THEN_MATCH && NULL == /*_.VALDATA___V875*/ meltfptr[874]) + /*_.VALDATA___V875*/ meltfptr[874] = (void*) sy_PUT_THEN_MATCH; } /*^getnamedsymbol*/ /*getnamedsym:THENSTEP*/ { melt_ptr_t sy_THENSTEP = meltgc_named_symbol("THENSTEP", MELT_GET); - if (sy_THENSTEP && NULL == /*_.VALDATA___V815*/ meltfptr[814]) - /*_.VALDATA___V815*/ meltfptr[814] = (void*) sy_THENSTEP; } + if (sy_THENSTEP && NULL == /*_.VALDATA___V878*/ meltfptr[877]) + /*_.VALDATA___V878*/ meltfptr[877] = (void*) sy_THENSTEP; } /*^getnamedsymbol*/ /*getnamedsym:PUT_ELSE_MATCH*/ { melt_ptr_t sy_PUT_ELSE_MATCH = meltgc_named_symbol("PUT_ELSE_MATCH", MELT_GET); - if (sy_PUT_ELSE_MATCH && NULL == /*_.VALDATA___V827*/ meltfptr[826]) - /*_.VALDATA___V827*/ meltfptr[826] = (void*) sy_PUT_ELSE_MATCH; } + if (sy_PUT_ELSE_MATCH && NULL == /*_.VALDATA___V890*/ meltfptr[889]) + /*_.VALDATA___V890*/ meltfptr[889] = (void*) sy_PUT_ELSE_MATCH; } /*^getnamedsymbol*/ /*getnamedsym:ELSESTEP*/ { melt_ptr_t sy_ELSESTEP = meltgc_named_symbol("ELSESTEP", MELT_GET); - if (sy_ELSESTEP && NULL == /*_.VALDATA___V830*/ meltfptr[829]) - /*_.VALDATA___V830*/ meltfptr[829] = (void*) sy_ELSESTEP; } + if (sy_ELSESTEP && NULL == /*_.VALDATA___V893*/ meltfptr[892]) + /*_.VALDATA___V893*/ meltfptr[892] = (void*) sy_ELSESTEP; } /*^getnamedsymbol*/ /*getnamedsym:TRANSLATE_PATTERN*/ { melt_ptr_t sy_TRANSLATE_PATTERN = meltgc_named_symbol("TRANSLATE_PATTERN", MELT_GET); - if (sy_TRANSLATE_PATTERN && NULL == /*_.VALDATA___V844*/ meltfptr[843]) - /*_.VALDATA___V844*/ meltfptr[843] = (void*) sy_TRANSLATE_PATTERN; } + if (sy_TRANSLATE_PATTERN && NULL == /*_.VALDATA___V909*/ meltfptr[908]) + /*_.VALDATA___V909*/ meltfptr[908] = (void*) sy_TRANSLATE_PATTERN; } /*^getnamedsymbol*/ /*getnamedsym:MDATA*/ { melt_ptr_t sy_MDATA = meltgc_named_symbol("MDATA", MELT_GET); - if (sy_MDATA && NULL == /*_.VALDATA___V847*/ meltfptr[846]) - /*_.VALDATA___V847*/ meltfptr[846] = (void*) sy_MDATA; } + if (sy_MDATA && NULL == /*_.VALDATA___V912*/ meltfptr[911]) + /*_.VALDATA___V912*/ meltfptr[911] = (void*) sy_MDATA; } /*^getnamedsymbol*/ /*getnamedsym:MCASE*/ { melt_ptr_t sy_MCASE = meltgc_named_symbol("MCASE", MELT_GET); - if (sy_MCASE && NULL == /*_.VALDATA___V850*/ meltfptr[849]) - /*_.VALDATA___V850*/ meltfptr[849] = (void*) sy_MCASE; } + if (sy_MCASE && NULL == /*_.VALDATA___V915*/ meltfptr[914]) + /*_.VALDATA___V915*/ meltfptr[914] = (void*) sy_MCASE; } /*^getnamedsymbol*/ /*getnamedsym:VARMAP*/ { melt_ptr_t sy_VARMAP = meltgc_named_symbol("VARMAP", MELT_GET); - if (sy_VARMAP && NULL == /*_.VALDATA___V853*/ meltfptr[852]) - /*_.VALDATA___V853*/ meltfptr[852] = (void*) sy_VARMAP; } + if (sy_VARMAP && NULL == /*_.VALDATA___V918*/ meltfptr[917]) + /*_.VALDATA___V918*/ meltfptr[917] = (void*) sy_VARMAP; } /*^getnamedsymbol*/ /*getnamedsym:SLOC*/ { melt_ptr_t sy_SLOC = meltgc_named_symbol("SLOC", MELT_GET); - if (sy_SLOC && NULL == /*_.VALDATA___V856*/ meltfptr[855]) - /*_.VALDATA___V856*/ meltfptr[855] = (void*) sy_SLOC; } + if (sy_SLOC && NULL == /*_.VALDATA___V921*/ meltfptr[920]) + /*_.VALDATA___V921*/ meltfptr[920] = (void*) sy_SLOC; } /*^getnamedsymbol*/ /*getnamedsym:MATCHGRAPHIC_ALTSTEP*/ { melt_ptr_t sy_MATCHGRAPHIC_ALTSTEP = meltgc_named_symbol("MATCHGRAPHIC_ALTSTEP", MELT_GET); - if (sy_MATCHGRAPHIC_ALTSTEP && NULL == /*_.VALDATA___V876*/ meltfptr[875]) - /*_.VALDATA___V876*/ meltfptr[875] = (void*) sy_MATCHGRAPHIC_ALTSTEP; } + if (sy_MATCHGRAPHIC_ALTSTEP && NULL == /*_.VALDATA___V943*/ meltfptr[942]) + /*_.VALDATA___V943*/ meltfptr[942] = (void*) sy_MATCHGRAPHIC_ALTSTEP; } /*^getnamedsymbol*/ /*getnamedsym:DISCR_INTEGER*/ { melt_ptr_t sy_DISCR_INTEGER = meltgc_named_symbol("DISCR_INTEGER", MELT_GET); - if (sy_DISCR_INTEGER && NULL == /*_.VALDATA___V895*/ meltfptr[894]) - /*_.VALDATA___V895*/ meltfptr[894] = (void*) sy_DISCR_INTEGER; } + if (sy_DISCR_INTEGER && NULL == /*_.VALDATA___V964*/ meltfptr[963]) + /*_.VALDATA___V964*/ meltfptr[963] = (void*) sy_DISCR_INTEGER; } /*^getnamedsymbol*/ /*getnamedsym:COMPARE_NAMED_ALPHA*/ { melt_ptr_t sy_COMPARE_NAMED_ALPHA = meltgc_named_symbol("COMPARE_NAMED_ALPHA", MELT_GET); - if (sy_COMPARE_NAMED_ALPHA && NULL == /*_.VALDATA___V897*/ meltfptr[896]) - /*_.VALDATA___V897*/ meltfptr[896] = (void*) sy_COMPARE_NAMED_ALPHA; } + if (sy_COMPARE_NAMED_ALPHA && NULL == /*_.VALDATA___V966*/ meltfptr[965]) + /*_.VALDATA___V966*/ meltfptr[965] = (void*) sy_COMPARE_NAMED_ALPHA; } /*^getnamedsymbol*/ /*getnamedsym:_MATCHED_DATA*/ { melt_ptr_t sy_MATCHED_DATA = meltgc_named_symbol("_MATCHED_DATA", MELT_GET); - if (sy_MATCHED_DATA && NULL == /*_.VALDATA___V900*/ meltfptr[899]) - /*_.VALDATA___V900*/ meltfptr[899] = (void*) sy_MATCHED_DATA; } + if (sy_MATCHED_DATA && NULL == /*_.VALDATA___V969*/ meltfptr[968]) + /*_.VALDATA___V969*/ meltfptr[968] = (void*) sy_MATCHED_DATA; } /*^getnamedsymbol*/ /*getnamedsym:ALTERNATE_MATCH*/ { melt_ptr_t sy_ALTERNATE_MATCH = meltgc_named_symbol("ALTERNATE_MATCH", MELT_GET); - if (sy_ALTERNATE_MATCH && NULL == /*_.VALDATA___V917*/ meltfptr[916]) - /*_.VALDATA___V917*/ meltfptr[916] = (void*) sy_ALTERNATE_MATCH; } + if (sy_ALTERNATE_MATCH && NULL == /*_.VALDATA___V986*/ meltfptr[985]) + /*_.VALDATA___V986*/ meltfptr[985] = (void*) sy_ALTERNATE_MATCH; } /*^comment*/ @@ -22945,7 +23555,7 @@ initial_frame_st meltframe; /*^apply.arg*/ argtab[2].bp_cstring = "warmelt-normatch"; - /*_.CLASS_ROOT__V7*/ meltfptr[6] = melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t)(/*_.VALDATA___V75*/ meltfptr[74]), (BPARSTR_PTR BPARSTR_CSTRING BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.CLASS_ROOT__V7*/ meltfptr[6] = melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t)(/*_.VALDATA___V76*/ meltfptr[75]), (BPARSTR_PTR BPARSTR_CSTRING BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } /*^apply*/ @@ -22962,7 +23572,7 @@ initial_frame_st meltframe; /*^apply.arg*/ argtab[2].bp_cstring = "warmelt-normatch"; - /*_.CLASS_SELECTOR__V8*/ meltfptr[7] = melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t)(/*_.VALDATA___V127*/ meltfptr[126]), (BPARSTR_PTR BPARSTR_CSTRING BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.CLASS_SELECTOR__V8*/ meltfptr[7] = melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t)(/*_.VALDATA___V128*/ meltfptr[127]), (BPARSTR_PTR BPARSTR_CSTRING BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } /*^apply*/ @@ -22979,7 +23589,7 @@ initial_frame_st meltframe; /*^apply.arg*/ argtab[2].bp_cstring = "warmelt-normatch"; - /*_.DEBUG_MSG_FUN__V9*/ meltfptr[8] = melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t)(/*_.VALDATA___V133*/ meltfptr[132]), (BPARSTR_PTR BPARSTR_CSTRING BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.DEBUG_MSG_FUN__V9*/ meltfptr[8] = melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t)(/*_.VALDATA___V134*/ meltfptr[133]), (BPARSTR_PTR BPARSTR_CSTRING BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } /*^apply*/ @@ -22996,7 +23606,7 @@ initial_frame_st meltframe; /*^apply.arg*/ argtab[2].bp_cstring = "warmelt-normatch"; - /*_.CLASS_NAMED__V10*/ meltfptr[9] = melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t)(/*_.VALDATA___V135*/ meltfptr[134]), (BPARSTR_PTR BPARSTR_CSTRING BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.CLASS_NAMED__V10*/ meltfptr[9] = melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t)(/*_.VALDATA___V136*/ meltfptr[135]), (BPARSTR_PTR BPARSTR_CSTRING BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } /*^apply*/ @@ -23013,7 +23623,7 @@ initial_frame_st meltframe; /*^apply.arg*/ argtab[2].bp_cstring = "warmelt-normatch"; - /*_.INSTALL_METHOD__V11*/ meltfptr[10] = melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t)(/*_.VALDATA___V137*/ meltfptr[136]), (BPARSTR_PTR BPARSTR_CSTRING BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.INSTALL_METHOD__V11*/ meltfptr[10] = melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t)(/*_.VALDATA___V138*/ meltfptr[137]), (BPARSTR_PTR BPARSTR_CSTRING BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } /*^apply*/ @@ -23030,7 +23640,7 @@ initial_frame_st meltframe; /*^apply.arg*/ argtab[2].bp_cstring = "warmelt-normatch"; - /*_.DISCR_ANY_RECEIVER__V12*/ meltfptr[11] = melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t)(/*_.VALDATA___V139*/ meltfptr[138]), (BPARSTR_PTR BPARSTR_CSTRING BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.DISCR_ANY_RECEIVER__V12*/ meltfptr[11] = melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t)(/*_.VALDATA___V140*/ meltfptr[139]), (BPARSTR_PTR BPARSTR_CSTRING BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } /*^apply*/ @@ -23047,7 +23657,7 @@ initial_frame_st meltframe; /*^apply.arg*/ argtab[2].bp_cstring = "warmelt-normatch"; - /*_.CLASS_SOURCE_PATTERN__V13*/ meltfptr[12] = melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t)(/*_.VALDATA___V143*/ meltfptr[142]), (BPARSTR_PTR BPARSTR_CSTRING BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.CLASS_SOURCE_PATTERN__V13*/ meltfptr[12] = melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t)(/*_.VALDATA___V144*/ meltfptr[143]), (BPARSTR_PTR BPARSTR_CSTRING BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } /*^apply*/ @@ -23064,7 +23674,7 @@ initial_frame_st meltframe; /*^apply.arg*/ argtab[2].bp_cstring = "warmelt-normatch"; - /*_.CLASS_SOURCE_PATTERN_VARIABLE__V14*/ meltfptr[13] = melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t)(/*_.VALDATA___V147*/ meltfptr[146]), (BPARSTR_PTR BPARSTR_CSTRING BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.CLASS_SOURCE_PATTERN_VARIABLE__V14*/ meltfptr[13] = melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t)(/*_.VALDATA___V148*/ meltfptr[147]), (BPARSTR_PTR BPARSTR_CSTRING BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } /*^apply*/ @@ -23081,7 +23691,7 @@ initial_frame_st meltframe; /*^apply.arg*/ argtab[2].bp_cstring = "warmelt-normatch"; - /*_.CLASS_SOURCE_PATTERN_JOKER_VARIABLE__V15*/ meltfptr[14] = melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t)(/*_.VALDATA___V151*/ meltfptr[150]), (BPARSTR_PTR BPARSTR_CSTRING BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.CLASS_SOURCE_PATTERN_JOKER_VARIABLE__V15*/ meltfptr[14] = melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t)(/*_.VALDATA___V152*/ meltfptr[151]), (BPARSTR_PTR BPARSTR_CSTRING BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } /*^apply*/ @@ -23098,7 +23708,7 @@ initial_frame_st meltframe; /*^apply.arg*/ argtab[2].bp_cstring = "warmelt-normatch"; - /*_.CLASS_SOURCE_PATTERN_CONSTANT__V16*/ meltfptr[15] = melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t)(/*_.VALDATA___V155*/ meltfptr[154]), (BPARSTR_PTR BPARSTR_CSTRING BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.CLASS_SOURCE_PATTERN_CONSTANT__V16*/ meltfptr[15] = melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t)(/*_.VALDATA___V156*/ meltfptr[155]), (BPARSTR_PTR BPARSTR_CSTRING BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } /*^apply*/ @@ -23115,7 +23725,7 @@ initial_frame_st meltframe; /*^apply.arg*/ argtab[2].bp_cstring = "warmelt-normatch"; - /*_.NORMAL_EXP__V17*/ meltfptr[16] = melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t)(/*_.VALDATA___V157*/ meltfptr[156]), (BPARSTR_PTR BPARSTR_CSTRING BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.NORMAL_EXP__V17*/ meltfptr[16] = melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t)(/*_.VALDATA___V158*/ meltfptr[157]), (BPARSTR_PTR BPARSTR_CSTRING BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } /*^apply*/ @@ -23132,7 +23742,7 @@ initial_frame_st meltframe; /*^apply.arg*/ argtab[2].bp_cstring = "warmelt-normatch"; - /*_.LIST_APPEND2LIST__V18*/ meltfptr[17] = melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t)(/*_.VALDATA___V159*/ meltfptr[158]), (BPARSTR_PTR BPARSTR_CSTRING BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.LIST_APPEND2LIST__V18*/ meltfptr[17] = melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t)(/*_.VALDATA___V160*/ meltfptr[159]), (BPARSTR_PTR BPARSTR_CSTRING BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } /*^apply*/ @@ -23149,7 +23759,7 @@ initial_frame_st meltframe; /*^apply.arg*/ argtab[2].bp_cstring = "warmelt-normatch"; - /*_.GET_CTYPE__V19*/ meltfptr[18] = melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t)(/*_.VALDATA___V161*/ meltfptr[160]), (BPARSTR_PTR BPARSTR_CSTRING BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.GET_CTYPE__V19*/ meltfptr[18] = melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t)(/*_.VALDATA___V162*/ meltfptr[161]), (BPARSTR_PTR BPARSTR_CSTRING BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } /*^apply*/ @@ -23166,7 +23776,7 @@ initial_frame_st meltframe; /*^apply.arg*/ argtab[2].bp_cstring = "warmelt-normatch"; - /*_.CLASS_CTYPE__V20*/ meltfptr[19] = melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t)(/*_.VALDATA___V163*/ meltfptr[162]), (BPARSTR_PTR BPARSTR_CSTRING BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.CLASS_CTYPE__V20*/ meltfptr[19] = melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t)(/*_.VALDATA___V164*/ meltfptr[163]), (BPARSTR_PTR BPARSTR_CSTRING BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } /*^apply*/ @@ -23183,7 +23793,7 @@ initial_frame_st meltframe; /*^apply.arg*/ argtab[2].bp_cstring = "warmelt-normatch"; - /*_.CLASS_SOURCE_PATTERN_OBJECT__V21*/ meltfptr[20] = melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t)(/*_.VALDATA___V167*/ meltfptr[166]), (BPARSTR_PTR BPARSTR_CSTRING BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.CLASS_SOURCE_PATTERN_OBJECT__V21*/ meltfptr[20] = melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t)(/*_.VALDATA___V168*/ meltfptr[167]), (BPARSTR_PTR BPARSTR_CSTRING BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } /*^apply*/ @@ -23200,7 +23810,7 @@ initial_frame_st meltframe; /*^apply.arg*/ argtab[2].bp_cstring = "warmelt-normatch"; - /*_.CLASS_CLASS__V22*/ meltfptr[21] = melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t)(/*_.VALDATA___V169*/ meltfptr[168]), (BPARSTR_PTR BPARSTR_CSTRING BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.CLASS_CLASS__V22*/ meltfptr[21] = melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t)(/*_.VALDATA___V170*/ meltfptr[169]), (BPARSTR_PTR BPARSTR_CSTRING BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } /*^apply*/ @@ -23217,7 +23827,7 @@ initial_frame_st meltframe; /*^apply.arg*/ argtab[2].bp_cstring = "warmelt-normatch"; - /*_.CLASS_SOURCE_FIELD_PATTERN__V23*/ meltfptr[22] = melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t)(/*_.VALDATA___V171*/ meltfptr[170]), (BPARSTR_PTR BPARSTR_CSTRING BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.CLASS_SOURCE_FIELD_PATTERN__V23*/ meltfptr[22] = melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t)(/*_.VALDATA___V172*/ meltfptr[171]), (BPARSTR_PTR BPARSTR_CSTRING BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } /*^apply*/ @@ -23234,7 +23844,7 @@ initial_frame_st meltframe; /*^apply.arg*/ argtab[2].bp_cstring = "warmelt-normatch"; - /*_.CLASS_FIELD__V24*/ meltfptr[23] = melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t)(/*_.VALDATA___V173*/ meltfptr[172]), (BPARSTR_PTR BPARSTR_CSTRING BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.CLASS_FIELD__V24*/ meltfptr[23] = melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t)(/*_.VALDATA___V174*/ meltfptr[173]), (BPARSTR_PTR BPARSTR_CSTRING BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } /*^apply*/ @@ -23251,7 +23861,7 @@ initial_frame_st meltframe; /*^apply.arg*/ argtab[2].bp_cstring = "warmelt-normatch"; - /*_.CTYPE_VALUE__V25*/ meltfptr[24] = melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t)(/*_.VALDATA___V175*/ meltfptr[174]), (BPARSTR_PTR BPARSTR_CSTRING BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.CTYPE_VALUE__V25*/ meltfptr[24] = melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t)(/*_.VALDATA___V176*/ meltfptr[175]), (BPARSTR_PTR BPARSTR_CSTRING BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } /*^apply*/ @@ -23268,7 +23878,7 @@ initial_frame_st meltframe; /*^apply.arg*/ argtab[2].bp_cstring = "warmelt-normatch"; - /*_.CLASS_SOURCE_PATTERN_COMPOSITE__V26*/ meltfptr[25] = melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t)(/*_.VALDATA___V179*/ meltfptr[178]), (BPARSTR_PTR BPARSTR_CSTRING BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.CLASS_SOURCE_PATTERN_COMPOSITE__V26*/ meltfptr[25] = melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t)(/*_.VALDATA___V180*/ meltfptr[179]), (BPARSTR_PTR BPARSTR_CSTRING BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } /*^apply*/ @@ -23285,7 +23895,7 @@ initial_frame_st meltframe; /*^apply.arg*/ argtab[2].bp_cstring = "warmelt-normatch"; - /*_.CLASS_ANY_MATCHER__V27*/ meltfptr[26] = melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t)(/*_.VALDATA___V181*/ meltfptr[180]), (BPARSTR_PTR BPARSTR_CSTRING BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.CLASS_ANY_MATCHER__V27*/ meltfptr[26] = melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t)(/*_.VALDATA___V182*/ meltfptr[181]), (BPARSTR_PTR BPARSTR_CSTRING BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } /*^apply*/ @@ -23302,7 +23912,7 @@ initial_frame_st meltframe; /*^apply.arg*/ argtab[2].bp_cstring = "warmelt-normatch"; - /*_.CLASS_FORMAL_BINDING__V28*/ meltfptr[27] = melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t)(/*_.VALDATA___V183*/ meltfptr[182]), (BPARSTR_PTR BPARSTR_CSTRING BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.CLASS_FORMAL_BINDING__V28*/ meltfptr[27] = melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t)(/*_.VALDATA___V184*/ meltfptr[183]), (BPARSTR_PTR BPARSTR_CSTRING BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } /*^apply*/ @@ -23319,7 +23929,7 @@ initial_frame_st meltframe; /*^apply.arg*/ argtab[2].bp_cstring = "warmelt-normatch"; - /*_.NORMALIZE_TUPLE__V29*/ meltfptr[28] = melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t)(/*_.VALDATA___V185*/ meltfptr[184]), (BPARSTR_PTR BPARSTR_CSTRING BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.NORMALIZE_TUPLE__V29*/ meltfptr[28] = melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t)(/*_.VALDATA___V186*/ meltfptr[185]), (BPARSTR_PTR BPARSTR_CSTRING BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } /*^apply*/ @@ -23336,7 +23946,7 @@ initial_frame_st meltframe; /*^apply.arg*/ argtab[2].bp_cstring = "warmelt-normatch"; - /*_.CLASS_SOURCE_PATTERN_OR__V30*/ meltfptr[29] = melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t)(/*_.VALDATA___V190*/ meltfptr[189]), (BPARSTR_PTR BPARSTR_CSTRING BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.CLASS_SOURCE_PATTERN_OR__V30*/ meltfptr[29] = melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t)(/*_.VALDATA___V191*/ meltfptr[190]), (BPARSTR_PTR BPARSTR_CSTRING BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } /*^apply*/ @@ -23353,7 +23963,7 @@ initial_frame_st meltframe; /*^apply.arg*/ argtab[2].bp_cstring = "warmelt-normatch"; - /*_.DISCR_MAP_OBJECTS__V31*/ meltfptr[30] = melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t)(/*_.VALDATA___V192*/ meltfptr[191]), (BPARSTR_PTR BPARSTR_CSTRING BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.DISCR_MAP_OBJECTS__V31*/ meltfptr[30] = melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t)(/*_.VALDATA___V193*/ meltfptr[192]), (BPARSTR_PTR BPARSTR_CSTRING BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } /*^apply*/ @@ -23370,7 +23980,7 @@ initial_frame_st meltframe; /*^apply.arg*/ argtab[2].bp_cstring = "warmelt-normatch"; - /*_.CLASS_SYMBOL__V32*/ meltfptr[31] = melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t)(/*_.VALDATA___V194*/ meltfptr[193]), (BPARSTR_PTR BPARSTR_CSTRING BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.CLASS_SYMBOL__V32*/ meltfptr[31] = melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t)(/*_.VALDATA___V195*/ meltfptr[194]), (BPARSTR_PTR BPARSTR_CSTRING BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } /*^apply*/ @@ -23387,7 +23997,7 @@ initial_frame_st meltframe; /*^apply.arg*/ argtab[2].bp_cstring = "warmelt-normatch"; - /*_.CLASS_SOURCE_PATTERN_AND__V33*/ meltfptr[32] = melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t)(/*_.VALDATA___V198*/ meltfptr[197]), (BPARSTR_PTR BPARSTR_CSTRING BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.CLASS_SOURCE_PATTERN_AND__V33*/ meltfptr[32] = melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t)(/*_.VALDATA___V199*/ meltfptr[198]), (BPARSTR_PTR BPARSTR_CSTRING BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } /*^apply*/ @@ -23404,7 +24014,7 @@ initial_frame_st meltframe; /*^apply.arg*/ argtab[2].bp_cstring = "warmelt-normatch"; - /*_.CLASS_NREP_EXPRESSION__V34*/ meltfptr[33] = melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t)(/*_.VALDATA___V228*/ meltfptr[227]), (BPARSTR_PTR BPARSTR_CSTRING BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.CLASS_NREP_EXPRESSION__V34*/ meltfptr[33] = melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t)(/*_.VALDATA___V229*/ meltfptr[228]), (BPARSTR_PTR BPARSTR_CSTRING BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } /*^apply*/ @@ -23421,7 +24031,7 @@ initial_frame_st meltframe; /*^apply.arg*/ argtab[2].bp_cstring = "warmelt-normatch"; - /*_.CLASS_NREP_TYPED_EXPRESSION__V35*/ meltfptr[34] = melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t)(/*_.VALDATA___V370*/ meltfptr[369]), (BPARSTR_PTR BPARSTR_CSTRING BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.CLASS_NREP_TYPED_EXPRESSION__V35*/ meltfptr[34] = melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t)(/*_.VALDATA___V371*/ meltfptr[370]), (BPARSTR_PTR BPARSTR_CSTRING BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } /*^apply*/ @@ -23438,7 +24048,7 @@ initial_frame_st meltframe; /*^apply.arg*/ argtab[2].bp_cstring = "warmelt-normatch"; - /*_.DISCR_LIST__V36*/ meltfptr[35] = melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t)(/*_.VALDATA___V390*/ meltfptr[389]), (BPARSTR_PTR BPARSTR_CSTRING BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.DISCR_LIST__V36*/ meltfptr[35] = melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t)(/*_.VALDATA___V391*/ meltfptr[390]), (BPARSTR_PTR BPARSTR_CSTRING BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } /*^apply*/ @@ -23455,7 +24065,7 @@ initial_frame_st meltframe; /*^apply.arg*/ argtab[2].bp_cstring = "warmelt-normatch"; - /*_.CLASS_CONTAINER__V37*/ meltfptr[36] = melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t)(/*_.VALDATA___V396*/ meltfptr[395]), (BPARSTR_PTR BPARSTR_CSTRING BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.CLASS_CONTAINER__V37*/ meltfptr[36] = melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t)(/*_.VALDATA___V397*/ meltfptr[396]), (BPARSTR_PTR BPARSTR_CSTRING BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } /*^apply*/ @@ -23472,7 +24082,7 @@ initial_frame_st meltframe; /*^apply.arg*/ argtab[2].bp_cstring = "warmelt-normatch"; - /*_.CLASS_LOCATED__V38*/ meltfptr[37] = melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t)(/*_.VALDATA___V402*/ meltfptr[401]), (BPARSTR_PTR BPARSTR_CSTRING BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.CLASS_LOCATED__V38*/ meltfptr[37] = melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t)(/*_.VALDATA___V403*/ meltfptr[402]), (BPARSTR_PTR BPARSTR_CSTRING BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } /*^apply*/ @@ -23489,7 +24099,7 @@ initial_frame_st meltframe; /*^apply.arg*/ argtab[2].bp_cstring = "warmelt-normatch"; - /*_.CLASS_NREP_LOCSYMOCC__V39*/ meltfptr[38] = melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t)(/*_.VALDATA___V409*/ meltfptr[408]), (BPARSTR_PTR BPARSTR_CSTRING BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.CLASS_NREP_LOCSYMOCC__V39*/ meltfptr[38] = melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t)(/*_.VALDATA___V410*/ meltfptr[409]), (BPARSTR_PTR BPARSTR_CSTRING BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } /*^apply*/ @@ -23506,7 +24116,7 @@ initial_frame_st meltframe; /*^apply.arg*/ argtab[2].bp_cstring = "warmelt-normatch"; - /*_.CLASS_NORMAL_LET_BINDING__V40*/ meltfptr[39] = melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t)(/*_.VALDATA___V413*/ meltfptr[412]), (BPARSTR_PTR BPARSTR_CSTRING BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.CLASS_NORMAL_LET_BINDING__V40*/ meltfptr[39] = melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t)(/*_.VALDATA___V414*/ meltfptr[413]), (BPARSTR_PTR BPARSTR_CSTRING BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } /*^apply*/ @@ -23523,7 +24133,7 @@ initial_frame_st meltframe; /*^apply.arg*/ argtab[2].bp_cstring = "warmelt-normatch"; - /*_.CLASS_NORMALIZATION_CONTEXT__V41*/ meltfptr[40] = melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t)(/*_.VALDATA___V415*/ meltfptr[414]), (BPARSTR_PTR BPARSTR_CSTRING BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.CLASS_NORMALIZATION_CONTEXT__V41*/ meltfptr[40] = melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t)(/*_.VALDATA___V416*/ meltfptr[415]), (BPARSTR_PTR BPARSTR_CSTRING BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } /*^apply*/ @@ -23540,7 +24150,7 @@ initial_frame_st meltframe; /*^apply.arg*/ argtab[2].bp_cstring = "warmelt-normatch"; - /*_.CLASS_SOURCE_PATTERN_INSTANCE__V42*/ meltfptr[41] = melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t)(/*_.VALDATA___V423*/ meltfptr[422]), (BPARSTR_PTR BPARSTR_CSTRING BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.CLASS_SOURCE_PATTERN_INSTANCE__V42*/ meltfptr[41] = melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t)(/*_.VALDATA___V424*/ meltfptr[423]), (BPARSTR_PTR BPARSTR_CSTRING BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } /*^apply*/ @@ -23557,7 +24167,7 @@ initial_frame_st meltframe; /*^apply.arg*/ argtab[2].bp_cstring = "warmelt-normatch"; - /*_.DISCR_MULTIPLE__V43*/ meltfptr[42] = melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t)(/*_.VALDATA___V425*/ meltfptr[424]), (BPARSTR_PTR BPARSTR_CSTRING BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.DISCR_MULTIPLE__V43*/ meltfptr[42] = melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t)(/*_.VALDATA___V426*/ meltfptr[425]), (BPARSTR_PTR BPARSTR_CSTRING BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } /*^apply*/ @@ -23574,7 +24184,7 @@ initial_frame_st meltframe; /*^apply.arg*/ argtab[2].bp_cstring = "warmelt-normatch"; - /*_.CLASS_NREP_SYMOCC__V44*/ meltfptr[43] = melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t)(/*_.VALDATA___V427*/ meltfptr[426]), (BPARSTR_PTR BPARSTR_CSTRING BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.CLASS_NREP_SYMOCC__V44*/ meltfptr[43] = melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t)(/*_.VALDATA___V428*/ meltfptr[427]), (BPARSTR_PTR BPARSTR_CSTRING BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } /*^apply*/ @@ -23591,7 +24201,7 @@ initial_frame_st meltframe; /*^apply.arg*/ argtab[2].bp_cstring = "warmelt-normatch"; - /*_.CLASS_LET_BINDING__V45*/ meltfptr[44] = melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t)(/*_.VALDATA___V429*/ meltfptr[428]), (BPARSTR_PTR BPARSTR_CSTRING BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.CLASS_LET_BINDING__V45*/ meltfptr[44] = melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t)(/*_.VALDATA___V430*/ meltfptr[429]), (BPARSTR_PTR BPARSTR_CSTRING BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } /*^apply*/ @@ -23608,7 +24218,7 @@ initial_frame_st meltframe; /*^apply.arg*/ argtab[2].bp_cstring = "warmelt-normatch"; - /*_.CLASS_NREP_UNSAFE_GET_FIELD__V46*/ meltfptr[45] = melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t)(/*_.VALDATA___V431*/ meltfptr[430]), (BPARSTR_PTR BPARSTR_CSTRING BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.CLASS_NREP_UNSAFE_GET_FIELD__V46*/ meltfptr[45] = melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t)(/*_.VALDATA___V432*/ meltfptr[431]), (BPARSTR_PTR BPARSTR_CSTRING BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } /*^apply*/ @@ -23625,7 +24235,7 @@ initial_frame_st meltframe; /*^apply.arg*/ argtab[2].bp_cstring = "warmelt-normatch"; - /*_.CLONE_SYMBOL__V47*/ meltfptr[46] = melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t)(/*_.VALDATA___V433*/ meltfptr[432]), (BPARSTR_PTR BPARSTR_CSTRING BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.CLONE_SYMBOL__V47*/ meltfptr[46] = melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t)(/*_.VALDATA___V434*/ meltfptr[433]), (BPARSTR_PTR BPARSTR_CSTRING BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } /*^apply*/ @@ -23642,7 +24252,7 @@ initial_frame_st meltframe; /*^apply.arg*/ argtab[2].bp_cstring = "warmelt-normatch"; - /*_.MAPOBJECT_SORTED_ATTRIBUTE_TUPLE__V48*/ meltfptr[47] = melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t)(/*_.VALDATA___V443*/ meltfptr[442]), (BPARSTR_PTR BPARSTR_CSTRING BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.MAPOBJECT_SORTED_ATTRIBUTE_TUPLE__V48*/ meltfptr[47] = melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t)(/*_.VALDATA___V444*/ meltfptr[443]), (BPARSTR_PTR BPARSTR_CSTRING BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } /*^apply*/ @@ -23659,7 +24269,7 @@ initial_frame_st meltframe; /*^apply.arg*/ argtab[2].bp_cstring = "warmelt-normatch"; - /*_.MULTIPLE_MAP__V49*/ meltfptr[48] = melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t)(/*_.VALDATA___V445*/ meltfptr[444]), (BPARSTR_PTR BPARSTR_CSTRING BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.MULTIPLE_MAP__V49*/ meltfptr[48] = melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t)(/*_.VALDATA___V446*/ meltfptr[445]), (BPARSTR_PTR BPARSTR_CSTRING BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } /*^apply*/ @@ -23676,7 +24286,7 @@ initial_frame_st meltframe; /*^apply.arg*/ argtab[2].bp_cstring = "warmelt-normatch"; - /*_.DISCR_BOX__V50*/ meltfptr[49] = melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t)(/*_.VALDATA___V447*/ meltfptr[446]), (BPARSTR_PTR BPARSTR_CSTRING BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.DISCR_BOX__V50*/ meltfptr[49] = melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t)(/*_.VALDATA___V448*/ meltfptr[447]), (BPARSTR_PTR BPARSTR_CSTRING BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } /*^apply*/ @@ -23693,7 +24303,7 @@ initial_frame_st meltframe; /*^apply.arg*/ argtab[2].bp_cstring = "warmelt-normatch"; - /*_.LIST_TO_MULTIPLE__V51*/ meltfptr[50] = melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t)(/*_.VALDATA___V449*/ meltfptr[448]), (BPARSTR_PTR BPARSTR_CSTRING BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.LIST_TO_MULTIPLE__V51*/ meltfptr[50] = melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t)(/*_.VALDATA___V450*/ meltfptr[449]), (BPARSTR_PTR BPARSTR_CSTRING BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } /*^apply*/ @@ -23710,7 +24320,7 @@ initial_frame_st meltframe; /*^apply.arg*/ argtab[2].bp_cstring = "warmelt-normatch"; - /*_.CLASS_NREP__V52*/ meltfptr[51] = melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t)(/*_.VALDATA___V451*/ meltfptr[450]), (BPARSTR_PTR BPARSTR_CSTRING BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.CLASS_NREP__V52*/ meltfptr[51] = melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t)(/*_.VALDATA___V452*/ meltfptr[451]), (BPARSTR_PTR BPARSTR_CSTRING BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } /*^apply*/ @@ -23727,7 +24337,7 @@ initial_frame_st meltframe; /*^apply.arg*/ argtab[2].bp_cstring = "warmelt-normatch"; - /*_.CLASS_SOURCE_PATTERN_MATCHER__V53*/ meltfptr[52] = melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t)(/*_.VALDATA___V459*/ meltfptr[458]), (BPARSTR_PTR BPARSTR_CSTRING BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.CLASS_SOURCE_PATTERN_MATCHER__V53*/ meltfptr[52] = melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t)(/*_.VALDATA___V460*/ meltfptr[459]), (BPARSTR_PTR BPARSTR_CSTRING BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } /*^apply*/ @@ -23744,7 +24354,7 @@ initial_frame_st meltframe; /*^apply.arg*/ argtab[2].bp_cstring = "warmelt-normatch"; - /*_.CLASS_ANY_BINDING__V54*/ meltfptr[53] = melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t)(/*_.VALDATA___V461*/ meltfptr[460]), (BPARSTR_PTR BPARSTR_CSTRING BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.CLASS_ANY_BINDING__V54*/ meltfptr[53] = melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t)(/*_.VALDATA___V462*/ meltfptr[461]), (BPARSTR_PTR BPARSTR_CSTRING BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } /*^apply*/ @@ -23761,7 +24371,7 @@ initial_frame_st meltframe; /*^apply.arg*/ argtab[2].bp_cstring = "warmelt-normatch"; - /*_.FIND_ENV__V55*/ meltfptr[54] = melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t)(/*_.VALDATA___V463*/ meltfptr[462]), (BPARSTR_PTR BPARSTR_CSTRING BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.FIND_ENV__V55*/ meltfptr[54] = melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t)(/*_.VALDATA___V464*/ meltfptr[463]), (BPARSTR_PTR BPARSTR_CSTRING BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } /*^apply*/ @@ -23778,7 +24388,7 @@ initial_frame_st meltframe; /*^apply.arg*/ argtab[2].bp_cstring = "warmelt-normatch"; - /*_.FRESH_ENV__V56*/ meltfptr[55] = melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t)(/*_.VALDATA___V465*/ meltfptr[464]), (BPARSTR_PTR BPARSTR_CSTRING BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.FRESH_ENV__V56*/ meltfptr[55] = melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t)(/*_.VALDATA___V466*/ meltfptr[465]), (BPARSTR_PTR BPARSTR_CSTRING BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } /*^apply*/ @@ -23795,7 +24405,7 @@ initial_frame_st meltframe; /*^apply.arg*/ argtab[2].bp_cstring = "warmelt-normatch"; - /*_.PUT_ENV__V57*/ meltfptr[56] = melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t)(/*_.VALDATA___V467*/ meltfptr[466]), (BPARSTR_PTR BPARSTR_CSTRING BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.PUT_ENV__V57*/ meltfptr[56] = melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t)(/*_.VALDATA___V468*/ meltfptr[467]), (BPARSTR_PTR BPARSTR_CSTRING BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } /*^apply*/ @@ -23812,7 +24422,7 @@ initial_frame_st meltframe; /*^apply.arg*/ argtab[2].bp_cstring = "warmelt-normatch"; - /*_.MULTIPLE_TO_LIST__V58*/ meltfptr[57] = melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t)(/*_.VALDATA___V469*/ meltfptr[468]), (BPARSTR_PTR BPARSTR_CSTRING BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.MULTIPLE_TO_LIST__V58*/ meltfptr[57] = melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t)(/*_.VALDATA___V470*/ meltfptr[469]), (BPARSTR_PTR BPARSTR_CSTRING BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } /*^apply*/ @@ -23829,7 +24439,7 @@ initial_frame_st meltframe; /*^apply.arg*/ argtab[2].bp_cstring = "warmelt-normatch"; - /*_.DISCR_STRING__V59*/ meltfptr[58] = melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t)(/*_.VALDATA___V479*/ meltfptr[478]), (BPARSTR_PTR BPARSTR_CSTRING BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.DISCR_STRING__V59*/ meltfptr[58] = melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t)(/*_.VALDATA___V480*/ meltfptr[479]), (BPARSTR_PTR BPARSTR_CSTRING BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } /*^apply*/ @@ -23846,7 +24456,7 @@ initial_frame_st meltframe; /*^apply.arg*/ argtab[2].bp_cstring = "warmelt-normatch"; - /*_.REGISTER_OPTION__V60*/ meltfptr[59] = melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t)(/*_.VALDATA___V481*/ meltfptr[480]), (BPARSTR_PTR BPARSTR_CSTRING BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.REGISTER_OPTION__V60*/ meltfptr[59] = melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t)(/*_.VALDATA___V482*/ meltfptr[481]), (BPARSTR_PTR BPARSTR_CSTRING BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } /*^apply*/ @@ -23863,7 +24473,7 @@ initial_frame_st meltframe; /*^apply.arg*/ argtab[2].bp_cstring = "warmelt-normatch"; - /*_.CLASS_PROPED__V61*/ meltfptr[60] = melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t)(/*_.VALDATA___V488*/ meltfptr[487]), (BPARSTR_PTR BPARSTR_CSTRING BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.CLASS_PROPED__V61*/ meltfptr[60] = melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t)(/*_.VALDATA___V489*/ meltfptr[488]), (BPARSTR_PTR BPARSTR_CSTRING BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } /*^apply*/ @@ -23880,7 +24490,7 @@ initial_frame_st meltframe; /*^apply.arg*/ argtab[2].bp_cstring = "warmelt-normatch"; - /*_.CLASS_CLONED_SYMBOL__V62*/ meltfptr[61] = melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t)(/*_.VALDATA___V522*/ meltfptr[521]), (BPARSTR_PTR BPARSTR_CSTRING BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.CLASS_CLONED_SYMBOL__V62*/ meltfptr[61] = melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t)(/*_.VALDATA___V523*/ meltfptr[522]), (BPARSTR_PTR BPARSTR_CSTRING BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } /*^apply*/ @@ -23897,7 +24507,7 @@ initial_frame_st meltframe; /*^apply.arg*/ argtab[2].bp_cstring = "warmelt-normatch"; - /*_.DISCR_STRBUF__V63*/ meltfptr[62] = melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t)(/*_.VALDATA___V532*/ meltfptr[531]), (BPARSTR_PTR BPARSTR_CSTRING BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.DISCR_STRBUF__V63*/ meltfptr[62] = melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t)(/*_.VALDATA___V533*/ meltfptr[532]), (BPARSTR_PTR BPARSTR_CSTRING BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } /*^apply*/ @@ -23914,7 +24524,7 @@ initial_frame_st meltframe; /*^apply.arg*/ argtab[2].bp_cstring = "warmelt-normatch"; - /*_.CLASS_SOURCE_MATCH__V64*/ meltfptr[63] = melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t)(/*_.VALDATA___V541*/ meltfptr[540]), (BPARSTR_PTR BPARSTR_CSTRING BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.CLASS_SOURCE_MATCH__V64*/ meltfptr[63] = melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t)(/*_.VALDATA___V542*/ meltfptr[541]), (BPARSTR_PTR BPARSTR_CSTRING BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } /*^apply*/ @@ -23931,7 +24541,7 @@ initial_frame_st meltframe; /*^apply.arg*/ argtab[2].bp_cstring = "warmelt-normatch"; - /*_.CLASS_ENVIRONMENT__V65*/ meltfptr[64] = melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t)(/*_.VALDATA___V543*/ meltfptr[542]), (BPARSTR_PTR BPARSTR_CSTRING BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.CLASS_ENVIRONMENT__V65*/ meltfptr[64] = melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t)(/*_.VALDATA___V544*/ meltfptr[543]), (BPARSTR_PTR BPARSTR_CSTRING BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } /*^apply*/ @@ -23948,7 +24558,7 @@ initial_frame_st meltframe; /*^apply.arg*/ argtab[2].bp_cstring = "warmelt-normatch"; - /*_.CLASS_SOURCE_MATCH_CASE__V66*/ meltfptr[65] = melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t)(/*_.VALDATA___V545*/ meltfptr[544]), (BPARSTR_PTR BPARSTR_CSTRING BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.CLASS_SOURCE_MATCH_CASE__V66*/ meltfptr[65] = melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t)(/*_.VALDATA___V546*/ meltfptr[545]), (BPARSTR_PTR BPARSTR_CSTRING BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } /*^apply*/ @@ -23965,7 +24575,7 @@ initial_frame_st meltframe; /*^apply.arg*/ argtab[2].bp_cstring = "warmelt-normatch"; - /*_.WRAP_NORMAL_LETSEQ__V67*/ meltfptr[66] = melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t)(/*_.VALDATA___V547*/ meltfptr[546]), (BPARSTR_PTR BPARSTR_CSTRING BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.WRAP_NORMAL_LETSEQ__V67*/ meltfptr[66] = melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t)(/*_.VALDATA___V548*/ meltfptr[547]), (BPARSTR_PTR BPARSTR_CSTRING BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } /*^apply*/ @@ -23982,7 +24592,7 @@ initial_frame_st meltframe; /*^apply.arg*/ argtab[2].bp_cstring = "warmelt-normatch"; - /*_.CTYPE_VOID__V68*/ meltfptr[67] = melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t)(/*_.VALDATA___V549*/ meltfptr[548]), (BPARSTR_PTR BPARSTR_CSTRING BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.CTYPE_VOID__V68*/ meltfptr[67] = melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t)(/*_.VALDATA___V550*/ meltfptr[549]), (BPARSTR_PTR BPARSTR_CSTRING BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } /*^apply*/ @@ -23999,7 +24609,24 @@ initial_frame_st meltframe; /*^apply.arg*/ argtab[2].bp_cstring = "warmelt-normatch"; - /*_.NORMALIZE_BINDING__V69*/ meltfptr[68] = melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t)(/*_.VALDATA___V645*/ meltfptr[644]), (BPARSTR_PTR BPARSTR_CSTRING BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.NORMALIZE_BINDING__V69*/ meltfptr[68] = melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t)(/*_.VALDATA___V650*/ meltfptr[649]), (BPARSTR_PTR BPARSTR_CSTRING BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + } + + /*^apply*/ + + /*apply*/{ + union meltparam_un argtab[3]; + memset(&argtab, 0, sizeof(argtab)); + /*^apply.arg*/ + + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.PREVENV___V4*/ meltfptr[3]; + /*^apply.arg*/ + + argtab[1].bp_cstring = "DISCR_CONSTANT_INTEGER"; + /*^apply.arg*/ + + argtab[2].bp_cstring = "warmelt-normatch"; + /*_.DISCR_CONSTANT_INTEGER__V70*/ meltfptr[69] = melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t)(/*_.VALDATA___V830*/ meltfptr[829]), (BPARSTR_PTR BPARSTR_CSTRING BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } /*^apply*/ @@ -24016,7 +24643,7 @@ initial_frame_st meltframe; /*^apply.arg*/ argtab[2].bp_cstring = "warmelt-normatch"; - /*_.CLASS_SOURCE_PATTERN_CONSTRUCT__V70*/ meltfptr[69] = melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t)(/*_.VALDATA___V803*/ meltfptr[802]), (BPARSTR_PTR BPARSTR_CSTRING BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.CLASS_SOURCE_PATTERN_CONSTRUCT__V71*/ meltfptr[70] = melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t)(/*_.VALDATA___V866*/ meltfptr[865]), (BPARSTR_PTR BPARSTR_CSTRING BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } /*^apply*/ @@ -24033,7 +24660,7 @@ initial_frame_st meltframe; /*^apply.arg*/ argtab[2].bp_cstring = "warmelt-normatch"; - /*_.DISCR_INTEGER__V71*/ meltfptr[70] = melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t)(/*_.VALDATA___V895*/ meltfptr[894]), (BPARSTR_PTR BPARSTR_CSTRING BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.DISCR_INTEGER__V72*/ meltfptr[71] = melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t)(/*_.VALDATA___V964*/ meltfptr[963]), (BPARSTR_PTR BPARSTR_CSTRING BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } /*^apply*/ @@ -24050,7 +24677,7 @@ initial_frame_st meltframe; /*^apply.arg*/ argtab[2].bp_cstring = "warmelt-normatch"; - /*_.COMPARE_NAMED_ALPHA__V72*/ meltfptr[71] = melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t)(/*_.VALDATA___V897*/ meltfptr[896]), (BPARSTR_PTR BPARSTR_CSTRING BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.COMPARE_NAMED_ALPHA__V73*/ meltfptr[72] = melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t)(/*_.VALDATA___V966*/ meltfptr[965]), (BPARSTR_PTR BPARSTR_CSTRING BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } /*^comment*/ @@ -24071,7 +24698,8 @@ initial_frame_st meltframe; warmelt_normatch_initialmeltchunk_5 (&meltfram__, predefinited); warmelt_normatch_initialmeltchunk_6 (&meltfram__, predefinited); warmelt_normatch_initialmeltchunk_7 (&meltfram__, predefinited); - warmelt_normatch_initialmeltchunk_8 (&meltfram__, predefinited);; + warmelt_normatch_initialmeltchunk_8 (&meltfram__, predefinited); + warmelt_normatch_initialmeltchunk_9 (&meltfram__, predefinited);; goto labend_rout; labend_rout: melt_topframe = (struct callframe_melt_st *) meltfram__.prev; initial_frame_melt = (void*)0; @@ -24090,1523 +24718,1523 @@ void MELT_MODULE_VISIBILITY warmelt_normatch_initialmeltchunk_0 (struct frame_st /**COMMENT: start of oinibody **/; /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V73*/ meltfptr[72])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V74*/ meltfptr[73])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V73*/ meltfptr[72])))); - ((meltobject_ptr_t)(/*_.VALDATA___V73*/ meltfptr[72]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V74*/ meltfptr[73]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V74*/ meltfptr[73])))); + ((meltobject_ptr_t)(/*_.VALDATA___V74*/ meltfptr[73]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V75*/ meltfptr[74]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V73*/ meltfptr[72]); + meltgc_touch(/*_.VALDATA___V74*/ meltfptr[73]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V75*/ meltfptr[74])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V76*/ meltfptr[75])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V75*/ meltfptr[74])))); - ((meltobject_ptr_t)(/*_.VALDATA___V75*/ meltfptr[74]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V76*/ meltfptr[75]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V76*/ meltfptr[75])))); + ((meltobject_ptr_t)(/*_.VALDATA___V76*/ meltfptr[75]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V77*/ meltfptr[76]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V75*/ meltfptr[74]); + meltgc_touch(/*_.VALDATA___V76*/ meltfptr[75]); MELT_LOCATION("warmelt-normatch.melt:33:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V77*/ meltfptr[76])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V78*/ meltfptr[77])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V77*/ meltfptr[76])))); - ((meltobject_ptr_t)(/*_.VALDATA___V77*/ meltfptr[76]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V78*/ meltfptr[77]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V78*/ meltfptr[77])))); + ((meltobject_ptr_t)(/*_.VALDATA___V78*/ meltfptr[77]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V79*/ meltfptr[78]); MELT_LOCATION("warmelt-normatch.melt:33:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V77*/ meltfptr[76])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V78*/ meltfptr[77])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V77*/ meltfptr[76])))); - ((meltobject_ptr_t)(/*_.VALDATA___V77*/ meltfptr[76]))->obj_vartab[4] = (melt_ptr_t)( + melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V78*/ meltfptr[77])))); + ((meltobject_ptr_t)(/*_.VALDATA___V78*/ meltfptr[77]))->obj_vartab[4] = (melt_ptr_t)( /*_.CLASS_ROOT__V7*/ meltfptr[6]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V79*/ meltfptr[78]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V79*/ meltfptr[78])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V79*/ meltfptr[78]))->tabval[0] = (melt_ptr_t)(/*_.CLASS_ROOT__V7*/ meltfptr[6]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V80*/ meltfptr[79]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V80*/ meltfptr[79])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V80*/ meltfptr[79]))->tabval[0] = (melt_ptr_t)(/*_.CLASS_ROOT__V7*/ meltfptr[6]); /*touch:INITUP_*/ - meltgc_touch(/*_.VALTUP___V79*/ meltfptr[78]); + meltgc_touch(/*_.VALTUP___V80*/ meltfptr[79]); MELT_LOCATION("warmelt-normatch.melt:33:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V77*/ meltfptr[76])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V78*/ meltfptr[77])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V77*/ meltfptr[76])))); - ((meltobject_ptr_t)(/*_.VALDATA___V77*/ meltfptr[76]))->obj_vartab[5] = (melt_ptr_t)( - /*_.VALTUP___V79*/ meltfptr[78]); + melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V78*/ meltfptr[77])))); + ((meltobject_ptr_t)(/*_.VALDATA___V78*/ meltfptr[77]))->obj_vartab[5] = (melt_ptr_t)( + /*_.VALTUP___V80*/ meltfptr[79]); MELT_LOCATION("warmelt-normatch.melt:33:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V80*/ meltfptr[79])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V81*/ meltfptr[80])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V80*/ meltfptr[79])))); - ((meltobject_ptr_t)(/*_.VALDATA___V80*/ meltfptr[79]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V81*/ meltfptr[80]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V81*/ meltfptr[80])))); + ((meltobject_ptr_t)(/*_.VALDATA___V81*/ meltfptr[80]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V82*/ meltfptr[81]); MELT_LOCATION("warmelt-normatch.melt:33:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V80*/ meltfptr[79])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V81*/ meltfptr[80])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V80*/ meltfptr[79])))); - ((meltobject_ptr_t)(/*_.VALDATA___V80*/ meltfptr[79]))->obj_vartab[2] = (melt_ptr_t)( - /*_.VALDATA___V77*/ meltfptr[76]); + melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V81*/ meltfptr[80])))); + ((meltobject_ptr_t)(/*_.VALDATA___V81*/ meltfptr[80]))->obj_vartab[2] = (melt_ptr_t)( + /*_.VALDATA___V78*/ meltfptr[77]); MELT_LOCATION("warmelt-normatch.melt:33:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V80*/ meltfptr[79]); + meltgc_touch(/*_.VALDATA___V81*/ meltfptr[80]); MELT_LOCATION("warmelt-normatch.melt:33:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V82*/ meltfptr[81])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V83*/ meltfptr[82])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V82*/ meltfptr[81])))); - ((meltobject_ptr_t)(/*_.VALDATA___V82*/ meltfptr[81]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V83*/ meltfptr[82]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V83*/ meltfptr[82])))); + ((meltobject_ptr_t)(/*_.VALDATA___V83*/ meltfptr[82]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V84*/ meltfptr[83]); MELT_LOCATION("warmelt-normatch.melt:33:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V82*/ meltfptr[81])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V83*/ meltfptr[82])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V82*/ meltfptr[81])))); - ((meltobject_ptr_t)(/*_.VALDATA___V82*/ meltfptr[81]))->obj_vartab[2] = (melt_ptr_t)( - /*_.VALDATA___V77*/ meltfptr[76]); + melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V83*/ meltfptr[82])))); + ((meltobject_ptr_t)(/*_.VALDATA___V83*/ meltfptr[82]))->obj_vartab[2] = (melt_ptr_t)( + /*_.VALDATA___V78*/ meltfptr[77]); MELT_LOCATION("warmelt-normatch.melt:33:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V82*/ meltfptr[81]); + meltgc_touch(/*_.VALDATA___V83*/ meltfptr[82]); MELT_LOCATION("warmelt-normatch.melt:33:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V84*/ meltfptr[83])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V85*/ meltfptr[84])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V84*/ meltfptr[83])))); - ((meltobject_ptr_t)(/*_.VALDATA___V84*/ meltfptr[83]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V85*/ meltfptr[84]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V85*/ meltfptr[84])))); + ((meltobject_ptr_t)(/*_.VALDATA___V85*/ meltfptr[84]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V86*/ meltfptr[85]); MELT_LOCATION("warmelt-normatch.melt:33:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V84*/ meltfptr[83])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V85*/ meltfptr[84])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V84*/ meltfptr[83])))); - ((meltobject_ptr_t)(/*_.VALDATA___V84*/ meltfptr[83]))->obj_vartab[2] = (melt_ptr_t)( - /*_.VALDATA___V77*/ meltfptr[76]); + melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V85*/ meltfptr[84])))); + ((meltobject_ptr_t)(/*_.VALDATA___V85*/ meltfptr[84]))->obj_vartab[2] = (melt_ptr_t)( + /*_.VALDATA___V78*/ meltfptr[77]); MELT_LOCATION("warmelt-normatch.melt:33:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V84*/ meltfptr[83]); + meltgc_touch(/*_.VALDATA___V85*/ meltfptr[84]); MELT_LOCATION("warmelt-normatch.melt:33:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V86*/ meltfptr[85])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V87*/ meltfptr[86])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V86*/ meltfptr[85])))); - ((meltobject_ptr_t)(/*_.VALDATA___V86*/ meltfptr[85]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V87*/ meltfptr[86]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V87*/ meltfptr[86])))); + ((meltobject_ptr_t)(/*_.VALDATA___V87*/ meltfptr[86]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V88*/ meltfptr[87]); MELT_LOCATION("warmelt-normatch.melt:33:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V86*/ meltfptr[85])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V87*/ meltfptr[86])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V86*/ meltfptr[85])))); - ((meltobject_ptr_t)(/*_.VALDATA___V86*/ meltfptr[85]))->obj_vartab[2] = (melt_ptr_t)( - /*_.VALDATA___V77*/ meltfptr[76]); + melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V87*/ meltfptr[86])))); + ((meltobject_ptr_t)(/*_.VALDATA___V87*/ meltfptr[86]))->obj_vartab[2] = (melt_ptr_t)( + /*_.VALDATA___V78*/ meltfptr[77]); MELT_LOCATION("warmelt-normatch.melt:33:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V86*/ meltfptr[85]); + meltgc_touch(/*_.VALDATA___V87*/ meltfptr[86]); MELT_LOCATION("warmelt-normatch.melt:33:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V88*/ meltfptr[87])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V89*/ meltfptr[88])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V88*/ meltfptr[87])))); - ((meltobject_ptr_t)(/*_.VALDATA___V88*/ meltfptr[87]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V89*/ meltfptr[88]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V89*/ meltfptr[88])))); + ((meltobject_ptr_t)(/*_.VALDATA___V89*/ meltfptr[88]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V90*/ meltfptr[89]); MELT_LOCATION("warmelt-normatch.melt:33:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V88*/ meltfptr[87])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V89*/ meltfptr[88])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V88*/ meltfptr[87])))); - ((meltobject_ptr_t)(/*_.VALDATA___V88*/ meltfptr[87]))->obj_vartab[2] = (melt_ptr_t)( - /*_.VALDATA___V77*/ meltfptr[76]); + melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V89*/ meltfptr[88])))); + ((meltobject_ptr_t)(/*_.VALDATA___V89*/ meltfptr[88]))->obj_vartab[2] = (melt_ptr_t)( + /*_.VALDATA___V78*/ meltfptr[77]); MELT_LOCATION("warmelt-normatch.melt:33:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V88*/ meltfptr[87]); + meltgc_touch(/*_.VALDATA___V89*/ meltfptr[88]); MELT_LOCATION("warmelt-normatch.melt:33:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V90*/ meltfptr[89])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V91*/ meltfptr[90])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V90*/ meltfptr[89])))); - ((meltobject_ptr_t)(/*_.VALDATA___V90*/ meltfptr[89]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V91*/ meltfptr[90]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V91*/ meltfptr[90])))); + ((meltobject_ptr_t)(/*_.VALDATA___V91*/ meltfptr[90]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V92*/ meltfptr[91]); MELT_LOCATION("warmelt-normatch.melt:33:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V90*/ meltfptr[89])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V91*/ meltfptr[90])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V90*/ meltfptr[89])))); - ((meltobject_ptr_t)(/*_.VALDATA___V90*/ meltfptr[89]))->obj_vartab[2] = (melt_ptr_t)( - /*_.VALDATA___V77*/ meltfptr[76]); + melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V91*/ meltfptr[90])))); + ((meltobject_ptr_t)(/*_.VALDATA___V91*/ meltfptr[90]))->obj_vartab[2] = (melt_ptr_t)( + /*_.VALDATA___V78*/ meltfptr[77]); MELT_LOCATION("warmelt-normatch.melt:33:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V90*/ meltfptr[89]); + meltgc_touch(/*_.VALDATA___V91*/ meltfptr[90]); MELT_LOCATION("warmelt-normatch.melt:33:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V92*/ meltfptr[91])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V93*/ meltfptr[92])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V92*/ meltfptr[91])))); - ((meltobject_ptr_t)(/*_.VALDATA___V92*/ meltfptr[91]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V93*/ meltfptr[92]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V93*/ meltfptr[92])))); + ((meltobject_ptr_t)(/*_.VALDATA___V93*/ meltfptr[92]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V94*/ meltfptr[93]); MELT_LOCATION("warmelt-normatch.melt:33:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V92*/ meltfptr[91])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V93*/ meltfptr[92])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V92*/ meltfptr[91])))); - ((meltobject_ptr_t)(/*_.VALDATA___V92*/ meltfptr[91]))->obj_vartab[2] = (melt_ptr_t)( - /*_.VALDATA___V77*/ meltfptr[76]); + melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V93*/ meltfptr[92])))); + ((meltobject_ptr_t)(/*_.VALDATA___V93*/ meltfptr[92]))->obj_vartab[2] = (melt_ptr_t)( + /*_.VALDATA___V78*/ meltfptr[77]); MELT_LOCATION("warmelt-normatch.melt:33:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V92*/ meltfptr[91]); + meltgc_touch(/*_.VALDATA___V93*/ meltfptr[92]); MELT_LOCATION("warmelt-normatch.melt:33:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V94*/ meltfptr[93])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V95*/ meltfptr[94])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V94*/ meltfptr[93])))); - ((meltobject_ptr_t)(/*_.VALDATA___V94*/ meltfptr[93]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V95*/ meltfptr[94]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V95*/ meltfptr[94])))); + ((meltobject_ptr_t)(/*_.VALDATA___V95*/ meltfptr[94]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V96*/ meltfptr[95]); MELT_LOCATION("warmelt-normatch.melt:33:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V94*/ meltfptr[93])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V95*/ meltfptr[94])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V94*/ meltfptr[93])))); - ((meltobject_ptr_t)(/*_.VALDATA___V94*/ meltfptr[93]))->obj_vartab[2] = (melt_ptr_t)( - /*_.VALDATA___V77*/ meltfptr[76]); + melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V95*/ meltfptr[94])))); + ((meltobject_ptr_t)(/*_.VALDATA___V95*/ meltfptr[94]))->obj_vartab[2] = (melt_ptr_t)( + /*_.VALDATA___V78*/ meltfptr[77]); MELT_LOCATION("warmelt-normatch.melt:33:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V94*/ meltfptr[93]); + meltgc_touch(/*_.VALDATA___V95*/ meltfptr[94]); MELT_LOCATION("warmelt-normatch.melt:33:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V96*/ meltfptr[95])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V97*/ meltfptr[96])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V96*/ meltfptr[95])))); - ((meltobject_ptr_t)(/*_.VALDATA___V96*/ meltfptr[95]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V97*/ meltfptr[96]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V97*/ meltfptr[96])))); + ((meltobject_ptr_t)(/*_.VALDATA___V97*/ meltfptr[96]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V98*/ meltfptr[97]); MELT_LOCATION("warmelt-normatch.melt:33:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V96*/ meltfptr[95])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V97*/ meltfptr[96])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V96*/ meltfptr[95])))); - ((meltobject_ptr_t)(/*_.VALDATA___V96*/ meltfptr[95]))->obj_vartab[2] = (melt_ptr_t)( - /*_.VALDATA___V77*/ meltfptr[76]); + melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V97*/ meltfptr[96])))); + ((meltobject_ptr_t)(/*_.VALDATA___V97*/ meltfptr[96]))->obj_vartab[2] = (melt_ptr_t)( + /*_.VALDATA___V78*/ meltfptr[77]); MELT_LOCATION("warmelt-normatch.melt:33:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V96*/ meltfptr[95]); + meltgc_touch(/*_.VALDATA___V97*/ meltfptr[96]); MELT_LOCATION("warmelt-normatch.melt:33:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V98*/ meltfptr[97])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V99*/ meltfptr[98])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V98*/ meltfptr[97])))); - ((meltobject_ptr_t)(/*_.VALDATA___V98*/ meltfptr[97]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V99*/ meltfptr[98]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V99*/ meltfptr[98])))); + ((meltobject_ptr_t)(/*_.VALDATA___V99*/ meltfptr[98]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V100*/ meltfptr[99]); MELT_LOCATION("warmelt-normatch.melt:33:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V98*/ meltfptr[97])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V99*/ meltfptr[98])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V98*/ meltfptr[97])))); - ((meltobject_ptr_t)(/*_.VALDATA___V98*/ meltfptr[97]))->obj_vartab[2] = (melt_ptr_t)( - /*_.VALDATA___V77*/ meltfptr[76]); + melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V99*/ meltfptr[98])))); + ((meltobject_ptr_t)(/*_.VALDATA___V99*/ meltfptr[98]))->obj_vartab[2] = (melt_ptr_t)( + /*_.VALDATA___V78*/ meltfptr[77]); MELT_LOCATION("warmelt-normatch.melt:33:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V98*/ meltfptr[97]); + meltgc_touch(/*_.VALDATA___V99*/ meltfptr[98]); MELT_LOCATION("warmelt-normatch.melt:33:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V100*/ meltfptr[99])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V101*/ meltfptr[100])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V100*/ meltfptr[99])))); - ((meltobject_ptr_t)(/*_.VALDATA___V100*/ meltfptr[99]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V101*/ meltfptr[100]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V101*/ meltfptr[100])))); + ((meltobject_ptr_t)(/*_.VALDATA___V101*/ meltfptr[100]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V102*/ meltfptr[101]); MELT_LOCATION("warmelt-normatch.melt:33:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V100*/ meltfptr[99])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V101*/ meltfptr[100])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V100*/ meltfptr[99])))); - ((meltobject_ptr_t)(/*_.VALDATA___V100*/ meltfptr[99]))->obj_vartab[2] = (melt_ptr_t)( - /*_.VALDATA___V77*/ meltfptr[76]); + melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V101*/ meltfptr[100])))); + ((meltobject_ptr_t)(/*_.VALDATA___V101*/ meltfptr[100]))->obj_vartab[2] = (melt_ptr_t)( + /*_.VALDATA___V78*/ meltfptr[77]); MELT_LOCATION("warmelt-normatch.melt:33:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V100*/ meltfptr[99]); + meltgc_touch(/*_.VALDATA___V101*/ meltfptr[100]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V102*/ meltfptr[101]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V102*/ meltfptr[101])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V102*/ meltfptr[101]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V80*/ meltfptr[79]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V103*/ meltfptr[102]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V103*/ meltfptr[102])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V103*/ meltfptr[102]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V81*/ meltfptr[80]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V102*/ meltfptr[101]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V102*/ meltfptr[101])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V102*/ meltfptr[101]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V82*/ meltfptr[81]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V103*/ meltfptr[102]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V103*/ meltfptr[102])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V103*/ meltfptr[102]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V83*/ meltfptr[82]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V102*/ meltfptr[101]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V102*/ meltfptr[101])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V102*/ meltfptr[101]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V84*/ meltfptr[83]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V103*/ meltfptr[102]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V103*/ meltfptr[102])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V103*/ meltfptr[102]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V85*/ meltfptr[84]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V102*/ meltfptr[101]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V102*/ meltfptr[101])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V102*/ meltfptr[101]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V86*/ meltfptr[85]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V103*/ meltfptr[102]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V103*/ meltfptr[102])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V103*/ meltfptr[102]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V87*/ meltfptr[86]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V102*/ meltfptr[101]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V102*/ meltfptr[101])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V102*/ meltfptr[101]))->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V88*/ meltfptr[87]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V103*/ meltfptr[102]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V103*/ meltfptr[102])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V103*/ meltfptr[102]))->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V89*/ meltfptr[88]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V102*/ meltfptr[101]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V102*/ meltfptr[101])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V102*/ meltfptr[101]))->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V90*/ meltfptr[89]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V103*/ meltfptr[102]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V103*/ meltfptr[102])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V103*/ meltfptr[102]))->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V91*/ meltfptr[90]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V102*/ meltfptr[101]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (6>=0 && 6< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V102*/ meltfptr[101])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V102*/ meltfptr[101]))->tabval[6] = (melt_ptr_t)(/*_.VALDATA___V92*/ meltfptr[91]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V103*/ meltfptr[102]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (6>=0 && 6< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V103*/ meltfptr[102])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V103*/ meltfptr[102]))->tabval[6] = (melt_ptr_t)(/*_.VALDATA___V93*/ meltfptr[92]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V102*/ meltfptr[101]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (7>=0 && 7< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V102*/ meltfptr[101])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V102*/ meltfptr[101]))->tabval[7] = (melt_ptr_t)(/*_.VALDATA___V94*/ meltfptr[93]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V103*/ meltfptr[102]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (7>=0 && 7< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V103*/ meltfptr[102])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V103*/ meltfptr[102]))->tabval[7] = (melt_ptr_t)(/*_.VALDATA___V95*/ meltfptr[94]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V102*/ meltfptr[101]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (8>=0 && 8< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V102*/ meltfptr[101])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V102*/ meltfptr[101]))->tabval[8] = (melt_ptr_t)(/*_.VALDATA___V96*/ meltfptr[95]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V103*/ meltfptr[102]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (8>=0 && 8< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V103*/ meltfptr[102])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V103*/ meltfptr[102]))->tabval[8] = (melt_ptr_t)(/*_.VALDATA___V97*/ meltfptr[96]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V102*/ meltfptr[101]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (9>=0 && 9< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V102*/ meltfptr[101])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V102*/ meltfptr[101]))->tabval[9] = (melt_ptr_t)(/*_.VALDATA___V98*/ meltfptr[97]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V103*/ meltfptr[102]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (9>=0 && 9< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V103*/ meltfptr[102])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V103*/ meltfptr[102]))->tabval[9] = (melt_ptr_t)(/*_.VALDATA___V99*/ meltfptr[98]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V102*/ meltfptr[101]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (10>=0 && 10< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V102*/ meltfptr[101])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V102*/ meltfptr[101]))->tabval[10] = (melt_ptr_t)(/*_.VALDATA___V100*/ meltfptr[99]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V103*/ meltfptr[102]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (10>=0 && 10< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V103*/ meltfptr[102])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V103*/ meltfptr[102]))->tabval[10] = (melt_ptr_t)(/*_.VALDATA___V101*/ meltfptr[100]); /*touch:INITUP_*/ - meltgc_touch(/*_.VALTUP___V102*/ meltfptr[101]); + meltgc_touch(/*_.VALTUP___V103*/ meltfptr[102]); MELT_LOCATION("warmelt-normatch.melt:33:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V77*/ meltfptr[76])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V78*/ meltfptr[77])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V77*/ meltfptr[76])))); - ((meltobject_ptr_t)(/*_.VALDATA___V77*/ meltfptr[76]))->obj_vartab[6] = (melt_ptr_t)( - /*_.VALTUP___V102*/ meltfptr[101]); + melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V78*/ meltfptr[77])))); + ((meltobject_ptr_t)(/*_.VALDATA___V78*/ meltfptr[77]))->obj_vartab[6] = (melt_ptr_t)( + /*_.VALTUP___V103*/ meltfptr[102]); MELT_LOCATION("warmelt-normatch.melt:33:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V77*/ meltfptr[76]); + meltgc_touch(/*_.VALDATA___V78*/ meltfptr[77]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V103*/ meltfptr[102])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V104*/ meltfptr[103])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V103*/ meltfptr[102])))); - ((meltobject_ptr_t)(/*_.VALDATA___V103*/ meltfptr[102]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V104*/ meltfptr[103]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V104*/ meltfptr[103])))); + ((meltobject_ptr_t)(/*_.VALDATA___V104*/ meltfptr[103]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V105*/ meltfptr[104]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V103*/ meltfptr[102]); + meltgc_touch(/*_.VALDATA___V104*/ meltfptr[103]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V105*/ meltfptr[104])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V106*/ meltfptr[105])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V105*/ meltfptr[104])))); - ((meltobject_ptr_t)(/*_.VALDATA___V105*/ meltfptr[104]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V106*/ meltfptr[105]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V106*/ meltfptr[105])))); + ((meltobject_ptr_t)(/*_.VALDATA___V106*/ meltfptr[105]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V107*/ meltfptr[106]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V105*/ meltfptr[104]); + meltgc_touch(/*_.VALDATA___V106*/ meltfptr[105]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V107*/ meltfptr[106])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V108*/ meltfptr[107])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V107*/ meltfptr[106])))); - ((meltobject_ptr_t)(/*_.VALDATA___V107*/ meltfptr[106]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V108*/ meltfptr[107]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V108*/ meltfptr[107])))); + ((meltobject_ptr_t)(/*_.VALDATA___V108*/ meltfptr[107]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V109*/ meltfptr[108]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V107*/ meltfptr[106]); + meltgc_touch(/*_.VALDATA___V108*/ meltfptr[107]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V109*/ meltfptr[108])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V110*/ meltfptr[109])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V109*/ meltfptr[108])))); - ((meltobject_ptr_t)(/*_.VALDATA___V109*/ meltfptr[108]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V110*/ meltfptr[109]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V110*/ meltfptr[109])))); + ((meltobject_ptr_t)(/*_.VALDATA___V110*/ meltfptr[109]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V111*/ meltfptr[110]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V109*/ meltfptr[108]); + meltgc_touch(/*_.VALDATA___V110*/ meltfptr[109]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V111*/ meltfptr[110])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V112*/ meltfptr[111])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V111*/ meltfptr[110])))); - ((meltobject_ptr_t)(/*_.VALDATA___V111*/ meltfptr[110]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V112*/ meltfptr[111]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V112*/ meltfptr[111])))); + ((meltobject_ptr_t)(/*_.VALDATA___V112*/ meltfptr[111]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V113*/ meltfptr[112]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V111*/ meltfptr[110]); + meltgc_touch(/*_.VALDATA___V112*/ meltfptr[111]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V113*/ meltfptr[112])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V114*/ meltfptr[113])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V113*/ meltfptr[112])))); - ((meltobject_ptr_t)(/*_.VALDATA___V113*/ meltfptr[112]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V114*/ meltfptr[113]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V114*/ meltfptr[113])))); + ((meltobject_ptr_t)(/*_.VALDATA___V114*/ meltfptr[113]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V115*/ meltfptr[114]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V113*/ meltfptr[112]); + meltgc_touch(/*_.VALDATA___V114*/ meltfptr[113]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V115*/ meltfptr[114])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V116*/ meltfptr[115])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V115*/ meltfptr[114])))); - ((meltobject_ptr_t)(/*_.VALDATA___V115*/ meltfptr[114]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V116*/ meltfptr[115]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V116*/ meltfptr[115])))); + ((meltobject_ptr_t)(/*_.VALDATA___V116*/ meltfptr[115]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V117*/ meltfptr[116]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V115*/ meltfptr[114]); + meltgc_touch(/*_.VALDATA___V116*/ meltfptr[115]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V117*/ meltfptr[116])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V118*/ meltfptr[117])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V117*/ meltfptr[116])))); - ((meltobject_ptr_t)(/*_.VALDATA___V117*/ meltfptr[116]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V118*/ meltfptr[117]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V118*/ meltfptr[117])))); + ((meltobject_ptr_t)(/*_.VALDATA___V118*/ meltfptr[117]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V119*/ meltfptr[118]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V117*/ meltfptr[116]); + meltgc_touch(/*_.VALDATA___V118*/ meltfptr[117]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V119*/ meltfptr[118])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V120*/ meltfptr[119])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V119*/ meltfptr[118])))); - ((meltobject_ptr_t)(/*_.VALDATA___V119*/ meltfptr[118]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V120*/ meltfptr[119]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V120*/ meltfptr[119])))); + ((meltobject_ptr_t)(/*_.VALDATA___V120*/ meltfptr[119]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V121*/ meltfptr[120]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V119*/ meltfptr[118]); + meltgc_touch(/*_.VALDATA___V120*/ meltfptr[119]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V121*/ meltfptr[120])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V122*/ meltfptr[121])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V121*/ meltfptr[120])))); - ((meltobject_ptr_t)(/*_.VALDATA___V121*/ meltfptr[120]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V122*/ meltfptr[121]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V122*/ meltfptr[121])))); + ((meltobject_ptr_t)(/*_.VALDATA___V122*/ meltfptr[121]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V123*/ meltfptr[122]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V121*/ meltfptr[120]); + meltgc_touch(/*_.VALDATA___V122*/ meltfptr[121]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V123*/ meltfptr[122])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V124*/ meltfptr[123])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V123*/ meltfptr[122])))); - ((meltobject_ptr_t)(/*_.VALDATA___V123*/ meltfptr[122]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V124*/ meltfptr[123]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V124*/ meltfptr[123])))); + ((meltobject_ptr_t)(/*_.VALDATA___V124*/ meltfptr[123]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V125*/ meltfptr[124]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V123*/ meltfptr[122]); + meltgc_touch(/*_.VALDATA___V124*/ meltfptr[123]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V125*/ meltfptr[124])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V126*/ meltfptr[125])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V125*/ meltfptr[124])))); - ((meltobject_ptr_t)(/*_.VALDATA___V125*/ meltfptr[124]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V126*/ meltfptr[125]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V126*/ meltfptr[125])))); + ((meltobject_ptr_t)(/*_.VALDATA___V126*/ meltfptr[125]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V127*/ meltfptr[126]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V125*/ meltfptr[124]); + meltgc_touch(/*_.VALDATA___V126*/ meltfptr[125]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V127*/ meltfptr[126])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V128*/ meltfptr[127])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V127*/ meltfptr[126])))); - ((meltobject_ptr_t)(/*_.VALDATA___V127*/ meltfptr[126]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V128*/ meltfptr[127]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V128*/ meltfptr[127])))); + ((meltobject_ptr_t)(/*_.VALDATA___V128*/ meltfptr[127]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V129*/ meltfptr[128]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V127*/ meltfptr[126]); + meltgc_touch(/*_.VALDATA___V128*/ meltfptr[127]); MELT_LOCATION("warmelt-normatch.melt:77:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V129*/ meltfptr[128])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V130*/ meltfptr[129])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V129*/ meltfptr[128])))); - ((meltobject_ptr_t)(/*_.VALDATA___V129*/ meltfptr[128]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V130*/ meltfptr[129]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V130*/ meltfptr[129])))); + ((meltobject_ptr_t)(/*_.VALDATA___V130*/ meltfptr[129]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V131*/ meltfptr[130]); MELT_LOCATION("warmelt-normatch.melt:77:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V129*/ meltfptr[128]); + meltgc_touch(/*_.VALDATA___V130*/ meltfptr[129]); MELT_LOCATION("warmelt-normatch.melt:85:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V131*/ meltfptr[130])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V132*/ meltfptr[131])) == OBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_59__SCANPAT_ANYRECV#0", NULL != (/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8])); - ((meltroutine_ptr_t)/*_.VALROUT___V131*/ meltfptr[130])->tabval[0] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8]); + ((meltroutine_ptr_t)/*_.VALROUT___V132*/ meltfptr[131])->tabval[0] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8]); MELT_LOCATION("warmelt-normatch.melt:85:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V131*/ meltfptr[130])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V77*/ meltfptr[76]); - ((meltroutine_ptr_t)/*_.VALROUT___V131*/ meltfptr[130])->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V77*/ meltfptr[76]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V132*/ meltfptr[131])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V78*/ meltfptr[77]); + ((meltroutine_ptr_t)/*_.VALROUT___V132*/ meltfptr[131])->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V78*/ meltfptr[77]); MELT_LOCATION("warmelt-normatch.melt:85:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V131*/ meltfptr[130])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V132*/ meltfptr[131])) == OBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_59__SCANPAT_ANYRECV#2", NULL != (/*_.CLASS_NAMED__V10*/ meltfptr[9])); - ((meltroutine_ptr_t)/*_.VALROUT___V131*/ meltfptr[130])->tabval[2] = (melt_ptr_t)(/*_.CLASS_NAMED__V10*/ meltfptr[9]); + ((meltroutine_ptr_t)/*_.VALROUT___V132*/ meltfptr[131])->tabval[2] = (melt_ptr_t)(/*_.CLASS_NAMED__V10*/ meltfptr[9]); MELT_LOCATION("warmelt-normatch.melt:85:/ initchunk"); /*^touch*/ /*touch:IROUTVAL_*/ - meltgc_touch(/*_.VALROUT___V131*/ meltfptr[130]); + meltgc_touch(/*_.VALROUT___V132*/ meltfptr[131]); /*putclosurout*/ - melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V132*/ meltfptr[131])) == OBMAG_CLOSURE); - melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V131*/ meltfptr[130])) == OBMAG_ROUTINE); - ((meltclosure_ptr_t)/*_.VALCLO___V132*/ meltfptr[131])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V131*/ meltfptr[130]); + melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V133*/ meltfptr[132])) == OBMAG_CLOSURE); + melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V132*/ meltfptr[131])) == OBMAG_ROUTINE); + ((meltclosure_ptr_t)/*_.VALCLO___V133*/ meltfptr[132])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V132*/ meltfptr[131]); /*touch:DATACLOSURE_*/ - meltgc_touch(/*_.VALCLO___V132*/ meltfptr[131]); + meltgc_touch(/*_.VALCLO___V133*/ meltfptr[132]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V133*/ meltfptr[132])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V134*/ meltfptr[133])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V133*/ meltfptr[132])))); - ((meltobject_ptr_t)(/*_.VALDATA___V133*/ meltfptr[132]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V134*/ meltfptr[133]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V134*/ meltfptr[133])))); + ((meltobject_ptr_t)(/*_.VALDATA___V134*/ meltfptr[133]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V135*/ meltfptr[134]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V133*/ meltfptr[132]); + meltgc_touch(/*_.VALDATA___V134*/ meltfptr[133]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V135*/ meltfptr[134])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V136*/ meltfptr[135])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V135*/ meltfptr[134])))); - ((meltobject_ptr_t)(/*_.VALDATA___V135*/ meltfptr[134]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V136*/ meltfptr[135]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V136*/ meltfptr[135])))); + ((meltobject_ptr_t)(/*_.VALDATA___V136*/ meltfptr[135]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V137*/ meltfptr[136]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V135*/ meltfptr[134]); + meltgc_touch(/*_.VALDATA___V136*/ meltfptr[135]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V137*/ meltfptr[136])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V138*/ meltfptr[137])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V137*/ meltfptr[136])))); - ((meltobject_ptr_t)(/*_.VALDATA___V137*/ meltfptr[136]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V138*/ meltfptr[137]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V138*/ meltfptr[137])))); + ((meltobject_ptr_t)(/*_.VALDATA___V138*/ meltfptr[137]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V139*/ meltfptr[138]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V137*/ meltfptr[136]); + meltgc_touch(/*_.VALDATA___V138*/ meltfptr[137]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V139*/ meltfptr[138])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V140*/ meltfptr[139])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V139*/ meltfptr[138])))); - ((meltobject_ptr_t)(/*_.VALDATA___V139*/ meltfptr[138]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V140*/ meltfptr[139]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V140*/ meltfptr[139])))); + ((meltobject_ptr_t)(/*_.VALDATA___V140*/ meltfptr[139]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V141*/ meltfptr[140]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V139*/ meltfptr[138]); + meltgc_touch(/*_.VALDATA___V140*/ meltfptr[139]); MELT_LOCATION("warmelt-normatch.melt:100:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V141*/ meltfptr[140])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V142*/ meltfptr[141])) == OBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_69__SCANPAT_ANYPATTERN#0", NULL != (/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8])); - ((meltroutine_ptr_t)/*_.VALROUT___V141*/ meltfptr[140])->tabval[0] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8]); + ((meltroutine_ptr_t)/*_.VALROUT___V142*/ meltfptr[141])->tabval[0] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8]); MELT_LOCATION("warmelt-normatch.melt:100:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V141*/ meltfptr[140])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V142*/ meltfptr[141])) == OBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_69__SCANPAT_ANYPATTERN#1", NULL != (/*_.CLASS_SOURCE_PATTERN__V13*/ meltfptr[12])); - ((meltroutine_ptr_t)/*_.VALROUT___V141*/ meltfptr[140])->tabval[1] = (melt_ptr_t)(/*_.CLASS_SOURCE_PATTERN__V13*/ meltfptr[12]); + ((meltroutine_ptr_t)/*_.VALROUT___V142*/ meltfptr[141])->tabval[1] = (melt_ptr_t)(/*_.CLASS_SOURCE_PATTERN__V13*/ meltfptr[12]); MELT_LOCATION("warmelt-normatch.melt:100:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V141*/ meltfptr[140])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V77*/ meltfptr[76]); - ((meltroutine_ptr_t)/*_.VALROUT___V141*/ meltfptr[140])->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V77*/ meltfptr[76]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V142*/ meltfptr[141])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V78*/ meltfptr[77]); + ((meltroutine_ptr_t)/*_.VALROUT___V142*/ meltfptr[141])->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V78*/ meltfptr[77]); MELT_LOCATION("warmelt-normatch.melt:100:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V141*/ meltfptr[140])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V142*/ meltfptr[141])) == OBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_69__SCANPAT_ANYPATTERN#3", NULL != (/*_.CLASS_NAMED__V10*/ meltfptr[9])); - ((meltroutine_ptr_t)/*_.VALROUT___V141*/ meltfptr[140])->tabval[3] = (melt_ptr_t)(/*_.CLASS_NAMED__V10*/ meltfptr[9]); + ((meltroutine_ptr_t)/*_.VALROUT___V142*/ meltfptr[141])->tabval[3] = (melt_ptr_t)(/*_.CLASS_NAMED__V10*/ meltfptr[9]); MELT_LOCATION("warmelt-normatch.melt:100:/ initchunk"); /*^touch*/ /*touch:IROUTVAL_*/ - meltgc_touch(/*_.VALROUT___V141*/ meltfptr[140]); + meltgc_touch(/*_.VALROUT___V142*/ meltfptr[141]); /*putclosurout*/ - melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V142*/ meltfptr[141])) == OBMAG_CLOSURE); - melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V141*/ meltfptr[140])) == OBMAG_ROUTINE); - ((meltclosure_ptr_t)/*_.VALCLO___V142*/ meltfptr[141])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V141*/ meltfptr[140]); + melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V143*/ meltfptr[142])) == OBMAG_CLOSURE); + melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V142*/ meltfptr[141])) == OBMAG_ROUTINE); + ((meltclosure_ptr_t)/*_.VALCLO___V143*/ meltfptr[142])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V142*/ meltfptr[141]); /*touch:DATACLOSURE_*/ - meltgc_touch(/*_.VALCLO___V142*/ meltfptr[141]); + meltgc_touch(/*_.VALCLO___V143*/ meltfptr[142]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V143*/ meltfptr[142])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V144*/ meltfptr[143])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V143*/ meltfptr[142])))); - ((meltobject_ptr_t)(/*_.VALDATA___V143*/ meltfptr[142]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V144*/ meltfptr[143]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V144*/ meltfptr[143])))); + ((meltobject_ptr_t)(/*_.VALDATA___V144*/ meltfptr[143]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V145*/ meltfptr[144]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V143*/ meltfptr[142]); + meltgc_touch(/*_.VALDATA___V144*/ meltfptr[143]); MELT_LOCATION("warmelt-normatch.melt:116:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V145*/ meltfptr[144])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V146*/ meltfptr[145])) == OBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_73__SCANPAT_SRCPATVAR#0", NULL != (/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8])); - ((meltroutine_ptr_t)/*_.VALROUT___V145*/ meltfptr[144])->tabval[0] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8]); + ((meltroutine_ptr_t)/*_.VALROUT___V146*/ meltfptr[145])->tabval[0] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8]); MELT_LOCATION("warmelt-normatch.melt:116:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V145*/ meltfptr[144])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V77*/ meltfptr[76]); - ((meltroutine_ptr_t)/*_.VALROUT___V145*/ meltfptr[144])->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V77*/ meltfptr[76]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V146*/ meltfptr[145])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V78*/ meltfptr[77]); + ((meltroutine_ptr_t)/*_.VALROUT___V146*/ meltfptr[145])->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V78*/ meltfptr[77]); MELT_LOCATION("warmelt-normatch.melt:116:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V145*/ meltfptr[144])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V146*/ meltfptr[145])) == OBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_73__SCANPAT_SRCPATVAR#2", NULL != (/*_.CLASS_SOURCE_PATTERN_VARIABLE__V14*/ meltfptr[13])); - ((meltroutine_ptr_t)/*_.VALROUT___V145*/ meltfptr[144])->tabval[2] = (melt_ptr_t)(/*_.CLASS_SOURCE_PATTERN_VARIABLE__V14*/ meltfptr[13]); + ((meltroutine_ptr_t)/*_.VALROUT___V146*/ meltfptr[145])->tabval[2] = (melt_ptr_t)(/*_.CLASS_SOURCE_PATTERN_VARIABLE__V14*/ meltfptr[13]); MELT_LOCATION("warmelt-normatch.melt:116:/ initchunk"); /*^touch*/ /*touch:IROUTVAL_*/ - meltgc_touch(/*_.VALROUT___V145*/ meltfptr[144]); + meltgc_touch(/*_.VALROUT___V146*/ meltfptr[145]); /*putclosurout*/ - melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V146*/ meltfptr[145])) == OBMAG_CLOSURE); - melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V145*/ meltfptr[144])) == OBMAG_ROUTINE); - ((meltclosure_ptr_t)/*_.VALCLO___V146*/ meltfptr[145])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V145*/ meltfptr[144]); + melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V147*/ meltfptr[146])) == OBMAG_CLOSURE); + melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V146*/ meltfptr[145])) == OBMAG_ROUTINE); + ((meltclosure_ptr_t)/*_.VALCLO___V147*/ meltfptr[146])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V146*/ meltfptr[145]); /*touch:DATACLOSURE_*/ - meltgc_touch(/*_.VALCLO___V146*/ meltfptr[145]); + meltgc_touch(/*_.VALCLO___V147*/ meltfptr[146]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V147*/ meltfptr[146])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V148*/ meltfptr[147])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V147*/ meltfptr[146])))); - ((meltobject_ptr_t)(/*_.VALDATA___V147*/ meltfptr[146]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V148*/ meltfptr[147]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V148*/ meltfptr[147])))); + ((meltobject_ptr_t)(/*_.VALDATA___V148*/ meltfptr[147]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V149*/ meltfptr[148]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V147*/ meltfptr[146]); + meltgc_touch(/*_.VALDATA___V148*/ meltfptr[147]); MELT_LOCATION("warmelt-normatch.melt:150:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V149*/ meltfptr[148])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V150*/ meltfptr[149])) == OBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_77__SCANPAT_SRCPATJOKER#0", NULL != (/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8])); - ((meltroutine_ptr_t)/*_.VALROUT___V149*/ meltfptr[148])->tabval[0] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8]); + ((meltroutine_ptr_t)/*_.VALROUT___V150*/ meltfptr[149])->tabval[0] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8]); MELT_LOCATION("warmelt-normatch.melt:150:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V149*/ meltfptr[148])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V77*/ meltfptr[76]); - ((meltroutine_ptr_t)/*_.VALROUT___V149*/ meltfptr[148])->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V77*/ meltfptr[76]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V150*/ meltfptr[149])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V78*/ meltfptr[77]); + ((meltroutine_ptr_t)/*_.VALROUT___V150*/ meltfptr[149])->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V78*/ meltfptr[77]); MELT_LOCATION("warmelt-normatch.melt:150:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V149*/ meltfptr[148])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V150*/ meltfptr[149])) == OBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_77__SCANPAT_SRCPATJOKER#2", NULL != (/*_.CLASS_SOURCE_PATTERN_JOKER_VARIABLE__V15*/ meltfptr[14])); - ((meltroutine_ptr_t)/*_.VALROUT___V149*/ meltfptr[148])->tabval[2] = (melt_ptr_t)(/*_.CLASS_SOURCE_PATTERN_JOKER_VARIABLE__V15*/ meltfptr[14]); + ((meltroutine_ptr_t)/*_.VALROUT___V150*/ meltfptr[149])->tabval[2] = (melt_ptr_t)(/*_.CLASS_SOURCE_PATTERN_JOKER_VARIABLE__V15*/ meltfptr[14]); MELT_LOCATION("warmelt-normatch.melt:150:/ initchunk"); /*^touch*/ /*touch:IROUTVAL_*/ - meltgc_touch(/*_.VALROUT___V149*/ meltfptr[148]); + meltgc_touch(/*_.VALROUT___V150*/ meltfptr[149]); /*putclosurout*/ - melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V150*/ meltfptr[149])) == OBMAG_CLOSURE); - melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V149*/ meltfptr[148])) == OBMAG_ROUTINE); - ((meltclosure_ptr_t)/*_.VALCLO___V150*/ meltfptr[149])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V149*/ meltfptr[148]); + melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V151*/ meltfptr[150])) == OBMAG_CLOSURE); + melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V150*/ meltfptr[149])) == OBMAG_ROUTINE); + ((meltclosure_ptr_t)/*_.VALCLO___V151*/ meltfptr[150])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V150*/ meltfptr[149]); /*touch:DATACLOSURE_*/ - meltgc_touch(/*_.VALCLO___V150*/ meltfptr[149]); + meltgc_touch(/*_.VALCLO___V151*/ meltfptr[150]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V151*/ meltfptr[150])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V152*/ meltfptr[151])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V151*/ meltfptr[150])))); - ((meltobject_ptr_t)(/*_.VALDATA___V151*/ meltfptr[150]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V152*/ meltfptr[151]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V152*/ meltfptr[151])))); + ((meltobject_ptr_t)(/*_.VALDATA___V152*/ meltfptr[151]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V153*/ meltfptr[152]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V151*/ meltfptr[150]); + meltgc_touch(/*_.VALDATA___V152*/ meltfptr[151]); MELT_LOCATION("warmelt-normatch.melt:164:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V153*/ meltfptr[152])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V154*/ meltfptr[153])) == OBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_81__SCANPAT_SRCPATCONST#0", NULL != (/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8])); - ((meltroutine_ptr_t)/*_.VALROUT___V153*/ meltfptr[152])->tabval[0] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8]); + ((meltroutine_ptr_t)/*_.VALROUT___V154*/ meltfptr[153])->tabval[0] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8]); MELT_LOCATION("warmelt-normatch.melt:164:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V153*/ meltfptr[152])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V77*/ meltfptr[76]); - ((meltroutine_ptr_t)/*_.VALROUT___V153*/ meltfptr[152])->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V77*/ meltfptr[76]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V154*/ meltfptr[153])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V78*/ meltfptr[77]); + ((meltroutine_ptr_t)/*_.VALROUT___V154*/ meltfptr[153])->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V78*/ meltfptr[77]); MELT_LOCATION("warmelt-normatch.melt:164:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V153*/ meltfptr[152])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V154*/ meltfptr[153])) == OBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_81__SCANPAT_SRCPATCONST#2", NULL != (/*_.CLASS_SOURCE_PATTERN_CONSTANT__V16*/ meltfptr[15])); - ((meltroutine_ptr_t)/*_.VALROUT___V153*/ meltfptr[152])->tabval[2] = (melt_ptr_t)(/*_.CLASS_SOURCE_PATTERN_CONSTANT__V16*/ meltfptr[15]); + ((meltroutine_ptr_t)/*_.VALROUT___V154*/ meltfptr[153])->tabval[2] = (melt_ptr_t)(/*_.CLASS_SOURCE_PATTERN_CONSTANT__V16*/ meltfptr[15]); MELT_LOCATION("warmelt-normatch.melt:164:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V153*/ meltfptr[152])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V154*/ meltfptr[153])) == OBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_81__SCANPAT_SRCPATCONST#3", NULL != (/*_.NORMAL_EXP__V17*/ meltfptr[16])); - ((meltroutine_ptr_t)/*_.VALROUT___V153*/ meltfptr[152])->tabval[3] = (melt_ptr_t)(/*_.NORMAL_EXP__V17*/ meltfptr[16]); + ((meltroutine_ptr_t)/*_.VALROUT___V154*/ meltfptr[153])->tabval[3] = (melt_ptr_t)(/*_.NORMAL_EXP__V17*/ meltfptr[16]); MELT_LOCATION("warmelt-normatch.melt:164:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V153*/ meltfptr[152])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V154*/ meltfptr[153])) == OBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_81__SCANPAT_SRCPATCONST#4", NULL != (/*_.LIST_APPEND2LIST__V18*/ meltfptr[17])); - ((meltroutine_ptr_t)/*_.VALROUT___V153*/ meltfptr[152])->tabval[4] = (melt_ptr_t)(/*_.LIST_APPEND2LIST__V18*/ meltfptr[17]); + ((meltroutine_ptr_t)/*_.VALROUT___V154*/ meltfptr[153])->tabval[4] = (melt_ptr_t)(/*_.LIST_APPEND2LIST__V18*/ meltfptr[17]); MELT_LOCATION("warmelt-normatch.melt:164:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V153*/ meltfptr[152])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V154*/ meltfptr[153])) == OBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_81__SCANPAT_SRCPATCONST#5", NULL != (/*_.GET_CTYPE__V19*/ meltfptr[18])); - ((meltroutine_ptr_t)/*_.VALROUT___V153*/ meltfptr[152])->tabval[5] = (melt_ptr_t)(/*_.GET_CTYPE__V19*/ meltfptr[18]); + ((meltroutine_ptr_t)/*_.VALROUT___V154*/ meltfptr[153])->tabval[5] = (melt_ptr_t)(/*_.GET_CTYPE__V19*/ meltfptr[18]); MELT_LOCATION("warmelt-normatch.melt:164:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V153*/ meltfptr[152])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V154*/ meltfptr[153])) == OBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_81__SCANPAT_SRCPATCONST#6", NULL != (/*_.CLASS_CTYPE__V20*/ meltfptr[19])); - ((meltroutine_ptr_t)/*_.VALROUT___V153*/ meltfptr[152])->tabval[6] = (melt_ptr_t)(/*_.CLASS_CTYPE__V20*/ meltfptr[19]); + ((meltroutine_ptr_t)/*_.VALROUT___V154*/ meltfptr[153])->tabval[6] = (melt_ptr_t)(/*_.CLASS_CTYPE__V20*/ meltfptr[19]); MELT_LOCATION("warmelt-normatch.melt:164:/ initchunk"); /*^touch*/ /*touch:IROUTVAL_*/ - meltgc_touch(/*_.VALROUT___V153*/ meltfptr[152]); + meltgc_touch(/*_.VALROUT___V154*/ meltfptr[153]); /*putclosurout*/ - melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V154*/ meltfptr[153])) == OBMAG_CLOSURE); - melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V153*/ meltfptr[152])) == OBMAG_ROUTINE); - ((meltclosure_ptr_t)/*_.VALCLO___V154*/ meltfptr[153])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V153*/ meltfptr[152]); + melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V155*/ meltfptr[154])) == OBMAG_CLOSURE); + melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V154*/ meltfptr[153])) == OBMAG_ROUTINE); + ((meltclosure_ptr_t)/*_.VALCLO___V155*/ meltfptr[154])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V154*/ meltfptr[153]); /*touch:DATACLOSURE_*/ - meltgc_touch(/*_.VALCLO___V154*/ meltfptr[153]); + meltgc_touch(/*_.VALCLO___V155*/ meltfptr[154]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V155*/ meltfptr[154])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V156*/ meltfptr[155])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V155*/ meltfptr[154])))); - ((meltobject_ptr_t)(/*_.VALDATA___V155*/ meltfptr[154]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V156*/ meltfptr[155]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V156*/ meltfptr[155])))); + ((meltobject_ptr_t)(/*_.VALDATA___V156*/ meltfptr[155]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V157*/ meltfptr[156]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V155*/ meltfptr[154]); + meltgc_touch(/*_.VALDATA___V156*/ meltfptr[155]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V157*/ meltfptr[156])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V158*/ meltfptr[157])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V157*/ meltfptr[156])))); - ((meltobject_ptr_t)(/*_.VALDATA___V157*/ meltfptr[156]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V158*/ meltfptr[157]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V158*/ meltfptr[157])))); + ((meltobject_ptr_t)(/*_.VALDATA___V158*/ meltfptr[157]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V159*/ meltfptr[158]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V157*/ meltfptr[156]); + meltgc_touch(/*_.VALDATA___V158*/ meltfptr[157]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V159*/ meltfptr[158])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V160*/ meltfptr[159])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V159*/ meltfptr[158])))); - ((meltobject_ptr_t)(/*_.VALDATA___V159*/ meltfptr[158]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V160*/ meltfptr[159]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V160*/ meltfptr[159])))); + ((meltobject_ptr_t)(/*_.VALDATA___V160*/ meltfptr[159]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V161*/ meltfptr[160]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V159*/ meltfptr[158]); + meltgc_touch(/*_.VALDATA___V160*/ meltfptr[159]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V161*/ meltfptr[160])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V162*/ meltfptr[161])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V161*/ meltfptr[160])))); - ((meltobject_ptr_t)(/*_.VALDATA___V161*/ meltfptr[160]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V162*/ meltfptr[161]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V162*/ meltfptr[161])))); + ((meltobject_ptr_t)(/*_.VALDATA___V162*/ meltfptr[161]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V163*/ meltfptr[162]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V161*/ meltfptr[160]); + meltgc_touch(/*_.VALDATA___V162*/ meltfptr[161]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V163*/ meltfptr[162])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V164*/ meltfptr[163])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V163*/ meltfptr[162])))); - ((meltobject_ptr_t)(/*_.VALDATA___V163*/ meltfptr[162]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V164*/ meltfptr[163]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V164*/ meltfptr[163])))); + ((meltobject_ptr_t)(/*_.VALDATA___V164*/ meltfptr[163]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V165*/ meltfptr[164]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V163*/ meltfptr[162]); + meltgc_touch(/*_.VALDATA___V164*/ meltfptr[163]); MELT_LOCATION("warmelt-normatch.melt:211:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V165*/ meltfptr[164])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V166*/ meltfptr[165])) == OBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_93__SCANPAT_SRCPATOBJECT#0", NULL != (/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8])); - ((meltroutine_ptr_t)/*_.VALROUT___V165*/ meltfptr[164])->tabval[0] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8]); + ((meltroutine_ptr_t)/*_.VALROUT___V166*/ meltfptr[165])->tabval[0] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8]); MELT_LOCATION("warmelt-normatch.melt:211:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V165*/ meltfptr[164])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V77*/ meltfptr[76]); - ((meltroutine_ptr_t)/*_.VALROUT___V165*/ meltfptr[164])->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V77*/ meltfptr[76]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V166*/ meltfptr[165])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V78*/ meltfptr[77]); + ((meltroutine_ptr_t)/*_.VALROUT___V166*/ meltfptr[165])->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V78*/ meltfptr[77]); MELT_LOCATION("warmelt-normatch.melt:211:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V165*/ meltfptr[164])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V166*/ meltfptr[165])) == OBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_93__SCANPAT_SRCPATOBJECT#2", NULL != (/*_.CLASS_SOURCE_PATTERN_OBJECT__V21*/ meltfptr[20])); - ((meltroutine_ptr_t)/*_.VALROUT___V165*/ meltfptr[164])->tabval[2] = (melt_ptr_t)(/*_.CLASS_SOURCE_PATTERN_OBJECT__V21*/ meltfptr[20]); + ((meltroutine_ptr_t)/*_.VALROUT___V166*/ meltfptr[165])->tabval[2] = (melt_ptr_t)(/*_.CLASS_SOURCE_PATTERN_OBJECT__V21*/ meltfptr[20]); MELT_LOCATION("warmelt-normatch.melt:211:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V165*/ meltfptr[164])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V166*/ meltfptr[165])) == OBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_93__SCANPAT_SRCPATOBJECT#3", NULL != (/*_.CLASS_CLASS__V22*/ meltfptr[21])); - ((meltroutine_ptr_t)/*_.VALROUT___V165*/ meltfptr[164])->tabval[3] = (melt_ptr_t)(/*_.CLASS_CLASS__V22*/ meltfptr[21]); + ((meltroutine_ptr_t)/*_.VALROUT___V166*/ meltfptr[165])->tabval[3] = (melt_ptr_t)(/*_.CLASS_CLASS__V22*/ meltfptr[21]); MELT_LOCATION("warmelt-normatch.melt:211:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V165*/ meltfptr[164])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V166*/ meltfptr[165])) == OBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_93__SCANPAT_SRCPATOBJECT#4", NULL != (/*_.CLASS_SOURCE_FIELD_PATTERN__V23*/ meltfptr[22])); - ((meltroutine_ptr_t)/*_.VALROUT___V165*/ meltfptr[164])->tabval[4] = (melt_ptr_t)(/*_.CLASS_SOURCE_FIELD_PATTERN__V23*/ meltfptr[22]); + ((meltroutine_ptr_t)/*_.VALROUT___V166*/ meltfptr[165])->tabval[4] = (melt_ptr_t)(/*_.CLASS_SOURCE_FIELD_PATTERN__V23*/ meltfptr[22]); MELT_LOCATION("warmelt-normatch.melt:211:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V165*/ meltfptr[164])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V166*/ meltfptr[165])) == OBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_93__SCANPAT_SRCPATOBJECT#5", NULL != (/*_.CLASS_FIELD__V24*/ meltfptr[23])); - ((meltroutine_ptr_t)/*_.VALROUT___V165*/ meltfptr[164])->tabval[5] = (melt_ptr_t)(/*_.CLASS_FIELD__V24*/ meltfptr[23]); + ((meltroutine_ptr_t)/*_.VALROUT___V166*/ meltfptr[165])->tabval[5] = (melt_ptr_t)(/*_.CLASS_FIELD__V24*/ meltfptr[23]); MELT_LOCATION("warmelt-normatch.melt:211:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V165*/ meltfptr[164])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V166*/ meltfptr[165])) == OBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_93__SCANPAT_SRCPATOBJECT#6", NULL != (/*_.CLASS_NAMED__V10*/ meltfptr[9])); - ((meltroutine_ptr_t)/*_.VALROUT___V165*/ meltfptr[164])->tabval[6] = (melt_ptr_t)(/*_.CLASS_NAMED__V10*/ meltfptr[9]); + ((meltroutine_ptr_t)/*_.VALROUT___V166*/ meltfptr[165])->tabval[6] = (melt_ptr_t)(/*_.CLASS_NAMED__V10*/ meltfptr[9]); MELT_LOCATION("warmelt-normatch.melt:211:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V165*/ meltfptr[164])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V129*/ meltfptr[128]); - ((meltroutine_ptr_t)/*_.VALROUT___V165*/ meltfptr[164])->tabval[7] = (melt_ptr_t)(/*_.VALDATA___V129*/ meltfptr[128]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V166*/ meltfptr[165])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V130*/ meltfptr[129]); + ((meltroutine_ptr_t)/*_.VALROUT___V166*/ meltfptr[165])->tabval[7] = (melt_ptr_t)(/*_.VALDATA___V130*/ meltfptr[129]); MELT_LOCATION("warmelt-normatch.melt:211:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V165*/ meltfptr[164])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V166*/ meltfptr[165])) == OBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_93__SCANPAT_SRCPATOBJECT#8", NULL != (/*_.CTYPE_VALUE__V25*/ meltfptr[24])); - ((meltroutine_ptr_t)/*_.VALROUT___V165*/ meltfptr[164])->tabval[8] = (melt_ptr_t)(/*_.CTYPE_VALUE__V25*/ meltfptr[24]); + ((meltroutine_ptr_t)/*_.VALROUT___V166*/ meltfptr[165])->tabval[8] = (melt_ptr_t)(/*_.CTYPE_VALUE__V25*/ meltfptr[24]); MELT_LOCATION("warmelt-normatch.melt:211:/ initchunk"); /*^touch*/ /*touch:IROUTVAL_*/ - meltgc_touch(/*_.VALROUT___V165*/ meltfptr[164]); + meltgc_touch(/*_.VALROUT___V166*/ meltfptr[165]); /*putclosurout*/ - melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V166*/ meltfptr[165])) == OBMAG_CLOSURE); - melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V165*/ meltfptr[164])) == OBMAG_ROUTINE); - ((meltclosure_ptr_t)/*_.VALCLO___V166*/ meltfptr[165])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V165*/ meltfptr[164]); + melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V167*/ meltfptr[166])) == OBMAG_CLOSURE); + melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V166*/ meltfptr[165])) == OBMAG_ROUTINE); + ((meltclosure_ptr_t)/*_.VALCLO___V167*/ meltfptr[166])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V166*/ meltfptr[165]); /*touch:DATACLOSURE_*/ - meltgc_touch(/*_.VALCLO___V166*/ meltfptr[165]); + meltgc_touch(/*_.VALCLO___V167*/ meltfptr[166]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V167*/ meltfptr[166])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V168*/ meltfptr[167])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V167*/ meltfptr[166])))); - ((meltobject_ptr_t)(/*_.VALDATA___V167*/ meltfptr[166]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V168*/ meltfptr[167]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V168*/ meltfptr[167])))); + ((meltobject_ptr_t)(/*_.VALDATA___V168*/ meltfptr[167]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V169*/ meltfptr[168]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V167*/ meltfptr[166]); + meltgc_touch(/*_.VALDATA___V168*/ meltfptr[167]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V169*/ meltfptr[168])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V170*/ meltfptr[169])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V169*/ meltfptr[168])))); - ((meltobject_ptr_t)(/*_.VALDATA___V169*/ meltfptr[168]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V170*/ meltfptr[169]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V170*/ meltfptr[169])))); + ((meltobject_ptr_t)(/*_.VALDATA___V170*/ meltfptr[169]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V171*/ meltfptr[170]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V169*/ meltfptr[168]); + meltgc_touch(/*_.VALDATA___V170*/ meltfptr[169]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V171*/ meltfptr[170])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V172*/ meltfptr[171])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V171*/ meltfptr[170])))); - ((meltobject_ptr_t)(/*_.VALDATA___V171*/ meltfptr[170]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V172*/ meltfptr[171]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V172*/ meltfptr[171])))); + ((meltobject_ptr_t)(/*_.VALDATA___V172*/ meltfptr[171]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V173*/ meltfptr[172]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V171*/ meltfptr[170]); + meltgc_touch(/*_.VALDATA___V172*/ meltfptr[171]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V173*/ meltfptr[172])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V174*/ meltfptr[173])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V173*/ meltfptr[172])))); - ((meltobject_ptr_t)(/*_.VALDATA___V173*/ meltfptr[172]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V174*/ meltfptr[173]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V174*/ meltfptr[173])))); + ((meltobject_ptr_t)(/*_.VALDATA___V174*/ meltfptr[173]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V175*/ meltfptr[174]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V173*/ meltfptr[172]); + meltgc_touch(/*_.VALDATA___V174*/ meltfptr[173]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V175*/ meltfptr[174])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V176*/ meltfptr[175])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V175*/ meltfptr[174])))); - ((meltobject_ptr_t)(/*_.VALDATA___V175*/ meltfptr[174]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V176*/ meltfptr[175]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V176*/ meltfptr[175])))); + ((meltobject_ptr_t)(/*_.VALDATA___V176*/ meltfptr[175]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V177*/ meltfptr[176]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V175*/ meltfptr[174]); + meltgc_touch(/*_.VALDATA___V176*/ meltfptr[175]); MELT_LOCATION("warmelt-normatch.melt:249:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V177*/ meltfptr[176])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V77*/ meltfptr[76]); - ((meltroutine_ptr_t)/*_.VALROUT___V177*/ meltfptr[176])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V77*/ meltfptr[76]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V178*/ meltfptr[177])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V78*/ meltfptr[77]); + ((meltroutine_ptr_t)/*_.VALROUT___V178*/ meltfptr[177])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V78*/ meltfptr[77]); MELT_LOCATION("warmelt-normatch.melt:249:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V177*/ meltfptr[176])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V178*/ meltfptr[177])) == OBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_105__SCANPAT_SRCPATCOMPOSITE#1", NULL != (/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8])); - ((meltroutine_ptr_t)/*_.VALROUT___V177*/ meltfptr[176])->tabval[1] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8]); + ((meltroutine_ptr_t)/*_.VALROUT___V178*/ meltfptr[177])->tabval[1] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8]); MELT_LOCATION("warmelt-normatch.melt:249:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V177*/ meltfptr[176])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V178*/ meltfptr[177])) == OBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_105__SCANPAT_SRCPATCOMPOSITE#2", NULL != (/*_.CLASS_CTYPE__V20*/ meltfptr[19])); - ((meltroutine_ptr_t)/*_.VALROUT___V177*/ meltfptr[176])->tabval[2] = (melt_ptr_t)(/*_.CLASS_CTYPE__V20*/ meltfptr[19]); + ((meltroutine_ptr_t)/*_.VALROUT___V178*/ meltfptr[177])->tabval[2] = (melt_ptr_t)(/*_.CLASS_CTYPE__V20*/ meltfptr[19]); MELT_LOCATION("warmelt-normatch.melt:249:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V177*/ meltfptr[176])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V178*/ meltfptr[177])) == OBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_105__SCANPAT_SRCPATCOMPOSITE#3", NULL != (/*_.CLASS_SOURCE_PATTERN_COMPOSITE__V26*/ meltfptr[25])); - ((meltroutine_ptr_t)/*_.VALROUT___V177*/ meltfptr[176])->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE_PATTERN_COMPOSITE__V26*/ meltfptr[25]); + ((meltroutine_ptr_t)/*_.VALROUT___V178*/ meltfptr[177])->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE_PATTERN_COMPOSITE__V26*/ meltfptr[25]); MELT_LOCATION("warmelt-normatch.melt:249:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V177*/ meltfptr[176])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V178*/ meltfptr[177])) == OBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_105__SCANPAT_SRCPATCOMPOSITE#4", NULL != (/*_.CLASS_ANY_MATCHER__V27*/ meltfptr[26])); - ((meltroutine_ptr_t)/*_.VALROUT___V177*/ meltfptr[176])->tabval[4] = (melt_ptr_t)(/*_.CLASS_ANY_MATCHER__V27*/ meltfptr[26]); + ((meltroutine_ptr_t)/*_.VALROUT___V178*/ meltfptr[177])->tabval[4] = (melt_ptr_t)(/*_.CLASS_ANY_MATCHER__V27*/ meltfptr[26]); MELT_LOCATION("warmelt-normatch.melt:249:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V177*/ meltfptr[176])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V178*/ meltfptr[177])) == OBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_105__SCANPAT_SRCPATCOMPOSITE#5", NULL != (/*_.CLASS_FORMAL_BINDING__V28*/ meltfptr[27])); - ((meltroutine_ptr_t)/*_.VALROUT___V177*/ meltfptr[176])->tabval[5] = (melt_ptr_t)(/*_.CLASS_FORMAL_BINDING__V28*/ meltfptr[27]); + ((meltroutine_ptr_t)/*_.VALROUT___V178*/ meltfptr[177])->tabval[5] = (melt_ptr_t)(/*_.CLASS_FORMAL_BINDING__V28*/ meltfptr[27]); MELT_LOCATION("warmelt-normatch.melt:249:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V177*/ meltfptr[176])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V178*/ meltfptr[177])) == OBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_105__SCANPAT_SRCPATCOMPOSITE#6", NULL != (/*_.NORMALIZE_TUPLE__V29*/ meltfptr[28])); - ((meltroutine_ptr_t)/*_.VALROUT___V177*/ meltfptr[176])->tabval[6] = (melt_ptr_t)(/*_.NORMALIZE_TUPLE__V29*/ meltfptr[28]); + ((meltroutine_ptr_t)/*_.VALROUT___V178*/ meltfptr[177])->tabval[6] = (melt_ptr_t)(/*_.NORMALIZE_TUPLE__V29*/ meltfptr[28]); MELT_LOCATION("warmelt-normatch.melt:249:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V177*/ meltfptr[176])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V178*/ meltfptr[177])) == OBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_105__SCANPAT_SRCPATCOMPOSITE#7", NULL != (/*_.LIST_APPEND2LIST__V18*/ meltfptr[17])); - ((meltroutine_ptr_t)/*_.VALROUT___V177*/ meltfptr[176])->tabval[7] = (melt_ptr_t)(/*_.LIST_APPEND2LIST__V18*/ meltfptr[17]); + ((meltroutine_ptr_t)/*_.VALROUT___V178*/ meltfptr[177])->tabval[7] = (melt_ptr_t)(/*_.LIST_APPEND2LIST__V18*/ meltfptr[17]); MELT_LOCATION("warmelt-normatch.melt:249:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V177*/ meltfptr[176])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V129*/ meltfptr[128]); - ((meltroutine_ptr_t)/*_.VALROUT___V177*/ meltfptr[176])->tabval[8] = (melt_ptr_t)(/*_.VALDATA___V129*/ meltfptr[128]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V178*/ meltfptr[177])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V130*/ meltfptr[129]); + ((meltroutine_ptr_t)/*_.VALROUT___V178*/ meltfptr[177])->tabval[8] = (melt_ptr_t)(/*_.VALDATA___V130*/ meltfptr[129]); MELT_LOCATION("warmelt-normatch.melt:249:/ initchunk"); /*^touch*/ /*touch:IROUTVAL_*/ - meltgc_touch(/*_.VALROUT___V177*/ meltfptr[176]); + meltgc_touch(/*_.VALROUT___V178*/ meltfptr[177]); /*putclosurout*/ - melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V178*/ meltfptr[177])) == OBMAG_CLOSURE); - melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V177*/ meltfptr[176])) == OBMAG_ROUTINE); - ((meltclosure_ptr_t)/*_.VALCLO___V178*/ meltfptr[177])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V177*/ meltfptr[176]); + melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V179*/ meltfptr[178])) == OBMAG_CLOSURE); + melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V178*/ meltfptr[177])) == OBMAG_ROUTINE); + ((meltclosure_ptr_t)/*_.VALCLO___V179*/ meltfptr[178])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V178*/ meltfptr[177]); /*touch:DATACLOSURE_*/ - meltgc_touch(/*_.VALCLO___V178*/ meltfptr[177]); + meltgc_touch(/*_.VALCLO___V179*/ meltfptr[178]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V179*/ meltfptr[178])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V180*/ meltfptr[179])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V179*/ meltfptr[178])))); - ((meltobject_ptr_t)(/*_.VALDATA___V179*/ meltfptr[178]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V180*/ meltfptr[179]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V180*/ meltfptr[179])))); + ((meltobject_ptr_t)(/*_.VALDATA___V180*/ meltfptr[179]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V181*/ meltfptr[180]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V179*/ meltfptr[178]); + meltgc_touch(/*_.VALDATA___V180*/ meltfptr[179]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V181*/ meltfptr[180])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V182*/ meltfptr[181])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V181*/ meltfptr[180])))); - ((meltobject_ptr_t)(/*_.VALDATA___V181*/ meltfptr[180]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V182*/ meltfptr[181]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V182*/ meltfptr[181])))); + ((meltobject_ptr_t)(/*_.VALDATA___V182*/ meltfptr[181]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V183*/ meltfptr[182]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V181*/ meltfptr[180]); + meltgc_touch(/*_.VALDATA___V182*/ meltfptr[181]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V183*/ meltfptr[182])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V184*/ meltfptr[183])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V183*/ meltfptr[182])))); - ((meltobject_ptr_t)(/*_.VALDATA___V183*/ meltfptr[182]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V184*/ meltfptr[183]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V184*/ meltfptr[183])))); + ((meltobject_ptr_t)(/*_.VALDATA___V184*/ meltfptr[183]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V185*/ meltfptr[184]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V183*/ meltfptr[182]); + meltgc_touch(/*_.VALDATA___V184*/ meltfptr[183]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V185*/ meltfptr[184])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V186*/ meltfptr[185])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V185*/ meltfptr[184])))); - ((meltobject_ptr_t)(/*_.VALDATA___V185*/ meltfptr[184]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V186*/ meltfptr[185]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V186*/ meltfptr[185])))); + ((meltobject_ptr_t)(/*_.VALDATA___V186*/ meltfptr[185]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V187*/ meltfptr[186]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V185*/ meltfptr[184]); + meltgc_touch(/*_.VALDATA___V186*/ meltfptr[185]); MELT_LOCATION("warmelt-normatch.melt:315:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V187*/ meltfptr[186])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V188*/ meltfptr[187])) == OBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_115__SCANPAT_SRCPATOR#0", NULL != (/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8])); - ((meltroutine_ptr_t)/*_.VALROUT___V187*/ meltfptr[186])->tabval[0] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8]); + ((meltroutine_ptr_t)/*_.VALROUT___V188*/ meltfptr[187])->tabval[0] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8]); MELT_LOCATION("warmelt-normatch.melt:315:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V187*/ meltfptr[186])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V77*/ meltfptr[76]); - ((meltroutine_ptr_t)/*_.VALROUT___V187*/ meltfptr[186])->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V77*/ meltfptr[76]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V188*/ meltfptr[187])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V78*/ meltfptr[77]); + ((meltroutine_ptr_t)/*_.VALROUT___V188*/ meltfptr[187])->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V78*/ meltfptr[77]); MELT_LOCATION("warmelt-normatch.melt:315:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V187*/ meltfptr[186])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V188*/ meltfptr[187])) == OBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_115__SCANPAT_SRCPATOR#2", NULL != (/*_.CLASS_SOURCE_PATTERN_OR__V30*/ meltfptr[29])); - ((meltroutine_ptr_t)/*_.VALROUT___V187*/ meltfptr[186])->tabval[2] = (melt_ptr_t)(/*_.CLASS_SOURCE_PATTERN_OR__V30*/ meltfptr[29]); + ((meltroutine_ptr_t)/*_.VALROUT___V188*/ meltfptr[187])->tabval[2] = (melt_ptr_t)(/*_.CLASS_SOURCE_PATTERN_OR__V30*/ meltfptr[29]); MELT_LOCATION("warmelt-normatch.melt:315:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V187*/ meltfptr[186])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V188*/ meltfptr[187])) == OBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_115__SCANPAT_SRCPATOR#3", NULL != (/*_.DISCR_MAP_OBJECTS__V31*/ meltfptr[30])); - ((meltroutine_ptr_t)/*_.VALROUT___V187*/ meltfptr[186])->tabval[3] = (melt_ptr_t)(/*_.DISCR_MAP_OBJECTS__V31*/ meltfptr[30]); + ((meltroutine_ptr_t)/*_.VALROUT___V188*/ meltfptr[187])->tabval[3] = (melt_ptr_t)(/*_.DISCR_MAP_OBJECTS__V31*/ meltfptr[30]); MELT_LOCATION("warmelt-normatch.melt:315:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V187*/ meltfptr[186])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V188*/ meltfptr[187])) == OBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_115__SCANPAT_SRCPATOR#4", NULL != (/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8])); - ((meltroutine_ptr_t)/*_.VALROUT___V187*/ meltfptr[186])->tabval[4] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8]); + ((meltroutine_ptr_t)/*_.VALROUT___V188*/ meltfptr[187])->tabval[4] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8]); MELT_LOCATION("warmelt-normatch.melt:315:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V187*/ meltfptr[186])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V188*/ meltfptr[187])) == OBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_115__SCANPAT_SRCPATOR#5", NULL != (/*_.CLASS_SOURCE_PATTERN_VARIABLE__V14*/ meltfptr[13])); - ((meltroutine_ptr_t)/*_.VALROUT___V187*/ meltfptr[186])->tabval[5] = (melt_ptr_t)(/*_.CLASS_SOURCE_PATTERN_VARIABLE__V14*/ meltfptr[13]); + ((meltroutine_ptr_t)/*_.VALROUT___V188*/ meltfptr[187])->tabval[5] = (melt_ptr_t)(/*_.CLASS_SOURCE_PATTERN_VARIABLE__V14*/ meltfptr[13]); MELT_LOCATION("warmelt-normatch.melt:327:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V188*/ meltfptr[187])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V189*/ meltfptr[188])) == OBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_121__LAMBDA_#0", NULL != (/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8])); - ((meltroutine_ptr_t)/*_.VALROUT___V188*/ meltfptr[187])->tabval[0] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8]); + ((meltroutine_ptr_t)/*_.VALROUT___V189*/ meltfptr[188])->tabval[0] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8]); MELT_LOCATION("warmelt-normatch.melt:327:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V188*/ meltfptr[187])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V189*/ meltfptr[188])) == OBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_121__LAMBDA_#1", NULL != (/*_.CLASS_SOURCE_PATTERN_VARIABLE__V14*/ meltfptr[13])); - ((meltroutine_ptr_t)/*_.VALROUT___V188*/ meltfptr[187])->tabval[1] = (melt_ptr_t)(/*_.CLASS_SOURCE_PATTERN_VARIABLE__V14*/ meltfptr[13]); + ((meltroutine_ptr_t)/*_.VALROUT___V189*/ meltfptr[188])->tabval[1] = (melt_ptr_t)(/*_.CLASS_SOURCE_PATTERN_VARIABLE__V14*/ meltfptr[13]); MELT_LOCATION("warmelt-normatch.melt:327:/ initchunk"); /*^touch*/ /*touch:IROUTVAL_*/ - meltgc_touch(/*_.VALROUT___V188*/ meltfptr[187]); + meltgc_touch(/*_.VALROUT___V189*/ meltfptr[188]); MELT_LOCATION("warmelt-normatch.melt:315:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V187*/ meltfptr[186])) == OBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_115__SCANPAT_SRCPATOR#6", NULL != (/*_.VALROUT___V188*/ meltfptr[187])); - ((meltroutine_ptr_t)/*_.VALROUT___V187*/ meltfptr[186])->tabval[6] = (melt_ptr_t)(/*_.VALROUT___V188*/ meltfptr[187]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V188*/ meltfptr[187])) == OBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_115__SCANPAT_SRCPATOR#6", NULL != (/*_.VALROUT___V189*/ meltfptr[188])); + ((meltroutine_ptr_t)/*_.VALROUT___V188*/ meltfptr[187])->tabval[6] = (melt_ptr_t)(/*_.VALROUT___V189*/ meltfptr[188]); MELT_LOCATION("warmelt-normatch.melt:315:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V187*/ meltfptr[186])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V129*/ meltfptr[128]); - ((meltroutine_ptr_t)/*_.VALROUT___V187*/ meltfptr[186])->tabval[7] = (melt_ptr_t)(/*_.VALDATA___V129*/ meltfptr[128]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V188*/ meltfptr[187])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V130*/ meltfptr[129]); + ((meltroutine_ptr_t)/*_.VALROUT___V188*/ meltfptr[187])->tabval[7] = (melt_ptr_t)(/*_.VALDATA___V130*/ meltfptr[129]); MELT_LOCATION("warmelt-normatch.melt:315:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V187*/ meltfptr[186])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V188*/ meltfptr[187])) == OBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_115__SCANPAT_SRCPATOR#8", NULL != (/*_.CLASS_SYMBOL__V32*/ meltfptr[31])); - ((meltroutine_ptr_t)/*_.VALROUT___V187*/ meltfptr[186])->tabval[8] = (melt_ptr_t)(/*_.CLASS_SYMBOL__V32*/ meltfptr[31]); + ((meltroutine_ptr_t)/*_.VALROUT___V188*/ meltfptr[187])->tabval[8] = (melt_ptr_t)(/*_.CLASS_SYMBOL__V32*/ meltfptr[31]); MELT_LOCATION("warmelt-normatch.melt:315:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V187*/ meltfptr[186])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V188*/ meltfptr[187])) == OBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_115__SCANPAT_SRCPATOR#9", NULL != (/*_.CLASS_SOURCE_PATTERN_VARIABLE__V14*/ meltfptr[13])); - ((meltroutine_ptr_t)/*_.VALROUT___V187*/ meltfptr[186])->tabval[9] = (melt_ptr_t)(/*_.CLASS_SOURCE_PATTERN_VARIABLE__V14*/ meltfptr[13]); + ((meltroutine_ptr_t)/*_.VALROUT___V188*/ meltfptr[187])->tabval[9] = (melt_ptr_t)(/*_.CLASS_SOURCE_PATTERN_VARIABLE__V14*/ meltfptr[13]); MELT_LOCATION("warmelt-normatch.melt:315:/ initchunk"); /*^touch*/ /*touch:IROUTVAL_*/ - meltgc_touch(/*_.VALROUT___V187*/ meltfptr[186]); + meltgc_touch(/*_.VALROUT___V188*/ meltfptr[187]); /*putclosurout*/ - melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V189*/ meltfptr[188])) == OBMAG_CLOSURE); - melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V187*/ meltfptr[186])) == OBMAG_ROUTINE); - ((meltclosure_ptr_t)/*_.VALCLO___V189*/ meltfptr[188])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V187*/ meltfptr[186]); + melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V190*/ meltfptr[189])) == OBMAG_CLOSURE); + melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V188*/ meltfptr[187])) == OBMAG_ROUTINE); + ((meltclosure_ptr_t)/*_.VALCLO___V190*/ meltfptr[189])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V188*/ meltfptr[187]); /*touch:DATACLOSURE_*/ - meltgc_touch(/*_.VALCLO___V189*/ meltfptr[188]); + meltgc_touch(/*_.VALCLO___V190*/ meltfptr[189]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V190*/ meltfptr[189])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V191*/ meltfptr[190])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V190*/ meltfptr[189])))); - ((meltobject_ptr_t)(/*_.VALDATA___V190*/ meltfptr[189]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V191*/ meltfptr[190]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V191*/ meltfptr[190])))); + ((meltobject_ptr_t)(/*_.VALDATA___V191*/ meltfptr[190]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V192*/ meltfptr[191]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V190*/ meltfptr[189]); + meltgc_touch(/*_.VALDATA___V191*/ meltfptr[190]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V192*/ meltfptr[191])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V193*/ meltfptr[192])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V192*/ meltfptr[191])))); - ((meltobject_ptr_t)(/*_.VALDATA___V192*/ meltfptr[191]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V193*/ meltfptr[192]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V193*/ meltfptr[192])))); + ((meltobject_ptr_t)(/*_.VALDATA___V193*/ meltfptr[192]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V194*/ meltfptr[193]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V192*/ meltfptr[191]); + meltgc_touch(/*_.VALDATA___V193*/ meltfptr[192]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V194*/ meltfptr[193])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V195*/ meltfptr[194])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V194*/ meltfptr[193])))); - ((meltobject_ptr_t)(/*_.VALDATA___V194*/ meltfptr[193]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V195*/ meltfptr[194]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V195*/ meltfptr[194])))); + ((meltobject_ptr_t)(/*_.VALDATA___V195*/ meltfptr[194]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V196*/ meltfptr[195]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V194*/ meltfptr[193]); + meltgc_touch(/*_.VALDATA___V195*/ meltfptr[194]); MELT_LOCATION("warmelt-normatch.melt:390:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V196*/ meltfptr[195])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V197*/ meltfptr[196])) == OBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_124__SCANPAT_SRCPATAND#0", NULL != (/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8])); - ((meltroutine_ptr_t)/*_.VALROUT___V196*/ meltfptr[195])->tabval[0] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8]); + ((meltroutine_ptr_t)/*_.VALROUT___V197*/ meltfptr[196])->tabval[0] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8]); MELT_LOCATION("warmelt-normatch.melt:390:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V196*/ meltfptr[195])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V77*/ meltfptr[76]); - ((meltroutine_ptr_t)/*_.VALROUT___V196*/ meltfptr[195])->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V77*/ meltfptr[76]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V197*/ meltfptr[196])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V78*/ meltfptr[77]); + ((meltroutine_ptr_t)/*_.VALROUT___V197*/ meltfptr[196])->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V78*/ meltfptr[77]); MELT_LOCATION("warmelt-normatch.melt:390:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V196*/ meltfptr[195])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V197*/ meltfptr[196])) == OBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_124__SCANPAT_SRCPATAND#2", NULL != (/*_.CLASS_SOURCE_PATTERN_AND__V33*/ meltfptr[32])); - ((meltroutine_ptr_t)/*_.VALROUT___V196*/ meltfptr[195])->tabval[2] = (melt_ptr_t)(/*_.CLASS_SOURCE_PATTERN_AND__V33*/ meltfptr[32]); + ((meltroutine_ptr_t)/*_.VALROUT___V197*/ meltfptr[196])->tabval[2] = (melt_ptr_t)(/*_.CLASS_SOURCE_PATTERN_AND__V33*/ meltfptr[32]); MELT_LOCATION("warmelt-normatch.melt:390:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V196*/ meltfptr[195])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V129*/ meltfptr[128]); - ((meltroutine_ptr_t)/*_.VALROUT___V196*/ meltfptr[195])->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V129*/ meltfptr[128]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V197*/ meltfptr[196])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V130*/ meltfptr[129]); + ((meltroutine_ptr_t)/*_.VALROUT___V197*/ meltfptr[196])->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V130*/ meltfptr[129]); MELT_LOCATION("warmelt-normatch.melt:390:/ initchunk"); /*^touch*/ /*touch:IROUTVAL_*/ - meltgc_touch(/*_.VALROUT___V196*/ meltfptr[195]); + meltgc_touch(/*_.VALROUT___V197*/ meltfptr[196]); /*putclosurout*/ - melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V197*/ meltfptr[196])) == OBMAG_CLOSURE); - melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V196*/ meltfptr[195])) == OBMAG_ROUTINE); - ((meltclosure_ptr_t)/*_.VALCLO___V197*/ meltfptr[196])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V196*/ meltfptr[195]); + melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V198*/ meltfptr[197])) == OBMAG_CLOSURE); + melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V197*/ meltfptr[196])) == OBMAG_ROUTINE); + ((meltclosure_ptr_t)/*_.VALCLO___V198*/ meltfptr[197])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V197*/ meltfptr[196]); /*touch:DATACLOSURE_*/ - meltgc_touch(/*_.VALCLO___V197*/ meltfptr[196]); + meltgc_touch(/*_.VALCLO___V198*/ meltfptr[197]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V198*/ meltfptr[197])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V199*/ meltfptr[198])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V198*/ meltfptr[197])))); - ((meltobject_ptr_t)(/*_.VALDATA___V198*/ meltfptr[197]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V199*/ meltfptr[198]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V199*/ meltfptr[198])))); + ((meltobject_ptr_t)(/*_.VALDATA___V199*/ meltfptr[198]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V200*/ meltfptr[199]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V198*/ meltfptr[197]); + meltgc_touch(/*_.VALDATA___V199*/ meltfptr[198]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V200*/ meltfptr[199])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V201*/ meltfptr[200])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V200*/ meltfptr[199])))); - ((meltobject_ptr_t)(/*_.VALDATA___V200*/ meltfptr[199]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V201*/ meltfptr[200]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V201*/ meltfptr[200])))); + ((meltobject_ptr_t)(/*_.VALDATA___V201*/ meltfptr[200]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V202*/ meltfptr[201]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V200*/ meltfptr[199]); + meltgc_touch(/*_.VALDATA___V201*/ meltfptr[200]); MELT_LOCATION("warmelt-normatch.melt:417:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V202*/ meltfptr[201])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V203*/ meltfptr[202])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V202*/ meltfptr[201])))); - ((meltobject_ptr_t)(/*_.VALDATA___V202*/ meltfptr[201]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V203*/ meltfptr[202]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V203*/ meltfptr[202])))); + ((meltobject_ptr_t)(/*_.VALDATA___V203*/ meltfptr[202]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V204*/ meltfptr[203]); MELT_LOCATION("warmelt-normatch.melt:417:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V202*/ meltfptr[201]); + meltgc_touch(/*_.VALDATA___V203*/ meltfptr[202]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V204*/ meltfptr[203])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V205*/ meltfptr[204])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V204*/ meltfptr[203])))); - ((meltobject_ptr_t)(/*_.VALDATA___V204*/ meltfptr[203]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V205*/ meltfptr[204]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V205*/ meltfptr[204])))); + ((meltobject_ptr_t)(/*_.VALDATA___V205*/ meltfptr[204]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V206*/ meltfptr[205]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V204*/ meltfptr[203]); + meltgc_touch(/*_.VALDATA___V205*/ meltfptr[204]); MELT_LOCATION("warmelt-normatch.melt:422:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V206*/ meltfptr[205])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V207*/ meltfptr[206])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V206*/ meltfptr[205])))); - ((meltobject_ptr_t)(/*_.VALDATA___V206*/ meltfptr[205]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V207*/ meltfptr[206]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V207*/ meltfptr[206])))); + ((meltobject_ptr_t)(/*_.VALDATA___V207*/ meltfptr[206]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V208*/ meltfptr[207]); MELT_LOCATION("warmelt-normatch.melt:422:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V206*/ meltfptr[205])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V207*/ meltfptr[206])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V206*/ meltfptr[205])))); - ((meltobject_ptr_t)(/*_.VALDATA___V206*/ meltfptr[205]))->obj_vartab[4] = (melt_ptr_t)( + melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V207*/ meltfptr[206])))); + ((meltobject_ptr_t)(/*_.VALDATA___V207*/ meltfptr[206]))->obj_vartab[4] = (melt_ptr_t)( /*_.CLASS_ROOT__V7*/ meltfptr[6]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V208*/ meltfptr[207]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V208*/ meltfptr[207])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V208*/ meltfptr[207]))->tabval[0] = (melt_ptr_t)(/*_.CLASS_ROOT__V7*/ meltfptr[6]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V209*/ meltfptr[208]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V209*/ meltfptr[208])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V209*/ meltfptr[208]))->tabval[0] = (melt_ptr_t)(/*_.CLASS_ROOT__V7*/ meltfptr[6]); /*touch:INITUP_*/ - meltgc_touch(/*_.VALTUP___V208*/ meltfptr[207]); + meltgc_touch(/*_.VALTUP___V209*/ meltfptr[208]); MELT_LOCATION("warmelt-normatch.melt:422:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V206*/ meltfptr[205])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V207*/ meltfptr[206])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V206*/ meltfptr[205])))); - ((meltobject_ptr_t)(/*_.VALDATA___V206*/ meltfptr[205]))->obj_vartab[5] = (melt_ptr_t)( - /*_.VALTUP___V208*/ meltfptr[207]); + melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V207*/ meltfptr[206])))); + ((meltobject_ptr_t)(/*_.VALDATA___V207*/ meltfptr[206]))->obj_vartab[5] = (melt_ptr_t)( + /*_.VALTUP___V209*/ meltfptr[208]); MELT_LOCATION("warmelt-normatch.melt:422:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V209*/ meltfptr[208])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V210*/ meltfptr[209])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V209*/ meltfptr[208])))); - ((meltobject_ptr_t)(/*_.VALDATA___V209*/ meltfptr[208]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V210*/ meltfptr[209]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V210*/ meltfptr[209])))); + ((meltobject_ptr_t)(/*_.VALDATA___V210*/ meltfptr[209]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V211*/ meltfptr[210]); MELT_LOCATION("warmelt-normatch.melt:422:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V209*/ meltfptr[208])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V210*/ meltfptr[209])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V209*/ meltfptr[208])))); - ((meltobject_ptr_t)(/*_.VALDATA___V209*/ meltfptr[208]))->obj_vartab[2] = (melt_ptr_t)( - /*_.VALDATA___V206*/ meltfptr[205]); + melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V210*/ meltfptr[209])))); + ((meltobject_ptr_t)(/*_.VALDATA___V210*/ meltfptr[209]))->obj_vartab[2] = (melt_ptr_t)( + /*_.VALDATA___V207*/ meltfptr[206]); MELT_LOCATION("warmelt-normatch.melt:422:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V209*/ meltfptr[208]); + meltgc_touch(/*_.VALDATA___V210*/ meltfptr[209]); MELT_LOCATION("warmelt-normatch.melt:422:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V211*/ meltfptr[210])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V212*/ meltfptr[211])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V211*/ meltfptr[210])))); - ((meltobject_ptr_t)(/*_.VALDATA___V211*/ meltfptr[210]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V212*/ meltfptr[211]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V212*/ meltfptr[211])))); + ((meltobject_ptr_t)(/*_.VALDATA___V212*/ meltfptr[211]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V213*/ meltfptr[212]); MELT_LOCATION("warmelt-normatch.melt:422:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V211*/ meltfptr[210])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V212*/ meltfptr[211])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V211*/ meltfptr[210])))); - ((meltobject_ptr_t)(/*_.VALDATA___V211*/ meltfptr[210]))->obj_vartab[2] = (melt_ptr_t)( - /*_.VALDATA___V206*/ meltfptr[205]); + melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V212*/ meltfptr[211])))); + ((meltobject_ptr_t)(/*_.VALDATA___V212*/ meltfptr[211]))->obj_vartab[2] = (melt_ptr_t)( + /*_.VALDATA___V207*/ meltfptr[206]); MELT_LOCATION("warmelt-normatch.melt:422:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V211*/ meltfptr[210]); + meltgc_touch(/*_.VALDATA___V212*/ meltfptr[211]); MELT_LOCATION("warmelt-normatch.melt:422:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V213*/ meltfptr[212])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V214*/ meltfptr[213])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V213*/ meltfptr[212])))); - ((meltobject_ptr_t)(/*_.VALDATA___V213*/ meltfptr[212]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V214*/ meltfptr[213]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V214*/ meltfptr[213])))); + ((meltobject_ptr_t)(/*_.VALDATA___V214*/ meltfptr[213]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V215*/ meltfptr[214]); MELT_LOCATION("warmelt-normatch.melt:422:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V213*/ meltfptr[212])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V214*/ meltfptr[213])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V213*/ meltfptr[212])))); - ((meltobject_ptr_t)(/*_.VALDATA___V213*/ meltfptr[212]))->obj_vartab[2] = (melt_ptr_t)( - /*_.VALDATA___V206*/ meltfptr[205]); + melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V214*/ meltfptr[213])))); + ((meltobject_ptr_t)(/*_.VALDATA___V214*/ meltfptr[213]))->obj_vartab[2] = (melt_ptr_t)( + /*_.VALDATA___V207*/ meltfptr[206]); MELT_LOCATION("warmelt-normatch.melt:422:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V213*/ meltfptr[212]); + meltgc_touch(/*_.VALDATA___V214*/ meltfptr[213]); MELT_LOCATION("warmelt-normatch.melt:422:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V215*/ meltfptr[214])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V216*/ meltfptr[215])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V215*/ meltfptr[214])))); - ((meltobject_ptr_t)(/*_.VALDATA___V215*/ meltfptr[214]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V216*/ meltfptr[215]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V216*/ meltfptr[215])))); + ((meltobject_ptr_t)(/*_.VALDATA___V216*/ meltfptr[215]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V217*/ meltfptr[216]); MELT_LOCATION("warmelt-normatch.melt:422:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V215*/ meltfptr[214])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V216*/ meltfptr[215])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V215*/ meltfptr[214])))); - ((meltobject_ptr_t)(/*_.VALDATA___V215*/ meltfptr[214]))->obj_vartab[2] = (melt_ptr_t)( - /*_.VALDATA___V206*/ meltfptr[205]); + melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V216*/ meltfptr[215])))); + ((meltobject_ptr_t)(/*_.VALDATA___V216*/ meltfptr[215]))->obj_vartab[2] = (melt_ptr_t)( + /*_.VALDATA___V207*/ meltfptr[206]); MELT_LOCATION("warmelt-normatch.melt:422:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V215*/ meltfptr[214]); + meltgc_touch(/*_.VALDATA___V216*/ meltfptr[215]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V217*/ meltfptr[216]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V217*/ meltfptr[216])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V217*/ meltfptr[216]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V209*/ meltfptr[208]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V218*/ meltfptr[217]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V218*/ meltfptr[217])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V218*/ meltfptr[217]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V210*/ meltfptr[209]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V217*/ meltfptr[216]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V217*/ meltfptr[216])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V217*/ meltfptr[216]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V211*/ meltfptr[210]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V218*/ meltfptr[217]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V218*/ meltfptr[217])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V218*/ meltfptr[217]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V212*/ meltfptr[211]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V217*/ meltfptr[216]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V217*/ meltfptr[216])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V217*/ meltfptr[216]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V213*/ meltfptr[212]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V218*/ meltfptr[217]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V218*/ meltfptr[217])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V218*/ meltfptr[217]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V214*/ meltfptr[213]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V217*/ meltfptr[216]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V217*/ meltfptr[216])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V217*/ meltfptr[216]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V215*/ meltfptr[214]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V218*/ meltfptr[217]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V218*/ meltfptr[217])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V218*/ meltfptr[217]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V216*/ meltfptr[215]); /*touch:INITUP_*/ - meltgc_touch(/*_.VALTUP___V217*/ meltfptr[216]); + meltgc_touch(/*_.VALTUP___V218*/ meltfptr[217]); MELT_LOCATION("warmelt-normatch.melt:422:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V206*/ meltfptr[205])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V207*/ meltfptr[206])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V206*/ meltfptr[205])))); - ((meltobject_ptr_t)(/*_.VALDATA___V206*/ meltfptr[205]))->obj_vartab[6] = (melt_ptr_t)( - /*_.VALTUP___V217*/ meltfptr[216]); + melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V207*/ meltfptr[206])))); + ((meltobject_ptr_t)(/*_.VALDATA___V207*/ meltfptr[206]))->obj_vartab[6] = (melt_ptr_t)( + /*_.VALTUP___V218*/ meltfptr[217]); MELT_LOCATION("warmelt-normatch.melt:422:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V206*/ meltfptr[205]); + meltgc_touch(/*_.VALDATA___V207*/ meltfptr[206]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V218*/ meltfptr[217])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V219*/ meltfptr[218])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V218*/ meltfptr[217])))); - ((meltobject_ptr_t)(/*_.VALDATA___V218*/ meltfptr[217]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V219*/ meltfptr[218]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V219*/ meltfptr[218])))); + ((meltobject_ptr_t)(/*_.VALDATA___V219*/ meltfptr[218]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V220*/ meltfptr[219]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V218*/ meltfptr[217]); + meltgc_touch(/*_.VALDATA___V219*/ meltfptr[218]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V220*/ meltfptr[219])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V221*/ meltfptr[220])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V220*/ meltfptr[219])))); - ((meltobject_ptr_t)(/*_.VALDATA___V220*/ meltfptr[219]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V221*/ meltfptr[220]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V221*/ meltfptr[220])))); + ((meltobject_ptr_t)(/*_.VALDATA___V221*/ meltfptr[220]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V222*/ meltfptr[221]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V220*/ meltfptr[219]); + meltgc_touch(/*_.VALDATA___V221*/ meltfptr[220]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V222*/ meltfptr[221])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V223*/ meltfptr[222])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V222*/ meltfptr[221])))); - ((meltobject_ptr_t)(/*_.VALDATA___V222*/ meltfptr[221]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V223*/ meltfptr[222]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V223*/ meltfptr[222])))); + ((meltobject_ptr_t)(/*_.VALDATA___V223*/ meltfptr[222]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V224*/ meltfptr[223]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V222*/ meltfptr[221]); + meltgc_touch(/*_.VALDATA___V223*/ meltfptr[222]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V224*/ meltfptr[223])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V225*/ meltfptr[224])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V224*/ meltfptr[223])))); - ((meltobject_ptr_t)(/*_.VALDATA___V224*/ meltfptr[223]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V225*/ meltfptr[224]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V225*/ meltfptr[224])))); + ((meltobject_ptr_t)(/*_.VALDATA___V225*/ meltfptr[224]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V226*/ meltfptr[225]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V224*/ meltfptr[223]); + meltgc_touch(/*_.VALDATA___V225*/ meltfptr[224]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V226*/ meltfptr[225])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V227*/ meltfptr[226])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V226*/ meltfptr[225])))); - ((meltobject_ptr_t)(/*_.VALDATA___V226*/ meltfptr[225]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V227*/ meltfptr[226]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V227*/ meltfptr[226])))); + ((meltobject_ptr_t)(/*_.VALDATA___V227*/ meltfptr[226]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V228*/ meltfptr[227]); #undef meltfram__ @@ -25617,1508 +26245,1508 @@ void MELT_MODULE_VISIBILITY warmelt_normatch_initialmeltchunk_1 (struct frame_st #undef meltcallcount #define meltcallcount 0L /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V226*/ meltfptr[225]); + meltgc_touch(/*_.VALDATA___V227*/ meltfptr[226]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V228*/ meltfptr[227])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V229*/ meltfptr[228])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V228*/ meltfptr[227])))); - ((meltobject_ptr_t)(/*_.VALDATA___V228*/ meltfptr[227]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V229*/ meltfptr[228]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V229*/ meltfptr[228])))); + ((meltobject_ptr_t)(/*_.VALDATA___V229*/ meltfptr[228]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V230*/ meltfptr[229]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V228*/ meltfptr[227]); + meltgc_touch(/*_.VALDATA___V229*/ meltfptr[228]); MELT_LOCATION("warmelt-normatch.melt:441:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V230*/ meltfptr[229])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V231*/ meltfptr[230])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V230*/ meltfptr[229])))); - ((meltobject_ptr_t)(/*_.VALDATA___V230*/ meltfptr[229]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V231*/ meltfptr[230]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V231*/ meltfptr[230])))); + ((meltobject_ptr_t)(/*_.VALDATA___V231*/ meltfptr[230]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V232*/ meltfptr[231]); MELT_LOCATION("warmelt-normatch.melt:441:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V230*/ meltfptr[229])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V231*/ meltfptr[230])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V230*/ meltfptr[229])))); - ((meltobject_ptr_t)(/*_.VALDATA___V230*/ meltfptr[229]))->obj_vartab[4] = (melt_ptr_t)( + melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V231*/ meltfptr[230])))); + ((meltobject_ptr_t)(/*_.VALDATA___V231*/ meltfptr[230]))->obj_vartab[4] = (melt_ptr_t)( /*_.CLASS_NREP_EXPRESSION__V34*/ meltfptr[33]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V232*/ meltfptr[231]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V232*/ meltfptr[231])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V232*/ meltfptr[231]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_NREP_EXPRESSION__V34*/ meltfptr[33]),5))), (0)))); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V233*/ meltfptr[232]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V233*/ meltfptr[232])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V233*/ meltfptr[232]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_NREP_EXPRESSION__V34*/ meltfptr[33]),5))), (0)))); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V232*/ meltfptr[231]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V232*/ meltfptr[231])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V232*/ meltfptr[231]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_NREP_EXPRESSION__V34*/ meltfptr[33]),5))), (1)))); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V233*/ meltfptr[232]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V233*/ meltfptr[232])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V233*/ meltfptr[232]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_NREP_EXPRESSION__V34*/ meltfptr[33]),5))), (1)))); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V232*/ meltfptr[231]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V232*/ meltfptr[231])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V232*/ meltfptr[231]))->tabval[2] = (melt_ptr_t)(/*_.CLASS_NREP_EXPRESSION__V34*/ meltfptr[33]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V233*/ meltfptr[232]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V233*/ meltfptr[232])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V233*/ meltfptr[232]))->tabval[2] = (melt_ptr_t)(/*_.CLASS_NREP_EXPRESSION__V34*/ meltfptr[33]); /*touch:INITUP_*/ - meltgc_touch(/*_.VALTUP___V232*/ meltfptr[231]); + meltgc_touch(/*_.VALTUP___V233*/ meltfptr[232]); MELT_LOCATION("warmelt-normatch.melt:441:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V230*/ meltfptr[229])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V231*/ meltfptr[230])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V230*/ meltfptr[229])))); - ((meltobject_ptr_t)(/*_.VALDATA___V230*/ meltfptr[229]))->obj_vartab[5] = (melt_ptr_t)( - /*_.VALTUP___V232*/ meltfptr[231]); + melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V231*/ meltfptr[230])))); + ((meltobject_ptr_t)(/*_.VALDATA___V231*/ meltfptr[230]))->obj_vartab[5] = (melt_ptr_t)( + /*_.VALTUP___V233*/ meltfptr[232]); MELT_LOCATION("warmelt-normatch.melt:441:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V233*/ meltfptr[232])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V234*/ meltfptr[233])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V233*/ meltfptr[232])))); - ((meltobject_ptr_t)(/*_.VALDATA___V233*/ meltfptr[232]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V234*/ meltfptr[233]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V234*/ meltfptr[233])))); + ((meltobject_ptr_t)(/*_.VALDATA___V234*/ meltfptr[233]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V235*/ meltfptr[234]); MELT_LOCATION("warmelt-normatch.melt:441:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V233*/ meltfptr[232])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V234*/ meltfptr[233])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V233*/ meltfptr[232])))); - ((meltobject_ptr_t)(/*_.VALDATA___V233*/ meltfptr[232]))->obj_vartab[2] = (melt_ptr_t)( - /*_.VALDATA___V230*/ meltfptr[229]); + melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V234*/ meltfptr[233])))); + ((meltobject_ptr_t)(/*_.VALDATA___V234*/ meltfptr[233]))->obj_vartab[2] = (melt_ptr_t)( + /*_.VALDATA___V231*/ meltfptr[230]); MELT_LOCATION("warmelt-normatch.melt:441:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V233*/ meltfptr[232]); + meltgc_touch(/*_.VALDATA___V234*/ meltfptr[233]); MELT_LOCATION("warmelt-normatch.melt:441:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V235*/ meltfptr[234])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V236*/ meltfptr[235])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V235*/ meltfptr[234])))); - ((meltobject_ptr_t)(/*_.VALDATA___V235*/ meltfptr[234]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V236*/ meltfptr[235]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V236*/ meltfptr[235])))); + ((meltobject_ptr_t)(/*_.VALDATA___V236*/ meltfptr[235]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V237*/ meltfptr[236]); MELT_LOCATION("warmelt-normatch.melt:441:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V235*/ meltfptr[234])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V236*/ meltfptr[235])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V235*/ meltfptr[234])))); - ((meltobject_ptr_t)(/*_.VALDATA___V235*/ meltfptr[234]))->obj_vartab[2] = (melt_ptr_t)( - /*_.VALDATA___V230*/ meltfptr[229]); + melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V236*/ meltfptr[235])))); + ((meltobject_ptr_t)(/*_.VALDATA___V236*/ meltfptr[235]))->obj_vartab[2] = (melt_ptr_t)( + /*_.VALDATA___V231*/ meltfptr[230]); MELT_LOCATION("warmelt-normatch.melt:441:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V235*/ meltfptr[234]); + meltgc_touch(/*_.VALDATA___V236*/ meltfptr[235]); MELT_LOCATION("warmelt-normatch.melt:441:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V237*/ meltfptr[236])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V238*/ meltfptr[237])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V237*/ meltfptr[236])))); - ((meltobject_ptr_t)(/*_.VALDATA___V237*/ meltfptr[236]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V238*/ meltfptr[237]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V238*/ meltfptr[237])))); + ((meltobject_ptr_t)(/*_.VALDATA___V238*/ meltfptr[237]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V239*/ meltfptr[238]); MELT_LOCATION("warmelt-normatch.melt:441:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V237*/ meltfptr[236])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V238*/ meltfptr[237])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V237*/ meltfptr[236])))); - ((meltobject_ptr_t)(/*_.VALDATA___V237*/ meltfptr[236]))->obj_vartab[2] = (melt_ptr_t)( - /*_.VALDATA___V230*/ meltfptr[229]); + melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V238*/ meltfptr[237])))); + ((meltobject_ptr_t)(/*_.VALDATA___V238*/ meltfptr[237]))->obj_vartab[2] = (melt_ptr_t)( + /*_.VALDATA___V231*/ meltfptr[230]); MELT_LOCATION("warmelt-normatch.melt:441:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V237*/ meltfptr[236]); + meltgc_touch(/*_.VALDATA___V238*/ meltfptr[237]); MELT_LOCATION("warmelt-normatch.melt:441:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V239*/ meltfptr[238])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V240*/ meltfptr[239])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V239*/ meltfptr[238])))); - ((meltobject_ptr_t)(/*_.VALDATA___V239*/ meltfptr[238]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V240*/ meltfptr[239]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V240*/ meltfptr[239])))); + ((meltobject_ptr_t)(/*_.VALDATA___V240*/ meltfptr[239]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V241*/ meltfptr[240]); MELT_LOCATION("warmelt-normatch.melt:441:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V239*/ meltfptr[238])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V240*/ meltfptr[239])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V239*/ meltfptr[238])))); - ((meltobject_ptr_t)(/*_.VALDATA___V239*/ meltfptr[238]))->obj_vartab[2] = (melt_ptr_t)( - /*_.VALDATA___V230*/ meltfptr[229]); + melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V240*/ meltfptr[239])))); + ((meltobject_ptr_t)(/*_.VALDATA___V240*/ meltfptr[239]))->obj_vartab[2] = (melt_ptr_t)( + /*_.VALDATA___V231*/ meltfptr[230]); MELT_LOCATION("warmelt-normatch.melt:441:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V239*/ meltfptr[238]); + meltgc_touch(/*_.VALDATA___V240*/ meltfptr[239]); MELT_LOCATION("warmelt-normatch.melt:441:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V241*/ meltfptr[240])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V242*/ meltfptr[241])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V241*/ meltfptr[240])))); - ((meltobject_ptr_t)(/*_.VALDATA___V241*/ meltfptr[240]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V242*/ meltfptr[241]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V242*/ meltfptr[241])))); + ((meltobject_ptr_t)(/*_.VALDATA___V242*/ meltfptr[241]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V243*/ meltfptr[242]); MELT_LOCATION("warmelt-normatch.melt:441:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V241*/ meltfptr[240])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V242*/ meltfptr[241])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V241*/ meltfptr[240])))); - ((meltobject_ptr_t)(/*_.VALDATA___V241*/ meltfptr[240]))->obj_vartab[2] = (melt_ptr_t)( - /*_.VALDATA___V230*/ meltfptr[229]); + melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V242*/ meltfptr[241])))); + ((meltobject_ptr_t)(/*_.VALDATA___V242*/ meltfptr[241]))->obj_vartab[2] = (melt_ptr_t)( + /*_.VALDATA___V231*/ meltfptr[230]); MELT_LOCATION("warmelt-normatch.melt:441:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V241*/ meltfptr[240]); + meltgc_touch(/*_.VALDATA___V242*/ meltfptr[241]); MELT_LOCATION("warmelt-normatch.melt:441:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V243*/ meltfptr[242])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V244*/ meltfptr[243])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V243*/ meltfptr[242])))); - ((meltobject_ptr_t)(/*_.VALDATA___V243*/ meltfptr[242]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V244*/ meltfptr[243]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V244*/ meltfptr[243])))); + ((meltobject_ptr_t)(/*_.VALDATA___V244*/ meltfptr[243]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V245*/ meltfptr[244]); MELT_LOCATION("warmelt-normatch.melt:441:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V243*/ meltfptr[242])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V244*/ meltfptr[243])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V243*/ meltfptr[242])))); - ((meltobject_ptr_t)(/*_.VALDATA___V243*/ meltfptr[242]))->obj_vartab[2] = (melt_ptr_t)( - /*_.VALDATA___V230*/ meltfptr[229]); + melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V244*/ meltfptr[243])))); + ((meltobject_ptr_t)(/*_.VALDATA___V244*/ meltfptr[243]))->obj_vartab[2] = (melt_ptr_t)( + /*_.VALDATA___V231*/ meltfptr[230]); MELT_LOCATION("warmelt-normatch.melt:441:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V243*/ meltfptr[242]); + meltgc_touch(/*_.VALDATA___V244*/ meltfptr[243]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V245*/ meltfptr[244]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V245*/ meltfptr[244])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V245*/ meltfptr[244]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_NREP_EXPRESSION__V34*/ meltfptr[33]),6))), (0)))); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V246*/ meltfptr[245]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V246*/ meltfptr[245])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V246*/ meltfptr[245]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_NREP_EXPRESSION__V34*/ meltfptr[33]),6))), (0)))); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V245*/ meltfptr[244]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V245*/ meltfptr[244])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V245*/ meltfptr[244]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V233*/ meltfptr[232]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V246*/ meltfptr[245]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V246*/ meltfptr[245])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V246*/ meltfptr[245]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V234*/ meltfptr[233]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V245*/ meltfptr[244]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V245*/ meltfptr[244])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V245*/ meltfptr[244]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V235*/ meltfptr[234]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V246*/ meltfptr[245]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V246*/ meltfptr[245])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V246*/ meltfptr[245]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V236*/ meltfptr[235]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V245*/ meltfptr[244]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V245*/ meltfptr[244])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V245*/ meltfptr[244]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V237*/ meltfptr[236]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V246*/ meltfptr[245]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V246*/ meltfptr[245])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V246*/ meltfptr[245]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V238*/ meltfptr[237]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V245*/ meltfptr[244]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V245*/ meltfptr[244])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V245*/ meltfptr[244]))->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V239*/ meltfptr[238]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V246*/ meltfptr[245]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V246*/ meltfptr[245])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V246*/ meltfptr[245]))->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V240*/ meltfptr[239]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V245*/ meltfptr[244]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V245*/ meltfptr[244])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V245*/ meltfptr[244]))->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V241*/ meltfptr[240]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V246*/ meltfptr[245]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V246*/ meltfptr[245])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V246*/ meltfptr[245]))->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V242*/ meltfptr[241]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V245*/ meltfptr[244]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (6>=0 && 6< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V245*/ meltfptr[244])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V245*/ meltfptr[244]))->tabval[6] = (melt_ptr_t)(/*_.VALDATA___V243*/ meltfptr[242]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V246*/ meltfptr[245]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (6>=0 && 6< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V246*/ meltfptr[245])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V246*/ meltfptr[245]))->tabval[6] = (melt_ptr_t)(/*_.VALDATA___V244*/ meltfptr[243]); /*touch:INITUP_*/ - meltgc_touch(/*_.VALTUP___V245*/ meltfptr[244]); + meltgc_touch(/*_.VALTUP___V246*/ meltfptr[245]); MELT_LOCATION("warmelt-normatch.melt:441:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V230*/ meltfptr[229])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V231*/ meltfptr[230])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V230*/ meltfptr[229])))); - ((meltobject_ptr_t)(/*_.VALDATA___V230*/ meltfptr[229]))->obj_vartab[6] = (melt_ptr_t)( - /*_.VALTUP___V245*/ meltfptr[244]); + melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V231*/ meltfptr[230])))); + ((meltobject_ptr_t)(/*_.VALDATA___V231*/ meltfptr[230]))->obj_vartab[6] = (melt_ptr_t)( + /*_.VALTUP___V246*/ meltfptr[245]); MELT_LOCATION("warmelt-normatch.melt:441:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V230*/ meltfptr[229]); + meltgc_touch(/*_.VALDATA___V231*/ meltfptr[230]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V246*/ meltfptr[245])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V247*/ meltfptr[246])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V246*/ meltfptr[245])))); - ((meltobject_ptr_t)(/*_.VALDATA___V246*/ meltfptr[245]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V247*/ meltfptr[246]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V247*/ meltfptr[246])))); + ((meltobject_ptr_t)(/*_.VALDATA___V247*/ meltfptr[246]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V248*/ meltfptr[247]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V246*/ meltfptr[245]); + meltgc_touch(/*_.VALDATA___V247*/ meltfptr[246]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V248*/ meltfptr[247])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V249*/ meltfptr[248])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V248*/ meltfptr[247])))); - ((meltobject_ptr_t)(/*_.VALDATA___V248*/ meltfptr[247]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V249*/ meltfptr[248]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V249*/ meltfptr[248])))); + ((meltobject_ptr_t)(/*_.VALDATA___V249*/ meltfptr[248]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V250*/ meltfptr[249]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V248*/ meltfptr[247]); + meltgc_touch(/*_.VALDATA___V249*/ meltfptr[248]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V250*/ meltfptr[249])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V251*/ meltfptr[250])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V250*/ meltfptr[249])))); - ((meltobject_ptr_t)(/*_.VALDATA___V250*/ meltfptr[249]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V251*/ meltfptr[250]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V251*/ meltfptr[250])))); + ((meltobject_ptr_t)(/*_.VALDATA___V251*/ meltfptr[250]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V252*/ meltfptr[251]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V250*/ meltfptr[249]); + meltgc_touch(/*_.VALDATA___V251*/ meltfptr[250]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V252*/ meltfptr[251])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V253*/ meltfptr[252])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V252*/ meltfptr[251])))); - ((meltobject_ptr_t)(/*_.VALDATA___V252*/ meltfptr[251]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V253*/ meltfptr[252]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V253*/ meltfptr[252])))); + ((meltobject_ptr_t)(/*_.VALDATA___V253*/ meltfptr[252]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V254*/ meltfptr[253]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V252*/ meltfptr[251]); + meltgc_touch(/*_.VALDATA___V253*/ meltfptr[252]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V254*/ meltfptr[253])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V255*/ meltfptr[254])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V254*/ meltfptr[253])))); - ((meltobject_ptr_t)(/*_.VALDATA___V254*/ meltfptr[253]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V255*/ meltfptr[254]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V255*/ meltfptr[254])))); + ((meltobject_ptr_t)(/*_.VALDATA___V255*/ meltfptr[254]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V256*/ meltfptr[255]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V254*/ meltfptr[253]); + meltgc_touch(/*_.VALDATA___V255*/ meltfptr[254]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V256*/ meltfptr[255])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V257*/ meltfptr[256])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V256*/ meltfptr[255])))); - ((meltobject_ptr_t)(/*_.VALDATA___V256*/ meltfptr[255]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V257*/ meltfptr[256]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V257*/ meltfptr[256])))); + ((meltobject_ptr_t)(/*_.VALDATA___V257*/ meltfptr[256]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V258*/ meltfptr[257]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V256*/ meltfptr[255]); + meltgc_touch(/*_.VALDATA___V257*/ meltfptr[256]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V258*/ meltfptr[257])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V259*/ meltfptr[258])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V258*/ meltfptr[257])))); - ((meltobject_ptr_t)(/*_.VALDATA___V258*/ meltfptr[257]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V259*/ meltfptr[258]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V259*/ meltfptr[258])))); + ((meltobject_ptr_t)(/*_.VALDATA___V259*/ meltfptr[258]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V260*/ meltfptr[259]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V258*/ meltfptr[257]); + meltgc_touch(/*_.VALDATA___V259*/ meltfptr[258]); MELT_LOCATION("warmelt-normatch.melt:456:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V260*/ meltfptr[259])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V261*/ meltfptr[260])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V260*/ meltfptr[259])))); - ((meltobject_ptr_t)(/*_.VALDATA___V260*/ meltfptr[259]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V261*/ meltfptr[260]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V261*/ meltfptr[260])))); + ((meltobject_ptr_t)(/*_.VALDATA___V261*/ meltfptr[260]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V262*/ meltfptr[261]); MELT_LOCATION("warmelt-normatch.melt:456:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V260*/ meltfptr[259])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V261*/ meltfptr[260])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V260*/ meltfptr[259])))); - ((meltobject_ptr_t)(/*_.VALDATA___V260*/ meltfptr[259]))->obj_vartab[4] = (melt_ptr_t)( - /*_.VALDATA___V230*/ meltfptr[229]); + melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V261*/ meltfptr[260])))); + ((meltobject_ptr_t)(/*_.VALDATA___V261*/ meltfptr[260]))->obj_vartab[4] = (melt_ptr_t)( + /*_.VALDATA___V231*/ meltfptr[230]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V262*/ meltfptr[261]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V262*/ meltfptr[261])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V262*/ meltfptr[261]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_NREP_EXPRESSION__V34*/ meltfptr[33]),5))), (0)))); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V263*/ meltfptr[262]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V263*/ meltfptr[262])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V263*/ meltfptr[262]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_NREP_EXPRESSION__V34*/ meltfptr[33]),5))), (0)))); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V262*/ meltfptr[261]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V262*/ meltfptr[261])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V262*/ meltfptr[261]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_NREP_EXPRESSION__V34*/ meltfptr[33]),5))), (1)))); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V263*/ meltfptr[262]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V263*/ meltfptr[262])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V263*/ meltfptr[262]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_NREP_EXPRESSION__V34*/ meltfptr[33]),5))), (1)))); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V262*/ meltfptr[261]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V262*/ meltfptr[261])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V262*/ meltfptr[261]))->tabval[2] = (melt_ptr_t)(/*_.CLASS_NREP_EXPRESSION__V34*/ meltfptr[33]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V263*/ meltfptr[262]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V263*/ meltfptr[262])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V263*/ meltfptr[262]))->tabval[2] = (melt_ptr_t)(/*_.CLASS_NREP_EXPRESSION__V34*/ meltfptr[33]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V262*/ meltfptr[261]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V262*/ meltfptr[261])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V262*/ meltfptr[261]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V230*/ meltfptr[229]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V263*/ meltfptr[262]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V263*/ meltfptr[262])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V263*/ meltfptr[262]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V231*/ meltfptr[230]); /*touch:INITUP_*/ - meltgc_touch(/*_.VALTUP___V262*/ meltfptr[261]); + meltgc_touch(/*_.VALTUP___V263*/ meltfptr[262]); MELT_LOCATION("warmelt-normatch.melt:456:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V260*/ meltfptr[259])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V261*/ meltfptr[260])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V260*/ meltfptr[259])))); - ((meltobject_ptr_t)(/*_.VALDATA___V260*/ meltfptr[259]))->obj_vartab[5] = (melt_ptr_t)( - /*_.VALTUP___V262*/ meltfptr[261]); + melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V261*/ meltfptr[260])))); + ((meltobject_ptr_t)(/*_.VALDATA___V261*/ meltfptr[260]))->obj_vartab[5] = (melt_ptr_t)( + /*_.VALTUP___V263*/ meltfptr[262]); MELT_LOCATION("warmelt-normatch.melt:456:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V263*/ meltfptr[262])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V264*/ meltfptr[263])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V263*/ meltfptr[262])))); - ((meltobject_ptr_t)(/*_.VALDATA___V263*/ meltfptr[262]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V264*/ meltfptr[263]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V264*/ meltfptr[263])))); + ((meltobject_ptr_t)(/*_.VALDATA___V264*/ meltfptr[263]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V265*/ meltfptr[264]); MELT_LOCATION("warmelt-normatch.melt:456:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V263*/ meltfptr[262])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V264*/ meltfptr[263])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V263*/ meltfptr[262])))); - ((meltobject_ptr_t)(/*_.VALDATA___V263*/ meltfptr[262]))->obj_vartab[2] = (melt_ptr_t)( - /*_.VALDATA___V260*/ meltfptr[259]); + melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V264*/ meltfptr[263])))); + ((meltobject_ptr_t)(/*_.VALDATA___V264*/ meltfptr[263]))->obj_vartab[2] = (melt_ptr_t)( + /*_.VALDATA___V261*/ meltfptr[260]); MELT_LOCATION("warmelt-normatch.melt:456:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V263*/ meltfptr[262]); + meltgc_touch(/*_.VALDATA___V264*/ meltfptr[263]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V265*/ meltfptr[264]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V265*/ meltfptr[264])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V265*/ meltfptr[264]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_NREP_EXPRESSION__V34*/ meltfptr[33]),6))), (0)))); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V266*/ meltfptr[265]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V266*/ meltfptr[265])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V266*/ meltfptr[265]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_NREP_EXPRESSION__V34*/ meltfptr[33]),6))), (0)))); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V265*/ meltfptr[264]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V265*/ meltfptr[264])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V265*/ meltfptr[264]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V233*/ meltfptr[232]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V266*/ meltfptr[265]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V266*/ meltfptr[265])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V266*/ meltfptr[265]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V234*/ meltfptr[233]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V265*/ meltfptr[264]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V265*/ meltfptr[264])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V265*/ meltfptr[264]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V235*/ meltfptr[234]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V266*/ meltfptr[265]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V266*/ meltfptr[265])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V266*/ meltfptr[265]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V236*/ meltfptr[235]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V265*/ meltfptr[264]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V265*/ meltfptr[264])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V265*/ meltfptr[264]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V237*/ meltfptr[236]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V266*/ meltfptr[265]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V266*/ meltfptr[265])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V266*/ meltfptr[265]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V238*/ meltfptr[237]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V265*/ meltfptr[264]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V265*/ meltfptr[264])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V265*/ meltfptr[264]))->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V239*/ meltfptr[238]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V266*/ meltfptr[265]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V266*/ meltfptr[265])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V266*/ meltfptr[265]))->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V240*/ meltfptr[239]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V265*/ meltfptr[264]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V265*/ meltfptr[264])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V265*/ meltfptr[264]))->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V241*/ meltfptr[240]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V266*/ meltfptr[265]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V266*/ meltfptr[265])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V266*/ meltfptr[265]))->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V242*/ meltfptr[241]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V265*/ meltfptr[264]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (6>=0 && 6< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V265*/ meltfptr[264])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V265*/ meltfptr[264]))->tabval[6] = (melt_ptr_t)(/*_.VALDATA___V243*/ meltfptr[242]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V266*/ meltfptr[265]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (6>=0 && 6< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V266*/ meltfptr[265])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V266*/ meltfptr[265]))->tabval[6] = (melt_ptr_t)(/*_.VALDATA___V244*/ meltfptr[243]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V265*/ meltfptr[264]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (7>=0 && 7< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V265*/ meltfptr[264])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V265*/ meltfptr[264]))->tabval[7] = (melt_ptr_t)(/*_.VALDATA___V263*/ meltfptr[262]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V266*/ meltfptr[265]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (7>=0 && 7< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V266*/ meltfptr[265])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V266*/ meltfptr[265]))->tabval[7] = (melt_ptr_t)(/*_.VALDATA___V264*/ meltfptr[263]); /*touch:INITUP_*/ - meltgc_touch(/*_.VALTUP___V265*/ meltfptr[264]); + meltgc_touch(/*_.VALTUP___V266*/ meltfptr[265]); MELT_LOCATION("warmelt-normatch.melt:456:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V260*/ meltfptr[259])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V261*/ meltfptr[260])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V260*/ meltfptr[259])))); - ((meltobject_ptr_t)(/*_.VALDATA___V260*/ meltfptr[259]))->obj_vartab[6] = (melt_ptr_t)( - /*_.VALTUP___V265*/ meltfptr[264]); + melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V261*/ meltfptr[260])))); + ((meltobject_ptr_t)(/*_.VALDATA___V261*/ meltfptr[260]))->obj_vartab[6] = (melt_ptr_t)( + /*_.VALTUP___V266*/ meltfptr[265]); MELT_LOCATION("warmelt-normatch.melt:456:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V260*/ meltfptr[259]); + meltgc_touch(/*_.VALDATA___V261*/ meltfptr[260]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V266*/ meltfptr[265])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V267*/ meltfptr[266])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V266*/ meltfptr[265])))); - ((meltobject_ptr_t)(/*_.VALDATA___V266*/ meltfptr[265]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V267*/ meltfptr[266]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V267*/ meltfptr[266])))); + ((meltobject_ptr_t)(/*_.VALDATA___V267*/ meltfptr[266]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V268*/ meltfptr[267]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V266*/ meltfptr[265]); + meltgc_touch(/*_.VALDATA___V267*/ meltfptr[266]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V268*/ meltfptr[267])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V269*/ meltfptr[268])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V268*/ meltfptr[267])))); - ((meltobject_ptr_t)(/*_.VALDATA___V268*/ meltfptr[267]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V269*/ meltfptr[268]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V269*/ meltfptr[268])))); + ((meltobject_ptr_t)(/*_.VALDATA___V269*/ meltfptr[268]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V270*/ meltfptr[269]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V268*/ meltfptr[267]); + meltgc_touch(/*_.VALDATA___V269*/ meltfptr[268]); MELT_LOCATION("warmelt-normatch.melt:462:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V270*/ meltfptr[269])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V271*/ meltfptr[270])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V270*/ meltfptr[269])))); - ((meltobject_ptr_t)(/*_.VALDATA___V270*/ meltfptr[269]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V271*/ meltfptr[270]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V271*/ meltfptr[270])))); + ((meltobject_ptr_t)(/*_.VALDATA___V271*/ meltfptr[270]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V272*/ meltfptr[271]); MELT_LOCATION("warmelt-normatch.melt:462:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V270*/ meltfptr[269])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V271*/ meltfptr[270])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V270*/ meltfptr[269])))); - ((meltobject_ptr_t)(/*_.VALDATA___V270*/ meltfptr[269]))->obj_vartab[4] = (melt_ptr_t)( - /*_.VALDATA___V230*/ meltfptr[229]); + melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V271*/ meltfptr[270])))); + ((meltobject_ptr_t)(/*_.VALDATA___V271*/ meltfptr[270]))->obj_vartab[4] = (melt_ptr_t)( + /*_.VALDATA___V231*/ meltfptr[230]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V272*/ meltfptr[271]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V272*/ meltfptr[271])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V272*/ meltfptr[271]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_NREP_EXPRESSION__V34*/ meltfptr[33]),5))), (0)))); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V273*/ meltfptr[272]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V273*/ meltfptr[272])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V273*/ meltfptr[272]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_NREP_EXPRESSION__V34*/ meltfptr[33]),5))), (0)))); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V272*/ meltfptr[271]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V272*/ meltfptr[271])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V272*/ meltfptr[271]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_NREP_EXPRESSION__V34*/ meltfptr[33]),5))), (1)))); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V273*/ meltfptr[272]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V273*/ meltfptr[272])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V273*/ meltfptr[272]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_NREP_EXPRESSION__V34*/ meltfptr[33]),5))), (1)))); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V272*/ meltfptr[271]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V272*/ meltfptr[271])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V272*/ meltfptr[271]))->tabval[2] = (melt_ptr_t)(/*_.CLASS_NREP_EXPRESSION__V34*/ meltfptr[33]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V273*/ meltfptr[272]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V273*/ meltfptr[272])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V273*/ meltfptr[272]))->tabval[2] = (melt_ptr_t)(/*_.CLASS_NREP_EXPRESSION__V34*/ meltfptr[33]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V272*/ meltfptr[271]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V272*/ meltfptr[271])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V272*/ meltfptr[271]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V230*/ meltfptr[229]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V273*/ meltfptr[272]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V273*/ meltfptr[272])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V273*/ meltfptr[272]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V231*/ meltfptr[230]); /*touch:INITUP_*/ - meltgc_touch(/*_.VALTUP___V272*/ meltfptr[271]); + meltgc_touch(/*_.VALTUP___V273*/ meltfptr[272]); MELT_LOCATION("warmelt-normatch.melt:462:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V270*/ meltfptr[269])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V271*/ meltfptr[270])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V270*/ meltfptr[269])))); - ((meltobject_ptr_t)(/*_.VALDATA___V270*/ meltfptr[269]))->obj_vartab[5] = (melt_ptr_t)( - /*_.VALTUP___V272*/ meltfptr[271]); + melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V271*/ meltfptr[270])))); + ((meltobject_ptr_t)(/*_.VALDATA___V271*/ meltfptr[270]))->obj_vartab[5] = (melt_ptr_t)( + /*_.VALTUP___V273*/ meltfptr[272]); MELT_LOCATION("warmelt-normatch.melt:462:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V273*/ meltfptr[272])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V274*/ meltfptr[273])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V273*/ meltfptr[272])))); - ((meltobject_ptr_t)(/*_.VALDATA___V273*/ meltfptr[272]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V274*/ meltfptr[273]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V274*/ meltfptr[273])))); + ((meltobject_ptr_t)(/*_.VALDATA___V274*/ meltfptr[273]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V275*/ meltfptr[274]); MELT_LOCATION("warmelt-normatch.melt:462:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V273*/ meltfptr[272])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V274*/ meltfptr[273])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V273*/ meltfptr[272])))); - ((meltobject_ptr_t)(/*_.VALDATA___V273*/ meltfptr[272]))->obj_vartab[2] = (melt_ptr_t)( - /*_.VALDATA___V270*/ meltfptr[269]); + melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V274*/ meltfptr[273])))); + ((meltobject_ptr_t)(/*_.VALDATA___V274*/ meltfptr[273]))->obj_vartab[2] = (melt_ptr_t)( + /*_.VALDATA___V271*/ meltfptr[270]); MELT_LOCATION("warmelt-normatch.melt:462:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V273*/ meltfptr[272]); + meltgc_touch(/*_.VALDATA___V274*/ meltfptr[273]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V275*/ meltfptr[274]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V275*/ meltfptr[274])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V275*/ meltfptr[274]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_NREP_EXPRESSION__V34*/ meltfptr[33]),6))), (0)))); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V276*/ meltfptr[275]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V276*/ meltfptr[275])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V276*/ meltfptr[275]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_NREP_EXPRESSION__V34*/ meltfptr[33]),6))), (0)))); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V275*/ meltfptr[274]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V275*/ meltfptr[274])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V275*/ meltfptr[274]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V233*/ meltfptr[232]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V276*/ meltfptr[275]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V276*/ meltfptr[275])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V276*/ meltfptr[275]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V234*/ meltfptr[233]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V275*/ meltfptr[274]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V275*/ meltfptr[274])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V275*/ meltfptr[274]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V235*/ meltfptr[234]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V276*/ meltfptr[275]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V276*/ meltfptr[275])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V276*/ meltfptr[275]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V236*/ meltfptr[235]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V275*/ meltfptr[274]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V275*/ meltfptr[274])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V275*/ meltfptr[274]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V237*/ meltfptr[236]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V276*/ meltfptr[275]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V276*/ meltfptr[275])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V276*/ meltfptr[275]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V238*/ meltfptr[237]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V275*/ meltfptr[274]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V275*/ meltfptr[274])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V275*/ meltfptr[274]))->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V239*/ meltfptr[238]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V276*/ meltfptr[275]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V276*/ meltfptr[275])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V276*/ meltfptr[275]))->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V240*/ meltfptr[239]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V275*/ meltfptr[274]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V275*/ meltfptr[274])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V275*/ meltfptr[274]))->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V241*/ meltfptr[240]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V276*/ meltfptr[275]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V276*/ meltfptr[275])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V276*/ meltfptr[275]))->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V242*/ meltfptr[241]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V275*/ meltfptr[274]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (6>=0 && 6< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V275*/ meltfptr[274])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V275*/ meltfptr[274]))->tabval[6] = (melt_ptr_t)(/*_.VALDATA___V243*/ meltfptr[242]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V276*/ meltfptr[275]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (6>=0 && 6< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V276*/ meltfptr[275])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V276*/ meltfptr[275]))->tabval[6] = (melt_ptr_t)(/*_.VALDATA___V244*/ meltfptr[243]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V275*/ meltfptr[274]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (7>=0 && 7< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V275*/ meltfptr[274])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V275*/ meltfptr[274]))->tabval[7] = (melt_ptr_t)(/*_.VALDATA___V273*/ meltfptr[272]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V276*/ meltfptr[275]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (7>=0 && 7< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V276*/ meltfptr[275])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V276*/ meltfptr[275]))->tabval[7] = (melt_ptr_t)(/*_.VALDATA___V274*/ meltfptr[273]); /*touch:INITUP_*/ - meltgc_touch(/*_.VALTUP___V275*/ meltfptr[274]); + meltgc_touch(/*_.VALTUP___V276*/ meltfptr[275]); MELT_LOCATION("warmelt-normatch.melt:462:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V270*/ meltfptr[269])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V271*/ meltfptr[270])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V270*/ meltfptr[269])))); - ((meltobject_ptr_t)(/*_.VALDATA___V270*/ meltfptr[269]))->obj_vartab[6] = (melt_ptr_t)( - /*_.VALTUP___V275*/ meltfptr[274]); + melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V271*/ meltfptr[270])))); + ((meltobject_ptr_t)(/*_.VALDATA___V271*/ meltfptr[270]))->obj_vartab[6] = (melt_ptr_t)( + /*_.VALTUP___V276*/ meltfptr[275]); MELT_LOCATION("warmelt-normatch.melt:462:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V270*/ meltfptr[269]); + meltgc_touch(/*_.VALDATA___V271*/ meltfptr[270]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V276*/ meltfptr[275])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V277*/ meltfptr[276])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V276*/ meltfptr[275])))); - ((meltobject_ptr_t)(/*_.VALDATA___V276*/ meltfptr[275]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V277*/ meltfptr[276]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V277*/ meltfptr[276])))); + ((meltobject_ptr_t)(/*_.VALDATA___V277*/ meltfptr[276]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V278*/ meltfptr[277]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V276*/ meltfptr[275]); + meltgc_touch(/*_.VALDATA___V277*/ meltfptr[276]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V278*/ meltfptr[277])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V279*/ meltfptr[278])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V278*/ meltfptr[277])))); - ((meltobject_ptr_t)(/*_.VALDATA___V278*/ meltfptr[277]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V279*/ meltfptr[278]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V279*/ meltfptr[278])))); + ((meltobject_ptr_t)(/*_.VALDATA___V279*/ meltfptr[278]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V280*/ meltfptr[279]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V278*/ meltfptr[277]); + meltgc_touch(/*_.VALDATA___V279*/ meltfptr[278]); MELT_LOCATION("warmelt-normatch.melt:468:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V280*/ meltfptr[279])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V281*/ meltfptr[280])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V280*/ meltfptr[279])))); - ((meltobject_ptr_t)(/*_.VALDATA___V280*/ meltfptr[279]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V281*/ meltfptr[280]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V281*/ meltfptr[280])))); + ((meltobject_ptr_t)(/*_.VALDATA___V281*/ meltfptr[280]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V282*/ meltfptr[281]); MELT_LOCATION("warmelt-normatch.melt:468:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V280*/ meltfptr[279])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V281*/ meltfptr[280])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V280*/ meltfptr[279])))); - ((meltobject_ptr_t)(/*_.VALDATA___V280*/ meltfptr[279]))->obj_vartab[4] = (melt_ptr_t)( - /*_.VALDATA___V270*/ meltfptr[269]); + melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V281*/ meltfptr[280])))); + ((meltobject_ptr_t)(/*_.VALDATA___V281*/ meltfptr[280]))->obj_vartab[4] = (melt_ptr_t)( + /*_.VALDATA___V271*/ meltfptr[270]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V282*/ meltfptr[281]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V282*/ meltfptr[281])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V282*/ meltfptr[281]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_NREP_EXPRESSION__V34*/ meltfptr[33]),5))), (0)))); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V283*/ meltfptr[282]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V283*/ meltfptr[282])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V283*/ meltfptr[282]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_NREP_EXPRESSION__V34*/ meltfptr[33]),5))), (0)))); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V282*/ meltfptr[281]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V282*/ meltfptr[281])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V282*/ meltfptr[281]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_NREP_EXPRESSION__V34*/ meltfptr[33]),5))), (1)))); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V283*/ meltfptr[282]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V283*/ meltfptr[282])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V283*/ meltfptr[282]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_NREP_EXPRESSION__V34*/ meltfptr[33]),5))), (1)))); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V282*/ meltfptr[281]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V282*/ meltfptr[281])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V282*/ meltfptr[281]))->tabval[2] = (melt_ptr_t)(/*_.CLASS_NREP_EXPRESSION__V34*/ meltfptr[33]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V283*/ meltfptr[282]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V283*/ meltfptr[282])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V283*/ meltfptr[282]))->tabval[2] = (melt_ptr_t)(/*_.CLASS_NREP_EXPRESSION__V34*/ meltfptr[33]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V282*/ meltfptr[281]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V282*/ meltfptr[281])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V282*/ meltfptr[281]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V230*/ meltfptr[229]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V283*/ meltfptr[282]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V283*/ meltfptr[282])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V283*/ meltfptr[282]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V231*/ meltfptr[230]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V282*/ meltfptr[281]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V282*/ meltfptr[281])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V282*/ meltfptr[281]))->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V270*/ meltfptr[269]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V283*/ meltfptr[282]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V283*/ meltfptr[282])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V283*/ meltfptr[282]))->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V271*/ meltfptr[270]); /*touch:INITUP_*/ - meltgc_touch(/*_.VALTUP___V282*/ meltfptr[281]); + meltgc_touch(/*_.VALTUP___V283*/ meltfptr[282]); MELT_LOCATION("warmelt-normatch.melt:468:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V280*/ meltfptr[279])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V281*/ meltfptr[280])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V280*/ meltfptr[279])))); - ((meltobject_ptr_t)(/*_.VALDATA___V280*/ meltfptr[279]))->obj_vartab[5] = (melt_ptr_t)( - /*_.VALTUP___V282*/ meltfptr[281]); + melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V281*/ meltfptr[280])))); + ((meltobject_ptr_t)(/*_.VALDATA___V281*/ meltfptr[280]))->obj_vartab[5] = (melt_ptr_t)( + /*_.VALTUP___V283*/ meltfptr[282]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V283*/ meltfptr[282]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V283*/ meltfptr[282])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V283*/ meltfptr[282]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_NREP_EXPRESSION__V34*/ meltfptr[33]),6))), (0)))); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V284*/ meltfptr[283]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V284*/ meltfptr[283])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V284*/ meltfptr[283]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_NREP_EXPRESSION__V34*/ meltfptr[33]),6))), (0)))); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V283*/ meltfptr[282]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V283*/ meltfptr[282])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V283*/ meltfptr[282]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V233*/ meltfptr[232]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V284*/ meltfptr[283]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V284*/ meltfptr[283])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V284*/ meltfptr[283]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V234*/ meltfptr[233]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V283*/ meltfptr[282]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V283*/ meltfptr[282])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V283*/ meltfptr[282]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V235*/ meltfptr[234]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V284*/ meltfptr[283]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V284*/ meltfptr[283])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V284*/ meltfptr[283]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V236*/ meltfptr[235]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V283*/ meltfptr[282]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V283*/ meltfptr[282])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V283*/ meltfptr[282]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V237*/ meltfptr[236]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V284*/ meltfptr[283]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V284*/ meltfptr[283])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V284*/ meltfptr[283]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V238*/ meltfptr[237]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V283*/ meltfptr[282]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V283*/ meltfptr[282])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V283*/ meltfptr[282]))->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V239*/ meltfptr[238]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V284*/ meltfptr[283]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V284*/ meltfptr[283])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V284*/ meltfptr[283]))->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V240*/ meltfptr[239]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V283*/ meltfptr[282]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V283*/ meltfptr[282])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V283*/ meltfptr[282]))->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V241*/ meltfptr[240]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V284*/ meltfptr[283]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V284*/ meltfptr[283])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V284*/ meltfptr[283]))->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V242*/ meltfptr[241]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V283*/ meltfptr[282]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (6>=0 && 6< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V283*/ meltfptr[282])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V283*/ meltfptr[282]))->tabval[6] = (melt_ptr_t)(/*_.VALDATA___V243*/ meltfptr[242]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V284*/ meltfptr[283]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (6>=0 && 6< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V284*/ meltfptr[283])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V284*/ meltfptr[283]))->tabval[6] = (melt_ptr_t)(/*_.VALDATA___V244*/ meltfptr[243]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V283*/ meltfptr[282]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (7>=0 && 7< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V283*/ meltfptr[282])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V283*/ meltfptr[282]))->tabval[7] = (melt_ptr_t)(/*_.VALDATA___V273*/ meltfptr[272]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V284*/ meltfptr[283]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (7>=0 && 7< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V284*/ meltfptr[283])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V284*/ meltfptr[283]))->tabval[7] = (melt_ptr_t)(/*_.VALDATA___V274*/ meltfptr[273]); /*touch:INITUP_*/ - meltgc_touch(/*_.VALTUP___V283*/ meltfptr[282]); + meltgc_touch(/*_.VALTUP___V284*/ meltfptr[283]); MELT_LOCATION("warmelt-normatch.melt:468:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V280*/ meltfptr[279])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V281*/ meltfptr[280])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V280*/ meltfptr[279])))); - ((meltobject_ptr_t)(/*_.VALDATA___V280*/ meltfptr[279]))->obj_vartab[6] = (melt_ptr_t)( - /*_.VALTUP___V283*/ meltfptr[282]); + melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V281*/ meltfptr[280])))); + ((meltobject_ptr_t)(/*_.VALDATA___V281*/ meltfptr[280]))->obj_vartab[6] = (melt_ptr_t)( + /*_.VALTUP___V284*/ meltfptr[283]); MELT_LOCATION("warmelt-normatch.melt:468:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V280*/ meltfptr[279]); + meltgc_touch(/*_.VALDATA___V281*/ meltfptr[280]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V284*/ meltfptr[283])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V285*/ meltfptr[284])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V284*/ meltfptr[283])))); - ((meltobject_ptr_t)(/*_.VALDATA___V284*/ meltfptr[283]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V285*/ meltfptr[284]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V285*/ meltfptr[284])))); + ((meltobject_ptr_t)(/*_.VALDATA___V285*/ meltfptr[284]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V286*/ meltfptr[285]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V284*/ meltfptr[283]); + meltgc_touch(/*_.VALDATA___V285*/ meltfptr[284]); MELT_LOCATION("warmelt-normatch.melt:474:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V286*/ meltfptr[285])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V287*/ meltfptr[286])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V286*/ meltfptr[285])))); - ((meltobject_ptr_t)(/*_.VALDATA___V286*/ meltfptr[285]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V287*/ meltfptr[286]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V287*/ meltfptr[286])))); + ((meltobject_ptr_t)(/*_.VALDATA___V287*/ meltfptr[286]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V288*/ meltfptr[287]); MELT_LOCATION("warmelt-normatch.melt:474:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V286*/ meltfptr[285])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V287*/ meltfptr[286])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V286*/ meltfptr[285])))); - ((meltobject_ptr_t)(/*_.VALDATA___V286*/ meltfptr[285]))->obj_vartab[4] = (melt_ptr_t)( - /*_.VALDATA___V230*/ meltfptr[229]); + melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V287*/ meltfptr[286])))); + ((meltobject_ptr_t)(/*_.VALDATA___V287*/ meltfptr[286]))->obj_vartab[4] = (melt_ptr_t)( + /*_.VALDATA___V231*/ meltfptr[230]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V288*/ meltfptr[287]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V288*/ meltfptr[287])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V288*/ meltfptr[287]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_NREP_EXPRESSION__V34*/ meltfptr[33]),5))), (0)))); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V289*/ meltfptr[288]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V289*/ meltfptr[288])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V289*/ meltfptr[288]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_NREP_EXPRESSION__V34*/ meltfptr[33]),5))), (0)))); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V288*/ meltfptr[287]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V288*/ meltfptr[287])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V288*/ meltfptr[287]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_NREP_EXPRESSION__V34*/ meltfptr[33]),5))), (1)))); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V289*/ meltfptr[288]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V289*/ meltfptr[288])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V289*/ meltfptr[288]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_NREP_EXPRESSION__V34*/ meltfptr[33]),5))), (1)))); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V288*/ meltfptr[287]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V288*/ meltfptr[287])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V288*/ meltfptr[287]))->tabval[2] = (melt_ptr_t)(/*_.CLASS_NREP_EXPRESSION__V34*/ meltfptr[33]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V289*/ meltfptr[288]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V289*/ meltfptr[288])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V289*/ meltfptr[288]))->tabval[2] = (melt_ptr_t)(/*_.CLASS_NREP_EXPRESSION__V34*/ meltfptr[33]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V288*/ meltfptr[287]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V288*/ meltfptr[287])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V288*/ meltfptr[287]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V230*/ meltfptr[229]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V289*/ meltfptr[288]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V289*/ meltfptr[288])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V289*/ meltfptr[288]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V231*/ meltfptr[230]); /*touch:INITUP_*/ - meltgc_touch(/*_.VALTUP___V288*/ meltfptr[287]); + meltgc_touch(/*_.VALTUP___V289*/ meltfptr[288]); MELT_LOCATION("warmelt-normatch.melt:474:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V286*/ meltfptr[285])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V287*/ meltfptr[286])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V286*/ meltfptr[285])))); - ((meltobject_ptr_t)(/*_.VALDATA___V286*/ meltfptr[285]))->obj_vartab[5] = (melt_ptr_t)( - /*_.VALTUP___V288*/ meltfptr[287]); + melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V287*/ meltfptr[286])))); + ((meltobject_ptr_t)(/*_.VALDATA___V287*/ meltfptr[286]))->obj_vartab[5] = (melt_ptr_t)( + /*_.VALTUP___V289*/ meltfptr[288]); MELT_LOCATION("warmelt-normatch.melt:474:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V289*/ meltfptr[288])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V290*/ meltfptr[289])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V289*/ meltfptr[288])))); - ((meltobject_ptr_t)(/*_.VALDATA___V289*/ meltfptr[288]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V290*/ meltfptr[289]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V290*/ meltfptr[289])))); + ((meltobject_ptr_t)(/*_.VALDATA___V290*/ meltfptr[289]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V291*/ meltfptr[290]); MELT_LOCATION("warmelt-normatch.melt:474:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V289*/ meltfptr[288])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V290*/ meltfptr[289])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V289*/ meltfptr[288])))); - ((meltobject_ptr_t)(/*_.VALDATA___V289*/ meltfptr[288]))->obj_vartab[2] = (melt_ptr_t)( - /*_.VALDATA___V286*/ meltfptr[285]); + melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V290*/ meltfptr[289])))); + ((meltobject_ptr_t)(/*_.VALDATA___V290*/ meltfptr[289]))->obj_vartab[2] = (melt_ptr_t)( + /*_.VALDATA___V287*/ meltfptr[286]); MELT_LOCATION("warmelt-normatch.melt:474:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V289*/ meltfptr[288]); + meltgc_touch(/*_.VALDATA___V290*/ meltfptr[289]); MELT_LOCATION("warmelt-normatch.melt:474:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V291*/ meltfptr[290])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V292*/ meltfptr[291])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V291*/ meltfptr[290])))); - ((meltobject_ptr_t)(/*_.VALDATA___V291*/ meltfptr[290]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V292*/ meltfptr[291]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V292*/ meltfptr[291])))); + ((meltobject_ptr_t)(/*_.VALDATA___V292*/ meltfptr[291]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V293*/ meltfptr[292]); MELT_LOCATION("warmelt-normatch.melt:474:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V291*/ meltfptr[290])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V292*/ meltfptr[291])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V291*/ meltfptr[290])))); - ((meltobject_ptr_t)(/*_.VALDATA___V291*/ meltfptr[290]))->obj_vartab[2] = (melt_ptr_t)( - /*_.VALDATA___V286*/ meltfptr[285]); + melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V292*/ meltfptr[291])))); + ((meltobject_ptr_t)(/*_.VALDATA___V292*/ meltfptr[291]))->obj_vartab[2] = (melt_ptr_t)( + /*_.VALDATA___V287*/ meltfptr[286]); MELT_LOCATION("warmelt-normatch.melt:474:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V291*/ meltfptr[290]); + meltgc_touch(/*_.VALDATA___V292*/ meltfptr[291]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V293*/ meltfptr[292]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V293*/ meltfptr[292])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V293*/ meltfptr[292]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_NREP_EXPRESSION__V34*/ meltfptr[33]),6))), (0)))); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V294*/ meltfptr[293]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V294*/ meltfptr[293])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V294*/ meltfptr[293]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_NREP_EXPRESSION__V34*/ meltfptr[33]),6))), (0)))); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V293*/ meltfptr[292]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V293*/ meltfptr[292])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V293*/ meltfptr[292]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V233*/ meltfptr[232]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V294*/ meltfptr[293]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V294*/ meltfptr[293])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V294*/ meltfptr[293]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V234*/ meltfptr[233]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V293*/ meltfptr[292]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V293*/ meltfptr[292])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V293*/ meltfptr[292]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V235*/ meltfptr[234]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V294*/ meltfptr[293]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V294*/ meltfptr[293])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V294*/ meltfptr[293]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V236*/ meltfptr[235]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V293*/ meltfptr[292]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V293*/ meltfptr[292])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V293*/ meltfptr[292]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V237*/ meltfptr[236]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V294*/ meltfptr[293]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V294*/ meltfptr[293])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V294*/ meltfptr[293]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V238*/ meltfptr[237]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V293*/ meltfptr[292]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V293*/ meltfptr[292])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V293*/ meltfptr[292]))->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V239*/ meltfptr[238]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V294*/ meltfptr[293]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V294*/ meltfptr[293])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V294*/ meltfptr[293]))->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V240*/ meltfptr[239]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V293*/ meltfptr[292]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V293*/ meltfptr[292])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V293*/ meltfptr[292]))->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V241*/ meltfptr[240]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V294*/ meltfptr[293]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V294*/ meltfptr[293])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V294*/ meltfptr[293]))->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V242*/ meltfptr[241]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V293*/ meltfptr[292]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (6>=0 && 6< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V293*/ meltfptr[292])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V293*/ meltfptr[292]))->tabval[6] = (melt_ptr_t)(/*_.VALDATA___V243*/ meltfptr[242]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V294*/ meltfptr[293]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (6>=0 && 6< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V294*/ meltfptr[293])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V294*/ meltfptr[293]))->tabval[6] = (melt_ptr_t)(/*_.VALDATA___V244*/ meltfptr[243]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V293*/ meltfptr[292]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (7>=0 && 7< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V293*/ meltfptr[292])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V293*/ meltfptr[292]))->tabval[7] = (melt_ptr_t)(/*_.VALDATA___V289*/ meltfptr[288]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V294*/ meltfptr[293]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (7>=0 && 7< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V294*/ meltfptr[293])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V294*/ meltfptr[293]))->tabval[7] = (melt_ptr_t)(/*_.VALDATA___V290*/ meltfptr[289]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V293*/ meltfptr[292]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (8>=0 && 8< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V293*/ meltfptr[292])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V293*/ meltfptr[292]))->tabval[8] = (melt_ptr_t)(/*_.VALDATA___V291*/ meltfptr[290]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V294*/ meltfptr[293]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (8>=0 && 8< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V294*/ meltfptr[293])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V294*/ meltfptr[293]))->tabval[8] = (melt_ptr_t)(/*_.VALDATA___V292*/ meltfptr[291]); /*touch:INITUP_*/ - meltgc_touch(/*_.VALTUP___V293*/ meltfptr[292]); + meltgc_touch(/*_.VALTUP___V294*/ meltfptr[293]); MELT_LOCATION("warmelt-normatch.melt:474:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V286*/ meltfptr[285])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V287*/ meltfptr[286])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V286*/ meltfptr[285])))); - ((meltobject_ptr_t)(/*_.VALDATA___V286*/ meltfptr[285]))->obj_vartab[6] = (melt_ptr_t)( - /*_.VALTUP___V293*/ meltfptr[292]); + melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V287*/ meltfptr[286])))); + ((meltobject_ptr_t)(/*_.VALDATA___V287*/ meltfptr[286]))->obj_vartab[6] = (melt_ptr_t)( + /*_.VALTUP___V294*/ meltfptr[293]); MELT_LOCATION("warmelt-normatch.melt:474:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V286*/ meltfptr[285]); + meltgc_touch(/*_.VALDATA___V287*/ meltfptr[286]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V294*/ meltfptr[293])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V295*/ meltfptr[294])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V294*/ meltfptr[293])))); - ((meltobject_ptr_t)(/*_.VALDATA___V294*/ meltfptr[293]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V295*/ meltfptr[294]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V295*/ meltfptr[294])))); + ((meltobject_ptr_t)(/*_.VALDATA___V295*/ meltfptr[294]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V296*/ meltfptr[295]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V294*/ meltfptr[293]); + meltgc_touch(/*_.VALDATA___V295*/ meltfptr[294]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V296*/ meltfptr[295])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V297*/ meltfptr[296])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V296*/ meltfptr[295])))); - ((meltobject_ptr_t)(/*_.VALDATA___V296*/ meltfptr[295]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V297*/ meltfptr[296]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V297*/ meltfptr[296])))); + ((meltobject_ptr_t)(/*_.VALDATA___V297*/ meltfptr[296]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V298*/ meltfptr[297]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V296*/ meltfptr[295]); + meltgc_touch(/*_.VALDATA___V297*/ meltfptr[296]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V298*/ meltfptr[297])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V299*/ meltfptr[298])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V298*/ meltfptr[297])))); - ((meltobject_ptr_t)(/*_.VALDATA___V298*/ meltfptr[297]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V299*/ meltfptr[298]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V299*/ meltfptr[298])))); + ((meltobject_ptr_t)(/*_.VALDATA___V299*/ meltfptr[298]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V300*/ meltfptr[299]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V298*/ meltfptr[297]); + meltgc_touch(/*_.VALDATA___V299*/ meltfptr[298]); MELT_LOCATION("warmelt-normatch.melt:482:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V300*/ meltfptr[299])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V301*/ meltfptr[300])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V300*/ meltfptr[299])))); - ((meltobject_ptr_t)(/*_.VALDATA___V300*/ meltfptr[299]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V301*/ meltfptr[300]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V301*/ meltfptr[300])))); + ((meltobject_ptr_t)(/*_.VALDATA___V301*/ meltfptr[300]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V302*/ meltfptr[301]); MELT_LOCATION("warmelt-normatch.melt:482:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V300*/ meltfptr[299])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V301*/ meltfptr[300])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V300*/ meltfptr[299])))); - ((meltobject_ptr_t)(/*_.VALDATA___V300*/ meltfptr[299]))->obj_vartab[4] = (melt_ptr_t)( - /*_.VALDATA___V230*/ meltfptr[229]); + melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V301*/ meltfptr[300])))); + ((meltobject_ptr_t)(/*_.VALDATA___V301*/ meltfptr[300]))->obj_vartab[4] = (melt_ptr_t)( + /*_.VALDATA___V231*/ meltfptr[230]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V302*/ meltfptr[301]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V302*/ meltfptr[301])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V302*/ meltfptr[301]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_NREP_EXPRESSION__V34*/ meltfptr[33]),5))), (0)))); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V303*/ meltfptr[302]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V303*/ meltfptr[302])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V303*/ meltfptr[302]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_NREP_EXPRESSION__V34*/ meltfptr[33]),5))), (0)))); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V302*/ meltfptr[301]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V302*/ meltfptr[301])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V302*/ meltfptr[301]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_NREP_EXPRESSION__V34*/ meltfptr[33]),5))), (1)))); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V303*/ meltfptr[302]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V303*/ meltfptr[302])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V303*/ meltfptr[302]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_NREP_EXPRESSION__V34*/ meltfptr[33]),5))), (1)))); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V302*/ meltfptr[301]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V302*/ meltfptr[301])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V302*/ meltfptr[301]))->tabval[2] = (melt_ptr_t)(/*_.CLASS_NREP_EXPRESSION__V34*/ meltfptr[33]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V303*/ meltfptr[302]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V303*/ meltfptr[302])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V303*/ meltfptr[302]))->tabval[2] = (melt_ptr_t)(/*_.CLASS_NREP_EXPRESSION__V34*/ meltfptr[33]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V302*/ meltfptr[301]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V302*/ meltfptr[301])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V302*/ meltfptr[301]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V230*/ meltfptr[229]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V303*/ meltfptr[302]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V303*/ meltfptr[302])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V303*/ meltfptr[302]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V231*/ meltfptr[230]); /*touch:INITUP_*/ - meltgc_touch(/*_.VALTUP___V302*/ meltfptr[301]); + meltgc_touch(/*_.VALTUP___V303*/ meltfptr[302]); MELT_LOCATION("warmelt-normatch.melt:482:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V300*/ meltfptr[299])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V301*/ meltfptr[300])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V300*/ meltfptr[299])))); - ((meltobject_ptr_t)(/*_.VALDATA___V300*/ meltfptr[299]))->obj_vartab[5] = (melt_ptr_t)( - /*_.VALTUP___V302*/ meltfptr[301]); + melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V301*/ meltfptr[300])))); + ((meltobject_ptr_t)(/*_.VALDATA___V301*/ meltfptr[300]))->obj_vartab[5] = (melt_ptr_t)( + /*_.VALTUP___V303*/ meltfptr[302]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V303*/ meltfptr[302]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V303*/ meltfptr[302])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V303*/ meltfptr[302]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_NREP_EXPRESSION__V34*/ meltfptr[33]),6))), (0)))); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V304*/ meltfptr[303]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V304*/ meltfptr[303])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V304*/ meltfptr[303]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_NREP_EXPRESSION__V34*/ meltfptr[33]),6))), (0)))); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V303*/ meltfptr[302]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V303*/ meltfptr[302])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V303*/ meltfptr[302]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V233*/ meltfptr[232]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V304*/ meltfptr[303]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V304*/ meltfptr[303])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V304*/ meltfptr[303]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V234*/ meltfptr[233]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V303*/ meltfptr[302]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V303*/ meltfptr[302])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V303*/ meltfptr[302]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V235*/ meltfptr[234]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V304*/ meltfptr[303]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V304*/ meltfptr[303])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V304*/ meltfptr[303]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V236*/ meltfptr[235]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V303*/ meltfptr[302]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V303*/ meltfptr[302])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V303*/ meltfptr[302]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V237*/ meltfptr[236]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V304*/ meltfptr[303]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V304*/ meltfptr[303])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V304*/ meltfptr[303]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V238*/ meltfptr[237]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V303*/ meltfptr[302]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V303*/ meltfptr[302])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V303*/ meltfptr[302]))->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V239*/ meltfptr[238]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V304*/ meltfptr[303]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V304*/ meltfptr[303])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V304*/ meltfptr[303]))->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V240*/ meltfptr[239]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V303*/ meltfptr[302]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V303*/ meltfptr[302])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V303*/ meltfptr[302]))->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V241*/ meltfptr[240]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V304*/ meltfptr[303]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V304*/ meltfptr[303])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V304*/ meltfptr[303]))->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V242*/ meltfptr[241]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V303*/ meltfptr[302]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (6>=0 && 6< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V303*/ meltfptr[302])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V303*/ meltfptr[302]))->tabval[6] = (melt_ptr_t)(/*_.VALDATA___V243*/ meltfptr[242]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V304*/ meltfptr[303]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (6>=0 && 6< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V304*/ meltfptr[303])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V304*/ meltfptr[303]))->tabval[6] = (melt_ptr_t)(/*_.VALDATA___V244*/ meltfptr[243]); /*touch:INITUP_*/ - meltgc_touch(/*_.VALTUP___V303*/ meltfptr[302]); + meltgc_touch(/*_.VALTUP___V304*/ meltfptr[303]); MELT_LOCATION("warmelt-normatch.melt:482:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V300*/ meltfptr[299])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V301*/ meltfptr[300])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V300*/ meltfptr[299])))); - ((meltobject_ptr_t)(/*_.VALDATA___V300*/ meltfptr[299]))->obj_vartab[6] = (melt_ptr_t)( - /*_.VALTUP___V303*/ meltfptr[302]); + melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V301*/ meltfptr[300])))); + ((meltobject_ptr_t)(/*_.VALDATA___V301*/ meltfptr[300]))->obj_vartab[6] = (melt_ptr_t)( + /*_.VALTUP___V304*/ meltfptr[303]); MELT_LOCATION("warmelt-normatch.melt:482:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V300*/ meltfptr[299]); + meltgc_touch(/*_.VALDATA___V301*/ meltfptr[300]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V304*/ meltfptr[303])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V305*/ meltfptr[304])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V304*/ meltfptr[303])))); - ((meltobject_ptr_t)(/*_.VALDATA___V304*/ meltfptr[303]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V305*/ meltfptr[304]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V305*/ meltfptr[304])))); + ((meltobject_ptr_t)(/*_.VALDATA___V305*/ meltfptr[304]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V306*/ meltfptr[305]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V304*/ meltfptr[303]); + meltgc_touch(/*_.VALDATA___V305*/ meltfptr[304]); MELT_LOCATION("warmelt-normatch.melt:490:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V306*/ meltfptr[305])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V307*/ meltfptr[306])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V306*/ meltfptr[305])))); - ((meltobject_ptr_t)(/*_.VALDATA___V306*/ meltfptr[305]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V307*/ meltfptr[306]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V307*/ meltfptr[306])))); + ((meltobject_ptr_t)(/*_.VALDATA___V307*/ meltfptr[306]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V308*/ meltfptr[307]); MELT_LOCATION("warmelt-normatch.melt:490:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V306*/ meltfptr[305])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V307*/ meltfptr[306])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V306*/ meltfptr[305])))); - ((meltobject_ptr_t)(/*_.VALDATA___V306*/ meltfptr[305]))->obj_vartab[4] = (melt_ptr_t)( - /*_.VALDATA___V300*/ meltfptr[299]); + melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V307*/ meltfptr[306])))); + ((meltobject_ptr_t)(/*_.VALDATA___V307*/ meltfptr[306]))->obj_vartab[4] = (melt_ptr_t)( + /*_.VALDATA___V301*/ meltfptr[300]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V308*/ meltfptr[307]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V308*/ meltfptr[307])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V308*/ meltfptr[307]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_NREP_EXPRESSION__V34*/ meltfptr[33]),5))), (0)))); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V309*/ meltfptr[308]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V309*/ meltfptr[308])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V309*/ meltfptr[308]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_NREP_EXPRESSION__V34*/ meltfptr[33]),5))), (0)))); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V308*/ meltfptr[307]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V308*/ meltfptr[307])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V308*/ meltfptr[307]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_NREP_EXPRESSION__V34*/ meltfptr[33]),5))), (1)))); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V309*/ meltfptr[308]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V309*/ meltfptr[308])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V309*/ meltfptr[308]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_NREP_EXPRESSION__V34*/ meltfptr[33]),5))), (1)))); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V308*/ meltfptr[307]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V308*/ meltfptr[307])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V308*/ meltfptr[307]))->tabval[2] = (melt_ptr_t)(/*_.CLASS_NREP_EXPRESSION__V34*/ meltfptr[33]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V309*/ meltfptr[308]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V309*/ meltfptr[308])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V309*/ meltfptr[308]))->tabval[2] = (melt_ptr_t)(/*_.CLASS_NREP_EXPRESSION__V34*/ meltfptr[33]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V308*/ meltfptr[307]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V308*/ meltfptr[307])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V308*/ meltfptr[307]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V230*/ meltfptr[229]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V309*/ meltfptr[308]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V309*/ meltfptr[308])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V309*/ meltfptr[308]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V231*/ meltfptr[230]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V308*/ meltfptr[307]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V308*/ meltfptr[307])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V308*/ meltfptr[307]))->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V300*/ meltfptr[299]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V309*/ meltfptr[308]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V309*/ meltfptr[308])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V309*/ meltfptr[308]))->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V301*/ meltfptr[300]); /*touch:INITUP_*/ - meltgc_touch(/*_.VALTUP___V308*/ meltfptr[307]); + meltgc_touch(/*_.VALTUP___V309*/ meltfptr[308]); MELT_LOCATION("warmelt-normatch.melt:490:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V306*/ meltfptr[305])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V307*/ meltfptr[306])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V306*/ meltfptr[305])))); - ((meltobject_ptr_t)(/*_.VALDATA___V306*/ meltfptr[305]))->obj_vartab[5] = (melt_ptr_t)( - /*_.VALTUP___V308*/ meltfptr[307]); + melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V307*/ meltfptr[306])))); + ((meltobject_ptr_t)(/*_.VALDATA___V307*/ meltfptr[306]))->obj_vartab[5] = (melt_ptr_t)( + /*_.VALTUP___V309*/ meltfptr[308]); MELT_LOCATION("warmelt-normatch.melt:490:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V309*/ meltfptr[308])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V310*/ meltfptr[309])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V309*/ meltfptr[308])))); - ((meltobject_ptr_t)(/*_.VALDATA___V309*/ meltfptr[308]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V310*/ meltfptr[309]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V310*/ meltfptr[309])))); + ((meltobject_ptr_t)(/*_.VALDATA___V310*/ meltfptr[309]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V311*/ meltfptr[310]); MELT_LOCATION("warmelt-normatch.melt:490:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V309*/ meltfptr[308])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V310*/ meltfptr[309])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V309*/ meltfptr[308])))); - ((meltobject_ptr_t)(/*_.VALDATA___V309*/ meltfptr[308]))->obj_vartab[2] = (melt_ptr_t)( - /*_.VALDATA___V306*/ meltfptr[305]); + melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V310*/ meltfptr[309])))); + ((meltobject_ptr_t)(/*_.VALDATA___V310*/ meltfptr[309]))->obj_vartab[2] = (melt_ptr_t)( + /*_.VALDATA___V307*/ meltfptr[306]); MELT_LOCATION("warmelt-normatch.melt:490:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V309*/ meltfptr[308]); + meltgc_touch(/*_.VALDATA___V310*/ meltfptr[309]); MELT_LOCATION("warmelt-normatch.melt:490:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V311*/ meltfptr[310])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V312*/ meltfptr[311])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V311*/ meltfptr[310])))); - ((meltobject_ptr_t)(/*_.VALDATA___V311*/ meltfptr[310]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V312*/ meltfptr[311]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V312*/ meltfptr[311])))); + ((meltobject_ptr_t)(/*_.VALDATA___V312*/ meltfptr[311]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V313*/ meltfptr[312]); MELT_LOCATION("warmelt-normatch.melt:490:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V311*/ meltfptr[310])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V312*/ meltfptr[311])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V311*/ meltfptr[310])))); - ((meltobject_ptr_t)(/*_.VALDATA___V311*/ meltfptr[310]))->obj_vartab[2] = (melt_ptr_t)( - /*_.VALDATA___V306*/ meltfptr[305]); + melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V312*/ meltfptr[311])))); + ((meltobject_ptr_t)(/*_.VALDATA___V312*/ meltfptr[311]))->obj_vartab[2] = (melt_ptr_t)( + /*_.VALDATA___V307*/ meltfptr[306]); MELT_LOCATION("warmelt-normatch.melt:490:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V311*/ meltfptr[310]); + meltgc_touch(/*_.VALDATA___V312*/ meltfptr[311]); MELT_LOCATION("warmelt-normatch.melt:490:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V313*/ meltfptr[312])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V314*/ meltfptr[313])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V313*/ meltfptr[312])))); - ((meltobject_ptr_t)(/*_.VALDATA___V313*/ meltfptr[312]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V314*/ meltfptr[313]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V314*/ meltfptr[313])))); + ((meltobject_ptr_t)(/*_.VALDATA___V314*/ meltfptr[313]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V315*/ meltfptr[314]); MELT_LOCATION("warmelt-normatch.melt:490:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V313*/ meltfptr[312])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V314*/ meltfptr[313])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V313*/ meltfptr[312])))); - ((meltobject_ptr_t)(/*_.VALDATA___V313*/ meltfptr[312]))->obj_vartab[2] = (melt_ptr_t)( - /*_.VALDATA___V306*/ meltfptr[305]); + melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V314*/ meltfptr[313])))); + ((meltobject_ptr_t)(/*_.VALDATA___V314*/ meltfptr[313]))->obj_vartab[2] = (melt_ptr_t)( + /*_.VALDATA___V307*/ meltfptr[306]); MELT_LOCATION("warmelt-normatch.melt:490:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V313*/ meltfptr[312]); + meltgc_touch(/*_.VALDATA___V314*/ meltfptr[313]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V315*/ meltfptr[314]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V315*/ meltfptr[314])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V315*/ meltfptr[314]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_NREP_EXPRESSION__V34*/ meltfptr[33]),6))), (0)))); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V316*/ meltfptr[315]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V316*/ meltfptr[315])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V316*/ meltfptr[315]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_NREP_EXPRESSION__V34*/ meltfptr[33]),6))), (0)))); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V315*/ meltfptr[314]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V315*/ meltfptr[314])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V315*/ meltfptr[314]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V233*/ meltfptr[232]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V316*/ meltfptr[315]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V316*/ meltfptr[315])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V316*/ meltfptr[315]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V234*/ meltfptr[233]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V315*/ meltfptr[314]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V315*/ meltfptr[314])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V315*/ meltfptr[314]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V235*/ meltfptr[234]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V316*/ meltfptr[315]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V316*/ meltfptr[315])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V316*/ meltfptr[315]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V236*/ meltfptr[235]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V315*/ meltfptr[314]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V315*/ meltfptr[314])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V315*/ meltfptr[314]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V237*/ meltfptr[236]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V316*/ meltfptr[315]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V316*/ meltfptr[315])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V316*/ meltfptr[315]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V238*/ meltfptr[237]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V315*/ meltfptr[314]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V315*/ meltfptr[314])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V315*/ meltfptr[314]))->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V239*/ meltfptr[238]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V316*/ meltfptr[315]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V316*/ meltfptr[315])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V316*/ meltfptr[315]))->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V240*/ meltfptr[239]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V315*/ meltfptr[314]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V315*/ meltfptr[314])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V315*/ meltfptr[314]))->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V241*/ meltfptr[240]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V316*/ meltfptr[315]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V316*/ meltfptr[315])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V316*/ meltfptr[315]))->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V242*/ meltfptr[241]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V315*/ meltfptr[314]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (6>=0 && 6< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V315*/ meltfptr[314])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V315*/ meltfptr[314]))->tabval[6] = (melt_ptr_t)(/*_.VALDATA___V243*/ meltfptr[242]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V316*/ meltfptr[315]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (6>=0 && 6< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V316*/ meltfptr[315])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V316*/ meltfptr[315]))->tabval[6] = (melt_ptr_t)(/*_.VALDATA___V244*/ meltfptr[243]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V315*/ meltfptr[314]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (7>=0 && 7< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V315*/ meltfptr[314])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V315*/ meltfptr[314]))->tabval[7] = (melt_ptr_t)(/*_.VALDATA___V309*/ meltfptr[308]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V316*/ meltfptr[315]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (7>=0 && 7< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V316*/ meltfptr[315])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V316*/ meltfptr[315]))->tabval[7] = (melt_ptr_t)(/*_.VALDATA___V310*/ meltfptr[309]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V315*/ meltfptr[314]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (8>=0 && 8< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V315*/ meltfptr[314])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V315*/ meltfptr[314]))->tabval[8] = (melt_ptr_t)(/*_.VALDATA___V311*/ meltfptr[310]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V316*/ meltfptr[315]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (8>=0 && 8< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V316*/ meltfptr[315])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V316*/ meltfptr[315]))->tabval[8] = (melt_ptr_t)(/*_.VALDATA___V312*/ meltfptr[311]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V315*/ meltfptr[314]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (9>=0 && 9< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V315*/ meltfptr[314])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V315*/ meltfptr[314]))->tabval[9] = (melt_ptr_t)(/*_.VALDATA___V313*/ meltfptr[312]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V316*/ meltfptr[315]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (9>=0 && 9< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V316*/ meltfptr[315])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V316*/ meltfptr[315]))->tabval[9] = (melt_ptr_t)(/*_.VALDATA___V314*/ meltfptr[313]); /*touch:INITUP_*/ - meltgc_touch(/*_.VALTUP___V315*/ meltfptr[314]); + meltgc_touch(/*_.VALTUP___V316*/ meltfptr[315]); MELT_LOCATION("warmelt-normatch.melt:490:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V306*/ meltfptr[305])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V307*/ meltfptr[306])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V306*/ meltfptr[305])))); - ((meltobject_ptr_t)(/*_.VALDATA___V306*/ meltfptr[305]))->obj_vartab[6] = (melt_ptr_t)( - /*_.VALTUP___V315*/ meltfptr[314]); + melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V307*/ meltfptr[306])))); + ((meltobject_ptr_t)(/*_.VALDATA___V307*/ meltfptr[306]))->obj_vartab[6] = (melt_ptr_t)( + /*_.VALTUP___V316*/ meltfptr[315]); MELT_LOCATION("warmelt-normatch.melt:490:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V306*/ meltfptr[305]); + meltgc_touch(/*_.VALDATA___V307*/ meltfptr[306]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V316*/ meltfptr[315])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V317*/ meltfptr[316])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V316*/ meltfptr[315])))); - ((meltobject_ptr_t)(/*_.VALDATA___V316*/ meltfptr[315]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V317*/ meltfptr[316]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V317*/ meltfptr[316])))); + ((meltobject_ptr_t)(/*_.VALDATA___V317*/ meltfptr[316]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V318*/ meltfptr[317]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V316*/ meltfptr[315]); + meltgc_touch(/*_.VALDATA___V317*/ meltfptr[316]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V318*/ meltfptr[317])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V319*/ meltfptr[318])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V318*/ meltfptr[317])))); - ((meltobject_ptr_t)(/*_.VALDATA___V318*/ meltfptr[317]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V319*/ meltfptr[318]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V319*/ meltfptr[318])))); + ((meltobject_ptr_t)(/*_.VALDATA___V319*/ meltfptr[318]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V320*/ meltfptr[319]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V318*/ meltfptr[317]); + meltgc_touch(/*_.VALDATA___V319*/ meltfptr[318]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V320*/ meltfptr[319])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V321*/ meltfptr[320])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V320*/ meltfptr[319])))); - ((meltobject_ptr_t)(/*_.VALDATA___V320*/ meltfptr[319]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V321*/ meltfptr[320]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V321*/ meltfptr[320])))); + ((meltobject_ptr_t)(/*_.VALDATA___V321*/ meltfptr[320]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V322*/ meltfptr[321]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V320*/ meltfptr[319]); + meltgc_touch(/*_.VALDATA___V321*/ meltfptr[320]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V322*/ meltfptr[321])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V323*/ meltfptr[322])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V322*/ meltfptr[321])))); - ((meltobject_ptr_t)(/*_.VALDATA___V322*/ meltfptr[321]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V323*/ meltfptr[322]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V323*/ meltfptr[322])))); + ((meltobject_ptr_t)(/*_.VALDATA___V323*/ meltfptr[322]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V324*/ meltfptr[323]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V322*/ meltfptr[321]); + meltgc_touch(/*_.VALDATA___V323*/ meltfptr[322]); MELT_LOCATION("warmelt-normatch.melt:498:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V324*/ meltfptr[323])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V325*/ meltfptr[324])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V324*/ meltfptr[323])))); - ((meltobject_ptr_t)(/*_.VALDATA___V324*/ meltfptr[323]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V325*/ meltfptr[324]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V325*/ meltfptr[324])))); + ((meltobject_ptr_t)(/*_.VALDATA___V325*/ meltfptr[324]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V326*/ meltfptr[325]); MELT_LOCATION("warmelt-normatch.melt:498:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V324*/ meltfptr[323])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V325*/ meltfptr[324])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V324*/ meltfptr[323])))); - ((meltobject_ptr_t)(/*_.VALDATA___V324*/ meltfptr[323]))->obj_vartab[4] = (melt_ptr_t)( - /*_.VALDATA___V300*/ meltfptr[299]); + melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V325*/ meltfptr[324])))); + ((meltobject_ptr_t)(/*_.VALDATA___V325*/ meltfptr[324]))->obj_vartab[4] = (melt_ptr_t)( + /*_.VALDATA___V301*/ meltfptr[300]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V326*/ meltfptr[325]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V326*/ meltfptr[325])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V326*/ meltfptr[325]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_NREP_EXPRESSION__V34*/ meltfptr[33]),5))), (0)))); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V327*/ meltfptr[326]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V327*/ meltfptr[326])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V327*/ meltfptr[326]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_NREP_EXPRESSION__V34*/ meltfptr[33]),5))), (0)))); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V326*/ meltfptr[325]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V326*/ meltfptr[325])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V326*/ meltfptr[325]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_NREP_EXPRESSION__V34*/ meltfptr[33]),5))), (1)))); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V327*/ meltfptr[326]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V327*/ meltfptr[326])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V327*/ meltfptr[326]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_NREP_EXPRESSION__V34*/ meltfptr[33]),5))), (1)))); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V326*/ meltfptr[325]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V326*/ meltfptr[325])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V326*/ meltfptr[325]))->tabval[2] = (melt_ptr_t)(/*_.CLASS_NREP_EXPRESSION__V34*/ meltfptr[33]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V327*/ meltfptr[326]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V327*/ meltfptr[326])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V327*/ meltfptr[326]))->tabval[2] = (melt_ptr_t)(/*_.CLASS_NREP_EXPRESSION__V34*/ meltfptr[33]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V326*/ meltfptr[325]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V326*/ meltfptr[325])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V326*/ meltfptr[325]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V230*/ meltfptr[229]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V327*/ meltfptr[326]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V327*/ meltfptr[326])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V327*/ meltfptr[326]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V231*/ meltfptr[230]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V326*/ meltfptr[325]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V326*/ meltfptr[325])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V326*/ meltfptr[325]))->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V300*/ meltfptr[299]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V327*/ meltfptr[326]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V327*/ meltfptr[326])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V327*/ meltfptr[326]))->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V301*/ meltfptr[300]); /*touch:INITUP_*/ - meltgc_touch(/*_.VALTUP___V326*/ meltfptr[325]); + meltgc_touch(/*_.VALTUP___V327*/ meltfptr[326]); MELT_LOCATION("warmelt-normatch.melt:498:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V324*/ meltfptr[323])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V325*/ meltfptr[324])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V324*/ meltfptr[323])))); - ((meltobject_ptr_t)(/*_.VALDATA___V324*/ meltfptr[323]))->obj_vartab[5] = (melt_ptr_t)( - /*_.VALTUP___V326*/ meltfptr[325]); + melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V325*/ meltfptr[324])))); + ((meltobject_ptr_t)(/*_.VALDATA___V325*/ meltfptr[324]))->obj_vartab[5] = (melt_ptr_t)( + /*_.VALTUP___V327*/ meltfptr[326]); MELT_LOCATION("warmelt-normatch.melt:498:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V327*/ meltfptr[326])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V328*/ meltfptr[327])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V327*/ meltfptr[326])))); - ((meltobject_ptr_t)(/*_.VALDATA___V327*/ meltfptr[326]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V328*/ meltfptr[327]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V328*/ meltfptr[327])))); + ((meltobject_ptr_t)(/*_.VALDATA___V328*/ meltfptr[327]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V329*/ meltfptr[328]); MELT_LOCATION("warmelt-normatch.melt:498:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V327*/ meltfptr[326])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V328*/ meltfptr[327])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V327*/ meltfptr[326])))); - ((meltobject_ptr_t)(/*_.VALDATA___V327*/ meltfptr[326]))->obj_vartab[2] = (melt_ptr_t)( - /*_.VALDATA___V324*/ meltfptr[323]); + melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V328*/ meltfptr[327])))); + ((meltobject_ptr_t)(/*_.VALDATA___V328*/ meltfptr[327]))->obj_vartab[2] = (melt_ptr_t)( + /*_.VALDATA___V325*/ meltfptr[324]); MELT_LOCATION("warmelt-normatch.melt:498:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V327*/ meltfptr[326]); + meltgc_touch(/*_.VALDATA___V328*/ meltfptr[327]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V329*/ meltfptr[328]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V329*/ meltfptr[328])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V329*/ meltfptr[328]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_NREP_EXPRESSION__V34*/ meltfptr[33]),6))), (0)))); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V330*/ meltfptr[329]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V330*/ meltfptr[329])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V330*/ meltfptr[329]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_NREP_EXPRESSION__V34*/ meltfptr[33]),6))), (0)))); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V329*/ meltfptr[328]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V329*/ meltfptr[328])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V329*/ meltfptr[328]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V233*/ meltfptr[232]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V330*/ meltfptr[329]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V330*/ meltfptr[329])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V330*/ meltfptr[329]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V234*/ meltfptr[233]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V329*/ meltfptr[328]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V329*/ meltfptr[328])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V329*/ meltfptr[328]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V235*/ meltfptr[234]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V330*/ meltfptr[329]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V330*/ meltfptr[329])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V330*/ meltfptr[329]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V236*/ meltfptr[235]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V329*/ meltfptr[328]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V329*/ meltfptr[328])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V329*/ meltfptr[328]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V237*/ meltfptr[236]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V330*/ meltfptr[329]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V330*/ meltfptr[329])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V330*/ meltfptr[329]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V238*/ meltfptr[237]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V329*/ meltfptr[328]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V329*/ meltfptr[328])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V329*/ meltfptr[328]))->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V239*/ meltfptr[238]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V330*/ meltfptr[329]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V330*/ meltfptr[329])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V330*/ meltfptr[329]))->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V240*/ meltfptr[239]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V329*/ meltfptr[328]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V329*/ meltfptr[328])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V329*/ meltfptr[328]))->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V241*/ meltfptr[240]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V330*/ meltfptr[329]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V330*/ meltfptr[329])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V330*/ meltfptr[329]))->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V242*/ meltfptr[241]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V329*/ meltfptr[328]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (6>=0 && 6< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V329*/ meltfptr[328])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V329*/ meltfptr[328]))->tabval[6] = (melt_ptr_t)(/*_.VALDATA___V243*/ meltfptr[242]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V330*/ meltfptr[329]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (6>=0 && 6< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V330*/ meltfptr[329])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V330*/ meltfptr[329]))->tabval[6] = (melt_ptr_t)(/*_.VALDATA___V244*/ meltfptr[243]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V329*/ meltfptr[328]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (7>=0 && 7< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V329*/ meltfptr[328])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V329*/ meltfptr[328]))->tabval[7] = (melt_ptr_t)(/*_.VALDATA___V327*/ meltfptr[326]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V330*/ meltfptr[329]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (7>=0 && 7< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V330*/ meltfptr[329])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V330*/ meltfptr[329]))->tabval[7] = (melt_ptr_t)(/*_.VALDATA___V328*/ meltfptr[327]); /*touch:INITUP_*/ - meltgc_touch(/*_.VALTUP___V329*/ meltfptr[328]); + meltgc_touch(/*_.VALTUP___V330*/ meltfptr[329]); MELT_LOCATION("warmelt-normatch.melt:498:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V324*/ meltfptr[323])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V325*/ meltfptr[324])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V324*/ meltfptr[323])))); - ((meltobject_ptr_t)(/*_.VALDATA___V324*/ meltfptr[323]))->obj_vartab[6] = (melt_ptr_t)( - /*_.VALTUP___V329*/ meltfptr[328]); + melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V325*/ meltfptr[324])))); + ((meltobject_ptr_t)(/*_.VALDATA___V325*/ meltfptr[324]))->obj_vartab[6] = (melt_ptr_t)( + /*_.VALTUP___V330*/ meltfptr[329]); MELT_LOCATION("warmelt-normatch.melt:498:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V324*/ meltfptr[323]); + meltgc_touch(/*_.VALDATA___V325*/ meltfptr[324]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V330*/ meltfptr[329])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V331*/ meltfptr[330])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V330*/ meltfptr[329])))); - ((meltobject_ptr_t)(/*_.VALDATA___V330*/ meltfptr[329]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V331*/ meltfptr[330]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V331*/ meltfptr[330])))); + ((meltobject_ptr_t)(/*_.VALDATA___V331*/ meltfptr[330]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V332*/ meltfptr[331]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V330*/ meltfptr[329]); + meltgc_touch(/*_.VALDATA___V331*/ meltfptr[330]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V332*/ meltfptr[331])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V333*/ meltfptr[332])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V332*/ meltfptr[331])))); - ((meltobject_ptr_t)(/*_.VALDATA___V332*/ meltfptr[331]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V333*/ meltfptr[332]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V333*/ meltfptr[332])))); + ((meltobject_ptr_t)(/*_.VALDATA___V333*/ meltfptr[332]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V334*/ meltfptr[333]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V332*/ meltfptr[331]); + meltgc_touch(/*_.VALDATA___V333*/ meltfptr[332]); MELT_LOCATION("warmelt-normatch.melt:504:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V334*/ meltfptr[333])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V335*/ meltfptr[334])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V334*/ meltfptr[333])))); - ((meltobject_ptr_t)(/*_.VALDATA___V334*/ meltfptr[333]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V335*/ meltfptr[334]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V335*/ meltfptr[334])))); + ((meltobject_ptr_t)(/*_.VALDATA___V335*/ meltfptr[334]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V336*/ meltfptr[335]); MELT_LOCATION("warmelt-normatch.melt:504:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V334*/ meltfptr[333])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V335*/ meltfptr[334])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V334*/ meltfptr[333])))); - ((meltobject_ptr_t)(/*_.VALDATA___V334*/ meltfptr[333]))->obj_vartab[4] = (melt_ptr_t)( - /*_.VALDATA___V300*/ meltfptr[299]); + melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V335*/ meltfptr[334])))); + ((meltobject_ptr_t)(/*_.VALDATA___V335*/ meltfptr[334]))->obj_vartab[4] = (melt_ptr_t)( + /*_.VALDATA___V301*/ meltfptr[300]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V336*/ meltfptr[335]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V336*/ meltfptr[335])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V336*/ meltfptr[335]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_NREP_EXPRESSION__V34*/ meltfptr[33]),5))), (0)))); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V337*/ meltfptr[336]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V337*/ meltfptr[336])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V337*/ meltfptr[336]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_NREP_EXPRESSION__V34*/ meltfptr[33]),5))), (0)))); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V336*/ meltfptr[335]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V336*/ meltfptr[335])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V336*/ meltfptr[335]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_NREP_EXPRESSION__V34*/ meltfptr[33]),5))), (1)))); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V337*/ meltfptr[336]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V337*/ meltfptr[336])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V337*/ meltfptr[336]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_NREP_EXPRESSION__V34*/ meltfptr[33]),5))), (1)))); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V336*/ meltfptr[335]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V336*/ meltfptr[335])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V336*/ meltfptr[335]))->tabval[2] = (melt_ptr_t)(/*_.CLASS_NREP_EXPRESSION__V34*/ meltfptr[33]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V337*/ meltfptr[336]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V337*/ meltfptr[336])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V337*/ meltfptr[336]))->tabval[2] = (melt_ptr_t)(/*_.CLASS_NREP_EXPRESSION__V34*/ meltfptr[33]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V336*/ meltfptr[335]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V336*/ meltfptr[335])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V336*/ meltfptr[335]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V230*/ meltfptr[229]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V337*/ meltfptr[336]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V337*/ meltfptr[336])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V337*/ meltfptr[336]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V231*/ meltfptr[230]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V336*/ meltfptr[335]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V336*/ meltfptr[335])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V336*/ meltfptr[335]))->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V300*/ meltfptr[299]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V337*/ meltfptr[336]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V337*/ meltfptr[336])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V337*/ meltfptr[336]))->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V301*/ meltfptr[300]); /*touch:INITUP_*/ - meltgc_touch(/*_.VALTUP___V336*/ meltfptr[335]); + meltgc_touch(/*_.VALTUP___V337*/ meltfptr[336]); MELT_LOCATION("warmelt-normatch.melt:504:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V334*/ meltfptr[333])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V335*/ meltfptr[334])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V334*/ meltfptr[333])))); - ((meltobject_ptr_t)(/*_.VALDATA___V334*/ meltfptr[333]))->obj_vartab[5] = (melt_ptr_t)( - /*_.VALTUP___V336*/ meltfptr[335]); + melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V335*/ meltfptr[334])))); + ((meltobject_ptr_t)(/*_.VALDATA___V335*/ meltfptr[334]))->obj_vartab[5] = (melt_ptr_t)( + /*_.VALTUP___V337*/ meltfptr[336]); MELT_LOCATION("warmelt-normatch.melt:504:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V337*/ meltfptr[336])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V338*/ meltfptr[337])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V337*/ meltfptr[336])))); - ((meltobject_ptr_t)(/*_.VALDATA___V337*/ meltfptr[336]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V338*/ meltfptr[337]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V338*/ meltfptr[337])))); + ((meltobject_ptr_t)(/*_.VALDATA___V338*/ meltfptr[337]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V339*/ meltfptr[338]); MELT_LOCATION("warmelt-normatch.melt:504:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V337*/ meltfptr[336])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V338*/ meltfptr[337])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V337*/ meltfptr[336])))); - ((meltobject_ptr_t)(/*_.VALDATA___V337*/ meltfptr[336]))->obj_vartab[2] = (melt_ptr_t)( - /*_.VALDATA___V334*/ meltfptr[333]); + melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V338*/ meltfptr[337])))); + ((meltobject_ptr_t)(/*_.VALDATA___V338*/ meltfptr[337]))->obj_vartab[2] = (melt_ptr_t)( + /*_.VALDATA___V335*/ meltfptr[334]); MELT_LOCATION("warmelt-normatch.melt:504:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V337*/ meltfptr[336]); + meltgc_touch(/*_.VALDATA___V338*/ meltfptr[337]); #undef meltfram__ @@ -27131,1552 +27759,1552 @@ void MELT_MODULE_VISIBILITY warmelt_normatch_initialmeltchunk_2 (struct frame_st MELT_LOCATION("warmelt-normatch.melt:504:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V339*/ meltfptr[338])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V340*/ meltfptr[339])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V339*/ meltfptr[338])))); - ((meltobject_ptr_t)(/*_.VALDATA___V339*/ meltfptr[338]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V340*/ meltfptr[339]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V340*/ meltfptr[339])))); + ((meltobject_ptr_t)(/*_.VALDATA___V340*/ meltfptr[339]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V341*/ meltfptr[340]); MELT_LOCATION("warmelt-normatch.melt:504:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V339*/ meltfptr[338])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V340*/ meltfptr[339])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V339*/ meltfptr[338])))); - ((meltobject_ptr_t)(/*_.VALDATA___V339*/ meltfptr[338]))->obj_vartab[2] = (melt_ptr_t)( - /*_.VALDATA___V334*/ meltfptr[333]); + melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V340*/ meltfptr[339])))); + ((meltobject_ptr_t)(/*_.VALDATA___V340*/ meltfptr[339]))->obj_vartab[2] = (melt_ptr_t)( + /*_.VALDATA___V335*/ meltfptr[334]); MELT_LOCATION("warmelt-normatch.melt:504:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V339*/ meltfptr[338]); + meltgc_touch(/*_.VALDATA___V340*/ meltfptr[339]); MELT_LOCATION("warmelt-normatch.melt:504:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V341*/ meltfptr[340])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V342*/ meltfptr[341])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V341*/ meltfptr[340])))); - ((meltobject_ptr_t)(/*_.VALDATA___V341*/ meltfptr[340]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V342*/ meltfptr[341]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V342*/ meltfptr[341])))); + ((meltobject_ptr_t)(/*_.VALDATA___V342*/ meltfptr[341]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V343*/ meltfptr[342]); MELT_LOCATION("warmelt-normatch.melt:504:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V341*/ meltfptr[340])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V342*/ meltfptr[341])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V341*/ meltfptr[340])))); - ((meltobject_ptr_t)(/*_.VALDATA___V341*/ meltfptr[340]))->obj_vartab[2] = (melt_ptr_t)( - /*_.VALDATA___V334*/ meltfptr[333]); + melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V342*/ meltfptr[341])))); + ((meltobject_ptr_t)(/*_.VALDATA___V342*/ meltfptr[341]))->obj_vartab[2] = (melt_ptr_t)( + /*_.VALDATA___V335*/ meltfptr[334]); MELT_LOCATION("warmelt-normatch.melt:504:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V341*/ meltfptr[340]); + meltgc_touch(/*_.VALDATA___V342*/ meltfptr[341]); MELT_LOCATION("warmelt-normatch.melt:504:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V343*/ meltfptr[342])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V344*/ meltfptr[343])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V343*/ meltfptr[342])))); - ((meltobject_ptr_t)(/*_.VALDATA___V343*/ meltfptr[342]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V344*/ meltfptr[343]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V344*/ meltfptr[343])))); + ((meltobject_ptr_t)(/*_.VALDATA___V344*/ meltfptr[343]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V345*/ meltfptr[344]); MELT_LOCATION("warmelt-normatch.melt:504:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V343*/ meltfptr[342])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V344*/ meltfptr[343])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V343*/ meltfptr[342])))); - ((meltobject_ptr_t)(/*_.VALDATA___V343*/ meltfptr[342]))->obj_vartab[2] = (melt_ptr_t)( - /*_.VALDATA___V334*/ meltfptr[333]); + melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V344*/ meltfptr[343])))); + ((meltobject_ptr_t)(/*_.VALDATA___V344*/ meltfptr[343]))->obj_vartab[2] = (melt_ptr_t)( + /*_.VALDATA___V335*/ meltfptr[334]); MELT_LOCATION("warmelt-normatch.melt:504:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V343*/ meltfptr[342]); + meltgc_touch(/*_.VALDATA___V344*/ meltfptr[343]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V345*/ meltfptr[344]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V345*/ meltfptr[344])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V345*/ meltfptr[344]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_NREP_EXPRESSION__V34*/ meltfptr[33]),6))), (0)))); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V346*/ meltfptr[345]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V346*/ meltfptr[345])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V346*/ meltfptr[345]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_NREP_EXPRESSION__V34*/ meltfptr[33]),6))), (0)))); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V345*/ meltfptr[344]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V345*/ meltfptr[344])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V345*/ meltfptr[344]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V233*/ meltfptr[232]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V346*/ meltfptr[345]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V346*/ meltfptr[345])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V346*/ meltfptr[345]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V234*/ meltfptr[233]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V345*/ meltfptr[344]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V345*/ meltfptr[344])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V345*/ meltfptr[344]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V235*/ meltfptr[234]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V346*/ meltfptr[345]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V346*/ meltfptr[345])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V346*/ meltfptr[345]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V236*/ meltfptr[235]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V345*/ meltfptr[344]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V345*/ meltfptr[344])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V345*/ meltfptr[344]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V237*/ meltfptr[236]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V346*/ meltfptr[345]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V346*/ meltfptr[345])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V346*/ meltfptr[345]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V238*/ meltfptr[237]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V345*/ meltfptr[344]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V345*/ meltfptr[344])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V345*/ meltfptr[344]))->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V239*/ meltfptr[238]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V346*/ meltfptr[345]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V346*/ meltfptr[345])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V346*/ meltfptr[345]))->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V240*/ meltfptr[239]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V345*/ meltfptr[344]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V345*/ meltfptr[344])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V345*/ meltfptr[344]))->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V241*/ meltfptr[240]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V346*/ meltfptr[345]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V346*/ meltfptr[345])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V346*/ meltfptr[345]))->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V242*/ meltfptr[241]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V345*/ meltfptr[344]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (6>=0 && 6< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V345*/ meltfptr[344])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V345*/ meltfptr[344]))->tabval[6] = (melt_ptr_t)(/*_.VALDATA___V243*/ meltfptr[242]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V346*/ meltfptr[345]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (6>=0 && 6< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V346*/ meltfptr[345])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V346*/ meltfptr[345]))->tabval[6] = (melt_ptr_t)(/*_.VALDATA___V244*/ meltfptr[243]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V345*/ meltfptr[344]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (7>=0 && 7< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V345*/ meltfptr[344])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V345*/ meltfptr[344]))->tabval[7] = (melt_ptr_t)(/*_.VALDATA___V337*/ meltfptr[336]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V346*/ meltfptr[345]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (7>=0 && 7< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V346*/ meltfptr[345])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V346*/ meltfptr[345]))->tabval[7] = (melt_ptr_t)(/*_.VALDATA___V338*/ meltfptr[337]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V345*/ meltfptr[344]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (8>=0 && 8< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V345*/ meltfptr[344])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V345*/ meltfptr[344]))->tabval[8] = (melt_ptr_t)(/*_.VALDATA___V339*/ meltfptr[338]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V346*/ meltfptr[345]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (8>=0 && 8< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V346*/ meltfptr[345])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V346*/ meltfptr[345]))->tabval[8] = (melt_ptr_t)(/*_.VALDATA___V340*/ meltfptr[339]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V345*/ meltfptr[344]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (9>=0 && 9< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V345*/ meltfptr[344])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V345*/ meltfptr[344]))->tabval[9] = (melt_ptr_t)(/*_.VALDATA___V341*/ meltfptr[340]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V346*/ meltfptr[345]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (9>=0 && 9< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V346*/ meltfptr[345])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V346*/ meltfptr[345]))->tabval[9] = (melt_ptr_t)(/*_.VALDATA___V342*/ meltfptr[341]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V345*/ meltfptr[344]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (10>=0 && 10< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V345*/ meltfptr[344])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V345*/ meltfptr[344]))->tabval[10] = (melt_ptr_t)(/*_.VALDATA___V343*/ meltfptr[342]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V346*/ meltfptr[345]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (10>=0 && 10< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V346*/ meltfptr[345])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V346*/ meltfptr[345]))->tabval[10] = (melt_ptr_t)(/*_.VALDATA___V344*/ meltfptr[343]); /*touch:INITUP_*/ - meltgc_touch(/*_.VALTUP___V345*/ meltfptr[344]); + meltgc_touch(/*_.VALTUP___V346*/ meltfptr[345]); MELT_LOCATION("warmelt-normatch.melt:504:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V334*/ meltfptr[333])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V335*/ meltfptr[334])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V334*/ meltfptr[333])))); - ((meltobject_ptr_t)(/*_.VALDATA___V334*/ meltfptr[333]))->obj_vartab[6] = (melt_ptr_t)( - /*_.VALTUP___V345*/ meltfptr[344]); + melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V335*/ meltfptr[334])))); + ((meltobject_ptr_t)(/*_.VALDATA___V335*/ meltfptr[334]))->obj_vartab[6] = (melt_ptr_t)( + /*_.VALTUP___V346*/ meltfptr[345]); MELT_LOCATION("warmelt-normatch.melt:504:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V334*/ meltfptr[333]); + meltgc_touch(/*_.VALDATA___V335*/ meltfptr[334]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V346*/ meltfptr[345])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V347*/ meltfptr[346])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V346*/ meltfptr[345])))); - ((meltobject_ptr_t)(/*_.VALDATA___V346*/ meltfptr[345]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V347*/ meltfptr[346]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V347*/ meltfptr[346])))); + ((meltobject_ptr_t)(/*_.VALDATA___V347*/ meltfptr[346]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V348*/ meltfptr[347]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V346*/ meltfptr[345]); + meltgc_touch(/*_.VALDATA___V347*/ meltfptr[346]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V348*/ meltfptr[347])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V349*/ meltfptr[348])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V348*/ meltfptr[347])))); - ((meltobject_ptr_t)(/*_.VALDATA___V348*/ meltfptr[347]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V349*/ meltfptr[348]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V349*/ meltfptr[348])))); + ((meltobject_ptr_t)(/*_.VALDATA___V349*/ meltfptr[348]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V350*/ meltfptr[349]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V348*/ meltfptr[347]); + meltgc_touch(/*_.VALDATA___V349*/ meltfptr[348]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V350*/ meltfptr[349])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V351*/ meltfptr[350])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V350*/ meltfptr[349])))); - ((meltobject_ptr_t)(/*_.VALDATA___V350*/ meltfptr[349]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V351*/ meltfptr[350]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V351*/ meltfptr[350])))); + ((meltobject_ptr_t)(/*_.VALDATA___V351*/ meltfptr[350]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V352*/ meltfptr[351]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V350*/ meltfptr[349]); + meltgc_touch(/*_.VALDATA___V351*/ meltfptr[350]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V352*/ meltfptr[351])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V353*/ meltfptr[352])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V352*/ meltfptr[351])))); - ((meltobject_ptr_t)(/*_.VALDATA___V352*/ meltfptr[351]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V353*/ meltfptr[352]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V353*/ meltfptr[352])))); + ((meltobject_ptr_t)(/*_.VALDATA___V353*/ meltfptr[352]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V354*/ meltfptr[353]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V352*/ meltfptr[351]); + meltgc_touch(/*_.VALDATA___V353*/ meltfptr[352]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V354*/ meltfptr[353])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V355*/ meltfptr[354])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V354*/ meltfptr[353])))); - ((meltobject_ptr_t)(/*_.VALDATA___V354*/ meltfptr[353]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V355*/ meltfptr[354]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V355*/ meltfptr[354])))); + ((meltobject_ptr_t)(/*_.VALDATA___V355*/ meltfptr[354]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V356*/ meltfptr[355]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V354*/ meltfptr[353]); + meltgc_touch(/*_.VALDATA___V355*/ meltfptr[354]); MELT_LOCATION("warmelt-normatch.melt:516:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V356*/ meltfptr[355])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V357*/ meltfptr[356])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V356*/ meltfptr[355])))); - ((meltobject_ptr_t)(/*_.VALDATA___V356*/ meltfptr[355]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V357*/ meltfptr[356]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V357*/ meltfptr[356])))); + ((meltobject_ptr_t)(/*_.VALDATA___V357*/ meltfptr[356]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V358*/ meltfptr[357]); MELT_LOCATION("warmelt-normatch.melt:516:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V356*/ meltfptr[355])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V357*/ meltfptr[356])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V356*/ meltfptr[355])))); - ((meltobject_ptr_t)(/*_.VALDATA___V356*/ meltfptr[355]))->obj_vartab[4] = (melt_ptr_t)( - /*_.VALDATA___V300*/ meltfptr[299]); + melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V357*/ meltfptr[356])))); + ((meltobject_ptr_t)(/*_.VALDATA___V357*/ meltfptr[356]))->obj_vartab[4] = (melt_ptr_t)( + /*_.VALDATA___V301*/ meltfptr[300]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V358*/ meltfptr[357]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V358*/ meltfptr[357])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V358*/ meltfptr[357]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_NREP_EXPRESSION__V34*/ meltfptr[33]),5))), (0)))); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V359*/ meltfptr[358]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V359*/ meltfptr[358])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V359*/ meltfptr[358]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_NREP_EXPRESSION__V34*/ meltfptr[33]),5))), (0)))); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V358*/ meltfptr[357]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V358*/ meltfptr[357])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V358*/ meltfptr[357]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_NREP_EXPRESSION__V34*/ meltfptr[33]),5))), (1)))); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V359*/ meltfptr[358]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V359*/ meltfptr[358])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V359*/ meltfptr[358]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_NREP_EXPRESSION__V34*/ meltfptr[33]),5))), (1)))); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V358*/ meltfptr[357]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V358*/ meltfptr[357])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V358*/ meltfptr[357]))->tabval[2] = (melt_ptr_t)(/*_.CLASS_NREP_EXPRESSION__V34*/ meltfptr[33]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V359*/ meltfptr[358]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V359*/ meltfptr[358])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V359*/ meltfptr[358]))->tabval[2] = (melt_ptr_t)(/*_.CLASS_NREP_EXPRESSION__V34*/ meltfptr[33]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V358*/ meltfptr[357]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V358*/ meltfptr[357])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V358*/ meltfptr[357]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V230*/ meltfptr[229]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V359*/ meltfptr[358]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V359*/ meltfptr[358])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V359*/ meltfptr[358]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V231*/ meltfptr[230]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V358*/ meltfptr[357]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V358*/ meltfptr[357])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V358*/ meltfptr[357]))->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V300*/ meltfptr[299]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V359*/ meltfptr[358]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V359*/ meltfptr[358])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V359*/ meltfptr[358]))->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V301*/ meltfptr[300]); /*touch:INITUP_*/ - meltgc_touch(/*_.VALTUP___V358*/ meltfptr[357]); + meltgc_touch(/*_.VALTUP___V359*/ meltfptr[358]); MELT_LOCATION("warmelt-normatch.melt:516:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V356*/ meltfptr[355])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V357*/ meltfptr[356])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V356*/ meltfptr[355])))); - ((meltobject_ptr_t)(/*_.VALDATA___V356*/ meltfptr[355]))->obj_vartab[5] = (melt_ptr_t)( - /*_.VALTUP___V358*/ meltfptr[357]); + melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V357*/ meltfptr[356])))); + ((meltobject_ptr_t)(/*_.VALDATA___V357*/ meltfptr[356]))->obj_vartab[5] = (melt_ptr_t)( + /*_.VALTUP___V359*/ meltfptr[358]); MELT_LOCATION("warmelt-normatch.melt:516:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V359*/ meltfptr[358])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V360*/ meltfptr[359])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V359*/ meltfptr[358])))); - ((meltobject_ptr_t)(/*_.VALDATA___V359*/ meltfptr[358]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V360*/ meltfptr[359]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V360*/ meltfptr[359])))); + ((meltobject_ptr_t)(/*_.VALDATA___V360*/ meltfptr[359]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V361*/ meltfptr[360]); MELT_LOCATION("warmelt-normatch.melt:516:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V359*/ meltfptr[358])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V360*/ meltfptr[359])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V359*/ meltfptr[358])))); - ((meltobject_ptr_t)(/*_.VALDATA___V359*/ meltfptr[358]))->obj_vartab[2] = (melt_ptr_t)( - /*_.VALDATA___V356*/ meltfptr[355]); + melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V360*/ meltfptr[359])))); + ((meltobject_ptr_t)(/*_.VALDATA___V360*/ meltfptr[359]))->obj_vartab[2] = (melt_ptr_t)( + /*_.VALDATA___V357*/ meltfptr[356]); MELT_LOCATION("warmelt-normatch.melt:516:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V359*/ meltfptr[358]); + meltgc_touch(/*_.VALDATA___V360*/ meltfptr[359]); MELT_LOCATION("warmelt-normatch.melt:516:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V361*/ meltfptr[360])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V362*/ meltfptr[361])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V361*/ meltfptr[360])))); - ((meltobject_ptr_t)(/*_.VALDATA___V361*/ meltfptr[360]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V362*/ meltfptr[361]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V362*/ meltfptr[361])))); + ((meltobject_ptr_t)(/*_.VALDATA___V362*/ meltfptr[361]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V363*/ meltfptr[362]); MELT_LOCATION("warmelt-normatch.melt:516:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V361*/ meltfptr[360])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V362*/ meltfptr[361])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V361*/ meltfptr[360])))); - ((meltobject_ptr_t)(/*_.VALDATA___V361*/ meltfptr[360]))->obj_vartab[2] = (melt_ptr_t)( - /*_.VALDATA___V356*/ meltfptr[355]); + melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V362*/ meltfptr[361])))); + ((meltobject_ptr_t)(/*_.VALDATA___V362*/ meltfptr[361]))->obj_vartab[2] = (melt_ptr_t)( + /*_.VALDATA___V357*/ meltfptr[356]); MELT_LOCATION("warmelt-normatch.melt:516:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V361*/ meltfptr[360]); + meltgc_touch(/*_.VALDATA___V362*/ meltfptr[361]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V363*/ meltfptr[362]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V363*/ meltfptr[362])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V363*/ meltfptr[362]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_NREP_EXPRESSION__V34*/ meltfptr[33]),6))), (0)))); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V364*/ meltfptr[363]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V364*/ meltfptr[363])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V364*/ meltfptr[363]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_NREP_EXPRESSION__V34*/ meltfptr[33]),6))), (0)))); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V363*/ meltfptr[362]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V363*/ meltfptr[362])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V363*/ meltfptr[362]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V233*/ meltfptr[232]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V364*/ meltfptr[363]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V364*/ meltfptr[363])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V364*/ meltfptr[363]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V234*/ meltfptr[233]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V363*/ meltfptr[362]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V363*/ meltfptr[362])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V363*/ meltfptr[362]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V235*/ meltfptr[234]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V364*/ meltfptr[363]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V364*/ meltfptr[363])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V364*/ meltfptr[363]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V236*/ meltfptr[235]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V363*/ meltfptr[362]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V363*/ meltfptr[362])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V363*/ meltfptr[362]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V237*/ meltfptr[236]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V364*/ meltfptr[363]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V364*/ meltfptr[363])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V364*/ meltfptr[363]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V238*/ meltfptr[237]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V363*/ meltfptr[362]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V363*/ meltfptr[362])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V363*/ meltfptr[362]))->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V239*/ meltfptr[238]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V364*/ meltfptr[363]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V364*/ meltfptr[363])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V364*/ meltfptr[363]))->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V240*/ meltfptr[239]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V363*/ meltfptr[362]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V363*/ meltfptr[362])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V363*/ meltfptr[362]))->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V241*/ meltfptr[240]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V364*/ meltfptr[363]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V364*/ meltfptr[363])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V364*/ meltfptr[363]))->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V242*/ meltfptr[241]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V363*/ meltfptr[362]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (6>=0 && 6< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V363*/ meltfptr[362])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V363*/ meltfptr[362]))->tabval[6] = (melt_ptr_t)(/*_.VALDATA___V243*/ meltfptr[242]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V364*/ meltfptr[363]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (6>=0 && 6< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V364*/ meltfptr[363])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V364*/ meltfptr[363]))->tabval[6] = (melt_ptr_t)(/*_.VALDATA___V244*/ meltfptr[243]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V363*/ meltfptr[362]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (7>=0 && 7< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V363*/ meltfptr[362])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V363*/ meltfptr[362]))->tabval[7] = (melt_ptr_t)(/*_.VALDATA___V359*/ meltfptr[358]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V364*/ meltfptr[363]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (7>=0 && 7< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V364*/ meltfptr[363])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V364*/ meltfptr[363]))->tabval[7] = (melt_ptr_t)(/*_.VALDATA___V360*/ meltfptr[359]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V363*/ meltfptr[362]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (8>=0 && 8< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V363*/ meltfptr[362])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V363*/ meltfptr[362]))->tabval[8] = (melt_ptr_t)(/*_.VALDATA___V361*/ meltfptr[360]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V364*/ meltfptr[363]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (8>=0 && 8< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V364*/ meltfptr[363])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V364*/ meltfptr[363]))->tabval[8] = (melt_ptr_t)(/*_.VALDATA___V362*/ meltfptr[361]); /*touch:INITUP_*/ - meltgc_touch(/*_.VALTUP___V363*/ meltfptr[362]); + meltgc_touch(/*_.VALTUP___V364*/ meltfptr[363]); MELT_LOCATION("warmelt-normatch.melt:516:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V356*/ meltfptr[355])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V357*/ meltfptr[356])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V356*/ meltfptr[355])))); - ((meltobject_ptr_t)(/*_.VALDATA___V356*/ meltfptr[355]))->obj_vartab[6] = (melt_ptr_t)( - /*_.VALTUP___V363*/ meltfptr[362]); + melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V357*/ meltfptr[356])))); + ((meltobject_ptr_t)(/*_.VALDATA___V357*/ meltfptr[356]))->obj_vartab[6] = (melt_ptr_t)( + /*_.VALTUP___V364*/ meltfptr[363]); MELT_LOCATION("warmelt-normatch.melt:516:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V356*/ meltfptr[355]); + meltgc_touch(/*_.VALDATA___V357*/ meltfptr[356]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V364*/ meltfptr[363])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V365*/ meltfptr[364])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V364*/ meltfptr[363])))); - ((meltobject_ptr_t)(/*_.VALDATA___V364*/ meltfptr[363]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V365*/ meltfptr[364]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V365*/ meltfptr[364])))); + ((meltobject_ptr_t)(/*_.VALDATA___V365*/ meltfptr[364]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V366*/ meltfptr[365]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V364*/ meltfptr[363]); + meltgc_touch(/*_.VALDATA___V365*/ meltfptr[364]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V366*/ meltfptr[365])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V367*/ meltfptr[366])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V366*/ meltfptr[365])))); - ((meltobject_ptr_t)(/*_.VALDATA___V366*/ meltfptr[365]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V367*/ meltfptr[366]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V367*/ meltfptr[366])))); + ((meltobject_ptr_t)(/*_.VALDATA___V367*/ meltfptr[366]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V368*/ meltfptr[367]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V366*/ meltfptr[365]); + meltgc_touch(/*_.VALDATA___V367*/ meltfptr[366]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V368*/ meltfptr[367])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V369*/ meltfptr[368])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V368*/ meltfptr[367])))); - ((meltobject_ptr_t)(/*_.VALDATA___V368*/ meltfptr[367]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V369*/ meltfptr[368]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V369*/ meltfptr[368])))); + ((meltobject_ptr_t)(/*_.VALDATA___V369*/ meltfptr[368]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V370*/ meltfptr[369]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V368*/ meltfptr[367]); + meltgc_touch(/*_.VALDATA___V369*/ meltfptr[368]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V370*/ meltfptr[369])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V371*/ meltfptr[370])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V370*/ meltfptr[369])))); - ((meltobject_ptr_t)(/*_.VALDATA___V370*/ meltfptr[369]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V371*/ meltfptr[370]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V371*/ meltfptr[370])))); + ((meltobject_ptr_t)(/*_.VALDATA___V371*/ meltfptr[370]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V372*/ meltfptr[371]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V370*/ meltfptr[369]); + meltgc_touch(/*_.VALDATA___V371*/ meltfptr[370]); MELT_LOCATION("warmelt-normatch.melt:524:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V372*/ meltfptr[371])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V373*/ meltfptr[372])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V372*/ meltfptr[371])))); - ((meltobject_ptr_t)(/*_.VALDATA___V372*/ meltfptr[371]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V373*/ meltfptr[372]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V373*/ meltfptr[372])))); + ((meltobject_ptr_t)(/*_.VALDATA___V373*/ meltfptr[372]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V374*/ meltfptr[373]); MELT_LOCATION("warmelt-normatch.melt:524:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V372*/ meltfptr[371])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V373*/ meltfptr[372])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V372*/ meltfptr[371])))); - ((meltobject_ptr_t)(/*_.VALDATA___V372*/ meltfptr[371]))->obj_vartab[4] = (melt_ptr_t)( + melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V373*/ meltfptr[372])))); + ((meltobject_ptr_t)(/*_.VALDATA___V373*/ meltfptr[372]))->obj_vartab[4] = (melt_ptr_t)( /*_.CLASS_NREP_TYPED_EXPRESSION__V35*/ meltfptr[34]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V374*/ meltfptr[373]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V374*/ meltfptr[373])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V374*/ meltfptr[373]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_NREP_TYPED_EXPRESSION__V35*/ meltfptr[34]),5))), (0)))); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V375*/ meltfptr[374]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V375*/ meltfptr[374])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V375*/ meltfptr[374]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_NREP_TYPED_EXPRESSION__V35*/ meltfptr[34]),5))), (0)))); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V374*/ meltfptr[373]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V374*/ meltfptr[373])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V374*/ meltfptr[373]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_NREP_TYPED_EXPRESSION__V35*/ meltfptr[34]),5))), (1)))); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V375*/ meltfptr[374]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V375*/ meltfptr[374])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V375*/ meltfptr[374]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_NREP_TYPED_EXPRESSION__V35*/ meltfptr[34]),5))), (1)))); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V374*/ meltfptr[373]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V374*/ meltfptr[373])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V374*/ meltfptr[373]))->tabval[2] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_NREP_TYPED_EXPRESSION__V35*/ meltfptr[34]),5))), (2)))); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V375*/ meltfptr[374]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V375*/ meltfptr[374])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V375*/ meltfptr[374]))->tabval[2] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_NREP_TYPED_EXPRESSION__V35*/ meltfptr[34]),5))), (2)))); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V374*/ meltfptr[373]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V374*/ meltfptr[373])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V374*/ meltfptr[373]))->tabval[3] = (melt_ptr_t)(/*_.CLASS_NREP_TYPED_EXPRESSION__V35*/ meltfptr[34]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V375*/ meltfptr[374]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V375*/ meltfptr[374])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V375*/ meltfptr[374]))->tabval[3] = (melt_ptr_t)(/*_.CLASS_NREP_TYPED_EXPRESSION__V35*/ meltfptr[34]); /*touch:INITUP_*/ - meltgc_touch(/*_.VALTUP___V374*/ meltfptr[373]); + meltgc_touch(/*_.VALTUP___V375*/ meltfptr[374]); MELT_LOCATION("warmelt-normatch.melt:524:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V372*/ meltfptr[371])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V373*/ meltfptr[372])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V372*/ meltfptr[371])))); - ((meltobject_ptr_t)(/*_.VALDATA___V372*/ meltfptr[371]))->obj_vartab[5] = (melt_ptr_t)( - /*_.VALTUP___V374*/ meltfptr[373]); + melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V373*/ meltfptr[372])))); + ((meltobject_ptr_t)(/*_.VALDATA___V373*/ meltfptr[372]))->obj_vartab[5] = (melt_ptr_t)( + /*_.VALTUP___V375*/ meltfptr[374]); MELT_LOCATION("warmelt-normatch.melt:524:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V375*/ meltfptr[374])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V376*/ meltfptr[375])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V375*/ meltfptr[374])))); - ((meltobject_ptr_t)(/*_.VALDATA___V375*/ meltfptr[374]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V376*/ meltfptr[375]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V376*/ meltfptr[375])))); + ((meltobject_ptr_t)(/*_.VALDATA___V376*/ meltfptr[375]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V377*/ meltfptr[376]); MELT_LOCATION("warmelt-normatch.melt:524:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V375*/ meltfptr[374])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V376*/ meltfptr[375])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V375*/ meltfptr[374])))); - ((meltobject_ptr_t)(/*_.VALDATA___V375*/ meltfptr[374]))->obj_vartab[2] = (melt_ptr_t)( - /*_.VALDATA___V372*/ meltfptr[371]); + melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V376*/ meltfptr[375])))); + ((meltobject_ptr_t)(/*_.VALDATA___V376*/ meltfptr[375]))->obj_vartab[2] = (melt_ptr_t)( + /*_.VALDATA___V373*/ meltfptr[372]); MELT_LOCATION("warmelt-normatch.melt:524:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V375*/ meltfptr[374]); + meltgc_touch(/*_.VALDATA___V376*/ meltfptr[375]); MELT_LOCATION("warmelt-normatch.melt:524:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V377*/ meltfptr[376])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V378*/ meltfptr[377])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V377*/ meltfptr[376])))); - ((meltobject_ptr_t)(/*_.VALDATA___V377*/ meltfptr[376]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V378*/ meltfptr[377]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V378*/ meltfptr[377])))); + ((meltobject_ptr_t)(/*_.VALDATA___V378*/ meltfptr[377]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V379*/ meltfptr[378]); MELT_LOCATION("warmelt-normatch.melt:524:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V377*/ meltfptr[376])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V378*/ meltfptr[377])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V377*/ meltfptr[376])))); - ((meltobject_ptr_t)(/*_.VALDATA___V377*/ meltfptr[376]))->obj_vartab[2] = (melt_ptr_t)( - /*_.VALDATA___V372*/ meltfptr[371]); + melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V378*/ meltfptr[377])))); + ((meltobject_ptr_t)(/*_.VALDATA___V378*/ meltfptr[377]))->obj_vartab[2] = (melt_ptr_t)( + /*_.VALDATA___V373*/ meltfptr[372]); MELT_LOCATION("warmelt-normatch.melt:524:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V377*/ meltfptr[376]); + meltgc_touch(/*_.VALDATA___V378*/ meltfptr[377]); MELT_LOCATION("warmelt-normatch.melt:524:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V379*/ meltfptr[378])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V380*/ meltfptr[379])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V379*/ meltfptr[378])))); - ((meltobject_ptr_t)(/*_.VALDATA___V379*/ meltfptr[378]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V380*/ meltfptr[379]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V380*/ meltfptr[379])))); + ((meltobject_ptr_t)(/*_.VALDATA___V380*/ meltfptr[379]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V381*/ meltfptr[380]); MELT_LOCATION("warmelt-normatch.melt:524:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V379*/ meltfptr[378])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V380*/ meltfptr[379])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V379*/ meltfptr[378])))); - ((meltobject_ptr_t)(/*_.VALDATA___V379*/ meltfptr[378]))->obj_vartab[2] = (melt_ptr_t)( - /*_.VALDATA___V372*/ meltfptr[371]); + melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V380*/ meltfptr[379])))); + ((meltobject_ptr_t)(/*_.VALDATA___V380*/ meltfptr[379]))->obj_vartab[2] = (melt_ptr_t)( + /*_.VALDATA___V373*/ meltfptr[372]); MELT_LOCATION("warmelt-normatch.melt:524:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V379*/ meltfptr[378]); + meltgc_touch(/*_.VALDATA___V380*/ meltfptr[379]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V381*/ meltfptr[380]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V381*/ meltfptr[380])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V381*/ meltfptr[380]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_NREP_TYPED_EXPRESSION__V35*/ meltfptr[34]),6))), (0)))); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V382*/ meltfptr[381]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V382*/ meltfptr[381])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V382*/ meltfptr[381]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_NREP_TYPED_EXPRESSION__V35*/ meltfptr[34]),6))), (0)))); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V381*/ meltfptr[380]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V381*/ meltfptr[380])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V381*/ meltfptr[380]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_NREP_TYPED_EXPRESSION__V35*/ meltfptr[34]),6))), (1)))); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V382*/ meltfptr[381]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V382*/ meltfptr[381])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V382*/ meltfptr[381]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_NREP_TYPED_EXPRESSION__V35*/ meltfptr[34]),6))), (1)))); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V381*/ meltfptr[380]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V381*/ meltfptr[380])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V381*/ meltfptr[380]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V375*/ meltfptr[374]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V382*/ meltfptr[381]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V382*/ meltfptr[381])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V382*/ meltfptr[381]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V376*/ meltfptr[375]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V381*/ meltfptr[380]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V381*/ meltfptr[380])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V381*/ meltfptr[380]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V377*/ meltfptr[376]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V382*/ meltfptr[381]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V382*/ meltfptr[381])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V382*/ meltfptr[381]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V378*/ meltfptr[377]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V381*/ meltfptr[380]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V381*/ meltfptr[380])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V381*/ meltfptr[380]))->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V379*/ meltfptr[378]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V382*/ meltfptr[381]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V382*/ meltfptr[381])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V382*/ meltfptr[381]))->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V380*/ meltfptr[379]); /*touch:INITUP_*/ - meltgc_touch(/*_.VALTUP___V381*/ meltfptr[380]); + meltgc_touch(/*_.VALTUP___V382*/ meltfptr[381]); MELT_LOCATION("warmelt-normatch.melt:524:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V372*/ meltfptr[371])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V373*/ meltfptr[372])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V372*/ meltfptr[371])))); - ((meltobject_ptr_t)(/*_.VALDATA___V372*/ meltfptr[371]))->obj_vartab[6] = (melt_ptr_t)( - /*_.VALTUP___V381*/ meltfptr[380]); + melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V373*/ meltfptr[372])))); + ((meltobject_ptr_t)(/*_.VALDATA___V373*/ meltfptr[372]))->obj_vartab[6] = (melt_ptr_t)( + /*_.VALTUP___V382*/ meltfptr[381]); MELT_LOCATION("warmelt-normatch.melt:524:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V372*/ meltfptr[371]); + meltgc_touch(/*_.VALDATA___V373*/ meltfptr[372]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V382*/ meltfptr[381])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V383*/ meltfptr[382])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V382*/ meltfptr[381])))); - ((meltobject_ptr_t)(/*_.VALDATA___V382*/ meltfptr[381]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V383*/ meltfptr[382]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V383*/ meltfptr[382])))); + ((meltobject_ptr_t)(/*_.VALDATA___V383*/ meltfptr[382]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V384*/ meltfptr[383]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V382*/ meltfptr[381]); + meltgc_touch(/*_.VALDATA___V383*/ meltfptr[382]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V384*/ meltfptr[383])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V385*/ meltfptr[384])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V384*/ meltfptr[383])))); - ((meltobject_ptr_t)(/*_.VALDATA___V384*/ meltfptr[383]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V385*/ meltfptr[384]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V385*/ meltfptr[384])))); + ((meltobject_ptr_t)(/*_.VALDATA___V385*/ meltfptr[384]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V386*/ meltfptr[385]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V384*/ meltfptr[383]); + meltgc_touch(/*_.VALDATA___V385*/ meltfptr[384]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V386*/ meltfptr[385])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V387*/ meltfptr[386])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V386*/ meltfptr[385])))); - ((meltobject_ptr_t)(/*_.VALDATA___V386*/ meltfptr[385]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V387*/ meltfptr[386]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V387*/ meltfptr[386])))); + ((meltobject_ptr_t)(/*_.VALDATA___V387*/ meltfptr[386]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V388*/ meltfptr[387]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V386*/ meltfptr[385]); + meltgc_touch(/*_.VALDATA___V387*/ meltfptr[386]); MELT_LOCATION("warmelt-normatch.melt:533:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V388*/ meltfptr[387])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V389*/ meltfptr[388])) == OBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_316__REGISTER_NEW_NORMTESTER#0", NULL != (/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8])); - ((meltroutine_ptr_t)/*_.VALROUT___V388*/ meltfptr[387])->tabval[0] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8]); + ((meltroutine_ptr_t)/*_.VALROUT___V389*/ meltfptr[388])->tabval[0] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8]); MELT_LOCATION("warmelt-normatch.melt:533:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V388*/ meltfptr[387])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V230*/ meltfptr[229]); - ((meltroutine_ptr_t)/*_.VALROUT___V388*/ meltfptr[387])->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V230*/ meltfptr[229]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V389*/ meltfptr[388])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V231*/ meltfptr[230]); + ((meltroutine_ptr_t)/*_.VALROUT___V389*/ meltfptr[388])->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V231*/ meltfptr[230]); MELT_LOCATION("warmelt-normatch.melt:533:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V388*/ meltfptr[387])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V77*/ meltfptr[76]); - ((meltroutine_ptr_t)/*_.VALROUT___V388*/ meltfptr[387])->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V77*/ meltfptr[76]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V389*/ meltfptr[388])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V78*/ meltfptr[77]); + ((meltroutine_ptr_t)/*_.VALROUT___V389*/ meltfptr[388])->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V78*/ meltfptr[77]); MELT_LOCATION("warmelt-normatch.melt:533:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V388*/ meltfptr[387])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V389*/ meltfptr[388])) == OBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_316__REGISTER_NEW_NORMTESTER#3", NULL != (/*_.DISCR_LIST__V36*/ meltfptr[35])); - ((meltroutine_ptr_t)/*_.VALROUT___V388*/ meltfptr[387])->tabval[3] = (melt_ptr_t)(/*_.DISCR_LIST__V36*/ meltfptr[35]); + ((meltroutine_ptr_t)/*_.VALROUT___V389*/ meltfptr[388])->tabval[3] = (melt_ptr_t)(/*_.DISCR_LIST__V36*/ meltfptr[35]); MELT_LOCATION("warmelt-normatch.melt:533:/ initchunk"); /*^touch*/ /*touch:IROUTVAL_*/ - meltgc_touch(/*_.VALROUT___V388*/ meltfptr[387]); + meltgc_touch(/*_.VALROUT___V389*/ meltfptr[388]); /*putclosurout*/ - melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V389*/ meltfptr[388])) == OBMAG_CLOSURE); - melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V388*/ meltfptr[387])) == OBMAG_ROUTINE); - ((meltclosure_ptr_t)/*_.VALCLO___V389*/ meltfptr[388])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V388*/ meltfptr[387]); + melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V390*/ meltfptr[389])) == OBMAG_CLOSURE); + melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V389*/ meltfptr[388])) == OBMAG_ROUTINE); + ((meltclosure_ptr_t)/*_.VALCLO___V390*/ meltfptr[389])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V389*/ meltfptr[388]); /*touch:DATACLOSURE_*/ - meltgc_touch(/*_.VALCLO___V389*/ meltfptr[388]); + meltgc_touch(/*_.VALCLO___V390*/ meltfptr[389]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V390*/ meltfptr[389])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V391*/ meltfptr[390])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V390*/ meltfptr[389])))); - ((meltobject_ptr_t)(/*_.VALDATA___V390*/ meltfptr[389]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V391*/ meltfptr[390]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V391*/ meltfptr[390])))); + ((meltobject_ptr_t)(/*_.VALDATA___V391*/ meltfptr[390]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V392*/ meltfptr[391]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V390*/ meltfptr[389]); + meltgc_touch(/*_.VALDATA___V391*/ meltfptr[390]); MELT_LOCATION("warmelt-normatch.melt:564:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V392*/ meltfptr[391])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V393*/ meltfptr[392])) == OBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_320__PUT_TESTER_THEN#0", NULL != (/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8])); - ((meltroutine_ptr_t)/*_.VALROUT___V392*/ meltfptr[391])->tabval[0] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8]); + ((meltroutine_ptr_t)/*_.VALROUT___V393*/ meltfptr[392])->tabval[0] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8]); MELT_LOCATION("warmelt-normatch.melt:564:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V392*/ meltfptr[391])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V230*/ meltfptr[229]); - ((meltroutine_ptr_t)/*_.VALROUT___V392*/ meltfptr[391])->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V230*/ meltfptr[229]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V393*/ meltfptr[392])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V231*/ meltfptr[230]); + ((meltroutine_ptr_t)/*_.VALROUT___V393*/ meltfptr[392])->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V231*/ meltfptr[230]); MELT_LOCATION("warmelt-normatch.melt:564:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V392*/ meltfptr[391])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V260*/ meltfptr[259]); - ((meltroutine_ptr_t)/*_.VALROUT___V392*/ meltfptr[391])->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V260*/ meltfptr[259]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V393*/ meltfptr[392])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V261*/ meltfptr[260]); + ((meltroutine_ptr_t)/*_.VALROUT___V393*/ meltfptr[392])->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V261*/ meltfptr[260]); MELT_LOCATION("warmelt-normatch.melt:564:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V392*/ meltfptr[391])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V306*/ meltfptr[305]); - ((meltroutine_ptr_t)/*_.VALROUT___V392*/ meltfptr[391])->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V306*/ meltfptr[305]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V393*/ meltfptr[392])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V307*/ meltfptr[306]); + ((meltroutine_ptr_t)/*_.VALROUT___V393*/ meltfptr[392])->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V307*/ meltfptr[306]); MELT_LOCATION("warmelt-normatch.melt:564:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V392*/ meltfptr[391])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V393*/ meltfptr[392])) == OBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_320__PUT_TESTER_THEN#4", NULL != (/*_.CLASS_CONTAINER__V37*/ meltfptr[36])); - ((meltroutine_ptr_t)/*_.VALROUT___V392*/ meltfptr[391])->tabval[4] = (melt_ptr_t)(/*_.CLASS_CONTAINER__V37*/ meltfptr[36]); + ((meltroutine_ptr_t)/*_.VALROUT___V393*/ meltfptr[392])->tabval[4] = (melt_ptr_t)(/*_.CLASS_CONTAINER__V37*/ meltfptr[36]); MELT_LOCATION("warmelt-normatch.melt:595:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V394*/ meltfptr[393])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V395*/ meltfptr[394])) == OBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_324__SET_NEW_TESTER_LAST_THEN#0", NULL != (/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8])); - ((meltroutine_ptr_t)/*_.VALROUT___V394*/ meltfptr[393])->tabval[0] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8]); + ((meltroutine_ptr_t)/*_.VALROUT___V395*/ meltfptr[394])->tabval[0] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8]); MELT_LOCATION("warmelt-normatch.melt:595:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V394*/ meltfptr[393])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V230*/ meltfptr[229]); - ((meltroutine_ptr_t)/*_.VALROUT___V394*/ meltfptr[393])->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V230*/ meltfptr[229]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V395*/ meltfptr[394])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V231*/ meltfptr[230]); + ((meltroutine_ptr_t)/*_.VALROUT___V395*/ meltfptr[394])->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V231*/ meltfptr[230]); MELT_LOCATION("warmelt-normatch.melt:595:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V394*/ meltfptr[393])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V395*/ meltfptr[394])) == OBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_324__SET_NEW_TESTER_LAST_THEN#2", NULL != (/*_.CLASS_CONTAINER__V37*/ meltfptr[36])); - ((meltroutine_ptr_t)/*_.VALROUT___V394*/ meltfptr[393])->tabval[2] = (melt_ptr_t)(/*_.CLASS_CONTAINER__V37*/ meltfptr[36]); + ((meltroutine_ptr_t)/*_.VALROUT___V395*/ meltfptr[394])->tabval[2] = (melt_ptr_t)(/*_.CLASS_CONTAINER__V37*/ meltfptr[36]); /*putclosurout*/ - melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V395*/ meltfptr[394])) == OBMAG_CLOSURE); - melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V392*/ meltfptr[391])) == OBMAG_ROUTINE); - ((meltclosure_ptr_t)/*_.VALCLO___V395*/ meltfptr[394])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V392*/ meltfptr[391]); + melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V396*/ meltfptr[395])) == OBMAG_CLOSURE); + melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V393*/ meltfptr[392])) == OBMAG_ROUTINE); + ((meltclosure_ptr_t)/*_.VALCLO___V396*/ meltfptr[395])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V393*/ meltfptr[392]); /*touch:DATACLOSURE_*/ - meltgc_touch(/*_.VALCLO___V395*/ meltfptr[394]); + meltgc_touch(/*_.VALCLO___V396*/ meltfptr[395]); MELT_LOCATION("warmelt-normatch.melt:595:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V394*/ meltfptr[393])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V395*/ meltfptr[394]); - ((meltroutine_ptr_t)/*_.VALROUT___V394*/ meltfptr[393])->tabval[3] = (melt_ptr_t)(/*_.VALCLO___V395*/ meltfptr[394]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V395*/ meltfptr[394])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V396*/ meltfptr[395]); + ((meltroutine_ptr_t)/*_.VALROUT___V395*/ meltfptr[394])->tabval[3] = (melt_ptr_t)(/*_.VALCLO___V396*/ meltfptr[395]); MELT_LOCATION("warmelt-normatch.melt:595:/ initchunk"); /*^touch*/ /*touch:IROUTVAL_*/ - meltgc_touch(/*_.VALROUT___V394*/ meltfptr[393]); + meltgc_touch(/*_.VALROUT___V395*/ meltfptr[394]); /*putclosurout*/ - melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V393*/ meltfptr[392])) == OBMAG_CLOSURE); - melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V394*/ meltfptr[393])) == OBMAG_ROUTINE); - ((meltclosure_ptr_t)/*_.VALCLO___V393*/ meltfptr[392])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V394*/ meltfptr[393]); + melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V394*/ meltfptr[393])) == OBMAG_CLOSURE); + melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V395*/ meltfptr[394])) == OBMAG_ROUTINE); + ((meltclosure_ptr_t)/*_.VALCLO___V394*/ meltfptr[393])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V395*/ meltfptr[394]); /*touch:DATACLOSURE_*/ - meltgc_touch(/*_.VALCLO___V393*/ meltfptr[392]); + meltgc_touch(/*_.VALCLO___V394*/ meltfptr[393]); MELT_LOCATION("warmelt-normatch.melt:564:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V392*/ meltfptr[391])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V393*/ meltfptr[392]); - ((meltroutine_ptr_t)/*_.VALROUT___V392*/ meltfptr[391])->tabval[5] = (melt_ptr_t)(/*_.VALCLO___V393*/ meltfptr[392]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V393*/ meltfptr[392])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V394*/ meltfptr[393]); + ((meltroutine_ptr_t)/*_.VALROUT___V393*/ meltfptr[392])->tabval[5] = (melt_ptr_t)(/*_.VALCLO___V394*/ meltfptr[393]); MELT_LOCATION("warmelt-normatch.melt:564:/ initchunk"); /*^touch*/ /*touch:IROUTVAL_*/ - meltgc_touch(/*_.VALROUT___V392*/ meltfptr[391]); + meltgc_touch(/*_.VALROUT___V393*/ meltfptr[392]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V396*/ meltfptr[395])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V397*/ meltfptr[396])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V396*/ meltfptr[395])))); - ((meltobject_ptr_t)(/*_.VALDATA___V396*/ meltfptr[395]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V397*/ meltfptr[396]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V397*/ meltfptr[396])))); + ((meltobject_ptr_t)(/*_.VALDATA___V397*/ meltfptr[396]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V398*/ meltfptr[397]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V396*/ meltfptr[395]); + meltgc_touch(/*_.VALDATA___V397*/ meltfptr[396]); MELT_LOCATION("warmelt-normatch.melt:621:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V398*/ meltfptr[397])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V399*/ meltfptr[398])) == OBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_326__SET_NEW_TESTER_ALL_ELSES#0", NULL != (/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8])); - ((meltroutine_ptr_t)/*_.VALROUT___V398*/ meltfptr[397])->tabval[0] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8]); + ((meltroutine_ptr_t)/*_.VALROUT___V399*/ meltfptr[398])->tabval[0] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8]); MELT_LOCATION("warmelt-normatch.melt:621:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V398*/ meltfptr[397])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V230*/ meltfptr[229]); - ((meltroutine_ptr_t)/*_.VALROUT___V398*/ meltfptr[397])->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V230*/ meltfptr[229]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V399*/ meltfptr[398])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V231*/ meltfptr[230]); + ((meltroutine_ptr_t)/*_.VALROUT___V399*/ meltfptr[398])->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V231*/ meltfptr[230]); MELT_LOCATION("warmelt-normatch.melt:621:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V398*/ meltfptr[397])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V399*/ meltfptr[398])) == OBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_326__SET_NEW_TESTER_ALL_ELSES#2", NULL != (/*_.DISCR_LIST__V36*/ meltfptr[35])); - ((meltroutine_ptr_t)/*_.VALROUT___V398*/ meltfptr[397])->tabval[2] = (melt_ptr_t)(/*_.DISCR_LIST__V36*/ meltfptr[35]); + ((meltroutine_ptr_t)/*_.VALROUT___V399*/ meltfptr[398])->tabval[2] = (melt_ptr_t)(/*_.DISCR_LIST__V36*/ meltfptr[35]); MELT_LOCATION("warmelt-normatch.melt:621:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V398*/ meltfptr[397])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V300*/ meltfptr[299]); - ((meltroutine_ptr_t)/*_.VALROUT___V398*/ meltfptr[397])->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V300*/ meltfptr[299]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V399*/ meltfptr[398])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V301*/ meltfptr[300]); + ((meltroutine_ptr_t)/*_.VALROUT___V399*/ meltfptr[398])->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V301*/ meltfptr[300]); /*putclosurout*/ - melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V399*/ meltfptr[398])) == OBMAG_CLOSURE); - melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V398*/ meltfptr[397])) == OBMAG_ROUTINE); - ((meltclosure_ptr_t)/*_.VALCLO___V399*/ meltfptr[398])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V398*/ meltfptr[397]); + melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V400*/ meltfptr[399])) == OBMAG_CLOSURE); + melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V399*/ meltfptr[398])) == OBMAG_ROUTINE); + ((meltclosure_ptr_t)/*_.VALCLO___V400*/ meltfptr[399])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V399*/ meltfptr[398]); /*touch:DATACLOSURE_*/ - meltgc_touch(/*_.VALCLO___V399*/ meltfptr[398]); + meltgc_touch(/*_.VALCLO___V400*/ meltfptr[399]); MELT_LOCATION("warmelt-normatch.melt:621:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V398*/ meltfptr[397])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V399*/ meltfptr[398]); - ((meltroutine_ptr_t)/*_.VALROUT___V398*/ meltfptr[397])->tabval[4] = (melt_ptr_t)(/*_.VALCLO___V399*/ meltfptr[398]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V399*/ meltfptr[398])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V400*/ meltfptr[399]); + ((meltroutine_ptr_t)/*_.VALROUT___V399*/ meltfptr[398])->tabval[4] = (melt_ptr_t)(/*_.VALCLO___V400*/ meltfptr[399]); MELT_LOCATION("warmelt-normatch.melt:621:/ initchunk"); /*^touch*/ /*touch:IROUTVAL_*/ - meltgc_touch(/*_.VALROUT___V398*/ meltfptr[397]); + meltgc_touch(/*_.VALROUT___V399*/ meltfptr[398]); MELT_LOCATION("warmelt-normatch.melt:685:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V400*/ meltfptr[399])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V401*/ meltfptr[400])) == OBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_328__NORMPAT_ANYRECV#0", NULL != (/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8])); - ((meltroutine_ptr_t)/*_.VALROUT___V400*/ meltfptr[399])->tabval[0] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8]); + ((meltroutine_ptr_t)/*_.VALROUT___V401*/ meltfptr[400])->tabval[0] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8]); MELT_LOCATION("warmelt-normatch.melt:685:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V400*/ meltfptr[399])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V77*/ meltfptr[76]); - ((meltroutine_ptr_t)/*_.VALROUT___V400*/ meltfptr[399])->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V77*/ meltfptr[76]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V401*/ meltfptr[400])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V78*/ meltfptr[77]); + ((meltroutine_ptr_t)/*_.VALROUT___V401*/ meltfptr[400])->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V78*/ meltfptr[77]); MELT_LOCATION("warmelt-normatch.melt:685:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V400*/ meltfptr[399])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V401*/ meltfptr[400])) == OBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_328__NORMPAT_ANYRECV#2", NULL != (/*_.CLASS_NAMED__V10*/ meltfptr[9])); - ((meltroutine_ptr_t)/*_.VALROUT___V400*/ meltfptr[399])->tabval[2] = (melt_ptr_t)(/*_.CLASS_NAMED__V10*/ meltfptr[9]); + ((meltroutine_ptr_t)/*_.VALROUT___V401*/ meltfptr[400])->tabval[2] = (melt_ptr_t)(/*_.CLASS_NAMED__V10*/ meltfptr[9]); MELT_LOCATION("warmelt-normatch.melt:685:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V400*/ meltfptr[399])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V401*/ meltfptr[400])) == OBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_328__NORMPAT_ANYRECV#3", NULL != (/*_.CLASS_LOCATED__V38*/ meltfptr[37])); - ((meltroutine_ptr_t)/*_.VALROUT___V400*/ meltfptr[399])->tabval[3] = (melt_ptr_t)(/*_.CLASS_LOCATED__V38*/ meltfptr[37]); + ((meltroutine_ptr_t)/*_.VALROUT___V401*/ meltfptr[400])->tabval[3] = (melt_ptr_t)(/*_.CLASS_LOCATED__V38*/ meltfptr[37]); MELT_LOCATION("warmelt-normatch.melt:685:/ initchunk"); /*^touch*/ /*touch:IROUTVAL_*/ - meltgc_touch(/*_.VALROUT___V400*/ meltfptr[399]); + meltgc_touch(/*_.VALROUT___V401*/ meltfptr[400]); /*putclosurout*/ - melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V401*/ meltfptr[400])) == OBMAG_CLOSURE); - melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V400*/ meltfptr[399])) == OBMAG_ROUTINE); - ((meltclosure_ptr_t)/*_.VALCLO___V401*/ meltfptr[400])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V400*/ meltfptr[399]); + melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V402*/ meltfptr[401])) == OBMAG_CLOSURE); + melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V401*/ meltfptr[400])) == OBMAG_ROUTINE); + ((meltclosure_ptr_t)/*_.VALCLO___V402*/ meltfptr[401])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V401*/ meltfptr[400]); /*touch:DATACLOSURE_*/ - meltgc_touch(/*_.VALCLO___V401*/ meltfptr[400]); + meltgc_touch(/*_.VALCLO___V402*/ meltfptr[401]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V402*/ meltfptr[401])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V403*/ meltfptr[402])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V402*/ meltfptr[401])))); - ((meltobject_ptr_t)(/*_.VALDATA___V402*/ meltfptr[401]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V403*/ meltfptr[402]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V403*/ meltfptr[402])))); + ((meltobject_ptr_t)(/*_.VALDATA___V403*/ meltfptr[402]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V404*/ meltfptr[403]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V402*/ meltfptr[401]); + meltgc_touch(/*_.VALDATA___V403*/ meltfptr[402]); MELT_LOCATION("warmelt-normatch.melt:701:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V404*/ meltfptr[403])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V405*/ meltfptr[404])) == OBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_332__NORMPAT_ANYPAT#0", NULL != (/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8])); - ((meltroutine_ptr_t)/*_.VALROUT___V404*/ meltfptr[403])->tabval[0] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8]); + ((meltroutine_ptr_t)/*_.VALROUT___V405*/ meltfptr[404])->tabval[0] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8]); MELT_LOCATION("warmelt-normatch.melt:701:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V404*/ meltfptr[403])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V77*/ meltfptr[76]); - ((meltroutine_ptr_t)/*_.VALROUT___V404*/ meltfptr[403])->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V77*/ meltfptr[76]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V405*/ meltfptr[404])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V78*/ meltfptr[77]); + ((meltroutine_ptr_t)/*_.VALROUT___V405*/ meltfptr[404])->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V78*/ meltfptr[77]); MELT_LOCATION("warmelt-normatch.melt:701:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V404*/ meltfptr[403])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V405*/ meltfptr[404])) == OBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_332__NORMPAT_ANYPAT#2", NULL != (/*_.CLASS_SOURCE_PATTERN__V13*/ meltfptr[12])); - ((meltroutine_ptr_t)/*_.VALROUT___V404*/ meltfptr[403])->tabval[2] = (melt_ptr_t)(/*_.CLASS_SOURCE_PATTERN__V13*/ meltfptr[12]); + ((meltroutine_ptr_t)/*_.VALROUT___V405*/ meltfptr[404])->tabval[2] = (melt_ptr_t)(/*_.CLASS_SOURCE_PATTERN__V13*/ meltfptr[12]); MELT_LOCATION("warmelt-normatch.melt:701:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V404*/ meltfptr[403])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V405*/ meltfptr[404])) == OBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_332__NORMPAT_ANYPAT#3", NULL != (/*_.CLASS_NAMED__V10*/ meltfptr[9])); - ((meltroutine_ptr_t)/*_.VALROUT___V404*/ meltfptr[403])->tabval[3] = (melt_ptr_t)(/*_.CLASS_NAMED__V10*/ meltfptr[9]); + ((meltroutine_ptr_t)/*_.VALROUT___V405*/ meltfptr[404])->tabval[3] = (melt_ptr_t)(/*_.CLASS_NAMED__V10*/ meltfptr[9]); MELT_LOCATION("warmelt-normatch.melt:701:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V404*/ meltfptr[403])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V405*/ meltfptr[404])) == OBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_332__NORMPAT_ANYPAT#4", NULL != (/*_.CLASS_LOCATED__V38*/ meltfptr[37])); - ((meltroutine_ptr_t)/*_.VALROUT___V404*/ meltfptr[403])->tabval[4] = (melt_ptr_t)(/*_.CLASS_LOCATED__V38*/ meltfptr[37]); + ((meltroutine_ptr_t)/*_.VALROUT___V405*/ meltfptr[404])->tabval[4] = (melt_ptr_t)(/*_.CLASS_LOCATED__V38*/ meltfptr[37]); MELT_LOCATION("warmelt-normatch.melt:701:/ initchunk"); /*^touch*/ /*touch:IROUTVAL_*/ - meltgc_touch(/*_.VALROUT___V404*/ meltfptr[403]); + meltgc_touch(/*_.VALROUT___V405*/ meltfptr[404]); /*putclosurout*/ - melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V405*/ meltfptr[404])) == OBMAG_CLOSURE); - melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V404*/ meltfptr[403])) == OBMAG_ROUTINE); - ((meltclosure_ptr_t)/*_.VALCLO___V405*/ meltfptr[404])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V404*/ meltfptr[403]); + melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V406*/ meltfptr[405])) == OBMAG_CLOSURE); + melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V405*/ meltfptr[404])) == OBMAG_ROUTINE); + ((meltclosure_ptr_t)/*_.VALCLO___V406*/ meltfptr[405])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V405*/ meltfptr[404]); /*touch:DATACLOSURE_*/ - meltgc_touch(/*_.VALCLO___V405*/ meltfptr[404]); + meltgc_touch(/*_.VALCLO___V406*/ meltfptr[405]); MELT_LOCATION("warmelt-normatch.melt:720:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V406*/ meltfptr[405])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V77*/ meltfptr[76]); - ((meltroutine_ptr_t)/*_.VALROUT___V406*/ meltfptr[405])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V77*/ meltfptr[76]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V407*/ meltfptr[406])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V78*/ meltfptr[77]); + ((meltroutine_ptr_t)/*_.VALROUT___V407*/ meltfptr[406])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V78*/ meltfptr[77]); MELT_LOCATION("warmelt-normatch.melt:720:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V406*/ meltfptr[405])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V407*/ meltfptr[406])) == OBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_334__NORMVARPAT_GENREUSETEST#1", NULL != (/*_.CLASS_NREP_LOCSYMOCC__V39*/ meltfptr[38])); - ((meltroutine_ptr_t)/*_.VALROUT___V406*/ meltfptr[405])->tabval[1] = (melt_ptr_t)(/*_.CLASS_NREP_LOCSYMOCC__V39*/ meltfptr[38]); + ((meltroutine_ptr_t)/*_.VALROUT___V407*/ meltfptr[406])->tabval[1] = (melt_ptr_t)(/*_.CLASS_NREP_LOCSYMOCC__V39*/ meltfptr[38]); MELT_LOCATION("warmelt-normatch.melt:720:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V406*/ meltfptr[405])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V407*/ meltfptr[406])) == OBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_334__NORMVARPAT_GENREUSETEST#2", NULL != (/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8])); - ((meltroutine_ptr_t)/*_.VALROUT___V406*/ meltfptr[405])->tabval[2] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8]); + ((meltroutine_ptr_t)/*_.VALROUT___V407*/ meltfptr[406])->tabval[2] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8]); MELT_LOCATION("warmelt-normatch.melt:720:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V406*/ meltfptr[405])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V324*/ meltfptr[323]); - ((meltroutine_ptr_t)/*_.VALROUT___V406*/ meltfptr[405])->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V324*/ meltfptr[323]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V407*/ meltfptr[406])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V325*/ meltfptr[324]); + ((meltroutine_ptr_t)/*_.VALROUT___V407*/ meltfptr[406])->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V325*/ meltfptr[324]); MELT_LOCATION("warmelt-normatch.melt:720:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V406*/ meltfptr[405])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V230*/ meltfptr[229]); - ((meltroutine_ptr_t)/*_.VALROUT___V406*/ meltfptr[405])->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V230*/ meltfptr[229]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V407*/ meltfptr[406])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V231*/ meltfptr[230]); + ((meltroutine_ptr_t)/*_.VALROUT___V407*/ meltfptr[406])->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V231*/ meltfptr[230]); MELT_LOCATION("warmelt-normatch.melt:720:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V406*/ meltfptr[405])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V230*/ meltfptr[229]); - ((meltroutine_ptr_t)/*_.VALROUT___V406*/ meltfptr[405])->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V230*/ meltfptr[229]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V407*/ meltfptr[406])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V231*/ meltfptr[230]); + ((meltroutine_ptr_t)/*_.VALROUT___V407*/ meltfptr[406])->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V231*/ meltfptr[230]); MELT_LOCATION("warmelt-normatch.melt:720:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V406*/ meltfptr[405])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V407*/ meltfptr[406])) == OBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_334__NORMVARPAT_GENREUSETEST#6", NULL != (/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8])); - ((meltroutine_ptr_t)/*_.VALROUT___V406*/ meltfptr[405])->tabval[6] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8]); + ((meltroutine_ptr_t)/*_.VALROUT___V407*/ meltfptr[406])->tabval[6] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8]); MELT_LOCATION("warmelt-normatch.melt:738:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V407*/ meltfptr[406])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V230*/ meltfptr[229]); - ((meltroutine_ptr_t)/*_.VALROUT___V407*/ meltfptr[406])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V230*/ meltfptr[229]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V408*/ meltfptr[407])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V231*/ meltfptr[230]); + ((meltroutine_ptr_t)/*_.VALROUT___V408*/ meltfptr[407])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V231*/ meltfptr[230]); MELT_LOCATION("warmelt-normatch.melt:738:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V407*/ meltfptr[406])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V408*/ meltfptr[407])) == OBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_338__LAMBDA_#1", NULL != (/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8])); - ((meltroutine_ptr_t)/*_.VALROUT___V407*/ meltfptr[406])->tabval[1] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8]); + ((meltroutine_ptr_t)/*_.VALROUT___V408*/ meltfptr[407])->tabval[1] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8]); MELT_LOCATION("warmelt-normatch.melt:738:/ initchunk"); /*^touch*/ /*touch:IROUTVAL_*/ - meltgc_touch(/*_.VALROUT___V407*/ meltfptr[406]); + meltgc_touch(/*_.VALROUT___V408*/ meltfptr[407]); MELT_LOCATION("warmelt-normatch.melt:720:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V406*/ meltfptr[405])) == OBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_334__NORMVARPAT_GENREUSETEST#7", NULL != (/*_.VALROUT___V407*/ meltfptr[406])); - ((meltroutine_ptr_t)/*_.VALROUT___V406*/ meltfptr[405])->tabval[7] = (melt_ptr_t)(/*_.VALROUT___V407*/ meltfptr[406]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V407*/ meltfptr[406])) == OBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_334__NORMVARPAT_GENREUSETEST#7", NULL != (/*_.VALROUT___V408*/ meltfptr[407])); + ((meltroutine_ptr_t)/*_.VALROUT___V407*/ meltfptr[406])->tabval[7] = (melt_ptr_t)(/*_.VALROUT___V408*/ meltfptr[407]); MELT_LOCATION("warmelt-normatch.melt:720:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V406*/ meltfptr[405])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V407*/ meltfptr[406])) == OBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_334__NORMVARPAT_GENREUSETEST#8", NULL != (/*_.DISCR_LIST__V36*/ meltfptr[35])); - ((meltroutine_ptr_t)/*_.VALROUT___V406*/ meltfptr[405])->tabval[8] = (melt_ptr_t)(/*_.DISCR_LIST__V36*/ meltfptr[35]); + ((meltroutine_ptr_t)/*_.VALROUT___V407*/ meltfptr[406])->tabval[8] = (melt_ptr_t)(/*_.DISCR_LIST__V36*/ meltfptr[35]); MELT_LOCATION("warmelt-normatch.melt:720:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V406*/ meltfptr[405])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V389*/ meltfptr[388]); - ((meltroutine_ptr_t)/*_.VALROUT___V406*/ meltfptr[405])->tabval[9] = (melt_ptr_t)(/*_.VALCLO___V389*/ meltfptr[388]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V407*/ meltfptr[406])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V390*/ meltfptr[389]); + ((meltroutine_ptr_t)/*_.VALROUT___V407*/ meltfptr[406])->tabval[9] = (melt_ptr_t)(/*_.VALCLO___V390*/ meltfptr[389]); MELT_LOCATION("warmelt-normatch.melt:720:/ initchunk"); /*^touch*/ /*touch:IROUTVAL_*/ - meltgc_touch(/*_.VALROUT___V406*/ meltfptr[405]); + meltgc_touch(/*_.VALROUT___V407*/ meltfptr[406]); /*putclosurout*/ - melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V408*/ meltfptr[407])) == OBMAG_CLOSURE); - melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V406*/ meltfptr[405])) == OBMAG_ROUTINE); - ((meltclosure_ptr_t)/*_.VALCLO___V408*/ meltfptr[407])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V406*/ meltfptr[405]); + melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V409*/ meltfptr[408])) == OBMAG_CLOSURE); + melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V407*/ meltfptr[406])) == OBMAG_ROUTINE); + ((meltclosure_ptr_t)/*_.VALCLO___V409*/ meltfptr[408])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V407*/ meltfptr[406]); /*touch:DATACLOSURE_*/ - meltgc_touch(/*_.VALCLO___V408*/ meltfptr[407]); + meltgc_touch(/*_.VALCLO___V409*/ meltfptr[408]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V409*/ meltfptr[408])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V410*/ meltfptr[409])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V409*/ meltfptr[408])))); - ((meltobject_ptr_t)(/*_.VALDATA___V409*/ meltfptr[408]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V410*/ meltfptr[409]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V410*/ meltfptr[409])))); + ((meltobject_ptr_t)(/*_.VALDATA___V410*/ meltfptr[409]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V411*/ meltfptr[410]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V409*/ meltfptr[408]); + meltgc_touch(/*_.VALDATA___V410*/ meltfptr[409]); MELT_LOCATION("warmelt-normatch.melt:772:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V411*/ meltfptr[410])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V412*/ meltfptr[411])) == OBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_339__NORMPAT_VARIABLEPAT#0", NULL != (/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8])); - ((meltroutine_ptr_t)/*_.VALROUT___V411*/ meltfptr[410])->tabval[0] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8]); + ((meltroutine_ptr_t)/*_.VALROUT___V412*/ meltfptr[411])->tabval[0] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8]); MELT_LOCATION("warmelt-normatch.melt:772:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V411*/ meltfptr[410])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V412*/ meltfptr[411])) == OBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_339__NORMPAT_VARIABLEPAT#1", NULL != (/*_.CLASS_SOURCE_PATTERN_VARIABLE__V14*/ meltfptr[13])); - ((meltroutine_ptr_t)/*_.VALROUT___V411*/ meltfptr[410])->tabval[1] = (melt_ptr_t)(/*_.CLASS_SOURCE_PATTERN_VARIABLE__V14*/ meltfptr[13]); + ((meltroutine_ptr_t)/*_.VALROUT___V412*/ meltfptr[411])->tabval[1] = (melt_ptr_t)(/*_.CLASS_SOURCE_PATTERN_VARIABLE__V14*/ meltfptr[13]); MELT_LOCATION("warmelt-normatch.melt:772:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V411*/ meltfptr[410])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V77*/ meltfptr[76]); - ((meltroutine_ptr_t)/*_.VALROUT___V411*/ meltfptr[410])->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V77*/ meltfptr[76]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V412*/ meltfptr[411])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V78*/ meltfptr[77]); + ((meltroutine_ptr_t)/*_.VALROUT___V412*/ meltfptr[411])->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V78*/ meltfptr[77]); MELT_LOCATION("warmelt-normatch.melt:772:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V411*/ meltfptr[410])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V412*/ meltfptr[411])) == OBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_339__NORMPAT_VARIABLEPAT#3", NULL != (/*_.CLASS_LOCATED__V38*/ meltfptr[37])); - ((meltroutine_ptr_t)/*_.VALROUT___V411*/ meltfptr[410])->tabval[3] = (melt_ptr_t)(/*_.CLASS_LOCATED__V38*/ meltfptr[37]); + ((meltroutine_ptr_t)/*_.VALROUT___V412*/ meltfptr[411])->tabval[3] = (melt_ptr_t)(/*_.CLASS_LOCATED__V38*/ meltfptr[37]); MELT_LOCATION("warmelt-normatch.melt:772:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V411*/ meltfptr[410])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V412*/ meltfptr[411])) == OBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_339__NORMPAT_VARIABLEPAT#4", NULL != (/*_.CLASS_NREP_LOCSYMOCC__V39*/ meltfptr[38])); - ((meltroutine_ptr_t)/*_.VALROUT___V411*/ meltfptr[410])->tabval[4] = (melt_ptr_t)(/*_.CLASS_NREP_LOCSYMOCC__V39*/ meltfptr[38]); + ((meltroutine_ptr_t)/*_.VALROUT___V412*/ meltfptr[411])->tabval[4] = (melt_ptr_t)(/*_.CLASS_NREP_LOCSYMOCC__V39*/ meltfptr[38]); MELT_LOCATION("warmelt-normatch.melt:772:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V411*/ meltfptr[410])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V408*/ meltfptr[407]); - ((meltroutine_ptr_t)/*_.VALROUT___V411*/ meltfptr[410])->tabval[5] = (melt_ptr_t)(/*_.VALCLO___V408*/ meltfptr[407]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V412*/ meltfptr[411])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V409*/ meltfptr[408]); + ((meltroutine_ptr_t)/*_.VALROUT___V412*/ meltfptr[411])->tabval[5] = (melt_ptr_t)(/*_.VALCLO___V409*/ meltfptr[408]); MELT_LOCATION("warmelt-normatch.melt:772:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V411*/ meltfptr[410])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V206*/ meltfptr[205]); - ((meltroutine_ptr_t)/*_.VALROUT___V411*/ meltfptr[410])->tabval[6] = (melt_ptr_t)(/*_.VALDATA___V206*/ meltfptr[205]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V412*/ meltfptr[411])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V207*/ meltfptr[206]); + ((meltroutine_ptr_t)/*_.VALROUT___V412*/ meltfptr[411])->tabval[6] = (melt_ptr_t)(/*_.VALDATA___V207*/ meltfptr[206]); MELT_LOCATION("warmelt-normatch.melt:772:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V411*/ meltfptr[410])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V412*/ meltfptr[411])) == OBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_339__NORMPAT_VARIABLEPAT#7", NULL != (/*_.GET_CTYPE__V19*/ meltfptr[18])); - ((meltroutine_ptr_t)/*_.VALROUT___V411*/ meltfptr[410])->tabval[7] = (melt_ptr_t)(/*_.GET_CTYPE__V19*/ meltfptr[18]); + ((meltroutine_ptr_t)/*_.VALROUT___V412*/ meltfptr[411])->tabval[7] = (melt_ptr_t)(/*_.GET_CTYPE__V19*/ meltfptr[18]); MELT_LOCATION("warmelt-normatch.melt:772:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V411*/ meltfptr[410])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V412*/ meltfptr[411])) == OBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_339__NORMPAT_VARIABLEPAT#8", NULL != (/*_.CLASS_NORMAL_LET_BINDING__V40*/ meltfptr[39])); - ((meltroutine_ptr_t)/*_.VALROUT___V411*/ meltfptr[410])->tabval[8] = (melt_ptr_t)(/*_.CLASS_NORMAL_LET_BINDING__V40*/ meltfptr[39]); + ((meltroutine_ptr_t)/*_.VALROUT___V412*/ meltfptr[411])->tabval[8] = (melt_ptr_t)(/*_.CLASS_NORMAL_LET_BINDING__V40*/ meltfptr[39]); MELT_LOCATION("warmelt-normatch.melt:772:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V411*/ meltfptr[410])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V412*/ meltfptr[411])) == OBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_339__NORMPAT_VARIABLEPAT#9", NULL != (/*_.CLASS_NORMALIZATION_CONTEXT__V41*/ meltfptr[40])); - ((meltroutine_ptr_t)/*_.VALROUT___V411*/ meltfptr[410])->tabval[9] = (melt_ptr_t)(/*_.CLASS_NORMALIZATION_CONTEXT__V41*/ meltfptr[40]); + ((meltroutine_ptr_t)/*_.VALROUT___V412*/ meltfptr[411])->tabval[9] = (melt_ptr_t)(/*_.CLASS_NORMALIZATION_CONTEXT__V41*/ meltfptr[40]); MELT_LOCATION("warmelt-normatch.melt:772:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V411*/ meltfptr[410])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V412*/ meltfptr[411])) == OBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_339__NORMPAT_VARIABLEPAT#10", NULL != (/*_.CLASS_NAMED__V10*/ meltfptr[9])); - ((meltroutine_ptr_t)/*_.VALROUT___V411*/ meltfptr[410])->tabval[10] = (melt_ptr_t)(/*_.CLASS_NAMED__V10*/ meltfptr[9]); + ((meltroutine_ptr_t)/*_.VALROUT___V412*/ meltfptr[411])->tabval[10] = (melt_ptr_t)(/*_.CLASS_NAMED__V10*/ meltfptr[9]); MELT_LOCATION("warmelt-normatch.melt:772:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V411*/ meltfptr[410])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V412*/ meltfptr[411])) == OBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_339__NORMPAT_VARIABLEPAT#11", NULL != (/*_.CLASS_CTYPE__V20*/ meltfptr[19])); - ((meltroutine_ptr_t)/*_.VALROUT___V411*/ meltfptr[410])->tabval[11] = (melt_ptr_t)(/*_.CLASS_CTYPE__V20*/ meltfptr[19]); + ((meltroutine_ptr_t)/*_.VALROUT___V412*/ meltfptr[411])->tabval[11] = (melt_ptr_t)(/*_.CLASS_CTYPE__V20*/ meltfptr[19]); MELT_LOCATION("warmelt-normatch.melt:772:/ initchunk"); /*^touch*/ /*touch:IROUTVAL_*/ - meltgc_touch(/*_.VALROUT___V411*/ meltfptr[410]); + meltgc_touch(/*_.VALROUT___V412*/ meltfptr[411]); /*putclosurout*/ - melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V412*/ meltfptr[411])) == OBMAG_CLOSURE); - melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V411*/ meltfptr[410])) == OBMAG_ROUTINE); - ((meltclosure_ptr_t)/*_.VALCLO___V412*/ meltfptr[411])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V411*/ meltfptr[410]); + melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V413*/ meltfptr[412])) == OBMAG_CLOSURE); + melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V412*/ meltfptr[411])) == OBMAG_ROUTINE); + ((meltclosure_ptr_t)/*_.VALCLO___V413*/ meltfptr[412])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V412*/ meltfptr[411]); /*touch:DATACLOSURE_*/ - meltgc_touch(/*_.VALCLO___V412*/ meltfptr[411]); + meltgc_touch(/*_.VALCLO___V413*/ meltfptr[412]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V413*/ meltfptr[412])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V414*/ meltfptr[413])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V413*/ meltfptr[412])))); - ((meltobject_ptr_t)(/*_.VALDATA___V413*/ meltfptr[412]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V414*/ meltfptr[413]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V414*/ meltfptr[413])))); + ((meltobject_ptr_t)(/*_.VALDATA___V414*/ meltfptr[413]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V415*/ meltfptr[414]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V413*/ meltfptr[412]); + meltgc_touch(/*_.VALDATA___V414*/ meltfptr[413]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V415*/ meltfptr[414])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V416*/ meltfptr[415])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V415*/ meltfptr[414])))); - ((meltobject_ptr_t)(/*_.VALDATA___V415*/ meltfptr[414]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V416*/ meltfptr[415]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V416*/ meltfptr[415])))); + ((meltobject_ptr_t)(/*_.VALDATA___V416*/ meltfptr[415]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V417*/ meltfptr[416]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V415*/ meltfptr[414]); + meltgc_touch(/*_.VALDATA___V416*/ meltfptr[415]); MELT_LOCATION("warmelt-normatch.melt:921:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V417*/ meltfptr[416])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V418*/ meltfptr[417])) == OBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_345__NORMPAT_JOKERPAT#0", NULL != (/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8])); - ((meltroutine_ptr_t)/*_.VALROUT___V417*/ meltfptr[416])->tabval[0] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8]); + ((meltroutine_ptr_t)/*_.VALROUT___V418*/ meltfptr[417])->tabval[0] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8]); MELT_LOCATION("warmelt-normatch.melt:921:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V417*/ meltfptr[416])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V418*/ meltfptr[417])) == OBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_345__NORMPAT_JOKERPAT#1", NULL != (/*_.CLASS_SOURCE_PATTERN_JOKER_VARIABLE__V15*/ meltfptr[14])); - ((meltroutine_ptr_t)/*_.VALROUT___V417*/ meltfptr[416])->tabval[1] = (melt_ptr_t)(/*_.CLASS_SOURCE_PATTERN_JOKER_VARIABLE__V15*/ meltfptr[14]); + ((meltroutine_ptr_t)/*_.VALROUT___V418*/ meltfptr[417])->tabval[1] = (melt_ptr_t)(/*_.CLASS_SOURCE_PATTERN_JOKER_VARIABLE__V15*/ meltfptr[14]); MELT_LOCATION("warmelt-normatch.melt:921:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V417*/ meltfptr[416])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V77*/ meltfptr[76]); - ((meltroutine_ptr_t)/*_.VALROUT___V417*/ meltfptr[416])->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V77*/ meltfptr[76]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V418*/ meltfptr[417])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V78*/ meltfptr[77]); + ((meltroutine_ptr_t)/*_.VALROUT___V418*/ meltfptr[417])->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V78*/ meltfptr[77]); MELT_LOCATION("warmelt-normatch.melt:921:/ initchunk"); /*^touch*/ /*touch:IROUTVAL_*/ - meltgc_touch(/*_.VALROUT___V417*/ meltfptr[416]); + meltgc_touch(/*_.VALROUT___V418*/ meltfptr[417]); /*putclosurout*/ - melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V418*/ meltfptr[417])) == OBMAG_CLOSURE); - melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V417*/ meltfptr[416])) == OBMAG_ROUTINE); - ((meltclosure_ptr_t)/*_.VALCLO___V418*/ meltfptr[417])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V417*/ meltfptr[416]); + melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V419*/ meltfptr[418])) == OBMAG_CLOSURE); + melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V418*/ meltfptr[417])) == OBMAG_ROUTINE); + ((meltclosure_ptr_t)/*_.VALCLO___V419*/ meltfptr[418])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V418*/ meltfptr[417]); /*touch:DATACLOSURE_*/ - meltgc_touch(/*_.VALCLO___V418*/ meltfptr[417]); + meltgc_touch(/*_.VALCLO___V419*/ meltfptr[418]); MELT_LOCATION("warmelt-normatch.melt:936:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V419*/ meltfptr[418])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V420*/ meltfptr[419])) == OBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_347__NORMPAT_INSTANCEPAT#0", NULL != (/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8])); - ((meltroutine_ptr_t)/*_.VALROUT___V419*/ meltfptr[418])->tabval[0] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8]); + ((meltroutine_ptr_t)/*_.VALROUT___V420*/ meltfptr[419])->tabval[0] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8]); MELT_LOCATION("warmelt-normatch.melt:936:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V419*/ meltfptr[418])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V77*/ meltfptr[76]); - ((meltroutine_ptr_t)/*_.VALROUT___V419*/ meltfptr[418])->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V77*/ meltfptr[76]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V420*/ meltfptr[419])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V78*/ meltfptr[77]); + ((meltroutine_ptr_t)/*_.VALROUT___V420*/ meltfptr[419])->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V78*/ meltfptr[77]); MELT_LOCATION("warmelt-normatch.melt:936:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V419*/ meltfptr[418])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V420*/ meltfptr[419])) == OBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_347__NORMPAT_INSTANCEPAT#2", NULL != (/*_.CLASS_SOURCE_PATTERN_INSTANCE__V42*/ meltfptr[41])); - ((meltroutine_ptr_t)/*_.VALROUT___V419*/ meltfptr[418])->tabval[2] = (melt_ptr_t)(/*_.CLASS_SOURCE_PATTERN_INSTANCE__V42*/ meltfptr[41]); + ((meltroutine_ptr_t)/*_.VALROUT___V420*/ meltfptr[419])->tabval[2] = (melt_ptr_t)(/*_.CLASS_SOURCE_PATTERN_INSTANCE__V42*/ meltfptr[41]); MELT_LOCATION("warmelt-normatch.melt:936:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V419*/ meltfptr[418])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V420*/ meltfptr[419])) == OBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_347__NORMPAT_INSTANCEPAT#3", NULL != (/*_.CLASS_LOCATED__V38*/ meltfptr[37])); - ((meltroutine_ptr_t)/*_.VALROUT___V419*/ meltfptr[418])->tabval[3] = (melt_ptr_t)(/*_.CLASS_LOCATED__V38*/ meltfptr[37]); + ((meltroutine_ptr_t)/*_.VALROUT___V420*/ meltfptr[419])->tabval[3] = (melt_ptr_t)(/*_.CLASS_LOCATED__V38*/ meltfptr[37]); MELT_LOCATION("warmelt-normatch.melt:936:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V419*/ meltfptr[418])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V420*/ meltfptr[419])) == OBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_347__NORMPAT_INSTANCEPAT#4", NULL != (/*_.CLASS_SOURCE_PATTERN_OBJECT__V21*/ meltfptr[20])); - ((meltroutine_ptr_t)/*_.VALROUT___V419*/ meltfptr[418])->tabval[4] = (melt_ptr_t)(/*_.CLASS_SOURCE_PATTERN_OBJECT__V21*/ meltfptr[20]); + ((meltroutine_ptr_t)/*_.VALROUT___V420*/ meltfptr[419])->tabval[4] = (melt_ptr_t)(/*_.CLASS_SOURCE_PATTERN_OBJECT__V21*/ meltfptr[20]); MELT_LOCATION("warmelt-normatch.melt:936:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V419*/ meltfptr[418])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V420*/ meltfptr[419])) == OBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_347__NORMPAT_INSTANCEPAT#5", NULL != (/*_.NORMAL_EXP__V17*/ meltfptr[16])); - ((meltroutine_ptr_t)/*_.VALROUT___V419*/ meltfptr[418])->tabval[5] = (melt_ptr_t)(/*_.NORMAL_EXP__V17*/ meltfptr[16]); + ((meltroutine_ptr_t)/*_.VALROUT___V420*/ meltfptr[419])->tabval[5] = (melt_ptr_t)(/*_.NORMAL_EXP__V17*/ meltfptr[16]); MELT_LOCATION("warmelt-normatch.melt:936:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V419*/ meltfptr[418])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V420*/ meltfptr[419])) == OBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_347__NORMPAT_INSTANCEPAT#6", NULL != (/*_.CLASS_CLASS__V22*/ meltfptr[21])); - ((meltroutine_ptr_t)/*_.VALROUT___V419*/ meltfptr[418])->tabval[6] = (melt_ptr_t)(/*_.CLASS_CLASS__V22*/ meltfptr[21]); + ((meltroutine_ptr_t)/*_.VALROUT___V420*/ meltfptr[419])->tabval[6] = (melt_ptr_t)(/*_.CLASS_CLASS__V22*/ meltfptr[21]); MELT_LOCATION("warmelt-normatch.melt:936:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V419*/ meltfptr[418])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V356*/ meltfptr[355]); - ((meltroutine_ptr_t)/*_.VALROUT___V419*/ meltfptr[418])->tabval[7] = (melt_ptr_t)(/*_.VALDATA___V356*/ meltfptr[355]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V420*/ meltfptr[419])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V357*/ meltfptr[356]); + ((meltroutine_ptr_t)/*_.VALROUT___V420*/ meltfptr[419])->tabval[7] = (melt_ptr_t)(/*_.VALDATA___V357*/ meltfptr[356]); MELT_LOCATION("warmelt-normatch.melt:936:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V419*/ meltfptr[418])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V230*/ meltfptr[229]); - ((meltroutine_ptr_t)/*_.VALROUT___V419*/ meltfptr[418])->tabval[8] = (melt_ptr_t)(/*_.VALDATA___V230*/ meltfptr[229]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V420*/ meltfptr[419])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V231*/ meltfptr[230]); + ((meltroutine_ptr_t)/*_.VALROUT___V420*/ meltfptr[419])->tabval[8] = (melt_ptr_t)(/*_.VALDATA___V231*/ meltfptr[230]); MELT_LOCATION("warmelt-normatch.melt:936:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V419*/ meltfptr[418])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V230*/ meltfptr[229]); - ((meltroutine_ptr_t)/*_.VALROUT___V419*/ meltfptr[418])->tabval[9] = (melt_ptr_t)(/*_.VALDATA___V230*/ meltfptr[229]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V420*/ meltfptr[419])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V231*/ meltfptr[230]); + ((meltroutine_ptr_t)/*_.VALROUT___V420*/ meltfptr[419])->tabval[9] = (melt_ptr_t)(/*_.VALDATA___V231*/ meltfptr[230]); MELT_LOCATION("warmelt-normatch.melt:936:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V419*/ meltfptr[418])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V420*/ meltfptr[419])) == OBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_347__NORMPAT_INSTANCEPAT#10", NULL != (/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8])); - ((meltroutine_ptr_t)/*_.VALROUT___V419*/ meltfptr[418])->tabval[10] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8]); + ((meltroutine_ptr_t)/*_.VALROUT___V420*/ meltfptr[419])->tabval[10] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8]); MELT_LOCATION("warmelt-normatch.melt:971:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V420*/ meltfptr[419])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V230*/ meltfptr[229]); - ((meltroutine_ptr_t)/*_.VALROUT___V420*/ meltfptr[419])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V230*/ meltfptr[229]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V421*/ meltfptr[420])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V231*/ meltfptr[230]); + ((meltroutine_ptr_t)/*_.VALROUT___V421*/ meltfptr[420])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V231*/ meltfptr[230]); MELT_LOCATION("warmelt-normatch.melt:971:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V420*/ meltfptr[419])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V421*/ meltfptr[420])) == OBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_351__LAMBDA_#1", NULL != (/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8])); - ((meltroutine_ptr_t)/*_.VALROUT___V420*/ meltfptr[419])->tabval[1] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8]); + ((meltroutine_ptr_t)/*_.VALROUT___V421*/ meltfptr[420])->tabval[1] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8]); MELT_LOCATION("warmelt-normatch.melt:971:/ initchunk"); /*^touch*/ /*touch:IROUTVAL_*/ - meltgc_touch(/*_.VALROUT___V420*/ meltfptr[419]); + meltgc_touch(/*_.VALROUT___V421*/ meltfptr[420]); MELT_LOCATION("warmelt-normatch.melt:936:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V419*/ meltfptr[418])) == OBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_347__NORMPAT_INSTANCEPAT#11", NULL != (/*_.VALROUT___V420*/ meltfptr[419])); - ((meltroutine_ptr_t)/*_.VALROUT___V419*/ meltfptr[418])->tabval[11] = (melt_ptr_t)(/*_.VALROUT___V420*/ meltfptr[419]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V420*/ meltfptr[419])) == OBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_347__NORMPAT_INSTANCEPAT#11", NULL != (/*_.VALROUT___V421*/ meltfptr[420])); + ((meltroutine_ptr_t)/*_.VALROUT___V420*/ meltfptr[419])->tabval[11] = (melt_ptr_t)(/*_.VALROUT___V421*/ meltfptr[420]); MELT_LOCATION("warmelt-normatch.melt:936:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V419*/ meltfptr[418])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V420*/ meltfptr[419])) == OBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_347__NORMPAT_INSTANCEPAT#12", NULL != (/*_.DISCR_MULTIPLE__V43*/ meltfptr[42])); - ((meltroutine_ptr_t)/*_.VALROUT___V419*/ meltfptr[418])->tabval[12] = (melt_ptr_t)(/*_.DISCR_MULTIPLE__V43*/ meltfptr[42]); + ((meltroutine_ptr_t)/*_.VALROUT___V420*/ meltfptr[419])->tabval[12] = (melt_ptr_t)(/*_.DISCR_MULTIPLE__V43*/ meltfptr[42]); MELT_LOCATION("warmelt-normatch.melt:936:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V419*/ meltfptr[418])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V420*/ meltfptr[419])) == OBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_347__NORMPAT_INSTANCEPAT#13", NULL != (/*_.DISCR_LIST__V36*/ meltfptr[35])); - ((meltroutine_ptr_t)/*_.VALROUT___V419*/ meltfptr[418])->tabval[13] = (melt_ptr_t)(/*_.DISCR_LIST__V36*/ meltfptr[35]); + ((meltroutine_ptr_t)/*_.VALROUT___V420*/ meltfptr[419])->tabval[13] = (melt_ptr_t)(/*_.DISCR_LIST__V36*/ meltfptr[35]); MELT_LOCATION("warmelt-normatch.melt:936:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V419*/ meltfptr[418])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V389*/ meltfptr[388]); - ((meltroutine_ptr_t)/*_.VALROUT___V419*/ meltfptr[418])->tabval[14] = (melt_ptr_t)(/*_.VALCLO___V389*/ meltfptr[388]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V420*/ meltfptr[419])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V390*/ meltfptr[389]); + ((meltroutine_ptr_t)/*_.VALROUT___V420*/ meltfptr[419])->tabval[14] = (melt_ptr_t)(/*_.VALCLO___V390*/ meltfptr[389]); MELT_LOCATION("warmelt-normatch.melt:936:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V419*/ meltfptr[418])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V420*/ meltfptr[419])) == OBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_347__NORMPAT_INSTANCEPAT#15", NULL != (/*_.CLASS_CONTAINER__V37*/ meltfptr[36])); - ((meltroutine_ptr_t)/*_.VALROUT___V419*/ meltfptr[418])->tabval[15] = (melt_ptr_t)(/*_.CLASS_CONTAINER__V37*/ meltfptr[36]); + ((meltroutine_ptr_t)/*_.VALROUT___V420*/ meltfptr[419])->tabval[15] = (melt_ptr_t)(/*_.CLASS_CONTAINER__V37*/ meltfptr[36]); MELT_LOCATION("warmelt-normatch.melt:936:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V419*/ meltfptr[418])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V420*/ meltfptr[419])) == OBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_347__NORMPAT_INSTANCEPAT#16", NULL != (/*_.CLASS_SOURCE_FIELD_PATTERN__V23*/ meltfptr[22])); - ((meltroutine_ptr_t)/*_.VALROUT___V419*/ meltfptr[418])->tabval[16] = (melt_ptr_t)(/*_.CLASS_SOURCE_FIELD_PATTERN__V23*/ meltfptr[22]); + ((meltroutine_ptr_t)/*_.VALROUT___V420*/ meltfptr[419])->tabval[16] = (melt_ptr_t)(/*_.CLASS_SOURCE_FIELD_PATTERN__V23*/ meltfptr[22]); MELT_LOCATION("warmelt-normatch.melt:936:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V419*/ meltfptr[418])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V420*/ meltfptr[419])) == OBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_347__NORMPAT_INSTANCEPAT#17", NULL != (/*_.CLASS_FIELD__V24*/ meltfptr[23])); - ((meltroutine_ptr_t)/*_.VALROUT___V419*/ meltfptr[418])->tabval[17] = (melt_ptr_t)(/*_.CLASS_FIELD__V24*/ meltfptr[23]); + ((meltroutine_ptr_t)/*_.VALROUT___V420*/ meltfptr[419])->tabval[17] = (melt_ptr_t)(/*_.CLASS_FIELD__V24*/ meltfptr[23]); MELT_LOCATION("warmelt-normatch.melt:936:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V419*/ meltfptr[418])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V420*/ meltfptr[419])) == OBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_347__NORMPAT_INSTANCEPAT#18", NULL != (/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8])); - ((meltroutine_ptr_t)/*_.VALROUT___V419*/ meltfptr[418])->tabval[18] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8]); + ((meltroutine_ptr_t)/*_.VALROUT___V420*/ meltfptr[419])->tabval[18] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8]); MELT_LOCATION("warmelt-normatch.melt:936:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V419*/ meltfptr[418])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V420*/ meltfptr[419])) == OBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_347__NORMPAT_INSTANCEPAT#19", NULL != (/*_.CLASS_CONTAINER__V37*/ meltfptr[36])); - ((meltroutine_ptr_t)/*_.VALROUT___V419*/ meltfptr[418])->tabval[19] = (melt_ptr_t)(/*_.CLASS_CONTAINER__V37*/ meltfptr[36]); + ((meltroutine_ptr_t)/*_.VALROUT___V420*/ meltfptr[419])->tabval[19] = (melt_ptr_t)(/*_.CLASS_CONTAINER__V37*/ meltfptr[36]); MELT_LOCATION("warmelt-normatch.melt:936:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V419*/ meltfptr[418])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V300*/ meltfptr[299]); - ((meltroutine_ptr_t)/*_.VALROUT___V419*/ meltfptr[418])->tabval[20] = (melt_ptr_t)(/*_.VALDATA___V300*/ meltfptr[299]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V420*/ meltfptr[419])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V301*/ meltfptr[300]); + ((meltroutine_ptr_t)/*_.VALROUT___V420*/ meltfptr[419])->tabval[20] = (melt_ptr_t)(/*_.VALDATA___V301*/ meltfptr[300]); MELT_LOCATION("warmelt-normatch.melt:936:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V419*/ meltfptr[418])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V393*/ meltfptr[392]); - ((meltroutine_ptr_t)/*_.VALROUT___V419*/ meltfptr[418])->tabval[21] = (melt_ptr_t)(/*_.VALCLO___V393*/ meltfptr[392]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V420*/ meltfptr[419])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V394*/ meltfptr[393]); + ((meltroutine_ptr_t)/*_.VALROUT___V420*/ meltfptr[419])->tabval[21] = (melt_ptr_t)(/*_.VALCLO___V394*/ meltfptr[393]); MELT_LOCATION("warmelt-normatch.melt:1029:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V421*/ meltfptr[420])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V422*/ meltfptr[421])) == OBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_354__LAMBDA_#0", NULL != (/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8])); - ((meltroutine_ptr_t)/*_.VALROUT___V421*/ meltfptr[420])->tabval[0] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8]); + ((meltroutine_ptr_t)/*_.VALROUT___V422*/ meltfptr[421])->tabval[0] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8]); MELT_LOCATION("warmelt-normatch.melt:1029:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V421*/ meltfptr[420])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V422*/ meltfptr[421])) == OBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_354__LAMBDA_#1", NULL != (/*_.CLASS_CONTAINER__V37*/ meltfptr[36])); - ((meltroutine_ptr_t)/*_.VALROUT___V421*/ meltfptr[420])->tabval[1] = (melt_ptr_t)(/*_.CLASS_CONTAINER__V37*/ meltfptr[36]); + ((meltroutine_ptr_t)/*_.VALROUT___V422*/ meltfptr[421])->tabval[1] = (melt_ptr_t)(/*_.CLASS_CONTAINER__V37*/ meltfptr[36]); MELT_LOCATION("warmelt-normatch.melt:1029:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V421*/ meltfptr[420])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V300*/ meltfptr[299]); - ((meltroutine_ptr_t)/*_.VALROUT___V421*/ meltfptr[420])->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V300*/ meltfptr[299]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V422*/ meltfptr[421])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V301*/ meltfptr[300]); + ((meltroutine_ptr_t)/*_.VALROUT___V422*/ meltfptr[421])->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V301*/ meltfptr[300]); MELT_LOCATION("warmelt-normatch.melt:1029:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V421*/ meltfptr[420])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V393*/ meltfptr[392]); - ((meltroutine_ptr_t)/*_.VALROUT___V421*/ meltfptr[420])->tabval[3] = (melt_ptr_t)(/*_.VALCLO___V393*/ meltfptr[392]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V422*/ meltfptr[421])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V394*/ meltfptr[393]); + ((meltroutine_ptr_t)/*_.VALROUT___V422*/ meltfptr[421])->tabval[3] = (melt_ptr_t)(/*_.VALCLO___V394*/ meltfptr[393]); MELT_LOCATION("warmelt-normatch.melt:1029:/ initchunk"); /*^touch*/ /*touch:IROUTVAL_*/ - meltgc_touch(/*_.VALROUT___V421*/ meltfptr[420]); + meltgc_touch(/*_.VALROUT___V422*/ meltfptr[421]); MELT_LOCATION("warmelt-normatch.melt:936:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V419*/ meltfptr[418])) == OBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_347__NORMPAT_INSTANCEPAT#22", NULL != (/*_.VALROUT___V421*/ meltfptr[420])); - ((meltroutine_ptr_t)/*_.VALROUT___V419*/ meltfptr[418])->tabval[22] = (melt_ptr_t)(/*_.VALROUT___V421*/ meltfptr[420]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V420*/ meltfptr[419])) == OBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_347__NORMPAT_INSTANCEPAT#22", NULL != (/*_.VALROUT___V422*/ meltfptr[421])); + ((meltroutine_ptr_t)/*_.VALROUT___V420*/ meltfptr[419])->tabval[22] = (melt_ptr_t)(/*_.VALROUT___V422*/ meltfptr[421]); MELT_LOCATION("warmelt-normatch.melt:936:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V419*/ meltfptr[418])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V420*/ meltfptr[419])) == OBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_347__NORMPAT_INSTANCEPAT#23", NULL != (/*_.CLASS_NAMED__V10*/ meltfptr[9])); - ((meltroutine_ptr_t)/*_.VALROUT___V419*/ meltfptr[418])->tabval[23] = (melt_ptr_t)(/*_.CLASS_NAMED__V10*/ meltfptr[9]); + ((meltroutine_ptr_t)/*_.VALROUT___V420*/ meltfptr[419])->tabval[23] = (melt_ptr_t)(/*_.CLASS_NAMED__V10*/ meltfptr[9]); MELT_LOCATION("warmelt-normatch.melt:936:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V419*/ meltfptr[418])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V420*/ meltfptr[419])) == OBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_347__NORMPAT_INSTANCEPAT#24", NULL != (/*_.CLASS_NREP_LOCSYMOCC__V39*/ meltfptr[38])); - ((meltroutine_ptr_t)/*_.VALROUT___V419*/ meltfptr[418])->tabval[24] = (melt_ptr_t)(/*_.CLASS_NREP_LOCSYMOCC__V39*/ meltfptr[38]); + ((meltroutine_ptr_t)/*_.VALROUT___V420*/ meltfptr[419])->tabval[24] = (melt_ptr_t)(/*_.CLASS_NREP_LOCSYMOCC__V39*/ meltfptr[38]); MELT_LOCATION("warmelt-normatch.melt:936:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V419*/ meltfptr[418])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V420*/ meltfptr[419])) == OBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_347__NORMPAT_INSTANCEPAT#25", NULL != (/*_.CLASS_NREP_SYMOCC__V44*/ meltfptr[43])); - ((meltroutine_ptr_t)/*_.VALROUT___V419*/ meltfptr[418])->tabval[25] = (melt_ptr_t)(/*_.CLASS_NREP_SYMOCC__V44*/ meltfptr[43]); + ((meltroutine_ptr_t)/*_.VALROUT___V420*/ meltfptr[419])->tabval[25] = (melt_ptr_t)(/*_.CLASS_NREP_SYMOCC__V44*/ meltfptr[43]); MELT_LOCATION("warmelt-normatch.melt:936:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V419*/ meltfptr[418])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V420*/ meltfptr[419])) == OBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_347__NORMPAT_INSTANCEPAT#26", NULL != (/*_.CLASS_LET_BINDING__V45*/ meltfptr[44])); - ((meltroutine_ptr_t)/*_.VALROUT___V419*/ meltfptr[418])->tabval[26] = (melt_ptr_t)(/*_.CLASS_LET_BINDING__V45*/ meltfptr[44]); + ((meltroutine_ptr_t)/*_.VALROUT___V420*/ meltfptr[419])->tabval[26] = (melt_ptr_t)(/*_.CLASS_LET_BINDING__V45*/ meltfptr[44]); MELT_LOCATION("warmelt-normatch.melt:936:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V419*/ meltfptr[418])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V420*/ meltfptr[419])) == OBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_347__NORMPAT_INSTANCEPAT#27", NULL != (/*_.CLASS_NREP_UNSAFE_GET_FIELD__V46*/ meltfptr[45])); - ((meltroutine_ptr_t)/*_.VALROUT___V419*/ meltfptr[418])->tabval[27] = (melt_ptr_t)(/*_.CLASS_NREP_UNSAFE_GET_FIELD__V46*/ meltfptr[45]); + ((meltroutine_ptr_t)/*_.VALROUT___V420*/ meltfptr[419])->tabval[27] = (melt_ptr_t)(/*_.CLASS_NREP_UNSAFE_GET_FIELD__V46*/ meltfptr[45]); MELT_LOCATION("warmelt-normatch.melt:936:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V419*/ meltfptr[418])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V420*/ meltfptr[419])) == OBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_347__NORMPAT_INSTANCEPAT#28", NULL != (/*_.CLONE_SYMBOL__V47*/ meltfptr[46])); - ((meltroutine_ptr_t)/*_.VALROUT___V419*/ meltfptr[418])->tabval[28] = (melt_ptr_t)(/*_.CLONE_SYMBOL__V47*/ meltfptr[46]); + ((meltroutine_ptr_t)/*_.VALROUT___V420*/ meltfptr[419])->tabval[28] = (melt_ptr_t)(/*_.CLONE_SYMBOL__V47*/ meltfptr[46]); MELT_LOCATION("warmelt-normatch.melt:936:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V419*/ meltfptr[418])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V420*/ meltfptr[419])) == OBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_347__NORMPAT_INSTANCEPAT#29", NULL != (/*_.CLASS_NORMAL_LET_BINDING__V40*/ meltfptr[39])); - ((meltroutine_ptr_t)/*_.VALROUT___V419*/ meltfptr[418])->tabval[29] = (melt_ptr_t)(/*_.CLASS_NORMAL_LET_BINDING__V40*/ meltfptr[39]); + ((meltroutine_ptr_t)/*_.VALROUT___V420*/ meltfptr[419])->tabval[29] = (melt_ptr_t)(/*_.CLASS_NORMAL_LET_BINDING__V40*/ meltfptr[39]); MELT_LOCATION("warmelt-normatch.melt:936:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V419*/ meltfptr[418])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V420*/ meltfptr[419])) == OBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_347__NORMPAT_INSTANCEPAT#30", NULL != (/*_.CTYPE_VALUE__V25*/ meltfptr[24])); - ((meltroutine_ptr_t)/*_.VALROUT___V419*/ meltfptr[418])->tabval[30] = (melt_ptr_t)(/*_.CTYPE_VALUE__V25*/ meltfptr[24]); + ((meltroutine_ptr_t)/*_.VALROUT___V420*/ meltfptr[419])->tabval[30] = (melt_ptr_t)(/*_.CTYPE_VALUE__V25*/ meltfptr[24]); MELT_LOCATION("warmelt-normatch.melt:936:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V419*/ meltfptr[418])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V420*/ meltfptr[419])) == OBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_347__NORMPAT_INSTANCEPAT#31", NULL != (/*_.CLASS_NORMALIZATION_CONTEXT__V41*/ meltfptr[40])); - ((meltroutine_ptr_t)/*_.VALROUT___V419*/ meltfptr[418])->tabval[31] = (melt_ptr_t)(/*_.CLASS_NORMALIZATION_CONTEXT__V41*/ meltfptr[40]); + ((meltroutine_ptr_t)/*_.VALROUT___V420*/ meltfptr[419])->tabval[31] = (melt_ptr_t)(/*_.CLASS_NORMALIZATION_CONTEXT__V41*/ meltfptr[40]); MELT_LOCATION("warmelt-normatch.melt:936:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V419*/ meltfptr[418])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V202*/ meltfptr[201]); - ((meltroutine_ptr_t)/*_.VALROUT___V419*/ meltfptr[418])->tabval[32] = (melt_ptr_t)(/*_.VALDATA___V202*/ meltfptr[201]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V420*/ meltfptr[419])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V203*/ meltfptr[202]); + ((meltroutine_ptr_t)/*_.VALROUT___V420*/ meltfptr[419])->tabval[32] = (melt_ptr_t)(/*_.VALDATA___V203*/ meltfptr[202]); MELT_LOCATION("warmelt-normatch.melt:936:/ initchunk"); /*^touch*/ /*touch:IROUTVAL_*/ - meltgc_touch(/*_.VALROUT___V419*/ meltfptr[418]); + meltgc_touch(/*_.VALROUT___V420*/ meltfptr[419]); /*putclosurout*/ - melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V422*/ meltfptr[421])) == OBMAG_CLOSURE); - melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V419*/ meltfptr[418])) == OBMAG_ROUTINE); - ((meltclosure_ptr_t)/*_.VALCLO___V422*/ meltfptr[421])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V419*/ meltfptr[418]); + melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V423*/ meltfptr[422])) == OBMAG_CLOSURE); + melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V420*/ meltfptr[419])) == OBMAG_ROUTINE); + ((meltclosure_ptr_t)/*_.VALCLO___V423*/ meltfptr[422])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V420*/ meltfptr[419]); /*touch:DATACLOSURE_*/ - meltgc_touch(/*_.VALCLO___V422*/ meltfptr[421]); + meltgc_touch(/*_.VALCLO___V423*/ meltfptr[422]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V423*/ meltfptr[422])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V424*/ meltfptr[423])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V423*/ meltfptr[422])))); - ((meltobject_ptr_t)(/*_.VALDATA___V423*/ meltfptr[422]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V424*/ meltfptr[423]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V424*/ meltfptr[423])))); + ((meltobject_ptr_t)(/*_.VALDATA___V424*/ meltfptr[423]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V425*/ meltfptr[424]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V423*/ meltfptr[422]); + meltgc_touch(/*_.VALDATA___V424*/ meltfptr[423]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V425*/ meltfptr[424])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V426*/ meltfptr[425])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V425*/ meltfptr[424])))); - ((meltobject_ptr_t)(/*_.VALDATA___V425*/ meltfptr[424]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V426*/ meltfptr[425]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V426*/ meltfptr[425])))); + ((meltobject_ptr_t)(/*_.VALDATA___V426*/ meltfptr[425]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V427*/ meltfptr[426]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V425*/ meltfptr[424]); + meltgc_touch(/*_.VALDATA___V426*/ meltfptr[425]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V427*/ meltfptr[426])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V428*/ meltfptr[427])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V427*/ meltfptr[426])))); - ((meltobject_ptr_t)(/*_.VALDATA___V427*/ meltfptr[426]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V428*/ meltfptr[427]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V428*/ meltfptr[427])))); + ((meltobject_ptr_t)(/*_.VALDATA___V428*/ meltfptr[427]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V429*/ meltfptr[428]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V427*/ meltfptr[426]); + meltgc_touch(/*_.VALDATA___V428*/ meltfptr[427]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V429*/ meltfptr[428])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V430*/ meltfptr[429])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V429*/ meltfptr[428])))); - ((meltobject_ptr_t)(/*_.VALDATA___V429*/ meltfptr[428]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V430*/ meltfptr[429]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V430*/ meltfptr[429])))); + ((meltobject_ptr_t)(/*_.VALDATA___V430*/ meltfptr[429]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V431*/ meltfptr[430]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V429*/ meltfptr[428]); + meltgc_touch(/*_.VALDATA___V430*/ meltfptr[429]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V431*/ meltfptr[430])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V432*/ meltfptr[431])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V431*/ meltfptr[430])))); - ((meltobject_ptr_t)(/*_.VALDATA___V431*/ meltfptr[430]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V432*/ meltfptr[431]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V432*/ meltfptr[431])))); + ((meltobject_ptr_t)(/*_.VALDATA___V432*/ meltfptr[431]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V433*/ meltfptr[432]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V431*/ meltfptr[430]); + meltgc_touch(/*_.VALDATA___V432*/ meltfptr[431]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V433*/ meltfptr[432])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V434*/ meltfptr[433])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V433*/ meltfptr[432])))); - ((meltobject_ptr_t)(/*_.VALDATA___V433*/ meltfptr[432]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V434*/ meltfptr[433]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V434*/ meltfptr[433])))); + ((meltobject_ptr_t)(/*_.VALDATA___V434*/ meltfptr[433]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V435*/ meltfptr[434]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V433*/ meltfptr[432]); + meltgc_touch(/*_.VALDATA___V434*/ meltfptr[433]); MELT_LOCATION("warmelt-normatch.melt:1110:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V435*/ meltfptr[434])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V436*/ meltfptr[435])) == OBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_363__NORMPAT_ANDPAT#0", NULL != (/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8])); - ((meltroutine_ptr_t)/*_.VALROUT___V435*/ meltfptr[434])->tabval[0] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8]); + ((meltroutine_ptr_t)/*_.VALROUT___V436*/ meltfptr[435])->tabval[0] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8]); MELT_LOCATION("warmelt-normatch.melt:1110:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V435*/ meltfptr[434])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V77*/ meltfptr[76]); - ((meltroutine_ptr_t)/*_.VALROUT___V435*/ meltfptr[434])->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V77*/ meltfptr[76]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V436*/ meltfptr[435])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V78*/ meltfptr[77]); + ((meltroutine_ptr_t)/*_.VALROUT___V436*/ meltfptr[435])->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V78*/ meltfptr[77]); MELT_LOCATION("warmelt-normatch.melt:1110:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V435*/ meltfptr[434])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V436*/ meltfptr[435])) == OBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_363__NORMPAT_ANDPAT#2", NULL != (/*_.CLASS_SOURCE_PATTERN_AND__V33*/ meltfptr[32])); - ((meltroutine_ptr_t)/*_.VALROUT___V435*/ meltfptr[434])->tabval[2] = (melt_ptr_t)(/*_.CLASS_SOURCE_PATTERN_AND__V33*/ meltfptr[32]); + ((meltroutine_ptr_t)/*_.VALROUT___V436*/ meltfptr[435])->tabval[2] = (melt_ptr_t)(/*_.CLASS_SOURCE_PATTERN_AND__V33*/ meltfptr[32]); MELT_LOCATION("warmelt-normatch.melt:1110:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V435*/ meltfptr[434])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V436*/ meltfptr[435])) == OBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_363__NORMPAT_ANDPAT#3", NULL != (/*_.CLASS_LOCATED__V38*/ meltfptr[37])); - ((meltroutine_ptr_t)/*_.VALROUT___V435*/ meltfptr[434])->tabval[3] = (melt_ptr_t)(/*_.CLASS_LOCATED__V38*/ meltfptr[37]); + ((meltroutine_ptr_t)/*_.VALROUT___V436*/ meltfptr[435])->tabval[3] = (melt_ptr_t)(/*_.CLASS_LOCATED__V38*/ meltfptr[37]); MELT_LOCATION("warmelt-normatch.melt:1110:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V435*/ meltfptr[434])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V436*/ meltfptr[435])) == OBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_363__NORMPAT_ANDPAT#4", NULL != (/*_.CLASS_CONTAINER__V37*/ meltfptr[36])); - ((meltroutine_ptr_t)/*_.VALROUT___V435*/ meltfptr[434])->tabval[4] = (melt_ptr_t)(/*_.CLASS_CONTAINER__V37*/ meltfptr[36]); + ((meltroutine_ptr_t)/*_.VALROUT___V436*/ meltfptr[435])->tabval[4] = (melt_ptr_t)(/*_.CLASS_CONTAINER__V37*/ meltfptr[36]); MELT_LOCATION("warmelt-normatch.melt:1110:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V435*/ meltfptr[434])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V436*/ meltfptr[435])) == OBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_363__NORMPAT_ANDPAT#5", NULL != (/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8])); - ((meltroutine_ptr_t)/*_.VALROUT___V435*/ meltfptr[434])->tabval[5] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8]); + ((meltroutine_ptr_t)/*_.VALROUT___V436*/ meltfptr[435])->tabval[5] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8]); #undef meltfram__ @@ -28689,1608 +29317,1608 @@ void MELT_MODULE_VISIBILITY warmelt_normatch_initialmeltchunk_3 (struct frame_st MELT_LOCATION("warmelt-normatch.melt:1110:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V435*/ meltfptr[434])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V436*/ meltfptr[435])) == OBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_363__NORMPAT_ANDPAT#6", NULL != (/*_.CLASS_CONTAINER__V37*/ meltfptr[36])); - ((meltroutine_ptr_t)/*_.VALROUT___V435*/ meltfptr[434])->tabval[6] = (melt_ptr_t)(/*_.CLASS_CONTAINER__V37*/ meltfptr[36]); + ((meltroutine_ptr_t)/*_.VALROUT___V436*/ meltfptr[435])->tabval[6] = (melt_ptr_t)(/*_.CLASS_CONTAINER__V37*/ meltfptr[36]); MELT_LOCATION("warmelt-normatch.melt:1110:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V435*/ meltfptr[434])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V230*/ meltfptr[229]); - ((meltroutine_ptr_t)/*_.VALROUT___V435*/ meltfptr[434])->tabval[7] = (melt_ptr_t)(/*_.VALDATA___V230*/ meltfptr[229]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V436*/ meltfptr[435])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V231*/ meltfptr[230]); + ((meltroutine_ptr_t)/*_.VALROUT___V436*/ meltfptr[435])->tabval[7] = (melt_ptr_t)(/*_.VALDATA___V231*/ meltfptr[230]); MELT_LOCATION("warmelt-normatch.melt:1110:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V435*/ meltfptr[434])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V393*/ meltfptr[392]); - ((meltroutine_ptr_t)/*_.VALROUT___V435*/ meltfptr[434])->tabval[8] = (melt_ptr_t)(/*_.VALCLO___V393*/ meltfptr[392]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V436*/ meltfptr[435])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V394*/ meltfptr[393]); + ((meltroutine_ptr_t)/*_.VALROUT___V436*/ meltfptr[435])->tabval[8] = (melt_ptr_t)(/*_.VALCLO___V394*/ meltfptr[393]); MELT_LOCATION("warmelt-normatch.melt:1121:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V436*/ meltfptr[435])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V437*/ meltfptr[436])) == OBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_365__LAMBDA_#0", NULL != (/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8])); - ((meltroutine_ptr_t)/*_.VALROUT___V436*/ meltfptr[435])->tabval[0] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8]); + ((meltroutine_ptr_t)/*_.VALROUT___V437*/ meltfptr[436])->tabval[0] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8]); MELT_LOCATION("warmelt-normatch.melt:1121:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V436*/ meltfptr[435])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V437*/ meltfptr[436])) == OBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_365__LAMBDA_#1", NULL != (/*_.CLASS_CONTAINER__V37*/ meltfptr[36])); - ((meltroutine_ptr_t)/*_.VALROUT___V436*/ meltfptr[435])->tabval[1] = (melt_ptr_t)(/*_.CLASS_CONTAINER__V37*/ meltfptr[36]); + ((meltroutine_ptr_t)/*_.VALROUT___V437*/ meltfptr[436])->tabval[1] = (melt_ptr_t)(/*_.CLASS_CONTAINER__V37*/ meltfptr[36]); MELT_LOCATION("warmelt-normatch.melt:1121:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V436*/ meltfptr[435])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V230*/ meltfptr[229]); - ((meltroutine_ptr_t)/*_.VALROUT___V436*/ meltfptr[435])->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V230*/ meltfptr[229]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V437*/ meltfptr[436])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V231*/ meltfptr[230]); + ((meltroutine_ptr_t)/*_.VALROUT___V437*/ meltfptr[436])->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V231*/ meltfptr[230]); MELT_LOCATION("warmelt-normatch.melt:1121:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V436*/ meltfptr[435])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V393*/ meltfptr[392]); - ((meltroutine_ptr_t)/*_.VALROUT___V436*/ meltfptr[435])->tabval[3] = (melt_ptr_t)(/*_.VALCLO___V393*/ meltfptr[392]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V437*/ meltfptr[436])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V394*/ meltfptr[393]); + ((meltroutine_ptr_t)/*_.VALROUT___V437*/ meltfptr[436])->tabval[3] = (melt_ptr_t)(/*_.VALCLO___V394*/ meltfptr[393]); MELT_LOCATION("warmelt-normatch.melt:1121:/ initchunk"); /*^touch*/ /*touch:IROUTVAL_*/ - meltgc_touch(/*_.VALROUT___V436*/ meltfptr[435]); + meltgc_touch(/*_.VALROUT___V437*/ meltfptr[436]); MELT_LOCATION("warmelt-normatch.melt:1110:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V435*/ meltfptr[434])) == OBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_363__NORMPAT_ANDPAT#9", NULL != (/*_.VALROUT___V436*/ meltfptr[435])); - ((meltroutine_ptr_t)/*_.VALROUT___V435*/ meltfptr[434])->tabval[9] = (melt_ptr_t)(/*_.VALROUT___V436*/ meltfptr[435]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V436*/ meltfptr[435])) == OBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_363__NORMPAT_ANDPAT#9", NULL != (/*_.VALROUT___V437*/ meltfptr[436])); + ((meltroutine_ptr_t)/*_.VALROUT___V436*/ meltfptr[435])->tabval[9] = (melt_ptr_t)(/*_.VALROUT___V437*/ meltfptr[436]); MELT_LOCATION("warmelt-normatch.melt:1110:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V435*/ meltfptr[434])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V202*/ meltfptr[201]); - ((meltroutine_ptr_t)/*_.VALROUT___V435*/ meltfptr[434])->tabval[10] = (melt_ptr_t)(/*_.VALDATA___V202*/ meltfptr[201]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V436*/ meltfptr[435])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V203*/ meltfptr[202]); + ((meltroutine_ptr_t)/*_.VALROUT___V436*/ meltfptr[435])->tabval[10] = (melt_ptr_t)(/*_.VALDATA___V203*/ meltfptr[202]); MELT_LOCATION("warmelt-normatch.melt:1110:/ initchunk"); /*^touch*/ /*touch:IROUTVAL_*/ - meltgc_touch(/*_.VALROUT___V435*/ meltfptr[434]); + meltgc_touch(/*_.VALROUT___V436*/ meltfptr[435]); /*putclosurout*/ - melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V437*/ meltfptr[436])) == OBMAG_CLOSURE); - melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V435*/ meltfptr[434])) == OBMAG_ROUTINE); - ((meltclosure_ptr_t)/*_.VALCLO___V437*/ meltfptr[436])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V435*/ meltfptr[434]); + melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V438*/ meltfptr[437])) == OBMAG_CLOSURE); + melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V436*/ meltfptr[435])) == OBMAG_ROUTINE); + ((meltclosure_ptr_t)/*_.VALCLO___V438*/ meltfptr[437])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V436*/ meltfptr[435]); /*touch:DATACLOSURE_*/ - meltgc_touch(/*_.VALCLO___V437*/ meltfptr[436]); + meltgc_touch(/*_.VALCLO___V438*/ meltfptr[437]); MELT_LOCATION("warmelt-normatch.melt:1161:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V438*/ meltfptr[437])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V439*/ meltfptr[438])) == OBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_366__NORMPAT_ORPAT#0", NULL != (/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8])); - ((meltroutine_ptr_t)/*_.VALROUT___V438*/ meltfptr[437])->tabval[0] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8]); + ((meltroutine_ptr_t)/*_.VALROUT___V439*/ meltfptr[438])->tabval[0] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8]); MELT_LOCATION("warmelt-normatch.melt:1161:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V438*/ meltfptr[437])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V77*/ meltfptr[76]); - ((meltroutine_ptr_t)/*_.VALROUT___V438*/ meltfptr[437])->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V77*/ meltfptr[76]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V439*/ meltfptr[438])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V78*/ meltfptr[77]); + ((meltroutine_ptr_t)/*_.VALROUT___V439*/ meltfptr[438])->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V78*/ meltfptr[77]); MELT_LOCATION("warmelt-normatch.melt:1161:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V438*/ meltfptr[437])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V439*/ meltfptr[438])) == OBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_366__NORMPAT_ORPAT#2", NULL != (/*_.CLASS_SOURCE_PATTERN_OR__V30*/ meltfptr[29])); - ((meltroutine_ptr_t)/*_.VALROUT___V438*/ meltfptr[437])->tabval[2] = (melt_ptr_t)(/*_.CLASS_SOURCE_PATTERN_OR__V30*/ meltfptr[29]); + ((meltroutine_ptr_t)/*_.VALROUT___V439*/ meltfptr[438])->tabval[2] = (melt_ptr_t)(/*_.CLASS_SOURCE_PATTERN_OR__V30*/ meltfptr[29]); MELT_LOCATION("warmelt-normatch.melt:1161:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V438*/ meltfptr[437])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V439*/ meltfptr[438])) == OBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_366__NORMPAT_ORPAT#3", NULL != (/*_.CLASS_LOCATED__V38*/ meltfptr[37])); - ((meltroutine_ptr_t)/*_.VALROUT___V438*/ meltfptr[437])->tabval[3] = (melt_ptr_t)(/*_.CLASS_LOCATED__V38*/ meltfptr[37]); + ((meltroutine_ptr_t)/*_.VALROUT___V439*/ meltfptr[438])->tabval[3] = (melt_ptr_t)(/*_.CLASS_LOCATED__V38*/ meltfptr[37]); MELT_LOCATION("warmelt-normatch.melt:1161:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V438*/ meltfptr[437])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V439*/ meltfptr[438])) == OBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_366__NORMPAT_ORPAT#4", NULL != (/*_.DISCR_LIST__V36*/ meltfptr[35])); - ((meltroutine_ptr_t)/*_.VALROUT___V438*/ meltfptr[437])->tabval[4] = (melt_ptr_t)(/*_.DISCR_LIST__V36*/ meltfptr[35]); + ((meltroutine_ptr_t)/*_.VALROUT___V439*/ meltfptr[438])->tabval[4] = (melt_ptr_t)(/*_.DISCR_LIST__V36*/ meltfptr[35]); MELT_LOCATION("warmelt-normatch.melt:1161:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V438*/ meltfptr[437])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V439*/ meltfptr[438])) == OBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_366__NORMPAT_ORPAT#5", NULL != (/*_.MAPOBJECT_SORTED_ATTRIBUTE_TUPLE__V48*/ meltfptr[47])); - ((meltroutine_ptr_t)/*_.VALROUT___V438*/ meltfptr[437])->tabval[5] = (melt_ptr_t)(/*_.MAPOBJECT_SORTED_ATTRIBUTE_TUPLE__V48*/ meltfptr[47]); + ((meltroutine_ptr_t)/*_.VALROUT___V439*/ meltfptr[438])->tabval[5] = (melt_ptr_t)(/*_.MAPOBJECT_SORTED_ATTRIBUTE_TUPLE__V48*/ meltfptr[47]); MELT_LOCATION("warmelt-normatch.melt:1161:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V438*/ meltfptr[437])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V306*/ meltfptr[305]); - ((meltroutine_ptr_t)/*_.VALROUT___V438*/ meltfptr[437])->tabval[6] = (melt_ptr_t)(/*_.VALDATA___V306*/ meltfptr[305]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V439*/ meltfptr[438])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V307*/ meltfptr[306]); + ((meltroutine_ptr_t)/*_.VALROUT___V439*/ meltfptr[438])->tabval[6] = (melt_ptr_t)(/*_.VALDATA___V307*/ meltfptr[306]); MELT_LOCATION("warmelt-normatch.melt:1161:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V438*/ meltfptr[437])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V439*/ meltfptr[438])) == OBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_366__NORMPAT_ORPAT#7", NULL != (/*_.MULTIPLE_MAP__V49*/ meltfptr[48])); - ((meltroutine_ptr_t)/*_.VALROUT___V438*/ meltfptr[437])->tabval[7] = (melt_ptr_t)(/*_.MULTIPLE_MAP__V49*/ meltfptr[48]); + ((meltroutine_ptr_t)/*_.VALROUT___V439*/ meltfptr[438])->tabval[7] = (melt_ptr_t)(/*_.MULTIPLE_MAP__V49*/ meltfptr[48]); MELT_LOCATION("warmelt-normatch.melt:1161:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V438*/ meltfptr[437])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V206*/ meltfptr[205]); - ((meltroutine_ptr_t)/*_.VALROUT___V438*/ meltfptr[437])->tabval[8] = (melt_ptr_t)(/*_.VALDATA___V206*/ meltfptr[205]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V439*/ meltfptr[438])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V207*/ meltfptr[206]); + ((meltroutine_ptr_t)/*_.VALROUT___V439*/ meltfptr[438])->tabval[8] = (melt_ptr_t)(/*_.VALDATA___V207*/ meltfptr[206]); MELT_LOCATION("warmelt-normatch.melt:1161:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V438*/ meltfptr[437])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V439*/ meltfptr[438])) == OBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_366__NORMPAT_ORPAT#9", NULL != (/*_.CLASS_SOURCE_PATTERN_VARIABLE__V14*/ meltfptr[13])); - ((meltroutine_ptr_t)/*_.VALROUT___V438*/ meltfptr[437])->tabval[9] = (melt_ptr_t)(/*_.CLASS_SOURCE_PATTERN_VARIABLE__V14*/ meltfptr[13]); + ((meltroutine_ptr_t)/*_.VALROUT___V439*/ meltfptr[438])->tabval[9] = (melt_ptr_t)(/*_.CLASS_SOURCE_PATTERN_VARIABLE__V14*/ meltfptr[13]); MELT_LOCATION("warmelt-normatch.melt:1161:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V438*/ meltfptr[437])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V439*/ meltfptr[438])) == OBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_366__NORMPAT_ORPAT#10", NULL != (/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8])); - ((meltroutine_ptr_t)/*_.VALROUT___V438*/ meltfptr[437])->tabval[10] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8]); + ((meltroutine_ptr_t)/*_.VALROUT___V439*/ meltfptr[438])->tabval[10] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8]); MELT_LOCATION("warmelt-normatch.melt:1192:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V439*/ meltfptr[438])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V206*/ meltfptr[205]); - ((meltroutine_ptr_t)/*_.VALROUT___V439*/ meltfptr[438])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V206*/ meltfptr[205]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V440*/ meltfptr[439])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V207*/ meltfptr[206]); + ((meltroutine_ptr_t)/*_.VALROUT___V440*/ meltfptr[439])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V207*/ meltfptr[206]); MELT_LOCATION("warmelt-normatch.melt:1192:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V439*/ meltfptr[438])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V440*/ meltfptr[439])) == OBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_372__LAMBDA_#1", NULL != (/*_.CLASS_SOURCE_PATTERN_VARIABLE__V14*/ meltfptr[13])); - ((meltroutine_ptr_t)/*_.VALROUT___V439*/ meltfptr[438])->tabval[1] = (melt_ptr_t)(/*_.CLASS_SOURCE_PATTERN_VARIABLE__V14*/ meltfptr[13]); + ((meltroutine_ptr_t)/*_.VALROUT___V440*/ meltfptr[439])->tabval[1] = (melt_ptr_t)(/*_.CLASS_SOURCE_PATTERN_VARIABLE__V14*/ meltfptr[13]); MELT_LOCATION("warmelt-normatch.melt:1192:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V439*/ meltfptr[438])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V440*/ meltfptr[439])) == OBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_372__LAMBDA_#2", NULL != (/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8])); - ((meltroutine_ptr_t)/*_.VALROUT___V439*/ meltfptr[438])->tabval[2] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8]); + ((meltroutine_ptr_t)/*_.VALROUT___V440*/ meltfptr[439])->tabval[2] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8]); MELT_LOCATION("warmelt-normatch.melt:1192:/ initchunk"); /*^touch*/ /*touch:IROUTVAL_*/ - meltgc_touch(/*_.VALROUT___V439*/ meltfptr[438]); + meltgc_touch(/*_.VALROUT___V440*/ meltfptr[439]); MELT_LOCATION("warmelt-normatch.melt:1161:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V438*/ meltfptr[437])) == OBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_366__NORMPAT_ORPAT#11", NULL != (/*_.VALROUT___V439*/ meltfptr[438])); - ((meltroutine_ptr_t)/*_.VALROUT___V438*/ meltfptr[437])->tabval[11] = (melt_ptr_t)(/*_.VALROUT___V439*/ meltfptr[438]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V439*/ meltfptr[438])) == OBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_366__NORMPAT_ORPAT#11", NULL != (/*_.VALROUT___V440*/ meltfptr[439])); + ((meltroutine_ptr_t)/*_.VALROUT___V439*/ meltfptr[438])->tabval[11] = (melt_ptr_t)(/*_.VALROUT___V440*/ meltfptr[439]); MELT_LOCATION("warmelt-normatch.melt:1161:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V438*/ meltfptr[437])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V439*/ meltfptr[438])) == OBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_366__NORMPAT_ORPAT#12", NULL != (/*_.CLASS_CONTAINER__V37*/ meltfptr[36])); - ((meltroutine_ptr_t)/*_.VALROUT___V438*/ meltfptr[437])->tabval[12] = (melt_ptr_t)(/*_.CLASS_CONTAINER__V37*/ meltfptr[36]); + ((meltroutine_ptr_t)/*_.VALROUT___V439*/ meltfptr[438])->tabval[12] = (melt_ptr_t)(/*_.CLASS_CONTAINER__V37*/ meltfptr[36]); MELT_LOCATION("warmelt-normatch.melt:1161:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V438*/ meltfptr[437])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V389*/ meltfptr[388]); - ((meltroutine_ptr_t)/*_.VALROUT___V438*/ meltfptr[437])->tabval[13] = (melt_ptr_t)(/*_.VALCLO___V389*/ meltfptr[388]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V439*/ meltfptr[438])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V390*/ meltfptr[389]); + ((meltroutine_ptr_t)/*_.VALROUT___V439*/ meltfptr[438])->tabval[13] = (melt_ptr_t)(/*_.VALCLO___V390*/ meltfptr[389]); MELT_LOCATION("warmelt-normatch.melt:1161:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V438*/ meltfptr[437])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V206*/ meltfptr[205]); - ((meltroutine_ptr_t)/*_.VALROUT___V438*/ meltfptr[437])->tabval[14] = (melt_ptr_t)(/*_.VALDATA___V206*/ meltfptr[205]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V439*/ meltfptr[438])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V207*/ meltfptr[206]); + ((meltroutine_ptr_t)/*_.VALROUT___V439*/ meltfptr[438])->tabval[14] = (melt_ptr_t)(/*_.VALDATA___V207*/ meltfptr[206]); MELT_LOCATION("warmelt-normatch.melt:1161:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V438*/ meltfptr[437])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V439*/ meltfptr[438])) == OBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_366__NORMPAT_ORPAT#15", NULL != (/*_.CLASS_NREP_LOCSYMOCC__V39*/ meltfptr[38])); - ((meltroutine_ptr_t)/*_.VALROUT___V438*/ meltfptr[437])->tabval[15] = (melt_ptr_t)(/*_.CLASS_NREP_LOCSYMOCC__V39*/ meltfptr[38]); + ((meltroutine_ptr_t)/*_.VALROUT___V439*/ meltfptr[438])->tabval[15] = (melt_ptr_t)(/*_.CLASS_NREP_LOCSYMOCC__V39*/ meltfptr[38]); MELT_LOCATION("warmelt-normatch.melt:1161:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V438*/ meltfptr[437])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V439*/ meltfptr[438])) == OBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_366__NORMPAT_ORPAT#16", NULL != (/*_.DISCR_BOX__V50*/ meltfptr[49])); - ((meltroutine_ptr_t)/*_.VALROUT___V438*/ meltfptr[437])->tabval[16] = (melt_ptr_t)(/*_.DISCR_BOX__V50*/ meltfptr[49]); + ((meltroutine_ptr_t)/*_.VALROUT___V439*/ meltfptr[438])->tabval[16] = (melt_ptr_t)(/*_.DISCR_BOX__V50*/ meltfptr[49]); MELT_LOCATION("warmelt-normatch.melt:1161:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V438*/ meltfptr[437])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V270*/ meltfptr[269]); - ((meltroutine_ptr_t)/*_.VALROUT___V438*/ meltfptr[437])->tabval[17] = (melt_ptr_t)(/*_.VALDATA___V270*/ meltfptr[269]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V439*/ meltfptr[438])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V271*/ meltfptr[270]); + ((meltroutine_ptr_t)/*_.VALROUT___V439*/ meltfptr[438])->tabval[17] = (melt_ptr_t)(/*_.VALDATA___V271*/ meltfptr[270]); MELT_LOCATION("warmelt-normatch.melt:1161:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V438*/ meltfptr[437])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V439*/ meltfptr[438])) == OBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_366__NORMPAT_ORPAT#18", NULL != (/*_.LIST_TO_MULTIPLE__V51*/ meltfptr[50])); - ((meltroutine_ptr_t)/*_.VALROUT___V438*/ meltfptr[437])->tabval[18] = (melt_ptr_t)(/*_.LIST_TO_MULTIPLE__V51*/ meltfptr[50]); + ((meltroutine_ptr_t)/*_.VALROUT___V439*/ meltfptr[438])->tabval[18] = (melt_ptr_t)(/*_.LIST_TO_MULTIPLE__V51*/ meltfptr[50]); + + MELT_LOCATION("warmelt-normatch.melt:1161:/ initchunk"); + /*^putroutconst*/ + /*putroutconst*/ + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V439*/ meltfptr[438])) == OBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_366__NORMPAT_ORPAT#19", NULL != (/*_.DISCR_MULTIPLE__V43*/ meltfptr[42])); + ((meltroutine_ptr_t)/*_.VALROUT___V439*/ meltfptr[438])->tabval[19] = (melt_ptr_t)(/*_.DISCR_MULTIPLE__V43*/ meltfptr[42]); MELT_LOCATION("warmelt-normatch.melt:1161:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V438*/ meltfptr[437])) == OBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_366__NORMPAT_ORPAT#19", NULL != (/*_.CLASS_NREP__V52*/ meltfptr[51])); - ((meltroutine_ptr_t)/*_.VALROUT___V438*/ meltfptr[437])->tabval[19] = (melt_ptr_t)(/*_.CLASS_NREP__V52*/ meltfptr[51]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V439*/ meltfptr[438])) == OBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_366__NORMPAT_ORPAT#20", NULL != (/*_.CLASS_NREP__V52*/ meltfptr[51])); + ((meltroutine_ptr_t)/*_.VALROUT___V439*/ meltfptr[438])->tabval[20] = (melt_ptr_t)(/*_.CLASS_NREP__V52*/ meltfptr[51]); MELT_LOCATION("warmelt-normatch.melt:1161:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V438*/ meltfptr[437])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V399*/ meltfptr[398]); - ((meltroutine_ptr_t)/*_.VALROUT___V438*/ meltfptr[437])->tabval[20] = (melt_ptr_t)(/*_.VALCLO___V399*/ meltfptr[398]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V439*/ meltfptr[438])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V400*/ meltfptr[399]); + ((meltroutine_ptr_t)/*_.VALROUT___V439*/ meltfptr[438])->tabval[21] = (melt_ptr_t)(/*_.VALCLO___V400*/ meltfptr[399]); MELT_LOCATION("warmelt-normatch.melt:1161:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V438*/ meltfptr[437])) == OBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_366__NORMPAT_ORPAT#21", NULL != (/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8])); - ((meltroutine_ptr_t)/*_.VALROUT___V438*/ meltfptr[437])->tabval[21] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V439*/ meltfptr[438])) == OBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_366__NORMPAT_ORPAT#22", NULL != (/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8])); + ((meltroutine_ptr_t)/*_.VALROUT___V439*/ meltfptr[438])->tabval[22] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8]); MELT_LOCATION("warmelt-normatch.melt:1161:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V438*/ meltfptr[437])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V393*/ meltfptr[392]); - ((meltroutine_ptr_t)/*_.VALROUT___V438*/ meltfptr[437])->tabval[22] = (melt_ptr_t)(/*_.VALCLO___V393*/ meltfptr[392]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V439*/ meltfptr[438])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V394*/ meltfptr[393]); + ((meltroutine_ptr_t)/*_.VALROUT___V439*/ meltfptr[438])->tabval[23] = (melt_ptr_t)(/*_.VALCLO___V394*/ meltfptr[393]); MELT_LOCATION("warmelt-normatch.melt:1161:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V438*/ meltfptr[437])) == OBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_366__NORMPAT_ORPAT#23", NULL != (/*_.CLASS_CONTAINER__V37*/ meltfptr[36])); - ((meltroutine_ptr_t)/*_.VALROUT___V438*/ meltfptr[437])->tabval[23] = (melt_ptr_t)(/*_.CLASS_CONTAINER__V37*/ meltfptr[36]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V439*/ meltfptr[438])) == OBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_366__NORMPAT_ORPAT#24", NULL != (/*_.CLASS_CONTAINER__V37*/ meltfptr[36])); + ((meltroutine_ptr_t)/*_.VALROUT___V439*/ meltfptr[438])->tabval[24] = (melt_ptr_t)(/*_.CLASS_CONTAINER__V37*/ meltfptr[36]); MELT_LOCATION("warmelt-normatch.melt:1277:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V440*/ meltfptr[439])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V441*/ meltfptr[440])) == OBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_379__LAMBDA_#0", NULL != (/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8])); - ((meltroutine_ptr_t)/*_.VALROUT___V440*/ meltfptr[439])->tabval[0] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8]); + ((meltroutine_ptr_t)/*_.VALROUT___V441*/ meltfptr[440])->tabval[0] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8]); MELT_LOCATION("warmelt-normatch.melt:1277:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V440*/ meltfptr[439])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V393*/ meltfptr[392]); - ((meltroutine_ptr_t)/*_.VALROUT___V440*/ meltfptr[439])->tabval[1] = (melt_ptr_t)(/*_.VALCLO___V393*/ meltfptr[392]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V441*/ meltfptr[440])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V394*/ meltfptr[393]); + ((meltroutine_ptr_t)/*_.VALROUT___V441*/ meltfptr[440])->tabval[1] = (melt_ptr_t)(/*_.VALCLO___V394*/ meltfptr[393]); MELT_LOCATION("warmelt-normatch.melt:1277:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V440*/ meltfptr[439])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V441*/ meltfptr[440])) == OBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_379__LAMBDA_#2", NULL != (/*_.CLASS_CONTAINER__V37*/ meltfptr[36])); - ((meltroutine_ptr_t)/*_.VALROUT___V440*/ meltfptr[439])->tabval[2] = (melt_ptr_t)(/*_.CLASS_CONTAINER__V37*/ meltfptr[36]); + ((meltroutine_ptr_t)/*_.VALROUT___V441*/ meltfptr[440])->tabval[2] = (melt_ptr_t)(/*_.CLASS_CONTAINER__V37*/ meltfptr[36]); MELT_LOCATION("warmelt-normatch.melt:1277:/ initchunk"); /*^touch*/ /*touch:IROUTVAL_*/ - meltgc_touch(/*_.VALROUT___V440*/ meltfptr[439]); + meltgc_touch(/*_.VALROUT___V441*/ meltfptr[440]); MELT_LOCATION("warmelt-normatch.melt:1161:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V438*/ meltfptr[437])) == OBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_366__NORMPAT_ORPAT#24", NULL != (/*_.VALROUT___V440*/ meltfptr[439])); - ((meltroutine_ptr_t)/*_.VALROUT___V438*/ meltfptr[437])->tabval[24] = (melt_ptr_t)(/*_.VALROUT___V440*/ meltfptr[439]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V439*/ meltfptr[438])) == OBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_366__NORMPAT_ORPAT#25", NULL != (/*_.VALROUT___V441*/ meltfptr[440])); + ((meltroutine_ptr_t)/*_.VALROUT___V439*/ meltfptr[438])->tabval[25] = (melt_ptr_t)(/*_.VALROUT___V441*/ meltfptr[440]); MELT_LOCATION("warmelt-normatch.melt:1161:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V438*/ meltfptr[437])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V202*/ meltfptr[201]); - ((meltroutine_ptr_t)/*_.VALROUT___V438*/ meltfptr[437])->tabval[25] = (melt_ptr_t)(/*_.VALDATA___V202*/ meltfptr[201]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V439*/ meltfptr[438])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V203*/ meltfptr[202]); + ((meltroutine_ptr_t)/*_.VALROUT___V439*/ meltfptr[438])->tabval[26] = (melt_ptr_t)(/*_.VALDATA___V203*/ meltfptr[202]); MELT_LOCATION("warmelt-normatch.melt:1161:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V438*/ meltfptr[437])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V286*/ meltfptr[285]); - ((meltroutine_ptr_t)/*_.VALROUT___V438*/ meltfptr[437])->tabval[26] = (melt_ptr_t)(/*_.VALDATA___V286*/ meltfptr[285]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V439*/ meltfptr[438])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V287*/ meltfptr[286]); + ((meltroutine_ptr_t)/*_.VALROUT___V439*/ meltfptr[438])->tabval[27] = (melt_ptr_t)(/*_.VALDATA___V287*/ meltfptr[286]); MELT_LOCATION("warmelt-normatch.melt:1161:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V438*/ meltfptr[437])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V393*/ meltfptr[392]); - ((meltroutine_ptr_t)/*_.VALROUT___V438*/ meltfptr[437])->tabval[27] = (melt_ptr_t)(/*_.VALCLO___V393*/ meltfptr[392]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V439*/ meltfptr[438])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V394*/ meltfptr[393]); + ((meltroutine_ptr_t)/*_.VALROUT___V439*/ meltfptr[438])->tabval[28] = (melt_ptr_t)(/*_.VALCLO___V394*/ meltfptr[393]); MELT_LOCATION("warmelt-normatch.melt:1161:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V438*/ meltfptr[437])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V206*/ meltfptr[205]); - ((meltroutine_ptr_t)/*_.VALROUT___V438*/ meltfptr[437])->tabval[28] = (melt_ptr_t)(/*_.VALDATA___V206*/ meltfptr[205]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V439*/ meltfptr[438])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V207*/ meltfptr[206]); + ((meltroutine_ptr_t)/*_.VALROUT___V439*/ meltfptr[438])->tabval[29] = (melt_ptr_t)(/*_.VALDATA___V207*/ meltfptr[206]); MELT_LOCATION("warmelt-normatch.melt:1161:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V438*/ meltfptr[437])) == OBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_366__NORMPAT_ORPAT#29", NULL != (/*_.CLASS_SOURCE_PATTERN_VARIABLE__V14*/ meltfptr[13])); - ((meltroutine_ptr_t)/*_.VALROUT___V438*/ meltfptr[437])->tabval[29] = (melt_ptr_t)(/*_.CLASS_SOURCE_PATTERN_VARIABLE__V14*/ meltfptr[13]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V439*/ meltfptr[438])) == OBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_366__NORMPAT_ORPAT#30", NULL != (/*_.CLASS_SOURCE_PATTERN_VARIABLE__V14*/ meltfptr[13])); + ((meltroutine_ptr_t)/*_.VALROUT___V439*/ meltfptr[438])->tabval[30] = (melt_ptr_t)(/*_.CLASS_SOURCE_PATTERN_VARIABLE__V14*/ meltfptr[13]); MELT_LOCATION("warmelt-normatch.melt:1161:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V438*/ meltfptr[437])) == OBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_366__NORMPAT_ORPAT#30", NULL != (/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8])); - ((meltroutine_ptr_t)/*_.VALROUT___V438*/ meltfptr[437])->tabval[30] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V439*/ meltfptr[438])) == OBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_366__NORMPAT_ORPAT#31", NULL != (/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8])); + ((meltroutine_ptr_t)/*_.VALROUT___V439*/ meltfptr[438])->tabval[31] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8]); MELT_LOCATION("warmelt-normatch.melt:1332:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V441*/ meltfptr[440])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V206*/ meltfptr[205]); - ((meltroutine_ptr_t)/*_.VALROUT___V441*/ meltfptr[440])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V206*/ meltfptr[205]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V442*/ meltfptr[441])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V207*/ meltfptr[206]); + ((meltroutine_ptr_t)/*_.VALROUT___V442*/ meltfptr[441])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V207*/ meltfptr[206]); MELT_LOCATION("warmelt-normatch.melt:1332:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V441*/ meltfptr[440])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V442*/ meltfptr[441])) == OBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_380__LAMBDA_#1", NULL != (/*_.CLASS_SOURCE_PATTERN_VARIABLE__V14*/ meltfptr[13])); - ((meltroutine_ptr_t)/*_.VALROUT___V441*/ meltfptr[440])->tabval[1] = (melt_ptr_t)(/*_.CLASS_SOURCE_PATTERN_VARIABLE__V14*/ meltfptr[13]); + ((meltroutine_ptr_t)/*_.VALROUT___V442*/ meltfptr[441])->tabval[1] = (melt_ptr_t)(/*_.CLASS_SOURCE_PATTERN_VARIABLE__V14*/ meltfptr[13]); MELT_LOCATION("warmelt-normatch.melt:1332:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V441*/ meltfptr[440])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V442*/ meltfptr[441])) == OBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_380__LAMBDA_#2", NULL != (/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8])); - ((meltroutine_ptr_t)/*_.VALROUT___V441*/ meltfptr[440])->tabval[2] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8]); + ((meltroutine_ptr_t)/*_.VALROUT___V442*/ meltfptr[441])->tabval[2] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8]); MELT_LOCATION("warmelt-normatch.melt:1332:/ initchunk"); /*^touch*/ /*touch:IROUTVAL_*/ - meltgc_touch(/*_.VALROUT___V441*/ meltfptr[440]); + meltgc_touch(/*_.VALROUT___V442*/ meltfptr[441]); MELT_LOCATION("warmelt-normatch.melt:1161:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V438*/ meltfptr[437])) == OBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_366__NORMPAT_ORPAT#31", NULL != (/*_.VALROUT___V441*/ meltfptr[440])); - ((meltroutine_ptr_t)/*_.VALROUT___V438*/ meltfptr[437])->tabval[31] = (melt_ptr_t)(/*_.VALROUT___V441*/ meltfptr[440]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V439*/ meltfptr[438])) == OBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_366__NORMPAT_ORPAT#32", NULL != (/*_.VALROUT___V442*/ meltfptr[441])); + ((meltroutine_ptr_t)/*_.VALROUT___V439*/ meltfptr[438])->tabval[32] = (melt_ptr_t)(/*_.VALROUT___V442*/ meltfptr[441]); MELT_LOCATION("warmelt-normatch.melt:1161:/ initchunk"); /*^touch*/ /*touch:IROUTVAL_*/ - meltgc_touch(/*_.VALROUT___V438*/ meltfptr[437]); + meltgc_touch(/*_.VALROUT___V439*/ meltfptr[438]); /*putclosurout*/ - melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V442*/ meltfptr[441])) == OBMAG_CLOSURE); - melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V438*/ meltfptr[437])) == OBMAG_ROUTINE); - ((meltclosure_ptr_t)/*_.VALCLO___V442*/ meltfptr[441])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V438*/ meltfptr[437]); + melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V443*/ meltfptr[442])) == OBMAG_CLOSURE); + melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V439*/ meltfptr[438])) == OBMAG_ROUTINE); + ((meltclosure_ptr_t)/*_.VALCLO___V443*/ meltfptr[442])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V439*/ meltfptr[438]); /*touch:DATACLOSURE_*/ - meltgc_touch(/*_.VALCLO___V442*/ meltfptr[441]); + meltgc_touch(/*_.VALCLO___V443*/ meltfptr[442]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V443*/ meltfptr[442])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V444*/ meltfptr[443])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V443*/ meltfptr[442])))); - ((meltobject_ptr_t)(/*_.VALDATA___V443*/ meltfptr[442]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V444*/ meltfptr[443]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V444*/ meltfptr[443])))); + ((meltobject_ptr_t)(/*_.VALDATA___V444*/ meltfptr[443]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V445*/ meltfptr[444]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V443*/ meltfptr[442]); + meltgc_touch(/*_.VALDATA___V444*/ meltfptr[443]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V445*/ meltfptr[444])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V446*/ meltfptr[445])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V445*/ meltfptr[444])))); - ((meltobject_ptr_t)(/*_.VALDATA___V445*/ meltfptr[444]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V446*/ meltfptr[445]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V446*/ meltfptr[445])))); + ((meltobject_ptr_t)(/*_.VALDATA___V446*/ meltfptr[445]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V447*/ meltfptr[446]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V445*/ meltfptr[444]); + meltgc_touch(/*_.VALDATA___V446*/ meltfptr[445]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V447*/ meltfptr[446])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V448*/ meltfptr[447])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V447*/ meltfptr[446])))); - ((meltobject_ptr_t)(/*_.VALDATA___V447*/ meltfptr[446]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V448*/ meltfptr[447]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V448*/ meltfptr[447])))); + ((meltobject_ptr_t)(/*_.VALDATA___V448*/ meltfptr[447]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V449*/ meltfptr[448]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V447*/ meltfptr[446]); + meltgc_touch(/*_.VALDATA___V448*/ meltfptr[447]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V449*/ meltfptr[448])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V450*/ meltfptr[449])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V449*/ meltfptr[448])))); - ((meltobject_ptr_t)(/*_.VALDATA___V449*/ meltfptr[448]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V450*/ meltfptr[449]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V450*/ meltfptr[449])))); + ((meltobject_ptr_t)(/*_.VALDATA___V450*/ meltfptr[449]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V451*/ meltfptr[450]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V449*/ meltfptr[448]); + meltgc_touch(/*_.VALDATA___V450*/ meltfptr[449]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V451*/ meltfptr[450])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V452*/ meltfptr[451])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V451*/ meltfptr[450])))); - ((meltobject_ptr_t)(/*_.VALDATA___V451*/ meltfptr[450]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V452*/ meltfptr[451]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V452*/ meltfptr[451])))); + ((meltobject_ptr_t)(/*_.VALDATA___V452*/ meltfptr[451]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V453*/ meltfptr[452]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V451*/ meltfptr[450]); + meltgc_touch(/*_.VALDATA___V452*/ meltfptr[451]); MELT_LOCATION("warmelt-normatch.melt:1366:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V453*/ meltfptr[452])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V454*/ meltfptr[453])) == OBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_381__NORMPAT_ANYMATCHPAT#0", NULL != (/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8])); - ((meltroutine_ptr_t)/*_.VALROUT___V453*/ meltfptr[452])->tabval[0] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8]); + ((meltroutine_ptr_t)/*_.VALROUT___V454*/ meltfptr[453])->tabval[0] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8]); MELT_LOCATION("warmelt-normatch.melt:1366:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V453*/ meltfptr[452])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V77*/ meltfptr[76]); - ((meltroutine_ptr_t)/*_.VALROUT___V453*/ meltfptr[452])->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V77*/ meltfptr[76]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V454*/ meltfptr[453])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V78*/ meltfptr[77]); + ((meltroutine_ptr_t)/*_.VALROUT___V454*/ meltfptr[453])->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V78*/ meltfptr[77]); MELT_LOCATION("warmelt-normatch.melt:1366:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V453*/ meltfptr[452])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V454*/ meltfptr[453])) == OBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_381__NORMPAT_ANYMATCHPAT#2", NULL != (/*_.CLASS_SOURCE_PATTERN_MATCHER__V53*/ meltfptr[52])); - ((meltroutine_ptr_t)/*_.VALROUT___V453*/ meltfptr[452])->tabval[2] = (melt_ptr_t)(/*_.CLASS_SOURCE_PATTERN_MATCHER__V53*/ meltfptr[52]); + ((meltroutine_ptr_t)/*_.VALROUT___V454*/ meltfptr[453])->tabval[2] = (melt_ptr_t)(/*_.CLASS_SOURCE_PATTERN_MATCHER__V53*/ meltfptr[52]); MELT_LOCATION("warmelt-normatch.melt:1366:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V453*/ meltfptr[452])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V454*/ meltfptr[453])) == OBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_381__NORMPAT_ANYMATCHPAT#3", NULL != (/*_.CLASS_LOCATED__V38*/ meltfptr[37])); - ((meltroutine_ptr_t)/*_.VALROUT___V453*/ meltfptr[452])->tabval[3] = (melt_ptr_t)(/*_.CLASS_LOCATED__V38*/ meltfptr[37]); + ((meltroutine_ptr_t)/*_.VALROUT___V454*/ meltfptr[453])->tabval[3] = (melt_ptr_t)(/*_.CLASS_LOCATED__V38*/ meltfptr[37]); MELT_LOCATION("warmelt-normatch.melt:1366:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V453*/ meltfptr[452])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V454*/ meltfptr[453])) == OBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_381__NORMPAT_ANYMATCHPAT#4", NULL != (/*_.CLASS_SOURCE_PATTERN_COMPOSITE__V26*/ meltfptr[25])); - ((meltroutine_ptr_t)/*_.VALROUT___V453*/ meltfptr[452])->tabval[4] = (melt_ptr_t)(/*_.CLASS_SOURCE_PATTERN_COMPOSITE__V26*/ meltfptr[25]); + ((meltroutine_ptr_t)/*_.VALROUT___V454*/ meltfptr[453])->tabval[4] = (melt_ptr_t)(/*_.CLASS_SOURCE_PATTERN_COMPOSITE__V26*/ meltfptr[25]); MELT_LOCATION("warmelt-normatch.melt:1366:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V453*/ meltfptr[452])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V454*/ meltfptr[453])) == OBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_381__NORMPAT_ANYMATCHPAT#5", NULL != (/*_.GET_CTYPE__V19*/ meltfptr[18])); - ((meltroutine_ptr_t)/*_.VALROUT___V453*/ meltfptr[452])->tabval[5] = (melt_ptr_t)(/*_.GET_CTYPE__V19*/ meltfptr[18]); + ((meltroutine_ptr_t)/*_.VALROUT___V454*/ meltfptr[453])->tabval[5] = (melt_ptr_t)(/*_.GET_CTYPE__V19*/ meltfptr[18]); MELT_LOCATION("warmelt-normatch.melt:1366:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V453*/ meltfptr[452])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V454*/ meltfptr[453])) == OBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_381__NORMPAT_ANYMATCHPAT#6", NULL != (/*_.CLASS_ANY_MATCHER__V27*/ meltfptr[26])); - ((meltroutine_ptr_t)/*_.VALROUT___V453*/ meltfptr[452])->tabval[6] = (melt_ptr_t)(/*_.CLASS_ANY_MATCHER__V27*/ meltfptr[26]); + ((meltroutine_ptr_t)/*_.VALROUT___V454*/ meltfptr[453])->tabval[6] = (melt_ptr_t)(/*_.CLASS_ANY_MATCHER__V27*/ meltfptr[26]); MELT_LOCATION("warmelt-normatch.melt:1366:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V453*/ meltfptr[452])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V454*/ meltfptr[453])) == OBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_381__NORMPAT_ANYMATCHPAT#7", NULL != (/*_.CLASS_ANY_BINDING__V54*/ meltfptr[53])); - ((meltroutine_ptr_t)/*_.VALROUT___V453*/ meltfptr[452])->tabval[7] = (melt_ptr_t)(/*_.CLASS_ANY_BINDING__V54*/ meltfptr[53]); + ((meltroutine_ptr_t)/*_.VALROUT___V454*/ meltfptr[453])->tabval[7] = (melt_ptr_t)(/*_.CLASS_ANY_BINDING__V54*/ meltfptr[53]); MELT_LOCATION("warmelt-normatch.melt:1366:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V453*/ meltfptr[452])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V454*/ meltfptr[453])) == OBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_381__NORMPAT_ANYMATCHPAT#8", NULL != (/*_.FIND_ENV__V55*/ meltfptr[54])); - ((meltroutine_ptr_t)/*_.VALROUT___V453*/ meltfptr[452])->tabval[8] = (melt_ptr_t)(/*_.FIND_ENV__V55*/ meltfptr[54]); + ((meltroutine_ptr_t)/*_.VALROUT___V454*/ meltfptr[453])->tabval[8] = (melt_ptr_t)(/*_.FIND_ENV__V55*/ meltfptr[54]); MELT_LOCATION("warmelt-normatch.melt:1366:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V453*/ meltfptr[452])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V454*/ meltfptr[453])) == OBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_381__NORMPAT_ANYMATCHPAT#9", NULL != (/*_.NORMAL_EXP__V17*/ meltfptr[16])); - ((meltroutine_ptr_t)/*_.VALROUT___V453*/ meltfptr[452])->tabval[9] = (melt_ptr_t)(/*_.NORMAL_EXP__V17*/ meltfptr[16]); + ((meltroutine_ptr_t)/*_.VALROUT___V454*/ meltfptr[453])->tabval[9] = (melt_ptr_t)(/*_.NORMAL_EXP__V17*/ meltfptr[16]); MELT_LOCATION("warmelt-normatch.melt:1366:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V453*/ meltfptr[452])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V454*/ meltfptr[453])) == OBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_381__NORMPAT_ANYMATCHPAT#10", NULL != (/*_.NORMALIZE_TUPLE__V29*/ meltfptr[28])); - ((meltroutine_ptr_t)/*_.VALROUT___V453*/ meltfptr[452])->tabval[10] = (melt_ptr_t)(/*_.NORMALIZE_TUPLE__V29*/ meltfptr[28]); + ((meltroutine_ptr_t)/*_.VALROUT___V454*/ meltfptr[453])->tabval[10] = (melt_ptr_t)(/*_.NORMALIZE_TUPLE__V29*/ meltfptr[28]); MELT_LOCATION("warmelt-normatch.melt:1366:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V453*/ meltfptr[452])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V454*/ meltfptr[453])) == OBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_381__NORMPAT_ANYMATCHPAT#11", NULL != (/*_.LIST_APPEND2LIST__V18*/ meltfptr[17])); - ((meltroutine_ptr_t)/*_.VALROUT___V453*/ meltfptr[452])->tabval[11] = (melt_ptr_t)(/*_.LIST_APPEND2LIST__V18*/ meltfptr[17]); + ((meltroutine_ptr_t)/*_.VALROUT___V454*/ meltfptr[453])->tabval[11] = (melt_ptr_t)(/*_.LIST_APPEND2LIST__V18*/ meltfptr[17]); MELT_LOCATION("warmelt-normatch.melt:1366:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V453*/ meltfptr[452])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V454*/ meltfptr[453])) == OBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_381__NORMPAT_ANYMATCHPAT#12", NULL != (/*_.CLASS_FORMAL_BINDING__V28*/ meltfptr[27])); - ((meltroutine_ptr_t)/*_.VALROUT___V453*/ meltfptr[452])->tabval[12] = (melt_ptr_t)(/*_.CLASS_FORMAL_BINDING__V28*/ meltfptr[27]); + ((meltroutine_ptr_t)/*_.VALROUT___V454*/ meltfptr[453])->tabval[12] = (melt_ptr_t)(/*_.CLASS_FORMAL_BINDING__V28*/ meltfptr[27]); MELT_LOCATION("warmelt-normatch.melt:1366:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V453*/ meltfptr[452])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V454*/ meltfptr[453])) == OBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_381__NORMPAT_ANYMATCHPAT#13", NULL != (/*_.CLASS_NAMED__V10*/ meltfptr[9])); - ((meltroutine_ptr_t)/*_.VALROUT___V453*/ meltfptr[452])->tabval[13] = (melt_ptr_t)(/*_.CLASS_NAMED__V10*/ meltfptr[9]); + ((meltroutine_ptr_t)/*_.VALROUT___V454*/ meltfptr[453])->tabval[13] = (melt_ptr_t)(/*_.CLASS_NAMED__V10*/ meltfptr[9]); MELT_LOCATION("warmelt-normatch.melt:1366:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V453*/ meltfptr[452])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V454*/ meltfptr[453])) == OBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_381__NORMPAT_ANYMATCHPAT#14", NULL != (/*_.FRESH_ENV__V56*/ meltfptr[55])); - ((meltroutine_ptr_t)/*_.VALROUT___V453*/ meltfptr[452])->tabval[14] = (melt_ptr_t)(/*_.FRESH_ENV__V56*/ meltfptr[55]); + ((meltroutine_ptr_t)/*_.VALROUT___V454*/ meltfptr[453])->tabval[14] = (melt_ptr_t)(/*_.FRESH_ENV__V56*/ meltfptr[55]); MELT_LOCATION("warmelt-normatch.melt:1366:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V453*/ meltfptr[452])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V454*/ meltfptr[453])) == OBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_381__NORMPAT_ANYMATCHPAT#15", NULL != (/*_.CLASS_NORMAL_LET_BINDING__V40*/ meltfptr[39])); - ((meltroutine_ptr_t)/*_.VALROUT___V453*/ meltfptr[452])->tabval[15] = (melt_ptr_t)(/*_.CLASS_NORMAL_LET_BINDING__V40*/ meltfptr[39]); + ((meltroutine_ptr_t)/*_.VALROUT___V454*/ meltfptr[453])->tabval[15] = (melt_ptr_t)(/*_.CLASS_NORMAL_LET_BINDING__V40*/ meltfptr[39]); MELT_LOCATION("warmelt-normatch.melt:1366:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V453*/ meltfptr[452])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V454*/ meltfptr[453])) == OBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_381__NORMPAT_ANYMATCHPAT#16", NULL != (/*_.PUT_ENV__V57*/ meltfptr[56])); - ((meltroutine_ptr_t)/*_.VALROUT___V453*/ meltfptr[452])->tabval[16] = (melt_ptr_t)(/*_.PUT_ENV__V57*/ meltfptr[56]); + ((meltroutine_ptr_t)/*_.VALROUT___V454*/ meltfptr[453])->tabval[16] = (melt_ptr_t)(/*_.PUT_ENV__V57*/ meltfptr[56]); MELT_LOCATION("warmelt-normatch.melt:1366:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V453*/ meltfptr[452])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V334*/ meltfptr[333]); - ((meltroutine_ptr_t)/*_.VALROUT___V453*/ meltfptr[452])->tabval[17] = (melt_ptr_t)(/*_.VALDATA___V334*/ meltfptr[333]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V454*/ meltfptr[453])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V335*/ meltfptr[334]); + ((meltroutine_ptr_t)/*_.VALROUT___V454*/ meltfptr[453])->tabval[17] = (melt_ptr_t)(/*_.VALDATA___V335*/ meltfptr[334]); MELT_LOCATION("warmelt-normatch.melt:1366:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V453*/ meltfptr[452])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V230*/ meltfptr[229]); - ((meltroutine_ptr_t)/*_.VALROUT___V453*/ meltfptr[452])->tabval[18] = (melt_ptr_t)(/*_.VALDATA___V230*/ meltfptr[229]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V454*/ meltfptr[453])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V231*/ meltfptr[230]); + ((meltroutine_ptr_t)/*_.VALROUT___V454*/ meltfptr[453])->tabval[18] = (melt_ptr_t)(/*_.VALDATA___V231*/ meltfptr[230]); MELT_LOCATION("warmelt-normatch.melt:1366:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V453*/ meltfptr[452])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V230*/ meltfptr[229]); - ((meltroutine_ptr_t)/*_.VALROUT___V453*/ meltfptr[452])->tabval[19] = (melt_ptr_t)(/*_.VALDATA___V230*/ meltfptr[229]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V454*/ meltfptr[453])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V231*/ meltfptr[230]); + ((meltroutine_ptr_t)/*_.VALROUT___V454*/ meltfptr[453])->tabval[19] = (melt_ptr_t)(/*_.VALDATA___V231*/ meltfptr[230]); MELT_LOCATION("warmelt-normatch.melt:1366:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V453*/ meltfptr[452])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V454*/ meltfptr[453])) == OBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_381__NORMPAT_ANYMATCHPAT#20", NULL != (/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8])); - ((meltroutine_ptr_t)/*_.VALROUT___V453*/ meltfptr[452])->tabval[20] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8]); + ((meltroutine_ptr_t)/*_.VALROUT___V454*/ meltfptr[453])->tabval[20] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8]); MELT_LOCATION("warmelt-normatch.melt:1510:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V454*/ meltfptr[453])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V230*/ meltfptr[229]); - ((meltroutine_ptr_t)/*_.VALROUT___V454*/ meltfptr[453])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V230*/ meltfptr[229]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V455*/ meltfptr[454])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V231*/ meltfptr[230]); + ((meltroutine_ptr_t)/*_.VALROUT___V455*/ meltfptr[454])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V231*/ meltfptr[230]); MELT_LOCATION("warmelt-normatch.melt:1510:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V454*/ meltfptr[453])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V455*/ meltfptr[454])) == OBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_393__LAMBDA_#1", NULL != (/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8])); - ((meltroutine_ptr_t)/*_.VALROUT___V454*/ meltfptr[453])->tabval[1] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8]); + ((meltroutine_ptr_t)/*_.VALROUT___V455*/ meltfptr[454])->tabval[1] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8]); MELT_LOCATION("warmelt-normatch.melt:1510:/ initchunk"); /*^touch*/ /*touch:IROUTVAL_*/ - meltgc_touch(/*_.VALROUT___V454*/ meltfptr[453]); + meltgc_touch(/*_.VALROUT___V455*/ meltfptr[454]); MELT_LOCATION("warmelt-normatch.melt:1366:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V453*/ meltfptr[452])) == OBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_381__NORMPAT_ANYMATCHPAT#21", NULL != (/*_.VALROUT___V454*/ meltfptr[453])); - ((meltroutine_ptr_t)/*_.VALROUT___V453*/ meltfptr[452])->tabval[21] = (melt_ptr_t)(/*_.VALROUT___V454*/ meltfptr[453]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V454*/ meltfptr[453])) == OBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_381__NORMPAT_ANYMATCHPAT#21", NULL != (/*_.VALROUT___V455*/ meltfptr[454])); + ((meltroutine_ptr_t)/*_.VALROUT___V454*/ meltfptr[453])->tabval[21] = (melt_ptr_t)(/*_.VALROUT___V455*/ meltfptr[454]); MELT_LOCATION("warmelt-normatch.melt:1366:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V453*/ meltfptr[452])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V230*/ meltfptr[229]); - ((meltroutine_ptr_t)/*_.VALROUT___V453*/ meltfptr[452])->tabval[22] = (melt_ptr_t)(/*_.VALDATA___V230*/ meltfptr[229]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V454*/ meltfptr[453])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V231*/ meltfptr[230]); + ((meltroutine_ptr_t)/*_.VALROUT___V454*/ meltfptr[453])->tabval[22] = (melt_ptr_t)(/*_.VALDATA___V231*/ meltfptr[230]); MELT_LOCATION("warmelt-normatch.melt:1366:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V453*/ meltfptr[452])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V454*/ meltfptr[453])) == OBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_381__NORMPAT_ANYMATCHPAT#23", NULL != (/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8])); - ((meltroutine_ptr_t)/*_.VALROUT___V453*/ meltfptr[452])->tabval[23] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8]); + ((meltroutine_ptr_t)/*_.VALROUT___V454*/ meltfptr[453])->tabval[23] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8]); MELT_LOCATION("warmelt-normatch.melt:1523:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V455*/ meltfptr[454])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V230*/ meltfptr[229]); - ((meltroutine_ptr_t)/*_.VALROUT___V455*/ meltfptr[454])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V230*/ meltfptr[229]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V456*/ meltfptr[455])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V231*/ meltfptr[230]); + ((meltroutine_ptr_t)/*_.VALROUT___V456*/ meltfptr[455])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V231*/ meltfptr[230]); MELT_LOCATION("warmelt-normatch.melt:1523:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V455*/ meltfptr[454])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V456*/ meltfptr[455])) == OBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_394__LAMBDA_#1", NULL != (/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8])); - ((meltroutine_ptr_t)/*_.VALROUT___V455*/ meltfptr[454])->tabval[1] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8]); + ((meltroutine_ptr_t)/*_.VALROUT___V456*/ meltfptr[455])->tabval[1] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8]); MELT_LOCATION("warmelt-normatch.melt:1523:/ initchunk"); /*^touch*/ /*touch:IROUTVAL_*/ - meltgc_touch(/*_.VALROUT___V455*/ meltfptr[454]); + meltgc_touch(/*_.VALROUT___V456*/ meltfptr[455]); MELT_LOCATION("warmelt-normatch.melt:1366:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V453*/ meltfptr[452])) == OBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_381__NORMPAT_ANYMATCHPAT#24", NULL != (/*_.VALROUT___V455*/ meltfptr[454])); - ((meltroutine_ptr_t)/*_.VALROUT___V453*/ meltfptr[452])->tabval[24] = (melt_ptr_t)(/*_.VALROUT___V455*/ meltfptr[454]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V454*/ meltfptr[453])) == OBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_381__NORMPAT_ANYMATCHPAT#24", NULL != (/*_.VALROUT___V456*/ meltfptr[455])); + ((meltroutine_ptr_t)/*_.VALROUT___V454*/ meltfptr[453])->tabval[24] = (melt_ptr_t)(/*_.VALROUT___V456*/ meltfptr[455]); MELT_LOCATION("warmelt-normatch.melt:1366:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V453*/ meltfptr[452])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V454*/ meltfptr[453])) == OBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_381__NORMPAT_ANYMATCHPAT#25", NULL != (/*_.MULTIPLE_MAP__V49*/ meltfptr[48])); - ((meltroutine_ptr_t)/*_.VALROUT___V453*/ meltfptr[452])->tabval[25] = (melt_ptr_t)(/*_.MULTIPLE_MAP__V49*/ meltfptr[48]); + ((meltroutine_ptr_t)/*_.VALROUT___V454*/ meltfptr[453])->tabval[25] = (melt_ptr_t)(/*_.MULTIPLE_MAP__V49*/ meltfptr[48]); MELT_LOCATION("warmelt-normatch.melt:1366:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V453*/ meltfptr[452])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V454*/ meltfptr[453])) == OBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_381__NORMPAT_ANYMATCHPAT#26", NULL != (/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8])); - ((meltroutine_ptr_t)/*_.VALROUT___V453*/ meltfptr[452])->tabval[26] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8]); + ((meltroutine_ptr_t)/*_.VALROUT___V454*/ meltfptr[453])->tabval[26] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8]); MELT_LOCATION("warmelt-normatch.melt:1366:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V453*/ meltfptr[452])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V454*/ meltfptr[453])) == OBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_381__NORMPAT_ANYMATCHPAT#27", NULL != (/*_.CLASS_FORMAL_BINDING__V28*/ meltfptr[27])); - ((meltroutine_ptr_t)/*_.VALROUT___V453*/ meltfptr[452])->tabval[27] = (melt_ptr_t)(/*_.CLASS_FORMAL_BINDING__V28*/ meltfptr[27]); + ((meltroutine_ptr_t)/*_.VALROUT___V454*/ meltfptr[453])->tabval[27] = (melt_ptr_t)(/*_.CLASS_FORMAL_BINDING__V28*/ meltfptr[27]); MELT_LOCATION("warmelt-normatch.melt:1366:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V453*/ meltfptr[452])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V454*/ meltfptr[453])) == OBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_381__NORMPAT_ANYMATCHPAT#28", NULL != (/*_.CLONE_SYMBOL__V47*/ meltfptr[46])); - ((meltroutine_ptr_t)/*_.VALROUT___V453*/ meltfptr[452])->tabval[28] = (melt_ptr_t)(/*_.CLONE_SYMBOL__V47*/ meltfptr[46]); + ((meltroutine_ptr_t)/*_.VALROUT___V454*/ meltfptr[453])->tabval[28] = (melt_ptr_t)(/*_.CLONE_SYMBOL__V47*/ meltfptr[46]); MELT_LOCATION("warmelt-normatch.melt:1366:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V453*/ meltfptr[452])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V454*/ meltfptr[453])) == OBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_381__NORMPAT_ANYMATCHPAT#29", NULL != (/*_.CLASS_ANY_BINDING__V54*/ meltfptr[53])); - ((meltroutine_ptr_t)/*_.VALROUT___V453*/ meltfptr[452])->tabval[29] = (melt_ptr_t)(/*_.CLASS_ANY_BINDING__V54*/ meltfptr[53]); + ((meltroutine_ptr_t)/*_.VALROUT___V454*/ meltfptr[453])->tabval[29] = (melt_ptr_t)(/*_.CLASS_ANY_BINDING__V54*/ meltfptr[53]); MELT_LOCATION("warmelt-normatch.melt:1366:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V453*/ meltfptr[452])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V454*/ meltfptr[453])) == OBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_381__NORMPAT_ANYMATCHPAT#30", NULL != (/*_.CLASS_NORMAL_LET_BINDING__V40*/ meltfptr[39])); - ((meltroutine_ptr_t)/*_.VALROUT___V453*/ meltfptr[452])->tabval[30] = (melt_ptr_t)(/*_.CLASS_NORMAL_LET_BINDING__V40*/ meltfptr[39]); + ((meltroutine_ptr_t)/*_.VALROUT___V454*/ meltfptr[453])->tabval[30] = (melt_ptr_t)(/*_.CLASS_NORMAL_LET_BINDING__V40*/ meltfptr[39]); MELT_LOCATION("warmelt-normatch.melt:1366:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V453*/ meltfptr[452])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V454*/ meltfptr[453])) == OBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_381__NORMPAT_ANYMATCHPAT#31", NULL != (/*_.CLASS_NREP_LOCSYMOCC__V39*/ meltfptr[38])); - ((meltroutine_ptr_t)/*_.VALROUT___V453*/ meltfptr[452])->tabval[31] = (melt_ptr_t)(/*_.CLASS_NREP_LOCSYMOCC__V39*/ meltfptr[38]); + ((meltroutine_ptr_t)/*_.VALROUT___V454*/ meltfptr[453])->tabval[31] = (melt_ptr_t)(/*_.CLASS_NREP_LOCSYMOCC__V39*/ meltfptr[38]); MELT_LOCATION("warmelt-normatch.melt:1366:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V453*/ meltfptr[452])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V454*/ meltfptr[453])) == OBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_381__NORMPAT_ANYMATCHPAT#32", NULL != (/*_.CLASS_NORMALIZATION_CONTEXT__V41*/ meltfptr[40])); - ((meltroutine_ptr_t)/*_.VALROUT___V453*/ meltfptr[452])->tabval[32] = (melt_ptr_t)(/*_.CLASS_NORMALIZATION_CONTEXT__V41*/ meltfptr[40]); + ((meltroutine_ptr_t)/*_.VALROUT___V454*/ meltfptr[453])->tabval[32] = (melt_ptr_t)(/*_.CLASS_NORMALIZATION_CONTEXT__V41*/ meltfptr[40]); MELT_LOCATION("warmelt-normatch.melt:1535:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V456*/ meltfptr[455])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V457*/ meltfptr[456])) == OBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_395__LAMBDA_#0", NULL != (/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8])); - ((meltroutine_ptr_t)/*_.VALROUT___V456*/ meltfptr[455])->tabval[0] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8]); + ((meltroutine_ptr_t)/*_.VALROUT___V457*/ meltfptr[456])->tabval[0] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8]); MELT_LOCATION("warmelt-normatch.melt:1535:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V456*/ meltfptr[455])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V457*/ meltfptr[456])) == OBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_395__LAMBDA_#1", NULL != (/*_.CLASS_FORMAL_BINDING__V28*/ meltfptr[27])); - ((meltroutine_ptr_t)/*_.VALROUT___V456*/ meltfptr[455])->tabval[1] = (melt_ptr_t)(/*_.CLASS_FORMAL_BINDING__V28*/ meltfptr[27]); + ((meltroutine_ptr_t)/*_.VALROUT___V457*/ meltfptr[456])->tabval[1] = (melt_ptr_t)(/*_.CLASS_FORMAL_BINDING__V28*/ meltfptr[27]); MELT_LOCATION("warmelt-normatch.melt:1535:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V456*/ meltfptr[455])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V457*/ meltfptr[456])) == OBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_395__LAMBDA_#2", NULL != (/*_.CLONE_SYMBOL__V47*/ meltfptr[46])); - ((meltroutine_ptr_t)/*_.VALROUT___V456*/ meltfptr[455])->tabval[2] = (melt_ptr_t)(/*_.CLONE_SYMBOL__V47*/ meltfptr[46]); + ((meltroutine_ptr_t)/*_.VALROUT___V457*/ meltfptr[456])->tabval[2] = (melt_ptr_t)(/*_.CLONE_SYMBOL__V47*/ meltfptr[46]); MELT_LOCATION("warmelt-normatch.melt:1535:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V456*/ meltfptr[455])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V457*/ meltfptr[456])) == OBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_395__LAMBDA_#3", NULL != (/*_.CLASS_ANY_BINDING__V54*/ meltfptr[53])); - ((meltroutine_ptr_t)/*_.VALROUT___V456*/ meltfptr[455])->tabval[3] = (melt_ptr_t)(/*_.CLASS_ANY_BINDING__V54*/ meltfptr[53]); + ((meltroutine_ptr_t)/*_.VALROUT___V457*/ meltfptr[456])->tabval[3] = (melt_ptr_t)(/*_.CLASS_ANY_BINDING__V54*/ meltfptr[53]); MELT_LOCATION("warmelt-normatch.melt:1535:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V456*/ meltfptr[455])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V457*/ meltfptr[456])) == OBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_395__LAMBDA_#4", NULL != (/*_.CLASS_NORMAL_LET_BINDING__V40*/ meltfptr[39])); - ((meltroutine_ptr_t)/*_.VALROUT___V456*/ meltfptr[455])->tabval[4] = (melt_ptr_t)(/*_.CLASS_NORMAL_LET_BINDING__V40*/ meltfptr[39]); + ((meltroutine_ptr_t)/*_.VALROUT___V457*/ meltfptr[456])->tabval[4] = (melt_ptr_t)(/*_.CLASS_NORMAL_LET_BINDING__V40*/ meltfptr[39]); MELT_LOCATION("warmelt-normatch.melt:1535:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V456*/ meltfptr[455])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V457*/ meltfptr[456])) == OBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_395__LAMBDA_#5", NULL != (/*_.CLASS_NREP_LOCSYMOCC__V39*/ meltfptr[38])); - ((meltroutine_ptr_t)/*_.VALROUT___V456*/ meltfptr[455])->tabval[5] = (melt_ptr_t)(/*_.CLASS_NREP_LOCSYMOCC__V39*/ meltfptr[38]); + ((meltroutine_ptr_t)/*_.VALROUT___V457*/ meltfptr[456])->tabval[5] = (melt_ptr_t)(/*_.CLASS_NREP_LOCSYMOCC__V39*/ meltfptr[38]); MELT_LOCATION("warmelt-normatch.melt:1535:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V456*/ meltfptr[455])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V457*/ meltfptr[456])) == OBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_395__LAMBDA_#6", NULL != (/*_.CLASS_NORMALIZATION_CONTEXT__V41*/ meltfptr[40])); - ((meltroutine_ptr_t)/*_.VALROUT___V456*/ meltfptr[455])->tabval[6] = (melt_ptr_t)(/*_.CLASS_NORMALIZATION_CONTEXT__V41*/ meltfptr[40]); + ((meltroutine_ptr_t)/*_.VALROUT___V457*/ meltfptr[456])->tabval[6] = (melt_ptr_t)(/*_.CLASS_NORMALIZATION_CONTEXT__V41*/ meltfptr[40]); MELT_LOCATION("warmelt-normatch.melt:1535:/ initchunk"); /*^touch*/ /*touch:IROUTVAL_*/ - meltgc_touch(/*_.VALROUT___V456*/ meltfptr[455]); + meltgc_touch(/*_.VALROUT___V457*/ meltfptr[456]); MELT_LOCATION("warmelt-normatch.melt:1366:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V453*/ meltfptr[452])) == OBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_381__NORMPAT_ANYMATCHPAT#33", NULL != (/*_.VALROUT___V456*/ meltfptr[455])); - ((meltroutine_ptr_t)/*_.VALROUT___V453*/ meltfptr[452])->tabval[33] = (melt_ptr_t)(/*_.VALROUT___V456*/ meltfptr[455]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V454*/ meltfptr[453])) == OBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_381__NORMPAT_ANYMATCHPAT#33", NULL != (/*_.VALROUT___V457*/ meltfptr[456])); + ((meltroutine_ptr_t)/*_.VALROUT___V454*/ meltfptr[453])->tabval[33] = (melt_ptr_t)(/*_.VALROUT___V457*/ meltfptr[456]); MELT_LOCATION("warmelt-normatch.melt:1366:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V453*/ meltfptr[452])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V454*/ meltfptr[453])) == OBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_381__NORMPAT_ANYMATCHPAT#34", NULL != (/*_.MULTIPLE_TO_LIST__V58*/ meltfptr[57])); - ((meltroutine_ptr_t)/*_.VALROUT___V453*/ meltfptr[452])->tabval[34] = (melt_ptr_t)(/*_.MULTIPLE_TO_LIST__V58*/ meltfptr[57]); + ((meltroutine_ptr_t)/*_.VALROUT___V454*/ meltfptr[453])->tabval[34] = (melt_ptr_t)(/*_.MULTIPLE_TO_LIST__V58*/ meltfptr[57]); MELT_LOCATION("warmelt-normatch.melt:1366:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V453*/ meltfptr[452])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V454*/ meltfptr[453])) == OBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_381__NORMPAT_ANYMATCHPAT#35", NULL != (/*_.DISCR_LIST__V36*/ meltfptr[35])); - ((meltroutine_ptr_t)/*_.VALROUT___V453*/ meltfptr[452])->tabval[35] = (melt_ptr_t)(/*_.DISCR_LIST__V36*/ meltfptr[35]); + ((meltroutine_ptr_t)/*_.VALROUT___V454*/ meltfptr[453])->tabval[35] = (melt_ptr_t)(/*_.DISCR_LIST__V36*/ meltfptr[35]); MELT_LOCATION("warmelt-normatch.melt:1366:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V453*/ meltfptr[452])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V389*/ meltfptr[388]); - ((meltroutine_ptr_t)/*_.VALROUT___V453*/ meltfptr[452])->tabval[36] = (melt_ptr_t)(/*_.VALCLO___V389*/ meltfptr[388]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V454*/ meltfptr[453])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V390*/ meltfptr[389]); + ((meltroutine_ptr_t)/*_.VALROUT___V454*/ meltfptr[453])->tabval[36] = (melt_ptr_t)(/*_.VALCLO___V390*/ meltfptr[389]); MELT_LOCATION("warmelt-normatch.melt:1366:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V453*/ meltfptr[452])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V454*/ meltfptr[453])) == OBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_381__NORMPAT_ANYMATCHPAT#37", NULL != (/*_.CLASS_CONTAINER__V37*/ meltfptr[36])); - ((meltroutine_ptr_t)/*_.VALROUT___V453*/ meltfptr[452])->tabval[37] = (melt_ptr_t)(/*_.CLASS_CONTAINER__V37*/ meltfptr[36]); + ((meltroutine_ptr_t)/*_.VALROUT___V454*/ meltfptr[453])->tabval[37] = (melt_ptr_t)(/*_.CLASS_CONTAINER__V37*/ meltfptr[36]); MELT_LOCATION("warmelt-normatch.melt:1366:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V453*/ meltfptr[452])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V454*/ meltfptr[453])) == OBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_381__NORMPAT_ANYMATCHPAT#38", NULL != (/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8])); - ((meltroutine_ptr_t)/*_.VALROUT___V453*/ meltfptr[452])->tabval[38] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8]); + ((meltroutine_ptr_t)/*_.VALROUT___V454*/ meltfptr[453])->tabval[38] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8]); MELT_LOCATION("warmelt-normatch.melt:1366:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V453*/ meltfptr[452])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V393*/ meltfptr[392]); - ((meltroutine_ptr_t)/*_.VALROUT___V453*/ meltfptr[452])->tabval[39] = (melt_ptr_t)(/*_.VALCLO___V393*/ meltfptr[392]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V454*/ meltfptr[453])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V394*/ meltfptr[393]); + ((meltroutine_ptr_t)/*_.VALROUT___V454*/ meltfptr[453])->tabval[39] = (melt_ptr_t)(/*_.VALCLO___V394*/ meltfptr[393]); MELT_LOCATION("warmelt-normatch.melt:1606:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V457*/ meltfptr[456])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V458*/ meltfptr[457])) == OBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_398__LAMBDA_#0", NULL != (/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8])); - ((meltroutine_ptr_t)/*_.VALROUT___V457*/ meltfptr[456])->tabval[0] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8]); + ((meltroutine_ptr_t)/*_.VALROUT___V458*/ meltfptr[457])->tabval[0] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8]); MELT_LOCATION("warmelt-normatch.melt:1606:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V457*/ meltfptr[456])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V393*/ meltfptr[392]); - ((meltroutine_ptr_t)/*_.VALROUT___V457*/ meltfptr[456])->tabval[1] = (melt_ptr_t)(/*_.VALCLO___V393*/ meltfptr[392]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V458*/ meltfptr[457])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V394*/ meltfptr[393]); + ((meltroutine_ptr_t)/*_.VALROUT___V458*/ meltfptr[457])->tabval[1] = (melt_ptr_t)(/*_.VALCLO___V394*/ meltfptr[393]); MELT_LOCATION("warmelt-normatch.melt:1606:/ initchunk"); /*^touch*/ /*touch:IROUTVAL_*/ - meltgc_touch(/*_.VALROUT___V457*/ meltfptr[456]); + meltgc_touch(/*_.VALROUT___V458*/ meltfptr[457]); MELT_LOCATION("warmelt-normatch.melt:1366:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V453*/ meltfptr[452])) == OBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_381__NORMPAT_ANYMATCHPAT#40", NULL != (/*_.VALROUT___V457*/ meltfptr[456])); - ((meltroutine_ptr_t)/*_.VALROUT___V453*/ meltfptr[452])->tabval[40] = (melt_ptr_t)(/*_.VALROUT___V457*/ meltfptr[456]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V454*/ meltfptr[453])) == OBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_381__NORMPAT_ANYMATCHPAT#40", NULL != (/*_.VALROUT___V458*/ meltfptr[457])); + ((meltroutine_ptr_t)/*_.VALROUT___V454*/ meltfptr[453])->tabval[40] = (melt_ptr_t)(/*_.VALROUT___V458*/ meltfptr[457]); MELT_LOCATION("warmelt-normatch.melt:1366:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V453*/ meltfptr[452])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V202*/ meltfptr[201]); - ((meltroutine_ptr_t)/*_.VALROUT___V453*/ meltfptr[452])->tabval[41] = (melt_ptr_t)(/*_.VALDATA___V202*/ meltfptr[201]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V454*/ meltfptr[453])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V203*/ meltfptr[202]); + ((meltroutine_ptr_t)/*_.VALROUT___V454*/ meltfptr[453])->tabval[41] = (melt_ptr_t)(/*_.VALDATA___V203*/ meltfptr[202]); MELT_LOCATION("warmelt-normatch.melt:1366:/ initchunk"); /*^touch*/ /*touch:IROUTVAL_*/ - meltgc_touch(/*_.VALROUT___V453*/ meltfptr[452]); + meltgc_touch(/*_.VALROUT___V454*/ meltfptr[453]); /*putclosurout*/ - melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V458*/ meltfptr[457])) == OBMAG_CLOSURE); - melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V453*/ meltfptr[452])) == OBMAG_ROUTINE); - ((meltclosure_ptr_t)/*_.VALCLO___V458*/ meltfptr[457])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V453*/ meltfptr[452]); + melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V459*/ meltfptr[458])) == OBMAG_CLOSURE); + melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V454*/ meltfptr[453])) == OBMAG_ROUTINE); + ((meltclosure_ptr_t)/*_.VALCLO___V459*/ meltfptr[458])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V454*/ meltfptr[453]); /*touch:DATACLOSURE_*/ - meltgc_touch(/*_.VALCLO___V458*/ meltfptr[457]); + meltgc_touch(/*_.VALCLO___V459*/ meltfptr[458]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V459*/ meltfptr[458])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V460*/ meltfptr[459])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V459*/ meltfptr[458])))); - ((meltobject_ptr_t)(/*_.VALDATA___V459*/ meltfptr[458]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V460*/ meltfptr[459]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V460*/ meltfptr[459])))); + ((meltobject_ptr_t)(/*_.VALDATA___V460*/ meltfptr[459]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V461*/ meltfptr[460]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V459*/ meltfptr[458]); + meltgc_touch(/*_.VALDATA___V460*/ meltfptr[459]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V461*/ meltfptr[460])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V462*/ meltfptr[461])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V461*/ meltfptr[460])))); - ((meltobject_ptr_t)(/*_.VALDATA___V461*/ meltfptr[460]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V462*/ meltfptr[461]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V462*/ meltfptr[461])))); + ((meltobject_ptr_t)(/*_.VALDATA___V462*/ meltfptr[461]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V463*/ meltfptr[462]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V461*/ meltfptr[460]); + meltgc_touch(/*_.VALDATA___V462*/ meltfptr[461]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V463*/ meltfptr[462])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V464*/ meltfptr[463])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V463*/ meltfptr[462])))); - ((meltobject_ptr_t)(/*_.VALDATA___V463*/ meltfptr[462]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V464*/ meltfptr[463]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V464*/ meltfptr[463])))); + ((meltobject_ptr_t)(/*_.VALDATA___V464*/ meltfptr[463]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V465*/ meltfptr[464]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V463*/ meltfptr[462]); + meltgc_touch(/*_.VALDATA___V464*/ meltfptr[463]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V465*/ meltfptr[464])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V466*/ meltfptr[465])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V465*/ meltfptr[464])))); - ((meltobject_ptr_t)(/*_.VALDATA___V465*/ meltfptr[464]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V466*/ meltfptr[465]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V466*/ meltfptr[465])))); + ((meltobject_ptr_t)(/*_.VALDATA___V466*/ meltfptr[465]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V467*/ meltfptr[466]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V465*/ meltfptr[464]); + meltgc_touch(/*_.VALDATA___V466*/ meltfptr[465]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V467*/ meltfptr[466])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V468*/ meltfptr[467])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V467*/ meltfptr[466])))); - ((meltobject_ptr_t)(/*_.VALDATA___V467*/ meltfptr[466]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V468*/ meltfptr[467]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V468*/ meltfptr[467])))); + ((meltobject_ptr_t)(/*_.VALDATA___V468*/ meltfptr[467]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V469*/ meltfptr[468]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V467*/ meltfptr[466]); + meltgc_touch(/*_.VALDATA___V468*/ meltfptr[467]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V469*/ meltfptr[468])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V470*/ meltfptr[469])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V469*/ meltfptr[468])))); - ((meltobject_ptr_t)(/*_.VALDATA___V469*/ meltfptr[468]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V470*/ meltfptr[469]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V470*/ meltfptr[469])))); + ((meltobject_ptr_t)(/*_.VALDATA___V470*/ meltfptr[469]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V471*/ meltfptr[470]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V469*/ meltfptr[468]); + meltgc_touch(/*_.VALDATA___V470*/ meltfptr[469]); MELT_LOCATION("warmelt-normatch.melt:1633:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V471*/ meltfptr[470])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V472*/ meltfptr[471])) == OBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_399__NORMPAT_CONSTPAT#0", NULL != (/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8])); - ((meltroutine_ptr_t)/*_.VALROUT___V471*/ meltfptr[470])->tabval[0] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8]); + ((meltroutine_ptr_t)/*_.VALROUT___V472*/ meltfptr[471])->tabval[0] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8]); MELT_LOCATION("warmelt-normatch.melt:1633:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V471*/ meltfptr[470])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V77*/ meltfptr[76]); - ((meltroutine_ptr_t)/*_.VALROUT___V471*/ meltfptr[470])->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V77*/ meltfptr[76]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V472*/ meltfptr[471])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V78*/ meltfptr[77]); + ((meltroutine_ptr_t)/*_.VALROUT___V472*/ meltfptr[471])->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V78*/ meltfptr[77]); MELT_LOCATION("warmelt-normatch.melt:1633:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V471*/ meltfptr[470])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V472*/ meltfptr[471])) == OBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_399__NORMPAT_CONSTPAT#2", NULL != (/*_.CLASS_SOURCE_PATTERN_CONSTANT__V16*/ meltfptr[15])); - ((meltroutine_ptr_t)/*_.VALROUT___V471*/ meltfptr[470])->tabval[2] = (melt_ptr_t)(/*_.CLASS_SOURCE_PATTERN_CONSTANT__V16*/ meltfptr[15]); + ((meltroutine_ptr_t)/*_.VALROUT___V472*/ meltfptr[471])->tabval[2] = (melt_ptr_t)(/*_.CLASS_SOURCE_PATTERN_CONSTANT__V16*/ meltfptr[15]); MELT_LOCATION("warmelt-normatch.melt:1633:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V471*/ meltfptr[470])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V472*/ meltfptr[471])) == OBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_399__NORMPAT_CONSTPAT#3", NULL != (/*_.CLASS_LOCATED__V38*/ meltfptr[37])); - ((meltroutine_ptr_t)/*_.VALROUT___V471*/ meltfptr[470])->tabval[3] = (melt_ptr_t)(/*_.CLASS_LOCATED__V38*/ meltfptr[37]); + ((meltroutine_ptr_t)/*_.VALROUT___V472*/ meltfptr[471])->tabval[3] = (melt_ptr_t)(/*_.CLASS_LOCATED__V38*/ meltfptr[37]); MELT_LOCATION("warmelt-normatch.melt:1633:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V471*/ meltfptr[470])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V324*/ meltfptr[323]); - ((meltroutine_ptr_t)/*_.VALROUT___V471*/ meltfptr[470])->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V324*/ meltfptr[323]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V472*/ meltfptr[471])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V325*/ meltfptr[324]); + ((meltroutine_ptr_t)/*_.VALROUT___V472*/ meltfptr[471])->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V325*/ meltfptr[324]); MELT_LOCATION("warmelt-normatch.melt:1633:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V471*/ meltfptr[470])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V230*/ meltfptr[229]); - ((meltroutine_ptr_t)/*_.VALROUT___V471*/ meltfptr[470])->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V230*/ meltfptr[229]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V472*/ meltfptr[471])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V231*/ meltfptr[230]); + ((meltroutine_ptr_t)/*_.VALROUT___V472*/ meltfptr[471])->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V231*/ meltfptr[230]); MELT_LOCATION("warmelt-normatch.melt:1633:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V471*/ meltfptr[470])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V230*/ meltfptr[229]); - ((meltroutine_ptr_t)/*_.VALROUT___V471*/ meltfptr[470])->tabval[6] = (melt_ptr_t)(/*_.VALDATA___V230*/ meltfptr[229]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V472*/ meltfptr[471])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V231*/ meltfptr[230]); + ((meltroutine_ptr_t)/*_.VALROUT___V472*/ meltfptr[471])->tabval[6] = (melt_ptr_t)(/*_.VALDATA___V231*/ meltfptr[230]); MELT_LOCATION("warmelt-normatch.melt:1633:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V471*/ meltfptr[470])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V472*/ meltfptr[471])) == OBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_399__NORMPAT_CONSTPAT#7", NULL != (/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8])); - ((meltroutine_ptr_t)/*_.VALROUT___V471*/ meltfptr[470])->tabval[7] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8]); + ((meltroutine_ptr_t)/*_.VALROUT___V472*/ meltfptr[471])->tabval[7] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8]); MELT_LOCATION("warmelt-normatch.melt:1669:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V472*/ meltfptr[471])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V230*/ meltfptr[229]); - ((meltroutine_ptr_t)/*_.VALROUT___V472*/ meltfptr[471])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V230*/ meltfptr[229]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V473*/ meltfptr[472])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V231*/ meltfptr[230]); + ((meltroutine_ptr_t)/*_.VALROUT___V473*/ meltfptr[472])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V231*/ meltfptr[230]); MELT_LOCATION("warmelt-normatch.melt:1669:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V472*/ meltfptr[471])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V473*/ meltfptr[472])) == OBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_401__LAMBDA_#1", NULL != (/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8])); - ((meltroutine_ptr_t)/*_.VALROUT___V472*/ meltfptr[471])->tabval[1] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8]); + ((meltroutine_ptr_t)/*_.VALROUT___V473*/ meltfptr[472])->tabval[1] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8]); MELT_LOCATION("warmelt-normatch.melt:1669:/ initchunk"); /*^touch*/ /*touch:IROUTVAL_*/ - meltgc_touch(/*_.VALROUT___V472*/ meltfptr[471]); + meltgc_touch(/*_.VALROUT___V473*/ meltfptr[472]); MELT_LOCATION("warmelt-normatch.melt:1633:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V471*/ meltfptr[470])) == OBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_399__NORMPAT_CONSTPAT#8", NULL != (/*_.VALROUT___V472*/ meltfptr[471])); - ((meltroutine_ptr_t)/*_.VALROUT___V471*/ meltfptr[470])->tabval[8] = (melt_ptr_t)(/*_.VALROUT___V472*/ meltfptr[471]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V472*/ meltfptr[471])) == OBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_399__NORMPAT_CONSTPAT#8", NULL != (/*_.VALROUT___V473*/ meltfptr[472])); + ((meltroutine_ptr_t)/*_.VALROUT___V472*/ meltfptr[471])->tabval[8] = (melt_ptr_t)(/*_.VALROUT___V473*/ meltfptr[472]); MELT_LOCATION("warmelt-normatch.melt:1633:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V471*/ meltfptr[470])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V472*/ meltfptr[471])) == OBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_399__NORMPAT_CONSTPAT#9", NULL != (/*_.DISCR_LIST__V36*/ meltfptr[35])); - ((meltroutine_ptr_t)/*_.VALROUT___V471*/ meltfptr[470])->tabval[9] = (melt_ptr_t)(/*_.DISCR_LIST__V36*/ meltfptr[35]); + ((meltroutine_ptr_t)/*_.VALROUT___V472*/ meltfptr[471])->tabval[9] = (melt_ptr_t)(/*_.DISCR_LIST__V36*/ meltfptr[35]); MELT_LOCATION("warmelt-normatch.melt:1633:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V471*/ meltfptr[470])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V389*/ meltfptr[388]); - ((meltroutine_ptr_t)/*_.VALROUT___V471*/ meltfptr[470])->tabval[10] = (melt_ptr_t)(/*_.VALCLO___V389*/ meltfptr[388]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V472*/ meltfptr[471])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V390*/ meltfptr[389]); + ((meltroutine_ptr_t)/*_.VALROUT___V472*/ meltfptr[471])->tabval[10] = (melt_ptr_t)(/*_.VALCLO___V390*/ meltfptr[389]); MELT_LOCATION("warmelt-normatch.melt:1633:/ initchunk"); /*^touch*/ /*touch:IROUTVAL_*/ - meltgc_touch(/*_.VALROUT___V471*/ meltfptr[470]); + meltgc_touch(/*_.VALROUT___V472*/ meltfptr[471]); /*putclosurout*/ - melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V473*/ meltfptr[472])) == OBMAG_CLOSURE); - melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V471*/ meltfptr[470])) == OBMAG_ROUTINE); - ((meltclosure_ptr_t)/*_.VALCLO___V473*/ meltfptr[472])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V471*/ meltfptr[470]); + melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V474*/ meltfptr[473])) == OBMAG_CLOSURE); + melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V472*/ meltfptr[471])) == OBMAG_ROUTINE); + ((meltclosure_ptr_t)/*_.VALCLO___V474*/ meltfptr[473])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V472*/ meltfptr[471]); /*touch:DATACLOSURE_*/ - meltgc_touch(/*_.VALCLO___V473*/ meltfptr[472]); + meltgc_touch(/*_.VALCLO___V474*/ meltfptr[473]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V474*/ meltfptr[473])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V475*/ meltfptr[474])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V474*/ meltfptr[473])))); - ((meltobject_ptr_t)(/*_.VALDATA___V474*/ meltfptr[473]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V475*/ meltfptr[474]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V475*/ meltfptr[474])))); + ((meltobject_ptr_t)(/*_.VALDATA___V475*/ meltfptr[474]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V476*/ meltfptr[475]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V474*/ meltfptr[473]); + meltgc_touch(/*_.VALDATA___V475*/ meltfptr[474]); MELT_LOCATION("warmelt-normatch.melt:1711:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V476*/ meltfptr[475])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V477*/ meltfptr[476])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V476*/ meltfptr[475])))); - ((meltobject_ptr_t)(/*_.VALDATA___V476*/ meltfptr[475]))->obj_vartab[0] = (melt_ptr_t)( + melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V477*/ meltfptr[476])))); + ((meltobject_ptr_t)(/*_.VALDATA___V477*/ meltfptr[476]))->obj_vartab[0] = (melt_ptr_t)( (/*nil*/NULL)); MELT_LOCATION("warmelt-normatch.melt:1711:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V476*/ meltfptr[475]); + meltgc_touch(/*_.VALDATA___V477*/ meltfptr[476]); MELT_LOCATION("warmelt-normatch.melt:1714:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V477*/ meltfptr[476])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V478*/ meltfptr[477])) == OBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_405__MATCH_GRAPHIC_OPTSET#0", NULL != (/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8])); - ((meltroutine_ptr_t)/*_.VALROUT___V477*/ meltfptr[476])->tabval[0] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8]); + ((meltroutine_ptr_t)/*_.VALROUT___V478*/ meltfptr[477])->tabval[0] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8]); MELT_LOCATION("warmelt-normatch.melt:1714:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V477*/ meltfptr[476])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V478*/ meltfptr[477])) == OBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_405__MATCH_GRAPHIC_OPTSET#1", NULL != (/*_.DISCR_STRING__V59*/ meltfptr[58])); - ((meltroutine_ptr_t)/*_.VALROUT___V477*/ meltfptr[476])->tabval[1] = (melt_ptr_t)(/*_.DISCR_STRING__V59*/ meltfptr[58]); + ((meltroutine_ptr_t)/*_.VALROUT___V478*/ meltfptr[477])->tabval[1] = (melt_ptr_t)(/*_.DISCR_STRING__V59*/ meltfptr[58]); MELT_LOCATION("warmelt-normatch.melt:1714:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V477*/ meltfptr[476])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V476*/ meltfptr[475]); - ((meltroutine_ptr_t)/*_.VALROUT___V477*/ meltfptr[476])->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V476*/ meltfptr[475]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V478*/ meltfptr[477])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V477*/ meltfptr[476]); + ((meltroutine_ptr_t)/*_.VALROUT___V478*/ meltfptr[477])->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V477*/ meltfptr[476]); MELT_LOCATION("warmelt-normatch.melt:1714:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V477*/ meltfptr[476])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V478*/ meltfptr[477])) == OBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_405__MATCH_GRAPHIC_OPTSET#3", NULL != (/*_.CLASS_CONTAINER__V37*/ meltfptr[36])); - ((meltroutine_ptr_t)/*_.VALROUT___V477*/ meltfptr[476])->tabval[3] = (melt_ptr_t)(/*_.CLASS_CONTAINER__V37*/ meltfptr[36]); + ((meltroutine_ptr_t)/*_.VALROUT___V478*/ meltfptr[477])->tabval[3] = (melt_ptr_t)(/*_.CLASS_CONTAINER__V37*/ meltfptr[36]); MELT_LOCATION("warmelt-normatch.melt:1714:/ initchunk"); /*^touch*/ /*touch:IROUTVAL_*/ - meltgc_touch(/*_.VALROUT___V477*/ meltfptr[476]); + meltgc_touch(/*_.VALROUT___V478*/ meltfptr[477]); /*putclosurout*/ - melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V478*/ meltfptr[477])) == OBMAG_CLOSURE); - melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V477*/ meltfptr[476])) == OBMAG_ROUTINE); - ((meltclosure_ptr_t)/*_.VALCLO___V478*/ meltfptr[477])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V477*/ meltfptr[476]); + melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V479*/ meltfptr[478])) == OBMAG_CLOSURE); + melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V478*/ meltfptr[477])) == OBMAG_ROUTINE); + ((meltclosure_ptr_t)/*_.VALCLO___V479*/ meltfptr[478])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V478*/ meltfptr[477]); /*touch:DATACLOSURE_*/ - meltgc_touch(/*_.VALCLO___V478*/ meltfptr[477]); + meltgc_touch(/*_.VALCLO___V479*/ meltfptr[478]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V479*/ meltfptr[478])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V480*/ meltfptr[479])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V479*/ meltfptr[478])))); - ((meltobject_ptr_t)(/*_.VALDATA___V479*/ meltfptr[478]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V480*/ meltfptr[479]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V480*/ meltfptr[479])))); + ((meltobject_ptr_t)(/*_.VALDATA___V480*/ meltfptr[479]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V481*/ meltfptr[480]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V479*/ meltfptr[478]); + meltgc_touch(/*_.VALDATA___V480*/ meltfptr[479]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V481*/ meltfptr[480])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V482*/ meltfptr[481])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V481*/ meltfptr[480])))); - ((meltobject_ptr_t)(/*_.VALDATA___V481*/ meltfptr[480]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V482*/ meltfptr[481]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V482*/ meltfptr[481])))); + ((meltobject_ptr_t)(/*_.VALDATA___V482*/ meltfptr[481]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V483*/ meltfptr[482]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V481*/ meltfptr[480]); + meltgc_touch(/*_.VALDATA___V482*/ meltfptr[481]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V483*/ meltfptr[482])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V484*/ meltfptr[483])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V483*/ meltfptr[482])))); - ((meltobject_ptr_t)(/*_.VALDATA___V483*/ meltfptr[482]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V484*/ meltfptr[483]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V484*/ meltfptr[483])))); + ((meltobject_ptr_t)(/*_.VALDATA___V484*/ meltfptr[483]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V485*/ meltfptr[484]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V483*/ meltfptr[482]); + meltgc_touch(/*_.VALDATA___V484*/ meltfptr[483]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V486*/ meltfptr[485])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V487*/ meltfptr[486])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V486*/ meltfptr[485])))); - ((meltobject_ptr_t)(/*_.VALDATA___V486*/ meltfptr[485]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V487*/ meltfptr[486]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V487*/ meltfptr[486])))); + ((meltobject_ptr_t)(/*_.VALDATA___V487*/ meltfptr[486]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V488*/ meltfptr[487]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V486*/ meltfptr[485]); + meltgc_touch(/*_.VALDATA___V487*/ meltfptr[486]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V488*/ meltfptr[487])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V489*/ meltfptr[488])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V488*/ meltfptr[487])))); - ((meltobject_ptr_t)(/*_.VALDATA___V488*/ meltfptr[487]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V489*/ meltfptr[488]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V489*/ meltfptr[488])))); + ((meltobject_ptr_t)(/*_.VALDATA___V489*/ meltfptr[488]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V490*/ meltfptr[489]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V488*/ meltfptr[487]); + meltgc_touch(/*_.VALDATA___V489*/ meltfptr[488]); MELT_LOCATION("warmelt-normatch.melt:1730:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V490*/ meltfptr[489])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V491*/ meltfptr[490])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V490*/ meltfptr[489])))); - ((meltobject_ptr_t)(/*_.VALDATA___V490*/ meltfptr[489]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V491*/ meltfptr[490]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V491*/ meltfptr[490])))); + ((meltobject_ptr_t)(/*_.VALDATA___V491*/ meltfptr[490]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V492*/ meltfptr[491]); MELT_LOCATION("warmelt-normatch.melt:1730:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V490*/ meltfptr[489])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V491*/ meltfptr[490])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V490*/ meltfptr[489])))); - ((meltobject_ptr_t)(/*_.VALDATA___V490*/ meltfptr[489]))->obj_vartab[4] = (melt_ptr_t)( + melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V491*/ meltfptr[490])))); + ((meltobject_ptr_t)(/*_.VALDATA___V491*/ meltfptr[490]))->obj_vartab[4] = (melt_ptr_t)( /*_.CLASS_PROPED__V61*/ meltfptr[60]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V492*/ meltfptr[491]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V492*/ meltfptr[491])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V492*/ meltfptr[491]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_PROPED__V61*/ meltfptr[60]),5))), (0)))); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V493*/ meltfptr[492]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V493*/ meltfptr[492])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V493*/ meltfptr[492]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_PROPED__V61*/ meltfptr[60]),5))), (0)))); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V492*/ meltfptr[491]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V492*/ meltfptr[491])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V492*/ meltfptr[491]))->tabval[1] = (melt_ptr_t)(/*_.CLASS_PROPED__V61*/ meltfptr[60]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V493*/ meltfptr[492]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V493*/ meltfptr[492])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V493*/ meltfptr[492]))->tabval[1] = (melt_ptr_t)(/*_.CLASS_PROPED__V61*/ meltfptr[60]); /*touch:INITUP_*/ - meltgc_touch(/*_.VALTUP___V492*/ meltfptr[491]); + meltgc_touch(/*_.VALTUP___V493*/ meltfptr[492]); MELT_LOCATION("warmelt-normatch.melt:1730:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V490*/ meltfptr[489])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V491*/ meltfptr[490])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V490*/ meltfptr[489])))); - ((meltobject_ptr_t)(/*_.VALDATA___V490*/ meltfptr[489]))->obj_vartab[5] = (melt_ptr_t)( - /*_.VALTUP___V492*/ meltfptr[491]); + melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V491*/ meltfptr[490])))); + ((meltobject_ptr_t)(/*_.VALDATA___V491*/ meltfptr[490]))->obj_vartab[5] = (melt_ptr_t)( + /*_.VALTUP___V493*/ meltfptr[492]); MELT_LOCATION("warmelt-normatch.melt:1730:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V493*/ meltfptr[492])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V494*/ meltfptr[493])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V493*/ meltfptr[492])))); - ((meltobject_ptr_t)(/*_.VALDATA___V493*/ meltfptr[492]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V494*/ meltfptr[493]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V494*/ meltfptr[493])))); + ((meltobject_ptr_t)(/*_.VALDATA___V494*/ meltfptr[493]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V495*/ meltfptr[494]); MELT_LOCATION("warmelt-normatch.melt:1730:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V493*/ meltfptr[492])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V494*/ meltfptr[493])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V493*/ meltfptr[492])))); - ((meltobject_ptr_t)(/*_.VALDATA___V493*/ meltfptr[492]))->obj_vartab[2] = (melt_ptr_t)( - /*_.VALDATA___V490*/ meltfptr[489]); + melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V494*/ meltfptr[493])))); + ((meltobject_ptr_t)(/*_.VALDATA___V494*/ meltfptr[493]))->obj_vartab[2] = (melt_ptr_t)( + /*_.VALDATA___V491*/ meltfptr[490]); MELT_LOCATION("warmelt-normatch.melt:1730:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V493*/ meltfptr[492]); + meltgc_touch(/*_.VALDATA___V494*/ meltfptr[493]); MELT_LOCATION("warmelt-normatch.melt:1730:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V495*/ meltfptr[494])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V496*/ meltfptr[495])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V495*/ meltfptr[494])))); - ((meltobject_ptr_t)(/*_.VALDATA___V495*/ meltfptr[494]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V496*/ meltfptr[495]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V496*/ meltfptr[495])))); + ((meltobject_ptr_t)(/*_.VALDATA___V496*/ meltfptr[495]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V497*/ meltfptr[496]); MELT_LOCATION("warmelt-normatch.melt:1730:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V495*/ meltfptr[494])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V496*/ meltfptr[495])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V495*/ meltfptr[494])))); - ((meltobject_ptr_t)(/*_.VALDATA___V495*/ meltfptr[494]))->obj_vartab[2] = (melt_ptr_t)( - /*_.VALDATA___V490*/ meltfptr[489]); + melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V496*/ meltfptr[495])))); + ((meltobject_ptr_t)(/*_.VALDATA___V496*/ meltfptr[495]))->obj_vartab[2] = (melt_ptr_t)( + /*_.VALDATA___V491*/ meltfptr[490]); MELT_LOCATION("warmelt-normatch.melt:1730:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V495*/ meltfptr[494]); + meltgc_touch(/*_.VALDATA___V496*/ meltfptr[495]); MELT_LOCATION("warmelt-normatch.melt:1730:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V497*/ meltfptr[496])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V498*/ meltfptr[497])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V497*/ meltfptr[496])))); - ((meltobject_ptr_t)(/*_.VALDATA___V497*/ meltfptr[496]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V498*/ meltfptr[497]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V498*/ meltfptr[497])))); + ((meltobject_ptr_t)(/*_.VALDATA___V498*/ meltfptr[497]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V499*/ meltfptr[498]); MELT_LOCATION("warmelt-normatch.melt:1730:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V497*/ meltfptr[496])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V498*/ meltfptr[497])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V497*/ meltfptr[496])))); - ((meltobject_ptr_t)(/*_.VALDATA___V497*/ meltfptr[496]))->obj_vartab[2] = (melt_ptr_t)( - /*_.VALDATA___V490*/ meltfptr[489]); + melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V498*/ meltfptr[497])))); + ((meltobject_ptr_t)(/*_.VALDATA___V498*/ meltfptr[497]))->obj_vartab[2] = (melt_ptr_t)( + /*_.VALDATA___V491*/ meltfptr[490]); MELT_LOCATION("warmelt-normatch.melt:1730:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V497*/ meltfptr[496]); + meltgc_touch(/*_.VALDATA___V498*/ meltfptr[497]); MELT_LOCATION("warmelt-normatch.melt:1730:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V499*/ meltfptr[498])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V500*/ meltfptr[499])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V499*/ meltfptr[498])))); - ((meltobject_ptr_t)(/*_.VALDATA___V499*/ meltfptr[498]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V500*/ meltfptr[499]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V500*/ meltfptr[499])))); + ((meltobject_ptr_t)(/*_.VALDATA___V500*/ meltfptr[499]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V501*/ meltfptr[500]); MELT_LOCATION("warmelt-normatch.melt:1730:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V499*/ meltfptr[498])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V500*/ meltfptr[499])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V499*/ meltfptr[498])))); - ((meltobject_ptr_t)(/*_.VALDATA___V499*/ meltfptr[498]))->obj_vartab[2] = (melt_ptr_t)( - /*_.VALDATA___V490*/ meltfptr[489]); + melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V500*/ meltfptr[499])))); + ((meltobject_ptr_t)(/*_.VALDATA___V500*/ meltfptr[499]))->obj_vartab[2] = (melt_ptr_t)( + /*_.VALDATA___V491*/ meltfptr[490]); MELT_LOCATION("warmelt-normatch.melt:1730:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V499*/ meltfptr[498]); + meltgc_touch(/*_.VALDATA___V500*/ meltfptr[499]); MELT_LOCATION("warmelt-normatch.melt:1730:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V501*/ meltfptr[500])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V502*/ meltfptr[501])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V501*/ meltfptr[500])))); - ((meltobject_ptr_t)(/*_.VALDATA___V501*/ meltfptr[500]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V502*/ meltfptr[501]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V502*/ meltfptr[501])))); + ((meltobject_ptr_t)(/*_.VALDATA___V502*/ meltfptr[501]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V503*/ meltfptr[502]); MELT_LOCATION("warmelt-normatch.melt:1730:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V501*/ meltfptr[500])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V502*/ meltfptr[501])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V501*/ meltfptr[500])))); - ((meltobject_ptr_t)(/*_.VALDATA___V501*/ meltfptr[500]))->obj_vartab[2] = (melt_ptr_t)( - /*_.VALDATA___V490*/ meltfptr[489]); + melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V502*/ meltfptr[501])))); + ((meltobject_ptr_t)(/*_.VALDATA___V502*/ meltfptr[501]))->obj_vartab[2] = (melt_ptr_t)( + /*_.VALDATA___V491*/ meltfptr[490]); MELT_LOCATION("warmelt-normatch.melt:1730:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V501*/ meltfptr[500]); + meltgc_touch(/*_.VALDATA___V502*/ meltfptr[501]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V503*/ meltfptr[502]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V503*/ meltfptr[502])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V503*/ meltfptr[502]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_PROPED__V61*/ meltfptr[60]),6))), (0)))); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V504*/ meltfptr[503]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V504*/ meltfptr[503])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V504*/ meltfptr[503]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_PROPED__V61*/ meltfptr[60]),6))), (0)))); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V503*/ meltfptr[502]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V503*/ meltfptr[502])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V503*/ meltfptr[502]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V493*/ meltfptr[492]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V504*/ meltfptr[503]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V504*/ meltfptr[503])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V504*/ meltfptr[503]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V494*/ meltfptr[493]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V503*/ meltfptr[502]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V503*/ meltfptr[502])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V503*/ meltfptr[502]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V495*/ meltfptr[494]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V504*/ meltfptr[503]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V504*/ meltfptr[503])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V504*/ meltfptr[503]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V496*/ meltfptr[495]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V503*/ meltfptr[502]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V503*/ meltfptr[502])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V503*/ meltfptr[502]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V497*/ meltfptr[496]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V504*/ meltfptr[503]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V504*/ meltfptr[503])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V504*/ meltfptr[503]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V498*/ meltfptr[497]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V503*/ meltfptr[502]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V503*/ meltfptr[502])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V503*/ meltfptr[502]))->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V499*/ meltfptr[498]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V504*/ meltfptr[503]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V504*/ meltfptr[503])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V504*/ meltfptr[503]))->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V500*/ meltfptr[499]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V503*/ meltfptr[502]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V503*/ meltfptr[502])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V503*/ meltfptr[502]))->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V501*/ meltfptr[500]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V504*/ meltfptr[503]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V504*/ meltfptr[503])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V504*/ meltfptr[503]))->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V502*/ meltfptr[501]); /*touch:INITUP_*/ - meltgc_touch(/*_.VALTUP___V503*/ meltfptr[502]); + meltgc_touch(/*_.VALTUP___V504*/ meltfptr[503]); MELT_LOCATION("warmelt-normatch.melt:1730:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V490*/ meltfptr[489])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V491*/ meltfptr[490])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V490*/ meltfptr[489])))); - ((meltobject_ptr_t)(/*_.VALDATA___V490*/ meltfptr[489]))->obj_vartab[6] = (melt_ptr_t)( - /*_.VALTUP___V503*/ meltfptr[502]); + melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V491*/ meltfptr[490])))); + ((meltobject_ptr_t)(/*_.VALDATA___V491*/ meltfptr[490]))->obj_vartab[6] = (melt_ptr_t)( + /*_.VALTUP___V504*/ meltfptr[503]); MELT_LOCATION("warmelt-normatch.melt:1730:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V490*/ meltfptr[489]); + meltgc_touch(/*_.VALDATA___V491*/ meltfptr[490]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V504*/ meltfptr[503])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V505*/ meltfptr[504])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V504*/ meltfptr[503])))); - ((meltobject_ptr_t)(/*_.VALDATA___V504*/ meltfptr[503]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V505*/ meltfptr[504]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V505*/ meltfptr[504])))); + ((meltobject_ptr_t)(/*_.VALDATA___V505*/ meltfptr[504]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V506*/ meltfptr[505]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V504*/ meltfptr[503]); + meltgc_touch(/*_.VALDATA___V505*/ meltfptr[504]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V506*/ meltfptr[505])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V507*/ meltfptr[506])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V506*/ meltfptr[505])))); - ((meltobject_ptr_t)(/*_.VALDATA___V506*/ meltfptr[505]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V507*/ meltfptr[506]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V507*/ meltfptr[506])))); + ((meltobject_ptr_t)(/*_.VALDATA___V507*/ meltfptr[506]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V508*/ meltfptr[507]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V506*/ meltfptr[505]); + meltgc_touch(/*_.VALDATA___V507*/ meltfptr[506]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V508*/ meltfptr[507])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V509*/ meltfptr[508])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V508*/ meltfptr[507])))); - ((meltobject_ptr_t)(/*_.VALDATA___V508*/ meltfptr[507]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V509*/ meltfptr[508]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V509*/ meltfptr[508])))); + ((meltobject_ptr_t)(/*_.VALDATA___V509*/ meltfptr[508]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V510*/ meltfptr[509]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V508*/ meltfptr[507]); + meltgc_touch(/*_.VALDATA___V509*/ meltfptr[508]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V510*/ meltfptr[509])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V511*/ meltfptr[510])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V510*/ meltfptr[509])))); - ((meltobject_ptr_t)(/*_.VALDATA___V510*/ meltfptr[509]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V511*/ meltfptr[510]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V511*/ meltfptr[510])))); + ((meltobject_ptr_t)(/*_.VALDATA___V511*/ meltfptr[510]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V512*/ meltfptr[511]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V510*/ meltfptr[509]); + meltgc_touch(/*_.VALDATA___V511*/ meltfptr[510]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V512*/ meltfptr[511])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V513*/ meltfptr[512])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V512*/ meltfptr[511])))); - ((meltobject_ptr_t)(/*_.VALDATA___V512*/ meltfptr[511]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V513*/ meltfptr[512]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V513*/ meltfptr[512])))); + ((meltobject_ptr_t)(/*_.VALDATA___V513*/ meltfptr[512]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V514*/ meltfptr[513]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V512*/ meltfptr[511]); + meltgc_touch(/*_.VALDATA___V513*/ meltfptr[512]); MELT_LOCATION("warmelt-normatch.melt:1744:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V514*/ meltfptr[513])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V230*/ meltfptr[229]); - ((meltroutine_ptr_t)/*_.VALROUT___V514*/ meltfptr[513])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V230*/ meltfptr[229]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V515*/ meltfptr[514])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V231*/ meltfptr[230]); + ((meltroutine_ptr_t)/*_.VALROUT___V515*/ meltfptr[514])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V231*/ meltfptr[230]); MELT_LOCATION("warmelt-normatch.melt:1744:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V514*/ meltfptr[513])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V515*/ meltfptr[514])) == OBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_442__MG_OUT_NODE_NAME#1", NULL != (/*_.CLASS_NAMED__V10*/ meltfptr[9])); - ((meltroutine_ptr_t)/*_.VALROUT___V514*/ meltfptr[513])->tabval[1] = (melt_ptr_t)(/*_.CLASS_NAMED__V10*/ meltfptr[9]); + ((meltroutine_ptr_t)/*_.VALROUT___V515*/ meltfptr[514])->tabval[1] = (melt_ptr_t)(/*_.CLASS_NAMED__V10*/ meltfptr[9]); MELT_LOCATION("warmelt-normatch.melt:1744:/ initchunk"); /*^touch*/ /*touch:IROUTVAL_*/ - meltgc_touch(/*_.VALROUT___V514*/ meltfptr[513]); + meltgc_touch(/*_.VALROUT___V515*/ meltfptr[514]); /*putclosurout*/ - melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V515*/ meltfptr[514])) == OBMAG_CLOSURE); - melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V514*/ meltfptr[513])) == OBMAG_ROUTINE); - ((meltclosure_ptr_t)/*_.VALCLO___V515*/ meltfptr[514])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V514*/ meltfptr[513]); + melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V516*/ meltfptr[515])) == OBMAG_CLOSURE); + melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V515*/ meltfptr[514])) == OBMAG_ROUTINE); + ((meltclosure_ptr_t)/*_.VALCLO___V516*/ meltfptr[515])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V515*/ meltfptr[514]); /*touch:DATACLOSURE_*/ - meltgc_touch(/*_.VALCLO___V515*/ meltfptr[514]); + meltgc_touch(/*_.VALCLO___V516*/ meltfptr[515]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V516*/ meltfptr[515])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V517*/ meltfptr[516])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V516*/ meltfptr[515])))); - ((meltobject_ptr_t)(/*_.VALDATA___V516*/ meltfptr[515]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V517*/ meltfptr[516]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V517*/ meltfptr[516])))); + ((meltobject_ptr_t)(/*_.VALDATA___V517*/ meltfptr[516]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V518*/ meltfptr[517]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V516*/ meltfptr[515]); + meltgc_touch(/*_.VALDATA___V517*/ meltfptr[516]); MELT_LOCATION("warmelt-normatch.melt:1767:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V518*/ meltfptr[517])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V519*/ meltfptr[518])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V518*/ meltfptr[517])))); - ((meltobject_ptr_t)(/*_.VALDATA___V518*/ meltfptr[517]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V519*/ meltfptr[518]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V519*/ meltfptr[518])))); + ((meltobject_ptr_t)(/*_.VALDATA___V519*/ meltfptr[518]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V520*/ meltfptr[519]); MELT_LOCATION("warmelt-normatch.melt:1767:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V518*/ meltfptr[517]); + meltgc_touch(/*_.VALDATA___V519*/ meltfptr[518]); MELT_LOCATION("warmelt-normatch.melt:1770:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V520*/ meltfptr[519])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V521*/ meltfptr[520])) == OBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_448__MGLABEL_ANY_TEST#0", NULL != (/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8])); - ((meltroutine_ptr_t)/*_.VALROUT___V520*/ meltfptr[519])->tabval[0] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8]); + ((meltroutine_ptr_t)/*_.VALROUT___V521*/ meltfptr[520])->tabval[0] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8]); MELT_LOCATION("warmelt-normatch.melt:1770:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V520*/ meltfptr[519])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V230*/ meltfptr[229]); - ((meltroutine_ptr_t)/*_.VALROUT___V520*/ meltfptr[519])->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V230*/ meltfptr[229]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V521*/ meltfptr[520])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V231*/ meltfptr[230]); + ((meltroutine_ptr_t)/*_.VALROUT___V521*/ meltfptr[520])->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V231*/ meltfptr[230]); MELT_LOCATION("warmelt-normatch.melt:1770:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V520*/ meltfptr[519])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V490*/ meltfptr[489]); - ((meltroutine_ptr_t)/*_.VALROUT___V520*/ meltfptr[519])->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V490*/ meltfptr[489]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V521*/ meltfptr[520])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V491*/ meltfptr[490]); + ((meltroutine_ptr_t)/*_.VALROUT___V521*/ meltfptr[520])->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V491*/ meltfptr[490]); MELT_LOCATION("warmelt-normatch.melt:1770:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V520*/ meltfptr[519])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V515*/ meltfptr[514]); - ((meltroutine_ptr_t)/*_.VALROUT___V520*/ meltfptr[519])->tabval[3] = (melt_ptr_t)(/*_.VALCLO___V515*/ meltfptr[514]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V521*/ meltfptr[520])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V516*/ meltfptr[515]); + ((meltroutine_ptr_t)/*_.VALROUT___V521*/ meltfptr[520])->tabval[3] = (melt_ptr_t)(/*_.VALCLO___V516*/ meltfptr[515]); MELT_LOCATION("warmelt-normatch.melt:1770:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V520*/ meltfptr[519])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V521*/ meltfptr[520])) == OBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_448__MGLABEL_ANY_TEST#4", NULL != (/*_.CLASS_NREP_LOCSYMOCC__V39*/ meltfptr[38])); - ((meltroutine_ptr_t)/*_.VALROUT___V520*/ meltfptr[519])->tabval[4] = (melt_ptr_t)(/*_.CLASS_NREP_LOCSYMOCC__V39*/ meltfptr[38]); + ((meltroutine_ptr_t)/*_.VALROUT___V521*/ meltfptr[520])->tabval[4] = (melt_ptr_t)(/*_.CLASS_NREP_LOCSYMOCC__V39*/ meltfptr[38]); MELT_LOCATION("warmelt-normatch.melt:1770:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V520*/ meltfptr[519])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V521*/ meltfptr[520])) == OBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_448__MGLABEL_ANY_TEST#5", NULL != (/*_.CLASS_CLONED_SYMBOL__V62*/ meltfptr[61])); - ((meltroutine_ptr_t)/*_.VALROUT___V520*/ meltfptr[519])->tabval[5] = (melt_ptr_t)(/*_.CLASS_CLONED_SYMBOL__V62*/ meltfptr[61]); + ((meltroutine_ptr_t)/*_.VALROUT___V521*/ meltfptr[520])->tabval[5] = (melt_ptr_t)(/*_.CLASS_CLONED_SYMBOL__V62*/ meltfptr[61]); MELT_LOCATION("warmelt-normatch.melt:1770:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V520*/ meltfptr[519])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V521*/ meltfptr[520])) == OBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_448__MGLABEL_ANY_TEST#6", NULL != (/*_.CLASS_NAMED__V10*/ meltfptr[9])); - ((meltroutine_ptr_t)/*_.VALROUT___V520*/ meltfptr[519])->tabval[6] = (melt_ptr_t)(/*_.CLASS_NAMED__V10*/ meltfptr[9]); + ((meltroutine_ptr_t)/*_.VALROUT___V521*/ meltfptr[520])->tabval[6] = (melt_ptr_t)(/*_.CLASS_NAMED__V10*/ meltfptr[9]); MELT_LOCATION("warmelt-normatch.melt:1770:/ initchunk"); /*^touch*/ /*touch:IROUTVAL_*/ - meltgc_touch(/*_.VALROUT___V520*/ meltfptr[519]); + meltgc_touch(/*_.VALROUT___V521*/ meltfptr[520]); /*putclosurout*/ - melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V521*/ meltfptr[520])) == OBMAG_CLOSURE); - melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V520*/ meltfptr[519])) == OBMAG_ROUTINE); - ((meltclosure_ptr_t)/*_.VALCLO___V521*/ meltfptr[520])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V520*/ meltfptr[519]); + melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V522*/ meltfptr[521])) == OBMAG_CLOSURE); + melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V521*/ meltfptr[520])) == OBMAG_ROUTINE); + ((meltclosure_ptr_t)/*_.VALCLO___V522*/ meltfptr[521])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V521*/ meltfptr[520]); /*touch:DATACLOSURE_*/ - meltgc_touch(/*_.VALCLO___V521*/ meltfptr[520]); + meltgc_touch(/*_.VALCLO___V522*/ meltfptr[521]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V522*/ meltfptr[521])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V523*/ meltfptr[522])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V522*/ meltfptr[521])))); - ((meltobject_ptr_t)(/*_.VALDATA___V522*/ meltfptr[521]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V523*/ meltfptr[522]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V523*/ meltfptr[522])))); + ((meltobject_ptr_t)(/*_.VALDATA___V523*/ meltfptr[522]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V524*/ meltfptr[523]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V522*/ meltfptr[521]); + meltgc_touch(/*_.VALDATA___V523*/ meltfptr[522]); MELT_LOCATION("warmelt-normatch.melt:1831:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V524*/ meltfptr[523])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V525*/ meltfptr[524])) == OBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_452__MGLABEL_INSTANCE_TEST#0", NULL != (/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8])); - ((meltroutine_ptr_t)/*_.VALROUT___V524*/ meltfptr[523])->tabval[0] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8]); + ((meltroutine_ptr_t)/*_.VALROUT___V525*/ meltfptr[524])->tabval[0] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8]); MELT_LOCATION("warmelt-normatch.melt:1831:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V524*/ meltfptr[523])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V356*/ meltfptr[355]); - ((meltroutine_ptr_t)/*_.VALROUT___V524*/ meltfptr[523])->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V356*/ meltfptr[355]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V525*/ meltfptr[524])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V357*/ meltfptr[356]); + ((meltroutine_ptr_t)/*_.VALROUT___V525*/ meltfptr[524])->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V357*/ meltfptr[356]); MELT_LOCATION("warmelt-normatch.melt:1831:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V524*/ meltfptr[523])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V490*/ meltfptr[489]); - ((meltroutine_ptr_t)/*_.VALROUT___V524*/ meltfptr[523])->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V490*/ meltfptr[489]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V525*/ meltfptr[524])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V491*/ meltfptr[490]); + ((meltroutine_ptr_t)/*_.VALROUT___V525*/ meltfptr[524])->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V491*/ meltfptr[490]); MELT_LOCATION("warmelt-normatch.melt:1831:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V524*/ meltfptr[523])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V515*/ meltfptr[514]); - ((meltroutine_ptr_t)/*_.VALROUT___V524*/ meltfptr[523])->tabval[3] = (melt_ptr_t)(/*_.VALCLO___V515*/ meltfptr[514]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V525*/ meltfptr[524])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V516*/ meltfptr[515]); + ((meltroutine_ptr_t)/*_.VALROUT___V525*/ meltfptr[524])->tabval[3] = (melt_ptr_t)(/*_.VALCLO___V516*/ meltfptr[515]); MELT_LOCATION("warmelt-normatch.melt:1831:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V524*/ meltfptr[523])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V525*/ meltfptr[524])) == OBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_452__MGLABEL_INSTANCE_TEST#4", NULL != (/*_.CLASS_NREP_SYMOCC__V44*/ meltfptr[43])); - ((meltroutine_ptr_t)/*_.VALROUT___V524*/ meltfptr[523])->tabval[4] = (melt_ptr_t)(/*_.CLASS_NREP_SYMOCC__V44*/ meltfptr[43]); + ((meltroutine_ptr_t)/*_.VALROUT___V525*/ meltfptr[524])->tabval[4] = (melt_ptr_t)(/*_.CLASS_NREP_SYMOCC__V44*/ meltfptr[43]); MELT_LOCATION("warmelt-normatch.melt:1831:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V524*/ meltfptr[523])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V525*/ meltfptr[524])) == OBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_452__MGLABEL_INSTANCE_TEST#5", NULL != (/*_.CLASS_NAMED__V10*/ meltfptr[9])); - ((meltroutine_ptr_t)/*_.VALROUT___V524*/ meltfptr[523])->tabval[5] = (melt_ptr_t)(/*_.CLASS_NAMED__V10*/ meltfptr[9]); + ((meltroutine_ptr_t)/*_.VALROUT___V525*/ meltfptr[524])->tabval[5] = (melt_ptr_t)(/*_.CLASS_NAMED__V10*/ meltfptr[9]); MELT_LOCATION("warmelt-normatch.melt:1831:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V524*/ meltfptr[523])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V525*/ meltfptr[524])) == OBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_452__MGLABEL_INSTANCE_TEST#6", NULL != (/*_.CLASS_NREP_LOCSYMOCC__V39*/ meltfptr[38])); - ((meltroutine_ptr_t)/*_.VALROUT___V524*/ meltfptr[523])->tabval[6] = (melt_ptr_t)(/*_.CLASS_NREP_LOCSYMOCC__V39*/ meltfptr[38]); + ((meltroutine_ptr_t)/*_.VALROUT___V525*/ meltfptr[524])->tabval[6] = (melt_ptr_t)(/*_.CLASS_NREP_LOCSYMOCC__V39*/ meltfptr[38]); MELT_LOCATION("warmelt-normatch.melt:1831:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V524*/ meltfptr[523])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V525*/ meltfptr[524])) == OBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_452__MGLABEL_INSTANCE_TEST#7", NULL != (/*_.CLASS_CLONED_SYMBOL__V62*/ meltfptr[61])); - ((meltroutine_ptr_t)/*_.VALROUT___V524*/ meltfptr[523])->tabval[7] = (melt_ptr_t)(/*_.CLASS_CLONED_SYMBOL__V62*/ meltfptr[61]); + ((meltroutine_ptr_t)/*_.VALROUT___V525*/ meltfptr[524])->tabval[7] = (melt_ptr_t)(/*_.CLASS_CLONED_SYMBOL__V62*/ meltfptr[61]); MELT_LOCATION("warmelt-normatch.melt:1831:/ initchunk"); /*^touch*/ /*touch:IROUTVAL_*/ - meltgc_touch(/*_.VALROUT___V524*/ meltfptr[523]); + meltgc_touch(/*_.VALROUT___V525*/ meltfptr[524]); /*putclosurout*/ - melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V525*/ meltfptr[524])) == OBMAG_CLOSURE); - melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V524*/ meltfptr[523])) == OBMAG_ROUTINE); - ((meltclosure_ptr_t)/*_.VALCLO___V525*/ meltfptr[524])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V524*/ meltfptr[523]); + melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V526*/ meltfptr[525])) == OBMAG_CLOSURE); + melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V525*/ meltfptr[524])) == OBMAG_ROUTINE); + ((meltclosure_ptr_t)/*_.VALCLO___V526*/ meltfptr[525])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V525*/ meltfptr[524]); /*touch:DATACLOSURE_*/ - meltgc_touch(/*_.VALCLO___V525*/ meltfptr[524]); + meltgc_touch(/*_.VALCLO___V526*/ meltfptr[525]); MELT_LOCATION("warmelt-normatch.melt:1897:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V526*/ meltfptr[525])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V527*/ meltfptr[526])) == OBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_454__MGLABEL_SUCCESS_TEST#0", NULL != (/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8])); - ((meltroutine_ptr_t)/*_.VALROUT___V526*/ meltfptr[525])->tabval[0] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8]); - - MELT_LOCATION("warmelt-normatch.melt:1897:/ initchunk"); - /*^putroutconstnotnull*/ - /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V526*/ meltfptr[525])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V260*/ meltfptr[259]); - ((meltroutine_ptr_t)/*_.VALROUT___V526*/ meltfptr[525])->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V260*/ meltfptr[259]); + ((meltroutine_ptr_t)/*_.VALROUT___V527*/ meltfptr[526])->tabval[0] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8]); #undef meltfram__ @@ -30303,5864 +30931,7129 @@ void MELT_MODULE_VISIBILITY warmelt_normatch_initialmeltchunk_4 (struct frame_st MELT_LOCATION("warmelt-normatch.melt:1897:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V526*/ meltfptr[525])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V490*/ meltfptr[489]); - ((meltroutine_ptr_t)/*_.VALROUT___V526*/ meltfptr[525])->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V490*/ meltfptr[489]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V527*/ meltfptr[526])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V261*/ meltfptr[260]); + ((meltroutine_ptr_t)/*_.VALROUT___V527*/ meltfptr[526])->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V261*/ meltfptr[260]); + + MELT_LOCATION("warmelt-normatch.melt:1897:/ initchunk"); + /*^putroutconstnotnull*/ + /*putroutconstnotnull*/ + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V527*/ meltfptr[526])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V491*/ meltfptr[490]); + ((meltroutine_ptr_t)/*_.VALROUT___V527*/ meltfptr[526])->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V491*/ meltfptr[490]); MELT_LOCATION("warmelt-normatch.melt:1897:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V526*/ meltfptr[525])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V515*/ meltfptr[514]); - ((meltroutine_ptr_t)/*_.VALROUT___V526*/ meltfptr[525])->tabval[3] = (melt_ptr_t)(/*_.VALCLO___V515*/ meltfptr[514]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V527*/ meltfptr[526])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V516*/ meltfptr[515]); + ((meltroutine_ptr_t)/*_.VALROUT___V527*/ meltfptr[526])->tabval[3] = (melt_ptr_t)(/*_.VALCLO___V516*/ meltfptr[515]); MELT_LOCATION("warmelt-normatch.melt:1897:/ initchunk"); /*^touch*/ /*touch:IROUTVAL_*/ - meltgc_touch(/*_.VALROUT___V526*/ meltfptr[525]); + meltgc_touch(/*_.VALROUT___V527*/ meltfptr[526]); /*putclosurout*/ - melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V527*/ meltfptr[526])) == OBMAG_CLOSURE); - melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V526*/ meltfptr[525])) == OBMAG_ROUTINE); - ((meltclosure_ptr_t)/*_.VALCLO___V527*/ meltfptr[526])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V526*/ meltfptr[525]); + melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V528*/ meltfptr[527])) == OBMAG_CLOSURE); + melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V527*/ meltfptr[526])) == OBMAG_ROUTINE); + ((meltclosure_ptr_t)/*_.VALCLO___V528*/ meltfptr[527])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V527*/ meltfptr[526]); /*touch:DATACLOSURE_*/ - meltgc_touch(/*_.VALCLO___V527*/ meltfptr[526]); + meltgc_touch(/*_.VALCLO___V528*/ meltfptr[527]); MELT_LOCATION("warmelt-normatch.melt:1938:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V528*/ meltfptr[527])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V529*/ meltfptr[528])) == OBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_456__MATCHGRAPHIC_TESTS#0", NULL != (/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8])); - ((meltroutine_ptr_t)/*_.VALROUT___V528*/ meltfptr[527])->tabval[0] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8]); + ((meltroutine_ptr_t)/*_.VALROUT___V529*/ meltfptr[528])->tabval[0] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8]); MELT_LOCATION("warmelt-normatch.melt:1938:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V528*/ meltfptr[527])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V490*/ meltfptr[489]); - ((meltroutine_ptr_t)/*_.VALROUT___V528*/ meltfptr[527])->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V490*/ meltfptr[489]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V529*/ meltfptr[528])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V491*/ meltfptr[490]); + ((meltroutine_ptr_t)/*_.VALROUT___V529*/ meltfptr[528])->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V491*/ meltfptr[490]); MELT_LOCATION("warmelt-normatch.melt:1938:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V528*/ meltfptr[527])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V230*/ meltfptr[229]); - ((meltroutine_ptr_t)/*_.VALROUT___V528*/ meltfptr[527])->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V230*/ meltfptr[229]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V529*/ meltfptr[528])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V231*/ meltfptr[230]); + ((meltroutine_ptr_t)/*_.VALROUT___V529*/ meltfptr[528])->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V231*/ meltfptr[230]); MELT_LOCATION("warmelt-normatch.melt:1938:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V528*/ meltfptr[527])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V515*/ meltfptr[514]); - ((meltroutine_ptr_t)/*_.VALROUT___V528*/ meltfptr[527])->tabval[3] = (melt_ptr_t)(/*_.VALCLO___V515*/ meltfptr[514]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V529*/ meltfptr[528])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V516*/ meltfptr[515]); + ((meltroutine_ptr_t)/*_.VALROUT___V529*/ meltfptr[528])->tabval[3] = (melt_ptr_t)(/*_.VALCLO___V516*/ meltfptr[515]); MELT_LOCATION("warmelt-normatch.melt:1938:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V528*/ meltfptr[527])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V518*/ meltfptr[517]); - ((meltroutine_ptr_t)/*_.VALROUT___V528*/ meltfptr[527])->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V518*/ meltfptr[517]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V529*/ meltfptr[528])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V519*/ meltfptr[518]); + ((meltroutine_ptr_t)/*_.VALROUT___V529*/ meltfptr[528])->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V519*/ meltfptr[518]); MELT_LOCATION("warmelt-normatch.melt:1938:/ initchunk"); /*^touch*/ /*touch:IROUTVAL_*/ - meltgc_touch(/*_.VALROUT___V528*/ meltfptr[527]); + meltgc_touch(/*_.VALROUT___V529*/ meltfptr[528]); /*putclosurout*/ - melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V529*/ meltfptr[528])) == OBMAG_CLOSURE); - melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V528*/ meltfptr[527])) == OBMAG_ROUTINE); - ((meltclosure_ptr_t)/*_.VALCLO___V529*/ meltfptr[528])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V528*/ meltfptr[527]); + melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V530*/ meltfptr[529])) == OBMAG_CLOSURE); + melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V529*/ meltfptr[528])) == OBMAG_ROUTINE); + ((meltclosure_ptr_t)/*_.VALCLO___V530*/ meltfptr[529])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V529*/ meltfptr[528]); /*touch:DATACLOSURE_*/ - meltgc_touch(/*_.VALCLO___V529*/ meltfptr[528]); + meltgc_touch(/*_.VALCLO___V530*/ meltfptr[529]); MELT_LOCATION("warmelt-normatch.melt:1992:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V530*/ meltfptr[529])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V531*/ meltfptr[530])) == OBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_458__MG_DRAW_MATCH_GRAPHVIZ_FILE#0", NULL != (/*_.DISCR_STRBUF__V63*/ meltfptr[62])); - ((meltroutine_ptr_t)/*_.VALROUT___V530*/ meltfptr[529])->tabval[0] = (melt_ptr_t)(/*_.DISCR_STRBUF__V63*/ meltfptr[62]); + ((meltroutine_ptr_t)/*_.VALROUT___V531*/ meltfptr[530])->tabval[0] = (melt_ptr_t)(/*_.DISCR_STRBUF__V63*/ meltfptr[62]); MELT_LOCATION("warmelt-normatch.melt:1992:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V530*/ meltfptr[529])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V531*/ meltfptr[530])) == OBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_458__MG_DRAW_MATCH_GRAPHVIZ_FILE#1", NULL != (/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8])); - ((meltroutine_ptr_t)/*_.VALROUT___V530*/ meltfptr[529])->tabval[1] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8]); + ((meltroutine_ptr_t)/*_.VALROUT___V531*/ meltfptr[530])->tabval[1] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8]); MELT_LOCATION("warmelt-normatch.melt:1992:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V530*/ meltfptr[529])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V531*/ meltfptr[530])) == OBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_458__MG_DRAW_MATCH_GRAPHVIZ_FILE#2", NULL != (/*_.DISCR_STRING__V59*/ meltfptr[58])); - ((meltroutine_ptr_t)/*_.VALROUT___V530*/ meltfptr[529])->tabval[2] = (melt_ptr_t)(/*_.DISCR_STRING__V59*/ meltfptr[58]); + ((meltroutine_ptr_t)/*_.VALROUT___V531*/ meltfptr[530])->tabval[2] = (melt_ptr_t)(/*_.DISCR_STRING__V59*/ meltfptr[58]); MELT_LOCATION("warmelt-normatch.melt:1992:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V530*/ meltfptr[529])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V490*/ meltfptr[489]); - ((meltroutine_ptr_t)/*_.VALROUT___V530*/ meltfptr[529])->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V490*/ meltfptr[489]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V531*/ meltfptr[530])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V491*/ meltfptr[490]); + ((meltroutine_ptr_t)/*_.VALROUT___V531*/ meltfptr[530])->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V491*/ meltfptr[490]); MELT_LOCATION("warmelt-normatch.melt:1992:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V530*/ meltfptr[529])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V529*/ meltfptr[528]); - ((meltroutine_ptr_t)/*_.VALROUT___V530*/ meltfptr[529])->tabval[4] = (melt_ptr_t)(/*_.VALCLO___V529*/ meltfptr[528]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V531*/ meltfptr[530])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V530*/ meltfptr[529]); + ((meltroutine_ptr_t)/*_.VALROUT___V531*/ meltfptr[530])->tabval[4] = (melt_ptr_t)(/*_.VALCLO___V530*/ meltfptr[529]); MELT_LOCATION("warmelt-normatch.melt:1992:/ initchunk"); /*^touch*/ /*touch:IROUTVAL_*/ - meltgc_touch(/*_.VALROUT___V530*/ meltfptr[529]); + meltgc_touch(/*_.VALROUT___V531*/ meltfptr[530]); /*putclosurout*/ - melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V531*/ meltfptr[530])) == OBMAG_CLOSURE); - melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V530*/ meltfptr[529])) == OBMAG_ROUTINE); - ((meltclosure_ptr_t)/*_.VALCLO___V531*/ meltfptr[530])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V530*/ meltfptr[529]); + melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V532*/ meltfptr[531])) == OBMAG_CLOSURE); + melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V531*/ meltfptr[530])) == OBMAG_ROUTINE); + ((meltclosure_ptr_t)/*_.VALCLO___V532*/ meltfptr[531])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V531*/ meltfptr[530]); /*touch:DATACLOSURE_*/ - meltgc_touch(/*_.VALCLO___V531*/ meltfptr[530]); + meltgc_touch(/*_.VALCLO___V532*/ meltfptr[531]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V532*/ meltfptr[531])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V533*/ meltfptr[532])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V532*/ meltfptr[531])))); - ((meltobject_ptr_t)(/*_.VALDATA___V532*/ meltfptr[531]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V533*/ meltfptr[532]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V533*/ meltfptr[532])))); + ((meltobject_ptr_t)(/*_.VALDATA___V533*/ meltfptr[532]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V534*/ meltfptr[533]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V532*/ meltfptr[531]); + meltgc_touch(/*_.VALDATA___V533*/ meltfptr[532]); MELT_LOCATION("warmelt-normatch.melt:2060:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V534*/ meltfptr[533])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V535*/ meltfptr[534])) == OBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_462__NORMEXP_MATCH#0", NULL != (/*_.CLASS_SOURCE_MATCH__V64*/ meltfptr[63])); - ((meltroutine_ptr_t)/*_.VALROUT___V534*/ meltfptr[533])->tabval[0] = (melt_ptr_t)(/*_.CLASS_SOURCE_MATCH__V64*/ meltfptr[63]); + ((meltroutine_ptr_t)/*_.VALROUT___V535*/ meltfptr[534])->tabval[0] = (melt_ptr_t)(/*_.CLASS_SOURCE_MATCH__V64*/ meltfptr[63]); MELT_LOCATION("warmelt-normatch.melt:2060:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V534*/ meltfptr[533])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V535*/ meltfptr[534])) == OBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_462__NORMEXP_MATCH#1", NULL != (/*_.CLASS_ENVIRONMENT__V65*/ meltfptr[64])); - ((meltroutine_ptr_t)/*_.VALROUT___V534*/ meltfptr[533])->tabval[1] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V65*/ meltfptr[64]); + ((meltroutine_ptr_t)/*_.VALROUT___V535*/ meltfptr[534])->tabval[1] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V65*/ meltfptr[64]); MELT_LOCATION("warmelt-normatch.melt:2060:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V534*/ meltfptr[533])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V535*/ meltfptr[534])) == OBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_462__NORMEXP_MATCH#2", NULL != (/*_.CLASS_NORMALIZATION_CONTEXT__V41*/ meltfptr[40])); - ((meltroutine_ptr_t)/*_.VALROUT___V534*/ meltfptr[533])->tabval[2] = (melt_ptr_t)(/*_.CLASS_NORMALIZATION_CONTEXT__V41*/ meltfptr[40]); + ((meltroutine_ptr_t)/*_.VALROUT___V535*/ meltfptr[534])->tabval[2] = (melt_ptr_t)(/*_.CLASS_NORMALIZATION_CONTEXT__V41*/ meltfptr[40]); MELT_LOCATION("warmelt-normatch.melt:2060:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V534*/ meltfptr[533])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V535*/ meltfptr[534])) == OBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_462__NORMEXP_MATCH#3", NULL != (/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8])); - ((meltroutine_ptr_t)/*_.VALROUT___V534*/ meltfptr[533])->tabval[3] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8]); + ((meltroutine_ptr_t)/*_.VALROUT___V535*/ meltfptr[534])->tabval[3] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8]); MELT_LOCATION("warmelt-normatch.melt:2060:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V534*/ meltfptr[533])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V535*/ meltfptr[534])) == OBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_462__NORMEXP_MATCH#4", NULL != (/*_.DISCR_MULTIPLE__V43*/ meltfptr[42])); - ((meltroutine_ptr_t)/*_.VALROUT___V534*/ meltfptr[533])->tabval[4] = (melt_ptr_t)(/*_.DISCR_MULTIPLE__V43*/ meltfptr[42]); + ((meltroutine_ptr_t)/*_.VALROUT___V535*/ meltfptr[534])->tabval[4] = (melt_ptr_t)(/*_.DISCR_MULTIPLE__V43*/ meltfptr[42]); MELT_LOCATION("warmelt-normatch.melt:2060:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V534*/ meltfptr[533])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V535*/ meltfptr[534])) == OBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_462__NORMEXP_MATCH#5", NULL != (/*_.DISCR_MAP_OBJECTS__V31*/ meltfptr[30])); - ((meltroutine_ptr_t)/*_.VALROUT___V534*/ meltfptr[533])->tabval[5] = (melt_ptr_t)(/*_.DISCR_MAP_OBJECTS__V31*/ meltfptr[30]); + ((meltroutine_ptr_t)/*_.VALROUT___V535*/ meltfptr[534])->tabval[5] = (melt_ptr_t)(/*_.DISCR_MAP_OBJECTS__V31*/ meltfptr[30]); MELT_LOCATION("warmelt-normatch.melt:2060:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V534*/ meltfptr[533])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V535*/ meltfptr[534])) == OBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_462__NORMEXP_MATCH#6", NULL != (/*_.DISCR_LIST__V36*/ meltfptr[35])); - ((meltroutine_ptr_t)/*_.VALROUT___V534*/ meltfptr[533])->tabval[6] = (melt_ptr_t)(/*_.DISCR_LIST__V36*/ meltfptr[35]); + ((meltroutine_ptr_t)/*_.VALROUT___V535*/ meltfptr[534])->tabval[6] = (melt_ptr_t)(/*_.DISCR_LIST__V36*/ meltfptr[35]); MELT_LOCATION("warmelt-normatch.melt:2060:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V534*/ meltfptr[533])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V535*/ meltfptr[534])) == OBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_462__NORMEXP_MATCH#7", NULL != (/*_.NORMAL_EXP__V17*/ meltfptr[16])); - ((meltroutine_ptr_t)/*_.VALROUT___V534*/ meltfptr[533])->tabval[7] = (melt_ptr_t)(/*_.NORMAL_EXP__V17*/ meltfptr[16]); + ((meltroutine_ptr_t)/*_.VALROUT___V535*/ meltfptr[534])->tabval[7] = (melt_ptr_t)(/*_.NORMAL_EXP__V17*/ meltfptr[16]); MELT_LOCATION("warmelt-normatch.melt:2060:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V534*/ meltfptr[533])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V535*/ meltfptr[534])) == OBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_462__NORMEXP_MATCH#8", NULL != (/*_.GET_CTYPE__V19*/ meltfptr[18])); - ((meltroutine_ptr_t)/*_.VALROUT___V534*/ meltfptr[533])->tabval[8] = (melt_ptr_t)(/*_.GET_CTYPE__V19*/ meltfptr[18]); + ((meltroutine_ptr_t)/*_.VALROUT___V535*/ meltfptr[534])->tabval[8] = (melt_ptr_t)(/*_.GET_CTYPE__V19*/ meltfptr[18]); MELT_LOCATION("warmelt-normatch.melt:2060:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V534*/ meltfptr[533])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V535*/ meltfptr[534])) == OBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_462__NORMEXP_MATCH#9", NULL != (/*_.CLONE_SYMBOL__V47*/ meltfptr[46])); - ((meltroutine_ptr_t)/*_.VALROUT___V534*/ meltfptr[533])->tabval[9] = (melt_ptr_t)(/*_.CLONE_SYMBOL__V47*/ meltfptr[46]); + ((meltroutine_ptr_t)/*_.VALROUT___V535*/ meltfptr[534])->tabval[9] = (melt_ptr_t)(/*_.CLONE_SYMBOL__V47*/ meltfptr[46]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V535*/ meltfptr[534])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V536*/ meltfptr[535])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V535*/ meltfptr[534])))); - ((meltobject_ptr_t)(/*_.VALDATA___V535*/ meltfptr[534]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V536*/ meltfptr[535]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V536*/ meltfptr[535])))); + ((meltobject_ptr_t)(/*_.VALDATA___V536*/ meltfptr[535]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V537*/ meltfptr[536]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V535*/ meltfptr[534]); + meltgc_touch(/*_.VALDATA___V536*/ meltfptr[535]); MELT_LOCATION("warmelt-normatch.melt:2060:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V534*/ meltfptr[533])) == OBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_462__NORMEXP_MATCH#10", NULL != (/*_.VALDATA___V535*/ meltfptr[534])); - ((meltroutine_ptr_t)/*_.VALROUT___V534*/ meltfptr[533])->tabval[10] = (melt_ptr_t)(/*_.VALDATA___V535*/ meltfptr[534]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V535*/ meltfptr[534])) == OBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_462__NORMEXP_MATCH#10", NULL != (/*_.VALDATA___V536*/ meltfptr[535])); + ((meltroutine_ptr_t)/*_.VALROUT___V535*/ meltfptr[534])->tabval[10] = (melt_ptr_t)(/*_.VALDATA___V536*/ meltfptr[535]); MELT_LOCATION("warmelt-normatch.melt:2060:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V534*/ meltfptr[533])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V535*/ meltfptr[534])) == OBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_462__NORMEXP_MATCH#11", NULL != (/*_.CLASS_NORMAL_LET_BINDING__V40*/ meltfptr[39])); - ((meltroutine_ptr_t)/*_.VALROUT___V534*/ meltfptr[533])->tabval[11] = (melt_ptr_t)(/*_.CLASS_NORMAL_LET_BINDING__V40*/ meltfptr[39]); + ((meltroutine_ptr_t)/*_.VALROUT___V535*/ meltfptr[534])->tabval[11] = (melt_ptr_t)(/*_.CLASS_NORMAL_LET_BINDING__V40*/ meltfptr[39]); MELT_LOCATION("warmelt-normatch.melt:2060:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V534*/ meltfptr[533])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V535*/ meltfptr[534])) == OBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_462__NORMEXP_MATCH#12", NULL != (/*_.CLASS_NREP_LOCSYMOCC__V39*/ meltfptr[38])); - ((meltroutine_ptr_t)/*_.VALROUT___V534*/ meltfptr[533])->tabval[12] = (melt_ptr_t)(/*_.CLASS_NREP_LOCSYMOCC__V39*/ meltfptr[38]); + ((meltroutine_ptr_t)/*_.VALROUT___V535*/ meltfptr[534])->tabval[12] = (melt_ptr_t)(/*_.CLASS_NREP_LOCSYMOCC__V39*/ meltfptr[38]); MELT_LOCATION("warmelt-normatch.melt:2060:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V534*/ meltfptr[533])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V535*/ meltfptr[534])) == OBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_462__NORMEXP_MATCH#13", NULL != (/*_.CLASS_SOURCE_MATCH_CASE__V66*/ meltfptr[65])); - ((meltroutine_ptr_t)/*_.VALROUT___V534*/ meltfptr[533])->tabval[13] = (melt_ptr_t)(/*_.CLASS_SOURCE_MATCH_CASE__V66*/ meltfptr[65]); + ((meltroutine_ptr_t)/*_.VALROUT___V535*/ meltfptr[534])->tabval[13] = (melt_ptr_t)(/*_.CLASS_SOURCE_MATCH_CASE__V66*/ meltfptr[65]); MELT_LOCATION("warmelt-normatch.melt:2060:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V534*/ meltfptr[533])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V77*/ meltfptr[76]); - ((meltroutine_ptr_t)/*_.VALROUT___V534*/ meltfptr[533])->tabval[14] = (melt_ptr_t)(/*_.VALDATA___V77*/ meltfptr[76]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V535*/ meltfptr[534])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V78*/ meltfptr[77]); + ((meltroutine_ptr_t)/*_.VALROUT___V535*/ meltfptr[534])->tabval[14] = (melt_ptr_t)(/*_.VALDATA___V78*/ meltfptr[77]); MELT_LOCATION("warmelt-normatch.melt:2060:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V534*/ meltfptr[533])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V535*/ meltfptr[534])) == OBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_462__NORMEXP_MATCH#15", NULL != (/*_.CLASS_CONTAINER__V37*/ meltfptr[36])); - ((meltroutine_ptr_t)/*_.VALROUT___V534*/ meltfptr[533])->tabval[15] = (melt_ptr_t)(/*_.CLASS_CONTAINER__V37*/ meltfptr[36]); + ((meltroutine_ptr_t)/*_.VALROUT___V535*/ meltfptr[534])->tabval[15] = (melt_ptr_t)(/*_.CLASS_CONTAINER__V37*/ meltfptr[36]); MELT_LOCATION("warmelt-normatch.melt:2060:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V534*/ meltfptr[533])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V129*/ meltfptr[128]); - ((meltroutine_ptr_t)/*_.VALROUT___V534*/ meltfptr[533])->tabval[16] = (melt_ptr_t)(/*_.VALDATA___V129*/ meltfptr[128]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V535*/ meltfptr[534])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V130*/ meltfptr[129]); + ((meltroutine_ptr_t)/*_.VALROUT___V535*/ meltfptr[534])->tabval[16] = (melt_ptr_t)(/*_.VALDATA___V130*/ meltfptr[129]); MELT_LOCATION("warmelt-normatch.melt:2060:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V534*/ meltfptr[533])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V202*/ meltfptr[201]); - ((meltroutine_ptr_t)/*_.VALROUT___V534*/ meltfptr[533])->tabval[17] = (melt_ptr_t)(/*_.VALDATA___V202*/ meltfptr[201]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V535*/ meltfptr[534])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V203*/ meltfptr[202]); + ((meltroutine_ptr_t)/*_.VALROUT___V535*/ meltfptr[534])->tabval[17] = (melt_ptr_t)(/*_.VALDATA___V203*/ meltfptr[202]); MELT_LOCATION("warmelt-normatch.melt:2060:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V534*/ meltfptr[533])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V535*/ meltfptr[534])) == OBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_462__NORMEXP_MATCH#18", NULL != (/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8])); - ((meltroutine_ptr_t)/*_.VALROUT___V534*/ meltfptr[533])->tabval[18] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8]); + ((meltroutine_ptr_t)/*_.VALROUT___V535*/ meltfptr[534])->tabval[18] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8]); MELT_LOCATION("warmelt-normatch.melt:2060:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V534*/ meltfptr[533])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V535*/ meltfptr[534])) == OBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_462__NORMEXP_MATCH#19", NULL != (/*_.CLASS_CONTAINER__V37*/ meltfptr[36])); - ((meltroutine_ptr_t)/*_.VALROUT___V534*/ meltfptr[533])->tabval[19] = (melt_ptr_t)(/*_.CLASS_CONTAINER__V37*/ meltfptr[36]); + ((meltroutine_ptr_t)/*_.VALROUT___V535*/ meltfptr[534])->tabval[19] = (melt_ptr_t)(/*_.CLASS_CONTAINER__V37*/ meltfptr[36]); MELT_LOCATION("warmelt-normatch.melt:2159:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V537*/ meltfptr[536])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V538*/ meltfptr[537])) == OBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_472__LAMBDA_#0", NULL != (/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8])); - ((meltroutine_ptr_t)/*_.VALROUT___V537*/ meltfptr[536])->tabval[0] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8]); + ((meltroutine_ptr_t)/*_.VALROUT___V538*/ meltfptr[537])->tabval[0] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8]); MELT_LOCATION("warmelt-normatch.melt:2159:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V537*/ meltfptr[536])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V538*/ meltfptr[537])) == OBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_472__LAMBDA_#1", NULL != (/*_.CLASS_CONTAINER__V37*/ meltfptr[36])); - ((meltroutine_ptr_t)/*_.VALROUT___V537*/ meltfptr[536])->tabval[1] = (melt_ptr_t)(/*_.CLASS_CONTAINER__V37*/ meltfptr[36]); + ((meltroutine_ptr_t)/*_.VALROUT___V538*/ meltfptr[537])->tabval[1] = (melt_ptr_t)(/*_.CLASS_CONTAINER__V37*/ meltfptr[36]); MELT_LOCATION("warmelt-normatch.melt:2159:/ initchunk"); /*^touch*/ /*touch:IROUTVAL_*/ - meltgc_touch(/*_.VALROUT___V537*/ meltfptr[536]); + meltgc_touch(/*_.VALROUT___V538*/ meltfptr[537]); MELT_LOCATION("warmelt-normatch.melt:2060:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V534*/ meltfptr[533])) == OBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_462__NORMEXP_MATCH#20", NULL != (/*_.VALROUT___V537*/ meltfptr[536])); - ((meltroutine_ptr_t)/*_.VALROUT___V534*/ meltfptr[533])->tabval[20] = (melt_ptr_t)(/*_.VALROUT___V537*/ meltfptr[536]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V535*/ meltfptr[534])) == OBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_462__NORMEXP_MATCH#20", NULL != (/*_.VALROUT___V538*/ meltfptr[537])); + ((meltroutine_ptr_t)/*_.VALROUT___V535*/ meltfptr[534])->tabval[20] = (melt_ptr_t)(/*_.VALROUT___V538*/ meltfptr[537]); MELT_LOCATION("warmelt-normatch.melt:2060:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V534*/ meltfptr[533])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V260*/ meltfptr[259]); - ((meltroutine_ptr_t)/*_.VALROUT___V534*/ meltfptr[533])->tabval[21] = (melt_ptr_t)(/*_.VALDATA___V260*/ meltfptr[259]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V535*/ meltfptr[534])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V261*/ meltfptr[260]); + ((meltroutine_ptr_t)/*_.VALROUT___V535*/ meltfptr[534])->tabval[21] = (melt_ptr_t)(/*_.VALDATA___V261*/ meltfptr[260]); MELT_LOCATION("warmelt-normatch.melt:2060:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V534*/ meltfptr[533])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V393*/ meltfptr[392]); - ((meltroutine_ptr_t)/*_.VALROUT___V534*/ meltfptr[533])->tabval[22] = (melt_ptr_t)(/*_.VALCLO___V393*/ meltfptr[392]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V535*/ meltfptr[534])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V394*/ meltfptr[393]); + ((meltroutine_ptr_t)/*_.VALROUT___V535*/ meltfptr[534])->tabval[22] = (melt_ptr_t)(/*_.VALCLO___V394*/ meltfptr[393]); MELT_LOCATION("warmelt-normatch.melt:2060:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V534*/ meltfptr[533])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V230*/ meltfptr[229]); - ((meltroutine_ptr_t)/*_.VALROUT___V534*/ meltfptr[533])->tabval[23] = (melt_ptr_t)(/*_.VALDATA___V230*/ meltfptr[229]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V535*/ meltfptr[534])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V231*/ meltfptr[230]); + ((meltroutine_ptr_t)/*_.VALROUT___V535*/ meltfptr[534])->tabval[23] = (melt_ptr_t)(/*_.VALDATA___V231*/ meltfptr[230]); MELT_LOCATION("warmelt-normatch.melt:2060:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V534*/ meltfptr[533])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V300*/ meltfptr[299]); - ((meltroutine_ptr_t)/*_.VALROUT___V534*/ meltfptr[533])->tabval[24] = (melt_ptr_t)(/*_.VALDATA___V300*/ meltfptr[299]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V535*/ meltfptr[534])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V301*/ meltfptr[300]); + ((meltroutine_ptr_t)/*_.VALROUT___V535*/ meltfptr[534])->tabval[24] = (melt_ptr_t)(/*_.VALDATA___V301*/ meltfptr[300]); MELT_LOCATION("warmelt-normatch.melt:2060:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V534*/ meltfptr[533])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V399*/ meltfptr[398]); - ((meltroutine_ptr_t)/*_.VALROUT___V534*/ meltfptr[533])->tabval[25] = (melt_ptr_t)(/*_.VALCLO___V399*/ meltfptr[398]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V535*/ meltfptr[534])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V400*/ meltfptr[399]); + ((meltroutine_ptr_t)/*_.VALROUT___V535*/ meltfptr[534])->tabval[25] = (melt_ptr_t)(/*_.VALCLO___V400*/ meltfptr[399]); MELT_LOCATION("warmelt-normatch.melt:2060:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V534*/ meltfptr[533])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V535*/ meltfptr[534])) == OBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_462__NORMEXP_MATCH#26", NULL != (/*_.MAPOBJECT_SORTED_ATTRIBUTE_TUPLE__V48*/ meltfptr[47])); - ((meltroutine_ptr_t)/*_.VALROUT___V534*/ meltfptr[533])->tabval[26] = (melt_ptr_t)(/*_.MAPOBJECT_SORTED_ATTRIBUTE_TUPLE__V48*/ meltfptr[47]); + ((meltroutine_ptr_t)/*_.VALROUT___V535*/ meltfptr[534])->tabval[26] = (melt_ptr_t)(/*_.MAPOBJECT_SORTED_ATTRIBUTE_TUPLE__V48*/ meltfptr[47]); MELT_LOCATION("warmelt-normatch.melt:2060:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V534*/ meltfptr[533])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V535*/ meltfptr[534])) == OBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_462__NORMEXP_MATCH#27", NULL != (/*_.FRESH_ENV__V56*/ meltfptr[55])); - ((meltroutine_ptr_t)/*_.VALROUT___V534*/ meltfptr[533])->tabval[27] = (melt_ptr_t)(/*_.FRESH_ENV__V56*/ meltfptr[55]); + ((meltroutine_ptr_t)/*_.VALROUT___V535*/ meltfptr[534])->tabval[27] = (melt_ptr_t)(/*_.FRESH_ENV__V56*/ meltfptr[55]); MELT_LOCATION("warmelt-normatch.melt:2060:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V534*/ meltfptr[533])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V535*/ meltfptr[534])) == OBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_462__NORMEXP_MATCH#28", NULL != (/*_.PUT_ENV__V57*/ meltfptr[56])); - ((meltroutine_ptr_t)/*_.VALROUT___V534*/ meltfptr[533])->tabval[28] = (melt_ptr_t)(/*_.PUT_ENV__V57*/ meltfptr[56]); + ((meltroutine_ptr_t)/*_.VALROUT___V535*/ meltfptr[534])->tabval[28] = (melt_ptr_t)(/*_.PUT_ENV__V57*/ meltfptr[56]); MELT_LOCATION("warmelt-normatch.melt:2060:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V534*/ meltfptr[533])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V535*/ meltfptr[534])) == OBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_462__NORMEXP_MATCH#29", NULL != (/*_.NORMALIZE_TUPLE__V29*/ meltfptr[28])); - ((meltroutine_ptr_t)/*_.VALROUT___V534*/ meltfptr[533])->tabval[29] = (melt_ptr_t)(/*_.NORMALIZE_TUPLE__V29*/ meltfptr[28]); + ((meltroutine_ptr_t)/*_.VALROUT___V535*/ meltfptr[534])->tabval[29] = (melt_ptr_t)(/*_.NORMALIZE_TUPLE__V29*/ meltfptr[28]); MELT_LOCATION("warmelt-normatch.melt:2060:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V534*/ meltfptr[533])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V535*/ meltfptr[534])) == OBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_462__NORMEXP_MATCH#30", NULL != (/*_.WRAP_NORMAL_LETSEQ__V67*/ meltfptr[66])); - ((meltroutine_ptr_t)/*_.VALROUT___V534*/ meltfptr[533])->tabval[30] = (melt_ptr_t)(/*_.WRAP_NORMAL_LETSEQ__V67*/ meltfptr[66]); + ((meltroutine_ptr_t)/*_.VALROUT___V535*/ meltfptr[534])->tabval[30] = (melt_ptr_t)(/*_.WRAP_NORMAL_LETSEQ__V67*/ meltfptr[66]); MELT_LOCATION("warmelt-normatch.melt:2060:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V534*/ meltfptr[533])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V535*/ meltfptr[534])) == OBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_462__NORMEXP_MATCH#31", NULL != (/*_.CTYPE_VOID__V68*/ meltfptr[67])); - ((meltroutine_ptr_t)/*_.VALROUT___V534*/ meltfptr[533])->tabval[31] = (melt_ptr_t)(/*_.CTYPE_VOID__V68*/ meltfptr[67]); + ((meltroutine_ptr_t)/*_.VALROUT___V535*/ meltfptr[534])->tabval[31] = (melt_ptr_t)(/*_.CTYPE_VOID__V68*/ meltfptr[67]); MELT_LOCATION("warmelt-normatch.melt:2060:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V534*/ meltfptr[533])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V535*/ meltfptr[534])) == OBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_462__NORMEXP_MATCH#32", NULL != (/*_.CLASS_NAMED__V10*/ meltfptr[9])); - ((meltroutine_ptr_t)/*_.VALROUT___V534*/ meltfptr[533])->tabval[32] = (melt_ptr_t)(/*_.CLASS_NAMED__V10*/ meltfptr[9]); + ((meltroutine_ptr_t)/*_.VALROUT___V535*/ meltfptr[534])->tabval[32] = (melt_ptr_t)(/*_.CLASS_NAMED__V10*/ meltfptr[9]); MELT_LOCATION("warmelt-normatch.melt:2060:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V534*/ meltfptr[533])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V535*/ meltfptr[534])) == OBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_462__NORMEXP_MATCH#33", NULL != (/*_.LIST_TO_MULTIPLE__V51*/ meltfptr[50])); - ((meltroutine_ptr_t)/*_.VALROUT___V534*/ meltfptr[533])->tabval[33] = (melt_ptr_t)(/*_.LIST_TO_MULTIPLE__V51*/ meltfptr[50]); + ((meltroutine_ptr_t)/*_.VALROUT___V535*/ meltfptr[534])->tabval[33] = (melt_ptr_t)(/*_.LIST_TO_MULTIPLE__V51*/ meltfptr[50]); MELT_LOCATION("warmelt-normatch.melt:2060:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V534*/ meltfptr[533])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V372*/ meltfptr[371]); - ((meltroutine_ptr_t)/*_.VALROUT___V534*/ meltfptr[533])->tabval[34] = (melt_ptr_t)(/*_.VALDATA___V372*/ meltfptr[371]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V535*/ meltfptr[534])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V373*/ meltfptr[372]); + ((meltroutine_ptr_t)/*_.VALROUT___V535*/ meltfptr[534])->tabval[34] = (melt_ptr_t)(/*_.VALDATA___V373*/ meltfptr[372]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V538*/ meltfptr[537])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V539*/ meltfptr[538])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V538*/ meltfptr[537])))); - ((meltobject_ptr_t)(/*_.VALDATA___V538*/ meltfptr[537]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V539*/ meltfptr[538]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V539*/ meltfptr[538])))); + ((meltobject_ptr_t)(/*_.VALDATA___V539*/ meltfptr[538]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V540*/ meltfptr[539]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V538*/ meltfptr[537]); + meltgc_touch(/*_.VALDATA___V539*/ meltfptr[538]); MELT_LOCATION("warmelt-normatch.melt:2060:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V534*/ meltfptr[533])) == OBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_462__NORMEXP_MATCH#35", NULL != (/*_.VALDATA___V538*/ meltfptr[537])); - ((meltroutine_ptr_t)/*_.VALROUT___V534*/ meltfptr[533])->tabval[35] = (melt_ptr_t)(/*_.VALDATA___V538*/ meltfptr[537]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V535*/ meltfptr[534])) == OBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_462__NORMEXP_MATCH#35", NULL != (/*_.VALDATA___V539*/ meltfptr[538])); + ((meltroutine_ptr_t)/*_.VALROUT___V535*/ meltfptr[534])->tabval[35] = (melt_ptr_t)(/*_.VALDATA___V539*/ meltfptr[538]); MELT_LOCATION("warmelt-normatch.melt:2060:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V534*/ meltfptr[533])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V535*/ meltfptr[534])) == OBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_462__NORMEXP_MATCH#36", NULL != (/*_.CLASS_NREP_SYMOCC__V44*/ meltfptr[43])); - ((meltroutine_ptr_t)/*_.VALROUT___V534*/ meltfptr[533])->tabval[36] = (melt_ptr_t)(/*_.CLASS_NREP_SYMOCC__V44*/ meltfptr[43]); + ((meltroutine_ptr_t)/*_.VALROUT___V535*/ meltfptr[534])->tabval[36] = (melt_ptr_t)(/*_.CLASS_NREP_SYMOCC__V44*/ meltfptr[43]); MELT_LOCATION("warmelt-normatch.melt:2060:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V534*/ meltfptr[533])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V476*/ meltfptr[475]); - ((meltroutine_ptr_t)/*_.VALROUT___V534*/ meltfptr[533])->tabval[37] = (melt_ptr_t)(/*_.VALDATA___V476*/ meltfptr[475]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V535*/ meltfptr[534])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V477*/ meltfptr[476]); + ((meltroutine_ptr_t)/*_.VALROUT___V535*/ meltfptr[534])->tabval[37] = (melt_ptr_t)(/*_.VALDATA___V477*/ meltfptr[476]); MELT_LOCATION("warmelt-normatch.melt:2060:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V534*/ meltfptr[533])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V531*/ meltfptr[530]); - ((meltroutine_ptr_t)/*_.VALROUT___V534*/ meltfptr[533])->tabval[38] = (melt_ptr_t)(/*_.VALCLO___V531*/ meltfptr[530]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V535*/ meltfptr[534])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V532*/ meltfptr[531]); + ((meltroutine_ptr_t)/*_.VALROUT___V535*/ meltfptr[534])->tabval[38] = (melt_ptr_t)(/*_.VALCLO___V532*/ meltfptr[531]); MELT_LOCATION("warmelt-normatch.melt:2060:/ initchunk"); /*^touch*/ /*touch:IROUTVAL_*/ - meltgc_touch(/*_.VALROUT___V534*/ meltfptr[533]); + meltgc_touch(/*_.VALROUT___V535*/ meltfptr[534]); /*putclosurout*/ - melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V540*/ meltfptr[539])) == OBMAG_CLOSURE); - melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V534*/ meltfptr[533])) == OBMAG_ROUTINE); - ((meltclosure_ptr_t)/*_.VALCLO___V540*/ meltfptr[539])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V534*/ meltfptr[533]); + melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V541*/ meltfptr[540])) == OBMAG_CLOSURE); + melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V535*/ meltfptr[534])) == OBMAG_ROUTINE); + ((meltclosure_ptr_t)/*_.VALCLO___V541*/ meltfptr[540])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V535*/ meltfptr[534]); /*touch:DATACLOSURE_*/ - meltgc_touch(/*_.VALCLO___V540*/ meltfptr[539]); + meltgc_touch(/*_.VALCLO___V541*/ meltfptr[540]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V541*/ meltfptr[540])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V542*/ meltfptr[541])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V541*/ meltfptr[540])))); - ((meltobject_ptr_t)(/*_.VALDATA___V541*/ meltfptr[540]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V542*/ meltfptr[541]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V542*/ meltfptr[541])))); + ((meltobject_ptr_t)(/*_.VALDATA___V542*/ meltfptr[541]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V543*/ meltfptr[542]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V541*/ meltfptr[540]); + meltgc_touch(/*_.VALDATA___V542*/ meltfptr[541]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V543*/ meltfptr[542])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V544*/ meltfptr[543])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V543*/ meltfptr[542])))); - ((meltobject_ptr_t)(/*_.VALDATA___V543*/ meltfptr[542]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V544*/ meltfptr[543]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V544*/ meltfptr[543])))); + ((meltobject_ptr_t)(/*_.VALDATA___V544*/ meltfptr[543]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V545*/ meltfptr[544]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V543*/ meltfptr[542]); + meltgc_touch(/*_.VALDATA___V544*/ meltfptr[543]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V545*/ meltfptr[544])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V546*/ meltfptr[545])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V545*/ meltfptr[544])))); - ((meltobject_ptr_t)(/*_.VALDATA___V545*/ meltfptr[544]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V546*/ meltfptr[545]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V546*/ meltfptr[545])))); + ((meltobject_ptr_t)(/*_.VALDATA___V546*/ meltfptr[545]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V547*/ meltfptr[546]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V545*/ meltfptr[544]); + meltgc_touch(/*_.VALDATA___V546*/ meltfptr[545]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V547*/ meltfptr[546])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V548*/ meltfptr[547])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V547*/ meltfptr[546])))); - ((meltobject_ptr_t)(/*_.VALDATA___V547*/ meltfptr[546]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V548*/ meltfptr[547]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V548*/ meltfptr[547])))); + ((meltobject_ptr_t)(/*_.VALDATA___V548*/ meltfptr[547]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V549*/ meltfptr[548]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V547*/ meltfptr[546]); + meltgc_touch(/*_.VALDATA___V548*/ meltfptr[547]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V549*/ meltfptr[548])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V550*/ meltfptr[549])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V549*/ meltfptr[548])))); - ((meltobject_ptr_t)(/*_.VALDATA___V549*/ meltfptr[548]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V550*/ meltfptr[549]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V550*/ meltfptr[549])))); + ((meltobject_ptr_t)(/*_.VALDATA___V550*/ meltfptr[549]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V551*/ meltfptr[550]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V549*/ meltfptr[548]); + meltgc_touch(/*_.VALDATA___V550*/ meltfptr[549]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V551*/ meltfptr[550])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V552*/ meltfptr[551])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V551*/ meltfptr[550])))); - ((meltobject_ptr_t)(/*_.VALDATA___V551*/ meltfptr[550]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V552*/ meltfptr[551]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V552*/ meltfptr[551])))); + ((meltobject_ptr_t)(/*_.VALDATA___V552*/ meltfptr[551]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V553*/ meltfptr[552]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V551*/ meltfptr[550]); + meltgc_touch(/*_.VALDATA___V552*/ meltfptr[551]); MELT_LOCATION("warmelt-normatch.melt:2390:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V553*/ meltfptr[552])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V554*/ meltfptr[553])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V553*/ meltfptr[552])))); - ((meltobject_ptr_t)(/*_.VALDATA___V553*/ meltfptr[552]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V554*/ meltfptr[553]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V554*/ meltfptr[553])))); + ((meltobject_ptr_t)(/*_.VALDATA___V554*/ meltfptr[553]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V555*/ meltfptr[554]); MELT_LOCATION("warmelt-normatch.melt:2390:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V553*/ meltfptr[552])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V554*/ meltfptr[553])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V553*/ meltfptr[552])))); - ((meltobject_ptr_t)(/*_.VALDATA___V553*/ meltfptr[552]))->obj_vartab[4] = (melt_ptr_t)( + melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V554*/ meltfptr[553])))); + ((meltobject_ptr_t)(/*_.VALDATA___V554*/ meltfptr[553]))->obj_vartab[4] = (melt_ptr_t)( /*_.CLASS_ROOT__V7*/ meltfptr[6]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V555*/ meltfptr[554]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V555*/ meltfptr[554])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V555*/ meltfptr[554]))->tabval[0] = (melt_ptr_t)(/*_.CLASS_ROOT__V7*/ meltfptr[6]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V556*/ meltfptr[555]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V556*/ meltfptr[555])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V556*/ meltfptr[555]))->tabval[0] = (melt_ptr_t)(/*_.CLASS_ROOT__V7*/ meltfptr[6]); /*touch:INITUP_*/ - meltgc_touch(/*_.VALTUP___V555*/ meltfptr[554]); + meltgc_touch(/*_.VALTUP___V556*/ meltfptr[555]); + + MELT_LOCATION("warmelt-normatch.melt:2390:/ initchunk"); + /*^putslot*/ + /*putslot*/ + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V554*/ meltfptr[553])) == OBMAG_OBJECT); + + melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V554*/ meltfptr[553])))); + ((meltobject_ptr_t)(/*_.VALDATA___V554*/ meltfptr[553]))->obj_vartab[5] = (melt_ptr_t)( + /*_.VALTUP___V556*/ meltfptr[555]); + + MELT_LOCATION("warmelt-normatch.melt:2390:/ initchunk"); + /*^putslot*/ + /*putslot*/ + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V557*/ meltfptr[556])) == OBMAG_OBJECT); + + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V557*/ meltfptr[556])))); + ((meltobject_ptr_t)(/*_.VALDATA___V557*/ meltfptr[556]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V558*/ meltfptr[557]); MELT_LOCATION("warmelt-normatch.melt:2390:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V553*/ meltfptr[552])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V557*/ meltfptr[556])) == OBMAG_OBJECT); + + melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V557*/ meltfptr[556])))); + ((meltobject_ptr_t)(/*_.VALDATA___V557*/ meltfptr[556]))->obj_vartab[2] = (melt_ptr_t)( + /*_.VALDATA___V554*/ meltfptr[553]); - melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V553*/ meltfptr[552])))); - ((meltobject_ptr_t)(/*_.VALDATA___V553*/ meltfptr[552]))->obj_vartab[5] = (melt_ptr_t)( - /*_.VALTUP___V555*/ meltfptr[554]); + MELT_LOCATION("warmelt-normatch.melt:2390:/ initchunk"); + /*^touch*/ + /*touch:VALUEDATA_*/ + meltgc_touch(/*_.VALDATA___V557*/ meltfptr[556]); MELT_LOCATION("warmelt-normatch.melt:2390:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V556*/ meltfptr[555])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V559*/ meltfptr[558])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V556*/ meltfptr[555])))); - ((meltobject_ptr_t)(/*_.VALDATA___V556*/ meltfptr[555]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V557*/ meltfptr[556]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V559*/ meltfptr[558])))); + ((meltobject_ptr_t)(/*_.VALDATA___V559*/ meltfptr[558]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V560*/ meltfptr[559]); MELT_LOCATION("warmelt-normatch.melt:2390:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V556*/ meltfptr[555])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V559*/ meltfptr[558])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V556*/ meltfptr[555])))); - ((meltobject_ptr_t)(/*_.VALDATA___V556*/ meltfptr[555]))->obj_vartab[2] = (melt_ptr_t)( - /*_.VALDATA___V553*/ meltfptr[552]); + melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V559*/ meltfptr[558])))); + ((meltobject_ptr_t)(/*_.VALDATA___V559*/ meltfptr[558]))->obj_vartab[2] = (melt_ptr_t)( + /*_.VALDATA___V554*/ meltfptr[553]); MELT_LOCATION("warmelt-normatch.melt:2390:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V556*/ meltfptr[555]); + meltgc_touch(/*_.VALDATA___V559*/ meltfptr[558]); MELT_LOCATION("warmelt-normatch.melt:2390:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V558*/ meltfptr[557])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V561*/ meltfptr[560])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V558*/ meltfptr[557])))); - ((meltobject_ptr_t)(/*_.VALDATA___V558*/ meltfptr[557]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V559*/ meltfptr[558]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V561*/ meltfptr[560])))); + ((meltobject_ptr_t)(/*_.VALDATA___V561*/ meltfptr[560]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V562*/ meltfptr[561]); MELT_LOCATION("warmelt-normatch.melt:2390:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V558*/ meltfptr[557])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V561*/ meltfptr[560])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V558*/ meltfptr[557])))); - ((meltobject_ptr_t)(/*_.VALDATA___V558*/ meltfptr[557]))->obj_vartab[2] = (melt_ptr_t)( - /*_.VALDATA___V553*/ meltfptr[552]); + melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V561*/ meltfptr[560])))); + ((meltobject_ptr_t)(/*_.VALDATA___V561*/ meltfptr[560]))->obj_vartab[2] = (melt_ptr_t)( + /*_.VALDATA___V554*/ meltfptr[553]); MELT_LOCATION("warmelt-normatch.melt:2390:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V558*/ meltfptr[557]); + meltgc_touch(/*_.VALDATA___V561*/ meltfptr[560]); MELT_LOCATION("warmelt-normatch.melt:2390:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V560*/ meltfptr[559])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V563*/ meltfptr[562])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V560*/ meltfptr[559])))); - ((meltobject_ptr_t)(/*_.VALDATA___V560*/ meltfptr[559]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V561*/ meltfptr[560]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V563*/ meltfptr[562])))); + ((meltobject_ptr_t)(/*_.VALDATA___V563*/ meltfptr[562]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V564*/ meltfptr[563]); MELT_LOCATION("warmelt-normatch.melt:2390:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V560*/ meltfptr[559])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V563*/ meltfptr[562])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V560*/ meltfptr[559])))); - ((meltobject_ptr_t)(/*_.VALDATA___V560*/ meltfptr[559]))->obj_vartab[2] = (melt_ptr_t)( - /*_.VALDATA___V553*/ meltfptr[552]); + melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V563*/ meltfptr[562])))); + ((meltobject_ptr_t)(/*_.VALDATA___V563*/ meltfptr[562]))->obj_vartab[2] = (melt_ptr_t)( + /*_.VALDATA___V554*/ meltfptr[553]); MELT_LOCATION("warmelt-normatch.melt:2390:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V560*/ meltfptr[559]); + meltgc_touch(/*_.VALDATA___V563*/ meltfptr[562]); MELT_LOCATION("warmelt-normatch.melt:2390:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V562*/ meltfptr[561])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V565*/ meltfptr[564])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V562*/ meltfptr[561])))); - ((meltobject_ptr_t)(/*_.VALDATA___V562*/ meltfptr[561]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V563*/ meltfptr[562]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V565*/ meltfptr[564])))); + ((meltobject_ptr_t)(/*_.VALDATA___V565*/ meltfptr[564]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V566*/ meltfptr[565]); MELT_LOCATION("warmelt-normatch.melt:2390:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V562*/ meltfptr[561])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V565*/ meltfptr[564])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V562*/ meltfptr[561])))); - ((meltobject_ptr_t)(/*_.VALDATA___V562*/ meltfptr[561]))->obj_vartab[2] = (melt_ptr_t)( - /*_.VALDATA___V553*/ meltfptr[552]); + melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V565*/ meltfptr[564])))); + ((meltobject_ptr_t)(/*_.VALDATA___V565*/ meltfptr[564]))->obj_vartab[2] = (melt_ptr_t)( + /*_.VALDATA___V554*/ meltfptr[553]); MELT_LOCATION("warmelt-normatch.melt:2390:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V562*/ meltfptr[561]); + meltgc_touch(/*_.VALDATA___V565*/ meltfptr[564]); MELT_LOCATION("warmelt-normatch.melt:2390:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V564*/ meltfptr[563])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V567*/ meltfptr[566])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V564*/ meltfptr[563])))); - ((meltobject_ptr_t)(/*_.VALDATA___V564*/ meltfptr[563]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V565*/ meltfptr[564]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V567*/ meltfptr[566])))); + ((meltobject_ptr_t)(/*_.VALDATA___V567*/ meltfptr[566]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V568*/ meltfptr[567]); MELT_LOCATION("warmelt-normatch.melt:2390:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V564*/ meltfptr[563])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V567*/ meltfptr[566])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V564*/ meltfptr[563])))); - ((meltobject_ptr_t)(/*_.VALDATA___V564*/ meltfptr[563]))->obj_vartab[2] = (melt_ptr_t)( - /*_.VALDATA___V553*/ meltfptr[552]); + melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V567*/ meltfptr[566])))); + ((meltobject_ptr_t)(/*_.VALDATA___V567*/ meltfptr[566]))->obj_vartab[2] = (melt_ptr_t)( + /*_.VALDATA___V554*/ meltfptr[553]); MELT_LOCATION("warmelt-normatch.melt:2390:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V564*/ meltfptr[563]); + meltgc_touch(/*_.VALDATA___V567*/ meltfptr[566]); MELT_LOCATION("warmelt-normatch.melt:2390:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V566*/ meltfptr[565])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V569*/ meltfptr[568])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V566*/ meltfptr[565])))); - ((meltobject_ptr_t)(/*_.VALDATA___V566*/ meltfptr[565]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V567*/ meltfptr[566]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V569*/ meltfptr[568])))); + ((meltobject_ptr_t)(/*_.VALDATA___V569*/ meltfptr[568]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V570*/ meltfptr[569]); MELT_LOCATION("warmelt-normatch.melt:2390:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V566*/ meltfptr[565])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V569*/ meltfptr[568])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V566*/ meltfptr[565])))); - ((meltobject_ptr_t)(/*_.VALDATA___V566*/ meltfptr[565]))->obj_vartab[2] = (melt_ptr_t)( - /*_.VALDATA___V553*/ meltfptr[552]); + melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V569*/ meltfptr[568])))); + ((meltobject_ptr_t)(/*_.VALDATA___V569*/ meltfptr[568]))->obj_vartab[2] = (melt_ptr_t)( + /*_.VALDATA___V554*/ meltfptr[553]); MELT_LOCATION("warmelt-normatch.melt:2390:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V566*/ meltfptr[565]); + meltgc_touch(/*_.VALDATA___V569*/ meltfptr[568]); MELT_LOCATION("warmelt-normatch.melt:2390:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V568*/ meltfptr[567])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V571*/ meltfptr[570])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V568*/ meltfptr[567])))); - ((meltobject_ptr_t)(/*_.VALDATA___V568*/ meltfptr[567]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V569*/ meltfptr[568]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V571*/ meltfptr[570])))); + ((meltobject_ptr_t)(/*_.VALDATA___V571*/ meltfptr[570]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V572*/ meltfptr[571]); MELT_LOCATION("warmelt-normatch.melt:2390:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V568*/ meltfptr[567])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V571*/ meltfptr[570])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V568*/ meltfptr[567])))); - ((meltobject_ptr_t)(/*_.VALDATA___V568*/ meltfptr[567]))->obj_vartab[2] = (melt_ptr_t)( - /*_.VALDATA___V553*/ meltfptr[552]); + melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V571*/ meltfptr[570])))); + ((meltobject_ptr_t)(/*_.VALDATA___V571*/ meltfptr[570]))->obj_vartab[2] = (melt_ptr_t)( + /*_.VALDATA___V554*/ meltfptr[553]); MELT_LOCATION("warmelt-normatch.melt:2390:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V568*/ meltfptr[567]); + meltgc_touch(/*_.VALDATA___V571*/ meltfptr[570]); + + /*putupl*/ + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V573*/ meltfptr[572]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V573*/ meltfptr[572])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V573*/ meltfptr[572]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V557*/ meltfptr[556]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V570*/ meltfptr[569]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V570*/ meltfptr[569])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V570*/ meltfptr[569]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V556*/ meltfptr[555]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V573*/ meltfptr[572]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V573*/ meltfptr[572])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V573*/ meltfptr[572]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V559*/ meltfptr[558]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V570*/ meltfptr[569]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V570*/ meltfptr[569])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V570*/ meltfptr[569]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V558*/ meltfptr[557]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V573*/ meltfptr[572]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V573*/ meltfptr[572])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V573*/ meltfptr[572]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V561*/ meltfptr[560]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V570*/ meltfptr[569]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V570*/ meltfptr[569])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V570*/ meltfptr[569]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V560*/ meltfptr[559]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V573*/ meltfptr[572]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V573*/ meltfptr[572])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V573*/ meltfptr[572]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V563*/ meltfptr[562]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V570*/ meltfptr[569]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V570*/ meltfptr[569])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V570*/ meltfptr[569]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V562*/ meltfptr[561]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V573*/ meltfptr[572]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V573*/ meltfptr[572])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V573*/ meltfptr[572]))->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V565*/ meltfptr[564]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V570*/ meltfptr[569]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V570*/ meltfptr[569])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V570*/ meltfptr[569]))->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V564*/ meltfptr[563]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V573*/ meltfptr[572]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V573*/ meltfptr[572])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V573*/ meltfptr[572]))->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V567*/ meltfptr[566]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V570*/ meltfptr[569]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V570*/ meltfptr[569])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V570*/ meltfptr[569]))->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V566*/ meltfptr[565]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V573*/ meltfptr[572]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (6>=0 && 6< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V573*/ meltfptr[572])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V573*/ meltfptr[572]))->tabval[6] = (melt_ptr_t)(/*_.VALDATA___V569*/ meltfptr[568]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V570*/ meltfptr[569]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (6>=0 && 6< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V570*/ meltfptr[569])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V570*/ meltfptr[569]))->tabval[6] = (melt_ptr_t)(/*_.VALDATA___V568*/ meltfptr[567]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V573*/ meltfptr[572]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (7>=0 && 7< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V573*/ meltfptr[572])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V573*/ meltfptr[572]))->tabval[7] = (melt_ptr_t)(/*_.VALDATA___V571*/ meltfptr[570]); /*touch:INITUP_*/ - meltgc_touch(/*_.VALTUP___V570*/ meltfptr[569]); + meltgc_touch(/*_.VALTUP___V573*/ meltfptr[572]); MELT_LOCATION("warmelt-normatch.melt:2390:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V553*/ meltfptr[552])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V554*/ meltfptr[553])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V553*/ meltfptr[552])))); - ((meltobject_ptr_t)(/*_.VALDATA___V553*/ meltfptr[552]))->obj_vartab[6] = (melt_ptr_t)( - /*_.VALTUP___V570*/ meltfptr[569]); + melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V554*/ meltfptr[553])))); + ((meltobject_ptr_t)(/*_.VALDATA___V554*/ meltfptr[553]))->obj_vartab[6] = (melt_ptr_t)( + /*_.VALTUP___V573*/ meltfptr[572]); MELT_LOCATION("warmelt-normatch.melt:2390:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V553*/ meltfptr[552]); + meltgc_touch(/*_.VALDATA___V554*/ meltfptr[553]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V571*/ meltfptr[570])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V574*/ meltfptr[573])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V571*/ meltfptr[570])))); - ((meltobject_ptr_t)(/*_.VALDATA___V571*/ meltfptr[570]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V572*/ meltfptr[571]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V574*/ meltfptr[573])))); + ((meltobject_ptr_t)(/*_.VALDATA___V574*/ meltfptr[573]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V575*/ meltfptr[574]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V571*/ meltfptr[570]); + meltgc_touch(/*_.VALDATA___V574*/ meltfptr[573]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V573*/ meltfptr[572])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V576*/ meltfptr[575])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V573*/ meltfptr[572])))); - ((meltobject_ptr_t)(/*_.VALDATA___V573*/ meltfptr[572]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V574*/ meltfptr[573]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V576*/ meltfptr[575])))); + ((meltobject_ptr_t)(/*_.VALDATA___V576*/ meltfptr[575]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V577*/ meltfptr[576]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V573*/ meltfptr[572]); + meltgc_touch(/*_.VALDATA___V576*/ meltfptr[575]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V575*/ meltfptr[574])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V578*/ meltfptr[577])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V575*/ meltfptr[574])))); - ((meltobject_ptr_t)(/*_.VALDATA___V575*/ meltfptr[574]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V576*/ meltfptr[575]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V578*/ meltfptr[577])))); + ((meltobject_ptr_t)(/*_.VALDATA___V578*/ meltfptr[577]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V579*/ meltfptr[578]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V575*/ meltfptr[574]); + meltgc_touch(/*_.VALDATA___V578*/ meltfptr[577]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V577*/ meltfptr[576])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V580*/ meltfptr[579])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V577*/ meltfptr[576])))); - ((meltobject_ptr_t)(/*_.VALDATA___V577*/ meltfptr[576]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V578*/ meltfptr[577]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V580*/ meltfptr[579])))); + ((meltobject_ptr_t)(/*_.VALDATA___V580*/ meltfptr[579]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V581*/ meltfptr[580]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V577*/ meltfptr[576]); + meltgc_touch(/*_.VALDATA___V580*/ meltfptr[579]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V579*/ meltfptr[578])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V582*/ meltfptr[581])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V579*/ meltfptr[578])))); - ((meltobject_ptr_t)(/*_.VALDATA___V579*/ meltfptr[578]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V580*/ meltfptr[579]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V582*/ meltfptr[581])))); + ((meltobject_ptr_t)(/*_.VALDATA___V582*/ meltfptr[581]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V583*/ meltfptr[582]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V579*/ meltfptr[578]); + meltgc_touch(/*_.VALDATA___V582*/ meltfptr[581]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V581*/ meltfptr[580])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V584*/ meltfptr[583])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V581*/ meltfptr[580])))); - ((meltobject_ptr_t)(/*_.VALDATA___V581*/ meltfptr[580]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V582*/ meltfptr[581]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V584*/ meltfptr[583])))); + ((meltobject_ptr_t)(/*_.VALDATA___V584*/ meltfptr[583]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V585*/ meltfptr[584]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V581*/ meltfptr[580]); + meltgc_touch(/*_.VALDATA___V584*/ meltfptr[583]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V583*/ meltfptr[582])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V586*/ meltfptr[585])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V583*/ meltfptr[582])))); - ((meltobject_ptr_t)(/*_.VALDATA___V583*/ meltfptr[582]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V584*/ meltfptr[583]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V586*/ meltfptr[585])))); + ((meltobject_ptr_t)(/*_.VALDATA___V586*/ meltfptr[585]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V587*/ meltfptr[586]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V583*/ meltfptr[582]); + meltgc_touch(/*_.VALDATA___V586*/ meltfptr[585]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V585*/ meltfptr[584])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V588*/ meltfptr[587])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V585*/ meltfptr[584])))); - ((meltobject_ptr_t)(/*_.VALDATA___V585*/ meltfptr[584]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V586*/ meltfptr[585]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V588*/ meltfptr[587])))); + ((meltobject_ptr_t)(/*_.VALDATA___V588*/ meltfptr[587]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V589*/ meltfptr[588]); + + /*touch:VALUEDATA_*/ + meltgc_touch(/*_.VALDATA___V588*/ meltfptr[587]); + + /*putslot*/ + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V590*/ meltfptr[589])) == OBMAG_OBJECT); + + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V590*/ meltfptr[589])))); + ((meltobject_ptr_t)(/*_.VALDATA___V590*/ meltfptr[589]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V591*/ meltfptr[590]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V585*/ meltfptr[584]); + meltgc_touch(/*_.VALDATA___V590*/ meltfptr[589]); - MELT_LOCATION("warmelt-normatch.melt:2410:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2411:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V587*/ meltfptr[586])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V592*/ meltfptr[591])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V587*/ meltfptr[586])))); - ((meltobject_ptr_t)(/*_.VALDATA___V587*/ meltfptr[586]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V588*/ meltfptr[587]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V592*/ meltfptr[591])))); + ((meltobject_ptr_t)(/*_.VALDATA___V592*/ meltfptr[591]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V593*/ meltfptr[592]); - MELT_LOCATION("warmelt-normatch.melt:2410:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2411:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V587*/ meltfptr[586])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V592*/ meltfptr[591])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V587*/ meltfptr[586])))); - ((meltobject_ptr_t)(/*_.VALDATA___V587*/ meltfptr[586]))->obj_vartab[4] = (melt_ptr_t)( + melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V592*/ meltfptr[591])))); + ((meltobject_ptr_t)(/*_.VALDATA___V592*/ meltfptr[591]))->obj_vartab[4] = (melt_ptr_t)( /*_.CLASS_PROPED__V61*/ meltfptr[60]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V589*/ meltfptr[588]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V589*/ meltfptr[588])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V589*/ meltfptr[588]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_PROPED__V61*/ meltfptr[60]),5))), (0)))); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V594*/ meltfptr[593]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V594*/ meltfptr[593])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V594*/ meltfptr[593]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_PROPED__V61*/ meltfptr[60]),5))), (0)))); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V589*/ meltfptr[588]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V589*/ meltfptr[588])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V589*/ meltfptr[588]))->tabval[1] = (melt_ptr_t)(/*_.CLASS_PROPED__V61*/ meltfptr[60]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V594*/ meltfptr[593]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V594*/ meltfptr[593])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V594*/ meltfptr[593]))->tabval[1] = (melt_ptr_t)(/*_.CLASS_PROPED__V61*/ meltfptr[60]); /*touch:INITUP_*/ - meltgc_touch(/*_.VALTUP___V589*/ meltfptr[588]); + meltgc_touch(/*_.VALTUP___V594*/ meltfptr[593]); - MELT_LOCATION("warmelt-normatch.melt:2410:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2411:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V587*/ meltfptr[586])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V592*/ meltfptr[591])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V587*/ meltfptr[586])))); - ((meltobject_ptr_t)(/*_.VALDATA___V587*/ meltfptr[586]))->obj_vartab[5] = (melt_ptr_t)( - /*_.VALTUP___V589*/ meltfptr[588]); + melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V592*/ meltfptr[591])))); + ((meltobject_ptr_t)(/*_.VALDATA___V592*/ meltfptr[591]))->obj_vartab[5] = (melt_ptr_t)( + /*_.VALTUP___V594*/ meltfptr[593]); - MELT_LOCATION("warmelt-normatch.melt:2410:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2411:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V590*/ meltfptr[589])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V595*/ meltfptr[594])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V590*/ meltfptr[589])))); - ((meltobject_ptr_t)(/*_.VALDATA___V590*/ meltfptr[589]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V591*/ meltfptr[590]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V595*/ meltfptr[594])))); + ((meltobject_ptr_t)(/*_.VALDATA___V595*/ meltfptr[594]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V596*/ meltfptr[595]); - MELT_LOCATION("warmelt-normatch.melt:2410:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2411:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V590*/ meltfptr[589])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V595*/ meltfptr[594])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V590*/ meltfptr[589])))); - ((meltobject_ptr_t)(/*_.VALDATA___V590*/ meltfptr[589]))->obj_vartab[2] = (melt_ptr_t)( - /*_.VALDATA___V587*/ meltfptr[586]); + melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V595*/ meltfptr[594])))); + ((meltobject_ptr_t)(/*_.VALDATA___V595*/ meltfptr[594]))->obj_vartab[2] = (melt_ptr_t)( + /*_.VALDATA___V592*/ meltfptr[591]); - MELT_LOCATION("warmelt-normatch.melt:2410:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2411:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V590*/ meltfptr[589]); + meltgc_touch(/*_.VALDATA___V595*/ meltfptr[594]); - MELT_LOCATION("warmelt-normatch.melt:2410:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2411:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V592*/ meltfptr[591])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V597*/ meltfptr[596])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V592*/ meltfptr[591])))); - ((meltobject_ptr_t)(/*_.VALDATA___V592*/ meltfptr[591]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V593*/ meltfptr[592]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V597*/ meltfptr[596])))); + ((meltobject_ptr_t)(/*_.VALDATA___V597*/ meltfptr[596]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V598*/ meltfptr[597]); - MELT_LOCATION("warmelt-normatch.melt:2410:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2411:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V592*/ meltfptr[591])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V597*/ meltfptr[596])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V592*/ meltfptr[591])))); - ((meltobject_ptr_t)(/*_.VALDATA___V592*/ meltfptr[591]))->obj_vartab[2] = (melt_ptr_t)( - /*_.VALDATA___V587*/ meltfptr[586]); + melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V597*/ meltfptr[596])))); + ((meltobject_ptr_t)(/*_.VALDATA___V597*/ meltfptr[596]))->obj_vartab[2] = (melt_ptr_t)( + /*_.VALDATA___V592*/ meltfptr[591]); - MELT_LOCATION("warmelt-normatch.melt:2410:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2411:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V592*/ meltfptr[591]); + meltgc_touch(/*_.VALDATA___V597*/ meltfptr[596]); - MELT_LOCATION("warmelt-normatch.melt:2410:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2411:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V594*/ meltfptr[593])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V599*/ meltfptr[598])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V594*/ meltfptr[593])))); - ((meltobject_ptr_t)(/*_.VALDATA___V594*/ meltfptr[593]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V595*/ meltfptr[594]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V599*/ meltfptr[598])))); + ((meltobject_ptr_t)(/*_.VALDATA___V599*/ meltfptr[598]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V600*/ meltfptr[599]); - MELT_LOCATION("warmelt-normatch.melt:2410:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2411:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V594*/ meltfptr[593])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V599*/ meltfptr[598])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V594*/ meltfptr[593])))); - ((meltobject_ptr_t)(/*_.VALDATA___V594*/ meltfptr[593]))->obj_vartab[2] = (melt_ptr_t)( - /*_.VALDATA___V587*/ meltfptr[586]); + melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V599*/ meltfptr[598])))); + ((meltobject_ptr_t)(/*_.VALDATA___V599*/ meltfptr[598]))->obj_vartab[2] = (melt_ptr_t)( + /*_.VALDATA___V592*/ meltfptr[591]); - MELT_LOCATION("warmelt-normatch.melt:2410:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2411:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V594*/ meltfptr[593]); + meltgc_touch(/*_.VALDATA___V599*/ meltfptr[598]); - MELT_LOCATION("warmelt-normatch.melt:2410:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2411:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V596*/ meltfptr[595])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V601*/ meltfptr[600])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V596*/ meltfptr[595])))); - ((meltobject_ptr_t)(/*_.VALDATA___V596*/ meltfptr[595]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V597*/ meltfptr[596]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V601*/ meltfptr[600])))); + ((meltobject_ptr_t)(/*_.VALDATA___V601*/ meltfptr[600]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V602*/ meltfptr[601]); - MELT_LOCATION("warmelt-normatch.melt:2410:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2411:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V596*/ meltfptr[595])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V601*/ meltfptr[600])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V596*/ meltfptr[595])))); - ((meltobject_ptr_t)(/*_.VALDATA___V596*/ meltfptr[595]))->obj_vartab[2] = (melt_ptr_t)( - /*_.VALDATA___V587*/ meltfptr[586]); + melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V601*/ meltfptr[600])))); + ((meltobject_ptr_t)(/*_.VALDATA___V601*/ meltfptr[600]))->obj_vartab[2] = (melt_ptr_t)( + /*_.VALDATA___V592*/ meltfptr[591]); - MELT_LOCATION("warmelt-normatch.melt:2410:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2411:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V596*/ meltfptr[595]); + meltgc_touch(/*_.VALDATA___V601*/ meltfptr[600]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V598*/ meltfptr[597]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V598*/ meltfptr[597])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V598*/ meltfptr[597]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_PROPED__V61*/ meltfptr[60]),6))), (0)))); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V603*/ meltfptr[602]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V603*/ meltfptr[602])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V603*/ meltfptr[602]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_PROPED__V61*/ meltfptr[60]),6))), (0)))); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V598*/ meltfptr[597]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V598*/ meltfptr[597])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V598*/ meltfptr[597]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V590*/ meltfptr[589]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V603*/ meltfptr[602]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V603*/ meltfptr[602])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V603*/ meltfptr[602]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V595*/ meltfptr[594]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V598*/ meltfptr[597]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V598*/ meltfptr[597])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V598*/ meltfptr[597]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V592*/ meltfptr[591]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V603*/ meltfptr[602]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V603*/ meltfptr[602])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V603*/ meltfptr[602]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V597*/ meltfptr[596]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V598*/ meltfptr[597]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V598*/ meltfptr[597])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V598*/ meltfptr[597]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V594*/ meltfptr[593]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V603*/ meltfptr[602]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V603*/ meltfptr[602])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V603*/ meltfptr[602]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V599*/ meltfptr[598]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V598*/ meltfptr[597]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V598*/ meltfptr[597])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V598*/ meltfptr[597]))->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V596*/ meltfptr[595]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V603*/ meltfptr[602]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V603*/ meltfptr[602])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V603*/ meltfptr[602]))->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V601*/ meltfptr[600]); /*touch:INITUP_*/ - meltgc_touch(/*_.VALTUP___V598*/ meltfptr[597]); + meltgc_touch(/*_.VALTUP___V603*/ meltfptr[602]); - MELT_LOCATION("warmelt-normatch.melt:2410:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2411:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V587*/ meltfptr[586])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V592*/ meltfptr[591])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V587*/ meltfptr[586])))); - ((meltobject_ptr_t)(/*_.VALDATA___V587*/ meltfptr[586]))->obj_vartab[6] = (melt_ptr_t)( - /*_.VALTUP___V598*/ meltfptr[597]); + melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V592*/ meltfptr[591])))); + ((meltobject_ptr_t)(/*_.VALDATA___V592*/ meltfptr[591]))->obj_vartab[6] = (melt_ptr_t)( + /*_.VALTUP___V603*/ meltfptr[602]); - MELT_LOCATION("warmelt-normatch.melt:2410:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2411:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V587*/ meltfptr[586]); + meltgc_touch(/*_.VALDATA___V592*/ meltfptr[591]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V599*/ meltfptr[598])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V604*/ meltfptr[603])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V599*/ meltfptr[598])))); - ((meltobject_ptr_t)(/*_.VALDATA___V599*/ meltfptr[598]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V600*/ meltfptr[599]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V604*/ meltfptr[603])))); + ((meltobject_ptr_t)(/*_.VALDATA___V604*/ meltfptr[603]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V605*/ meltfptr[604]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V599*/ meltfptr[598]); + meltgc_touch(/*_.VALDATA___V604*/ meltfptr[603]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V601*/ meltfptr[600])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V606*/ meltfptr[605])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V601*/ meltfptr[600])))); - ((meltobject_ptr_t)(/*_.VALDATA___V601*/ meltfptr[600]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V602*/ meltfptr[601]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V606*/ meltfptr[605])))); + ((meltobject_ptr_t)(/*_.VALDATA___V606*/ meltfptr[605]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V607*/ meltfptr[606]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V601*/ meltfptr[600]); + meltgc_touch(/*_.VALDATA___V606*/ meltfptr[605]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V603*/ meltfptr[602])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V608*/ meltfptr[607])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V603*/ meltfptr[602])))); - ((meltobject_ptr_t)(/*_.VALDATA___V603*/ meltfptr[602]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V604*/ meltfptr[603]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V608*/ meltfptr[607])))); + ((meltobject_ptr_t)(/*_.VALDATA___V608*/ meltfptr[607]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V609*/ meltfptr[608]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V603*/ meltfptr[602]); + meltgc_touch(/*_.VALDATA___V608*/ meltfptr[607]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V605*/ meltfptr[604])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V610*/ meltfptr[609])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V605*/ meltfptr[604])))); - ((meltobject_ptr_t)(/*_.VALDATA___V605*/ meltfptr[604]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V606*/ meltfptr[605]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V610*/ meltfptr[609])))); + ((meltobject_ptr_t)(/*_.VALDATA___V610*/ meltfptr[609]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V611*/ meltfptr[610]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V605*/ meltfptr[604]); + meltgc_touch(/*_.VALDATA___V610*/ meltfptr[609]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V607*/ meltfptr[606])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V612*/ meltfptr[611])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V607*/ meltfptr[606])))); - ((meltobject_ptr_t)(/*_.VALDATA___V607*/ meltfptr[606]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V608*/ meltfptr[607]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V612*/ meltfptr[611])))); + ((meltobject_ptr_t)(/*_.VALDATA___V612*/ meltfptr[611]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V613*/ meltfptr[612]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V607*/ meltfptr[606]); + meltgc_touch(/*_.VALDATA___V612*/ meltfptr[611]); - MELT_LOCATION("warmelt-normatch.melt:2422:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2423:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V609*/ meltfptr[608])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V614*/ meltfptr[613])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V609*/ meltfptr[608])))); - ((meltobject_ptr_t)(/*_.VALDATA___V609*/ meltfptr[608]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V610*/ meltfptr[609]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V614*/ meltfptr[613])))); + ((meltobject_ptr_t)(/*_.VALDATA___V614*/ meltfptr[613]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V615*/ meltfptr[614]); - MELT_LOCATION("warmelt-normatch.melt:2422:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2423:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V609*/ meltfptr[608])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V614*/ meltfptr[613])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V609*/ meltfptr[608])))); - ((meltobject_ptr_t)(/*_.VALDATA___V609*/ meltfptr[608]))->obj_vartab[4] = (melt_ptr_t)( + melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V614*/ meltfptr[613])))); + ((meltobject_ptr_t)(/*_.VALDATA___V614*/ meltfptr[613]))->obj_vartab[4] = (melt_ptr_t)( /*_.CLASS_PROPED__V61*/ meltfptr[60]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V611*/ meltfptr[610]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V611*/ meltfptr[610])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V611*/ meltfptr[610]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_PROPED__V61*/ meltfptr[60]),5))), (0)))); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V616*/ meltfptr[615]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V616*/ meltfptr[615])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V616*/ meltfptr[615]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_PROPED__V61*/ meltfptr[60]),5))), (0)))); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V611*/ meltfptr[610]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V611*/ meltfptr[610])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V611*/ meltfptr[610]))->tabval[1] = (melt_ptr_t)(/*_.CLASS_PROPED__V61*/ meltfptr[60]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V616*/ meltfptr[615]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V616*/ meltfptr[615])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V616*/ meltfptr[615]))->tabval[1] = (melt_ptr_t)(/*_.CLASS_PROPED__V61*/ meltfptr[60]); /*touch:INITUP_*/ - meltgc_touch(/*_.VALTUP___V611*/ meltfptr[610]); + meltgc_touch(/*_.VALTUP___V616*/ meltfptr[615]); - MELT_LOCATION("warmelt-normatch.melt:2422:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2423:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V609*/ meltfptr[608])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V614*/ meltfptr[613])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V609*/ meltfptr[608])))); - ((meltobject_ptr_t)(/*_.VALDATA___V609*/ meltfptr[608]))->obj_vartab[5] = (melt_ptr_t)( - /*_.VALTUP___V611*/ meltfptr[610]); + melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V614*/ meltfptr[613])))); + ((meltobject_ptr_t)(/*_.VALDATA___V614*/ meltfptr[613]))->obj_vartab[5] = (melt_ptr_t)( + /*_.VALTUP___V616*/ meltfptr[615]); - MELT_LOCATION("warmelt-normatch.melt:2422:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2423:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V612*/ meltfptr[611])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V617*/ meltfptr[616])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V612*/ meltfptr[611])))); - ((meltobject_ptr_t)(/*_.VALDATA___V612*/ meltfptr[611]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V613*/ meltfptr[612]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V617*/ meltfptr[616])))); + ((meltobject_ptr_t)(/*_.VALDATA___V617*/ meltfptr[616]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V618*/ meltfptr[617]); - MELT_LOCATION("warmelt-normatch.melt:2422:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2423:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V612*/ meltfptr[611])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V617*/ meltfptr[616])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V612*/ meltfptr[611])))); - ((meltobject_ptr_t)(/*_.VALDATA___V612*/ meltfptr[611]))->obj_vartab[2] = (melt_ptr_t)( - /*_.VALDATA___V609*/ meltfptr[608]); + melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V617*/ meltfptr[616])))); + ((meltobject_ptr_t)(/*_.VALDATA___V617*/ meltfptr[616]))->obj_vartab[2] = (melt_ptr_t)( + /*_.VALDATA___V614*/ meltfptr[613]); - MELT_LOCATION("warmelt-normatch.melt:2422:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2423:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V612*/ meltfptr[611]); + meltgc_touch(/*_.VALDATA___V617*/ meltfptr[616]); - MELT_LOCATION("warmelt-normatch.melt:2422:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2423:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V614*/ meltfptr[613])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V619*/ meltfptr[618])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V614*/ meltfptr[613])))); - ((meltobject_ptr_t)(/*_.VALDATA___V614*/ meltfptr[613]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V615*/ meltfptr[614]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V619*/ meltfptr[618])))); + ((meltobject_ptr_t)(/*_.VALDATA___V619*/ meltfptr[618]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V620*/ meltfptr[619]); - MELT_LOCATION("warmelt-normatch.melt:2422:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2423:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V614*/ meltfptr[613])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V619*/ meltfptr[618])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V614*/ meltfptr[613])))); - ((meltobject_ptr_t)(/*_.VALDATA___V614*/ meltfptr[613]))->obj_vartab[2] = (melt_ptr_t)( - /*_.VALDATA___V609*/ meltfptr[608]); + melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V619*/ meltfptr[618])))); + ((meltobject_ptr_t)(/*_.VALDATA___V619*/ meltfptr[618]))->obj_vartab[2] = (melt_ptr_t)( + /*_.VALDATA___V614*/ meltfptr[613]); - MELT_LOCATION("warmelt-normatch.melt:2422:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2423:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V614*/ meltfptr[613]); + meltgc_touch(/*_.VALDATA___V619*/ meltfptr[618]); - MELT_LOCATION("warmelt-normatch.melt:2422:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2423:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V616*/ meltfptr[615])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V621*/ meltfptr[620])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V616*/ meltfptr[615])))); - ((meltobject_ptr_t)(/*_.VALDATA___V616*/ meltfptr[615]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V617*/ meltfptr[616]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V621*/ meltfptr[620])))); + ((meltobject_ptr_t)(/*_.VALDATA___V621*/ meltfptr[620]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V622*/ meltfptr[621]); - MELT_LOCATION("warmelt-normatch.melt:2422:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2423:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V616*/ meltfptr[615])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V621*/ meltfptr[620])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V616*/ meltfptr[615])))); - ((meltobject_ptr_t)(/*_.VALDATA___V616*/ meltfptr[615]))->obj_vartab[2] = (melt_ptr_t)( - /*_.VALDATA___V609*/ meltfptr[608]); + melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V621*/ meltfptr[620])))); + ((meltobject_ptr_t)(/*_.VALDATA___V621*/ meltfptr[620]))->obj_vartab[2] = (melt_ptr_t)( + /*_.VALDATA___V614*/ meltfptr[613]); - MELT_LOCATION("warmelt-normatch.melt:2422:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2423:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V616*/ meltfptr[615]); + meltgc_touch(/*_.VALDATA___V621*/ meltfptr[620]); - MELT_LOCATION("warmelt-normatch.melt:2422:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2423:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V618*/ meltfptr[617])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V623*/ meltfptr[622])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V618*/ meltfptr[617])))); - ((meltobject_ptr_t)(/*_.VALDATA___V618*/ meltfptr[617]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V619*/ meltfptr[618]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V623*/ meltfptr[622])))); + ((meltobject_ptr_t)(/*_.VALDATA___V623*/ meltfptr[622]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V624*/ meltfptr[623]); - MELT_LOCATION("warmelt-normatch.melt:2422:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2423:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V618*/ meltfptr[617])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V623*/ meltfptr[622])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V618*/ meltfptr[617])))); - ((meltobject_ptr_t)(/*_.VALDATA___V618*/ meltfptr[617]))->obj_vartab[2] = (melt_ptr_t)( - /*_.VALDATA___V609*/ meltfptr[608]); + melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V623*/ meltfptr[622])))); + ((meltobject_ptr_t)(/*_.VALDATA___V623*/ meltfptr[622]))->obj_vartab[2] = (melt_ptr_t)( + /*_.VALDATA___V614*/ meltfptr[613]); - MELT_LOCATION("warmelt-normatch.melt:2422:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2423:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V618*/ meltfptr[617]); + meltgc_touch(/*_.VALDATA___V623*/ meltfptr[622]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V620*/ meltfptr[619]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V620*/ meltfptr[619])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V620*/ meltfptr[619]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_PROPED__V61*/ meltfptr[60]),6))), (0)))); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V625*/ meltfptr[624]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V625*/ meltfptr[624])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V625*/ meltfptr[624]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_PROPED__V61*/ meltfptr[60]),6))), (0)))); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V620*/ meltfptr[619]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V620*/ meltfptr[619])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V620*/ meltfptr[619]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V612*/ meltfptr[611]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V625*/ meltfptr[624]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V625*/ meltfptr[624])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V625*/ meltfptr[624]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V617*/ meltfptr[616]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V620*/ meltfptr[619]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V620*/ meltfptr[619])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V620*/ meltfptr[619]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V614*/ meltfptr[613]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V625*/ meltfptr[624]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V625*/ meltfptr[624])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V625*/ meltfptr[624]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V619*/ meltfptr[618]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V620*/ meltfptr[619]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V620*/ meltfptr[619])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V620*/ meltfptr[619]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V616*/ meltfptr[615]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V625*/ meltfptr[624]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V625*/ meltfptr[624])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V625*/ meltfptr[624]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V621*/ meltfptr[620]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V620*/ meltfptr[619]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V620*/ meltfptr[619])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V620*/ meltfptr[619]))->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V618*/ meltfptr[617]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V625*/ meltfptr[624]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V625*/ meltfptr[624])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V625*/ meltfptr[624]))->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V623*/ meltfptr[622]); /*touch:INITUP_*/ - meltgc_touch(/*_.VALTUP___V620*/ meltfptr[619]); + meltgc_touch(/*_.VALTUP___V625*/ meltfptr[624]); - MELT_LOCATION("warmelt-normatch.melt:2422:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2423:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V609*/ meltfptr[608])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V614*/ meltfptr[613])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V609*/ meltfptr[608])))); - ((meltobject_ptr_t)(/*_.VALDATA___V609*/ meltfptr[608]))->obj_vartab[6] = (melt_ptr_t)( - /*_.VALTUP___V620*/ meltfptr[619]); + melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V614*/ meltfptr[613])))); + ((meltobject_ptr_t)(/*_.VALDATA___V614*/ meltfptr[613]))->obj_vartab[6] = (melt_ptr_t)( + /*_.VALTUP___V625*/ meltfptr[624]); - MELT_LOCATION("warmelt-normatch.melt:2422:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2423:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V609*/ meltfptr[608]); + meltgc_touch(/*_.VALDATA___V614*/ meltfptr[613]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V621*/ meltfptr[620])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V626*/ meltfptr[625])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V621*/ meltfptr[620])))); - ((meltobject_ptr_t)(/*_.VALDATA___V621*/ meltfptr[620]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V622*/ meltfptr[621]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V626*/ meltfptr[625])))); + ((meltobject_ptr_t)(/*_.VALDATA___V626*/ meltfptr[625]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V627*/ meltfptr[626]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V621*/ meltfptr[620]); + meltgc_touch(/*_.VALDATA___V626*/ meltfptr[625]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V623*/ meltfptr[622])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V628*/ meltfptr[627])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V623*/ meltfptr[622])))); - ((meltobject_ptr_t)(/*_.VALDATA___V623*/ meltfptr[622]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V624*/ meltfptr[623]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V628*/ meltfptr[627])))); + ((meltobject_ptr_t)(/*_.VALDATA___V628*/ meltfptr[627]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V629*/ meltfptr[628]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V623*/ meltfptr[622]); + meltgc_touch(/*_.VALDATA___V628*/ meltfptr[627]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V625*/ meltfptr[624])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V630*/ meltfptr[629])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V625*/ meltfptr[624])))); - ((meltobject_ptr_t)(/*_.VALDATA___V625*/ meltfptr[624]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V626*/ meltfptr[625]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V630*/ meltfptr[629])))); + ((meltobject_ptr_t)(/*_.VALDATA___V630*/ meltfptr[629]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V631*/ meltfptr[630]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V625*/ meltfptr[624]); + meltgc_touch(/*_.VALDATA___V630*/ meltfptr[629]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V627*/ meltfptr[626])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V632*/ meltfptr[631])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V627*/ meltfptr[626])))); - ((meltobject_ptr_t)(/*_.VALDATA___V627*/ meltfptr[626]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V628*/ meltfptr[627]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V632*/ meltfptr[631])))); + ((meltobject_ptr_t)(/*_.VALDATA___V632*/ meltfptr[631]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V633*/ meltfptr[632]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V627*/ meltfptr[626]); + meltgc_touch(/*_.VALDATA___V632*/ meltfptr[631]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V629*/ meltfptr[628])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V634*/ meltfptr[633])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V629*/ meltfptr[628])))); - ((meltobject_ptr_t)(/*_.VALDATA___V629*/ meltfptr[628]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V630*/ meltfptr[629]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V634*/ meltfptr[633])))); + ((meltobject_ptr_t)(/*_.VALDATA___V634*/ meltfptr[633]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V635*/ meltfptr[634]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V629*/ meltfptr[628]); + meltgc_touch(/*_.VALDATA___V634*/ meltfptr[633]); - MELT_LOCATION("warmelt-normatch.melt:2433:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2434:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V631*/ meltfptr[630])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V636*/ meltfptr[635])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V631*/ meltfptr[630])))); - ((meltobject_ptr_t)(/*_.VALDATA___V631*/ meltfptr[630]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V632*/ meltfptr[631]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V636*/ meltfptr[635])))); + ((meltobject_ptr_t)(/*_.VALDATA___V636*/ meltfptr[635]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V637*/ meltfptr[636]); - MELT_LOCATION("warmelt-normatch.melt:2433:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2434:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V631*/ meltfptr[630])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V636*/ meltfptr[635])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V631*/ meltfptr[630])))); - ((meltobject_ptr_t)(/*_.VALDATA___V631*/ meltfptr[630]))->obj_vartab[4] = (melt_ptr_t)( + melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V636*/ meltfptr[635])))); + ((meltobject_ptr_t)(/*_.VALDATA___V636*/ meltfptr[635]))->obj_vartab[4] = (melt_ptr_t)( /*_.CLASS_ANY_BINDING__V54*/ meltfptr[53]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V633*/ meltfptr[632]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V633*/ meltfptr[632])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V633*/ meltfptr[632]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_ANY_BINDING__V54*/ meltfptr[53]),5))), (0)))); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V638*/ meltfptr[637]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V638*/ meltfptr[637])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V638*/ meltfptr[637]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_ANY_BINDING__V54*/ meltfptr[53]),5))), (0)))); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V633*/ meltfptr[632]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V633*/ meltfptr[632])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V633*/ meltfptr[632]))->tabval[1] = (melt_ptr_t)(/*_.CLASS_ANY_BINDING__V54*/ meltfptr[53]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V638*/ meltfptr[637]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V638*/ meltfptr[637])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V638*/ meltfptr[637]))->tabval[1] = (melt_ptr_t)(/*_.CLASS_ANY_BINDING__V54*/ meltfptr[53]); /*touch:INITUP_*/ - meltgc_touch(/*_.VALTUP___V633*/ meltfptr[632]); + meltgc_touch(/*_.VALTUP___V638*/ meltfptr[637]); - MELT_LOCATION("warmelt-normatch.melt:2433:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2434:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V631*/ meltfptr[630])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V636*/ meltfptr[635])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V631*/ meltfptr[630])))); - ((meltobject_ptr_t)(/*_.VALDATA___V631*/ meltfptr[630]))->obj_vartab[5] = (melt_ptr_t)( - /*_.VALTUP___V633*/ meltfptr[632]); + melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V636*/ meltfptr[635])))); + ((meltobject_ptr_t)(/*_.VALDATA___V636*/ meltfptr[635]))->obj_vartab[5] = (melt_ptr_t)( + /*_.VALTUP___V638*/ meltfptr[637]); - MELT_LOCATION("warmelt-normatch.melt:2433:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2434:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V634*/ meltfptr[633])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V639*/ meltfptr[638])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V634*/ meltfptr[633])))); - ((meltobject_ptr_t)(/*_.VALDATA___V634*/ meltfptr[633]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V635*/ meltfptr[634]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V639*/ meltfptr[638])))); + ((meltobject_ptr_t)(/*_.VALDATA___V639*/ meltfptr[638]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V640*/ meltfptr[639]); - MELT_LOCATION("warmelt-normatch.melt:2433:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2434:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V634*/ meltfptr[633])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V639*/ meltfptr[638])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V634*/ meltfptr[633])))); - ((meltobject_ptr_t)(/*_.VALDATA___V634*/ meltfptr[633]))->obj_vartab[2] = (melt_ptr_t)( - /*_.VALDATA___V631*/ meltfptr[630]); + melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V639*/ meltfptr[638])))); + ((meltobject_ptr_t)(/*_.VALDATA___V639*/ meltfptr[638]))->obj_vartab[2] = (melt_ptr_t)( + /*_.VALDATA___V636*/ meltfptr[635]); - MELT_LOCATION("warmelt-normatch.melt:2433:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2434:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V634*/ meltfptr[633]); + meltgc_touch(/*_.VALDATA___V639*/ meltfptr[638]); - MELT_LOCATION("warmelt-normatch.melt:2433:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2434:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V636*/ meltfptr[635])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V641*/ meltfptr[640])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V636*/ meltfptr[635])))); - ((meltobject_ptr_t)(/*_.VALDATA___V636*/ meltfptr[635]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V637*/ meltfptr[636]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V641*/ meltfptr[640])))); + ((meltobject_ptr_t)(/*_.VALDATA___V641*/ meltfptr[640]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V642*/ meltfptr[641]); - MELT_LOCATION("warmelt-normatch.melt:2433:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2434:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V636*/ meltfptr[635])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V641*/ meltfptr[640])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V636*/ meltfptr[635])))); - ((meltobject_ptr_t)(/*_.VALDATA___V636*/ meltfptr[635]))->obj_vartab[2] = (melt_ptr_t)( - /*_.VALDATA___V631*/ meltfptr[630]); + melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V641*/ meltfptr[640])))); + ((meltobject_ptr_t)(/*_.VALDATA___V641*/ meltfptr[640]))->obj_vartab[2] = (melt_ptr_t)( + /*_.VALDATA___V636*/ meltfptr[635]); - MELT_LOCATION("warmelt-normatch.melt:2433:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2434:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V636*/ meltfptr[635]); + meltgc_touch(/*_.VALDATA___V641*/ meltfptr[640]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V638*/ meltfptr[637]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V638*/ meltfptr[637])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V638*/ meltfptr[637]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_ANY_BINDING__V54*/ meltfptr[53]),6))), (0)))); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V643*/ meltfptr[642]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V643*/ meltfptr[642])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V643*/ meltfptr[642]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_ANY_BINDING__V54*/ meltfptr[53]),6))), (0)))); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V638*/ meltfptr[637]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V638*/ meltfptr[637])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V638*/ meltfptr[637]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V634*/ meltfptr[633]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V643*/ meltfptr[642]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V643*/ meltfptr[642])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V643*/ meltfptr[642]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V639*/ meltfptr[638]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V638*/ meltfptr[637]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V638*/ meltfptr[637])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V638*/ meltfptr[637]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V636*/ meltfptr[635]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V643*/ meltfptr[642]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V643*/ meltfptr[642])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V643*/ meltfptr[642]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V641*/ meltfptr[640]); /*touch:INITUP_*/ - meltgc_touch(/*_.VALTUP___V638*/ meltfptr[637]); + meltgc_touch(/*_.VALTUP___V643*/ meltfptr[642]); - MELT_LOCATION("warmelt-normatch.melt:2433:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2434:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V631*/ meltfptr[630])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V636*/ meltfptr[635])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V631*/ meltfptr[630])))); - ((meltobject_ptr_t)(/*_.VALDATA___V631*/ meltfptr[630]))->obj_vartab[6] = (melt_ptr_t)( - /*_.VALTUP___V638*/ meltfptr[637]); + melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V636*/ meltfptr[635])))); + ((meltobject_ptr_t)(/*_.VALDATA___V636*/ meltfptr[635]))->obj_vartab[6] = (melt_ptr_t)( + /*_.VALTUP___V643*/ meltfptr[642]); - MELT_LOCATION("warmelt-normatch.melt:2433:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2434:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V631*/ meltfptr[630]); + meltgc_touch(/*_.VALDATA___V636*/ meltfptr[635]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V639*/ meltfptr[638])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V644*/ meltfptr[643])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V639*/ meltfptr[638])))); - ((meltobject_ptr_t)(/*_.VALDATA___V639*/ meltfptr[638]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V640*/ meltfptr[639]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V644*/ meltfptr[643])))); + ((meltobject_ptr_t)(/*_.VALDATA___V644*/ meltfptr[643]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V645*/ meltfptr[644]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V639*/ meltfptr[638]); + meltgc_touch(/*_.VALDATA___V644*/ meltfptr[643]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V641*/ meltfptr[640])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V646*/ meltfptr[645])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V641*/ meltfptr[640])))); - ((meltobject_ptr_t)(/*_.VALDATA___V641*/ meltfptr[640]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V642*/ meltfptr[641]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V646*/ meltfptr[645])))); + ((meltobject_ptr_t)(/*_.VALDATA___V646*/ meltfptr[645]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V647*/ meltfptr[646]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V641*/ meltfptr[640]); + meltgc_touch(/*_.VALDATA___V646*/ meltfptr[645]); - MELT_LOCATION("warmelt-normatch.melt:2442:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2443:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V643*/ meltfptr[642])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V631*/ meltfptr[630]); - ((meltroutine_ptr_t)/*_.VALROUT___V643*/ meltfptr[642])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V631*/ meltfptr[630]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V648*/ meltfptr[647])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V636*/ meltfptr[635]); + ((meltroutine_ptr_t)/*_.VALROUT___V648*/ meltfptr[647])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V636*/ meltfptr[635]); - MELT_LOCATION("warmelt-normatch.melt:2442:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2443:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V643*/ meltfptr[642])) == OBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_571__NORMBIND_MATCHBIND#1", NULL != (/*_.CLASS_ENVIRONMENT__V65*/ meltfptr[64])); - ((meltroutine_ptr_t)/*_.VALROUT___V643*/ meltfptr[642])->tabval[1] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V65*/ meltfptr[64]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V648*/ meltfptr[647])) == OBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_575__NORMBIND_MATCHBIND#1", NULL != (/*_.CLASS_ENVIRONMENT__V65*/ meltfptr[64])); + ((meltroutine_ptr_t)/*_.VALROUT___V648*/ meltfptr[647])->tabval[1] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V65*/ meltfptr[64]); - MELT_LOCATION("warmelt-normatch.melt:2442:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2443:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V643*/ meltfptr[642])) == OBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_571__NORMBIND_MATCHBIND#2", NULL != (/*_.CLASS_NORMALIZATION_CONTEXT__V41*/ meltfptr[40])); - ((meltroutine_ptr_t)/*_.VALROUT___V643*/ meltfptr[642])->tabval[2] = (melt_ptr_t)(/*_.CLASS_NORMALIZATION_CONTEXT__V41*/ meltfptr[40]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V648*/ meltfptr[647])) == OBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_575__NORMBIND_MATCHBIND#2", NULL != (/*_.CLASS_NORMALIZATION_CONTEXT__V41*/ meltfptr[40])); + ((meltroutine_ptr_t)/*_.VALROUT___V648*/ meltfptr[647])->tabval[2] = (melt_ptr_t)(/*_.CLASS_NORMALIZATION_CONTEXT__V41*/ meltfptr[40]); - MELT_LOCATION("warmelt-normatch.melt:2442:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2443:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V643*/ meltfptr[642])) == OBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_571__NORMBIND_MATCHBIND#3", NULL != (/*_.CLASS_NREP_LOCSYMOCC__V39*/ meltfptr[38])); - ((meltroutine_ptr_t)/*_.VALROUT___V643*/ meltfptr[642])->tabval[3] = (melt_ptr_t)(/*_.CLASS_NREP_LOCSYMOCC__V39*/ meltfptr[38]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V648*/ meltfptr[647])) == OBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_575__NORMBIND_MATCHBIND#3", NULL != (/*_.CLASS_NREP_LOCSYMOCC__V39*/ meltfptr[38])); + ((meltroutine_ptr_t)/*_.VALROUT___V648*/ meltfptr[647])->tabval[3] = (melt_ptr_t)(/*_.CLASS_NREP_LOCSYMOCC__V39*/ meltfptr[38]); - MELT_LOCATION("warmelt-normatch.melt:2442:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2443:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V643*/ meltfptr[642])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V609*/ meltfptr[608]); - ((meltroutine_ptr_t)/*_.VALROUT___V643*/ meltfptr[642])->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V609*/ meltfptr[608]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V648*/ meltfptr[647])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V614*/ meltfptr[613]); + ((meltroutine_ptr_t)/*_.VALROUT___V648*/ meltfptr[647])->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V614*/ meltfptr[613]); - MELT_LOCATION("warmelt-normatch.melt:2442:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2443:/ initchunk"); /*^touch*/ /*touch:IROUTVAL_*/ - meltgc_touch(/*_.VALROUT___V643*/ meltfptr[642]); + meltgc_touch(/*_.VALROUT___V648*/ meltfptr[647]); /*putclosurout*/ - melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V644*/ meltfptr[643])) == OBMAG_CLOSURE); - melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V643*/ meltfptr[642])) == OBMAG_ROUTINE); - ((meltclosure_ptr_t)/*_.VALCLO___V644*/ meltfptr[643])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V643*/ meltfptr[642]); + melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V649*/ meltfptr[648])) == OBMAG_CLOSURE); + melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V648*/ meltfptr[647])) == OBMAG_ROUTINE); + ((meltclosure_ptr_t)/*_.VALCLO___V649*/ meltfptr[648])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V648*/ meltfptr[647]); /*touch:DATACLOSURE_*/ - meltgc_touch(/*_.VALCLO___V644*/ meltfptr[643]); + meltgc_touch(/*_.VALCLO___V649*/ meltfptr[648]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V645*/ meltfptr[644])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V650*/ meltfptr[649])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V645*/ meltfptr[644])))); - ((meltobject_ptr_t)(/*_.VALDATA___V645*/ meltfptr[644]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V646*/ meltfptr[645]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V650*/ meltfptr[649])))); + ((meltobject_ptr_t)(/*_.VALDATA___V650*/ meltfptr[649]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V651*/ meltfptr[650]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V645*/ meltfptr[644]); + meltgc_touch(/*_.VALDATA___V650*/ meltfptr[649]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V647*/ meltfptr[646])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V652*/ meltfptr[651])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V647*/ meltfptr[646])))); - ((meltobject_ptr_t)(/*_.VALDATA___V647*/ meltfptr[646]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V648*/ meltfptr[647]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V652*/ meltfptr[651])))); + ((meltobject_ptr_t)(/*_.VALDATA___V652*/ meltfptr[651]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V653*/ meltfptr[652]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V647*/ meltfptr[646]); + meltgc_touch(/*_.VALDATA___V652*/ meltfptr[651]); - MELT_LOCATION("warmelt-normatch.melt:2466:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2467:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V649*/ meltfptr[648])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V654*/ meltfptr[653])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V649*/ meltfptr[648])))); - ((meltobject_ptr_t)(/*_.VALDATA___V649*/ meltfptr[648]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V650*/ meltfptr[649]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V654*/ meltfptr[653])))); + ((meltobject_ptr_t)(/*_.VALDATA___V654*/ meltfptr[653]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V655*/ meltfptr[654]); - MELT_LOCATION("warmelt-normatch.melt:2466:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2467:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V649*/ meltfptr[648])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V654*/ meltfptr[653])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V649*/ meltfptr[648])))); - ((meltobject_ptr_t)(/*_.VALDATA___V649*/ meltfptr[648]))->obj_vartab[4] = (melt_ptr_t)( + melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V654*/ meltfptr[653])))); + ((meltobject_ptr_t)(/*_.VALDATA___V654*/ meltfptr[653]))->obj_vartab[4] = (melt_ptr_t)( /*_.CLASS_LOCATED__V38*/ meltfptr[37]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V651*/ meltfptr[650]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V651*/ meltfptr[650])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V651*/ meltfptr[650]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_LOCATED__V38*/ meltfptr[37]),5))), (0)))); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V656*/ meltfptr[655]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V656*/ meltfptr[655])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V656*/ meltfptr[655]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_LOCATED__V38*/ meltfptr[37]),5))), (0)))); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V651*/ meltfptr[650]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V651*/ meltfptr[650])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V651*/ meltfptr[650]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_LOCATED__V38*/ meltfptr[37]),5))), (1)))); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V656*/ meltfptr[655]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V656*/ meltfptr[655])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V656*/ meltfptr[655]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_LOCATED__V38*/ meltfptr[37]),5))), (1)))); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V651*/ meltfptr[650]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V651*/ meltfptr[650])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V651*/ meltfptr[650]))->tabval[2] = (melt_ptr_t)(/*_.CLASS_LOCATED__V38*/ meltfptr[37]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V656*/ meltfptr[655]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V656*/ meltfptr[655])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V656*/ meltfptr[655]))->tabval[2] = (melt_ptr_t)(/*_.CLASS_LOCATED__V38*/ meltfptr[37]); /*touch:INITUP_*/ - meltgc_touch(/*_.VALTUP___V651*/ meltfptr[650]); + meltgc_touch(/*_.VALTUP___V656*/ meltfptr[655]); - MELT_LOCATION("warmelt-normatch.melt:2466:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2467:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V649*/ meltfptr[648])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V654*/ meltfptr[653])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V649*/ meltfptr[648])))); - ((meltobject_ptr_t)(/*_.VALDATA___V649*/ meltfptr[648]))->obj_vartab[5] = (melt_ptr_t)( - /*_.VALTUP___V651*/ meltfptr[650]); + melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V654*/ meltfptr[653])))); + ((meltobject_ptr_t)(/*_.VALDATA___V654*/ meltfptr[653]))->obj_vartab[5] = (melt_ptr_t)( + /*_.VALTUP___V656*/ meltfptr[655]); - MELT_LOCATION("warmelt-normatch.melt:2466:/ initchunk"); + +#undef meltfram__ +} /*end of warmelt_normatch_initialmeltchunk_4*/ + +void MELT_MODULE_VISIBILITY warmelt_normatch_initialmeltchunk_5 (struct frame_start_module_melt_st* meltframptr__, char predefinited[]) { +#define meltfram__ (*meltframptr__) +#undef meltcallcount +#define meltcallcount 0L +MELT_LOCATION("warmelt-normatch.melt:2467:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V652*/ meltfptr[651])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V657*/ meltfptr[656])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V652*/ meltfptr[651])))); - ((meltobject_ptr_t)(/*_.VALDATA___V652*/ meltfptr[651]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V653*/ meltfptr[652]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V657*/ meltfptr[656])))); + ((meltobject_ptr_t)(/*_.VALDATA___V657*/ meltfptr[656]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V658*/ meltfptr[657]); - MELT_LOCATION("warmelt-normatch.melt:2466:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2467:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V652*/ meltfptr[651])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V657*/ meltfptr[656])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V652*/ meltfptr[651])))); - ((meltobject_ptr_t)(/*_.VALDATA___V652*/ meltfptr[651]))->obj_vartab[2] = (melt_ptr_t)( - /*_.VALDATA___V649*/ meltfptr[648]); + melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V657*/ meltfptr[656])))); + ((meltobject_ptr_t)(/*_.VALDATA___V657*/ meltfptr[656]))->obj_vartab[2] = (melt_ptr_t)( + /*_.VALDATA___V654*/ meltfptr[653]); - MELT_LOCATION("warmelt-normatch.melt:2466:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2467:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V652*/ meltfptr[651]); + meltgc_touch(/*_.VALDATA___V657*/ meltfptr[656]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V654*/ meltfptr[653]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V654*/ meltfptr[653])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V654*/ meltfptr[653]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_LOCATED__V38*/ meltfptr[37]),6))), (0)))); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V659*/ meltfptr[658]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V659*/ meltfptr[658])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V659*/ meltfptr[658]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_LOCATED__V38*/ meltfptr[37]),6))), (0)))); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V654*/ meltfptr[653]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V654*/ meltfptr[653])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V654*/ meltfptr[653]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_LOCATED__V38*/ meltfptr[37]),6))), (1)))); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V659*/ meltfptr[658]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V659*/ meltfptr[658])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V659*/ meltfptr[658]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_LOCATED__V38*/ meltfptr[37]),6))), (1)))); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V654*/ meltfptr[653]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V654*/ meltfptr[653])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V654*/ meltfptr[653]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V652*/ meltfptr[651]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V659*/ meltfptr[658]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V659*/ meltfptr[658])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V659*/ meltfptr[658]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V657*/ meltfptr[656]); /*touch:INITUP_*/ - meltgc_touch(/*_.VALTUP___V654*/ meltfptr[653]); + meltgc_touch(/*_.VALTUP___V659*/ meltfptr[658]); + MELT_LOCATION("warmelt-normatch.melt:2467:/ initchunk"); + /*^putslot*/ + /*putslot*/ + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V654*/ meltfptr[653])) == OBMAG_OBJECT); -#undef meltfram__ -} /*end of warmelt_normatch_initialmeltchunk_4*/ - -void MELT_MODULE_VISIBILITY warmelt_normatch_initialmeltchunk_5 (struct frame_start_module_melt_st* meltframptr__, char predefinited[]) { -#define meltfram__ (*meltframptr__) -#undef meltcallcount -#define meltcallcount 0L -MELT_LOCATION("warmelt-normatch.melt:2466:/ initchunk"); + melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V654*/ meltfptr[653])))); + ((meltobject_ptr_t)(/*_.VALDATA___V654*/ meltfptr[653]))->obj_vartab[6] = (melt_ptr_t)( + /*_.VALTUP___V659*/ meltfptr[658]); + + MELT_LOCATION("warmelt-normatch.melt:2467:/ initchunk"); + /*^touch*/ + /*touch:VALUEDATA_*/ + meltgc_touch(/*_.VALDATA___V654*/ meltfptr[653]); + + /*putslot*/ + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V660*/ meltfptr[659])) == OBMAG_OBJECT); + + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V660*/ meltfptr[659])))); + ((meltobject_ptr_t)(/*_.VALDATA___V660*/ meltfptr[659]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V661*/ meltfptr[660]); + + /*touch:VALUEDATA_*/ + meltgc_touch(/*_.VALDATA___V660*/ meltfptr[659]); + + /*putslot*/ + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V662*/ meltfptr[661])) == OBMAG_OBJECT); + + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V662*/ meltfptr[661])))); + ((meltobject_ptr_t)(/*_.VALDATA___V662*/ meltfptr[661]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V663*/ meltfptr[662]); + + /*touch:VALUEDATA_*/ + meltgc_touch(/*_.VALDATA___V662*/ meltfptr[661]); + + MELT_LOCATION("warmelt-normatch.melt:2475:/ initchunk"); + /*^putslot*/ + /*putslot*/ + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V664*/ meltfptr[663])) == OBMAG_OBJECT); + + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V664*/ meltfptr[663])))); + ((meltobject_ptr_t)(/*_.VALDATA___V664*/ meltfptr[663]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V665*/ meltfptr[664]); + + MELT_LOCATION("warmelt-normatch.melt:2475:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V649*/ meltfptr[648])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V664*/ meltfptr[663])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V649*/ meltfptr[648])))); - ((meltobject_ptr_t)(/*_.VALDATA___V649*/ meltfptr[648]))->obj_vartab[6] = (melt_ptr_t)( - /*_.VALTUP___V654*/ meltfptr[653]); + melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V664*/ meltfptr[663])))); + ((meltobject_ptr_t)(/*_.VALDATA___V664*/ meltfptr[663]))->obj_vartab[4] = (melt_ptr_t)( + /*_.CLASS_LOCATED__V38*/ meltfptr[37]); + + /*putupl*/ + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V666*/ meltfptr[665]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V666*/ meltfptr[665])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V666*/ meltfptr[665]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_LOCATED__V38*/ meltfptr[37]),5))), (0)))); + + /*putupl*/ + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V666*/ meltfptr[665]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V666*/ meltfptr[665])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V666*/ meltfptr[665]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_LOCATED__V38*/ meltfptr[37]),5))), (1)))); + + /*putupl*/ + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V666*/ meltfptr[665]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V666*/ meltfptr[665])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V666*/ meltfptr[665]))->tabval[2] = (melt_ptr_t)(/*_.CLASS_LOCATED__V38*/ meltfptr[37]); + + /*touch:INITUP_*/ + meltgc_touch(/*_.VALTUP___V666*/ meltfptr[665]); + + MELT_LOCATION("warmelt-normatch.melt:2475:/ initchunk"); + /*^putslot*/ + /*putslot*/ + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V664*/ meltfptr[663])) == OBMAG_OBJECT); + + melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V664*/ meltfptr[663])))); + ((meltobject_ptr_t)(/*_.VALDATA___V664*/ meltfptr[663]))->obj_vartab[5] = (melt_ptr_t)( + /*_.VALTUP___V666*/ meltfptr[665]); + + MELT_LOCATION("warmelt-normatch.melt:2475:/ initchunk"); + /*^putslot*/ + /*putslot*/ + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V667*/ meltfptr[666])) == OBMAG_OBJECT); + + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V667*/ meltfptr[666])))); + ((meltobject_ptr_t)(/*_.VALDATA___V667*/ meltfptr[666]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V668*/ meltfptr[667]); + + MELT_LOCATION("warmelt-normatch.melt:2475:/ initchunk"); + /*^putslot*/ + /*putslot*/ + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V667*/ meltfptr[666])) == OBMAG_OBJECT); + + melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V667*/ meltfptr[666])))); + ((meltobject_ptr_t)(/*_.VALDATA___V667*/ meltfptr[666]))->obj_vartab[2] = (melt_ptr_t)( + /*_.VALDATA___V664*/ meltfptr[663]); + + MELT_LOCATION("warmelt-normatch.melt:2475:/ initchunk"); + /*^touch*/ + /*touch:VALUEDATA_*/ + meltgc_touch(/*_.VALDATA___V667*/ meltfptr[666]); + + MELT_LOCATION("warmelt-normatch.melt:2475:/ initchunk"); + /*^putslot*/ + /*putslot*/ + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V669*/ meltfptr[668])) == OBMAG_OBJECT); + + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V669*/ meltfptr[668])))); + ((meltobject_ptr_t)(/*_.VALDATA___V669*/ meltfptr[668]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V670*/ meltfptr[669]); + + MELT_LOCATION("warmelt-normatch.melt:2475:/ initchunk"); + /*^putslot*/ + /*putslot*/ + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V669*/ meltfptr[668])) == OBMAG_OBJECT); - MELT_LOCATION("warmelt-normatch.melt:2466:/ initchunk"); + melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V669*/ meltfptr[668])))); + ((meltobject_ptr_t)(/*_.VALDATA___V669*/ meltfptr[668]))->obj_vartab[2] = (melt_ptr_t)( + /*_.VALDATA___V664*/ meltfptr[663]); + + MELT_LOCATION("warmelt-normatch.melt:2475:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V649*/ meltfptr[648]); + meltgc_touch(/*_.VALDATA___V669*/ meltfptr[668]); + + MELT_LOCATION("warmelt-normatch.melt:2475:/ initchunk"); + /*^putslot*/ + /*putslot*/ + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V671*/ meltfptr[670])) == OBMAG_OBJECT); + + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V671*/ meltfptr[670])))); + ((meltobject_ptr_t)(/*_.VALDATA___V671*/ meltfptr[670]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V672*/ meltfptr[671]); + MELT_LOCATION("warmelt-normatch.melt:2475:/ initchunk"); + /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V655*/ meltfptr[654])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V671*/ meltfptr[670])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V655*/ meltfptr[654])))); - ((meltobject_ptr_t)(/*_.VALDATA___V655*/ meltfptr[654]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V656*/ meltfptr[655]); + melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V671*/ meltfptr[670])))); + ((meltobject_ptr_t)(/*_.VALDATA___V671*/ meltfptr[670]))->obj_vartab[2] = (melt_ptr_t)( + /*_.VALDATA___V664*/ meltfptr[663]); + MELT_LOCATION("warmelt-normatch.melt:2475:/ initchunk"); + /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V655*/ meltfptr[654]); + meltgc_touch(/*_.VALDATA___V671*/ meltfptr[670]); + MELT_LOCATION("warmelt-normatch.melt:2475:/ initchunk"); + /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V657*/ meltfptr[656])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V673*/ meltfptr[672])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V657*/ meltfptr[656])))); - ((meltobject_ptr_t)(/*_.VALDATA___V657*/ meltfptr[656]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V658*/ meltfptr[657]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V673*/ meltfptr[672])))); + ((meltobject_ptr_t)(/*_.VALDATA___V673*/ meltfptr[672]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V674*/ meltfptr[673]); + + MELT_LOCATION("warmelt-normatch.melt:2475:/ initchunk"); + /*^putslot*/ + /*putslot*/ + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V673*/ meltfptr[672])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V673*/ meltfptr[672])))); + ((meltobject_ptr_t)(/*_.VALDATA___V673*/ meltfptr[672]))->obj_vartab[2] = (melt_ptr_t)( + /*_.VALDATA___V664*/ meltfptr[663]); + + MELT_LOCATION("warmelt-normatch.melt:2475:/ initchunk"); + /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V657*/ meltfptr[656]); + meltgc_touch(/*_.VALDATA___V673*/ meltfptr[672]); + + /*putupl*/ + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V675*/ meltfptr[674]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V675*/ meltfptr[674])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V675*/ meltfptr[674]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_LOCATED__V38*/ meltfptr[37]),6))), (0)))); + + /*putupl*/ + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V675*/ meltfptr[674]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V675*/ meltfptr[674])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V675*/ meltfptr[674]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_LOCATED__V38*/ meltfptr[37]),6))), (1)))); + + /*putupl*/ + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V675*/ meltfptr[674]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V675*/ meltfptr[674])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V675*/ meltfptr[674]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V667*/ meltfptr[666]); + + /*putupl*/ + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V675*/ meltfptr[674]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V675*/ meltfptr[674])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V675*/ meltfptr[674]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V669*/ meltfptr[668]); + + /*putupl*/ + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V675*/ meltfptr[674]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V675*/ meltfptr[674])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V675*/ meltfptr[674]))->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V671*/ meltfptr[670]); + + /*putupl*/ + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V675*/ meltfptr[674]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V675*/ meltfptr[674])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V675*/ meltfptr[674]))->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V673*/ meltfptr[672]); + + /*touch:INITUP_*/ + meltgc_touch(/*_.VALTUP___V675*/ meltfptr[674]); + + MELT_LOCATION("warmelt-normatch.melt:2475:/ initchunk"); + /*^putslot*/ + /*putslot*/ + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V664*/ meltfptr[663])) == OBMAG_OBJECT); + + melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V664*/ meltfptr[663])))); + ((meltobject_ptr_t)(/*_.VALDATA___V664*/ meltfptr[663]))->obj_vartab[6] = (melt_ptr_t)( + /*_.VALTUP___V675*/ meltfptr[674]); + + MELT_LOCATION("warmelt-normatch.melt:2475:/ initchunk"); + /*^touch*/ + /*touch:VALUEDATA_*/ + meltgc_touch(/*_.VALDATA___V664*/ meltfptr[663]); + + /*putslot*/ + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V676*/ meltfptr[675])) == OBMAG_OBJECT); + + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V676*/ meltfptr[675])))); + ((meltobject_ptr_t)(/*_.VALDATA___V676*/ meltfptr[675]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V677*/ meltfptr[676]); + + /*touch:VALUEDATA_*/ + meltgc_touch(/*_.VALDATA___V676*/ meltfptr[675]); + + /*putslot*/ + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V678*/ meltfptr[677])) == OBMAG_OBJECT); + + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V678*/ meltfptr[677])))); + ((meltobject_ptr_t)(/*_.VALDATA___V678*/ meltfptr[677]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V679*/ meltfptr[678]); + + /*touch:VALUEDATA_*/ + meltgc_touch(/*_.VALDATA___V678*/ meltfptr[677]); + + /*putslot*/ + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V680*/ meltfptr[679])) == OBMAG_OBJECT); + + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V680*/ meltfptr[679])))); + ((meltobject_ptr_t)(/*_.VALDATA___V680*/ meltfptr[679]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V681*/ meltfptr[680]); + + /*touch:VALUEDATA_*/ + meltgc_touch(/*_.VALDATA___V680*/ meltfptr[679]); + + /*putslot*/ + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V682*/ meltfptr[681])) == OBMAG_OBJECT); + + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V682*/ meltfptr[681])))); + ((meltobject_ptr_t)(/*_.VALDATA___V682*/ meltfptr[681]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V683*/ meltfptr[682]); + + /*touch:VALUEDATA_*/ + meltgc_touch(/*_.VALDATA___V682*/ meltfptr[681]); + + /*putslot*/ + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V684*/ meltfptr[683])) == OBMAG_OBJECT); + + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V684*/ meltfptr[683])))); + ((meltobject_ptr_t)(/*_.VALDATA___V684*/ meltfptr[683]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V685*/ meltfptr[684]); + + /*touch:VALUEDATA_*/ + meltgc_touch(/*_.VALDATA___V684*/ meltfptr[683]); - MELT_LOCATION("warmelt-normatch.melt:2474:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2488:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V659*/ meltfptr[658])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V686*/ meltfptr[685])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V659*/ meltfptr[658])))); - ((meltobject_ptr_t)(/*_.VALDATA___V659*/ meltfptr[658]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V660*/ meltfptr[659]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V686*/ meltfptr[685])))); + ((meltobject_ptr_t)(/*_.VALDATA___V686*/ meltfptr[685]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V687*/ meltfptr[686]); - MELT_LOCATION("warmelt-normatch.melt:2474:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2488:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V659*/ meltfptr[658])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V686*/ meltfptr[685])) == OBMAG_OBJECT); + + melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V686*/ meltfptr[685])))); + ((meltobject_ptr_t)(/*_.VALDATA___V686*/ meltfptr[685]))->obj_vartab[4] = (melt_ptr_t)( + /*_.VALDATA___V654*/ meltfptr[653]); + + /*putupl*/ + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V688*/ meltfptr[687]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V688*/ meltfptr[687])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V688*/ meltfptr[687]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_LOCATED__V38*/ meltfptr[37]),5))), (0)))); - melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V659*/ meltfptr[658])))); - ((meltobject_ptr_t)(/*_.VALDATA___V659*/ meltfptr[658]))->obj_vartab[4] = (melt_ptr_t)( - /*_.VALDATA___V649*/ meltfptr[648]); + /*putupl*/ + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V688*/ meltfptr[687]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V688*/ meltfptr[687])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V688*/ meltfptr[687]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_LOCATED__V38*/ meltfptr[37]),5))), (1)))); + + /*putupl*/ + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V688*/ meltfptr[687]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V688*/ meltfptr[687])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V688*/ meltfptr[687]))->tabval[2] = (melt_ptr_t)(/*_.CLASS_LOCATED__V38*/ meltfptr[37]); + + /*putupl*/ + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V688*/ meltfptr[687]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V688*/ meltfptr[687])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V688*/ meltfptr[687]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V654*/ meltfptr[653]); + + /*touch:INITUP_*/ + meltgc_touch(/*_.VALTUP___V688*/ meltfptr[687]); + + MELT_LOCATION("warmelt-normatch.melt:2488:/ initchunk"); + /*^putslot*/ + /*putslot*/ + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V686*/ meltfptr[685])) == OBMAG_OBJECT); + + melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V686*/ meltfptr[685])))); + ((meltobject_ptr_t)(/*_.VALDATA___V686*/ meltfptr[685]))->obj_vartab[5] = (melt_ptr_t)( + /*_.VALTUP___V688*/ meltfptr[687]); + + MELT_LOCATION("warmelt-normatch.melt:2488:/ initchunk"); + /*^putslot*/ + /*putslot*/ + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V689*/ meltfptr[688])) == OBMAG_OBJECT); + + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V689*/ meltfptr[688])))); + ((meltobject_ptr_t)(/*_.VALDATA___V689*/ meltfptr[688]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V690*/ meltfptr[689]); + + MELT_LOCATION("warmelt-normatch.melt:2488:/ initchunk"); + /*^putslot*/ + /*putslot*/ + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V689*/ meltfptr[688])) == OBMAG_OBJECT); + + melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V689*/ meltfptr[688])))); + ((meltobject_ptr_t)(/*_.VALDATA___V689*/ meltfptr[688]))->obj_vartab[2] = (melt_ptr_t)( + /*_.VALDATA___V686*/ meltfptr[685]); + + MELT_LOCATION("warmelt-normatch.melt:2488:/ initchunk"); + /*^touch*/ + /*touch:VALUEDATA_*/ + meltgc_touch(/*_.VALDATA___V689*/ meltfptr[688]); + + /*putupl*/ + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V691*/ meltfptr[690]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V691*/ meltfptr[690])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V691*/ meltfptr[690]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_LOCATED__V38*/ meltfptr[37]),6))), (0)))); + + /*putupl*/ + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V691*/ meltfptr[690]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V691*/ meltfptr[690])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V691*/ meltfptr[690]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_LOCATED__V38*/ meltfptr[37]),6))), (1)))); + + /*putupl*/ + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V691*/ meltfptr[690]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V691*/ meltfptr[690])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V691*/ meltfptr[690]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V657*/ meltfptr[656]); + + /*putupl*/ + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V691*/ meltfptr[690]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V691*/ meltfptr[690])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V691*/ meltfptr[690]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V689*/ meltfptr[688]); + + /*touch:INITUP_*/ + meltgc_touch(/*_.VALTUP___V691*/ meltfptr[690]); + + MELT_LOCATION("warmelt-normatch.melt:2488:/ initchunk"); + /*^putslot*/ + /*putslot*/ + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V686*/ meltfptr[685])) == OBMAG_OBJECT); + + melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V686*/ meltfptr[685])))); + ((meltobject_ptr_t)(/*_.VALDATA___V686*/ meltfptr[685]))->obj_vartab[6] = (melt_ptr_t)( + /*_.VALTUP___V691*/ meltfptr[690]); + + MELT_LOCATION("warmelt-normatch.melt:2488:/ initchunk"); + /*^touch*/ + /*touch:VALUEDATA_*/ + meltgc_touch(/*_.VALDATA___V686*/ meltfptr[685]); + + /*putslot*/ + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V692*/ meltfptr[691])) == OBMAG_OBJECT); + + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V692*/ meltfptr[691])))); + ((meltobject_ptr_t)(/*_.VALDATA___V692*/ meltfptr[691]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V693*/ meltfptr[692]); + + /*touch:VALUEDATA_*/ + meltgc_touch(/*_.VALDATA___V692*/ meltfptr[691]); + + /*putslot*/ + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V694*/ meltfptr[693])) == OBMAG_OBJECT); + + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V694*/ meltfptr[693])))); + ((meltobject_ptr_t)(/*_.VALDATA___V694*/ meltfptr[693]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V695*/ meltfptr[694]); + + /*touch:VALUEDATA_*/ + meltgc_touch(/*_.VALDATA___V694*/ meltfptr[693]); + + MELT_LOCATION("warmelt-normatch.melt:2495:/ initchunk"); + /*^putslot*/ + /*putslot*/ + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V696*/ meltfptr[695])) == OBMAG_OBJECT); + + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V696*/ meltfptr[695])))); + ((meltobject_ptr_t)(/*_.VALDATA___V696*/ meltfptr[695]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V697*/ meltfptr[696]); + + MELT_LOCATION("warmelt-normatch.melt:2495:/ initchunk"); + /*^putslot*/ + /*putslot*/ + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V696*/ meltfptr[695])) == OBMAG_OBJECT); + + melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V696*/ meltfptr[695])))); + ((meltobject_ptr_t)(/*_.VALDATA___V696*/ meltfptr[695]))->obj_vartab[4] = (melt_ptr_t)( + /*_.VALDATA___V686*/ meltfptr[685]); + + /*putupl*/ + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V698*/ meltfptr[697]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V698*/ meltfptr[697])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V698*/ meltfptr[697]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_LOCATED__V38*/ meltfptr[37]),5))), (0)))); + + /*putupl*/ + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V698*/ meltfptr[697]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V698*/ meltfptr[697])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V698*/ meltfptr[697]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_LOCATED__V38*/ meltfptr[37]),5))), (1)))); + + /*putupl*/ + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V698*/ meltfptr[697]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V698*/ meltfptr[697])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V698*/ meltfptr[697]))->tabval[2] = (melt_ptr_t)(/*_.CLASS_LOCATED__V38*/ meltfptr[37]); + + /*putupl*/ + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V698*/ meltfptr[697]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V698*/ meltfptr[697])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V698*/ meltfptr[697]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V654*/ meltfptr[653]); + + /*putupl*/ + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V698*/ meltfptr[697]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V698*/ meltfptr[697])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V698*/ meltfptr[697]))->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V686*/ meltfptr[685]); + + /*touch:INITUP_*/ + meltgc_touch(/*_.VALTUP___V698*/ meltfptr[697]); + + MELT_LOCATION("warmelt-normatch.melt:2495:/ initchunk"); + /*^putslot*/ + /*putslot*/ + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V696*/ meltfptr[695])) == OBMAG_OBJECT); + + melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V696*/ meltfptr[695])))); + ((meltobject_ptr_t)(/*_.VALDATA___V696*/ meltfptr[695]))->obj_vartab[5] = (melt_ptr_t)( + /*_.VALTUP___V698*/ meltfptr[697]); + + MELT_LOCATION("warmelt-normatch.melt:2495:/ initchunk"); + /*^putslot*/ + /*putslot*/ + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V699*/ meltfptr[698])) == OBMAG_OBJECT); + + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V699*/ meltfptr[698])))); + ((meltobject_ptr_t)(/*_.VALDATA___V699*/ meltfptr[698]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V700*/ meltfptr[699]); + + MELT_LOCATION("warmelt-normatch.melt:2495:/ initchunk"); + /*^putslot*/ + /*putslot*/ + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V699*/ meltfptr[698])) == OBMAG_OBJECT); + + melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V699*/ meltfptr[698])))); + ((meltobject_ptr_t)(/*_.VALDATA___V699*/ meltfptr[698]))->obj_vartab[2] = (melt_ptr_t)( + /*_.VALDATA___V696*/ meltfptr[695]); + + MELT_LOCATION("warmelt-normatch.melt:2495:/ initchunk"); + /*^touch*/ + /*touch:VALUEDATA_*/ + meltgc_touch(/*_.VALDATA___V699*/ meltfptr[698]); + + /*putupl*/ + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V701*/ meltfptr[700]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V701*/ meltfptr[700])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V701*/ meltfptr[700]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_LOCATED__V38*/ meltfptr[37]),6))), (0)))); + + /*putupl*/ + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V701*/ meltfptr[700]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V701*/ meltfptr[700])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V701*/ meltfptr[700]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_LOCATED__V38*/ meltfptr[37]),6))), (1)))); + + /*putupl*/ + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V701*/ meltfptr[700]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V701*/ meltfptr[700])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V701*/ meltfptr[700]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V657*/ meltfptr[656]); + + /*putupl*/ + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V701*/ meltfptr[700]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V701*/ meltfptr[700])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V701*/ meltfptr[700]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V689*/ meltfptr[688]); + + /*putupl*/ + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V701*/ meltfptr[700]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V701*/ meltfptr[700])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V701*/ meltfptr[700]))->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V699*/ meltfptr[698]); + + /*touch:INITUP_*/ + meltgc_touch(/*_.VALTUP___V701*/ meltfptr[700]); + + MELT_LOCATION("warmelt-normatch.melt:2495:/ initchunk"); + /*^putslot*/ + /*putslot*/ + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V696*/ meltfptr[695])) == OBMAG_OBJECT); + + melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V696*/ meltfptr[695])))); + ((meltobject_ptr_t)(/*_.VALDATA___V696*/ meltfptr[695]))->obj_vartab[6] = (melt_ptr_t)( + /*_.VALTUP___V701*/ meltfptr[700]); + + MELT_LOCATION("warmelt-normatch.melt:2495:/ initchunk"); + /*^touch*/ + /*touch:VALUEDATA_*/ + meltgc_touch(/*_.VALDATA___V696*/ meltfptr[695]); + + /*putslot*/ + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V702*/ meltfptr[701])) == OBMAG_OBJECT); + + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V702*/ meltfptr[701])))); + ((meltobject_ptr_t)(/*_.VALDATA___V702*/ meltfptr[701]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V703*/ meltfptr[702]); + + /*touch:VALUEDATA_*/ + meltgc_touch(/*_.VALDATA___V702*/ meltfptr[701]); + + /*putslot*/ + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V704*/ meltfptr[703])) == OBMAG_OBJECT); + + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V704*/ meltfptr[703])))); + ((meltobject_ptr_t)(/*_.VALDATA___V704*/ meltfptr[703]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V705*/ meltfptr[704]); + + /*touch:VALUEDATA_*/ + meltgc_touch(/*_.VALDATA___V704*/ meltfptr[703]); + + MELT_LOCATION("warmelt-normatch.melt:2501:/ initchunk"); + /*^putslot*/ + /*putslot*/ + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V706*/ meltfptr[705])) == OBMAG_OBJECT); + + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V706*/ meltfptr[705])))); + ((meltobject_ptr_t)(/*_.VALDATA___V706*/ meltfptr[705]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V707*/ meltfptr[706]); + + MELT_LOCATION("warmelt-normatch.melt:2501:/ initchunk"); + /*^putslot*/ + /*putslot*/ + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V706*/ meltfptr[705])) == OBMAG_OBJECT); + + melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V706*/ meltfptr[705])))); + ((meltobject_ptr_t)(/*_.VALDATA___V706*/ meltfptr[705]))->obj_vartab[4] = (melt_ptr_t)( + /*_.VALDATA___V696*/ meltfptr[695]); + + /*putupl*/ + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V708*/ meltfptr[707]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V708*/ meltfptr[707])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V708*/ meltfptr[707]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_LOCATED__V38*/ meltfptr[37]),5))), (0)))); + + /*putupl*/ + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V708*/ meltfptr[707]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V708*/ meltfptr[707])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V708*/ meltfptr[707]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_LOCATED__V38*/ meltfptr[37]),5))), (1)))); + + /*putupl*/ + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V708*/ meltfptr[707]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V708*/ meltfptr[707])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V708*/ meltfptr[707]))->tabval[2] = (melt_ptr_t)(/*_.CLASS_LOCATED__V38*/ meltfptr[37]); + + /*putupl*/ + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V708*/ meltfptr[707]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V708*/ meltfptr[707])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V708*/ meltfptr[707]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V654*/ meltfptr[653]); + + /*putupl*/ + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V708*/ meltfptr[707]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V708*/ meltfptr[707])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V708*/ meltfptr[707]))->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V686*/ meltfptr[685]); + + /*putupl*/ + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V708*/ meltfptr[707]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V708*/ meltfptr[707])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V708*/ meltfptr[707]))->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V696*/ meltfptr[695]); + + /*touch:INITUP_*/ + meltgc_touch(/*_.VALTUP___V708*/ meltfptr[707]); + + MELT_LOCATION("warmelt-normatch.melt:2501:/ initchunk"); + /*^putslot*/ + /*putslot*/ + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V706*/ meltfptr[705])) == OBMAG_OBJECT); + + melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V706*/ meltfptr[705])))); + ((meltobject_ptr_t)(/*_.VALDATA___V706*/ meltfptr[705]))->obj_vartab[5] = (melt_ptr_t)( + /*_.VALTUP___V708*/ meltfptr[707]); + + /*putupl*/ + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V709*/ meltfptr[708]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V709*/ meltfptr[708])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V709*/ meltfptr[708]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_LOCATED__V38*/ meltfptr[37]),6))), (0)))); + + /*putupl*/ + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V709*/ meltfptr[708]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V709*/ meltfptr[708])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V709*/ meltfptr[708]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_LOCATED__V38*/ meltfptr[37]),6))), (1)))); + + /*putupl*/ + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V709*/ meltfptr[708]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V709*/ meltfptr[708])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V709*/ meltfptr[708]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V657*/ meltfptr[656]); + + /*putupl*/ + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V709*/ meltfptr[708]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V709*/ meltfptr[708])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V709*/ meltfptr[708]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V689*/ meltfptr[688]); + + /*putupl*/ + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V709*/ meltfptr[708]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V709*/ meltfptr[708])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V709*/ meltfptr[708]))->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V699*/ meltfptr[698]); + + /*touch:INITUP_*/ + meltgc_touch(/*_.VALTUP___V709*/ meltfptr[708]); + + MELT_LOCATION("warmelt-normatch.melt:2501:/ initchunk"); + /*^putslot*/ + /*putslot*/ + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V706*/ meltfptr[705])) == OBMAG_OBJECT); + + melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V706*/ meltfptr[705])))); + ((meltobject_ptr_t)(/*_.VALDATA___V706*/ meltfptr[705]))->obj_vartab[6] = (melt_ptr_t)( + /*_.VALTUP___V709*/ meltfptr[708]); + + MELT_LOCATION("warmelt-normatch.melt:2501:/ initchunk"); + /*^touch*/ + /*touch:VALUEDATA_*/ + meltgc_touch(/*_.VALDATA___V706*/ meltfptr[705]); + + /*putslot*/ + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V710*/ meltfptr[709])) == OBMAG_OBJECT); + + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V710*/ meltfptr[709])))); + ((meltobject_ptr_t)(/*_.VALDATA___V710*/ meltfptr[709]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V711*/ meltfptr[710]); + + /*touch:VALUEDATA_*/ + meltgc_touch(/*_.VALDATA___V710*/ meltfptr[709]); + + MELT_LOCATION("warmelt-normatch.melt:2507:/ initchunk"); + /*^putslot*/ + /*putslot*/ + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V712*/ meltfptr[711])) == OBMAG_OBJECT); + + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V712*/ meltfptr[711])))); + ((meltobject_ptr_t)(/*_.VALDATA___V712*/ meltfptr[711]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V713*/ meltfptr[712]); + + MELT_LOCATION("warmelt-normatch.melt:2507:/ initchunk"); + /*^putslot*/ + /*putslot*/ + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V712*/ meltfptr[711])) == OBMAG_OBJECT); + + melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V712*/ meltfptr[711])))); + ((meltobject_ptr_t)(/*_.VALDATA___V712*/ meltfptr[711]))->obj_vartab[4] = (melt_ptr_t)( + /*_.VALDATA___V696*/ meltfptr[695]); + + /*putupl*/ + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V714*/ meltfptr[713]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V714*/ meltfptr[713])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V714*/ meltfptr[713]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_LOCATED__V38*/ meltfptr[37]),5))), (0)))); + + /*putupl*/ + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V714*/ meltfptr[713]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V714*/ meltfptr[713])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V714*/ meltfptr[713]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_LOCATED__V38*/ meltfptr[37]),5))), (1)))); + + /*putupl*/ + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V714*/ meltfptr[713]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V714*/ meltfptr[713])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V714*/ meltfptr[713]))->tabval[2] = (melt_ptr_t)(/*_.CLASS_LOCATED__V38*/ meltfptr[37]); + + /*putupl*/ + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V714*/ meltfptr[713]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V714*/ meltfptr[713])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V714*/ meltfptr[713]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V654*/ meltfptr[653]); + + /*putupl*/ + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V714*/ meltfptr[713]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V714*/ meltfptr[713])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V714*/ meltfptr[713]))->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V686*/ meltfptr[685]); + + /*putupl*/ + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V714*/ meltfptr[713]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V714*/ meltfptr[713])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V714*/ meltfptr[713]))->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V696*/ meltfptr[695]); + + /*touch:INITUP_*/ + meltgc_touch(/*_.VALTUP___V714*/ meltfptr[713]); + + MELT_LOCATION("warmelt-normatch.melt:2507:/ initchunk"); + /*^putslot*/ + /*putslot*/ + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V712*/ meltfptr[711])) == OBMAG_OBJECT); + + melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V712*/ meltfptr[711])))); + ((meltobject_ptr_t)(/*_.VALDATA___V712*/ meltfptr[711]))->obj_vartab[5] = (melt_ptr_t)( + /*_.VALTUP___V714*/ meltfptr[713]); + + MELT_LOCATION("warmelt-normatch.melt:2507:/ initchunk"); + /*^putslot*/ + /*putslot*/ + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V715*/ meltfptr[714])) == OBMAG_OBJECT); + + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V715*/ meltfptr[714])))); + ((meltobject_ptr_t)(/*_.VALDATA___V715*/ meltfptr[714]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V716*/ meltfptr[715]); + + MELT_LOCATION("warmelt-normatch.melt:2507:/ initchunk"); + /*^putslot*/ + /*putslot*/ + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V715*/ meltfptr[714])) == OBMAG_OBJECT); + + melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V715*/ meltfptr[714])))); + ((meltobject_ptr_t)(/*_.VALDATA___V715*/ meltfptr[714]))->obj_vartab[2] = (melt_ptr_t)( + /*_.VALDATA___V712*/ meltfptr[711]); + + MELT_LOCATION("warmelt-normatch.melt:2507:/ initchunk"); + /*^touch*/ + /*touch:VALUEDATA_*/ + meltgc_touch(/*_.VALDATA___V715*/ meltfptr[714]); + + /*putupl*/ + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V717*/ meltfptr[716]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V717*/ meltfptr[716])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V717*/ meltfptr[716]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_LOCATED__V38*/ meltfptr[37]),6))), (0)))); + + /*putupl*/ + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V717*/ meltfptr[716]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V717*/ meltfptr[716])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V717*/ meltfptr[716]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_LOCATED__V38*/ meltfptr[37]),6))), (1)))); + + /*putupl*/ + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V717*/ meltfptr[716]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V717*/ meltfptr[716])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V717*/ meltfptr[716]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V657*/ meltfptr[656]); + + /*putupl*/ + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V717*/ meltfptr[716]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V717*/ meltfptr[716])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V717*/ meltfptr[716]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V689*/ meltfptr[688]); + + /*putupl*/ + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V717*/ meltfptr[716]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V717*/ meltfptr[716])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V717*/ meltfptr[716]))->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V699*/ meltfptr[698]); + + /*putupl*/ + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V717*/ meltfptr[716]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V717*/ meltfptr[716])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V717*/ meltfptr[716]))->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V715*/ meltfptr[714]); + + /*touch:INITUP_*/ + meltgc_touch(/*_.VALTUP___V717*/ meltfptr[716]); + + MELT_LOCATION("warmelt-normatch.melt:2507:/ initchunk"); + /*^putslot*/ + /*putslot*/ + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V712*/ meltfptr[711])) == OBMAG_OBJECT); + + melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V712*/ meltfptr[711])))); + ((meltobject_ptr_t)(/*_.VALDATA___V712*/ meltfptr[711]))->obj_vartab[6] = (melt_ptr_t)( + /*_.VALTUP___V717*/ meltfptr[716]); + + MELT_LOCATION("warmelt-normatch.melt:2507:/ initchunk"); + /*^touch*/ + /*touch:VALUEDATA_*/ + meltgc_touch(/*_.VALDATA___V712*/ meltfptr[711]); + + /*putslot*/ + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V718*/ meltfptr[717])) == OBMAG_OBJECT); + + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V718*/ meltfptr[717])))); + ((meltobject_ptr_t)(/*_.VALDATA___V718*/ meltfptr[717]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V719*/ meltfptr[718]); + + /*touch:VALUEDATA_*/ + meltgc_touch(/*_.VALDATA___V718*/ meltfptr[717]); + + /*putslot*/ + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V720*/ meltfptr[719])) == OBMAG_OBJECT); + + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V720*/ meltfptr[719])))); + ((meltobject_ptr_t)(/*_.VALDATA___V720*/ meltfptr[719]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V721*/ meltfptr[720]); + + /*touch:VALUEDATA_*/ + meltgc_touch(/*_.VALDATA___V720*/ meltfptr[719]); + + MELT_LOCATION("warmelt-normatch.melt:2512:/ initchunk"); + /*^putslot*/ + /*putslot*/ + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V722*/ meltfptr[721])) == OBMAG_OBJECT); + + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V722*/ meltfptr[721])))); + ((meltobject_ptr_t)(/*_.VALDATA___V722*/ meltfptr[721]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V723*/ meltfptr[722]); + + MELT_LOCATION("warmelt-normatch.melt:2512:/ initchunk"); + /*^putslot*/ + /*putslot*/ + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V722*/ meltfptr[721])) == OBMAG_OBJECT); + + melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V722*/ meltfptr[721])))); + ((meltobject_ptr_t)(/*_.VALDATA___V722*/ meltfptr[721]))->obj_vartab[4] = (melt_ptr_t)( + /*_.VALDATA___V712*/ meltfptr[711]); + + /*putupl*/ + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V724*/ meltfptr[723]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V724*/ meltfptr[723])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V724*/ meltfptr[723]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_LOCATED__V38*/ meltfptr[37]),5))), (0)))); + + /*putupl*/ + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V724*/ meltfptr[723]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V724*/ meltfptr[723])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V724*/ meltfptr[723]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_LOCATED__V38*/ meltfptr[37]),5))), (1)))); + + /*putupl*/ + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V724*/ meltfptr[723]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V724*/ meltfptr[723])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V724*/ meltfptr[723]))->tabval[2] = (melt_ptr_t)(/*_.CLASS_LOCATED__V38*/ meltfptr[37]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V661*/ meltfptr[660]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V661*/ meltfptr[660])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V661*/ meltfptr[660]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_LOCATED__V38*/ meltfptr[37]),5))), (0)))); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V724*/ meltfptr[723]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V724*/ meltfptr[723])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V724*/ meltfptr[723]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V654*/ meltfptr[653]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V661*/ meltfptr[660]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V661*/ meltfptr[660])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V661*/ meltfptr[660]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_LOCATED__V38*/ meltfptr[37]),5))), (1)))); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V724*/ meltfptr[723]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V724*/ meltfptr[723])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V724*/ meltfptr[723]))->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V686*/ meltfptr[685]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V661*/ meltfptr[660]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V661*/ meltfptr[660])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V661*/ meltfptr[660]))->tabval[2] = (melt_ptr_t)(/*_.CLASS_LOCATED__V38*/ meltfptr[37]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V724*/ meltfptr[723]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V724*/ meltfptr[723])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V724*/ meltfptr[723]))->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V696*/ meltfptr[695]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V661*/ meltfptr[660]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V661*/ meltfptr[660])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V661*/ meltfptr[660]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V649*/ meltfptr[648]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V724*/ meltfptr[723]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (6>=0 && 6< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V724*/ meltfptr[723])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V724*/ meltfptr[723]))->tabval[6] = (melt_ptr_t)(/*_.VALDATA___V712*/ meltfptr[711]); /*touch:INITUP_*/ - meltgc_touch(/*_.VALTUP___V661*/ meltfptr[660]); + meltgc_touch(/*_.VALTUP___V724*/ meltfptr[723]); - MELT_LOCATION("warmelt-normatch.melt:2474:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2512:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V659*/ meltfptr[658])) == OBMAG_OBJECT); - - melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V659*/ meltfptr[658])))); - ((meltobject_ptr_t)(/*_.VALDATA___V659*/ meltfptr[658]))->obj_vartab[5] = (melt_ptr_t)( - /*_.VALTUP___V661*/ meltfptr[660]); - - MELT_LOCATION("warmelt-normatch.melt:2474:/ initchunk"); - /*^putslot*/ - /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V662*/ meltfptr[661])) == OBMAG_OBJECT); - - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V662*/ meltfptr[661])))); - ((meltobject_ptr_t)(/*_.VALDATA___V662*/ meltfptr[661]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V663*/ meltfptr[662]); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V722*/ meltfptr[721])) == OBMAG_OBJECT); - MELT_LOCATION("warmelt-normatch.melt:2474:/ initchunk"); - /*^putslot*/ - /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V662*/ meltfptr[661])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V722*/ meltfptr[721])))); + ((meltobject_ptr_t)(/*_.VALDATA___V722*/ meltfptr[721]))->obj_vartab[5] = (melt_ptr_t)( + /*_.VALTUP___V724*/ meltfptr[723]); - melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V662*/ meltfptr[661])))); - ((meltobject_ptr_t)(/*_.VALDATA___V662*/ meltfptr[661]))->obj_vartab[2] = (melt_ptr_t)( - /*_.VALDATA___V659*/ meltfptr[658]); + /*putupl*/ + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V725*/ meltfptr[724]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V725*/ meltfptr[724])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V725*/ meltfptr[724]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_LOCATED__V38*/ meltfptr[37]),6))), (0)))); - MELT_LOCATION("warmelt-normatch.melt:2474:/ initchunk"); - /*^touch*/ - /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V662*/ meltfptr[661]); + /*putupl*/ + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V725*/ meltfptr[724]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V725*/ meltfptr[724])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V725*/ meltfptr[724]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_LOCATED__V38*/ meltfptr[37]),6))), (1)))); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V664*/ meltfptr[663]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V664*/ meltfptr[663])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V664*/ meltfptr[663]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_LOCATED__V38*/ meltfptr[37]),6))), (0)))); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V725*/ meltfptr[724]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V725*/ meltfptr[724])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V725*/ meltfptr[724]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V657*/ meltfptr[656]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V664*/ meltfptr[663]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V664*/ meltfptr[663])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V664*/ meltfptr[663]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_LOCATED__V38*/ meltfptr[37]),6))), (1)))); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V725*/ meltfptr[724]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V725*/ meltfptr[724])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V725*/ meltfptr[724]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V689*/ meltfptr[688]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V664*/ meltfptr[663]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V664*/ meltfptr[663])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V664*/ meltfptr[663]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V652*/ meltfptr[651]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V725*/ meltfptr[724]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V725*/ meltfptr[724])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V725*/ meltfptr[724]))->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V699*/ meltfptr[698]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V664*/ meltfptr[663]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V664*/ meltfptr[663])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V664*/ meltfptr[663]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V662*/ meltfptr[661]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V725*/ meltfptr[724]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V725*/ meltfptr[724])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V725*/ meltfptr[724]))->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V715*/ meltfptr[714]); /*touch:INITUP_*/ - meltgc_touch(/*_.VALTUP___V664*/ meltfptr[663]); + meltgc_touch(/*_.VALTUP___V725*/ meltfptr[724]); - MELT_LOCATION("warmelt-normatch.melt:2474:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2512:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V659*/ meltfptr[658])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V722*/ meltfptr[721])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V659*/ meltfptr[658])))); - ((meltobject_ptr_t)(/*_.VALDATA___V659*/ meltfptr[658]))->obj_vartab[6] = (melt_ptr_t)( - /*_.VALTUP___V664*/ meltfptr[663]); + melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V722*/ meltfptr[721])))); + ((meltobject_ptr_t)(/*_.VALDATA___V722*/ meltfptr[721]))->obj_vartab[6] = (melt_ptr_t)( + /*_.VALTUP___V725*/ meltfptr[724]); - MELT_LOCATION("warmelt-normatch.melt:2474:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2512:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V659*/ meltfptr[658]); - - /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V665*/ meltfptr[664])) == OBMAG_OBJECT); - - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V665*/ meltfptr[664])))); - ((meltobject_ptr_t)(/*_.VALDATA___V665*/ meltfptr[664]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V666*/ meltfptr[665]); - - /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V665*/ meltfptr[664]); + meltgc_touch(/*_.VALDATA___V722*/ meltfptr[721]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V667*/ meltfptr[666])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V726*/ meltfptr[725])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V667*/ meltfptr[666])))); - ((meltobject_ptr_t)(/*_.VALDATA___V667*/ meltfptr[666]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V668*/ meltfptr[667]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V726*/ meltfptr[725])))); + ((meltobject_ptr_t)(/*_.VALDATA___V726*/ meltfptr[725]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V727*/ meltfptr[726]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V667*/ meltfptr[666]); + meltgc_touch(/*_.VALDATA___V726*/ meltfptr[725]); - MELT_LOCATION("warmelt-normatch.melt:2480:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2519:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V669*/ meltfptr[668])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V728*/ meltfptr[727])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V669*/ meltfptr[668])))); - ((meltobject_ptr_t)(/*_.VALDATA___V669*/ meltfptr[668]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V670*/ meltfptr[669]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V728*/ meltfptr[727])))); + ((meltobject_ptr_t)(/*_.VALDATA___V728*/ meltfptr[727]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V729*/ meltfptr[728]); - MELT_LOCATION("warmelt-normatch.melt:2480:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2519:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V669*/ meltfptr[668])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V728*/ meltfptr[727])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V669*/ meltfptr[668])))); - ((meltobject_ptr_t)(/*_.VALDATA___V669*/ meltfptr[668]))->obj_vartab[4] = (melt_ptr_t)( - /*_.VALDATA___V659*/ meltfptr[658]); + melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V728*/ meltfptr[727])))); + ((meltobject_ptr_t)(/*_.VALDATA___V728*/ meltfptr[727]))->obj_vartab[4] = (melt_ptr_t)( + /*_.VALDATA___V712*/ meltfptr[711]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V671*/ meltfptr[670]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V671*/ meltfptr[670])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V671*/ meltfptr[670]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_LOCATED__V38*/ meltfptr[37]),5))), (0)))); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V730*/ meltfptr[729]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V730*/ meltfptr[729])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V730*/ meltfptr[729]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_LOCATED__V38*/ meltfptr[37]),5))), (0)))); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V671*/ meltfptr[670]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V671*/ meltfptr[670])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V671*/ meltfptr[670]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_LOCATED__V38*/ meltfptr[37]),5))), (1)))); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V730*/ meltfptr[729]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V730*/ meltfptr[729])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V730*/ meltfptr[729]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_LOCATED__V38*/ meltfptr[37]),5))), (1)))); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V671*/ meltfptr[670]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V671*/ meltfptr[670])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V671*/ meltfptr[670]))->tabval[2] = (melt_ptr_t)(/*_.CLASS_LOCATED__V38*/ meltfptr[37]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V730*/ meltfptr[729]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V730*/ meltfptr[729])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V730*/ meltfptr[729]))->tabval[2] = (melt_ptr_t)(/*_.CLASS_LOCATED__V38*/ meltfptr[37]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V671*/ meltfptr[670]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V671*/ meltfptr[670])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V671*/ meltfptr[670]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V649*/ meltfptr[648]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V730*/ meltfptr[729]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V730*/ meltfptr[729])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V730*/ meltfptr[729]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V654*/ meltfptr[653]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V671*/ meltfptr[670]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V671*/ meltfptr[670])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V671*/ meltfptr[670]))->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V659*/ meltfptr[658]); - - /*touch:INITUP_*/ - meltgc_touch(/*_.VALTUP___V671*/ meltfptr[670]); - - MELT_LOCATION("warmelt-normatch.melt:2480:/ initchunk"); - /*^putslot*/ - /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V669*/ meltfptr[668])) == OBMAG_OBJECT); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V730*/ meltfptr[729]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V730*/ meltfptr[729])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V730*/ meltfptr[729]))->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V686*/ meltfptr[685]); - melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V669*/ meltfptr[668])))); - ((meltobject_ptr_t)(/*_.VALDATA___V669*/ meltfptr[668]))->obj_vartab[5] = (melt_ptr_t)( - /*_.VALTUP___V671*/ meltfptr[670]); + /*putupl*/ + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V730*/ meltfptr[729]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V730*/ meltfptr[729])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V730*/ meltfptr[729]))->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V696*/ meltfptr[695]); - MELT_LOCATION("warmelt-normatch.melt:2480:/ initchunk"); - /*^putslot*/ - /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V672*/ meltfptr[671])) == OBMAG_OBJECT); + /*putupl*/ + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V730*/ meltfptr[729]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (6>=0 && 6< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V730*/ meltfptr[729])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V730*/ meltfptr[729]))->tabval[6] = (melt_ptr_t)(/*_.VALDATA___V712*/ meltfptr[711]); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V672*/ meltfptr[671])))); - ((meltobject_ptr_t)(/*_.VALDATA___V672*/ meltfptr[671]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V673*/ meltfptr[672]); + /*touch:INITUP_*/ + meltgc_touch(/*_.VALTUP___V730*/ meltfptr[729]); - MELT_LOCATION("warmelt-normatch.melt:2480:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2519:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V672*/ meltfptr[671])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V728*/ meltfptr[727])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V672*/ meltfptr[671])))); - ((meltobject_ptr_t)(/*_.VALDATA___V672*/ meltfptr[671]))->obj_vartab[2] = (melt_ptr_t)( - /*_.VALDATA___V669*/ meltfptr[668]); + melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V728*/ meltfptr[727])))); + ((meltobject_ptr_t)(/*_.VALDATA___V728*/ meltfptr[727]))->obj_vartab[5] = (melt_ptr_t)( + /*_.VALTUP___V730*/ meltfptr[729]); - MELT_LOCATION("warmelt-normatch.melt:2480:/ initchunk"); - /*^touch*/ - /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V672*/ meltfptr[671]); + /*putupl*/ + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V731*/ meltfptr[730]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V731*/ meltfptr[730])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V731*/ meltfptr[730]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_LOCATED__V38*/ meltfptr[37]),6))), (0)))); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V674*/ meltfptr[673]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V674*/ meltfptr[673])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V674*/ meltfptr[673]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_LOCATED__V38*/ meltfptr[37]),6))), (0)))); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V731*/ meltfptr[730]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V731*/ meltfptr[730])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V731*/ meltfptr[730]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_LOCATED__V38*/ meltfptr[37]),6))), (1)))); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V674*/ meltfptr[673]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V674*/ meltfptr[673])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V674*/ meltfptr[673]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_LOCATED__V38*/ meltfptr[37]),6))), (1)))); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V731*/ meltfptr[730]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V731*/ meltfptr[730])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V731*/ meltfptr[730]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V657*/ meltfptr[656]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V674*/ meltfptr[673]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V674*/ meltfptr[673])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V674*/ meltfptr[673]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V652*/ meltfptr[651]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V731*/ meltfptr[730]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V731*/ meltfptr[730])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V731*/ meltfptr[730]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V689*/ meltfptr[688]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V674*/ meltfptr[673]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V674*/ meltfptr[673])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V674*/ meltfptr[673]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V662*/ meltfptr[661]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V731*/ meltfptr[730]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V731*/ meltfptr[730])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V731*/ meltfptr[730]))->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V699*/ meltfptr[698]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V674*/ meltfptr[673]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V674*/ meltfptr[673])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V674*/ meltfptr[673]))->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V672*/ meltfptr[671]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V731*/ meltfptr[730]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V731*/ meltfptr[730])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V731*/ meltfptr[730]))->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V715*/ meltfptr[714]); /*touch:INITUP_*/ - meltgc_touch(/*_.VALTUP___V674*/ meltfptr[673]); + meltgc_touch(/*_.VALTUP___V731*/ meltfptr[730]); - MELT_LOCATION("warmelt-normatch.melt:2480:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2519:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V669*/ meltfptr[668])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V728*/ meltfptr[727])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V669*/ meltfptr[668])))); - ((meltobject_ptr_t)(/*_.VALDATA___V669*/ meltfptr[668]))->obj_vartab[6] = (melt_ptr_t)( - /*_.VALTUP___V674*/ meltfptr[673]); + melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V728*/ meltfptr[727])))); + ((meltobject_ptr_t)(/*_.VALDATA___V728*/ meltfptr[727]))->obj_vartab[6] = (melt_ptr_t)( + /*_.VALTUP___V731*/ meltfptr[730]); - MELT_LOCATION("warmelt-normatch.melt:2480:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2519:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V669*/ meltfptr[668]); - - /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V675*/ meltfptr[674])) == OBMAG_OBJECT); - - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V675*/ meltfptr[674])))); - ((meltobject_ptr_t)(/*_.VALDATA___V675*/ meltfptr[674]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V676*/ meltfptr[675]); - - /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V675*/ meltfptr[674]); + meltgc_touch(/*_.VALDATA___V728*/ meltfptr[727]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V677*/ meltfptr[676])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V732*/ meltfptr[731])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V677*/ meltfptr[676])))); - ((meltobject_ptr_t)(/*_.VALDATA___V677*/ meltfptr[676]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V678*/ meltfptr[677]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V732*/ meltfptr[731])))); + ((meltobject_ptr_t)(/*_.VALDATA___V732*/ meltfptr[731]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V733*/ meltfptr[732]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V677*/ meltfptr[676]); + meltgc_touch(/*_.VALDATA___V732*/ meltfptr[731]); - MELT_LOCATION("warmelt-normatch.melt:2486:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2527:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V679*/ meltfptr[678])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V734*/ meltfptr[733])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V679*/ meltfptr[678])))); - ((meltobject_ptr_t)(/*_.VALDATA___V679*/ meltfptr[678]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V680*/ meltfptr[679]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V734*/ meltfptr[733])))); + ((meltobject_ptr_t)(/*_.VALDATA___V734*/ meltfptr[733]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V735*/ meltfptr[734]); - MELT_LOCATION("warmelt-normatch.melt:2486:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2527:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V679*/ meltfptr[678])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V734*/ meltfptr[733])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V679*/ meltfptr[678])))); - ((meltobject_ptr_t)(/*_.VALDATA___V679*/ meltfptr[678]))->obj_vartab[4] = (melt_ptr_t)( - /*_.VALDATA___V659*/ meltfptr[658]); + melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V734*/ meltfptr[733])))); + ((meltobject_ptr_t)(/*_.VALDATA___V734*/ meltfptr[733]))->obj_vartab[4] = (melt_ptr_t)( + /*_.VALDATA___V686*/ meltfptr[685]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V681*/ meltfptr[680]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V681*/ meltfptr[680])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V681*/ meltfptr[680]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_LOCATED__V38*/ meltfptr[37]),5))), (0)))); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V736*/ meltfptr[735]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V736*/ meltfptr[735])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V736*/ meltfptr[735]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_LOCATED__V38*/ meltfptr[37]),5))), (0)))); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V681*/ meltfptr[680]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V681*/ meltfptr[680])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V681*/ meltfptr[680]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_LOCATED__V38*/ meltfptr[37]),5))), (1)))); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V736*/ meltfptr[735]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V736*/ meltfptr[735])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V736*/ meltfptr[735]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_LOCATED__V38*/ meltfptr[37]),5))), (1)))); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V681*/ meltfptr[680]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V681*/ meltfptr[680])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V681*/ meltfptr[680]))->tabval[2] = (melt_ptr_t)(/*_.CLASS_LOCATED__V38*/ meltfptr[37]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V736*/ meltfptr[735]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V736*/ meltfptr[735])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V736*/ meltfptr[735]))->tabval[2] = (melt_ptr_t)(/*_.CLASS_LOCATED__V38*/ meltfptr[37]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V681*/ meltfptr[680]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V681*/ meltfptr[680])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V681*/ meltfptr[680]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V649*/ meltfptr[648]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V736*/ meltfptr[735]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V736*/ meltfptr[735])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V736*/ meltfptr[735]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V654*/ meltfptr[653]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V681*/ meltfptr[680]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V681*/ meltfptr[680])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V681*/ meltfptr[680]))->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V659*/ meltfptr[658]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V736*/ meltfptr[735]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V736*/ meltfptr[735])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V736*/ meltfptr[735]))->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V686*/ meltfptr[685]); /*touch:INITUP_*/ - meltgc_touch(/*_.VALTUP___V681*/ meltfptr[680]); + meltgc_touch(/*_.VALTUP___V736*/ meltfptr[735]); + + MELT_LOCATION("warmelt-normatch.melt:2527:/ initchunk"); + /*^putslot*/ + /*putslot*/ + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V734*/ meltfptr[733])) == OBMAG_OBJECT); + + melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V734*/ meltfptr[733])))); + ((meltobject_ptr_t)(/*_.VALDATA___V734*/ meltfptr[733]))->obj_vartab[5] = (melt_ptr_t)( + /*_.VALTUP___V736*/ meltfptr[735]); - MELT_LOCATION("warmelt-normatch.melt:2486:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2527:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V679*/ meltfptr[678])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V737*/ meltfptr[736])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V679*/ meltfptr[678])))); - ((meltobject_ptr_t)(/*_.VALDATA___V679*/ meltfptr[678]))->obj_vartab[5] = (melt_ptr_t)( - /*_.VALTUP___V681*/ meltfptr[680]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V737*/ meltfptr[736])))); + ((meltobject_ptr_t)(/*_.VALDATA___V737*/ meltfptr[736]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V738*/ meltfptr[737]); - MELT_LOCATION("warmelt-normatch.melt:2486:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2527:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V682*/ meltfptr[681])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V737*/ meltfptr[736])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V682*/ meltfptr[681])))); - ((meltobject_ptr_t)(/*_.VALDATA___V682*/ meltfptr[681]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V683*/ meltfptr[682]); + melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V737*/ meltfptr[736])))); + ((meltobject_ptr_t)(/*_.VALDATA___V737*/ meltfptr[736]))->obj_vartab[2] = (melt_ptr_t)( + /*_.VALDATA___V734*/ meltfptr[733]); + + MELT_LOCATION("warmelt-normatch.melt:2527:/ initchunk"); + /*^touch*/ + /*touch:VALUEDATA_*/ + meltgc_touch(/*_.VALDATA___V737*/ meltfptr[736]); - MELT_LOCATION("warmelt-normatch.melt:2486:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2527:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V682*/ meltfptr[681])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V739*/ meltfptr[738])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V682*/ meltfptr[681])))); - ((meltobject_ptr_t)(/*_.VALDATA___V682*/ meltfptr[681]))->obj_vartab[2] = (melt_ptr_t)( - /*_.VALDATA___V679*/ meltfptr[678]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V739*/ meltfptr[738])))); + ((meltobject_ptr_t)(/*_.VALDATA___V739*/ meltfptr[738]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V740*/ meltfptr[739]); - MELT_LOCATION("warmelt-normatch.melt:2486:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2527:/ initchunk"); + /*^putslot*/ + /*putslot*/ + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V739*/ meltfptr[738])) == OBMAG_OBJECT); + + melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V739*/ meltfptr[738])))); + ((meltobject_ptr_t)(/*_.VALDATA___V739*/ meltfptr[738]))->obj_vartab[2] = (melt_ptr_t)( + /*_.VALDATA___V734*/ meltfptr[733]); + + MELT_LOCATION("warmelt-normatch.melt:2527:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V682*/ meltfptr[681]); + meltgc_touch(/*_.VALDATA___V739*/ meltfptr[738]); - MELT_LOCATION("warmelt-normatch.melt:2486:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2527:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V684*/ meltfptr[683])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V741*/ meltfptr[740])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V684*/ meltfptr[683])))); - ((meltobject_ptr_t)(/*_.VALDATA___V684*/ meltfptr[683]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V685*/ meltfptr[684]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V741*/ meltfptr[740])))); + ((meltobject_ptr_t)(/*_.VALDATA___V741*/ meltfptr[740]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V742*/ meltfptr[741]); - MELT_LOCATION("warmelt-normatch.melt:2486:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2527:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V684*/ meltfptr[683])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V741*/ meltfptr[740])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V684*/ meltfptr[683])))); - ((meltobject_ptr_t)(/*_.VALDATA___V684*/ meltfptr[683]))->obj_vartab[2] = (melt_ptr_t)( - /*_.VALDATA___V679*/ meltfptr[678]); + melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V741*/ meltfptr[740])))); + ((meltobject_ptr_t)(/*_.VALDATA___V741*/ meltfptr[740]))->obj_vartab[2] = (melt_ptr_t)( + /*_.VALDATA___V734*/ meltfptr[733]); - MELT_LOCATION("warmelt-normatch.melt:2486:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2527:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V684*/ meltfptr[683]); + meltgc_touch(/*_.VALDATA___V741*/ meltfptr[740]); - MELT_LOCATION("warmelt-normatch.melt:2486:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2527:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V686*/ meltfptr[685])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V743*/ meltfptr[742])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V686*/ meltfptr[685])))); - ((meltobject_ptr_t)(/*_.VALDATA___V686*/ meltfptr[685]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V687*/ meltfptr[686]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V743*/ meltfptr[742])))); + ((meltobject_ptr_t)(/*_.VALDATA___V743*/ meltfptr[742]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V744*/ meltfptr[743]); - MELT_LOCATION("warmelt-normatch.melt:2486:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2527:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V686*/ meltfptr[685])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V743*/ meltfptr[742])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V686*/ meltfptr[685])))); - ((meltobject_ptr_t)(/*_.VALDATA___V686*/ meltfptr[685]))->obj_vartab[2] = (melt_ptr_t)( - /*_.VALDATA___V679*/ meltfptr[678]); + melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V743*/ meltfptr[742])))); + ((meltobject_ptr_t)(/*_.VALDATA___V743*/ meltfptr[742]))->obj_vartab[2] = (melt_ptr_t)( + /*_.VALDATA___V734*/ meltfptr[733]); - MELT_LOCATION("warmelt-normatch.melt:2486:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2527:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V686*/ meltfptr[685]); + meltgc_touch(/*_.VALDATA___V743*/ meltfptr[742]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V688*/ meltfptr[687]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V688*/ meltfptr[687])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V688*/ meltfptr[687]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_LOCATED__V38*/ meltfptr[37]),6))), (0)))); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V745*/ meltfptr[744]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V745*/ meltfptr[744])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V745*/ meltfptr[744]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_LOCATED__V38*/ meltfptr[37]),6))), (0)))); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V688*/ meltfptr[687]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V688*/ meltfptr[687])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V688*/ meltfptr[687]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_LOCATED__V38*/ meltfptr[37]),6))), (1)))); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V745*/ meltfptr[744]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V745*/ meltfptr[744])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V745*/ meltfptr[744]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_LOCATED__V38*/ meltfptr[37]),6))), (1)))); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V688*/ meltfptr[687]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V688*/ meltfptr[687])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V688*/ meltfptr[687]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V652*/ meltfptr[651]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V745*/ meltfptr[744]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V745*/ meltfptr[744])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V745*/ meltfptr[744]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V657*/ meltfptr[656]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V688*/ meltfptr[687]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V688*/ meltfptr[687])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V688*/ meltfptr[687]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V662*/ meltfptr[661]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V745*/ meltfptr[744]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V745*/ meltfptr[744])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V745*/ meltfptr[744]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V689*/ meltfptr[688]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V688*/ meltfptr[687]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V688*/ meltfptr[687])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V688*/ meltfptr[687]))->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V682*/ meltfptr[681]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V745*/ meltfptr[744]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V745*/ meltfptr[744])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V745*/ meltfptr[744]))->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V737*/ meltfptr[736]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V688*/ meltfptr[687]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V688*/ meltfptr[687])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V688*/ meltfptr[687]))->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V684*/ meltfptr[683]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V745*/ meltfptr[744]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V745*/ meltfptr[744])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V745*/ meltfptr[744]))->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V739*/ meltfptr[738]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V688*/ meltfptr[687]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (6>=0 && 6< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V688*/ meltfptr[687])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V688*/ meltfptr[687]))->tabval[6] = (melt_ptr_t)(/*_.VALDATA___V686*/ meltfptr[685]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V745*/ meltfptr[744]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (6>=0 && 6< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V745*/ meltfptr[744])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V745*/ meltfptr[744]))->tabval[6] = (melt_ptr_t)(/*_.VALDATA___V741*/ meltfptr[740]); + + /*putupl*/ + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V745*/ meltfptr[744]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (7>=0 && 7< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V745*/ meltfptr[744])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V745*/ meltfptr[744]))->tabval[7] = (melt_ptr_t)(/*_.VALDATA___V743*/ meltfptr[742]); /*touch:INITUP_*/ - meltgc_touch(/*_.VALTUP___V688*/ meltfptr[687]); + meltgc_touch(/*_.VALTUP___V745*/ meltfptr[744]); - MELT_LOCATION("warmelt-normatch.melt:2486:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2527:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V679*/ meltfptr[678])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V734*/ meltfptr[733])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V679*/ meltfptr[678])))); - ((meltobject_ptr_t)(/*_.VALDATA___V679*/ meltfptr[678]))->obj_vartab[6] = (melt_ptr_t)( - /*_.VALTUP___V688*/ meltfptr[687]); + melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V734*/ meltfptr[733])))); + ((meltobject_ptr_t)(/*_.VALDATA___V734*/ meltfptr[733]))->obj_vartab[6] = (melt_ptr_t)( + /*_.VALTUP___V745*/ meltfptr[744]); - MELT_LOCATION("warmelt-normatch.melt:2486:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2527:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V679*/ meltfptr[678]); + meltgc_touch(/*_.VALDATA___V734*/ meltfptr[733]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V689*/ meltfptr[688])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V746*/ meltfptr[745])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V689*/ meltfptr[688])))); - ((meltobject_ptr_t)(/*_.VALDATA___V689*/ meltfptr[688]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V690*/ meltfptr[689]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V746*/ meltfptr[745])))); + ((meltobject_ptr_t)(/*_.VALDATA___V746*/ meltfptr[745]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V747*/ meltfptr[746]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V689*/ meltfptr[688]); + meltgc_touch(/*_.VALDATA___V746*/ meltfptr[745]); + + /*putslot*/ + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V748*/ meltfptr[747])) == OBMAG_OBJECT); + + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V748*/ meltfptr[747])))); + ((meltobject_ptr_t)(/*_.VALDATA___V748*/ meltfptr[747]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V749*/ meltfptr[748]); + + /*touch:VALUEDATA_*/ + meltgc_touch(/*_.VALDATA___V748*/ meltfptr[747]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V691*/ meltfptr[690])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V750*/ meltfptr[749])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V691*/ meltfptr[690])))); - ((meltobject_ptr_t)(/*_.VALDATA___V691*/ meltfptr[690]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V692*/ meltfptr[691]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V750*/ meltfptr[749])))); + ((meltobject_ptr_t)(/*_.VALDATA___V750*/ meltfptr[749]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V751*/ meltfptr[750]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V691*/ meltfptr[690]); + meltgc_touch(/*_.VALDATA___V750*/ meltfptr[749]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V693*/ meltfptr[692])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V752*/ meltfptr[751])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V693*/ meltfptr[692])))); - ((meltobject_ptr_t)(/*_.VALDATA___V693*/ meltfptr[692]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V694*/ meltfptr[693]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V752*/ meltfptr[751])))); + ((meltobject_ptr_t)(/*_.VALDATA___V752*/ meltfptr[751]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V753*/ meltfptr[752]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V693*/ meltfptr[692]); + meltgc_touch(/*_.VALDATA___V752*/ meltfptr[751]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V695*/ meltfptr[694])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V754*/ meltfptr[753])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V695*/ meltfptr[694])))); - ((meltobject_ptr_t)(/*_.VALDATA___V695*/ meltfptr[694]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V696*/ meltfptr[695]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V754*/ meltfptr[753])))); + ((meltobject_ptr_t)(/*_.VALDATA___V754*/ meltfptr[753]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V755*/ meltfptr[754]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V695*/ meltfptr[694]); + meltgc_touch(/*_.VALDATA___V754*/ meltfptr[753]); - MELT_LOCATION("warmelt-normatch.melt:2496:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2539:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V697*/ meltfptr[696])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V756*/ meltfptr[755])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V697*/ meltfptr[696])))); - ((meltobject_ptr_t)(/*_.VALDATA___V697*/ meltfptr[696]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V698*/ meltfptr[697]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V756*/ meltfptr[755])))); + ((meltobject_ptr_t)(/*_.VALDATA___V756*/ meltfptr[755]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V757*/ meltfptr[756]); - MELT_LOCATION("warmelt-normatch.melt:2496:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2539:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V697*/ meltfptr[696])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V756*/ meltfptr[755])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V697*/ meltfptr[696])))); - ((meltobject_ptr_t)(/*_.VALDATA___V697*/ meltfptr[696]))->obj_vartab[4] = (melt_ptr_t)( - /*_.VALDATA___V659*/ meltfptr[658]); + melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V756*/ meltfptr[755])))); + ((meltobject_ptr_t)(/*_.VALDATA___V756*/ meltfptr[755]))->obj_vartab[4] = (melt_ptr_t)( + /*_.VALDATA___V686*/ meltfptr[685]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V699*/ meltfptr[698]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V699*/ meltfptr[698])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V699*/ meltfptr[698]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_LOCATED__V38*/ meltfptr[37]),5))), (0)))); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V758*/ meltfptr[757]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V758*/ meltfptr[757])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V758*/ meltfptr[757]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_LOCATED__V38*/ meltfptr[37]),5))), (0)))); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V699*/ meltfptr[698]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V699*/ meltfptr[698])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V699*/ meltfptr[698]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_LOCATED__V38*/ meltfptr[37]),5))), (1)))); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V758*/ meltfptr[757]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V758*/ meltfptr[757])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V758*/ meltfptr[757]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_LOCATED__V38*/ meltfptr[37]),5))), (1)))); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V699*/ meltfptr[698]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V699*/ meltfptr[698])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V699*/ meltfptr[698]))->tabval[2] = (melt_ptr_t)(/*_.CLASS_LOCATED__V38*/ meltfptr[37]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V758*/ meltfptr[757]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V758*/ meltfptr[757])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V758*/ meltfptr[757]))->tabval[2] = (melt_ptr_t)(/*_.CLASS_LOCATED__V38*/ meltfptr[37]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V699*/ meltfptr[698]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V699*/ meltfptr[698])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V699*/ meltfptr[698]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V649*/ meltfptr[648]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V758*/ meltfptr[757]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V758*/ meltfptr[757])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V758*/ meltfptr[757]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V654*/ meltfptr[653]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V699*/ meltfptr[698]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V699*/ meltfptr[698])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V699*/ meltfptr[698]))->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V659*/ meltfptr[658]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V758*/ meltfptr[757]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V758*/ meltfptr[757])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V758*/ meltfptr[757]))->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V686*/ meltfptr[685]); /*touch:INITUP_*/ - meltgc_touch(/*_.VALTUP___V699*/ meltfptr[698]); + meltgc_touch(/*_.VALTUP___V758*/ meltfptr[757]); - MELT_LOCATION("warmelt-normatch.melt:2496:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2539:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V697*/ meltfptr[696])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V756*/ meltfptr[755])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V697*/ meltfptr[696])))); - ((meltobject_ptr_t)(/*_.VALDATA___V697*/ meltfptr[696]))->obj_vartab[5] = (melt_ptr_t)( - /*_.VALTUP___V699*/ meltfptr[698]); + melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V756*/ meltfptr[755])))); + ((meltobject_ptr_t)(/*_.VALDATA___V756*/ meltfptr[755]))->obj_vartab[5] = (melt_ptr_t)( + /*_.VALTUP___V758*/ meltfptr[757]); - MELT_LOCATION("warmelt-normatch.melt:2496:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2539:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V700*/ meltfptr[699])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V759*/ meltfptr[758])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V700*/ meltfptr[699])))); - ((meltobject_ptr_t)(/*_.VALDATA___V700*/ meltfptr[699]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V701*/ meltfptr[700]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V759*/ meltfptr[758])))); + ((meltobject_ptr_t)(/*_.VALDATA___V759*/ meltfptr[758]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V760*/ meltfptr[759]); - MELT_LOCATION("warmelt-normatch.melt:2496:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2539:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V700*/ meltfptr[699])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V759*/ meltfptr[758])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V700*/ meltfptr[699])))); - ((meltobject_ptr_t)(/*_.VALDATA___V700*/ meltfptr[699]))->obj_vartab[2] = (melt_ptr_t)( - /*_.VALDATA___V697*/ meltfptr[696]); + melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V759*/ meltfptr[758])))); + ((meltobject_ptr_t)(/*_.VALDATA___V759*/ meltfptr[758]))->obj_vartab[2] = (melt_ptr_t)( + /*_.VALDATA___V756*/ meltfptr[755]); - MELT_LOCATION("warmelt-normatch.melt:2496:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2539:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V700*/ meltfptr[699]); + meltgc_touch(/*_.VALDATA___V759*/ meltfptr[758]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V702*/ meltfptr[701]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V702*/ meltfptr[701])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V702*/ meltfptr[701]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_LOCATED__V38*/ meltfptr[37]),6))), (0)))); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V761*/ meltfptr[760]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V761*/ meltfptr[760])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V761*/ meltfptr[760]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_LOCATED__V38*/ meltfptr[37]),6))), (0)))); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V702*/ meltfptr[701]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V702*/ meltfptr[701])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V702*/ meltfptr[701]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_LOCATED__V38*/ meltfptr[37]),6))), (1)))); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V761*/ meltfptr[760]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V761*/ meltfptr[760])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V761*/ meltfptr[760]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_LOCATED__V38*/ meltfptr[37]),6))), (1)))); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V702*/ meltfptr[701]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V702*/ meltfptr[701])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V702*/ meltfptr[701]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V652*/ meltfptr[651]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V761*/ meltfptr[760]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V761*/ meltfptr[760])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V761*/ meltfptr[760]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V657*/ meltfptr[656]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V702*/ meltfptr[701]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V702*/ meltfptr[701])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V702*/ meltfptr[701]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V662*/ meltfptr[661]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V761*/ meltfptr[760]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V761*/ meltfptr[760])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V761*/ meltfptr[760]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V689*/ meltfptr[688]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V702*/ meltfptr[701]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V702*/ meltfptr[701])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V702*/ meltfptr[701]))->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V700*/ meltfptr[699]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V761*/ meltfptr[760]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V761*/ meltfptr[760])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V761*/ meltfptr[760]))->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V759*/ meltfptr[758]); /*touch:INITUP_*/ - meltgc_touch(/*_.VALTUP___V702*/ meltfptr[701]); + meltgc_touch(/*_.VALTUP___V761*/ meltfptr[760]); - MELT_LOCATION("warmelt-normatch.melt:2496:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2539:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V697*/ meltfptr[696])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V756*/ meltfptr[755])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V697*/ meltfptr[696])))); - ((meltobject_ptr_t)(/*_.VALDATA___V697*/ meltfptr[696]))->obj_vartab[6] = (melt_ptr_t)( - /*_.VALTUP___V702*/ meltfptr[701]); + melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V756*/ meltfptr[755])))); + ((meltobject_ptr_t)(/*_.VALDATA___V756*/ meltfptr[755]))->obj_vartab[6] = (melt_ptr_t)( + /*_.VALTUP___V761*/ meltfptr[760]); - MELT_LOCATION("warmelt-normatch.melt:2496:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2539:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V697*/ meltfptr[696]); + meltgc_touch(/*_.VALDATA___V756*/ meltfptr[755]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V703*/ meltfptr[702])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V762*/ meltfptr[761])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V703*/ meltfptr[702])))); - ((meltobject_ptr_t)(/*_.VALDATA___V703*/ meltfptr[702]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V704*/ meltfptr[703]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V762*/ meltfptr[761])))); + ((meltobject_ptr_t)(/*_.VALDATA___V762*/ meltfptr[761]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V763*/ meltfptr[762]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V703*/ meltfptr[702]); + meltgc_touch(/*_.VALDATA___V762*/ meltfptr[761]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V705*/ meltfptr[704])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V764*/ meltfptr[763])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V705*/ meltfptr[704])))); - ((meltobject_ptr_t)(/*_.VALDATA___V705*/ meltfptr[704]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V706*/ meltfptr[705]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V764*/ meltfptr[763])))); + ((meltobject_ptr_t)(/*_.VALDATA___V764*/ meltfptr[763]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V765*/ meltfptr[764]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V705*/ meltfptr[704]); + meltgc_touch(/*_.VALDATA___V764*/ meltfptr[763]); - MELT_LOCATION("warmelt-normatch.melt:2503:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2546:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V707*/ meltfptr[706])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V766*/ meltfptr[765])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V707*/ meltfptr[706])))); - ((meltobject_ptr_t)(/*_.VALDATA___V707*/ meltfptr[706]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V708*/ meltfptr[707]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V766*/ meltfptr[765])))); + ((meltobject_ptr_t)(/*_.VALDATA___V766*/ meltfptr[765]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V767*/ meltfptr[766]); - MELT_LOCATION("warmelt-normatch.melt:2503:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2546:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V707*/ meltfptr[706])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V766*/ meltfptr[765])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V707*/ meltfptr[706])))); - ((meltobject_ptr_t)(/*_.VALDATA___V707*/ meltfptr[706]))->obj_vartab[4] = (melt_ptr_t)( - /*_.VALDATA___V697*/ meltfptr[696]); + melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V766*/ meltfptr[765])))); + ((meltobject_ptr_t)(/*_.VALDATA___V766*/ meltfptr[765]))->obj_vartab[4] = (melt_ptr_t)( + /*_.VALDATA___V756*/ meltfptr[755]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V709*/ meltfptr[708]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V709*/ meltfptr[708])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V709*/ meltfptr[708]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_LOCATED__V38*/ meltfptr[37]),5))), (0)))); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V768*/ meltfptr[767]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V768*/ meltfptr[767])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V768*/ meltfptr[767]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_LOCATED__V38*/ meltfptr[37]),5))), (0)))); - /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V709*/ meltfptr[708]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V709*/ meltfptr[708])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V709*/ meltfptr[708]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_LOCATED__V38*/ meltfptr[37]),5))), (1)))); + +#undef meltfram__ +} /*end of warmelt_normatch_initialmeltchunk_5*/ + +void MELT_MODULE_VISIBILITY warmelt_normatch_initialmeltchunk_6 (struct frame_start_module_melt_st* meltframptr__, char predefinited[]) { +#define meltfram__ (*meltframptr__) +#undef meltcallcount +#define meltcallcount 0L +/*putupl*/ + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V768*/ meltfptr[767]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V768*/ meltfptr[767])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V768*/ meltfptr[767]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_LOCATED__V38*/ meltfptr[37]),5))), (1)))); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V709*/ meltfptr[708]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V709*/ meltfptr[708])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V709*/ meltfptr[708]))->tabval[2] = (melt_ptr_t)(/*_.CLASS_LOCATED__V38*/ meltfptr[37]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V768*/ meltfptr[767]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V768*/ meltfptr[767])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V768*/ meltfptr[767]))->tabval[2] = (melt_ptr_t)(/*_.CLASS_LOCATED__V38*/ meltfptr[37]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V709*/ meltfptr[708]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V709*/ meltfptr[708])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V709*/ meltfptr[708]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V649*/ meltfptr[648]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V768*/ meltfptr[767]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V768*/ meltfptr[767])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V768*/ meltfptr[767]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V654*/ meltfptr[653]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V709*/ meltfptr[708]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V709*/ meltfptr[708])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V709*/ meltfptr[708]))->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V659*/ meltfptr[658]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V768*/ meltfptr[767]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V768*/ meltfptr[767])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V768*/ meltfptr[767]))->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V686*/ meltfptr[685]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V709*/ meltfptr[708]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V709*/ meltfptr[708])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V709*/ meltfptr[708]))->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V697*/ meltfptr[696]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V768*/ meltfptr[767]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V768*/ meltfptr[767])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V768*/ meltfptr[767]))->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V756*/ meltfptr[755]); /*touch:INITUP_*/ - meltgc_touch(/*_.VALTUP___V709*/ meltfptr[708]); + meltgc_touch(/*_.VALTUP___V768*/ meltfptr[767]); - MELT_LOCATION("warmelt-normatch.melt:2503:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2546:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V707*/ meltfptr[706])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V766*/ meltfptr[765])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V707*/ meltfptr[706])))); - ((meltobject_ptr_t)(/*_.VALDATA___V707*/ meltfptr[706]))->obj_vartab[5] = (melt_ptr_t)( - /*_.VALTUP___V709*/ meltfptr[708]); + melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V766*/ meltfptr[765])))); + ((meltobject_ptr_t)(/*_.VALDATA___V766*/ meltfptr[765]))->obj_vartab[5] = (melt_ptr_t)( + /*_.VALTUP___V768*/ meltfptr[767]); - MELT_LOCATION("warmelt-normatch.melt:2503:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2546:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V710*/ meltfptr[709])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V769*/ meltfptr[768])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V710*/ meltfptr[709])))); - ((meltobject_ptr_t)(/*_.VALDATA___V710*/ meltfptr[709]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V711*/ meltfptr[710]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V769*/ meltfptr[768])))); + ((meltobject_ptr_t)(/*_.VALDATA___V769*/ meltfptr[768]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V770*/ meltfptr[769]); - MELT_LOCATION("warmelt-normatch.melt:2503:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2546:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V710*/ meltfptr[709])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V769*/ meltfptr[768])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V710*/ meltfptr[709])))); - ((meltobject_ptr_t)(/*_.VALDATA___V710*/ meltfptr[709]))->obj_vartab[2] = (melt_ptr_t)( - /*_.VALDATA___V707*/ meltfptr[706]); + melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V769*/ meltfptr[768])))); + ((meltobject_ptr_t)(/*_.VALDATA___V769*/ meltfptr[768]))->obj_vartab[2] = (melt_ptr_t)( + /*_.VALDATA___V766*/ meltfptr[765]); - MELT_LOCATION("warmelt-normatch.melt:2503:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2546:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V710*/ meltfptr[709]); + meltgc_touch(/*_.VALDATA___V769*/ meltfptr[768]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V712*/ meltfptr[711]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V712*/ meltfptr[711])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V712*/ meltfptr[711]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_LOCATED__V38*/ meltfptr[37]),6))), (0)))); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V771*/ meltfptr[770]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V771*/ meltfptr[770])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V771*/ meltfptr[770]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_LOCATED__V38*/ meltfptr[37]),6))), (0)))); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V712*/ meltfptr[711]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V712*/ meltfptr[711])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V712*/ meltfptr[711]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_LOCATED__V38*/ meltfptr[37]),6))), (1)))); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V771*/ meltfptr[770]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V771*/ meltfptr[770])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V771*/ meltfptr[770]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_LOCATED__V38*/ meltfptr[37]),6))), (1)))); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V712*/ meltfptr[711]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V712*/ meltfptr[711])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V712*/ meltfptr[711]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V652*/ meltfptr[651]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V771*/ meltfptr[770]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V771*/ meltfptr[770])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V771*/ meltfptr[770]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V657*/ meltfptr[656]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V712*/ meltfptr[711]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V712*/ meltfptr[711])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V712*/ meltfptr[711]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V662*/ meltfptr[661]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V771*/ meltfptr[770]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V771*/ meltfptr[770])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V771*/ meltfptr[770]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V689*/ meltfptr[688]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V712*/ meltfptr[711]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V712*/ meltfptr[711])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V712*/ meltfptr[711]))->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V700*/ meltfptr[699]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V771*/ meltfptr[770]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V771*/ meltfptr[770])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V771*/ meltfptr[770]))->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V759*/ meltfptr[758]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V712*/ meltfptr[711]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V712*/ meltfptr[711])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V712*/ meltfptr[711]))->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V710*/ meltfptr[709]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V771*/ meltfptr[770]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V771*/ meltfptr[770])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V771*/ meltfptr[770]))->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V769*/ meltfptr[768]); /*touch:INITUP_*/ - meltgc_touch(/*_.VALTUP___V712*/ meltfptr[711]); + meltgc_touch(/*_.VALTUP___V771*/ meltfptr[770]); - MELT_LOCATION("warmelt-normatch.melt:2503:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2546:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V707*/ meltfptr[706])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V766*/ meltfptr[765])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V707*/ meltfptr[706])))); - ((meltobject_ptr_t)(/*_.VALDATA___V707*/ meltfptr[706]))->obj_vartab[6] = (melt_ptr_t)( - /*_.VALTUP___V712*/ meltfptr[711]); + melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V766*/ meltfptr[765])))); + ((meltobject_ptr_t)(/*_.VALDATA___V766*/ meltfptr[765]))->obj_vartab[6] = (melt_ptr_t)( + /*_.VALTUP___V771*/ meltfptr[770]); - MELT_LOCATION("warmelt-normatch.melt:2503:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2546:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V707*/ meltfptr[706]); + meltgc_touch(/*_.VALDATA___V766*/ meltfptr[765]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V713*/ meltfptr[712])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V772*/ meltfptr[771])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V713*/ meltfptr[712])))); - ((meltobject_ptr_t)(/*_.VALDATA___V713*/ meltfptr[712]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V714*/ meltfptr[713]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V772*/ meltfptr[771])))); + ((meltobject_ptr_t)(/*_.VALDATA___V772*/ meltfptr[771]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V773*/ meltfptr[772]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V713*/ meltfptr[712]); + meltgc_touch(/*_.VALDATA___V772*/ meltfptr[771]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V715*/ meltfptr[714])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V774*/ meltfptr[773])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V715*/ meltfptr[714])))); - ((meltobject_ptr_t)(/*_.VALDATA___V715*/ meltfptr[714]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V716*/ meltfptr[715]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V774*/ meltfptr[773])))); + ((meltobject_ptr_t)(/*_.VALDATA___V774*/ meltfptr[773]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V775*/ meltfptr[774]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V715*/ meltfptr[714]); + meltgc_touch(/*_.VALDATA___V774*/ meltfptr[773]); - MELT_LOCATION("warmelt-normatch.melt:2509:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2552:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V717*/ meltfptr[716])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V776*/ meltfptr[775])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V717*/ meltfptr[716])))); - ((meltobject_ptr_t)(/*_.VALDATA___V717*/ meltfptr[716]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V718*/ meltfptr[717]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V776*/ meltfptr[775])))); + ((meltobject_ptr_t)(/*_.VALDATA___V776*/ meltfptr[775]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V777*/ meltfptr[776]); - MELT_LOCATION("warmelt-normatch.melt:2509:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2552:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V717*/ meltfptr[716])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V776*/ meltfptr[775])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V717*/ meltfptr[716])))); - ((meltobject_ptr_t)(/*_.VALDATA___V717*/ meltfptr[716]))->obj_vartab[4] = (melt_ptr_t)( - /*_.VALDATA___V697*/ meltfptr[696]); + melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V776*/ meltfptr[775])))); + ((meltobject_ptr_t)(/*_.VALDATA___V776*/ meltfptr[775]))->obj_vartab[4] = (melt_ptr_t)( + /*_.VALDATA___V756*/ meltfptr[755]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V719*/ meltfptr[718]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V719*/ meltfptr[718])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V719*/ meltfptr[718]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_LOCATED__V38*/ meltfptr[37]),5))), (0)))); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V778*/ meltfptr[777]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V778*/ meltfptr[777])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V778*/ meltfptr[777]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_LOCATED__V38*/ meltfptr[37]),5))), (0)))); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V719*/ meltfptr[718]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V719*/ meltfptr[718])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V719*/ meltfptr[718]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_LOCATED__V38*/ meltfptr[37]),5))), (1)))); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V778*/ meltfptr[777]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V778*/ meltfptr[777])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V778*/ meltfptr[777]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_LOCATED__V38*/ meltfptr[37]),5))), (1)))); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V719*/ meltfptr[718]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V719*/ meltfptr[718])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V719*/ meltfptr[718]))->tabval[2] = (melt_ptr_t)(/*_.CLASS_LOCATED__V38*/ meltfptr[37]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V778*/ meltfptr[777]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V778*/ meltfptr[777])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V778*/ meltfptr[777]))->tabval[2] = (melt_ptr_t)(/*_.CLASS_LOCATED__V38*/ meltfptr[37]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V719*/ meltfptr[718]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V719*/ meltfptr[718])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V719*/ meltfptr[718]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V649*/ meltfptr[648]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V778*/ meltfptr[777]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V778*/ meltfptr[777])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V778*/ meltfptr[777]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V654*/ meltfptr[653]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V719*/ meltfptr[718]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V719*/ meltfptr[718])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V719*/ meltfptr[718]))->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V659*/ meltfptr[658]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V778*/ meltfptr[777]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V778*/ meltfptr[777])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V778*/ meltfptr[777]))->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V686*/ meltfptr[685]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V719*/ meltfptr[718]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V719*/ meltfptr[718])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V719*/ meltfptr[718]))->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V697*/ meltfptr[696]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V778*/ meltfptr[777]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V778*/ meltfptr[777])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V778*/ meltfptr[777]))->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V756*/ meltfptr[755]); /*touch:INITUP_*/ - meltgc_touch(/*_.VALTUP___V719*/ meltfptr[718]); + meltgc_touch(/*_.VALTUP___V778*/ meltfptr[777]); - MELT_LOCATION("warmelt-normatch.melt:2509:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2552:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V717*/ meltfptr[716])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V776*/ meltfptr[775])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V717*/ meltfptr[716])))); - ((meltobject_ptr_t)(/*_.VALDATA___V717*/ meltfptr[716]))->obj_vartab[5] = (melt_ptr_t)( - /*_.VALTUP___V719*/ meltfptr[718]); + melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V776*/ meltfptr[775])))); + ((meltobject_ptr_t)(/*_.VALDATA___V776*/ meltfptr[775]))->obj_vartab[5] = (melt_ptr_t)( + /*_.VALTUP___V778*/ meltfptr[777]); - MELT_LOCATION("warmelt-normatch.melt:2509:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2552:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V720*/ meltfptr[719])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V779*/ meltfptr[778])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V720*/ meltfptr[719])))); - ((meltobject_ptr_t)(/*_.VALDATA___V720*/ meltfptr[719]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V721*/ meltfptr[720]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V779*/ meltfptr[778])))); + ((meltobject_ptr_t)(/*_.VALDATA___V779*/ meltfptr[778]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V780*/ meltfptr[779]); - MELT_LOCATION("warmelt-normatch.melt:2509:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2552:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V720*/ meltfptr[719])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V779*/ meltfptr[778])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V720*/ meltfptr[719])))); - ((meltobject_ptr_t)(/*_.VALDATA___V720*/ meltfptr[719]))->obj_vartab[2] = (melt_ptr_t)( - /*_.VALDATA___V717*/ meltfptr[716]); + melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V779*/ meltfptr[778])))); + ((meltobject_ptr_t)(/*_.VALDATA___V779*/ meltfptr[778]))->obj_vartab[2] = (melt_ptr_t)( + /*_.VALDATA___V776*/ meltfptr[775]); - MELT_LOCATION("warmelt-normatch.melt:2509:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2552:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V720*/ meltfptr[719]); + meltgc_touch(/*_.VALDATA___V779*/ meltfptr[778]); - MELT_LOCATION("warmelt-normatch.melt:2509:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2552:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V722*/ meltfptr[721])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V781*/ meltfptr[780])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V722*/ meltfptr[721])))); - ((meltobject_ptr_t)(/*_.VALDATA___V722*/ meltfptr[721]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V723*/ meltfptr[722]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V781*/ meltfptr[780])))); + ((meltobject_ptr_t)(/*_.VALDATA___V781*/ meltfptr[780]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V782*/ meltfptr[781]); - MELT_LOCATION("warmelt-normatch.melt:2509:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2552:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V722*/ meltfptr[721])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V781*/ meltfptr[780])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V722*/ meltfptr[721])))); - ((meltobject_ptr_t)(/*_.VALDATA___V722*/ meltfptr[721]))->obj_vartab[2] = (melt_ptr_t)( - /*_.VALDATA___V717*/ meltfptr[716]); + melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V781*/ meltfptr[780])))); + ((meltobject_ptr_t)(/*_.VALDATA___V781*/ meltfptr[780]))->obj_vartab[2] = (melt_ptr_t)( + /*_.VALDATA___V776*/ meltfptr[775]); - MELT_LOCATION("warmelt-normatch.melt:2509:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2552:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V722*/ meltfptr[721]); + meltgc_touch(/*_.VALDATA___V781*/ meltfptr[780]); - MELT_LOCATION("warmelt-normatch.melt:2509:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2552:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V724*/ meltfptr[723])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V783*/ meltfptr[782])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V724*/ meltfptr[723])))); - ((meltobject_ptr_t)(/*_.VALDATA___V724*/ meltfptr[723]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V725*/ meltfptr[724]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V783*/ meltfptr[782])))); + ((meltobject_ptr_t)(/*_.VALDATA___V783*/ meltfptr[782]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V784*/ meltfptr[783]); - MELT_LOCATION("warmelt-normatch.melt:2509:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2552:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V724*/ meltfptr[723])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V783*/ meltfptr[782])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V724*/ meltfptr[723])))); - ((meltobject_ptr_t)(/*_.VALDATA___V724*/ meltfptr[723]))->obj_vartab[2] = (melt_ptr_t)( - /*_.VALDATA___V717*/ meltfptr[716]); + melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V783*/ meltfptr[782])))); + ((meltobject_ptr_t)(/*_.VALDATA___V783*/ meltfptr[782]))->obj_vartab[2] = (melt_ptr_t)( + /*_.VALDATA___V776*/ meltfptr[775]); - MELT_LOCATION("warmelt-normatch.melt:2509:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2552:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V724*/ meltfptr[723]); + meltgc_touch(/*_.VALDATA___V783*/ meltfptr[782]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V726*/ meltfptr[725]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V726*/ meltfptr[725])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V726*/ meltfptr[725]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_LOCATED__V38*/ meltfptr[37]),6))), (0)))); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V785*/ meltfptr[784]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V785*/ meltfptr[784])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V785*/ meltfptr[784]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_LOCATED__V38*/ meltfptr[37]),6))), (0)))); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V726*/ meltfptr[725]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V726*/ meltfptr[725])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V726*/ meltfptr[725]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_LOCATED__V38*/ meltfptr[37]),6))), (1)))); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V785*/ meltfptr[784]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V785*/ meltfptr[784])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V785*/ meltfptr[784]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_LOCATED__V38*/ meltfptr[37]),6))), (1)))); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V726*/ meltfptr[725]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V726*/ meltfptr[725])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V726*/ meltfptr[725]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V652*/ meltfptr[651]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V785*/ meltfptr[784]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V785*/ meltfptr[784])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V785*/ meltfptr[784]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V657*/ meltfptr[656]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V726*/ meltfptr[725]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V726*/ meltfptr[725])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V726*/ meltfptr[725]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V662*/ meltfptr[661]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V785*/ meltfptr[784]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V785*/ meltfptr[784])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V785*/ meltfptr[784]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V689*/ meltfptr[688]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V726*/ meltfptr[725]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V726*/ meltfptr[725])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V726*/ meltfptr[725]))->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V700*/ meltfptr[699]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V785*/ meltfptr[784]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V785*/ meltfptr[784])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V785*/ meltfptr[784]))->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V759*/ meltfptr[758]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V726*/ meltfptr[725]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V726*/ meltfptr[725])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V726*/ meltfptr[725]))->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V720*/ meltfptr[719]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V785*/ meltfptr[784]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V785*/ meltfptr[784])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V785*/ meltfptr[784]))->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V779*/ meltfptr[778]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V726*/ meltfptr[725]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (6>=0 && 6< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V726*/ meltfptr[725])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V726*/ meltfptr[725]))->tabval[6] = (melt_ptr_t)(/*_.VALDATA___V722*/ meltfptr[721]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V785*/ meltfptr[784]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (6>=0 && 6< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V785*/ meltfptr[784])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V785*/ meltfptr[784]))->tabval[6] = (melt_ptr_t)(/*_.VALDATA___V781*/ meltfptr[780]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V726*/ meltfptr[725]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (7>=0 && 7< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V726*/ meltfptr[725])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V726*/ meltfptr[725]))->tabval[7] = (melt_ptr_t)(/*_.VALDATA___V724*/ meltfptr[723]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V785*/ meltfptr[784]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (7>=0 && 7< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V785*/ meltfptr[784])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V785*/ meltfptr[784]))->tabval[7] = (melt_ptr_t)(/*_.VALDATA___V783*/ meltfptr[782]); /*touch:INITUP_*/ - meltgc_touch(/*_.VALTUP___V726*/ meltfptr[725]); + meltgc_touch(/*_.VALTUP___V785*/ meltfptr[784]); - MELT_LOCATION("warmelt-normatch.melt:2509:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2552:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V717*/ meltfptr[716])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V776*/ meltfptr[775])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V717*/ meltfptr[716])))); - ((meltobject_ptr_t)(/*_.VALDATA___V717*/ meltfptr[716]))->obj_vartab[6] = (melt_ptr_t)( - /*_.VALTUP___V726*/ meltfptr[725]); + melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V776*/ meltfptr[775])))); + ((meltobject_ptr_t)(/*_.VALDATA___V776*/ meltfptr[775]))->obj_vartab[6] = (melt_ptr_t)( + /*_.VALTUP___V785*/ meltfptr[784]); - MELT_LOCATION("warmelt-normatch.melt:2509:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2552:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V717*/ meltfptr[716]); + meltgc_touch(/*_.VALDATA___V776*/ meltfptr[775]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V727*/ meltfptr[726])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V786*/ meltfptr[785])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V727*/ meltfptr[726])))); - ((meltobject_ptr_t)(/*_.VALDATA___V727*/ meltfptr[726]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V728*/ meltfptr[727]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V786*/ meltfptr[785])))); + ((meltobject_ptr_t)(/*_.VALDATA___V786*/ meltfptr[785]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V787*/ meltfptr[786]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V727*/ meltfptr[726]); + meltgc_touch(/*_.VALDATA___V786*/ meltfptr[785]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V729*/ meltfptr[728])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V788*/ meltfptr[787])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V729*/ meltfptr[728])))); - ((meltobject_ptr_t)(/*_.VALDATA___V729*/ meltfptr[728]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V730*/ meltfptr[729]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V788*/ meltfptr[787])))); + ((meltobject_ptr_t)(/*_.VALDATA___V788*/ meltfptr[787]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V789*/ meltfptr[788]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V729*/ meltfptr[728]); + meltgc_touch(/*_.VALDATA___V788*/ meltfptr[787]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V731*/ meltfptr[730])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V790*/ meltfptr[789])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V731*/ meltfptr[730])))); - ((meltobject_ptr_t)(/*_.VALDATA___V731*/ meltfptr[730]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V732*/ meltfptr[731]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V790*/ meltfptr[789])))); + ((meltobject_ptr_t)(/*_.VALDATA___V790*/ meltfptr[789]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V791*/ meltfptr[790]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V731*/ meltfptr[730]); + meltgc_touch(/*_.VALDATA___V790*/ meltfptr[789]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V733*/ meltfptr[732])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V792*/ meltfptr[791])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V733*/ meltfptr[732])))); - ((meltobject_ptr_t)(/*_.VALDATA___V733*/ meltfptr[732]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V734*/ meltfptr[733]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V792*/ meltfptr[791])))); + ((meltobject_ptr_t)(/*_.VALDATA___V792*/ meltfptr[791]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V793*/ meltfptr[792]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V733*/ meltfptr[732]); + meltgc_touch(/*_.VALDATA___V792*/ meltfptr[791]); - MELT_LOCATION("warmelt-normatch.melt:2519:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2563:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V735*/ meltfptr[734])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V794*/ meltfptr[793])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V735*/ meltfptr[734])))); - ((meltobject_ptr_t)(/*_.VALDATA___V735*/ meltfptr[734]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V736*/ meltfptr[735]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V794*/ meltfptr[793])))); + ((meltobject_ptr_t)(/*_.VALDATA___V794*/ meltfptr[793]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V795*/ meltfptr[794]); - MELT_LOCATION("warmelt-normatch.melt:2519:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2563:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V735*/ meltfptr[734])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V794*/ meltfptr[793])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V735*/ meltfptr[734])))); - ((meltobject_ptr_t)(/*_.VALDATA___V735*/ meltfptr[734]))->obj_vartab[4] = (melt_ptr_t)( - /*_.VALDATA___V697*/ meltfptr[696]); + melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V794*/ meltfptr[793])))); + ((meltobject_ptr_t)(/*_.VALDATA___V794*/ meltfptr[793]))->obj_vartab[4] = (melt_ptr_t)( + /*_.VALDATA___V756*/ meltfptr[755]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V737*/ meltfptr[736]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V737*/ meltfptr[736])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V737*/ meltfptr[736]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_LOCATED__V38*/ meltfptr[37]),5))), (0)))); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V796*/ meltfptr[795]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V796*/ meltfptr[795])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V796*/ meltfptr[795]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_LOCATED__V38*/ meltfptr[37]),5))), (0)))); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V737*/ meltfptr[736]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V737*/ meltfptr[736])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V737*/ meltfptr[736]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_LOCATED__V38*/ meltfptr[37]),5))), (1)))); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V796*/ meltfptr[795]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V796*/ meltfptr[795])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V796*/ meltfptr[795]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_LOCATED__V38*/ meltfptr[37]),5))), (1)))); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V737*/ meltfptr[736]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V737*/ meltfptr[736])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V737*/ meltfptr[736]))->tabval[2] = (melt_ptr_t)(/*_.CLASS_LOCATED__V38*/ meltfptr[37]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V796*/ meltfptr[795]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V796*/ meltfptr[795])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V796*/ meltfptr[795]))->tabval[2] = (melt_ptr_t)(/*_.CLASS_LOCATED__V38*/ meltfptr[37]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V737*/ meltfptr[736]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V737*/ meltfptr[736])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V737*/ meltfptr[736]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V649*/ meltfptr[648]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V796*/ meltfptr[795]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V796*/ meltfptr[795])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V796*/ meltfptr[795]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V654*/ meltfptr[653]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V737*/ meltfptr[736]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V737*/ meltfptr[736])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V737*/ meltfptr[736]))->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V659*/ meltfptr[658]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V796*/ meltfptr[795]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V796*/ meltfptr[795])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V796*/ meltfptr[795]))->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V686*/ meltfptr[685]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V737*/ meltfptr[736]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V737*/ meltfptr[736])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V737*/ meltfptr[736]))->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V697*/ meltfptr[696]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V796*/ meltfptr[795]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V796*/ meltfptr[795])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V796*/ meltfptr[795]))->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V756*/ meltfptr[755]); /*touch:INITUP_*/ - meltgc_touch(/*_.VALTUP___V737*/ meltfptr[736]); + meltgc_touch(/*_.VALTUP___V796*/ meltfptr[795]); - MELT_LOCATION("warmelt-normatch.melt:2519:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2563:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V735*/ meltfptr[734])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V794*/ meltfptr[793])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V735*/ meltfptr[734])))); - ((meltobject_ptr_t)(/*_.VALDATA___V735*/ meltfptr[734]))->obj_vartab[5] = (melt_ptr_t)( - /*_.VALTUP___V737*/ meltfptr[736]); + melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V794*/ meltfptr[793])))); + ((meltobject_ptr_t)(/*_.VALDATA___V794*/ meltfptr[793]))->obj_vartab[5] = (melt_ptr_t)( + /*_.VALTUP___V796*/ meltfptr[795]); - MELT_LOCATION("warmelt-normatch.melt:2519:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2563:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V738*/ meltfptr[737])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V797*/ meltfptr[796])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V738*/ meltfptr[737])))); - ((meltobject_ptr_t)(/*_.VALDATA___V738*/ meltfptr[737]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V739*/ meltfptr[738]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V797*/ meltfptr[796])))); + ((meltobject_ptr_t)(/*_.VALDATA___V797*/ meltfptr[796]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V798*/ meltfptr[797]); - MELT_LOCATION("warmelt-normatch.melt:2519:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2563:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V738*/ meltfptr[737])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V797*/ meltfptr[796])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V738*/ meltfptr[737])))); - ((meltobject_ptr_t)(/*_.VALDATA___V738*/ meltfptr[737]))->obj_vartab[2] = (melt_ptr_t)( - /*_.VALDATA___V735*/ meltfptr[734]); + melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V797*/ meltfptr[796])))); + ((meltobject_ptr_t)(/*_.VALDATA___V797*/ meltfptr[796]))->obj_vartab[2] = (melt_ptr_t)( + /*_.VALDATA___V794*/ meltfptr[793]); - MELT_LOCATION("warmelt-normatch.melt:2519:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2563:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V738*/ meltfptr[737]); + meltgc_touch(/*_.VALDATA___V797*/ meltfptr[796]); - MELT_LOCATION("warmelt-normatch.melt:2519:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2563:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V740*/ meltfptr[739])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V799*/ meltfptr[798])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V740*/ meltfptr[739])))); - ((meltobject_ptr_t)(/*_.VALDATA___V740*/ meltfptr[739]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V741*/ meltfptr[740]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V799*/ meltfptr[798])))); + ((meltobject_ptr_t)(/*_.VALDATA___V799*/ meltfptr[798]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V800*/ meltfptr[799]); - MELT_LOCATION("warmelt-normatch.melt:2519:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2563:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V740*/ meltfptr[739])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V799*/ meltfptr[798])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V740*/ meltfptr[739])))); - ((meltobject_ptr_t)(/*_.VALDATA___V740*/ meltfptr[739]))->obj_vartab[2] = (melt_ptr_t)( - /*_.VALDATA___V735*/ meltfptr[734]); + melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V799*/ meltfptr[798])))); + ((meltobject_ptr_t)(/*_.VALDATA___V799*/ meltfptr[798]))->obj_vartab[2] = (melt_ptr_t)( + /*_.VALDATA___V794*/ meltfptr[793]); - MELT_LOCATION("warmelt-normatch.melt:2519:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2563:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V740*/ meltfptr[739]); + meltgc_touch(/*_.VALDATA___V799*/ meltfptr[798]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V742*/ meltfptr[741]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V742*/ meltfptr[741])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V742*/ meltfptr[741]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_LOCATED__V38*/ meltfptr[37]),6))), (0)))); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V801*/ meltfptr[800]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V801*/ meltfptr[800])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V801*/ meltfptr[800]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_LOCATED__V38*/ meltfptr[37]),6))), (0)))); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V742*/ meltfptr[741]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V742*/ meltfptr[741])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V742*/ meltfptr[741]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_LOCATED__V38*/ meltfptr[37]),6))), (1)))); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V801*/ meltfptr[800]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V801*/ meltfptr[800])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V801*/ meltfptr[800]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_LOCATED__V38*/ meltfptr[37]),6))), (1)))); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V742*/ meltfptr[741]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V742*/ meltfptr[741])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V742*/ meltfptr[741]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V652*/ meltfptr[651]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V801*/ meltfptr[800]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V801*/ meltfptr[800])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V801*/ meltfptr[800]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V657*/ meltfptr[656]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V742*/ meltfptr[741]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V742*/ meltfptr[741])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V742*/ meltfptr[741]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V662*/ meltfptr[661]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V801*/ meltfptr[800]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V801*/ meltfptr[800])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V801*/ meltfptr[800]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V689*/ meltfptr[688]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V742*/ meltfptr[741]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V742*/ meltfptr[741])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V742*/ meltfptr[741]))->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V700*/ meltfptr[699]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V801*/ meltfptr[800]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V801*/ meltfptr[800])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V801*/ meltfptr[800]))->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V759*/ meltfptr[758]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V742*/ meltfptr[741]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V742*/ meltfptr[741])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V742*/ meltfptr[741]))->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V738*/ meltfptr[737]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V801*/ meltfptr[800]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V801*/ meltfptr[800])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V801*/ meltfptr[800]))->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V797*/ meltfptr[796]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V742*/ meltfptr[741]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (6>=0 && 6< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V742*/ meltfptr[741])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V742*/ meltfptr[741]))->tabval[6] = (melt_ptr_t)(/*_.VALDATA___V740*/ meltfptr[739]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V801*/ meltfptr[800]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (6>=0 && 6< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V801*/ meltfptr[800])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V801*/ meltfptr[800]))->tabval[6] = (melt_ptr_t)(/*_.VALDATA___V799*/ meltfptr[798]); /*touch:INITUP_*/ - meltgc_touch(/*_.VALTUP___V742*/ meltfptr[741]); + meltgc_touch(/*_.VALTUP___V801*/ meltfptr[800]); - MELT_LOCATION("warmelt-normatch.melt:2519:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2563:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V735*/ meltfptr[734])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V794*/ meltfptr[793])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V735*/ meltfptr[734])))); - ((meltobject_ptr_t)(/*_.VALDATA___V735*/ meltfptr[734]))->obj_vartab[6] = (melt_ptr_t)( - /*_.VALTUP___V742*/ meltfptr[741]); + melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V794*/ meltfptr[793])))); + ((meltobject_ptr_t)(/*_.VALDATA___V794*/ meltfptr[793]))->obj_vartab[6] = (melt_ptr_t)( + /*_.VALTUP___V801*/ meltfptr[800]); - MELT_LOCATION("warmelt-normatch.melt:2519:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2563:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V735*/ meltfptr[734]); + meltgc_touch(/*_.VALDATA___V794*/ meltfptr[793]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V743*/ meltfptr[742])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V802*/ meltfptr[801])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V743*/ meltfptr[742])))); - ((meltobject_ptr_t)(/*_.VALDATA___V743*/ meltfptr[742]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V744*/ meltfptr[743]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V802*/ meltfptr[801])))); + ((meltobject_ptr_t)(/*_.VALDATA___V802*/ meltfptr[801]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V803*/ meltfptr[802]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V743*/ meltfptr[742]); + meltgc_touch(/*_.VALDATA___V802*/ meltfptr[801]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V745*/ meltfptr[744])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V804*/ meltfptr[803])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V745*/ meltfptr[744])))); - ((meltobject_ptr_t)(/*_.VALDATA___V745*/ meltfptr[744]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V746*/ meltfptr[745]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V804*/ meltfptr[803])))); + ((meltobject_ptr_t)(/*_.VALDATA___V804*/ meltfptr[803]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V805*/ meltfptr[804]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V745*/ meltfptr[744]); + meltgc_touch(/*_.VALDATA___V804*/ meltfptr[803]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V747*/ meltfptr[746])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V806*/ meltfptr[805])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V747*/ meltfptr[746])))); - ((meltobject_ptr_t)(/*_.VALDATA___V747*/ meltfptr[746]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V748*/ meltfptr[747]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V806*/ meltfptr[805])))); + ((meltobject_ptr_t)(/*_.VALDATA___V806*/ meltfptr[805]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V807*/ meltfptr[806]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V747*/ meltfptr[746]); + meltgc_touch(/*_.VALDATA___V806*/ meltfptr[805]); - MELT_LOCATION("warmelt-normatch.melt:2527:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2571:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V749*/ meltfptr[748])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V808*/ meltfptr[807])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V749*/ meltfptr[748])))); - ((meltobject_ptr_t)(/*_.VALDATA___V749*/ meltfptr[748]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V750*/ meltfptr[749]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V808*/ meltfptr[807])))); + ((meltobject_ptr_t)(/*_.VALDATA___V808*/ meltfptr[807]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V809*/ meltfptr[808]); - MELT_LOCATION("warmelt-normatch.melt:2527:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2571:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V749*/ meltfptr[748])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V808*/ meltfptr[807])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V749*/ meltfptr[748])))); - ((meltobject_ptr_t)(/*_.VALDATA___V749*/ meltfptr[748]))->obj_vartab[4] = (melt_ptr_t)( - /*_.VALDATA___V697*/ meltfptr[696]); + melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V808*/ meltfptr[807])))); + ((meltobject_ptr_t)(/*_.VALDATA___V808*/ meltfptr[807]))->obj_vartab[4] = (melt_ptr_t)( + /*_.VALDATA___V756*/ meltfptr[755]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V751*/ meltfptr[750]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V751*/ meltfptr[750])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V751*/ meltfptr[750]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_LOCATED__V38*/ meltfptr[37]),5))), (0)))); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V810*/ meltfptr[809]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V810*/ meltfptr[809])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V810*/ meltfptr[809]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_LOCATED__V38*/ meltfptr[37]),5))), (0)))); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V751*/ meltfptr[750]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V751*/ meltfptr[750])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V751*/ meltfptr[750]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_LOCATED__V38*/ meltfptr[37]),5))), (1)))); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V810*/ meltfptr[809]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V810*/ meltfptr[809])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V810*/ meltfptr[809]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_LOCATED__V38*/ meltfptr[37]),5))), (1)))); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V751*/ meltfptr[750]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V751*/ meltfptr[750])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V751*/ meltfptr[750]))->tabval[2] = (melt_ptr_t)(/*_.CLASS_LOCATED__V38*/ meltfptr[37]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V810*/ meltfptr[809]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V810*/ meltfptr[809])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V810*/ meltfptr[809]))->tabval[2] = (melt_ptr_t)(/*_.CLASS_LOCATED__V38*/ meltfptr[37]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V751*/ meltfptr[750]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V751*/ meltfptr[750])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V751*/ meltfptr[750]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V649*/ meltfptr[648]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V810*/ meltfptr[809]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V810*/ meltfptr[809])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V810*/ meltfptr[809]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V654*/ meltfptr[653]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V751*/ meltfptr[750]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V751*/ meltfptr[750])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V751*/ meltfptr[750]))->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V659*/ meltfptr[658]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V810*/ meltfptr[809]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V810*/ meltfptr[809])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V810*/ meltfptr[809]))->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V686*/ meltfptr[685]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V751*/ meltfptr[750]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V751*/ meltfptr[750])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V751*/ meltfptr[750]))->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V697*/ meltfptr[696]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V810*/ meltfptr[809]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V810*/ meltfptr[809])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V810*/ meltfptr[809]))->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V756*/ meltfptr[755]); /*touch:INITUP_*/ - meltgc_touch(/*_.VALTUP___V751*/ meltfptr[750]); + meltgc_touch(/*_.VALTUP___V810*/ meltfptr[809]); - MELT_LOCATION("warmelt-normatch.melt:2527:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2571:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V749*/ meltfptr[748])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V808*/ meltfptr[807])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V749*/ meltfptr[748])))); - ((meltobject_ptr_t)(/*_.VALDATA___V749*/ meltfptr[748]))->obj_vartab[5] = (melt_ptr_t)( - /*_.VALTUP___V751*/ meltfptr[750]); + melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V808*/ meltfptr[807])))); + ((meltobject_ptr_t)(/*_.VALDATA___V808*/ meltfptr[807]))->obj_vartab[5] = (melt_ptr_t)( + /*_.VALTUP___V810*/ meltfptr[809]); - MELT_LOCATION("warmelt-normatch.melt:2527:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2571:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V752*/ meltfptr[751])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V811*/ meltfptr[810])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V752*/ meltfptr[751])))); - ((meltobject_ptr_t)(/*_.VALDATA___V752*/ meltfptr[751]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V753*/ meltfptr[752]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V811*/ meltfptr[810])))); + ((meltobject_ptr_t)(/*_.VALDATA___V811*/ meltfptr[810]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V812*/ meltfptr[811]); - MELT_LOCATION("warmelt-normatch.melt:2527:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2571:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V752*/ meltfptr[751])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V811*/ meltfptr[810])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V752*/ meltfptr[751])))); - ((meltobject_ptr_t)(/*_.VALDATA___V752*/ meltfptr[751]))->obj_vartab[2] = (melt_ptr_t)( - /*_.VALDATA___V749*/ meltfptr[748]); + melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V811*/ meltfptr[810])))); + ((meltobject_ptr_t)(/*_.VALDATA___V811*/ meltfptr[810]))->obj_vartab[2] = (melt_ptr_t)( + /*_.VALDATA___V808*/ meltfptr[807]); - MELT_LOCATION("warmelt-normatch.melt:2527:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2571:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V752*/ meltfptr[751]); + meltgc_touch(/*_.VALDATA___V811*/ meltfptr[810]); - MELT_LOCATION("warmelt-normatch.melt:2527:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2571:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V754*/ meltfptr[753])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V813*/ meltfptr[812])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V754*/ meltfptr[753])))); - ((meltobject_ptr_t)(/*_.VALDATA___V754*/ meltfptr[753]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V755*/ meltfptr[754]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V813*/ meltfptr[812])))); + ((meltobject_ptr_t)(/*_.VALDATA___V813*/ meltfptr[812]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V814*/ meltfptr[813]); - MELT_LOCATION("warmelt-normatch.melt:2527:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2571:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V754*/ meltfptr[753])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V813*/ meltfptr[812])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V754*/ meltfptr[753])))); - ((meltobject_ptr_t)(/*_.VALDATA___V754*/ meltfptr[753]))->obj_vartab[2] = (melt_ptr_t)( - /*_.VALDATA___V749*/ meltfptr[748]); + melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V813*/ meltfptr[812])))); + ((meltobject_ptr_t)(/*_.VALDATA___V813*/ meltfptr[812]))->obj_vartab[2] = (melt_ptr_t)( + /*_.VALDATA___V808*/ meltfptr[807]); - MELT_LOCATION("warmelt-normatch.melt:2527:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2571:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V754*/ meltfptr[753]); + meltgc_touch(/*_.VALDATA___V813*/ meltfptr[812]); - MELT_LOCATION("warmelt-normatch.melt:2527:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2571:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V756*/ meltfptr[755])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V815*/ meltfptr[814])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V756*/ meltfptr[755])))); - ((meltobject_ptr_t)(/*_.VALDATA___V756*/ meltfptr[755]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V757*/ meltfptr[756]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V815*/ meltfptr[814])))); + ((meltobject_ptr_t)(/*_.VALDATA___V815*/ meltfptr[814]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V816*/ meltfptr[815]); - MELT_LOCATION("warmelt-normatch.melt:2527:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2571:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V756*/ meltfptr[755])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V815*/ meltfptr[814])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V756*/ meltfptr[755])))); - ((meltobject_ptr_t)(/*_.VALDATA___V756*/ meltfptr[755]))->obj_vartab[2] = (melt_ptr_t)( - /*_.VALDATA___V749*/ meltfptr[748]); + melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V815*/ meltfptr[814])))); + ((meltobject_ptr_t)(/*_.VALDATA___V815*/ meltfptr[814]))->obj_vartab[2] = (melt_ptr_t)( + /*_.VALDATA___V808*/ meltfptr[807]); - MELT_LOCATION("warmelt-normatch.melt:2527:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2571:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V756*/ meltfptr[755]); + meltgc_touch(/*_.VALDATA___V815*/ meltfptr[814]); - MELT_LOCATION("warmelt-normatch.melt:2527:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2571:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V758*/ meltfptr[757])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V817*/ meltfptr[816])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V758*/ meltfptr[757])))); - ((meltobject_ptr_t)(/*_.VALDATA___V758*/ meltfptr[757]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V759*/ meltfptr[758]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V817*/ meltfptr[816])))); + ((meltobject_ptr_t)(/*_.VALDATA___V817*/ meltfptr[816]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V818*/ meltfptr[817]); - MELT_LOCATION("warmelt-normatch.melt:2527:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2571:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V758*/ meltfptr[757])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V817*/ meltfptr[816])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V758*/ meltfptr[757])))); - ((meltobject_ptr_t)(/*_.VALDATA___V758*/ meltfptr[757]))->obj_vartab[2] = (melt_ptr_t)( - /*_.VALDATA___V749*/ meltfptr[748]); + melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V817*/ meltfptr[816])))); + ((meltobject_ptr_t)(/*_.VALDATA___V817*/ meltfptr[816]))->obj_vartab[2] = (melt_ptr_t)( + /*_.VALDATA___V808*/ meltfptr[807]); - MELT_LOCATION("warmelt-normatch.melt:2527:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2571:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V758*/ meltfptr[757]); + meltgc_touch(/*_.VALDATA___V817*/ meltfptr[816]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V760*/ meltfptr[759]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V760*/ meltfptr[759])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V760*/ meltfptr[759]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_LOCATED__V38*/ meltfptr[37]),6))), (0)))); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V819*/ meltfptr[818]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V819*/ meltfptr[818])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V819*/ meltfptr[818]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_LOCATED__V38*/ meltfptr[37]),6))), (0)))); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V760*/ meltfptr[759]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V760*/ meltfptr[759])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V760*/ meltfptr[759]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_LOCATED__V38*/ meltfptr[37]),6))), (1)))); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V819*/ meltfptr[818]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V819*/ meltfptr[818])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V819*/ meltfptr[818]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_LOCATED__V38*/ meltfptr[37]),6))), (1)))); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V760*/ meltfptr[759]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V760*/ meltfptr[759])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V760*/ meltfptr[759]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V652*/ meltfptr[651]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V819*/ meltfptr[818]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V819*/ meltfptr[818])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V819*/ meltfptr[818]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V657*/ meltfptr[656]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V760*/ meltfptr[759]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V760*/ meltfptr[759])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V760*/ meltfptr[759]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V662*/ meltfptr[661]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V819*/ meltfptr[818]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V819*/ meltfptr[818])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V819*/ meltfptr[818]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V689*/ meltfptr[688]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V760*/ meltfptr[759]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V760*/ meltfptr[759])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V760*/ meltfptr[759]))->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V700*/ meltfptr[699]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V819*/ meltfptr[818]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V819*/ meltfptr[818])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V819*/ meltfptr[818]))->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V759*/ meltfptr[758]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V760*/ meltfptr[759]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V760*/ meltfptr[759])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V760*/ meltfptr[759]))->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V752*/ meltfptr[751]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V819*/ meltfptr[818]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V819*/ meltfptr[818])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V819*/ meltfptr[818]))->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V811*/ meltfptr[810]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V760*/ meltfptr[759]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (6>=0 && 6< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V760*/ meltfptr[759])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V760*/ meltfptr[759]))->tabval[6] = (melt_ptr_t)(/*_.VALDATA___V754*/ meltfptr[753]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V819*/ meltfptr[818]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (6>=0 && 6< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V819*/ meltfptr[818])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V819*/ meltfptr[818]))->tabval[6] = (melt_ptr_t)(/*_.VALDATA___V813*/ meltfptr[812]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V760*/ meltfptr[759]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (7>=0 && 7< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V760*/ meltfptr[759])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V760*/ meltfptr[759]))->tabval[7] = (melt_ptr_t)(/*_.VALDATA___V756*/ meltfptr[755]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V819*/ meltfptr[818]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (7>=0 && 7< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V819*/ meltfptr[818])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V819*/ meltfptr[818]))->tabval[7] = (melt_ptr_t)(/*_.VALDATA___V815*/ meltfptr[814]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V760*/ meltfptr[759]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (8>=0 && 8< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V760*/ meltfptr[759])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V760*/ meltfptr[759]))->tabval[8] = (melt_ptr_t)(/*_.VALDATA___V758*/ meltfptr[757]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V819*/ meltfptr[818]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (8>=0 && 8< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V819*/ meltfptr[818])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V819*/ meltfptr[818]))->tabval[8] = (melt_ptr_t)(/*_.VALDATA___V817*/ meltfptr[816]); /*touch:INITUP_*/ - meltgc_touch(/*_.VALTUP___V760*/ meltfptr[759]); + meltgc_touch(/*_.VALTUP___V819*/ meltfptr[818]); - MELT_LOCATION("warmelt-normatch.melt:2527:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2571:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V749*/ meltfptr[748])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V808*/ meltfptr[807])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V749*/ meltfptr[748])))); - ((meltobject_ptr_t)(/*_.VALDATA___V749*/ meltfptr[748]))->obj_vartab[6] = (melt_ptr_t)( - /*_.VALTUP___V760*/ meltfptr[759]); + melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V808*/ meltfptr[807])))); + ((meltobject_ptr_t)(/*_.VALDATA___V808*/ meltfptr[807]))->obj_vartab[6] = (melt_ptr_t)( + /*_.VALTUP___V819*/ meltfptr[818]); - MELT_LOCATION("warmelt-normatch.melt:2527:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2571:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V749*/ meltfptr[748]); + meltgc_touch(/*_.VALDATA___V808*/ meltfptr[807]); + + /*putslot*/ + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V820*/ meltfptr[819])) == OBMAG_OBJECT); + + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V820*/ meltfptr[819])))); + ((meltobject_ptr_t)(/*_.VALDATA___V820*/ meltfptr[819]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V821*/ meltfptr[820]); + + /*touch:VALUEDATA_*/ + meltgc_touch(/*_.VALDATA___V820*/ meltfptr[819]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V761*/ meltfptr[760])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V822*/ meltfptr[821])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V761*/ meltfptr[760])))); - ((meltobject_ptr_t)(/*_.VALDATA___V761*/ meltfptr[760]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V762*/ meltfptr[761]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V822*/ meltfptr[821])))); + ((meltobject_ptr_t)(/*_.VALDATA___V822*/ meltfptr[821]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V823*/ meltfptr[822]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V761*/ meltfptr[760]); + meltgc_touch(/*_.VALDATA___V822*/ meltfptr[821]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V763*/ meltfptr[762])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V824*/ meltfptr[823])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V763*/ meltfptr[762])))); - ((meltobject_ptr_t)(/*_.VALDATA___V763*/ meltfptr[762]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V764*/ meltfptr[763]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V824*/ meltfptr[823])))); + ((meltobject_ptr_t)(/*_.VALDATA___V824*/ meltfptr[823]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V825*/ meltfptr[824]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V763*/ meltfptr[762]); + meltgc_touch(/*_.VALDATA___V824*/ meltfptr[823]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V765*/ meltfptr[764])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V826*/ meltfptr[825])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V765*/ meltfptr[764])))); - ((meltobject_ptr_t)(/*_.VALDATA___V765*/ meltfptr[764]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V766*/ meltfptr[765]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V826*/ meltfptr[825])))); + ((meltobject_ptr_t)(/*_.VALDATA___V826*/ meltfptr[825]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V827*/ meltfptr[826]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V765*/ meltfptr[764]); + meltgc_touch(/*_.VALDATA___V826*/ meltfptr[825]); + + MELT_LOCATION("warmelt-normatch.melt:2586:/ initchunk"); + /*^putroutconst*/ + /*putroutconst*/ + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V828*/ meltfptr[827])) == OBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_755__MAKE_MATCH_FLAG#0", NULL != (/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8])); + ((meltroutine_ptr_t)/*_.VALROUT___V828*/ meltfptr[827])->tabval[0] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8]); + + MELT_LOCATION("warmelt-normatch.melt:2586:/ initchunk"); + /*^putroutconst*/ + /*putroutconst*/ + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V828*/ meltfptr[827])) == OBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_755__MAKE_MATCH_FLAG#1", NULL != (/*_.CLASS_SOURCE_PATTERN__V13*/ meltfptr[12])); + ((meltroutine_ptr_t)/*_.VALROUT___V828*/ meltfptr[827])->tabval[1] = (melt_ptr_t)(/*_.CLASS_SOURCE_PATTERN__V13*/ meltfptr[12]); + + MELT_LOCATION("warmelt-normatch.melt:2586:/ initchunk"); + /*^putroutconstnotnull*/ + /*putroutconstnotnull*/ + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V828*/ meltfptr[827])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V554*/ meltfptr[553]); + ((meltroutine_ptr_t)/*_.VALROUT___V828*/ meltfptr[827])->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V554*/ meltfptr[553]); + + MELT_LOCATION("warmelt-normatch.melt:2586:/ initchunk"); + /*^putroutconstnotnull*/ + /*putroutconstnotnull*/ + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V828*/ meltfptr[827])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V664*/ meltfptr[663]); + ((meltroutine_ptr_t)/*_.VALROUT___V828*/ meltfptr[827])->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V664*/ meltfptr[663]); + + MELT_LOCATION("warmelt-normatch.melt:2586:/ initchunk"); + /*^putroutconst*/ + /*putroutconst*/ + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V828*/ meltfptr[827])) == OBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_755__MAKE_MATCH_FLAG#4", NULL != (/*_.DISCR_CONSTANT_INTEGER__V70*/ meltfptr[69])); + ((meltroutine_ptr_t)/*_.VALROUT___V828*/ meltfptr[827])->tabval[4] = (melt_ptr_t)(/*_.DISCR_CONSTANT_INTEGER__V70*/ meltfptr[69]); + + MELT_LOCATION("warmelt-normatch.melt:2586:/ initchunk"); + /*^touch*/ + /*touch:IROUTVAL_*/ + meltgc_touch(/*_.VALROUT___V828*/ meltfptr[827]); + + /*putclosurout*/ + melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V829*/ meltfptr[828])) == OBMAG_CLOSURE); + melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V828*/ meltfptr[827])) == OBMAG_ROUTINE); + ((meltclosure_ptr_t)/*_.VALCLO___V829*/ meltfptr[828])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V828*/ meltfptr[827]); + + /*touch:DATACLOSURE_*/ + meltgc_touch(/*_.VALCLO___V829*/ meltfptr[828]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V767*/ meltfptr[766])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V830*/ meltfptr[829])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V767*/ meltfptr[766])))); - ((meltobject_ptr_t)(/*_.VALDATA___V767*/ meltfptr[766]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V768*/ meltfptr[767]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V830*/ meltfptr[829])))); + ((meltobject_ptr_t)(/*_.VALDATA___V830*/ meltfptr[829]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V831*/ meltfptr[830]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V767*/ meltfptr[766]); + meltgc_touch(/*_.VALDATA___V830*/ meltfptr[829]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V769*/ meltfptr[768])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V832*/ meltfptr[831])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V769*/ meltfptr[768])))); - ((meltobject_ptr_t)(/*_.VALDATA___V769*/ meltfptr[768]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V770*/ meltfptr[769]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V832*/ meltfptr[831])))); + ((meltobject_ptr_t)(/*_.VALDATA___V832*/ meltfptr[831]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V833*/ meltfptr[832]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V769*/ meltfptr[768]); + meltgc_touch(/*_.VALDATA___V832*/ meltfptr[831]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V771*/ meltfptr[770])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V834*/ meltfptr[833])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V771*/ meltfptr[770])))); - ((meltobject_ptr_t)(/*_.VALDATA___V771*/ meltfptr[770]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V772*/ meltfptr[771]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V834*/ meltfptr[833])))); + ((meltobject_ptr_t)(/*_.VALDATA___V834*/ meltfptr[833]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V835*/ meltfptr[834]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V771*/ meltfptr[770]); + meltgc_touch(/*_.VALDATA___V834*/ meltfptr[833]); - MELT_LOCATION("warmelt-normatch.melt:2538:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2616:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V773*/ meltfptr[772])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V836*/ meltfptr[835])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V773*/ meltfptr[772])))); - ((meltobject_ptr_t)(/*_.VALDATA___V773*/ meltfptr[772]))->obj_vartab[0] = (melt_ptr_t)( - /*_.VALDATA___V771*/ meltfptr[770]); + melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V836*/ meltfptr[835])))); + ((meltobject_ptr_t)(/*_.VALDATA___V836*/ meltfptr[835]))->obj_vartab[0] = (melt_ptr_t)( + /*_.VALDATA___V834*/ meltfptr[833]); - MELT_LOCATION("warmelt-normatch.melt:2538:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2616:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V773*/ meltfptr[772])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V836*/ meltfptr[835])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V773*/ meltfptr[772])))); - ((meltobject_ptr_t)(/*_.VALDATA___V773*/ meltfptr[772]))->obj_vartab[1] = (melt_ptr_t)( + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V836*/ meltfptr[835])))); + ((meltobject_ptr_t)(/*_.VALDATA___V836*/ meltfptr[835]))->obj_vartab[1] = (melt_ptr_t)( ((void*)(MELT_PREDEF(CTYPE_VALUE)))); - -#undef meltfram__ -} /*end of warmelt_normatch_initialmeltchunk_5*/ - -void MELT_MODULE_VISIBILITY warmelt_normatch_initialmeltchunk_6 (struct frame_start_module_melt_st* meltframptr__, char predefinited[]) { -#define meltfram__ (*meltframptr__) -#undef meltcallcount -#define meltcallcount 0L -MELT_LOCATION("warmelt-normatch.melt:2538:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2616:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V773*/ meltfptr[772]); + meltgc_touch(/*_.VALDATA___V836*/ meltfptr[835]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V774*/ meltfptr[773])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V837*/ meltfptr[836])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V774*/ meltfptr[773])))); - ((meltobject_ptr_t)(/*_.VALDATA___V774*/ meltfptr[773]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V775*/ meltfptr[774]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V837*/ meltfptr[836])))); + ((meltobject_ptr_t)(/*_.VALDATA___V837*/ meltfptr[836]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V838*/ meltfptr[837]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V774*/ meltfptr[773]); + meltgc_touch(/*_.VALDATA___V837*/ meltfptr[836]); - MELT_LOCATION("warmelt-normatch.melt:2538:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2616:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V776*/ meltfptr[775])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V839*/ meltfptr[838])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V776*/ meltfptr[775])))); - ((meltobject_ptr_t)(/*_.VALDATA___V776*/ meltfptr[775]))->obj_vartab[0] = (melt_ptr_t)( - /*_.VALDATA___V774*/ meltfptr[773]); + melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V839*/ meltfptr[838])))); + ((meltobject_ptr_t)(/*_.VALDATA___V839*/ meltfptr[838]))->obj_vartab[0] = (melt_ptr_t)( + /*_.VALDATA___V837*/ meltfptr[836]); - MELT_LOCATION("warmelt-normatch.melt:2538:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2616:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V776*/ meltfptr[775])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V839*/ meltfptr[838])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V776*/ meltfptr[775])))); - ((meltobject_ptr_t)(/*_.VALDATA___V776*/ meltfptr[775]))->obj_vartab[1] = (melt_ptr_t)( + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V839*/ meltfptr[838])))); + ((meltobject_ptr_t)(/*_.VALDATA___V839*/ meltfptr[838]))->obj_vartab[1] = (melt_ptr_t)( ((void*)(MELT_PREDEF(CTYPE_VALUE)))); - MELT_LOCATION("warmelt-normatch.melt:2538:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2616:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V776*/ meltfptr[775]); + meltgc_touch(/*_.VALDATA___V839*/ meltfptr[838]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V777*/ meltfptr[776])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V840*/ meltfptr[839])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V777*/ meltfptr[776])))); - ((meltobject_ptr_t)(/*_.VALDATA___V777*/ meltfptr[776]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V778*/ meltfptr[777]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V840*/ meltfptr[839])))); + ((meltobject_ptr_t)(/*_.VALDATA___V840*/ meltfptr[839]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V841*/ meltfptr[840]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V777*/ meltfptr[776]); + meltgc_touch(/*_.VALDATA___V840*/ meltfptr[839]); - MELT_LOCATION("warmelt-normatch.melt:2538:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2616:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V779*/ meltfptr[778])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V842*/ meltfptr[841])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V779*/ meltfptr[778])))); - ((meltobject_ptr_t)(/*_.VALDATA___V779*/ meltfptr[778]))->obj_vartab[0] = (melt_ptr_t)( - /*_.VALDATA___V777*/ meltfptr[776]); + melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V842*/ meltfptr[841])))); + ((meltobject_ptr_t)(/*_.VALDATA___V842*/ meltfptr[841]))->obj_vartab[0] = (melt_ptr_t)( + /*_.VALDATA___V840*/ meltfptr[839]); - MELT_LOCATION("warmelt-normatch.melt:2538:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2616:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V779*/ meltfptr[778])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V842*/ meltfptr[841])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V779*/ meltfptr[778])))); - ((meltobject_ptr_t)(/*_.VALDATA___V779*/ meltfptr[778]))->obj_vartab[1] = (melt_ptr_t)( + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V842*/ meltfptr[841])))); + ((meltobject_ptr_t)(/*_.VALDATA___V842*/ meltfptr[841]))->obj_vartab[1] = (melt_ptr_t)( ((void*)(MELT_PREDEF(CTYPE_VALUE)))); - MELT_LOCATION("warmelt-normatch.melt:2538:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2616:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V779*/ meltfptr[778]); + meltgc_touch(/*_.VALDATA___V842*/ meltfptr[841]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V780*/ meltfptr[779]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V780*/ meltfptr[779])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V780*/ meltfptr[779]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V773*/ meltfptr[772]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V843*/ meltfptr[842]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V843*/ meltfptr[842])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V843*/ meltfptr[842]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V836*/ meltfptr[835]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V780*/ meltfptr[779]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V780*/ meltfptr[779])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V780*/ meltfptr[779]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V776*/ meltfptr[775]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V843*/ meltfptr[842]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V843*/ meltfptr[842])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V843*/ meltfptr[842]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V839*/ meltfptr[838]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V780*/ meltfptr[779]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V780*/ meltfptr[779])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V780*/ meltfptr[779]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V779*/ meltfptr[778]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V843*/ meltfptr[842]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V843*/ meltfptr[842])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V843*/ meltfptr[842]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V842*/ meltfptr[841]); /*touch:INITUP_*/ - meltgc_touch(/*_.VALTUP___V780*/ meltfptr[779]); + meltgc_touch(/*_.VALTUP___V843*/ meltfptr[842]); - MELT_LOCATION("warmelt-normatch.melt:2538:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2616:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V781*/ meltfptr[780])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V844*/ meltfptr[843])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V781*/ meltfptr[780])))); - ((meltobject_ptr_t)(/*_.VALDATA___V781*/ meltfptr[780]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V782*/ meltfptr[781]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V844*/ meltfptr[843])))); + ((meltobject_ptr_t)(/*_.VALDATA___V844*/ meltfptr[843]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V845*/ meltfptr[844]); - MELT_LOCATION("warmelt-normatch.melt:2538:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2616:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V781*/ meltfptr[780]); + meltgc_touch(/*_.VALDATA___V844*/ meltfptr[843]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V783*/ meltfptr[782])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V846*/ meltfptr[845])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V783*/ meltfptr[782])))); - ((meltobject_ptr_t)(/*_.VALDATA___V783*/ meltfptr[782]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V784*/ meltfptr[783]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V846*/ meltfptr[845])))); + ((meltobject_ptr_t)(/*_.VALDATA___V846*/ meltfptr[845]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V847*/ meltfptr[846]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V783*/ meltfptr[782]); + meltgc_touch(/*_.VALDATA___V846*/ meltfptr[845]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V785*/ meltfptr[784])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V848*/ meltfptr[847])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V785*/ meltfptr[784])))); - ((meltobject_ptr_t)(/*_.VALDATA___V785*/ meltfptr[784]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V786*/ meltfptr[785]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V848*/ meltfptr[847])))); + ((meltobject_ptr_t)(/*_.VALDATA___V848*/ meltfptr[847]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V849*/ meltfptr[848]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V785*/ meltfptr[784]); + meltgc_touch(/*_.VALDATA___V848*/ meltfptr[847]); - MELT_LOCATION("warmelt-normatch.melt:2544:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2622:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V787*/ meltfptr[786])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V850*/ meltfptr[849])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V787*/ meltfptr[786])))); - ((meltobject_ptr_t)(/*_.VALDATA___V787*/ meltfptr[786]))->obj_vartab[0] = (melt_ptr_t)( - /*_.VALDATA___V785*/ meltfptr[784]); + melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V850*/ meltfptr[849])))); + ((meltobject_ptr_t)(/*_.VALDATA___V850*/ meltfptr[849]))->obj_vartab[0] = (melt_ptr_t)( + /*_.VALDATA___V848*/ meltfptr[847]); - MELT_LOCATION("warmelt-normatch.melt:2544:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2622:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V787*/ meltfptr[786])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V850*/ meltfptr[849])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V787*/ meltfptr[786])))); - ((meltobject_ptr_t)(/*_.VALDATA___V787*/ meltfptr[786]))->obj_vartab[1] = (melt_ptr_t)( + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V850*/ meltfptr[849])))); + ((meltobject_ptr_t)(/*_.VALDATA___V850*/ meltfptr[849]))->obj_vartab[1] = (melt_ptr_t)( ((void*)(MELT_PREDEF(CTYPE_VALUE)))); - MELT_LOCATION("warmelt-normatch.melt:2544:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2622:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V787*/ meltfptr[786]); + meltgc_touch(/*_.VALDATA___V850*/ meltfptr[849]); - MELT_LOCATION("warmelt-normatch.melt:2544:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2622:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V788*/ meltfptr[787])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V851*/ meltfptr[850])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V788*/ meltfptr[787])))); - ((meltobject_ptr_t)(/*_.VALDATA___V788*/ meltfptr[787]))->obj_vartab[0] = (melt_ptr_t)( - /*_.VALDATA___V774*/ meltfptr[773]); + melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V851*/ meltfptr[850])))); + ((meltobject_ptr_t)(/*_.VALDATA___V851*/ meltfptr[850]))->obj_vartab[0] = (melt_ptr_t)( + /*_.VALDATA___V837*/ meltfptr[836]); - MELT_LOCATION("warmelt-normatch.melt:2544:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2622:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V788*/ meltfptr[787])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V851*/ meltfptr[850])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V788*/ meltfptr[787])))); - ((meltobject_ptr_t)(/*_.VALDATA___V788*/ meltfptr[787]))->obj_vartab[1] = (melt_ptr_t)( + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V851*/ meltfptr[850])))); + ((meltobject_ptr_t)(/*_.VALDATA___V851*/ meltfptr[850]))->obj_vartab[1] = (melt_ptr_t)( ((void*)(MELT_PREDEF(CTYPE_VALUE)))); - MELT_LOCATION("warmelt-normatch.melt:2544:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2622:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V788*/ meltfptr[787]); + meltgc_touch(/*_.VALDATA___V851*/ meltfptr[850]); - MELT_LOCATION("warmelt-normatch.melt:2544:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2622:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V789*/ meltfptr[788])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V852*/ meltfptr[851])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V789*/ meltfptr[788])))); - ((meltobject_ptr_t)(/*_.VALDATA___V789*/ meltfptr[788]))->obj_vartab[0] = (melt_ptr_t)( - /*_.VALDATA___V777*/ meltfptr[776]); + melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V852*/ meltfptr[851])))); + ((meltobject_ptr_t)(/*_.VALDATA___V852*/ meltfptr[851]))->obj_vartab[0] = (melt_ptr_t)( + /*_.VALDATA___V840*/ meltfptr[839]); - MELT_LOCATION("warmelt-normatch.melt:2544:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2622:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V789*/ meltfptr[788])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V852*/ meltfptr[851])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V789*/ meltfptr[788])))); - ((meltobject_ptr_t)(/*_.VALDATA___V789*/ meltfptr[788]))->obj_vartab[1] = (melt_ptr_t)( + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V852*/ meltfptr[851])))); + ((meltobject_ptr_t)(/*_.VALDATA___V852*/ meltfptr[851]))->obj_vartab[1] = (melt_ptr_t)( ((void*)(MELT_PREDEF(CTYPE_VALUE)))); - MELT_LOCATION("warmelt-normatch.melt:2544:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2622:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V789*/ meltfptr[788]); + meltgc_touch(/*_.VALDATA___V852*/ meltfptr[851]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V790*/ meltfptr[789]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V790*/ meltfptr[789])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V790*/ meltfptr[789]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V787*/ meltfptr[786]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V853*/ meltfptr[852]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V853*/ meltfptr[852])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V853*/ meltfptr[852]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V850*/ meltfptr[849]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V790*/ meltfptr[789]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V790*/ meltfptr[789])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V790*/ meltfptr[789]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V788*/ meltfptr[787]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V853*/ meltfptr[852]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V853*/ meltfptr[852])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V853*/ meltfptr[852]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V851*/ meltfptr[850]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V790*/ meltfptr[789]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V790*/ meltfptr[789])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V790*/ meltfptr[789]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V789*/ meltfptr[788]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V853*/ meltfptr[852]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V853*/ meltfptr[852])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V853*/ meltfptr[852]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V852*/ meltfptr[851]); /*touch:INITUP_*/ - meltgc_touch(/*_.VALTUP___V790*/ meltfptr[789]); + meltgc_touch(/*_.VALTUP___V853*/ meltfptr[852]); - MELT_LOCATION("warmelt-normatch.melt:2544:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2622:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V791*/ meltfptr[790])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V854*/ meltfptr[853])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V791*/ meltfptr[790])))); - ((meltobject_ptr_t)(/*_.VALDATA___V791*/ meltfptr[790]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V792*/ meltfptr[791]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V854*/ meltfptr[853])))); + ((meltobject_ptr_t)(/*_.VALDATA___V854*/ meltfptr[853]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V855*/ meltfptr[854]); - MELT_LOCATION("warmelt-normatch.melt:2544:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2622:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V791*/ meltfptr[790]); + meltgc_touch(/*_.VALDATA___V854*/ meltfptr[853]); - MELT_LOCATION("warmelt-normatch.melt:2549:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2627:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V793*/ meltfptr[792])) == OBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_721__SCANSUBPAT_ANYRECV#0", NULL != (/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8])); - ((meltroutine_ptr_t)/*_.VALROUT___V793*/ meltfptr[792])->tabval[0] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V856*/ meltfptr[855])) == OBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_783__SCANSUBPAT_ANYRECV#0", NULL != (/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8])); + ((meltroutine_ptr_t)/*_.VALROUT___V856*/ meltfptr[855])->tabval[0] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8]); - MELT_LOCATION("warmelt-normatch.melt:2549:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2627:/ initchunk"); /*^touch*/ /*touch:IROUTVAL_*/ - meltgc_touch(/*_.VALROUT___V793*/ meltfptr[792]); + meltgc_touch(/*_.VALROUT___V856*/ meltfptr[855]); /*putclosurout*/ - melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V794*/ meltfptr[793])) == OBMAG_CLOSURE); - melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V793*/ meltfptr[792])) == OBMAG_ROUTINE); - ((meltclosure_ptr_t)/*_.VALCLO___V794*/ meltfptr[793])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V793*/ meltfptr[792]); + melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V857*/ meltfptr[856])) == OBMAG_CLOSURE); + melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V856*/ meltfptr[855])) == OBMAG_ROUTINE); + ((meltclosure_ptr_t)/*_.VALCLO___V857*/ meltfptr[856])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V856*/ meltfptr[855]); /*touch:DATACLOSURE_*/ - meltgc_touch(/*_.VALCLO___V794*/ meltfptr[793]); + meltgc_touch(/*_.VALCLO___V857*/ meltfptr[856]); /*putclosurout*/ - melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V796*/ meltfptr[795])) == OBMAG_CLOSURE); - melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V795*/ meltfptr[794])) == OBMAG_ROUTINE); - ((meltclosure_ptr_t)/*_.VALCLO___V796*/ meltfptr[795])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V795*/ meltfptr[794]); + melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V859*/ meltfptr[858])) == OBMAG_CLOSURE); + melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V858*/ meltfptr[857])) == OBMAG_ROUTINE); + ((meltclosure_ptr_t)/*_.VALCLO___V859*/ meltfptr[858])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V858*/ meltfptr[857]); /*touch:DATACLOSURE_*/ - meltgc_touch(/*_.VALCLO___V796*/ meltfptr[795]); + meltgc_touch(/*_.VALCLO___V859*/ meltfptr[858]); /*putclosurout*/ - melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V798*/ meltfptr[797])) == OBMAG_CLOSURE); - melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V797*/ meltfptr[796])) == OBMAG_ROUTINE); - ((meltclosure_ptr_t)/*_.VALCLO___V798*/ meltfptr[797])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V797*/ meltfptr[796]); + melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V861*/ meltfptr[860])) == OBMAG_CLOSURE); + melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V860*/ meltfptr[859])) == OBMAG_ROUTINE); + ((meltclosure_ptr_t)/*_.VALCLO___V861*/ meltfptr[860])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V860*/ meltfptr[859]); /*touch:DATACLOSURE_*/ - meltgc_touch(/*_.VALCLO___V798*/ meltfptr[797]); + meltgc_touch(/*_.VALCLO___V861*/ meltfptr[860]); /*putclosurout*/ - melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V800*/ meltfptr[799])) == OBMAG_CLOSURE); - melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V799*/ meltfptr[798])) == OBMAG_ROUTINE); - ((meltclosure_ptr_t)/*_.VALCLO___V800*/ meltfptr[799])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V799*/ meltfptr[798]); + melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V863*/ meltfptr[862])) == OBMAG_CLOSURE); + melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V862*/ meltfptr[861])) == OBMAG_ROUTINE); + ((meltclosure_ptr_t)/*_.VALCLO___V863*/ meltfptr[862])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V862*/ meltfptr[861]); /*touch:DATACLOSURE_*/ - meltgc_touch(/*_.VALCLO___V800*/ meltfptr[799]); + meltgc_touch(/*_.VALCLO___V863*/ meltfptr[862]); /*putclosurout*/ - melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V802*/ meltfptr[801])) == OBMAG_CLOSURE); - melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V801*/ meltfptr[800])) == OBMAG_ROUTINE); - ((meltclosure_ptr_t)/*_.VALCLO___V802*/ meltfptr[801])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V801*/ meltfptr[800]); + melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V865*/ meltfptr[864])) == OBMAG_CLOSURE); + melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V864*/ meltfptr[863])) == OBMAG_ROUTINE); + ((meltclosure_ptr_t)/*_.VALCLO___V865*/ meltfptr[864])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V864*/ meltfptr[863]); /*touch:DATACLOSURE_*/ - meltgc_touch(/*_.VALCLO___V802*/ meltfptr[801]); + meltgc_touch(/*_.VALCLO___V865*/ meltfptr[864]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V803*/ meltfptr[802])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V866*/ meltfptr[865])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V803*/ meltfptr[802])))); - ((meltobject_ptr_t)(/*_.VALDATA___V803*/ meltfptr[802]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V804*/ meltfptr[803]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V866*/ meltfptr[865])))); + ((meltobject_ptr_t)(/*_.VALDATA___V866*/ meltfptr[865]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V867*/ meltfptr[866]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V803*/ meltfptr[802]); + meltgc_touch(/*_.VALDATA___V866*/ meltfptr[865]); - MELT_LOCATION("warmelt-normatch.melt:2588:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2666:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V805*/ meltfptr[804])) == OBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_733__SCANSUBPAT_OBJECT#0", NULL != (/*_.CLASS_SOURCE_FIELD_PATTERN__V23*/ meltfptr[22])); - ((meltroutine_ptr_t)/*_.VALROUT___V805*/ meltfptr[804])->tabval[0] = (melt_ptr_t)(/*_.CLASS_SOURCE_FIELD_PATTERN__V23*/ meltfptr[22]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V868*/ meltfptr[867])) == OBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_795__SCANSUBPAT_OBJECT#0", NULL != (/*_.CLASS_SOURCE_FIELD_PATTERN__V23*/ meltfptr[22])); + ((meltroutine_ptr_t)/*_.VALROUT___V868*/ meltfptr[867])->tabval[0] = (melt_ptr_t)(/*_.CLASS_SOURCE_FIELD_PATTERN__V23*/ meltfptr[22]); - MELT_LOCATION("warmelt-normatch.melt:2588:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2666:/ initchunk"); /*^touch*/ /*touch:IROUTVAL_*/ - meltgc_touch(/*_.VALROUT___V805*/ meltfptr[804]); + meltgc_touch(/*_.VALROUT___V868*/ meltfptr[867]); /*putclosurout*/ - melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V806*/ meltfptr[805])) == OBMAG_CLOSURE); - melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V805*/ meltfptr[804])) == OBMAG_ROUTINE); - ((meltclosure_ptr_t)/*_.VALCLO___V806*/ meltfptr[805])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V805*/ meltfptr[804]); + melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V869*/ meltfptr[868])) == OBMAG_CLOSURE); + melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V868*/ meltfptr[867])) == OBMAG_ROUTINE); + ((meltclosure_ptr_t)/*_.VALCLO___V869*/ meltfptr[868])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V868*/ meltfptr[867]); /*touch:DATACLOSURE_*/ - meltgc_touch(/*_.VALCLO___V806*/ meltfptr[805]); + meltgc_touch(/*_.VALCLO___V869*/ meltfptr[868]); /*putclosurout*/ - melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V808*/ meltfptr[807])) == OBMAG_CLOSURE); - melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V807*/ meltfptr[806])) == OBMAG_ROUTINE); - ((meltclosure_ptr_t)/*_.VALCLO___V808*/ meltfptr[807])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V807*/ meltfptr[806]); + melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V871*/ meltfptr[870])) == OBMAG_CLOSURE); + melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V870*/ meltfptr[869])) == OBMAG_ROUTINE); + ((meltclosure_ptr_t)/*_.VALCLO___V871*/ meltfptr[870])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V870*/ meltfptr[869]); /*touch:DATACLOSURE_*/ - meltgc_touch(/*_.VALCLO___V808*/ meltfptr[807]); + meltgc_touch(/*_.VALCLO___V871*/ meltfptr[870]); - MELT_LOCATION("warmelt-normatch.melt:2606:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2684:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V809*/ meltfptr[808])) == OBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_737__FILL_MATCHCASE#0", NULL != (/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8])); - ((meltroutine_ptr_t)/*_.VALROUT___V809*/ meltfptr[808])->tabval[0] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V872*/ meltfptr[871])) == OBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_799__FILL_MATCHCASE#0", NULL != (/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8])); + ((meltroutine_ptr_t)/*_.VALROUT___V872*/ meltfptr[871])->tabval[0] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8]); - MELT_LOCATION("warmelt-normatch.melt:2606:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2684:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V809*/ meltfptr[808])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V587*/ meltfptr[586]); - ((meltroutine_ptr_t)/*_.VALROUT___V809*/ meltfptr[808])->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V587*/ meltfptr[586]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V872*/ meltfptr[871])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V592*/ meltfptr[591]); + ((meltroutine_ptr_t)/*_.VALROUT___V872*/ meltfptr[871])->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V592*/ meltfptr[591]); - MELT_LOCATION("warmelt-normatch.melt:2606:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2684:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V809*/ meltfptr[808])) == OBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_737__FILL_MATCHCASE#2", NULL != (/*_.DISCR_MAP_OBJECTS__V31*/ meltfptr[30])); - ((meltroutine_ptr_t)/*_.VALROUT___V809*/ meltfptr[808])->tabval[2] = (melt_ptr_t)(/*_.DISCR_MAP_OBJECTS__V31*/ meltfptr[30]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V872*/ meltfptr[871])) == OBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_799__FILL_MATCHCASE#2", NULL != (/*_.DISCR_MAP_OBJECTS__V31*/ meltfptr[30])); + ((meltroutine_ptr_t)/*_.VALROUT___V872*/ meltfptr[871])->tabval[2] = (melt_ptr_t)(/*_.DISCR_MAP_OBJECTS__V31*/ meltfptr[30]); - MELT_LOCATION("warmelt-normatch.melt:2606:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2684:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V809*/ meltfptr[808])) == OBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_737__FILL_MATCHCASE#3", NULL != (/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8])); - ((meltroutine_ptr_t)/*_.VALROUT___V809*/ meltfptr[808])->tabval[3] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V872*/ meltfptr[871])) == OBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_799__FILL_MATCHCASE#3", NULL != (/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8])); + ((meltroutine_ptr_t)/*_.VALROUT___V872*/ meltfptr[871])->tabval[3] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8]); - MELT_LOCATION("warmelt-normatch.melt:2606:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2684:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V809*/ meltfptr[808])) == OBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_737__FILL_MATCHCASE#4", NULL != (/*_.CLASS_SOURCE_PATTERN_VARIABLE__V14*/ meltfptr[13])); - ((meltroutine_ptr_t)/*_.VALROUT___V809*/ meltfptr[808])->tabval[4] = (melt_ptr_t)(/*_.CLASS_SOURCE_PATTERN_VARIABLE__V14*/ meltfptr[13]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V872*/ meltfptr[871])) == OBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_799__FILL_MATCHCASE#4", NULL != (/*_.CLASS_SOURCE_PATTERN_VARIABLE__V14*/ meltfptr[13])); + ((meltroutine_ptr_t)/*_.VALROUT___V872*/ meltfptr[871])->tabval[4] = (melt_ptr_t)(/*_.CLASS_SOURCE_PATTERN_VARIABLE__V14*/ meltfptr[13]); - MELT_LOCATION("warmelt-normatch.melt:2606:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2684:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V809*/ meltfptr[808])) == OBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_737__FILL_MATCHCASE#5", NULL != (/*_.DISCR_LIST__V36*/ meltfptr[35])); - ((meltroutine_ptr_t)/*_.VALROUT___V809*/ meltfptr[808])->tabval[5] = (melt_ptr_t)(/*_.DISCR_LIST__V36*/ meltfptr[35]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V872*/ meltfptr[871])) == OBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_799__FILL_MATCHCASE#5", NULL != (/*_.DISCR_LIST__V36*/ meltfptr[35])); + ((meltroutine_ptr_t)/*_.VALROUT___V872*/ meltfptr[871])->tabval[5] = (melt_ptr_t)(/*_.DISCR_LIST__V36*/ meltfptr[35]); - MELT_LOCATION("warmelt-normatch.melt:2616:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2694:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V810*/ meltfptr[809])) == OBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_739__LAMBDA_#0", NULL != (/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8])); - ((meltroutine_ptr_t)/*_.VALROUT___V810*/ meltfptr[809])->tabval[0] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V873*/ meltfptr[872])) == OBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_801__LAMBDA_#0", NULL != (/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8])); + ((meltroutine_ptr_t)/*_.VALROUT___V873*/ meltfptr[872])->tabval[0] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8]); - MELT_LOCATION("warmelt-normatch.melt:2616:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2694:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V810*/ meltfptr[809])) == OBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_739__LAMBDA_#1", NULL != (/*_.CLASS_SOURCE_PATTERN_VARIABLE__V14*/ meltfptr[13])); - ((meltroutine_ptr_t)/*_.VALROUT___V810*/ meltfptr[809])->tabval[1] = (melt_ptr_t)(/*_.CLASS_SOURCE_PATTERN_VARIABLE__V14*/ meltfptr[13]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V873*/ meltfptr[872])) == OBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_801__LAMBDA_#1", NULL != (/*_.CLASS_SOURCE_PATTERN_VARIABLE__V14*/ meltfptr[13])); + ((meltroutine_ptr_t)/*_.VALROUT___V873*/ meltfptr[872])->tabval[1] = (melt_ptr_t)(/*_.CLASS_SOURCE_PATTERN_VARIABLE__V14*/ meltfptr[13]); - MELT_LOCATION("warmelt-normatch.melt:2616:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2694:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V810*/ meltfptr[809])) == OBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_739__LAMBDA_#2", NULL != (/*_.DISCR_LIST__V36*/ meltfptr[35])); - ((meltroutine_ptr_t)/*_.VALROUT___V810*/ meltfptr[809])->tabval[2] = (melt_ptr_t)(/*_.DISCR_LIST__V36*/ meltfptr[35]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V873*/ meltfptr[872])) == OBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_801__LAMBDA_#2", NULL != (/*_.DISCR_LIST__V36*/ meltfptr[35])); + ((meltroutine_ptr_t)/*_.VALROUT___V873*/ meltfptr[872])->tabval[2] = (melt_ptr_t)(/*_.DISCR_LIST__V36*/ meltfptr[35]); - MELT_LOCATION("warmelt-normatch.melt:2616:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2694:/ initchunk"); /*^touch*/ /*touch:IROUTVAL_*/ - meltgc_touch(/*_.VALROUT___V810*/ meltfptr[809]); + meltgc_touch(/*_.VALROUT___V873*/ meltfptr[872]); - MELT_LOCATION("warmelt-normatch.melt:2606:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2684:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V809*/ meltfptr[808])) == OBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_737__FILL_MATCHCASE#6", NULL != (/*_.VALROUT___V810*/ meltfptr[809])); - ((meltroutine_ptr_t)/*_.VALROUT___V809*/ meltfptr[808])->tabval[6] = (melt_ptr_t)(/*_.VALROUT___V810*/ meltfptr[809]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V872*/ meltfptr[871])) == OBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_799__FILL_MATCHCASE#6", NULL != (/*_.VALROUT___V873*/ meltfptr[872])); + ((meltroutine_ptr_t)/*_.VALROUT___V872*/ meltfptr[871])->tabval[6] = (melt_ptr_t)(/*_.VALROUT___V873*/ meltfptr[872]); - MELT_LOCATION("warmelt-normatch.melt:2606:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2684:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V809*/ meltfptr[808])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V781*/ meltfptr[780]); - ((meltroutine_ptr_t)/*_.VALROUT___V809*/ meltfptr[808])->tabval[7] = (melt_ptr_t)(/*_.VALDATA___V781*/ meltfptr[780]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V872*/ meltfptr[871])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V844*/ meltfptr[843]); + ((meltroutine_ptr_t)/*_.VALROUT___V872*/ meltfptr[871])->tabval[7] = (melt_ptr_t)(/*_.VALDATA___V844*/ meltfptr[843]); - MELT_LOCATION("warmelt-normatch.melt:2606:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2684:/ initchunk"); /*^touch*/ /*touch:IROUTVAL_*/ - meltgc_touch(/*_.VALROUT___V809*/ meltfptr[808]); + meltgc_touch(/*_.VALROUT___V872*/ meltfptr[871]); /*putclosurout*/ - melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V811*/ meltfptr[810])) == OBMAG_CLOSURE); - melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V809*/ meltfptr[808])) == OBMAG_ROUTINE); - ((meltclosure_ptr_t)/*_.VALCLO___V811*/ meltfptr[810])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V809*/ meltfptr[808]); + melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V874*/ meltfptr[873])) == OBMAG_CLOSURE); + melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V872*/ meltfptr[871])) == OBMAG_ROUTINE); + ((meltclosure_ptr_t)/*_.VALCLO___V874*/ meltfptr[873])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V872*/ meltfptr[871]); /*touch:DATACLOSURE_*/ - meltgc_touch(/*_.VALCLO___V811*/ meltfptr[810]); + meltgc_touch(/*_.VALCLO___V874*/ meltfptr[873]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V812*/ meltfptr[811])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V875*/ meltfptr[874])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V812*/ meltfptr[811])))); - ((meltobject_ptr_t)(/*_.VALDATA___V812*/ meltfptr[811]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V813*/ meltfptr[812]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V875*/ meltfptr[874])))); + ((meltobject_ptr_t)(/*_.VALDATA___V875*/ meltfptr[874]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V876*/ meltfptr[875]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V812*/ meltfptr[811]); + meltgc_touch(/*_.VALDATA___V875*/ meltfptr[874]); - MELT_LOCATION("warmelt-normatch.melt:2641:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2719:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V814*/ meltfptr[813])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V877*/ meltfptr[876])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V814*/ meltfptr[813])))); - ((meltobject_ptr_t)(/*_.VALDATA___V814*/ meltfptr[813]))->obj_vartab[0] = (melt_ptr_t)( - /*_.VALDATA___V771*/ meltfptr[770]); + melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V877*/ meltfptr[876])))); + ((meltobject_ptr_t)(/*_.VALDATA___V877*/ meltfptr[876]))->obj_vartab[0] = (melt_ptr_t)( + /*_.VALDATA___V834*/ meltfptr[833]); - MELT_LOCATION("warmelt-normatch.melt:2641:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2719:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V814*/ meltfptr[813])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V877*/ meltfptr[876])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V814*/ meltfptr[813])))); - ((meltobject_ptr_t)(/*_.VALDATA___V814*/ meltfptr[813]))->obj_vartab[1] = (melt_ptr_t)( + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V877*/ meltfptr[876])))); + ((meltobject_ptr_t)(/*_.VALDATA___V877*/ meltfptr[876]))->obj_vartab[1] = (melt_ptr_t)( ((void*)(MELT_PREDEF(CTYPE_VALUE)))); - MELT_LOCATION("warmelt-normatch.melt:2641:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2719:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V814*/ meltfptr[813]); + meltgc_touch(/*_.VALDATA___V877*/ meltfptr[876]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V815*/ meltfptr[814])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V878*/ meltfptr[877])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V815*/ meltfptr[814])))); - ((meltobject_ptr_t)(/*_.VALDATA___V815*/ meltfptr[814]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V816*/ meltfptr[815]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V878*/ meltfptr[877])))); + ((meltobject_ptr_t)(/*_.VALDATA___V878*/ meltfptr[877]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V879*/ meltfptr[878]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V815*/ meltfptr[814]); + meltgc_touch(/*_.VALDATA___V878*/ meltfptr[877]); - MELT_LOCATION("warmelt-normatch.melt:2641:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2719:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V817*/ meltfptr[816])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V880*/ meltfptr[879])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V817*/ meltfptr[816])))); - ((meltobject_ptr_t)(/*_.VALDATA___V817*/ meltfptr[816]))->obj_vartab[0] = (melt_ptr_t)( - /*_.VALDATA___V815*/ meltfptr[814]); + melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V880*/ meltfptr[879])))); + ((meltobject_ptr_t)(/*_.VALDATA___V880*/ meltfptr[879]))->obj_vartab[0] = (melt_ptr_t)( + /*_.VALDATA___V878*/ meltfptr[877]); - MELT_LOCATION("warmelt-normatch.melt:2641:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2719:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V817*/ meltfptr[816])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V880*/ meltfptr[879])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V817*/ meltfptr[816])))); - ((meltobject_ptr_t)(/*_.VALDATA___V817*/ meltfptr[816]))->obj_vartab[1] = (melt_ptr_t)( + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V880*/ meltfptr[879])))); + ((meltobject_ptr_t)(/*_.VALDATA___V880*/ meltfptr[879]))->obj_vartab[1] = (melt_ptr_t)( ((void*)(MELT_PREDEF(CTYPE_VALUE)))); - MELT_LOCATION("warmelt-normatch.melt:2641:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2719:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V817*/ meltfptr[816]); + meltgc_touch(/*_.VALDATA___V880*/ meltfptr[879]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V818*/ meltfptr[817]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V818*/ meltfptr[817])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V818*/ meltfptr[817]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V814*/ meltfptr[813]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V881*/ meltfptr[880]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V881*/ meltfptr[880])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V881*/ meltfptr[880]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V877*/ meltfptr[876]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V818*/ meltfptr[817]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V818*/ meltfptr[817])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V818*/ meltfptr[817]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V817*/ meltfptr[816]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V881*/ meltfptr[880]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V881*/ meltfptr[880])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V881*/ meltfptr[880]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V880*/ meltfptr[879]); /*touch:INITUP_*/ - meltgc_touch(/*_.VALTUP___V818*/ meltfptr[817]); + meltgc_touch(/*_.VALTUP___V881*/ meltfptr[880]); - MELT_LOCATION("warmelt-normatch.melt:2641:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2719:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V819*/ meltfptr[818])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V882*/ meltfptr[881])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V819*/ meltfptr[818])))); - ((meltobject_ptr_t)(/*_.VALDATA___V819*/ meltfptr[818]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V820*/ meltfptr[819]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V882*/ meltfptr[881])))); + ((meltobject_ptr_t)(/*_.VALDATA___V882*/ meltfptr[881]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V883*/ meltfptr[882]); - MELT_LOCATION("warmelt-normatch.melt:2641:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2719:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V819*/ meltfptr[818]); + meltgc_touch(/*_.VALDATA___V882*/ meltfptr[881]); - MELT_LOCATION("warmelt-normatch.melt:2646:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2724:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V821*/ meltfptr[820])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V717*/ meltfptr[716]); - ((meltroutine_ptr_t)/*_.VALROUT___V821*/ meltfptr[820])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V717*/ meltfptr[716]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V884*/ meltfptr[883])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V776*/ meltfptr[775]); + ((meltroutine_ptr_t)/*_.VALROUT___V884*/ meltfptr[883])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V776*/ meltfptr[775]); - MELT_LOCATION("warmelt-normatch.melt:2646:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2724:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V821*/ meltfptr[820])) == OBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_749__START_STEP#1", NULL != (/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8])); - ((meltroutine_ptr_t)/*_.VALROUT___V821*/ meltfptr[820])->tabval[1] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V884*/ meltfptr[883])) == OBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_811__START_STEP#1", NULL != (/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8])); + ((meltroutine_ptr_t)/*_.VALROUT___V884*/ meltfptr[883])->tabval[1] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8]); - MELT_LOCATION("warmelt-normatch.melt:2646:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2724:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V821*/ meltfptr[820])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V649*/ meltfptr[648]); - ((meltroutine_ptr_t)/*_.VALROUT___V821*/ meltfptr[820])->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V649*/ meltfptr[648]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V884*/ meltfptr[883])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V654*/ meltfptr[653]); + ((meltroutine_ptr_t)/*_.VALROUT___V884*/ meltfptr[883])->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V654*/ meltfptr[653]); - MELT_LOCATION("warmelt-normatch.melt:2646:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2724:/ initchunk"); /*^touch*/ /*touch:IROUTVAL_*/ - meltgc_touch(/*_.VALROUT___V821*/ meltfptr[820]); + meltgc_touch(/*_.VALROUT___V884*/ meltfptr[883]); /*putclosurout*/ - melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V822*/ meltfptr[821])) == OBMAG_CLOSURE); - melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V821*/ meltfptr[820])) == OBMAG_ROUTINE); - ((meltclosure_ptr_t)/*_.VALCLO___V822*/ meltfptr[821])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V821*/ meltfptr[820]); + melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V885*/ meltfptr[884])) == OBMAG_CLOSURE); + melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V884*/ meltfptr[883])) == OBMAG_ROUTINE); + ((meltclosure_ptr_t)/*_.VALCLO___V885*/ meltfptr[884])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V884*/ meltfptr[883]); /*touch:DATACLOSURE_*/ - meltgc_touch(/*_.VALCLO___V822*/ meltfptr[821]); + meltgc_touch(/*_.VALCLO___V885*/ meltfptr[884]); - MELT_LOCATION("warmelt-normatch.melt:2663:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2741:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V823*/ meltfptr[822])) == OBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_751__PUTTHEN_MATCHTHEN#0", NULL != (/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8])); - ((meltroutine_ptr_t)/*_.VALROUT___V823*/ meltfptr[822])->tabval[0] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V886*/ meltfptr[885])) == OBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_813__PUTTHEN_MATCHTHEN#0", NULL != (/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8])); + ((meltroutine_ptr_t)/*_.VALROUT___V886*/ meltfptr[885])->tabval[0] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8]); - MELT_LOCATION("warmelt-normatch.melt:2663:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2741:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V823*/ meltfptr[822])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V659*/ meltfptr[658]); - ((meltroutine_ptr_t)/*_.VALROUT___V823*/ meltfptr[822])->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V659*/ meltfptr[658]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V886*/ meltfptr[885])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V686*/ meltfptr[685]); + ((meltroutine_ptr_t)/*_.VALROUT___V886*/ meltfptr[885])->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V686*/ meltfptr[685]); - MELT_LOCATION("warmelt-normatch.melt:2663:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2741:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V823*/ meltfptr[822])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V649*/ meltfptr[648]); - ((meltroutine_ptr_t)/*_.VALROUT___V823*/ meltfptr[822])->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V649*/ meltfptr[648]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V886*/ meltfptr[885])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V654*/ meltfptr[653]); + ((meltroutine_ptr_t)/*_.VALROUT___V886*/ meltfptr[885])->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V654*/ meltfptr[653]); - MELT_LOCATION("warmelt-normatch.melt:2663:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2741:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V823*/ meltfptr[822])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V822*/ meltfptr[821]); - ((meltroutine_ptr_t)/*_.VALROUT___V823*/ meltfptr[822])->tabval[3] = (melt_ptr_t)(/*_.VALCLO___V822*/ meltfptr[821]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V886*/ meltfptr[885])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V885*/ meltfptr[884]); + ((meltroutine_ptr_t)/*_.VALROUT___V886*/ meltfptr[885])->tabval[3] = (melt_ptr_t)(/*_.VALCLO___V885*/ meltfptr[884]); - MELT_LOCATION("warmelt-normatch.melt:2663:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2741:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V823*/ meltfptr[822])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V819*/ meltfptr[818]); - ((meltroutine_ptr_t)/*_.VALROUT___V823*/ meltfptr[822])->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V819*/ meltfptr[818]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V886*/ meltfptr[885])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V882*/ meltfptr[881]); + ((meltroutine_ptr_t)/*_.VALROUT___V886*/ meltfptr[885])->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V882*/ meltfptr[881]); - MELT_LOCATION("warmelt-normatch.melt:2663:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2741:/ initchunk"); /*^touch*/ /*touch:IROUTVAL_*/ - meltgc_touch(/*_.VALROUT___V823*/ meltfptr[822]); + meltgc_touch(/*_.VALROUT___V886*/ meltfptr[885]); /*putclosurout*/ - melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V824*/ meltfptr[823])) == OBMAG_CLOSURE); - melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V823*/ meltfptr[822])) == OBMAG_ROUTINE); - ((meltclosure_ptr_t)/*_.VALCLO___V824*/ meltfptr[823])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V823*/ meltfptr[822]); + melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V887*/ meltfptr[886])) == OBMAG_CLOSURE); + melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V886*/ meltfptr[885])) == OBMAG_ROUTINE); + ((meltclosure_ptr_t)/*_.VALCLO___V887*/ meltfptr[886])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V886*/ meltfptr[885]); /*touch:DATACLOSURE_*/ - meltgc_touch(/*_.VALCLO___V824*/ meltfptr[823]); + meltgc_touch(/*_.VALCLO___V887*/ meltfptr[886]); - MELT_LOCATION("warmelt-normatch.melt:2681:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2759:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V825*/ meltfptr[824])) == OBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_753__PUTTHEN_MATCHGROUP#0", NULL != (/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8])); - ((meltroutine_ptr_t)/*_.VALROUT___V825*/ meltfptr[824])->tabval[0] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V888*/ meltfptr[887])) == OBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_815__PUTTHEN_MATCHGROUP#0", NULL != (/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8])); + ((meltroutine_ptr_t)/*_.VALROUT___V888*/ meltfptr[887])->tabval[0] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8]); - MELT_LOCATION("warmelt-normatch.melt:2681:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2759:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V825*/ meltfptr[824])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V717*/ meltfptr[716]); - ((meltroutine_ptr_t)/*_.VALROUT___V825*/ meltfptr[824])->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V717*/ meltfptr[716]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V888*/ meltfptr[887])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V776*/ meltfptr[775]); + ((meltroutine_ptr_t)/*_.VALROUT___V888*/ meltfptr[887])->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V776*/ meltfptr[775]); - MELT_LOCATION("warmelt-normatch.melt:2681:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2759:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V825*/ meltfptr[824])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V649*/ meltfptr[648]); - ((meltroutine_ptr_t)/*_.VALROUT___V825*/ meltfptr[824])->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V649*/ meltfptr[648]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V888*/ meltfptr[887])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V654*/ meltfptr[653]); + ((meltroutine_ptr_t)/*_.VALROUT___V888*/ meltfptr[887])->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V654*/ meltfptr[653]); - MELT_LOCATION("warmelt-normatch.melt:2681:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2759:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V825*/ meltfptr[824])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V824*/ meltfptr[823]); - ((meltroutine_ptr_t)/*_.VALROUT___V825*/ meltfptr[824])->tabval[3] = (melt_ptr_t)(/*_.VALCLO___V824*/ meltfptr[823]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V888*/ meltfptr[887])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V887*/ meltfptr[886]); + ((meltroutine_ptr_t)/*_.VALROUT___V888*/ meltfptr[887])->tabval[3] = (melt_ptr_t)(/*_.VALCLO___V887*/ meltfptr[886]); - MELT_LOCATION("warmelt-normatch.melt:2681:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2759:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V825*/ meltfptr[824])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V819*/ meltfptr[818]); - ((meltroutine_ptr_t)/*_.VALROUT___V825*/ meltfptr[824])->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V819*/ meltfptr[818]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V888*/ meltfptr[887])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V882*/ meltfptr[881]); + ((meltroutine_ptr_t)/*_.VALROUT___V888*/ meltfptr[887])->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V882*/ meltfptr[881]); - MELT_LOCATION("warmelt-normatch.melt:2681:/ initchunk"); + +#undef meltfram__ +} /*end of warmelt_normatch_initialmeltchunk_6*/ + +void MELT_MODULE_VISIBILITY warmelt_normatch_initialmeltchunk_7 (struct frame_start_module_melt_st* meltframptr__, char predefinited[]) { +#define meltfram__ (*meltframptr__) +#undef meltcallcount +#define meltcallcount 0L +MELT_LOCATION("warmelt-normatch.melt:2759:/ initchunk"); /*^touch*/ /*touch:IROUTVAL_*/ - meltgc_touch(/*_.VALROUT___V825*/ meltfptr[824]); + meltgc_touch(/*_.VALROUT___V888*/ meltfptr[887]); /*putclosurout*/ - melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V826*/ meltfptr[825])) == OBMAG_CLOSURE); - melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V825*/ meltfptr[824])) == OBMAG_ROUTINE); - ((meltclosure_ptr_t)/*_.VALCLO___V826*/ meltfptr[825])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V825*/ meltfptr[824]); + melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V889*/ meltfptr[888])) == OBMAG_CLOSURE); + melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V888*/ meltfptr[887])) == OBMAG_ROUTINE); + ((meltclosure_ptr_t)/*_.VALCLO___V889*/ meltfptr[888])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V888*/ meltfptr[887]); /*touch:DATACLOSURE_*/ - meltgc_touch(/*_.VALCLO___V826*/ meltfptr[825]); + meltgc_touch(/*_.VALCLO___V889*/ meltfptr[888]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V827*/ meltfptr[826])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V890*/ meltfptr[889])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V827*/ meltfptr[826])))); - ((meltobject_ptr_t)(/*_.VALDATA___V827*/ meltfptr[826]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V828*/ meltfptr[827]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V890*/ meltfptr[889])))); + ((meltobject_ptr_t)(/*_.VALDATA___V890*/ meltfptr[889]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V891*/ meltfptr[890]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V827*/ meltfptr[826]); + meltgc_touch(/*_.VALDATA___V890*/ meltfptr[889]); - MELT_LOCATION("warmelt-normatch.melt:2709:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2787:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V829*/ meltfptr[828])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V892*/ meltfptr[891])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V829*/ meltfptr[828])))); - ((meltobject_ptr_t)(/*_.VALDATA___V829*/ meltfptr[828]))->obj_vartab[0] = (melt_ptr_t)( - /*_.VALDATA___V771*/ meltfptr[770]); + melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V892*/ meltfptr[891])))); + ((meltobject_ptr_t)(/*_.VALDATA___V892*/ meltfptr[891]))->obj_vartab[0] = (melt_ptr_t)( + /*_.VALDATA___V834*/ meltfptr[833]); - MELT_LOCATION("warmelt-normatch.melt:2709:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2787:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V829*/ meltfptr[828])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V892*/ meltfptr[891])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V829*/ meltfptr[828])))); - ((meltobject_ptr_t)(/*_.VALDATA___V829*/ meltfptr[828]))->obj_vartab[1] = (melt_ptr_t)( + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V892*/ meltfptr[891])))); + ((meltobject_ptr_t)(/*_.VALDATA___V892*/ meltfptr[891]))->obj_vartab[1] = (melt_ptr_t)( ((void*)(MELT_PREDEF(CTYPE_VALUE)))); - MELT_LOCATION("warmelt-normatch.melt:2709:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2787:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V829*/ meltfptr[828]); + meltgc_touch(/*_.VALDATA___V892*/ meltfptr[891]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V830*/ meltfptr[829])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V893*/ meltfptr[892])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V830*/ meltfptr[829])))); - ((meltobject_ptr_t)(/*_.VALDATA___V830*/ meltfptr[829]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V831*/ meltfptr[830]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V893*/ meltfptr[892])))); + ((meltobject_ptr_t)(/*_.VALDATA___V893*/ meltfptr[892]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V894*/ meltfptr[893]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V830*/ meltfptr[829]); + meltgc_touch(/*_.VALDATA___V893*/ meltfptr[892]); - MELT_LOCATION("warmelt-normatch.melt:2709:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2787:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V832*/ meltfptr[831])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V895*/ meltfptr[894])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V832*/ meltfptr[831])))); - ((meltobject_ptr_t)(/*_.VALDATA___V832*/ meltfptr[831]))->obj_vartab[0] = (melt_ptr_t)( - /*_.VALDATA___V830*/ meltfptr[829]); + melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V895*/ meltfptr[894])))); + ((meltobject_ptr_t)(/*_.VALDATA___V895*/ meltfptr[894]))->obj_vartab[0] = (melt_ptr_t)( + /*_.VALDATA___V893*/ meltfptr[892]); - MELT_LOCATION("warmelt-normatch.melt:2709:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2787:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V832*/ meltfptr[831])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V895*/ meltfptr[894])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V832*/ meltfptr[831])))); - ((meltobject_ptr_t)(/*_.VALDATA___V832*/ meltfptr[831]))->obj_vartab[1] = (melt_ptr_t)( + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V895*/ meltfptr[894])))); + ((meltobject_ptr_t)(/*_.VALDATA___V895*/ meltfptr[894]))->obj_vartab[1] = (melt_ptr_t)( ((void*)(MELT_PREDEF(CTYPE_VALUE)))); - MELT_LOCATION("warmelt-normatch.melt:2709:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2787:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V832*/ meltfptr[831]); + meltgc_touch(/*_.VALDATA___V895*/ meltfptr[894]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V833*/ meltfptr[832]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V833*/ meltfptr[832])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V833*/ meltfptr[832]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V829*/ meltfptr[828]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V896*/ meltfptr[895]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V896*/ meltfptr[895])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V896*/ meltfptr[895]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V892*/ meltfptr[891]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V833*/ meltfptr[832]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V833*/ meltfptr[832])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V833*/ meltfptr[832]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V832*/ meltfptr[831]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V896*/ meltfptr[895]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V896*/ meltfptr[895])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V896*/ meltfptr[895]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V895*/ meltfptr[894]); /*touch:INITUP_*/ - meltgc_touch(/*_.VALTUP___V833*/ meltfptr[832]); + meltgc_touch(/*_.VALTUP___V896*/ meltfptr[895]); - MELT_LOCATION("warmelt-normatch.melt:2709:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2787:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V834*/ meltfptr[833])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V897*/ meltfptr[896])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V834*/ meltfptr[833])))); - ((meltobject_ptr_t)(/*_.VALDATA___V834*/ meltfptr[833]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V835*/ meltfptr[834]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V897*/ meltfptr[896])))); + ((meltobject_ptr_t)(/*_.VALDATA___V897*/ meltfptr[896]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V898*/ meltfptr[897]); - MELT_LOCATION("warmelt-normatch.melt:2709:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2787:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V834*/ meltfptr[833]); + meltgc_touch(/*_.VALDATA___V897*/ meltfptr[896]); + + MELT_LOCATION("warmelt-normatch.melt:2793:/ initchunk"); + /*^putroutconst*/ + /*putroutconst*/ + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V899*/ meltfptr[898])) == OBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_826__PUTELSE_MATCHSTEPTHEN#0", NULL != (/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8])); + ((meltroutine_ptr_t)/*_.VALROUT___V899*/ meltfptr[898])->tabval[0] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8]); + + MELT_LOCATION("warmelt-normatch.melt:2793:/ initchunk"); + /*^putroutconstnotnull*/ + /*putroutconstnotnull*/ + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V899*/ meltfptr[898])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V686*/ meltfptr[685]); + ((meltroutine_ptr_t)/*_.VALROUT___V899*/ meltfptr[898])->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V686*/ meltfptr[685]); + + MELT_LOCATION("warmelt-normatch.melt:2793:/ initchunk"); + /*^putroutconstnotnull*/ + /*putroutconstnotnull*/ + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V899*/ meltfptr[898])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V654*/ meltfptr[653]); + ((meltroutine_ptr_t)/*_.VALROUT___V899*/ meltfptr[898])->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V654*/ meltfptr[653]); + + MELT_LOCATION("warmelt-normatch.melt:2793:/ initchunk"); + /*^putroutconstnotnull*/ + /*putroutconstnotnull*/ + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V899*/ meltfptr[898])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V897*/ meltfptr[896]); + ((meltroutine_ptr_t)/*_.VALROUT___V899*/ meltfptr[898])->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V897*/ meltfptr[896]); + + MELT_LOCATION("warmelt-normatch.melt:2793:/ initchunk"); + /*^touch*/ + /*touch:IROUTVAL_*/ + meltgc_touch(/*_.VALROUT___V899*/ meltfptr[898]); + + /*putclosurout*/ + melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V900*/ meltfptr[899])) == OBMAG_CLOSURE); + melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V899*/ meltfptr[898])) == OBMAG_ROUTINE); + ((meltclosure_ptr_t)/*_.VALCLO___V900*/ meltfptr[899])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V899*/ meltfptr[898]); - MELT_LOCATION("warmelt-normatch.melt:2714:/ initchunk"); + /*touch:DATACLOSURE_*/ + meltgc_touch(/*_.VALCLO___V900*/ meltfptr[899]); + + MELT_LOCATION("warmelt-normatch.melt:2810:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V836*/ meltfptr[835])) == OBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_764__PUTELSE_MATCHTEST#0", NULL != (/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8])); - ((meltroutine_ptr_t)/*_.VALROUT___V836*/ meltfptr[835])->tabval[0] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V901*/ meltfptr[900])) == OBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_828__PUTELSE_MATCHTEST#0", NULL != (/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8])); + ((meltroutine_ptr_t)/*_.VALROUT___V901*/ meltfptr[900])->tabval[0] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8]); + + MELT_LOCATION("warmelt-normatch.melt:2810:/ initchunk"); + /*^putroutconstnotnull*/ + /*putroutconstnotnull*/ + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V901*/ meltfptr[900])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V756*/ meltfptr[755]); + ((meltroutine_ptr_t)/*_.VALROUT___V901*/ meltfptr[900])->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V756*/ meltfptr[755]); + + MELT_LOCATION("warmelt-normatch.melt:2810:/ initchunk"); + /*^putroutconstnotnull*/ + /*putroutconstnotnull*/ + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V901*/ meltfptr[900])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V654*/ meltfptr[653]); + ((meltroutine_ptr_t)/*_.VALROUT___V901*/ meltfptr[900])->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V654*/ meltfptr[653]); - MELT_LOCATION("warmelt-normatch.melt:2714:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2810:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V836*/ meltfptr[835])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V697*/ meltfptr[696]); - ((meltroutine_ptr_t)/*_.VALROUT___V836*/ meltfptr[835])->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V697*/ meltfptr[696]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V901*/ meltfptr[900])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V885*/ meltfptr[884]); + ((meltroutine_ptr_t)/*_.VALROUT___V901*/ meltfptr[900])->tabval[3] = (melt_ptr_t)(/*_.VALCLO___V885*/ meltfptr[884]); - MELT_LOCATION("warmelt-normatch.melt:2714:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2810:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V836*/ meltfptr[835])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V649*/ meltfptr[648]); - ((meltroutine_ptr_t)/*_.VALROUT___V836*/ meltfptr[835])->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V649*/ meltfptr[648]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V901*/ meltfptr[900])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V882*/ meltfptr[881]); + ((meltroutine_ptr_t)/*_.VALROUT___V901*/ meltfptr[900])->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V882*/ meltfptr[881]); - MELT_LOCATION("warmelt-normatch.melt:2714:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2810:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V836*/ meltfptr[835])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V822*/ meltfptr[821]); - ((meltroutine_ptr_t)/*_.VALROUT___V836*/ meltfptr[835])->tabval[3] = (melt_ptr_t)(/*_.VALCLO___V822*/ meltfptr[821]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V901*/ meltfptr[900])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V897*/ meltfptr[896]); + ((meltroutine_ptr_t)/*_.VALROUT___V901*/ meltfptr[900])->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V897*/ meltfptr[896]); - MELT_LOCATION("warmelt-normatch.melt:2714:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2810:/ initchunk"); /*^touch*/ /*touch:IROUTVAL_*/ - meltgc_touch(/*_.VALROUT___V836*/ meltfptr[835]); + meltgc_touch(/*_.VALROUT___V901*/ meltfptr[900]); /*putclosurout*/ - melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V837*/ meltfptr[836])) == OBMAG_CLOSURE); - melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V836*/ meltfptr[835])) == OBMAG_ROUTINE); - ((meltclosure_ptr_t)/*_.VALCLO___V837*/ meltfptr[836])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V836*/ meltfptr[835]); + melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V902*/ meltfptr[901])) == OBMAG_CLOSURE); + melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V901*/ meltfptr[900])) == OBMAG_ROUTINE); + ((meltclosure_ptr_t)/*_.VALCLO___V902*/ meltfptr[901])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V901*/ meltfptr[900]); /*touch:DATACLOSURE_*/ - meltgc_touch(/*_.VALCLO___V837*/ meltfptr[836]); + meltgc_touch(/*_.VALCLO___V902*/ meltfptr[901]); - MELT_LOCATION("warmelt-normatch.melt:2732:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2846:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V838*/ meltfptr[837])) == OBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_766__PUTELSE_MATCHGROUP#0", NULL != (/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8])); - ((meltroutine_ptr_t)/*_.VALROUT___V838*/ meltfptr[837])->tabval[0] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V903*/ meltfptr[902])) == OBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_830__PUTELSE_MATCHGROUP#0", NULL != (/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8])); + ((meltroutine_ptr_t)/*_.VALROUT___V903*/ meltfptr[902])->tabval[0] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8]); - MELT_LOCATION("warmelt-normatch.melt:2732:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2846:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V838*/ meltfptr[837])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V717*/ meltfptr[716]); - ((meltroutine_ptr_t)/*_.VALROUT___V838*/ meltfptr[837])->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V717*/ meltfptr[716]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V903*/ meltfptr[902])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V776*/ meltfptr[775]); + ((meltroutine_ptr_t)/*_.VALROUT___V903*/ meltfptr[902])->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V776*/ meltfptr[775]); - MELT_LOCATION("warmelt-normatch.melt:2732:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2846:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V838*/ meltfptr[837])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V649*/ meltfptr[648]); - ((meltroutine_ptr_t)/*_.VALROUT___V838*/ meltfptr[837])->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V649*/ meltfptr[648]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V903*/ meltfptr[902])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V654*/ meltfptr[653]); + ((meltroutine_ptr_t)/*_.VALROUT___V903*/ meltfptr[902])->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V654*/ meltfptr[653]); - MELT_LOCATION("warmelt-normatch.melt:2732:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2846:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V838*/ meltfptr[837])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V822*/ meltfptr[821]); - ((meltroutine_ptr_t)/*_.VALROUT___V838*/ meltfptr[837])->tabval[3] = (melt_ptr_t)(/*_.VALCLO___V822*/ meltfptr[821]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V903*/ meltfptr[902])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V885*/ meltfptr[884]); + ((meltroutine_ptr_t)/*_.VALROUT___V903*/ meltfptr[902])->tabval[3] = (melt_ptr_t)(/*_.VALCLO___V885*/ meltfptr[884]); - MELT_LOCATION("warmelt-normatch.melt:2732:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2846:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V838*/ meltfptr[837])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V834*/ meltfptr[833]); - ((meltroutine_ptr_t)/*_.VALROUT___V838*/ meltfptr[837])->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V834*/ meltfptr[833]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V903*/ meltfptr[902])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V897*/ meltfptr[896]); + ((meltroutine_ptr_t)/*_.VALROUT___V903*/ meltfptr[902])->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V897*/ meltfptr[896]); - MELT_LOCATION("warmelt-normatch.melt:2732:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2846:/ initchunk"); /*^touch*/ /*touch:IROUTVAL_*/ - meltgc_touch(/*_.VALROUT___V838*/ meltfptr[837]); + meltgc_touch(/*_.VALROUT___V903*/ meltfptr[902]); /*putclosurout*/ - melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V839*/ meltfptr[838])) == OBMAG_CLOSURE); - melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V838*/ meltfptr[837])) == OBMAG_ROUTINE); - ((meltclosure_ptr_t)/*_.VALCLO___V839*/ meltfptr[838])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V838*/ meltfptr[837]); + melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V904*/ meltfptr[903])) == OBMAG_CLOSURE); + melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V903*/ meltfptr[902])) == OBMAG_ROUTINE); + ((meltclosure_ptr_t)/*_.VALCLO___V904*/ meltfptr[903])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V903*/ meltfptr[902]); /*touch:DATACLOSURE_*/ - meltgc_touch(/*_.VALCLO___V839*/ meltfptr[838]); + meltgc_touch(/*_.VALCLO___V904*/ meltfptr[903]); - MELT_LOCATION("warmelt-normatch.melt:2761:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2889:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V840*/ meltfptr[839])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V735*/ meltfptr[734]); - ((meltroutine_ptr_t)/*_.VALROUT___V840*/ meltfptr[839])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V735*/ meltfptr[734]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V905*/ meltfptr[904])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V794*/ meltfptr[793]); + ((meltroutine_ptr_t)/*_.VALROUT___V905*/ meltfptr[904])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V794*/ meltfptr[793]); - MELT_LOCATION("warmelt-normatch.melt:2761:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2889:/ initchunk"); /*^touch*/ /*touch:IROUTVAL_*/ - meltgc_touch(/*_.VALROUT___V840*/ meltfptr[839]); + meltgc_touch(/*_.VALROUT___V905*/ meltfptr[904]); /*putclosurout*/ - melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V841*/ meltfptr[840])) == OBMAG_CLOSURE); - melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V840*/ meltfptr[839])) == OBMAG_ROUTINE); - ((meltclosure_ptr_t)/*_.VALCLO___V841*/ meltfptr[840])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V840*/ meltfptr[839]); + melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V906*/ meltfptr[905])) == OBMAG_CLOSURE); + melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V905*/ meltfptr[904])) == OBMAG_ROUTINE); + ((meltclosure_ptr_t)/*_.VALCLO___V906*/ meltfptr[905])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V905*/ meltfptr[904]); /*touch:DATACLOSURE_*/ - meltgc_touch(/*_.VALCLO___V841*/ meltfptr[840]); + meltgc_touch(/*_.VALCLO___V906*/ meltfptr[905]); - MELT_LOCATION("warmelt-normatch.melt:2772:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2900:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V842*/ meltfptr[841])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V749*/ meltfptr[748]); - ((meltroutine_ptr_t)/*_.VALROUT___V842*/ meltfptr[841])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V749*/ meltfptr[748]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V907*/ meltfptr[906])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V808*/ meltfptr[807]); + ((meltroutine_ptr_t)/*_.VALROUT___V907*/ meltfptr[906])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V808*/ meltfptr[807]); - MELT_LOCATION("warmelt-normatch.melt:2772:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2900:/ initchunk"); /*^touch*/ /*touch:IROUTVAL_*/ - meltgc_touch(/*_.VALROUT___V842*/ meltfptr[841]); + meltgc_touch(/*_.VALROUT___V907*/ meltfptr[906]); /*putclosurout*/ - melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V843*/ meltfptr[842])) == OBMAG_CLOSURE); - melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V842*/ meltfptr[841])) == OBMAG_ROUTINE); - ((meltclosure_ptr_t)/*_.VALCLO___V843*/ meltfptr[842])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V842*/ meltfptr[841]); + melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V908*/ meltfptr[907])) == OBMAG_CLOSURE); + melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V907*/ meltfptr[906])) == OBMAG_ROUTINE); + ((meltclosure_ptr_t)/*_.VALCLO___V908*/ meltfptr[907])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V907*/ meltfptr[906]); /*touch:DATACLOSURE_*/ - meltgc_touch(/*_.VALCLO___V843*/ meltfptr[842]); + meltgc_touch(/*_.VALCLO___V908*/ meltfptr[907]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V844*/ meltfptr[843])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V909*/ meltfptr[908])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V844*/ meltfptr[843])))); - ((meltobject_ptr_t)(/*_.VALDATA___V844*/ meltfptr[843]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V845*/ meltfptr[844]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V909*/ meltfptr[908])))); + ((meltobject_ptr_t)(/*_.VALDATA___V909*/ meltfptr[908]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V910*/ meltfptr[909]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V844*/ meltfptr[843]); + meltgc_touch(/*_.VALDATA___V909*/ meltfptr[908]); - MELT_LOCATION("warmelt-normatch.melt:2785:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2913:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V846*/ meltfptr[845])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V911*/ meltfptr[910])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V846*/ meltfptr[845])))); - ((meltobject_ptr_t)(/*_.VALDATA___V846*/ meltfptr[845]))->obj_vartab[0] = (melt_ptr_t)( - /*_.VALDATA___V771*/ meltfptr[770]); + melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V911*/ meltfptr[910])))); + ((meltobject_ptr_t)(/*_.VALDATA___V911*/ meltfptr[910]))->obj_vartab[0] = (melt_ptr_t)( + /*_.VALDATA___V834*/ meltfptr[833]); - MELT_LOCATION("warmelt-normatch.melt:2785:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2913:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V846*/ meltfptr[845])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V911*/ meltfptr[910])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V846*/ meltfptr[845])))); - ((meltobject_ptr_t)(/*_.VALDATA___V846*/ meltfptr[845]))->obj_vartab[1] = (melt_ptr_t)( + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V911*/ meltfptr[910])))); + ((meltobject_ptr_t)(/*_.VALDATA___V911*/ meltfptr[910]))->obj_vartab[1] = (melt_ptr_t)( ((void*)(MELT_PREDEF(CTYPE_VALUE)))); - MELT_LOCATION("warmelt-normatch.melt:2785:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2913:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V846*/ meltfptr[845]); + meltgc_touch(/*_.VALDATA___V911*/ meltfptr[910]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V847*/ meltfptr[846])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V912*/ meltfptr[911])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V847*/ meltfptr[846])))); - ((meltobject_ptr_t)(/*_.VALDATA___V847*/ meltfptr[846]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V848*/ meltfptr[847]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V912*/ meltfptr[911])))); + ((meltobject_ptr_t)(/*_.VALDATA___V912*/ meltfptr[911]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V913*/ meltfptr[912]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V847*/ meltfptr[846]); + meltgc_touch(/*_.VALDATA___V912*/ meltfptr[911]); - MELT_LOCATION("warmelt-normatch.melt:2785:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2913:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V849*/ meltfptr[848])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V914*/ meltfptr[913])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V849*/ meltfptr[848])))); - ((meltobject_ptr_t)(/*_.VALDATA___V849*/ meltfptr[848]))->obj_vartab[0] = (melt_ptr_t)( - /*_.VALDATA___V847*/ meltfptr[846]); + melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V914*/ meltfptr[913])))); + ((meltobject_ptr_t)(/*_.VALDATA___V914*/ meltfptr[913]))->obj_vartab[0] = (melt_ptr_t)( + /*_.VALDATA___V912*/ meltfptr[911]); - MELT_LOCATION("warmelt-normatch.melt:2785:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2913:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V849*/ meltfptr[848])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V914*/ meltfptr[913])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V849*/ meltfptr[848])))); - ((meltobject_ptr_t)(/*_.VALDATA___V849*/ meltfptr[848]))->obj_vartab[1] = (melt_ptr_t)( + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V914*/ meltfptr[913])))); + ((meltobject_ptr_t)(/*_.VALDATA___V914*/ meltfptr[913]))->obj_vartab[1] = (melt_ptr_t)( ((void*)(MELT_PREDEF(CTYPE_VALUE)))); - MELT_LOCATION("warmelt-normatch.melt:2785:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2913:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V849*/ meltfptr[848]); + meltgc_touch(/*_.VALDATA___V914*/ meltfptr[913]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V850*/ meltfptr[849])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V915*/ meltfptr[914])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V850*/ meltfptr[849])))); - ((meltobject_ptr_t)(/*_.VALDATA___V850*/ meltfptr[849]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V851*/ meltfptr[850]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V915*/ meltfptr[914])))); + ((meltobject_ptr_t)(/*_.VALDATA___V915*/ meltfptr[914]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V916*/ meltfptr[915]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V850*/ meltfptr[849]); + meltgc_touch(/*_.VALDATA___V915*/ meltfptr[914]); - MELT_LOCATION("warmelt-normatch.melt:2785:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2913:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V852*/ meltfptr[851])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V917*/ meltfptr[916])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V852*/ meltfptr[851])))); - ((meltobject_ptr_t)(/*_.VALDATA___V852*/ meltfptr[851]))->obj_vartab[0] = (melt_ptr_t)( - /*_.VALDATA___V850*/ meltfptr[849]); + melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V917*/ meltfptr[916])))); + ((meltobject_ptr_t)(/*_.VALDATA___V917*/ meltfptr[916]))->obj_vartab[0] = (melt_ptr_t)( + /*_.VALDATA___V915*/ meltfptr[914]); - MELT_LOCATION("warmelt-normatch.melt:2785:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2913:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V852*/ meltfptr[851])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V917*/ meltfptr[916])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V852*/ meltfptr[851])))); - ((meltobject_ptr_t)(/*_.VALDATA___V852*/ meltfptr[851]))->obj_vartab[1] = (melt_ptr_t)( + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V917*/ meltfptr[916])))); + ((meltobject_ptr_t)(/*_.VALDATA___V917*/ meltfptr[916]))->obj_vartab[1] = (melt_ptr_t)( ((void*)(MELT_PREDEF(CTYPE_VALUE)))); - MELT_LOCATION("warmelt-normatch.melt:2785:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2913:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V852*/ meltfptr[851]); + meltgc_touch(/*_.VALDATA___V917*/ meltfptr[916]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V853*/ meltfptr[852])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V918*/ meltfptr[917])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V853*/ meltfptr[852])))); - ((meltobject_ptr_t)(/*_.VALDATA___V853*/ meltfptr[852]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V854*/ meltfptr[853]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V918*/ meltfptr[917])))); + ((meltobject_ptr_t)(/*_.VALDATA___V918*/ meltfptr[917]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V919*/ meltfptr[918]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V853*/ meltfptr[852]); + meltgc_touch(/*_.VALDATA___V918*/ meltfptr[917]); - MELT_LOCATION("warmelt-normatch.melt:2785:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2913:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V855*/ meltfptr[854])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V920*/ meltfptr[919])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V855*/ meltfptr[854])))); - ((meltobject_ptr_t)(/*_.VALDATA___V855*/ meltfptr[854]))->obj_vartab[0] = (melt_ptr_t)( - /*_.VALDATA___V853*/ meltfptr[852]); + melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V920*/ meltfptr[919])))); + ((meltobject_ptr_t)(/*_.VALDATA___V920*/ meltfptr[919]))->obj_vartab[0] = (melt_ptr_t)( + /*_.VALDATA___V918*/ meltfptr[917]); - MELT_LOCATION("warmelt-normatch.melt:2785:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2913:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V855*/ meltfptr[854])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V920*/ meltfptr[919])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V855*/ meltfptr[854])))); - ((meltobject_ptr_t)(/*_.VALDATA___V855*/ meltfptr[854]))->obj_vartab[1] = (melt_ptr_t)( + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V920*/ meltfptr[919])))); + ((meltobject_ptr_t)(/*_.VALDATA___V920*/ meltfptr[919]))->obj_vartab[1] = (melt_ptr_t)( ((void*)(MELT_PREDEF(CTYPE_VALUE)))); - MELT_LOCATION("warmelt-normatch.melt:2785:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2913:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V855*/ meltfptr[854]); + meltgc_touch(/*_.VALDATA___V920*/ meltfptr[919]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V856*/ meltfptr[855])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V921*/ meltfptr[920])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V856*/ meltfptr[855])))); - ((meltobject_ptr_t)(/*_.VALDATA___V856*/ meltfptr[855]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V857*/ meltfptr[856]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V921*/ meltfptr[920])))); + ((meltobject_ptr_t)(/*_.VALDATA___V921*/ meltfptr[920]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V922*/ meltfptr[921]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V856*/ meltfptr[855]); + meltgc_touch(/*_.VALDATA___V921*/ meltfptr[920]); - MELT_LOCATION("warmelt-normatch.melt:2785:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2913:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V858*/ meltfptr[857])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V923*/ meltfptr[922])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V858*/ meltfptr[857])))); - ((meltobject_ptr_t)(/*_.VALDATA___V858*/ meltfptr[857]))->obj_vartab[0] = (melt_ptr_t)( - /*_.VALDATA___V856*/ meltfptr[855]); + melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V923*/ meltfptr[922])))); + ((meltobject_ptr_t)(/*_.VALDATA___V923*/ meltfptr[922]))->obj_vartab[0] = (melt_ptr_t)( + /*_.VALDATA___V921*/ meltfptr[920]); - MELT_LOCATION("warmelt-normatch.melt:2785:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2913:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V858*/ meltfptr[857])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V923*/ meltfptr[922])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V858*/ meltfptr[857])))); - ((meltobject_ptr_t)(/*_.VALDATA___V858*/ meltfptr[857]))->obj_vartab[1] = (melt_ptr_t)( + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V923*/ meltfptr[922])))); + ((meltobject_ptr_t)(/*_.VALDATA___V923*/ meltfptr[922]))->obj_vartab[1] = (melt_ptr_t)( ((void*)(MELT_PREDEF(CTYPE_VALUE)))); - MELT_LOCATION("warmelt-normatch.melt:2785:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2913:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V858*/ meltfptr[857]); + meltgc_touch(/*_.VALDATA___V923*/ meltfptr[922]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V859*/ meltfptr[858]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V859*/ meltfptr[858])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V859*/ meltfptr[858]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V846*/ meltfptr[845]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V924*/ meltfptr[923]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V924*/ meltfptr[923])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V924*/ meltfptr[923]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V911*/ meltfptr[910]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V859*/ meltfptr[858]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V859*/ meltfptr[858])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V859*/ meltfptr[858]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V849*/ meltfptr[848]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V924*/ meltfptr[923]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V924*/ meltfptr[923])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V924*/ meltfptr[923]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V914*/ meltfptr[913]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V859*/ meltfptr[858]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V859*/ meltfptr[858])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V859*/ meltfptr[858]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V852*/ meltfptr[851]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V924*/ meltfptr[923]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V924*/ meltfptr[923])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V924*/ meltfptr[923]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V917*/ meltfptr[916]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V859*/ meltfptr[858]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V859*/ meltfptr[858])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V859*/ meltfptr[858]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V855*/ meltfptr[854]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V924*/ meltfptr[923]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V924*/ meltfptr[923])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V924*/ meltfptr[923]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V920*/ meltfptr[919]); /*putupl*/ - melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V859*/ meltfptr[858]))== OBMAG_MULTIPLE); - melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V859*/ meltfptr[858])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V859*/ meltfptr[858]))->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V858*/ meltfptr[857]); + melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V924*/ meltfptr[923]))== OBMAG_MULTIPLE); + melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V924*/ meltfptr[923])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V924*/ meltfptr[923]))->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V923*/ meltfptr[922]); /*touch:INITUP_*/ - meltgc_touch(/*_.VALTUP___V859*/ meltfptr[858]); + meltgc_touch(/*_.VALTUP___V924*/ meltfptr[923]); - MELT_LOCATION("warmelt-normatch.melt:2785:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2913:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V860*/ meltfptr[859])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V925*/ meltfptr[924])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V860*/ meltfptr[859])))); - ((meltobject_ptr_t)(/*_.VALDATA___V860*/ meltfptr[859]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V861*/ meltfptr[860]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V925*/ meltfptr[924])))); + ((meltobject_ptr_t)(/*_.VALDATA___V925*/ meltfptr[924]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V926*/ meltfptr[925]); - MELT_LOCATION("warmelt-normatch.melt:2785:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2913:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V860*/ meltfptr[859]); + meltgc_touch(/*_.VALDATA___V925*/ meltfptr[924]); - MELT_LOCATION("warmelt-normatch.melt:2792:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2920:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V862*/ meltfptr[861])) == OBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_790__TRANSLPAT_ANYRECV#0", NULL != (/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8])); - ((meltroutine_ptr_t)/*_.VALROUT___V862*/ meltfptr[861])->tabval[0] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V927*/ meltfptr[926])) == OBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_854__TRANSLPAT_ANYRECV#0", NULL != (/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8])); + ((meltroutine_ptr_t)/*_.VALROUT___V927*/ meltfptr[926])->tabval[0] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8]); - MELT_LOCATION("warmelt-normatch.melt:2792:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2920:/ initchunk"); /*^touch*/ /*touch:IROUTVAL_*/ - meltgc_touch(/*_.VALROUT___V862*/ meltfptr[861]); + meltgc_touch(/*_.VALROUT___V927*/ meltfptr[926]); /*putclosurout*/ - melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V863*/ meltfptr[862])) == OBMAG_CLOSURE); - melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V862*/ meltfptr[861])) == OBMAG_ROUTINE); - ((meltclosure_ptr_t)/*_.VALCLO___V863*/ meltfptr[862])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V862*/ meltfptr[861]); + melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V928*/ meltfptr[927])) == OBMAG_CLOSURE); + melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V927*/ meltfptr[926])) == OBMAG_ROUTINE); + ((meltclosure_ptr_t)/*_.VALCLO___V928*/ meltfptr[927])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V927*/ meltfptr[926]); /*touch:DATACLOSURE_*/ - meltgc_touch(/*_.VALCLO___V863*/ meltfptr[862]); + meltgc_touch(/*_.VALCLO___V928*/ meltfptr[927]); - MELT_LOCATION("warmelt-normatch.melt:2802:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2930:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V864*/ meltfptr[863])) == OBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_792__TRANSLPAT_JOKERPAT#0", NULL != (/*_.CLASS_SOURCE_PATTERN_JOKER_VARIABLE__V15*/ meltfptr[14])); - ((meltroutine_ptr_t)/*_.VALROUT___V864*/ meltfptr[863])->tabval[0] = (melt_ptr_t)(/*_.CLASS_SOURCE_PATTERN_JOKER_VARIABLE__V15*/ meltfptr[14]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V929*/ meltfptr[928])) == OBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_856__TRANSLPAT_JOKERPAT#0", NULL != (/*_.CLASS_SOURCE_PATTERN_JOKER_VARIABLE__V15*/ meltfptr[14])); + ((meltroutine_ptr_t)/*_.VALROUT___V929*/ meltfptr[928])->tabval[0] = (melt_ptr_t)(/*_.CLASS_SOURCE_PATTERN_JOKER_VARIABLE__V15*/ meltfptr[14]); - MELT_LOCATION("warmelt-normatch.melt:2802:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2930:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V864*/ meltfptr[863])) == OBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_792__TRANSLPAT_JOKERPAT#1", NULL != (/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8])); - ((meltroutine_ptr_t)/*_.VALROUT___V864*/ meltfptr[863])->tabval[1] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V929*/ meltfptr[928])) == OBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_856__TRANSLPAT_JOKERPAT#1", NULL != (/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8])); + ((meltroutine_ptr_t)/*_.VALROUT___V929*/ meltfptr[928])->tabval[1] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8]); - MELT_LOCATION("warmelt-normatch.melt:2802:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2930:/ initchunk"); /*^touch*/ /*touch:IROUTVAL_*/ - meltgc_touch(/*_.VALROUT___V864*/ meltfptr[863]); + meltgc_touch(/*_.VALROUT___V929*/ meltfptr[928]); /*putclosurout*/ - melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V865*/ meltfptr[864])) == OBMAG_CLOSURE); - melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V864*/ meltfptr[863])) == OBMAG_ROUTINE); - ((meltclosure_ptr_t)/*_.VALCLO___V865*/ meltfptr[864])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V864*/ meltfptr[863]); + melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V930*/ meltfptr[929])) == OBMAG_CLOSURE); + melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V929*/ meltfptr[928])) == OBMAG_ROUTINE); + ((meltclosure_ptr_t)/*_.VALCLO___V930*/ meltfptr[929])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V929*/ meltfptr[928]); /*touch:DATACLOSURE_*/ - meltgc_touch(/*_.VALCLO___V865*/ meltfptr[864]); + meltgc_touch(/*_.VALCLO___V930*/ meltfptr[929]); - MELT_LOCATION("warmelt-normatch.melt:2812:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2940:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V866*/ meltfptr[865])) == OBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_794__TRANSLPAT_INSPAT#0", NULL != (/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8])); - ((meltroutine_ptr_t)/*_.VALROUT___V866*/ meltfptr[865])->tabval[0] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V931*/ meltfptr[930])) == OBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_858__TRANSLPAT_INSPAT#0", NULL != (/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8])); + ((meltroutine_ptr_t)/*_.VALROUT___V931*/ meltfptr[930])->tabval[0] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8]); - MELT_LOCATION("warmelt-normatch.melt:2812:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2940:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V866*/ meltfptr[865])) == OBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_794__TRANSLPAT_INSPAT#1", NULL != (/*_.CLASS_SOURCE_PATTERN_INSTANCE__V42*/ meltfptr[41])); - ((meltroutine_ptr_t)/*_.VALROUT___V866*/ meltfptr[865])->tabval[1] = (melt_ptr_t)(/*_.CLASS_SOURCE_PATTERN_INSTANCE__V42*/ meltfptr[41]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V931*/ meltfptr[930])) == OBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_858__TRANSLPAT_INSPAT#1", NULL != (/*_.CLASS_SOURCE_PATTERN_INSTANCE__V42*/ meltfptr[41])); + ((meltroutine_ptr_t)/*_.VALROUT___V931*/ meltfptr[930])->tabval[1] = (melt_ptr_t)(/*_.CLASS_SOURCE_PATTERN_INSTANCE__V42*/ meltfptr[41]); - MELT_LOCATION("warmelt-normatch.melt:2812:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2940:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V866*/ meltfptr[865])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V609*/ meltfptr[608]); - ((meltroutine_ptr_t)/*_.VALROUT___V866*/ meltfptr[865])->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V609*/ meltfptr[608]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V931*/ meltfptr[930])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V614*/ meltfptr[613]); + ((meltroutine_ptr_t)/*_.VALROUT___V931*/ meltfptr[930])->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V614*/ meltfptr[613]); - MELT_LOCATION("warmelt-normatch.melt:2812:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2940:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V866*/ meltfptr[865])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V587*/ meltfptr[586]); - ((meltroutine_ptr_t)/*_.VALROUT___V866*/ meltfptr[865])->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V587*/ meltfptr[586]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V931*/ meltfptr[930])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V592*/ meltfptr[591]); + ((meltroutine_ptr_t)/*_.VALROUT___V931*/ meltfptr[930])->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V592*/ meltfptr[591]); - MELT_LOCATION("warmelt-normatch.melt:2812:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2940:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V866*/ meltfptr[865])) == OBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_794__TRANSLPAT_INSPAT#4", NULL != (/*_.CLASS_CLASS__V22*/ meltfptr[21])); - ((meltroutine_ptr_t)/*_.VALROUT___V866*/ meltfptr[865])->tabval[4] = (melt_ptr_t)(/*_.CLASS_CLASS__V22*/ meltfptr[21]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V931*/ meltfptr[930])) == OBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_858__TRANSLPAT_INSPAT#4", NULL != (/*_.CLASS_CLASS__V22*/ meltfptr[21])); + ((meltroutine_ptr_t)/*_.VALROUT___V931*/ meltfptr[930])->tabval[4] = (melt_ptr_t)(/*_.CLASS_CLASS__V22*/ meltfptr[21]); + + MELT_LOCATION("warmelt-normatch.melt:2940:/ initchunk"); + /*^putroutconstnotnull*/ + /*putroutconstnotnull*/ + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V931*/ meltfptr[930])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V829*/ meltfptr[828]); + ((meltroutine_ptr_t)/*_.VALROUT___V931*/ meltfptr[930])->tabval[5] = (melt_ptr_t)(/*_.VALCLO___V829*/ meltfptr[828]); - MELT_LOCATION("warmelt-normatch.melt:2812:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2940:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V866*/ meltfptr[865])) == OBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_794__TRANSLPAT_INSPAT#5", NULL != (/*_.CLASS_SOURCE_FIELD_PATTERN__V23*/ meltfptr[22])); - ((meltroutine_ptr_t)/*_.VALROUT___V866*/ meltfptr[865])->tabval[5] = (melt_ptr_t)(/*_.CLASS_SOURCE_FIELD_PATTERN__V23*/ meltfptr[22]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V931*/ meltfptr[930])) == OBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_858__TRANSLPAT_INSPAT#6", NULL != (/*_.CLASS_NAMED__V10*/ meltfptr[9])); + ((meltroutine_ptr_t)/*_.VALROUT___V931*/ meltfptr[930])->tabval[6] = (melt_ptr_t)(/*_.CLASS_NAMED__V10*/ meltfptr[9]); - MELT_LOCATION("warmelt-normatch.melt:2812:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2940:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V866*/ meltfptr[865])) == OBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_794__TRANSLPAT_INSPAT#6", NULL != (/*_.CLASS_FIELD__V24*/ meltfptr[23])); - ((meltroutine_ptr_t)/*_.VALROUT___V866*/ meltfptr[865])->tabval[6] = (melt_ptr_t)(/*_.CLASS_FIELD__V24*/ meltfptr[23]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V931*/ meltfptr[930])) == OBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_858__TRANSLPAT_INSPAT#7", NULL != (/*_.CLASS_SOURCE_FIELD_PATTERN__V23*/ meltfptr[22])); + ((meltroutine_ptr_t)/*_.VALROUT___V931*/ meltfptr[930])->tabval[7] = (melt_ptr_t)(/*_.CLASS_SOURCE_FIELD_PATTERN__V23*/ meltfptr[22]); - MELT_LOCATION("warmelt-normatch.melt:2812:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2940:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V866*/ meltfptr[865])) == OBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_794__TRANSLPAT_INSPAT#7", NULL != (/*_.CLASS_NAMED__V10*/ meltfptr[9])); - ((meltroutine_ptr_t)/*_.VALROUT___V866*/ meltfptr[865])->tabval[7] = (melt_ptr_t)(/*_.CLASS_NAMED__V10*/ meltfptr[9]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V931*/ meltfptr[930])) == OBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_858__TRANSLPAT_INSPAT#8", NULL != (/*_.CLASS_FIELD__V24*/ meltfptr[23])); + ((meltroutine_ptr_t)/*_.VALROUT___V931*/ meltfptr[930])->tabval[8] = (melt_ptr_t)(/*_.CLASS_FIELD__V24*/ meltfptr[23]); - MELT_LOCATION("warmelt-normatch.melt:2812:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2940:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V866*/ meltfptr[865])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V735*/ meltfptr[734]); - ((meltroutine_ptr_t)/*_.VALROUT___V866*/ meltfptr[865])->tabval[8] = (melt_ptr_t)(/*_.VALDATA___V735*/ meltfptr[734]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V931*/ meltfptr[930])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V794*/ meltfptr[793]); + ((meltroutine_ptr_t)/*_.VALROUT___V931*/ meltfptr[930])->tabval[9] = (melt_ptr_t)(/*_.VALDATA___V794*/ meltfptr[793]); - MELT_LOCATION("warmelt-normatch.melt:2812:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2940:/ initchunk"); + /*^putroutconstnotnull*/ + /*putroutconstnotnull*/ + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V931*/ meltfptr[930])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V756*/ meltfptr[755]); + ((meltroutine_ptr_t)/*_.VALROUT___V931*/ meltfptr[930])->tabval[10] = (melt_ptr_t)(/*_.VALDATA___V756*/ meltfptr[755]); + + MELT_LOCATION("warmelt-normatch.melt:2940:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V866*/ meltfptr[865])) == OBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_794__TRANSLPAT_INSPAT#9", NULL != (/*_.DISCR_MULTIPLE__V43*/ meltfptr[42])); - ((meltroutine_ptr_t)/*_.VALROUT___V866*/ meltfptr[865])->tabval[9] = (melt_ptr_t)(/*_.DISCR_MULTIPLE__V43*/ meltfptr[42]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V931*/ meltfptr[930])) == OBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_858__TRANSLPAT_INSPAT#11", NULL != (/*_.DISCR_MULTIPLE__V43*/ meltfptr[42])); + ((meltroutine_ptr_t)/*_.VALROUT___V931*/ meltfptr[930])->tabval[11] = (melt_ptr_t)(/*_.DISCR_MULTIPLE__V43*/ meltfptr[42]); + + MELT_LOCATION("warmelt-normatch.melt:2940:/ initchunk"); + /*^putroutconstnotnull*/ + /*putroutconstnotnull*/ + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V931*/ meltfptr[930])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V897*/ meltfptr[896]); + ((meltroutine_ptr_t)/*_.VALROUT___V931*/ meltfptr[930])->tabval[12] = (melt_ptr_t)(/*_.VALDATA___V897*/ meltfptr[896]); - MELT_LOCATION("warmelt-normatch.melt:2812:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2940:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V866*/ meltfptr[865])) == OBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_794__TRANSLPAT_INSPAT#10", NULL != (/*_.DISCR_LIST__V36*/ meltfptr[35])); - ((meltroutine_ptr_t)/*_.VALROUT___V866*/ meltfptr[865])->tabval[10] = (melt_ptr_t)(/*_.DISCR_LIST__V36*/ meltfptr[35]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V931*/ meltfptr[930])) == OBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_858__TRANSLPAT_INSPAT#13", NULL != (/*_.DISCR_LIST__V36*/ meltfptr[35])); + ((meltroutine_ptr_t)/*_.VALROUT___V931*/ meltfptr[930])->tabval[13] = (melt_ptr_t)(/*_.DISCR_LIST__V36*/ meltfptr[35]); - MELT_LOCATION("warmelt-normatch.melt:2812:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2940:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V866*/ meltfptr[865])) == OBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_794__TRANSLPAT_INSPAT#11", NULL != (/*_.CLASS_SOURCE_PATTERN_JOKER_VARIABLE__V15*/ meltfptr[14])); - ((meltroutine_ptr_t)/*_.VALROUT___V866*/ meltfptr[865])->tabval[11] = (melt_ptr_t)(/*_.CLASS_SOURCE_PATTERN_JOKER_VARIABLE__V15*/ meltfptr[14]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V931*/ meltfptr[930])) == OBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_858__TRANSLPAT_INSPAT#14", NULL != (/*_.CLASS_SOURCE_PATTERN_JOKER_VARIABLE__V15*/ meltfptr[14])); + ((meltroutine_ptr_t)/*_.VALROUT___V931*/ meltfptr[930])->tabval[14] = (melt_ptr_t)(/*_.CLASS_SOURCE_PATTERN_JOKER_VARIABLE__V15*/ meltfptr[14]); - MELT_LOCATION("warmelt-normatch.melt:2812:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2940:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V866*/ meltfptr[865])) == OBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_794__TRANSLPAT_INSPAT#12", NULL != (/*_.CLONE_SYMBOL__V47*/ meltfptr[46])); - ((meltroutine_ptr_t)/*_.VALROUT___V866*/ meltfptr[865])->tabval[12] = (melt_ptr_t)(/*_.CLONE_SYMBOL__V47*/ meltfptr[46]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V931*/ meltfptr[930])) == OBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_858__TRANSLPAT_INSPAT#15", NULL != (/*_.CLONE_SYMBOL__V47*/ meltfptr[46])); + ((meltroutine_ptr_t)/*_.VALROUT___V931*/ meltfptr[930])->tabval[15] = (melt_ptr_t)(/*_.CLONE_SYMBOL__V47*/ meltfptr[46]); - MELT_LOCATION("warmelt-normatch.melt:2812:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2940:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V866*/ meltfptr[865])) == OBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_794__TRANSLPAT_INSPAT#13", NULL != (/*_.CTYPE_VALUE__V25*/ meltfptr[24])); - ((meltroutine_ptr_t)/*_.VALROUT___V866*/ meltfptr[865])->tabval[13] = (melt_ptr_t)(/*_.CTYPE_VALUE__V25*/ meltfptr[24]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V931*/ meltfptr[930])) == OBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_858__TRANSLPAT_INSPAT#16", NULL != (/*_.CTYPE_VALUE__V25*/ meltfptr[24])); + ((meltroutine_ptr_t)/*_.VALROUT___V931*/ meltfptr[930])->tabval[16] = (melt_ptr_t)(/*_.CTYPE_VALUE__V25*/ meltfptr[24]); - MELT_LOCATION("warmelt-normatch.melt:2812:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2940:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V866*/ meltfptr[865])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V860*/ meltfptr[859]); - ((meltroutine_ptr_t)/*_.VALROUT___V866*/ meltfptr[865])->tabval[14] = (melt_ptr_t)(/*_.VALDATA___V860*/ meltfptr[859]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V931*/ meltfptr[930])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V925*/ meltfptr[924]); + ((meltroutine_ptr_t)/*_.VALROUT___V931*/ meltfptr[930])->tabval[17] = (melt_ptr_t)(/*_.VALDATA___V925*/ meltfptr[924]); - MELT_LOCATION("warmelt-normatch.melt:2812:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2940:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V866*/ meltfptr[865])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V819*/ meltfptr[818]); - ((meltroutine_ptr_t)/*_.VALROUT___V866*/ meltfptr[865])->tabval[15] = (melt_ptr_t)(/*_.VALDATA___V819*/ meltfptr[818]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V931*/ meltfptr[930])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V882*/ meltfptr[881]); + ((meltroutine_ptr_t)/*_.VALROUT___V931*/ meltfptr[930])->tabval[18] = (melt_ptr_t)(/*_.VALDATA___V882*/ meltfptr[881]); - MELT_LOCATION("warmelt-normatch.melt:2812:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2940:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V866*/ meltfptr[865])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V717*/ meltfptr[716]); - ((meltroutine_ptr_t)/*_.VALROUT___V866*/ meltfptr[865])->tabval[16] = (melt_ptr_t)(/*_.VALDATA___V717*/ meltfptr[716]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V931*/ meltfptr[930])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V722*/ meltfptr[721]); + ((meltroutine_ptr_t)/*_.VALROUT___V931*/ meltfptr[930])->tabval[19] = (melt_ptr_t)(/*_.VALDATA___V722*/ meltfptr[721]); - MELT_LOCATION("warmelt-normatch.melt:2812:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2940:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V866*/ meltfptr[865])) == OBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_794__TRANSLPAT_INSPAT#17", NULL != (/*_.LIST_TO_MULTIPLE__V51*/ meltfptr[50])); - ((meltroutine_ptr_t)/*_.VALROUT___V866*/ meltfptr[865])->tabval[17] = (melt_ptr_t)(/*_.LIST_TO_MULTIPLE__V51*/ meltfptr[50]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V931*/ meltfptr[930])) == OBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_858__TRANSLPAT_INSPAT#20", NULL != (/*_.LIST_TO_MULTIPLE__V51*/ meltfptr[50])); + ((meltroutine_ptr_t)/*_.VALROUT___V931*/ meltfptr[930])->tabval[20] = (melt_ptr_t)(/*_.LIST_TO_MULTIPLE__V51*/ meltfptr[50]); + + MELT_LOCATION("warmelt-normatch.melt:2940:/ initchunk"); + /*^putroutconstnotnull*/ + /*putroutconstnotnull*/ + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V931*/ meltfptr[930])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V706*/ meltfptr[705]); + ((meltroutine_ptr_t)/*_.VALROUT___V931*/ meltfptr[930])->tabval[21] = (melt_ptr_t)(/*_.VALDATA___V706*/ meltfptr[705]); + + MELT_LOCATION("warmelt-normatch.melt:2940:/ initchunk"); + /*^putroutconstnotnull*/ + /*putroutconstnotnull*/ + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V931*/ meltfptr[930])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V776*/ meltfptr[775]); + ((meltroutine_ptr_t)/*_.VALROUT___V931*/ meltfptr[930])->tabval[22] = (melt_ptr_t)(/*_.VALDATA___V776*/ meltfptr[775]); - MELT_LOCATION("warmelt-normatch.melt:2812:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2940:/ initchunk"); + /*^putroutconstnotnull*/ + /*putroutconstnotnull*/ + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V931*/ meltfptr[930])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V664*/ meltfptr[663]); + ((meltroutine_ptr_t)/*_.VALROUT___V931*/ meltfptr[930])->tabval[23] = (melt_ptr_t)(/*_.VALDATA___V664*/ meltfptr[663]); + + MELT_LOCATION("warmelt-normatch.melt:2940:/ initchunk"); /*^touch*/ /*touch:IROUTVAL_*/ - meltgc_touch(/*_.VALROUT___V866*/ meltfptr[865]); + meltgc_touch(/*_.VALROUT___V931*/ meltfptr[930]); /*putclosurout*/ - melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V867*/ meltfptr[866])) == OBMAG_CLOSURE); - melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V866*/ meltfptr[865])) == OBMAG_ROUTINE); - ((meltclosure_ptr_t)/*_.VALCLO___V867*/ meltfptr[866])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V866*/ meltfptr[865]); + melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V932*/ meltfptr[931])) == OBMAG_CLOSURE); + melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V931*/ meltfptr[930])) == OBMAG_ROUTINE); + ((meltclosure_ptr_t)/*_.VALCLO___V932*/ meltfptr[931])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V931*/ meltfptr[930]); /*touch:DATACLOSURE_*/ - meltgc_touch(/*_.VALCLO___V867*/ meltfptr[866]); + meltgc_touch(/*_.VALCLO___V932*/ meltfptr[931]); - MELT_LOCATION("warmelt-normatch.melt:2934:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:3098:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V868*/ meltfptr[867])) == OBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_796__TRANSLPAT_VARPAT#0", NULL != (/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8])); - ((meltroutine_ptr_t)/*_.VALROUT___V868*/ meltfptr[867])->tabval[0] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V933*/ meltfptr[932])) == OBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_860__TRANSLPAT_VARPAT#0", NULL != (/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8])); + ((meltroutine_ptr_t)/*_.VALROUT___V933*/ meltfptr[932])->tabval[0] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8]); - MELT_LOCATION("warmelt-normatch.melt:2934:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:3098:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V868*/ meltfptr[867])) == OBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_796__TRANSLPAT_VARPAT#1", NULL != (/*_.CLASS_SOURCE_PATTERN_VARIABLE__V14*/ meltfptr[13])); - ((meltroutine_ptr_t)/*_.VALROUT___V868*/ meltfptr[867])->tabval[1] = (melt_ptr_t)(/*_.CLASS_SOURCE_PATTERN_VARIABLE__V14*/ meltfptr[13]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V933*/ meltfptr[932])) == OBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_860__TRANSLPAT_VARPAT#1", NULL != (/*_.CLASS_SOURCE_PATTERN_VARIABLE__V14*/ meltfptr[13])); + ((meltroutine_ptr_t)/*_.VALROUT___V933*/ meltfptr[932])->tabval[1] = (melt_ptr_t)(/*_.CLASS_SOURCE_PATTERN_VARIABLE__V14*/ meltfptr[13]); + + MELT_LOCATION("warmelt-normatch.melt:3098:/ initchunk"); + /*^putroutconstnotnull*/ + /*putroutconstnotnull*/ + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V933*/ meltfptr[932])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V614*/ meltfptr[613]); + ((meltroutine_ptr_t)/*_.VALROUT___V933*/ meltfptr[932])->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V614*/ meltfptr[613]); - MELT_LOCATION("warmelt-normatch.melt:2934:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:3098:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V868*/ meltfptr[867])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V609*/ meltfptr[608]); - ((meltroutine_ptr_t)/*_.VALROUT___V868*/ meltfptr[867])->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V609*/ meltfptr[608]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V933*/ meltfptr[932])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V592*/ meltfptr[591]); + ((meltroutine_ptr_t)/*_.VALROUT___V933*/ meltfptr[932])->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V592*/ meltfptr[591]); - MELT_LOCATION("warmelt-normatch.melt:2934:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:3098:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V868*/ meltfptr[867])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V587*/ meltfptr[586]); - ((meltroutine_ptr_t)/*_.VALROUT___V868*/ meltfptr[867])->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V587*/ meltfptr[586]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V933*/ meltfptr[932])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V554*/ meltfptr[553]); + ((meltroutine_ptr_t)/*_.VALROUT___V933*/ meltfptr[932])->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V554*/ meltfptr[553]); - MELT_LOCATION("warmelt-normatch.melt:2934:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:3098:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V868*/ meltfptr[867])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V553*/ meltfptr[552]); - ((meltroutine_ptr_t)/*_.VALROUT___V868*/ meltfptr[867])->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V553*/ meltfptr[552]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V933*/ meltfptr[932])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V829*/ meltfptr[828]); + ((meltroutine_ptr_t)/*_.VALROUT___V933*/ meltfptr[932])->tabval[5] = (melt_ptr_t)(/*_.VALCLO___V829*/ meltfptr[828]); - MELT_LOCATION("warmelt-normatch.melt:2934:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:3098:/ initchunk"); + /*^putroutconst*/ + /*putroutconst*/ + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V933*/ meltfptr[932])) == OBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_860__TRANSLPAT_VARPAT#6", NULL != (/*_.CLASS_NAMED__V10*/ meltfptr[9])); + ((meltroutine_ptr_t)/*_.VALROUT___V933*/ meltfptr[932])->tabval[6] = (melt_ptr_t)(/*_.CLASS_NAMED__V10*/ meltfptr[9]); + + MELT_LOCATION("warmelt-normatch.melt:3098:/ initchunk"); + /*^putroutconstnotnull*/ + /*putroutconstnotnull*/ + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V933*/ meltfptr[932])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V706*/ meltfptr[705]); + ((meltroutine_ptr_t)/*_.VALROUT___V933*/ meltfptr[932])->tabval[7] = (melt_ptr_t)(/*_.VALDATA___V706*/ meltfptr[705]); + + MELT_LOCATION("warmelt-normatch.melt:3098:/ initchunk"); + /*^putroutconstnotnull*/ + /*putroutconstnotnull*/ + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V933*/ meltfptr[932])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V664*/ meltfptr[663]); + ((meltroutine_ptr_t)/*_.VALROUT___V933*/ meltfptr[932])->tabval[8] = (melt_ptr_t)(/*_.VALDATA___V664*/ meltfptr[663]); + + MELT_LOCATION("warmelt-normatch.melt:3098:/ initchunk"); + /*^putroutconstnotnull*/ + /*putroutconstnotnull*/ + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V933*/ meltfptr[932])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V766*/ meltfptr[765]); + ((meltroutine_ptr_t)/*_.VALROUT___V933*/ meltfptr[932])->tabval[9] = (melt_ptr_t)(/*_.VALDATA___V766*/ meltfptr[765]); + + MELT_LOCATION("warmelt-normatch.melt:3098:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V868*/ meltfptr[867])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V669*/ meltfptr[668]); - ((meltroutine_ptr_t)/*_.VALROUT___V868*/ meltfptr[867])->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V669*/ meltfptr[668]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V933*/ meltfptr[932])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V882*/ meltfptr[881]); + ((meltroutine_ptr_t)/*_.VALROUT___V933*/ meltfptr[932])->tabval[10] = (melt_ptr_t)(/*_.VALDATA___V882*/ meltfptr[881]); - MELT_LOCATION("warmelt-normatch.melt:2934:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:3098:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V868*/ meltfptr[867])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V707*/ meltfptr[706]); - ((meltroutine_ptr_t)/*_.VALROUT___V868*/ meltfptr[867])->tabval[6] = (melt_ptr_t)(/*_.VALDATA___V707*/ meltfptr[706]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V933*/ meltfptr[932])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V756*/ meltfptr[755]); + ((meltroutine_ptr_t)/*_.VALROUT___V933*/ meltfptr[932])->tabval[11] = (melt_ptr_t)(/*_.VALDATA___V756*/ meltfptr[755]); - MELT_LOCATION("warmelt-normatch.melt:2934:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:3098:/ initchunk"); + /*^putroutconstnotnull*/ + /*putroutconstnotnull*/ + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V933*/ meltfptr[932])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V897*/ meltfptr[896]); + ((meltroutine_ptr_t)/*_.VALROUT___V933*/ meltfptr[932])->tabval[12] = (melt_ptr_t)(/*_.VALDATA___V897*/ meltfptr[896]); + + MELT_LOCATION("warmelt-normatch.melt:3098:/ initchunk"); /*^touch*/ /*touch:IROUTVAL_*/ - meltgc_touch(/*_.VALROUT___V868*/ meltfptr[867]); + meltgc_touch(/*_.VALROUT___V933*/ meltfptr[932]); /*putclosurout*/ - melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V869*/ meltfptr[868])) == OBMAG_CLOSURE); - melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V868*/ meltfptr[867])) == OBMAG_ROUTINE); - ((meltclosure_ptr_t)/*_.VALCLO___V869*/ meltfptr[868])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V868*/ meltfptr[867]); + melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V934*/ meltfptr[933])) == OBMAG_CLOSURE); + melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V933*/ meltfptr[932])) == OBMAG_ROUTINE); + ((meltclosure_ptr_t)/*_.VALCLO___V934*/ meltfptr[933])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V933*/ meltfptr[932]); /*touch:DATACLOSURE_*/ - meltgc_touch(/*_.VALCLO___V869*/ meltfptr[868]); + meltgc_touch(/*_.VALCLO___V934*/ meltfptr[933]); + + MELT_LOCATION("warmelt-normatch.melt:3176:/ initchunk"); + /*^putroutconst*/ + /*putroutconst*/ + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V935*/ meltfptr[934])) == OBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_862__TRANSLPAT_ANDPAT#0", NULL != (/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8])); + ((meltroutine_ptr_t)/*_.VALROUT___V935*/ meltfptr[934])->tabval[0] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8]); + + MELT_LOCATION("warmelt-normatch.melt:3176:/ initchunk"); + /*^putroutconst*/ + /*putroutconst*/ + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V935*/ meltfptr[934])) == OBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_862__TRANSLPAT_ANDPAT#1", NULL != (/*_.CLASS_SOURCE_PATTERN_AND__V33*/ meltfptr[32])); + ((meltroutine_ptr_t)/*_.VALROUT___V935*/ meltfptr[934])->tabval[1] = (melt_ptr_t)(/*_.CLASS_SOURCE_PATTERN_AND__V33*/ meltfptr[32]); + + MELT_LOCATION("warmelt-normatch.melt:3176:/ initchunk"); + /*^putroutconstnotnull*/ + /*putroutconstnotnull*/ + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V935*/ meltfptr[934])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V614*/ meltfptr[613]); + ((meltroutine_ptr_t)/*_.VALROUT___V935*/ meltfptr[934])->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V614*/ meltfptr[613]); + + MELT_LOCATION("warmelt-normatch.melt:3176:/ initchunk"); + /*^putroutconstnotnull*/ + /*putroutconstnotnull*/ + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V935*/ meltfptr[934])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V592*/ meltfptr[591]); + ((meltroutine_ptr_t)/*_.VALROUT___V935*/ meltfptr[934])->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V592*/ meltfptr[591]); - MELT_LOCATION("warmelt-normatch.melt:3010:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:3176:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V870*/ meltfptr[869])) == OBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_798__TRANSLPAT_ANDPAT#0", NULL != (/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8])); - ((meltroutine_ptr_t)/*_.VALROUT___V870*/ meltfptr[869])->tabval[0] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V935*/ meltfptr[934])) == OBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_862__TRANSLPAT_ANDPAT#4", NULL != (/*_.DISCR_LIST__V36*/ meltfptr[35])); + ((meltroutine_ptr_t)/*_.VALROUT___V935*/ meltfptr[934])->tabval[4] = (melt_ptr_t)(/*_.DISCR_LIST__V36*/ meltfptr[35]); - MELT_LOCATION("warmelt-normatch.melt:3010:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:3176:/ initchunk"); + /*^putroutconstnotnull*/ + /*putroutconstnotnull*/ + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V935*/ meltfptr[934])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V776*/ meltfptr[775]); + ((meltroutine_ptr_t)/*_.VALROUT___V935*/ meltfptr[934])->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V776*/ meltfptr[775]); + + MELT_LOCATION("warmelt-normatch.melt:3176:/ initchunk"); + /*^putroutconstnotnull*/ + /*putroutconstnotnull*/ + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V935*/ meltfptr[934])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V829*/ meltfptr[828]); + ((meltroutine_ptr_t)/*_.VALROUT___V935*/ meltfptr[934])->tabval[6] = (melt_ptr_t)(/*_.VALCLO___V829*/ meltfptr[828]); + + MELT_LOCATION("warmelt-normatch.melt:3176:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V870*/ meltfptr[869])) == OBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_798__TRANSLPAT_ANDPAT#1", NULL != (/*_.CLASS_SOURCE_PATTERN_AND__V33*/ meltfptr[32])); - ((meltroutine_ptr_t)/*_.VALROUT___V870*/ meltfptr[869])->tabval[1] = (melt_ptr_t)(/*_.CLASS_SOURCE_PATTERN_AND__V33*/ meltfptr[32]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V935*/ meltfptr[934])) == OBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_862__TRANSLPAT_ANDPAT#7", NULL != (/*_.VALSTR___V936*/ meltfptr[935])); + ((meltroutine_ptr_t)/*_.VALROUT___V935*/ meltfptr[934])->tabval[7] = (melt_ptr_t)(/*_.VALSTR___V936*/ meltfptr[935]); + + MELT_LOCATION("warmelt-normatch.melt:3176:/ initchunk"); + /*^putroutconstnotnull*/ + /*putroutconstnotnull*/ + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V935*/ meltfptr[934])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V722*/ meltfptr[721]); + ((meltroutine_ptr_t)/*_.VALROUT___V935*/ meltfptr[934])->tabval[8] = (melt_ptr_t)(/*_.VALDATA___V722*/ meltfptr[721]); + + MELT_LOCATION("warmelt-normatch.melt:3176:/ initchunk"); + /*^putroutconstnotnull*/ + /*putroutconstnotnull*/ + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V935*/ meltfptr[934])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V664*/ meltfptr[663]); + ((meltroutine_ptr_t)/*_.VALROUT___V935*/ meltfptr[934])->tabval[9] = (melt_ptr_t)(/*_.VALDATA___V664*/ meltfptr[663]); - MELT_LOCATION("warmelt-normatch.melt:3010:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:3176:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V870*/ meltfptr[869])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V609*/ meltfptr[608]); - ((meltroutine_ptr_t)/*_.VALROUT___V870*/ meltfptr[869])->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V609*/ meltfptr[608]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V935*/ meltfptr[934])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V925*/ meltfptr[924]); + ((meltroutine_ptr_t)/*_.VALROUT___V935*/ meltfptr[934])->tabval[10] = (melt_ptr_t)(/*_.VALDATA___V925*/ meltfptr[924]); + + MELT_LOCATION("warmelt-normatch.melt:3176:/ initchunk"); + /*^putroutconstnotnull*/ + /*putroutconstnotnull*/ + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V935*/ meltfptr[934])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V882*/ meltfptr[881]); + ((meltroutine_ptr_t)/*_.VALROUT___V935*/ meltfptr[934])->tabval[11] = (melt_ptr_t)(/*_.VALDATA___V882*/ meltfptr[881]); + + MELT_LOCATION("warmelt-normatch.melt:3176:/ initchunk"); + /*^putroutconst*/ + /*putroutconst*/ + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V935*/ meltfptr[934])) == OBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_862__TRANSLPAT_ANDPAT#12", NULL != (/*_.LIST_TO_MULTIPLE__V51*/ meltfptr[50])); + ((meltroutine_ptr_t)/*_.VALROUT___V935*/ meltfptr[934])->tabval[12] = (melt_ptr_t)(/*_.LIST_TO_MULTIPLE__V51*/ meltfptr[50]); + + MELT_LOCATION("warmelt-normatch.melt:3176:/ initchunk"); + /*^putroutconst*/ + /*putroutconst*/ + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V935*/ meltfptr[934])) == OBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_862__TRANSLPAT_ANDPAT#13", NULL != (/*_.DISCR_MULTIPLE__V43*/ meltfptr[42])); + ((meltroutine_ptr_t)/*_.VALROUT___V935*/ meltfptr[934])->tabval[13] = (melt_ptr_t)(/*_.DISCR_MULTIPLE__V43*/ meltfptr[42]); - MELT_LOCATION("warmelt-normatch.melt:3010:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:3176:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V870*/ meltfptr[869])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V587*/ meltfptr[586]); - ((meltroutine_ptr_t)/*_.VALROUT___V870*/ meltfptr[869])->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V587*/ meltfptr[586]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V935*/ meltfptr[934])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V712*/ meltfptr[711]); + ((meltroutine_ptr_t)/*_.VALROUT___V935*/ meltfptr[934])->tabval[14] = (melt_ptr_t)(/*_.VALDATA___V712*/ meltfptr[711]); - MELT_LOCATION("warmelt-normatch.melt:3010:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:3176:/ initchunk"); /*^touch*/ /*touch:IROUTVAL_*/ - meltgc_touch(/*_.VALROUT___V870*/ meltfptr[869]); + meltgc_touch(/*_.VALROUT___V935*/ meltfptr[934]); /*putclosurout*/ - melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V871*/ meltfptr[870])) == OBMAG_CLOSURE); - melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V870*/ meltfptr[869])) == OBMAG_ROUTINE); - ((meltclosure_ptr_t)/*_.VALCLO___V871*/ meltfptr[870])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V870*/ meltfptr[869]); + melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V937*/ meltfptr[936])) == OBMAG_CLOSURE); + melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V935*/ meltfptr[934])) == OBMAG_ROUTINE); + ((meltclosure_ptr_t)/*_.VALCLO___V937*/ meltfptr[936])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V935*/ meltfptr[934]); /*touch:DATACLOSURE_*/ - meltgc_touch(/*_.VALCLO___V871*/ meltfptr[870]); + meltgc_touch(/*_.VALCLO___V937*/ meltfptr[936]); - MELT_LOCATION("warmelt-normatch.melt:3028:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:3259:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V872*/ meltfptr[871])) == OBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_800__TRANSLPAT_ORPAT#0", NULL != (/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8])); - ((meltroutine_ptr_t)/*_.VALROUT___V872*/ meltfptr[871])->tabval[0] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V938*/ meltfptr[937])) == OBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_865__TRANSLPAT_ORPAT#0", NULL != (/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8])); + ((meltroutine_ptr_t)/*_.VALROUT___V938*/ meltfptr[937])->tabval[0] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8]); - MELT_LOCATION("warmelt-normatch.melt:3028:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:3259:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V872*/ meltfptr[871])) == OBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_800__TRANSLPAT_ORPAT#1", NULL != (/*_.CLASS_SOURCE_PATTERN_OR__V30*/ meltfptr[29])); - ((meltroutine_ptr_t)/*_.VALROUT___V872*/ meltfptr[871])->tabval[1] = (melt_ptr_t)(/*_.CLASS_SOURCE_PATTERN_OR__V30*/ meltfptr[29]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V938*/ meltfptr[937])) == OBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_865__TRANSLPAT_ORPAT#1", NULL != (/*_.CLASS_SOURCE_PATTERN_OR__V30*/ meltfptr[29])); + ((meltroutine_ptr_t)/*_.VALROUT___V938*/ meltfptr[937])->tabval[1] = (melt_ptr_t)(/*_.CLASS_SOURCE_PATTERN_OR__V30*/ meltfptr[29]); - MELT_LOCATION("warmelt-normatch.melt:3028:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:3259:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V872*/ meltfptr[871])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V609*/ meltfptr[608]); - ((meltroutine_ptr_t)/*_.VALROUT___V872*/ meltfptr[871])->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V609*/ meltfptr[608]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V938*/ meltfptr[937])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V614*/ meltfptr[613]); + ((meltroutine_ptr_t)/*_.VALROUT___V938*/ meltfptr[937])->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V614*/ meltfptr[613]); - MELT_LOCATION("warmelt-normatch.melt:3028:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:3259:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V872*/ meltfptr[871])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V587*/ meltfptr[586]); - ((meltroutine_ptr_t)/*_.VALROUT___V872*/ meltfptr[871])->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V587*/ meltfptr[586]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V938*/ meltfptr[937])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V592*/ meltfptr[591]); + ((meltroutine_ptr_t)/*_.VALROUT___V938*/ meltfptr[937])->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V592*/ meltfptr[591]); + + MELT_LOCATION("warmelt-normatch.melt:3259:/ initchunk"); + /*^putroutconstnotnull*/ + /*putroutconstnotnull*/ + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V938*/ meltfptr[937])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V776*/ meltfptr[775]); + ((meltroutine_ptr_t)/*_.VALROUT___V938*/ meltfptr[937])->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V776*/ meltfptr[775]); + + MELT_LOCATION("warmelt-normatch.melt:3259:/ initchunk"); + /*^putroutconstnotnull*/ + /*putroutconstnotnull*/ + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V938*/ meltfptr[937])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V829*/ meltfptr[828]); + ((meltroutine_ptr_t)/*_.VALROUT___V938*/ meltfptr[937])->tabval[5] = (melt_ptr_t)(/*_.VALCLO___V829*/ meltfptr[828]); + + MELT_LOCATION("warmelt-normatch.melt:3259:/ initchunk"); + /*^putroutconst*/ + /*putroutconst*/ + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V938*/ meltfptr[937])) == OBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_865__TRANSLPAT_ORPAT#6", NULL != (/*_.VALSTR___V939*/ meltfptr[938])); + ((meltroutine_ptr_t)/*_.VALROUT___V938*/ meltfptr[937])->tabval[6] = (melt_ptr_t)(/*_.VALSTR___V939*/ meltfptr[938]); + + MELT_LOCATION("warmelt-normatch.melt:3259:/ initchunk"); + /*^putroutconstnotnull*/ + /*putroutconstnotnull*/ + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V938*/ meltfptr[937])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V728*/ meltfptr[727]); + ((meltroutine_ptr_t)/*_.VALROUT___V938*/ meltfptr[937])->tabval[7] = (melt_ptr_t)(/*_.VALDATA___V728*/ meltfptr[727]); + + MELT_LOCATION("warmelt-normatch.melt:3259:/ initchunk"); + /*^putroutconst*/ + /*putroutconst*/ + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V938*/ meltfptr[937])) == OBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_865__TRANSLPAT_ORPAT#8", NULL != (/*_.DISCR_LIST__V36*/ meltfptr[35])); + ((meltroutine_ptr_t)/*_.VALROUT___V938*/ meltfptr[937])->tabval[8] = (melt_ptr_t)(/*_.DISCR_LIST__V36*/ meltfptr[35]); + + MELT_LOCATION("warmelt-normatch.melt:3259:/ initchunk"); + /*^putroutconstnotnull*/ + /*putroutconstnotnull*/ + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V938*/ meltfptr[937])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V925*/ meltfptr[924]); + ((meltroutine_ptr_t)/*_.VALROUT___V938*/ meltfptr[937])->tabval[9] = (melt_ptr_t)(/*_.VALDATA___V925*/ meltfptr[924]); - MELT_LOCATION("warmelt-normatch.melt:3028:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:3259:/ initchunk"); /*^touch*/ /*touch:IROUTVAL_*/ - meltgc_touch(/*_.VALROUT___V872*/ meltfptr[871]); + meltgc_touch(/*_.VALROUT___V938*/ meltfptr[937]); /*putclosurout*/ - melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V873*/ meltfptr[872])) == OBMAG_CLOSURE); - melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V872*/ meltfptr[871])) == OBMAG_ROUTINE); - ((meltclosure_ptr_t)/*_.VALCLO___V873*/ meltfptr[872])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V872*/ meltfptr[871]); + melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V940*/ meltfptr[939])) == OBMAG_CLOSURE); + melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V938*/ meltfptr[937])) == OBMAG_ROUTINE); + ((meltclosure_ptr_t)/*_.VALCLO___V940*/ meltfptr[939])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V938*/ meltfptr[937]); /*touch:DATACLOSURE_*/ - meltgc_touch(/*_.VALCLO___V873*/ meltfptr[872]); + meltgc_touch(/*_.VALCLO___V940*/ meltfptr[939]); - MELT_LOCATION("warmelt-normatch.melt:3047:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:3310:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V874*/ meltfptr[873])) == OBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_802__TRANSLPAT_PATMAT#0", NULL != (/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8])); - ((meltroutine_ptr_t)/*_.VALROUT___V874*/ meltfptr[873])->tabval[0] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V941*/ meltfptr[940])) == OBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_868__TRANSLPAT_PATMAT#0", NULL != (/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8])); + ((meltroutine_ptr_t)/*_.VALROUT___V941*/ meltfptr[940])->tabval[0] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8]); - MELT_LOCATION("warmelt-normatch.melt:3047:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:3310:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V874*/ meltfptr[873])) == OBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_802__TRANSLPAT_PATMAT#1", NULL != (/*_.CLASS_SOURCE_PATTERN_MATCHER__V53*/ meltfptr[52])); - ((meltroutine_ptr_t)/*_.VALROUT___V874*/ meltfptr[873])->tabval[1] = (melt_ptr_t)(/*_.CLASS_SOURCE_PATTERN_MATCHER__V53*/ meltfptr[52]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V941*/ meltfptr[940])) == OBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_868__TRANSLPAT_PATMAT#1", NULL != (/*_.CLASS_SOURCE_PATTERN_MATCHER__V53*/ meltfptr[52])); + ((meltroutine_ptr_t)/*_.VALROUT___V941*/ meltfptr[940])->tabval[1] = (melt_ptr_t)(/*_.CLASS_SOURCE_PATTERN_MATCHER__V53*/ meltfptr[52]); - MELT_LOCATION("warmelt-normatch.melt:3047:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:3310:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V874*/ meltfptr[873])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V609*/ meltfptr[608]); - ((meltroutine_ptr_t)/*_.VALROUT___V874*/ meltfptr[873])->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V609*/ meltfptr[608]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V941*/ meltfptr[940])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V614*/ meltfptr[613]); + ((meltroutine_ptr_t)/*_.VALROUT___V941*/ meltfptr[940])->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V614*/ meltfptr[613]); - MELT_LOCATION("warmelt-normatch.melt:3047:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:3310:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V874*/ meltfptr[873])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V587*/ meltfptr[586]); - ((meltroutine_ptr_t)/*_.VALROUT___V874*/ meltfptr[873])->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V587*/ meltfptr[586]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V941*/ meltfptr[940])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V592*/ meltfptr[591]); + ((meltroutine_ptr_t)/*_.VALROUT___V941*/ meltfptr[940])->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V592*/ meltfptr[591]); - MELT_LOCATION("warmelt-normatch.melt:3047:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:3310:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V874*/ meltfptr[873])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V553*/ meltfptr[552]); - ((meltroutine_ptr_t)/*_.VALROUT___V874*/ meltfptr[873])->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V553*/ meltfptr[552]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V941*/ meltfptr[940])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V554*/ meltfptr[553]); + ((meltroutine_ptr_t)/*_.VALROUT___V941*/ meltfptr[940])->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V554*/ meltfptr[553]); - MELT_LOCATION("warmelt-normatch.melt:3047:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:3310:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V874*/ meltfptr[873])) == OBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_802__TRANSLPAT_PATMAT#5", NULL != (/*_.CLASS_ANY_MATCHER__V27*/ meltfptr[26])); - ((meltroutine_ptr_t)/*_.VALROUT___V874*/ meltfptr[873])->tabval[5] = (melt_ptr_t)(/*_.CLASS_ANY_MATCHER__V27*/ meltfptr[26]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V941*/ meltfptr[940])) == OBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_868__TRANSLPAT_PATMAT#5", NULL != (/*_.CLASS_ANY_MATCHER__V27*/ meltfptr[26])); + ((meltroutine_ptr_t)/*_.VALROUT___V941*/ meltfptr[940])->tabval[5] = (melt_ptr_t)(/*_.CLASS_ANY_MATCHER__V27*/ meltfptr[26]); + + MELT_LOCATION("warmelt-normatch.melt:3310:/ initchunk"); + /*^putroutconstnotnull*/ + /*putroutconstnotnull*/ + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V941*/ meltfptr[940])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V829*/ meltfptr[828]); + ((meltroutine_ptr_t)/*_.VALROUT___V941*/ meltfptr[940])->tabval[6] = (melt_ptr_t)(/*_.VALCLO___V829*/ meltfptr[828]); - MELT_LOCATION("warmelt-normatch.melt:3047:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:3310:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V874*/ meltfptr[873])) == OBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_802__TRANSLPAT_PATMAT#6", NULL != (/*_.CLASS_ENVIRONMENT__V65*/ meltfptr[64])); - ((meltroutine_ptr_t)/*_.VALROUT___V874*/ meltfptr[873])->tabval[6] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V65*/ meltfptr[64]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V941*/ meltfptr[940])) == OBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_868__TRANSLPAT_PATMAT#7", NULL != (/*_.CLASS_NAMED__V10*/ meltfptr[9])); + ((meltroutine_ptr_t)/*_.VALROUT___V941*/ meltfptr[940])->tabval[7] = (melt_ptr_t)(/*_.CLASS_NAMED__V10*/ meltfptr[9]); - MELT_LOCATION("warmelt-normatch.melt:3047:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:3310:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V874*/ meltfptr[873])) == OBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_802__TRANSLPAT_PATMAT#7", NULL != (/*_.NORMALIZE_TUPLE__V29*/ meltfptr[28])); - ((meltroutine_ptr_t)/*_.VALROUT___V874*/ meltfptr[873])->tabval[7] = (melt_ptr_t)(/*_.NORMALIZE_TUPLE__V29*/ meltfptr[28]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V941*/ meltfptr[940])) == OBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_868__TRANSLPAT_PATMAT#8", NULL != (/*_.CLASS_ENVIRONMENT__V65*/ meltfptr[64])); + ((meltroutine_ptr_t)/*_.VALROUT___V941*/ meltfptr[940])->tabval[8] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V65*/ meltfptr[64]); - MELT_LOCATION("warmelt-normatch.melt:3047:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:3310:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V874*/ meltfptr[873])) == OBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_802__TRANSLPAT_PATMAT#8", NULL != (/*_.CLASS_NAMED__V10*/ meltfptr[9])); - ((meltroutine_ptr_t)/*_.VALROUT___V874*/ meltfptr[873])->tabval[8] = (melt_ptr_t)(/*_.CLASS_NAMED__V10*/ meltfptr[9]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V941*/ meltfptr[940])) == OBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_868__TRANSLPAT_PATMAT#9", NULL != (/*_.NORMALIZE_TUPLE__V29*/ meltfptr[28])); + ((meltroutine_ptr_t)/*_.VALROUT___V941*/ meltfptr[940])->tabval[9] = (melt_ptr_t)(/*_.NORMALIZE_TUPLE__V29*/ meltfptr[28]); - MELT_LOCATION("warmelt-normatch.melt:3047:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:3310:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V874*/ meltfptr[873])) == OBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_802__TRANSLPAT_PATMAT#9", NULL != (/*_.GET_CTYPE__V19*/ meltfptr[18])); - ((meltroutine_ptr_t)/*_.VALROUT___V874*/ meltfptr[873])->tabval[9] = (melt_ptr_t)(/*_.GET_CTYPE__V19*/ meltfptr[18]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V941*/ meltfptr[940])) == OBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_868__TRANSLPAT_PATMAT#10", NULL != (/*_.GET_CTYPE__V19*/ meltfptr[18])); + ((meltroutine_ptr_t)/*_.VALROUT___V941*/ meltfptr[940])->tabval[10] = (melt_ptr_t)(/*_.GET_CTYPE__V19*/ meltfptr[18]); - MELT_LOCATION("warmelt-normatch.melt:3047:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:3310:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V874*/ meltfptr[873])) == OBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_802__TRANSLPAT_PATMAT#10", NULL != (/*_.CLASS_FORMAL_BINDING__V28*/ meltfptr[27])); - ((meltroutine_ptr_t)/*_.VALROUT___V874*/ meltfptr[873])->tabval[10] = (melt_ptr_t)(/*_.CLASS_FORMAL_BINDING__V28*/ meltfptr[27]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V941*/ meltfptr[940])) == OBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_868__TRANSLPAT_PATMAT#11", NULL != (/*_.CLASS_FORMAL_BINDING__V28*/ meltfptr[27])); + ((meltroutine_ptr_t)/*_.VALROUT___V941*/ meltfptr[940])->tabval[11] = (melt_ptr_t)(/*_.CLASS_FORMAL_BINDING__V28*/ meltfptr[27]); - MELT_LOCATION("warmelt-normatch.melt:3047:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:3310:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V874*/ meltfptr[873])) == OBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_802__TRANSLPAT_PATMAT#11", NULL != (/*_.CLASS_CTYPE__V20*/ meltfptr[19])); - ((meltroutine_ptr_t)/*_.VALROUT___V874*/ meltfptr[873])->tabval[11] = (melt_ptr_t)(/*_.CLASS_CTYPE__V20*/ meltfptr[19]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V941*/ meltfptr[940])) == OBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_868__TRANSLPAT_PATMAT#12", NULL != (/*_.CLASS_CTYPE__V20*/ meltfptr[19])); + ((meltroutine_ptr_t)/*_.VALROUT___V941*/ meltfptr[940])->tabval[12] = (melt_ptr_t)(/*_.CLASS_CTYPE__V20*/ meltfptr[19]); - MELT_LOCATION("warmelt-normatch.melt:3047:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:3310:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V874*/ meltfptr[873])) == OBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_802__TRANSLPAT_PATMAT#12", NULL != (/*_.CLASS_ANY_BINDING__V54*/ meltfptr[53])); - ((meltroutine_ptr_t)/*_.VALROUT___V874*/ meltfptr[873])->tabval[12] = (melt_ptr_t)(/*_.CLASS_ANY_BINDING__V54*/ meltfptr[53]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V941*/ meltfptr[940])) == OBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_868__TRANSLPAT_PATMAT#13", NULL != (/*_.CLASS_ANY_BINDING__V54*/ meltfptr[53])); + ((meltroutine_ptr_t)/*_.VALROUT___V941*/ meltfptr[940])->tabval[13] = (melt_ptr_t)(/*_.CLASS_ANY_BINDING__V54*/ meltfptr[53]); + + MELT_LOCATION("warmelt-normatch.melt:3310:/ initchunk"); + /*^putroutconstnotnull*/ + /*putroutconstnotnull*/ + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V941*/ meltfptr[940])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V654*/ meltfptr[653]); + ((meltroutine_ptr_t)/*_.VALROUT___V941*/ meltfptr[940])->tabval[14] = (melt_ptr_t)(/*_.VALDATA___V654*/ meltfptr[653]); - MELT_LOCATION("warmelt-normatch.melt:3047:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:3310:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V874*/ meltfptr[873])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V649*/ meltfptr[648]); - ((meltroutine_ptr_t)/*_.VALROUT___V874*/ meltfptr[873])->tabval[13] = (melt_ptr_t)(/*_.VALDATA___V649*/ meltfptr[648]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V941*/ meltfptr[940])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V756*/ meltfptr[755]); + ((meltroutine_ptr_t)/*_.VALROUT___V941*/ meltfptr[940])->tabval[15] = (melt_ptr_t)(/*_.VALDATA___V756*/ meltfptr[755]); - MELT_LOCATION("warmelt-normatch.melt:3047:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:3310:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V874*/ meltfptr[873])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V749*/ meltfptr[748]); - ((meltroutine_ptr_t)/*_.VALROUT___V874*/ meltfptr[873])->tabval[14] = (melt_ptr_t)(/*_.VALDATA___V749*/ meltfptr[748]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V941*/ meltfptr[940])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V808*/ meltfptr[807]); + ((meltroutine_ptr_t)/*_.VALROUT___V941*/ meltfptr[940])->tabval[16] = (melt_ptr_t)(/*_.VALDATA___V808*/ meltfptr[807]); - MELT_LOCATION("warmelt-normatch.melt:3047:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:3310:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V874*/ meltfptr[873])) == OBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_802__TRANSLPAT_PATMAT#15", NULL != (/*_.DISCR_MULTIPLE__V43*/ meltfptr[42])); - ((meltroutine_ptr_t)/*_.VALROUT___V874*/ meltfptr[873])->tabval[15] = (melt_ptr_t)(/*_.DISCR_MULTIPLE__V43*/ meltfptr[42]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V941*/ meltfptr[940])) == OBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_868__TRANSLPAT_PATMAT#17", NULL != (/*_.DISCR_MULTIPLE__V43*/ meltfptr[42])); + ((meltroutine_ptr_t)/*_.VALROUT___V941*/ meltfptr[940])->tabval[17] = (melt_ptr_t)(/*_.DISCR_MULTIPLE__V43*/ meltfptr[42]); - MELT_LOCATION("warmelt-normatch.melt:3047:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:3310:/ initchunk"); + /*^putroutconstnotnull*/ + /*putroutconstnotnull*/ + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V941*/ meltfptr[940])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V897*/ meltfptr[896]); + ((meltroutine_ptr_t)/*_.VALROUT___V941*/ meltfptr[940])->tabval[18] = (melt_ptr_t)(/*_.VALDATA___V897*/ meltfptr[896]); + + MELT_LOCATION("warmelt-normatch.melt:3310:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V874*/ meltfptr[873])) == OBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_802__TRANSLPAT_PATMAT#16", NULL != (/*_.CLONE_SYMBOL__V47*/ meltfptr[46])); - ((meltroutine_ptr_t)/*_.VALROUT___V874*/ meltfptr[873])->tabval[16] = (melt_ptr_t)(/*_.CLONE_SYMBOL__V47*/ meltfptr[46]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V941*/ meltfptr[940])) == OBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_868__TRANSLPAT_PATMAT#19", NULL != (/*_.CLONE_SYMBOL__V47*/ meltfptr[46])); + ((meltroutine_ptr_t)/*_.VALROUT___V941*/ meltfptr[940])->tabval[19] = (melt_ptr_t)(/*_.CLONE_SYMBOL__V47*/ meltfptr[46]); - MELT_LOCATION("warmelt-normatch.melt:3047:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:3310:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V874*/ meltfptr[873])) == OBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_802__TRANSLPAT_PATMAT#17", NULL != (/*_.DISCR_LIST__V36*/ meltfptr[35])); - ((meltroutine_ptr_t)/*_.VALROUT___V874*/ meltfptr[873])->tabval[17] = (melt_ptr_t)(/*_.DISCR_LIST__V36*/ meltfptr[35]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V941*/ meltfptr[940])) == OBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_868__TRANSLPAT_PATMAT#20", NULL != (/*_.DISCR_LIST__V36*/ meltfptr[35])); + ((meltroutine_ptr_t)/*_.VALROUT___V941*/ meltfptr[940])->tabval[20] = (melt_ptr_t)(/*_.DISCR_LIST__V36*/ meltfptr[35]); + + MELT_LOCATION("warmelt-normatch.melt:3310:/ initchunk"); + /*^putroutconstnotnull*/ + /*putroutconstnotnull*/ + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V941*/ meltfptr[940])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V776*/ meltfptr[775]); + ((meltroutine_ptr_t)/*_.VALROUT___V941*/ meltfptr[940])->tabval[21] = (melt_ptr_t)(/*_.VALDATA___V776*/ meltfptr[775]); + + MELT_LOCATION("warmelt-normatch.melt:3310:/ initchunk"); + /*^putroutconstnotnull*/ + /*putroutconstnotnull*/ + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V941*/ meltfptr[940])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V925*/ meltfptr[924]); + ((meltroutine_ptr_t)/*_.VALROUT___V941*/ meltfptr[940])->tabval[22] = (melt_ptr_t)(/*_.VALDATA___V925*/ meltfptr[924]); + + MELT_LOCATION("warmelt-normatch.melt:3310:/ initchunk"); + /*^putroutconstnotnull*/ + /*putroutconstnotnull*/ + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V941*/ meltfptr[940])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V882*/ meltfptr[881]); + ((meltroutine_ptr_t)/*_.VALROUT___V941*/ meltfptr[940])->tabval[23] = (melt_ptr_t)(/*_.VALDATA___V882*/ meltfptr[881]); - MELT_LOCATION("warmelt-normatch.melt:3047:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:3310:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V874*/ meltfptr[873])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V717*/ meltfptr[716]); - ((meltroutine_ptr_t)/*_.VALROUT___V874*/ meltfptr[873])->tabval[18] = (melt_ptr_t)(/*_.VALDATA___V717*/ meltfptr[716]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V941*/ meltfptr[940])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V664*/ meltfptr[663]); + ((meltroutine_ptr_t)/*_.VALROUT___V941*/ meltfptr[940])->tabval[24] = (melt_ptr_t)(/*_.VALDATA___V664*/ meltfptr[663]); - MELT_LOCATION("warmelt-normatch.melt:3047:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:3310:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V874*/ meltfptr[873])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V860*/ meltfptr[859]); - ((meltroutine_ptr_t)/*_.VALROUT___V874*/ meltfptr[873])->tabval[19] = (melt_ptr_t)(/*_.VALDATA___V860*/ meltfptr[859]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V941*/ meltfptr[940])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V722*/ meltfptr[721]); + ((meltroutine_ptr_t)/*_.VALROUT___V941*/ meltfptr[940])->tabval[25] = (melt_ptr_t)(/*_.VALDATA___V722*/ meltfptr[721]); - MELT_LOCATION("warmelt-normatch.melt:3047:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:3310:/ initchunk"); + /*^putroutconst*/ + /*putroutconst*/ + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V941*/ meltfptr[940])) == OBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_868__TRANSLPAT_PATMAT#26", NULL != (/*_.LIST_TO_MULTIPLE__V51*/ meltfptr[50])); + ((meltroutine_ptr_t)/*_.VALROUT___V941*/ meltfptr[940])->tabval[26] = (melt_ptr_t)(/*_.LIST_TO_MULTIPLE__V51*/ meltfptr[50]); + + MELT_LOCATION("warmelt-normatch.melt:3310:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V874*/ meltfptr[873])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V819*/ meltfptr[818]); - ((meltroutine_ptr_t)/*_.VALROUT___V874*/ meltfptr[873])->tabval[20] = (melt_ptr_t)(/*_.VALDATA___V819*/ meltfptr[818]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V941*/ meltfptr[940])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V706*/ meltfptr[705]); + ((meltroutine_ptr_t)/*_.VALROUT___V941*/ meltfptr[940])->tabval[27] = (melt_ptr_t)(/*_.VALDATA___V706*/ meltfptr[705]); - MELT_LOCATION("warmelt-normatch.melt:3047:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:3310:/ initchunk"); /*^touch*/ /*touch:IROUTVAL_*/ - meltgc_touch(/*_.VALROUT___V874*/ meltfptr[873]); + meltgc_touch(/*_.VALROUT___V941*/ meltfptr[940]); /*putclosurout*/ - melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V875*/ meltfptr[874])) == OBMAG_CLOSURE); - melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V874*/ meltfptr[873])) == OBMAG_ROUTINE); - ((meltclosure_ptr_t)/*_.VALCLO___V875*/ meltfptr[874])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V874*/ meltfptr[873]); - + melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V942*/ meltfptr[941])) == OBMAG_CLOSURE); + melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V941*/ meltfptr[940])) == OBMAG_ROUTINE); + ((meltclosure_ptr_t)/*_.VALCLO___V942*/ meltfptr[941])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V941*/ meltfptr[940]); -#undef meltfram__ -} /*end of warmelt_normatch_initialmeltchunk_6*/ - -void MELT_MODULE_VISIBILITY warmelt_normatch_initialmeltchunk_7 (struct frame_start_module_melt_st* meltframptr__, char predefinited[]) { -#define meltfram__ (*meltframptr__) -#undef meltcallcount -#define meltcallcount 0L -/*touch:DATACLOSURE_*/ - meltgc_touch(/*_.VALCLO___V875*/ meltfptr[874]); + /*touch:DATACLOSURE_*/ + meltgc_touch(/*_.VALCLO___V942*/ meltfptr[941]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V876*/ meltfptr[875])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V943*/ meltfptr[942])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V876*/ meltfptr[875])))); - ((meltobject_ptr_t)(/*_.VALDATA___V876*/ meltfptr[875]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V877*/ meltfptr[876]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V943*/ meltfptr[942])))); + ((meltobject_ptr_t)(/*_.VALDATA___V943*/ meltfptr[942]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V944*/ meltfptr[943]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V876*/ meltfptr[875]); + meltgc_touch(/*_.VALDATA___V943*/ meltfptr[942]); - MELT_LOCATION("warmelt-normatch.melt:3228:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:3531:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V878*/ meltfptr[877])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V945*/ meltfptr[944])) == OBMAG_OBJECT); + + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V945*/ meltfptr[944])))); + ((meltobject_ptr_t)(/*_.VALDATA___V945*/ meltfptr[944]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V946*/ meltfptr[945]); + + MELT_LOCATION("warmelt-normatch.melt:3531:/ initchunk"); + /*^touch*/ + /*touch:VALUEDATA_*/ + meltgc_touch(/*_.VALDATA___V945*/ meltfptr[944]); + + MELT_LOCATION("warmelt-normatch.melt:3538:/ initchunk"); + /*^putroutconst*/ + /*putroutconst*/ + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V947*/ meltfptr[946])) == OBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_874__MGALTSTEP_STEPTESTVAR#0", NULL != (/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8])); + ((meltroutine_ptr_t)/*_.VALROUT___V947*/ meltfptr[946])->tabval[0] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8]); + + MELT_LOCATION("warmelt-normatch.melt:3538:/ initchunk"); + /*^putroutconstnotnull*/ + /*putroutconstnotnull*/ + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V947*/ meltfptr[946])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V766*/ meltfptr[765]); + ((meltroutine_ptr_t)/*_.VALROUT___V947*/ meltfptr[946])->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V766*/ meltfptr[765]); + + MELT_LOCATION("warmelt-normatch.melt:3538:/ initchunk"); + /*^putroutconstnotnull*/ + /*putroutconstnotnull*/ + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V947*/ meltfptr[946])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V491*/ meltfptr[490]); + ((meltroutine_ptr_t)/*_.VALROUT___V947*/ meltfptr[946])->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V491*/ meltfptr[490]); + + MELT_LOCATION("warmelt-normatch.melt:3538:/ initchunk"); + /*^putroutconst*/ + /*putroutconst*/ + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V947*/ meltfptr[946])) == OBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_874__MGALTSTEP_STEPTESTVAR#3", NULL != (/*_.CLASS_NAMED__V10*/ meltfptr[9])); + ((meltroutine_ptr_t)/*_.VALROUT___V947*/ meltfptr[946])->tabval[3] = (melt_ptr_t)(/*_.CLASS_NAMED__V10*/ meltfptr[9]); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V878*/ meltfptr[877])))); - ((meltobject_ptr_t)(/*_.VALDATA___V878*/ meltfptr[877]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V879*/ meltfptr[878]); + MELT_LOCATION("warmelt-normatch.melt:3538:/ initchunk"); + /*^putroutconst*/ + /*putroutconst*/ + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V947*/ meltfptr[946])) == OBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_874__MGALTSTEP_STEPTESTVAR#4", NULL != (/*_.CLASS_CLONED_SYMBOL__V62*/ meltfptr[61])); + ((meltroutine_ptr_t)/*_.VALROUT___V947*/ meltfptr[946])->tabval[4] = (melt_ptr_t)(/*_.CLASS_CLONED_SYMBOL__V62*/ meltfptr[61]); - MELT_LOCATION("warmelt-normatch.melt:3228:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:3538:/ initchunk"); /*^touch*/ - /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V878*/ meltfptr[877]); + /*touch:IROUTVAL_*/ + meltgc_touch(/*_.VALROUT___V947*/ meltfptr[946]); + + /*putclosurout*/ + melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V948*/ meltfptr[947])) == OBMAG_CLOSURE); + melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V947*/ meltfptr[946])) == OBMAG_ROUTINE); + ((meltclosure_ptr_t)/*_.VALCLO___V948*/ meltfptr[947])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V947*/ meltfptr[946]); + + /*touch:DATACLOSURE_*/ + meltgc_touch(/*_.VALCLO___V948*/ meltfptr[947]); - MELT_LOCATION("warmelt-normatch.melt:3231:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:3600:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V880*/ meltfptr[879])) == OBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_808__MGALTSTEP_STEPSETVAR#0", NULL != (/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8])); - ((meltroutine_ptr_t)/*_.VALROUT___V880*/ meltfptr[879])->tabval[0] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V949*/ meltfptr[948])) == OBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_876__MGALTSTEP_STEPTESTINST#0", NULL != (/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8])); + ((meltroutine_ptr_t)/*_.VALROUT___V949*/ meltfptr[948])->tabval[0] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8]); + + MELT_LOCATION("warmelt-normatch.melt:3600:/ initchunk"); + /*^putroutconstnotnull*/ + /*putroutconstnotnull*/ + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V949*/ meltfptr[948])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V794*/ meltfptr[793]); + ((meltroutine_ptr_t)/*_.VALROUT___V949*/ meltfptr[948])->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V794*/ meltfptr[793]); - MELT_LOCATION("warmelt-normatch.melt:3231:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:3600:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V880*/ meltfptr[879])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V669*/ meltfptr[668]); - ((meltroutine_ptr_t)/*_.VALROUT___V880*/ meltfptr[879])->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V669*/ meltfptr[668]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V949*/ meltfptr[948])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V491*/ meltfptr[490]); + ((meltroutine_ptr_t)/*_.VALROUT___V949*/ meltfptr[948])->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V491*/ meltfptr[490]); - MELT_LOCATION("warmelt-normatch.melt:3231:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:3600:/ initchunk"); + /*^putroutconst*/ + /*putroutconst*/ + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V949*/ meltfptr[948])) == OBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_876__MGALTSTEP_STEPTESTINST#3", NULL != (/*_.CLASS_NAMED__V10*/ meltfptr[9])); + ((meltroutine_ptr_t)/*_.VALROUT___V949*/ meltfptr[948])->tabval[3] = (melt_ptr_t)(/*_.CLASS_NAMED__V10*/ meltfptr[9]); + + MELT_LOCATION("warmelt-normatch.melt:3600:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V880*/ meltfptr[879])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V490*/ meltfptr[489]); - ((meltroutine_ptr_t)/*_.VALROUT___V880*/ meltfptr[879])->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V490*/ meltfptr[489]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V949*/ meltfptr[948])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V614*/ meltfptr[613]); + ((meltroutine_ptr_t)/*_.VALROUT___V949*/ meltfptr[948])->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V614*/ meltfptr[613]); - MELT_LOCATION("warmelt-normatch.melt:3231:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:3600:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V880*/ meltfptr[879])) == OBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_808__MGALTSTEP_STEPSETVAR#3", NULL != (/*_.CLASS_NAMED__V10*/ meltfptr[9])); - ((meltroutine_ptr_t)/*_.VALROUT___V880*/ meltfptr[879])->tabval[3] = (melt_ptr_t)(/*_.CLASS_NAMED__V10*/ meltfptr[9]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V949*/ meltfptr[948])) == OBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_876__MGALTSTEP_STEPTESTINST#5", NULL != (/*_.CLASS_CLASS__V22*/ meltfptr[21])); + ((meltroutine_ptr_t)/*_.VALROUT___V949*/ meltfptr[948])->tabval[5] = (melt_ptr_t)(/*_.CLASS_CLASS__V22*/ meltfptr[21]); - MELT_LOCATION("warmelt-normatch.melt:3231:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:3600:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V880*/ meltfptr[879])) == OBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_808__MGALTSTEP_STEPSETVAR#4", NULL != (/*_.CLASS_CLONED_SYMBOL__V62*/ meltfptr[61])); - ((meltroutine_ptr_t)/*_.VALROUT___V880*/ meltfptr[879])->tabval[4] = (melt_ptr_t)(/*_.CLASS_CLONED_SYMBOL__V62*/ meltfptr[61]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V949*/ meltfptr[948])) == OBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_876__MGALTSTEP_STEPTESTINST#6", NULL != (/*_.CLASS_FIELD__V24*/ meltfptr[23])); + ((meltroutine_ptr_t)/*_.VALROUT___V949*/ meltfptr[948])->tabval[6] = (melt_ptr_t)(/*_.CLASS_FIELD__V24*/ meltfptr[23]); - MELT_LOCATION("warmelt-normatch.melt:3231:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:3600:/ initchunk"); /*^touch*/ /*touch:IROUTVAL_*/ - meltgc_touch(/*_.VALROUT___V880*/ meltfptr[879]); + meltgc_touch(/*_.VALROUT___V949*/ meltfptr[948]); /*putclosurout*/ - melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V881*/ meltfptr[880])) == OBMAG_CLOSURE); - melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V880*/ meltfptr[879])) == OBMAG_ROUTINE); - ((meltclosure_ptr_t)/*_.VALCLO___V881*/ meltfptr[880])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V880*/ meltfptr[879]); + melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V950*/ meltfptr[949])) == OBMAG_CLOSURE); + melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V949*/ meltfptr[948])) == OBMAG_ROUTINE); + ((meltclosure_ptr_t)/*_.VALCLO___V950*/ meltfptr[949])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V949*/ meltfptr[948]); /*touch:DATACLOSURE_*/ - meltgc_touch(/*_.VALCLO___V881*/ meltfptr[880]); + meltgc_touch(/*_.VALCLO___V950*/ meltfptr[949]); - MELT_LOCATION("warmelt-normatch.melt:3283:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:3675:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V882*/ meltfptr[881])) == OBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_810__MGALTSTEP_STEPTESTVAR#0", NULL != (/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8])); - ((meltroutine_ptr_t)/*_.VALROUT___V882*/ meltfptr[881])->tabval[0] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V951*/ meltfptr[950])) == OBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_878__MGALTSTEP_STEPTESTGROUP#0", NULL != (/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8])); + ((meltroutine_ptr_t)/*_.VALROUT___V951*/ meltfptr[950])->tabval[0] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8]); - MELT_LOCATION("warmelt-normatch.melt:3283:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:3675:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V882*/ meltfptr[881])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V707*/ meltfptr[706]); - ((meltroutine_ptr_t)/*_.VALROUT___V882*/ meltfptr[881])->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V707*/ meltfptr[706]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V951*/ meltfptr[950])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V776*/ meltfptr[775]); + ((meltroutine_ptr_t)/*_.VALROUT___V951*/ meltfptr[950])->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V776*/ meltfptr[775]); - MELT_LOCATION("warmelt-normatch.melt:3283:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:3675:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V882*/ meltfptr[881])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V490*/ meltfptr[489]); - ((meltroutine_ptr_t)/*_.VALROUT___V882*/ meltfptr[881])->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V490*/ meltfptr[489]); - - MELT_LOCATION("warmelt-normatch.melt:3283:/ initchunk"); - /*^putroutconst*/ - /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V882*/ meltfptr[881])) == OBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_810__MGALTSTEP_STEPTESTVAR#3", NULL != (/*_.CLASS_NAMED__V10*/ meltfptr[9])); - ((meltroutine_ptr_t)/*_.VALROUT___V882*/ meltfptr[881])->tabval[3] = (melt_ptr_t)(/*_.CLASS_NAMED__V10*/ meltfptr[9]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V951*/ meltfptr[950])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V491*/ meltfptr[490]); + ((meltroutine_ptr_t)/*_.VALROUT___V951*/ meltfptr[950])->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V491*/ meltfptr[490]); - MELT_LOCATION("warmelt-normatch.melt:3283:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:3675:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V882*/ meltfptr[881])) == OBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_810__MGALTSTEP_STEPTESTVAR#4", NULL != (/*_.CLASS_CLONED_SYMBOL__V62*/ meltfptr[61])); - ((meltroutine_ptr_t)/*_.VALROUT___V882*/ meltfptr[881])->tabval[4] = (melt_ptr_t)(/*_.CLASS_CLONED_SYMBOL__V62*/ meltfptr[61]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V951*/ meltfptr[950])) == OBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_878__MGALTSTEP_STEPTESTGROUP#3", NULL != (/*_.CLASS_NAMED__V10*/ meltfptr[9])); + ((meltroutine_ptr_t)/*_.VALROUT___V951*/ meltfptr[950])->tabval[3] = (melt_ptr_t)(/*_.CLASS_NAMED__V10*/ meltfptr[9]); - MELT_LOCATION("warmelt-normatch.melt:3283:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:3675:/ initchunk"); /*^touch*/ /*touch:IROUTVAL_*/ - meltgc_touch(/*_.VALROUT___V882*/ meltfptr[881]); + meltgc_touch(/*_.VALROUT___V951*/ meltfptr[950]); /*putclosurout*/ - melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V883*/ meltfptr[882])) == OBMAG_CLOSURE); - melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V882*/ meltfptr[881])) == OBMAG_ROUTINE); - ((meltclosure_ptr_t)/*_.VALCLO___V883*/ meltfptr[882])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V882*/ meltfptr[881]); + melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V952*/ meltfptr[951])) == OBMAG_CLOSURE); + melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V951*/ meltfptr[950])) == OBMAG_ROUTINE); + ((meltclosure_ptr_t)/*_.VALCLO___V952*/ meltfptr[951])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V951*/ meltfptr[950]); /*touch:DATACLOSURE_*/ - meltgc_touch(/*_.VALCLO___V883*/ meltfptr[882]); + meltgc_touch(/*_.VALCLO___V952*/ meltfptr[951]); - MELT_LOCATION("warmelt-normatch.melt:3345:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:3725:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V884*/ meltfptr[883])) == OBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_812__MGALTSTEP_STEPTESTINST#0", NULL != (/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8])); - ((meltroutine_ptr_t)/*_.VALROUT___V884*/ meltfptr[883])->tabval[0] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V953*/ meltfptr[952])) == OBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_880__MGALTSTEP_STEPTESTMATCHER#0", NULL != (/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8])); + ((meltroutine_ptr_t)/*_.VALROUT___V953*/ meltfptr[952])->tabval[0] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8]); - MELT_LOCATION("warmelt-normatch.melt:3345:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:3725:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V884*/ meltfptr[883])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V735*/ meltfptr[734]); - ((meltroutine_ptr_t)/*_.VALROUT___V884*/ meltfptr[883])->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V735*/ meltfptr[734]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V953*/ meltfptr[952])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V808*/ meltfptr[807]); + ((meltroutine_ptr_t)/*_.VALROUT___V953*/ meltfptr[952])->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V808*/ meltfptr[807]); - MELT_LOCATION("warmelt-normatch.melt:3345:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:3725:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V884*/ meltfptr[883])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V490*/ meltfptr[489]); - ((meltroutine_ptr_t)/*_.VALROUT___V884*/ meltfptr[883])->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V490*/ meltfptr[489]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V953*/ meltfptr[952])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V491*/ meltfptr[490]); + ((meltroutine_ptr_t)/*_.VALROUT___V953*/ meltfptr[952])->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V491*/ meltfptr[490]); - MELT_LOCATION("warmelt-normatch.melt:3345:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:3725:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V884*/ meltfptr[883])) == OBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_812__MGALTSTEP_STEPTESTINST#3", NULL != (/*_.CLASS_NAMED__V10*/ meltfptr[9])); - ((meltroutine_ptr_t)/*_.VALROUT___V884*/ meltfptr[883])->tabval[3] = (melt_ptr_t)(/*_.CLASS_NAMED__V10*/ meltfptr[9]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V953*/ meltfptr[952])) == OBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_880__MGALTSTEP_STEPTESTMATCHER#3", NULL != (/*_.CLASS_NAMED__V10*/ meltfptr[9])); + ((meltroutine_ptr_t)/*_.VALROUT___V953*/ meltfptr[952])->tabval[3] = (melt_ptr_t)(/*_.CLASS_NAMED__V10*/ meltfptr[9]); - MELT_LOCATION("warmelt-normatch.melt:3345:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:3725:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V884*/ meltfptr[883])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V609*/ meltfptr[608]); - ((meltroutine_ptr_t)/*_.VALROUT___V884*/ meltfptr[883])->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V609*/ meltfptr[608]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V953*/ meltfptr[952])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V614*/ meltfptr[613]); + ((meltroutine_ptr_t)/*_.VALROUT___V953*/ meltfptr[952])->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V614*/ meltfptr[613]); - MELT_LOCATION("warmelt-normatch.melt:3345:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:3725:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V884*/ meltfptr[883])) == OBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_812__MGALTSTEP_STEPTESTINST#5", NULL != (/*_.CLASS_CLASS__V22*/ meltfptr[21])); - ((meltroutine_ptr_t)/*_.VALROUT___V884*/ meltfptr[883])->tabval[5] = (melt_ptr_t)(/*_.CLASS_CLASS__V22*/ meltfptr[21]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V953*/ meltfptr[952])) == OBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_880__MGALTSTEP_STEPTESTMATCHER#5", NULL != (/*_.CLASS_ANY_MATCHER__V27*/ meltfptr[26])); + ((meltroutine_ptr_t)/*_.VALROUT___V953*/ meltfptr[952])->tabval[5] = (melt_ptr_t)(/*_.CLASS_ANY_MATCHER__V27*/ meltfptr[26]); - MELT_LOCATION("warmelt-normatch.melt:3345:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:3725:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V884*/ meltfptr[883])) == OBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_812__MGALTSTEP_STEPTESTINST#6", NULL != (/*_.CLASS_FIELD__V24*/ meltfptr[23])); - ((meltroutine_ptr_t)/*_.VALROUT___V884*/ meltfptr[883])->tabval[6] = (melt_ptr_t)(/*_.CLASS_FIELD__V24*/ meltfptr[23]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V953*/ meltfptr[952])) == OBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_880__MGALTSTEP_STEPTESTMATCHER#6", NULL != (/*_.CLASS_ANY_BINDING__V54*/ meltfptr[53])); + ((meltroutine_ptr_t)/*_.VALROUT___V953*/ meltfptr[952])->tabval[6] = (melt_ptr_t)(/*_.CLASS_ANY_BINDING__V54*/ meltfptr[53]); + + MELT_LOCATION("warmelt-normatch.melt:3725:/ initchunk"); + /*^putroutconst*/ + /*putroutconst*/ + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V953*/ meltfptr[952])) == OBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_880__MGALTSTEP_STEPTESTMATCHER#7", NULL != (/*_.CLASS_SYMBOL__V32*/ meltfptr[31])); + ((meltroutine_ptr_t)/*_.VALROUT___V953*/ meltfptr[952])->tabval[7] = (melt_ptr_t)(/*_.CLASS_SYMBOL__V32*/ meltfptr[31]); - MELT_LOCATION("warmelt-normatch.melt:3345:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:3725:/ initchunk"); /*^touch*/ /*touch:IROUTVAL_*/ - meltgc_touch(/*_.VALROUT___V884*/ meltfptr[883]); + meltgc_touch(/*_.VALROUT___V953*/ meltfptr[952]); /*putclosurout*/ - melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V885*/ meltfptr[884])) == OBMAG_CLOSURE); - melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V884*/ meltfptr[883])) == OBMAG_ROUTINE); - ((meltclosure_ptr_t)/*_.VALCLO___V885*/ meltfptr[884])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V884*/ meltfptr[883]); + melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V954*/ meltfptr[953])) == OBMAG_CLOSURE); + melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V953*/ meltfptr[952])) == OBMAG_ROUTINE); + ((meltclosure_ptr_t)/*_.VALCLO___V954*/ meltfptr[953])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V953*/ meltfptr[952]); /*touch:DATACLOSURE_*/ - meltgc_touch(/*_.VALCLO___V885*/ meltfptr[884]); + meltgc_touch(/*_.VALCLO___V954*/ meltfptr[953]); - MELT_LOCATION("warmelt-normatch.melt:3420:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:3802:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V886*/ meltfptr[885])) == OBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_814__MGALTSTEP_STEPTESTGROUP#0", NULL != (/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8])); - ((meltroutine_ptr_t)/*_.VALROUT___V886*/ meltfptr[885])->tabval[0] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V955*/ meltfptr[954])) == OBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_882__MGALTSTEP_STEPSUCCESS#0", NULL != (/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8])); + ((meltroutine_ptr_t)/*_.VALROUT___V955*/ meltfptr[954])->tabval[0] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8]); - MELT_LOCATION("warmelt-normatch.melt:3420:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:3802:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V886*/ meltfptr[885])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V717*/ meltfptr[716]); - ((meltroutine_ptr_t)/*_.VALROUT___V886*/ meltfptr[885])->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V717*/ meltfptr[716]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V955*/ meltfptr[954])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V734*/ meltfptr[733]); + ((meltroutine_ptr_t)/*_.VALROUT___V955*/ meltfptr[954])->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V734*/ meltfptr[733]); - MELT_LOCATION("warmelt-normatch.melt:3420:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:3802:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V886*/ meltfptr[885])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V490*/ meltfptr[489]); - ((meltroutine_ptr_t)/*_.VALROUT___V886*/ meltfptr[885])->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V490*/ meltfptr[489]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V955*/ meltfptr[954])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V491*/ meltfptr[490]); + ((meltroutine_ptr_t)/*_.VALROUT___V955*/ meltfptr[954])->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V491*/ meltfptr[490]); - MELT_LOCATION("warmelt-normatch.melt:3420:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:3802:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V886*/ meltfptr[885])) == OBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_814__MGALTSTEP_STEPTESTGROUP#3", NULL != (/*_.CLASS_NAMED__V10*/ meltfptr[9])); - ((meltroutine_ptr_t)/*_.VALROUT___V886*/ meltfptr[885])->tabval[3] = (melt_ptr_t)(/*_.CLASS_NAMED__V10*/ meltfptr[9]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V955*/ meltfptr[954])) == OBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_882__MGALTSTEP_STEPSUCCESS#3", NULL != (/*_.CLASS_NAMED__V10*/ meltfptr[9])); + ((meltroutine_ptr_t)/*_.VALROUT___V955*/ meltfptr[954])->tabval[3] = (melt_ptr_t)(/*_.CLASS_NAMED__V10*/ meltfptr[9]); - MELT_LOCATION("warmelt-normatch.melt:3420:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:3802:/ initchunk"); /*^touch*/ /*touch:IROUTVAL_*/ - meltgc_touch(/*_.VALROUT___V886*/ meltfptr[885]); + meltgc_touch(/*_.VALROUT___V955*/ meltfptr[954]); /*putclosurout*/ - melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V887*/ meltfptr[886])) == OBMAG_CLOSURE); - melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V886*/ meltfptr[885])) == OBMAG_ROUTINE); - ((meltclosure_ptr_t)/*_.VALCLO___V887*/ meltfptr[886])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V886*/ meltfptr[885]); + melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V956*/ meltfptr[955])) == OBMAG_CLOSURE); + melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V955*/ meltfptr[954])) == OBMAG_ROUTINE); + ((meltclosure_ptr_t)/*_.VALCLO___V956*/ meltfptr[955])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V955*/ meltfptr[954]); /*touch:DATACLOSURE_*/ - meltgc_touch(/*_.VALCLO___V887*/ meltfptr[886]); + meltgc_touch(/*_.VALCLO___V956*/ meltfptr[955]); - MELT_LOCATION("warmelt-normatch.melt:3470:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:3843:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V888*/ meltfptr[887])) == OBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_816__MGALTSTEP_STEPTESTMATCHER#0", NULL != (/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8])); - ((meltroutine_ptr_t)/*_.VALROUT___V888*/ meltfptr[887])->tabval[0] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V957*/ meltfptr[956])) == OBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_884__MGALTSTEP_STEPFLAGSET#0", NULL != (/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8])); + ((meltroutine_ptr_t)/*_.VALROUT___V957*/ meltfptr[956])->tabval[0] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8]); - MELT_LOCATION("warmelt-normatch.melt:3470:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:3843:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V888*/ meltfptr[887])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V749*/ meltfptr[748]); - ((meltroutine_ptr_t)/*_.VALROUT___V888*/ meltfptr[887])->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V749*/ meltfptr[748]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V957*/ meltfptr[956])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V706*/ meltfptr[705]); + ((meltroutine_ptr_t)/*_.VALROUT___V957*/ meltfptr[956])->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V706*/ meltfptr[705]); - MELT_LOCATION("warmelt-normatch.melt:3470:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:3843:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V888*/ meltfptr[887])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V490*/ meltfptr[489]); - ((meltroutine_ptr_t)/*_.VALROUT___V888*/ meltfptr[887])->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V490*/ meltfptr[489]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V957*/ meltfptr[956])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V491*/ meltfptr[490]); + ((meltroutine_ptr_t)/*_.VALROUT___V957*/ meltfptr[956])->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V491*/ meltfptr[490]); - MELT_LOCATION("warmelt-normatch.melt:3470:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:3843:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V888*/ meltfptr[887])) == OBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_816__MGALTSTEP_STEPTESTMATCHER#3", NULL != (/*_.CLASS_NAMED__V10*/ meltfptr[9])); - ((meltroutine_ptr_t)/*_.VALROUT___V888*/ meltfptr[887])->tabval[3] = (melt_ptr_t)(/*_.CLASS_NAMED__V10*/ meltfptr[9]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V957*/ meltfptr[956])) == OBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_884__MGALTSTEP_STEPFLAGSET#3", NULL != (/*_.CLASS_NAMED__V10*/ meltfptr[9])); + ((meltroutine_ptr_t)/*_.VALROUT___V957*/ meltfptr[956])->tabval[3] = (melt_ptr_t)(/*_.CLASS_NAMED__V10*/ meltfptr[9]); - MELT_LOCATION("warmelt-normatch.melt:3470:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:3843:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V888*/ meltfptr[887])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V609*/ meltfptr[608]); - ((meltroutine_ptr_t)/*_.VALROUT___V888*/ meltfptr[887])->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V609*/ meltfptr[608]); - - MELT_LOCATION("warmelt-normatch.melt:3470:/ initchunk"); - /*^putroutconst*/ - /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V888*/ meltfptr[887])) == OBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_816__MGALTSTEP_STEPTESTMATCHER#5", NULL != (/*_.CLASS_ANY_MATCHER__V27*/ meltfptr[26])); - ((meltroutine_ptr_t)/*_.VALROUT___V888*/ meltfptr[887])->tabval[5] = (melt_ptr_t)(/*_.CLASS_ANY_MATCHER__V27*/ meltfptr[26]); - - MELT_LOCATION("warmelt-normatch.melt:3470:/ initchunk"); - /*^putroutconst*/ - /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V888*/ meltfptr[887])) == OBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_816__MGALTSTEP_STEPTESTMATCHER#6", NULL != (/*_.CLASS_ANY_BINDING__V54*/ meltfptr[53])); - ((meltroutine_ptr_t)/*_.VALROUT___V888*/ meltfptr[887])->tabval[6] = (melt_ptr_t)(/*_.CLASS_ANY_BINDING__V54*/ meltfptr[53]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V957*/ meltfptr[956])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V664*/ meltfptr[663]); + ((meltroutine_ptr_t)/*_.VALROUT___V957*/ meltfptr[956])->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V664*/ meltfptr[663]); - MELT_LOCATION("warmelt-normatch.melt:3470:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:3843:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V888*/ meltfptr[887])) == OBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_816__MGALTSTEP_STEPTESTMATCHER#7", NULL != (/*_.CLASS_SYMBOL__V32*/ meltfptr[31])); - ((meltroutine_ptr_t)/*_.VALROUT___V888*/ meltfptr[887])->tabval[7] = (melt_ptr_t)(/*_.CLASS_SYMBOL__V32*/ meltfptr[31]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V957*/ meltfptr[956])) == OBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_884__MGALTSTEP_STEPFLAGSET#5", NULL != (/*_.CLASS_LOCATED__V38*/ meltfptr[37])); + ((meltroutine_ptr_t)/*_.VALROUT___V957*/ meltfptr[956])->tabval[5] = (melt_ptr_t)(/*_.CLASS_LOCATED__V38*/ meltfptr[37]); - MELT_LOCATION("warmelt-normatch.melt:3470:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:3843:/ initchunk"); /*^touch*/ /*touch:IROUTVAL_*/ - meltgc_touch(/*_.VALROUT___V888*/ meltfptr[887]); + meltgc_touch(/*_.VALROUT___V957*/ meltfptr[956]); /*putclosurout*/ - melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V889*/ meltfptr[888])) == OBMAG_CLOSURE); - melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V888*/ meltfptr[887])) == OBMAG_ROUTINE); - ((meltclosure_ptr_t)/*_.VALCLO___V889*/ meltfptr[888])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V888*/ meltfptr[887]); + melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V958*/ meltfptr[957])) == OBMAG_CLOSURE); + melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V957*/ meltfptr[956])) == OBMAG_ROUTINE); + ((meltclosure_ptr_t)/*_.VALCLO___V958*/ meltfptr[957])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V957*/ meltfptr[956]); /*touch:DATACLOSURE_*/ - meltgc_touch(/*_.VALCLO___V889*/ meltfptr[888]); + meltgc_touch(/*_.VALCLO___V958*/ meltfptr[957]); - MELT_LOCATION("warmelt-normatch.melt:3547:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:3895:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V890*/ meltfptr[889])) == OBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_818__MGALTSTEP_STEPSUCCESS#0", NULL != (/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8])); - ((meltroutine_ptr_t)/*_.VALROUT___V890*/ meltfptr[889])->tabval[0] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V959*/ meltfptr[958])) == OBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_886__MGALTSTEP_STEPFLAGOPER#0", NULL != (/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8])); + ((meltroutine_ptr_t)/*_.VALROUT___V959*/ meltfptr[958])->tabval[0] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8]); + + MELT_LOCATION("warmelt-normatch.melt:3895:/ initchunk"); + /*^putroutconstnotnull*/ + /*putroutconstnotnull*/ + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V959*/ meltfptr[958])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V712*/ meltfptr[711]); + ((meltroutine_ptr_t)/*_.VALROUT___V959*/ meltfptr[958])->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V712*/ meltfptr[711]); - MELT_LOCATION("warmelt-normatch.melt:3547:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:3895:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V890*/ meltfptr[889])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V679*/ meltfptr[678]); - ((meltroutine_ptr_t)/*_.VALROUT___V890*/ meltfptr[889])->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V679*/ meltfptr[678]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V959*/ meltfptr[958])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V491*/ meltfptr[490]); + ((meltroutine_ptr_t)/*_.VALROUT___V959*/ meltfptr[958])->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V491*/ meltfptr[490]); + + +#undef meltfram__ +} /*end of warmelt_normatch_initialmeltchunk_7*/ + +void MELT_MODULE_VISIBILITY warmelt_normatch_initialmeltchunk_8 (struct frame_start_module_melt_st* meltframptr__, char predefinited[]) { +#define meltfram__ (*meltframptr__) +#undef meltcallcount +#define meltcallcount 0L +MELT_LOCATION("warmelt-normatch.melt:3895:/ initchunk"); + /*^putroutconst*/ + /*putroutconst*/ + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V959*/ meltfptr[958])) == OBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_886__MGALTSTEP_STEPFLAGOPER#3", NULL != (/*_.CLASS_NAMED__V10*/ meltfptr[9])); + ((meltroutine_ptr_t)/*_.VALROUT___V959*/ meltfptr[958])->tabval[3] = (melt_ptr_t)(/*_.CLASS_NAMED__V10*/ meltfptr[9]); - MELT_LOCATION("warmelt-normatch.melt:3547:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:3895:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V890*/ meltfptr[889])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V490*/ meltfptr[489]); - ((meltroutine_ptr_t)/*_.VALROUT___V890*/ meltfptr[889])->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V490*/ meltfptr[489]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V959*/ meltfptr[958])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V664*/ meltfptr[663]); + ((meltroutine_ptr_t)/*_.VALROUT___V959*/ meltfptr[958])->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V664*/ meltfptr[663]); - MELT_LOCATION("warmelt-normatch.melt:3547:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:3895:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V890*/ meltfptr[889])) == OBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_818__MGALTSTEP_STEPSUCCESS#3", NULL != (/*_.CLASS_NAMED__V10*/ meltfptr[9])); - ((meltroutine_ptr_t)/*_.VALROUT___V890*/ meltfptr[889])->tabval[3] = (melt_ptr_t)(/*_.CLASS_NAMED__V10*/ meltfptr[9]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V959*/ meltfptr[958])) == OBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_886__MGALTSTEP_STEPFLAGOPER#5", NULL != (/*_.CLASS_LOCATED__V38*/ meltfptr[37])); + ((meltroutine_ptr_t)/*_.VALROUT___V959*/ meltfptr[958])->tabval[5] = (melt_ptr_t)(/*_.CLASS_LOCATED__V38*/ meltfptr[37]); + + MELT_LOCATION("warmelt-normatch.melt:3895:/ initchunk"); + /*^putroutconstnotnull*/ + /*putroutconstnotnull*/ + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V959*/ meltfptr[958])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V696*/ meltfptr[695]); + ((meltroutine_ptr_t)/*_.VALROUT___V959*/ meltfptr[958])->tabval[6] = (melt_ptr_t)(/*_.VALDATA___V696*/ meltfptr[695]); - MELT_LOCATION("warmelt-normatch.melt:3547:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:3895:/ initchunk"); /*^touch*/ /*touch:IROUTVAL_*/ - meltgc_touch(/*_.VALROUT___V890*/ meltfptr[889]); + meltgc_touch(/*_.VALROUT___V959*/ meltfptr[958]); /*putclosurout*/ - melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V891*/ meltfptr[890])) == OBMAG_CLOSURE); - melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V890*/ meltfptr[889])) == OBMAG_ROUTINE); - ((meltclosure_ptr_t)/*_.VALCLO___V891*/ meltfptr[890])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V890*/ meltfptr[889]); + melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V960*/ meltfptr[959])) == OBMAG_CLOSURE); + melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V959*/ meltfptr[958])) == OBMAG_ROUTINE); + ((meltclosure_ptr_t)/*_.VALCLO___V960*/ meltfptr[959])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V959*/ meltfptr[958]); /*touch:DATACLOSURE_*/ - meltgc_touch(/*_.VALCLO___V891*/ meltfptr[890]); + meltgc_touch(/*_.VALCLO___V960*/ meltfptr[959]); - MELT_LOCATION("warmelt-normatch.melt:3591:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:3977:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V892*/ meltfptr[891])) == OBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_820__TRANSLATE_MATCHCASE#0", NULL != (/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8])); - ((meltroutine_ptr_t)/*_.VALROUT___V892*/ meltfptr[891])->tabval[0] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V961*/ meltfptr[960])) == OBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_888__TRANSLATE_MATCHCASE#0", NULL != (/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8])); + ((meltroutine_ptr_t)/*_.VALROUT___V961*/ meltfptr[960])->tabval[0] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8]); - MELT_LOCATION("warmelt-normatch.melt:3591:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:3977:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V892*/ meltfptr[891])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V587*/ meltfptr[586]); - ((meltroutine_ptr_t)/*_.VALROUT___V892*/ meltfptr[891])->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V587*/ meltfptr[586]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V961*/ meltfptr[960])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V592*/ meltfptr[591]); + ((meltroutine_ptr_t)/*_.VALROUT___V961*/ meltfptr[960])->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V592*/ meltfptr[591]); - MELT_LOCATION("warmelt-normatch.melt:3591:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:3977:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V892*/ meltfptr[891])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V553*/ meltfptr[552]); - ((meltroutine_ptr_t)/*_.VALROUT___V892*/ meltfptr[891])->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V553*/ meltfptr[552]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V961*/ meltfptr[960])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V554*/ meltfptr[553]); + ((meltroutine_ptr_t)/*_.VALROUT___V961*/ meltfptr[960])->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V554*/ meltfptr[553]); - MELT_LOCATION("warmelt-normatch.melt:3591:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:3977:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V892*/ meltfptr[891])) == OBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_820__TRANSLATE_MATCHCASE#3", NULL != (/*_.CLASS_SOURCE_MATCH_CASE__V66*/ meltfptr[65])); - ((meltroutine_ptr_t)/*_.VALROUT___V892*/ meltfptr[891])->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE_MATCH_CASE__V66*/ meltfptr[65]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V961*/ meltfptr[960])) == OBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_888__TRANSLATE_MATCHCASE#3", NULL != (/*_.CLASS_SOURCE_MATCH_CASE__V66*/ meltfptr[65])); + ((meltroutine_ptr_t)/*_.VALROUT___V961*/ meltfptr[960])->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE_MATCH_CASE__V66*/ meltfptr[65]); - MELT_LOCATION("warmelt-normatch.melt:3591:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:3977:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V892*/ meltfptr[891])) == OBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_820__TRANSLATE_MATCHCASE#4", NULL != (/*_.DISCR_MAP_OBJECTS__V31*/ meltfptr[30])); - ((meltroutine_ptr_t)/*_.VALROUT___V892*/ meltfptr[891])->tabval[4] = (melt_ptr_t)(/*_.DISCR_MAP_OBJECTS__V31*/ meltfptr[30]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V961*/ meltfptr[960])) == OBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_888__TRANSLATE_MATCHCASE#4", NULL != (/*_.DISCR_MAP_OBJECTS__V31*/ meltfptr[30])); + ((meltroutine_ptr_t)/*_.VALROUT___V961*/ meltfptr[960])->tabval[4] = (melt_ptr_t)(/*_.DISCR_MAP_OBJECTS__V31*/ meltfptr[30]); - MELT_LOCATION("warmelt-normatch.melt:3591:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:3977:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V892*/ meltfptr[891])) == OBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_820__TRANSLATE_MATCHCASE#5", NULL != (/*_.CLASS_NORMALIZATION_CONTEXT__V41*/ meltfptr[40])); - ((meltroutine_ptr_t)/*_.VALROUT___V892*/ meltfptr[891])->tabval[5] = (melt_ptr_t)(/*_.CLASS_NORMALIZATION_CONTEXT__V41*/ meltfptr[40]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V961*/ meltfptr[960])) == OBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_888__TRANSLATE_MATCHCASE#5", NULL != (/*_.FRESH_ENV__V56*/ meltfptr[55])); + ((meltroutine_ptr_t)/*_.VALROUT___V961*/ meltfptr[960])->tabval[5] = (melt_ptr_t)(/*_.FRESH_ENV__V56*/ meltfptr[55]); - MELT_LOCATION("warmelt-normatch.melt:3591:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:3977:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V892*/ meltfptr[891])) == OBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_820__TRANSLATE_MATCHCASE#6", NULL != (/*_.CLASS_ENVIRONMENT__V65*/ meltfptr[64])); - ((meltroutine_ptr_t)/*_.VALROUT___V892*/ meltfptr[891])->tabval[6] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V65*/ meltfptr[64]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V961*/ meltfptr[960])) == OBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_888__TRANSLATE_MATCHCASE#6", NULL != (/*_.CLASS_NORMALIZATION_CONTEXT__V41*/ meltfptr[40])); + ((meltroutine_ptr_t)/*_.VALROUT___V961*/ meltfptr[960])->tabval[6] = (melt_ptr_t)(/*_.CLASS_NORMALIZATION_CONTEXT__V41*/ meltfptr[40]); - MELT_LOCATION("warmelt-normatch.melt:3591:/ initchunk"); - /*^putroutconstnotnull*/ - /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V892*/ meltfptr[891])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V860*/ meltfptr[859]); - ((meltroutine_ptr_t)/*_.VALROUT___V892*/ meltfptr[891])->tabval[7] = (melt_ptr_t)(/*_.VALDATA___V860*/ meltfptr[859]); - - MELT_LOCATION("warmelt-normatch.melt:3591:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:3977:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V892*/ meltfptr[891])) == OBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_820__TRANSLATE_MATCHCASE#8", NULL != (/*_.FRESH_ENV__V56*/ meltfptr[55])); - ((meltroutine_ptr_t)/*_.VALROUT___V892*/ meltfptr[891])->tabval[8] = (melt_ptr_t)(/*_.FRESH_ENV__V56*/ meltfptr[55]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V961*/ meltfptr[960])) == OBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_888__TRANSLATE_MATCHCASE#7", NULL != (/*_.CLASS_ENVIRONMENT__V65*/ meltfptr[64])); + ((meltroutine_ptr_t)/*_.VALROUT___V961*/ meltfptr[960])->tabval[7] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V65*/ meltfptr[64]); + + MELT_LOCATION("warmelt-normatch.melt:3977:/ initchunk"); + /*^putroutconstnotnull*/ + /*putroutconstnotnull*/ + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V961*/ meltfptr[960])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V925*/ meltfptr[924]); + ((meltroutine_ptr_t)/*_.VALROUT___V961*/ meltfptr[960])->tabval[8] = (melt_ptr_t)(/*_.VALDATA___V925*/ meltfptr[924]); - MELT_LOCATION("warmelt-normatch.melt:3591:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:3977:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V892*/ meltfptr[891])) == OBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_820__TRANSLATE_MATCHCASE#9", NULL != (/*_.CLASS_SYMBOL__V32*/ meltfptr[31])); - ((meltroutine_ptr_t)/*_.VALROUT___V892*/ meltfptr[891])->tabval[9] = (melt_ptr_t)(/*_.CLASS_SYMBOL__V32*/ meltfptr[31]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V961*/ meltfptr[960])) == OBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_888__TRANSLATE_MATCHCASE#9", NULL != (/*_.CLASS_SYMBOL__V32*/ meltfptr[31])); + ((meltroutine_ptr_t)/*_.VALROUT___V961*/ meltfptr[960])->tabval[9] = (melt_ptr_t)(/*_.CLASS_SYMBOL__V32*/ meltfptr[31]); - MELT_LOCATION("warmelt-normatch.melt:3591:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:3977:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V892*/ meltfptr[891])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V609*/ meltfptr[608]); - ((meltroutine_ptr_t)/*_.VALROUT___V892*/ meltfptr[891])->tabval[10] = (melt_ptr_t)(/*_.VALDATA___V609*/ meltfptr[608]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V961*/ meltfptr[960])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V614*/ meltfptr[613]); + ((meltroutine_ptr_t)/*_.VALROUT___V961*/ meltfptr[960])->tabval[10] = (melt_ptr_t)(/*_.VALDATA___V614*/ meltfptr[613]); - MELT_LOCATION("warmelt-normatch.melt:3591:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:3977:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V892*/ meltfptr[891])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V631*/ meltfptr[630]); - ((meltroutine_ptr_t)/*_.VALROUT___V892*/ meltfptr[891])->tabval[11] = (melt_ptr_t)(/*_.VALDATA___V631*/ meltfptr[630]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V961*/ meltfptr[960])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V636*/ meltfptr[635]); + ((meltroutine_ptr_t)/*_.VALROUT___V961*/ meltfptr[960])->tabval[11] = (melt_ptr_t)(/*_.VALDATA___V636*/ meltfptr[635]); - MELT_LOCATION("warmelt-normatch.melt:3591:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:3977:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V892*/ meltfptr[891])) == OBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_820__TRANSLATE_MATCHCASE#12", NULL != (/*_.DISCR_INTEGER__V71*/ meltfptr[70])); - ((meltroutine_ptr_t)/*_.VALROUT___V892*/ meltfptr[891])->tabval[12] = (melt_ptr_t)(/*_.DISCR_INTEGER__V71*/ meltfptr[70]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V961*/ meltfptr[960])) == OBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_888__TRANSLATE_MATCHCASE#12", NULL != (/*_.DISCR_INTEGER__V72*/ meltfptr[71])); + ((meltroutine_ptr_t)/*_.VALROUT___V961*/ meltfptr[960])->tabval[12] = (melt_ptr_t)(/*_.DISCR_INTEGER__V72*/ meltfptr[71]); - MELT_LOCATION("warmelt-normatch.melt:3591:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:3977:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V892*/ meltfptr[891])) == OBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_820__TRANSLATE_MATCHCASE#13", NULL != (/*_.PUT_ENV__V57*/ meltfptr[56])); - ((meltroutine_ptr_t)/*_.VALROUT___V892*/ meltfptr[891])->tabval[13] = (melt_ptr_t)(/*_.PUT_ENV__V57*/ meltfptr[56]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V961*/ meltfptr[960])) == OBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_888__TRANSLATE_MATCHCASE#13", NULL != (/*_.PUT_ENV__V57*/ meltfptr[56])); + ((meltroutine_ptr_t)/*_.VALROUT___V961*/ meltfptr[960])->tabval[13] = (melt_ptr_t)(/*_.PUT_ENV__V57*/ meltfptr[56]); - MELT_LOCATION("warmelt-normatch.melt:3591:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:3977:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V892*/ meltfptr[891])) == OBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_820__TRANSLATE_MATCHCASE#14", NULL != (/*_.NORMALIZE_TUPLE__V29*/ meltfptr[28])); - ((meltroutine_ptr_t)/*_.VALROUT___V892*/ meltfptr[891])->tabval[14] = (melt_ptr_t)(/*_.NORMALIZE_TUPLE__V29*/ meltfptr[28]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V961*/ meltfptr[960])) == OBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_888__TRANSLATE_MATCHCASE#14", NULL != (/*_.NORMALIZE_TUPLE__V29*/ meltfptr[28])); + ((meltroutine_ptr_t)/*_.VALROUT___V961*/ meltfptr[960])->tabval[14] = (melt_ptr_t)(/*_.NORMALIZE_TUPLE__V29*/ meltfptr[28]); - MELT_LOCATION("warmelt-normatch.melt:3591:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:3977:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V892*/ meltfptr[891])) == OBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_820__TRANSLATE_MATCHCASE#15", NULL != (/*_.DISCR_LIST__V36*/ meltfptr[35])); - ((meltroutine_ptr_t)/*_.VALROUT___V892*/ meltfptr[891])->tabval[15] = (melt_ptr_t)(/*_.DISCR_LIST__V36*/ meltfptr[35]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V961*/ meltfptr[960])) == OBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_888__TRANSLATE_MATCHCASE#15", NULL != (/*_.DISCR_LIST__V36*/ meltfptr[35])); + ((meltroutine_ptr_t)/*_.VALROUT___V961*/ meltfptr[960])->tabval[15] = (melt_ptr_t)(/*_.DISCR_LIST__V36*/ meltfptr[35]); - MELT_LOCATION("warmelt-normatch.melt:3591:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:3977:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V892*/ meltfptr[891])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V679*/ meltfptr[678]); - ((meltroutine_ptr_t)/*_.VALROUT___V892*/ meltfptr[891])->tabval[16] = (melt_ptr_t)(/*_.VALDATA___V679*/ meltfptr[678]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V961*/ meltfptr[960])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V734*/ meltfptr[733]); + ((meltroutine_ptr_t)/*_.VALROUT___V961*/ meltfptr[960])->tabval[16] = (melt_ptr_t)(/*_.VALDATA___V734*/ meltfptr[733]); - MELT_LOCATION("warmelt-normatch.melt:3591:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:3977:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V892*/ meltfptr[891])) == OBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_820__TRANSLATE_MATCHCASE#17", NULL != (/*_.CLASS_NREP_LOCSYMOCC__V39*/ meltfptr[38])); - ((meltroutine_ptr_t)/*_.VALROUT___V892*/ meltfptr[891])->tabval[17] = (melt_ptr_t)(/*_.CLASS_NREP_LOCSYMOCC__V39*/ meltfptr[38]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V961*/ meltfptr[960])) == OBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_888__TRANSLATE_MATCHCASE#17", NULL != (/*_.CLASS_NREP_LOCSYMOCC__V39*/ meltfptr[38])); + ((meltroutine_ptr_t)/*_.VALROUT___V961*/ meltfptr[960])->tabval[17] = (melt_ptr_t)(/*_.CLASS_NREP_LOCSYMOCC__V39*/ meltfptr[38]); - MELT_LOCATION("warmelt-normatch.melt:3591:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:3977:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V892*/ meltfptr[891])) == OBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_820__TRANSLATE_MATCHCASE#18", NULL != (/*_.CLASS_NREP_SYMOCC__V44*/ meltfptr[43])); - ((meltroutine_ptr_t)/*_.VALROUT___V892*/ meltfptr[891])->tabval[18] = (melt_ptr_t)(/*_.CLASS_NREP_SYMOCC__V44*/ meltfptr[43]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V961*/ meltfptr[960])) == OBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_888__TRANSLATE_MATCHCASE#18", NULL != (/*_.CLASS_NREP_SYMOCC__V44*/ meltfptr[43])); + ((meltroutine_ptr_t)/*_.VALROUT___V961*/ meltfptr[960])->tabval[18] = (melt_ptr_t)(/*_.CLASS_NREP_SYMOCC__V44*/ meltfptr[43]); - MELT_LOCATION("warmelt-normatch.melt:3591:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:3977:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V892*/ meltfptr[891])) == OBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_820__TRANSLATE_MATCHCASE#19", NULL != (/*_.LIST_TO_MULTIPLE__V51*/ meltfptr[50])); - ((meltroutine_ptr_t)/*_.VALROUT___V892*/ meltfptr[891])->tabval[19] = (melt_ptr_t)(/*_.LIST_TO_MULTIPLE__V51*/ meltfptr[50]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V961*/ meltfptr[960])) == OBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_888__TRANSLATE_MATCHCASE#19", NULL != (/*_.LIST_TO_MULTIPLE__V51*/ meltfptr[50])); + ((meltroutine_ptr_t)/*_.VALROUT___V961*/ meltfptr[960])->tabval[19] = (melt_ptr_t)(/*_.LIST_TO_MULTIPLE__V51*/ meltfptr[50]); - MELT_LOCATION("warmelt-normatch.melt:3591:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:3977:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V892*/ meltfptr[891])) == OBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_820__TRANSLATE_MATCHCASE#20", NULL != (/*_.DISCR_MULTIPLE__V43*/ meltfptr[42])); - ((meltroutine_ptr_t)/*_.VALROUT___V892*/ meltfptr[891])->tabval[20] = (melt_ptr_t)(/*_.DISCR_MULTIPLE__V43*/ meltfptr[42]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V961*/ meltfptr[960])) == OBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_888__TRANSLATE_MATCHCASE#20", NULL != (/*_.DISCR_MULTIPLE__V43*/ meltfptr[42])); + ((meltroutine_ptr_t)/*_.VALROUT___V961*/ meltfptr[960])->tabval[20] = (melt_ptr_t)(/*_.DISCR_MULTIPLE__V43*/ meltfptr[42]); - MELT_LOCATION("warmelt-normatch.melt:3591:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:3977:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V892*/ meltfptr[891])) == OBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_820__TRANSLATE_MATCHCASE#21", NULL != (/*_.COMPARE_NAMED_ALPHA__V72*/ meltfptr[71])); - ((meltroutine_ptr_t)/*_.VALROUT___V892*/ meltfptr[891])->tabval[21] = (melt_ptr_t)(/*_.COMPARE_NAMED_ALPHA__V72*/ meltfptr[71]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V961*/ meltfptr[960])) == OBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_888__TRANSLATE_MATCHCASE#21", NULL != (/*_.COMPARE_NAMED_ALPHA__V73*/ meltfptr[72])); + ((meltroutine_ptr_t)/*_.VALROUT___V961*/ meltfptr[960])->tabval[21] = (melt_ptr_t)(/*_.COMPARE_NAMED_ALPHA__V73*/ meltfptr[72]); - MELT_LOCATION("warmelt-normatch.melt:3591:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:3977:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V892*/ meltfptr[891])) == OBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_820__TRANSLATE_MATCHCASE#22", NULL != (/*_.CLASS_NREP_SYMOCC__V44*/ meltfptr[43])); - ((meltroutine_ptr_t)/*_.VALROUT___V892*/ meltfptr[891])->tabval[22] = (melt_ptr_t)(/*_.CLASS_NREP_SYMOCC__V44*/ meltfptr[43]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V961*/ meltfptr[960])) == OBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_888__TRANSLATE_MATCHCASE#22", NULL != (/*_.CLASS_NREP_SYMOCC__V44*/ meltfptr[43])); + ((meltroutine_ptr_t)/*_.VALROUT___V961*/ meltfptr[960])->tabval[22] = (melt_ptr_t)(/*_.CLASS_NREP_SYMOCC__V44*/ meltfptr[43]); - MELT_LOCATION("warmelt-normatch.melt:3674:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:4065:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V893*/ meltfptr[892])) == OBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_824__LAMBDA_#0", NULL != (/*_.COMPARE_NAMED_ALPHA__V72*/ meltfptr[71])); - ((meltroutine_ptr_t)/*_.VALROUT___V893*/ meltfptr[892])->tabval[0] = (melt_ptr_t)(/*_.COMPARE_NAMED_ALPHA__V72*/ meltfptr[71]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V962*/ meltfptr[961])) == OBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_892__LAMBDA_#0", NULL != (/*_.COMPARE_NAMED_ALPHA__V73*/ meltfptr[72])); + ((meltroutine_ptr_t)/*_.VALROUT___V962*/ meltfptr[961])->tabval[0] = (melt_ptr_t)(/*_.COMPARE_NAMED_ALPHA__V73*/ meltfptr[72]); - MELT_LOCATION("warmelt-normatch.melt:3674:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:4065:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V893*/ meltfptr[892])) == OBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_824__LAMBDA_#1", NULL != (/*_.CLASS_NREP_SYMOCC__V44*/ meltfptr[43])); - ((meltroutine_ptr_t)/*_.VALROUT___V893*/ meltfptr[892])->tabval[1] = (melt_ptr_t)(/*_.CLASS_NREP_SYMOCC__V44*/ meltfptr[43]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V962*/ meltfptr[961])) == OBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_892__LAMBDA_#1", NULL != (/*_.CLASS_NREP_SYMOCC__V44*/ meltfptr[43])); + ((meltroutine_ptr_t)/*_.VALROUT___V962*/ meltfptr[961])->tabval[1] = (melt_ptr_t)(/*_.CLASS_NREP_SYMOCC__V44*/ meltfptr[43]); - MELT_LOCATION("warmelt-normatch.melt:3674:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:4065:/ initchunk"); /*^touch*/ /*touch:IROUTVAL_*/ - meltgc_touch(/*_.VALROUT___V893*/ meltfptr[892]); + meltgc_touch(/*_.VALROUT___V962*/ meltfptr[961]); - MELT_LOCATION("warmelt-normatch.melt:3591:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:3977:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V892*/ meltfptr[891])) == OBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_820__TRANSLATE_MATCHCASE#23", NULL != (/*_.VALROUT___V893*/ meltfptr[892])); - ((meltroutine_ptr_t)/*_.VALROUT___V892*/ meltfptr[891])->tabval[23] = (melt_ptr_t)(/*_.VALROUT___V893*/ meltfptr[892]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V961*/ meltfptr[960])) == OBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_888__TRANSLATE_MATCHCASE#23", NULL != (/*_.VALROUT___V962*/ meltfptr[961])); + ((meltroutine_ptr_t)/*_.VALROUT___V961*/ meltfptr[960])->tabval[23] = (melt_ptr_t)(/*_.VALROUT___V962*/ meltfptr[961]); - MELT_LOCATION("warmelt-normatch.melt:3591:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:3977:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V892*/ meltfptr[891])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V819*/ meltfptr[818]); - ((meltroutine_ptr_t)/*_.VALROUT___V892*/ meltfptr[891])->tabval[24] = (melt_ptr_t)(/*_.VALDATA___V819*/ meltfptr[818]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V961*/ meltfptr[960])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V882*/ meltfptr[881]); + ((meltroutine_ptr_t)/*_.VALROUT___V961*/ meltfptr[960])->tabval[24] = (melt_ptr_t)(/*_.VALDATA___V882*/ meltfptr[881]); - MELT_LOCATION("warmelt-normatch.melt:3591:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:3977:/ initchunk"); /*^touch*/ /*touch:IROUTVAL_*/ - meltgc_touch(/*_.VALROUT___V892*/ meltfptr[891]); + meltgc_touch(/*_.VALROUT___V961*/ meltfptr[960]); /*putclosurout*/ - melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V894*/ meltfptr[893])) == OBMAG_CLOSURE); - melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V892*/ meltfptr[891])) == OBMAG_ROUTINE); - ((meltclosure_ptr_t)/*_.VALCLO___V894*/ meltfptr[893])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V892*/ meltfptr[891]); + melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V963*/ meltfptr[962])) == OBMAG_CLOSURE); + melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V961*/ meltfptr[960])) == OBMAG_ROUTINE); + ((meltclosure_ptr_t)/*_.VALCLO___V963*/ meltfptr[962])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V961*/ meltfptr[960]); /*touch:DATACLOSURE_*/ - meltgc_touch(/*_.VALCLO___V894*/ meltfptr[893]); + meltgc_touch(/*_.VALCLO___V963*/ meltfptr[962]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V895*/ meltfptr[894])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V964*/ meltfptr[963])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V895*/ meltfptr[894])))); - ((meltobject_ptr_t)(/*_.VALDATA___V895*/ meltfptr[894]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V896*/ meltfptr[895]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V964*/ meltfptr[963])))); + ((meltobject_ptr_t)(/*_.VALDATA___V964*/ meltfptr[963]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V965*/ meltfptr[964]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V895*/ meltfptr[894]); + meltgc_touch(/*_.VALDATA___V964*/ meltfptr[963]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V897*/ meltfptr[896])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V966*/ meltfptr[965])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V897*/ meltfptr[896])))); - ((meltobject_ptr_t)(/*_.VALDATA___V897*/ meltfptr[896]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V898*/ meltfptr[897]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V966*/ meltfptr[965])))); + ((meltobject_ptr_t)(/*_.VALDATA___V966*/ meltfptr[965]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V967*/ meltfptr[966]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V897*/ meltfptr[896]); + meltgc_touch(/*_.VALDATA___V966*/ meltfptr[965]); - MELT_LOCATION("warmelt-normatch.melt:3689:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:4088:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V899*/ meltfptr[898])) == OBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_827__NORMEXP_ALTMATCH#0", NULL != (/*_.CLASS_SOURCE_MATCH__V64*/ meltfptr[63])); - ((meltroutine_ptr_t)/*_.VALROUT___V899*/ meltfptr[898])->tabval[0] = (melt_ptr_t)(/*_.CLASS_SOURCE_MATCH__V64*/ meltfptr[63]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V968*/ meltfptr[967])) == OBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_895__NORMEXP_ALTMATCH#0", NULL != (/*_.CLASS_SOURCE_MATCH__V64*/ meltfptr[63])); + ((meltroutine_ptr_t)/*_.VALROUT___V968*/ meltfptr[967])->tabval[0] = (melt_ptr_t)(/*_.CLASS_SOURCE_MATCH__V64*/ meltfptr[63]); - MELT_LOCATION("warmelt-normatch.melt:3689:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:4088:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V899*/ meltfptr[898])) == OBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_827__NORMEXP_ALTMATCH#1", NULL != (/*_.CLASS_ENVIRONMENT__V65*/ meltfptr[64])); - ((meltroutine_ptr_t)/*_.VALROUT___V899*/ meltfptr[898])->tabval[1] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V65*/ meltfptr[64]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V968*/ meltfptr[967])) == OBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_895__NORMEXP_ALTMATCH#1", NULL != (/*_.CLASS_ENVIRONMENT__V65*/ meltfptr[64])); + ((meltroutine_ptr_t)/*_.VALROUT___V968*/ meltfptr[967])->tabval[1] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V65*/ meltfptr[64]); - MELT_LOCATION("warmelt-normatch.melt:3689:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:4088:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V899*/ meltfptr[898])) == OBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_827__NORMEXP_ALTMATCH#2", NULL != (/*_.CLASS_NORMALIZATION_CONTEXT__V41*/ meltfptr[40])); - ((meltroutine_ptr_t)/*_.VALROUT___V899*/ meltfptr[898])->tabval[2] = (melt_ptr_t)(/*_.CLASS_NORMALIZATION_CONTEXT__V41*/ meltfptr[40]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V968*/ meltfptr[967])) == OBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_895__NORMEXP_ALTMATCH#2", NULL != (/*_.CLASS_NORMALIZATION_CONTEXT__V41*/ meltfptr[40])); + ((meltroutine_ptr_t)/*_.VALROUT___V968*/ meltfptr[967])->tabval[2] = (melt_ptr_t)(/*_.CLASS_NORMALIZATION_CONTEXT__V41*/ meltfptr[40]); - MELT_LOCATION("warmelt-normatch.melt:3689:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:4088:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V899*/ meltfptr[898])) == OBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_827__NORMEXP_ALTMATCH#3", NULL != (/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8])); - ((meltroutine_ptr_t)/*_.VALROUT___V899*/ meltfptr[898])->tabval[3] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V968*/ meltfptr[967])) == OBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_895__NORMEXP_ALTMATCH#3", NULL != (/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8])); + ((meltroutine_ptr_t)/*_.VALROUT___V968*/ meltfptr[967])->tabval[3] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8]); - MELT_LOCATION("warmelt-normatch.melt:3689:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:4088:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V899*/ meltfptr[898])) == OBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_827__NORMEXP_ALTMATCH#4", NULL != (/*_.NORMAL_EXP__V17*/ meltfptr[16])); - ((meltroutine_ptr_t)/*_.VALROUT___V899*/ meltfptr[898])->tabval[4] = (melt_ptr_t)(/*_.NORMAL_EXP__V17*/ meltfptr[16]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V968*/ meltfptr[967])) == OBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_895__NORMEXP_ALTMATCH#4", NULL != (/*_.NORMAL_EXP__V17*/ meltfptr[16])); + ((meltroutine_ptr_t)/*_.VALROUT___V968*/ meltfptr[967])->tabval[4] = (melt_ptr_t)(/*_.NORMAL_EXP__V17*/ meltfptr[16]); - MELT_LOCATION("warmelt-normatch.melt:3689:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:4088:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V899*/ meltfptr[898])) == OBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_827__NORMEXP_ALTMATCH#5", NULL != (/*_.GET_CTYPE__V19*/ meltfptr[18])); - ((meltroutine_ptr_t)/*_.VALROUT___V899*/ meltfptr[898])->tabval[5] = (melt_ptr_t)(/*_.GET_CTYPE__V19*/ meltfptr[18]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V968*/ meltfptr[967])) == OBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_895__NORMEXP_ALTMATCH#5", NULL != (/*_.GET_CTYPE__V19*/ meltfptr[18])); + ((meltroutine_ptr_t)/*_.VALROUT___V968*/ meltfptr[967])->tabval[5] = (melt_ptr_t)(/*_.GET_CTYPE__V19*/ meltfptr[18]); - MELT_LOCATION("warmelt-normatch.melt:3689:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:4088:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V899*/ meltfptr[898])) == OBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_827__NORMEXP_ALTMATCH#6", NULL != (/*_.DISCR_MULTIPLE__V43*/ meltfptr[42])); - ((meltroutine_ptr_t)/*_.VALROUT___V899*/ meltfptr[898])->tabval[6] = (melt_ptr_t)(/*_.DISCR_MULTIPLE__V43*/ meltfptr[42]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V968*/ meltfptr[967])) == OBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_895__NORMEXP_ALTMATCH#6", NULL != (/*_.DISCR_MULTIPLE__V43*/ meltfptr[42])); + ((meltroutine_ptr_t)/*_.VALROUT___V968*/ meltfptr[967])->tabval[6] = (melt_ptr_t)(/*_.DISCR_MULTIPLE__V43*/ meltfptr[42]); - MELT_LOCATION("warmelt-normatch.melt:3689:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:4088:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V899*/ meltfptr[898])) == OBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_827__NORMEXP_ALTMATCH#7", NULL != (/*_.DISCR_LIST__V36*/ meltfptr[35])); - ((meltroutine_ptr_t)/*_.VALROUT___V899*/ meltfptr[898])->tabval[7] = (melt_ptr_t)(/*_.DISCR_LIST__V36*/ meltfptr[35]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V968*/ meltfptr[967])) == OBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_895__NORMEXP_ALTMATCH#7", NULL != (/*_.DISCR_LIST__V36*/ meltfptr[35])); + ((meltroutine_ptr_t)/*_.VALROUT___V968*/ meltfptr[967])->tabval[7] = (melt_ptr_t)(/*_.DISCR_LIST__V36*/ meltfptr[35]); - MELT_LOCATION("warmelt-normatch.melt:3689:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:4088:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V899*/ meltfptr[898])) == OBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_827__NORMEXP_ALTMATCH#8", NULL != (/*_.CLONE_SYMBOL__V47*/ meltfptr[46])); - ((meltroutine_ptr_t)/*_.VALROUT___V899*/ meltfptr[898])->tabval[8] = (melt_ptr_t)(/*_.CLONE_SYMBOL__V47*/ meltfptr[46]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V968*/ meltfptr[967])) == OBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_895__NORMEXP_ALTMATCH#8", NULL != (/*_.CLONE_SYMBOL__V47*/ meltfptr[46])); + ((meltroutine_ptr_t)/*_.VALROUT___V968*/ meltfptr[967])->tabval[8] = (melt_ptr_t)(/*_.CLONE_SYMBOL__V47*/ meltfptr[46]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V900*/ meltfptr[899])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V969*/ meltfptr[968])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V900*/ meltfptr[899])))); - ((meltobject_ptr_t)(/*_.VALDATA___V900*/ meltfptr[899]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V901*/ meltfptr[900]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V969*/ meltfptr[968])))); + ((meltobject_ptr_t)(/*_.VALDATA___V969*/ meltfptr[968]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V970*/ meltfptr[969]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V900*/ meltfptr[899]); + meltgc_touch(/*_.VALDATA___V969*/ meltfptr[968]); - MELT_LOCATION("warmelt-normatch.melt:3689:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:4088:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V899*/ meltfptr[898])) == OBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_827__NORMEXP_ALTMATCH#9", NULL != (/*_.VALDATA___V900*/ meltfptr[899])); - ((meltroutine_ptr_t)/*_.VALROUT___V899*/ meltfptr[898])->tabval[9] = (melt_ptr_t)(/*_.VALDATA___V900*/ meltfptr[899]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V968*/ meltfptr[967])) == OBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_895__NORMEXP_ALTMATCH#9", NULL != (/*_.VALDATA___V969*/ meltfptr[968])); + ((meltroutine_ptr_t)/*_.VALROUT___V968*/ meltfptr[967])->tabval[9] = (melt_ptr_t)(/*_.VALDATA___V969*/ meltfptr[968]); - MELT_LOCATION("warmelt-normatch.melt:3689:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:4088:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V899*/ meltfptr[898])) == OBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_827__NORMEXP_ALTMATCH#10", NULL != (/*_.CLASS_NAMED__V10*/ meltfptr[9])); - ((meltroutine_ptr_t)/*_.VALROUT___V899*/ meltfptr[898])->tabval[10] = (melt_ptr_t)(/*_.CLASS_NAMED__V10*/ meltfptr[9]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V968*/ meltfptr[967])) == OBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_895__NORMEXP_ALTMATCH#10", NULL != (/*_.CLASS_NAMED__V10*/ meltfptr[9])); + ((meltroutine_ptr_t)/*_.VALROUT___V968*/ meltfptr[967])->tabval[10] = (melt_ptr_t)(/*_.CLASS_NAMED__V10*/ meltfptr[9]); - MELT_LOCATION("warmelt-normatch.melt:3689:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:4088:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V899*/ meltfptr[898])) == OBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_827__NORMEXP_ALTMATCH#11", NULL != (/*_.CLASS_NREP_SYMOCC__V44*/ meltfptr[43])); - ((meltroutine_ptr_t)/*_.VALROUT___V899*/ meltfptr[898])->tabval[11] = (melt_ptr_t)(/*_.CLASS_NREP_SYMOCC__V44*/ meltfptr[43]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V968*/ meltfptr[967])) == OBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_895__NORMEXP_ALTMATCH#11", NULL != (/*_.CLASS_NREP_SYMOCC__V44*/ meltfptr[43])); + ((meltroutine_ptr_t)/*_.VALROUT___V968*/ meltfptr[967])->tabval[11] = (melt_ptr_t)(/*_.CLASS_NREP_SYMOCC__V44*/ meltfptr[43]); - MELT_LOCATION("warmelt-normatch.melt:3689:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:4088:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V899*/ meltfptr[898])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V609*/ meltfptr[608]); - ((meltroutine_ptr_t)/*_.VALROUT___V899*/ meltfptr[898])->tabval[12] = (melt_ptr_t)(/*_.VALDATA___V609*/ meltfptr[608]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V968*/ meltfptr[967])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V614*/ meltfptr[613]); + ((meltroutine_ptr_t)/*_.VALROUT___V968*/ meltfptr[967])->tabval[12] = (melt_ptr_t)(/*_.VALDATA___V614*/ meltfptr[613]); - MELT_LOCATION("warmelt-normatch.melt:3689:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:4088:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V899*/ meltfptr[898])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V553*/ meltfptr[552]); - ((meltroutine_ptr_t)/*_.VALROUT___V899*/ meltfptr[898])->tabval[13] = (melt_ptr_t)(/*_.VALDATA___V553*/ meltfptr[552]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V968*/ meltfptr[967])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V554*/ meltfptr[553]); + ((meltroutine_ptr_t)/*_.VALROUT___V968*/ meltfptr[967])->tabval[13] = (melt_ptr_t)(/*_.VALDATA___V554*/ meltfptr[553]); - MELT_LOCATION("warmelt-normatch.melt:3689:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:4088:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V899*/ meltfptr[898])) == OBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_827__NORMEXP_ALTMATCH#14", NULL != (/*_.CLASS_SOURCE_MATCH_CASE__V66*/ meltfptr[65])); - ((meltroutine_ptr_t)/*_.VALROUT___V899*/ meltfptr[898])->tabval[14] = (melt_ptr_t)(/*_.CLASS_SOURCE_MATCH_CASE__V66*/ meltfptr[65]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V968*/ meltfptr[967])) == OBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_895__NORMEXP_ALTMATCH#14", NULL != (/*_.CLASS_SOURCE_MATCH_CASE__V66*/ meltfptr[65])); + ((meltroutine_ptr_t)/*_.VALROUT___V968*/ meltfptr[967])->tabval[14] = (melt_ptr_t)(/*_.CLASS_SOURCE_MATCH_CASE__V66*/ meltfptr[65]); - MELT_LOCATION("warmelt-normatch.melt:3689:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:4088:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V899*/ meltfptr[898])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V587*/ meltfptr[586]); - ((meltroutine_ptr_t)/*_.VALROUT___V899*/ meltfptr[898])->tabval[15] = (melt_ptr_t)(/*_.VALDATA___V587*/ meltfptr[586]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V968*/ meltfptr[967])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V592*/ meltfptr[591]); + ((meltroutine_ptr_t)/*_.VALROUT___V968*/ meltfptr[967])->tabval[15] = (melt_ptr_t)(/*_.VALDATA___V592*/ meltfptr[591]); - MELT_LOCATION("warmelt-normatch.melt:3689:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:4088:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V899*/ meltfptr[898])) == OBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_827__NORMEXP_ALTMATCH#16", NULL != (/*_.DISCR_INTEGER__V71*/ meltfptr[70])); - ((meltroutine_ptr_t)/*_.VALROUT___V899*/ meltfptr[898])->tabval[16] = (melt_ptr_t)(/*_.DISCR_INTEGER__V71*/ meltfptr[70]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V968*/ meltfptr[967])) == OBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_895__NORMEXP_ALTMATCH#16", NULL != (/*_.DISCR_INTEGER__V72*/ meltfptr[71])); + ((meltroutine_ptr_t)/*_.VALROUT___V968*/ meltfptr[967])->tabval[16] = (melt_ptr_t)(/*_.DISCR_INTEGER__V72*/ meltfptr[71]); - MELT_LOCATION("warmelt-normatch.melt:3689:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:4088:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V899*/ meltfptr[898])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V811*/ meltfptr[810]); - ((meltroutine_ptr_t)/*_.VALROUT___V899*/ meltfptr[898])->tabval[17] = (melt_ptr_t)(/*_.VALCLO___V811*/ meltfptr[810]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V968*/ meltfptr[967])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V874*/ meltfptr[873]); + ((meltroutine_ptr_t)/*_.VALROUT___V968*/ meltfptr[967])->tabval[17] = (melt_ptr_t)(/*_.VALCLO___V874*/ meltfptr[873]); - MELT_LOCATION("warmelt-normatch.melt:3689:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:4088:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V899*/ meltfptr[898])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V894*/ meltfptr[893]); - ((meltroutine_ptr_t)/*_.VALROUT___V899*/ meltfptr[898])->tabval[18] = (melt_ptr_t)(/*_.VALCLO___V894*/ meltfptr[893]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V968*/ meltfptr[967])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V963*/ meltfptr[962]); + ((meltroutine_ptr_t)/*_.VALROUT___V968*/ meltfptr[967])->tabval[18] = (melt_ptr_t)(/*_.VALCLO___V963*/ meltfptr[962]); - MELT_LOCATION("warmelt-normatch.melt:3689:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:4088:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V899*/ meltfptr[898])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V476*/ meltfptr[475]); - ((meltroutine_ptr_t)/*_.VALROUT___V899*/ meltfptr[898])->tabval[19] = (melt_ptr_t)(/*_.VALDATA___V476*/ meltfptr[475]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V968*/ meltfptr[967])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V477*/ meltfptr[476]); + ((meltroutine_ptr_t)/*_.VALROUT___V968*/ meltfptr[967])->tabval[19] = (melt_ptr_t)(/*_.VALDATA___V477*/ meltfptr[476]); - MELT_LOCATION("warmelt-normatch.melt:3689:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:4088:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V899*/ meltfptr[898])) == OBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_827__NORMEXP_ALTMATCH#20", NULL != (/*_.CLASS_CONTAINER__V37*/ meltfptr[36])); - ((meltroutine_ptr_t)/*_.VALROUT___V899*/ meltfptr[898])->tabval[20] = (melt_ptr_t)(/*_.CLASS_CONTAINER__V37*/ meltfptr[36]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V968*/ meltfptr[967])) == OBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_895__NORMEXP_ALTMATCH#20", NULL != (/*_.CLASS_CONTAINER__V37*/ meltfptr[36])); + ((meltroutine_ptr_t)/*_.VALROUT___V968*/ meltfptr[967])->tabval[20] = (melt_ptr_t)(/*_.CLASS_CONTAINER__V37*/ meltfptr[36]); - MELT_LOCATION("warmelt-normatch.melt:3781:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:4188:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V903*/ meltfptr[902])) == OBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_836__MG_ALTDRAW_GRAPHVIZ#0", NULL != (/*_.DISCR_MAP_OBJECTS__V31*/ meltfptr[30])); - ((meltroutine_ptr_t)/*_.VALROUT___V903*/ meltfptr[902])->tabval[0] = (melt_ptr_t)(/*_.DISCR_MAP_OBJECTS__V31*/ meltfptr[30]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V972*/ meltfptr[971])) == OBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_904__MG_ALTDRAW_GRAPHVIZ#0", NULL != (/*_.DISCR_MAP_OBJECTS__V31*/ meltfptr[30])); + ((meltroutine_ptr_t)/*_.VALROUT___V972*/ meltfptr[971])->tabval[0] = (melt_ptr_t)(/*_.DISCR_MAP_OBJECTS__V31*/ meltfptr[30]); - MELT_LOCATION("warmelt-normatch.melt:3781:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:4188:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V903*/ meltfptr[902])) == OBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_836__MG_ALTDRAW_GRAPHVIZ#1", NULL != (/*_.DISCR_STRBUF__V63*/ meltfptr[62])); - ((meltroutine_ptr_t)/*_.VALROUT___V903*/ meltfptr[902])->tabval[1] = (melt_ptr_t)(/*_.DISCR_STRBUF__V63*/ meltfptr[62]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V972*/ meltfptr[971])) == OBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_904__MG_ALTDRAW_GRAPHVIZ#1", NULL != (/*_.DISCR_STRBUF__V63*/ meltfptr[62])); + ((meltroutine_ptr_t)/*_.VALROUT___V972*/ meltfptr[971])->tabval[1] = (melt_ptr_t)(/*_.DISCR_STRBUF__V63*/ meltfptr[62]); - MELT_LOCATION("warmelt-normatch.melt:3781:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:4188:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V903*/ meltfptr[902])) == OBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_836__MG_ALTDRAW_GRAPHVIZ#2", NULL != (/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8])); - ((meltroutine_ptr_t)/*_.VALROUT___V903*/ meltfptr[902])->tabval[2] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V972*/ meltfptr[971])) == OBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_904__MG_ALTDRAW_GRAPHVIZ#2", NULL != (/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8])); + ((meltroutine_ptr_t)/*_.VALROUT___V972*/ meltfptr[971])->tabval[2] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8]); - MELT_LOCATION("warmelt-normatch.melt:3781:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:4188:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V903*/ meltfptr[902])) == OBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_836__MG_ALTDRAW_GRAPHVIZ#3", NULL != (/*_.DISCR_STRING__V59*/ meltfptr[58])); - ((meltroutine_ptr_t)/*_.VALROUT___V903*/ meltfptr[902])->tabval[3] = (melt_ptr_t)(/*_.DISCR_STRING__V59*/ meltfptr[58]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V972*/ meltfptr[971])) == OBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_904__MG_ALTDRAW_GRAPHVIZ#3", NULL != (/*_.DISCR_STRING__V59*/ meltfptr[58])); + ((meltroutine_ptr_t)/*_.VALROUT___V972*/ meltfptr[971])->tabval[3] = (melt_ptr_t)(/*_.DISCR_STRING__V59*/ meltfptr[58]); - MELT_LOCATION("warmelt-normatch.melt:3781:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:4188:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V903*/ meltfptr[902])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V490*/ meltfptr[489]); - ((meltroutine_ptr_t)/*_.VALROUT___V903*/ meltfptr[902])->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V490*/ meltfptr[489]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V972*/ meltfptr[971])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V491*/ meltfptr[490]); + ((meltroutine_ptr_t)/*_.VALROUT___V972*/ meltfptr[971])->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V491*/ meltfptr[490]); - MELT_LOCATION("warmelt-normatch.melt:3781:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:4188:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V903*/ meltfptr[902])) == OBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_836__MG_ALTDRAW_GRAPHVIZ#5", NULL != (/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8])); - ((meltroutine_ptr_t)/*_.VALROUT___V903*/ meltfptr[902])->tabval[5] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V972*/ meltfptr[971])) == OBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_904__MG_ALTDRAW_GRAPHVIZ#5", NULL != (/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8])); + ((meltroutine_ptr_t)/*_.VALROUT___V972*/ meltfptr[971])->tabval[5] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8]); - MELT_LOCATION("warmelt-normatch.melt:3781:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:4188:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V903*/ meltfptr[902])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V609*/ meltfptr[608]); - ((meltroutine_ptr_t)/*_.VALROUT___V903*/ meltfptr[902])->tabval[6] = (melt_ptr_t)(/*_.VALDATA___V609*/ meltfptr[608]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V972*/ meltfptr[971])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V614*/ meltfptr[613]); + ((meltroutine_ptr_t)/*_.VALROUT___V972*/ meltfptr[971])->tabval[6] = (melt_ptr_t)(/*_.VALDATA___V614*/ meltfptr[613]); - MELT_LOCATION("warmelt-normatch.melt:3781:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:4188:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V903*/ meltfptr[902])) == OBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_836__MG_ALTDRAW_GRAPHVIZ#7", NULL != (/*_.DISCR_STRBUF__V63*/ meltfptr[62])); - ((meltroutine_ptr_t)/*_.VALROUT___V903*/ meltfptr[902])->tabval[7] = (melt_ptr_t)(/*_.DISCR_STRBUF__V63*/ meltfptr[62]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V972*/ meltfptr[971])) == OBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_904__MG_ALTDRAW_GRAPHVIZ#7", NULL != (/*_.DISCR_STRBUF__V63*/ meltfptr[62])); + ((meltroutine_ptr_t)/*_.VALROUT___V972*/ meltfptr[971])->tabval[7] = (melt_ptr_t)(/*_.DISCR_STRBUF__V63*/ meltfptr[62]); - MELT_LOCATION("warmelt-normatch.melt:3781:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:4188:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V903*/ meltfptr[902])) == OBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_836__MG_ALTDRAW_GRAPHVIZ#8", NULL != (/*_.CLASS_NAMED__V10*/ meltfptr[9])); - ((meltroutine_ptr_t)/*_.VALROUT___V903*/ meltfptr[902])->tabval[8] = (melt_ptr_t)(/*_.CLASS_NAMED__V10*/ meltfptr[9]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V972*/ meltfptr[971])) == OBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_904__MG_ALTDRAW_GRAPHVIZ#8", NULL != (/*_.CLASS_NAMED__V10*/ meltfptr[9])); + ((meltroutine_ptr_t)/*_.VALROUT___V972*/ meltfptr[971])->tabval[8] = (melt_ptr_t)(/*_.CLASS_NAMED__V10*/ meltfptr[9]); - MELT_LOCATION("warmelt-normatch.melt:3781:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:4188:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V903*/ meltfptr[902])) == OBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_836__MG_ALTDRAW_GRAPHVIZ#9", NULL != (/*_.CLASS_CLONED_SYMBOL__V62*/ meltfptr[61])); - ((meltroutine_ptr_t)/*_.VALROUT___V903*/ meltfptr[902])->tabval[9] = (melt_ptr_t)(/*_.CLASS_CLONED_SYMBOL__V62*/ meltfptr[61]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V972*/ meltfptr[971])) == OBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_904__MG_ALTDRAW_GRAPHVIZ#9", NULL != (/*_.CLASS_CLONED_SYMBOL__V62*/ meltfptr[61])); + ((meltroutine_ptr_t)/*_.VALROUT___V972*/ meltfptr[971])->tabval[9] = (melt_ptr_t)(/*_.CLASS_CLONED_SYMBOL__V62*/ meltfptr[61]); - MELT_LOCATION("warmelt-normatch.melt:3781:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:4188:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V903*/ meltfptr[902])) == OBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_836__MG_ALTDRAW_GRAPHVIZ#10", NULL != (/*_.DISCR_STRING__V59*/ meltfptr[58])); - ((meltroutine_ptr_t)/*_.VALROUT___V903*/ meltfptr[902])->tabval[10] = (melt_ptr_t)(/*_.DISCR_STRING__V59*/ meltfptr[58]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V972*/ meltfptr[971])) == OBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_904__MG_ALTDRAW_GRAPHVIZ#10", NULL != (/*_.DISCR_STRING__V59*/ meltfptr[58])); + ((meltroutine_ptr_t)/*_.VALROUT___V972*/ meltfptr[971])->tabval[10] = (melt_ptr_t)(/*_.DISCR_STRING__V59*/ meltfptr[58]); - MELT_LOCATION("warmelt-normatch.melt:3818:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:4225:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V904*/ meltfptr[903])) == OBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_838__LAMBDA_#0", NULL != (/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8])); - ((meltroutine_ptr_t)/*_.VALROUT___V904*/ meltfptr[903])->tabval[0] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V973*/ meltfptr[972])) == OBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_906__LAMBDA_#0", NULL != (/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8])); + ((meltroutine_ptr_t)/*_.VALROUT___V973*/ meltfptr[972])->tabval[0] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8]); - MELT_LOCATION("warmelt-normatch.melt:3818:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:4225:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V904*/ meltfptr[903])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V609*/ meltfptr[608]); - ((meltroutine_ptr_t)/*_.VALROUT___V904*/ meltfptr[903])->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V609*/ meltfptr[608]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V973*/ meltfptr[972])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V614*/ meltfptr[613]); + ((meltroutine_ptr_t)/*_.VALROUT___V973*/ meltfptr[972])->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V614*/ meltfptr[613]); - MELT_LOCATION("warmelt-normatch.melt:3818:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:4225:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V904*/ meltfptr[903])) == OBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_838__LAMBDA_#2", NULL != (/*_.DISCR_STRBUF__V63*/ meltfptr[62])); - ((meltroutine_ptr_t)/*_.VALROUT___V904*/ meltfptr[903])->tabval[2] = (melt_ptr_t)(/*_.DISCR_STRBUF__V63*/ meltfptr[62]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V973*/ meltfptr[972])) == OBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_906__LAMBDA_#2", NULL != (/*_.DISCR_STRBUF__V63*/ meltfptr[62])); + ((meltroutine_ptr_t)/*_.VALROUT___V973*/ meltfptr[972])->tabval[2] = (melt_ptr_t)(/*_.DISCR_STRBUF__V63*/ meltfptr[62]); - MELT_LOCATION("warmelt-normatch.melt:3818:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:4225:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V904*/ meltfptr[903])) == OBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_838__LAMBDA_#3", NULL != (/*_.CLASS_NAMED__V10*/ meltfptr[9])); - ((meltroutine_ptr_t)/*_.VALROUT___V904*/ meltfptr[903])->tabval[3] = (melt_ptr_t)(/*_.CLASS_NAMED__V10*/ meltfptr[9]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V973*/ meltfptr[972])) == OBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_906__LAMBDA_#3", NULL != (/*_.CLASS_NAMED__V10*/ meltfptr[9])); + ((meltroutine_ptr_t)/*_.VALROUT___V973*/ meltfptr[972])->tabval[3] = (melt_ptr_t)(/*_.CLASS_NAMED__V10*/ meltfptr[9]); - MELT_LOCATION("warmelt-normatch.melt:3818:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:4225:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V904*/ meltfptr[903])) == OBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_838__LAMBDA_#4", NULL != (/*_.CLASS_CLONED_SYMBOL__V62*/ meltfptr[61])); - ((meltroutine_ptr_t)/*_.VALROUT___V904*/ meltfptr[903])->tabval[4] = (melt_ptr_t)(/*_.CLASS_CLONED_SYMBOL__V62*/ meltfptr[61]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V973*/ meltfptr[972])) == OBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_906__LAMBDA_#4", NULL != (/*_.CLASS_CLONED_SYMBOL__V62*/ meltfptr[61])); + ((meltroutine_ptr_t)/*_.VALROUT___V973*/ meltfptr[972])->tabval[4] = (melt_ptr_t)(/*_.CLASS_CLONED_SYMBOL__V62*/ meltfptr[61]); - MELT_LOCATION("warmelt-normatch.melt:3818:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:4225:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V904*/ meltfptr[903])) == OBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_838__LAMBDA_#5", NULL != (/*_.DISCR_STRING__V59*/ meltfptr[58])); - ((meltroutine_ptr_t)/*_.VALROUT___V904*/ meltfptr[903])->tabval[5] = (melt_ptr_t)(/*_.DISCR_STRING__V59*/ meltfptr[58]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V973*/ meltfptr[972])) == OBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_906__LAMBDA_#5", NULL != (/*_.DISCR_STRING__V59*/ meltfptr[58])); + ((meltroutine_ptr_t)/*_.VALROUT___V973*/ meltfptr[972])->tabval[5] = (melt_ptr_t)(/*_.DISCR_STRING__V59*/ meltfptr[58]); - MELT_LOCATION("warmelt-normatch.melt:3818:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:4225:/ initchunk"); /*^touch*/ /*touch:IROUTVAL_*/ - meltgc_touch(/*_.VALROUT___V904*/ meltfptr[903]); + meltgc_touch(/*_.VALROUT___V973*/ meltfptr[972]); - MELT_LOCATION("warmelt-normatch.melt:3781:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:4188:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V903*/ meltfptr[902])) == OBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_836__MG_ALTDRAW_GRAPHVIZ#11", NULL != (/*_.VALROUT___V904*/ meltfptr[903])); - ((meltroutine_ptr_t)/*_.VALROUT___V903*/ meltfptr[902])->tabval[11] = (melt_ptr_t)(/*_.VALROUT___V904*/ meltfptr[903]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V972*/ meltfptr[971])) == OBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_904__MG_ALTDRAW_GRAPHVIZ#11", NULL != (/*_.VALROUT___V973*/ meltfptr[972])); + ((meltroutine_ptr_t)/*_.VALROUT___V972*/ meltfptr[971])->tabval[11] = (melt_ptr_t)(/*_.VALROUT___V973*/ meltfptr[972]); - MELT_LOCATION("warmelt-normatch.melt:3781:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:4188:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V903*/ meltfptr[902])) == OBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_836__MG_ALTDRAW_GRAPHVIZ#12", NULL != (/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8])); - ((meltroutine_ptr_t)/*_.VALROUT___V903*/ meltfptr[902])->tabval[12] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V972*/ meltfptr[971])) == OBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_904__MG_ALTDRAW_GRAPHVIZ#12", NULL != (/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8])); + ((meltroutine_ptr_t)/*_.VALROUT___V972*/ meltfptr[971])->tabval[12] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8]); - MELT_LOCATION("warmelt-normatch.melt:3781:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:4188:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V903*/ meltfptr[902])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V649*/ meltfptr[648]); - ((meltroutine_ptr_t)/*_.VALROUT___V903*/ meltfptr[902])->tabval[13] = (melt_ptr_t)(/*_.VALDATA___V649*/ meltfptr[648]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V972*/ meltfptr[971])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V654*/ meltfptr[653]); + ((meltroutine_ptr_t)/*_.VALROUT___V972*/ meltfptr[971])->tabval[13] = (melt_ptr_t)(/*_.VALDATA___V654*/ meltfptr[653]); - MELT_LOCATION("warmelt-normatch.melt:3781:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:4188:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V903*/ meltfptr[902])) == OBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_836__MG_ALTDRAW_GRAPHVIZ#14", NULL != (/*_.DISCR_STRBUF__V63*/ meltfptr[62])); - ((meltroutine_ptr_t)/*_.VALROUT___V903*/ meltfptr[902])->tabval[14] = (melt_ptr_t)(/*_.DISCR_STRBUF__V63*/ meltfptr[62]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V972*/ meltfptr[971])) == OBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_904__MG_ALTDRAW_GRAPHVIZ#14", NULL != (/*_.DISCR_STRBUF__V63*/ meltfptr[62])); + ((meltroutine_ptr_t)/*_.VALROUT___V972*/ meltfptr[971])->tabval[14] = (melt_ptr_t)(/*_.DISCR_STRBUF__V63*/ meltfptr[62]); - MELT_LOCATION("warmelt-normatch.melt:3781:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:4188:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V903*/ meltfptr[902])) == OBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_836__MG_ALTDRAW_GRAPHVIZ#15", NULL != (/*_.CLASS_NAMED__V10*/ meltfptr[9])); - ((meltroutine_ptr_t)/*_.VALROUT___V903*/ meltfptr[902])->tabval[15] = (melt_ptr_t)(/*_.CLASS_NAMED__V10*/ meltfptr[9]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V972*/ meltfptr[971])) == OBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_904__MG_ALTDRAW_GRAPHVIZ#15", NULL != (/*_.CLASS_NAMED__V10*/ meltfptr[9])); + ((meltroutine_ptr_t)/*_.VALROUT___V972*/ meltfptr[971])->tabval[15] = (melt_ptr_t)(/*_.CLASS_NAMED__V10*/ meltfptr[9]); - MELT_LOCATION("warmelt-normatch.melt:3781:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:4188:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V903*/ meltfptr[902])) == OBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_836__MG_ALTDRAW_GRAPHVIZ#16", NULL != (/*_.DISCR_STRING__V59*/ meltfptr[58])); - ((meltroutine_ptr_t)/*_.VALROUT___V903*/ meltfptr[902])->tabval[16] = (melt_ptr_t)(/*_.DISCR_STRING__V59*/ meltfptr[58]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V972*/ meltfptr[971])) == OBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_904__MG_ALTDRAW_GRAPHVIZ#16", NULL != (/*_.DISCR_STRING__V59*/ meltfptr[58])); + ((meltroutine_ptr_t)/*_.VALROUT___V972*/ meltfptr[971])->tabval[16] = (melt_ptr_t)(/*_.DISCR_STRING__V59*/ meltfptr[58]); - MELT_LOCATION("warmelt-normatch.melt:3781:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:4188:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V903*/ meltfptr[902])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V791*/ meltfptr[790]); - ((meltroutine_ptr_t)/*_.VALROUT___V903*/ meltfptr[902])->tabval[17] = (melt_ptr_t)(/*_.VALDATA___V791*/ meltfptr[790]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V972*/ meltfptr[971])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V854*/ meltfptr[853]); + ((meltroutine_ptr_t)/*_.VALROUT___V972*/ meltfptr[971])->tabval[17] = (melt_ptr_t)(/*_.VALDATA___V854*/ meltfptr[853]); - MELT_LOCATION("warmelt-normatch.melt:3781:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:4188:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V903*/ meltfptr[902])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V659*/ meltfptr[658]); - ((meltroutine_ptr_t)/*_.VALROUT___V903*/ meltfptr[902])->tabval[18] = (melt_ptr_t)(/*_.VALDATA___V659*/ meltfptr[658]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V972*/ meltfptr[971])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V686*/ meltfptr[685]); + ((meltroutine_ptr_t)/*_.VALROUT___V972*/ meltfptr[971])->tabval[18] = (melt_ptr_t)(/*_.VALDATA___V686*/ meltfptr[685]); - MELT_LOCATION("warmelt-normatch.melt:3781:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:4188:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V903*/ meltfptr[902])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V697*/ meltfptr[696]); - ((meltroutine_ptr_t)/*_.VALROUT___V903*/ meltfptr[902])->tabval[19] = (melt_ptr_t)(/*_.VALDATA___V697*/ meltfptr[696]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V972*/ meltfptr[971])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V756*/ meltfptr[755]); + ((meltroutine_ptr_t)/*_.VALROUT___V972*/ meltfptr[971])->tabval[19] = (melt_ptr_t)(/*_.VALDATA___V756*/ meltfptr[755]); - MELT_LOCATION("warmelt-normatch.melt:3848:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:4255:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V905*/ meltfptr[904])) == OBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_839__LAMBDA_#0", NULL != (/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8])); - ((meltroutine_ptr_t)/*_.VALROUT___V905*/ meltfptr[904])->tabval[0] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V974*/ meltfptr[973])) == OBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_907__LAMBDA_#0", NULL != (/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8])); + ((meltroutine_ptr_t)/*_.VALROUT___V974*/ meltfptr[973])->tabval[0] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8]); - MELT_LOCATION("warmelt-normatch.melt:3848:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:4255:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V905*/ meltfptr[904])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V649*/ meltfptr[648]); - ((meltroutine_ptr_t)/*_.VALROUT___V905*/ meltfptr[904])->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V649*/ meltfptr[648]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V974*/ meltfptr[973])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V654*/ meltfptr[653]); + ((meltroutine_ptr_t)/*_.VALROUT___V974*/ meltfptr[973])->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V654*/ meltfptr[653]); - MELT_LOCATION("warmelt-normatch.melt:3848:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:4255:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V905*/ meltfptr[904])) == OBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_839__LAMBDA_#2", NULL != (/*_.DISCR_STRBUF__V63*/ meltfptr[62])); - ((meltroutine_ptr_t)/*_.VALROUT___V905*/ meltfptr[904])->tabval[2] = (melt_ptr_t)(/*_.DISCR_STRBUF__V63*/ meltfptr[62]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V974*/ meltfptr[973])) == OBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_907__LAMBDA_#2", NULL != (/*_.DISCR_STRBUF__V63*/ meltfptr[62])); + ((meltroutine_ptr_t)/*_.VALROUT___V974*/ meltfptr[973])->tabval[2] = (melt_ptr_t)(/*_.DISCR_STRBUF__V63*/ meltfptr[62]); - MELT_LOCATION("warmelt-normatch.melt:3848:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:4255:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V905*/ meltfptr[904])) == OBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_839__LAMBDA_#3", NULL != (/*_.CLASS_NAMED__V10*/ meltfptr[9])); - ((meltroutine_ptr_t)/*_.VALROUT___V905*/ meltfptr[904])->tabval[3] = (melt_ptr_t)(/*_.CLASS_NAMED__V10*/ meltfptr[9]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V974*/ meltfptr[973])) == OBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_907__LAMBDA_#3", NULL != (/*_.CLASS_NAMED__V10*/ meltfptr[9])); + ((meltroutine_ptr_t)/*_.VALROUT___V974*/ meltfptr[973])->tabval[3] = (melt_ptr_t)(/*_.CLASS_NAMED__V10*/ meltfptr[9]); - MELT_LOCATION("warmelt-normatch.melt:3848:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:4255:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V905*/ meltfptr[904])) == OBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_839__LAMBDA_#4", NULL != (/*_.DISCR_STRING__V59*/ meltfptr[58])); - ((meltroutine_ptr_t)/*_.VALROUT___V905*/ meltfptr[904])->tabval[4] = (melt_ptr_t)(/*_.DISCR_STRING__V59*/ meltfptr[58]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V974*/ meltfptr[973])) == OBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_907__LAMBDA_#4", NULL != (/*_.DISCR_STRING__V59*/ meltfptr[58])); + ((meltroutine_ptr_t)/*_.VALROUT___V974*/ meltfptr[973])->tabval[4] = (melt_ptr_t)(/*_.DISCR_STRING__V59*/ meltfptr[58]); - MELT_LOCATION("warmelt-normatch.melt:3848:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:4255:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V905*/ meltfptr[904])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V791*/ meltfptr[790]); - ((meltroutine_ptr_t)/*_.VALROUT___V905*/ meltfptr[904])->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V791*/ meltfptr[790]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V974*/ meltfptr[973])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V854*/ meltfptr[853]); + ((meltroutine_ptr_t)/*_.VALROUT___V974*/ meltfptr[973])->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V854*/ meltfptr[853]); - MELT_LOCATION("warmelt-normatch.melt:3848:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:4255:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V905*/ meltfptr[904])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V659*/ meltfptr[658]); - ((meltroutine_ptr_t)/*_.VALROUT___V905*/ meltfptr[904])->tabval[6] = (melt_ptr_t)(/*_.VALDATA___V659*/ meltfptr[658]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V974*/ meltfptr[973])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V686*/ meltfptr[685]); + ((meltroutine_ptr_t)/*_.VALROUT___V974*/ meltfptr[973])->tabval[6] = (melt_ptr_t)(/*_.VALDATA___V686*/ meltfptr[685]); - MELT_LOCATION("warmelt-normatch.melt:3848:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:4255:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V905*/ meltfptr[904])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V697*/ meltfptr[696]); - ((meltroutine_ptr_t)/*_.VALROUT___V905*/ meltfptr[904])->tabval[7] = (melt_ptr_t)(/*_.VALDATA___V697*/ meltfptr[696]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V974*/ meltfptr[973])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V756*/ meltfptr[755]); + ((meltroutine_ptr_t)/*_.VALROUT___V974*/ meltfptr[973])->tabval[7] = (melt_ptr_t)(/*_.VALDATA___V756*/ meltfptr[755]); - MELT_LOCATION("warmelt-normatch.melt:3848:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:4255:/ initchunk"); /*^touch*/ /*touch:IROUTVAL_*/ - meltgc_touch(/*_.VALROUT___V905*/ meltfptr[904]); + meltgc_touch(/*_.VALROUT___V974*/ meltfptr[973]); - MELT_LOCATION("warmelt-normatch.melt:3781:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:4188:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V903*/ meltfptr[902])) == OBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_836__MG_ALTDRAW_GRAPHVIZ#20", NULL != (/*_.VALROUT___V905*/ meltfptr[904])); - ((meltroutine_ptr_t)/*_.VALROUT___V903*/ meltfptr[902])->tabval[20] = (melt_ptr_t)(/*_.VALROUT___V905*/ meltfptr[904]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V972*/ meltfptr[971])) == OBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_904__MG_ALTDRAW_GRAPHVIZ#20", NULL != (/*_.VALROUT___V974*/ meltfptr[973])); + ((meltroutine_ptr_t)/*_.VALROUT___V972*/ meltfptr[971])->tabval[20] = (melt_ptr_t)(/*_.VALROUT___V974*/ meltfptr[973]); - MELT_LOCATION("warmelt-normatch.melt:3781:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:4188:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V903*/ meltfptr[902])) == OBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_836__MG_ALTDRAW_GRAPHVIZ#21", NULL != (/*_.DISCR_MULTIPLE__V43*/ meltfptr[42])); - ((meltroutine_ptr_t)/*_.VALROUT___V903*/ meltfptr[902])->tabval[21] = (melt_ptr_t)(/*_.DISCR_MULTIPLE__V43*/ meltfptr[42]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V972*/ meltfptr[971])) == OBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_904__MG_ALTDRAW_GRAPHVIZ#21", NULL != (/*_.DISCR_MULTIPLE__V43*/ meltfptr[42])); + ((meltroutine_ptr_t)/*_.VALROUT___V972*/ meltfptr[971])->tabval[21] = (melt_ptr_t)(/*_.DISCR_MULTIPLE__V43*/ meltfptr[42]); - MELT_LOCATION("warmelt-normatch.melt:3909:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:4316:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V906*/ meltfptr[905])) == OBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_840__LAMBDA_#0", NULL != (/*_.VALBXINT___V907*/ meltfptr[906])); - ((meltroutine_ptr_t)/*_.VALROUT___V906*/ meltfptr[905])->tabval[0] = (melt_ptr_t)(/*_.VALBXINT___V907*/ meltfptr[906]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V975*/ meltfptr[974])) == OBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_908__LAMBDA_#0", NULL != (/*_.VALBXINT___V976*/ meltfptr[975])); + ((meltroutine_ptr_t)/*_.VALROUT___V975*/ meltfptr[974])->tabval[0] = (melt_ptr_t)(/*_.VALBXINT___V976*/ meltfptr[975]); - MELT_LOCATION("warmelt-normatch.melt:3909:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:4316:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V906*/ meltfptr[905])) == OBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_840__LAMBDA_#1", NULL != (/*_.VALBXINT___V908*/ meltfptr[907])); - ((meltroutine_ptr_t)/*_.VALROUT___V906*/ meltfptr[905])->tabval[1] = (melt_ptr_t)(/*_.VALBXINT___V908*/ meltfptr[907]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V975*/ meltfptr[974])) == OBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_908__LAMBDA_#1", NULL != (/*_.VALBXINT___V977*/ meltfptr[976])); + ((meltroutine_ptr_t)/*_.VALROUT___V975*/ meltfptr[974])->tabval[1] = (melt_ptr_t)(/*_.VALBXINT___V977*/ meltfptr[976]); - MELT_LOCATION("warmelt-normatch.melt:3909:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:4316:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V906*/ meltfptr[905])) == OBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_840__LAMBDA_#2", NULL != (/*_.VALBXINT___V909*/ meltfptr[908])); - ((meltroutine_ptr_t)/*_.VALROUT___V906*/ meltfptr[905])->tabval[2] = (melt_ptr_t)(/*_.VALBXINT___V909*/ meltfptr[908]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V975*/ meltfptr[974])) == OBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_908__LAMBDA_#2", NULL != (/*_.VALBXINT___V978*/ meltfptr[977])); + ((meltroutine_ptr_t)/*_.VALROUT___V975*/ meltfptr[974])->tabval[2] = (melt_ptr_t)(/*_.VALBXINT___V978*/ meltfptr[977]); - MELT_LOCATION("warmelt-normatch.melt:3909:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:4316:/ initchunk"); /*^touch*/ /*touch:IROUTVAL_*/ - meltgc_touch(/*_.VALROUT___V906*/ meltfptr[905]); + meltgc_touch(/*_.VALROUT___V975*/ meltfptr[974]); - MELT_LOCATION("warmelt-normatch.melt:3781:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:4188:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V903*/ meltfptr[902])) == OBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_836__MG_ALTDRAW_GRAPHVIZ#22", NULL != (/*_.VALROUT___V906*/ meltfptr[905])); - ((meltroutine_ptr_t)/*_.VALROUT___V903*/ meltfptr[902])->tabval[22] = (melt_ptr_t)(/*_.VALROUT___V906*/ meltfptr[905]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V972*/ meltfptr[971])) == OBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_904__MG_ALTDRAW_GRAPHVIZ#22", NULL != (/*_.VALROUT___V975*/ meltfptr[974])); + ((meltroutine_ptr_t)/*_.VALROUT___V972*/ meltfptr[971])->tabval[22] = (melt_ptr_t)(/*_.VALROUT___V975*/ meltfptr[974]); - MELT_LOCATION("warmelt-normatch.melt:3928:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:4335:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V910*/ meltfptr[909])) == OBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_844__LAMBDA_#0", NULL != (/*_.VALBXINT___V911*/ meltfptr[910])); - ((meltroutine_ptr_t)/*_.VALROUT___V910*/ meltfptr[909])->tabval[0] = (melt_ptr_t)(/*_.VALBXINT___V911*/ meltfptr[910]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V979*/ meltfptr[978])) == OBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_912__LAMBDA_#0", NULL != (/*_.VALBXINT___V980*/ meltfptr[979])); + ((meltroutine_ptr_t)/*_.VALROUT___V979*/ meltfptr[978])->tabval[0] = (melt_ptr_t)(/*_.VALBXINT___V980*/ meltfptr[979]); - MELT_LOCATION("warmelt-normatch.melt:3928:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:4335:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V910*/ meltfptr[909])) == OBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_844__LAMBDA_#1", NULL != (/*_.VALBXINT___V912*/ meltfptr[911])); - ((meltroutine_ptr_t)/*_.VALROUT___V910*/ meltfptr[909])->tabval[1] = (melt_ptr_t)(/*_.VALBXINT___V912*/ meltfptr[911]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V979*/ meltfptr[978])) == OBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_912__LAMBDA_#1", NULL != (/*_.VALBXINT___V981*/ meltfptr[980])); + ((meltroutine_ptr_t)/*_.VALROUT___V979*/ meltfptr[978])->tabval[1] = (melt_ptr_t)(/*_.VALBXINT___V981*/ meltfptr[980]); - MELT_LOCATION("warmelt-normatch.melt:3928:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:4335:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V910*/ meltfptr[909])) == OBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_844__LAMBDA_#2", NULL != (/*_.VALBXINT___V913*/ meltfptr[912])); - ((meltroutine_ptr_t)/*_.VALROUT___V910*/ meltfptr[909])->tabval[2] = (melt_ptr_t)(/*_.VALBXINT___V913*/ meltfptr[912]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V979*/ meltfptr[978])) == OBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_912__LAMBDA_#2", NULL != (/*_.VALBXINT___V982*/ meltfptr[981])); + ((meltroutine_ptr_t)/*_.VALROUT___V979*/ meltfptr[978])->tabval[2] = (melt_ptr_t)(/*_.VALBXINT___V982*/ meltfptr[981]); - MELT_LOCATION("warmelt-normatch.melt:3928:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:4335:/ initchunk"); /*^touch*/ /*touch:IROUTVAL_*/ - meltgc_touch(/*_.VALROUT___V910*/ meltfptr[909]); + meltgc_touch(/*_.VALROUT___V979*/ meltfptr[978]); - MELT_LOCATION("warmelt-normatch.melt:3781:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:4188:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V903*/ meltfptr[902])) == OBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_836__MG_ALTDRAW_GRAPHVIZ#23", NULL != (/*_.VALROUT___V910*/ meltfptr[909])); - ((meltroutine_ptr_t)/*_.VALROUT___V903*/ meltfptr[902])->tabval[23] = (melt_ptr_t)(/*_.VALROUT___V910*/ meltfptr[909]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V972*/ meltfptr[971])) == OBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_904__MG_ALTDRAW_GRAPHVIZ#23", NULL != (/*_.VALROUT___V979*/ meltfptr[978])); + ((meltroutine_ptr_t)/*_.VALROUT___V972*/ meltfptr[971])->tabval[23] = (melt_ptr_t)(/*_.VALROUT___V979*/ meltfptr[978]); - MELT_LOCATION("warmelt-normatch.melt:3781:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:4188:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V903*/ meltfptr[902])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V609*/ meltfptr[608]); - ((meltroutine_ptr_t)/*_.VALROUT___V903*/ meltfptr[902])->tabval[24] = (melt_ptr_t)(/*_.VALDATA___V609*/ meltfptr[608]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V972*/ meltfptr[971])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V614*/ meltfptr[613]); + ((meltroutine_ptr_t)/*_.VALROUT___V972*/ meltfptr[971])->tabval[24] = (melt_ptr_t)(/*_.VALDATA___V614*/ meltfptr[613]); - MELT_LOCATION("warmelt-normatch.melt:3781:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:4188:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V903*/ meltfptr[902])) == OBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_836__MG_ALTDRAW_GRAPHVIZ#25", NULL != (/*_.CLASS_NAMED__V10*/ meltfptr[9])); - ((meltroutine_ptr_t)/*_.VALROUT___V903*/ meltfptr[902])->tabval[25] = (melt_ptr_t)(/*_.CLASS_NAMED__V10*/ meltfptr[9]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V972*/ meltfptr[971])) == OBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_904__MG_ALTDRAW_GRAPHVIZ#25", NULL != (/*_.CLASS_NAMED__V10*/ meltfptr[9])); + ((meltroutine_ptr_t)/*_.VALROUT___V972*/ meltfptr[971])->tabval[25] = (melt_ptr_t)(/*_.CLASS_NAMED__V10*/ meltfptr[9]); - MELT_LOCATION("warmelt-normatch.melt:3781:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:4188:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V903*/ meltfptr[902])) == OBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_836__MG_ALTDRAW_GRAPHVIZ#26", NULL != (/*_.CLASS_CLONED_SYMBOL__V62*/ meltfptr[61])); - ((meltroutine_ptr_t)/*_.VALROUT___V903*/ meltfptr[902])->tabval[26] = (melt_ptr_t)(/*_.CLASS_CLONED_SYMBOL__V62*/ meltfptr[61]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V972*/ meltfptr[971])) == OBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_904__MG_ALTDRAW_GRAPHVIZ#26", NULL != (/*_.CLASS_CLONED_SYMBOL__V62*/ meltfptr[61])); + ((meltroutine_ptr_t)/*_.VALROUT___V972*/ meltfptr[971])->tabval[26] = (melt_ptr_t)(/*_.CLASS_CLONED_SYMBOL__V62*/ meltfptr[61]); - MELT_LOCATION("warmelt-normatch.melt:3781:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:4188:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V903*/ meltfptr[902])) == OBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_836__MG_ALTDRAW_GRAPHVIZ#27", NULL != (/*_.CLASS_CTYPE__V20*/ meltfptr[19])); - ((meltroutine_ptr_t)/*_.VALROUT___V903*/ meltfptr[902])->tabval[27] = (melt_ptr_t)(/*_.CLASS_CTYPE__V20*/ meltfptr[19]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V972*/ meltfptr[971])) == OBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_904__MG_ALTDRAW_GRAPHVIZ#27", NULL != (/*_.CLASS_CTYPE__V20*/ meltfptr[19])); + ((meltroutine_ptr_t)/*_.VALROUT___V972*/ meltfptr[971])->tabval[27] = (melt_ptr_t)(/*_.CLASS_CTYPE__V20*/ meltfptr[19]); - MELT_LOCATION("warmelt-normatch.melt:3781:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:4188:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V903*/ meltfptr[902])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V649*/ meltfptr[648]); - ((meltroutine_ptr_t)/*_.VALROUT___V903*/ meltfptr[902])->tabval[28] = (melt_ptr_t)(/*_.VALDATA___V649*/ meltfptr[648]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V972*/ meltfptr[971])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V654*/ meltfptr[653]); + ((meltroutine_ptr_t)/*_.VALROUT___V972*/ meltfptr[971])->tabval[28] = (melt_ptr_t)(/*_.VALDATA___V654*/ meltfptr[653]); - MELT_LOCATION("warmelt-normatch.melt:3781:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:4188:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V903*/ meltfptr[902])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V679*/ meltfptr[678]); - ((meltroutine_ptr_t)/*_.VALROUT___V903*/ meltfptr[902])->tabval[29] = (melt_ptr_t)(/*_.VALDATA___V679*/ meltfptr[678]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V972*/ meltfptr[971])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V734*/ meltfptr[733]); + ((meltroutine_ptr_t)/*_.VALROUT___V972*/ meltfptr[971])->tabval[29] = (melt_ptr_t)(/*_.VALDATA___V734*/ meltfptr[733]); - MELT_LOCATION("warmelt-normatch.melt:3781:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:4188:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V903*/ meltfptr[902])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V878*/ meltfptr[877]); - ((meltroutine_ptr_t)/*_.VALROUT___V903*/ meltfptr[902])->tabval[30] = (melt_ptr_t)(/*_.VALDATA___V878*/ meltfptr[877]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V972*/ meltfptr[971])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V945*/ meltfptr[944]); + ((meltroutine_ptr_t)/*_.VALROUT___V972*/ meltfptr[971])->tabval[30] = (melt_ptr_t)(/*_.VALDATA___V945*/ meltfptr[944]); - MELT_LOCATION("warmelt-normatch.melt:3781:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:4188:/ initchunk"); /*^touch*/ /*touch:IROUTVAL_*/ - meltgc_touch(/*_.VALROUT___V903*/ meltfptr[902]); + meltgc_touch(/*_.VALROUT___V972*/ meltfptr[971]); /*putclosurout*/ - melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V902*/ meltfptr[901])) == OBMAG_CLOSURE); - melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V903*/ meltfptr[902])) == OBMAG_ROUTINE); - ((meltclosure_ptr_t)/*_.VALCLO___V902*/ meltfptr[901])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V903*/ meltfptr[902]); + melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V971*/ meltfptr[970])) == OBMAG_CLOSURE); + melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V972*/ meltfptr[971])) == OBMAG_ROUTINE); + ((meltclosure_ptr_t)/*_.VALCLO___V971*/ meltfptr[970])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V972*/ meltfptr[971]); /*touch:DATACLOSURE_*/ - meltgc_touch(/*_.VALCLO___V902*/ meltfptr[901]); + meltgc_touch(/*_.VALCLO___V971*/ meltfptr[970]); - MELT_LOCATION("warmelt-normatch.melt:3689:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:4088:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V899*/ meltfptr[898])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V902*/ meltfptr[901]); - ((meltroutine_ptr_t)/*_.VALROUT___V899*/ meltfptr[898])->tabval[21] = (melt_ptr_t)(/*_.VALCLO___V902*/ meltfptr[901]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V968*/ meltfptr[967])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V971*/ meltfptr[970]); + ((meltroutine_ptr_t)/*_.VALROUT___V968*/ meltfptr[967])->tabval[21] = (melt_ptr_t)(/*_.VALCLO___V971*/ meltfptr[970]); - MELT_LOCATION("warmelt-normatch.melt:3689:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:4088:/ initchunk"); /*^touch*/ /*touch:IROUTVAL_*/ - meltgc_touch(/*_.VALROUT___V899*/ meltfptr[898]); + meltgc_touch(/*_.VALROUT___V968*/ meltfptr[967]); /*putclosurout*/ - melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V914*/ meltfptr[913])) == OBMAG_CLOSURE); - melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V899*/ meltfptr[898])) == OBMAG_ROUTINE); - ((meltclosure_ptr_t)/*_.VALCLO___V914*/ meltfptr[913])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V899*/ meltfptr[898]); + melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V983*/ meltfptr[982])) == OBMAG_CLOSURE); + melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V968*/ meltfptr[967])) == OBMAG_ROUTINE); + ((meltclosure_ptr_t)/*_.VALCLO___V983*/ meltfptr[982])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V968*/ meltfptr[967]); /*touch:DATACLOSURE_*/ - meltgc_touch(/*_.VALCLO___V914*/ meltfptr[913]); + meltgc_touch(/*_.VALCLO___V983*/ meltfptr[982]); - MELT_LOCATION("warmelt-normatch.melt:3766:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:4173:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V915*/ meltfptr[914])) == OBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_831__ALTERNATE_MATCH_OPTSET#0", NULL != (/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8])); - ((meltroutine_ptr_t)/*_.VALROUT___V915*/ meltfptr[914])->tabval[0] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V984*/ meltfptr[983])) == OBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_899__ALTERNATE_MATCH_OPTSET#0", NULL != (/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8])); + ((meltroutine_ptr_t)/*_.VALROUT___V984*/ meltfptr[983])->tabval[0] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V9*/ meltfptr[8]); - MELT_LOCATION("warmelt-normatch.melt:3766:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:4173:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V915*/ meltfptr[914])) == OBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_831__ALTERNATE_MATCH_OPTSET#1", NULL != (/*_.INSTALL_METHOD__V11*/ meltfptr[10])); - ((meltroutine_ptr_t)/*_.VALROUT___V915*/ meltfptr[914])->tabval[1] = (melt_ptr_t)(/*_.INSTALL_METHOD__V11*/ meltfptr[10]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V984*/ meltfptr[983])) == OBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_899__ALTERNATE_MATCH_OPTSET#1", NULL != (/*_.INSTALL_METHOD__V11*/ meltfptr[10])); + ((meltroutine_ptr_t)/*_.VALROUT___V984*/ meltfptr[983])->tabval[1] = (melt_ptr_t)(/*_.INSTALL_METHOD__V11*/ meltfptr[10]); - MELT_LOCATION("warmelt-normatch.melt:3766:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:4173:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V915*/ meltfptr[914])) == OBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_831__ALTERNATE_MATCH_OPTSET#2", NULL != (/*_.CLASS_SOURCE_MATCH__V64*/ meltfptr[63])); - ((meltroutine_ptr_t)/*_.VALROUT___V915*/ meltfptr[914])->tabval[2] = (melt_ptr_t)(/*_.CLASS_SOURCE_MATCH__V64*/ meltfptr[63]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V984*/ meltfptr[983])) == OBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_899__ALTERNATE_MATCH_OPTSET#2", NULL != (/*_.CLASS_SOURCE_MATCH__V64*/ meltfptr[63])); + ((meltroutine_ptr_t)/*_.VALROUT___V984*/ meltfptr[983])->tabval[2] = (melt_ptr_t)(/*_.CLASS_SOURCE_MATCH__V64*/ meltfptr[63]); - MELT_LOCATION("warmelt-normatch.melt:3766:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:4173:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V915*/ meltfptr[914])) == OBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_831__ALTERNATE_MATCH_OPTSET#3", NULL != (/*_.NORMAL_EXP__V17*/ meltfptr[16])); - ((meltroutine_ptr_t)/*_.VALROUT___V915*/ meltfptr[914])->tabval[3] = (melt_ptr_t)(/*_.NORMAL_EXP__V17*/ meltfptr[16]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V984*/ meltfptr[983])) == OBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_899__ALTERNATE_MATCH_OPTSET#3", NULL != (/*_.NORMAL_EXP__V17*/ meltfptr[16])); + ((meltroutine_ptr_t)/*_.VALROUT___V984*/ meltfptr[983])->tabval[3] = (melt_ptr_t)(/*_.NORMAL_EXP__V17*/ meltfptr[16]); - MELT_LOCATION("warmelt-normatch.melt:3766:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:4173:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V915*/ meltfptr[914])) == OBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V914*/ meltfptr[913]); - ((meltroutine_ptr_t)/*_.VALROUT___V915*/ meltfptr[914])->tabval[4] = (melt_ptr_t)(/*_.VALCLO___V914*/ meltfptr[913]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V984*/ meltfptr[983])) == OBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V983*/ meltfptr[982]); + ((meltroutine_ptr_t)/*_.VALROUT___V984*/ meltfptr[983])->tabval[4] = (melt_ptr_t)(/*_.VALCLO___V983*/ meltfptr[982]); - MELT_LOCATION("warmelt-normatch.melt:3766:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:4173:/ initchunk"); /*^touch*/ /*touch:IROUTVAL_*/ - meltgc_touch(/*_.VALROUT___V915*/ meltfptr[914]); + meltgc_touch(/*_.VALROUT___V984*/ meltfptr[983]); /*putclosurout*/ - melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V916*/ meltfptr[915])) == OBMAG_CLOSURE); - melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V915*/ meltfptr[914])) == OBMAG_ROUTINE); - ((meltclosure_ptr_t)/*_.VALCLO___V916*/ meltfptr[915])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V915*/ meltfptr[914]); + melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V985*/ meltfptr[984])) == OBMAG_CLOSURE); + melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V984*/ meltfptr[983])) == OBMAG_ROUTINE); + ((meltclosure_ptr_t)/*_.VALCLO___V985*/ meltfptr[984])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V984*/ meltfptr[983]); /*touch:DATACLOSURE_*/ - meltgc_touch(/*_.VALCLO___V916*/ meltfptr[915]); + meltgc_touch(/*_.VALCLO___V985*/ meltfptr[984]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V917*/ meltfptr[916])) == OBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V986*/ meltfptr[985])) == OBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V917*/ meltfptr[916])))); - ((meltobject_ptr_t)(/*_.VALDATA___V917*/ meltfptr[916]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V918*/ meltfptr[917]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V986*/ meltfptr[985])))); + ((meltobject_ptr_t)(/*_.VALDATA___V986*/ meltfptr[985]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V987*/ meltfptr[986]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V917*/ meltfptr[916]); + meltgc_touch(/*_.VALDATA___V986*/ meltfptr[985]); /**COMMENT: before toplevel body **/; @@ -36173,7 +38066,7 @@ void MELT_MODULE_VISIBILITY warmelt_normatch_initialmeltchunk_7 (struct frame_st /*quasi.cur.mod.env.cont cur.mod.env.cont : at very start*/ /*_.CONTENV___V2*/ meltfptr[1]) /*then*/ { /*^cond.then*/ - /*_.OR___V920*/ meltfptr[919] = + /*_.OR___V989*/ meltfptr[988] = /*quasi.cur.mod.env.cont cur.mod.env.cont : at very start*/ /*_.CONTENV___V2*/ meltfptr[1];; } else {MELT_LOCATION("warmelt-normatch.melt:3:/ cond.else"); @@ -36183,7 +38076,7 @@ void MELT_MODULE_VISIBILITY warmelt_normatch_initialmeltchunk_7 (struct frame_st /*^getslot*/ { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(((void*)(MELT_PREDEF(INITIAL_SYSTEM_DATA)))), 3, "SYSDATA_CONT_FRESH_ENV");/*_.SYSDATA_CONT_FRESH_ENV__V921*/ meltfptr[920] = slot; }; + melt_object_get_field(slot,(melt_ptr_t)(((void*)(MELT_PREDEF(INITIAL_SYSTEM_DATA)))), 3, "SYSDATA_CONT_FRESH_ENV");/*_.SYSDATA_CONT_FRESH_ENV__V990*/ meltfptr[989] = slot; }; ; /*^apply*/ /*apply*/{ @@ -36191,16 +38084,16 @@ void MELT_MODULE_VISIBILITY warmelt_normatch_initialmeltchunk_7 (struct frame_st memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].bp_cstring = "warmelt-normatch"; - /*_.FUN___V922*/ meltfptr[921] = melt_apply ((meltclosure_ptr_t)(/*_.SYSDATA_CONT_FRESH_ENV__V921*/ meltfptr[920]), (melt_ptr_t)(/*_.PREVENV___V4*/ meltfptr[3]), (BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.FUN___V991*/ meltfptr[990] = melt_apply ((meltclosure_ptr_t)(/*_.SYSDATA_CONT_FRESH_ENV__V990*/ meltfptr[989]), (melt_ptr_t)(/*_.PREVENV___V4*/ meltfptr[3]), (BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; - /*_.OR___V920*/ meltfptr[919] = /*_.FUN___V922*/ meltfptr[921];; + /*_.OR___V989*/ meltfptr[988] = /*_.FUN___V991*/ meltfptr[990];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:3:/ clear"); - /*clear*/ /*_.SYSDATA_CONT_FRESH_ENV__V921*/ meltfptr[920] = 0 ; + /*clear*/ /*_.SYSDATA_CONT_FRESH_ENV__V990*/ meltfptr[989] = 0 ; /*^clear*/ - /*clear*/ /*_.FUN___V922*/ meltfptr[921] = 0 ;} + /*clear*/ /*_.FUN___V991*/ meltfptr[990] = 0 ;} ; } ; @@ -36211,7 +38104,7 @@ void MELT_MODULE_VISIBILITY warmelt_normatch_initialmeltchunk_7 (struct frame_st /*epilog*/ /*^clear*/ - /*clear*/ /*_.OR___V920*/ meltfptr[919] = 0 ;} + /*clear*/ /*_.OR___V989*/ meltfptr[988] = 0 ;} MELT_LOCATION("warmelt-normatch.melt:94:/ initchunk"); /*^block*/ @@ -36222,16 +38115,16 @@ void MELT_MODULE_VISIBILITY warmelt_normatch_initialmeltchunk_7 (struct frame_st union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V129*/ meltfptr[128]; + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V130*/ meltfptr[129]; /*^apply.arg*/ - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V132*/ meltfptr[131]; - /*_.INSTALL_METHOD__V923*/ meltfptr[920] = melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V11*/ meltfptr[10]), (melt_ptr_t)(/*_.DISCR_ANY_RECEIVER__V12*/ meltfptr[11]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V133*/ meltfptr[132]; + /*_.INSTALL_METHOD__V992*/ meltfptr[989] = melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V11*/ meltfptr[10]), (melt_ptr_t)(/*_.DISCR_ANY_RECEIVER__V12*/ meltfptr[11]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.INSTALL_METHOD__V923*/ meltfptr[920] = 0 ;} + /*clear*/ /*_.INSTALL_METHOD__V992*/ meltfptr[989] = 0 ;} MELT_LOCATION("warmelt-normatch.melt:111:/ initchunk"); /*^block*/ @@ -36242,16 +38135,16 @@ void MELT_MODULE_VISIBILITY warmelt_normatch_initialmeltchunk_7 (struct frame_st union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V129*/ meltfptr[128]; + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V130*/ meltfptr[129]; /*^apply.arg*/ - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V142*/ meltfptr[141]; - /*_.INSTALL_METHOD__V924*/ meltfptr[921] = melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V11*/ meltfptr[10]), (melt_ptr_t)(/*_.CLASS_SOURCE_PATTERN__V13*/ meltfptr[12]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V143*/ meltfptr[142]; + /*_.INSTALL_METHOD__V993*/ meltfptr[990] = melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V11*/ meltfptr[10]), (melt_ptr_t)(/*_.CLASS_SOURCE_PATTERN__V13*/ meltfptr[12]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.INSTALL_METHOD__V924*/ meltfptr[921] = 0 ;} + /*clear*/ /*_.INSTALL_METHOD__V993*/ meltfptr[990] = 0 ;} MELT_LOCATION("warmelt-normatch.melt:145:/ initchunk"); /*^block*/ @@ -36262,16 +38155,16 @@ void MELT_MODULE_VISIBILITY warmelt_normatch_initialmeltchunk_7 (struct frame_st union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V129*/ meltfptr[128]; + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V130*/ meltfptr[129]; /*^apply.arg*/ - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V146*/ meltfptr[145]; - /*_.INSTALL_METHOD__V925*/ meltfptr[919] = melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V11*/ meltfptr[10]), (melt_ptr_t)(/*_.CLASS_SOURCE_PATTERN_VARIABLE__V14*/ meltfptr[13]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V147*/ meltfptr[146]; + /*_.INSTALL_METHOD__V994*/ meltfptr[988] = melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V11*/ meltfptr[10]), (melt_ptr_t)(/*_.CLASS_SOURCE_PATTERN_VARIABLE__V14*/ meltfptr[13]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.INSTALL_METHOD__V925*/ meltfptr[919] = 0 ;} + /*clear*/ /*_.INSTALL_METHOD__V994*/ meltfptr[988] = 0 ;} MELT_LOCATION("warmelt-normatch.melt:157:/ initchunk"); /*^block*/ @@ -36282,16 +38175,16 @@ void MELT_MODULE_VISIBILITY warmelt_normatch_initialmeltchunk_7 (struct frame_st union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V129*/ meltfptr[128]; + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V130*/ meltfptr[129]; /*^apply.arg*/ - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V150*/ meltfptr[149]; - /*_.INSTALL_METHOD__V926*/ meltfptr[920] = melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V11*/ meltfptr[10]), (melt_ptr_t)(/*_.CLASS_SOURCE_PATTERN_JOKER_VARIABLE__V15*/ meltfptr[14]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V151*/ meltfptr[150]; + /*_.INSTALL_METHOD__V995*/ meltfptr[989] = melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V11*/ meltfptr[10]), (melt_ptr_t)(/*_.CLASS_SOURCE_PATTERN_JOKER_VARIABLE__V15*/ meltfptr[14]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.INSTALL_METHOD__V926*/ meltfptr[920] = 0 ;} + /*clear*/ /*_.INSTALL_METHOD__V995*/ meltfptr[989] = 0 ;} MELT_LOCATION("warmelt-normatch.melt:206:/ initchunk"); /*^block*/ @@ -36302,16 +38195,16 @@ void MELT_MODULE_VISIBILITY warmelt_normatch_initialmeltchunk_7 (struct frame_st union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V129*/ meltfptr[128]; + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V130*/ meltfptr[129]; /*^apply.arg*/ - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V154*/ meltfptr[153]; - /*_.INSTALL_METHOD__V927*/ meltfptr[921] = melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V11*/ meltfptr[10]), (melt_ptr_t)(/*_.CLASS_SOURCE_PATTERN_CONSTANT__V16*/ meltfptr[15]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V155*/ meltfptr[154]; + /*_.INSTALL_METHOD__V996*/ meltfptr[990] = melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V11*/ meltfptr[10]), (melt_ptr_t)(/*_.CLASS_SOURCE_PATTERN_CONSTANT__V16*/ meltfptr[15]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.INSTALL_METHOD__V927*/ meltfptr[921] = 0 ;} + /*clear*/ /*_.INSTALL_METHOD__V996*/ meltfptr[990] = 0 ;} MELT_LOCATION("warmelt-normatch.melt:243:/ initchunk"); /*^block*/ @@ -36322,16 +38215,16 @@ void MELT_MODULE_VISIBILITY warmelt_normatch_initialmeltchunk_7 (struct frame_st union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V129*/ meltfptr[128]; + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V130*/ meltfptr[129]; /*^apply.arg*/ - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V166*/ meltfptr[165]; - /*_.INSTALL_METHOD__V928*/ meltfptr[919] = melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V11*/ meltfptr[10]), (melt_ptr_t)(/*_.CLASS_SOURCE_PATTERN_OBJECT__V21*/ meltfptr[20]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V167*/ meltfptr[166]; + /*_.INSTALL_METHOD__V997*/ meltfptr[988] = melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V11*/ meltfptr[10]), (melt_ptr_t)(/*_.CLASS_SOURCE_PATTERN_OBJECT__V21*/ meltfptr[20]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.INSTALL_METHOD__V928*/ meltfptr[919] = 0 ;} + /*clear*/ /*_.INSTALL_METHOD__V997*/ meltfptr[988] = 0 ;} MELT_LOCATION("warmelt-normatch.melt:308:/ initchunk"); /*^block*/ @@ -36342,16 +38235,16 @@ void MELT_MODULE_VISIBILITY warmelt_normatch_initialmeltchunk_7 (struct frame_st union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V129*/ meltfptr[128]; + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V130*/ meltfptr[129]; /*^apply.arg*/ - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V178*/ meltfptr[177]; - /*_.INSTALL_METHOD__V929*/ meltfptr[920] = melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V11*/ meltfptr[10]), (melt_ptr_t)(/*_.CLASS_SOURCE_PATTERN_COMPOSITE__V26*/ meltfptr[25]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V179*/ meltfptr[178]; + /*_.INSTALL_METHOD__V998*/ meltfptr[989] = melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V11*/ meltfptr[10]), (melt_ptr_t)(/*_.CLASS_SOURCE_PATTERN_COMPOSITE__V26*/ meltfptr[25]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.INSTALL_METHOD__V929*/ meltfptr[920] = 0 ;} + /*clear*/ /*_.INSTALL_METHOD__V998*/ meltfptr[989] = 0 ;} MELT_LOCATION("warmelt-normatch.melt:382:/ initchunk"); /*^block*/ @@ -36362,16 +38255,16 @@ void MELT_MODULE_VISIBILITY warmelt_normatch_initialmeltchunk_7 (struct frame_st union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V129*/ meltfptr[128]; + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V130*/ meltfptr[129]; /*^apply.arg*/ - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V189*/ meltfptr[188]; - /*_.INSTALL_METHOD__V930*/ meltfptr[921] = melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V11*/ meltfptr[10]), (melt_ptr_t)(/*_.CLASS_SOURCE_PATTERN_OR__V30*/ meltfptr[29]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V190*/ meltfptr[189]; + /*_.INSTALL_METHOD__V999*/ meltfptr[990] = melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V11*/ meltfptr[10]), (melt_ptr_t)(/*_.CLASS_SOURCE_PATTERN_OR__V30*/ meltfptr[29]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.INSTALL_METHOD__V930*/ meltfptr[921] = 0 ;} + /*clear*/ /*_.INSTALL_METHOD__V999*/ meltfptr[990] = 0 ;} MELT_LOCATION("warmelt-normatch.melt:405:/ initchunk"); /*^block*/ @@ -36382,16 +38275,16 @@ void MELT_MODULE_VISIBILITY warmelt_normatch_initialmeltchunk_7 (struct frame_st union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V129*/ meltfptr[128]; + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V130*/ meltfptr[129]; /*^apply.arg*/ - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V197*/ meltfptr[196]; - /*_.INSTALL_METHOD__V931*/ meltfptr[919] = melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V11*/ meltfptr[10]), (melt_ptr_t)(/*_.CLASS_SOURCE_PATTERN_AND__V33*/ meltfptr[32]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V198*/ meltfptr[197]; + /*_.INSTALL_METHOD__V1000*/ meltfptr[988] = melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V11*/ meltfptr[10]), (melt_ptr_t)(/*_.CLASS_SOURCE_PATTERN_AND__V33*/ meltfptr[32]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.INSTALL_METHOD__V931*/ meltfptr[919] = 0 ;} + /*clear*/ /*_.INSTALL_METHOD__V1000*/ meltfptr[988] = 0 ;} MELT_LOCATION("warmelt-normatch.melt:696:/ initchunk"); /*^block*/ @@ -36402,16 +38295,16 @@ void MELT_MODULE_VISIBILITY warmelt_normatch_initialmeltchunk_7 (struct frame_st union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V202*/ meltfptr[201]; + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V203*/ meltfptr[202]; /*^apply.arg*/ - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V401*/ meltfptr[400]; - /*_.INSTALL_METHOD__V932*/ meltfptr[920] = melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V11*/ meltfptr[10]), (melt_ptr_t)(/*_.DISCR_ANY_RECEIVER__V12*/ meltfptr[11]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V402*/ meltfptr[401]; + /*_.INSTALL_METHOD__V1001*/ meltfptr[989] = melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V11*/ meltfptr[10]), (melt_ptr_t)(/*_.DISCR_ANY_RECEIVER__V12*/ meltfptr[11]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.INSTALL_METHOD__V932*/ meltfptr[920] = 0 ;} + /*clear*/ /*_.INSTALL_METHOD__V1001*/ meltfptr[989] = 0 ;} MELT_LOCATION("warmelt-normatch.melt:713:/ initchunk"); /*^block*/ @@ -36422,16 +38315,16 @@ void MELT_MODULE_VISIBILITY warmelt_normatch_initialmeltchunk_7 (struct frame_st union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V202*/ meltfptr[201]; + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V203*/ meltfptr[202]; /*^apply.arg*/ - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V405*/ meltfptr[404]; - /*_.INSTALL_METHOD__V933*/ meltfptr[921] = melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V11*/ meltfptr[10]), (melt_ptr_t)(/*_.CLASS_SOURCE_PATTERN__V13*/ meltfptr[12]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V406*/ meltfptr[405]; + /*_.INSTALL_METHOD__V1002*/ meltfptr[990] = melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V11*/ meltfptr[10]), (melt_ptr_t)(/*_.CLASS_SOURCE_PATTERN__V13*/ meltfptr[12]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.INSTALL_METHOD__V933*/ meltfptr[921] = 0 ;} + /*clear*/ /*_.INSTALL_METHOD__V1002*/ meltfptr[990] = 0 ;} MELT_LOCATION("warmelt-normatch.melt:913:/ initchunk"); /*^block*/ @@ -36442,16 +38335,16 @@ void MELT_MODULE_VISIBILITY warmelt_normatch_initialmeltchunk_7 (struct frame_st union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V202*/ meltfptr[201]; + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V203*/ meltfptr[202]; /*^apply.arg*/ - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V412*/ meltfptr[411]; - /*_.INSTALL_METHOD__V934*/ meltfptr[919] = melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V11*/ meltfptr[10]), (melt_ptr_t)(/*_.CLASS_SOURCE_PATTERN_VARIABLE__V14*/ meltfptr[13]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V413*/ meltfptr[412]; + /*_.INSTALL_METHOD__V1003*/ meltfptr[988] = melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V11*/ meltfptr[10]), (melt_ptr_t)(/*_.CLASS_SOURCE_PATTERN_VARIABLE__V14*/ meltfptr[13]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.INSTALL_METHOD__V934*/ meltfptr[919] = 0 ;} + /*clear*/ /*_.INSTALL_METHOD__V1003*/ meltfptr[988] = 0 ;} MELT_LOCATION("warmelt-normatch.melt:928:/ initchunk"); /*^block*/ @@ -36462,16 +38355,16 @@ void MELT_MODULE_VISIBILITY warmelt_normatch_initialmeltchunk_7 (struct frame_st union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V202*/ meltfptr[201]; + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V203*/ meltfptr[202]; /*^apply.arg*/ - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V418*/ meltfptr[417]; - /*_.INSTALL_METHOD__V935*/ meltfptr[920] = melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V11*/ meltfptr[10]), (melt_ptr_t)(/*_.CLASS_SOURCE_PATTERN_JOKER_VARIABLE__V15*/ meltfptr[14]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V419*/ meltfptr[418]; + /*_.INSTALL_METHOD__V1004*/ meltfptr[989] = melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V11*/ meltfptr[10]), (melt_ptr_t)(/*_.CLASS_SOURCE_PATTERN_JOKER_VARIABLE__V15*/ meltfptr[14]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.INSTALL_METHOD__V935*/ meltfptr[920] = 0 ;} + /*clear*/ /*_.INSTALL_METHOD__V1004*/ meltfptr[989] = 0 ;} MELT_LOCATION("warmelt-normatch.melt:1102:/ initchunk"); /*^block*/ @@ -36482,16 +38375,16 @@ void MELT_MODULE_VISIBILITY warmelt_normatch_initialmeltchunk_7 (struct frame_st union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V202*/ meltfptr[201]; + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V203*/ meltfptr[202]; /*^apply.arg*/ - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V422*/ meltfptr[421]; - /*_.INSTALL_METHOD__V936*/ meltfptr[921] = melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V11*/ meltfptr[10]), (melt_ptr_t)(/*_.CLASS_SOURCE_PATTERN_INSTANCE__V42*/ meltfptr[41]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V423*/ meltfptr[422]; + /*_.INSTALL_METHOD__V1005*/ meltfptr[990] = melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V11*/ meltfptr[10]), (melt_ptr_t)(/*_.CLASS_SOURCE_PATTERN_INSTANCE__V42*/ meltfptr[41]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.INSTALL_METHOD__V936*/ meltfptr[921] = 0 ;} + /*clear*/ /*_.INSTALL_METHOD__V1005*/ meltfptr[990] = 0 ;} MELT_LOCATION("warmelt-normatch.melt:1150:/ initchunk"); /*^block*/ @@ -36502,16 +38395,16 @@ void MELT_MODULE_VISIBILITY warmelt_normatch_initialmeltchunk_7 (struct frame_st union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V202*/ meltfptr[201]; + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V203*/ meltfptr[202]; /*^apply.arg*/ - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V437*/ meltfptr[436]; - /*_.INSTALL_METHOD__V937*/ meltfptr[919] = melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V11*/ meltfptr[10]), (melt_ptr_t)(/*_.CLASS_SOURCE_PATTERN_AND__V33*/ meltfptr[32]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V438*/ meltfptr[437]; + /*_.INSTALL_METHOD__V1006*/ meltfptr[988] = melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V11*/ meltfptr[10]), (melt_ptr_t)(/*_.CLASS_SOURCE_PATTERN_AND__V33*/ meltfptr[32]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.INSTALL_METHOD__V937*/ meltfptr[919] = 0 ;} + /*clear*/ /*_.INSTALL_METHOD__V1006*/ meltfptr[988] = 0 ;} MELT_LOCATION("warmelt-normatch.melt:1359:/ initchunk"); /*^block*/ @@ -36522,16 +38415,16 @@ void MELT_MODULE_VISIBILITY warmelt_normatch_initialmeltchunk_7 (struct frame_st union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V202*/ meltfptr[201]; + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V203*/ meltfptr[202]; /*^apply.arg*/ - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V442*/ meltfptr[441]; - /*_.INSTALL_METHOD__V938*/ meltfptr[920] = melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V11*/ meltfptr[10]), (melt_ptr_t)(/*_.CLASS_SOURCE_PATTERN_OR__V30*/ meltfptr[29]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V443*/ meltfptr[442]; + /*_.INSTALL_METHOD__V1007*/ meltfptr[989] = melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V11*/ meltfptr[10]), (melt_ptr_t)(/*_.CLASS_SOURCE_PATTERN_OR__V30*/ meltfptr[29]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.INSTALL_METHOD__V938*/ meltfptr[920] = 0 ;} + /*clear*/ /*_.INSTALL_METHOD__V1007*/ meltfptr[989] = 0 ;} MELT_LOCATION("warmelt-normatch.melt:1628:/ initchunk"); /*^block*/ @@ -36542,16 +38435,16 @@ void MELT_MODULE_VISIBILITY warmelt_normatch_initialmeltchunk_7 (struct frame_st union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V202*/ meltfptr[201]; + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V203*/ meltfptr[202]; /*^apply.arg*/ - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V458*/ meltfptr[457]; - /*_.INSTALL_METHOD__V939*/ meltfptr[921] = melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V11*/ meltfptr[10]), (melt_ptr_t)(/*_.CLASS_SOURCE_PATTERN_MATCHER__V53*/ meltfptr[52]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V459*/ meltfptr[458]; + /*_.INSTALL_METHOD__V1008*/ meltfptr[990] = melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V11*/ meltfptr[10]), (melt_ptr_t)(/*_.CLASS_SOURCE_PATTERN_MATCHER__V53*/ meltfptr[52]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.INSTALL_METHOD__V939*/ meltfptr[921] = 0 ;} + /*clear*/ /*_.INSTALL_METHOD__V1008*/ meltfptr[990] = 0 ;} MELT_LOCATION("warmelt-normatch.melt:1701:/ initchunk"); /*^block*/ @@ -36562,16 +38455,16 @@ void MELT_MODULE_VISIBILITY warmelt_normatch_initialmeltchunk_7 (struct frame_st union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V202*/ meltfptr[201]; + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V203*/ meltfptr[202]; /*^apply.arg*/ - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V473*/ meltfptr[472]; - /*_.INSTALL_METHOD__V940*/ meltfptr[919] = melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V11*/ meltfptr[10]), (melt_ptr_t)(/*_.CLASS_SOURCE_PATTERN_CONSTANT__V16*/ meltfptr[15]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V474*/ meltfptr[473]; + /*_.INSTALL_METHOD__V1009*/ meltfptr[988] = melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V11*/ meltfptr[10]), (melt_ptr_t)(/*_.CLASS_SOURCE_PATTERN_CONSTANT__V16*/ meltfptr[15]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.INSTALL_METHOD__V940*/ meltfptr[919] = 0 ;} + /*clear*/ /*_.INSTALL_METHOD__V1009*/ meltfptr[988] = 0 ;} MELT_LOCATION("warmelt-normatch.melt:1723:/ initchunk"); /*^block*/ @@ -36582,16 +38475,16 @@ void MELT_MODULE_VISIBILITY warmelt_normatch_initialmeltchunk_7 (struct frame_st union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALSTR___V485*/ meltfptr[484]; + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALSTR___V486*/ meltfptr[485]; /*^apply.arg*/ - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V478*/ meltfptr[477]; - /*_.REGISTER_OPTION__V941*/ meltfptr[920] = melt_apply ((meltclosure_ptr_t)(/*_.REGISTER_OPTION__V60*/ meltfptr[59]), (melt_ptr_t)(/*_.VALDATA___V483*/ meltfptr[482]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V479*/ meltfptr[478]; + /*_.REGISTER_OPTION__V1010*/ meltfptr[989] = melt_apply ((meltclosure_ptr_t)(/*_.REGISTER_OPTION__V60*/ meltfptr[59]), (melt_ptr_t)(/*_.VALDATA___V484*/ meltfptr[483]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.REGISTER_OPTION__V941*/ meltfptr[920] = 0 ;} + /*clear*/ /*_.REGISTER_OPTION__V1010*/ meltfptr[989] = 0 ;} MELT_LOCATION("warmelt-normatch.melt:1828:/ initchunk"); /*^block*/ @@ -36602,16 +38495,16 @@ void MELT_MODULE_VISIBILITY warmelt_normatch_initialmeltchunk_7 (struct frame_st union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V518*/ meltfptr[517]; + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V519*/ meltfptr[518]; /*^apply.arg*/ - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V521*/ meltfptr[520]; - /*_.INSTALL_METHOD__V942*/ meltfptr[921] = melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V11*/ meltfptr[10]), (melt_ptr_t)(/*_.VALDATA___V230*/ meltfptr[229]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V522*/ meltfptr[521]; + /*_.INSTALL_METHOD__V1011*/ meltfptr[990] = melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V11*/ meltfptr[10]), (melt_ptr_t)(/*_.VALDATA___V231*/ meltfptr[230]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.INSTALL_METHOD__V942*/ meltfptr[921] = 0 ;} + /*clear*/ /*_.INSTALL_METHOD__V1011*/ meltfptr[990] = 0 ;} MELT_LOCATION("warmelt-normatch.melt:1894:/ initchunk"); /*^block*/ @@ -36622,16 +38515,16 @@ void MELT_MODULE_VISIBILITY warmelt_normatch_initialmeltchunk_7 (struct frame_st union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V518*/ meltfptr[517]; + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V519*/ meltfptr[518]; /*^apply.arg*/ - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V525*/ meltfptr[524]; - /*_.INSTALL_METHOD__V943*/ meltfptr[919] = melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V11*/ meltfptr[10]), (melt_ptr_t)(/*_.VALDATA___V356*/ meltfptr[355]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V526*/ meltfptr[525]; + /*_.INSTALL_METHOD__V1012*/ meltfptr[988] = melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V11*/ meltfptr[10]), (melt_ptr_t)(/*_.VALDATA___V357*/ meltfptr[356]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.INSTALL_METHOD__V943*/ meltfptr[919] = 0 ;} + /*clear*/ /*_.INSTALL_METHOD__V1012*/ meltfptr[988] = 0 ;} MELT_LOCATION("warmelt-normatch.melt:1933:/ initchunk"); /*^block*/ @@ -36642,16 +38535,16 @@ void MELT_MODULE_VISIBILITY warmelt_normatch_initialmeltchunk_7 (struct frame_st union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V518*/ meltfptr[517]; + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V519*/ meltfptr[518]; /*^apply.arg*/ - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V527*/ meltfptr[526]; - /*_.INSTALL_METHOD__V944*/ meltfptr[920] = melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V11*/ meltfptr[10]), (melt_ptr_t)(/*_.VALDATA___V260*/ meltfptr[259]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V528*/ meltfptr[527]; + /*_.INSTALL_METHOD__V1013*/ meltfptr[989] = melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V11*/ meltfptr[10]), (melt_ptr_t)(/*_.VALDATA___V261*/ meltfptr[260]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.INSTALL_METHOD__V944*/ meltfptr[920] = 0 ;} + /*clear*/ /*_.INSTALL_METHOD__V1013*/ meltfptr[989] = 0 ;} MELT_LOCATION("warmelt-normatch.melt:2382:/ initchunk"); /*^block*/ @@ -36664,16 +38557,16 @@ void MELT_MODULE_VISIBILITY warmelt_normatch_initialmeltchunk_7 (struct frame_st /*^apply.arg*/ argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NORMAL_EXP__V17*/ meltfptr[16]; /*^apply.arg*/ - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V540*/ meltfptr[539]; - /*_.INSTALL_METHOD__V945*/ meltfptr[921] = melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V11*/ meltfptr[10]), (melt_ptr_t)(/*_.CLASS_SOURCE_MATCH__V64*/ meltfptr[63]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V541*/ meltfptr[540]; + /*_.INSTALL_METHOD__V1014*/ meltfptr[990] = melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V11*/ meltfptr[10]), (melt_ptr_t)(/*_.CLASS_SOURCE_MATCH__V64*/ meltfptr[63]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.INSTALL_METHOD__V945*/ meltfptr[921] = 0 ;} + /*clear*/ /*_.INSTALL_METHOD__V1014*/ meltfptr[990] = 0 ;} - MELT_LOCATION("warmelt-normatch.melt:2464:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2465:/ initchunk"); /*^block*/ /*anyblock*/{ @@ -36684,16 +38577,16 @@ void MELT_MODULE_VISIBILITY warmelt_normatch_initialmeltchunk_7 (struct frame_st /*^apply.arg*/ argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NORMALIZE_BINDING__V69*/ meltfptr[68]; /*^apply.arg*/ - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V644*/ meltfptr[643]; - /*_.INSTALL_METHOD__V946*/ meltfptr[919] = melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V11*/ meltfptr[10]), (melt_ptr_t)(/*_.VALDATA___V631*/ meltfptr[630]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V649*/ meltfptr[648]; + /*_.INSTALL_METHOD__V1015*/ meltfptr[988] = melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V11*/ meltfptr[10]), (melt_ptr_t)(/*_.VALDATA___V636*/ meltfptr[635]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.INSTALL_METHOD__V946*/ meltfptr[919] = 0 ;} + /*clear*/ /*_.INSTALL_METHOD__V1015*/ meltfptr[988] = 0 ;} - MELT_LOCATION("warmelt-normatch.melt:2555:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2633:/ initchunk"); /*^block*/ /*anyblock*/{ @@ -36702,18 +38595,18 @@ void MELT_MODULE_VISIBILITY warmelt_normatch_initialmeltchunk_7 (struct frame_st union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V781*/ meltfptr[780]; + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V844*/ meltfptr[843]; /*^apply.arg*/ - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V794*/ meltfptr[793]; - /*_.INSTALL_METHOD__V947*/ meltfptr[920] = melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V11*/ meltfptr[10]), (melt_ptr_t)(/*_.DISCR_ANY_RECEIVER__V12*/ meltfptr[11]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V857*/ meltfptr[856]; + /*_.INSTALL_METHOD__V1016*/ meltfptr[989] = melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V11*/ meltfptr[10]), (melt_ptr_t)(/*_.DISCR_ANY_RECEIVER__V12*/ meltfptr[11]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.INSTALL_METHOD__V947*/ meltfptr[920] = 0 ;} + /*clear*/ /*_.INSTALL_METHOD__V1016*/ meltfptr[989] = 0 ;} - MELT_LOCATION("warmelt-normatch.melt:2560:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2638:/ initchunk"); /*^block*/ /*anyblock*/{ @@ -36722,18 +38615,18 @@ void MELT_MODULE_VISIBILITY warmelt_normatch_initialmeltchunk_7 (struct frame_st union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V781*/ meltfptr[780]; + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V844*/ meltfptr[843]; /*^apply.arg*/ - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V796*/ meltfptr[795]; - /*_.INSTALL_METHOD__V948*/ meltfptr[921] = melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V11*/ meltfptr[10]), (melt_ptr_t)(/*_.CLASS_SOURCE_PATTERN_VARIABLE__V14*/ meltfptr[13]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V859*/ meltfptr[858]; + /*_.INSTALL_METHOD__V1017*/ meltfptr[990] = melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V11*/ meltfptr[10]), (melt_ptr_t)(/*_.CLASS_SOURCE_PATTERN_VARIABLE__V14*/ meltfptr[13]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.INSTALL_METHOD__V948*/ meltfptr[921] = 0 ;} + /*clear*/ /*_.INSTALL_METHOD__V1017*/ meltfptr[990] = 0 ;} - MELT_LOCATION("warmelt-normatch.melt:2561:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2639:/ initchunk"); /*^block*/ /*anyblock*/{ @@ -36742,18 +38635,18 @@ void MELT_MODULE_VISIBILITY warmelt_normatch_initialmeltchunk_7 (struct frame_st union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V781*/ meltfptr[780]; + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V844*/ meltfptr[843]; /*^apply.arg*/ - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V796*/ meltfptr[795]; - /*_.INSTALL_METHOD__V949*/ meltfptr[919] = melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V11*/ meltfptr[10]), (melt_ptr_t)(/*_.CLASS_SOURCE_PATTERN_CONSTANT__V16*/ meltfptr[15]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V859*/ meltfptr[858]; + /*_.INSTALL_METHOD__V1018*/ meltfptr[988] = melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V11*/ meltfptr[10]), (melt_ptr_t)(/*_.CLASS_SOURCE_PATTERN_CONSTANT__V16*/ meltfptr[15]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.INSTALL_METHOD__V949*/ meltfptr[919] = 0 ;} + /*clear*/ /*_.INSTALL_METHOD__V1018*/ meltfptr[988] = 0 ;} - MELT_LOCATION("warmelt-normatch.melt:2569:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2647:/ initchunk"); /*^block*/ /*anyblock*/{ @@ -36762,18 +38655,18 @@ void MELT_MODULE_VISIBILITY warmelt_normatch_initialmeltchunk_7 (struct frame_st union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V781*/ meltfptr[780]; + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V844*/ meltfptr[843]; /*^apply.arg*/ - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V798*/ meltfptr[797]; - /*_.INSTALL_METHOD__V950*/ meltfptr[920] = melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V11*/ meltfptr[10]), (melt_ptr_t)(/*_.CLASS_SOURCE_PATTERN_OR__V30*/ meltfptr[29]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V861*/ meltfptr[860]; + /*_.INSTALL_METHOD__V1019*/ meltfptr[989] = melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V11*/ meltfptr[10]), (melt_ptr_t)(/*_.CLASS_SOURCE_PATTERN_OR__V30*/ meltfptr[29]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.INSTALL_METHOD__V950*/ meltfptr[920] = 0 ;} + /*clear*/ /*_.INSTALL_METHOD__V1019*/ meltfptr[989] = 0 ;} - MELT_LOCATION("warmelt-normatch.melt:2577:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2655:/ initchunk"); /*^block*/ /*anyblock*/{ @@ -36782,18 +38675,18 @@ void MELT_MODULE_VISIBILITY warmelt_normatch_initialmeltchunk_7 (struct frame_st union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V781*/ meltfptr[780]; + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V844*/ meltfptr[843]; /*^apply.arg*/ - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V800*/ meltfptr[799]; - /*_.INSTALL_METHOD__V951*/ meltfptr[921] = melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V11*/ meltfptr[10]), (melt_ptr_t)(/*_.CLASS_SOURCE_PATTERN_AND__V33*/ meltfptr[32]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V863*/ meltfptr[862]; + /*_.INSTALL_METHOD__V1020*/ meltfptr[990] = melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V11*/ meltfptr[10]), (melt_ptr_t)(/*_.CLASS_SOURCE_PATTERN_AND__V33*/ meltfptr[32]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.INSTALL_METHOD__V951*/ meltfptr[921] = 0 ;} + /*clear*/ /*_.INSTALL_METHOD__V1020*/ meltfptr[990] = 0 ;} - MELT_LOCATION("warmelt-normatch.melt:2586:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2664:/ initchunk"); /*^block*/ /*anyblock*/{ @@ -36802,18 +38695,18 @@ void MELT_MODULE_VISIBILITY warmelt_normatch_initialmeltchunk_7 (struct frame_st union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V781*/ meltfptr[780]; + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V844*/ meltfptr[843]; /*^apply.arg*/ - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V802*/ meltfptr[801]; - /*_.INSTALL_METHOD__V952*/ meltfptr[919] = melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V11*/ meltfptr[10]), (melt_ptr_t)(/*_.CLASS_SOURCE_PATTERN_CONSTRUCT__V70*/ meltfptr[69]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V865*/ meltfptr[864]; + /*_.INSTALL_METHOD__V1021*/ meltfptr[988] = melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V11*/ meltfptr[10]), (melt_ptr_t)(/*_.CLASS_SOURCE_PATTERN_CONSTRUCT__V71*/ meltfptr[70]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.INSTALL_METHOD__V952*/ meltfptr[919] = 0 ;} + /*clear*/ /*_.INSTALL_METHOD__V1021*/ meltfptr[988] = 0 ;} - MELT_LOCATION("warmelt-normatch.melt:2595:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2673:/ initchunk"); /*^block*/ /*anyblock*/{ @@ -36822,18 +38715,18 @@ void MELT_MODULE_VISIBILITY warmelt_normatch_initialmeltchunk_7 (struct frame_st union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V781*/ meltfptr[780]; + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V844*/ meltfptr[843]; /*^apply.arg*/ - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V806*/ meltfptr[805]; - /*_.INSTALL_METHOD__V953*/ meltfptr[920] = melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V11*/ meltfptr[10]), (melt_ptr_t)(/*_.CLASS_SOURCE_PATTERN_OBJECT__V21*/ meltfptr[20]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V869*/ meltfptr[868]; + /*_.INSTALL_METHOD__V1022*/ meltfptr[989] = melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V11*/ meltfptr[10]), (melt_ptr_t)(/*_.CLASS_SOURCE_PATTERN_OBJECT__V21*/ meltfptr[20]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.INSTALL_METHOD__V953*/ meltfptr[920] = 0 ;} + /*clear*/ /*_.INSTALL_METHOD__V1022*/ meltfptr[989] = 0 ;} - MELT_LOCATION("warmelt-normatch.melt:2603:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2681:/ initchunk"); /*^block*/ /*anyblock*/{ @@ -36842,18 +38735,18 @@ void MELT_MODULE_VISIBILITY warmelt_normatch_initialmeltchunk_7 (struct frame_st union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V781*/ meltfptr[780]; + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V844*/ meltfptr[843]; /*^apply.arg*/ - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V808*/ meltfptr[807]; - /*_.INSTALL_METHOD__V954*/ meltfptr[921] = melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V11*/ meltfptr[10]), (melt_ptr_t)(/*_.CLASS_SOURCE_PATTERN_CONSTRUCT__V70*/ meltfptr[69]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V871*/ meltfptr[870]; + /*_.INSTALL_METHOD__V1023*/ meltfptr[990] = melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V11*/ meltfptr[10]), (melt_ptr_t)(/*_.CLASS_SOURCE_PATTERN_CONSTRUCT__V71*/ meltfptr[70]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.INSTALL_METHOD__V954*/ meltfptr[921] = 0 ;} + /*clear*/ /*_.INSTALL_METHOD__V1023*/ meltfptr[990] = 0 ;} - MELT_LOCATION("warmelt-normatch.melt:2679:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2757:/ initchunk"); /*^block*/ /*anyblock*/{ @@ -36862,18 +38755,18 @@ void MELT_MODULE_VISIBILITY warmelt_normatch_initialmeltchunk_7 (struct frame_st union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V819*/ meltfptr[818]; + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V882*/ meltfptr[881]; /*^apply.arg*/ - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V824*/ meltfptr[823]; - /*_.INSTALL_METHOD__V955*/ meltfptr[919] = melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V11*/ meltfptr[10]), (melt_ptr_t)(/*_.VALDATA___V659*/ meltfptr[658]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V887*/ meltfptr[886]; + /*_.INSTALL_METHOD__V1024*/ meltfptr[988] = melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V11*/ meltfptr[10]), (melt_ptr_t)(/*_.VALDATA___V686*/ meltfptr[685]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.INSTALL_METHOD__V955*/ meltfptr[919] = 0 ;} + /*clear*/ /*_.INSTALL_METHOD__V1024*/ meltfptr[988] = 0 ;} - MELT_LOCATION("warmelt-normatch.melt:2706:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2784:/ initchunk"); /*^block*/ /*anyblock*/{ @@ -36882,18 +38775,18 @@ void MELT_MODULE_VISIBILITY warmelt_normatch_initialmeltchunk_7 (struct frame_st union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V819*/ meltfptr[818]; + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V882*/ meltfptr[881]; /*^apply.arg*/ - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V826*/ meltfptr[825]; - /*_.INSTALL_METHOD__V956*/ meltfptr[920] = melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V11*/ meltfptr[10]), (melt_ptr_t)(/*_.VALDATA___V717*/ meltfptr[716]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V889*/ meltfptr[888]; + /*_.INSTALL_METHOD__V1025*/ meltfptr[989] = melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V11*/ meltfptr[10]), (melt_ptr_t)(/*_.VALDATA___V776*/ meltfptr[775]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.INSTALL_METHOD__V956*/ meltfptr[920] = 0 ;} + /*clear*/ /*_.INSTALL_METHOD__V1025*/ meltfptr[989] = 0 ;} - MELT_LOCATION("warmelt-normatch.melt:2730:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2806:/ initchunk"); /*^block*/ /*anyblock*/{ @@ -36902,18 +38795,18 @@ void MELT_MODULE_VISIBILITY warmelt_normatch_initialmeltchunk_7 (struct frame_st union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V834*/ meltfptr[833]; + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V897*/ meltfptr[896]; /*^apply.arg*/ - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V837*/ meltfptr[836]; - /*_.INSTALL_METHOD__V957*/ meltfptr[921] = melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V11*/ meltfptr[10]), (melt_ptr_t)(/*_.VALDATA___V697*/ meltfptr[696]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V900*/ meltfptr[899]; + /*_.INSTALL_METHOD__V1026*/ meltfptr[990] = melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V11*/ meltfptr[10]), (melt_ptr_t)(/*_.VALDATA___V686*/ meltfptr[685]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.INSTALL_METHOD__V957*/ meltfptr[921] = 0 ;} + /*clear*/ /*_.INSTALL_METHOD__V1026*/ meltfptr[990] = 0 ;} - MELT_LOCATION("warmelt-normatch.melt:2757:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2842:/ initchunk"); /*^block*/ /*anyblock*/{ @@ -36922,18 +38815,18 @@ void MELT_MODULE_VISIBILITY warmelt_normatch_initialmeltchunk_7 (struct frame_st union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V834*/ meltfptr[833]; + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V897*/ meltfptr[896]; /*^apply.arg*/ - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V839*/ meltfptr[838]; - /*_.INSTALL_METHOD__V958*/ meltfptr[919] = melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V11*/ meltfptr[10]), (melt_ptr_t)(/*_.VALDATA___V717*/ meltfptr[716]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V902*/ meltfptr[901]; + /*_.INSTALL_METHOD__V1027*/ meltfptr[988] = melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V11*/ meltfptr[10]), (melt_ptr_t)(/*_.VALDATA___V756*/ meltfptr[755]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.INSTALL_METHOD__V958*/ meltfptr[919] = 0 ;} + /*clear*/ /*_.INSTALL_METHOD__V1027*/ meltfptr[988] = 0 ;} - MELT_LOCATION("warmelt-normatch.melt:2770:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2885:/ initchunk"); /*^block*/ /*anyblock*/{ @@ -36942,18 +38835,18 @@ void MELT_MODULE_VISIBILITY warmelt_normatch_initialmeltchunk_7 (struct frame_st union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V791*/ meltfptr[790]; + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V897*/ meltfptr[896]; /*^apply.arg*/ - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V841*/ meltfptr[840]; - /*_.INSTALL_METHOD__V959*/ meltfptr[920] = melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V11*/ meltfptr[10]), (melt_ptr_t)(/*_.VALDATA___V735*/ meltfptr[734]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V904*/ meltfptr[903]; + /*_.INSTALL_METHOD__V1028*/ meltfptr[989] = melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V11*/ meltfptr[10]), (melt_ptr_t)(/*_.VALDATA___V776*/ meltfptr[775]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.INSTALL_METHOD__V959*/ meltfptr[920] = 0 ;} + /*clear*/ /*_.INSTALL_METHOD__V1028*/ meltfptr[989] = 0 ;} - MELT_LOCATION("warmelt-normatch.melt:2781:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2898:/ initchunk"); /*^block*/ /*anyblock*/{ @@ -36962,18 +38855,18 @@ void MELT_MODULE_VISIBILITY warmelt_normatch_initialmeltchunk_7 (struct frame_st union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V791*/ meltfptr[790]; + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V854*/ meltfptr[853]; /*^apply.arg*/ - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V843*/ meltfptr[842]; - /*_.INSTALL_METHOD__V960*/ meltfptr[921] = melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V11*/ meltfptr[10]), (melt_ptr_t)(/*_.VALDATA___V749*/ meltfptr[748]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V906*/ meltfptr[905]; + /*_.INSTALL_METHOD__V1029*/ meltfptr[990] = melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V11*/ meltfptr[10]), (melt_ptr_t)(/*_.VALDATA___V794*/ meltfptr[793]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.INSTALL_METHOD__V960*/ meltfptr[921] = 0 ;} + /*clear*/ /*_.INSTALL_METHOD__V1029*/ meltfptr[990] = 0 ;} - MELT_LOCATION("warmelt-normatch.melt:2800:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2909:/ initchunk"); /*^block*/ /*anyblock*/{ @@ -36982,18 +38875,18 @@ void MELT_MODULE_VISIBILITY warmelt_normatch_initialmeltchunk_7 (struct frame_st union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V860*/ meltfptr[859]; + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V854*/ meltfptr[853]; /*^apply.arg*/ - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V863*/ meltfptr[862]; - /*_.INSTALL_METHOD__V961*/ meltfptr[919] = melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V11*/ meltfptr[10]), (melt_ptr_t)(/*_.DISCR_ANY_RECEIVER__V12*/ meltfptr[11]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V908*/ meltfptr[907]; + /*_.INSTALL_METHOD__V1030*/ meltfptr[988] = melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V11*/ meltfptr[10]), (melt_ptr_t)(/*_.VALDATA___V808*/ meltfptr[807]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.INSTALL_METHOD__V961*/ meltfptr[919] = 0 ;} + /*clear*/ /*_.INSTALL_METHOD__V1030*/ meltfptr[988] = 0 ;} - MELT_LOCATION("warmelt-normatch.melt:2807:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2928:/ initchunk"); /*^block*/ /*anyblock*/{ @@ -37002,18 +38895,18 @@ void MELT_MODULE_VISIBILITY warmelt_normatch_initialmeltchunk_7 (struct frame_st union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V860*/ meltfptr[859]; + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V925*/ meltfptr[924]; /*^apply.arg*/ - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V865*/ meltfptr[864]; - /*_.INSTALL_METHOD__V962*/ meltfptr[920] = melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V11*/ meltfptr[10]), (melt_ptr_t)(/*_.CLASS_SOURCE_PATTERN_JOKER_VARIABLE__V15*/ meltfptr[14]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V928*/ meltfptr[927]; + /*_.INSTALL_METHOD__V1031*/ meltfptr[989] = melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V11*/ meltfptr[10]), (melt_ptr_t)(/*_.DISCR_ANY_RECEIVER__V12*/ meltfptr[11]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.INSTALL_METHOD__V962*/ meltfptr[920] = 0 ;} + /*clear*/ /*_.INSTALL_METHOD__V1031*/ meltfptr[989] = 0 ;} - MELT_LOCATION("warmelt-normatch.melt:2931:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:2935:/ initchunk"); /*^block*/ /*anyblock*/{ @@ -37022,18 +38915,18 @@ void MELT_MODULE_VISIBILITY warmelt_normatch_initialmeltchunk_7 (struct frame_st union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V860*/ meltfptr[859]; + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V925*/ meltfptr[924]; /*^apply.arg*/ - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V867*/ meltfptr[866]; - /*_.INSTALL_METHOD__V963*/ meltfptr[921] = melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V11*/ meltfptr[10]), (melt_ptr_t)(/*_.CLASS_SOURCE_PATTERN_INSTANCE__V42*/ meltfptr[41]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V930*/ meltfptr[929]; + /*_.INSTALL_METHOD__V1032*/ meltfptr[990] = melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V11*/ meltfptr[10]), (melt_ptr_t)(/*_.CLASS_SOURCE_PATTERN_JOKER_VARIABLE__V15*/ meltfptr[14]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.INSTALL_METHOD__V963*/ meltfptr[921] = 0 ;} + /*clear*/ /*_.INSTALL_METHOD__V1032*/ meltfptr[990] = 0 ;} - MELT_LOCATION("warmelt-normatch.melt:3004:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:3093:/ initchunk"); /*^block*/ /*anyblock*/{ @@ -37042,18 +38935,18 @@ void MELT_MODULE_VISIBILITY warmelt_normatch_initialmeltchunk_7 (struct frame_st union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V860*/ meltfptr[859]; + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V925*/ meltfptr[924]; /*^apply.arg*/ - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V869*/ meltfptr[868]; - /*_.INSTALL_METHOD__V964*/ meltfptr[919] = melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V11*/ meltfptr[10]), (melt_ptr_t)(/*_.CLASS_SOURCE_PATTERN_VARIABLE__V14*/ meltfptr[13]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V932*/ meltfptr[931]; + /*_.INSTALL_METHOD__V1033*/ meltfptr[988] = melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V11*/ meltfptr[10]), (melt_ptr_t)(/*_.CLASS_SOURCE_PATTERN_INSTANCE__V42*/ meltfptr[41]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.INSTALL_METHOD__V964*/ meltfptr[919] = 0 ;} + /*clear*/ /*_.INSTALL_METHOD__V1033*/ meltfptr[988] = 0 ;} - MELT_LOCATION("warmelt-normatch.melt:3023:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:3170:/ initchunk"); /*^block*/ /*anyblock*/{ @@ -37062,18 +38955,18 @@ void MELT_MODULE_VISIBILITY warmelt_normatch_initialmeltchunk_7 (struct frame_st union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V860*/ meltfptr[859]; + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V925*/ meltfptr[924]; /*^apply.arg*/ - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V871*/ meltfptr[870]; - /*_.INSTALL_METHOD__V965*/ meltfptr[920] = melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V11*/ meltfptr[10]), (melt_ptr_t)(/*_.CLASS_SOURCE_PATTERN_AND__V33*/ meltfptr[32]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V934*/ meltfptr[933]; + /*_.INSTALL_METHOD__V1034*/ meltfptr[989] = melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V11*/ meltfptr[10]), (melt_ptr_t)(/*_.CLASS_SOURCE_PATTERN_VARIABLE__V14*/ meltfptr[13]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.INSTALL_METHOD__V965*/ meltfptr[920] = 0 ;} + /*clear*/ /*_.INSTALL_METHOD__V1034*/ meltfptr[989] = 0 ;} - MELT_LOCATION("warmelt-normatch.melt:3041:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:3254:/ initchunk"); /*^block*/ /*anyblock*/{ @@ -37082,18 +38975,18 @@ void MELT_MODULE_VISIBILITY warmelt_normatch_initialmeltchunk_7 (struct frame_st union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V860*/ meltfptr[859]; + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V925*/ meltfptr[924]; /*^apply.arg*/ - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V873*/ meltfptr[872]; - /*_.INSTALL_METHOD__V966*/ meltfptr[921] = melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V11*/ meltfptr[10]), (melt_ptr_t)(/*_.CLASS_SOURCE_PATTERN_OR__V30*/ meltfptr[29]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V937*/ meltfptr[936]; + /*_.INSTALL_METHOD__V1035*/ meltfptr[990] = melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V11*/ meltfptr[10]), (melt_ptr_t)(/*_.CLASS_SOURCE_PATTERN_AND__V33*/ meltfptr[32]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.INSTALL_METHOD__V966*/ meltfptr[921] = 0 ;} + /*clear*/ /*_.INSTALL_METHOD__V1035*/ meltfptr[990] = 0 ;} - MELT_LOCATION("warmelt-normatch.melt:3223:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:3304:/ initchunk"); /*^block*/ /*anyblock*/{ @@ -37102,18 +38995,18 @@ void MELT_MODULE_VISIBILITY warmelt_normatch_initialmeltchunk_7 (struct frame_st union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V860*/ meltfptr[859]; + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V925*/ meltfptr[924]; /*^apply.arg*/ - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V875*/ meltfptr[874]; - /*_.INSTALL_METHOD__V967*/ meltfptr[919] = melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V11*/ meltfptr[10]), (melt_ptr_t)(/*_.CLASS_SOURCE_PATTERN_MATCHER__V53*/ meltfptr[52]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V940*/ meltfptr[939]; + /*_.INSTALL_METHOD__V1036*/ meltfptr[988] = melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V11*/ meltfptr[10]), (melt_ptr_t)(/*_.CLASS_SOURCE_PATTERN_OR__V30*/ meltfptr[29]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.INSTALL_METHOD__V967*/ meltfptr[919] = 0 ;} + /*clear*/ /*_.INSTALL_METHOD__V1036*/ meltfptr[988] = 0 ;} - MELT_LOCATION("warmelt-normatch.melt:3279:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:3526:/ initchunk"); /*^block*/ /*anyblock*/{ @@ -37122,18 +39015,18 @@ void MELT_MODULE_VISIBILITY warmelt_normatch_initialmeltchunk_7 (struct frame_st union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V878*/ meltfptr[877]; + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V925*/ meltfptr[924]; /*^apply.arg*/ - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V881*/ meltfptr[880]; - /*_.INSTALL_METHOD__V968*/ meltfptr[920] = melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V11*/ meltfptr[10]), (melt_ptr_t)(/*_.VALDATA___V669*/ meltfptr[668]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V942*/ meltfptr[941]; + /*_.INSTALL_METHOD__V1037*/ meltfptr[989] = melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V11*/ meltfptr[10]), (melt_ptr_t)(/*_.CLASS_SOURCE_PATTERN_MATCHER__V53*/ meltfptr[52]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.INSTALL_METHOD__V968*/ meltfptr[920] = 0 ;} + /*clear*/ /*_.INSTALL_METHOD__V1037*/ meltfptr[989] = 0 ;} - MELT_LOCATION("warmelt-normatch.melt:3341:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:3596:/ initchunk"); /*^block*/ /*anyblock*/{ @@ -37142,18 +39035,18 @@ void MELT_MODULE_VISIBILITY warmelt_normatch_initialmeltchunk_7 (struct frame_st union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V878*/ meltfptr[877]; + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V945*/ meltfptr[944]; /*^apply.arg*/ - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V883*/ meltfptr[882]; - /*_.INSTALL_METHOD__V969*/ meltfptr[921] = melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V11*/ meltfptr[10]), (melt_ptr_t)(/*_.VALDATA___V707*/ meltfptr[706]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V948*/ meltfptr[947]; + /*_.INSTALL_METHOD__V1038*/ meltfptr[990] = melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V11*/ meltfptr[10]), (melt_ptr_t)(/*_.VALDATA___V766*/ meltfptr[765]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.INSTALL_METHOD__V969*/ meltfptr[921] = 0 ;} + /*clear*/ /*_.INSTALL_METHOD__V1038*/ meltfptr[990] = 0 ;} - MELT_LOCATION("warmelt-normatch.melt:3417:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:3672:/ initchunk"); /*^block*/ /*anyblock*/{ @@ -37162,18 +39055,18 @@ void MELT_MODULE_VISIBILITY warmelt_normatch_initialmeltchunk_7 (struct frame_st union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V878*/ meltfptr[877]; + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V945*/ meltfptr[944]; /*^apply.arg*/ - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V885*/ meltfptr[884]; - /*_.INSTALL_METHOD__V970*/ meltfptr[919] = melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V11*/ meltfptr[10]), (melt_ptr_t)(/*_.VALDATA___V735*/ meltfptr[734]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V950*/ meltfptr[949]; + /*_.INSTALL_METHOD__V1039*/ meltfptr[988] = melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V11*/ meltfptr[10]), (melt_ptr_t)(/*_.VALDATA___V794*/ meltfptr[793]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.INSTALL_METHOD__V970*/ meltfptr[919] = 0 ;} + /*clear*/ /*_.INSTALL_METHOD__V1039*/ meltfptr[988] = 0 ;} - MELT_LOCATION("warmelt-normatch.melt:3467:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:3722:/ initchunk"); /*^block*/ /*anyblock*/{ @@ -37182,18 +39075,18 @@ void MELT_MODULE_VISIBILITY warmelt_normatch_initialmeltchunk_7 (struct frame_st union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V878*/ meltfptr[877]; + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V945*/ meltfptr[944]; /*^apply.arg*/ - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V887*/ meltfptr[886]; - /*_.INSTALL_METHOD__V971*/ meltfptr[920] = melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V11*/ meltfptr[10]), (melt_ptr_t)(/*_.VALDATA___V717*/ meltfptr[716]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V952*/ meltfptr[951]; + /*_.INSTALL_METHOD__V1040*/ meltfptr[989] = melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V11*/ meltfptr[10]), (melt_ptr_t)(/*_.VALDATA___V776*/ meltfptr[775]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.INSTALL_METHOD__V971*/ meltfptr[920] = 0 ;} + /*clear*/ /*_.INSTALL_METHOD__V1040*/ meltfptr[989] = 0 ;} - MELT_LOCATION("warmelt-normatch.melt:3543:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:3798:/ initchunk"); /*^block*/ /*anyblock*/{ @@ -37202,18 +39095,58 @@ void MELT_MODULE_VISIBILITY warmelt_normatch_initialmeltchunk_7 (struct frame_st union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V878*/ meltfptr[877]; + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V945*/ meltfptr[944]; /*^apply.arg*/ - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V889*/ meltfptr[888]; - /*_.INSTALL_METHOD__V972*/ meltfptr[921] = melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V11*/ meltfptr[10]), (melt_ptr_t)(/*_.VALDATA___V749*/ meltfptr[748]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V954*/ meltfptr[953]; + /*_.INSTALL_METHOD__V1041*/ meltfptr[990] = melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V11*/ meltfptr[10]), (melt_ptr_t)(/*_.VALDATA___V808*/ meltfptr[807]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + } + ; + /*epilog*/ + + /*^clear*/ + /*clear*/ /*_.INSTALL_METHOD__V1041*/ meltfptr[990] = 0 ;} + + MELT_LOCATION("warmelt-normatch.melt:3840:/ initchunk"); + /*^block*/ + /*anyblock*/{ + + /*^apply*/ + /*apply*/{ + union meltparam_un argtab[2]; + memset(&argtab, 0, sizeof(argtab)); + /*^apply.arg*/ + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V945*/ meltfptr[944]; + /*^apply.arg*/ + argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V956*/ meltfptr[955]; + /*_.INSTALL_METHOD__V1042*/ meltfptr[988] = melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V11*/ meltfptr[10]), (melt_ptr_t)(/*_.VALDATA___V734*/ meltfptr[733]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + } + ; + /*epilog*/ + + /*^clear*/ + /*clear*/ /*_.INSTALL_METHOD__V1042*/ meltfptr[988] = 0 ;} + + MELT_LOCATION("warmelt-normatch.melt:3893:/ initchunk"); + /*^block*/ + /*anyblock*/{ + + /*^apply*/ + /*apply*/{ + union meltparam_un argtab[2]; + memset(&argtab, 0, sizeof(argtab)); + /*^apply.arg*/ + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V945*/ meltfptr[944]; + /*^apply.arg*/ + argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V958*/ meltfptr[957]; + /*_.INSTALL_METHOD__V1043*/ meltfptr[989] = melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V11*/ meltfptr[10]), (melt_ptr_t)(/*_.VALDATA___V706*/ meltfptr[705]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.INSTALL_METHOD__V972*/ meltfptr[921] = 0 ;} + /*clear*/ /*_.INSTALL_METHOD__V1043*/ meltfptr[989] = 0 ;} - MELT_LOCATION("warmelt-normatch.melt:3585:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:3970:/ initchunk"); /*^block*/ /*anyblock*/{ @@ -37222,18 +39155,18 @@ void MELT_MODULE_VISIBILITY warmelt_normatch_initialmeltchunk_7 (struct frame_st union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V878*/ meltfptr[877]; + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V945*/ meltfptr[944]; /*^apply.arg*/ - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V891*/ meltfptr[890]; - /*_.INSTALL_METHOD__V973*/ meltfptr[919] = melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V11*/ meltfptr[10]), (melt_ptr_t)(/*_.VALDATA___V679*/ meltfptr[678]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V960*/ meltfptr[959]; + /*_.INSTALL_METHOD__V1044*/ meltfptr[990] = melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V11*/ meltfptr[10]), (melt_ptr_t)(/*_.VALDATA___V712*/ meltfptr[711]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.INSTALL_METHOD__V973*/ meltfptr[919] = 0 ;} + /*clear*/ /*_.INSTALL_METHOD__V1044*/ meltfptr[990] = 0 ;} - MELT_LOCATION("warmelt-normatch.melt:3771:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:4178:/ initchunk"); /*^block*/ /*anyblock*/{ @@ -37242,36 +39175,49 @@ void MELT_MODULE_VISIBILITY warmelt_normatch_initialmeltchunk_7 (struct frame_st union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALSTR___V919*/ meltfptr[918]; + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALSTR___V988*/ meltfptr[987]; /*^apply.arg*/ - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V916*/ meltfptr[915]; - /*_.REGISTER_OPTION__V974*/ meltfptr[920] = melt_apply ((meltclosure_ptr_t)(/*_.REGISTER_OPTION__V60*/ meltfptr[59]), (melt_ptr_t)(/*_.VALDATA___V917*/ meltfptr[916]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V985*/ meltfptr[984]; + /*_.REGISTER_OPTION__V1045*/ meltfptr[988] = melt_apply ((meltclosure_ptr_t)(/*_.REGISTER_OPTION__V60*/ meltfptr[59]), (melt_ptr_t)(/*_.VALDATA___V986*/ meltfptr[985]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.REGISTER_OPTION__V974*/ meltfptr[920] = 0 ;} + /*clear*/ /*_.REGISTER_OPTION__V1045*/ meltfptr[988] = 0 ;} - MELT_LOCATION("warmelt-normatch.melt:4069:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:4476:/ initchunk"); /*^block*/ /*anyblock*/{ /*^getslot*/ { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(((void*)(MELT_PREDEF(INITIAL_SYSTEM_DATA)))), 4, "SYSDATA_VALUE_EXPORTER");/*_.VALUEXPORTER___V975*/ meltfptr[921] = slot; }; + melt_object_get_field(slot,(melt_ptr_t)(((void*)(MELT_PREDEF(INITIAL_SYSTEM_DATA)))), 4, "SYSDATA_VALUE_EXPORTER");/*_.VALUEXPORTER___V1046*/ meltfptr[989] = slot; }; ; /*^apply*/ /*apply*/{ union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V553*/ meltfptr[552]; + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V554*/ meltfptr[553]; /*^apply.arg*/ argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_MATCHING_CONTEXT*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V975*/ meltfptr[921]), (melt_ptr_t)(/*_.VALDATA___V551*/ meltfptr[550]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1046*/ meltfptr[989]), (melt_ptr_t)(/*_.VALDATA___V552*/ meltfptr[551]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + } + ; + /*^apply*/ + /*apply*/{ + union meltparam_un argtab[2]; + memset(&argtab, 0, sizeof(argtab)); + /*^apply.arg*/ + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V557*/ meltfptr[556]; + /*^apply.arg*/ + argtab[1].bp_aptr = (melt_ptr_t*) & + /*quasi.cur.mod.env.cont norm.exp.val : MCTX_NORMCTXT*/ +/*_.CONTENV___V2*/ meltfptr[1]; + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1046*/ meltfptr[989]), (melt_ptr_t)(/*_.VALDATA___V574*/ meltfptr[573]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -37279,12 +39225,12 @@ void MELT_MODULE_VISIBILITY warmelt_normatch_initialmeltchunk_7 (struct frame_st union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V556*/ meltfptr[555]; + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V559*/ meltfptr[558]; /*^apply.arg*/ argtab[1].bp_aptr = (melt_ptr_t*) & - /*quasi.cur.mod.env.cont norm.exp.val : MXCT_NORMCTXT*/ + /*quasi.cur.mod.env.cont norm.exp.val : MCTX_SOURCE*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V975*/ meltfptr[921]), (melt_ptr_t)(/*_.VALDATA___V571*/ meltfptr[570]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1046*/ meltfptr[989]), (melt_ptr_t)(/*_.VALDATA___V576*/ meltfptr[575]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -37292,12 +39238,12 @@ void MELT_MODULE_VISIBILITY warmelt_normatch_initialmeltchunk_7 (struct frame_st union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V558*/ meltfptr[557]; + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V561*/ meltfptr[560]; /*^apply.arg*/ argtab[1].bp_aptr = (melt_ptr_t*) & - /*quasi.cur.mod.env.cont norm.exp.val : MXCT_SOURCE*/ + /*quasi.cur.mod.env.cont norm.exp.val : MCTX_NMATCHED*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V975*/ meltfptr[921]), (melt_ptr_t)(/*_.VALDATA___V573*/ meltfptr[572]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1046*/ meltfptr[989]), (melt_ptr_t)(/*_.VALDATA___V578*/ meltfptr[577]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -37305,12 +39251,12 @@ void MELT_MODULE_VISIBILITY warmelt_normatch_initialmeltchunk_7 (struct frame_st union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V560*/ meltfptr[559]; + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V563*/ meltfptr[562]; /*^apply.arg*/ argtab[1].bp_aptr = (melt_ptr_t*) & - /*quasi.cur.mod.env.cont norm.exp.val : MXCT_NMATCHED*/ + /*quasi.cur.mod.env.cont norm.exp.val : MCTX_CASES*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V975*/ meltfptr[921]), (melt_ptr_t)(/*_.VALDATA___V575*/ meltfptr[574]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1046*/ meltfptr[989]), (melt_ptr_t)(/*_.VALDATA___V580*/ meltfptr[579]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -37318,12 +39264,12 @@ void MELT_MODULE_VISIBILITY warmelt_normatch_initialmeltchunk_7 (struct frame_st union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V562*/ meltfptr[561]; + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V565*/ meltfptr[564]; /*^apply.arg*/ argtab[1].bp_aptr = (melt_ptr_t*) & - /*quasi.cur.mod.env.cont norm.exp.val : MXCT_CASES*/ + /*quasi.cur.mod.env.cont norm.exp.val : MCTX_ENV*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V975*/ meltfptr[921]), (melt_ptr_t)(/*_.VALDATA___V577*/ meltfptr[576]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1046*/ meltfptr[989]), (melt_ptr_t)(/*_.VALDATA___V582*/ meltfptr[581]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -37331,12 +39277,12 @@ void MELT_MODULE_VISIBILITY warmelt_normatch_initialmeltchunk_7 (struct frame_st union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V564*/ meltfptr[563]; + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V567*/ meltfptr[566]; /*^apply.arg*/ argtab[1].bp_aptr = (melt_ptr_t*) & - /*quasi.cur.mod.env.cont norm.exp.val : MXCT_ENV*/ + /*quasi.cur.mod.env.cont norm.exp.val : MCTX_MDATA*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V975*/ meltfptr[921]), (melt_ptr_t)(/*_.VALDATA___V579*/ meltfptr[578]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1046*/ meltfptr[989]), (melt_ptr_t)(/*_.VALDATA___V584*/ meltfptr[583]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -37344,12 +39290,12 @@ void MELT_MODULE_VISIBILITY warmelt_normatch_initialmeltchunk_7 (struct frame_st union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V566*/ meltfptr[565]; + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V569*/ meltfptr[568]; /*^apply.arg*/ argtab[1].bp_aptr = (melt_ptr_t*) & - /*quasi.cur.mod.env.cont norm.exp.val : MXCT_MDATA*/ + /*quasi.cur.mod.env.cont norm.exp.val : MCTX_VARHANDLERS*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V975*/ meltfptr[921]), (melt_ptr_t)(/*_.VALDATA___V581*/ meltfptr[580]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1046*/ meltfptr[989]), (melt_ptr_t)(/*_.VALDATA___V586*/ meltfptr[585]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -37357,12 +39303,12 @@ void MELT_MODULE_VISIBILITY warmelt_normatch_initialmeltchunk_7 (struct frame_st union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V568*/ meltfptr[567]; + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V571*/ meltfptr[570]; /*^apply.arg*/ argtab[1].bp_aptr = (melt_ptr_t*) & - /*quasi.cur.mod.env.cont norm.exp.val : MXCT_VARHANDLERS*/ + /*quasi.cur.mod.env.cont norm.exp.val : MCTX_FLAGS*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V975*/ meltfptr[921]), (melt_ptr_t)(/*_.VALDATA___V583*/ meltfptr[582]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1046*/ meltfptr[989]), (melt_ptr_t)(/*_.VALDATA___V588*/ meltfptr[587]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -37370,12 +39316,12 @@ void MELT_MODULE_VISIBILITY warmelt_normatch_initialmeltchunk_7 (struct frame_st union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V77*/ meltfptr[76]; + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V78*/ meltfptr[77]; /*^apply.arg*/ argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_PATTERN_CONTEXT*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V975*/ meltfptr[921]), (melt_ptr_t)(/*_.VALDATA___V73*/ meltfptr[72]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1046*/ meltfptr[989]), (melt_ptr_t)(/*_.VALDATA___V74*/ meltfptr[73]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -37383,12 +39329,12 @@ void MELT_MODULE_VISIBILITY warmelt_normatch_initialmeltchunk_7 (struct frame_st union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V80*/ meltfptr[79]; + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V81*/ meltfptr[80]; /*^apply.arg*/ argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : PCTN_NORMCTXT*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V975*/ meltfptr[921]), (melt_ptr_t)(/*_.VALDATA___V103*/ meltfptr[102]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1046*/ meltfptr[989]), (melt_ptr_t)(/*_.VALDATA___V104*/ meltfptr[103]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -37396,12 +39342,12 @@ void MELT_MODULE_VISIBILITY warmelt_normatch_initialmeltchunk_7 (struct frame_st union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V82*/ meltfptr[81]; + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V83*/ meltfptr[82]; /*^apply.arg*/ argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : PCTN_SRC*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V975*/ meltfptr[921]), (melt_ptr_t)(/*_.VALDATA___V105*/ meltfptr[104]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1046*/ meltfptr[989]), (melt_ptr_t)(/*_.VALDATA___V106*/ meltfptr[105]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -37409,12 +39355,12 @@ void MELT_MODULE_VISIBILITY warmelt_normatch_initialmeltchunk_7 (struct frame_st union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V84*/ meltfptr[83]; + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V85*/ meltfptr[84]; /*^apply.arg*/ argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : PCTN_ENV*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V975*/ meltfptr[921]), (melt_ptr_t)(/*_.VALDATA___V107*/ meltfptr[106]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1046*/ meltfptr[989]), (melt_ptr_t)(/*_.VALDATA___V108*/ meltfptr[107]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -37422,12 +39368,12 @@ void MELT_MODULE_VISIBILITY warmelt_normatch_initialmeltchunk_7 (struct frame_st union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V86*/ meltfptr[85]; + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V87*/ meltfptr[86]; /*^apply.arg*/ argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : PCTN_MAPATVAR*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V975*/ meltfptr[921]), (melt_ptr_t)(/*_.VALDATA___V109*/ meltfptr[108]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1046*/ meltfptr[989]), (melt_ptr_t)(/*_.VALDATA___V110*/ meltfptr[109]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -37435,12 +39381,12 @@ void MELT_MODULE_VISIBILITY warmelt_normatch_initialmeltchunk_7 (struct frame_st union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V88*/ meltfptr[87]; + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V89*/ meltfptr[88]; /*^apply.arg*/ argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : PCTN_MAPATCST*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V975*/ meltfptr[921]), (melt_ptr_t)(/*_.VALDATA___V111*/ meltfptr[110]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1046*/ meltfptr[989]), (melt_ptr_t)(/*_.VALDATA___V112*/ meltfptr[111]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -37448,12 +39394,12 @@ void MELT_MODULE_VISIBILITY warmelt_normatch_initialmeltchunk_7 (struct frame_st union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V90*/ meltfptr[89]; + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V91*/ meltfptr[90]; /*^apply.arg*/ argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : PCTN_MAPOR*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V975*/ meltfptr[921]), (melt_ptr_t)(/*_.VALDATA___V113*/ meltfptr[112]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1046*/ meltfptr[989]), (melt_ptr_t)(/*_.VALDATA___V114*/ meltfptr[113]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -37461,12 +39407,12 @@ void MELT_MODULE_VISIBILITY warmelt_normatch_initialmeltchunk_7 (struct frame_st union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V92*/ meltfptr[91]; + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V93*/ meltfptr[92]; /*^apply.arg*/ argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : PCTN_BINDLIST*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V975*/ meltfptr[921]), (melt_ptr_t)(/*_.VALDATA___V115*/ meltfptr[114]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1046*/ meltfptr[989]), (melt_ptr_t)(/*_.VALDATA___V116*/ meltfptr[115]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -37474,12 +39420,12 @@ void MELT_MODULE_VISIBILITY warmelt_normatch_initialmeltchunk_7 (struct frame_st union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V94*/ meltfptr[93]; + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V95*/ meltfptr[94]; /*^apply.arg*/ argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : PCTN_STUFFMAP*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V975*/ meltfptr[921]), (melt_ptr_t)(/*_.VALDATA___V117*/ meltfptr[116]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1046*/ meltfptr[989]), (melt_ptr_t)(/*_.VALDATA___V118*/ meltfptr[117]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -37487,12 +39433,12 @@ void MELT_MODULE_VISIBILITY warmelt_normatch_initialmeltchunk_7 (struct frame_st union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V96*/ meltfptr[95]; + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V97*/ meltfptr[96]; /*^apply.arg*/ argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : PCTN_PVARLOCMAP*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V975*/ meltfptr[921]), (melt_ptr_t)(/*_.VALDATA___V119*/ meltfptr[118]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1046*/ meltfptr[989]), (melt_ptr_t)(/*_.VALDATA___V120*/ meltfptr[119]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -37500,12 +39446,12 @@ void MELT_MODULE_VISIBILITY warmelt_normatch_initialmeltchunk_7 (struct frame_st union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V98*/ meltfptr[97]; + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V99*/ meltfptr[98]; /*^apply.arg*/ argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : PCTN_TESTS*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V975*/ meltfptr[921]), (melt_ptr_t)(/*_.VALDATA___V121*/ meltfptr[120]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1046*/ meltfptr[989]), (melt_ptr_t)(/*_.VALDATA___V122*/ meltfptr[121]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -37513,12 +39459,12 @@ void MELT_MODULE_VISIBILITY warmelt_normatch_initialmeltchunk_7 (struct frame_st union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V100*/ meltfptr[99]; + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V101*/ meltfptr[100]; /*^apply.arg*/ argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : PCTN_VARHANDLERS*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V975*/ meltfptr[921]), (melt_ptr_t)(/*_.VALDATA___V123*/ meltfptr[122]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1046*/ meltfptr[989]), (melt_ptr_t)(/*_.VALDATA___V124*/ meltfptr[123]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -37526,12 +39472,12 @@ void MELT_MODULE_VISIBILITY warmelt_normatch_initialmeltchunk_7 (struct frame_st union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V230*/ meltfptr[229]; + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V231*/ meltfptr[230]; /*^apply.arg*/ argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_NORMTESTER_ANY*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V975*/ meltfptr[921]), (melt_ptr_t)(/*_.VALDATA___V226*/ meltfptr[225]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1046*/ meltfptr[989]), (melt_ptr_t)(/*_.VALDATA___V227*/ meltfptr[226]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -37539,12 +39485,12 @@ void MELT_MODULE_VISIBILITY warmelt_normatch_initialmeltchunk_7 (struct frame_st union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V233*/ meltfptr[232]; + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V234*/ meltfptr[233]; /*^apply.arg*/ argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : NTEST_MATCHED*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V975*/ meltfptr[921]), (melt_ptr_t)(/*_.VALDATA___V246*/ meltfptr[245]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1046*/ meltfptr[989]), (melt_ptr_t)(/*_.VALDATA___V247*/ meltfptr[246]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -37552,12 +39498,12 @@ void MELT_MODULE_VISIBILITY warmelt_normatch_initialmeltchunk_7 (struct frame_st union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V235*/ meltfptr[234]; + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V236*/ meltfptr[235]; /*^apply.arg*/ argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : NTEST_THEN*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V975*/ meltfptr[921]), (melt_ptr_t)(/*_.VALDATA___V248*/ meltfptr[247]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1046*/ meltfptr[989]), (melt_ptr_t)(/*_.VALDATA___V249*/ meltfptr[248]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -37565,12 +39511,12 @@ void MELT_MODULE_VISIBILITY warmelt_normatch_initialmeltchunk_7 (struct frame_st union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V237*/ meltfptr[236]; + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V238*/ meltfptr[237]; /*^apply.arg*/ argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : NTEST_ELSE*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V975*/ meltfptr[921]), (melt_ptr_t)(/*_.VALDATA___V250*/ meltfptr[249]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1046*/ meltfptr[989]), (melt_ptr_t)(/*_.VALDATA___V251*/ meltfptr[250]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -37578,12 +39524,12 @@ void MELT_MODULE_VISIBILITY warmelt_normatch_initialmeltchunk_7 (struct frame_st union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V239*/ meltfptr[238]; + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V240*/ meltfptr[239]; /*^apply.arg*/ argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : NTEST_NORMATCH*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V975*/ meltfptr[921]), (melt_ptr_t)(/*_.VALDATA___V252*/ meltfptr[251]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1046*/ meltfptr[989]), (melt_ptr_t)(/*_.VALDATA___V253*/ meltfptr[252]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -37591,12 +39537,12 @@ void MELT_MODULE_VISIBILITY warmelt_normatch_initialmeltchunk_7 (struct frame_st union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V241*/ meltfptr[240]; + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V242*/ meltfptr[241]; /*^apply.arg*/ argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : NTEST_LOCCLIST*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V975*/ meltfptr[921]), (melt_ptr_t)(/*_.VALDATA___V254*/ meltfptr[253]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1046*/ meltfptr[989]), (melt_ptr_t)(/*_.VALDATA___V255*/ meltfptr[254]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -37604,12 +39550,12 @@ void MELT_MODULE_VISIBILITY warmelt_normatch_initialmeltchunk_7 (struct frame_st union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V243*/ meltfptr[242]; + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V244*/ meltfptr[243]; /*^apply.arg*/ argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : NTEST_COMEFROM*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V975*/ meltfptr[921]), (melt_ptr_t)(/*_.VALDATA___V256*/ meltfptr[255]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1046*/ meltfptr[989]), (melt_ptr_t)(/*_.VALDATA___V257*/ meltfptr[256]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -37617,12 +39563,12 @@ void MELT_MODULE_VISIBILITY warmelt_normatch_initialmeltchunk_7 (struct frame_st union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V300*/ meltfptr[299]; + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V301*/ meltfptr[300]; /*^apply.arg*/ argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_NORMTESTER_ANYTESTER*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V975*/ meltfptr[921]), (melt_ptr_t)(/*_.VALDATA___V298*/ meltfptr[297]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1046*/ meltfptr[989]), (melt_ptr_t)(/*_.VALDATA___V299*/ meltfptr[298]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -37630,12 +39576,12 @@ void MELT_MODULE_VISIBILITY warmelt_normatch_initialmeltchunk_7 (struct frame_st union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V306*/ meltfptr[305]; + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V307*/ meltfptr[306]; /*^apply.arg*/ argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_NORMTESTER_DISJUNCTION*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V975*/ meltfptr[921]), (melt_ptr_t)(/*_.VALDATA___V304*/ meltfptr[303]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1046*/ meltfptr[989]), (melt_ptr_t)(/*_.VALDATA___V305*/ meltfptr[304]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -37643,12 +39589,12 @@ void MELT_MODULE_VISIBILITY warmelt_normatch_initialmeltchunk_7 (struct frame_st union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V309*/ meltfptr[308]; + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V310*/ meltfptr[309]; /*^apply.arg*/ argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : NTDISJUNCTS*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V975*/ meltfptr[921]), (melt_ptr_t)(/*_.VALDATA___V316*/ meltfptr[315]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1046*/ meltfptr[989]), (melt_ptr_t)(/*_.VALDATA___V317*/ meltfptr[316]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -37656,12 +39602,12 @@ void MELT_MODULE_VISIBILITY warmelt_normatch_initialmeltchunk_7 (struct frame_st union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V311*/ meltfptr[310]; + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V312*/ meltfptr[311]; /*^apply.arg*/ argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : NTDISJ_FRESHORVAR*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V975*/ meltfptr[921]), (melt_ptr_t)(/*_.VALDATA___V318*/ meltfptr[317]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1046*/ meltfptr[989]), (melt_ptr_t)(/*_.VALDATA___V319*/ meltfptr[318]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -37669,12 +39615,12 @@ void MELT_MODULE_VISIBILITY warmelt_normatch_initialmeltchunk_7 (struct frame_st union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V313*/ meltfptr[312]; + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V314*/ meltfptr[313]; /*^apply.arg*/ argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : NTDISJ_SETORVAR*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V975*/ meltfptr[921]), (melt_ptr_t)(/*_.VALDATA___V320*/ meltfptr[319]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1046*/ meltfptr[989]), (melt_ptr_t)(/*_.VALDATA___V321*/ meltfptr[320]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -37682,12 +39628,12 @@ void MELT_MODULE_VISIBILITY warmelt_normatch_initialmeltchunk_7 (struct frame_st union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V356*/ meltfptr[355]; + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V357*/ meltfptr[356]; /*^apply.arg*/ argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_NORMTESTER_INSTANCE*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V975*/ meltfptr[921]), (melt_ptr_t)(/*_.VALDATA___V354*/ meltfptr[353]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1046*/ meltfptr[989]), (melt_ptr_t)(/*_.VALDATA___V355*/ meltfptr[354]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -37695,12 +39641,12 @@ void MELT_MODULE_VISIBILITY warmelt_normatch_initialmeltchunk_7 (struct frame_st union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V359*/ meltfptr[358]; + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V360*/ meltfptr[359]; /*^apply.arg*/ argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : NTINST_CLASS*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V975*/ meltfptr[921]), (melt_ptr_t)(/*_.VALDATA___V364*/ meltfptr[363]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1046*/ meltfptr[989]), (melt_ptr_t)(/*_.VALDATA___V365*/ meltfptr[364]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -37708,12 +39654,12 @@ void MELT_MODULE_VISIBILITY warmelt_normatch_initialmeltchunk_7 (struct frame_st union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V361*/ meltfptr[360]; + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V362*/ meltfptr[361]; /*^apply.arg*/ argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : NTINST_FIELDLOCS*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V975*/ meltfptr[921]), (melt_ptr_t)(/*_.VALDATA___V366*/ meltfptr[365]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1046*/ meltfptr[989]), (melt_ptr_t)(/*_.VALDATA___V367*/ meltfptr[366]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -37721,12 +39667,12 @@ void MELT_MODULE_VISIBILITY warmelt_normatch_initialmeltchunk_7 (struct frame_st union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V334*/ meltfptr[333]; + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V335*/ meltfptr[334]; /*^apply.arg*/ argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_NORMTESTER_MATCHER*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V975*/ meltfptr[921]), (melt_ptr_t)(/*_.VALDATA___V332*/ meltfptr[331]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1046*/ meltfptr[989]), (melt_ptr_t)(/*_.VALDATA___V333*/ meltfptr[332]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -37734,12 +39680,12 @@ void MELT_MODULE_VISIBILITY warmelt_normatch_initialmeltchunk_7 (struct frame_st union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V337*/ meltfptr[336]; + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V338*/ meltfptr[337]; /*^apply.arg*/ argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : NTMATCH_MATCHER*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V975*/ meltfptr[921]), (melt_ptr_t)(/*_.VALDATA___V346*/ meltfptr[345]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1046*/ meltfptr[989]), (melt_ptr_t)(/*_.VALDATA___V347*/ meltfptr[346]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -37747,12 +39693,12 @@ void MELT_MODULE_VISIBILITY warmelt_normatch_initialmeltchunk_7 (struct frame_st union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V339*/ meltfptr[338]; + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V340*/ meltfptr[339]; /*^apply.arg*/ argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : NTMATCH_MATNDATA*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V975*/ meltfptr[921]), (melt_ptr_t)(/*_.VALDATA___V348*/ meltfptr[347]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1046*/ meltfptr[989]), (melt_ptr_t)(/*_.VALDATA___V349*/ meltfptr[348]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -37760,12 +39706,12 @@ void MELT_MODULE_VISIBILITY warmelt_normatch_initialmeltchunk_7 (struct frame_st union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V341*/ meltfptr[340]; + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V342*/ meltfptr[341]; /*^apply.arg*/ argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : NTMATCH_INARGS*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V975*/ meltfptr[921]), (melt_ptr_t)(/*_.VALDATA___V350*/ meltfptr[349]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1046*/ meltfptr[989]), (melt_ptr_t)(/*_.VALDATA___V351*/ meltfptr[350]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -37773,12 +39719,12 @@ void MELT_MODULE_VISIBILITY warmelt_normatch_initialmeltchunk_7 (struct frame_st union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V343*/ meltfptr[342]; + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V344*/ meltfptr[343]; /*^apply.arg*/ argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : NTMATCH_OUTLOCS*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V975*/ meltfptr[921]), (melt_ptr_t)(/*_.VALDATA___V352*/ meltfptr[351]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1046*/ meltfptr[989]), (melt_ptr_t)(/*_.VALDATA___V353*/ meltfptr[352]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -37786,12 +39732,12 @@ void MELT_MODULE_VISIBILITY warmelt_normatch_initialmeltchunk_7 (struct frame_st union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V270*/ meltfptr[269]; + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V271*/ meltfptr[270]; /*^apply.arg*/ argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_NORMTESTER_OR_CLEAR*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V975*/ meltfptr[921]), (melt_ptr_t)(/*_.VALDATA___V268*/ meltfptr[267]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1046*/ meltfptr[989]), (melt_ptr_t)(/*_.VALDATA___V269*/ meltfptr[268]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -37799,12 +39745,12 @@ void MELT_MODULE_VISIBILITY warmelt_normatch_initialmeltchunk_7 (struct frame_st union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V273*/ meltfptr[272]; + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V274*/ meltfptr[273]; /*^apply.arg*/ argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : NTORCLEAR_LOCSYM*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V975*/ meltfptr[921]), (melt_ptr_t)(/*_.VALDATA___V276*/ meltfptr[275]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1046*/ meltfptr[989]), (melt_ptr_t)(/*_.VALDATA___V277*/ meltfptr[276]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -37812,12 +39758,12 @@ void MELT_MODULE_VISIBILITY warmelt_normatch_initialmeltchunk_7 (struct frame_st union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V280*/ meltfptr[279]; + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V281*/ meltfptr[280]; /*^apply.arg*/ argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_NORMTESTER_OR_INITIAL_CLEAR*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V975*/ meltfptr[921]), (melt_ptr_t)(/*_.VALDATA___V278*/ meltfptr[277]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1046*/ meltfptr[989]), (melt_ptr_t)(/*_.VALDATA___V279*/ meltfptr[278]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -37825,12 +39771,12 @@ void MELT_MODULE_VISIBILITY warmelt_normatch_initialmeltchunk_7 (struct frame_st union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V286*/ meltfptr[285]; + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V287*/ meltfptr[286]; /*^apply.arg*/ argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_NORMTESTER_OR_TRANSMIT*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V975*/ meltfptr[921]), (melt_ptr_t)(/*_.VALDATA___V284*/ meltfptr[283]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1046*/ meltfptr[989]), (melt_ptr_t)(/*_.VALDATA___V285*/ meltfptr[284]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -37838,12 +39784,12 @@ void MELT_MODULE_VISIBILITY warmelt_normatch_initialmeltchunk_7 (struct frame_st union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V289*/ meltfptr[288]; + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V290*/ meltfptr[289]; /*^apply.arg*/ argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : NTORTRANSMIT_DST*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V975*/ meltfptr[921]), (melt_ptr_t)(/*_.VALDATA___V294*/ meltfptr[293]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1046*/ meltfptr[989]), (melt_ptr_t)(/*_.VALDATA___V295*/ meltfptr[294]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -37851,12 +39797,12 @@ void MELT_MODULE_VISIBILITY warmelt_normatch_initialmeltchunk_7 (struct frame_st union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V291*/ meltfptr[290]; + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V292*/ meltfptr[291]; /*^apply.arg*/ argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : NTORTRANSMIT_SRC*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V975*/ meltfptr[921]), (melt_ptr_t)(/*_.VALDATA___V296*/ meltfptr[295]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1046*/ meltfptr[989]), (melt_ptr_t)(/*_.VALDATA___V297*/ meltfptr[296]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -37864,12 +39810,12 @@ void MELT_MODULE_VISIBILITY warmelt_normatch_initialmeltchunk_7 (struct frame_st union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V324*/ meltfptr[323]; + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V325*/ meltfptr[324]; /*^apply.arg*/ argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_NORMTESTER_SAME*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V975*/ meltfptr[921]), (melt_ptr_t)(/*_.VALDATA___V322*/ meltfptr[321]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1046*/ meltfptr[989]), (melt_ptr_t)(/*_.VALDATA___V323*/ meltfptr[322]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -37877,12 +39823,12 @@ void MELT_MODULE_VISIBILITY warmelt_normatch_initialmeltchunk_7 (struct frame_st union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V327*/ meltfptr[326]; + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V328*/ meltfptr[327]; /*^apply.arg*/ argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : NTSAME_IDENTICAL*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V975*/ meltfptr[921]), (melt_ptr_t)(/*_.VALDATA___V330*/ meltfptr[329]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1046*/ meltfptr[989]), (melt_ptr_t)(/*_.VALDATA___V331*/ meltfptr[330]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -37890,12 +39836,12 @@ void MELT_MODULE_VISIBILITY warmelt_normatch_initialmeltchunk_7 (struct frame_st union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V260*/ meltfptr[259]; + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V261*/ meltfptr[260]; /*^apply.arg*/ argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_NORMTESTER_SUCCESS*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V975*/ meltfptr[921]), (melt_ptr_t)(/*_.VALDATA___V258*/ meltfptr[257]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1046*/ meltfptr[989]), (melt_ptr_t)(/*_.VALDATA___V259*/ meltfptr[258]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -37903,12 +39849,12 @@ void MELT_MODULE_VISIBILITY warmelt_normatch_initialmeltchunk_7 (struct frame_st union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V263*/ meltfptr[262]; + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V264*/ meltfptr[263]; /*^apply.arg*/ argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : NTSUCCESS_DO*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V975*/ meltfptr[921]), (melt_ptr_t)(/*_.VALDATA___V266*/ meltfptr[265]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1046*/ meltfptr[989]), (melt_ptr_t)(/*_.VALDATA___V267*/ meltfptr[266]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -37916,12 +39862,12 @@ void MELT_MODULE_VISIBILITY warmelt_normatch_initialmeltchunk_7 (struct frame_st union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V372*/ meltfptr[371]; + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V373*/ meltfptr[372]; /*^apply.arg*/ argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_NREP_MATCH*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V975*/ meltfptr[921]), (melt_ptr_t)(/*_.VALDATA___V368*/ meltfptr[367]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1046*/ meltfptr[989]), (melt_ptr_t)(/*_.VALDATA___V369*/ meltfptr[368]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -37929,12 +39875,12 @@ void MELT_MODULE_VISIBILITY warmelt_normatch_initialmeltchunk_7 (struct frame_st union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V375*/ meltfptr[374]; + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V376*/ meltfptr[375]; /*^apply.arg*/ argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : NMATCH_TESTS*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V975*/ meltfptr[921]), (melt_ptr_t)(/*_.VALDATA___V382*/ meltfptr[381]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1046*/ meltfptr[989]), (melt_ptr_t)(/*_.VALDATA___V383*/ meltfptr[382]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -37942,12 +39888,12 @@ void MELT_MODULE_VISIBILITY warmelt_normatch_initialmeltchunk_7 (struct frame_st union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V377*/ meltfptr[376]; + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V378*/ meltfptr[377]; /*^apply.arg*/ argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : NMATCH_STUFFMAP*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V975*/ meltfptr[921]), (melt_ptr_t)(/*_.VALDATA___V384*/ meltfptr[383]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1046*/ meltfptr[989]), (melt_ptr_t)(/*_.VALDATA___V385*/ meltfptr[384]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -37955,38 +39901,38 @@ void MELT_MODULE_VISIBILITY warmelt_normatch_initialmeltchunk_7 (struct frame_st union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V379*/ meltfptr[378]; + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V380*/ meltfptr[379]; /*^apply.arg*/ argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : NMATCH_MATCHED*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V975*/ meltfptr[921]), (melt_ptr_t)(/*_.VALDATA___V386*/ meltfptr[385]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1046*/ meltfptr[989]), (melt_ptr_t)(/*_.VALDATA___V387*/ meltfptr[386]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.VALUEXPORTER___V975*/ meltfptr[921] = 0 ;} + /*clear*/ /*_.VALUEXPORTER___V1046*/ meltfptr[989] = 0 ;} - MELT_LOCATION("warmelt-normatch.melt:4086:/ initchunk"); + MELT_LOCATION("warmelt-normatch.melt:4493:/ initchunk"); /*^block*/ /*anyblock*/{ /*^getslot*/ { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(((void*)(MELT_PREDEF(INITIAL_SYSTEM_DATA)))), 4, "SYSDATA_VALUE_EXPORTER");/*_.VALUEXPORTER___V976*/ meltfptr[919] = slot; }; + melt_object_get_field(slot,(melt_ptr_t)(((void*)(MELT_PREDEF(INITIAL_SYSTEM_DATA)))), 4, "SYSDATA_VALUE_EXPORTER");/*_.VALUEXPORTER___V1047*/ meltfptr[990] = slot; }; ; /*^apply*/ /*apply*/{ union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V129*/ meltfptr[128]; + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V130*/ meltfptr[129]; /*^apply.arg*/ argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : SCAN_PATTERN*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V976*/ meltfptr[919]), (melt_ptr_t)(/*_.VALDATA___V125*/ meltfptr[124]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1047*/ meltfptr[990]), (melt_ptr_t)(/*_.VALDATA___V126*/ meltfptr[125]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -37994,18 +39940,18 @@ void MELT_MODULE_VISIBILITY warmelt_normatch_initialmeltchunk_7 (struct frame_st union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V202*/ meltfptr[201]; + argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V203*/ meltfptr[202]; /*^apply.arg*/ argtab[1].bp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : NORMAL_PATTERN*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V976*/ meltfptr[919]), (melt_ptr_t)(/*_.VALDATA___V200*/ meltfptr[199]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1047*/ meltfptr[990]), (melt_ptr_t)(/*_.VALDATA___V201*/ meltfptr[200]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.VALUEXPORTER___V976*/ meltfptr[919] = 0 ;} + /*clear*/ /*_.VALUEXPORTER___V1047*/ meltfptr[990] = 0 ;} /**COMMENT: after toplevel body **/; @@ -38044,597 +39990,636 @@ void MELT_MODULE_VISIBILITY warmelt_normatch_initialmeltchunk_7 (struct frame_st /**COMMENT: intern symbols **/; /*internsym:CLASS_PATTERN_CONTEXT*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V73*/ meltfptr[72])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V74*/ meltfptr[73])); /*internsym:CLASS_ROOT*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V75*/ meltfptr[74])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V76*/ meltfptr[75])); /*internsym:PCTN_NORMCTXT*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V103*/ meltfptr[102])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V104*/ meltfptr[103])); /*internsym:PCTN_SRC*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V105*/ meltfptr[104])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V106*/ meltfptr[105])); /*internsym:PCTN_ENV*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V107*/ meltfptr[106])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V108*/ meltfptr[107])); /*internsym:PCTN_MAPATVAR*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V109*/ meltfptr[108])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V110*/ meltfptr[109])); /*internsym:PCTN_MAPATCST*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V111*/ meltfptr[110])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V112*/ meltfptr[111])); /*internsym:PCTN_MAPOR*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V113*/ meltfptr[112])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V114*/ meltfptr[113])); /*internsym:PCTN_BINDLIST*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V115*/ meltfptr[114])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V116*/ meltfptr[115])); /*internsym:PCTN_STUFFMAP*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V117*/ meltfptr[116])); - + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V118*/ meltfptr[117])); -#undef meltfram__ -} /*end of warmelt_normatch_initialmeltchunk_7*/ - -void MELT_MODULE_VISIBILITY warmelt_normatch_initialmeltchunk_8 (struct frame_start_module_melt_st* meltframptr__, char predefinited[]) { -#define meltfram__ (*meltframptr__) -#undef meltcallcount -#define meltcallcount 0L -/*internsym:PCTN_PVARLOCMAP*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V119*/ meltfptr[118])); + /*internsym:PCTN_PVARLOCMAP*/ + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V120*/ meltfptr[119])); /*internsym:PCTN_TESTS*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V121*/ meltfptr[120])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V122*/ meltfptr[121])); /*internsym:PCTN_VARHANDLERS*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V123*/ meltfptr[122])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V124*/ meltfptr[123])); /*internsym:SCAN_PATTERN*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V125*/ meltfptr[124])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V126*/ meltfptr[125])); /*internsym:CLASS_SELECTOR*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V127*/ meltfptr[126])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V128*/ meltfptr[127])); /*internsym:DEBUG_MSG_FUN*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V133*/ meltfptr[132])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V134*/ meltfptr[133])); /*internsym:CLASS_NAMED*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V135*/ meltfptr[134])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V136*/ meltfptr[135])); /*internsym:INSTALL_METHOD*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V137*/ meltfptr[136])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V138*/ meltfptr[137])); /*internsym:DISCR_ANY_RECEIVER*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V139*/ meltfptr[138])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V140*/ meltfptr[139])); /*internsym:CLASS_SOURCE_PATTERN*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V143*/ meltfptr[142])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V144*/ meltfptr[143])); /*internsym:CLASS_SOURCE_PATTERN_VARIABLE*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V147*/ meltfptr[146])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V148*/ meltfptr[147])); /*internsym:CLASS_SOURCE_PATTERN_JOKER_VARIABLE*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V151*/ meltfptr[150])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V152*/ meltfptr[151])); /*internsym:CLASS_SOURCE_PATTERN_CONSTANT*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V155*/ meltfptr[154])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V156*/ meltfptr[155])); /*internsym:NORMAL_EXP*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V157*/ meltfptr[156])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V158*/ meltfptr[157])); /*internsym:LIST_APPEND2LIST*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V159*/ meltfptr[158])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V160*/ meltfptr[159])); /*internsym:GET_CTYPE*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V161*/ meltfptr[160])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V162*/ meltfptr[161])); /*internsym:CLASS_CTYPE*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V163*/ meltfptr[162])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V164*/ meltfptr[163])); /*internsym:CLASS_SOURCE_PATTERN_OBJECT*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V167*/ meltfptr[166])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V168*/ meltfptr[167])); /*internsym:CLASS_CLASS*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V169*/ meltfptr[168])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V170*/ meltfptr[169])); /*internsym:CLASS_SOURCE_FIELD_PATTERN*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V171*/ meltfptr[170])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V172*/ meltfptr[171])); /*internsym:CLASS_FIELD*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V173*/ meltfptr[172])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V174*/ meltfptr[173])); /*internsym:CTYPE_VALUE*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V175*/ meltfptr[174])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V176*/ meltfptr[175])); /*internsym:CLASS_SOURCE_PATTERN_COMPOSITE*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V179*/ meltfptr[178])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V180*/ meltfptr[179])); /*internsym:CLASS_ANY_MATCHER*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V181*/ meltfptr[180])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V182*/ meltfptr[181])); /*internsym:CLASS_FORMAL_BINDING*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V183*/ meltfptr[182])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V184*/ meltfptr[183])); /*internsym:NORMALIZE_TUPLE*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V185*/ meltfptr[184])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V186*/ meltfptr[185])); /*internsym:CLASS_SOURCE_PATTERN_OR*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V190*/ meltfptr[189])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V191*/ meltfptr[190])); /*internsym:DISCR_MAP_OBJECTS*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V192*/ meltfptr[191])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V193*/ meltfptr[192])); /*internsym:CLASS_SYMBOL*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V194*/ meltfptr[193])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V195*/ meltfptr[194])); /*internsym:CLASS_SOURCE_PATTERN_AND*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V198*/ meltfptr[197])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V199*/ meltfptr[198])); /*internsym:NORMAL_PATTERN*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V200*/ meltfptr[199])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V201*/ meltfptr[200])); /*internsym:CLASS_NORMAL_OR_VARIABLE*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V204*/ meltfptr[203])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V205*/ meltfptr[204])); /*internsym:NORVAR_NOREXP*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V218*/ meltfptr[217])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V219*/ meltfptr[218])); /*internsym:NORVAR_LOCSYM*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V220*/ meltfptr[219])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V221*/ meltfptr[220])); /*internsym:NORVAR_PATVAR*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V222*/ meltfptr[221])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V223*/ meltfptr[222])); /*internsym:NORVAR_NREPOR*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V224*/ meltfptr[223])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V225*/ meltfptr[224])); /*internsym:CLASS_NORMTESTER_ANY*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V226*/ meltfptr[225])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V227*/ meltfptr[226])); /*internsym:CLASS_NREP_EXPRESSION*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V228*/ meltfptr[227])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V229*/ meltfptr[228])); /*internsym:NTEST_MATCHED*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V246*/ meltfptr[245])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V247*/ meltfptr[246])); /*internsym:NTEST_THEN*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V248*/ meltfptr[247])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V249*/ meltfptr[248])); /*internsym:NTEST_ELSE*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V250*/ meltfptr[249])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V251*/ meltfptr[250])); /*internsym:NTEST_NORMATCH*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V252*/ meltfptr[251])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V253*/ meltfptr[252])); /*internsym:NTEST_LOCCLIST*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V254*/ meltfptr[253])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V255*/ meltfptr[254])); /*internsym:NTEST_COMEFROM*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V256*/ meltfptr[255])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V257*/ meltfptr[256])); /*internsym:CLASS_NORMTESTER_SUCCESS*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V258*/ meltfptr[257])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V259*/ meltfptr[258])); /*internsym:NTSUCCESS_DO*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V266*/ meltfptr[265])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V267*/ meltfptr[266])); /*internsym:CLASS_NORMTESTER_OR_CLEAR*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V268*/ meltfptr[267])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V269*/ meltfptr[268])); + - /*internsym:NTORCLEAR_LOCSYM*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V276*/ meltfptr[275])); +#undef meltfram__ +} /*end of warmelt_normatch_initialmeltchunk_8*/ + +void MELT_MODULE_VISIBILITY warmelt_normatch_initialmeltchunk_9 (struct frame_start_module_melt_st* meltframptr__, char predefinited[]) { +#define meltfram__ (*meltframptr__) +#undef meltcallcount +#define meltcallcount 0L +/*internsym:NTORCLEAR_LOCSYM*/ + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V277*/ meltfptr[276])); /*internsym:CLASS_NORMTESTER_OR_INITIAL_CLEAR*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V278*/ meltfptr[277])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V279*/ meltfptr[278])); /*internsym:CLASS_NORMTESTER_OR_TRANSMIT*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V284*/ meltfptr[283])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V285*/ meltfptr[284])); /*internsym:NTORTRANSMIT_DST*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V294*/ meltfptr[293])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V295*/ meltfptr[294])); /*internsym:NTORTRANSMIT_SRC*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V296*/ meltfptr[295])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V297*/ meltfptr[296])); /*internsym:CLASS_NORMTESTER_ANYTESTER*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V298*/ meltfptr[297])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V299*/ meltfptr[298])); /*internsym:CLASS_NORMTESTER_DISJUNCTION*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V304*/ meltfptr[303])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V305*/ meltfptr[304])); /*internsym:NTDISJUNCTS*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V316*/ meltfptr[315])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V317*/ meltfptr[316])); /*internsym:NTDISJ_FRESHORVAR*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V318*/ meltfptr[317])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V319*/ meltfptr[318])); /*internsym:NTDISJ_SETORVAR*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V320*/ meltfptr[319])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V321*/ meltfptr[320])); /*internsym:CLASS_NORMTESTER_SAME*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V322*/ meltfptr[321])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V323*/ meltfptr[322])); /*internsym:NTSAME_IDENTICAL*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V330*/ meltfptr[329])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V331*/ meltfptr[330])); /*internsym:CLASS_NORMTESTER_MATCHER*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V332*/ meltfptr[331])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V333*/ meltfptr[332])); /*internsym:NTMATCH_MATCHER*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V346*/ meltfptr[345])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V347*/ meltfptr[346])); /*internsym:NTMATCH_MATNDATA*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V348*/ meltfptr[347])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V349*/ meltfptr[348])); /*internsym:NTMATCH_INARGS*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V350*/ meltfptr[349])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V351*/ meltfptr[350])); /*internsym:NTMATCH_OUTLOCS*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V352*/ meltfptr[351])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V353*/ meltfptr[352])); /*internsym:CLASS_NORMTESTER_INSTANCE*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V354*/ meltfptr[353])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V355*/ meltfptr[354])); /*internsym:NTINST_CLASS*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V364*/ meltfptr[363])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V365*/ meltfptr[364])); /*internsym:NTINST_FIELDLOCS*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V366*/ meltfptr[365])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V367*/ meltfptr[366])); /*internsym:CLASS_NREP_MATCH*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V368*/ meltfptr[367])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V369*/ meltfptr[368])); /*internsym:CLASS_NREP_TYPED_EXPRESSION*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V370*/ meltfptr[369])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V371*/ meltfptr[370])); /*internsym:NMATCH_TESTS*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V382*/ meltfptr[381])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V383*/ meltfptr[382])); /*internsym:NMATCH_STUFFMAP*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V384*/ meltfptr[383])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V385*/ meltfptr[384])); /*internsym:NMATCH_MATCHED*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V386*/ meltfptr[385])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V387*/ meltfptr[386])); /*internsym:DISCR_LIST*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V390*/ meltfptr[389])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V391*/ meltfptr[390])); /*internsym:CLASS_CONTAINER*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V396*/ meltfptr[395])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V397*/ meltfptr[396])); /*internsym:CLASS_LOCATED*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V402*/ meltfptr[401])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V403*/ meltfptr[402])); /*internsym:CLASS_NREP_LOCSYMOCC*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V409*/ meltfptr[408])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V410*/ meltfptr[409])); /*internsym:CLASS_NORMAL_LET_BINDING*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V413*/ meltfptr[412])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V414*/ meltfptr[413])); /*internsym:CLASS_NORMALIZATION_CONTEXT*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V415*/ meltfptr[414])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V416*/ meltfptr[415])); /*internsym:CLASS_SOURCE_PATTERN_INSTANCE*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V423*/ meltfptr[422])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V424*/ meltfptr[423])); /*internsym:DISCR_MULTIPLE*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V425*/ meltfptr[424])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V426*/ meltfptr[425])); /*internsym:CLASS_NREP_SYMOCC*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V427*/ meltfptr[426])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V428*/ meltfptr[427])); /*internsym:CLASS_LET_BINDING*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V429*/ meltfptr[428])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V430*/ meltfptr[429])); /*internsym:CLASS_NREP_UNSAFE_GET_FIELD*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V431*/ meltfptr[430])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V432*/ meltfptr[431])); /*internsym:CLONE_SYMBOL*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V433*/ meltfptr[432])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V434*/ meltfptr[433])); /*internsym:MAPOBJECT_SORTED_ATTRIBUTE_TUPLE*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V443*/ meltfptr[442])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V444*/ meltfptr[443])); /*internsym:MULTIPLE_MAP*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V445*/ meltfptr[444])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V446*/ meltfptr[445])); /*internsym:DISCR_BOX*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V447*/ meltfptr[446])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V448*/ meltfptr[447])); /*internsym:LIST_TO_MULTIPLE*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V449*/ meltfptr[448])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V450*/ meltfptr[449])); /*internsym:CLASS_NREP*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V451*/ meltfptr[450])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V452*/ meltfptr[451])); /*internsym:CLASS_SOURCE_PATTERN_MATCHER*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V459*/ meltfptr[458])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V460*/ meltfptr[459])); /*internsym:CLASS_ANY_BINDING*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V461*/ meltfptr[460])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V462*/ meltfptr[461])); /*internsym:FIND_ENV*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V463*/ meltfptr[462])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V464*/ meltfptr[463])); /*internsym:FRESH_ENV*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V465*/ meltfptr[464])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V466*/ meltfptr[465])); /*internsym:PUT_ENV*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V467*/ meltfptr[466])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V468*/ meltfptr[467])); /*internsym:MULTIPLE_TO_LIST*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V469*/ meltfptr[468])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V470*/ meltfptr[469])); /*internsym:MATCH_GRAPHIC_DOT_PREFIX*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V474*/ meltfptr[473])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V475*/ meltfptr[474])); /*internsym:DISCR_STRING*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V479*/ meltfptr[478])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V480*/ meltfptr[479])); /*internsym:REGISTER_OPTION*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V481*/ meltfptr[480])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V482*/ meltfptr[481])); /*internsym:MATCH_GRAPHIC*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V483*/ meltfptr[482])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V484*/ meltfptr[483])); /*internsym:CLASS_MATCH_GRAPHIC*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V486*/ meltfptr[485])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V487*/ meltfptr[486])); /*internsym:CLASS_PROPED*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V488*/ meltfptr[487])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V489*/ meltfptr[488])); /*internsym:MCHGX_FILENAME*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V504*/ meltfptr[503])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V505*/ meltfptr[504])); /*internsym:MCHGX_NODOUT*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V506*/ meltfptr[505])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V507*/ meltfptr[506])); /*internsym:MCHGX_EDGOUT*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V508*/ meltfptr[507])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V509*/ meltfptr[508])); /*internsym:MCHGX_DATANAMEMAP*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V510*/ meltfptr[509])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V511*/ meltfptr[510])); /*internsym:MCHGX_STEPNAMEMAP*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V512*/ meltfptr[511])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V513*/ meltfptr[512])); /*internsym:MATCHGRAPHIC_LABEL*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V516*/ meltfptr[515])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V517*/ meltfptr[516])); /*internsym:CLASS_CLONED_SYMBOL*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V522*/ meltfptr[521])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V523*/ meltfptr[522])); /*internsym:DISCR_STRBUF*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V532*/ meltfptr[531])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V533*/ meltfptr[532])); /*internsym:CLASS_SOURCE_MATCH*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V541*/ meltfptr[540])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V542*/ meltfptr[541])); /*internsym:CLASS_ENVIRONMENT*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V543*/ meltfptr[542])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V544*/ meltfptr[543])); /*internsym:_MATCHED_*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V535*/ meltfptr[534])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V536*/ meltfptr[535])); /*internsym:CLASS_SOURCE_MATCH_CASE*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V545*/ meltfptr[544])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V546*/ meltfptr[545])); /*internsym:WRAP_NORMAL_LETSEQ*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V547*/ meltfptr[546])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V548*/ meltfptr[547])); /*internsym:CTYPE_VOID*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V549*/ meltfptr[548])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V550*/ meltfptr[549])); /*internsym:MATCHRES_*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V538*/ meltfptr[537])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V539*/ meltfptr[538])); /*internsym:CLASS_MATCHING_CONTEXT*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V551*/ meltfptr[550])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V552*/ meltfptr[551])); - /*internsym:MXCT_NORMCTXT*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V571*/ meltfptr[570])); + /*internsym:MCTX_NORMCTXT*/ + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V574*/ meltfptr[573])); - /*internsym:MXCT_SOURCE*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V573*/ meltfptr[572])); + /*internsym:MCTX_SOURCE*/ + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V576*/ meltfptr[575])); - /*internsym:MXCT_NMATCHED*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V575*/ meltfptr[574])); + /*internsym:MCTX_NMATCHED*/ + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V578*/ meltfptr[577])); - /*internsym:MXCT_CASES*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V577*/ meltfptr[576])); + /*internsym:MCTX_CASES*/ + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V580*/ meltfptr[579])); - /*internsym:MXCT_ENV*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V579*/ meltfptr[578])); + /*internsym:MCTX_ENV*/ + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V582*/ meltfptr[581])); - /*internsym:MXCT_MDATA*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V581*/ meltfptr[580])); + /*internsym:MCTX_MDATA*/ + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V584*/ meltfptr[583])); - /*internsym:MXCT_VARHANDLERS*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V583*/ meltfptr[582])); + /*internsym:MCTX_VARHANDLERS*/ + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V586*/ meltfptr[585])); + + /*internsym:MCTX_FLAGS*/ + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V588*/ meltfptr[587])); /*internsym:CLASS_MATCH_CASE*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V585*/ meltfptr[584])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V590*/ meltfptr[589])); /*internsym:MCASE_MCTXT*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V599*/ meltfptr[598])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V604*/ meltfptr[603])); /*internsym:MCASE_SOURCE*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V601*/ meltfptr[600])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V606*/ meltfptr[605])); /*internsym:MCASE_INDEX*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V603*/ meltfptr[602])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V608*/ meltfptr[607])); /*internsym:MCASE_VARMAP*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V605*/ meltfptr[604])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V610*/ meltfptr[609])); /*internsym:CLASS_MATCHED_DATA*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V607*/ meltfptr[606])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V612*/ meltfptr[611])); /*internsym:MDATA_SYMB*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V621*/ meltfptr[620])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V626*/ meltfptr[625])); /*internsym:MDATA_CTYPE*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V623*/ meltfptr[622])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V628*/ meltfptr[627])); /*internsym:MDATA_ORIG*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V625*/ meltfptr[624])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V630*/ meltfptr[629])); /*internsym:MDATA_STEPS*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V627*/ meltfptr[626])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V632*/ meltfptr[631])); /*internsym:CLASS_MATCHED_BINDING*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V629*/ meltfptr[628])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V634*/ meltfptr[633])); /*internsym:MATCHBIND_DATA*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V639*/ meltfptr[638])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V644*/ meltfptr[643])); /*internsym:MATCHBIND_NBOCC*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V641*/ meltfptr[640])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V646*/ meltfptr[645])); /*internsym:NORMALIZE_BINDING*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V645*/ meltfptr[644])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V650*/ meltfptr[649])); /*internsym:CLASS_MATCH_STEP*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V647*/ meltfptr[646])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V652*/ meltfptr[651])); /*internsym:MSTEP_DATA*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V655*/ meltfptr[654])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V660*/ meltfptr[659])); + + /*internsym:CLASS_MATCH_FLAG*/ + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V662*/ meltfptr[661])); + + /*internsym:MFLAG_SPAT*/ + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V676*/ meltfptr[675])); + + /*internsym:MFLAG_RANK*/ + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V678*/ meltfptr[677])); + + /*internsym:MFLAG_STRING*/ + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V680*/ meltfptr[679])); + + /*internsym:MFLAG_SETSTEP*/ + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V682*/ meltfptr[681])); /*internsym:CLASS_MATCH_STEP_THEN*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V657*/ meltfptr[656])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V684*/ meltfptr[683])); /*internsym:MSTEP_THEN*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V665*/ meltfptr[664])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V692*/ meltfptr[691])); + + /*internsym:CLASS_MATCH_STEP_ASSIGN_FLAG*/ + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V694*/ meltfptr[693])); + + /*internsym:MSTEP_FLAG*/ + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V702*/ meltfptr[701])); + + /*internsym:CLASS_MATCH_STEP_FLAG_SET*/ + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V704*/ meltfptr[703])); + + /*internsym:CLASS_MATCH_STEP_FLAG_OPERATION*/ + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V710*/ meltfptr[709])); - /*internsym:CLASS_MATCH_STEP_SET_VARIABLE*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V667*/ meltfptr[666])); + /*internsym:MSTEP_FLAGARGS*/ + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V718*/ meltfptr[717])); - /*internsym:MSTEPSETVAR_SYMB*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V675*/ meltfptr[674])); + /*internsym:CLASS_MATCH_STEP_FLAG_CONJONCTION*/ + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V720*/ meltfptr[719])); + + /*internsym:CLASS_MATCH_STEP_FLAG_DISJONCTION*/ + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V726*/ meltfptr[725])); /*internsym:CLASS_MATCH_STEP_SUCCESS*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V677*/ meltfptr[676])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V732*/ meltfptr[731])); + + /*internsym:MSTEPSUCCESS_FLAG*/ + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V746*/ meltfptr[745])); /*internsym:MSTEPSUCCESS_VAROCC*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V689*/ meltfptr[688])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V748*/ meltfptr[747])); /*internsym:MSTEPSUCCESS_BINDS*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V691*/ meltfptr[690])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V750*/ meltfptr[749])); /*internsym:MSTEPSUCCESS_BODY*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V693*/ meltfptr[692])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V752*/ meltfptr[751])); /*internsym:CLASS_MATCH_STEP_TEST*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V695*/ meltfptr[694])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V754*/ meltfptr[753])); /*internsym:MSTEP_ELSE*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V703*/ meltfptr[702])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V762*/ meltfptr[761])); /*internsym:CLASS_MATCH_STEP_TEST_VARIABLE*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V705*/ meltfptr[704])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V764*/ meltfptr[763])); /*internsym:MSTEPTESTVAR_SYMB*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V713*/ meltfptr[712])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V772*/ meltfptr[771])); /*internsym:CLASS_MATCH_STEP_TEST_GROUP*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V715*/ meltfptr[714])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V774*/ meltfptr[773])); /*internsym:MSTGROUP_START*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V727*/ meltfptr[726])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V786*/ meltfptr[785])); /*internsym:MSTGROUP_THEN*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V729*/ meltfptr[728])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V788*/ meltfptr[787])); /*internsym:MSTGROUP_ELSE*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V731*/ meltfptr[730])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V790*/ meltfptr[789])); /*internsym:CLASS_MATCH_STEP_TEST_INSTANCE*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V733*/ meltfptr[732])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V792*/ meltfptr[791])); /*internsym:MSTINS_CLASS*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V743*/ meltfptr[742])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V802*/ meltfptr[801])); /*internsym:MSTINS_SLOTS*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V745*/ meltfptr[744])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V804*/ meltfptr[803])); /*internsym:CLASS_MATCH_STEP_TEST_MATCHER*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V747*/ meltfptr[746])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V806*/ meltfptr[805])); /*internsym:MSTMA_MATCHER*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V761*/ meltfptr[760])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V820*/ meltfptr[819])); /*internsym:MSTMA_BINDS*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V763*/ meltfptr[762])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V822*/ meltfptr[821])); /*internsym:MSTMA_INS*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V765*/ meltfptr[764])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V824*/ meltfptr[823])); /*internsym:MSTMA_OUTS*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V767*/ meltfptr[766])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V826*/ meltfptr[825])); + + /*internsym:DISCR_CONSTANT_INTEGER*/ + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V830*/ meltfptr[829])); /*internsym:SCAN_SUBPATTERNS*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V769*/ meltfptr[768])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V832*/ meltfptr[831])); /*internsym:RECV*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V771*/ meltfptr[770])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V834*/ meltfptr[833])); /*internsym:FUN*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V774*/ meltfptr[773])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V837*/ meltfptr[836])); /*internsym:CTX*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V777*/ meltfptr[776])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V840*/ meltfptr[839])); /*internsym:SCAN_STEP_DATA*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V783*/ meltfptr[782])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V846*/ meltfptr[845])); /*internsym:STEP*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V785*/ meltfptr[784])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V848*/ meltfptr[847])); /*internsym:CLASS_SOURCE_PATTERN_CONSTRUCT*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V803*/ meltfptr[802])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V866*/ meltfptr[865])); /*internsym:PUT_THEN_MATCH*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V812*/ meltfptr[811])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V875*/ meltfptr[874])); /*internsym:THENSTEP*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V815*/ meltfptr[814])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V878*/ meltfptr[877])); /*internsym:PUT_ELSE_MATCH*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V827*/ meltfptr[826])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V890*/ meltfptr[889])); /*internsym:ELSESTEP*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V830*/ meltfptr[829])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V893*/ meltfptr[892])); /*internsym:TRANSLATE_PATTERN*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V844*/ meltfptr[843])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V909*/ meltfptr[908])); /*internsym:MDATA*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V847*/ meltfptr[846])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V912*/ meltfptr[911])); /*internsym:MCASE*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V850*/ meltfptr[849])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V915*/ meltfptr[914])); /*internsym:VARMAP*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V853*/ meltfptr[852])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V918*/ meltfptr[917])); /*internsym:SLOC*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V856*/ meltfptr[855])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V921*/ meltfptr[920])); /*internsym:MATCHGRAPHIC_ALTSTEP*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V876*/ meltfptr[875])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V943*/ meltfptr[942])); /*internsym:DISCR_INTEGER*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V895*/ meltfptr[894])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V964*/ meltfptr[963])); /*internsym:COMPARE_NAMED_ALPHA*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V897*/ meltfptr[896])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V966*/ meltfptr[965])); /*internsym:_MATCHED_DATA*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V900*/ meltfptr[899])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V969*/ meltfptr[968])); /*internsym:ALTERNATE_MATCH*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V917*/ meltfptr[916])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V986*/ meltfptr[985])); /**COMMENT: set retinit from boxloc **/; @@ -38644,13 +40629,13 @@ void MELT_MODULE_VISIBILITY warmelt_normatch_initialmeltchunk_8 (struct frame_st #undef meltfram__ -} /*end of warmelt_normatch_initialmeltchunk_8*/ +} /*end of warmelt_normatch_initialmeltchunk_9*/ void mark_module_melt(void*fp) { int ix=0; initial_frame_st* framptr_= (initial_frame_st*)fp; - for(ix=0; ix<976; ix++) + for(ix=0; ix<1047; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_melt_un (framptr_->varptr[ix]); @@ -38658,13 +40643,14 @@ void mark_module_melt(void*fp) /* exported field offsets */ -const int meltfieldoff__MXCT_CASES = 3; -const int meltfieldoff__MXCT_ENV = 4; -const int meltfieldoff__MXCT_MDATA = 5; -const int meltfieldoff__MXCT_NMATCHED = 2; -const int meltfieldoff__MXCT_NORMCTXT = 0; -const int meltfieldoff__MXCT_SOURCE = 1; -const int meltfieldoff__MXCT_VARHANDLERS = 6; +const int meltfieldoff__MCTX_CASES = 3; +const int meltfieldoff__MCTX_ENV = 4; +const int meltfieldoff__MCTX_FLAGS = 7; +const int meltfieldoff__MCTX_MDATA = 5; +const int meltfieldoff__MCTX_NMATCHED = 2; +const int meltfieldoff__MCTX_NORMCTXT = 0; +const int meltfieldoff__MCTX_SOURCE = 1; +const int meltfieldoff__MCTX_VARHANDLERS = 6; const int meltfieldoff__NMATCH_MATCHED = 4; const int meltfieldoff__NMATCH_STUFFMAP = 3; const int meltfieldoff__NMATCH_TESTS = 2; @@ -38701,7 +40687,7 @@ const int meltfieldoff__PCTN_TESTS = 9; const int meltfieldoff__PCTN_VARHANDLERS = 10; /* exported class lengths */ -const int meltclasslen__CLASS_MATCHING_CONTEXT = 7; +const int meltclasslen__CLASS_MATCHING_CONTEXT = 8; const int meltclasslen__CLASS_NORMTESTER_ANY = 7; const int meltclasslen__CLASS_NORMTESTER_ANYTESTER = 7; const int meltclasslen__CLASS_NORMTESTER_DISJUNCTION = 10; diff --git a/gcc/melt/generated/warmelt-outobj.0.c b/gcc/melt/generated/warmelt-outobj.0.c index abae9d2a607..4244abb39e1 100644 --- a/gcc/melt/generated/warmelt-outobj.0.c +++ b/gcc/melt/generated/warmelt-outobj.0.c @@ -3,7 +3,7 @@ #ifndef MELTGCC_DYNAMIC_OBJSTRUCT /* version string of the gcc executable generating this file: */ const char genversionstr_melt[]= - "4.5.0 20100223 (experimental) [melt-branch revision 157055]"; + "4.5.0 20100310 (experimental) [melt-branch revision 157367]"; #endif #include "run-melt.h" @@ -9292,7 +9292,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_121__PREVLOC_CONTAINER", melt_magic_discr (/*_.CLASS_CONTAINER__V37*/ meltfptr[36]) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_121__PREVLOC_CONTAINER", ((meltobject_ptr_t) (/*_.CLASS_CONTAINER__V37*/ meltfptr[36]))->object_magic == OBMAG_OBJECT); cdat->dobj_121__PREVLOC_CONTAINER.obj_class = (meltobject_ptr_t)(/*_.CLASS_CONTAINER__V37*/ meltfptr[36]); - cdat->dobj_121__PREVLOC_CONTAINER.obj_hash = 723212298; + cdat->dobj_121__PREVLOC_CONTAINER.obj_hash = 515063772; cdat->dobj_121__PREVLOC_CONTAINER.obj_len = 1; /*iniobj dsym_122__PREVIMPLBUF_CONTAINER*/ @@ -9314,7 +9314,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_124__PREVIMPLBUF_CONTAINER", melt_magic_discr (/*_.CLASS_CONTAINER__V37*/ meltfptr[36]) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_124__PREVIMPLBUF_CONTAINER", ((meltobject_ptr_t) (/*_.CLASS_CONTAINER__V37*/ meltfptr[36]))->object_magic == OBMAG_OBJECT); cdat->dobj_124__PREVIMPLBUF_CONTAINER.obj_class = (meltobject_ptr_t)(/*_.CLASS_CONTAINER__V37*/ meltfptr[36]); - cdat->dobj_124__PREVIMPLBUF_CONTAINER.obj_hash = 535712632; + cdat->dobj_124__PREVIMPLBUF_CONTAINER.obj_hash = 154415745; cdat->dobj_124__PREVIMPLBUF_CONTAINER.obj_len = 1; /*inirout drout_125__OUTPUT_LOCATION*/ @@ -11275,7 +11275,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_432__CLASS_SECONDARY_C_FILE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_432__CLASS_SECONDARY_C_FILE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_432__CLASS_SECONDARY_C_FILE.obj_num = OBMAG_OBJECT; - cdat->dobj_432__CLASS_SECONDARY_C_FILE.obj_hash = 141138805; + cdat->dobj_432__CLASS_SECONDARY_C_FILE.obj_hash = 766006226; cdat->dobj_432__CLASS_SECONDARY_C_FILE.obj_len = 8; /*inistring dstr_433__CLASS_SECONDARY_*/ @@ -11311,7 +11311,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_438__SECFIL_MODNAM", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_438__SECFIL_MODNAM.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_438__SECFIL_MODNAM.obj_num = 0; - cdat->dobj_438__SECFIL_MODNAM.obj_hash = 691710927; + cdat->dobj_438__SECFIL_MODNAM.obj_hash = 66973766; cdat->dobj_438__SECFIL_MODNAM.obj_len = 4; /*inistring dstr_439__SECFIL_MODNAM*/ @@ -11339,7 +11339,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_442__SECFIL_PATH", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_442__SECFIL_PATH.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_442__SECFIL_PATH.obj_num = 1; - cdat->dobj_442__SECFIL_PATH.obj_hash = 411551974; + cdat->dobj_442__SECFIL_PATH.obj_hash = 294162318; cdat->dobj_442__SECFIL_PATH.obj_len = 4; /*inistring dstr_443__SECFIL_PATH*/ @@ -11367,7 +11367,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_446__SECFIL_DECLBUF", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_446__SECFIL_DECLBUF.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_446__SECFIL_DECLBUF.obj_num = 2; - cdat->dobj_446__SECFIL_DECLBUF.obj_hash = 387345213; + cdat->dobj_446__SECFIL_DECLBUF.obj_hash = 601868118; cdat->dobj_446__SECFIL_DECLBUF.obj_len = 4; /*inistring dstr_447__SECFIL_DECLBUF*/ @@ -11395,7 +11395,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_450__SECFIL_IMPLBUF", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_450__SECFIL_IMPLBUF.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_450__SECFIL_IMPLBUF.obj_num = 3; - cdat->dobj_450__SECFIL_IMPLBUF.obj_hash = 958896105; + cdat->dobj_450__SECFIL_IMPLBUF.obj_hash = 971933197; cdat->dobj_450__SECFIL_IMPLBUF.obj_len = 4; /*inistring dstr_451__SECFIL_IMPLBUF*/ @@ -11422,7 +11422,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_454__GENERATED_C_FILENAME", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_454__GENERATED_C_FILENAME", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->object_magic == OBMAG_OBJECT); cdat->dobj_454__GENERATED_C_FILENAME.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_454__GENERATED_C_FILENAME.obj_hash = 920512271; + cdat->dobj_454__GENERATED_C_FILENAME.obj_hash = 923344522; cdat->dobj_454__GENERATED_C_FILENAME.obj_len = 5; /*inimult dtup_455__GENERATED_C_FILENAME*/ @@ -11453,7 +11453,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_459", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_459.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_459.obj_num = 0; - cdat->dobj_459.obj_hash = 313233945; + cdat->dobj_459.obj_hash = 745518538; cdat->dobj_459.obj_len = 2; /*iniobj dsym_460__BASE*/ @@ -11476,7 +11476,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_462", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_462.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_462.obj_num = 1; - cdat->dobj_462.obj_hash = 44363088; + cdat->dobj_462.obj_hash = 149766373; cdat->dobj_462.obj_len = 2; /*iniobj dsym_463__DIR*/ @@ -11499,7 +11499,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_465", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_465.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_465.obj_num = 2; - cdat->dobj_465.obj_hash = 528145426; + cdat->dobj_465.obj_hash = 991742648; cdat->dobj_465.obj_len = 2; /*iniobj dsym_466__NUM*/ @@ -11522,7 +11522,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_468", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_468.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_468.obj_num = 3; - cdat->dobj_468.obj_hash = 376057134; + cdat->dobj_468.obj_hash = 690244827; cdat->dobj_468.obj_len = 2; /*inistring dstr_469__meltgc_new_strin*/ @@ -11574,7 +11574,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_477__WANTS_SINGLE_C_FILE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_477__WANTS_SINGLE_C_FILE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->object_magic == OBMAG_OBJECT); cdat->dobj_477__WANTS_SINGLE_C_FILE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_477__WANTS_SINGLE_C_FILE.obj_hash = 322653405; + cdat->dobj_477__WANTS_SINGLE_C_FILE.obj_hash = 837165562; cdat->dobj_477__WANTS_SINGLE_C_FILE.obj_len = 5; /*inimult dtup_478__WANTS_SINGLE_C_FILE*/ @@ -11890,7 +11890,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_527__MELT_ARGUMENT", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_527__MELT_ARGUMENT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->object_magic == OBMAG_OBJECT); cdat->dobj_527__MELT_ARGUMENT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_527__MELT_ARGUMENT.obj_hash = 273395266; + cdat->dobj_527__MELT_ARGUMENT.obj_hash = 892695745; cdat->dobj_527__MELT_ARGUMENT.obj_len = 5; /*inimult dtup_528__MELT_ARGUMENT*/ @@ -11921,7 +11921,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_532", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT); cdat->dobj_532.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_532.obj_num = 0; - cdat->dobj_532.obj_hash = 437998101; + cdat->dobj_532.obj_hash = 700405599; cdat->dobj_532.obj_len = 2; /*inistring dstr_533__melt_argument_*/ @@ -12046,7 +12046,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_552__TRANSLATEFILE_MODE", melt_magic_discr (/*_.CLASS_MELT_MODE__V130*/ meltfptr[129]) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_552__TRANSLATEFILE_MODE", ((meltobject_ptr_t) (/*_.CLASS_MELT_MODE__V130*/ meltfptr[129]))->object_magic == OBMAG_OBJECT); cdat->dobj_552__TRANSLATEFILE_MODE.obj_class = (meltobject_ptr_t)(/*_.CLASS_MELT_MODE__V130*/ meltfptr[129]); - cdat->dobj_552__TRANSLATEFILE_MODE.obj_hash = 428723108; + cdat->dobj_552__TRANSLATEFILE_MODE.obj_hash = 155080301; cdat->dobj_552__TRANSLATEFILE_MODE.obj_len = 5; /*inistring dstr_553__translatefile*/ @@ -12090,7 +12090,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_559__RUNFILE_MODE", melt_magic_discr (/*_.CLASS_MELT_MODE__V130*/ meltfptr[129]) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_559__RUNFILE_MODE", ((meltobject_ptr_t) (/*_.CLASS_MELT_MODE__V130*/ meltfptr[129]))->object_magic == OBMAG_OBJECT); cdat->dobj_559__RUNFILE_MODE.obj_class = (meltobject_ptr_t)(/*_.CLASS_MELT_MODE__V130*/ meltfptr[129]); - cdat->dobj_559__RUNFILE_MODE.obj_hash = 972992950; + cdat->dobj_559__RUNFILE_MODE.obj_hash = 85537168; cdat->dobj_559__RUNFILE_MODE.obj_len = 5; /*inistring dstr_560__runfile*/ @@ -12141,7 +12141,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_567__TRANSLATEINIT_MODE", melt_magic_discr (/*_.CLASS_MELT_MODE__V130*/ meltfptr[129]) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_567__TRANSLATEINIT_MODE", ((meltobject_ptr_t) (/*_.CLASS_MELT_MODE__V130*/ meltfptr[129]))->object_magic == OBMAG_OBJECT); cdat->dobj_567__TRANSLATEINIT_MODE.obj_class = (meltobject_ptr_t)(/*_.CLASS_MELT_MODE__V130*/ meltfptr[129]); - cdat->dobj_567__TRANSLATEINIT_MODE.obj_hash = 110103977; + cdat->dobj_567__TRANSLATEINIT_MODE.obj_hash = 292717329; cdat->dobj_567__TRANSLATEINIT_MODE.obj_len = 5; /*inistring dstr_568__translateinit*/ @@ -12187,7 +12187,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_574__CLASS_MAKEDOC_INFO", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT); cdat->dobj_574__CLASS_MAKEDOC_INFO.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_574__CLASS_MAKEDOC_INFO.obj_num = OBMAG_OBJECT; - cdat->dobj_574__CLASS_MAKEDOC_INFO.obj_hash = 432465093; + cdat->dobj_574__CLASS_MAKEDOC_INFO.obj_hash = 293589631; cdat->dobj_574__CLASS_MAKEDOC_INFO.obj_len = 8; /*inistring dstr_575__CLASS_MAKEDOC_IN*/ @@ -12223,7 +12223,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_580__MKDOC_PRIMITIVES", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_580__MKDOC_PRIMITIVES.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_580__MKDOC_PRIMITIVES.obj_num = 1; - cdat->dobj_580__MKDOC_PRIMITIVES.obj_hash = 207855155; + cdat->dobj_580__MKDOC_PRIMITIVES.obj_hash = 935851508; cdat->dobj_580__MKDOC_PRIMITIVES.obj_len = 4; /*inistring dstr_581__MKDOC_PRIMITIVES*/ @@ -12251,7 +12251,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_584__MKDOC_FUNCTIONS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_584__MKDOC_FUNCTIONS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_584__MKDOC_FUNCTIONS.obj_num = 2; - cdat->dobj_584__MKDOC_FUNCTIONS.obj_hash = 502577112; + cdat->dobj_584__MKDOC_FUNCTIONS.obj_hash = 287300942; cdat->dobj_584__MKDOC_FUNCTIONS.obj_len = 4; /*inistring dstr_585__MKDOC_FUNCTIONS*/ @@ -12279,7 +12279,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_588__MKDOC_CITERATORS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_588__MKDOC_CITERATORS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_588__MKDOC_CITERATORS.obj_num = 3; - cdat->dobj_588__MKDOC_CITERATORS.obj_hash = 559608090; + cdat->dobj_588__MKDOC_CITERATORS.obj_hash = 137291234; cdat->dobj_588__MKDOC_CITERATORS.obj_len = 4; /*inistring dstr_589__MKDOC_CITERATORS*/ @@ -12307,7 +12307,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_592__MKDOC_CMATCHERS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_592__MKDOC_CMATCHERS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_592__MKDOC_CMATCHERS.obj_num = 4; - cdat->dobj_592__MKDOC_CMATCHERS.obj_hash = 918574309; + cdat->dobj_592__MKDOC_CMATCHERS.obj_hash = 725616946; cdat->dobj_592__MKDOC_CMATCHERS.obj_len = 4; /*inistring dstr_593__MKDOC_CMATCHERS*/ @@ -12335,7 +12335,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_596__MKDOC_SELECTORS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_596__MKDOC_SELECTORS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_596__MKDOC_SELECTORS.obj_num = 5; - cdat->dobj_596__MKDOC_SELECTORS.obj_hash = 585626490; + cdat->dobj_596__MKDOC_SELECTORS.obj_hash = 1068760459; cdat->dobj_596__MKDOC_SELECTORS.obj_len = 4; /*inistring dstr_597__MKDOC_SELECTORS*/ @@ -12363,7 +12363,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_600__MKDOC_FIELDS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_600__MKDOC_FIELDS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_600__MKDOC_FIELDS.obj_num = 6; - cdat->dobj_600__MKDOC_FIELDS.obj_hash = 846798689; + cdat->dobj_600__MKDOC_FIELDS.obj_hash = 870610939; cdat->dobj_600__MKDOC_FIELDS.obj_len = 4; /*inistring dstr_601__MKDOC_FIELDS*/ @@ -12391,7 +12391,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_604__MKDOC_CLASSES", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_604__MKDOC_CLASSES.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_604__MKDOC_CLASSES.obj_num = 7; - cdat->dobj_604__MKDOC_CLASSES.obj_hash = 159566971; + cdat->dobj_604__MKDOC_CLASSES.obj_hash = 678169995; cdat->dobj_604__MKDOC_CLASSES.obj_len = 4; /*inistring dstr_605__MKDOC_CLASSES*/ @@ -12419,7 +12419,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_608__MKDOC_INSTANCES", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_608__MKDOC_INSTANCES.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_608__MKDOC_INSTANCES.obj_num = 8; - cdat->dobj_608__MKDOC_INSTANCES.obj_hash = 667578856; + cdat->dobj_608__MKDOC_INSTANCES.obj_hash = 790337431; cdat->dobj_608__MKDOC_INSTANCES.obj_len = 4; /*inistring dstr_609__MKDOC_INSTANCES*/ @@ -12447,7 +12447,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_612__MKDOC_MACROS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_612__MKDOC_MACROS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_612__MKDOC_MACROS.obj_num = 9; - cdat->dobj_612__MKDOC_MACROS.obj_hash = 899643890; + cdat->dobj_612__MKDOC_MACROS.obj_hash = 267002486; cdat->dobj_612__MKDOC_MACROS.obj_len = 4; /*inistring dstr_613__MKDOC_MACROS*/ @@ -12475,7 +12475,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_616__MKDOC_PATMACROS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_616__MKDOC_PATMACROS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_616__MKDOC_PATMACROS.obj_num = 10; - cdat->dobj_616__MKDOC_PATMACROS.obj_hash = 873039604; + cdat->dobj_616__MKDOC_PATMACROS.obj_hash = 1027478924; cdat->dobj_616__MKDOC_PATMACROS.obj_len = 4; /*inistring dstr_617__MKDOC_PATMACROS*/ @@ -12503,7 +12503,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_620__MKDOC_FORMALOCCMAP", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_620__MKDOC_FORMALOCCMAP.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_620__MKDOC_FORMALOCCMAP.obj_num = 11; - cdat->dobj_620__MKDOC_FORMALOCCMAP.obj_hash = 377063599; + cdat->dobj_620__MKDOC_FORMALOCCMAP.obj_hash = 633174313; cdat->dobj_620__MKDOC_FORMALOCCMAP.obj_len = 4; /*inistring dstr_621__MKDOC_FORMALOCCM*/ @@ -12531,7 +12531,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_624__MKDOC_PREDEFMAP", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_624__MKDOC_PREDEFMAP.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_624__MKDOC_PREDEFMAP.obj_num = 12; - cdat->dobj_624__MKDOC_PREDEFMAP.obj_hash = 1035399996; + cdat->dobj_624__MKDOC_PREDEFMAP.obj_hash = 249776289; cdat->dobj_624__MKDOC_PREDEFMAP.obj_len = 4; /*inistring dstr_625__MKDOC_PREDEFMAP*/ @@ -12559,7 +12559,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_628__MKDOC_DOCSYMAP", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_628__MKDOC_DOCSYMAP.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_628__MKDOC_DOCSYMAP.obj_num = 13; - cdat->dobj_628__MKDOC_DOCSYMAP.obj_hash = 699844450; + cdat->dobj_628__MKDOC_DOCSYMAP.obj_hash = 462497339; cdat->dobj_628__MKDOC_DOCSYMAP.obj_len = 4; /*inistring dstr_629__MKDOC_DOCSYMAP*/ @@ -12587,7 +12587,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_632__MKDOC_SUBCLASSMAP", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT); cdat->dobj_632__MKDOC_SUBCLASSMAP.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_632__MKDOC_SUBCLASSMAP.obj_num = 14; - cdat->dobj_632__MKDOC_SUBCLASSMAP.obj_hash = 150416295; + cdat->dobj_632__MKDOC_SUBCLASSMAP.obj_hash = 19354269; cdat->dobj_632__MKDOC_SUBCLASSMAP.obj_len = 4; /*inistring dstr_633__MKDOC_SUBCLASSMA*/ @@ -13079,7 +13079,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_710__MAKEDOC_MODE", melt_magic_discr (/*_.CLASS_MELT_MODE__V130*/ meltfptr[129]) == OBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_710__MAKEDOC_MODE", ((meltobject_ptr_t) (/*_.CLASS_MELT_MODE__V130*/ meltfptr[129]))->object_magic == OBMAG_OBJECT); cdat->dobj_710__MAKEDOC_MODE.obj_class = (meltobject_ptr_t)(/*_.CLASS_MELT_MODE__V130*/ meltfptr[129]); - cdat->dobj_710__MAKEDOC_MODE.obj_hash = 665010951; + cdat->dobj_710__MAKEDOC_MODE.obj_hash = 84582680; cdat->dobj_710__MAKEDOC_MODE.obj_len = 5; /*inistring dstr_711__makedoc*/ -- cgit v1.2.1